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Dodatek 

W numerze: 

• Świat 
minikomputerów 
z bliska 

• Cztery 
programy 

w BASIC-u 
na SPECTRUM 

• Komputer 
dla 

kolekcjonerów 

• Liga 
Myślących 

• „Iks” pomaga 
w poznaniu 
komputera 



CENA — 50 zł 



Komputer może wszystko — a tak naprawdę może tylko ty- 
le, ile pozwoli mu człowiek. Martwe układy elektroniczne 
trzeba „nauczyć” każdej wykonywanej przez nie czynności — 
zrobią tylko tyle, ile potrafi zażądać od nich programista — i 
to właśnie on jest najważniejszy. 

Komputer mówi prawdę, a przynajmniej myli się rzadko. 
Pracuje szybko i nie ulega stresom, potrafi również sprawnie 
określić, w jakim stanie znajduje się jego rozumny partner. 
Biorytm dla „IKS-a” to prognoza naszej kondycji na cały rok. 
Dokładnie 29 stycznia zrodził się pomysł jego wydania. Pier- 
wsze „plusy” we wszystkich rytmach sprawiły, że po kilku ty- 
godniach byliśmy gotowi. Przeczekaliśmy jeszcze dni kryty- 
czne i okres słabszej formy intelektualnej — starannie unika- 
liśmy jakiejkolwiek koncepcyjnej pracy w „słabsze” dni. 
Przestrzegać tej zasady będziemy również w przyszłości. I 
choć uznać można biorytmiczną prognozę za jeden z kompu- 
terowych żartów — to właśnie jest on jednym ze sposobów 
wykorzystania elektronowego mózgu; zamiast kartki papie- 
ru, długich obliczeń, wystarczy podać datę swojego urodzenia 
i cierpliwie poczekać na wynik działania programu. 

"w KS” chce być partnerem wszystkich, których za- 
I interesowała informatyka: miłośników nowo- 

55 * czesne) techniki i logicznego myślenia. Oddając 
„IKS-a” do Twoich, Czytelniku, rąk liczymy, że znajdziemy w 
Tobie partnera naszej pracy. Jednocześnie podkreślamy, że 
wszystkie błędy obarczają wyłącznie redakcję, zaś to co uzna- 
cie w „IKS-ic” za wartościowe jest owocem pracy wszystkich 
— redakcji i jej sympatyków, którym w tym miejscu serde- 
cznie dziękujemy. 

Życzymy przyjemnej lektury! 


N ICZEGO już uzasadniać nie trzeba. To co było tyl- 
ko przyszłością i to odległą, jak dodawali złośliwi, 
stało się dniem powszednim. Prawdziwą kompute- 
rową eksplozję spowodowały mini - i mikrokomputery. Za- 
częło się od gier; zabawnych i pasjonujących, wymagających 
refleksu i logicznego myślenia. Minikomputer sprawił, że 
rozmowa z „bezduszną maszyną” stała się prostsza i łatwiej- 
sza. 

Informatyka jest dziś przedmiotem nauczania w wielu 
szkołach średnich i we wszystkich liceach wojskowych. Dialog 
z maszyną zaczyna się wcześnie; komputer jest pomocą dy- 
daktyczną — staje się niezbędny tak jak kreda i tablica. To 
mała informatyka. Ta wielka — to duże systemf, o rozbudo- 
wanych bazach danych, dostarczające informacji szybko i 
sprawnie. 

Cybernetyk to już nie „Wielki Mag” dwudziestego pier- 
wszego wieku, ale inżynier — specjalista jak wielu innych. Je- 
go obowiązkiem jest służyć wiedzą tym, którzy je) potrzebują. 
My także chcemy mieć w tym swój skromny udział, dlatego 
też powstał „IKS”, który ma uczyć i bawić. Znajdziesz w nim, 
Czytelniku, programy komputerowe, artykuły problemowe, 
informacje poświęcone konstrukcyjnym nowinkom, a także 
możesz wziąć udział w startującej „Lidze Myślących". To 
oczywiście nie wszystko. Również sam możesz być współre- 
daktorem pisma — redakcja czeka na Twoje propozycje. 

Chcemy, takie mamy ambicje, stać się pomostem między 
marzeniami a możliwościami. Rzeczywistość zweryfikuje 
nasze plany, ale już obiecać możemy, że najważniejszym kry- 
terium naszego działania będzie szerzenie komputerowej 
wiedzy, wiedzy, która już jutro będzie wszystkim tak po- 
trzebna jak dziś tabliczka mnożenia. 
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Problemy 

mikroelektroniki 

W ostatnich latach jesteśmy świadkami dynami- 
cznego rozwoju techniki mikroelektronicznej, 
która rewolucjonizuje wszystkie dziedziny życia. 
To lawinowo narastające zjawisko wpływa decydu- 
jąco na ogólny poziom wiedzy naszego społeczeń- 
stwa — dziś ocenia się, że co 8 lat następuje pod- 
wojenie naszej wiedzy. 


czynników postępu na- 
ukowo-technicznego. Już 
obecnie jako wskaźnik 
uprzemysłowienia przyj- 
muje się liczbę skutecznie - 
eksploatowanych kompu- 
terów (mini- i mikrokom- 
puterów). średnie nakłady 
ponoszone na wdrażanie 
oraz zastosowanie metod i 
środków informatyki we 
Francji i w Stanach Zjed- 
noczonych wynosiły w la- 
tach 1976 — 1980 odpo- 
wiednio 2.3 proc. i 3,1 
proc. produktu narodo- 
wego brutto, zaś w 1985 r. 
wzrosły do 3,5 proc. i 4 


Hasło postęp 

W odróżnieniu od 
pierwszej rewolucji na- 
ukowo-technicznej, w 
wyniku której praca fizy- 
czna została zastąpiona 
pracą zmechanizowaną, 
rozwój elektroniki, umoż- 
liwiający zastąpienie pracy 
umysłowej pracą urządzeń 
elektronicznych, nazwano 
drugą rewolucją nauko- 
wo-techniczną. 

Prognozy zawarte w ra- 
porcie Klubu Rzymskiego 
z 1982 r. przewidują, że 
rewolucja ta wywrze wię- 
kszy wpływ na rozwój cy- 
wilizacyjny świata niż 
pierwsza. Ma to być głów- 
nie następstwem takich 
pozytywnych efektów 
elektronizacji jak: wzrost 
wydajności pracy, elimi- 
nacja prac niebezpiecz- 
nych i uciążliwych, 
automatyzacja prac ruty- 
nowych, wzrost efektyw- 
ności kontroli całego pro- 
cesu produkcji i po- 
szczególnych stanowisk 
pracy. 

Mikroelektronika jest 
dziedziną nauki i techniki 
zajmującą się zminiatury- 
zowanymi układami elek- 
tronicznymi, wykonywa- 
nymi w postaci scalonej 
przy całkowitym lub częś- 
ciowym braku elementów 
indywidualnych. 

Kolejnymi etapami w 
rozwoju mikroelektroniki 
było uruchomienie pro- 
dukcji tranzystorów 

(1948 r.), układów scalo- 
nych (1960 r.), układów 
scalonych wielkiej skali in- 
tegracji (1970 r.) oraz 
mikroprocesorów (1972 r.). 
Obecnie prace nad' tech- 


nikami i technologiami 
mikroprocesorowymi są 
rozwijane dzięki dużym 
subwencjom rządowym. 
Mimo wielkich możliwoś- 
ci finansowych, jakimi dy- 
sponują elektroniczne kon- 


proc., mimo że gospodar- 
ki tych krajów są w wyso- 
kim stopniu nasycone 
sprzętem komputerowym. 



cerny (np. w 1981 r. firma 


IBM na prace badawcze 
przeznaczyła 1,6 mld dola- 
rów tj. 5,5 proc. wartości 
sprzedaży swoich wyro- 
bów) rządy Stanów Zjed- 
noczonych, Japonii i Fran- 
cji przeznaczają dodatko- 
wo wielkie nakłady na 
przyspieszenie rozwoju 
przemysłu elektroniczne- 
go. 

Informatyka, której 
rozwój jest w coraz więk- 
szym stopniu stymulowa- 
ny wprowadzaniem ukła- 
dów mikroeletronicznych 
o wielkim i bardzo wiel- 
kim stopniu scalenia, staje 
się jednym z głównych 


W krajach socjalisty- 
cznych wyraźne przyspie- 
szenie postępu w dziedzi- 
nie mikroelektroniki na- 
stąpiło w latach siedem- 
dziesiątych, przede 

wszystkim w wyniku wzro- 
stu nakładów inwestycyj- 
nych oraz zwiększenia 
zdolności produkcyjnych 
przemysłu elektroniczne- 
go. Było to szczególnie 
widoczne w Polsce po opra- 
cowaniu i wprowadze- 
niu w życie „ Programu 
elektronizacji gospodarki 
narodowej do 7990 r." 
(Uchwała nr 175/75 Rady 
Ministrów z 26 września 


1975 r.). Zjawiska kryzyso- 
we przełomu lat siedem- 
dziesiątych i osiemdziesią- 
tych przerwały na pewien 
czas rozwój przemysłu 
elektronicznego, a inwe- 
stycje w tej dziedzinie zos- 
tały wstrzymane. W tym 
samym czasie obserwuje 
się dynamiczny rozwój 
bazy elektronizacji w in- 
nych krajach socjalisty- 
cznych. Na przykład w 
NRD w drugiej połowie lat 
siedemdziesiątych, zgod- 
nie z decyzjami najwyż- 
szych władz partyjnych i 
państwowych, nastąpiła 
dalsza intensyfikacja prac 
nad mikroelektroniką ze 
szczególnym uwzględnie- 
niem układów mikropro- 
cesorowych. Aktualnie w 
NRD nad rozwojem no- 
woczesnych układów sca- 
lonych wielkiej skali inte- 
gracji pracuje trzy razy 
większy potencjał ludzki 
niż w Polsce. Bezpośred- 
nia współpraca z innymi 
partnerami z RWPG. a 
zwłaszcza z CSRS i LRB 
wskazuje, że w krajach 
tych środki finansowe 
przeznaczone w ostatnich 
5—8 latach na rozwój mik- 
roelektroniki są znacznie 
wyższe niż w PRL. To samo 
dotyczy zastosowań in- 
formatyki — w czym pra- 
wie wszystkie kraje socjali- 
styczne nas wyprzedziły; 
liczba komputerów przy- 
padających na 1 min 
mieszkańców wynosiła w 
1980 r. w CSRS — 81 sztuk, 
w WRL — 51; NRD — 47, 
LRB — 28, w Polsce — 24 
sztuki. 

Mfernikiem postępu w 
elektronice jest poziom 
produkcji układów scalo- 
nych wielkiej i bardzo 
wielkiej skali integracji, 
czyli mikroprocesorów. 
Mikroprocesory 4-bitowe 
mogą służyć do konstruo- 
wania prostych mikro- 
komputerów przeznaczo- 
nych do sterowania sprzę- 
tem powszechnego użyt- 
ku, jak odbiorniki radiowe 
i telewizyjne, pralki auto- 
matyczne, maszyny do 
szycia, kalkulatory itp. 
Mikroprocesory 8-bitowe 
służą do stosunkowo pro- 
stych zastosowań profes- 
jonalnych. takich jak ste- 
rowanie pervfervjnym 
cd. na str. 6 
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Co trzeba 
wiedzieć? 

Przystępując do pisania programu, każ- 
dy człowiek realizujący to zadanie powi- 
nien sobie wyobrazić wielkość pracy kon- 
cepcyjnej, jaką musi wykonać, aby pro- 
dukt finalny, program był napisany szybko 
i dokładnie oraz aby odzwierciedlał pier- 
wotne zamierzenie twórcy. 


P RZEDE wszystkim 
trzeba zrozumieć 
problem. Sformu- 
łowanie zadania nie może 
bowiem pozostawiać 
wątpliwości co do jego 
sensowności, poprawności 
formalnej i merytorycznej 
oraz kompletności sfor- 
mułowań. Zdefiniowanie 
problemu określa i zawęża 
zagadnienie do wymagań, 
jakie przed nim stawiamy. 

Drugim, niezmiernie 
ważnym etapem jest anali- 
za problemu i dobór me- 
tody rozwiązania. Od 
człowieka, który zna pro- 
blem mający być oprogra- 
mowany zależy wybór 
właściwej i najlepszej me- 
tody jego rozwiązania. Ko- 
lejnym etapem, bardzo 
często zaniedbywanym 
lub wręcz lekceważonym, 
jest opracowanie algoryt- 
mu (przepisu) rozwiązania 
problemu. Jest to pierwszy 
bardzo poważny moment 
przybliżający człowieka i 
jego problem do kompu- 
tera. Tu bowiem probleib 
zostaje w oparciu o zna- 
jomość sprzętu kompute- 
rowego i języka progra- 
mowania przeniesiony na 
konkretny, sformalizowa- 
ny sposób interpretacji 
rozwiązania (tablica decy- 
zyjna, wzór matematy- 
czny, schemat blokowy, 
opis słowny). Opracowu- 
jąc algorytm każdy czło- 
wiek piszący program 
(programista) powinien 
bardzo dokładnie zwery- 
fikować, czy to, co zostało 
przez niego przedstawio- 
ne w postaci sformalizo- 
wanej interpretacji zada- 
nia odpowiada w zupeł- 
ności problemowi, który 
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miał oprogramować. Każ- 
de odstępstwo lub różnicę 
należy natychmiast skory- 
gować — nieuczynienie 
tego spowoduje przenie- 
sienie błędu na dalsze 
etapy, w których jego wy- 
krycie może być o wiele 


trudniejsze, fctap ten jest 
pierwszym, ale bardzo 
istotnym etapem kontroli, 
jaki musi być wykonywany 
przy tworzeniu programu. 
Mając gotowy sposób 
rozwiązania problemu 
przystępuje się do jego 
kodowania, czyli przeno- 
szenia na język kompute- 
rowy. W trakcie kodowa- 
nia programu należy pa- 
miętać o pewnej prostej 
zasadzie: zadaniem pro- 
gramisty jest napisanie 
kodu, którego odbiorcą 
jest przede wszystkim 
człowiek, a dopiero póź- 
niej komputer. Trzeba 
zatem skupić się na jas- 
ności, prostocie i czytel- 
ności kodu. W trakcie pi- 
sania programu: 


1) należy używać zna- 
czących nazw zmien- 
nych — każda nazwa 
zmiennej powinna 
być unikalna tak, aby 
wykluczyć możliwoś- 
ci pomyłki w tym za- 
kresie; 

2) jeżeli w identyfikato- 
rach występują cyfry, 
należy umieścić je na 
końcu nazwy; 

3) nie należy używać ja- 
ko identyfikatorów 
słów kluczowych ję- 
zyka programowania; 

4) nie należy używać 
zbyt dużo zmiennych 
roboczych; 

5) dla jednoznaczności 
określeń używać nale- 
ży nawiasów; 

6) należy pisać tylko jed- 
ną instrukcję w wier- 
szu; 

7) nie należy zmieniać 


8) należy unikać etykiet 
w instrukcjach, zwła- 
szcza tam, gdzie one 
są zbędne — jeżeli do 
instrukcji nie prowa- 
dzi skok, nie należy 
poprzedzać jej etykie- 
tą; 

9) należy wykorzystywać 
w maksymalnym stop- 
niu oprogramowanie 
standardowe; 

10) należy komentować 
wszystkie zmienne 
programu; 

11) należy deklarować 
wszystkie zmienne 
programu w sposób 
jawny; 

12) nie należy używać 


jednej zmiennej dla 
różnych celów; 

13) nie należy używać 
różnych nazw dla tego 
samego obszaru pa- 
mięci; 

K olejny etap 
to wprowadzenie 
programu do kom- 
putera. Podczas tej czyn- 
ności należy zwracać ba- 
czną uwagę na to, czy po- 
stać wprowadzonej pro- 
cedury (instrukcji) jest 
właściwa — błąd trzeba 
natychmiast korygować. 
Od tej pory można przy- 
jąć, że podstawowe błędy 
w składni będzie wykrywał 
komputer, co nie zwalnia 
programisty od stałej we- 
ryfikacji poprawności pro- 
gramu. Z chwilą otrzyma- 
nia poprawnego (pod 
względem formalnym) 
programu następuje naj- 
bardziej pracochłonna 
czynność procesu pro- 
gramowania: testowanie i 
uruchomienie programu. 
Pamiętać tu należy, że od 
jakości testu oraz rzetel- 
ności analizy jego wyni- 
ków przez programistę za- 
leży jakość programu, a 
także czas poświęcony na 
jego weryfikację. 

Jednym z mierników 
oceny biegłości programi- 
sty jest jego zdolność do 
znajdowania i poprawia- 
nia własnych błędów. Po- 
czątkujący programiści nie 
potrafią szukać i popra- 
wiać swoich błędów, 
umieją to natomiast pro- 
gramiści doświadczeni. 
Programistów uczy się 
często programowania, 
rzadko natomiast uru- 
chamiania programu. Uru- 
chomienie programu trwa 
dłużej i jest o wiele trud- 
niejsze niż samo pisanie 
programu. Oto wskazów- 
ki, które programiści po- 
winni przeanalizować 
przed przystąpieniem do 
testowania i uruchamiania 
programu: 

1) należy stosować mi- 
nimalną liczbę zesta- 
wów testowych; 

2) ponieważ gruntowne 
testowanie jest bardzo 
żmudne, należy do 
problemu testowania 
podchodzić z rozwa- 
gą: 

3) testowanie zaczynać 



należy już na etapie 
tworzenia rozwiązania 
algorytmicznego; 

4) jako pierwsze należy 
przeprowadzić ręczne 
testowanie programu; 

5) każdy zestaw danych 
testowych powinien 
reprezentować inną 
klasę danych; 

6) podczas testowania 
należy badać sytuacje 
normalne, krańcowe i 
wyjątkowe; 

7) dane testowe powinny 
być opracowane dla 
każdej drogi progra- 
mu; 

8) po każdej modyfikacji 
programu proces te- 
stowania powinien 
być powtórzony od 
nowa; 

9) niezbędną częścią 
każdego testu jest opis 
spodziewanych wyni- 
ków; 

ciąg dalszy na str. 15 
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Problemy 

mikroelektroniki 

dokończenie ze strony 3 

sprzętem informatycznym 
i prostymi procesami 
technologicznymi. Mik- 
roprocesory 16-bitowe 
pozwalają na konstruowa- 
nie urządzeń stosowanych 
w stosunkowo złożonych 
procesach technologicz- 
nych np. obrabiarek, cen- 
tral telefonicznych o po- 
jemności kilkunastu tysię- 
cy numerów czy urządzeń 
wspomagających projek- 
towanie. Mikroprocesory 
32-bitowe są wykorzysty- 
wane przy konstruowaniu 
tzw. supermikrokompute- 
rów o mocy obliczeniowej 
typowej dla dużych kom- 
puterów oraz do sterowa- 
nia bardzo złożonymi ze- 
społami procesów techno- 
logicznych. Przykładem 
ich zastosowania może 
być minikomputer SM 
1505 o następujących pa- 
rametrach: objętość pa- 
mięci operacyjnej — 8 
MB. Objętość pamięci bu- 
forowej — 8 KB, długość 
cyklu procesora — 200 jus. 

Minikomputer może 
wykonywać do 5 min ope- 
racji na sekundę. 

Nasza szansa 

Zastosowanie mikro- 
procesorów ma także 
wielkie znaczenie eko- 
nomiczne, ponieważ do- 
prowadziło na całym świę- 
cie do gwałtownej obniżki 
kosztów wytwarzania 
sprzętu elektronicznego 
(od kilku do kilkudziesię- 
ciu razy), zmniejszenia je- 
go rozmiarów (około 10 
tysięcy razy) oraz poboru 
energii elektrycznej (oko- 
ło 10 tysięcy razy). Rów- 
nież w Polsce prowadzone 
były prace, które umożli- 
wiły podjęcie w roku 1983 
produkcji mikroproceso- 
rów 8-bitowych. Obecne 
potrzeby przemysłu kra- 
jowego na układy scalone 
wielkiej i bardzo wielkiej 
skali integracji wynoszą 
około 5 min sztuk, nato- 
miast możliwości produk- 
cyjne sięgają około 2 min 
sztuk w skali roku. Mocną 
stroną polskiej informatyki 
Strona 6 — „IKS” 


jest dobrze przygotowana 
kadra programistów i ma- 
tematyków. 

Jakkolwiek polska elek- 
tronika zapewne nie zdoła 
(z wielu powodów) w 
krótkim czasie dorównać 
swym poziomem czołów- 
ce światowej, to jednak 
powinna zająć czołową 
pozycję wśród odpowied- 
nich przemysłów w kra- 
jach socjalistycznych. 
Przemawiają za tym mię- 
dzy innymi następujące 
argumenty: 

— krajowa elektronika . 
dysponuje twórczą, 
wysoko kwalifikowaną 
oraz liczną kadrą inży- 
nierską; 

— główne ośrodki roz- 
woju bazy ełektroniza- 
cji posiadają znaczny 
potencjał techniczny; 

— dobrze rozwija się 
współpraca między 
jednostkami naukowo- 
-badawczymi i prze- 
mysłem. 

Do głównych zadań 
mikroelektroniki krajowej 
zaliczyć należy: 

— uzyskanie gęstości 
upakowania układów 
typu MOS do 100 000, 
a układów bipolarnych 
do 15 000 tranzystorów 
na jednej płytce kon- 
strukcyjnej; 

— opracowanie mikro- 
procesora 16-bito- 
wego (do 1990 r.) i 
32-bitowego (do 1995 r.). 

— opidtowdHie lo/wią- 
zania umożliwiającego 
zastosowanie arsenku 
galu w produkcji ukła- 
dów scalonych o dużej 
skali integracji; 

— wprowadzenie tech- 
nologii litograficznej 
umożliwiającej produ- 
kcję ścieżek bardzo 
małych rozmiarów w 
układach o bardzo du- 
żej skali integracji; 

— opracowanie i wpro- 
wadzenie metod kom- 
puterowego modelo- 
wania, projektowania, 
metrologii i diagnosty- 
ki układów scalonych; 

— opracowanie efekty- 
wniejszych metod ba- 
dania niezawodności 
produkowanych ukła- 
dów scalonych. 

JH. MC. 


Olivetti 

Komputery osobiste M21 i M24 wło 
skiej firmy Olivetti pracują w oparciu o 
16-bitowy mikroprocesor 8086 z możli- 
wością dołączenia procesora arytmety- 
cznego 80870 o pamięci wewnętrznej 
128 Kbitów. Są wyposażone w jedną lub 
dwie stacje dysków, które pozwalają 
zwiększyć pamięć do 360 lub 720 Kbitów 
Można do nicn dołączyć pamięć ze- 
wnętrzną na dyskach sztywnych o poje- 
mności 10 Mbitów. Oba komputery róż- 
nią się między innymi zastosowanym ekra- 
nem monitora, który w obu przypadkach 
pozwala na wyświetlanie znaków alfa- 
numerycznych i symboli graficznych w 
jednym lub w czterech kolorach. 



28 BORDER 6; INK 0: PAPER 6 
CLS 

30 PRINT RT 3, lii "KALENDARZ 


40 PRINT RT 6,3i 

"Program wyświetla dni tygo 
dni określonego miesiąca zadane 
go roku" 

58 PRUSE 50 

60 PRINT RT 21,5; FLASH 1; 

"Nacisnij dowolny klawisz" 
70' PRUSE 0: CLS 
80 DIM C (7,6) 

90 let d*="PonutoSroczwPiosob 
Nie" 

100 INPUT "Podaj miesiąc ",m$ 
110 let m =0 

120 RERO RS, f ,d 
130 LET m=m + l 
135 IF m > 11 THEN 

PRINT RT 10,0; "Zle w 
prowadzony miesiąc"; PRUSE 50; 

CLS ; RESTORE : 

00 TO 100 

148 IF atoel THEN 80 TO 128 
150 INPUT "Podaj rok " , rok 
160 IF rok >1900 THEN 

LET rok=rok-1900 
170 LET sk=INT lrOk/4) 

160 LET o f =r ok +s k 

190 IF rok-INT lrok/4)*4=8 

RND m<3 THEN LET Of*Of-l 
280 IF rok-INT irok/4)*4=0 
RND m=2 THEN LET d =29 
210 LET Of=0f-INT (0f/7)*7 . 

220 LET f=f+Of 

230 LET f=r-INT <f/7>*7 

240 IF f=0 THEN LET f=7 

250 FOR 1=1 TO f-1 

260 LET C (I, 1) =0 

278 NEXT I 

280 LET dZiansl 

290 FOR I=f TO 7 

300 LET C (I, l> =dzien 

318 LET dzien=dzien+l 

320 NEXT I 

330 FOR J»2 TO 6 

340 FOR 1=1 TO 7 

350 LET c (I,U> =dzien 

368 LET dz i en =dz i en +1 

370 IF dzień >d THEN 


380 NEXT I 
390 NEXT U 
400 CLS 

410 PRINT RT 4,8; m*; 

PRINT RT 4,20, rok+1900 
420 FOR 1=1 TO 7 
430 PRINT RT 1+7,5; 

d* ( (I-I) *3+1 TO 1*3) 

440 NEXT I 
450 FOR J = 1 TO 6 
460 FOR 1=1 TO 7 
470 IF c (I, J) < >0 THEN 

PRINT RT I+?,3*J+10; C (I, J) 
480 NEXT I 
490 NEXT U 
500 STOP 

510 ORTR "Styczeń" ,1,31, 

"Luty" ,4,25, 

"Marzec" ,4,31, 
"Kwiecień" ,7,30, 
"Maj", 2, 31, 

"Czerwiec" ,5,30 
520 ORTR "Lipiec" ,7,31, 

"Sierpień" ,3,31, 
"Wrzesień" ,6,30, 
"Pazdzi t rn i k" , 1 ,31 , 
"Listopad" ,4,30, 
"Grudzień" ,6,31 



Ten program napi- 
sany w BASIC-u na 
SPECTRUM przydać 
się może każdemu — 
„Kalendarz” na każdy 
miesiąc dowolnego ro- 
ku naszego stulecia. 
Wystarczy podać na- 
zwę miesiąca i rok, a 
na ekranie monitora 
pojawią się kolejne 
dni i tygodnie. 

Sprawdź, czy nie uro- 
dziłeś się w niedzielę, 
zobacz, w jaki dzień 
będą Twoje urodziny 
w roku 2000. 


Wynik działania 
programu 


Styczeń 


£000 


Pon 


3 

10 

17 

24 31 

uto 


4 

11 

18 

25 

Sro 


5 

12 

19 

26 

Czw 


6 

13 

20 

27 

Pio 


7 

14 

21 

28 

Sob 

1 

8 

15 

22 

29 

Nie 

2 

9 

16 

23 

30 
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PAPER 6: 


10 REM 

Uy k resy 
********* 


20 BORDER 1: INK 2 

BRIGHT 1: CLS 
30 PRINT RT 4,8; 

'WYKRESY FUNKCJI 
y = f (X ) " 

40 PRINT RT 20,4, FLASH 1; 

"Nacisnij dowolny Klawisz" 
50 PRUSE 0 
60 REM 

wczytanie funkcji, zakresu 
zmian jej argumentu i 
war tos c i 
70 BORDER 7 
BRIGHT 0 

80 INPUT "Podaj funkc je"; F$ 

90 INPUT "Minimalna wartość 
zmiennej x = ?";XMIN 

100 INPUT "Maksymalna wartość 
zmiennej x = ?" ; XMAX 

110 IF XMIN>=XMAX THEN 

PRINT 10,0; "Biednie 
zadany zakres wartości zmiennej 
X"; PRUSE 100: CLS : 

GO TO 90 

"Minimalna wartość 
?" ; YMIN 

"Maksymalna wartość 

' YMRX 


PAPER 7: 
CLS 


INK 9: 


Ważne dla uczniów szkól średnich, a szcze- 
gólnie dla maturzystów. Program rysuje wy- 
kresy wartości zadanych wyrażeń algebra- 
icznych w określonym zakresie wartości i 
przedziale zmienności argumentu x. Wpro- 
wadzane wyrażenia mogą dvć dowolnymi wy- 
rażeniami algebraicznymi złożonymi z opera- 
torów arytmetycznych, stałych, zmiennej x, 
arytmetycznych funkcji standardowych do- 
stępnych w BASIC-u na SPECTRUM. Po adap- 
tacji program można też uruchomić na innym 
mikrokomputerze. Radzimy spróbować — ba- 
danie funlccji, często największa trudność 
uczniów, z pewnością okaże się łatwiejsze. 


120 INPUT 
funkcji y = 

130 INPUT 
funkcji y = 

140 IF YMIN > =YMRX THEN 

PRINT RT 10,0, "6 

lednie zadany zakres wartości f 
unkcji y": PRUSE 100: CLS : 

GO TO 120 

150 REM 
160 CLS 

170 LET XZAKRES=XMRX-XMIN: 

LET YZAKRES=YMRX-YMIN: 

LET DX=XZAKRES/199 : 

LET DY sYZAKRES / 143 
180 LET CY=ABS (YMIN* (YMIN <0) ) : 
LET CYsCY/DY+16 

190 LET CX = AB3 (XMIN* <XMIN <0) ) : 
LET CX=CX/DX+32 
200 PRINT RT 0,5; "y * "jF* 

210 REM 

Rysowanie osi współrzędnych 

220 PLOT 32, CY: DRRU 200,0 
230 PLOT CX , 16 . DRRU 0,144 
240 REM 

250 LET YSK=INT ( ( 175-CY) /8) +1 
260 LET XSK=INT (CX/8) -4 
270 REM OpiS OSi X 

280 FOR N=0 TO 5 

290 LET SX = ( INT (10*(XMIN + 

N*XZRKRES/5) *.5) ) /10 
300 PRINT RT YSK,5*N+4; SX: 

PLOT (5*N+4) *8,CY-1 
310 NEXT N 

320 REM OpiS OSi y 

330 FOR N=0 TO 6 
340 LET SY = ( INT (10*(YMAX-N 
*YZRKRES/6) *.5> ) /10 
350 LET G$=STR$ SY 
360 IF LEN G $ <4 THEN 

FOR C =LEN G( TO 3: 

LET G$ = " " + G $ : 

NEXT C 

370 PRINT RT 3*N*1 , XSK; G$ : 

PLOT CX + 1, (3*N*2) *8: 

380 NEXT N 


390 REM 

Rysowanie funkcji 

400 FOR N=0 TO 199 

410 LET X =XMIN+N*DX 

420 LET y = (URL (F$) -YMIN) /DY 

430 PLOT N *32,9+16 

.440 NEXT N 

450 INPUT "Następna funkcja 1 
(T/N) " ,Z$ 

460 IF CODĘ Z $ = 84 OR CODĘ Z$ = 

CLS 


116 THEN 
470 STOP 


GO TO 80 


Wynik działania 
programu 


i 

0.7 

0.3 


y = SIN (x) 


-0.7 


133 


106.7 


/\ 

/\ 

ES 3 T 5 

D 

iO... 

Ki/ 


y = EXP (x) 



80 


53.3 



Strona 8 — „IKS* 





Nie jest to program o finezyjnej konstrukcji; 
punkt po punkcie odwzorowuje granice na- 
szego państwa. Możliwości graficzne mikro- 
komputera SPECTRUM nie są duże — stąd 
każdy rysunek „przędzie się” mozolnie. Cierp- 
liwych zachęcamy do wspólnej pracy. Mozę 
razem uda nam się przygotować komputero- 
wą mapę Polski, na której zaznaczycie miejs- 
cowości, w których działają kluby kompute- 


/4 


540 DRAW 1. ,-4,-PI/4 
SS® DRAW :l.,-5,PI/4 


:l. REM MAPA POLSKI 

2 BORDER ls PAPER 7sINN 9 : BR I GHT IsCLS 
1® REM GRANICA ZACHODNIA 
20 PLOT 63, 60s DRAW 3, 6, P 1/4 
30 DRAW 1,3 
40 DRAW -1,3 


560 

600 

6 . 1.0 

620 

630 

640 


DRAW 0.-4, -PI 
REM GRANICA POŁUDNIOWA 
DRAW -18,9, -P 1/4 
DRAW -5, 1 ,PI/2 
DRAW -6,-1 , PI/2 


DRAW -9,®., -PI 


50 DRAW -3, 6, P 1/2 
60 DRAW -2,6 
70 DRAW 2,3 


650 DRAW -9, -5, PI 
660 DRAW -2,1. , -PI 
670 DRAW -3,0, PI 


80 DRAW 0,6,PI/4 
90 DRAW -2, 3, PI/ 4 


1.00 

DRAW 

2,9, ~P 1/4 

1.1.0 

DRAW 

— 6,6,PI/4 

1.20 

DRAW 

0,3 

1.30 

DRAW 

3, 6, P 1/4 

1.40 

DRAW 

0, !.2»PI/4 

1.50 

DRAW 

-2,9 


REM GRANICA PÓŁNOCNA 

21.0 

DRAW 

3,-2 

220 

DRAW 

1.1, 5 

230 

DRAW 

1.2,1. 

240 

DRAW 

1.2, 8, PI/ 4 

25© 

DRAW 

1.2,6 

260 

DRAW 

1.2,2 

270 

DRAW 

3,0 

280 

DRAW 

9,-5 

290 

DRAW 

-2 , 2 , -PI 

300 

DRAW 

-5, 4, P 1/8 

31.0 

DRAW 

1. ,— Ó.PI/8 

320 

DRAW 

18,-1 , PI/2 

330 

DRAW 

48, -2, P 1/8 

340 

DRAW 

4, -2, PI/2 

400 

REM GRANICA WSCHODNI 

410 

DRAW 

8, -9, -PI/2 

420 

DRAW 

6,— 1.8, P 1/4 

430 

DRAW 

3,-12 

440 

DRAW 

-3, -4, -PI/2 

45© 

DRAW 

— 9,-9, PT. /8 

460 

DRAW 

7,-7 

470 

DRAW 

0 , -6 

480 

DRAW 

2, -1.0, P 1/4 

490 

DRAW 

0 , -5 

500 

DRAW 

6,— 7,— PI/4 

5:1.0 

DRAW 

0.-5, -PI/2 


680 

DRAW 

-3 , 6 , -PI 

690 

DRAW 

-4,3 

700 

DRAW 

-4, -3, PI/2 

71.0 

DRAW 

-4,2 

720 

DRAW 

-2,4 

730 

DRAW 

-3, 6, -PI 

740 

DRAW 

-10, 4, -PI/2 

750 

DRAW 

-4,0, -PI 

760 

DRAW 

-2,4 

7 70 

DRAW 

-2, 2, PI 

780 

DRAW 

-11,5 

790 

DRAW 

2,-6 j 

800 

DRAW 

-3 , 0 

810 

DRAW 

-4,0, -PI 

820 

DRAW 

—5 , 7 

830 

DRAW 

3, 5, PI/2 

840 

DRAW 

-6,0, PI/2 

850 

DRAW 

-1.1 ,6 

860 

DRAW 

-2,5 

870 

DRAW 

.-5,0 

880 

DRAW 

0 , -3 

890 

DRAW 

-3, 1,-PI 

900 

REM MIEJSCOWOŚCI 

91.0 

PLOT 

165, 92 sPLOT 165,93: 


PL0T 1.66,92 sPLOT 166,93: 

CIECIE 1.66,93,3 

920 PRINT AT 11 , 18 t "WARSZAWA" 
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RnenAr 4 


10 REM WYŚCIGI PSOU 
20 REM ******************** 

30 ORT fi 4,6, 132 ,252, 124,202, 
169, 169 

40 REM Wczytani* graficznego 

50 FOR S2?*¥o p ! a 
60 REfiD bit 
70 POKE USR "B" +n , bi t 
80 NEXT n 

90 DIM d ( 10) : DIM C (10) : 

DIM p (10) 

100 REM Kolory psów 
110 FOR n = 1 TO 4: 

LET c <n) *n : 

LET C (n) sn-1: 

NEXT n 

120 FOR r.=S TO 7: 

LET C (.n ) =n : 

NEXT n 

130 FOR n =8 TO 10: 

LET c (n ) =n -8 : 

NEXT n 

140 60RDER 0: PfiPER 7: INK 0: 

CL 5 

150 PRINT RT 3,10, FLRSH 1; 

"WYŚCIGI PSOU" 

160 PRUSE 109 

170 PRINT RT 21,4; FLRSH 1; 

"Nacisnij dowolny Klawisz" 
180 PRUSE 0 
190 PRPER 4: CLS 
200 REM Psy na stanowiskach 
startowych,. 

210 FOR n =1 TO 10 • 

220 PRINT RT 2*n-i,0;n; 

RT 2*n -l , 2, INK c in) ; "P" 

230 NEXT n 

240 INPUT ; "Po naciśnięciu 
ENTER psy wystartują";?* 

250 FOR n *1 TQ 10 
280 PRINT RT 2*n-l,2; 

INK c (n) ; r P"; "B" 

270- LET d (n) *3 

280 NEXT n 

290 LET fila l s0 

300 LET p = INT (RND * 10) + 1 : 

LET r l =0 

310 FOR n=l TO 10 

320 IF p =p (n ) THEN LET f l = 1 

330 NEXT n 

340 IF fl=l THEN GO TO 30© 

350 PRINT RT 2*p-l,d(p);" 

INK C ( P ) ; RT 2*P -1 , d (P ) +1; 

"B" 

360 LET d (p) =d (p) +1 
370 IF d (p ) *31 THEN 
LET p (ma l+l) =P : 

LET mai*mal+l: 

BEEF* .1,3 

380 IF mai <10 THEN GO TO 300 
390 BEEP 2,3 

400 PRINT RT 21,0, FLRSH 1; 

"Nacisnij dowolny klawisz a 
by uzyskać wyniki gonitwy" 

410 PRUŚE 0: CLS 
420 PRINT RT 2,5; 

"UYNIKI GONITWY" 


Wynik działania 
programu 


„Wyścigi psów” są 
grą. Wygrywa ten, kto 
trafnie przewidzi ko- 
lejność psów na me- 
cie. Nie jest to sprawa 
prosta, bowiem o zwy- 
cięstwie decyduje ge- 
nerator liczb loso- 
wych. Powodzenia. 


430 PRINT RT 4,5; 

"1 miejsc* - pies nr 
P il) RT 5,5; 

"2 miejsce - pies nr "; 

P (2i ; RT 6,5; 

"3 miejsce - pies nr "; 
p (3) 

440 PRINT RT 9,0; "Rezultaty p 
ozostaiych zawodników" 

450 FOR n =4 TO 10 
460 PRINT RT s+n,5;"Ries nr ";p 
(ni 

470 NEXT n 
4S0 STOP 


1 r 
s p 

3 p 

4 P 

5 P 

6 P 
? P 

8 P 

9 P 

10P 
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Mikrokomputer 
dla kolekcjonerów 

Prawie każdy kolekcjoner i zbieracz w 
miarę wzrostu swoich zbiorów napotykać 
zaczyna trudności. Nadmiar informacji 
utrudnia kolekcjonowanie, a żmudne 
procesy ewidencji i katalogowania zbio- 
rów, pochłaniają wiele czasu. Przy wyko- 
rzystaniu mikrokomputera Commoaore- 
C6 4 postanowiono „rozpracować” tema- 
tykę widniejącą na okolicznościowych da- 
townikach pocztowych, aby dobrać właś- 
ciwy materiał do budowy zbiorów filateli- 
stycznych. 


Słownik 

X naz- 

Nazwa słow- 
nika 

cecha — jed- 
no- lub dwu- 
literowy kod 
słownika 

K AŻDEMU numero- 
wi katalogowe- 
mu można przy- 
porządkować ciąg cech z 
zakresu własnego, odpo- 
wiadającego profilowi dzia- 
łalności kolekcjonerskiej 
słownika. Dla stempli 
pocztowych czy też in- 
nych walorów słownik 
może zawierać zapisy 
przedstawione poniżej. 

Na przykład: 




W yszukiwanie 

właściwego ma- 
teriału wśród 
kilkunastu tysięcy pozycji 
zewidencjonowanych w 
„Katalogu polskich stempli 
okolicznościowych “ sta- 
nowi już problem. Przys- 
łowiową „deskę ratunku" 
dostrzeżono w zaprowa- 
dzeniu komputerowej ewi- 
dencji i okolicznościo- 
wych datowników pocz- 
towych, którym przypisa- 
ne zostaną cechy znaczni- 
kowe związane z występu- 
jącą tematyką zbiorów fila- 
telistycznych. 


W tym przypadku po- 
stanowiono opracować 
typowy, dostosowany do 
zbiorów filatelistycznych 
(pod kątem datowników 
pocztowych) program. 

Przejdźmy jednak do 
konkretów. W tekście wy- 
korzystywać będziemy po- 
jęcia: 


Numer katalogowy 


99999 W 

\ \ wyróżnik nu- 
\ 'meru kata- 
logowego 


i numer po- 
'zycji w kata- 
logu 


Wyróżnikiem numeru ka- 
talogowego może być: 

— (spacja) oznaczająca, 
że pozycja występuje tylko 
w katalogu (brak w zbio- 
rze); 

H oznaczający, że po- 

zycja katalogowa występu- 
je w zbiorze; 

* — informuje, że pozycja 
katalogowa występuje 
wielokrotnie w zbiorze. 
Numer pozycji w katalogu 
zgodny jest z systemem 
„Katalogu polskich stempli 
okolicznościowych'*. Mo- 
że to być kolejny pięcio- 
lub trzycyfrowy numer w 
powiązaniu z dwucyfrową 
końcówką roku. 


P Przemysł 

PB Budowlany 
PC Chemiczny 
PE Energetyczny 

N Nobliści 

NC Curie Skłodowska 
ND Dunant 
NR Reymont 
S Sport 
SA Akrobatyka 
SB Boks 
SK Koszykówka 
ST Tenis 

SZ Sporty zimowe 
W Wojskowość 
WA Awiacja 
WB Broń 
WC Cedynia 
WG Grunwald 
WN Okres Napoleoński 


jednoliterowa pierwsza 
cecha jest ogólnym ko- 
dem tematu (używanym 
lub nie do opisu elemen- 
tów zbioru), zaś dwulite- 
rowe cechy dokładnie 
precyzują tematykę. 

Zapisy numerów katalo- 
gowych, ich występownie 
(lub nie) w zbiorze oraz 
przyporządkowanie tema- 
tyczne Ilustruje kolejny 
przykład: 

67177 + LA NS 
67224 + NC 
67233 * WA 
72259 * WC TG 
72280 + WC SL 
74052 * SN 
77127 * WB WG 
78300 WA EW 
Powyższe przykłady do- 
kładnie odzwierciedlają 
strukturę danych wpro- 
wadzanych do komputera. 

Jeżeli zapis słownika lub 
numeru katalogowego z 
cechami występuje po raz 
pierwszy, to jest wprowa- 
dzany do pamięci kompu- 
tera. Ponowne wystąpie- 
nie zapisu na przykład: 
72359 * WC 

powoduje wycofanie tej 
informacji ze zbioru 
(prawdopodobnie błędnie 
wprowadzonej), bo pozo- 
staje zapis: 

72259 * TG 

Częściej dokonywana jest 
jednak operacja zmiany 
wyróżnika w numerze ka- 
talogowym. Zapis: 

67177 * 

świadczy o pozyskaniu 
dodatkowych elementów 
zbioru (występujących do- 
tychczas w pojedynczym 
egzemplarzu) i aktualizuje 
zbiór zarówno dla słowni- 
ka LA jak i NS. 

Z AŁOŻENIE ewi- 
dencji I zabezpie- 
cznie aktualiza- 
cji (kasowanie, zmiana) to 
tylko pierwszy etap wyko- 
rzystania komputera. Efekt 
pracy włożonej w uciążli- 
we kodowanie numerów 
katalogowych, wyróżni- 
ków i ich przyporządko- 
wanie tematyczne widać 
dopiero później, na etapie 
wyszukiwania danych. 

Dla podanych wcześniej 
przykładów zapis: 

67224 

wyprowadzi informację: 
67224 4- NC 
cd. na str. 14 
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Klasyfikac 
sprzętu 


a i zastosowanie 


mikrokomputerowego 


C ORAZ powszechniejsze zastosowa- 
nie mikrokomputerów w róż- 
nych dziedzinach zrodziło potrze- 
bę ich klasyfikacji. W literaturze fachowej 
oraz wśród producentów istnieje wielka 
różnorodność poglądów dotyczących kryte- 
riów podziału tego sprzętu. Powoduje to 
wiele nieporozumień i niejednoznaczności 
w określaniu obszarów ich zastosowań. Ma- 
jąc na uwadze potrzebę ujednolicenia fa- 
chowego słownictwa oraz formułowania 
wymagań technicznych dla poszczególnych 
grup mikrokomputerów Komisja Międzyna- 
rodowa RWPG do Spraw Techniki Oblicze- 
niowej zaproponowała następujący podział 
mikrokomputerów: ręczne, kieszonkowe, 
domowe i personalne. Ponadto mikrokom- 
putery personalne podzielono na 8-bitowe, 
16-bitowe oraz personalne mikro-EMC. 

Mikrokomputery ręczne są przedłużeniem produkcji 
kalkulatorów elektronicznych. Typowym przedstawicielem 
tej klasy sprzętu jest mikrokomputer HP41CV serii 40 firmy 
Hewlett Packard. Mikrokomputer ten cechuje miniaturowa 
klawiatura alfanumeryczna, 15-znakowy alfanumeryczny 
wyświetlacz na ciekłych kryształach, pamięć dynamiczna 
(RAM) zawierająca 319 rejestrów. Ponadto mikrokomputer 
ten wyposażony jest w układ sprzężenia video, pozwalający 
na podłączenie do niego między innymi drukarki, magne- 
tofonu i czytnika kodów paskowych. 

Mikrokomputery kieszonkowe charakteryzuje wysoki 
stopień scalenia i miniaturyzacji jednostki centralnej oraz 
urządzeń peryferyjnych. W swoim zestawie mają najczęś- 
ciej dołączoną drukarkę oraz układ sprzęgający umożliwia- 
jący podłączenie magnetofonu kasetowego. 

Niektóre spośród mikrokomputerów kieszonkowych 
mają wbudowane czytniki kart magnetycznych oraz układy 
umożliwiające współpracę z magnetofonem minikaset cyf- 
rowych, drukarką, ploterem oraz monitorem telewizyjnym. 
W najbardziej popularnych mikrokomputerach tej grupy 
wykorzystywane są procesory 8-bitowe lub dwa procesory 
4-bitowe, a ponadto pamięć stała (ROM) o pojemności do 
48 KB, pamięć dynamiczna (RAM) o pojemności do 16 KB, 
klawiatura kalkulatorowa, a także 32-znakowy wyświetlacz 
zbudowany na diodach luminescencyjnych. Przedstawicie- 
lami tej grupy mikrokomputerów są PC-1500 SHARP oraz 
HHC-PANASONIC. 

Mikrokomputery domowe przeznaczone są do współ- 
pracy z domowymi odbiornikami telewizyjnymi, magneto- 
fonami kasetowymi oraz innymi mikrokomputerami perso- 
nalnymi dzięki wbudowanym układom asynchtonicznego 
sprzężenia szeregowego. Mikrokomputery domowe cechu- 
ją: pojemność pamięci operacyjnej do 64 KB, standardowa 
klawiatura o układzie podobnym do występującego w ma- 
szynach do pisania, zastosowanie odbiornika telewizyjnego 
jako monitora (ekran podzielono na 16—24 linie, a w każdej 
po 40—64 znaki pisarskie), a także m< 'iwość wykorzystania 
magnetofonów kasetowych oraz pamięci na dyskach elasty- 
cznych jako pamięci masowych. Do typowych przedstawi- 
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cieli mikrokomputerów domowych należy zaliczyć ATARI 
400 oraz ZX81 firmy Sinclair. 

Mikrokomputery personalne 8-bitowe z dyskowym sy- 
stemem operacyjnym są konstruowane głównie z myślą o 
zastosowaniu w różnych konfiguracjach urządzeń przezna- 
czonych do nauki. Podstawowy zestaw zawiera: pamięć 
operacyjną o pojemności 64 KB, dyskowy system operacyj- 
ny, złącza do drukarki wierszowej, magnetofonu kasetowe- 
go i pamięci zewnętrznej na dyskach elastycznych. Ponadto 
zestaw zawiera monitor ekranowy, na którym można wy- 
świetlać informację w 24 wierszach 80-znakowych, przy 
czym można używać znaków i liter alfabetu łacińskiego 
oraz cyrylicy. Jako typowy mikrokomputer tej grupy można 
uznać: APPLE II i TRS-90. 

Mikrokomputery personalne 16-bitowe są wykorzystane 
w pracach naukowo-badawczych, w projektowaniu inży- 
nierskim, w automatyzacji prac biurowych i innych. Pod- 
stawowy zestaw tego typu mikrokomputerów zawiera: mo- 
duły procesora z pamięcią stałą (ROM) i dynamiczną 
(RAM), kontrolery monitora ekranowego, pamięć na dy- 
skach twardych i elastycznych oraz kontrolery komunika- 
cyjne. Wśród urządzeń najczęściej podłączanych do mik- 
roprocesora można wymienić czarno-białe lub kolorowe 
monitory ekranowe, pamięci na dyskach twardych i elasty- 
cznych, drukarki oraz plotery. Typowymi przedstawicielami 
tej grupy mikrokomputerów są: APPLE-LISA, IBM PC/XT 
oraz HP-150. 



IBM Portable PC 


Personalne mikro-EMC mogą być wykorzystywane we 
wszystkich gałęziach gospodarki narodowej, głównie do: 
obliczeń naukowo-technicznych, zbierania i obróbki da- 
nych, opracowywania i uruchamiania programów, obsługi 
stanowisk inżynierskich, budowy i rozbudowy komputero- 
wych sieci abonenckich. Klawiatura i monitor są tu elemen- 
tami przenośnymi. Do najczęściej podłączanych urządzeń 
peryferyjnych należą minidyski elastyczne, dyski magnety- 
czne typu WINCHESTER, drukarki, klawiatury alfanumery- 
czne, monitory ekranowe oraz urządzenia służące do 
wprowadzania i wyprowadzania danych. Typowymi przed- 
stawicielami mikrokomputerów tej grupy są MBC 4050 fir- 
my SANYO oraz RAINBOW 100 firmy DEC. 

Mikrokomputery personalne 8- i 16-bitowe znajdują za- 
stosowanie przede wszystkim jako procesory obróbki tek- 
stów i procesory zarządzania bazami danych, końcówki sie- 
ci lokalnych, ułatwiają wykorzystanie grafiki komputerowej, 
a także są narzędziami obliczeniowymi w komputerowych 
systemach księgowości i edukacyjnych. Rozważając struktu- 
rę zastosowań znanych mikrokomputerów można stwier- 


dzić, że są one najczęściej wykorzystywane jako procesory 
obróbki tekstów. Za ich pomocą można wyświetlać, łączyć i 
formułować teksty na ekranie monitora oraz przechowywać 
je na dyskietkach, wykorzystywanych jako nośniki standar- 
dowych fragmentów tekstu (np. nagłówki). 



Polski mikrokomputer Meritum 1 


O BECNIE na krajowym rynku mikrokomputero- 
wym spotyka się wyroby przedsiębiorstw pań- 
stwowych oraz firm prywatnych i polonijnych. 
Do mikrokomputerów domowych zaliczyć można: MERI- 
TUM-1, MERITUM-2, IMZ-80 oraz ZX 81 
Mikrokomputer MERITUM-1, wzorowany na mikrokom- 
puterze TRS-80, produkowany jest w Zakładach Urządzeń 
Komputerowych MERA-ELZAB. W skład zestawu mikro- 
komputera wchodzą: moduł klawiatury wraz z mikroproce- 
sorem oraz układami sprzęgającymi moduł zasilacza, od- 
biornika telewizyjnegoNEPTUN 156 oraz magnetofon kase- 
towy. 

Mikrokomputer IMZ-80, produkowany przez firmę IM- 
POL-II, może współpracować z monitorem telewizyjnym, 
magnetofonem kasetowym oraz drukarką znakowo-mozai- 
kową. Do omawianej grupy należy również zaliczyć mikro- 
komputer SPECTRUM wykorzystywany w szkolnictwie 
średnim. 

W ! ŚRÓD mikrokomputerów 8-bitowych wymie- 
nić leży mikrokomputery serii ELWRO 500 i 
MK4500 oraz MERA 660 i ComPAN-8. Mikro- 
komputer ELWRO 500 produkowany jest w Zakładach Elek- 
tronicznych MERA-ELWRO; w skład zestawu wchodzą mo- 
duły jednostki centralnej, klawiatury, pamięci na dyskach 
elastycznych, monitora ekranowego oraz drukarki. 

Mikrokomputery serii MK 4500 produkowane są przez 
Krakowską Fabrykę Aparatów Pomiarowych MERA-KFAP 
oraz składają się z modułów: jednostki centralnej, monitora 
ekranowego, pamięci na dyskach elastycznych oraz klawia- 
tury. 

Mikrokomputer MERA 660 jest produkowany przez Cen- 
trum Naukowo-Produkcyjne Systemów Sterowania MERA- 
STER w dwóch wersjach konstrukcyjnych autonomicznej — 
jako samodzielne stanowisko pracy projektanta oraz sie- 
ciowej — jako terminal sieci SN-60 lub ETHERNET. 

Producentem mikrokomputerów ComPAN-8 są Zakłady 
Urządzeń Komputerowych MERA-ELZAB i jest on przezna- 
czony do automatyzacji badań naukowych oraz do pracy 
jako programowana końcówka systemów komputerowych. 
W skład mikrokomputera wchodzą moduły: procesora, 
odwzorowania zawartości pamięci na ekranie monitora 


(tzw. moduł Video-RAM), kontrolerów drukarki DZM- 
180/KSRE i pamięci na dyskach elastycznych oraz specjali- 
zowane. 

D O tej grupy mikrokomputerów należy zaliczyć 
także IMP-85 produkowany przez firmę 
IMPOL-II oraz mikrokomputery specjalizowane 
PSPD-90 i RTDS-8. Komputeryzacja może dać oczekiwane 
rezultaty tylko wtedy, gdy z żelazną konsekwencją będzie 
się przestrzegać zasady, że odpowiednie narzędzie ma zna- 
leźć się w odpowiednich rękach. W myśl tej zasady nie na- 
leży stosować mikrokomputerów w rozwiązaniach wymaga- 
jących operowania na dużych zbiorich danych w długich 
okresach. W takich wypadkach mikrokomputery mogą być 
wykorzystywane tylko marginalnie, dla uzyskania efektów 
krótkotrwałych i wspomagających, nie należy też oczeki- 
wać, że w wyniku zastosowania mikrokomputerów nastąpi 
zdecydowana poprawa w danej dziedzinie. 

Aby wykluczyć wypadki nieuzasadnionego stosowania 
mikrokomputerów, producenci tego sprzętu oferują pro- 
fesjonalne mikrokomputery przygotowane do wykonywa- 
nia różnorodnych, ale wzajemnie uzupełniających się za- 
dań obliczeniowych. Jednocześnie precyzują oni najbar- 
dziej typowe obszary zastosowań, wychodząc z założenia, 
że adaptacje do określonych warunków eksploatacji można 
zapewnić przez dobór odpowiedniej konfiguracji techni- 
cznej tnikrokomputera oraz instalację właściwego pakietu 
oprogramowania. 

Zasadniczym sposobem zapewnienia różnorodnych za- 
stosowań mikrokomputerowych jest wyposażenie ich w 
emulatory typowych końcówek sieci komputerowych oraz 
pakiety oprogramowania telekomunikacyjnego umożliwia- 
jącego współpracę z mikrokomputerami — końcówkami 
sieci teleprzetwarzania. 



IBM Personal Computer XT 

J AKKOLWIEK obecnie mikrokomputery personalne 
służą do przetwarzania danych cyfrowych i obróbki 
tekstów, przewiduje się, że przyszłościowym obsza- 
rem zastosowań tych urządzeń będzie digitalizacja danych 
analogowych (dane podawane głosem będą przekształcone 
w postać cyfrową) i obrazów ponieważ około 90% informa- 
cji przetwarzanych przez człowieka ma taką postać. Ocenia 
się, że możliwości zastosowania mikrokomputerów są 
obecnie nieograniczone, liczba rozwiązań wykorzystują- 
cych technikę mikroprocesorową urasta coraz szybciej, czy 
będzie jej kres? 

Marian GNIŁKA Juliusz HASCHKA 
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Mikrokomputer 
dla kolekcjonerów 

dokończenie ze strony 11 

co oznacza, że ten numer 
katalogowy jest w zbiorze, 
występuje w pojedynczym 
egzemplarzu i należy do 
tematu Nobliści— Curie- 
Skłodowska (patrz przy- 
kład powyżej). 

Bazując na tym samym 
przykładzie zapis WA 
wyprowadzi informację; 

67233 * 78300 

a zapis WC+ wyprowadzi 
numer katalogowy 

72280+ 

Analogicznie do wybiera- 
nia można zadać cechę z 
wyróżnikiem Cecha 
ze spacją (brak wyróżnika) 
wyprowadza wszystkie ele- 
menty z „+" tylko wystę- 
pujące w zbiorze z „*" — 
występujące w zbiorze 
wielokrotnie. 

Można wybierać także 
wg jednoliterowej cechy 
wiodącej tematu. Zapis 
„W" spowoduje wyprowa- 
dzenie wszystkich nume- 
rów katalogowych z wy- 
różnikami i tematami 
Wojskowość w następują- 
cy sposób: 

WA Awiacja 
67233 * 78300 
WB Broń 
77127 * 

WC Cedynia 
72259 * 72280 + 

WG Grunwald 
77127 * 

Jednorazowo można 
podać do wybierania na- 
wet kilkaset numerów ka- 
talogowych lub cech 
(ewentualnie z wyróżni- 
kami), ale trzeba zdawać 
sobie sprawę z tego, że im 
większa ilość danych, tym 
dłuższy jest czas przeszu- 
kiwania zbiorów. 

W PROGRAMIE 
zapewniona 
została także 
możliwość wyprowadze- 
nia słownika założonego 
zbioru. Polecenie „SLOW" 
dla komputera wyprowa- 
dza wszystkie wprowa- 
dzone do pamięci cechy z 
nazwami. Dodatkowo — 
polecenie „WYDR" wyp- 
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rowadza w sposób upo- 
rządkowany wszystkie da- 
ne zgromadzone w pa- 
mięci komputera (cechy z 
nazwami i przyporządko- 
wane im numery katalo- 
gowe). Opcjonalnie wszys- 
tkie informacje (z aktuali- 
zacji i wyszukiwania) mo- 
żna wyprowadzać zarów- 
no na monitor — ekran te- 
lewizyjny — jak i na dru- 
karkę. 

Dotychczas posługiwa- 
liśmy się pojęciem pamięci 
komputera. Jest to duże 
uproszczenie, wprowadzo- 
ne w celu pokazania idei 
systemu. W rzeczywistości 
prezentowane funkcje 
(wprowadzania, aktualiza- 
cji i wyszukiwania danych) 
realizuje napisany w języ- 
ku BASIC program dla 
mikrokomputera Commo- 
dore-C64. Program wyko- 
rzystuje mikrodrajw (do 
zapamiętywania danych) i 
opcjonalnie drukarkę. 

Szeregowa transmisja 
„do" i „z" mikrodrajwera 
jest też stosunkowo wol- 
na, wydłuża czas pracy 
programu. Dopiero Co - 
mmodore-128 z mikro- 
drajwerem pracującym 
równolegle (lub inny 
mikrokomputer z takim 
rozwiązaniem) powinien 
zabezpieczyć szybkie otrzy- 
mywanie wyników z uru- 
chomionego programu. 

Ze względu na dużą 
ilość danych (kilkanaście 
tysięcy pozycji) bardzo 
istotnym problemem jest 
również sposób gospoda- 
rowania pamięcią kompu- 
tera i dyskietki. 

P RZYJĘTE założe- 
nia nie powodują 
jezerwacji miejs- 
ca" dla cech w ramach 
numeru katalogowego i 
nie ograniczają ilości cech 
dla dowolnego numeru 
katalogowego. Podobną 
organizację mogą mieć 
„komputerowe katalogi “ 
innych zbiorów. Kolek- 
cjonerom radzimy spró- 
bować. 

Krzysztof 

SWIgTOŃ 

Zdzisław 

SZAŁKOWSKI 


Liga Myślących 


Zadanie nr 1 

— W każdym z trzech zamkniętych koszy znajdują się 
po dwie-kule: biała z czarną, biała z białą i czarna z czar- 
ną. Przyczepione do koszy kartki wskazują kolory kul 
znajdujących się w każdym koszu. Ile trzeba wykonać 
„ciągnięć", aby się dowiedzieć, jakie kule są w jakim ko- 
szu przy założeniu, że wszystkie kartki przyczepiono do 
koszy błędnie. 


Zadanie nr 2 

— Dwie wyspy A i B łączy między sobą i z obu brze- 
gami C i D siedem mostów (rys.) Proszę spróbować 
„przejść" przez wszystkie mosty dokładnie jeden raz, tak 
aby powrócić do punktu wyjścia. 



Zadanie nr 3 


— W jednostce wojskowej trwają przygotowania do 
mającej się odbyć odprawy związanej z omówieniem 
dotychczasowych wyników i postawieniem nowych za- 
dań. Przy stole prezydialnym ustawiono 5 krzeseł. Nale- 
ży podać, na ile sposobów może usiąść na nich pięcio- 
osobowa komisja. 


Zadanie nr 4 

— Przed treningiem strzeleckim por. Saniak dał chor. 
Kwiatkowi pudełko z amunicją mówiąc, aby podzielił tę 
amunicję równo na każde stanowisko ogniowe w ten 
sposób, aby na pierwsze stanowisko dał 1 nabój i 1/6 
część reszty amunicji z pudełka, na drugie stanowisko — 
2 naboje i 1/6 część tego co zostało, na trzecie — 3 nabo- 
je i 1/6 część kolejnej reszty i tak do końca, aż pudełko 
będzie puste. Należy podać, ile było sztuk amunicji prze- 
znaczonej na każde stanowisko ogniowe i ile było sta- 
nowisk ogniowych. 


Rozwiązania zadań prosimy przysyłać pod adres redakcji do 
końca kwietnia br. z dopiskiem „Liga MySłących '. Punktacja 
zależy od liczby prawidłowych rozwiązań. Wśród uczestni- 
ków rozlosujemy książki, a na zwycięzców „Ligi” ozekają do- 
datkowe cenne nagrody — niespodzianki. 





W naszym komputerlandzie, gdzie zwykle jest bardzo 
spokojnie i słychać tylko szum taśm perforowanych, za- 
panował wielki zamęt. Zbliżały się bowiem dni donios- 
łych rocznic i poważnych świąt. Pracowały rozmaite 
komitety organizacyjne i zespoły. Zespół najstarszych 
robotów kierowany przez pracowitego Spektrusia miał 
najwięcej pracy. Spektruś wychudł i zmizerniał, bowiem 
nijak nie mógł się z robotami dogadać. Każde niemal 
spotkanie kończyło się kłótnią: co komu i za co się na- 
leży. Reprezentacje rozmaitych generacji i typów robo- 
tów wciąż przypominały kogo, kiedy i przy jakiej okazji 
pominięto. Mnożyły się pretensje. I choć na robocich 
piersiach powoli, ale ciągle medali przybywało (u nie- 
których — jak za co najmniej dwie wygrane komputer- 
landzkię wojny), ulubionym tematem zebrań były meta- 
lowe krążki i baretki. 

, Rada komputerlandu, widząc kłopoty Spektrusia, po- 
stanowiła zająć oficjalne stanowisko. Uchwaliła więc ko- 
lejny regulamin i odznaczenie — „Medal za skrom- 
ność''. Dopiero rozgorzały dyskusje i spory. Do robo- 
tów przyłączyły się także inne dziełoroby. Każdy chciał 
nosić ów „dowód skromności". 

I tylko pracowite mikrokomputerki pracowały, pra- 
cowały, pracowały... 

Podglądał: 

Eugeniusz MLECZAK 


Polski mikrokomputer ComPAN— 8 
dokończenie ze str. 5 jest długa i może być 

10) dane testowe powinny przedmiotem oddzielne- 
obejmować zarówno go opracowania, 
poprawne jak i błędne 
warunki wejściowe; 

11) wyniki każdego testu 
powinny być dokład- 
nie zbadane i przeana- 
lizowane; 


Zapamiętaj! 

1) pisząc program 
należy myśleć o jego 
uruchomieniu; 


2) przed kodowa- 
niem programu po- 
winno się opracować 
choćby jeden schemat 
blokowy; 


12) wraz ze wzrostem 
liczby wykrytych błę- 
dów w programie roś- 
nie prawdopodobień- 
stwo istnienia pozosta- 
łych nie wykrytych 
błędów; 


Czekamy na Twoją opinią! 

ANKIETA 


3) podczas urucha- 
miania dobrze mieć li- 
stę zmiennych i sta- 
łych użytych w pro- 
gramie; 


13) nigdy nie należy mo- 
dyfikować programu 
jedynie w celu ułat- 
wienia jego testowa- 
nia. 


4) problemy należy 
rozwiązywać pojedyn- 
czo; 


Zostań redaktorem IKS-a! 

Bądź naszym ekspertem! 

(podkreśl problemy, które Cię interesują) 

A) Co Twoim zdaniem powinniśmy w nim publikować? 

1) programy: 

— gier; 

— graficzne; 

— użytkowe. 

2) artykuły problemowe dotyczące: 

— szczegółowych rozwiązań stosowanych w te- 
chnice komputerowej; 

— przeglądu współczesnych mikrokomputerów; 

— oprogramowania; 

— systemów informatycznych; 

— zastosowań elektronicznej techniki oblicze- 
niowej; 

— metod rozwiązywania problemów. 

B) Zgłoś własne propozycje 


Testowanie programu 
można określić mianem 
miniatury całego cyklu je- 
go budowy. Trzeba bo- 
wiem zaprojektować, za- 
pisać i przetestować dane 
testowe oraz wykonać 
program z ich wykorzy- 
staniem, a następnie 
przeanalizować jego re- 
zultaty. 

O mówione pro- 
blemy doty- 
czyły kodowa- 
nia i testowania oraz uru- 
chamiania programu. Nie 
wyczerpują one całkowi- 
cie problemu. Dzieje się 
tak dlatego, że proces 
programowania można 
traktować jako ciąg kolej- 
nych czynności, z których 
każda ma możliwość 
wprowadzenia błędów. 

Pełna lista błędów, jakie 
można popełnić w trakcie 
procesu programowania 


5) zmiany w pro- 
gramie powinny być 
dokonywane wyłą- 
cznie na poziomie ję- 
zyka źródłowego; 


6) podczas urucha- 
miania programu na- 
leży pamiętać o za- 
chowywaniu kolej- 
nych wydruków pro- 
gramów źródłowych 
oraz danych testo- 
wych, na których był 
program uruchomlo- 


7) należy bacznie 
zwracać uwagę czy 
przy usuwaniu jedne- 


go rodzaju błędów nie 


wprowadzono innych 


nowych błędów. 


DZIĘKUJEMY! 


Strona 15 — „IKS’ 
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Mikro-ciekawostki 


Krzyżówka nr 1 


„Apple II’' trafił do szkół. Prosta lista 
komend umożliwia dialog z komputerem 
najmłodszym, a ekran okazuje się być o 
wiele wygodniejszy od tablicy. „Myszka” 
podłączona do komputera sprawia, że 
grafika nie wymaga skomplikowanych 
programów — wystarczy odrobina wyo- 
braźni — jej nigdy dzieciom nie brakowa- 
ło. 


Poziomo: 1-B popularny minikomputer, 3-A część 
lampy kineskopowej, 5-A rysopis, charakterystyka, 
5-F Placek dla Jacka, 6-A do pieczętowania, 
7-D dziesiętny lub dwójkowy, 8-A element pamięci, 
9-C chemik specjalista, 10- A język mikrokomputera, 

11- D matematyk lub język programowania, 12-A tafle 
lodu, 13-A uszkodzenie ciała, 13-F żołnierz na koniu, 
15-A naklejka, 17- A mózg elektronowy. 

Pionowo: 1-C posąg, 1-E składnik stopu lutowni- 
czego, 1-G może być sprawozdawczy, 1-1 mikro- 
komputer z Zabrza, 2-A język algorytmiczny, 5-B on 
i ona, 6-E ja I ty, 7-D sklepienie, 7-F filmowy lub spi- 
rytystyczny, 7-H cudowna tarcza Zeusa, 8-A wielka 
zabawa, 8-C zwolennik jogi, 10-B informatyczna rze- 
ka, 1 1-E znany pies, 11-G równanie różniczkowe 
lub..., 11-1 przyrząd kreślarski, 12-A mały krab, 

12- C nie podpisany, 14-E restauracyjny spis. 

I lc i.M O' I h , p i 

Hasło: 3-D, 6-C, 11-F, 7-1, 17-B, 4-1, 3-C, 17-D, 12-1, 
5-D, 1-1, 8-F, 14-E. 

e h 

Rozwiązania (tylko hasło) należy przesłać pod adre- 
sem redakcji do końca kwietnia br. Wśród czytelników 
rozlosujemy bony pieniężne i nagrody książkowe. 



NFORMATYK 


OMPUTERY 


CENA -50 zł 


F ASCYNACJA informatyką trwa nadal. 
Od kiedy sprzęt elektroniczny osiągnął 
rozmiary domowyth telewizorów, a jego 
ceny spadły wystarczająco, szybko dostał się do 
rąk entuzjastów — amatorów. Komputer w domu 
nie jest niczym nadzwyczajnym — po prostu jest i 
trzeba z niego korzystać. 

Konieczność zatem zmusza do poznania nie 
tylko nowych technik programowania ( ale także 
przełamania niepraktycznych schematów myśle- 
nia. „Bezmyślne” przecież narzędzie może się 
przydać wtedy i tylko wtedy, kiedy znajdzie się dla 
niego właściwe miejsce. Sprawa zatem pierwsza, to 
znaleźć owo najwłaściwsze miejsce dla komputera. 
I to właśnie trzeba wiedzieć. 

Zaczyna się wcześnie — pierwszą pasją są gry. 
O tym już pisaliśmy. Ale ten okres przecież prze- 
mija, musi przeminąć, choć przecież rozrywka 
zawsze będzie dziedziną, w której informatyka 
może mieć swój udział. Krok następny, to co- 
dzienne wykorzystanie komputerów. Najpierw są 
to sprawy małe, drobne codzienne problemy, któ- 
re „wrzucono” do komputera. Później przychodzi 
czas na zadania poważniejsze. Wkrótce okazuje 
się, że kilkunastoletni młodzi ludzie do perfekcji 
opanowują nową technikę. W ich rękach kompu- 
ter staje się posłuszny. Stąd już tylko krok do per- 
fekcjonizmu i do sytuacji, w której informatyka 
nie będzie celem, lecz jedynie dyscypliną dostar- 
czającą metod i narzędzi do każdej innej. I tak 
właśnie być powinno. 

Ale najpierw trzeba się uczyć myśleć; myśleć 
jasno, przejrzyście i jednoznacznie formułować 
swe poglądy, maszyna bowiem nie toleruje nie- 
domówień i choć rozkazy wykonuje szybko i bez- 
błędnie, to jednak nie myśli! 

Informatyka, to przede wszystkim jej zastoso- 
wania profesjonalne — tu liczby mówią prawdę: 
jedynie 10 procent wartości światowegó handlu 
komputerami stanowią komputery osobiste — 
reszta to sprzęt profesjonalny, a choć i na takim 
można zagrać (na przykład w szachy), to służy on 
raczej innym celom. 

Trudno zatem sądzić, że dzisiejsi miłośnicy in- 
formatyki, która za sprawą mikrokomputerów do- 
tarła do wielu, spędzą życie przed ekranem moni- 
tora, z zapartym tchem śledząc coraz to nowsze 
gry. Krąg entuzjastów byłby znacznie większy, 
gdyby sprzęt ten był tańszy. Nie każdy może wy- 
dać kilkadziesiąt tysięcy na tę ekskluzywną „za- 
bawkę”, którą przecież mieć wypada. Brak bo- 
wiem, do tej pory, w naszym kraju prostego i 
przede wszystkim taniego mikrokomputera, któ- 
rego masowa produkcja usprawiedliwiałaby niską 
cenę, a w końsekwencji jego popularność sprzyja- 
łaby szybkiemu powstawaniu przeróżnych pro- 
gramów na to urządzenie. 


Tymczasem każdy bawi się we własnym kącie. 
A co bardziej pomysłowi robią nawet na tym pie- 
niądze. Nawet państwowe firmy zdecydowały się 
wprowadzić na krajowy rynek obcy sprzęt, stosu- 
jąc przelicznik, który nawet „specjalistów” z 
Czackiego i Kredytowej przyprawiłby o zawrót 
głowy. 

Odbieramy zatem telefony; co lepsze: Spectrum 
czy Commodore, czym różni się Amstrad od Ata- 
ri, albo: dlaczego kasety z programem wyprawy 
gwiezdnej, działającym na BBS, nie można uru- 
chomić na Spectrum? Co można wtedy odpowie- 
dzieć? Pytamy zatem do czego przeznaczony ma 
być komputer. „No, chciałbym zagrać” — sły- 
szymy najczęściej. Cóż, jeśli tylko o to chodzi, to 
wybranie komputera najdroższego jest niestety 
pierwszą przegraną w tej „grze”. 

Zabawa to krok pierwszy, od tego zaczynamy, 
ale nie wyobrażam sobie, aby nie pójść dalej. Idź- 
my zatem. 

Wyruszamy w dalszą drogę po przygodę z in- 
formatyką. Nasze łamy prezentują przed wami, 
drodzy Czytelnicy, świat współczesnej informaty- 
ki. Nie zawsze jest on prosty, nie zawsze zaczyna 
się od zabawy — najczęściej zacząć trzeba od pra- 
cy i nauki. Na przykład prezentowane przez nas 
programy. Każdy z nich pisany jest na konkretny 
mikrokomputer, ale wystarczy poznać reguły pro- 
gramowania, aby zaadaptować je do własnych po- 
trzeb. Albo problemy komputerowej grafiki, jakże 
fantastyczne figury można otrzymać na ekranie — 
spróbuj Czytelniku poznać z nami reguły anima- 
cji, to przecież może się przydać i przyda się z 
pewnością. 

L ICZYMY, że mozaika problemów, 
prezentowanych na naszych łamach 
przy pomocy Czytelników, stanie się z 
czasem przejrzystą drogą polskiej informatyki. 

REDAKCJA 
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Tom Kurtz oddają do użytku BASIC 
— język, którego celem było ułatwie- 
nie korzystania z komputera tym 
użytkownikom, którzy nie są pro- 
gramistami. Język ten powstał na 
podstawie ALGOL-u. * 

W 1965 roku opracowano język 
APL, przeznaczony do definiowania i 
opisywania różnych funkcji kompu- 
tera. W tym samym roku holenderski 
profesor Edsger W. Dijkstra podejmu- 
je problem tzw. zakleszczania, który 
występuje wówczas, gdy dwa (lub 
więcej) programy zgłaszają akces do 
tych samych zbiorów danych. 

Dijkstra z problemem uporał się i w 
konsekwencji opracował system ope- 
racyjny THE, który problem podziału 
resursów rozwiązywał. 

Rok 1968 przynosi słynny list prof. 
E. Dijkstry, skierowany do czasopisma 
Communications of the ACM. Jakość 
programisty — pisze profesor — jest 
odwrotnie proporcjonalna do liczby 
instrukcji GOTO użytych w jego pro- 
gramach. Ostatnio odkryłem, dlacze- 
go użycie instrukcji GOTO ma tak fa- 
talne skutki i uświadomiłem sobie, że 
instrukcja ta powinna być usunięta ze 
wszystkich języków wysokiego po- 
ziomu *. W ten sposób ogłoszono 
koncepcję tzw. programowania 
strukturalnego. 

W roku 1971 firma IBM ogłosiła 
opracowanie tzw. pamięci wirtualnej, 
dzięki której programiści będą zwol- 
nieni od potrzeby optymalizacji wy- 
korzystania pamięci oraz segmentacji 
programów (idea ta była zrealizowa- 
na w 1958 r. w Anglii — komputer 
ATLAS oraz w 1961 r. w USA — kom- 
puter B-5500). 

Rok 1979 to eksplozja mini-kompu- 
terów i początek fascynacji mikroin- 
formatyką — ale to jeszcze nie jest hi- 
storią. 

Opracowano na podstawie 
„Magie Moments in Software” 
Datamation 


Historia 

oprogramowania 


Komputer bez oprogramowa- 
nia nie jest wiele wart. Oprogra- 
mowanie czyni z „żelastwa” na- 
rzędzie „przydatne i rozumne”, 
wspomagające człowieka. Wiel- 
kie zasługi w rozwoju konstrukcji 
maszyn liczących położył BAB- 
BAGE, twórca pierwszej maszyny 
różnicowej. Dzieło jego udoku- 
mentowała córka angielskiego 
poety, AUGUSTA BYRON. 

Po drugiej wojnie światowej nastą- 
pił burzliwy rozwój sprzętu kompute- 
rowego i w konsekwencji oprogra- 
mowania. W 1946 roku Konrad Zuse, 
nie mając możliwości zbudowania 
odpowiedniego sprzętu, dokonuje 
opracowania języka PLANKALKUL, 
który zawiera konstrukcje umożliwia- 
jące operowanie na zmiennych o 
różnej wartości. Można więc uznać, 
że rok 1946 to data utworzenia pier- 
wszego języka algorytmicznego. 

W 1949 roku Francis Hołberton op- 
racował ideę generowania progra- 
mów sortowania i łączenia, zaś rok 
1951 przynosi opracowanie pierwsze- 
go kompilatora AUTOCODE (dla 
komputera Ferranti MARK I), powsta- 
ją również pierwsze koncepcje wyko- 
rzystywania w programowaniu pod- 
programów (Wilkes, Wheeląr, Gili). 

W 1955 roku powstaje idea stwo- 
rzenia standardów dla systemów ope- 
racyjnych, kompilatorów, translato- 
rów itp. W roku 1957 uruchomiono 
pierwszy program napisany w języku 
FORTRAN przez użytkownika. 

Zastosowania komputerów i języ- 
ków programowania przestają służyć 
tylko problemom gospodarczym, sta- 
tystycznym i naukowym. Komputery 
wkraczają również do zastosowań 
wojskowych. W 1958 roku rozpoczy- 
na działanie system obrony powietrz- 
nej SAGĘ. Oprogramowanie tego sys- 
temu obejmuje takie elementy jak: 
konwersacyjny dostęp do monitora 
graficznego, programową korektę 
przekłamań, transmisję danych oraz 
symulatory otoczenia. 

Użytkownicy korzystający z języka 
FORTRAN uznali, że ma on wiele 
ograniczeń. Tworzą więc nowy język 

0 nazwie ALGOL. Jest to język dobrze 

1 starannie opracowany, o strukturze 
blokowej i rozwiniętych możliwoś- 
ciach wykonywania operacji matema- 


tycznych, całkowicie pomijający za- 
gadnienia wprowadzania danych i 
wypisywania wyników. W 1960 roku 
na spotkaniu, które odbyło się w Pa- 
ryżu, podjęto wiążące decyzje doty- 
czące ALGOLU oraz opracowano ra- 
port, który do dziś służy jako wzór 
definicji języka. 

W tym samym roku zostaje uru- 
chomiony w firmie SDS język JOVIAL, 
którego wprowadzenie oznacza dla 
wielu programistów pożegnanie z ję- 
zykiem typu asembler. 

Rok 1960 jest bardzo obfity w wy- 
darzenia; po konferencji paryskiej 
(dotyczącej ALGOLU) i wprowadze- 
niu języka JOVIAL, w grudniu tego 
roku opracowano i przekazano do 
wykorzystania język COBOL. Pro- 
gram napisany w tym języku zostaje 
wykonany na komputerach UNIVAC 
II i RCA 501 — otrzymane wyniki są 
identyczne. 

Firma BORROUGHS opracowała 
nowy komputer B-5500, oparty na za- 
stosowaniu języka ALGOL. Dla ułat- 
wienia kompilacji i wykonania zadań 
zastosowano specjalne instrukcje 
obsługi stosu. 

Rok 1962 przynosi opracowanie i 
oddanie do użytku (John Mc Carthy) 
języka LIPS przeznaczonego do za- 
gadnień związanych ze sztuczną inte- 
ligencją i operowaniem symbolami. 
Kolejny rok to opracowanie przez 
firmę GENERAL ELECTRIC pierwsze- 
go systemu zarządzania bazą danych. 




„Nupogodi!" 


Elektronika, a szczególnie jej najmłodsze dziec- 
ko, mikrokomputery, są przedmiotem zaintereso- 
wań wielu z nas. Profesjonaliści konstruują nowe 
ich generacje, stosują mikroprocesory w urządze- 
niach powszechnego użytku, wymyślają oprogra- 
mowanie zadowalające nawet wybrednych kone- 
serów, a zarazem proste w użyciu. Dla niektórych, 
nie interesujących się specjalnie jego budową, 
mikrokomputer stał się prawdziwym pomocnikiem 
w codziennej pracy nie tylko zawodowej, przyczy- 
niając się do podniesienia jej efektywności, nowa- 
torskich rozwiązań, ale i do oszczędności czasu i 
wydatkowanej energii. Najwięcej jednak emocji 
wzbudza zabawa, gra, w której mikrokomputer 
jest przeciwnikiem. Godnym przeciwnikiem, który 
sprawia, że taka zabawa wymaga wysiłku intelektu, 
skupienia i szybkiego refleksu. 



fot. 1 

Taka rozrywka i zabawa jest najchętniej widzianą for- 
mą kontaktu z urządzeniem elektronicznym. Pomimo 
dużego zainteresowania i wypieków na twarzy nie każdy 
może być tym szczęśliwcem, w którego zasięgu jest mik- 
rokomputer, przede wszystkim ze względu na jego ce- 
nę. 

Jednak i tym elektronika sprawiła pewną niespodzian- 
kę — mikroprocesorową grę elektroniczną w cenie sa- 
mochodu zdalnie sterowanego. 



fot. 2 
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Podstawą tego urządzenia jest układ scalony LSI za- 
wierający podstawowe elementy mikrokomputera tj. 
mikroprocesor, pamięć ROM i RAM, układy WE — WY. 
Możliwość programowania mikroprocesora, a także 
dowolny projekt układu gry, sprawiły, że powstały liczne 
tego typu zabawki, które dają równie dużo zadowolenia 
i emocji, co niejedna gra np. na ZX SPECTRUM, ale kosz- 
tują tanio i dają się nosić w piórniku. W wielu krajach w 
sklepach z zabawkami można kupić taką grę. Może nie- 
długo nasz przemysł przygotuje mikroprocesorową grę 
np: „Bolka i Lolka” dla naszych milusińskich. 


fot. 3 

Produkowana przez Moskiewskie Zakłady Elektroni- 
czne zabawka „Elektronika", z budzikiem, jest mikro- 
procesorową grą elektroniczną (fot. 1). Przeznaczona 
jest dla dzieci i młodzieży i kosztuje tylko 25 rubli. 

Na ekranie przedstawiona jest jedna z sytuacji z filmu 
„Nu, pogodil": wilk nadstawił koszyczek i czeka na zsu- 
wające się z półki jajko. Wilk musi nałapać jak najwięcej 
jajek do koszyka. Jeżeli jajko wpadnie do koszyka, to 
liczba punktów wzrasta o jeden. Wynik wyświetlany jest 
na ekranie w prawym górnym rogu. 

W grze można uzyskać maksymalnie 999 punktów. Je- 
żeli jednak, na skutek złego naciśnięcia klawisza, wilk 
nie złapie jajka, spadnie ono na ziemię i wyskoczy z nie- 
go kurczaczek. W tym przypadku grający otrzymuje 
punkt karny, zobrazowany na ekranie jako migający 
kurczaczek pod wynikiem gry. 


Jeżeli nie uda się wilkowi złapać trzech jajek, to gra się 
kończy. Jeśli jednak uzyska się 200 i 500 punktów, powo- 
duje to automatyczne skasowanie punktów karnych, a 
umieszczony wewnątrz głośniczek wyda sympatyczny, 
wielotonowy dźwięk. Utrudnieniem w grze jest zasada, 
że w miarę jak zwiększa się liczba zdobytych punktów, 
szybkość zsuwania się jajek wzrasta. 

„TOM I JERRY” to inna, wyprodukowana w Japonii, 
mikroprocesorowa gra (fot. 2). Są tu dwa warianty: A i B. 




W wariancie „A" kot, machając łapami, broni się 
przed atakującymi go z dwóch stron myszkami. Zbicie 
przez kota myszki daje graczowi 10 punktów. Kota ata- 
kują również myszki z pułapkami. Jeżeli przypadkowo 
gracz naciśnie klawisz powodujący ruch łapy kota, tak że 
zbije on myszkę z pułapką, to kot staje w bezruchu, 
mysz spada na dół, a gracz uzyskuje punkt karny. Punkty 
karne, przedstawione na ekranie jako łapy kota, wy- 
świetlane są w prawym dolnym rogu. Uzyskanie trzech 
punktów karnych kończy grę. 

W wariancie „B”, naciskając odpowiedni przycisk, 
można wylosować, mając szczęście, punkty dodatkowe 
lub punkty karne. 

Uzyskanie większej liczby punktów powoduje auto- 
matyczne utrudnienie gry — kota zaczyna atakować 
więcej myszek. 

Kolejną mikroprocesorową zabawą jest, pochodząca 
również z Kraju Kwitnącej Wiśni, gra „POŻAR" (fot. 3); z 
palącego się budynku wyskakują ludziki, sanitariusze 
muszą tak ustawić nosze, aby ludzik, kilkakrotnie odbija- 
jąc się od nich, znalazł się w karetce. Za każde poprawne 
ustawienie noszy gracz otrzymuje jeden punkt. Jeżeli 
jednak nie zdąży prawidłowo ustawić noszy, otrzymuje 
punkt karny, a na ekranie ukazuje się „ludzik z zaświa- 
tów". Otrzymanie trzech punktów karnych kończy grę. 

Gra ma dwa warianty. W pierwszym ludziki spadają z 
trzeciego, a w wariancie drugim z drugiego piętra. Tak 
jak poprzednio w miarę zdobywania punktów liczba lu- 
dzików się zwiększa, co utrudnia grę. Można również, 
uzyskując 200 i 500 punktów, skasować punkty karne. 
Zasada działania prezentowanych gier jest bardzo po- 
dobna. W podobny sposób są zasilane (dwie baterie LR 
44), zużywają podobną ilość energii elektrycznej (ok. 
0,00005 W), mogą też pracować w temperaturze od 4- 5 
do + 40°C. 



Na rys. 1 przedstawiony jest schemat układu elektro- 
nicznego takiej gry. Jak łatwo zauważyć, składa się on za- 
ledwie z kilku elementów: układu wyświetlacza, minia- 
turowego układu scalonego mikroprocesora, kwarcu 
sterującego zegarem, brzęczyka, a także kilku typowych 
elementów elektronicznych. Aż trudno uwierzyć, że tak 
prosta konstrukcja może dać tyle zadowolenia dzieciom. 

Andrzej SOBOLEWSKI 
Piotr SOBOLEWSKI 


Chochlik zamieszał... 


Nam też zdarzył się błąd. Drobna po- 
myłka i program rysujący kalendarz działa 
błędnie. W wyniku błędu występującego 
w sekwencji instrukcji w wierszach od 110 
do 140 poprawnie zadany miesiąc — gru- 
dzień — jest odrzucony z wypisaniem 
komunikatu: „Źle wprowadzony mie- 
siąc”. 

Najprościej poprawne działanie pro- 
gramu uzyskamy zmieniając warunek w 
instrukcji IF z wiersza o numerze 135 do 
postaci: 


138 Ir Mti 

wprowadzony 0ił|4ac"i 






stej konstrukcji pętli powodującej porów- 
nywanie wczytanego miesiąca. Prostsza i 
bardziej czytelna konstrukcja pętli wyglą- 
da następująco: 

110 POR a«0 TO 11 

lis RERD 41 . f , d 

ISO IP ••>4* THEN BO TO 180 

188 NEXT a 

130 PRINT RT 10,0;"Zl« wprowadź 

onu 'tmii-- :Wo 5 !,0 ct8 : 


lub jeszcze lepiej: 


130 iF&S/tSeH BO TO 180 

^ 10^; "Ził war, 

wadzono aiłslic " : PAyse 88: 

&Nó ?ii T38r: 

140 00 TO 118 


Teraz z pewnością jest dobrze. 


PRZEPRASZAMY! 


PS Autorzy serdecznie dziękują koleżance Oli i koledze Mikoła- 
jowi ze Szkoły Podstawowej nr 261 w Warszawie za udostępnie- 
nie gier i cenne wskazówki. 
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SPECTRUM 


Compact programem n.i Ib 48 Kii Spec ttum. pozwalają 
i yni n>i /mniejszt*niu zajęlośi i pamięć » i zwiększenie szybkość 
działania innych (ingramów napisanyc li u BASIC-u. I 'możliwi 
wykonywanie trzech podstawowy* h operacji: 

skracanie zapisu liczb hcy wphwu na dokładność obli 


® REM ««» COMPACT *** 

5 DATA 205 , 427+START » 25 A , 46 ,40,1 
9,254,196.40,15, 205 > 1 36 » 44 » AB , 25 
,254,65,56,6 > 205 ,65, 4 1,223 ,24,14 
,54,46,84.93,35, 126, 254, 14,32,25 
0 , 19, 205 , 399+START ,43 

6 DATA 205, 452+8TART, 24, 213,237, 
123,61,92, 205 ,179,30,33,65,48,34 
,146,92,205, 427+ST ART , 205 , 1 4 1 , 44 
,48,64,235,231, 235 ,205,1 36 , 44 , 48 
,56,34,93,92,229,217,229,205 

7 DATA 31,28,35,48,30,237,91,146 
,92,205,182,42,123,28,254,90,32, 
10,30,65,122,20,254,57,32,2,22,6 
5,237,83,146,92,205,255,42,217,2 
25,217,209,35,237 

8 DATA 160,237, 160, 223, 205, 399+S 
TART , 43 , 205 , 452+ST ART ,24,182,42, 
83,92, 205 , 366+ST ART ,32,101,231,2 
46,128,42,69,92,254,235,40,73,25 
4 , 237 , 229 , 245 , 204 , 347+START , 241 , 
225,40 

9 DATA 25,35,254,236,40,242,254, 

247 . 40 . 238 . 254 . 250 .40.49. 254 . 234 
,40,45,254,254,40,41,254,229,32, 

40.231. 205 .72.32.1.0. 0. 254 .46.40 
,7,40,22,205,27 

10 DATA 45,56,117,62,14,71,237,1 
77,205,180,51,126,205,72,32,32,1 
03 , 205 ,153,30,96, 105 , 205 , 347+STA 
RT, 223, 254, 234. 40, 5, 205, 57, 30, 48 
,160,42,85,92,24,150,42 

11 DATA 83,92,205,321+START ,205, 
184,25, 235 ,205, 321 +ST ART , 229,205 
, 360+START , 203 ,126, 225 ,40,240, 22 

9.213.235.17.0. 0.205.136.25.35.2 
05,136,25,62,254,146, 209 , 225 , 25© 
,103 

12 DATA 254,19,19,213,84,93,35,3 
5,78,35,70,35, 197 , 205 , 229 ,25,43, 

54.58.193.225.94.35.86.235.9.235 
,114,43,115,43,43,24,186,126,23® 
,192,200,42,83,92 

13 DATA 126,230,192,194,176,27,2 
29 , 205 , 360+START , 203 , 254 , 225 , 205 
,184,25,235,24,237,205,110,25,12 
6, 230, 192, 192, 205, 360+START, 203, 
190,201,35,35,35,195,171,40,126, 
230,192 


W ((*ln wykorzystania programu Compact załaduj go do pa- 
mięć i instrukc jami: 

C I F \K adres. I OAD "" CODI 

l*d/ie adres jesi poc zątkcm.ym adresem ołrszaru pamięci, klóra 
mo/e wykoi/ystar program Compact. W. zależności od posia- 
danym li \\r*isji mikrokomputera Spectrum możesz podać yy.it- 
tość adresu np. 12108 lub 64878. 

I ruchom program Compact komendą KIN. Gdy otrzymasz 
pytanie o adres startowy, wprowadź v\ c ześniej wybraną wartość 
adresu. \a zakończenie program Compact podaje adresy star- 
towe operac ji możliwych do wykonania t/apamiętaj jejuh za- 
pis/i. Wykonaj NFW 

W prowadź do pamięć i program, który t hcesz poddać obrób- 
ce programem Compact, Jeśli < hcc*sz Ywkonac operacje, które 
umożliwia Compact, podaj komendy postaci. 

RAND l SR adres operacji , 

tadres operacji miałeś wcześniej podany). Przekształcone po- 
stać ie swojego programu możesz obejrzeć wykonując I.IST pro- 
gramu. 


14 DATA 192,50,71,92,86,35,94,23 
7,83,69,92,35,229,221,225,94,35, 

86.34.93.92.25.35.34.85.92.237.9 
8,217,201,205.221,25,197,196,232 
,25,217,193,9,217 

15 DATA 201,126,205,182,24,254,3 
4,34,93.92,192,35,71.237,177,24, 
240 ,42,83,92, 205 » 366+ START ,194,1 

76.27.231.253.52.13.254.206.32.9 
,35 ,205, 41 1+START , 254 ,41.32 

16 DATA 248 , 35 , 205 , 41 1+START ,254 
,58,40, 232 , 254 , 203 , 40 , 228 , 254 , 23 

4.40.3.254.13.192.217.221.94.0. 2 

21.86.1. 235 .237.82.221.117.0. 221 
,116,1,42,85,92,24.194 

20 INPUT "adres startowy?" SSTART 
30 IF START+491 >PEEK 23732+256«P 
EEK 23733 THEN GOTO 20 
40 RANDOMIZE START: CLEAR START - 
l: LET START=PEEK 23670+256«PE.EK 
23671 

50 FOR A=0 TO 491: READ B: IF B> 
255 THEN RANDOMIZE B : PDKE START 
+A.PEEK 23670: LET A=A+1: POKE S 
TART+A.PEEK 23671: GOTO 70 
60 POKE START+A , B 
70 NEXT A 

80 PRINT "skracanie zapisu liczb 
: " 5START ’ "skracan ie nazw zmienn 
ychs " ;START+46’ "łączenie linii: 
" SSTART+136 
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10 REM ZEGAR 
2b LEI MECHANrZM--270 
LET CZA3»10®0* 

LET SEKUNDA-2000 s 
LET MINUTA=3®00s 
LET S0r.7.INA'--4««® 
30 BORDEfi 18 PAPER G 
BhibrFl 1 - CLS 
4© REM. POMIAR CZASU 


Po uruchomieniu tego 
programu na ekranie moni- 
tora pojawi się zegar. Do- 
kładność wskazań zależy od 
precyzji danych wejścio- 
wych, czyli czasu „nakręca- 
nia” oraz sprawności ukła- 
dów elektronicznych mikro- 
komputera Spectrum. 


DOKONYWANY Z 
DOKŁADNOŚCI A 2« MSEK 
5© INPUT "PODAJ BOCZ . " » T 
60 LET H=T«36*0*5® 

70 INPLT "PODAJ MIN. " r MIN 
60 LET N"NtMIN»ó®*30 
70 I N P V, X " p 0 B A J S E K „ " » BE K 
10© LET N»N*3EK»5® 

Jl® REM USTAL - LICZNIK CZASU 
12® LET A“INT (N/65536 !'> 

130 LET B=»INT ( (N-A»6?53'6 i ) 
140 t_ET C=N-65536t»ft* 2‘j6*» 


130 PC) KE- 23764r A s 
POKE 2 376 r Ii 
ROKU. 23762 rC 
160 REM TARCZA 
170 FOR N~1 TO 12 
180 PRINT AT 10— 9*CCS(N*PI/6 ) > 
15+?»SIN<N*PI/6> ? N 
190 NEXT N 

200 CIRCLE 123r9®»82 
210 GOSUB CZAS 
220 L.ET FIRSTO; 

230 GOSUB SEKUNDA 
240 GOSUB MINUTA 
250 GOSUB GODZINA 
260 LET FIRST--®* 

LET Fl.AGG-0 
270 REM MECHANIZM 
280 GOSUB CZAS 

290 IF SEKOS THEN GOSUB SEKUNDA 

300 IF MINO THEN GOSUB MINUTA 

310 IF MIN/12< >INT (M1N/12) 

THEN LET FLAGG--0 
320 IF MIN/12=INI <MIN/12> 

AND FLAGG--0 THEN GOSUB GOD 

330 GOTO MECHANIZM 
930 REM **SUBROUTINES»* 
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1 000 REM CZAS 

1010 LET N«INT<<65536i*PEEK 

23764+2S6*P0EK 23763 
+PEEK 23762) /50> 

1020 LET K=INT< (65536 > *PE£K 

23674-. 256*PEłI\ 237 63 
+PEEK 23762) /&«) 

1030 LET N=N* CN>K> + K* <N<=K) 
1040 LET T = INT ( N/3600 > 

1030 1F T >"12 

THEN POKE 23764.0: 

POKE 23763.0: 

F-OKE 23762.0 
1060 LET MIN- 

I NI ( <N-T*3600> /50> 
1070 LET SEK- N-A0*MIN-3600*T 
1030 RETURN 
2000 REM SEKUNDA 
20 10* LET S-J3EK 
2020 IF FIRST-0 

THEN PLOT 123.903 

DRAW OMER liSX.SY; 
REM ZGAŚ SEKUNDNIK 
2030 LET GRAD=SEK»PI/30: 

LET SY--70*COS SR AD » 

LET SX=70*SIN 3RAD 
2040 PLOT 123.90: 

DRAW OMER 1 » 5X . SY : 

REM SEKUNDNIK 
2050 DEEP .02.12 
2060 RETURN 
3000 REM MINUTA 

3010 LET (i*MXN 
3020 'IF FXRST=0 

TI-IEN PLOT 123.90: 

DRAW OMER l?MX.MYs 
REM ZGAŚ MIN. 

3030 LET 3RADM=MIN#PT/30: 

LET. MY ==60* COS BRADMs 
LET MX*»60»3IN. GRADM 
3040 PLOT 123.90: 

DRAW O MER 15rtX.MY: 

REM MINUTY 
3050 RETURN 
4000 REM GODZINY 
4010 LET FLAGG-=1 


4020 IF FIRST=0 

THEN PLOT 123.90: 

DRAW OMER 1 » 

TX.TY» .3: 

DRAW OMER 15 
-TX.-TY. .3: 

REM ZGAŚ OODZ . 

4030 LET GRADG= 

(T+MIN/60) »F’I/A: 

LET TY ~50*COS GRADG ! 

LET TY=50*SIN GRADG 
4040 PLOT 123.90: 

DRAW OMER 15TX.TY..3: 

DRAW OMER 1 » -TX . -TY , . 3 : 
REM GODZINY 
4050 RETURN 
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10 REM ODWRACANKA 
25 ? ”[CLEARJ" 

30 DIM A(5,5).D(100),E(100),B$(2),C$(2) 

35 OPEN = 1,4,0,"K:" 

40 DIM L1$(16),L2$(16).L3$(16),L4$(16) 

45 DIM Q$(2 ) 

50 B$ ** 

60 LIS ”(0|(R1[RJ|W][R)|R|[W|[R|[R][WJ[R|[R] 

fW](R]|Rl(Er 

70 L2$ ’* ! ! ! ! ! ! ” 

BO L3S "[AI|R|[R||S](R]|R|[S|[RI[R][S][RI[R1[S][R||R|[D] " 
W L4S ’’|Z](R|(R)[X|[R]|R)[X][R)IR)[X1[R]|R||X]|R][R](C] ” 
95 X 12: Y 2 

100 FOR I 1 TO 5:FOR ) I TO 5 

110 A(I,J) 0: NEXT J:NEXT l:N 0 

120 GOSUB 5000: REM STRONA TYTUŁOWA 

130 GR.0:SET.2,1, l:SET.4,12,6:POKE 752,1 

135 GOSUB 1000:REM KONTUR:GOSUB 2000 

140 N N I 

150 POS.1,20:PRINT "PODAJ POZYCJE ODWRACAN 
EGO POLA: 


153 

POS.1,21:? ’ 

* " 





155 

GET sl, Ul: 

:IF Ul 49 

OR 

Ul 

53 

THEN 155 

156 

POS.1,21: U 

Ul— 48:? U 





157 

GET = 1,V1: 

IF VI 49 

OR 

VI 

53 

THEN 157 

158 

POS.3,21:V 

VI— 48:? V 





160 

POS.1,20:? 1 

* 




” 

170 

IF U 1 OR 

U 5 THEN 

150 




180 

IF V 1 OR 

V 5 THEN 

150 





190 U INT(U):V INT(V):D(N) U:E(N) V 
200 GOSUB 2000:GOSUB 1500:REM ODWRACANIE 
210 FOR I 1 TO 5:FOR J 1 TO 5 
220 IF A(I,J) 2 THEN 140 
230 NEXT J:NEXT I 
240 GOSUB 2500:REM WYGRANA 
1000 REM KREŚLENIE KONTURU 
1005 POS.X,Y:? LIS 
1010 POS.X,Y 1 :? L2$ 

1020 POS.X— 1.Y 2:?"1”;L2$ 

1025 FOR J 2 TO 5 
1030 POS.X,Y 3*1— 3: ? L3$ 

1040 POS.X,Y 3*1—1:? L2$ 

1050 POS.X— 1,Y 3*1— 1:? I;L2$ 

1055 NEXT I 

1060 POS.X,Y 15:? L4$ 

1070 POS.X.Y — 1:? ” 1 £ 3 4 5” 

1080 X X 1:Y Y 1 
1090 RETURN 

1500 REM WYDRUK ODWRÓCENIA 
1510 FOR I 1 TO 5:FOR J 1 TO 5 
1520 IF A(l.|) 3 THEN GOSUB 1600:A(I,J) 2 
1530 IF A(I.J) 1 THEN GOSUB 1650:A(I,J) 0 
1540 NEXT J:NEXT I 
1550 RETURN 

1600 REM CZARNE NA BIAŁE 
1610 SOUND 0,121,10,8 


W lej grze komputer rysu- 
je na ekranie planszę składa- 
jącą się z 25 kwadratów. 
Każdy z nich ma dwie stro- 
ny: ciemną i jasną. Twoim 
zadaniem jest zamienienie 
wszystkich ciemnych pól na 
jasne, w jak najmniejszej 
ilości ruchów. Dla utrud- 
nienia, oprócz wskazanego 
kwadratu, odwracane są 
zawsze cztery sąsiednie pola 
(o ile mieszczą się na plan- 
szy). Zagraj sam z sobą. Po- 
wodzenia! 
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1620 POS.X 3*(| — 1),Y 3*(ł—1):? B$ 

1630 POS.X - 3*(J—1), Y 3*0—1) ™ 

1640 SOUND 0,0,0, 0:RETURN 
1650 REM BIAŁE NA CZARNE 
1660 SOUND 0,60.10,8 
1670 POS.X 3*0 — 1),Y 3*0—1):? C$ 

1680 POS.X 3*(| — 1),Y 3*(l — 1) 1 :? C$ 

16% SOUND 0.0, 0,0: RETURN 
2000 REM ODWRACANIE 
2010 GOSUB 2100 
2020 U U I: GOSUB 2100 
2030 U U— 2.GOSUB 2100 
2040 U U 1:V V l:GOSUB 2100 
2050 V V— 2 

2100 IF U 1 OR U 3 THEN 2160 
2110 IF V I OR V 5 THEN 2160 
2120 IF A(U,V) 2 THEN 2150 
2130 IF A(U,V) 0 THEN A(U,V) 3 
2140 RETURN 
2150 A(U,V) 1 
2160 RETURN 
2500 REM WYGRANA 
2510 GR.2 

2515 SET.0,2, 14:SET. I,3,2:SET,2,8,12:SET.3,4,4:SET.4, 1 1,2 
2520 POS.6,4:? =6; "WYGRANA" 

2530 POS.1,9:? =6;"Q ”;N;" I.TO.TOl " 

2535 ? "NOWA GRA ? ( HHfrH / )’’ 

2540 IF PEEK(53279) 3 THEN GOSUB 1000 

2550 IF PEEK( 53279) *5 THEN GOTO 2700 

2560 GOTO 2540 

2 7 00 REM NOWA GRA 

2710 FOR I 1 TO 5: FOR ) I TO 5 

2720 A(I.J) 0:NFXT J:NEXT l:N 0 

2710 X 12: Y 2 

2740 GOTO 130 

3000 REM KROKI PARTII 

3010 ? "CZY CHCESZ OBEJRZEĆ KROKI WYGRANEJ 
PARTII ? (T/N)" 

3020 INPUT OS 

3030 IF OS "N" THEN NEW 

3040 IF OS "T” THEN 3020 

3050 GR. 0 

3060 FOR I 1 TO N 

3070 i D(I);”,":E(I);" 

3080 NEXT I 

30% FOR W A 1 TO 5000: NEXT W A 
3100 NEW 

3500 OPIS ZASAD GRY 
3505 GR.O:POS.2,5 

3520 ? ” CELEM GRY JEST ZAMIANA CZARNYCH 
POI NA BIAŁE W KWADRACIE 5 5. JEDNO- 
CZEŚNIE ODWRACA SIE 

3530 ? "PIEC POL W KSZTAŁ CIE KRZYZA, KTOREGO 
ŚRODKIEM JEST PO-LF O PODANYCH WSPO 
LKZEDNYCH. "; 

3540 ? "JEŚLI ZA DANIE POLE LEŻY PRZY BRZEGU 
KWADRATU ODWRACANA JEST TYLKO 
CZESC KRZYZA. GRA KOŃCZY SIL PO"- 

3550 ? ” odwróceniu wszyst kich pol. może 

SZ OTRZYMAĆ WYDRUK KRO-KOW WYKON 
ANYCH W GRZE." 

3555 ? :? ” UŻYWAJ TYLKO KLAWISZY 1 2 3 4 5 .” 


3557 ? " 

3560 FOR I I TO 2000:NEXT I 
3570 RETURN 

5000 REM STRONA TYTUŁOWA 
5010 GR.2 32 

5020 SET.0, 1,2:SET. 1,3,2:SET.2,8,12:SET.3,4,6:SET.4, 1 1,2 
5030 PO S.3,5:? - 6;"OPWRACANKA" 

5045 ? POCZĄTEK GRY" 

5052 ? 

5055 ? ZASADY GRY" 

5058 POKE 752,0 

5060 IF PEEK(53279) 6 THEN RETURN 

5065 SEF.3,14,2:SET.0,2, 14 

5067 FOR W 1 TO I00:NEXT W 

5070 IF PEI K(53279) 3 THEN 3500 

5075 SET. 3, 14, 4:SET. 0,2,6 

5077 FOR W 1 TO 50:NEXT W 

5080 GOTO 5060 


UWAGA! 

Niektóre znak‘i wyslęjiuiąt o na 
ekranie monitora ni(* są dostęp- 
no v\ druku, dlatego toż przyję- 
liśrny poni/s/p /cis*i()y zapisu: 
pojedyńt ze znaki w nawia- 
s,ic h kwadralowyt h odpo- 
wiad.ij.i symbolom grati- 
( znym. wjHOwadzano są przy 
nauśniyiym klawiszu CIRI : 

- c id j* znaków w nav\ iasit* 
kwtidratowym odpowiada 
nasi y pu jat ym < zynnośt iom: 
klawisz (SC. a poium klawisz 
CIRI i ujyly w nawiasie jed- 
noi zianie. 
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JESTES WŁAŚCICIELEM KOPALNI WYKO- 
RZYSTUJĄC OPERACJE NA SIELDZIE S PROSO I 

J * K «<*5oluzej posiaoanym 01 

Mn J n i K 1 1. n . 

S ł 5r5&? fs2£?jft c miŁJ miz 19 
POZIOM ŻYCIA GÓRNIKÓW OKREŚLA WYDAJNOŚĆ 
ICH PRACY I WIELKOŚĆ ZATRUDN I f N I A . 


5 P0KE 53280 , 9 PÓKI 53281. 8 

18 nmr y. 

15 P8I0T , ^nt*T0B<7) ,, Z V C I I H A K l r 
V A”TA0<^'-».S.»* * r 

2J JfSTlS E6ASCICIELEN KOPA 

25 PRINT"RZYSTUJAC OPFRACJF NO GIEŁDZIE 
SPtMOJ" 

38 PRINT”ZARZADZAC . JAK NAJDŁUŻEJ POSIAO 
35 print-majaikieh " 

48 PRINT" U M A 6 A _ 

45 P0 1 NT’*N I F MOZĘ PRACOUAC MNIEJ NIZ 10 
60RNIKOM” 

58 P8INT-M JEDNE J KOPAINI." 

55 PRINT"P0ZI0H ZYCI* GÓRNIKÓW OKRES! A W 
TUJWOCC" 

08 PRINT-fCH PR AC V - 1 I KOSC ZATRUDNIEŃ 
IA.” 


Trudne jest życie maklera. 
Masz szansę stać się milio- 
nerem. Twój majątek to 
akcje kopalni rudy, czy zro- 
bisz na nich fortunę? — 
wszystko zależy od Ciebie. 
Program na Commodore-64 
przeniesie Cię na giełde. 
Czy potrafisz zarobić? 


eturn-"* 

78 P8 1 N T ‘ Ni*L l Ł l L l L l L l L l L l L t Ł»L l Ł'l'I'I»IiI<I 

75 6FTRS IFRS”" THEN15 
188 L K I NT < RND( 1 )*4+5 ) 

118 16 INT<RND< i )*30+50> 

120 SK = I NT < RND < 1 )*50 ♦ 1B)<K 6 
130 R14 I N T < RND < 1 > *40 ♦ 80 > 

140 Z O PZ6 1 R 1 ZN 0 
200 PRINfi»^5r'TAB<7) -JZ V C 
E R A-” 

205 PRTN T ' "ZLT* T AB < 18 >”R0K" R 
210 PR INI •ggnOBFCNII POSIADi 
215 PR I N T "STAN KONI-' 

220 PR I N T "t I CZBA Glik* triu,. 
225 PR f N I “I ICZBA KIM 


238 PR I NT**ROCZNf WYDOBYĆ I E . . . . •• Bu ... 

N KAŻDA" ' 

235 Z Z *-RM*Ł K 

248 PRINT-ZAPASY •• ? .. T . 

RUDY** ' ' 1 1 

245 PRINT-POZIOM ŻYCIA GORŃIKOU." PZ6 
258 PRINT -JWT 6 I E L D A •» 

255 CR I N E CrWD < 1 )»12*7 > 

260 CK - I NT < RND< 1 >*2000* 2000 ) 

265 CZ I NT (RNO< 1 >*40 + 80) 

270 PRINT-CENA TONY RUDY 

. . ** , CR . 

275 PRINT-CENA KOPAINI K 

. .-.CK , 

280 PRTNI-CENA ZYWNOSI Dl A 60RNIKA. ... 

. . ”, CZ. "V 

285 PRlNI-Jl: nK UPWO ‘R'fDARZ»* 

230 6OSUBI080 

235 INPIJI-Ilf TON Rui PRZE DAJESZ” . SR 


388 IF SR< OORSR >Z I ME N298 
385 IFSRO0THENZ = Z SR SK SK+SR*CR , 

010 60SU81838 1 

310 6OSUB1000 

315 INPUT-ILE KOPALNI SPRZEDAJESZ” KS 
320 I F KS< 0URK S >1 K THEN3 1 0 ^ * KS 

325 IFKSO0THENLK LK KS SK=SK+KS*CK 
81010 6OSUB1020 
338 IFLK 0THEN2000 
335 60SIJB1 000 

348 INPUT-ILE KOPALNI CHCESZ KUPIĆ”, KK 
345 I F KK < 0GRKK *CK > SK T HE N 355 
358 IFKKO0THENLK l K - KK SK SK-KK*CK 60SU 
81810 6OSUB1020 
355 6OSU81000 

360 INPUT-ILE S UYPlALASZ 60RN I KOH” . MG 

365 IFU6<0ORM6>SK THI N 155 

370 IE WG< >0THENSK SK ut. GOSU81010 


60SUB1 


Pierwszy komunikat 
poprawnie działajac ego 
programu... 


60SU 


488 IFMBZLG>CZL20THENPZ6^PZ6«8. 1 GOSUOlo 
485 IFMBZLS<CZ-20THENPZ6=PZ6 0.1 G0SUB18 
418 IFPZ6C0 . 6THE N2810 

415 I FPZ6> 1 • 1 THŁNRI4=RW+ INT < RNO < 1 )»20+5 ) 
428 IFPZ6>=1THEN435 

425 IFRH>25THENRW=RIL I NT < RNO< 1 >*20+5 > IF 

REK 0THLNR 14^0 
438 6OSUB1050 
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435 IFLG/1 K<18THEH2820 

440 IFPZ6 > i . 1THENL6 L6« INT<RHD<i>*18M) 
fi*SM1060 

445 IFPZ6<8. 9THEHL6 L6 I HT < RHO< 1 >»10* 1 ) 
MSW 1868 

458 I F RNO< 1 > >0 . 2T HI N465 

455 60SU81588 PR I H T "RAD l OAK T YMHE HINERAt 

T WIELU ZGINĘŁO" 

4U 16 101(16/?) 60SUH 1 868 ZN=i 

465 1 f RM< 1 58 I HI H580 

478 IFZH 1FHEHZH 8 6OSUB1580 

475 PR I HF "KRYZYS NADPRODUKCJI . . . . WYOOBV 

CIL SPADA" 

488 R^INKRH/?) 6OSUB1050 
508 R R»1 

5 10 FORI 1 TO 1508 HE XT 
520 6010200 

1800 FORI 1824 T 02823 POKE 1,32 HE X T 

100 1 PR I HT '*yE l L l L t L > L , L ł L'L , L'L l L l L ł L l L‘DDDL*Ł»L»r * Rf TUR 

1810 FORI 1 287 T O 1 30 3 POKE I » 32 HEXT 

1811 PR I H T 'TdUlWŁlŁlir* T AB <22 ) , SK , "S" RETURN 

1820 FORI 1 367 T 0 1 38 3 POKE 1.32 HE XT 
1021 PR I N I " 1 AB < 22 ) , LK RETURN 

1830 FORI 1 447T0T 461 POKE I . 32 NE X T 
183 1 PRINI'Vl*Ł'L'L'L'L'L'l*l'l ,, IAB<22),Z. , *T0N RU 
DY" RF TIJRN 

1048 FORI 1 487 T 0 1 583 POKE 1.32 HE X I 
1041 PR 1 H T "Vt? L , Ł t l?l!lfl?l?l? Ł l l?r‘ T Aft < 22 > , P/S U\ \ H 

1050 FORI 1 407 F 01423 POKE 1.32 HE X T 

1051 PR I H F " VfL’L»L>L»L‘L»l?LT - T AB ( 22 ) . RW . ** T UH c A 
Z00" RE F URN 

1060 FORI 1327 1 01 343 POKF I . 32 HE X T 

1061 PR I H F 1 AB<22> .1 6 RETURN 

15J8 i < mi jr . t , L , Ł , L , L , Ł ,^, Ł , Ł . Ł . Ł . Ł . L , r . 

j " j ^t.yłyiijO Yoy^iyy^y y ^^ 1 11 

058 Hf X I 

1525 Hf XI I RF I URN 

2000 6OSUB150H PR IN - F MASZ KOPAINI 
KONIEC 6RY" 8010'JHah 

2010 60S001500 PR INI "STRAJK I 6O0HIK8U. . 
..KMIEĆ GRY" GOTO300O 

2020 60SUB1500 PRIHI"70 NM 0 GORNII BU. 

..KMIEĆ GRY" 60 T 03000 
3000 (OKI 1101500 Hf X T 
3010 PR I H T ' Vj:|NK OH I E C GRY-C" 

3020 PRIHF^BBYIES fc0 ASClu IELEH KOPAINI 

MM IUPIIfJIC/y CHCFS/ JF S/C/F S**C il/M 
"H” I HF 85 I OP 

SsS IFRS ■■F"THI 8RI1818H 

3«sa eaTD3«38 
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WIDEOTEKST 

Włodzimierz Gogołek 


Trudno sobie wyobrazić współ- 
czesny dom bez odbiornika tele- 
wizyjnego. Fakt ten z coraz więk- 
szym powodzeniem wykorzysty- 
wany jest w technice wideoteK- 
stowej. Już w 1976 roku brytyjska 
firma BBC zaproponowała użyt- 
kową eksploatację systemu, który 



pozwala na to, aby telewizor za- 
stąpił gazetę. Jej strony zmieniają 
się po naciśnięciu odpowiednie- 
go klawisza. Zatem, aby przeczy- 
tać wieczorny gazetę, wystarczy 
włączyć telewizor, nastawić go na 
odpowiedni kanał, a zgodnie z 
naszym życzeniem na ekranie 
ukażą się kolejne kolumny wy- 
branego pisma. 


D ROGA uzyskania przed- j 
stawionego efektu jest sto- I 
sunkowo prosta i nie wy- I 
maga od użytkownika dużych nakła- I 
dów. Wystarczy bowiem dostęp do I 
linii telefonicznej i przystawka (de- 1 
koder) do typowego telewizora. Po I 
wykręceniu odpowiedniego numeru I 
telefonu dekoder zostaje połączony z I 
centralnym komputerem, jest on I 
źródłem oczekiwanych informacji. I 
Dotyczą one różnorodnych tematów. I 
Na przykład: 

— aktualne informacje gospodar- I 
cze, 1 

— ceny, taryfy, 

— katalogi, 

— wiadomości bieżące 
— poczta elektroniczna, 

— dane medyczne (symptomy I 
chorób, charakterystyki lekarstw — j 
system AMNET). 


Warto w tym miejscu przypomnieć, 
iż obraz telewizyjny składa się z po- 
nad 600 linii. Są one rysowane przez 
wiązkę elektronów, emitowaną przez 
działo elektronowe kineskopu. 
Wiązką sterują układy elektroniczne 
telewizora (zgodnie z sygnałem od- 
bieranym przez antenę). Zależnie od 
treści obrazu linie te mają różny po- 
ziom czerni (w przypadku telewizji 
czarno-białej). Gdy na ekranie wy- 
świetlany jest tekst, wiązka rysuje tyl- 
ko czerń lub biel, bez odcieni poś- 
rednich. Innymi słowy zera lub je- 
dynki. Stąd już tylko jeden „krok" do 
komputerów. 

Aby zachować złudzenie stałości 
obrazu, jest on „rysowany" linia po j 
linii 50 razy w ciągu jednej sekundy. 
Czas rysowania jednej linii wynosi 64 | 
mikrosekundy. Ale po narysowaniu 
każdej linii, wiązka musi wrócić do 
lewej krawędzi ekranu. Właśnie pod- i 
czas tych powrotów przesyłane są I 
przez centralny komputer odpo- I 
wiednio pogrupowane zera i jedynki. I 
Oczekuje na nie wspomniana przy- I 
stawka telewizora — del^>der. Groma- I 
dzi on w swojej pamięci tak „przemy- I 
cane" zera i jedynki i tworzy z nich I 
oczekiwany przez nas wideotekst. Za- I 
.tern transmisja tego typu informacji I 
nie przeszkadza w ciągłym oglądaniu I 
telewizyjnego obrazu. 

Gdyby pamięć dekodera była po- 1 
dobna do posiadanej przez domowy 
mikrokomputer, można by było za- 
pamiętać w niej 40 typowych stron 
wideotekstu. Praktycznie pamięci te | 
są znacznie większe. Zatem kons- 
trukcja dekoderów umożliwia nam 

dokończenie na stronie 14 I 
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natychmiastowe wyświetlenie do- 
wolnej strony aktualnej gazety. Czas 
odczytu znaku z tego typu pamięci 
jest bowiem mniejszy od 0,000003 se- 
kundy. 

Omawiana metoda dostarczania in- 
formacji ma bezwzględną przewagę 
nad tradycyjnymi formami masowych 
środków informacji w kwestii aktual- 
ności danych. Często jest to decydu- 
jące w komercyjnych zastosowa- 
niach, gdzie cena tego typu usług 
bywa znacznie mniejsza od szacun- 
kowych zysków wynikających ze 
zmniejszenia okresu odszukiwania 
odpowiednich informacji. Zachęcają 
do tego typu zastosowań różne sy- 



stemy wideotekstowe. Na przykład 
system PRESTEL świadczy poza ogól- 
nodostępnymi usługi w zakresie 
gromadzenia i dystrybucji (drogą wi- 
deotekstu) informacji poufnych, do- 
stępnych po podaniu obowiązujące- 
go hasła. 

Jednym z drobnych, ale niezmier- 
nie istotnych elementów techniki wi- 
deotekstowej jest klawiatura, która 
pozwala odbiorcy na wybór odpo- 
wiedniej informacji oraz formy jej 
prezentacji. Jest to zazwyczaj porę- 
czne urządzenie o wymiarach i kon- 
strukcji przypominającej typowy kal- 
kulator kieszonkowy. 

Systemy teletekstowe stają się coraz 
popularniejsze, aczkolwiek dzięki 
ekspansji mikrokomputerów zmie- 
niają swój charakter. Wydaje się, że 
technika mikro w znacznym stopniu 
udoskonali dotychczasowe formy in- 
formacji odbieranych przez abonen- 
tów wideotekstów. 

Firma Satellite Syndicated Systems 
zapewnia, iż transmisje wideotekstów 
mają między innymi następujące pa- 
rametry: 

— szybkość transmisji 

— 5,554195 Mbit/s, 


— format strony 

— 19 wierszy, 40 kolumn 

— kolory — czarny, czerwony, 

zielony, żółty, niebieski, 
magenda, siny jako do- 
datek do białego, 

— - specjalne znaki kontrolne 

— pulsujące litery, litery 
o podwójnej wysokości, 

— możliwość drukowania tekstów. 

Dane te dowodzą możliwości bez- 
pośredniego sprzęgnięcia techniki 
wideotekstowej z domowym sprzę- 
tem mikrokomputerowym. 

Mikrokomputery dzięki swej auto- 
nomii zmieniają dotychczasowy cha- 
rakter wideotekstu. Umożliwiają 
między innymi trudne dotychczas do 
wyobrażenia doskonalenie formy in- 
formacji teletekstowej. Urządzeniem 
odbierającym staje się nie przystoso- 
wany telewizor, lecz praktycznie nie 
mniej popularny domowy komputer. 
Poza wspomnianymi udoskonale- 
niami pozwala on nie tylko na gro- 
madzenie, ale także przetwarzanie 
uzyskiwanych drogą teletekstu in- 
formacji. 

Powstaje w ten sposób nowy twór, 
który praktycznie ma jedną wspólną 
cechę z historyczną już wersją wideo- 
tekstu BBC z 1976 roku — ekran tele- 
wizora. Okazuje się, iż stanowi on 
często ukrywaną przez firmy kompu- 
terowe istotną barierę w upowszech- 
nianiu techniki wideotekstowej — 
coraz częściej w publikacjach autorzy 
zauważają niepokojący wzrost liczby 
osób, których choroby związane są z 
korzystaniem z obrazu telewizyjnego, 
jako pośrednika w przekazie infor- 
macji wyświetlanej w postaci znaków. 
Ponad 50% osób korzystających pro- 
fesjonalnie z obrazów TV skarży się 
na różnego rodzaju dolegliwości, 
których przyczyna tkwi w szkodli- 
wości tych urządzeń. 


P RZYCZYN tego stanu rzeczy 
należy upatrywać między in- 
nymi w złej formie informacji 
prezentowanej na ekranie TV. Ba- 
dania dowodzą dużego znaczenia 
także wielu innych czynników mają- 
cych wpływ na komfort odbioru tego 
typu informacji. Na przykład: 

— rozdzielczość, liczba punktów, 
tak zwanych pikseli, z których two- 
rzone są znaki (nie powinna być 
mniejsza niż 28 pikseli na centymetr 
kwadratowy ekranu), 

— jasność, zależy od otaczającego 
oświetlenia i powinna wynosić 
70 — 240 cd/m 2 , 

— kontrast, optimum 94%, 

— częstotliwość drgań obrazu (je- 
go kreślenia) powinna być jak naj- 
większa. Stosowana w standardach 
światowych jest zbyt niska i najczęś- 
ciej bywa przyczyną kłopotów zdro- 
wotnych (bólu głowy, oczu). 

Stąd też wiele firm poświęca 
wiele wysiłku na doskonalenia 
monitorow komputerowych, któ- 
re zastępują w technice wideo- 
tekstowej typowe odbiorniki te- 
lewizyjne. Ćoraz częściej roz- 
dzielczość monitorów wynosi 
około 1000x1500 pikseli, a często- 
tliwość jest większa od 60 Hz. 
Wydaje się, że już w krótkim cza- 
sie pokonane zostaną bariery ko- 
rzystania z „elektronicznych ga- 
zet”. Monitory będą gwarantowa- 
ły obraz podobny do obrazu tra- 
dycyjnej gazety, a koszt eksploa- 
tacji zostanie wkalkulowany w op- 
łatę telefoniczną. Okaże się wó- 
wczas, że słowa wideotekst, tele- 
tekst, staną się nieaktualne. 
Zastąpią je po prostu komputery. 
Uzupełnione o syntezery mowy 
ludzkiej przypomną nam czasy, 
gdy pojawiło się radio... 

Włodzimierz GOGOŁEK 
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System rozliczeń finansowych PRO-LOHN 


W fazie osadzania systemów wszystkie wymagane dane stale 
o pracownikach muszą zostać oczywiście wprowadzone do sy- 
stemu. Automatycznie natomiast dokonywane jest obliczanie 
odpowiednich procentów potrąceń, zgodnie z obowiązującymi 
w danej części RFN przepisami. Praca użytkownika z systemem 
odbywa się w sposób konwersacyjny, za pomocą klawiszy funk- 
cyjnych. Ich znaczenie jest każdorazowo wyświetlane na ekra- 
nie monitora. Istnieje możliwość wykorzystania tego systemu 
dla sieci zakładów produkcyjnych, jak również włączenia go do 
komputerowego systemu komunikacyjnego poczty. 


Na rynku zachodnioniemieckim pojawił się mikrokomputero- 
wy system księgowania PRO-LOHN opracowany przez firmę 
Victor Technologies. W podstawowej konfiguracji składa się on 
z mikroprocesora, klawiatury, zawierającej dodatkowo sie- 
dem klawiszy funkcyjnych, stacji dysków, monitora i drukarki. 
Oprogramowanie tego systemu umożliwia uzyskanie bieżą- 
cych, statystycznych zestawień różnego rodzaju wynagrodzeń 
(za godziny pracy, nadgodziny, za skrócony czas pracy, pracę 
akordową itp.) i potrąceń finansowych pracowników (podatki, 
składki, przelewy, oszczędności itp.), tworzenie kwartalnych i 
rocznych sprawozdań rozliczeń finansowych (prowadzenie 
księgi rozliczeń finansowych), jak również generowanie w usta- 
lonej formie przekazów I czeków dla urzędów finansowych, 
ubezpłeczalni, banków itp. 
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To, co udało się podpatrzeć naszemu fotoreporterowi, podziwiać mo- 
żna na zdjęciach. „Home, Office, Personal Computer ’86" — tak zatytu- 
łowana była wystawa sprzętu informatycznego, zorganizowana w dniach 
8 — 10 kwietnia 1986 roku, przez „Agpol”, w hotelu „Victoria”. Ze zna- 
nych marek swoje wyroby prezentowały między innymi: „IBM”, „Olivet- 
ti , „Hewlett-Packard” oraz „Commodore”. Obecne były również fir- 
my polonijne („Impol”, „Polbrit”, „Apina”) oraz niektóre tylko przedsię- 
biorstwa państwowe („Mera-Błonie”, „Zakład Informatyki Przemysłu 
Okrętowego”, „Mikrotech”). 

Oferta obejmowała zarówno złożone systemy komputerowe do stero- 
wania całymi liniami technologicznymi, jak i również sprzęt dla indywi- 
dualnego odbiorcy. 

Wystawa cieszyła się ogromnym powodzeniem. Nic dziwnego — tak 
bogatej ekspozycji jeszcze u nas nie prezentowano. 




GRAFIKA KOMPUTEROWA 

Jerzy Chmurzyński 


Rozwój komputerów przebiega w dwóch 
zasadniczych kierunkach. Pierwszy z nich po- 
lega na poszukiwaniu rozwiązań zapewniają- 
cych coraz większą moc obliczeniową. Chodzi 
tu przede wszystkim o wzrost szybkości pracy 
procesorów, pamięci operacyjnej i kanałów 
transmisji danych. W tym kierunku badań 
rozwiązywane są problemy łączenia kompute- 
rów w struktury wieloprocesorowe lub wielo- 
komputerowe, problemy wieloprocesowych 
systemów operacyjnych oraz współbieżnej 
organizacji obliczeń. 

Drugi kierunek rozwoju komputerów polega na do- 
skonaleniu procesu komunikowania się człowieka z 
komputerem, dostosowywaniu urządzeń zewnętrznych 
komputerów do potrzeb i możliwości człowieka. Czyn- 
nikiem stymulującym rozwój w tym kierunku jest ogra- 
niczony czas pozostawiony człowiekowi na analizę du- 
żej ilości dynamicznie zmieniającej się informacji. Przy- 
kładowo, analiza sytuacji powietrznej w rejonie lotniska 
nie może być prowadzona według tabulogramów do- 
starczanych przez dalekopisy lub drukarki. Czas wypro- 
wadzenia tabulogramu z komputera i jego analizy przez 
człowieka jest na tyle długi, że sytuacja w powietrzu mo- 
że się zasadniczo zmienić. W wyniku tego wydana de- 
cyzja staje się nieaktualna lub wręcz błędna. Inny przy- 
kład dotyczy projektowania wspomaganego kompute- 
rem. Wyniki obliczeń mogą być wyprowadzane w posta- 
ci tabulogramów zawierających kolumny liczb, jakże 
trudno jednak jest analizować takie dane. Brak jest przy 
tym elementu niezbędnego projektantom — rysunku. 
Właśnie rysunek — graficzna forma prezentacji danych, 
pozwala na skrócenie czasu analizy danych generowa- 
nych przez* komputer. Graficzna prezentacja sytuacji 
powietrznej okazuje się najbardziej właściwą formą 
przedstawienia operatorom wyników funkcjonowania 
komputera. Stosowanie graficznej prezentacji danych 
jest konieczne w wielu innych sytuacjach. 

Dane w postaci graficznej mogą być zarówno wypro- 
wadzane z komputerów, jak i wprowadzane. Odpo- 
wiednio do kierunku przesyłania danych graficznych, 
istnieją specjalfżowane urządzenia zewnętrzne kompu- 
terów. Do wprowadzania danych graficznych służą czyt- 
niki rysunków, zaś wyprowadzanie danych graficznych 
zapewnia pisak cyfrowy. Zarówno czytnik rysunków, jak 
i pisak cyfrowy należą do stosunkowo wolnych urządzeń 
elektromechanicznych, a to nie pozwala odwzorować 
szybkich zmian danych. Właściwością taką charakteryzu- 
ją się grafoskopy, wyposażone w monitory ekranowe z 
lampą elektronopromieniową. 
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Grafoskopy są to urządzenia zewnętrzne kompute- 
rów, przystosowane do zobrazowania rysunków złożo- 
nych z punktów, odcinków linii prostej, łuków itp. oraz 
do zobrazowania tekstów alfanumerycznych. Grafosko- 
y wyposażone są w szereg urządzeń operatorskich, ta- 
ich jak: pióro świetlne, manipulatory kulowe i drążko- 
we, klawiatury alfanumeryczne i funkcyjne. Dzięki tym 
urządzeniom operator może wprowadzać do kompute- 
ra zarówno dane alfanumeryczne, jak i graficzne. Dane 
graficzne, wymieniane za pośrednictwem grafoskopów, 
pozwalają odwzorować dynamikę zmian tych danych w 
czasie rzeczywistym. Dzięki temu grafoskopy umożliwia- 
ją organizowanie interakcyjnej współpracy człowieka z 
komputerem, zapewniając wymianę danych w postaci 
graficznej. Ta forma współpracy człowieka z kompute- 
rem zapewnia wysoką efektywność wykorzystania kom- 
puterów. 

Grafika komputerowa jest dziedziną techniki należącą 
do informatyki i obejmuje problemy budowy i opro- 
gramowania urządzeń komputerowych, służących do 
przesyłania i przetwarzania danych w postaci graficznej. 

Metody kreślenia obrazów 

Istnieją dwie podstawowe metody kreślenia obrazów 
na ekranie lampy elektronopromieniowej. Pierwsza me- 
toda polega na swobodnym przemieszczaniu strumienia 
elektronów i nosi nazwę kreślenia konturowego. Na rys. 
la przedstawiono ekran lampy z odcinkiem AB wykreś- 
lonym metodą kreślenia konturowego. Wykreślenie od- 
cinka AB polega na cyklicznym wykonywaniu następują- 
cych operacji: 

1/ pozycjonowanie układu odchylania strumienia elek- 
tronów w punkcie A; 

2/ odblokowanie strumienia elektronów; 

3/ sterowanie za pomocą układów odchylania strumie- 
nia elektronów po linii prostej do punktu B; 
4/wygaszenie strumienia elektronów. 

Częstotliwość powtarzania przedstawionych powyżej 
operacji zależy od czasu poświaty luminoforu: im czas 
poświaty jest krótszy, tym częściej należy wyświetlać 
obraz na ekranie, aby był widoczny dla obserwatora jako 
obraz stały. 

Druga, powszechnie stosowana metoda kreślenia 
obrazów, nazywana jest metodą kreślenia rastrowego z 
wybieraniem liniowym (rys. Ib). Strumień elektronów 
przebiega w tym wypadku w sposób zdeterminowany, 
całe pole ekranu, niezależnie od postaci wyświetlanego 
obrazu. Sam obraz powstaje wskutek sterowania jasności 
plamki świetlnej na ekranie, przy czym sterowanie to jest 
współbieżne z chwilowym położeniem strumienia na 
ekranie. Na tej samej zasadzie powstaje obraz na ekranie 
lampy kineskopowej odbiornika telewizyjnego. Odci- 
nek AB (rys. Ib) kreślony metodą rastrową z wybiera- 
niem liniowym złożony jest zatem z punktów A, 1, 2, 3, 4, 
B, wyświetlanych poprzez zwiększenie jasności plamki 



świetlnej podczas przemieszczania się strumienia elek- 
tronów przez linie wybierania b, c, d, e, f, g. 

Obrazy kolorowe 

Obrazy kolorowe uzyskuje się, stosując w monitorach 
ekranowych lampy chromatyczne. Powszechne zasto- 
sowanie mają lampy z luminoforem mozaikowym, sto- 
sowane również w odbiornikach telewizji kolorowej. 

Kineskop maskowy z luminoforem mozaikowym ma 
trzy niezależne działa ekranowe, wytwarzające na 
wspólnym ekranie trzy obrazy w podstawowych kolo- 
rach, tj. czerwonym (R), zielonym (G) i niebieskim (B). 
Każdy obraz powstaje w wyniku pobudzenia przez od- 
powiednią wiązkę elektronów punktowo rozłożonego 
luminofora, przy czym wszystkie trzy wiązki są jedno- 
cześnie odchylane za pomocą jednego układu odchyla- 
jącego. Przy małych wymiarach poszczególnych punk- 
tów świetlnych następuje w oku obserwatora synteza 
przestrzenna odbieranych zjawisk świetlnych, wskutek 
czego oprócz kolorów podstawowych obserwować mo- 
żna inne kolory. 

Wprowadzenie kolorów do obrazów wyświetlanych 
na monitorach ekranowych wydatnie zwiększa czytel- 
ność obrazu, a dzięki temu można zwiększyć liczbę jed- 
nocześnie zobrazowanych danych. 

Wymiar rastrowy ekranu 

W celu oznaczenia punktów na powierzchni ekranu jest 
on dzielony umowną kwadratową siatką linii. W ten spo- 
sób uzyskuje się możliwość adresowania punktów znaj- 
dujących się w punktach przecięć siatki. Współrzędne X, 
Y punktu są to liczby określające odpowiednio numer 
linii pionowej i linii poziomej, licząc od ustalonego 
punktu początkowego o współrzędnych 0, 0. Początek 
układu współrzędnych w typowych rozwiązaniach znaj- 
duje się w lewym dolnym lub w lewym górnym rogu ek- 
ranu. 

Odległość pomiędzy dwiema sąsiednimi liniami kwad- 
ratowej siatki ekranu nazywana jest rastrem. Odległość 
ta jest wprost proporcjonalna do średnicy ekranu i odw- 
rotnie proporcjonalna do liczby linii pionowych lub po- 
ziomych siatki kwadratowej. 


Wymiar rastrowy ekranu jest to para liczb oznaczają- 
cych ilość linii poziomych i pionowych siatki ekranu, np. 
1024 x 1024. Rastrowy wymiar ekranu ulega zazwyczaj 
zmianie przy stosowaniu kolorów. W miarę zwiększenia 
liczby kolorów wymiar rastrowy maleje. Przykład zmian 
wymiaru rastrowego przedstawiono poniżej: 

LICZBA KOLORÓW WYMIAR RASTROWY 

2 640 x256 

4 320 x 256 

16 160 x 256 

Zmniejszenie wymiaru rastrowego ekranu związane 
jest ze zwiększeniem pamięci potrzebnej do zapamięta- 
nia kodów stosowanych kolorów. 

Ważnym parametrem monitora ekranowego jest roz- 
dzielczość. Rozdzielczość charakteryzuje zdolność zo- 
brazowania na ekranie drobnych szczegółów obrazu, 
które można jeszcze rozróżnić. Rozdzielczość wyznacza 
się przez pomiar plamki świetlnej, uzyskanej na ekranie 
za pomocą strumienia elektronów lub też przez okreś- 
lenie iiczby rozróżnialnych punktów wyświetlanych na 
długości jednego centymetra. Nie należy mylić rastro- 
wego wymiaru ekranu, czyli liczby adresowalnych punk- 
tów, z rozdzielczością ekranu. Zwykle rozdzielczość ek- 
ranu jest większa niż jeden raster, co oznacza, że na od- 
cinku o długości jednego rastra można zobrazować kilka 
rozróżnialnych punktów świetlnych. 

Budowa grafoskopu 

Grafoskop złożony jest z następujących elementów 
składowych (rys. 2): 

a/ monitora graficznego, w którego skład wchodzi lam- 
pa elektronopromieniowa z układami odchylania 
poziomego I pionowego oraz układ podświetlania, 
b/ procesora graficznego, zwanego też sterownikiem 
graficznym, 

c/ urządzeń operatorskich, do których należą: 

— pióro świetlne, 

•— manipulator kulowy lub drążkowy, 

— klawiatura funkcyjna, 

— klawiatura alfanumeryczna. 


dokończenie na stronie 30 

rys. 1 
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Zastosowanie komputerów 


SYMULATORY LOTNICZE 


B ARDZO trudno o do- 
kładniejszą definicję po- 
jęcia symulacji, pojęcia, 
które w ostatnich latach zrobiło w 
lotnictwie — zarówno wojsko- 
wym, jak i cywilnym — karierę, 
wprost oszałamiającą. Ogólnie 
rzecz biorąc nastąpił przełom w 
metodzie szkolenia i treningu pi- 
lotów. Okazało się, że warunki 
rzeczywistego lotu samolotu mo- 
żna, prawie z wszystkimi jego ce- 
chami i szczegółami, symulować 
na ziemi — w specjalnie do tego 
celu skonstruowanych symulato- 
rach. Rzecz może wydać się nie- 
wtajemniczonym banalna, nie- 
mniej faktem jest, że powstanie 
tych urządzeń stało się możliwe 
dopiero po zastosowaniu w nich 
komputerów. 





Pomysł zbudowania naziemnego 
urządzenia do szkolenia pilotów nie 
jest pomysłem nowym i powstał w la- 
tach dwudziestych, kiedy to Amery- 
kanin o nazwisku Link zaprezentował 
takie właśnie urządzenia. Nazywano 
je wówczas trenażerem i bez istot- 
niejszych ulepszeń przetrwało dość 
długo. Jeszcze piloci z okresu II woj- 
ny światowej szkolili się na urządze- 
niach bardzo mało przypominających 
współczesne systemy symulacji lotu 
sterowane komputerowo. 

Prawdziwa pogoń za możliwie naj- 
większą wiernością odtwarzania wa- 
runków rzeczywistego lotu rozpoczę- 
ła się w latach pięćdziesiątych — wraz 
z pojawieniem się niezbędnego do 
tego celu środka: specjalizowanego 
komputera analogowego. Nadal jed- 
nak nie dawały się przezwyciężyć 
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niektóre trudności, mające dla jakości 
symulacji kluczowe znaczenie. Nie 
można było bowiem marzyć o skute- 
cznym symulowaniu lotu bez zado- 
walającej precyzji odtwarzania jego 
dynamiki, czyli też bez wystarczającej 
dla wytworzenia złudzenia autenty- 
czności jakości wizualizacji sytuacji 
zewnętrznej. 

Powyższe kłopoty przestały stano- 
wić nierozwiązywalny problem po 
wprowadzeniu komputerów cyfro- 
wych. Sercem współczesnego symu- 
latora lotniczego jest właśnie taki 
komputer. Oprócz zarządzania funk- 
cjonowaniem symulatora jako całości 
odbiera on bezpośrednio dyspozycje 
pilota (np. ruch drążka sterowego), 
aby następnie — po ich przetworze- 
niu — przekazać je do komputerów 
— satelitów. To one sterują pracą po- 
szczególnych podsystemów całego 
urządzenia, z których dla szkolącego 
się pilota największe znaczenie ma 
rzecz jasna zespół przyrządów po- 
miarowych, wskaźników i monito- 
rów. 


W celu zachowania maksymalnego 
złudzenia lotu prawdziwym samolo- 
tem, wszystkie przyrządy umieszczo- 
ne są w dokładnej imitacji kabiny — 
tak jak w rzeczywistym samolocie. 

Warunkiem pojawienia się u szko- 
lonego pilota złudzenia ciągłości „lo- 
tu” jest wykonywanie przez kompu- 
ter obliczeń w zawrotnym tempie 
50—60 cyklów na sekundę. Dopiero 
przy tej szybkości rozwiązywania 
przez maszynę całego szeregu rów- 
nań matematycznych możliwe staje 
się płynne manewrowanie w „prze- 
strzeni powietrznej". System symula- 
cji przewiduje współdziałanie w pro- 
cesie szkolenia instruktora. Może on 
układać dowolne scenariusze „lotu", 
uwzględniając na przykład złą wido- 
czność, silny boczny wiatr, a nawet 
awarię jednego z systemów samolotu. 

O BECNIE zakłada się, że 
rozwiązania konstrukcyj- 
ne współczesnych symu- 
latorów lotniczych powinny opierać 
się na tzw. modułach. Pozwalają na to 





Zestaw lirmy IBM pracujący l oprogramowaniem Microsoft. 


osiągnięcia ostatnich lat w dziedzinie 
mikroelektroniki. Konstrukcja modu- 
łowa umożliwia dowolne podłącza- 
nie i odłączanie od symulatora róż- 
nych urządzeń peryferyjnych. Każde 
z nich imituje inny system wyposaże- 
nia samolotu. Ostatnio też pojawiła 
się koncepcja, która w jeszcze więk- 
szym stopniu uelastyczni system sy- 
mulatora, dopuszczając oprócz mo- 
dyfikacji strukturalnych także mody- 
fikowanie oprogramowania. Powyż- 
sza koncepcja wymagać będzie za- 
stąpienia komputera centralnego ze- 
społem mikrokomputerów. 

Zadaniem symulatora jest zapew- 
nienie pilotowi także „kompletu" 
doznań fizycznych, nieodłącznie to- 
warzyszących w czasie prawdziwego 
lotu. Zamontowana na hydrauli- 
cznych siłownikach kabina symulato- 
ra może zmieniać swe położenie we 
wszystkie strony, co sprawia, że szko- 
lony pilot odczuwa najzupełniej 
obiektywnie występujące przyspie- 
szenia, przechyły, kołysanie boczne, 
a także turbulencje powietrza i drga- 
nia powstające przy kołowaniu na pa- 
sie startowym. 

■ EDNYM z najbardziej kosz- 

I townych podsystemów współ- 

JP czesnego symulatora lotnicze- 
go jest układ wizualizacji, zapewnia- 
jący pilotowi odebranie wrażenia po- 
ruszania się w fizycznej, trójwymia- 
rowej przestrzeni. Układ ten nabiera 
szczególnego znaczenia w ćwicze- 
niach manewrów stosowanych w 
walce powietrznej. Obecnie systemy 
wizualizacji polegają na rzutowaniu 
obrazu o wysokiej rozdzielczości na 
specjalne ekrany — kopuły umie- 
szczone w polu widzenia kabiny pilo- 
ta. Obrazy wyświetlane wewnątrz 
kopuł mogą dawać pilotowi tak silne 
złudzenie własnego ruchu, że w wie- 
lu wypadkach rezygnuje się wręcz z 
wyposażenia kabiny w układ imitacji 
ruchu, zachowując jedynie sam fortel 
symulacji przyśpieszeń. 


Można by zapytać o przyczyny co- 
raz częstszego wprowadzania symula- 
torów w procesie szkolenia załóg lot- 
niczych. Czy może mamy do czynie- 
nia z jeszcze jedną zabawą, wymyślo- 
ną jakby przy okazji burzliwego roz- 
woju komputerów? Okazuje się, że 
powstanie i wprowadzenie symulato- 
rów podyktował dokładny rachunek 
ekonomiczny. Co prawda kompletne 
systemy symulacji lotów są bardzo 
drogie, lecz same samoloty wraz z 
kosztami ich eksploatacji jeszcze 
droższe. W grę wchodzą ponadto li- 
czne zalety szkolenia na symulatorze, 
które, nie występują w wypadku pro- 
wadzenia treningu na samolocie. I tak 
symulatory pozwalają m.in. na wie- 


Szkoienie pilota w symulatorze jest 
tańsze i bezpieczniejsze. 


IKS — strona 21 


lokrotne kontrolowanie w identy- 
cznych warunkach zdobytych przez 
pilota umiejętności, co ma istotne 
znaczenie przy ich ocenianiu. Symu- 
lator pozwala ponadto na prowadzę-, 
nie ćwiczeń zachowania się załóg w 
razie zaistnienia awarii bez narażania 
życia i sprzętu, stwarza możliwość 
szkolenia w dowolnie przyjętych wa- 
runkach taktycznych i pogodowych. 

T ymczasem perspektywy 
postępu technologicznego w 
budowie samych symulato- 
rów są obiecujące. Oprócz przemian 
wynikających z postępu techniczne- 
go, zwiększa się coraz bardziej zakres 
zadań, jakie stawia się przed symula- 
torami. Według opinii fachowców, 
należy w związku z tym spodziewać 
się ich „specjalizowania", dzielącego 
je na grupy urządzeń wzajemnie 
uzupełniających się pod względem 
jakości wykonywanych funkcji. 
Przemawiają za tym także względy 
ekonomiczne. Z kolei inna, równo- 
legle występująca tendencja rozwo- 
jowa zmierza do tego, by na jednym 
symulatorze możliwe było ćwiczenie 
użycia różnych systemów broni. Te i 
wiele innych zagadnień, których 
rozwiązania domagają się przyszli 
użytkownicy każą spodziewać się dal- 
szego wzrostu niemałego już znacze- 
nia symulatorów w lotnictwie, choć 
całkowite wyparcie przez nie trady- 
cyjnych metod szkolenia jest mało 
prawdopodobne. 

opr. P.P. 
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Jeśli masz ochotę i starcza 
Ci odwagi, stań do walki na 
ringu z wybranym losowo 
przez siebie przeciwnikiem. 
Jeśli będziesz miał szczęście w 
losowaniu przeciwnika, bę- 
dziesz walczył trzy rundy, o 
ile, oczywiście, nie powali 
cię na (leski morderczy no- 
kaut — pozostałe informa- 
cje w komunikatach pro- 
gramu tym razem przezna- 
czonego na Commodo- 
re-f»4. 
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3846 E = 6 X = T RETURN 

6888 X=X- 10 F F*10 POKEU+2 , F P0KE2B41.19 
6 POKEU . X POKESO* 1 1 , 0 

6810 PORe SO 15,19 F ORT ; 1 T 010 P0KES0*4,21 
F ORDL = 1 T 0100 NEXT POKESO*4.20 
6020 F ORDL = 1 T O 100 NE X T N E X T t 
6858 PR I NT'* t.‘t«Ł l IjL , Ł l Ł t l}Ł | : ł * T A8 f 7 ) “DOBRZE BOKSU 
JESZ** 

6068 POKE2040 , 199 F UROI t T 05000 NEXT 
6100 G0T06625 

6588 X = X-10 F=r*18 POKEU . X POKE 2840 , 198 
P0KEU+2.F POKESOM1.0 

6510 P0*ES0*15,19 FÓRT = 1T018 P0KES0»4,21 
FORDL = 1TO100 *EXT POKESO*4,20 
6520 F ORDL = 1 T 0 100 HFXT NEXTt 
6550 PRINT" L1»L*L'L»L'L'Ifl»H NIE MASZ SZCZESCI 

6608 POKE2041 , 199 FORDl 1TO5008 NEXT 
6625 POKEU + 21.0 PRINT"'*", I FK i = S20RS2>S1 

i iii Hf 7 Mrt 

6630 PR I NT" DOBRZE WALCZYSZ' 

6640 P R I N T ' ”JJU Z V S K 0 N E WYNIKI "Si"OLA CIEB 
IE" PRINT TAB< 16>S2"DIA *‘B$<XX> 

6660 GOT 06780 

6700 PRINT" S10BO WAL C?Vl.ES ' ' • " G0T06648 

6780 PRINT* "J)0 T O TWOJI PRZEĆ IWNICY i*T 
6790 F ORF = 1 TO 10 PRINT TAB<7)F". . IFFO 

18THENPR I NT" ", 

6795 PRINTBS(F) NEXT POKE198.0 

6797 I NPUT"iyMVB I ERZ PRZECIWNIKA (0 v QH 

IEC )", XX I F XX< >0 T HE N68 10 

6800 END 

6816-PR I NT yLaitttkWWWIBEDZ I E Z TOB* U01.C 

6815 PR INT"2|PRZVC I SN I J JAKIŚ KLAWISZ** 
6820 GETWS TFWS =""TME N6820 

6830 St=0 S2~0 SK fil XX)/12 

6831 K2 = 50>XX* INT <RND( 1 >»30> 

6832 KI 80XX» INT <RND< 1 >«50> 

6840 G0T026 

7800 RESTORE REM ***STR0NA T V T UL OWA «-*»-*» 
788^. p R INT"L^Łl!l!l!JL!JL!tl!l^! * TABC 15>"Uk BOK 

7010 FORI = 1TO1880 NE X T 

TA?? P00, * J SU0Jt 

7150 INPUTC5 IFU N' ' J . IHEN7100 

7508 DATA"MENRV HOPE LESS" ARNOLD AWF UL " 
"NI6EL NO- GOOD", "PHILIP FAIR** 
t58? DATA"ANDREW AUER AGE" . "ROGER RI6NT H 
lAw" "BR 100 BRICKMALL‘,"SinOII SUPER" 

7584 D4I0"EOU0RO EXCEi£E0T". "EL 700 E ANTA 

U!£"p»l.»T "tl.I.f IA»<15)-:l 8 O E S •" 

7528 PR I CMC IAl BVS 2OS10C nlSTRZEH, 

W I FPBftHPft 77" 

7522 PRINT^ZJ JEŚLI TAK, TO TO JEST GRA D 

7524 * PR ! NT "JJ OTO TWOI PRZECIWNICY y 
7538 FORF = iYoi0 READAS PR I NT T AB < 7 )F" . . 
IFFO10THENPRINT" . " , 

1535 PRINTAS irvy/ 


Ig^xi?SVi^pgI8^ ^głS?§5i-* xx ,FXX< 

liii K 2 = 50 Jx XX INtVrnDM )* 30 ) 


7547 K 1 = 80 -XXMNT<RND< 1 )* 58 > 

7550 B$=LEFT$< 8 $(XX> . 6 ) 

7560 PRINT**Uk ( BĄRDZÓ DOBRZE, TWOIM PRZI 
CIWNIKIEM JEST" PRINT" "B$<X*> 

7562 PRINT"UJ PORUSZASZ SIE PO RINGU PRZY 
CISKAJĄC" PR I NT"*JJ KLAWISZE " 

7563 PRINTTAB< l2T ,, 2l«X| k DOL" 


_ DOL" 

7564 PRINTTAB< 12)"37k GÓRA" 

7565 PR INTTAB< 12)"3<lk W LEWO" 

7566 PRINTTABC 12) "^*>k W PRAWO* 

7567 PR INT TAB< 11 >’* * LEWA RĘKA" 

7568 PRINTTABt 18>"lSHlTT^ PRAWA RĘKA 

7570 PRINT"ZM MOŻLIWI JI5T ZAKOŃCZENIE U 
ALKI PRZED"^RINf’*i CZASEM" 

7575 GOSUB9000 

7588 PRINT"'JL PRZYCISNIJ JAKIŚ KLAWISZ, 
JEŻELI JESTF5" PR IN I "a r.DTOW" 

7590 GE TX$ IFXS "** T MF M .T HM 


.192 P0KE2841 ,195 


8588 8ES U 5ŁmCONIEC RUNDV«mm» 

8505 PRINT"a^ŁyjIiT*TAB<31)" 0 8 ** 

8520 POKE 2840! 1 92 P0KE2841.195 
8530 F0RT=1 T0688 NEXT POKEŚO+4.20 
8540 X=X+4»<X>32> V=V44*<Y>60> F=F~4»<F< 
234) 6=6-4»<6<220> 

8550 POKEU. X P0KEU4I ,Y POKE U*2 . F POKEU* J 

ft§60 POKE 2 8 40, 192 POKE2041.195 

8578 IFX< = 32ANDV< 6 A AND F >- Z34ANDG> = 220 T H 

FN 85 RA 


lii! 

RSWr 1 " " T * 8 < 7 > “WSTĘPNA 


S 595 FORDL= 1 TO 280 ■ NEXT P 0 KĘS 04 
600 PR I MT T B ? T ) *' 


8620 GOT062 

9000 REN «-**WCZV TANIE SPRITE*«* 

9010 FORT=0TO511 READA POKE 192*€4+T , A : NE 

91^0^ POKE 2840 ,192 P0KE2B41.195 POREM. 39 , 

1 388 REfł UP pPRVS0W8HlE R10GU«*» 

518 44S="»" 8BS=00S 

528 FORT = 8t 027 00S=-00**"i*" B8»»BBSE" " 
P8lt?efo2? PR101RB* »EX 

^ : PRI0T00$ , 

9«*3 PglgrmU.JBiSgiLtETJĘęs.S) 


H BmwwsłWEmiwfc.,,.,:* 

• REM «*»SPRITES*** 

1 08788,56,8,8, 127 , 252 , B . 127 , 254, 8 , 1 
2 08188, 127,2,8,56,63,8,8,127,8,8,12 

Illtt SSSTR8 ; 8 : ii : I : e : 11 : 8 : 8 : : 1 : 1. , ta? 

18885 D8T88. 127.6 3,0. 127.2.9. 127,254.8, 1 
18*06^00100 .56,8,8 

18887 O0T4ll2. *.6.255, 255, 252, 755, 255. 25 
^6888 ' ®AVa254. 0 . 18. 112. 8. 62, 8. 8, 127, 8, 8, 

g j HffllMMiilHAW**®!-. 

127,252,0,127,254,0.1 
4 D0T00, 127, 18,0.56,62,0,0,127,0,0,9 

tSłl 

e 54,0, IB. 254, 0,2, 255, 255, 254. 2 

f§6%?6* ,252.8,127.252,0,65.2 
3.252,0, 124.56.0,126,0,0,198, 


i 0021 DATA131. 0 ,0,131, 0,8. 129,0, 0.131,0. 

0022 0010171 , 0 , 0 , 198 , 0 . 0 , 254 , 0 . 0 , 124,56 
i 0023^00 T 07 3 , 252 , 0 , 65 , 252 , 0 , 127 , 252 , 0,63 

leels DOTrte; II Ti 63, 354, 8. 127, 234,8,64,2 
18*26 087872,126,8,124.28,0.126.8,8,198, 
1*827 0018131,0.8,131.8,8.129,0,8,131,8. 


18828 0010131.0.8,198,8,8,128,8,8,124,8. 

18829 007072,8,63.64,8.127,123,255,255.6 

10031 ^ 4108 : Bi UTl. 755 , 255 . 127 , 498 , 855 , 


18037 041472 . 8 , 63 . 124 , 0 . 14 , 126 , 8 , 8 , 198 ., 

10033 0010131 , 0 , 0 , 131 . 0 . 8 , 129 . 0 . 0 . 131 . 8 . 

10034 04 > 0131 , 0 , 0 , 138 . 0 , 0 , 126 , 0 , 0 , 124,38 

10835 00 > 072 , 126 , 0 , 64 , 254 , 0 , 127 , 254 . 0.63 
, 254,0 

1 083 * 00100 , 20 , U, H 

10037 00 1 06 , 0 . *,*, 0 , 24 , 0 , 0 , 24 . 8 . 48 , O 

18038 00101 ,241.748.7,49,0,2,1.8.5, 1,8 
18833 O0f0il5.7*3.B.2*l, ^5* , Ó , *5* , 8 , 
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OTO THOI 


HENRY HOP ELE SS 
ARNOLD A UF UL 
NI6EL N0-600D 
PHILIP FAIR 
AHDREU AUERAGE 
ROGER RI6HT-H00K 
BRIAN BR I CK UAL L 


iss r> s 4 o 

18048 ,DńTft.’5i . . 1 i 1 ), J 1 )?, , 2 , 0 , 64, 

I 098,0 , 2, i.’-* 0.6.96,0,6,0,0,0 
1804? O0I00, O,0,Ą , 0 

10843 00 101 1? , *3 • • ♦ H . . 34, 32 . <-40 , 64 

13 ,248.64 

10044 00 r 035, 108,64, 35,108,64,35,252,64. 
10Ś45'D0 109,249,0, 4,242,8,3,252,0,3,252, 
10846 D0T 03. 252.0. 1,248.0,0,240,0,1,152. 

10047 O 0 T 0 1 , 152,0, 3. 156,0, 1,152,0, 13, 155 

10048 00 T0 15 . 153,0.0 


CHCIAŁBYŚ ZOSTAĆ MISTRZEM, NIEPRAWDAŻ? 
JEŚLI TAK, TO TO JEST GRA DLA CIEBIE. 


PRZECIWNICY 


ARNOLD 


AUERAGE 


BRICKUALL 


..EDUARD EXCELLEHT 
. . FLYNN FANTASTIC 


KTOREGO UYBIERASZ? I0« 


--IV 


Tak zaczyna się mecz. 
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SPECTRUM 



A ... m 

90X0 CLS 


PRMIEC PROGRRHU 


LET SłPEEK 23635 +PEEK 23636 
*256- X: 

CO TO 92X0 
9020 LET p .PEEK i 
9030 IF P *X3 THEN GO TO 9200 
904.0 IF P«X4 THEN GO TO 9300 
9050 IF P<X0 THEN PRINT t;" 

9060 IF p >9 PHD P < X00 THEN PRINT 
S ” "'Pi'* " i 

9070 IF p>99 THEN PRINT * i " 

908O IF'p>3X THEN PRINT PRPER 6, 
CHR* P 

9090 IF P <32 THEN PRINT 
9X00 LET i»s + X: 

GO TO 9020 

9200 PRINT s; " " . Pi i 

PRPER 4, "ioni»c 
9205 PRINT 
92X0 LET &«t + X: 

LET p.PEEK l»2S6+PEĘK ii + l> 
9220 PRINT "i PRPER 4.; 

"Uitrtz nr: "ip; 

9230 LET »+PEEK. U*X) *256 

9240 PRINT ti" "i PRPER 6i 
"Ilosc b«jt09 » ;p 
9250 LET S*t + X: 

GO TO 9X00 

9300 PRINT ti " ",P; " i. 

PRPER 4i"5taU UCZbOU*: 
93X0 PRINT t+X," "i 
9320 FOR f«s + X TO t+5 
9330 PRINT PEEK ti" . "i 
9340 NEXT f 

9350 PRINT LET t«t+5: 

GO TO 9X00 


Wynik działania programu. 


mi 

m 


PEEK 

s 

23914 

13 


koniec wiersze 

23915 

Uie 

rsz 

n r . 9030 

23917 

IlOSC 

be^tow s 24 

23919 

250 


23920 

112 


P 

23921 

61 • 


s 

23922 

49 


1 

23923 

51 


3 

23924 

14 


Steki Liczbowe 

23925 

20^ 

0 

, 13 , 0 4 0 4 

23930 


THEN 

23931 

236 


GO TO 

23932 

57 


9 

23933 

50 


2 

23934 

48 


0 

23935 

48 


0 

23936 

14 


Stele liczbowe 

23937 

0 , 
13 

0 

, 240 , 35 , 0 

23942 


koniec wiersze 


Tylko dla dociekliwych! 
Dzięki temu programowi 
można zajrzeć do pamięci 
„Spectrum” i sprawdzić jej 
wykorzystanie przez do- 
wolny inny program napi- 
sany w BASIC-u. 

Najpierw należy wczytać 
instrukcję LOAD poniższy 
program, następnie instru- 
kcję MERGE program, któ- 
rego sposób zapisu w pa- 
mięci chcemy obejrzeć na 
ekranie. Instrukcja GOTO 
l )0()0 spowoduje wyświetle- 
nie zawartości komórek 
pamięci i ich adresy, po- 
cząwszy od pierwszej ins- 
trukcji (wiersza) programu. 
Naciśnięcie dowolnego kla- 
wisza (oprócz n) spowoduje 
wyświetlenie zawartości ko- 
lejnych komórek pamięci. 
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BASIC 

(Podstawy programowania) 


Miłośników zabaw z mikrokomputera- 
mi, przyszłych informatyków, zachęcamy 
do nauki programowania. Zaczynamy od 
wykładów języka BASIC na mikrokompu- 
ter ZX Spectrum. 

Wykład pierwszy: 

— klawiatura ZX Spectrum 

— ZX Spectrum jako kalkulator 

— ekran telewizyjny 

Zabawa z komputerem polega na wydawaniu mu rozka- 
zów, przekazywanych najczęściej za pomocą klawiatury, 
które on posłusznie wykonuje. Wykład nasz rozpo- 
czniemy od zapoznania się z klawiaturą ZX Spectrum i 
jej obsługą. Włączamy komputer i zaczynamy. 

Klawiatura ZX Spectrum jest podobna do maszyny do 
pisania. Każdy klawisz ma 5 różnych oznaczeń. Ozna- 
czenia te napisane są na, pod i nad klawiszem w różnych 
kolorach. Symbole używane w ZX Spectrum obejmują 
nie tylko pojedyncze znaki (litery, cyfry itd.), ale także 
symbole złożone (takie jak słowa kluczowe, nazwy funk- 
cji itd.), które powinny być wprowadzane właściwymi 
klawiszami, a nie literowane. W celu realizowania 
wszystkich tych funkcji i rozkazów używane są odpo- 
wiednie oznaczenia wyróżnione na klawiszach, wprowa- 
dzane częściowo przez użycie shift'ów (odpowiednich 
klawiszy), a częściowo przez zmianę trybu pracy maszy- 

ny. 

Tryb pracy oznaczony jest kursorem, jest to migająca 
literka wskazująca miejsce na ekranie, gdzie zostanie 
wpisany na ekran kolejny symbol z klawiatury. Rozróż- 
niamy pięć trybów pracy ZX Spectrum. 

Po włączeniu Spectrum, na ekranie (w dolnej linii) po- 
jawia się napis: c 1982 Sinclair Research Ltd. 

Od tego momentu Spectrum gotowy jest do przyj- 
mowania informacji (rozkazów) i jest w trybie K 
(kursor K). 

Tryb K (od Keywords — słowa kluczowe) — komputer ocze- 
kuje rozkazu lub linii programu, a z położenia kursora w linii 
wie, że powinien otrzymać numer linii lub słowo kluczowe. Sy- 
tuacja taka zachodzi na początku linii, po THEN, lub po dwu- 
kropku (o ile nie jest w tekście). Słowa kluczowe umieszczone są 
na klawiszach w kolorach białym i czerwonym, lub pod klawi- 
szem w kolorze czerwonvm lub nad klawiszem w kolorze zie- 
lonym, są to np. PRINT, IŃPUT, IF, DIM, FOR, STEP, TO, THEN 
itd. Jeżeli literka K — kursor K znajduje się w lewym doinym ro- 
gu ekranu, lub w środku linii (na dole ekranu), to naciśnięty 
klawisz jest interpretowany jako słowo kluczowe lub liczba. Po 
naciśnięciu klawisza ze słowem kluczowym na ekranie zoba- 
czymy tó słowo oraz literę !.. Jest to najczęściej spotykany tryb 
pracy — tryb L (kursor l). Bez shift’6w .klawisze: CAPS SHIFT 
(CS! oraz SYMBOL SHIFT (SS)« naciśnięty klawisz wypisze swój 
podstawowy symbol tzn.: cyfry lub litery (ale tylko małe). 

Tryb C (od Capitals — duże litery) — kursor C otrzymujemy 
przez naciśnięcie jednocześnie klawiszy CAPS SHIFT i 2 (cyfra), 
jest on wariantem trybu L I służy do wprowadzania dużych liter. 

Tryb E (EXTEND MODĘ — rozszerzony) — kursor E otrzymu- 
jemy przez naciśnięcie Jednocześnie klawiszy CAPS SHIFT I 
SYMBOL SHIFT. Tryb E służy do wprowadzenia symboli napisa- 
nych nad klawiszem (w kolorze zielonym), a z klawiszem SYM- 
BOL SHIFT — do wprowadzania symboli napisanych pod klawi- 
szem (w kolorze czerwonym). 
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Tryb G (GRAPH — grafika) — kursor C otrzymujemy przez 
naciśnięcie jednocześnie klawiszy CAPS SHIFT i 9 (cyfra). Tryb G 
używany jest w grafice komputerowej. Naciśnięte klawisze cyf- 
rowe (1-j-8) dadzą odpowiednie symbole graficzne narysowane 
na kluczach. 

Powrót do trybu l lub K otrzymujemy przez ponowne naciś- 
nięcie klawiszy dla utworzenia trybów C, E, G. 

Weźmy dla przykładu dwa klawisze i pokażemy, jak należy się 
nimi posługiwać: 






Posługując się słowem kluczowym PRINT, symbolami +, *, 

/, t, ", „ ' literami i cyframi sprawdzimy jak ZX Spectrum 

„pracuje” jako kalkulator, a tym samym nabierzemy wprawy w 
obsłudze klawiatury. 

Słowo kluczowe PRINT (napisz) jest rozkazem dla kompute- 
ra, aby coś na ekranie napisał. 

Zaczynamy pracę od obliczenia wartości wyrażenia: 

2 + 6(12 

Komputer jest przygotowany do wprowadzania tzn. jest w 
trybie pracy K. 

Naciskamy klawisz P, na ekranie pojawi się nam słowo 
PRINT, po nim wprowadzamy powyższe wyrażenie, 
stosując podane niżej reguły: 

Symbol Klawisz Funkcja Przykład 

+ K dodaj dwie liczby 12+6=18 

J odejmij dwie liczby 18-12=6 
* B pomnóż dwie liczby 12*4=48 

/ V podziel dwie liczby 28/14=2 

f H podnieś do potęgi 213=8 

(np. 2 do potęgi 3) 

Każdy z tych symboli otrzymamy, naciskając równo- 
cześnie klawisze: SYMBOL, SHIFT i odpowiedni klawisz 
(K lub j, lub B lub V lub H). 

Nawiasy ( ) są takie same jak w matematyce, brak jest 
nawiasów [ ], { jitp. Jeżeli nawiasów jest więcej, to pi- 
szemy odpowiednią liczbę par nawiasów ( ). 

Wprowadzajmy dalej: 

PRINT 2 + 6 * (12 — 14/2)f 2 
i wreszcie klawisz ENTER. W lewym górnym rogu ekranu 
otrzymamy liczbę 152. Sprawdzimy otrzymany wynik 
2 + 6* 5 2 = 2 + 6* 25 = 2 + 150 = 152 

Analizując zapisany wzór zapamiętajmy następującą 
regułę: przed nawiasem należy postawić odpowiedni 
znak (tu znak*) jeżeli przed nim stoi 
liczba (lub litera). Popatrzmy jak by to wyglądało, 
gdybyśmy napisali z „błędami". 

PRINT 2 + 6 (12 — 14/2) ! 2 i ENTER 

Komputer nie „wprowadzi" naszej instrukcji i zasyg- 
nalizuje błąd: między 6 i ( pokaże się migający znak za- 
pytania: PRINT 2 + 6 tD (12 — 14/2) 2 
i komputer „czeka" na poprawę błędu. 

Poszukajmy nad klawiszami białych znaków 
a) - b) - 

Naciskając — (CAPS SHIFT i 5) przesuwamy kursor L w 
lewo na miejsce znaku ? i wstawiamy znak * i ENTER, 
komputer zareagował poprawnie. 

Jak zauważyliśmy — służy do przesuwania w lewo da- 
nego kursora w linii, natomiast — do tego samego celu, 
ale w prawo. 

Możemy ten błąd poprawić w inny sposób: 
znajdźmy DELETE (klawisze CAPS SHIFT i 0) naciśnijmy 
je 9 razy: za każdym naciśnięciem tych klawiszy kursor L 
przesuwa się o jedno miejsce w lewo, kasując napisane 
uprzednio znaki; otrzymamy więc na ekranie: 

PRINT 2 + 603 

w tym momencie zaczynamy wprowadzać „od nowa" 
znaki począwszy od *. 

Zastanówmy się co się bardziej opłaca w tym wypadku 
używać — (strzałka w lewo) czy komendy DELETE. 

Obliczmy jeszcze wartość wyrażenia: 

120 — 2 - 90 + j - 9 

a więc napiszmy: 

PRINT 120 — 2 * 90 + 14/7 * 9 i ENTER 
otrzymamy wynik = — 42 


Przeprowadzimy teraz analizę wykonania obliczeń 
przez komputer: 

1) 120—2*90+14/7* "i mnożenie i dzielenie 

2) 120 — 180+14/7*9 f wg priorytetów od lewej do 

3) 120—180+2*9 J prawej » 

4) 120 — 180+18 dodawanie i odejmowanie 

5) —60+18 /■ wg priorytetów od lewej do 

6) —42 J prawej 

Podane wyżej symbole +, — , *, /, t nazywają się ope- 
ratorami arytmetycznymi. Działania w danym wyrażeniu 
arytmetycznym wykonują się od lewej do prawej strony 
wg ustalonych priorytetów: 
potęgowanie t 

mnożenie * i dzielenie / są równoważne 
dodawanie + i odejmowanie — są równoważne 
Ponadto pierwsze wykonują się działania zamknięte w 
największą liczbę nawiasów, wewnątrz nawiasów obo- 
wiązują podane wyżej priorytety. 

Wprowadźmy do komputera następujący zapis (pa- 
miętajmy o kursorze K): 

PRINT „TO JEST PIERWSZY WYKŁAD" 

W lewym górnym rogu ekranu otrzymamy TO JEST 
PIERWSZY WYKŁAD. Każdy ciąg znaków (dowolnych) 
napisany w cudzysłowie, czyli: 

„ciąg znaków" 

jest traktowany jako łańcuch (tekst). Jeżeli umieścimy 
ten łańcuch po słowie PRINT, to po wykonaniu PRINT na 
ekranie ukaże się nam ten ciąg znaków w miejscu, które 
wyznacza jego położenie w PRINT lub znaki specjalne 
dozwolone w PRINT jak: , (przecinek) ; (średnik), 

• (apostrof). 

Znaki te napisane w PRINT powodują wypisywanie na 
ekranie tekstów lub liczb w następujący sposób: 

; (średnik) — obok siebie 

, (przecinek) — w dwóch kolumnach 

> (apostrof) — w jednej kolumnie (w 

lewej części ekranu) 
Więcej na ten temat napiszemy w innych wykładach, 
gdy będzie omawiana instrukcja PRINT w BASlCu. 

A teraz kilka przykładów. Wprowadźmy do kompute- 
ra poniższe zapisy i wykonajmy je. 

1. PRINT „C— ;15, „D=";2 

2. PRINT „TO JEST ZX SPECTRUM", „DZIEŃ DOBRY!" 

3. PRINT „APOSTROF" ' „1 KOLUMNA" ' „LEWA 
CZ^Ć EKRANU" 

Po wykonaniu na ekranie otrzymamy kolejne napisy po- 
staci: 

C = 15 d = 2 

TO JEST ZX SPECTRUM DZIEŃ DOBRY! 

APOSTROF 

1 KOLUMNA 

LEWA CZfŚĆ EKRANU 

Zadanie 

1. Obliczyć wartości wyrażeń: 
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Wj = 


12 • 13 • 15 
16 • 17 


W 4 = 


17,25 - 16 
-(14-9) 


<2 3 - 4) 


używając dwa razy słowa PRINT. Otrzymane wyniki mają 
mieć postać: 

W1 = W2 = 

W3 = 

W4 = 

Uwagi: zamiast przecinka piszemy kropkę (.) 
obliczając wartość ułamka należy wzór występujący w li- 
czniku zamknąć w nawiasy, tak samo w mianow- 
niku i dopiero dzielić: (łicznik)/(mianownik) 
Ekran telewizyjny zawiera 24 linie po 32 znaki i jest 
podzielony na dwie części w poziomie i w pionie. Linie i 
znaki numerowane są od zera. Górna część ekranu za- 
wiera maksimum 22 linie ((K-21) i wyświetla program al- 
bo wyniki. Dolna część ekranu jest wykorzystywana do 
wprowadzania rozkazów, wierszy programu i danych 
wejściowych, a także do wyświetlania komunikatów. 
Zawiera ona dwie linie (linie 22 i 23), górna jest zawsze 
pusta, ale powiększa się w miarę zapisywania. Gdy dolna 
część tekstu dojdzie do tekstu zapisywanego w części 
górnej ekranu, powoduje to w miarę zapełniania, stop- 
niowe usuwanie tekstów napisanych w pierwszych wier- 
szach ekranu poza ekran. 

Znaki w każdej linii podzielone są na dwie części: 
pierwsża — znaki od 0 -r 15 
druga — znaki od 16 -i- 31. 

Każda taka część nazywana jest strefą, można także 
powiedzieć, że każda z nich jest kolumną. 


Jak zauważyliśmy , (przecinek) w PRINT powodował pi- 
sanie danej umieszczonej przed , w pierwszej części (ko- 
lumnie), a danej umieszczonej po , w drugiej części (ko- 
lumnie), natomiast ' (apostrof) pisanie w pierwszej części 
(w jednej kolumnie). 

Otrzymywane przez nas wyniki pozostawały na ekranie. 
Naciśnijmy klawisz z symbolem CLS (klawisz V) na kurso- 
rze K i ENTER. Nastąpi „oczyszczenie" ekranu, na dole 
ekranu pojawi się napis 0OK, 0 : 1. Zapamiętajmy CLS 
— służy do „oczyszczania" ekranu telewizora. 

• W czasie naszej pracy mogły pozostać w naszym kom- 
puterze, w jego pamięci, niepotrzebne informacje, naciś- 
nijmy klawisz z symbolem NEW (kursor K — klawisz A) i 
ENTER. Nastąpi „oczyszczenie" pamięci komputera (i 
ekranu), a na ekranie pojawi się napis: 

® 1982 Sinclair Research Ltd 

Zapamiętajmy, że przed rozpoczęciem nowej pracy 
należy „oczyścić" pamięć komputera i do tego służy 
komenda NEW. Weźmy teraz numer pierwszy „IKSa" i 
spróbujmy wprowadzić do komputera jeden z podanych 
tam programów np. Kalendarz. Pamiętajmy, że wprowa- 
dzając kolejne linie opatrzone numerami, po zakończe- 
niu pisania każdej z nich, naciskamy ENTER. 

Po wprowadzeniu ostatniej linii (linie te powinny po 
wykonaniu naszych czynności znajdować się w górnej 
części ekranu) naciśnijmy klawisz z symbolem RUN (kur- 
sor K — klawisz R) i ENTER. 

Wprowadzone linie znikną, a na ekranie zaczną się 
pokazywać odpowiednie napisy wyprowadzane przez 
ten program. 

Jeżeli udało się nam wprowadzić bezbłędnie ten pro- 
gram i wykonać go, możemy uznać, że umiemy już pos- 
ługiwać się klawiaturą ZX Spectrum. 

Z.W. 
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POCIĄGÓW OPóiNIEN/A BE OZIE My 
^MOEU PODAWAĆ Z DOKŁADNOŚCI, 
yySięCZNYCH CZĘŚCI 


SEKUNDY/ 


Przed nami 
piąta generacja 


T RUDNO jest dziś określić, 
jakie będą komputery 
piątej generacji, bo cho- 
ciaż prace nad nimi są zaawanso- 
wane, to żadna z firm nie zapre- 
zentowała do tej pory takiego 


Jaka będzie piąta generacja? 

urządzenia. Pojawia się natomiast 
coraz więcej publikacji zapowia- 
dających rychłe nadejście nowej 
generacji. Wynika z nich, że w 
komputerach tych będzie pow- 
szechnie stosowana sztuczna inte- 
jigencja, umożliwiająca między 
innymi porozumiewanie się z ma- 
szyną za pomocą języka natural- 
nego — takiego, jakim posługu- 
jemy się na co dzień. Znajdą się w 
nich również systemy ekspert, da- 
ice możliwość analizowania naj- 
ardziej skomplikowanych prob- 
lemów dotyczących konkretnej 
dziedziny na podstawie własnej 
bazy programów i danych zawar- 
tych w pamięci komputera i moż- 
liwych ao przechowywania na dy- 
skach lub innych nośnikach in- 
formacji. 

Jednym z głównych sponsorów 
badań w tej dziedzinie jest Penta- 
on, który w ramach programu 
Cl (Strategie Computing Initiati- 
ve — Strategiczna Inicjatywa Ob- 
liczeniowa) przeznaczył do końca 
1990 roku 600 min doi. na rozwój 
najnowszych technologii kompu- 
terowych. Program ten, obejmu- 
jący między 1 innymi mikroelek- 
tronikę, architekturę kompute- 
rową, systemy ekspert f ^liczną 
inteligencję, odegrać ma znaczą- 
cą rolę w rozwoju techniki kom- 
puterowej nie tylko dla celów 
wojskowych, ale również komer- 
cyjnych. 


W programie tym przedstawio- 
ny jest następujący przykład wy- 
magań stawianych komputerowi 
nowej generacji, zastosowanemu 
do sterowania wozem bojowym; 
pojazd ten musi mieć zdolność 
samodzielnego planowania trasy 
przejazdu z szybkością co naj- 
mniej 60 km/goaz., wykorzystując 
do tego celu dane cyfrowe o te- 
renie i otoczeniu, uwzględniając 
jednocześnie zmieniające się wa- 
runki pola walki. Aby spełnić te 
wymagania będzie wyposażony w 
zespół sprzężonych komputerów, 
przystosowanych do pracy w 
trudnych warunkach terenowych 
i bojowych, które będą sterować 
systemem wizyjnym i systemem 
ekspert dla celów nawigacji. 
Komputery te będą posiadały 
procesory równoległe, ponieważ 
żaden komputer wykonujący ins- 
trukcje szeregowo nie byłby w 
stanie spełnić narzuconych wy- 
magań. System ekspert zastoso- 
wany do celów nawigacji będzie 
zawierał około 6500 podprogra- 
mów, które będą wykonywane z 
szybkością 7000 podprogramów 
na sekundę (dla porównania 
obecne systemy ekspert rzadko 
przekraczają 1000 podprogramów 
i mają szybkość nie większą niż 
100 podprogramów na sekundę). 
System wizyjny ma przetwarzać 
dane w czasie rzeczywistym. Do 
tego celu będzie zastosowany 
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komputer o możliwości wykony- 
wania od 10 do 100 mld operacji 
na sekundę (dzisiejsze komputery 
uzyskują szybkość zaledwie kilku- 
set milionów operacji na sekun- 
dę). Kierujący pojazdem będzie 
miał do swojej dyspozycji kompu- 
ter wspomagający, który odciąży 
go od wszelkich czynności zwią- 
zanych z obsługą pojazdu, tak aby 
cały swój wysiłek intelektualny 
mógł skupić na wykonywaniu za- 
dań bojowych. System rozpo- 
znawania mowy zapewni możli- 
wość porozumiewania się z ma- 
szyną za pomocą komend słow- 
nych. 

T AKA wizja rozbudza wy- 
obraźnię. Komputery piątej 
generacji dokonają kolejnej 
rewolucji naukowo-technicznej, w 
fabrykach będą sterować superprecy- 
zyjnymi robotami i całymi ciągami 
technologicznymi, w lotnictwie za- 
stąpią pilotów, będą sterować okrę- 
tami, a prowadzenie samochodu to 
już drobnostka — zastąpią człowieka 
nie tylko tam, gdzie wymagana jest 
duża szybkość i precyzja działania, 
ale i w takich dziedzinach, w których 
potrzebna jest przede wszystkim 
ogromna wiedza i doświadczenie, jak 
np. medycyna, tłumaczenie z języ- 
ków obcych czy finansowość. 

P ODSTAWOWĄ trudnością 
we wprowadzeniu nowej 
generacji jest brak elemen- 
tów elektronicznych zapewniających 
odpowiednio dużą szybkość działa- 
nia. Nadzieją są elementy wykonane 
z arsenku galu charakteryzujące się 
małym poborem energii, dużą szyb- 
kością działania i równie dużą od- 
pornością na promieniowanie. Op- 
tymiści twierdzą, że komputery piątej 
generacji podbiją świat na początku 
lat dziewięćdziesiątych naszego stu- 
lecia. Jak będzie — zobaczymy. Na 
razie musimy jeszcze trochę pocze- • 

kać w. O. 

UPOWSZECHNIENIU hompute- 

SYSTENU STERÓW Zim RUCHEM 



dokończenie ze strony 19 

Procesor graficzny steruje wyświetlaniem obrazu na ek- 
ranie lampy elektronopromieniowej oraz przyjmuje 
sygnały pochodzące od urządzeń operatorskich. W 
prostszych rozwiązaniach niektóre urządzenia operator- 
skie dołączone są bezpośrednio do komputera. 

Procesor graficzny wyposażony jest w pamięć bufo- 
rową (pamięć obrazu). W pamięci obrazu znajdują się 
programy graficzne, opisujące obraz wyświetlany na ek- 
ranie lampy. Programy graficzne generowane są w kom- 
puterze i przesyłane do procesora graficznego. 

Urządzenia operatorskie grafoskopu służą do komu- 
nikacji operatora z komputerem. Komunikacja ta może 
odbywać się z wykorzystaniem danych zobrazowanych 
na ekranie monitora. 

Pióro świetlne jest urządzeniem reagującym na światło 
emitowane przez luminator lampy. Umożliwia to bez- 
pośrednie sprzężenie pióra z obrazem wyświetlanym na 
ekranie. Operator, posługując się piórem świetlnym, ma 
możliwość wskazywania elementów obrazu lub też, po- 
przez pozycjonowanie piórem specjalnego znacznika 
świetlnego, wskazywania interesujących go miejsc na 
ekranie, 
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Manipulator kulowy służy do pozycjonowania zna- 
cznika świetlnego na powierzchni ekranu. Manipulator 
składa się z kuli opartej na rolkach i z dwóch przetwor- 
ników analogowo-cyfrowych. Obracając kulą wywołuje 
się obrót przetworników, z których jeden odpowiada 
zmianom współrzędnej X, a drugi współrzędnej Y. Po- 
stać cyfrowa współrzędnych X, Y wykorzystywana jest do 
pozycjonowania znacznika świetlnego; współrzędne te 
mogą być ponadto wykorzystane do budowania obrazu 
kreślonego bezpośrednio na ekranie monitora. 

Klawiatura funkcyjna umożliwia przesyłanie do kompu- 
tera danych cyfrowych, odpowiadających numerom 
klawiszy funkcyjnych. Przesyłanie danych odbywa się w 
trybie przerwań. Poszczególnym klawiszom funkcyjnym 
można przyporządkować procedury użytkowe. Użyt- 
kownik ma w ten sposób bardzo dogodną możliwość ak- 
tywizowania wybranych fragmentów oprogramowania 
użytkowego. 

Klawiatura alfanumeryczna służy do wprowadzania do 
komputera danych tekstowych. Tą drogą kierowane są 
przede wszystkim dyrektywy systemu operacyjnego, dy- 
rektywy edycyjne itp. 

Jerzy CHMURZYŃSKI 

lak budować program graficzny — 
napiszemy w numerze 3. 


Liga Myślących 


Zadanie nr 1 

Boisko sportowe ma kształt prostokąta o bokach 
długości 80 m i 60 m. Dookoła boiska (w jego wnę- 
trzu) biegnie droga o stałej szerokości. Jaka jest 
szerokość drogi, jeżeli jej powierzchnia równa się 
połowie powierzchni boiska? 


Zadanie nr 2 

Antykwariat zakupił dwa przedmioty za 225 zł, a 
sprzedał je o 40 % drożej. Ile zapłacono za każdy 
przedmiot, jeżeli cena pierwszego zwiększyła się o 
25 %, a drugiego o 50 %. 


Zadanie nr 3 

Woda wlewa się do zbiornika przez 2 krany, z któ- 
rych jeden może napełnić zbiornik w 12 godzin, 
drugi w 8 godzin. Początkowo otwarty został kran 
pierwszy, a po upływie 2 godzin otworzono rów- 
nież i drugi. Po ilu godzinach od chwili otworzenia 
pierwszego kranu zbiornik będzie pełen? 


Zadanie nr 4 

Podaj algorytm rozwiązania równania kwadrato- 
wego 

ax 2 + bx 4- c = 0 


Zadanie nr 5 

Pociąg odchodzi o godz. szóstej. Ile minut pozosta- 
ło do jego odjazdu, jeżeli przed 50 minutami było, 
licząc od godziny trzeciej, cztery razy tyle czasu, ile 
pozostaje obecnie? 


Zadanie nr 6 

Zegar wybija godzinę trzecią, a czas trwania jego 
uderzeń wynosi 3 sekundy. Ile czasu zajmuje wybi- 
cie przez zegar godziny czternastej? 


Rozwiązania zadań prosimy przysyłać pod adresem redakcji 
do końca czerwca br., z dopiskiem „Liga Myślących”. Punktacja 
zależy od liczby prawidłowych rozwiązań. Wśród uczestników 
rozlosujemy książki, a na zwycięzców „Ligi” czekają dodatkowe 
cenne nagrody — niespodzianki. 
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Pocztowa giełda 


Drodzy Czytelnicy! Ogromnie ucieszył 
nas „bukiet” kolorowych kartek i listów 
jako odpowiedź na ukazanie się pierw- 
szego numeru „IKS-a”. Tak jak zapowiada- 
liśmy wcześniej, wśród Czytelników, któ- 
rzy nadesłali prawidłowe odpowiedzi, roz- 
losujemy nagrody. Podsumujemy również 
„Ligę Myślących”. Wykorzystamy wszyst- 
kie Wasze uwagi zawarte w nadsyłanych 
ankietach. 

Wszystko to uczynimy w 3 numerze. 

Rozwiązania krzyżówek należy przysy- 
łać tylko na kartkach pocztowych. Przy- 
pominamy nasz adres: 

„IKS” — ul. Grzybowska 77, 

00 — 950 Warszawa 


Notowania na warszawskich „kompute- 
rowych targowiskach” w kwietniu przed- 
stawiały się następująco: 

ZX Spectrum 48K — 80 — 90 tys. 

ZX Spectrum Plus — 125 tys. 
Commodore VC 1531 — 90 tys. 
Commodore C 64 — 180 tys. 

Commodore VC-20 — 65 tys. 

Atari 130 XE — 160 tys. 

Schnaider Amstrad CPC464 — 260 tys. 
Meritum 1 — 160 tys. 


Leszek Denkiewicz 


UWAGA! 

Przykłady programów będziemy również 
publikować w sobotnio-niedzielnych 
wydaniach „Żołnierza Wolności”. 


Przyjmujemy ogłoszenia reklamowe 
oraz ewentualne płatne ogłoszenia o 
kupnie lub sprzedaży sprzętu kompute- 
rowego. Chcesz kupić (sprzedać) mikro- 
komputer napisz do „IKS-a”! 


W naszym komputerlandzie 

W naszym Komputerlandzie także już wiosna. Zapra- 
cowany Spektruś nie spostrzegł jej nawet, bo w zimie tak 
wszystko zamarzło, że tylko dziełoroby, góralami zwane, 
i roboty z MPO pamiętały, że zima kiedyś się kończy. 

Jednakże rozglądając się pilnie dookoła, Spektruś za- 
uważył, że niemłoda już komputerzyca, Odra, jakby oży- 
ła, poweselała i zalotnie jęła zerkać w jego kierunku 
wielkimi, wirującymi oczami. 

Od kilkunastu już lat zajmowała pierwsze miejsce poś- 
ród największych i najpiękniejszych w komputerlandz- 
kim fraucymerze. Jedną tylko wadę miała, o której mało 
kto wiedział, ale komputerlandzkie roboty nieraz się 
przez nią nacierpieć musiały. Crymaśna i kapryśna bo- 
wiem była okrutnie, zwłaszcza gdy o programy chodziło. 

Pewnego razu przed wielkim balem, na który kwiat 
Komputerlandu sproszono, owa komputerowa dama 
specjalnie szykownego programu u Spektrusia zażądała, 
by gości oczarować. Pracował Spektruś dniem i nocą, by 
coraz to innym kaprysom komputerzycy sprostać. W 
przeddzień imprezy, gdy po napisaniu ostatniego algo- 
rytmu rozwiązania programowe zaproponować jej 
pragnął, dama kapryśna wydziwiać zaczęła. A to pro- 
gram za mało ambitny, a to niezbyt szeroki, wreszcie 
niekomunikatywny. Na koniec i to, że niestarannie zapi- 
sany. Rwać poczęła taśmy i niszczyć mozolne dzieło 
Spektrusia. Łatał, składał do rana... 

Podglądał: 

Eugeniusz MLECZAK 


Lista 

„przebojów” 


Różne są zamieszczone na naszych ła- 
mach programy; bywają dobre i atrakcyj- 
ne, a także odwrotnie, wzbudzają nie- 
wielkie zainteresowanie. List.i,, przebo- 
jów” to aktualne notowania popularności 
naszych prezentacji. 

Oto pierwsze pozycje na „Liście”, które 
ustaliliśmy na podstawie wielu odebra- 
nych telefonów: 

1. Program 2 — „Wykresy” 

2. Program 4 — „Wyścigi psów” 

Nasza „Lista” jest otwarta. Będziemy na 
niej starannie odnotowywać głosy Czytel- 
ników. Czekamy też na inne propozycje 
— na najciekawsze z nich, oprocz opubli- 
kowania i autorskiego honorarium, czeka- 
ją nagrody. 
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Krzyżówka nr 2 

C O E F G H I 
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POZIOMO: 8-1) serce komputera, A-3) umożli- 
wia porozumiewanie się z komputerem, A-5) do- 
wódca arabski w XII w., F-5) płyta, A-6) owocowy 
lub trawienny, D-7) polowanie, A-8) zestaw da- 
nych, C-9) jeden z rejestrów mikroprocesora, 
A-10) grono, koło, D-11) klacz, A-12) 0 lub 1, A-13) 
daszek, F-13) kamień półszlachetny, A-15) myśli- 
ciel, A-17) zakrętka. 

PIONOWO: A-2) ma każdy bajt pamięci, A-8) sieć, 
A-12) na statku, sierżant, B-5) nad rzeką, B-10) nie 
umie programować, C-8) mata Aleksandra, C-1) 
uprawia ziemię, C-12) zakład drzewny, D-7) rodzaj 
drewna, E-1) może być rozkazowy, E-6) rzeka w 
ZSRR, E-11) w gamie, E-14) nazwisko i ..., C-1) w 
„Iksie”, G-11) chrząszcz, F-7) płynie po twarzy 
dziecka, H-7) wciśnięcie, 1-1) skrawek, 1-11) sklep z 
lekarstwami. 

5 i £ 2 K 

HASŁO: F-S, B-3, H-7; H-10, D-9, E-17; F-9; D-10, 
B-15, B-S, H-3. 

f=) M I 

Rozwiązania (tylko hasło) należy przesyłać pod ad- 
resem redakcji do końca czerwca br. Wśród czy- 
telników rozlosujemy bony pieniężne i nagrody 
książkowe. 


Mikrociekawostki 



Wiele spośród produkowanych poza Europ* systemów mi- 
krokomputerowych nie zawsze w pełni odpowiada wymaganiom 
i właściwościom gospodarki europejskiej. jedną z firm, która 
specjalizuje się w produkcji systemów mikrokomputerowych 
uwzględniających wymagania rynku europejskiego jest holen- 
derska firma COMPUDATA. Dotychczas wypuściła ona na ry- 
nek europejski ponad 7500 różnych systemów mikrokompute- 
rowych. Obecnie oferuje nowy, 16- bit o wy system mikrokom- 
puterowy do zastosowań komercyjnych. 

System TULIP, bo o nim mowa, obejmuje 16- bitowy mikro- 
komputer mający magistralę o strukturze 16-błtowej (mikro- 
procesor Intel 8086) i bardzo dużej szybkości przesyłania infor- 
macji kooprocesor arytmetyczny (Intel 8087), pamięć wewnętrz- 
ną o pojemności 128 KB, którą można rozszerzyć do 896 KB, 
pamięć zewnętrzną na dyskach twardych o pojemności 
do 10 MB plus 5 MB na dyskach wymiennych. W skład sy- 
stemu wchodzi również barwny monitor o dużej zdolności 
rozdzielczej oraz klawiatura pozwalająca realizować 104 funk- 
cje. Możliwość pracy w systemie operacyjnym o MS/DOS jak 
również CP/M86 umożliwia korzystanie z bogatego oprogra- 
mowania profesjonalnego, opracowanego przez Inne firmy. 



„IKS” — dodatek „Żołnierza Wolności”. Redagują: Wiesław Cetera, Ryszard Rogoń. Adres redakcji: 00 — 950 Warsza- 
wa ul. Grzybowska 77, telefon 20-21-27 i 359-34. Rękopisów nie zamówionych redakcja nie zwraca i zastrzega sobie pra- 
wo do skrótów. Nakładem: W dawnictwa „Czasopisma Wojskowe”, Warszawa ul. Grzybowska 77. Fotoskład i druk ro- 
tograwlurowy — Wojskowe Zakłady Graficzne im. gen, dyw. A. Zawadzkiego. Nę zam. 7695. Nr Ind. 382809 P-70 
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J UŻ wkrótce po ukazaniu się pier- 
wszego numeru „IKS-a” dosłownie 
zasypani zostaliśmy listami. Ile ich 
przyszło? Nie liczyliśmy, ale codziennie 
poczta dostarczała nam ich ponad tysiąc 
— może jest ich 15, a może 20 tysięcy. Nie 
wszystkie możemy czytać natychmiast, ale 
z pewnością wszystkie przeczytamy. Dzię- 
kujemy za rady, uwagi i życzenia. Jeśli 
„IKS” ma być pismem dobrym, to każdy 
jego numer powstawać musi przy pomocy 
Czytelników. Stąd też tak niecierpliwie 
oczekujemy Waszego głosu. 

Niezwykle ciekawa jest lektura nadesła- 
nych ankiet. Prawie wszyscy domagacie 
się publikowania na naszych łamach pro- 
gramów na różne mikrokomputery, jedni 
proszą o programy gier, inni o programy 
użytkowe. Oczywiście będziemy je dru- 
kować. Ale prasa rządzi się własnymi pra- 
wami; nie możemy zamieszczać progra- 
mów długich. To, co proponujemy, to 
krótkie konstrukcje programowe, sądzimy 
jednak, że okażą się ciekawe. 

Ale prezentowanie programów nie mo- 
że byc naszym najważniejszym celem. Bo 
przecież bez względu na ich atrakcyjność 
wymagają od użytkowników jedynie bier- 
nych umiejętności i ciąg komend trzeba 
wczytać do komputera i potem jednym 
rozkazem uruchomić wprowadzony pro- 
gram. Nie potrzebna tu jest żadna wiedza 
— liczy się jedynie sprawność rąk. A gdy 
zdarza się pomyłka, bo przecież zdarzyć 
zawsze się może, okazuje się, że nie za- 
wsze można sobie z jej usunięciem po- 
radzić. 


I EDNI uważają, że od użytkownika 
I takich umiejętności wymagać nie 
J można; wystarczy, że będzie znał 
programy, ich przeznaczenie i poradzi 
sobie z ich uruchomieniem. Zgoda. Dla 
wielu komputer pozostanie na zawsze 
czarną skrzynką, urządzeniem o niezna- 
nej konstrukcji, ale poznanych możliwoś- 
ciach. Dociekliwi będą natomiast poszu- 
kiwać i im chcemy pomóc. Z „IKS-em” 
łatwiej będzie usiąsć przed komputerem i 
rozpocząć z nim „rozmowę”. Mamy na- 
dzieję, że tak burzliwie rozwijające się 
kluby mikrokomputerowe sprawią, że do- 
stęp do tych urządzeń będzie łatwiejszy, 
że Komputery trafią „pod strzechy”. 

Redakcja 



Uwaga! Btąd w programowaniu... 

Ry*. Michał Przybyłowakl 
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Krótka historia 
mikroprocesorów 


Niemal czterdzieści lat temu, bo w 1947 
roku powstał pierwszy tranzystor. Po kil- 
ku latach doświadczeń, prawdopodobnie 
w celach oszczędnościowych, spróbowa- 
no^ umieścić kilka tych elementów w jed- 
nej obudowie. Rezultatem poszukiwań 
był (w 1959 roku) pierwszy układ scalony, 
tak zwanej malej skali integracji (SSI — 
smali ' — scalę integration). Z czasem w 
jednej obudowie „upakowywano” coraz 
więcej elementów a produkt finalny elek- 
tronicy nazwali „kością”. Pojawiła się 
również średnia skala integracji, około 50 
tranzystorów w jednej obudowie (MSI — 
medium — scalę integration), następnie 
duża skala integracji — tysiące tranzysto- 
rów w jednej obudowie (LSI — large — 
scalę integration). — Ostatnio króluje 
bardzo duża skala integracji — miliony 
tranzystorów w jednej obudowie (VLSI ve- 
ry large scalę integration). 

Istniejąca zaledwie od roku firma Intel na bazie 
osiągnięć „upakowania” zbudowała pierwszy 
układ pamięci półprzewodnikowej, o zawrotnej 
jak na ówczesne czasy (1969) pojemności — tysiąc 
(1K) bitów. Był to okres intensywnych prac nad 
kalkulatorami. Poświęcone im badania, w ciągu 
niecałych dwóch lat dają efekt w postaci pierwsze- 
go mikroprocesora 4004. Zgodnie z przyjętą no- 
menklaturą mikroprocesory zazwyczaj nie mają 
nazw literowych, jest to szereg cyfr (minimum 
czterech), czasami poprzedzonych symbolem lite- 
rowym. Czterobitowa struktura nowego mikro- 
procesora wynikała z przeznaczenia — kalkulatory 
oraz obowiązujące standardy BCD (binary-coded 
decimal). Innymi słowy chodziło o to, by procesor 
przetwarzał cyfry dziesiętne — zapisanie ich wy- 
maga właśnie czterech bitów. 4004 wykonuje 
sześćdziesiąt tysięcy operacji w czasie jednej se- 
kundy. 

Między innymi konieczność dostosowania się do 
terminali wykorzystujących standard ASCII (Ame- 
rican Standard Codę for Information Interchange) 
przyczyniła się do rozpoczęcia badań nad mikro- 
procesorem ośmiobitowym. W kwietniu 1972 roku 
prace te zostają uwieńczone sukcesem — uru- 
chomiono produkcję mikroprocesora 8008. jego 
szybkość jest imponująca — ’/ 3 miliona instrukcji 
na jedną sekundę. Listę rozkazów tworzy aż 45 
różnych instrukcji, które mogą operować na da- 
nych z pamięci o pojemności 16 000 (16K) słów. 


Wydaje się, że osiągnięcie to stanowiło ostatni 
element fundamentów mikrokomputera, bowiem 
już na przełomie wiosny i lata 1974 roku pismo Ra- 
dio — Elektronics prezentuje pierwszy mikrokom- 
puter MARK-8. Jego twórcą jest Jonathan Titus. 

Kolejnym dzieckiem z rodziny mikroproceso- 
rów jest 8080, który realizuje 75 instrukcji, a jego 
pamięć może mieć 64K słów. 

W celach sondażowych firma MIT5 buduje mik- 
rokomputer ALTAIR 8800 z pamięcią 256 słów (nie 
256k!) za 395 $. Jest to cena stosunkowo niska, a 
producent, nie bez podstaw, zapewniał kupują- 
cych, że nabywają swój własny, prywatny, osobisty 
komputer. Firma MITS mogła sprzedać więcej w 
jeden dzień, niż planowała sprzedać przez okres 
całej produkcji ALTAIRa. Sukcesu należy upatry- 
wać w tym, iż architektura tego komputera pozwa- 
lała dołączać urządzenia peryferyjne. Jednym z 
nich jest kontroler dysków zbudowany przez Digi- 
tal Microsystems. W mikrokomputerze wykorzy- 
stano po raz pierwszy system operacyjny CP/M 
(Control Program for Microcomputers). 


dokończenie na alr. 4 



Masowa produkcja układów scalonych 
— nowa perspektywa elektroniki 
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W odpowiedzi na 8080 firma Motorola rozpo- 
czyna produkcję 6080 wraz z układami pozwalają- 
cymi łączyć mikroprocesor z peryferiami. Krótko 
potem rodzina tego procesora powiększa się o 
układy zapewniające kontakt z urządzeniami ze- 
wnętrznymi drogą transmisji równoległej — 6820 
oraz szeregowej — 6850. 

Jeden z filarów Intela — F. Faggin uznał, nie bez 
podstaw, iż bardziej kalkuluje się mu założyć włas- 
ną firmę — Zilog. Wraz z Masatoshi Shima tworzą 
mikroprocesor „super 8080” — Z80 (4 MHz) 176 
instrukcji! (Częstotliwość np.: 4 MHz, 2 MFłz okre- 
śla liczbę podstawowych operacji, jakie może wy- 
konać procesor w czasie jednej sekundy). Był to 
bezwzględnie lepszy mikroprocesor od swego 
konkurenta 8080. 

Intel „trzymający rękę na pulsie rozwoju mikro- 
procesorów” buduje w 1976 roku 8085 (3 MHz). 
Może ze względu na nieobecność F. Faggina, pro- 
cesor te nie spełnił pokładanych w nim nadziei. 
Dopiero w 1978 roku prawie pełen sukces odniósł 
już sze$nastobitowy 8086, ale tu wystąpiły kłopoty z 
oprogramowaniem. 

Realizacja pomysłu tak zwanego „busa” dopełni- 
ła oczekiwanego sukcesu. Mikroprocesor z „bu- 
sem” 8088 („młodszy brat” 8086) jest w swej istocie 
16-bitowy, ale ma osrhiobitowe połączenie (bus) 
„do zewnątrz", tam gdzie niepodzielnie panuje 8- 
-bitowy standard. 

Podobnie Motorola w 1979 roku prezentuje 
„szesnastkę” — MC 68000. Mimo skorzystania z 
doświadczeń Intela w zakresie dobudowania „bu- 
sa”, czego wynikiem był 68008, mikroprocesor 8088 
okazał się znacznie lepszy. 

Warto wiedzieć, że 68000 to układ z możliwością 
mikroprogramowania (tak zwane programowanie 
„random — logie”). Ma to kapitalne znaczenie 
wszędzie tam, gdzie istotna jest szybkość wykony- 
wania operacji. 

Motorola 68020 pozwala na dynamiczną modyfi- 
kację rozmiaru „busa" 8, 16 lub 32 bity i jest kom- 
patybilna z 68000. Zwiastuje to narodziny pier- 
wszego mikroprocesora. 

Wysiłki Intela skierowane zostają na budowę 
80386 — 32-bitowej wersji 80286. Również wcześ- 
niej wspominany procesor ZX 80 jest doskonalony, 
powstaje 16-bitowy Zilog Z800 kompatybilny z Z80. 
Niestety prace te skończyły się niepowodzeniem. 
Jeden z głównych konstruktorów Ż800 Masatoshi 
Shima odszedł, podobnie jak wcześniej jego szef z 
Intela, i nikt nie potrafił poprawnie dokończyć 
oprogramowania Z800. Zdarzenie to dowodzi, że i 
dzisiaj w dobie mikroprocesorów, praca i talent 
jednostki bywają niezastąpione. 

Dotychczasowa praktyka konstruktorów wskazu- 
je, iż jednym z podstawowych dylematów podczas 
budowy nowych mikroprocesorów jest liczba ins- 
trukcji. Wartość ta z jednej strony decyduje o 
szybkości, z drugiej natomiast o złożoności układu 
procesora; im krótszy czas wykonywania określo- 
nych czynności tym bardziej skomplikowana pro- 
dukcja tego układu, 
dokończenie na str. 5 


Amerykańska firma NCR, kfórej siedziba 
mieści się w Dayton, jest jeszcze mało znana na 
światowym rynku komputerowym. Oferowane 
przez nią komputery NCR PC4i, NCR PC6 i NCR 
PC8 są w pełni kompatybilne z komputerami fir- 
my IBM a ponadto są od nich tańsze. Pracują w 
oparciu o 16-bitowy procesor 8088 (NCR PC6 i 
NCR PC4i) i 80286 (NCR PC8). Pojemność pa- 
mięci 256KB z możliwością rozszerzenia do 640 
KB. Posiadają możliwość dołączenia stacji dy- 
sków miękkich i twardych co pozwala na zwięk- 
szenie pamięci do 20 MB. 




dokończenie ze str. 4 

Ostatnio podejmowane są starania, by procesory 
wykonywały bezpośrednio instrukcje języków 
wyższego poziomu. Przykładem jest procesor 
NOV!X, który wykonuje instrukcje języka FORTH. 

Doskonalenie sprzętu mikro często jest źródłem 
nieoczekiwanych wytworów, jakim jest np. 
•NMOS — transputer, układ pozwalający na rów- 
noległe przetwarzanie danych. Minie prawdopo- 
dobnie wiele czasu do jego użytkowego oprogra- 


mowania. jednak perspektywa jest oszałamiająca. 
Ale już dzisiaj można kupić układ, RISC (reduced 
instruction set Computer), „przyśp|esf«iicz-’\ który 
po dołączeniu do procesora znacznie skraca czas 
. realizacji instrukcji. 

Co dalej? Firma Hitachi proponuje pamięci, w 
niektórych tradycyjny bit stał się wielowartościo- 
wy. Ma cztery stany, a czas dostępu wynosi od 1 do 
2 mikrosekund! Dla koneserów mikro Toschiba 
poleca pamięci RAM o pojemności 1 megabit każ- 
dy układ, z czasem dostępu 60 nańosekund. 


Z historii mikroprocesorów 

1948 Wynaleziono tranzystor. 

1959 W Texas Instruments powstaje pierwszy zintegrowany obwód. 

1964 J. G. Kemeny, T. E. Kurtz w Dortmouth College stworzyli BASIC 

1971 Intel Corp. rozpoczyna sprzedaż 4-bitowego mikroprocesora 4004 za 200 $. 

1972 W grudniu Intel proponuje 8-bitowy mikroprocesor 8008. 

1973 Początek produkcji 8080. 

" "all opracowuje system operacyjny CP/M. 


IBM 5100, Ba- 


1974 Gary Kidall 

Zimą Zilog wprowadza do handlu mikroprocesor Z80. 

1975 W październiku firma IBM oferuje mikrokomputer w teczce • 
sic, 16K pamięci, cena 9000 $. 

1976 Pierwszy 16-bitowy mikroprocesor TM S9000 produkcji Texas Instruments. 

W sierpniu pierwszy floppy-disk-drive, 8 cali (1195 $). 

1977 Kwiecień — Commodore Business Machines Inc. produkuje komputer PET 
(procesor 6502, 4K RAM, 14K ROM, klawiatura, monitor, magnetofon. 

Lipiec — Apple Computer (6502, 4K RAM, 16K ROM, klawiatura, interfejs do 
kaset, specjalizowane gniazda, kolorowy monitor. 

1978 Grudzień — Zaprezentowana zostaje drukarka mozaikowa MX-80. Powsta- 
je Atari 400 i 800, 8K RAM (do 48K), dwa gniazda do ROM. 

1980 Powstaje do dzisiaj popularny, na bazie Z80A, 1K RAM, 4K ROM. 

Czerwiec — Shugart sprzedaje pierwsze „twarde dyski” typu Winchester — 
5% cala. 

1981 Wrzesień — dostępny w sklepach IBM Personal Computer (PC), mikroproce- 
sor 8088, 64K RAM, 40K ROM, 5% cala dyski. 

1982 Lato — Commodore 64, procesor 6510, 64K RAM, 20K ROM, dobrej jakości 


generator dźwięku, kolory, szeregowy interfejs. 
LOGO — język programowania jest dost 


dostępny w większości komputerów. 
Lipiec — Intel wprowadza na rynek mikroprocesory 80186, 80286. 

1983 Styczeń — pojawia się doskonalsza wersja Atari — ATARI 1200 XL. 

Luty — IBM PC XT, twardy dysk 10 MB, 128K RAM. 

Wrzesień — dostępne są ekrany dotykowe — Touchsreen produkcji Hewlett- 
-Packard Company — HP 150. 

Październik — Shugart Comp. rozpoczyna produkcję optycznych dysków, 
tylko do odczytu, pojemność jeden gigabajt. 

Dostępne są drukarki laserowe o zdolności nanoszenia 300 punktów na 
2,5 cm. 

1984 Styczeń — Apple Computer Inc. przedstawia mikrokomputer Macintosh. 
Pierwszy zegarkowy komputer (produkcji Seiko Instruments), 10 znaków w 
każdej z 4 linii na mini-ekranie LCD, 2K CMOS RAM, 6K ROM. 

Sinclair QL (procesor 68008, 128K RAM, 2 gniazda na mikrokasety). 

Czerwiec — Motorola rozpotzyna produkcję 68020 — 32-bitowy procesor. 
Sierpień — IBM PC AT, 80286, 256K RAM, 1,2 MB floppy-disk arive i szereg 
innych udoskonaleń, w cenie 5469 $. 


cdn. 


oprać. W. GOGOŁEK 
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Plansza gry, przedstawiona na ekra- 
nie, składa się z dziewięciu pól. Częćć 
z nich, wybrana w sposób losowy jest 
jasna, pozostałe są ciemne. Zada- 
niem gracza jest zapalenie 8 pól 
brzegowych 1 wygaszenie środkowe- 
go. W celu przełączenia wybranego 
pola należy przesunąć w jego kierun- 
ku drążek manipulatora I nacisnąć 
czerwony przycisk (FIRE). Można 
wybierać tylko zapalone pola. Zmie- 
niając wybrane pole zmienia się rów- 
nież stan jego sąsiadów stykających 
się z nim brzegami. 


1 REM « ŁAMIGŁÓWKA » 

5 GR.2:GOSUB 20000 
12 DIM A $ ( 1 ),PZ(1 0) 

100 MV = 1:SET.4,0,0 

110 GOSUB 6000:REM KREŚLENIE PLAN 
SZY 

115 GOSUB 7000:REM LOSOWANIE POL 

116 GOSUB 71 00: R E M KREŚLENIE POL 

117 7"CZY CHCESZ INSTRUKCJE GRY"; 
:I.A$ 

118 IF At="T"THEN G08UB 3000:REM 
INSTRUKCJA 

120 TRAP 120 

121 7"[CLEAR] RUCH NR MV;"7" 

130 IF STRIG (JS)=0 THEN 130:REM 
OCZEKIWANIE NA NACIŚNIECIE 
PRZYCISKU 

131 8T = STICK ( J S ) : I F STRIG <JS) = 1 
THEN 131 

138 GOSUB 140 + (8T-S) 

139 GOTO 185 

140 M=3:HETURN 

141 M = 9:RETURN 

142 M = 8:RETURN 

144 M = 1:RETURN 

145 M=7:RETURN 
148 M=4:RETURN 

148 M = 2:RETURN 

149 M=8:RETURN 


M = 5:RETURN 

IF PZ(M)=0 THEN 7”[CLEAR] WY 
BIERAJ TYLKO ZAPALONE POLA 
—TWÓJ RUCH": GOTO 130 
MV=MV+1 

PZ(M)=0:REM WYŁĄCZENIE WYBRA 
NEGO POLA 

GOSUB 7100:REM AKTUALIZACJA 

PLANSZY 

GOSUB 300 + M*10 

MN -0: GOSUB 7100 

FOR Q = 1 TO 9:WN = WN + PZ(Q): 

NEXT O 

IF WN = 8 AND PZ(B)=0 THEN 7500: 
REM WYGRANA 

IF WN=0 THEN 7800:REM PRZEGRANA 
GOTO 120:REM NASTĘPNY RUCH 
PZ(2) = 1-PZ(2):PZ(4)=1-PZ{4) 
PZ(S)=1— PZ(S):RETURN 
PZ(1) = 1-PZ(1):PZ(3) = 1-PZ(3) 
RETURN 

PZ(2) = 1-PZ(2):PZ(B)=1-PZ(B) 

PZ(8) = 1-PZ(8):RETURN 
PZ(7) = 1-PZ(7):PZ(1)=1-PZ(1) 
RETURN 

PZ(8) = 1-PZ(8):PZ(4)=1-PZ(4) 

PZ(8) = 1-PZ(8):PZ(2) = 1-PZ(2) 

RETURN 

PZ(9)=1-PZ(9):PZ(3) = 1-PZ(3) 

RETURN 

PZ(8) = 1-PZ(8):PZ(4)=1-PZ(4) 

PZ(5) = 1-PZ(B):RETURN 
PZ(7) = 1-PZ(7):PZ(9)=1-PZ(9) 
RETURN 

PZ(8)=1-PZ(8):PZ(8)=1-PZ(B) 

PZ(8)=1-PZ(B):RETURN 

END 

J8=98 

FOR X=0 TO 3 

IF STRIG(X) = 0 THEN JS=X:GOSrB 

1100 

NEXT X 

IF JS>3 THEN 1010 
RETURN 

IF STRIG(J8)=0 THEN 1100:REM 
CZEKANIE NA ZWOLNIENIE PRZYCI 
8KU 

RETURN 


150 

155 

160 

100 

101 

250 

260 

270 

260 

290 

300 

310 

312 

320 

322 

330 

332 

340 

342 

350 

352 

364 

360 

362 

370 

372 

380 

382 

390 

392 

999 

1000 

1010 

1020 

1030 

1040 

1050 

1100 

1199 
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6000 COLOR 3 

6010 FOR Z=0 TO 12 8TEP 6 

6016 PLOT 10,Z:OR.28,Z 

6020 FOR X = 10 TO 28 STEP 6 

6030 FOR Y = 1 TO 5 

6040 PLOT X,Y+Z 

6060 NEXT Y:NEXT X:NEXT Z 

6080 PLOT 10,18:DR.28,18 

6099 RETURN 

7000 FOR R=0 TO 10 

7010 PZ(R)=INT(RND(0)+0.5) 

7020 NEXT R 

7099 RETURN 

7100 PN=0 

7110 FOR Z=1 2 TO 0 STEP -8 
7120 FOR X = 1 TO 13 STEP 6 
7122 PN = PN+1:COL.PZ(PN) 

7125 FOR V=1 TO 5 
7130 PLOT X + 10,Y + Z:DR.X + 1«,Y+Z 
7140 NEXT Y:NEXT X:NEXT Z 
7190 RETURN 

7600 OOSUB 8000: REM AKTUA LIZACJA 

7570 ł'TCLEA R1 iVłW:Hii**l-:MV:-niq 

aaaaa- 

7571 SET.4,4,4 

7575 ?"NOWA ORA ”::I.A* 

7590 IF A$=”T” THEN 100 
7596 QR.0:END 

7600 OOSUB 8000:REM AKTUALIZACJA 
7805 7 'tCLEAR] NIE MOZESZ TERAZ WY 
ORAĆ.” 

7606 SET. 4, 12,4 
7610 GOTO 7575 
8000 NG=NG+1 

8010 AV = INT((AV*(NG-1)+MV)/NQ) 

8099 RETURN 

20000 REM STRONA TYTUŁOWA 
20010 ?”[CLEAR]":GR-2:POS.5,4 
20020 ?ft6;” ŁAMIGŁÓWKA" 


20060 JS=99 
20070 FOR X=0 TO 3 
20080 IF 8TRIG(X)=0 THEN JS = X 
20090 NEXT X 
20100 IF J8>3 THEN 20070 
20110 GR.3:RETURN 


30000 ?"[CLEAR] CELEM GRY JEST ZAPA 
LENIE WSZYSTKICH” 

30010 ?"POL PLANSZY OPROCZ SROOKO 
WEGO." 

30020 ?"(C.D. PO NACIŚNIĘCIU <FIRE>)... 
”:GOSUB 1000 

30030 ?”[CLEAR] PRZEŁĄCZASZ POLE PO 
PRZESUNIĘCIU” 

30040 ?"DRAZKA MANIPULATORA W JEGO 
KIERUNKU” 

30050 ?"l NACIŚNIĘCIU CZERWONEGO 
PRZYCISKU ":GOSUB 1000 
30080 ?"[CLEARJ MOŻESZ WYBIERAĆ TYL 
KO ZAPALONE POLA." 

30070 ?"ZMIENIAJAC WYBRANE POLE 
ZMIENIASZ" 

30080 ?”STAN JEGO SASIADOW.”:GOSUB 
1000 

30090 7”[CLEAR] PAMIĘTAJ: RUCH MANI 
PULATORA W GORE” 

30100 ?”WYBIER A GÓRNY ŚRODEK, W 
DOL — DOLNY” 

30110 7”SRODEK; PODOBNIE INNE KIERU 
NKI:"GOSUB 1000 

30120 ?"[CLEAR] PO DOKONANIU WYBO 
RU NACISNIJ” 

30130 7' CZERWONY PRZYCISK (TRZYMA 
JAC JEDNA” 

30140 ?”REKA DRĄŻEK MANIPULATORA).” 
:GOSUB 1000 

30150 ?”[CLEAR] JEŚLI WYŁĄCZYSZ NARO 
ZNIK, TO" 

30160 ?”ZMIENISZ TAKŻE JEGO TRZECH 
SASIADOW.”.GOSUB 1000 
30170 ?”[CLEAR] JEŚLI WYŁĄCZYSZ SRO 
DEK BOKU, TO” 

30180 ?"ZMIENISZ TAKŻE JEGO DWÓCH 
SASIAOOW NA TYM" 

30190 ?”SAMYM BOKU.”:GOSUB 1000 
30200 ?"[CLEAR] JEŚLI WYŁĄCZYSZ SRO 
DEK PLANSZY, TO" 

30210 T”ZMIENISZ TAKŻE ŚRODKOWE 
KWADRATY” 

30220 ?"N A KAŻDYM BOKU.”;GOSUB 1000 
30230 RETURN 


W następnym numerze gra losowa: „Pole minowe” 
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„Histogram” i „Wykres kołowy” są 
programami napisanymi na „Spec- 
trum”. Przeznaczone są do graficznego 
zobrazowania danych — dzięki mm 
wielkości liczbowe z łatwością przeno- 
szone są na odpowiednie wykresy (mo- 
gą przydać się w szkole). 


10 REM UYKRES KOLOUY 
20 REM 

30 BORDER 1: PRPER ?: 

INK 1: CLS 
40 PRINT RT 9,8; 

" UYKRES KOLOUY” 

50 PRINT RT 18,4, FLASH 1; 

"nacisnij dowolny Klawisz”: 
PRUSE 0: CLS 

60 INPUT "Ile liczb wprowadzis 
z ? " ; n 

70 OIM t (n ) 

80 LET suma=0 
90 REM 

100 REM Oczytanie Kolejnych 
liczb 

110 FOR 1=1 TO n 
120 PRINT RT 18,5; "Liczba nr 
I 

130 BEEP .1,5 

140 INPUT liczba 

150 LET suma =suma+li czba : 

LET t (I) =suma 
160 NEXT I 
170 BORDER 7: CLS 
180 LET a=-0 .01 
190 REM 

200 REM Rysowanie wyKresu 

210 FOR 1=1 TO n 

220 INK (I-lINT (1/6) ) *6) /2 

230 LET a =a+0,01 

240 PLOT 127,87 

250 IF INT (1/2) • (INT I) /2 

THEN PLOT 127*76#C03 (a) , 

87 +70tSXN (8) : 

GO TO 270 


260 DRRU 70*COS (1) ,76 *8 IN (a) 
270 if a < t (I) *2*Pi/ayaa -6.01 
THEN GO TO 230 


280 NEXT I 
290 input "Nastapny wyfcres (Tan 

,Nie) ri 

300 IF r i ( 1) ■ "T" 02 r$<i)*"t" 
THEN GO TO 172 
310 STOP 



SPECTRUM 


10 REM HISTOGRRM 
20 REM 

30 BORDER 7: PRPER 7: 

INK 1 . CLS 

40 PRINT RT 3, 10; "HISTOGRAM" 

50 PRINT RT 6,1; f, Prograa wyswi 
etiania danych w postaci wydr 
esu Kolumnowego" 

60 PRINT RT 17,4; FLRSH 1; 

"nacisnij dowolny Klawisz" 
70 PRUSE 0: CLS 
80 INPUT "Ile liczb wprowadzis 
z (max 29) ? "; i l li czb 

90 IF i lii CZb >*30 THEN 
GO TO 80 

100 IF i l li CZb <1 THEN GO TO 80 
110 LET illicZb*INT (illiCZb) 
120 DIM v (i l li CZb) 

130 LET max =0 
140 REM 

150 REM oczytanie Kolejnych 
li czb 

160 FOR 1 = 1 TO i l li CZb 
170 PRINT RT 18,5; INK 2; , 
"Liczba nr ° 

180 BEEP .1,5: 

PRINT RT 18,15, I 
190 INPUT V(I) 

200 IF v (I) >max THEN 
LET max=v (I) 

210 NEXT I 
220 CLS 
230 REM 

248 REM PrzesKi iowanie 
250 LET sKalaal 
260 IF max >20 THEN 

LET sKala*max/20 
270 FOR 1 = 1 TO i l li CZb 
280 LET V ( I) «INT (V(I)/SKala> 
290 NEXT I 
300 REM 

310 REM Rysowanie osi liczbowej 
320 FOR 1=1 TO 20 STEP 2 
330 PRINT RT 21-1,0, 

INT d*sKala + .5) +INT (sKaia) 
340 NEXT i 
350 PLOT 0,0 
360 DRRU 0,175 
370 PLOT 255,0 
380 DRRU -255,0 
390 REM 

400 rem Rysowanie histogramu 
410 FOR 1 = 1 TO i l li czb 
420 FOR J=1 TO V (I) 

430 PRINT RT 22 - J , 2 + I ; "1" 

440 NEXT J 
450 NEXT I 
460 STOP 
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SPECTRUM 


10 rem Uspo iczynni ki Korelacji 
PERRSONH i SPERRMRNR 
20 GO 5U6 4000 

30 CLS : INPUT 'Podaj liCZbe d 

any ch " k 

40 DIM a IK ) 

50 FOR n=l TO K 

60 INPUT "Napisz wartość a";UR 
L "n a (n ) 

70 NEXT n 

80 print "Koniec wprowadzani 
a danych typu a" 

35 print "Kontrolny list dan 
y ch a in ) " 

90 FuR n = 1 TO K 
100 print "a" ; n; " = "; a (n) 

110 NEXT n 
120 LET t*="t" 

130 INPUT "Czy chcesz poprawie 
dane wejs- ciowe?, jeśli TRK na 
Ciśnij Kia- wisz litery t, jeśli 
NIE - Kia- wisz n",u$ 

140 IF t$=U$ THEN GO TO 200 
150 GO TO 1030 

200 input "Podaj numer danej Kt 
ora chcesz zmienić" ' n 
210 INPUT "Napisz poprawna wart 
os c a " , url "n" , a (n ) 

220 GO TO 85 
1040 DIM biK) 

1050 FOR n *1 TO K 

1060 input "Napisz wartość b",UR 

L ri" ; " = " , b in) 

1070 NEXT n 

1080 PRINT "Koniec wprowadzania 


1065 PRINT 

) " ' 

1090 FOR n = 
1100 PRINT 
1110 NEXT n 
1120 INPUT 
dane w e j s - 
1130 IF t$= 
1140 GO TO 
1200 INPUT 
ora chcesz 
1210 INPUT 
o Si: b " , Uhl 
1220 Gu TO 
2040 LfcT Na 
=0 . LET ka = 
' 0 LET KS b = 
2050 FOR n = 
2100 LET Na 
2110 LET 5 a 
2120 LET Sb 
2130 LET Ka 


' "Kon t rolny Ust bln 
1 TO K 

" b " , n ; " = " ; b in ) 

"Czy chcesz popraw rac 
c i o we typu b in ) ?" , u % 
U $ THEN GO TO 1200 
200 © 

"Podaj numer danej Kt 
z (<« i en i c ", n 

"Napisz poprawna wart 
"n " b (n ) 

1085 

b =0 LET Sa =0 : LET 5b 

0 LET KSa =0 . LET Kb = 

0 LET r =0 

1 TO K 

b = a (n ) *b (n ) +Na b 
=a in ) +Sa 
= b in ) +Sb 

=a in ) *a in) -fKa LET ks 


a=sa*Sa. LET kb=b(n)*b(n)4kb le 
T KSb=Sb*Sb 
2135 NEXT n 

2140 REM r - wsp. Korelacji 
2150 LET r = (K*Nab-Sa*Sb) /SQR iiK 
*ka-ksa) * ik *kb-Ksb) ) 

2160 PRINT ' "Uspo l czynn i K Korę 
acji Pearsona r wynosi:", ' , r 


PROGRAM KORELACJE 

UWAGA STATYSTYCY! Program ten 
pozwala na obliczenie wielkości statysty- 
cznej zależności między szeregami dwóch 
kolumn liczb. Wynikiem są wartości 
współczynników Spearmana i Pearsona. 

Że względów praktycznych adresy ins- 
trukcji wydzielają moduły programu. Ma 
to na celu ułatwienie ewentualnych udo- 
skonaleń: kontrola zakresów danych 

wejściowych, zamierzone ich przekształ- 
canie np.: a = a~', a = a', a = ln a. Przeksz- 
tałcenia danych wejściowych pozwalają na 
stwierdzenie innych, poza liniowymi, za- 
leżności; wykładniczych, logarytmicznych 
itp. 


2165 GO SUB 4000 

216? PRINT ' "Obliczanie wspol 
czynntKa sperrhrnr po nac 

isnieciu dowolnego nawis 

za ! " : PRUSE 0 OLS 
2170 print "Ilustracja rang dla 
Korelacji Kolejności Spearman 
a ; '• • 

2900 LET 0=0 
3000 FOR n=l TO K 
3002 LET l=K 
3004 LET Hi=K 
3010 FOR S=1 TO K 

3020 IF aln)<=a(S> THEN GO TO 30 
40 

3030 LET 1=1-1 

3040 IF bln) i =b (S > THEN GO TO 30 
60 

3050 LET «.=i»-l 
3060 NEXT s 

3080 LET 0= I l -# i ł ( l -» ) .0 

3085 PRINT "Ranga a l ", n ,">=", l , " 

b t n; "> «";» 

3090 NEXT n 
3106 LET SP=0 

3110 LET SP =1- i (6*0) / (K» (Kt2-1) ) 

) 

3120 PRINT "Uartosc wspolczynni 
Ka 5peari*ana wynosi: "’,5p 
3125 GO SUB 4000 

3130 print po naciśnięciu do 

wolnego Klawisza p rogra* 

rozpocznie prace od nowa!" 

3140 PRUSE 0 GO TO 20 
4000 BEEP .1,14 BEEP .1,14 BEE 
P .2,5: BEEP .1,14 BEEP .1,14: 

BEEP .2,5 BEEP .1,14 BEEP .1,1 
4: BEEP .1,5: BEEP .1,6 BEEP .2 
,7: BEEP .2,5 8EEP .1,15 BEEP 
.2,6: BEEP .1,15: BEEP .1,14: BE 
EP .2,5 BEEP .1,14 BEEP .1,4. 
BEEP .1,15: BEEP .1,14 BEEP .1, 
6 BEEP .2,5. BEEP .2,5 
6010 RETURN 
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COMMODORE C-64 


Jott to propozycja na C-84 dla wszystkich, którzy chcą wy- 
korzystać w swoich programach sprlta, czyli ruchomy oblakt. 
Program tan pozwala opisać postać sprlta-a na slatca projek- 
towa), równocześnie wyświetlając Jego obraz w prawym dol- 
nym rogu ekranu; pozwala również na podstawie utworzone- 
go obrazu sprlta wygenerować wiersze programu w Baslc-u 
zawierające Jego zapis liczbowy zgodnie z wymaganiami mik- 
rokomputera C-64. 

Szczegółowy opis niektórych opcji (pozostałe wyczerpują- 
co wyjaśnione są w programie): 

M — wybór rodzaju gratlkl sprtte-a. Możliwe są dwa rodza- 
je grafiki: dwukolorowa I wielobarwna. W grafice 
dwukolorowej Jedno okno siatki projektowej odpo- 
wiada Jednemu punktowi świetlnemu w obrazie sprt- 
te-a. W grafice wielobarwnej para okien w poziomie 
interpretowana Jest Jako Jeden punkt obrazu sprlta. 
Naciskanie klawisza M powoduje przechodzenie od 
Jednego rodzaju grafiki do drugiego. 

1, 2, 3 — wybór kolorów obrazu sprlta. Przy pracy w trybie 
dwukolorowym naciskając klawisz 2 możemy 
zmieniać kolor sprlta, pozostałe klawisze (1 I 3) 
nie działają. Przy pracy w trybie wielokolorowym 
różnym parom okien siatki projektowej odpo- 
wiadają różne klawisze i naciskając klawisze 1, 2 
lub 3 można zmieniać kolory odpowiednich 
punktów obrazu sprlta. 

Z — zapis Interpretacji liczbowej zaprojektowanego sprlte 
do pamięci mikrokomputera, Jako ciąg kolejnych 
wierszy programu. Numer pierwszego wiersza jest 
wprowadzany z klawiatury I nie może być większy od 
994. Postać pojedynczego wiersza: 
nr wiersza DATA liczba, liczby, .... liczba 

K — zakończenie pracy programu poprzez usunlącle z 
parnią cl wszystkich Jego wierszy w Basic-u. Pozostają 
tylko wiersze utworzone opcją Z. 

N — normalne zakończenie pracy programu (program po- 
zostaje w pamlfcl). 

UWAGA: Podczas uruchamiania programu należy posiadać 
jego kopię na taśmie lub dysku. Wersja rezydująca w pamięci 
mikrokomputera w przypadku wystąpienia błędów (powsta- 
łych w trakcie przepisywania kodu programu z ,,IKS"-a) może 
ulec uszkodzeniu. 
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Jest to program użytkowy na C-64 
wspomagający projektowanie włas- 
nych znaków. Tworzony znak na siat- 
ce projektowej Jest widoczny w środ- 
kowej części ekranu. Znaczenie opcji 
jest takie jak w programie „Projektant 
— sprltes”. 
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LOGO 


LOGO to język programowania, zasłu- 
żenie zdobywający sobie coraz większą 
popularność wśród użytkowników mikro- 
komputerów. Wszyscy interesujący się 
programowaniem słyszeli z pewnością o 
LOGO, a wielu podejmuje próby pisania 
programów w tym języku. LOGO został 
stworzony w latach siedemdziesiątych 
przez zespół kierowany przez Seymoura 
Paperta w Massachusetts Institute of Tech- 
nology. Zaprojektowano go z myślą o po- 
czątkujących programistach. LOGO do- 
skonale nadaje się do celów edukacyj- 
nych, a zarazem jest językiem o dużej sile 
(powstał na bazie LISP-u) i można w nim 
łatwo programować naprawdę ciekawe i 
skomplikowane problemy. Pozwala rów- 
nież na uzyskanie ciekawych efektów 
programistycznych już po krótkiej nauce. 
Wyrabia też właściwe nawyki na przy- 
szłość. 

Można w nim w zwięzły i naturalny sposób 
zaprogramować wiele problemów, a jasna 
diagnostyka błędów i wbudowane w język 
komendy edytora pozwalają szybko znaleźć i 
usunąć pomyłki. Po prostu większość żmud- 
nej pracy wykonuje za nas komputer. Czło- 
wiek koncentruje się tylko na celowym wysił- 
ku intelektualnym. 

Znane dotychczas w Polsce wersje języka 
LOGO na różne mikrokomputery są wersjami 
angielskimi — to znaczy słowa kluczowe języ- 
ka i komunikaty o błędach mają brzmienie 
angielskie. Jest to nie lada przeszkoda dla 
osób, które nie znają angielskiego, a głównie 
dla dzieci i młodzieży. Dopiero LOGO w wer- 
sji narodowej nabiera pełnej wartości. Opra- 
cowano już standard polskiego LOGO, a nie- 
bawem będzie rozpowszechniany jego trans- 
lator na ZX Spectrum — najpopularniejszy 
obecnie w Polsce komputer osobisty. Dlatego 
też, rozpoczynając w naszym piśmie kurs 
LOGO. chcemy od razu operować polskim 
słownictwem. Naturalnie obok polskich ter- 
minów będziemy podawali ich angielskie od- 
powiedniki, by ci, którzy dysponują angiel- 
skim translatorem, mogli sprawdzać na kom- 
puterze swoje programy. W szczegółach 
będziemy opierać się na wersji języka dla mi- 
krokomputera ZX Spectrum 


'LOGO zawiera pewien zasób słów, które są 
dla niego zrozumiałe. Są to tak zwane słowa 
kluczowe. Posługując się tym zbiorem słów 
można pisać programy, które rysują na ekra- 
nie, manipulują słowami i listami, dokonują 
obliczeń. Liczbę słów rozumianych przez 
LOGO można zwiększyć, definiując nowe po- 
jęcia przy użyciu już znanych — pisząc proce- 
dury o określonych nazwach. 

Rysunki wykonuje w LOGO żółw. Jest to 
abstrakcyjny obiekt, wyobrażony na ekranie 
komputera w postaci małego trójkąta. Żół- 
wiowi można wydawać różne rozkazy, każąc 
mu poruszać się po ekranie. Żółw rysuje ciąg- 
nąc za sobą kreskę, Aktualny stan żółwia opi- 
sują: jego pozycja na ekranie określona w 
układzie współrzędnych, którego środek po- 
krywa się ze środkiem ekranu, i kierunek, w 
którym jest zwrócona głowa żółwia. Żółw mo- 
że być widoczny albo nie. Gdy napiszemy PŻ 
(od pokaż żółwia) artg. ŚHOWTURTLE i od- 
powiednio skrót ST — trójkącik pojawi się na 
ekranie. Komenda SŻ „schowaj żółwia”, ang. 
HIDETURTLE HT, sprawi, że zniknie. Na po- 
czątku pracy z LOGO komenda PŻ spowodu- 
je, że trójkąt pokaże się na środku ekranu i 
będzie skierowany do góry. Jest to początko- 
we położenie żółwia. Ma on wtedy pozycję (0, 
0) w układzie współrzędnych i przypisany kąt 
0 stopni. Jeśli kiedykolwiek później będziemy 
chcieli, by żółw znalazł się znów w tym miejs- 
cu, wystarczy podać komendę WRÓĆ 
(HOME). 

NAPRZÓD (NP FORWARD FD) to komenda 
przesuwająca żółwia do przodu. Trzeba okreś- 
lić jak daleko ma on się posunąć. Dlatego też, 
po słowie NAPRZÓD, podajemy parametr. Na 
przykład NAPRZÓD 30 przesunie żółwia o 30 
kroków w, kierunku, w jakim jest on ustawio- 
ny: 


t 


Żółw zmienił swoje położenie, ale w dal- 
szym ciągu „patrzy" w tę samą stronę — w gó- 
rę. Gdy chcemy, aby żółw skręcił w bok. 
musimy kazać mu się obrócić w lewo bądź w 
prawo. Robimy to przy pomocy komend 
PRAWO (PW RIGHT RT) i LEWO (LW LEFT LT). 
których parametrami są liczby stopni, o jakie 
żółw powinien się obrócić. LEWO 90 zmieni 
kierunek żółwia tak: 
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Posługując się poznanymi komendami, mo- 
żemy już rysować różne figury geometryczne. 
Zanim to zrobimy, warto przygotować sobie 
ekran do rysowania — zmazać to, co było na 
nim poprzednio narysowane. Robimy to po- 
dając komendę CZYŚĆ (CS CLEARSCREEN 
CS), Po wykonaniu tej komendy żółw wraca 
do położenia początkowego, pośrodku ekra- 
nu. Gdybyśmy chcieli wyczyścić ekran, nie 
zmieniając pozycji żółwia, musimy podać ko- 
mendę ZMAŻ (CIEAN). Jak łatwo zauważyć, 
napisanie kolejno WRÓĆ i ZMAŻ daje ten 
sam efekt co pojedyncza komenda CZYŚĆ. 

Na czystym ekranie narysujmy kwadrat: 




NAPRZÓD 50 
LEWO 90 
NAPRZÓD 50 
LEWO 90 
NAPRZÓD 50 
LEWO 90 
NAPRZÓD 50 

Jeśli teraz narysujemy trójkąt równoboczny, 
pisząc kolejno komendy: 

NAPRZÓD 30 
PRAWO 120 
NAPRZÓD 30 
PRAWO 120 
NAPRZÓD 30 




uzyskamy taki efekt na ekranie: 


V 


Przy rysowaniu kwadratu i trójkąta powta- 
rzaliśmy kilkakrotnie te same komendy z tymi 
samymi parametrami. Można zapisać to kró- 
cej, używając komendy POWTÓRZ (REPEAT). 
Po słowie POWTÓRZ podajemy, ile razy ma 
nastąpić powtórzenie, a dalej listę instrukcji 
do wielokrotnego wykonania, ujętą w nawiasy 
kwadratowe. Kwadrat możemy zatem na- 
rysować w ten sposób (posługując się dla je- 
szcze większego skrótu skróconymi nazwami 
komend): 


POWTÓRZ 4 (NP 50 LW 90] 

Zauważmy, że po wykonaniu tej instrukcji 
żółw będzie skierowany do góry, a nie w pra- 
wo, tak jak przy poprzednim rysowaniu kwad- 
ratu, gdzie po ostatnim NAPRZÓD nie poda- 
liśmy już komendy LEWO 90. Najlepiej jest 
przyjąć jako zasadę, że po narysowaniu figury 
żółw znajduje się w takiej pozycji, jak przed 
rozpoczęciem rysowania. Zaoszczędzi nam to 
czasu na zastanawianie się, jak jest ustawiony 
żółw i błędów wynikających z niewłaściwego 
określenia jego pozycji. 

Spróbujmy teraz wykonać nieco bardziej 
skomplikowany rysunek: rozetę złożoną z 
kwadratów, której środek będzie się znajdo- 
wał pośrodku ekranu. 

POWTÓRZ 8 [POWTÓR7 4 | NAPRZÓD 50 
LEWO 90] LEWO 45] 

Uzyskamy taki rysunek: 





dokończenie ze str. 13 

Chcemy teraz z rozety zrobić gwiazdkę — 
usunąć linie rozchodzące się promieniście ze 
środka ekranu. Ale jak zmazywć kreski? 

Otóż żółw może chodzić po ekranie, rysu- 
jąc kreski, może zmieniać swoją pozycję, nie 
pozostawiając żadnego śladu i może też idąc 
po kresce ścierać ją, czyli zachowywać się jak 
gumka. Możemy sobie wyobrazić, że żółw ma 
pióro, którym rysuje po ekranie. Jeśli trzyma 
to pióro uniesione w górę, idzie, ale nie zos- 
tawia śladu. Jeśli je opuści, rysuje kreski, a jeś- 
li zamieni pióro na gumkę, ściera je. Odpo- 
wiednie komendy określają, co ma robić żółw 
ze swoim piórem. 

POD (od podnieś, ang. PENUP i skrót PU) 
podnosi pióro. Od chwili wydania tej komen- 
dy żółw przemieszczając się nic nie rysuje. 
OPU (od opuść ang. PENDOWN skrót PD) 
opuszcza pióro — żółw zaczyna rysować. 
ŚCIERANIE (ang. PENERASE skrót PE) — spra- 
wia, że żółw zmazuje kreski, które napotyka 
na swej drodze. 

Dla narysowania gwiazdki przyda się także 
komenda cofająca żółwia, tak jak gdyby szedł 
on tyłem. Rozkaz WSTECZ (skrót WS, ang. 
BACK i skrót BK) cofa żółwia z powrotem, nie 
zmieniając kierunku, w jakim jest on ustawio- 
ny. Żółw wraca tyle kroków, ile podaje para- 
metr (tak jak w komendzie NAPRZÓD). 

Następująca sekwencja instrukcji przeksz- 
tałci naszą rozetkę w gwiazdkę: 

ŚCIERANIE 

POWTÓRZ 8 [NAPRZÓD 50 WSTECZ 50 
LEWO 45] 

OPU 

Ostatnia instrukcja przygotowuje żółwia do 
dalszego rysowania. Na ekranie uzyskamy taki 
efekt: 


Łatwo możemy narysować kontur gwiazdki 
od razu bez żadnych linii wewnątrz. Wystar- 
czy tylko zastanowić się, o jakie kąty powinien 
obracać się żółw. Ustawmy najpierw żółwia 
we właściwej pozycji — rysowanie gwiazdki 
zaczniemy od lewego górnego ramienia. 

CS 
POD 
NP 50 
LW 90 
NP 20 
OPU 

i rysujemy: 


POWTÓRZ 8 [NP 30 LW 90 NP 30 PW 45| 

Wracamy żółwiem na środek ekranu: 

POD 

WRÓĆ 

OPU 

Rysunek wygląda tak: 



Bardzo ciekawe efekty można uzyskiwać, 
rysując proste figury wielokrotnie w różnych 
miejscach ekranu. Na przykład naszą ośmio- 
ramienną gwiazdkę można powtórzyć 36 razy, 
obracając ją za każdym razem o 10 stopni. Za- 
czynamy od środka ekranu i rysujemy przy 
użyciu takich instrukcji: 

POWTÓRZ 36 [POWTÓRZ 8 [NP 20 LW 90 NP 
20 PW 45] LW 10] 

Czytelnicy, którzy mają komputer i transla- 
tor LOGO, niech sprawdzą ten program w an- 
gielskiej wersji: 

REPEAT 36 [REPEAT 8 [FD 20 LT 90 FD 20 RT 45] 
LT 10] 

Dotychczas poznane instrukcje graficzne 
pozwalają narysować dowolną figurę. Natu- 
ralnie zaprogramowanie złożonych rysunków 
wymaga dużego nakładu pracy. Często można 
zmniejszyć ten wysiłek korzystając z innych 
instrukcji graficznych LOGO, które wykorzy- 
stują współrzędne punktów w układzie o 
środku umieszczonym pośrodku ekranu. Po- 
działkę na osiach układu można ustalać do- 
wolnie — pozwala to na łatwe rysowanie spła- 
szczonych lub wydłużonych figur. O tym 
wszystkim będzie mowa w następnych odcin- 
kach. 

A teraz zadania do samodzielnego zapro- 
gramowania: 

1) Narysować gwiazdy sześcio- i dwunastora- 
mienną 

2) Narysować taki domek: 
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Nie pisaliśmy nic na temat błędów, jakie 
możemy popełniać przy naszej konwersacji z 
LOCO. Każdy kto ma w tej chwili komputer 
przed sobą (a tak by było najlepiej) widzi znak 
i migający kursor. Znaczy to, że LOCO go- 
towe jest wykonywać nasze rozkazy (komen- 
dy lub procedury). Prawie na pewno przynaj- 
mniej raz pomylimy się i napiszemy np. „LLW” 
zamiast „LW”. LOCO reaguje wtedy zupełnie 
naturalnie — pisze na ekranie „Nie wiem, jak 
zrobić LLW”. Informuje nas, że nie rozumie 
komendy (popełniliśmy błąd) i czyni to w spo- 
sób najzupełniej dla nas zrozumiały (angiel- 
skie LOGO sygnalizuje — „I dońt know how 
to...”). Drugi rodzaj błędu, jaki mogliśmy do 
tej pory popełnić, to napisanie dla przykładu 
„NP 30 20...”. W takim wypadku LOCO oczy- 
wiście wykonuje komendę NAPRZÓD 30 i da- 
lej pisze: „Nie powiedziałeś co zrobić z 20”. 
Ta reakcja LOCO nie wymaga chyba komen- 
tarza. Wreszcie mogliśmy napisać „NP LW 30", 
co nie ma sensu, gdyż wprawdzie wiadomo, 
że trzeba obrócić się o 30 stopni w lewo ale 
nie wiadomo ile kroków iść do przodu. No i 
LOCO zasygnalizuje: „LW nie daje wyniku 
potrzebnego NP”. Gdy natomiast napiszemy: 
„NP” i wciśniemy ENTER, zobaczymy: „za ma- 
ło danych dla NP”. Właściwie wszystkie ko- 
munikaty o błędach są tak oczywiste, że nje 
ma sensu ich wyjaśniać — wiadomo, że masło 
jest maślane. Ódstępując od tej zasady do- 
dajmy, że po napisaniu np. „POWTÓRZ 4 5” 
będzie: „POWTÓRZ nie chce 5 jako danej” 
(bo drugim parametrem komendy POWTÓRZ 
musi być lista ujęta w nawiasy kwadratowe), a 
po napisaniu „POWTÓRZ 10 NP 20” zoba- 
czymy „NP nie daje wyniku potrzebnego po- 
wtórz” (bo nie daje listy — powód ten sam). 
Na koniec zauważmy jeszcze, że jeśli coś rysu- 
jemy, na napisy (konwersacja z komputerem) 
przeznaczone są tylko dwie linie u dołu ekra- 
nu. Zdarza się wtedy czasem, że komputerowi 
brakuje miejsca na tekst i wówczas w prawym 
dolnym rogu miga pionowa strzałka, co ozna- 
cza: przeczytaj to, co napisałem, ale to jeszcze 
nie koniec — wciśnij coś, to zobaczysz resztę. 
Wszystkie te praktyczne wskazówki są tak na- 
prawdę w tym miejscu niepotrzebne. Wystar- 
czy dłuższa chwila samodzielnej zabawy (na 
razie zabawy) by wszystko stało się oczywiste. 
LOGO zostało zaprojektowane tak, by samo- 
dzielnie uczyć się i ograniczyć do minimum 
kontakt z nauczycielem. Dlatego też nauka 
LOGO ma sens, kiedy mamy rzeczywisty kon- 
takt z komputerem, nie tylko kartkę i ołówek. 
Optymistyczny jest fakt, że jak na razie (wyni- 
ka to ze statystyk) liczba tych drugich przy- 
padków systematycznie maleje. 


Uwagi o polskim translatorze LOCO 
na ZX Spectrum 

Standard polskiego LOCO (brzmienie słów 
kluczowych i komunikatów) został opracowa- 
ny przez zespół pracujący pod egidą Polskie- 
go Towarzystwa Informatycznego. Zgodnie z 
tym standardem przygotowano translator 
LOCO na ZX Spectrum. Polski translator (jest 
to tzw. interpreter) jest już gotowy i będzie 
niebawem (albo już jest, gdy niniejszy tekst 
ukaże się w druku) rozpowszechniany w 
szkołach oraz wśród prywatnych użytkowni- 
ków mikrokomputerów. Jest on obiektywnie 
lepszy niż angielski — na którego bazie pow- 
stał (firmy software'owej SOLI— LCSI), gdyż je- 
go autorzy oprócz spolszczenia słów kluczo- 
wych i komunikatów usunęli kilka poważnych 
błędów, które powodowały nieprawidłowe 
działanie paru instrukcji. Wprowadzono mo- 
żliwość posługiwania się literami charakte- 
rystycznymi dla języka polskiego (ą, ę, ł itp.), 
które mogą być używane w nazwach określa- 
nych przez użytkownika, a w słowach kluczo- 
wych np. powtórz, są wręcz niezbędne (wszak 
ma to być po polsku). Litery te otrzymuje się 
na ekranie po wciśnięciu klawisza „graph” i 
odpowiedniego klawisza litery: np. ą to 
„graph” i a, ł to „grahp” i I itd. Ponadto pol- 
skie LOGO ma nowe (nie istniejące w angiel- 
skiej wersji) atrakcyjne komendy i operacje. Są 
to m.in. funkcje rzeczywiste In i exp oraz np. 
komenda graficzna ZAMALUJ (ZAM) pozwa- 
lająca kolorować powierzchnie rysunków. O 
tej ostatniej komendzie — w następnym od- 
cinku, gdzie również spróbujemy napisać 
pierwsze programy — czyli nauczymy LOCO 
rozumieć nowe słowa — zdefiniujemy proce- 
dury. 

SIS 
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Rys. Michał Przybyłowski 
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Mikroprocesory odmierzyły kolejny 
krok w rozwoju techniki. W chwili 
obecnej nie ma już praktycznie takiej 
dziedziny życia, w której wprost lub 
pośrednio nie byłyby one stosowane. 
Są wszędzie tam, gdzie mowa jest o 
elektronicznych, twórczych rozwiąza- 
niach. 

Wszystko, co nowe, co stwarza 
szansę rozwoju — w wojsku preferuje 
się szczególnie. W nim, jak w 
ce zbiegają się wszystkie nici postępu. 
Każd.r nowatorska myśl jest starannie 
analizowana, rozwijana, wartościowe 
projekty są szybko wdrażane — przede 
wszystkim z myślą o sprawności, sku- 
teczności i niezawodności sił zbroj- 
nych. 

Współczesne konstrukcje sprzętu 
bojowego, wykorzystywanego na lą- 
dzie, morzu i w powietrzu oparte są na 
najnowszych zdobyczach techniki. 
Prym wiedzie — co zrozumiałe — elek- 
tronika, wymagająca od żołnierzy 
obsługujących ów sprzęt, bezpośred- 
nich użytkowników, odpowiedniego 
stopnia wtajemniczenia. Budowy i za- 
sad działania tych skomplikowanych 
urządzeń uczyć ich musi kadra zawo- 
dowa, wysokiej klasy specjaliści. Dziś 
przyszli dowódcy zdobywają wiedzę w 
nowoczesnych, doskonale wyposażo- 
nych pracowniach i labolatoriach. A 
potem praktyka: intensywne poligo- 
nowe ćwiczenia. 


•U< 
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GRAFIKA KOMPUTEROWA 

Jerzy Chmurzyński 


Program graficzny 

Program graficzny jest to ciąg kodów sterujących pra- 
cą procesora graficznego w zakresie kreślenia obrazu. 
Program graficzny generowany jest w komputerze i 
przesyłany do pamięci obrazu grafoskopu. W zależności 
od przyjętej metody kreślenia obrazu na ekranie lampy 
elektronopromieniowej różne są postacie programów 
graficznych. 

W przypadku metody kreślenia konturowego pro- 
gram graficzny złożony jest z ciągu rozkazów opisują- 
cych pozycjonowanie i przemieszczanie strumienia 
elektronów oraz sterujących jasnością i kolorem świece- 
nia plamki świetlnej na ekranie lampy. Rozkazy te są w 
procesorze graficznym dekodowane i wykorzystane w 
układach odchylania i podświetlania do bezpośredniego 
sterowania strumieniem elektronów. Przykładowy pro- 
gram graficzny kreślenia odcinka AB z rys. la przedsta- 
wiono poniżej: 



POSITION (XA, YA) 

VECTOR (XB,YB) 

Rozmieszczenie programu graficznego w pamięci 
obrazu grafoskopów kreślących metodą konturową nie 
jest orientowane geometrycznie względem wymiaru ras- 
trowego ekranu. Orientacja geometryczna następuję w 
końcowej fazie kreślenia obrazu, to znaczy w układach 
odchylania pionowego i poziomego, gdzie wykorzystuje 
się przechowywane w pamięci obrazu argumenty rozka- 
zów programu graficznego, np. współrzędne XA, YA, 
XB, YB. Inaczej zagadnienie to przedstawia się w grafo- 
skopach kreślących metodą rastrową z wybieraniem li- 
niowym. W tym przypadku rozmieszczenie programu 
graficznego w pamięci obrazu iest jednoznacznie zo- 
rientowane geometrycznie względem wymiaru rastro- 
wego ekranu. Przedstawia to rys. 3. 

Program graficzny złożony jest z kodów określających 
rodzaj wyświetlanej informacji dla każdego adresowal- 
nego punktu ekranu. Kody te uporządkowane są w ko- 
lejności linii wybieranych przez układ odchylania pio- 
nowego strumienia elektronów. W ramach każdej linii 
uporządkowanie kodów jest zgodne z kolejnością punk- 
tów wybieranych przez układ odchylania poziomego. 
Kod wyświetlanej informacji w najprostszym przypadku 
wartością 1 oznacza żądanie wyświetlenia punktu na ek- 
ranie, natomiast wartością 0 — zakaz wyświetlania. Kody 
zero — jedynkowe przesyłane są wierszami do układu 
sterującego podświetlaniem plamki świetlnej, synchro- 
nicznie z przemieszczaniem się strumienia elektronów 
wzdłuż wybranej linii poziomej. W punktach oznaczo- 


nych kodem 1 nastąpi rozjaśnienie plamki, natomiast w 
punktach oznaczonych kodem 0 — obraz nie będzie 
wyświetlany. Pamięć obrazu zawiera zatem dokładne 
odwzorowanie obrazu wyświetlanego na ekranie moni- 
tora. Pojedynczy płat pamięci może odwzorowywać 
obraz kreślony w jednym kolorze. Do wysterowania 
monitora kolorowego, dla każdego z trzech podstawo- 
wych kolorów potrzebne są oddzielne płaty pamięci. 
Kody z każdego płatu pamięci kierowane są synchroni- 
cznie do oddzielnych układów sterujących podświetla- 
niem plamek świetlnych w kolorze czerwonym, zielo- 
nym i niebieskim. 

Wyświetlanie obrazu na ekranie monitora z wybiera- 
niem liniowym wymaga wprowadzenia z komputera do 
pamięci obrazu grafoskopu programu graficznego w 
przedstawionej powyżej postaci. Zadaniem procedury 
generującej programy graficzne jest wyznaczanie współ- 
rzędnych punktów aproksymujących elementy składo- 
we obrazu, tj. odcinki linii prostych, okręgi, łuki itp. 
Przykład procedury generującej program graficzny od- 
cinka AB z rys. Ib przedstawiono poniżej. 


100 SET (XA, YA) 
110 SET (XI, Y1) 
120 SET (X2, Y2) 
130 SET (X3, Y3) 
140 SET (X4, Y4) 
150 SET (XB, YB) 
160 RETURN 


Procedura ta zapisana została w języku BASIC dla mik- 
rokomputera MERITUM I. Instrukcja SET (X, Y) wyświetla 
punkt na ekranie w miejscu określonym współrzędnymi 
X, Y. Początek układu współrzędnych tego mikrokom- 
putera znajduje się w lewym górnym rogu ekranu. 


Rya. 3 
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Zmiana układu współrzędnych 

Położenie środka układu współrzędnych prostokąt- 
nych dla danego monitora ekranowego określane jest na 
poziomie oprogramowania systemowego. Położenie to 
może być zatem zmieniane programowo na poziomie 
oprogramowania systemowego lub użytkowego. Na rys. 
4 przedstawiono ekranowy układ współrzędnych pro- 
stokątnych X„ Y,. 




«■ 127. X, 

0 

V. 

■A 

1 

1 

1 

1 

1 

1 

1 

. Xp 



47# 

Sp 



'I. 




Ryt. 4 

Środek S P przykładowego, programowo zdefiniowa- 
nego układu współrzędnych X P , Y p znajduje się w punk- 
cie o współrzędnych (64e, 24e) ekranowego układu 
współrzędnych. Aby wyświetlić na ekranie monitora 
dowolny punkt A o współrzędnych (x P , y P ) należy doko- 
nać następującego prostego przeliczenia współrzędnych 
prostokątnych tego punktu z układu X p , Y p na układ X t , 
Y e : 

x = 64 + x P y e = 24 — y P 

Stąd wyświetlenie punktu A(x p ,y p ) następuje zgodnie z 
instrukcją SET(64 + XP, 24 - YP). 

Zobrazowanie odcinków 

Odcinki linii prostych należą do podstawowych skład- 
ników obrazów. Zobrazowanie odcinka metodą rastro- 
wą z wybieraniem liniowym wymaga wyznaczenia 
współrzędnych zbioru punktów aproksymujących dany 
odcinek. W grafoskopach, które nie mają procesów gra- 
ficznych z możliwościami generowania punktów apro- 
ksymujących, należy to wykonywać programowo. Poni- 
żej przedstawiona jest procedura zobrazowania odcinka 
ukośnego AB z rys. Ib. 

300 D = (YB - YA) / (XB — XA) 

310 FOR X = XA TO XB 
320 Y = YA + D * (X — XA) 

330 SET (X, Y) 

340 NEXT X 
350 RETURN 

Transformacje obrazów na płaszczyźnie 

Położenie punktu P na płaszczyźnie określamy za po- 
mocą współrzędnych (x,y). Współrzędne te w kompute- 
rze mogą być pamiętane jako elementy macierzy [x,y]. 
Podstawowe transformacje obrazów na płaszczyźnie 


obejmują następujące operacje: 

— zmiana skali obrazu, 

— przesunięcie (translacja) obrazu, 

— obrót obrazu wokół środka układu współrzędnych, 

— obrót obrazu wokół dowolnego punktu. 

W wyniku dokonania transformacji punktu o współ- 
rzędnych [x,y] otrzymujemy współrzędne transformo- 
wane [x’,y’j tego punktu. Transformacje odcinków spro- 
wadzają się do transformacji punktów początkowych i 
końcowych tych odcinków. 

Transformacje obrazów na płaszczyźnie dokonywane 
są w przestrzeni trójwymiarowej, z wykorzystaniem 
współrzędnych jednorodnych. Oznacza to przedstawie- 
nie macierzy współrzędnych punktu |x,y] za pomocą 
macierzy (kx, ky, k] dla k ¥= 0. Współczynniki transforma- 
cji zebrane są w macierzy transformacji T o wymia- 
rach 3x3: 



Poszczególne elementy macierzy T dokonują następują- 
cych transformacji składowych: 

a — zmiana skali współrzędnej X, 

— obrót i skręcenie względem środka układu, 

d — zmiana skali współrzędnej Y, 
e — przesunięcie względem osi X, 
f — przesunięcie względem osi Y, 
s — zmiana skali współrzędnej X I Y 

Współrzędne transformowane [x\ y']punktu (x,y) 
otrzymuje się w wyniku wymnożenia współrzędnych 
jednorodnych punktu [x,y,1] przez macierz transforma- 
cji T: 

r* b oi 

[X, Y, K] = [x, y, 1] Jc d Ol 

i przekształcenie transformowanych współrzędnych 
jednorodnych do postaci: 



Rozważmy następujący ciąg transformacji punktu A 
(4,2) (rys. 5) 
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dokończenie ze str. 19 


W wyniku zmiany skali współrzędnych X (dwukrotne 
zmniejszenie) i Y (trzykrotne zwiększenie) 


Po dokonaniu dwukrotnego zwiększenia skali współ- 
rzędnych X i Y punktu A2 (5,5): 


(XI, Y1, KI] = [4 21] 


otrzymamy punkt Al (2,6). 


[ iool 

0 3 0 1 = 

OOlJ 


[2 61 ] 


[X3, Y3,K3] ■= [5 51] 


otrzymamy punkt A3 (10,10). 


on] 


[5 5H 


W wyniku przesunięcia punktu Al wzdłuż osi X o 3 
jednostki, a wzdłuż osi Y o — 1 jednostkę: 


Aby dokonać obrotu punktu A3 wokół środka układu 
o kąt 45°, zgodnie z ruchem wskazówek zegara, należy 
dokonać następującej transformacji: 


[X4, Y4, K4] = [10 10 1] 




sin 45° 
cos 45° 
0 


cos 45° 
sin 45° 
0 


[X2, Y2, K2] = [2 61] 
otrzymamy punkt A2 (5,5) 


[5 5 1] 


= 14.1 0 1] 


W wyniku otrzymamy punkt A4 (14.1,0). 


Poniżej przedstawiono w języku BASIC procedurę 
wyznaczania współrzędnych transformowanych punktu 
na płaszczyźnie. Założono, że współrzędne punktu 
transformowanego zawarte są w tablicy A, współrzędne 
transformowane w tablicy Al, zaś współczynniki macie- 
rzy transformacji zawarte są w tablicy T. 

10 DIM A (2) 

20 DIM Al (2) 

30 DIM T (2,2) 

370 Al (0) 0 

380 Al (1) = 0 

390 Al (2) = 0 

400 FOR I - 0 TO 2 

410 FOR J = 0 TO 2 

420 Al (I) - Al (I) + A (J) * T (J,l) 

430 NEXT J 
440 NEXT I 

450 Al (0) Al (0) / Al (2) 

460 Al (1) = Al (1) / Al (2) 

470 RETURN 

Obszerne informacje na temat transformowania obra- 
zów Czytelnik znajdzie w pracy T. Parlielisa: Algorytmy 
dla grafiki i przetwarzania obrazów WNT. Warszawa 
1986 r. 

Animacja komputerowa 

Transformacje obrazów staja s '? bezpośrednio użyte- 
czne podczas badań symulacyjnych projektowanych 
obiektów. Animacja komputerowa pozwala śledzić na 
ekranie monitora przebieg określonego procesu w róż- 
nej skali czasu. Badania takie mogą być poświęcone np. 
ocenię skutków zderzenia samolotu z przeszkodą, oce- 
nie metody lądowania pojazdu na Księżycu, szacowaniu 
skutków wybuchu jądrowego itp. Ruch obrazu na ekra- 
nie monitora można uzyskać poprzez wygaszenie i wy- 
świetleni' 1 kadrów kolejnych faz ruchu z częstotliwością 
ok. 25 Hz. Kadry wyświetlane na ekranie mogą być fil- 
mowane i wykorzystane następnie do produkcji fil- 
mów animowanych. Na ekranie monitora filmy takie 
mogą być wielokrotnie powtarzane dia różnych parame- 
trów badanego procesu. Animacja komputerowa w 
istotny sposób przyspiesza proces projektowania. Ru- 
chomy obraz modelujący badany proces ułatwia projek- 
tantom wybór parametrów optymalnych dla danej 
konstrut < ii < /v proresu 

Poniżej przedstawiono procedurę przemieszczania 
punktu A (rys. 6) po paraboli y = -x 2 -f 10 • x w przedzia- 
le x - |0.10|. 



500 FOR X 0 TO 10 
510 Y 10 • X — X * X 
520 SET (X,Y) 

530 COSUB 600 
540 RESET (X,Y) 


550 NEXT X 
560 RETURN 
600 P 2 

610 FOR I O TO P * X 
620 FOR J = 1 TO 1000 
630 Z 0 
640 NEXT | 

650 NEXT I 
660 RETURN. 

Podprogram 600 — 660 symuluje zmianę parametru P 
w funkcji drogi przebytej wzdłuż osi X. Procedura RESET 
(X.Y) wygasza punkt świecący na ekranie o współrzęd- 
nych X,Y. 

Zastosowania 

Zakres zastosowań grafiki komputerowej jest obszer- 
ny. Głównym obszarem zastosowań jest projektowanie 
wspomagane komputerem (CAD). Nowoczesne systemy 
komputerowe dzięki grafice dostarczają wyniki prac 
projektowych w postaci wykresów lub rysunków techni- 
cznych projektowanej konstrukcji. W zakresie projek- 
towania wspomaganego komputerem główne dziedziny 
zastosowań grafiki komputerowej to: 

— przemysł elektroniczny — 55 % 

— kreślenia — 15 % 

— kartografia — 10 % 

— architektura i inne dziedziny techniki i nauki — 20 % 

W przemyśle elektronicznym komputerowe s/stemy 

graficzne stosowane są głównie do projektowania ukła- 
dów elektronicznych, płytek drukowanych i układów 
scalonych. W dziedzinie budownictwa grafika kompu- 
terowa znalazła zastosowanie w projektowaniu auto- 
strad i konstrukcji architektonicznych. Stosowane syste- 
my graficzne umożliwiają prowadzenie symulacyjnych 
badań bezpieczeństwa jazdy na projektowanych frag- 
mentach dróg. 

W przemysłach lotniczym i motoryzacyjnym oraz w 
badaniach kosmicznych systemy graficzne stosowane są 
na wszystkich etapach projektowania. Systemy graficzne 
umożliwiają zwiększenie efektywności procesu projek- 
towania i produkcji oraz dokonywanie symulacyjnych 
badań obiektu bez konieczności budowania wielu kosz- 
townych rpodeli. W wypadku badań kosmicznych wje- 
le badań eksploatacyjnych bez systemów graficznych by- 
łoby niemożliwych. 

Grafika komputerowa znalazła również wielostronne 
zastosowanie w wojsku. Komputerowe urządzenia zo- 
brazowania danych w postaci graficznej znajdują się w 
wyposażeniu stanowisk dowodzenia różnych rodzajów 
wojsk. Przenośne mapniki elektroniczne wspomagają 
dowódców niższych szczebli bieżąco aktualizowaną 
drogą radiową informacją o sytuacji i zadaniach w da- 
nym rejonie. Komputerowe systemy graficzne są coraz 
częściej podstawą trenażerów różnych pojazdów, głów- 
nie samolotów i śmigłowców. 

Zakres zastosowań grafiki komputerowej stale się 
zwiększa. Wynika to ze znacznych korzyści ekonomi- 
cznych, które są z tym związane. Systemy graficzne 
umożliwiają skrócenie czasu wykonywania projektu lub 
przeprowadzenia badań, zaoszczędzenie materiałów i 
robocizny, automatyczne wykreślanie rysunków i opra- 
cowanie dokumentacji technicznej wyrobu oraz opra- 
cowanie programów sterujących robotami wykonują- 
cymi dany wyrób w fabryce. Obecnie uważa się, że dzię- 
ki systemom graficznym jest możliwe skrócenie 5-8- 
-krotne czasu prac projektowo-wdrożeniowych. Można 
zatem przyjąć, że grafika komputerowa będzie jedną z 
najbardziej dynamicznie rozwijających się dziedzin in- 
formatyki. 


Jerzy CHMURZYŃSKI 
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Wprowadźmy następny wiersz, a teraz ekran wyg- 
ląda tak: 


BASIC 


(Podstawy programowania) 


W poprzednim numerze „IKS-a” rozpo- 
częliśmy wykład z programowania wjęzy- 
ku BASIC na mikrokomputer ZX Spec- 
trum. Kontynuujemy więc pracę, włącza- 
my komputer i zaczynamy. 

Wykład drugi: program w BASIC-u edytor na ZX 
Spectrum 

elementy BASIC-u: stałe zmienne 
nazwy, 

instrukcje: REM, LET, PRINT, IN- 
PUT 

komendy: RUN, LIST, EDIT, NEW 

Język BASIC (Beginnerś All Purpose Symbolic 
Instruction Codę) jest najpopularniejszym uniwer- 
salnym językiem programowania wyższego rzędu. 
Stosują go zarówno użytkownicy posługujący się 
komputerami do przeprowadzania dość prostych 
obliczeń, jak i ci, którzy posługują się nimi przy 
rozwiązywaniu bardzo skomplikowanych proble- 
mów naukowo-technicznych, organizacyjnych lub 
ekonomicznych. Zalety BASIC-u jest z jednej stro- 
ny prostota, umożliwiająca szybkie opanowanie 
podstaw programowania, z drugiej strony istnienie 
w nim elementów pozwalających na efektywne 
zaprogramowanie wielu, nawet skomplikowanych 
problemów. 

BASIC jest językiem konwersacyjnym, co pozwa- 
la programującemu na nadzorowanie i bieżącą ko- 
rektę programu podczas jego uruchamiania. 

Program w BASIC-u. Edytor na ZS Spectrum 

Program w języku BASIC składa się z wierszy (li- 
nii), które zawierają instrukcje opisujące wykona- 
nie poszczególnych kroków algorytmu. Włączamy 
komputer i zaczynamy pracę od przykładu. 

Przykład 2.1 

Obliczyć wartość sumy n pierwszych wyrazów 
postępu arytmetycznego według wzoru: 

s „ = [ a , + in^M] n 

gdzie: ai — pierwszy wyraz, d — różnica 
dla a, = 5, n = 11, d = 1 

Program realizujący te obliczenia ma postać: 


let a^i** 1 ** 8,1 

40 LET n«ll 
20 LET i 1.8 

80 LET *n»(al+(n-l) «d/2) «n 
60 PRINT "SUMft *") tn 

Wprowadźmy ten program. Załóżmy, że wprowa- 
dziliśmy 3 wiersze, na ekranie telewizora otrzyma- 
my: 

Rgrj Prgykiaa 2.1 
LET nall 


40 


10 REN Przykład 2.1 
20 LET a 1*8 
30 LET d»l 
40 LET nall 


Wprowadzając zauważamy, że wiersze programu 
zaczynają się od numerów i nie pojawiają się od 
razu, lecz zostają „odłożone” na później jako pro- 

f jram, ponadto numery wierszy decydują o ich ko- 
ejności w programie (jest to także istotne przy wy- 
konywaniu programu). Numer wiersza jest liczbą 
całkowitą, maksymalnie czterocyfrową (1 4- 9999). 
Wiersz w ZX Spectrum może składać się z kilku linii 
opatrzonych jedynie numerem w linii pierwszej. 

Wprowadzając następny wiersz, na ekranie 
otrzymamy: 

10 REM Przykład 2.1 
20 LET al >6 
30 LET d«l 
40 LET n>ll 
60 PRINT 'SUMR a";»n 


Sprawdzamy program, okazuje się, że popełniliś- 
my błąd. Z numerem 50 został wprowadzony 
wiersz 60 naszego programu, tzn. chcemy wydru- 
kować wartość Sn, która nie została obliczona. Wo- 
bec tego wprowadzamy wiersz: 

45 LET Sn = (al + (n - 1) . d/2) * n 
I na ekranie otrzymamy: 

10 REM Przykład 2.1 
20 LET aiaś 
30 LET dal 
40 LET nall 

48 LET *n « la 1+ In -1) *d /2) »n 
50 PRINT "SUMR a";sn 


Niemożliwe byłoby wstawienie wiersza między 
poprzednie, gdyby wiersze były numerowane ko- 
lejno np: 41, 42, 43 itd. Przy pisaniu programów i 
ich konwersacyjnym wprowadzaniu do komputera 
zaleca się numerować wiersze np. co 5 lub 10. 

Naciskamy teraz klawisz RlIN (i ENTER), w le- 
wym górnym rogu ekranu pokaże się nam napis: 
SUMA =110 

jest on wynikiem wykonania tego programu. Pro- 
gram „schował” się w pamięci komputera. 

RUN — jest komendą, która służy do urucho- 
mienia i wykonania danego programu. 
Wykonujemy te same obliczenia, ale dla d = 4. 
Naciskamy teraz klawisz UST (i ENTER). Program 
ukazał się na ekranie. 

LIST — jest komendą, która napisana bez nume- 
ru wyświetla na ekranie tekst, poczynając od po- 
czątku programu (do końca programu), natomiast 
UST nr wiersza — od podanego numeru wiersza 
programu do końca programu. 

Ponadto tekst programu jest wyświetlany automa- 
tycznie, gdy wprowadzamy nowy wiersz do 
„schowanego” programu. Naciśnijmy teraz CLS 
(klawisz V) i ENTER — ekran został oczyszczony, 
ale program pozostał w pamięci. 

Mamy wykonać obliczenia dla d = 4, w tym celu 
wprowadzamy 

30 LET d = 4 (i ENTER) 

Program ukazał się na ekranie, poprzedni wiersz o 
numerze 30 został zastąpiony nowo wprowadzo- 
nym. 

Błędny wiersz z danym numerem można usunąć z 
programu przez wprowadzenie nowego wiersza z 
tym samym numerem. Takie poprawianie jest nie- 
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wygodne, gdy liczba znaków w wierszu jest duża. 
Usunięcie wiersza z programu wykonujemy przez 
napisanie jego numeru i naciśnięcie klawisza IN- 
TER. Napiszmy teraz 29 (i ENTER), w tym wypadku 
zniknął kursor wiersza B . 

„Schowa)” się on między linie w numerach 20 i 30. 
Naciśnijmy teraz jednocześnie klawisze CAPS 
SHIFT i EDIT (klawisz z cyfrą 1). W lewym dolnym 
rogu ekranu pokazał się nam wiersz o numerze 30. 
(30 LET d = 4). Naciśnijmy ENTER — wiersz 30 pow- 
rócił na swoje miejsce w programie. Wykonajmy 
ten program RUN (i ENTER). 

Otrzymamy wynik: 

SUMA = 275 

Wykonajmy teraz kolejno następujące czynności: 
UST (klawisz K i ENTER) 

EDIT (klawisze CAPS SHIFT i 1) 

Na ekranie pokazał się program, a w lewym dol- 
nym rogu wiersz o numerze 10. Naciśnijmy klawisz 
ENTER, wiersz o numerze 10 powrócił na swoje 
miejsce i kursor wiersza znajduje się w tym wier- 
szu. (10 BREM Przykład 2.1) Kursor wiersza można 
przenosić z wiersza do wiersza, w dół naciskając l 
(klawisz CAPS SHIFT i 6), a w górę t (klawisz CAPS 
SHIFT i 7). Przesuńmy kursor (wiersza) El do wier- 
sza o numerze 40, następnie naciśnijmy EDIT. 
Wiersz 40 pojawił się w lewym dolnym rogu ekra- 
nu. Wykorzystując — , - lub DELETE wprowadzamy 
na n liczbę 21. Poprawiać w wierszu (gdy jest on na 
dole ekranu) uczyliśmy się w pierwszym wykładzie. 
Po poprawkach wiersz powinien wyglądać tak: 

40 LET n = 21 

Naciskamy teraz kolejno: ENTER, RUN i ENTER. W 
lewym górnym rogu otrzymamy wynik: 

SUMA = 945 

Naciśnijmy teraz klawisz NEW (i ENTER) 

NEW — jest komendą, która usuwa z pamięci 
komputera program i czyści ekran. 

Po jej wykonaniu możemy wprowadzać nowy pro- 
gram. 


Stale, zmienne, nazwy, Instrukcje: 
REM, LET, PRINT, INPUT 

Program podany w przykładzie 2.1 zapiszmy w 
następującej postaci: 


lg REM Przykład a. 1.1 
IS ReM to co jest napi 
stówie rem to jest k 
30 LET a 1=5 
30 LET d = 1 
40 LET n =11 

45 REM łiczby 5,1,11 sa stały- 
mi numerycznymi 
50 LET sn = (a 1+ (n -1) *4/ 
sa REM napisy al,d,n,s 
nazwami zmiennych p 
34 rem napis (aum-l) 

jest wyrażeniem a ryt me tycz - 

azen i e 
p aryt- 
pods ta - 


sane po 
omentarz 


/£) *n 

sn sa 

>rostych 
i *d/ai *n 


nym 

36 REM LET nazwa « wyr 
arytmetyczne jest t 
metyczna instrukcja 
wienia 

60 PRINT "a 1«" ; al; " 

d:” 11 ; "n = " ; n 

65 PRINT 

70 PRINT "SUMR =" , sn 


"i "da 


75 rem każdy ciao znak 
sany w cudzysł 
sie stała atranumer 


(łub łańcuchem) 

30 REM działanie instr 
PRINT było omawiane 
t r a k t o w a ł i s m y k o m p u 
jako k a ł K u t a t o r 


ow napi- 

nazywa 

yczna 

u k c j i 
, 9dy 
ter 


wykonajmy ten program, tzn. naciśnijmy RUN (i 
ENTER). Na ekranie telewizora w lewym górnym 
rogu otrzymamy: 


■i 1*5 


d * 1 


n = ll 


SUM* *11® 

Komputer zignorował wszystkie teksty napisane po 
dokończeni* na str. 24 



iputary... fascynacja dla wszystkiej^ 
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słowie kluczowym REM. Instrukcja REM ma po- 
stać: 

n REM dowolny tekst 
n — numer wiersza 


a po wykonaniu na ekranię otrzymamy: 

to co jest napisane po stówie 
REM to jest Komentarz 


REM — napisane w dowolnym wierszu jest ko- 
mentarzem, który został umieszczony w celu opi- 
sania naszego programu. 


W ZX Spectrum uo słowie REM napisany tekst mo- 
że zajmować kilka linii. W trakcie wykonywania 
programu komputer pominie tekst aż do końca 
ostatniej linii. 

Aby otrzymać na ekranie ( w wyniku wykonania 
programu) wszystkie teksty, które zostały napisane 
po słowie REM, należy zamienić słowo REM — 
słowem kluczowym PRINT i każdy tekst zamknąć w 
cudzysłów. 

Wykonajmy te poprawki, będzie to dobrym 
sprawdzianem omówionych wcześniej czynności 
wykonywanych przy poprawianiu wierszy. Po po- 
prawkach program powinien wyglądać tek: 



PO stówie REM to 
2 “ 


2 . 1.2 

jest napisane 
jest Komentar 


20 LET a 1=5 
30 LET d =1 
40 LET n =11 
45 PRINT ' " tx CZ 
•lufti nume 

50 LET s n = i a i + ( 
52 PRINT "napis 
nazwami zmień 
54 PRINT '"nap i 
) *n jes t wyra 
cznum '• 

56 PRINT '"LET 
i e a r y t m e - tycz 
metyczna inst 
enia" 

60 PRINT ""ais" 
; d "i "n 

65 PRINT 
70 PRINT "SUMR 
75 PRINT '"kazd 
apisany w cu 

a Sie sta ta alfa 
tan cu chem ) " 

80 REM dZ i 3 tani 
PRINT by to o 
traktowali s m 
jako kat ku ta 


by 5,1,11 sa s t 
ry cznym i " 
n - 1 ) *d / 2) *n 
y al,d,n,sn sa 
nych prostych" 
s (a 1 + (n-l) *d /2 
zen i era ar.ytmety 

nazwa = wyrażeń 
ne jest to aryt 
rukcja podstawi 


•; ■ < d = " 


; ai; " 

= " ; n 

= " , sn 

y ciąg z n a k o w n 
dzystowie n a z y w 
numeryczna (tub 

instrukcji 
maw i ane , gdy 
y komputer 
tor 


ticzby 5,1,11 sa sta tym i 
numerycznymi 

napisy al,d,n,sn sa nazwami 
zmiennych prostych 

napis (a 1 + (n-l) #d /2) *n jest 
wyrażeniem arytmetycznym 

LET nazwa = wyrażenie arytme- 
tyczne jest to arytmetyczna 
instrukcja podstawienia 

a 1=5 d = 1 n = 11 

SUMR =110 

każdy ciąg znaków napisany 
w cudzysłowie nazywa s i e s t a t a 
alfanumeryczna (lub łańcuchem) 

Instrukcja PRINT ma postać: 

n PRINT lista lub n PRINT 

n — numer wiersza 

lista — może składać się z nazw zmiennych, wyra- 
żeń arytmetycznych, stałych numerycznych, 
stałych alfanumerycznych i znaków spe- 
cjalnych (' , ;) 

Znaki specjalne sterują postacią wyprowadzanych 
wyników, zapoznaliśmy się z ich działaniem, gdy 
traktowaliśmy komputer jako kalkulator. W wyni- 
ku wykonania drugiej postaci instrukcji PRINT na 
ekranie otrzymujemy pustą linię. 

Omawialiśmy też wyrażenie arytmetyczne i kolej- 
ność wykonywania działań w celu obliczenia war- 
tości wyrażenia, w którym występowały stałe nu- 
meryczne (liczby) połączone operatorami arytme- 
tycznymi. W naszym przykładzie napis: 

(al + (n — 1) * d / 2 ) * n 

jest wyrażeniem arytmetycznym, w którym wystę- 
pują proste zmienne numeryczne, stała numery- 
czna (liczba 2), operatory arytmetyczne (+, -, /, *) 
oraz nawiasy ( ). W trakcie obliczania wartości ta- 
kiego wyrażenia według obowiązujących reguł 
(podaliśmy je w przykładzie 1) komputer pobiera 
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wartości odpowiednich zmiennych i na tych war- 
tościach wykonuje obliczenia. 

Zmienna prosta numeryczna przyjmuje wartości 
będące liczbami rzeczywistymi. Nazwa tej zmien- 
nej może zawierać dowolne litery lub cyfry, ale 
musi zaczynać się od litery. Stała alfanumeryczna 
(tekstowa) ma postać: 

"ciąg znaków” 

— ciąg znaków: dowolny ciąg znaków 

— znaki cudzysłowu ograniczają jej początek i 
koniec 

— tekst "" bez żadnego zpaku zwany jest tekstem 
pustym 

— tekst " " nie jest tekstem pustym, oznacza 

jedną spację, spacje wewnątrz cudzysłowu są 
znakami tekstu 

Instrukcja LET wyznacza wartość zmiennej pod- 
czas działania programu i ma postać: 


n LET V = e 



Rys. Michał Przybyłowskł 

cwi czcnia 
a *2. 718281 
b*2 . 7182818 

to jest przybliżona wartość 
sta it a « 2.7102816 

Napiszmy \eraz: 

70 LET c = 0.27182818285 e 1 

i wykonajmy program, następnie napiszmy: 

70 LET c = 27182818285 e -10 

i wykonajmy program. Kolejne realizacje progra- 
mu dla rożnych postaci zapisu stałej w wierszu 70 
dają ten sam wynik: 

2.2182818 


n — numer wiersza 
V — nazwa zmiennej 
e — wyrażenie arytmetyczne 
Wykonanie tej instrukcji polega na obliczeniu 
wartości wyrażenia arytmetycznego stojącego po 
prawej stronie znaku = (równa się) i podstawienie 
obliczonej wartości na miejsce zmiennej występu- 
jącej po lewej stronie znaku = (równa się). 

Przykład 2.2. 


Dany jest program: 

10 REM Przy k lad 2.2 
20 print "ćwiczenia” 

25 PRINT 

30 LET a a2 .718281 
40 PRINT "a =*" , a 
45 PRINT 

50 LET 6*2.71828182 
50 PRINT "b*",b 
70 LET C *2. 7182818285 

75 PRINT 

80 PRINT "To jest przybliżona 
wartość • s tale j « . " . c 


Zapamiętajmy: 

— litera e oznacza mnożnik dziesiętny np. 2.5e 2 
czytamy jako 2,5 • 10 2 = 250 

— zapis liczby postaci 2,5e 2 nazywa się zapisem 
wykładniczym, 

— kropka jest używana w miejsce przecinka od- 
dzielającego część całkowitą oa części ułam- 
kowej, 

— PRINT drukuje najwyżej 8 cyfr znaczących, 

— do zapisania liczby nie może być użytych wię- 
cej niz 14 znaków, 

— liczby są pamiętane z dokładnością do około 
dziewięciu i pół cyfry, 

— największa liczba całkowita, która może być 
zapamiętana dokładnie, to 2 J2 - 1 = 4294967295 

Analogicznie do pojęcia zmiennej prostej nu- 
merycznej istnieje pojęcie zmiennej prostej alfa- 
numerycznej, której „wartością" jest tekst. Nazwa 
takiej zmiennej składa się z litery (tylko jednej), po 
której musi następować znak dolara ($). Nazwom 
zmiennych alfanumerycznych można nadawać 
„wartości", używając instrukcji 1ET, np: 


Wprowadźmy i wykonajmy ten program. Na ekra- 
nie otrzymamy: 


20 LET p $ = „zadanie" 

dokończenie na str. 26 
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dokortcwnle u tir. 25 

Napisanie w programie instrukcji postaci: 

30 PRINT p $ 

spowoduie w trakcie Jej wykonania wypisanie na 
ekranie sfowa: zadanie. 

Przykład 2.3. 

Napisać program w BASIC-u na obliczenie pola 
powierzchni całkowitej stożka obrotowego ścięte- 
go według wzoru: 

P = TT • R • (R + I) + TT • r • (r + I) 


gdy: tworząca I = 30,25 

promień duży R = 12,75 
promień mały r = 7,25 

W programie należy zastosować zmienne alfanu- 
meryczne. 

Rozwiązanie: 

BASIC (ZX Spectrum) nie rozróżnia liter małych i 
dużych, tzn. nazwy R i r oznaczają tę samą nazwę, 
przyjmujemy więc: 
rd — promień duży 
rm — promień mały 


10 Ren przątim a. 3 
ae print "j«st to przysiadów 
program, j«z*li chctsz to ~~ 
i sz 90 stt * inny sposob" 

85 PRINT 


nap 


n tiT ? i: l Ui 

*0 LET l .80.75 

ą tirsi: 

58 LET i»i« 


50 PRINT 
•rzchni 


"promun" 

" duży" 
mały" 

"Obliczani* poi* P0«i 
stozta * c it t«ęo , gdy 


n 

75 


1INT 


PRINT "tworząc* ■ 


l'r*;di; 


•i* nad Ula 


77 rem PI znajduj* 
w i SZ*m M 

60 LET P.PIardaird+t) aPIaraatr 

* + l) 

90 print -">oi« p*»,catt. atoz 
ta »ci«t« 90 "' r P 

Wprowadźmy I wykonajmy ten program. 
Sprawdźmy otrzymany wynik z wynikiem po- 
danym niżej: 

u*st to przyt lądowy program, 
a«z«ti chcesz to napisz «o ta* 

u inny sposob 

obliczani* poi* powierzchni 
stozta s c i * t« 90 i gdy dan* sa : 

tworząc* .80.75 
proaicn duży >18.75 
promień mały .7.86 


poi* pow.catt. stozta sci«t«go 
P >1979.5951 

Przerabiając podane przykłady programów za- 
uważyliśmy, że zmieniając jakąś wartość danej, na- 
leżało wprowadzić całą instrukcję od nowa, np. 
gdy w programie było 30 LET d = 1, to zmieniając 
wartość d na 4, wprowadziliśmy 30 LET d = 4. 


Napisane dotychczas programy wykonywały ob- 
liczenia na tych samych danych, każda zmiana 
wartości dowolnej danej wymagała jej wprowa- 
dzenia do programu przez zmianę odpowiedniej 
instrukcji. 

Napiszemy teraz program z Przykładu 2.3, tak 
aby mógł być wykonywany dla dowolnych wartości 
I, R i r. 


REM Przy t lad 
PRINT "J«st t 
jeżeli 


rd." ; r 
Iw" i l . 

'd*« f ';d 


łj 

program 
isz go sam 
85 PRINT 
30 INPUT 
40 INPUT 
50 INPUT 
60 PRINT "Oblicz 
erzchni stozta 
dan* s* 

65 PRINT 
70 PRINT 

" rd rj; ms, " «" 
75 PRINT 

77 REM PI znajdu 
Wisz** M 

50 LET p.pisrda < 
m + l) 

90 PRINT ' "pole 
ta scietego 


8.3.1 

o przysiadowy 
chcesz to nap 


w inny sposob" 


d , "rm." ; r* 
"ri*"; r* 

*, ,T m«»" :** 
ani* pola powi 
scittego ,gdy 


'tworzącą > 

i rm 


'i l'r*;d«; 


j* si« nad tla 

rd + l) +PI*rm»(r 

pow.calt. stoz 
P >";P 


Wprowadźmy i wykonajmy ten program. 

Omówimy teraz kolejność działań wykonywa- 
nych przez komputer i wyświetlanych na ekranie. 

W górnej części ekranu ukaże się napis: 
jest to przykładowy program, jeżeli chcesz to na- 
pisz go sam w inny sposob. 

Następnie w lewym dolnym rogu wyświetlone 
zostaną kolejno odpowiednie teksty i kursor L, na- 
leży wtedy wprowadzić dane. A więc: 


rd = E 

Komputer czeka na wprowadzenie liczby — 
wprowadzamy 12.75 (i ENTER), a komputer w tym 
samym wierszu w połowie ekranu wypisze: 


rm = OD 

wprowadzamy 7.25 (i ENTER). Oba napisy zniknęły, 
a komputer wypisał (w lewym dolnym rogu ekra- 
nu): 


i-m 

wprowadzamy 20.75 (i ENTER), a komputer w tym 
samym wierszu w połowie ekranu wypisze: 


r$= m 

wprowadzamy słowo promień (i ENTER). Oba na- 
pisy zniknęły, a komputer wypisał: 

d$= m 
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wprowadzamy słowo duży (i ENTER), a komputer 
w tym samym wierszu w połowie ekranu wypisze: 

m$= 03 

wprowadzamy słowo mały (i ENTER). Oba napisy 
zniknęły, a kompuler wypisał w górnej części ek- 
ranu wyniki, którejuż znamy. 

Instrukcja INPUT umożliwia nadawanie wartości 
zmiennym w czasie działania programu. Możli- 
wość ta jest szczególnie ważna przy pracy konwer- 
sacyjnej. 

Instrukcja INPUT ma postać: 

n INPUT lista 
n — numer wiersza 

lista — może składać się z nazw zmiennych, sta- 
łych alfanumerycznych i znaków specjal- 
nych. 

Działanie znaków specjalnych jest takie samo jak w 
instrukcji PRINT. 

W czasie wykonywania instrukcji INPUT na jej 
zlecenie wprowadzamy z klawiatury wartości sta- 
łych numerycznych i alfanumerycznych, które są 
następnie przenoszone pod kolejne zmienne. Sta- 
łe te nazywają się danymi. 

Stałe alfanumeryczne (tekstowe) wprowadzamy 
w cu dzysł owie, komputer sam to sygnalizuje poda- 
jąc: ri“l (kursor L). Umieszczanie stałych teksto- 
wych opisujących nazwy zmiennych (na liście IN- 
PUT) którym maja być nadane wartości, ułatwia 
wprowadzanie tycn wartości, a tym samym zmniej- 
sza liczbę pomyłek. 

Instrukcja (na ZX Spectrum) postaci: 

30 INPUT ”rd = rd 

w wyniku wykonania daje to samo, co poniższe 
instrukcje: 

30 PRINT "rd =”; 

35 INPUT rd 


jeszcze raz ostatni program 
'5,2, rm = 55, 1 = 100,25 


A teraz wyl 
dla danych np. rd 

Zadania 


1. Napisać w BASIC-u program obliczania wartości 
y danej wzorem: 

v= a" - i?*.- + _ a 

V 2(a , + b a ) a 2 + b 2 2 

dla dowolnych dodatnich wartości ą i b. 

Uwaga: a* - b* = (a 2 - b 2 ) • (a 2 + b ), wprowadzić 
zmienne pomocnicze: c = a , d = b , w = 
c + d, z = c - d np. dla a = 2 i b = 3 
y = -9.3846154 

2. Napisać w BASIC-u program obliczania wartości 

z danej wzorem: 

Z = 'l^ i_6(x2 ~ 2xy + yJ) 

gdy: x =ę 5 »j 2 + 2v, y = 3,7 + v 2 

u, v dowolne wartości, ale u>0 i v>0. 

3. Napisać w BASIC-u program, który dla dowol- 

nej osoby wyprowadza na ekranie: 


NAZWISKO I IMIf 
ADRES: 

KOD MIEJSCOWOŚĆ 
ULICA NR DOMU NR MIESZK. 
NR TELEFONU 
ZAWÓD 


pierwsza strefa 


w tej części 
dane dotyczące 
dowolnej osoby 


druga strefa 


ekranu 


Z-W 


"CEN TRHLNY" NEZUGŁ 60 N6 DYk/NN/K .'// 
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PIÓRO ŚWIETLNE 
DO ZX SPECTRUM 


Jednym z ciekawszych urządzeń zewnętrznych do mi- 
krokomputera ZX Spectrum jest pióro świetlne. Jest ono 
urządzeniem, które samodzielnie może zbudować każdy 
posiadacz mikrokomputera. Wymagana jest jedynie umie- 
jętność lutowania, a do uruchomienia pióra nie jest po- 
trzebny żaden przyrząd pomiarowy. Do budowy wykorzy- 
stano części produlkcji krajowej, których koszt me przekra- 
cza 603 zł* 


Zastosowanie odpowiedniego 
oprogramowania umożliwia ry- 
sowanie piórem na ekranie tele- 
wizora; kreślenie linii, prostoką 
tów, okręgów, kolorowanie 
wskazanego obszaru, umieszcza- 
nie napisów, wybór koloru atra- 
mentu i papieru. Istnieją również 
programy wykorzystujące pióro 
przy wykonywaniu całego szere- 
gu obliczeń matematycznych, np. 
pakiet programów „Library” 
umożliwia wykonywanie rachun- 
ku macierzowego, całkowania 
funkcji, obliczeń statystycznych: 

Posługiwanie się piórem polega 
na dotknięciu wybranego miejsca 
ekranu (np. wskazanie opcji pro- 
gramu) i naciśnięciu dowolnego 
klawisza na pulpicie mikrokom- 
putera. 

Pióro świetlne, wbrew swojej 
nazwie, nie jest urządzeniem 
emitującym lecz wykrywającym 
światło. Każdy element obrazu 
widocznego na ekranie TV posia- 
da swój adres w pamięci mikro- 
komputera. Zawartość pamięci 
obrazu wyświetlana jest 50 razy na 
sekundę, a poszczególne elemen- 
ty obrazu wyświetlane są kolejno. 
Pióro wykrywa moment zaświe- 
cenia się wskazywanego miejsca i 
informację o tym wysyła do ZX 
Spectrum. Na podstawie tej in- 
formacji mikrokomputer „wie", 
który, element obrazu został 
wskazany. Lokalizacja odbywa się 
z dokładnością do najmniejszego 
elementu obrazu — piksela. 

Schemat elektroniczny pióra 
świetlnego przedstawiono na ry- 
sunku 1. 
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Czujnikiem wykrywającym mo- 
ment zaświecenia się wskazywa- 
nego przez pióro miejsca jest fo- 
totranzystor Tl. W wyniku oświet- 
lenia fototranzystora zostaje 
wyzwolony przerzutnik mono- 
stabilny, który generuje krótki 
dodatni impuls. Impuls ten jest 
potwierdzeniem wykrycia mo- 
mentu zaświecenia się wskazy- 
wanego punktu ekranu. Układ 
przerzutnika tworzą bramki NOR 
i NOT (ukł. scalony US1) wraz z 
rezystorem R2 i kondensatorem 
C2. ZX Spectrum wymaga jednak 
sygnału o polaryzacji ujemnej. 
Zmianę fazy sygnału z przerzut- 
nika realizuje tranzystor T2. Za- 
stosowanie w tej roli tranzystora 
zwiększa odporność wyjścia 
układu (gniazdo EAR) na zwarcia. 




lj — . _ąi 


">ęi KM 

Rys. 1 


Elementy układu (za wyjątkiem 
Tl) zmontowano na płytce dru- 
kowanej przedstawionej w skali 
1:1 na rysunku 2. 


Na rysunku 1 
przedstawiono rozmieszczenie 
elementów na płytce. 



W pierwszej kolejności lutuje- 
my elementy dyskretne, nato- 
miast układ scalony US1 montu- 
jemy na końcu. Zastosowany 
układ scalony jest wykonany w 
technologii CMOS i należy ob- 
chodzić się z nim ostrożnie prze- 
strzegając następujących zasad: 

— nie dotykać palcami koń- 
cówek układu, 

— lutować uziemioną lutowni- 
cą. 

Nieprzestrzeganie zaleceń mo- 
że spowodować nieodwracalne 
uszkodzenie układu. Na rysunku 
4 pokazano rozmieszczenie wy- 
prowadzeń zastosowanego ukła- 
du scalonego. 



Fototranzystor Tl umieszczono 
w obudowie pisaka i połączono z 


Rys. 2 




reszty układu za pośrednictwem 
długiego przewodu zakończone- 
go wtyczką „mini Jack'’. Należy 
zwrócić uwagę na sposób umie- 
szczenia tego tranzystora — jego 
koniec powinien być osłonięty 
(rys. 5). 


Pisak 




Fototranzystor 


Rys. 5 

Zmontowaną płytkę drukowa- 
ną umieszczono w obudowie 
wspólnie z baterią 6F22. Na jednej 
z bocznych ścianek obudowy 
umocowano dwa gniazdka. 
Gniazdko oznaczone EAR służy 
do połączenia pióra z gniazdkiem 
EAR ZX Spectrum. Gniazdko 
oznaczone PEN służy do podłą- 
czenia czujnika pióra (fototranzy- 
stor Tl). 

Tak wykonany i sprawdzony 
pod względem poprawności 
| montażu układ możemy podłą- 
I czy ć do mikrokomputera. 


UWAGA 

Podłączenie do ZX 
Spectrum należy wyko- 
nywać przy odłączonym 


zasilaniu pióra. Najpierw 
łączymy fototranzystor 2 
gniazdkiem PEN, nastę- 


t nie łączymy gniazdka 
AR pióra i mikrokompu- 
tera (firmowym kabel- 
kiem). Dopiero teraz włą- 
czamy zasilanie pióra. 

W czasie tych czynnoś- 
ci ZX Spectrum jest włą- 


czony i ma wczytany pro- 
gram obsługi pióra. Nie- 
które egzemplarze ZX 


Spectrum lepiej pracują, 
gdy podłączymy pióro do 
gniazdka MIC. 


Jedyną regulacją, jakiej wymaga 
pióro jest kalibracja, do przepro- 
wadzenia której służy potencjo- 
metr montażowy P (rys. 1). Należy 
zaznaczyć, że kalibracji dokonuje 
się w czasie pracv z programem 
obsługi pióra. Ustawiamy suwak 
potencjometra w położeniu 
środkowym i postępując według 
instrukcji zawartej w programie 
próbujemy pióro skalibrować. Je- 
żeli próba nie powiodła się, 


zmieniamy położenie suwaka (w 
górę lub w dół) i próbujemy ska- 
librować pióro ponownie. Czyn- 
ności te powtarzamy aż do skut- 
ku. 

Raz skalibrowane pióro prakty- 
cznie nie wymaga już regulacji. 


Spis części 

Kondensatory (dowolne- 
go typu) 

Cl — 22 nF 
C2 — 1,5 nF 

Rezystory (najlepiej typu 
MŁT 0,125 W łub 0,25 W) 
R1 — 1 kfi 
R2 — 2,7 MQ 
R3 — 47 kO 
R4 — 2,7 kQ 
Półprzewodniki 
US1 — MCX74000 N 
Tl — BPYP 22 
T2 — BC 238, BC 237 
Inne 

P — miniaturowy po- 
tencjometr montażo- 
wy 220 kQ 

2 gniazdka typu „mini 
„mini 


wyłącznik 


Michał Przybyłowski 







Rozwiązania zadań z nr. 1 

Zadanie li Aby dowiedzieć się, jakie kule są w poszcze- 
gólnych koszach wystarczy tylko jedno ciągnienie. Jeżeli 
np. z kosza oznaczonego kartką czarno-białą (o którym 
wiemy, ź'e nie ma w nim kul białych i czarnych) wyciąg- 
niemy kulę białą, możemy powiedzieć, że są tam 2 kule 
białe, w konsekwencji — w tym, na którym jest kartka 
biała-biała, muszą być 2 kule czarne, a w trzecim koszu: 
biała-czarna, analogiczne rozumowanie trzeba przepro- 
wadzić gdy wyciągniemy kulę czarną. 

Zadanie 2: Jest to najbardziej znane zadanie w teorii gra- 
fów nazywane „problemem mostów królewskich”. Zos- 
tał on rozwiązany przez Leonarda Eulera (1707—1783) w 
roku 1736. Dwie wyspy, A i B, na rzece Pregole w Kró- 
lewcu (ówczesna stolica Prus Wschodnich, obecnie Ka- 
liningrad w zachodniej części ZSRR) były połączone ze 
sobą i z brzegami C i D siedmioma mostami, tak jak to 
pokazano na rys. 1.1. Euler przedstawił tę sytuację za 
pomocą grafu (rys. 1.2.). 

Punkty A, B. C, D, zwane w teorii grafów wierzchołkami, 
reprezentują części lądowe, a Unie łączące te punkty, w 
teorii grafów — krawędzie reprezentują mosty. Euler 
udowodnił, że rozwiązanie tego zagadnienia nie istnie- 
je, a więc nie jest możliwe przejście przez wszystkie mo- 
sty dokładnie jeden raz, tak, aby powrócić do punktu 
wyjścia. 

Zadanie 3: To typowe zadanie z kombinatoryki. Jest to 
5-elementowa permutacja określona na 5-elementowym 
zbiorze i wyraża się wzorem 51=1x2x3x4x5 = 125, a 
więc na pięciu krzesłach pięcioosobowa komisja może 
usiąść na 125 różnych sposobów. 

Zadanie 4: W pudełku było x sztuk amunicji. Wiedząc, 
że liczba amunicji na wszystkich stanowiskach jest rów- 
na, możemy ułożyć równanie: 


1 +- 


= 2 + (x — — 1 — 2) : 6; po uproszczeniu 


-Ł±Ł = 2+ 5x- 17 ,skjd 


6x 4- 30 = 72 + 5x — 17 


-25 


Na każde stanowisko ogniowe było przeznaczone 
1+ * ^ = 5 sztuk amunicji, a stąd otrzymujemy, że by- 
ło 5 stanowisk ogniowych. 


Przedstawcie się 


ii! 


Ile jest w kraju mikrokomputerów i 
akich? Pomóżcie nam zbadać „roz- 
ad” sprzętu komputerowego w Pol- 
sce. Prosimy przysyłajcie do nas infor- 
macje o tym, czy macie mikrokomputer 
bądź dostęp do niego (u kolegi, w klu- 
bie) i koniecznie zaznaczcie, jaki jest 
jego typ. Czekamy na informacje. Pro- 
simy o odpowiedzi na kartkacn pocz- 
towych — ułatwi to nam znacznie pracę 
redakcyjną, a wyniki tej sondy pomogą 
w redagowaniu „IKS-a . 


LIGA MYŚLĄCYCH 


Zadanie nr 1 

— Roman dojeżdża do szkoły autobusami linii miejskiej, au- 
tobusy te w godzinach szczytu jeżdżą w równych od siebie 
odstępach czasowych, co 6 minut. Czas postoju na przystanku za- 
leży od trzech czynników: 

— liczby pasażerów wysiadających, 

— liczby pasażerów wsiadających, 

— stopnia napełnienia autobusu. 

Jeden z autobusów pod wpływem przypadkowych zakłóceń 
opóźnił się. Co będzie się działo dalej na tej linii autobusowej? 


Zadanie nr 2 

— Mapa Polski jest podzielona na 49 województw. Na mapie 
administracyjnej każda para sąsiadujących ze sobą województw 
powinna mieć inne barwy. Ile najmniej barw trzeba użyć do 
prawidłowego sporządzenia takiej mapy Polski? 


Zadanie nr 3 

— Proszę podać czynności Andrzeja przy próbie telefono- 
wania do Piotra w kolejności ich wykonania. Czynności te pro- 
szę narysować w dowolnym schemacie rysunkowym, uwzględ- 
niając wszystkie okoliczności towarzyszące próbie telefonowa- 
nia, przy czym schemat rysunkowy powinien zaczynać się jedną 
czynnością — kończyć też jedną czynnością, a wszystkie one 
powinny być połączone ze sobą w sposób logiczny. 


Zadanie nr 4 

— Pociąg pośpieszny mija zawiadowcę stojącego na począt- 
ku peronu w ciągu 11 sek., a cały peron mający 120 m długości 
w ciągu 26 sek. Jaka jest długość tego składu pociągu? 


Zadanie nr 5 

— Aby rozstrzygnąć, która z dwóch drużyn piłkarskich jest 
lepsza, należy rozegrać jeden mecz. Podaj ile meczy musi ro- 
zegrać dwanaście drużyn, grając systemem każdy z każdym. 

Rozwiązania zadań prosimy przysyłać pod adresem redakcji 
do końca czerwca br., z dopiskiem „Liga Myślących". Punkta- 
cja zależy od liczby prawidłowych rozwiązań. Wśród uczestni- 
ków rozlosujemy książki, a na zwycięzców „Ligi” czekają do- 
datkowe cenne nagrody — niespodzianki. 


Rozwiązania (tylko hasło) należy przesyłać pod adresem 
redakcji do końca lipca br Wśród czytelników rozlosujemy 
bony pieniężne i nagrody książkowe. 
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Pocztowa giełda 


Rozwiązani* krzyżówki nr 1. Hasło brzmi „IKS MOIM PI- 
SMEM" Bony pieniężne 1000 z i wylosowali Przemysław Muraw- 
ski Radom. Elżbieta Bieńkowska Szczecin. Ewa Chruściel Rze- 
szów, Zenon 8wl*rczynskl Ogrodzieniec, Adam Mazurczak 

Sokołów Podlaski. 

Nagrody książkowe otrzymują Zdzisław Wożniczko Tarnow- 
skie Góry. Romuald Sztuklewicz Poznań, Prav**n kant Shara- 
ma Wrocław. Witold Turkiewicz Kołobrzeg. Mariusz Jaworski 

Pabianice. Leszek Szydełko Kalisz. Dariusz Rulskl Piekary Ślą- 
skie, K. Kullkiewicz Wrocław, Mikołaj Kmita Gdynia Karwiny l, 

Jerzy Pyszny Rybnik 1 2 


W „Lidze Myślących” wysoki poziom. Kilkuset uczestni- 
ków przysłało prawidłowe odpowiedzi. „Liderów" ogłosimy 
w następnym numerze. 


Warszawskie notowania „komputerowe": 

ZX Spectrum 48K + magnetofon — 100 tys. 

ZX Spectrum 128K — 200 tys. 

Atarl 600 XL + magnetofon — 1 20 tys. 

Aterl 800XL + magnetofon — 120 tys. 

Atarl 130XE - 130 tys 

Commodore C 64 + magnetofon + 2 joystiki — 300 tys 

Commodore VC 20 — 55 tys. 

Commodore 18 + magnetofon — 65 tys. 

Sharp 700 - 1 90 tys. 

Schneider Amttrad CPC 484 — 250 tys. 


Lista „przebojów” 

Notowań część druga Największym powodzeniem cieszył się 
program „Odwracanka" — tak zadecydowali nasi Czytelnicy „Tu 
irzeba myśleć" — słyszeliśmy najczęściej w uzasadnieniu. W na- 
szej tabeli na drugie miejsce wysunął się „Compect" — program 
na Spectrum. 

Prowadzący w naszych notowaniach do tej pory program 
„Wykresy" spadł na trzecią pozycję, a jego użytkownicy wskazują 
na niedoskonałości — program zmodyfikujemy i zgodnie z życze- 
niem posiadaczy innych mikrokomputerów przedstawimy wersję 
na Commodore i Atari. 

Nadal czekamy na Wasze propozycje i opinie. 


Ogłoszenia 


Przyjmujemy ogłoszenia. Zadzwoń lub napisz. Adres w stopce. 


W naszym komputerlandzie 

Tak się jakoś złożyło, że w naszym kompu- 
terlandzie wypoczywały ostatnio prawie 
wszystkie roboty i jeśli nawet któryś miał 
ochotę, choćby dla draki, od rana coś zrobić, 
to i tak okazywało się, że jest kolejne święto, 
dzień wolny, dzień już odpracowany, dzień, 
który będzie odpracowany, wolna sobota, 
niedziela itp. Ponieważ zespół robotów w 
świętowaniu i odpoczynku osiągnął już praw- 
dziwe mistrzostwo, postanowił przetestować 
następujące sytuacje: 

Teza: Robot nie jest stworzony do pracy. 
Analiza możliwości: Jak wiadomo z ogól- 
nych doświadczeń f>raca robota męczy. Po 
racy, podobnie zresztą jak przed pracą, ro- 
ot czuje się zmęczony, wypluty, skołowany 
oraz oczekuje zbawczego dzwonka na fajrant. 

Wniosek: Gdyby robot był stworzony do 
pracy, to by go praca nie męczyła c.b.d.u. 

Wnioski praktyczne: Należy rozważyć po- 
mysł przydatności wolnych poniedz^łków, 
rozważyć koncepcję stopniowego wprowa- 
dzania wolnych wtorków, skupić uwagę nad 
projektem zarządzeń w sprawie wolnych śród, 
przeanalizować ideę ustalenia wolnych 
czwartków i dokonać wstępnych przymiarek 
do projektu wolnych piątków. 

Gdyby jednak, wśród ogólnego luzu i bim- 
bania znaleźli się ekstremiści i zaprzysięgli 
malkontenci (jak — nie wytykając — Spek- 
truś), takim należy w nagrodę za dotychcza- 
sowe zasługi udzielić bezterminowego urlopu 
wypoczynkowego i ogłosić jeden wielki CZAS 
RELAKSU... 


Podglądał: 

Eugeniusz MLECZAK 





Sprzedam: 

ATARI 800 XL 

z firmowym magnetofonem i 2 joystikami 
Helena Calanca ul. Łambowskiego 6/3 
45-031 Opole Tel. - 36204 
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Krzyżówka Nr 3 

ABCDEF6H 13 


POZIOMO: 2-A zajmuje się elektroni- 
kę, 4-G napój alkoholowy, 5-A bizantyj- 
ski okręt wiosłowy, 5-1 100 m 2 , 7-H popu- 
larny kwiat rosnący w zbożu, 8-A reda, 
10-C 220 V, 11 -A władca wiatrów, 13-A 
posiada, 13-D bieg na..., 14-A mała Ur- 
szula, 16-A np. odnoszenie się referatu 
lub ustawy do czegoś. 

PIONOWO: A-l przeciwieństwo ko- 
dowania, G-1 starsza siostra pompki, 1-1 
występuje na scenie, E-2 sakwa, kiesa, 
C-4 atomowa lub sezonu, 1-4 może być 
cukrowa, D-7 imię żeńskie, J-7 zbieracz, 
G-8 Hg, H-10 wóz pancerny, B-11 ka- 
mień szlachetny, F-12 przedmiot, A-13 
rzeka przepływająca przez Dessan, 0-13 
kijek. 

HASŁO: 2-1, 14-1, 7-H, 8-E, 14-A, 2-E, 
16-G, 13-E, 6-1, 4-1, 

8-F, 10- A, 5-D, 10-E, 8-G, 16-F, 

16-F, 16-D, 13-1, 5-G 

10-H, 2-1, 2-A, 11-C, 11 -A, 6-C. 

Rozwiązania (tylko hasło) należy przesyłać pod 
adresem redakcji do końca lipca br. Wśród czytel- 
ników rozlosujemy bony pieniężne i nagrody 
książkowe. 
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Komputery serii GRiDCase wyprodu- 
kowane przez firmę GRiD Systems, Co. są 
utrzymane w standardzie IBM. Ich wiel- 
kość odpowiada rozmiarom małej teczki. 
Poszczególne typy różnią się między sobą 
zastosowanymi monitorami od zwykłych, 
ciekłokrystalicznych w cenie 2975 $ do ga- 
zowo-plazmowych za 4350 $. Pracują 
opierając się na 16-bitowym mikroproce- 
sorze 80C86. Standardowy akumulator 
umożliwia ciągłą pracę przez 5 godzin dla 
komputera z ciekłokrystalicznym monito- 
rem i 1 godzinę dla komputera z monito- 
rem pazowo-plazmowym. GRiDCase wy- 

f iosazony jest w stacje dysków dla 3,5-ca- 
owych dyskietek, z których każda może 
zawierać 720 KB. (c.) 

Z OSTATNIEJ CHWILI : W KOLUSZKACH 
PRZED KWADRANSEM SPRZEDANO 
OSTATNI EGZEMPLARZ NAJNOWSZEGO 

numeru miesięcznika 




Rys. Michał Przybyłowski 


_U«I I 

w a ul. Grzybowska 77 , telefon 20-21-27 i 359-34. Rękopisów nie zamówionych redakcja nie zwraca i zastrzega sobie pra- 
wo do skrótów. Nakładem: Wydawnictwa „Czasopisma Wojskowe”, Warszawa ul. Grzybowska 77. Fotoskład i druk ro- 
tograwiurowy — Wojskowe Zakłady Graficzne im. gen. dyw. A. Zawadzkiego. Nr zam. 7728. Nr ind. 382809 P- 77. 
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Trwają wakacje. Do tradycyjnych form letniego 
wypoczynku dołączyła jeszcze jedna — wakacje z 
komputerem. To frajda ogromna, a dla wielu jedyna 
okazja do pierwszego kontaktu z tym urządzeniem. 
Mikrokomputer pod namiotem, na leśnym biwaku, 
wszędzie, to też osiągnięcie techniki. Tacy już widać 
jesteśmy: jeśli nowość nam się podoba, ulegamy jej 
całkowicie: wszystko dla komputerów. W tym szaleń- 
czym pędzie za nowoczesnością młodzi miłośnicy in- 
formatyki jakby zapomnieli, że to nie oni jej, ale to 
właśnie ona im służyć powinna 

Od września informatyka znajdzie się w programie 
nauczania szkół średnich — nie wszystkich, co 
prawda, ale pierwszy krok już został zrobiony. Teraz 
nowoczesną technikę trzeba poznać, zrozumieć i 
nauczyć się ją wykorzystywać. Wiadomo, jak jestze 
szkolnym przedmiotem. Wszystko zależy od nauczy- 
cieli, a tych niestety nie mamy tylu, ilu do nauczania 
informatyki potrzeba Wystarczy też chwila nieuwagi 
pedagoga i z dotychczasowej przyjemności zrobi się 
smutny obowiązek, a w konsekwencji przybędzie le- 
szcze jeden trudny przedmiot, męczący po nocach 
koszmarnymi snami, w których krwiożercze bajty po- 
żerać będą niewinne bity. 

Ale informatyka to krok pierwszy. Krok drugi, to 
mikrokomputery w szkole nie jako przedmiot, ale 
pomoc dydaktyczna, środek umożliwiający spraw- 
niejszą naukę. Uczeń nie musi przecież znać tajni- 
ków komputerowe) techniki. Jego wiedza to sprawne 
posługiwanie się kilkoma klawiszami. Wszystko po- 
winno zależeć od jakości programów edukacyjnych, 
które oprócz wartości merytorycznych przekazywa- 
nych treści muszą być konstrukcjami przejrzystymi, 
umożliwiającymi łatwą obsługę, dokładnie instruują- 
cymi użytkownika o tym, jak powinien zachować się 
przed komputerem. 

W myślach o tej przyszłości umiaru nie ma Trwają 
seminaria, sesje, konferencje, o tym, czym elektroni- 
ka powinna być w szkole. Dobrze, że teoria wyprze- 
dza praktykę Jeszcze lepiej, kiedy udaje się ją 
wprowadzić w życie, a taką szansę daje wyproduko- 
wanie, być może taniego, mikrokomputera we wroc- 
ławskiej ELWRO i niesłabnące zainteresowanie in- 
formatyką wśród młodzieży i dzieci 
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W komputerowym raju? 

(Korespondencja własna z Singapuru) 


Co, nie przywiozłeś stamtąd komputera??? Frajerze, 
przecież one są tam bajecznie tanie! Jak można zaprze- 
paścić taką wspaniałą okazję? Czy ty w ogóle potrafisz 
myśleć i Uczyć? Jeśli tobie nie zależy, to przynajmniej po- 
myślałbyś o kolegach. Tak mniej więcej przed rokiem 
powitał mnie jeden z kolegów, ogarnięty mikrokompu- 
terowo pasję. Kiedy więc niedawno nadarzyła ml się 
ponownie okazja podróży do Singapuru, postanowi- 
łem zarówno pomyśleć, jak I policzyć, pomny tych 
gromkich reprymend. Najlepiej jednak „liczy” się na 
miejscu, „zanurza|ęc" się w komputerowy rynek. 

Pierwsze zaskoczenie wiąże się z 
tym, że owo „zanurzenie się" nie jest 
wcale takie proste, Bo choć miasto- 
-państwo, jakim jest Singapur wygląda 
od pierwszego wejrzenia na jeden 
olbrzymi — i trzeba to również przyznać 
— olśniewający supermarket, gdzie 
sprzedaje się dosłownie wszystko, to 
znalezienie się w komputerowym raju 
nastręcza pewne trudności. Trzeba po 
prostu wiedzieć, gdzie się udać, Nie 
chcąc nadwerężać cierpliwości Czy- 
telników „IKS-a", powiem więc od razu, 
że składa się on z trzech miejsc god- 
nych uwagi i odwiedzenia: FUNAN 
CENTRE mieszczącego się przy North 
Bndge Road 109, PEOPLE'S PARK 
CENTRE przy Upper Cross Street 1 01 i 
SIM LIM TOWER, znajdującego się 
przy Jalan Besar 10 I to właśnie w ta-' 
kiej kolejności. 

Gdy już wiemy gdzie, wybierzmy się 
zatem do jednego z nich, najokazal- 
szego i najbardziej renomowanego 
wśród polskich „turystów", a za taki 
uchodzi Funan Centre. Zresztą jest to 
bez znaczenia również z innego powo- 
du, Jak bowiem nietrudno było się 
później zorientować, dystrybucją sprzę- 
tu komputerowego wśród pokaźnej 
liczby firm handlowych i salonów 
sprzedaży zajmuje się kilku głównych 
jego dostawców. Oni też określają jego 
podstawową cenę, poniżej której me 
zejdzie żaden sprzedawca, mimo nie- 
zaprzeczalnych walorów osobistych i 
zdolności kupieckich nabywcy. To, co 
sprzedający opuści z ceny wywoław- 
czej oznacza dokładnie pomniejszenie 
o tyle jego zysku. Często bywa i tak, że 
gdy klient jest bardzo cierpliwy i na- 
molny w targowaniu się o cenę, a tar- 
gowanie się jest w Singapurze na po- 
rządku dziennym przy wszelkich zaku- 
pach i nawet wskazane ze względów 
obyczajowych, wówczas sprzedawca 


cy marmurem, gładki jak stół hall. ale 
już podmuch zimnego klimatyzowane- 
go powietrza wciąga nas do wnętrza, 
I tu czeka na nas pierwsze rozczaro- 
wanie. W środku fontanna, rozstawione 
kawiarniane stoliki, rozświetlone witry- 
ny sklepów ze sprzętem fotografi- 
cznym, radiotechnicznym, ciuchami 
wszelkiej maści, za to żadnych kompu- 
terów. Ktoś mało odporny psychicznie 
gotów więc natychmiast zrezygnować, 
Nic bardziej błędnego, Trzeba bowiem 
wiedzieć, że komputery ulokowały się 
dopiero na szóstym piętrze togo wielo- 



sięga do specjalnej KsiązKi z cenami 
lub też telefonicznie kontaktuje się ze 
swoim dostawcą, czy aby nie przeho- 
lował przy opuszczaniu. Wynika więc z 
tego generalny wniosek, że cena pod- 
stawowa sprzętu komputerowego w 
różnych punktach jest stała, różni się 
natomiast zyskiem, jaki chce osiągnąć 
sprzedający. Tak więc identyczna dru- 
karka, monitor czy klawiatura ze stacją 
dysków mogą się różnić ceną w zale- 
żności od miejsca kupna o 20, 50 a 
czasem i nawet 100 dolarów singapur- 
skich Ten ostatni przypadek należy 
jednak do rzadkości. Niezorientowa- 
nym i dla lepszego zrozumienia tego, o 
czym będzie później, winien jestem in- 
formację, że za jednego dolara amery- 
kańskiego płacono w banku 2,1 7 dola- 
ra singapurskiego. 

Uzbrojeni w te podstawowe dane, 
możemy wreszcie przekroczyć progi 
Funan Centre, Właściwie szklano-be- 
tonowy wieżowiec o nowoczesnej syl- 
wetce nie wyróżnia się niczym szcze- 
gólnym wśród budowli, jakich tu w Sin- 
gapurze jest wiele. Dokładnie rzecz 
biorąc nie ma także progów tylko Iśnią- 


branzowego supermarKetu. A więc 
winda, wciśnięty guziczek z cyfrą 6, i 
jedziemy. Tak oto dostajemy się do 
krainy marzeń niejednego młodego 
człowieka. 

Bo też rzeczywiście na tym jednym 
piętrze jest tyle sklepów z komputero- 
wymi cudeńkami, ile bez mała wszyst- 
kich stoisk w warszawsKich domach 
towarowych „Centrum ' Pierwsze wra- 
żenie — dominacja, i to zdecydowana, 
produktów japońskich Potentata ta- 
kiego jak amerykański IBM, kontrolują- 
cy do niedawna 80. proc. komputero- 
wego rynku, niemal nie widać, Nie zna- 
czy to wcale, by wyrobów tego reno 
mowanego koncernu nie było. Niepo- 
dobnego. są. 

Ale w swej masie przytłaczają je urzą- 
dzenia z magiczną tabliczką Madę in 
Japan oraz równie często sygnowane 
przez Tajwan, Hongkong czy Koreę Po- 
łudniową. Wystarczy bowiem powie- 
dzieć, że obroty japońskiego giganta 
komputerowego FUJITSU LIMITED w 
sprzedaży w roku ubiegłym sięgnęły 
sumy prawie 7 miliardów dolarów. Tak- 
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jesl autu zawalona Ntc dziwnego, sko- 
ro Japończycy skierowali swe ekspor- 
towe wysiłki właśnie w tym kierunku. 
Drukarki, stacje dysków, monitory, dy- 
skietki dostępne na singapurskim ryn- 
ku a produkowane przez Japończyków 
są najwyższej klasy. A ceny. gdyż o 
nich mówimy od dłuższego czasu, wy- 
dają się interesujące. Wymieńmy kilka 
przykładowo. Drukarka dó Schneidera, 
ciesząca się w naszym kraju niesłab- 
nącym powodzeniem, Seikosha SP- 
-1000 w wersjach A lub AP kosztuie 
440-450 doi. sing.. a wyprodukowana 
w Hongkongu ćzy Korei Płd drukarka 
do tego samego typu mikrokomputera 
Amstrad DMP-2000 jest do nabycia w 
cenie 450-460 doi. sing. Z kolei łaśmy 
wymienne do Seikoshy SP 1000 kosz- 
tują 15 doi. sing.. zas do SP-500 są o 2 
doi. sing. tańsze. A dyskietki do Ams- 
trada, by pozostać przy tym samym ty- 
pie komputera C ; -2 wycenione są na 
7 doi. sing. Inna drukarka, współ- 
pracująca z Macintoshem czy Epso- 
ńem. legitymująca- się równoległym 
wejściem i prędkością druku 120 zna- 
ków na sek., oznaczona symbolem Na- 
tional Super 5. ceniona jesl na 480-500 
doi. sing. Zbliżoną ceną wykazują się 
tez drukarki firmy Brother Industries 
L.td, które w dużym wyborze typów i po- 
kaźnych ilościach znajdują się na pół- 
kach singapurskich firm handlowych. 

Nie wspominam już w tym miejscu o 
okablowaniu, bo w Funan Center są 
punkty wykonujące na poczekaniu 
wszystkie możliwe połączenia do do- 
wolnego typu komputera za naprawdę 
niską opłatą. Obfitość programów, 
książek, instrukcji, fachowych periody- 
ków z dziedziny informatyki jest do- 
prawdy oszałamiająca. Specjalistyczna 
obsługa sprawia częściej wrażenie 
twego doradcy n;ż sprzedawcy, który 
stara się wyłącznie ..upłynnić" posia- 
dany towar. Wszędzie podłączony jest 
sprzęt do demonstracji, przy któiym po- 
tencjalny klient może spędzić i cały 
dzień, wychodząc w końcu bez doko- 
nania zakupu. Przy wyjściu usłyszy 
wtedy grzeczne zaproszenie, by od- 
wiedził firmę w dniu następnym, gdyż 
może łatwiej będzie mu się zdecydo- 
wać. Bo każdy tam zdaje .sobie sprawę, 
ze kupno Komputera jest zawsze 
mniejszą lub większą inwestycją i poś 
piech nie jest przy tym wskazany, Tym 
bardziej że zakupiony Komputer winien 
spełniać określone zadania funkcjo- 
nalne me zaś służyć wyłącznie dzie- 
cięcej zabawie. Mimo to miejscowych i 
zagranicznych klientów nie brakuje w 
Funan Centre. W sklepie firmy Syntax 
Computer Pte. Uri. mogłem na przykład 
bez trudu zauważyć przygotowany do 
wysyłki kompletny zestaw Amstrada 
CPC 61 28. Z nalepek adresowych wy- 
nikało. ze zawędruje do dalekiego Ma- 
drasu w Indiach. Jeśli zaś o innie cho- 
dzi. i w tym roku wróciłem bez kompu- 
tera... 

Jerzy MARKOWSKI 
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że Tajwan, produkujący głównie na ja- 
pońskiej licencji, zwiększył w ostatnich 
3 latach swó| eksport sprzętu korflpute-' 
rowecjo 4 -krotnie, do. około 2 miliardów 
dolarów rocznie, stając się czołowym 
eksporterem w tej branży. Takie firmy 
jak Compaq, Leading Edge. Epson, 
Panasonic. Kaypro czy Tandy są dziś 
w stanje zaopatrywać rynki w kompute- 
ry osobiste tańsze i porównywalne pa- 
rametrami z produktami IBM. Na przy- 
kład wyprodukowany w Korei Pld. 
komputer Leading Edge wyposażony 
jesl w dwie stacje dysków, większą 
pamięć operacyjną niż standardowy 
IBM PC, edytor tekstu oraz 15 -miesię- 
czną gwarancję. Te właśnie tendencje, 
jak w soczewce odbijają się na kompu- 
terowym rynku singapurskim. 

Przejdźmy zatem do konkretów naj- 
bardziej interesujących, a więc cen. W 
salonach sprzedaży różnych firm w 
Funan. Nic bowiem) bardziej frapujące- 
go. jak to za ile móżna nabyć komputer 
domowy właśnie łam. Poczynić jednak 
wypada istotną uwagę, iz wszystkie 
ceny zanotowane dla Czytelników 
„IKS-a" są cenarhi wywoławczymi, a 
więc bez targowania się, tudzież wyra- 
żenia chęci nabycia kilku jednostek, co 
także skutecznie obniża koszty. 
Przedmiot marzeń niejednego z kom- 
puterowych zapaleńców, czyli kom- 
pletny zestaw IBM PC/XT ze stacją 
dysków, monitorem, twardym dyskiem 
640 KB. drukarką itd. można nabyć juz 
za ok. 1800 doi.- USA Bez drukarki ten 
sam komputer kosztuje o 200—250, 
doi. mniej. Tych, którym i tak suma la 
wydaje się zawrotna, pragnę pocie- 
szyć, że kompatybilne hardwareowe i 
softwareowe komputery np. Macintosh 
model Mac-Charlie można nabyć o 
100 - 200 doi, taniej. Słaba to co praw- 
da pociecha, zwłaszcza dła mniej za - 
sobnych finansowo kieszeni, ale jed- 
nak, Wszyscy bowiem zdajemy sobie 
sprawę, że twardy dysk jest tym ele- 
mentem, który w decydujący sposób 


Asziaituje ceny Komputerów tej Klasy. 
Niemniej specjaliści przewidują, że 
pamięci masowe będą taniały, a tym 
samym i ogólny koszt komputerów, W 
tym roku w Singapurze dodatkowy 
wpływ-na wyższć ceny sprzętu kompu- 
terowego ma niewątpliwie także dra- 
styczny wzrost kursu japońskiego jena 
(o 41 proc,) w stosunku do amerykań- 
skiego dolara.' A przecież reguły' cen 
dyktuje w tym regionie Japonia. 

Są oczywiście i komputery znacznie 
tańsze. Znany i u nas popularny Com- 
modore C-64 ze stacją dysków . zielo- 
nym monitorem można kupić już za 
630—650 doi. singapurskich, Posiada- 
czem innego modelu Cl 300 tej samej 
firmy ó pojemności pamięci 128 KB 
można stać się za 1100 doi. sing. Dla 
porównania mikrokomputer Sinclaira w 
wersji Spectrum ZX z pamięcią 64 KB 
kosztuje zaledwie 260 'doi. sing. Wśród 
niezbyt drogich komputerów domo- 
wych obecna jest także na tutejszym 
rynku firma Atari ze swym modelem 
800 XL, wycenionym wraz ze stacją 
dysków na 500 doi. sing. Bardzo eks- 
pansywny, także cenowo, wydaje się w 
Singapurze Schneider CPC 61 28, który 
konkuruje skutecznie z innymi firmami. 
Za jego wersję z zielonym monitorem 
trzeba zapłacić 1000, a z -kolorowym 
1 1 50 doi. sing. Prawdziwą furorę na tu- 
tejszym rynku robią komputery firmy 
Epson Corporation rodem z Nagano, 
zwłaszcza zaś Epson QX-16 oraz pro- 
dukty innej renomowanej firmy japoń- 
skiej Seikosha Co,, Itd oznaczone jako 
Seiko seria 8600, Te ostatnie mają już 
wbudowane twarde dyski o pojemnoś- 
ci 1 0 MB. 20 MB lub 50 MB Większość'; 
komputerów osobistych wygląda tak 
samo. ma zbliżone parametry, pracuje 
ze standardowym oprogramowaniem i 
niewiele różni się w cenie. Do tego mo- 
żna się przyzwyczaić także w Singapu- 
rze. 

Znacznie trudniej natomiast przy- 
zwyczaić się do obfitości urządzeń pe- 
ryferyjnych. Dosłownie każda firma 
handlująca sprzętem komputerowym 











Rekordy o zmiennej długości 
na ZX Spectrum 


Współczesne mikrokomputery domo- 
we nie oferują użytkownikowi zbyt dużo 
pamięci RAM. W najpopularniejszych z 
nich przy pracy w BASIC-u dostępne 
jest — w zależności od komputera — oko- 
ło 39-43 KB. Jest to ilość niewystarczają- 
ca, szczególnie gdy chcemy operować 
większymi zbiorami danych. 


Istniejące ograniczenie zmusza 
użytkownika do racjonalnego i 
oszczędnego gospodarowania pa- 
mięcią. W mikrokomputerze ZX 
Spectrum jedną z dróg prowadzą- 
cych do przedstawionego wyżej celu 
jest wykorzystanie nieograniczonej 
długości zmiennej znakowej do ope- 
racji na rekordach o zmiennej dłu- 
gości. 

Wyobraźmy sobie, że chcemy na- 
pisać program katalogujący nasz 
księgozbiór (lub zbiór posiadanych 
płyt, kaset itp.). Dla każdej pozycji 
należy zapamiętać nazwisko i imię 
autora oraz tytuł książki. Nazwiska 
autorów i tytuły mogą mieć różno- 
rodną długość. Gdybyśmy chcieli 
przechowywać nazwiska w tablicy 
znakowej, trzeba by zadeklarować 
tablicę o rozmiarze (n, m), gdzie: 
n — sumaryczna liczba pozycji do 
skatalogowania, 

m — liczba znaków w najdłuższym 
nazwisku (około 25 znaków). 

Podobne rozumowanie można 
przeprowadzić dla tytułów. Prze- 
chowywanie nazwisk i tytułów w 
tablicach znakowych okazuje się 
więc bardzo nieefektywne, gdyż du- 
ża część tych tablic pozostaje niewy- 
korzystana. 

Nazwiska i tytuły tworzą rekordy 
o zmiennej długości. Ekonomicznym 
— z punktu widzenia pamięcio- 
chłonności — rozwiązaniem jest 
przechowywanie nazwisk w jednej 
zmiennej znakowej, np. n$, a tytu- 
łów w drugiej, np. t$. Wykorzystu- 
jemy tu pewną osobliwość ZX Spec- 
trum, polegającą na tym, że długość 
zmiennej znakowej jest nieograni- 
czona (ściślej mówiąc jest ograniczo- 
na tylko pojemnością pamięci). Na- 
zwiska i tytuły dopisywane są do 


zmiennych n$ i t$ w kolejności ich 
wprowadzania przy użyciu instrukcji 
LET n$ = n$ + u$ + 

LET t$ = t$ + v$ + 
gdzie: u$ — kolejne nazwisko, 
v$ — kolejny tytuł. 

Znak średnika jest separatorem, od- 
dzielającym kolejne nazwiska lub ty- 
tuły od siebie. 

Dostęp do tak zapisanych rekor- 
dów możliwy jest dzięki zapamięta- 
niu początków wszystkich rekordów. 
Najlepiej użyć do tego dwóch tablic 
znakowych (odrębne tablice dla na- 
zwisk i tytułów), np. a$ (n, 3) i b$ 
(n, 3). Zakładam tu, że z każdym ty- 
tułem skojarzone jest tylko jedno na- 
zwisko, pozwalające dotrzeć do da- 
nego tytułu (fizycznie zapisanych 
może być więcej nazwisk, ale pamię- 
tany jest tylko początek pierwszego). 
Aby uniknąć tego ograniczenia, na- 
leży zwiększyć wymiar tablicy a$, 
np. a$ (n + 1. 5 n, 3). 

Takie rozwiązanie pozwala na do- 
stęp do rekordów zarówno wg na- 
zwisk, jak i tytułów. Aby dostęp do 
rekordów był szybki (np. metodą 
podziałów połówkowych) tablice a$ i 
b$ muszą być posortowane w kolej- 
ności alfabetycznej. Jeżeli zależy 
nam na szybkim dostępie tylko wg 
nazwisk, wystarczy aby posortowana 
była tylko tablica a$. Dwa pierwsze 
bajty w każdym wierszu tablic a$ i 
b$ użyte będą do przechowywania 
adresu początku rekordu w zmiennej 
znakowej odpowiednio n$ i t$, bajt 
trzeci jest odsyłaczem do tablicy 
organizacyjnej r$ (n, 4). Tablica ta 
wiąże nazwisko z odpowiednim tytu- 
łem i odwrotnie. Zawiera ona w każ- 
dym wierszu adres początku nazwi- 
ska w zmiennej n$ i adres początku 
tytułu w zmiennej t$ skojarzonego z 


danym nazw skiem. Adresy począt- 
ków rekordów przechowywane są w 
postaci znakowej na dwó;h bajtach 
(jest to oszczędniejsze, gdyż liczby 
zajmują 5 baj ów): 

adres ~ 300 bajt 1. + bajt 2. 
Znając adres początku rekordu (x) 
możemy go zapisać w postaci zna- 
kowej przykładowo dla — tego 
wiersza tablicv a$: 

LET a$ (i, 1) = CHR$ (INT 
(x) 200) - - 32 

LET a$ (i, 2) = CHR$ (x-200 
(CODĘ a$ (i, 1) - 32) + 
32 ) 

Adresy można łatwo rozkodować 
wg wzoru: 

LET adres 200 (CODĘ a$ 
(i, 1) - 32) * (CODĘ a$ (i, 2) 
-32) 

Dodanie stałej 32 przy kodowaniu 
adresów pozwala na przesunięcie 
kodu znaku do przedziału 32, 232. 
Znaki o kodach mniejszych od 32 nie 
dają się bowiem wyświetlić, co 
utrudnia testowanie programu. 
Również mnożnik 200 został przyję- 
ty arbitralnie z myślą o ułatwieniu 
testowania programu (można przy- 
jąć dowolny inny mnożnik — 223). 
Zapewnia on przestrzeń adresową w 
przedziale (0, 44823) co w praktyce i 
tak znacznie przekracza potrzeby. 
Odsyłacze do tablicy organizacyjnej 
mogą być pamiętane na jednym baj- 
cie, gdy założymy, że liczba rekor- 
dów nic przekroczy 223. 

Wtedy przykładowo: 

a$ (i, 3) = CHR$ (n + 32) 
n= CODĘ (a$ (i, 3)) - 32 
gdzie: i — nr wiersza w tablicy a$, 
n — nr wiersza w tablicy r$, 
pod którym zapisane są in- 
formacje dotyczące nazwiska 
i tytułu. 

Ograniczenie liczby rekordów do 
223 wynika ż prób przeprowadzo- 
nych na mikre komputerze ZX Spec- 
trum 48K. 

Przykładowy schemat powiązań w 
omówionych strukturach danych 
przedstawiony został poniżej (uwa- 
ga: w celu zwiększenia przejrzystości 
wszystkie adresy podane są dziesięt- 
nie, a nie znakowo): 

n$ = ”Naur. P.; Turski. W.M.; 
Strizenec. M.;” 

t$ = "Zarys, metod, informa- 
tyki; Propedeutyka, informa- 
tyki; System: człowiek — 

komputer;” 

Tablica a$ 



adres początki, 
nazwiska w 

odsyłacz do 


zmiennej n$ 
(2 bajty) 

(1 bajt) 


1 

21 

1 

2 


9 

9 
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Tablica b$ 


adres początku 
tytułu w 
zmiennej t$ 
(2 bajty) 

odsyłacz do 
tablicy r$ 
(1 bajt) 

25 

50 

1 

3 

2 

1 


Tablica r$ 


adres początku 
nazwiska 
w n$ 

(2 bajty) 

adres początku 
tytułu w t$ 

(2 bajty) 

1 

21 

1 

50 

9 

25 


Wyszukiwanie informacji wg na- 
zwiska odbywa się zgodnie ze sche- 
matem: 


a) znaleźć n-nr wiersza w tablicy 
a$, w którym zapisany jest adres 
początku podanego nazwiska, 

b) odczytać p — odsyłacz do tablicy 
organizacyjnej (odsyłacz ten za- 
pisany jest w a$ (n, 3)), 

c) odczytać z tablicy organizacyjnej 
adres początku tytułu — ap (ad- 
res ten zapisany jest w elemen- 
tach r$ (p, 3) i r$ (p, 4)), 

d) odczytać tytuł ze zmiennej t$, 
począwszy od elementu ap aż do 
pierwszego znaku średnika. 

Wyszukiwanie informacji wg tytu- 
łu odbywa się podobnie, przy czym 
odsyłacza do tablicy organizacyjnej 
szukamy i odczytujemy go z tablicy 
b$. 

Zaletą przedstawionego rozwiąza- 
nia jest całkowite wykorzystanie pa- 
mięci oraz szybki dostęp do rekor- 
dów zarówno wg nazwisk, jak i tytu- 
łów (przy założeniu, że obydwie tab- 
lice, tj. a$ i b$ są posortowane). 
Wadą jest konieczność deklarowa- 
nia dodatkowych tablic do pamięta- 
nia odsyłaczy i adresów początków 
rekordów oraz wydłużenie obliczeń, 
wynikające z kodowania i dekodo- 
wania adresów. 

Rozwiązanie to jest jednak ele- 
ganckie i wykorzystuje typowe me- 
tody informatyczne (odsyłacze). Jest 
godne polecenia we wszystkich pro- 
gramach, gdzie mogą wystąpić re- 
kordy o zmiennej długości, np. przy 
budowie wielojęzycznych słowni- 
ków, wszelkiego rodzaju katalogów 
itp. 

Janusz MORBITZER 



Program „Biblioteka" napisany w języku BASIC 
na ZX Spectrum umożliwia skomputeryzowanie 
domowej biblioteki. Informacje związane z jedną 
książką (nazwisko lub nazwiska autora oraz tytuł) 
tworzą rekord. 

Struktura wewnętrzna programu obejmuje dwie 
zmienne znakowe do przechowywania nazwisk i ty- 
tułów oraz tablice odsyłaczy: pamiętane są w nich 
adresy początków nazwisk i początków tytułów 
oraz powiązania autor — tytuł. Jest to przykład wy- 
korzystania rekordów o zmiennej długości. 

Maksymalna liczba rekordów nie może przekro- 
czyć 200 (ponieważ niektóre książki mają więcej niż 
jednego autora, maksymalna liczba nazwisk auto- 
rów wynosi 230). Oczywiście, istnieje możliwość 
zrezygnowania z tych ograniczeń. Wiąże się to z nie- 
wielkimi zmianami w programie: adresy odsyłaczy 
do tablicy organizacyjnej muszą być pamiętane na 
dwóch bajtach. Celowe byłoby wówczas zwiększe- 
nie pamięci przez usunięcie wszystkich komentarzy. 

Program umożliwia założenie zbioru, dopisywa- 
nie i kasowanie rekordów, wyszukiwanie informacji 
oraz uzyskanie danych ogólnych o zbiorze (liczba 
tytułów, liczba nazwisk autorów, wielkości wolnej 
pamięci). Trzy pierwsze operacje to tzw. czynne ko- 
rzystanie ze zbioru (dokonywanie zmian w zbiorze). 
Tryb czynny dostępny jest tylko po podaniu hasła — 
użytkownik może zmienić hasło (wiersz 240), pa- 
miętając jednocześnie o zmianie wartości zmiennej 
pp, w której pamiętana jest długość zadeklarowa- 
nego hasła (wiersz 230). 

Nazwiska i tytuły należy pisać zaczynając od du- 
żej litery. Pierwszy znak musi należeć do alfabetu 
angielskiego, kolejne mogą być również z zakresu 
alfabetu polskiego (ą, ć, ę itd.). 

Informacje można wyszukiwać wg nazwiska lub 
tytułu. Obydwie metody zapewniają jednakowo 
szybki dostęp. W wypadku książek posiadających 
kilku autorów wyszukuje się nazwiska przez poda- 
nie dowolnego z nich. Należy zwrócić uwagę, aby 
przy kasowaniu rekordu uniknąć niejednozna- 
czności, tzn. jeżeli nazwisko danego autora wystę- 
puje w zbiorze kilkakrotnie, należy posłużyć się ty- 
tułem książki (o ile oczywiście jest on jednozna- 
czny). Przy wyszukiwaniu informacji problem nie- 
jednoznaczności został rozwiązany w ten sposób, 
że drukowane są wszystkie rekordy z zadanym klu- 
czem wyszukiwania (można wyszukiwać np. 
wszystkie książki, których nazwiska autorów za- 
czynają się od zadanej litery lub grupy liter). 

Program ma wbudowane mechanizmy w dużej 
mierze zapewniające jego niezawodność (spraw- 
dzenie legalności operacji, poprawności niektórych 
wprowadzanych danych itp.). Przed uruchomie- 
niem programu po raz pierwszy należy z klawiatury 
wprowadzić instrukcję LET wr=0. instrukcja LOAD 
" " CODĘ w wierszu 5. służy do automatycznego 
wczytania bloku zawierającego polskie znaki 
dlakrytyzowane (ą, ć, ę itd.). Mniej wtajemniczeni 
czytelnicy mogą tę instrukcję pominąć i posługiwać 
się wyłącznie znakami alfabetu angielskiego. 

Opis ważniejszych zmiennych i tablic zawarty jest 
w komentarzu w wierszu 1036. 


£ 

O 

LU 

CU 

CO 
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v *■ -y a r. ■* i i a » .1 

fint ji ogólnych 
i+18, 0, "i l lot i 


, 5 LORD "ZnaK l IbO l "CODĘ 
10 BEEP ,4,1® POKE 83809,8® 

15 ULS . U ET i.S' PRINT RT i,S 
, Program umożliwia zatozenie" 

, RT 1 +8,0; "Utl 109U tłUZCK, SZy 
bKie wyszu-";RT >t4,®, "Kiwani* i 
(Wormacji wg ntzniui”, rt i+b, 
®, "autora lub tytutu uuzM nkt 
RT i+6,0,"UZaCJ* Zbioru 
oraz uzy» Kan i » " ,, RT i + 1 ® , o, " i n f o 
" ■ ' O Z bi o r zc " , RT 

rekordów , i lot 

C wolne,", RT 1 +14 , 0; "pam i * c 1 il 
p . ^ _ _ 

^ | 9 Q|l‘l^ji^fpąffU. 8 |a*^ępDE i-*(n, 

W‘r<jM 4 ’TTfill_- ~ , ,r F r*tn, 
9s‘let'z««® 

100 LET kat.®: LET d i* «® BEEP . 
4,18: INK 0 CLS PRINT RT i, 6 , 

BRIuHT 1, Uybierz tryb pracy:" 
_PRINT RT 3,6;" 

105 LET l »6 LET j«S PRINT RT 
i , g ; " l-zakt adan i « zbioru", rt i,j 
, j , 8 -dop 1 1 y wan i 4 rekordów" , RT i 
+4 , 4 ; "3-Kłi owan i « r«K.ordów",RT i 
+ 6 , j," 4 -wyszukiwani* r*kórdów";R 
t i »s , j , " 8 -wyd rui r * ko r dó w " , RT i 
tlO , j , "5-m (ormac je o zbiorze ;R 
T i +12, g, "T-Kornec" 

110 LET t* .INKEY* . IF LEN t».® 
TliEN 30 TO 110 

lis, IF t|<"r OR *.*>"?" THEN GO 
TO 110 

180 IF t*'<"4" THEN LET Zffl.l 00 
JU| ’ 88 Tf 

BRIGHT 1, 

FLR5H l,"Naciinij dowolny Klawił 
z 1 pruje-: o retobm 

iToajHarEc./ajF 

, BRIGHT 1, " in f 
do zbi oru", Pfti. 
laor^ 
iss 

FLRSH 1 

ntynuacja": pruje 

m" ThEN 00 TO 100 
190 RETURN 




PR INT Sl.RT 0,8 

* 4 ^ ł R!łBfefi ,no 

BRIGHT 1, 

(• - menu , pozo* ta te - ko 
■ & if INKEY*." 


„ . CLS : PRINT RT 6 
,4; BRIOHT 1; "Dostęp czynny do z 
bi o r u " ; RT 9,4,"- wymaga podania 

RT* 13 1 J n fls <-0 : " ; 
SIO |1 |t'«™ 

815 IF INKEY $ < > " " THEN GO TO 81 

880 IF INKEY*."" THEN 00 TO 88® 
805 LET h ••INKEY* : BEEP .05,10: 
— ifOS THEN GO TO 815 


IF CODĘ hf<38 THEN GO TO 815 
830 LET qi»a*+h*: LET pp.LEN 

IF PP.ll THEN 00 TO 84® 

35 00 TO 815 


840 if o*. "sc i s le la jn* 1 THEN pr 
INT Rr 18,8, INUERSE 1; "hasto Pr 
awidtowe" : BEEP ,4,80; PRUSE 50: 
RETURN 

845 CLS : PRINT RT 8,8; BRIOHT 
1, "Dostęp do Zbioru niemożliwy", 

^6Ż 3 ^''i.^J n S0 b ^! 

EEP .15,15: NEKT i 

855 00 5UB 150: 00 TO 10® 

265 LCT^rt ady : Ir dX >dy THEN LE 
T U»dX 


270 LET Zb»6S535-USR 7962: IF w 

r-larn OR 2*11 +200 > z b OR a l > >m *30 
THEN CLS : PRINT RT 6,4; BRIOHT 

1; "Oop i ty winie ni tpoź li wt l " : P 
RINT RT 12,9, BRIGMT 1; " (Zbiór 
Pitny)": BEEP .8,0: GO 3UB 150: 
GO TO 100 
275 RETURN 
300 r~_ m , 

305 BEEP .4,10: DIM P $ ifiT+30 ,3) 
310 GO SUB 260: LET ddX*dX: LET 
ddy »dy : LET j j al 

315 CLS : PRINT RT 3.1, BRIGHT 
l;"Pod*j Liczba autorów książki: 

320 INPUT " LINĘ l 

$: LET daLEN L$: IF d *0 ThEN GO 

TO 320 

325 FOR i s 1 TO d: IF L $ ( i ) > a "0" 

RND l $ ( i ) < «"9" THEN NEXT i: LET 
LaORL LI: GO TO 335 
330 GO TO 320 

336 IF L<=0 OR L > 10 THEN GO TO 
320 

340 PRINT RT 3,30, BRIGHT 1, L 
345 FOR ul TO L 

350 PRINT RT 6,4, BRIGHT 1; "Pod 
aj nazwisko "ii;", autora:” 

355 INPUT (i ) ; ' . ", LI 

NE S$: IF LEN S$*0 THEN GO TO 35 

5 

360 PRINT RT 9 + i ,6; i j" . " ; 

365 IF i*L RND Lol THEN LET s$ 


- S $ + " tt j w u iw crs 

3Ó7 if Lal THEN LET S $ =S $ + " ; " : 
GO TO 376 

370 IF i>l THEN LET * $ =ł $ + 

• GO TO 375 
372 LET s $■$$+"," 

375 GO SUB 550: GO 3UB 450: GO 

-SJJUŁ.il® 

330 NEXT i 

385 LET j j *2 : CLS : PRINT RT J.0 
<6 l BRIGHT 1; "Podaj tytut ksiązk 

390 INPUT LINĘ 5$ LET dd*LEN s 
$ IF dd»0 THEN GO TO 390 
395 LET da(32-dd> /2-X: IF d <0 T 
HEN LET d =0 

400 PRINT RT 13, d,i j Si; 

LET S $ as $ ♦ " ; " . GO SUB 550: GO 5 
UB 500 GO SUB 170 
405 GO SUB 420, LET ddxsddx*dx: 
LET ddysddy+dy: LET wrawr+1 
410 RETURN 


GO TO 375 


. LET ilsCHRl 1 32 + INT iddX/20 
O) ) . LET ofaCHRl (32*ddX-200* (CO 


C>E i $-32) ) 

'I < w '*a2) * 


LET r $ ( w r , 1 ) a i $ LET 


i 1 1 w i , 2 ) * j $ 

430 LET ilsCHRl i 32 * INT (ddy/20 
0) ) : LET j $ mCHP $ ( 32 + d d y -200 * ( CO 

DE x $-32) ) : LET i*$(wr,3)»i$: LET 
rłiwr , 4 ) = j $ 

435 RETURN 


wr ) 


napoi : LET f(i$aCMR$ (32 + 


460 LET d L «*LEN S$ LET X$ax$+S* 
465 LET U$«CHR$ (32+ INT (dX/200 
)): LET v$aCHR$ ( 32 +d X -200 * i CODĘ 
U $-32) ) : LET dx*dX+dL: LET a «. =a 
l + I 

470 IF n>««l ThEN LET a$(n,l)au 
% let a$in,2)av$ let a$(n,3)mi 
$ GO TO 490 

475 FOR kan TO il-l: LET p$(k)= 
a $ ( k ) : NEXT k 

460 LET ai(n,l)«u$: LET *1(0,2) 
*V$: LET a % ( n , 3.1 arii $ 

485 FOR kan+1 TO * l, : LET a$(k) = 
P$(k-1): NEXT k 
490 RETURN 
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10 LET dUL£M 3$. LET ' 
15 LET u $ = C H R $ • 32 + 1 NT 
LET v % sCHR $ i. 3£ td y -2' 
$-32 t i . LET dysdy+dl : i 


b». THEN LET b$ T. , 1) =U 
, ,2 ;* av $ LET b $ < n , 3 ) =fn 


•3 LET 9d:ii=l; IF 
O 570 

’0 _ IF als0 THEN LE' 


565 60 SUB 600 60 TO 580 

STO IF b •. =0‘ THEN LET P0Z='l'. 6' 

O 530 

575 60 SUB 750 

5 8 


— 0 THEN GO TO 
1 THEN LET po; 


t$ 


GO 

GO 


eaSLET Wjl + INT iiX+y-l)/2). LE 

t a = d03 * (lode a # iw , i) -3a) + icóde 

a * (w .2) -32) 

630 IF a +z -1 >LEN X$ THEN LET 
“X*ia Tu ) : GO TO 640 
63S LET t *=;■;$ (a TO a +2-1) 

040 IF t$=S* THEN LET P0Z=W: 

TO t>55 

§45 IF tjiss THEN LET X=W+1: 

TO 610 

650 LET y=w-l. GO TO 610 
TURN 1F 9dZie=1 °3- Kail1 THEN RE 
660 SORDER 7: PRPER 7: "iNK 0; C 
La : LET n =COD£ a* (w, 3) -32: LET" 
P=FN I l n i : LET q=FN 4 m ) : GO SUE. 
920: 6EEP .2,10: GO SUB 150 
665 LET i=poz+l: LET j=poZ-l 

6:0 fur k = i to a i 
675 LET a=20O*(CODE a*(k,l)-32> 
+IUUDE a*ik,2)-32): LET aż=a+z-l 
IF azidx-l THEN GO TO 690 

i F x *' ,:a TO az) =S$ THEN LET 
r:=CuDE a $ U, 3) -32: LET p=FN fin) 
LET q=FN gin) : CLS : GO SUB 92 
0_ BEEP .2,10: GO SUB 150: GO TO 
bo 5 

6S0 GO TO 690 
665 NEXT k 

690 FOR k = j TO 1 STEP -1 

695 LET a=20O*(CODE a$ik,l)- 32 ) 

+ ILOOE a* u, 2) -32): LET az=a +z-l 
IF az>dx-l THEN RETURN 
6?7 IF X * i a TO aZ)=S* THEN LET 
n=uuDE a $ ( k , 3) -32 : ■ LET p =FN Mn) 

■ LET q=FN gin): CLS : GO SUB 92 
0 +,! EEP .3.10: GO SUB 150: GO TO 
705 

70O GO TO 710 
705 NEXT k 
710 RETURN 
720 BBBĆMCTai: 

725 BORDER 7~i PHPFr 7 : INK 0 C 

L5 PRINT RT 10,2, BRIGHT 1; "U 
zbiorze brak poszukiwanego " ; rt i 
4, 11 ; "rekordu BEEP .5,10 GO 

SUB 150 . RETURN 


735 BORDER O PAPER 0: INK 7: C 

LS^ £^KRC : I < 1 ' " PR ° 

n 7 s* L y ~ T Z_LE 

760 IF iy -X > > =0 THEN GO TO 775 
765 IF gdz i e =1 THEN LET poz=X: 
RETURN 

770 GO SUB 720: GO TO 100 

775 LET w = 1 + INT < (X +y -1 ) /2) : LE 
T a =200* (CODĘ b* (w , 1) -32) + (CODĘ 
bj (w , 2 ) -32) 

78 0 IF a +2 - 1 > LEN y* THEN LET t* 
=y$ i a TO ) : GO TO 790 
785 LET t *=y * (a TO a+z-1) 

790 IF t*=S$ THEN LET P0Z=«: GO 
TO 805 

795' IF t$<s$ THEN LET X=W+1: GO 
Tu 760 

800 LET y =w - 1 : GO TO 760 
805 IF gdz i e =1 OR kas=l THEN RE 
TURN 

810 BORDER 7: PRPER 7: INK 0: C 

LS : LET n=COOE b*iw,3)-32: LET 
P=FN f in) : LET q=FN gin) : GO SUB 
920: BEEP .2,10: GO SUB 150 
815 LET i =P0Z +1 : LET j=pOZ-l 

820 FOR k=i TO bi. 

825 LET a =200* (CODĘ b*<k, 11-32) 
+ i CODĘ b$ik,2)-32): LET az=a+Z-l 
IF az>dy-l THEN GO TO 840 
827 IF y $ i a TO az)=s* THEN LET 
n=CODE b*(k,3)-32: LET p=FN fin) 
i le I_3=i-n gin): cls : GO SUB 92 
0: BEEP .2,10: GO SUB 150: GO TO 
S35 

830 GO TO 840 
835 NEXT K 

840 FuR KrJ TO 1 STEP -i 

S45 LET a =200 * i CODĘ b* (k , 1) -32) 

+ iCOOE b*(k,2>-32): LET a z = a + z - 1 
. IF a Z > d y - 1 THEN RETURN 
847 IF y $ (a TO az)=s$ THEN LET 
r. =U0C>E b$iH # 3)-32: LET p sFN f(n) 

■ LET q=FN g (H ) : CLS : ~~ 

0: BEEP .2,10: GO SUB 
855 

RETURN 
NEXT k 
ET URN 


. GO SUB 92 
150 : GO TO 


350 

855 

8SS 

850| 

865 

367 

370 

75 


LET dl. =lEN X $ 

IF p>=dl THEN RETURN 
IF x$ <p) THEN RETURN 

IF df=l THEN IF x$(p )=*•," T 

HEN RETURN 

880 IF x$(p>="8‘ THEN LET p =p + 1 
GO TO 870 

885 PRINT X$ (p) ; : LET p«p+l: GO 
Tu 870 

895 LEr T ul?n" $ 

397 IF q>*dl THEN RETURN 
900 IF y$(q) THEN RETURN 
TO 5 Q00 INT y$(q5;: LET + ^ GO 

K 4; "AUTOR: PRINT : PRINT^ : GO 
SUB 860: PRINT : PRINT : PRINT 
: PRINT 

930 PRINT 1 
T INUERSE 1; 

NT : PRINT : 

935 RETURN 

940| 

945 ■ wn + -r ■ w id a " 4 
RETURN x * (i)s ''*" THEN LET wy*0 
955 IF 
HEN LET „ 

960 NEXT 

1000 T" — 

1005 IF wf <sl THEN GO TO 1030 


INK 4 ; "TYTUŁ: 
GO SUB 890 


PRIN 

PRI 


X -1 


X$ (i ) »" , " OR X* (i ) s", " T 
W y = 1 : RETURN 
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es p 
3) -o 
y jne 

C 2 . 

z do 
•t abl 
ie z 
ortfw 


1010 CL5 : PRINT RT 1,13; BRIGHT 

1; "UURGR . " : PRINT RT 2,13; 

; RT 4,3, INUERSE 1, "Zbiór zos 

tał juz założony!"; BEEP .£,10: 
PRINT RT 6 , S; "Ponowne założenie 
zbioru";RT 8 ,3; "spowoduje zniszc 
zenie jego*;RT 10,3; "starej zaw 
artosci RT 14,13, BRIGHT 1; "Po 

daj": PRINT RT 15,13; ; RT 

17 ,5; "0-pow rót do menu";RT 19 
,5, "1 -zakładanie zbioru" 

1015 LET t $ = INKEY % : IF LEN t$*0 

THEN GO TO 1015 

1020 IF t $ < > " 0 " RND t*<>"l" THEN 
GO TO 1015 

1025 IF t $ a " 0 " THEN GO TO 100 
1030 LET ra =200 : DIM a*(m+30,3): 
DIM b$ (M ,3) : DIM r $ im ,4) 

1035 LET X$="": LET y . LET w 

rai: LET d X a 1 . LET dy=l: LET a la 
0: LET bt30 


SUB 180 

1045 GO TO 

c00 0 l _ 

2005 IF wr>l TH^N GO tu 2015 
2010 CLS : PRINT RT 8,4, BRIGHT 

1; "Dopisywanie niemożliwe!" PR 
INT RT 13,3, BRIGHT 1, " (Zbiór ni 
e został założony)": BEEP .8,10 
GO SUB 150: GO Tu 100 
2015 GO SUB 300: GO SUB 180: GO 
TO 20 15_ 

3 0 0 0 B~_ 

3005 CLS : LET Zb=65535-USR 7962 
* IF 2*11 +200 > Z b THEN PRINT BR IG 
HT 1 , RT 8,4; "Kasowanie niemozliw 
e!". PRINT RT 12,4, BRIGHT l;"(b 
rak miejsca w pamięci)": BEEP .8 
,10: GO SUB 150 GO TO 100 
3010 BEEP .4,10; CLS : PRINT RT 

6,5, BRIGHT 1, "Podaj SpOSOb Kaso 
wania.". PRINT rt 7,5,; 


zw i s ka 
u tu " 

3015 LET t $=INKEY$ : 

ND t $ < > "2" THEN GO TÓ 3015 
3020 LET kas-1: 


LET QdZie=0: 
3031 


lt="2" THEN GO TO 305l 
3035 CLS : PRINT RT 11,2, BRIGHT 
1; "Podaj nazwisko do suso.ama 

3027 INPUT " LINĘ S*: IF L 

EN s*=0 THEN GO TO 3027 

3029 GO SUB 730: PRINT INK 7,RT 

13 . 6, ” i kasowan i e rekordu)": PRI 
NT RT 16,4, INUERSE i;"Nie wolno 

używać BRERK GO SUB 600: LE 

T n=P0Z: LET wwaCODE a$(n,3)-32 
GO TO 3037 

3031 CLS : PRINT BRIGHT 1 ; RT 11, 
3; "Poda j tytut do skasowania " 
3033 INPUT LINĘ S$: IF LEN S*=0 

THEN GO TO 3033 

3035 GO SUB 730: PRINT INK 7, RT 

13.6, " (kasowanie rekordu)" PRI 
NT RT 16,4, INUERSE l;"Nie WO ino 

używać BRERK !": GO SUB 750. LE 
T n=POZ: LET w w =CODE b*(n,3)-32 
3037 LET pnsFN f(ww): LET P t =FN 
9 (ww ) 


545 IF w w = 1 THEN GO TO 3060 
3050 IF wwswr-1 THEN LET wrawr-1 
: GO TO 3075 

3055 FOR k *1 TO WW-1: LET p$(k) = 
r $ ( k ) : NEXT k 

3060 FOR ksww+l TO Wf-1: LET p$( 
k -1) sr$ (k) : NEXT k 
3065 LET Wf =Wf -1 

3070 FOR k = 1 TO Wf-1: LET f*(k)= 
P % ( k ) : NEXT k 

3075 LET d 30 : LET pspn: LET dl = 0 


3085 LET d &d +1 . LET d lad 1 + 1 
3090 IF X $ ( k ) a"," THEN LET S$ax$ 
(p TO p+d-2) : GO SUB 600. LET n= 
POZ: GO SUB 32S0: GO TO 3105 
3095 IF x$ik)a"," THEN LET S$aX$ 
(P TO P+d-2) : GO SUB 600: LET n = 
POZ: GO 5UB 3230: LET p =p +d : LET 

3110 Ir p n > 1 THEN GO T 0 3120 
3115 LET x$=X$(dl+l TO ). GO TO 
3130 

3120 IF pn+dl=dX THEN LET X$=X*( 
TO pn -1) : GO TO 3130 
3125 LET x$=x$( TO pn -1) +x $ (pn +d 
1 TO ) 

3130 GO SUB 3200: LET dXadX-dl: 
LET dn =d 3 
3135 

3140 LET d =0 : LET p=pt 

3145 FOR k =p t TO 100000 
3150 LET dad+1 

3155 IF y $ ( k ) =" ; " THEN LET s$ay$ 
(p TO p+d-2) : GO SUB 750: LET n = 

POZ^ GO SUB 3330: GO TO 3165 

31?! LET P y *=y $ (d+1 TO ) : GO TO 3 
190 

3130 IF pt+dady THEN LET y*=y*( 
TO pt-1) : GO TO 3190 
3185 LET y$ = y$i TO P t -1) +y $ (p t +d 
T O ) 

3190 GO SUB 3240: LET dyady-d. L 
ET d t =d : GO SUB 3380 
3195 BEEP .8,10: BORDER 7: PRPER 
7: INK 0: CLS . PRINT RT 11,4, 

BRIGHT 1; "Rekord został skasowań 
y " ^^G O^SU^^ ^^G^^^l^^^^^ 

3210 LET Xa200*(CÓDE a*(q,l)-32) 
+ (CODĘ a$iq,2) -32) : LET y =CODE a 
$ (q,3) -32 

3215 IF X>pn THEN LET X=X-dl: LE 
T fu $ =CHR $ (32 + INT (X/200)): LET 
n$aCHR$ (32+x -200* (CODĘ mS-32)). 

LET a $ (q , 1) =m $ ; lET a$iq,2)an$ 
3220 IF y > w w Tr— — ~ * 

R$ (31+y) 

3225 NEXT q 
3230 
3240 
3 cl 4 5 

3250 LET X =200* (CODĘ b*(q,li-32) 

+ (CODĘ b$ iq,2) -32) : LET y =CODE b 
$ iq 3) -32 

3255” IF X > P t THEN LET Xax-d: LET 

m $ =CHR$ (32 + INT (X /200.i ) : LET n 

$=CHR$ i32+x -200* (CODĘ r..$-32)): 
LET b $ i q , 1 ) = W $ : LET b$(q,2)an$ 

3260 IF y > W w THEN LET b$iq,3)=CH 
R i (31+y) 

3265 NEXT q 
3270 RETURN 

32801^ ' 

3285 D TM p$ im+S 
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LCT bblq)*P» 


-- _ n «E Ć^HSKT LET bl»bt-l: R 

334S N XF (1*1 TMEN SO TO 3355 
3350 FOR q«l TO n-ł: LET p»lq)«b 
f lq) : NEXT q 

3355 FOR q«n.l TO b t : LET p*<q-l 
>b* (q> ; NEXT q 
' LET b l «b l -1 
FOR^.l TO bl 

!S§g#% ECg^ P^^ , 1K^n , - 

3390 LET X«FN f <q> : LET y «FN 9 (q 

3395 IF x>pn TMEN LET x*x-dn: LE 
T n •■CHR* (3S+INT (x/200)>; LET 
n$»CHR* (32+x-200# (CODĘ iril-32)): 
LET rliq,l) ■!#*: LET r*(q,2)«n* 
340* IF y >p t THEN LET u.y-dt: LE 
T nf.CHR* (32+INT (u/a50*): LET 
n»«CHRS I3£ty-200ł (CODĘ m*-32) ) : 

oltiJ LET r,( <' 4isn * 

5 : PRINT RT 5,2; BRIOHT i; "Uubi 
tri sposób wyszukiwania:": PRINT 
RT 6 ,2, 

4.010 PRINT RT 11,6; "1-W9 nazwisk 
autorOw";AT 15,6, 2-wy tytułów" 
4-015 LET t*«INKEY«: IF LEN t*.0 

THEN 00 TO 4015 

4-020 IF t«<>"l" RND t • < > "2" TMEN 
00 TO *015 

*025 IF t»="2" THEN 00 TO *0*5 
*030 OLS : PRINT BRIOHT Ij.RT 10, 

IF 


a, 'Podaj nazwisko autora 
*035 INPUT " "i LINĘ S|: 

LEN s ■ s0 THEN 00 TO *035 
*0*0 GO SUB 730: 00 SUB 600: 00 
SUB 180 : 00 TO *005 
*0*5 OLS : PRINT RT 10,6; BRIOHT 
1, "Podaj tytuł książki:' 1 
4050 INPUT ” "; LINĘ s«: IF LE 

N *1*0 THEN 00 TO *050 
*055 00 SUB 730 " 


SUB 

5000ba 
5005“ 


00 SUB 750: 00 


RINT BRI 


gg*: ^IN^f 

";AT 9,0; "l-nazwi*ka wizy 

*tkich autorów";RT 13* 0; "2-wszy* 
tki« tytuły" ; AT 17 , 0, 3-wtzys t k i 
t f t ko r dy (autor-tytuO " 

501® LET t $ oINKEYf : IF LEN t*«0 


*tkich autor5w";RT 13 , 0; "2-wszys 
tr* — -- • 

|01_ _ 

THEN 00 TO 5010 
5015 IF OR t $ > "3" THEN 00 

TO 5010 

5020 CLS : IF THEN CO TO 

5045 

5022 LET dr »1 : PRINT RT 0,5; BRI 
GHT 1;*' wykaz nazwisk autorów:". 
PRIN T RT 1,5; 

5025 FOR fisi TO al 

5030 PRINT : LET p *200* (CODĘ 1*( 

r. , 1) -32) ♦ (CODĘ a*(n,2)-32): 00 S 

UB 360 

5035 NEXT r. 

5040 BEEP .4,10; 00 SUB 150; 00 
TO 100 

5045 IF t J=" 3" THEN 00 TO 5067 
5047 PRINT RT 0,9; BRIOHT l,"Uyk 
ąz tytulćU : " : PR INT RT 1,9, 1 

5050 FOR n=l TO bl 


5055 PRINT : LET q«200*(CODE b*( 
n , 1) -32) 4 (CODĘ b$ (H , 2) -32) . 00 S 
UB 390 
5060 NEXT n 

5065 BEEP .4,10; 00 SUB 150: 00 
TO 100 

5067 LET d I* «0 : LET nr«l 

5070 FOR n *1 TO al 

5075 LET p b£ 00* (CODĘ *«(n,l)-32) 

t (CODĘ II (n, 2' -32): 00 SUB 940; 

IF wy *0 THEN 00 TO 5090 

5080 CLS : PRINT BRIOHT l;RT 1,1 

0 , "Rt ko r d nr " ; n r : print ; print 
: LET nr«nr+l 

5035 LET t«CODE a|(n,3)-32; LET 
q*200*(CODE r| (t ,5) -32) + (CODĘ r$ 
(t,4)-32): 00 SUB 920: BEEP .2,1 
0: 00 SUB 160 
5090 NEXT H 

5095 CLS : PRINT RT 11,4; BRIOHT 
l;"Konitc wydruku rakordś 
EP .3 *“ 2 * “ 

6000| 

6005 Dtcr i.,iw: wub : kkaixi n 
3,6; BRIOHT 1; " INFORMACJE O ZE 


aiuun i, Aiiru 

PRINT RT 4,6; 


i *6 : LET 

(w r -1) ) 


J *2 : LET d=30- 
PRINT RT 


6010 LET 

LEN <STR» (wr-D): PRINT RT i,J, 

"Itolć pozycji " , H 

T i , d ; w r -1 : LET d«30-LEN «STR» a 
U; PRINT RT 1 +3, j; "IloSĆ autoró 

w "; RT i +3,d, al: L 

ET d*30-LEN (3TRI bl) PRINT RT 

i+6,J;"Ilołó tytułów 

";RT i+6,d;bt 

‘ ' “ --.6S533-USR 7962 LET 

. . .. . 5TR* PP) : PRINT RT i'+ 

9 , j , "Uo Ina parnitC (bytts) 

;RT i +9 , P d ; Pp 

“ - ,Ł 1Ł - 00 TO 100 


6015 LET PP«6 


; "Zawar tol 

s; BRIOHT i;"yltflła zmianl." 
INT RT 14,6; BRIShT l; r, Czy c 
z nasra? nowa": PRINT RT 16, 
RIOHT i;"wtrsjt na taimt? 

jO-ni*)'': BEEP .8,10 

- - - 

t*."0" THEN 


/■i „ , 

60i0_ 

7005 IP Z»«0 TMEN CLS : PRINT RT 
9,8; BRIOHT i;"ZawartO*0 Zbioru 
": PRINT RT 13,7; BRIOHT l;"ni« 
uityła zntianit": BEEP .6,10. oo 
SUB 150 : 00 TO 7030 
7010 CLS ; PRINT BRIOHT liflT 7,8 
"Zadarto** zbioru": PRINT RT 9, 

- anił": PR 

ChCtS 
.6,1; B 
(1-tak 

, qt» — 1 1 i BEEP . 9,10 

7015 LET t |«INKEY I : IF tlO M 0 M R 
ND t»<>"l" THEN 00 TO 7015 
7020 IF t*."0" THEN 00 TO 7030 
7025 BORDSR 0: PRPER 0: INK 7: C 
LS : PRINT RT 11,2; FLASH 1; "Trw 
a zapis prooramu i zbioru": SRUE 
"g^bUfl ttkjT' UXNC c |^^BEEg e ^l^lg 

' INK 0 ‘ ‘ 

7030 CLS : PRINT BRIOHT li AT 10, 
13, "KONIEC": PRINT RT 13,12, BRI 
OHT 1; "PROGRAMU*: BEEP ,S,1S: PR 
USE 0 
70351 
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POLE MINOWE jest grą napisaną w języku ATA- 
RI BASIC. Zadaniem gracza jest przejście pola 
minowego od furtki wejściowej do wyjściowej. 
Przechodzący jest przedstawiony na ekranie zna- 
kiem „ ”. Sterowanie jego ruchem odbywa się kla- 
wiszami: „ =, +, (Klawiatura ATARI 800 XL 

zawiera na tych klawiszach również oznaczenia: „t, 
i, — ”, które wskazują na kierunek ruchu). Na po- 
lu minowym ukrytych jest losowo 100 min, niewi- 
docznych na ekranie. Ustawienie znaku na polu są- 
siadującym z miną sygnalizowane jest dźwiękiem 
ostrzegawczym i migotaniem. Takie „otarcie się" o 
minę kosztuje przechodzącego sporo nerwów i 
stratę jednego punktu ze 100 otrzymanych na po- 
czątku gry. Droga, którą gracz przebył bezpiecznie, 
zaznaczona jest kropkami. Wybór dalszej drogi za- 
leży od gracza. Wejście na minę to koniec gry. 

Po zakończeniu gry na ekranie ukazuje się uzy- 
skana liczba punktów oraz liczba ruchów wykona- 
nych przez gracza. Wyświetla się również położenie 
ukrytych min oraz przebyta droga. Można zoba- 
czyć, jak należało iść. Ponowne rozpoczęcie gry 
następuje po naciśnięciu klawisza START. 

Program jest prosty. Niewątpliwie zachęci on 
użytkowników ATARI do jego rozbudowy. A możli- 
wości jest tutaj wiele. Od prostych usprawnień do 
większych przeróbek. Najprostsze i najłatwiejsze do 
wykonania jest wprowadzenie sterowania za pomo- 
cą joysticka. Wystarczy dodać poniższą sekwencję: 

40 

170 

230 RU -STCK(0) 

240 IF NR 0 AND RU<>14 THEN 230 
360 RU STICK(O) 

370 IF R U = 1 4 AND 1 = 20 AND J = 1 THEN 
700 

380 IF RU = 14 AND J = 1 THEN 360 

390 IF R U -- 1 3 AND J = 21 THEN 360 

400 IF RU = 11 AND 1 = 1 THEN 360 

410 IF RU = 7 AND 1 = 37 THEN 360 

510 IF RU 14 AND I 20 AND J 1 THEN 
700 

515 IF RU<>14 THEN 525 
525 IF RU<>13 THEN 535 
535 IF RUOII THEN 545 
545 IF RU<>7 THEN RETURN 
765 

Gra ma jeden poziom trudności. Można go zwięk- 
szyć, rozmieszczając na polu więcej niż 100 min 
(zmiana wartości w linii 110 programu). Można się 
wtedy przekonać, jak trudne jest pokonanie pola 
minowego już przy 200 minach. A gdyby tak po po- 
zytywnym zakończeniu gry przechodzić do na- 
stępnej o wyższym poziomie trudności? Ponieważ 
zliczana punktacja odnosi się do każdej gry osob- 
no, można by wprowadzić punktację globalną po 2, 

3 partiach. Niewątpliwą atrakcją byłby drugi gracz, 
oczywiście z oddzielnie prowadzoną punktacją. 
Również zasady punktowania można uzależnić od 
ogólnej liczby ruchów wykonanych przez gracza 
(im mniej tym lepiej). 


✓A TA H / 

Dla bardziej zaawansowanych w programowaniu 
proponuję uzyskanie lepszych efektów dźwięko- 
wych, zwłaszcza melodii końcowej. 

Wyposażenie gracza w możliwości rzucania gra- 
natów (np. pięciu w jednej partii) o dwa pola ele- 
mentarne w wybranym kierunku, które unieszkod- 
liwiałyby znajdującą się tam minę, pozwoli na obra- 
nie lepszej taktyki gry. Zniszczenie miny powinno 
być wtedy odpowiednio punktowane na korzyść 
gracza. 

Inne poprawki podpowie wam wyobraźnia. Życzę 
dobrej zabawy. 


1 REM GRA "POLE MINOWE" 

3 CLR 

4 D I M A ( 3 7 , 2 1 ) , B$<37) 

5 FOR 1 = 1 TO 37:FOR J = 1 TO 21: 
A(l,J) = 0:NEXT J:NEXT I 

6 GRAPHICS 0 

8 REM PLANSZA TYTUŁOWA 

9 POKE 752,1:PRINT ”[CLEAR]" 

10 POS.1 1,5:PRINT ”[Q][R][E] [Q][R] 

[E] | [Q][R][R]''; 

11 POS.1 1,6:PRINT ”| | | | | |”; 

12 POS.11,7:PRINT "[A][R][C] | | | 

[A][R]"; 

13 POS.11,8:PRINT ”| | | I"; 

14 POS.11,9:PRINT "| [Z][R][C] [Z] 

[RJ[R] [Z][R][R]”; 

15 POS.7,11:PRINT ”[Q] [E]![QJ [E] 

[Q][R][E] | | [Q][R][R]"; 

16 POS.7,12:PRINT "|[G][F] | |[G] | | 

I l I l"; 

17 POS.7,13:PRINT ”| | | | [GJ| MII 

[A][R J"; 

18 POS.7,14:PRINT ”| Ml [C] | I |fF] 

[G] i”; 

19 POS.7,15:PRINT "| Ml I [Z][R][C] 

[Z] [C] [Z][R][R] '; 

20 FOR N = 1 TO 37 

25 POS.N,1:PRINT "[R]"; 

30 POS.N,23:PRINT "[RJ; 

35 NEXT N 
40 OPEN łłl ,4,0,"K:" 

45 POLE=0 
50 FOR N = 2 TO 22 
55 POS.0,N:PRINT ”1”; 

60 POS.38,N:PRINT 
65 NEXT N 

70 POS.0,1:PRINT ”[Q]";:POS.38,1: 
PRINT '*[£]”; 

75 POS.O,23:PRINT :[Z]';:POS.38,23: 
PRINT "[C]"; 

80 POS.19,1:PRINT ”[D] [A]"; 

85 POS.19,23:PRINT ' [ D ] [ T ] [ A ] " ; 

100 REM ROZMIESZCZENIE MIN 

110 FOR N 1 TO 100 

120 SETCOLOR 4,2,INT(RND(0)*16) 
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130 I INT(RND(0)*37) 

140 IF I 0 THEN 130 
150 J I NT(RN D(0) *21 ) 

152 IF J 0 THEN 150 

153 IF I 20 AND J 1 THEN 130 

154 IF I 20 AND J 21 THEN 130 

155 A(I'J) 1 

156 NEXT N 

160 NR 0:PKT 0 
170 DIM RUCHS(I) 

180 DIM SP$(25) 

190 SPS " 

200 FOR N 5 TO 15 

210 POS.7,N:PRINT SP$; 

220 N EXT N 

230 POS.0,0:GET «1,B:RUCH$ CHRS(B) 

240 IF NR 0 AND RUCHSO" " THEN 230 

250 REM OBSŁUGA PIERWSZEGO RUCHU 

260 NR 1:1 20: J 21 

270 A(20,21) 3 

280 POS.20,22:PRINT ”[T]”; 

290 POS.20,23:PRINT 

300 IF A(l 1,J) 1 THEN GOSUB 450 

305 Y J 1 

310 IF A ( I 1,J 1) 1 THEN GOSUB 450 
315 X I 

320 IF A(I,J 1) 1 THEN GOSUB 450 
325 X II 

340 IF A(l 1,J 1) 1 THEN GOSUB 450 
345 Y J 

350 IF A( I 1,J) 1 THEN GOSUB 450 
360 POS.0,0:GET <I1,B:RUCH$ CHRS(B) 
370 IF RUCHS " ™” AND I 20 AND J 1 
THEN 700 

380 IF RUCHS AND J 1 THEN 360 
390 IF RUCHS " " AND J 21 THEN 360 
400 IF RUCHS AND I 1 THEN 360 
410 IF RUCHS ”*” AND I 37 THEN 360 
420 GOSUB 500 
430 GOTO 360 

450 REM OSTRZEŻENIE O MINIE 
455 FOR N 1 TO 5 
460 SOUND 0.10,0,12 
465 FOR Z 1 TO 5:NEXT Z 
470 POS.I.J t 1:PRINT " 

475 SOUND 0.0, 0,0 

480 POS.I.J 1:PRINT 6[T}”; 

485 N EXT N 
490 RETURN 

500 REM OBSŁUGA RUCHU 
505 IP I: JP J 

510 IF RUCHS " " AND J 1 AND J 20 
THEN 700 

515 IF RUCHS " ” THEN 525 

520 J J 1 :GOTO 555 

525 IF RUCHS " THEN 535 

530 J J 1 :GOTO 555 

535 IF RUCHS ’ ” THEN 545 

540 I I 1 :GOT O 555 

545 IF RUCHS ■"*” THEN RETURN 

550 I 1+1 

555 SOUND 0,1 0,1 2,1 4:SOUN D 0,0, 0,0: 

NR NR 1 

560 Y J • 1:POS.I,Y:PRINT ”[T]"; 

565 X I P: Y JP 1 :POS.X,Y:PRINT V; 

570 IF A ( I , J ) 1 OR A(I,J) 2 THEN 900 
575 A ( I , J ) - 3 


580 REM SPRAWDZENIE OKOLICY 
585 S YGN-0 

590 FOR II 1 TO 1 STEP 2 
595 IF I 1 AND II 1 THEN 625 
600 IF I 37 AND 11 1 THEN 625 
605 IF A(ItI1,J)<>2 AND A(I I1,J)< 1 
THEN 625 

610 A(l II, J) 2:PKT PKT-t 1 
615 IF SYGN 0 THEN GOSUB 450 
620 SYGN 1 

625 IF J 1 AND II 1 THEN 655 

630 IF J 21 AND II 1 THEN 655 
635 IF A(I,J 11)02 AND II) ' 1 

THEN 655 

640 A(l, J II) 2:PKT PKT • 1 

645 IF SYGN 0 THEN GOSUB 450 

650 SYGN 1 

655 NEXT II 

660 RETURN 

700 REM OBSŁUGA RUCHU KOŃCZĄCEGO 
710 POS.20,2:PRINT " 

720 POS.20,1:PRINT ”[T]"; 

730 POS.0,0:PRINT 100 PKT;” ”;"W " ; N R : 

" RUCHACH”; 

735 GOSUB 800 

740 SOUND 0,RND(0)*255,14.10 
750 IF PEEK(53279) 6 THEN 740 

760 SOUND 0, 0,0,0 
765 CLOSE 
770 GOTO 3 

800 REM WYŚWIETLENIE CAŁEGO POLA 

805 IF POLE 1 THEN 895 

806 FOR J 1 TO 21 

807 POS.I.J 1 

810 FOR I 1 TO 37 
815 B S ( I ) ” " 

830 IF A(I,J)<: 1 THEN 850 
840 B S ( I ) " * ” : G O T O 890 
850 IF A(l, J)< 2 THEN 860 
855 8 $ ( I ) " * ” : G O T O 890 
860 IF A ( I , J ) < : 3 THEN 870 
865 B S ( I ) ”[T]":GOTO 890 
870 IF A ( I , J ) < 4 THEN 890 
880 BS(I) ”[S]" 

890 NEXT I 

891 PRINT BS; 

892 NEXT J 

894 POLE 1 

895 RETURN 

900 REM WYBUCH 

905 FOR NI 1 TO 255 STEP 14 

910 FOR N 1 TO 4 

915 POS.I -1.J:PRINT ”[G] [F] : 

920 POS.I 1 , J 1 :PRINT ”[R] [R]"; 

925 POS.I 1 , J ■ 2:PRINT ”[F) [G]”; 

930 SOUND 0, NI, 8. 10 
935 POS.I 1.J.PRINT ” 

940 POS.I 1 , J -r 1 : PR I NT " [T] 

945 POS.I 1,J-f2:PRINT " 

950 NEXT N 
955 NEXT NI , 

960 SOUND 0,0. 0,0 
965 A(I,J) 4 
970 GOSUB 800 
975 PKT 100 
980 GOTO 700 
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Ideą spotkania młodzieży szczególnie uzdol- 
nionej jakie odbyło się w dniach 20—21 maja w 
Katowicach, było ukazanie dorobku i osiągnięć 
młodych wynalazców oraz wypracowania metod 
wdrażania pomysłów racjonalizatorskich. W pa- 
wilonach OSrodka Postępu Technicznego za- 
prezentowano ponad 250 unikalnych rozwiązań 
technicznych, w tym urządzenia I patenty, które 
zdobyły 10 złotych medali na Światowej Wysta- 
wie Młodzieży w Płowdiw (Bułgaria). Prawie 
wszystkie prezentowane wynalazki i pomysły, 
zawierały elementy ze Świata elektroniki. Lau- 
reaci Turnieju Młodych Mistrzów Techniki, 
członkowie klubów mikrokomputerowych ZHP 
i ZSMP, zdobywcy Nagród im. M. Kopernika, 
odwiedzili również kilka wybranych zakładów 
pracy, zapoznając się z nowoczesnymi rozwią- 
zaniami technologicznymi w przemyile. Życzy- 
my wszystkim twórcom i wynalazcom nowyh 
odkryó, wielu pomysłów i cierpliwości w oczeki- 
waniu na ich... wdrożenie. 


TARGOWA 

OFERTA 


O Juniorze „IKS" rozmawia z za 
stępcą dyrektora ds. handlowych wroc- 
ławskiej ELWRO. Jerzym Chtłchow- 
•kłm 

X: — Czy Junior podbije rynek? 

J. Ch.: — Polski z pewnością. 

X: - A Inne? 

— Nie ma o tym mowy, z kilku po- 
wodów. a przede wszystkim dlatego, że 
nie mamy takiego zamiaru. 

X: — To tylko skromność? 

— Nie. nasza produkcja w całości 
skierowana będzie na' polski rynek, a w 
większości adresowana do szkól — 
jest to przecież komputer edukacyjny. 

X: - Czyli jaki? 

— Przede wszystkim prosty w 
obsłudze i nowoczesny w swej kons- 
trukcji. Musi spełniać też kilka innych 
warunków; powinien mieć otwartą 
strukturę, pozwalającą na sprzętową 
rozbudowę o dodatkowe bloki funkcjo- 
nalne (dysk twardy, grafika wysokiej 
rozdzielczości itp,), a poza tym przyję- 
liśmy zasadę, Ze tego typu komputer 
powinien być elementem lokalnej sieci 
komputerowej, Taki jest Junior, 

X: — A konkretnie? 

— Podstawowe parametry, to 
mikroprocesor Z-80A, stronicowanie 
pamięci operacyjnej (64 KB RAM. 24 
KB EPROM), układy grafiki kolorowej i 
generatora dźwięku, jednostka sterują- 
ca pamięcią na dyskach elastycznych i 
pamięcią kasetową, układy pozwalają- 
ce na bezpośrednie dołączenie dru- 
karki znakowej i graficznej, joysticka, 
pióra świetlnego, układu „myszki". 

X: — Dodajmy, że oprogramowa- 
nia rezydująca awlera edytor, Inter- 
preter Basica, oraz programy sterują- 
ce pamięcią dyskową, magnetofo- 
nem kasetowym, lokalną siecią 
komputerową I drukarką znakową, a 
system operacyjny, w który wyposa- 
żony jest JUNIOR (CP08) jest kom- 
patybilny z systemem CP/M V2.2. 

— To standard światowy. Dzięki te- 
mu dla Juniora dostępny będzie ogro- 
mny zbiór oprogramowania, będzie 
można używać także innych języków 
programowania; LOGO, Pascal, For- 
tran. C czy Makroasembler. 

X: — I jeszcze cena. 

— Zależy oczywiście od konfigura- 
cji Jednostka centralna nie powinna 
być droższa niż 120—130 tysięcy. 
Wielkość produkcji ustali ją ostate- 
cznie. 


Andrzej BIER — Bt. kons- 
truktor — Centrum Na- 
ukowo-Produkcy|ne Sys- 
temów Sterowania „ME- 
RASTER": 

Firmowy przebój" targowy to 
plotter Mera 621 Zbudowany został 
na częściach krajowych, a reprezentu- 
je przyzwoity światowy poziom, Mozę 
współpracować z każdym profesjonal- 
nym komputerem. Charakteryzuje się 
dużą szybkością kreślenia, łatwością 
obsługi i jest przystosowany do stan- 
dardowego języka graficznego. „Urzą- 
dzenie powinno zdobyć uznanie fa- 
chowców i... księgowych (koszty pro- 
dukcji skalkulowano w granicach 50 
proc. ceny, sprowadzanych dotych- 
czas tego typu plotterów). A wszystko 
to będzie można kupić już. w 1987 r 
Dzisiaj proponujemy profesjonalną 
sieć MERANET 660 w oparciu o kom- 
puter MERA 660 lub terminal MERA 
7953 N. 

Włodzimierz TRUSZ — 
przedsiębiorstwo polonij- 
no-zagranlczne „KEBA”: 

— Potencjalnym klientem dla nas 
jest przemysł. Oferujemy sprzęt profes- 
jonalny. Chcemy również uczestniczyć 
w wyposażaniu szkół w komputery 
Współpracujemy z amerykańską firmą 
ACO Polecamy wszystkie możliwości 
grafiki komputerowej. Największe zain- 
teresowanie naszym sprzętem (głów- 
nie firmy IMB) wykazuje Fabryka Sa- 
mochodów Osobowych w Warszawie, 
która zamierza skomputeryzowaćpro- 
cesy projektowania 


Mariusz JAWORSKI - 
Computer system deslng 
— consultant: 

— Nasz rynek, to praktycznie „pu- 
stynia informatyczno-komputerowa 
Mam na myśli przede wszystkim stan 
świadomości w tej dziedzinie naszego 
społeczeństwa. Dlatego tez, nastawi- 
liśmy się na udzielanie w szerokim za- 
kresie porad. Nasze usługi obejmują 

— doradztwo w sprawie zakupu 
sprzętu i oprzyrządowania. 

— organizację programów w zale- 
żności od profilu przedsiębiorstwa i 
charakteru komputeryzowanego dzia- 
łu, 

— zapewnienie kompatybilności za- 
kupionym urządzeniom. 

— wprowadzenie sprawdzonych 
sieci komputerowych 

Sieci w zakładach pracy mogą pow- 
stać w przypadku istnienia przynaj- 
mniej 3 komputerów. Najczęściej kom- 
puteryzuje się; 

— księgowość, 

— gospodarkę materiałową, 

— finanse, 

— stanowiska zarządzania, centra 
obliczeniowe, itp 

Polecamy sprzęt za dewizy i za zło- 
tówki. Doradzamy urządzenia spraw- 
dzone z gwarantowanym serwisem. 
Prowadzimy również kursy i przeszko- 
lenia dla ludzi w zakresie obsługi zama- 
wianego sprzętu. Gwarantujemy po- 
moc w uruchomieniu komputerowych 
systemów Koszty udzielania porad i 
wprowadzania określonych systemów 
do zakładów pracy, wraz z przeszkole- 
niem kilku osób i początkowym trenin- 
giem. zamykają się w sumie około 1 
min zł. Polecamy sprzęt w cenach od 5 
do 30 min złotych. I tutaj uwaga — za- 
wsze taniej niż w firmach polonijnych. 

Najbliższe i najważniejsze zadanie, 
jakie nas obecnie czeka, to komputery- 
zacja Wojewódzkiego Związku Spół- 
dzielni Rolniczej w Lesznie wraz z wpro- 
wadzeniem sprawdzonej sieci profes- 
jonalnej typu CORVUS 
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Andrzej STOBIŃSKI — 
Zakład Mechaniki Precy- 
zyjnej „UNITRA-MAGMOR”: 

Atrakcyjna oferta firmy to przede 
wszystkim terminal . ekranowy 
AN-2000 Składa się on z dwu podsta- 
wowych części: monitora Neptun-M 
t 157 oraz klawiatury z mikrokompute- 
rem zbudowanym w oparciu o mikro- 
procesor INTEL 8080 posiadającym 2 
kilobajty pamięci RAM (pamięć obrazu) 
oraz 2 kilobajty pamięci EPROM (w mei 
zapisany jest program, który zarządza 
pracą tego urządzenia), Terminal prze- 
znaczony jest do wprowadzania da- 
nych z klawiatury, przesyłania ich do 
komputera oraz wyświetlania na moni- 
torze informacji odbieranych z systemu 
komputerowego. Pojemność ekranu 
wynosi 2000 znaków rozmieszczonych 
w 25 wierszach po 80 znaków w wier- 
szu. Jest możliwe elastyczne redago- 
wanie informacji, na ekranie. Dostępny 
jest alfabet polski i angielski, duże i ma- 
łe litery, oraz znaki semigraficzne. 
Niewątpliwą dodatkową zaletą tego 
urządzenia jest możliwość automaty- 
cznego testowania poprawności po- 
szczególnych elementów układów 
elektronicznych. Zabezpiecza to po- 
prawność działania a w przypadku 
awarii, łatwą lokalizację błędu. Cały 
komplet kosztuje 1,4 min zł. Wyprodu- 
kowano już 250 sztuk tych urządzeń ja- 
ko serię informacyjną. Na targach jest 
prezentowany po raz pierwszy 

Ryszard CHWALKO - 
Spółdzielnia Rzemieślnicza 
„MOTGOS”: 

— Poprzez naszą działalność 
chcemy chociaż częściowo uporząd- 
kować „dziki” rynek komputerowy, jaki 
u nas zapanował. Nastawiamy się ra- 
czej na klienta indywidualnego, ewen- 
tualnie na . małe zakłady rzemieślnicze. 
Oferujemy' 


Nawiązaliśmy ścisłą współpracę z 
..Bomisem , w zakresie świadczeń 
gwarantujących wysoką jakość wyko- 
nywanych przeglądów 

Peter KASYK — amery- 
kańska firma „WANG”: 

— W Polsce firma działa już 10 lat. 
Oferuje tylko komputerowe systemy 
profesjonalne dla dużych zakładów 
pracy, działające w określonych sie-. 
ciach, Pierwszym klientem „WANG-a" 
był w latach 70-tych „Budopol ". Obec- 
nie komputery firmy sterują procesami 
produkcyjnymi w Polkolorze . który to 
zakład zamierza rozszerzyć swoją bazę 
komputerową o dalszy sprzęt „WANG- 
-a Polskie Linie Oceaniczne podpisa- 
ły z firmą kontrakt wartości 1 min doi. 
obejmujący dostawę urządzeń kompu- 
terowych i stworzenie systemu zarzą- 
dzania przedsiębiorstwem. Przeszkodą 
w handlu z Polską są zachodnie bariery 
licencyjne Obecnie sytuacja w tej 
dziedzinie znacznie się poprawiła. Fir- 
ma me obawia się konkurencji ze stro- 
ny przedsiębiorstw europejskich. Urzą- 
dzenia, które oferujemy są tak wysokiej 
klasy, że me mają konkurentów 

Opracowali: 

Wiesław Cetera 
Ryszard Rogoń 


Zdjęcia: R. Rogoń 


KRAK - 86 


MAZOYIA 


— usługi serwisowe (za złotówki), 

— informację techniczną, 

— przeglądy przedsprzedażne. 

— pokaz sprzętu i jego zastosowa- 

— zapewniamy import części za- 
miennych, 

— naprawy gwarancyjrfe i pogwa- 
rancyjne. 

Zapewniamy serwis dla kompute- 
rów. Commodore C-64, C-1 28, Schnei- 
der CPC 464 CPC 6128 oraz dla wielu 
urządzeń peryferyjnych: drukarki, sta- 
cje dysków, pamięci kasetowe, monito- 
ry, itp. 
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LOGO 

W poprzednim odcinku celowo pominąłem kilka 
ogólnych uwag odnośnie do programowania w LOGO. 
Pierwsza dotyczy wywołania LOGO, czyli uruchomie- 
nia translatora języka. Od tej pory pisząc LOGO, będę 
miał na myśli polskie LOGO, a jest ono dostępne w po- 
staci interpretera (program PTI LOGO) na mikro- 
komputerze ZX Spectrum. Jak zatem rozpocząć kon- 
wersację z LOGO? Na pewno prawie wszyscy użyt- 
kownicy Spectrum uśmiechną się wyrozumiale i odpo- 
wiedzą: trzeba je wgrać z kasety. Oczywiście tak jest, 
ale dla porządku oraz dla tych, którzy może nie wiedzą, 
przypomnę te podstawowe rzeczy. Mikrokomputer ZX 
Spectrum w wersji 48 K lub Plus ma ok. 48 000 bajtów 
(nie licząc pamięci typu ROM), czyli komórek pamięci. 
Tyle też wymaga interpreter LOGO. Jasno więc z tego 
wynika, że Spectrum 16 K (jest ich zresztą coraz mniej) 
nie nadaje się do korzystania z LOGO. Mając już kom- 
puter włączamy go do sieci i widzimy napis „© 1982 
Sinclair ■ Research Ltd”. W tym momencie możemy 
podawać rozkazy lub układać programy w języku Basic, 
który jest automatycznie dostępny. Firma Sinclair wy- 
posażyła swój komputer w interpreter (rodzaj transla- 
tora) tego języka, który jest na stałe w pamięci — jest 
zapisany w ROM-ie. Siłą rzeczy, aby uruchomić LO- 
GO, musimy napisać rozkaz w Basic’u „LOAD ". 
Mając kasetę z programem PTI LOGO, wgrywamy go, 
podobnie jak to czynimy z każdym innym programem 
czy grą. Program PTI LOGO (nazwa błyskająca) 
wgrywa się około 4 minut. Po tym czasie na ekranie 
powinien pojawić się napis „Polskie LOGO wer. 9 
cPTI/1986”. Po tym też można poznać LOGO, o któ- 
rym piszemy, gdyż krąży wiele wersji polskiego LO- 
GO, będących atrapami, różniących się od siebie, 
wprowadzających tym samym zamieszanie. Wersje te 
są złe i nie warto zwracać na nie uwagi. 

Kiedy widzimy już napis obwieszczający, że LOGO 
jest wgrane, widzimy również znak „?” i migający kur- 
sor. Taka sytuacja na ekranie informuje nas, że LOGO 
gotowe jest przyjmować komendy. Wykonanie komen- 
dy następuje po wciśnięciu klawisza ENTER. Pisząc 
zatem jakiś ciąg znaków postępujemy podobnie jak 
przy pisaniu listu; sami wiemy, co napisaliśmy i aby 
ktoś przeczytał, trzeba list wysłać — wcisnąć ENTER. 
Poprzednio bawiąc się żółwiem — zauważyliśmy, że 
wprowadzane przez nas komendy i w ogóle wszystkie 
teksty widoczne były tylko w dwóch dolnych liniach 
ekranu, LOGO bowiem ma dwa tryby: graficzny i tek- 
stowy. Wykonanie jakiejkolwiek komendy graficznej 
(związanej z żółwiem) powoduje przejście do trybu gra- 
ficznego — tylko dwie linie przeznaczone są na tekst. 
W trybie tekstowym cały ekran dostępny jest na napisy, 
a przechodzi się do tego trybu, pisząc TEKSTY lub w 
skrócie TS (w angielskim LOGO TEXTSCREEN 
TS). Spróbujmy napisać „PŹ”, a następnie „XXX”. Po 


wprowadzeniu komendy „pokaż żółwia”, ukazuje się 
on na środku ekranu. Następnie po wprowadzeniu 
XXX w dolnych liniach wyświetla się: „Nie wiem jak 
zrobić XXX”. Tylko w tych dwóch liniach widzimy 
naszą konwersację. Napiszmy teraz „TS”, a następnie 
„XXX”. Żółw znika, znak zapytania pokazuje się u gó- 
ry ekranu, a komunikat o błędzie w następnej górnej li- 
nii. Teraz jesteśmy w trybie tekstowym. Zostawmy na 
chwilę nasze rysunki i żółwia. Napiszmy: 

PISZ 24 

Po wciśnięciu ENTER, na ekranie pojawi się 24. Na- 
piszmy teraz: 

PISZ ”LOGO 

Jeden cudzysłów przed słowem oznacza, że słowo ma 
być wzięte dosłownie, tzn. traktowane jako ciąg znaków 
— napis. Teraz na ekranie po wciśnięciu ENTER po- 
jawi się LOGO. 

Poznaliśmy komendę PISZ, która ma też skrót PP 
(angielskie LOGO — PRINT PR). Powoduje ona wy- 
świetlenie wartości, jaka jest podana. Wartość ta może 
być liczbą, słowem, ale może być też ciągiem słów — co 
w LOGO nazywa się listą. Napiszmy: 

PP [Dzisiaj jest ładna pogoda] 

W nawiasach kwadratowych jest lista wyrazów, które 
wyświetlone zostaną po naciśnięciu ENTER. Z po- 
przedniego odcinka pamiętamy, że można powtarzać 
jakieś czynności dowolną ilość razy, pisząc komendę 
POWTÓRZ. Napiszmy: 

POWTÓRZ 15 [pisz [trala lala la]] 

Komenda znaczy: powtórz 1 5 razy instrukcje podane w 
nawiasie kwadratowym. W nawiasie kwadratowym jest 
tylko jedna instrukcja — PISZ, która ma wpisać ciąg 
wyrazów ujęty w nawiasy kwadratowe. Wynik jest za- 
tem zgodny z tym, co widzimy na ekranie — 15 napi- 
sów „trału lala la” jeden pod drugim. LOGO umie 
oczywiście liczyć. Spróbujmy napisać: 

PISZ 12+13 

otrzymamy wynik 25. Podobnie możemy napisać PISZ 
34/2 lub PP 1.3*3. Kropka dziesiętna umożliwia nam 
wprowadzanie dowolnej liczby ułamkowej. Weźmy tak: 

PISZ 2.23+3.33 — 5 — 7*8/100 powinien wyświetlić 

się wynik 0. 

Wyrażenie może być dowolnie długie, może zawierać 
nawiasy np: 

PP (3+2)*5 daje oczywiście 25. 

Tyle na razie o arytmetyce w LOGO. W następnych 
odcinkach dowiemy się o innych matematycznych moż- 
liwościach, o różnych funkcjach, które LOGO zna i o 
sposobie ich wykorzystania. Teraz jeszcze przyda nam 
się znajomość jednej funkcji pomocnej przy rysowaniu 
koła. 

Wprowadźmy: 

PISZ PIt 

Wyświetli się 3.1415927. Funkcja pitoznacza stałą pi i 
zamiast pisać 3.141 możemy jej używać. 

Wróćmy teraz do rysunków. Umiemy już poruszać 
żółwia, obracać, podnosić pióro, by nie ciągnął kreski i 
właściwie możemy wszystko narysować. Jednak na- 
rysowanie choćby kwadratu wymaga napisania jednej 
dość długiej linii. Jeśli chcemy narysować kilka kwadra- 
tów w różnych miejscach, musimy za każdym razem 
powtarzać ten sam ciąg dobrze znanych komend. Na- 
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uczmy zatem LOGO rysować kwadrat tak, żeby nic 
tracić czasu na powtarzanie w kółko tego samego. Na* 

piszmy: 

? OTO kwadrat 

> POWTÓRZ 4 [naprzód 40 prawo 90 J 

> JUŻ 

KWADRAT zdefiniowane 

Po napisaniu pierwszej linii i jej wprowadzeniu pojawia 
się znaczek ”>” zamiast znaku zapytania. Oznacza to, 
że LOGO zapamiętuje wprowadzaną linię, lecz jej nie 
wykonuje — jesteśmy w trakcie definicji procedury. Po 
napisaniu słowa „już”, które oznacza, że skończyliśmy 
opisywać treść procedury — LOGO pisze np. 
KWADRAT zdefiniowane — od tej pory zna nowe 
słowo. Napiszmy zatem 

? kwadrat 

i faktycznie rysuje się od razu cały kwadrat. Słowa 
kwadrat możemy teraz używać i w nowych procedu- 
rach, na przykład: 

OTO ROZETA 
POWTÓRZ 8 [kwadrat pw 45] 

JUŻ 

Wywołajmy 
? rozeta 

I rysuje się kwadrat za kwadratem, obracany o 45 stop- 
ni. Zdefiniujmy teraz taką procedurę: 

OTO SERWETKA 
POWTÓRZ 9 [rozeta prawo 10] 

JUŻ 

Po wywołaniu „serwetka”, na ekranie powstaje doić 
efektowny rysunek, przypominający ręcznie robioną 
serwetkę. Spróbujmy jeszcze: 

OTO REKLAMA 
SERWETKA 

PISZ [ALE ŁADNA SERWETKA!] 

Teraz mamy serwetkę z podpisem. W tym momencie 
radzę poeksperymentować sobie i korzystając z możli- 
wości definicji procedur, pohasać żółwiem po ekranie. 
Dobrze jest definiować procedury po uprzednim 
przejściu do trybu tekstowego (pisząc TEKSTY lub 
TS), ho wszystkie teksty widzimy. Odpowiednikiem 
„OTO" — początku definicji procedury — jest w an- 
gielskim LÓGO „TO", a odpowiednikiem „JUŻ” — 
„END”. 

Narysujmy teraz kwadrat i „wjedźmy" żółwiem do 
jego środka. Spróbujmy na przykład: 

? kwadrat pod prawo 45 naprzód 20 
Podane w jednej linii komendy spowodują narysowanie 
kwadratu, podniesienie rysującego piórka, obrócenie 
żółwia o 45 stopni w prawo i przeniesienie go wewnątrz 
kwadratu. Podnieśliśmy piórko, by żółw nie mazał 
„wchodząc" do wnętrza. Napiszmy teraz: 

ZAMALUJ 

i cały kwadrat zostanie wypełniony kolorem kreski. 
Komenda ZAMALUJ lub w skrócie ZAM powoduje 
wypełnienie kolorem kreski figury, wewnątrz której 
znajduje się żółw. Pozwala nam ona dowolnie koloro- 
wać rysunki na ekranie, ale trzeba o niej wiedzieć je- 
szcze coś więcej. Zanim opowiemy sobie o zmienianiu 
kolorów piórka-pisaka, tła, ramki i o sposobie, w jaki 
komenda ZAMALUJ działa, spróbujmy narysować na 
ekranie koło. Ponieważ ekran składa się z punktów, 
więc na pewno idealnego koła nic uda nam się naryso- 


wać. Wystarczy więc przyjąć, że koło to wielokąt fo- 
remny o dość dużej liczbie boków, np. 36. Zdefiniujmy 
procedurę: 

OTO KOLO 

POWTÓRZ 36 [NP 10 PW 101 
JUŻ 

Zdefiniowaliśmy 36-kąt. Żółw „idzie” 10 kroków do 
przodu i skręca o 10 stopni w prawo. Jeśli 36 razy to 
powtórzyć, narysuje figurę, która może być uważana za 
koło. Ile kroków wynosi promień tego koła? Wykorzy- 
stując znajomość elementarnego wzoru na obwód koła, 
mamy: obwód = 2*pi*r, zatem r = obwód/(2*pi). No, 
ale obwód naszego koła, to tyle, ile „przeszliśmy” żół- 
wiem, czyli 36*10. Stąd promień: r = 36*10/(2*3.14). 
Zauważmy, że wzór ten pozwala rysować koła o dowol- 
nych promieniach, bo liczba kroków w jednym ruchu 
wynosi podobnie: liczba kroków = 2*pi*r/36. W jaki 
sposób narysować kolo o dowolnym promieniu, korzy- 
stając tylko z jednej uniwersalnej procedury, dowiemy 
się w następnym odcinku. Na razie zdefiniujmy proce- 
durę rysującą koło o promieniu np. 40. Środek tego ko- 
ła ma znajdować się w punkcie, gdzie znajduje się żółw. 
A zatem: 

OTO KOLO 

POD NP 40 PW 90 OPU OPU - opuść 

POWTÓRZ 36 POD — podnieś 

NP 2*PI*40/36 PW 10 LW - lewo 

POD LW 90 WS 40 OPU WS - wstecz 

JUŻ 

Żółw był w środku, ale trochę z boku. I dlatego pewne 
miejsca nie zostały pokolorowane. Sposób, w jaki rysu- 
nek zostaje zamalowany, jest następujący: 1 . Z miejsca, 
gdzie stoi żółw, prowadzona jest pionowa kreska (w gó- 
rę i w dół) do brzegów figury. 

2. Z każdego punktu tej kreski prowadzone są kreski 
poziome do brzegów figury. 

Zauważmy, że jeśli wewnątrz są jakieś niepotrzebne 
kreski (jak w ostatnim przykładzie z kołem) mają one 
najczęściej wpływ na kolorowanie. Dlatego też, aby po- 
kolorować „wklęsłe” figury, należy żółwiem kilkakrot- 
nie „najeżdżać” na kawałki niezamalowanc. Sposób ten 
nie jest zbyt wygodny, ale w angielskim LOGO w ogóle 
nie można figur zamalowywać (nie ma odpowiednika 
ZAMALUJ). Algorytmy, skutecznie wypełniające ko- 
lorem figurę zamkniętą, wymagają dość dużo pamięci 
dokańczanła na *tr. 20 




czy to na swą treść (dość skomplikowana strategia), czy 
na pamiętanie rysunku (algorytm „pożaru prerii”). Dla 
potrzeb LOGO na Spectrum zaadaptowany został ten 
prosty, ale i bardzo mało kosztowny sposób kolorowa- 
nia. Siłą rzeczy nic jest najlepszy. 

Jeśli dysponujemy telewizorem lub monitorem kolo- 
rowym, możemy pobawić się w robienie różnokoloro- 
wych rysunków (w telew izorach czarno-białych będą to 
odcienie). Mamy do dyspozycji 8 kolorów. Komenda 
ustawiająca kolor pisaka to po prostu PISAK n, gdzie n 
to numer koloru widoczny na klawiaturze. Tak więc 
PISAK 2 spowoduje, że żółw i jego ewentualna kreska 
będą od tej chwili czerwone. Podobnie jest z ustawie- 
niem koloru tła — TLO 6 — spowoduje, że tło rysunku 
stanic się żółte. I jeszcze tzw. BORDER, czyli margi- 
nes-ramka. Piszemy po prostu RAMKA 1 i „border" 
stanie się niebieski. Wszystkie te komendy odnoszą się 
do grafiki. W trybie tekstowym również możemy inge- 
rować w kolory wyświetlanych tekstów. Czynimy to 
komendą: 

KOLORYT [n m], gdzie n to numer koloru tła tek- 
stów, a m to numer koloru atramentu. Osobiście radzę 
przy dłuższej pracy, zwłaszcza z telewizorem używać 
do tła i ramki koloru czarnego, a do atramentu żółtego, 
— mniej męczą się oczy. Należy więc wykonać: PISAK 
6 TŁO 0 KOLORYT (0 6J. Warto przy okazji wie- 
dzieć, że informacje o niektórych kolorach są dostępne 
dzięki funkcjom: TŁOt, PISAKt, KOLORYT!. 
Spróbujmy napisać: 

(PISZ ”TLO TŁO? ”PISAK PISAK? "KOLORYT 
KOLORYT?) 

a potem zróbmy np. PISAK 4 i ponownie powyższą li- 
nię. Kolor pisaka zostanie już zaktualizowany. Cała li- 
nia, a raczej komenda PISZ została wzięta w nawiasy 
okrągłe. Normalnie komenda PISZ ma jeden parametr, 
którego wartość wyświetla. Postawienie nawiasu przed 
komendą powoduje, że wszystko, aż do nawiasu zamy- 
kającego, zostanie potraktowane jako parametr PISZ. 
Tak więc tutaj zostało wypisane po kolei: słowo TŁO 
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było TLO), wartość liczbowa dla koloru tła (war- I 
tość funkcji TLO?, której działanie jest identyczne jak I 
funkcji PI?, czyli zwrócenie wartości), słowo PISAK I 
("PISAK), numer pisaka (PISAK fj, słowo KOLO- I 
RYT ("KOLORYT) i dwie liczby — kolor tła i atra- I 
mentu dla napisów (KOLORYT?). 

Zdefiniujmy teraz następującą procedurę: 

OTO KOLORY 

POWTÓRZ 8 (PISAK PISAK!-! NP 40 PW 45) 

JUŻ 

Zobaczymy ośmiokąt z każdym bokiem innego koloru I 
Zauważmy, że za każdym razem ustaw tamy kolor pisa- I 
ka na bieżący (PISAKT ) plus jeden, tzn. zmieniamy ko- I 
lor. Gdy chcemy go zmienić z białego na czarny, doda- I 
jemy do siódemki jeden, ale nie zrobi się osiem, lecz ze- I 
ro — kolory działają w kółko. Zróbmy teraz inne do- I 
świadczenie. Wywołajmy zdefiniowaną wcześniej pro- I 
ccdurę KOŁO — rysującą koło o promieniu 40 kro- I 
ków, a następującej procedurze: 

OTO ZGRZYT 

CS PISAK 6 TLO 7 KOLO 2 ZAMALUJ 
POD NP 40 PISAK 0 OPU KOLO 2 ZAMALUJ 
JUŻ 

Cóż się dzieje? Kolory nakładając się, zmieniają całe I 
kwadraciki. Dzieje się tak dlatego, że w obrębie takiego | 
kwadracika (8 punktów na 8) są dostępne tylko dwa ko- I 
lory — tła i kreski — co za tym idzie, któryś z kolorów I 
kresek wybiera się ostatni. Napiszmy teraz 
NEG 

i zobaczymy, jak przcdzjwny jest negatyw tego rysun- I 
ku. NEG to komenda powodująca zrobienie negatywu I 
ekranu. Powrót do „pozytywu”, to znów NEG. Spro- I 
bujmv wprowadzić taką procedurę 
OTOMIGMIG 
POWTÓRZ 100 (NEG] 

JUŻ 

Przy wywołaniu widać jak ekran jest podzielony na trzy I 
pasy — co zresztą widać najlepiej przy wgrywaniu ja- 1 
kiejkolwick gry (winiety-obrazki reklamowe wgrywają 
się partiami od góry). 



Przypomnijmy znane nam już słowa języka LOGO: 

PTI LOGO angielskie LOGO znaczenie 


PŻ 

SHOWTURTLE ST 

pokaż żółwia 

sż 

HIDETURTLE HT 

schowaj żółwia 

NAPRZÓD NP 

FORWARD FD 

naprzód o n 
kroków 

WSTECZ WS 

BACK BK 

wstecz o n 
kroków 

PRAWO PW 

RIGHT RT 

W prawo o n 
istopni 

LEWO I.W 

LEFT LT 

^ lewo o n 

CZYŚĆ CS 


stopni 

CLEARSCREEN CS 

(wyczyść ekran 

ZMAŻ 

CLEAN 

wyczyść ekran, 
ale żółw pozo- 

WRÓĆ 


staje gdzie był 

HOME 

żółw na środek 

POD 

PENUP PU 

podnieś pisak 

OPC 

PENDOWN PD 

opuść pisak 

POWTÓRZ 

REPEAT 

powtórz n razy 

COŚ 

ŚCIERANIE 

PENERASE PE 

żółw ściera — 
gumka 

TEKSTY TS 

TEXTSCREEN TS 

tryb tekstowy 

PISZ PP 

PRINT PR 

pisz ■i- wy- 
świetl coś 

PI' 

— 

stała pi 

OTO 

TO 

początek defi- 
nicji — nagłó- 
wek 

już 

END 

koniec definicji 

ZAMALUJ ZAM 

— r — 

zamalowanie 
. figury 

PISAK 

SETPC 

ustala kolor pi- 
saka 

PISAKI 

PENCOLOUR PC 

izwraca numer 
koloru pisaka 


TLO 

TLOł 

RAMKA 

KOLORYT 

KOLORYT! 

neg 


SETBG ustala kolor tła 

BACKGROUND BG zwraca numer 
koloru tła 

SETBORPER SETBG ustala kolor 
ramki 

SETTC 


TEKTCOLOUR TC 


ustala kolory 
tła i atramentu 
dla napisów 
zwraca numery 
kolorów 
negatyw ekra- 


Pracując w LOGO możemy całkowicie zapomnieć, że 
na klawiszach ZX Spectrum są jakieś słowa np. 
INPUT czy RETURN. Dla nas ważne są tylko litery 
(duże po wciśnięciu CAPS SHIFT) i niektóre inne 
znaki np. + / itp. Wszystko w LOGO wprowadza się 
znaczek po znaczku, co wcale nie jest tak niewygodne, 
jak się niektórym może zdawać. Wszystkie profesjonal- 
ne komputery czy mikrokomputery mają klawiaturę 
podobną do maszyny do pisania, a nic do słownika. W 
Spectrum zastosowano taką klawiaturę (a raczej taki 
sposób pracy 4 z Basic’cm) ze względu na małą pamięć 
(każde słowo BASICa kodowane jest jako jeden znak) 
oraz ze względu na analfabetów, którzy napisaliby np. 
SAFE zamiast SAVE. 

W przyszłym miesiącu poznamy procedury z para- 
metrami, nauczymy się też posługiwać edytorem — by 
móc poprawiać treści procedur oraz wyjaśnimy sobie to 
co na pewno każdy zauważył. Po kilku chwilach zabawy 
żółwiem „wyjeżdża” on nam poza ekran (celowo lub 
nie) i wtedy pojawia się po przeciwnej stronie. Dlacze- 
go tak się zachowuje i czy może inaczej — to właśnie 
wyjaśnimy sobie w przyszłym odcinku. 

„SIS" 


MARZYŁ 0 PRACY NAUKOWEJ 
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(Podstawy programowania) 


Kontynuujemy wykład z programowania w języku 
BASIC na mikrokomputer ZX Spectrum. Zaczniemy od 
kilku uwag na temat algorytmów i schematów bloko- 
wych, a potem dalsze instrukcje BASICa. 


W pierwszym numerze „IKS-a" przeczytaliśmy artykuł pt. 
„Co trzeba wiedzieć?". Zawiera on podstawowe zasady 
programowania dla początkujących programistów. Przy- 
pomnijmy początek „Przede wszystkim trzeba zrozumieć 
problem. Sformułowanie zadania nie może bowiem pozo- 
stawiać wątpliwości co do jego sensowności, poprawności 
formalnej i merytorycznej oraz kompletności sformuło- 
wań". 

„Drugim, niezmiernie ważnym etapem jest analiza prob- 
lemu i dobór metody rozwiązania" ... I wiele innych ważnych 
sformułowań. 

Wykorzystanie komputera do rozwiązywania różnorod- 
nych, często bardzo skomplikowanych zadań jest możliwe 
po uprzednim przedstawieniu każdego z tych zadań w po- 
staci algorytmu. 

Mianem.algorytmu określamy zwykle przepis przekształ- 
cenia pewnych danych w celu uzyskania pewnego wyniku. 

Dokładnie mówiąc, nazywamy tak przepis sprowadzają- 
cy się do tego, by dane uznane za dopuszczalne przeksz- 
tałcać krok po kroku według wskazanej reguły. Dane. które 
mamy przekształcać, nazywamy początkowymi (wejścio- 
wymi). dane. które uzyskujemy w kolejnych krokach — wy- 
nikami pośrednimi, a poszukiwany wynik — wynikiem koń- 
cowym (danymi wyjściowymi). 

Jako najprostsze przykłady możemy podać znane każ- 
demu algorytmy arytmetyczne — dodawania, odejmowa- 
nia, mnożenia i dzielenia dla liczb zapisanych w systemie 
np. dziesiętnym, czy też algorytm rozwiązania równań z 
jedną niewiadomą 
podamy teraz przykłady algorytmów. 

Przykład 3.1 

Dane jest równanie 

ax + b = 0 

dla danych a i b znaleźć wartość x 
Opiszemy ten algorytm w punktach 

1 . Sprawdzamy czy a # 0. 
jeżeli tak, to przejdź do punktu 2, 
jeżeli nie, to przeidź do punktu 4. 

2 Oblicz X = - - 
a 

3. Zakończ obliczenia 

4. Gdy a = 0 i b # 0 równanie sprzeczne, brak rozwiązań, 
gdy a = 0 i b = 0 każda wartość x spełnia dane 
równania. 

5. Zakończ obliczenia. 


Przykład 3.2 

Obliczyć pole trójkąta (F), promień okręgu opisanego na 
trójkącie (R), promień okręgu wpisanego w trójkąt (r). gdy 
dane są długości jego boków a, b, c. 

Problem sformułowany jest jednoznacznie 

a) pole trójkąta obliczamy według wzoru Herona: 

F = \/ p (p - a) (p — b) (p - c) 
gdzie: p = 2 - 

b) promień okręgu opisanego na trójkącie według wzoru: 

p_ abc 
R " 4F 

c) promień okręgu wpisanego w trójkąt według wzoru. 

F 


Danymi są tu wielkości a. b, c. a wynikiem wartości F. 
R, r 

Czynności prowadzące do uzyskania wyniku są nastę- 
pujące 

1 . Pobranie wartości a. b, c. 

2. Obliczenie p: 

_ a + b + c 

P 2 

3. Obliczenie wartości występującej pod znakiem pier- 
wiastka: 

p = (p - a) (p - b) (p - c) 

4. Pierwiastek kwadratowy obliczany z liczb dodatnich, wo- 
bec tego sprawdzamy: 

czy z < 0 

jeżeli tak, to przechodzimy do punktu 9 
jeżeli nie, to przechodzimy do punktu 5 

5. Obliczenie wartości F: 



IKS - STRONA 22 



6. Obliczenie wartości R: 

p - a • b » c 
R " 4 • F 

7. Obliczenie wartości r 



8. Zakończenie obliczeń. 

9 Spełnienie nierówności z < 0 oznacza, że z podanych 
wartości boków me można zbudować trójkąta (trójkąt 
można zbudować z podanych boków a, b. c. jeżeli; 
a 4- b >c I a+ c > b i c+ b > a), należy więc zakoń- 
czyć obliczenia. 

Wprowadzono tu wielkości pomocnicze p i z. Są to wy- 
niki pośrednie otrzymane w czasie liczenia. 

Ten sam proces liczenia można byłoby rozdrobnić przez 
podzielenie go na jeszcze bardziej szczegółowe czynności, 
np. liczenie poszczególnych różnic osobno itp. 

W przykładach 3.1 i 3.2 opisaliśmy algorytmy w języku 
polskim w postaci słownej. Jest to najprostsza metoda opi- 
su algorytmu. 

Zauważmy, ze z chwilą podania algorytmu proces li- 
czenia staje się czynnością zupełnie automatyczną. Aby 
przeprowadzić obliczenia, wystarczy zrealizować ten algo- 
rytm krok po kroku dla posiadanych danych i nie ma po- 
trzeby zagłębiania się w istotę rozwiązywanego problemu. 

Formułując algorytmy należy pamiętać o tym, że algo- 
rytm musi być jednoznaczny i kompletny. Jednoznaczność 
polega na tym, że wielokrotne zastosowanie algorytmu dla 
tych samych danych doprowadza do identycznych wyni- 
ków. Kompletność algorytmu wymaga uwzględnienia w 
nim wszystkich przypadków, jakie mogą zaistnieć w trakcie 
jego wykonania. 


Przygotowany algorytm zapisujemy w postaci „zrozumia- 
łej'' dla maszyny, tzn. w danym języku programowania. Tak 
zapisany algorytm nazywamy programem. 7 kolei pro- 
gram może być wprowadzony do komputera, a następnie 
wielokrotnie w nim wykonywany. 

Przyjrzyjmy się jeszcze raz algorytmom przedstawionym 
w postaci słownej. Zauważamy, że taki algorytm jest dość 
niewygodny, wymaga użycia dużej liczby symboli i słów, 
może być nieprzejrzysty. 

Dla uzyskania przejrzystości algorytmy przedstawia 
slf zazwyczaj w postaci graficznej W tym celu elemen- 
tarne czynności opisuje się symbolami graficznymi, 
wskazując za pomocą skierowanych linii kolejność wy- 
konywania czynności Kolejność ta może być w szczegól- 
ności warunkowa, tzn uzależniona od spełnienia pewnych 
warunków. Każdy symbol graficzny jest figurą geometry- 
czną, wewnątrz której znajduje się opis czynności; dla 
przejrzystości można go numerować bądź oznaczać sym- 
bolem Taki graficzny schemat algorytmu nazywa się 
schematem blokowym (lub siecią działań) 

Do przedstawienia operacji używa się następujących 
symboli graficznych: 

1 Operacja lub grupa operacji, w wyniku których zmienia 
się wartość, postać lub miejsce zapisu danych; 



Operacje wpisane do jednego prostokąta są wykonywa- 
ne wg kolejności zapisu. 

2. Wprowadzanie lub wyprowadzanie danych. 
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A Z TEGO, WCZESNEGO 
MODELU , ZACHOWAŁA 
Się JEDYNIE OBUDOWA 



czytaj 7 / piw 7"1 

J LS'J- J 


3 Decyzja — operacja określająca wybór 
tywnych dróg działania 


TO 

Te symbole noszą czasami nazwę logicznych lub wa- 
runkowych. Z lakiego symbolu mogą wychodzić dwie lub 
więcej linii, każda dla jednei z możliwych dróg wyjścia 
4 Wywołanie podprogramu 




Wewnątrz symbolu graficznego podaje się nazwę pod 
programu oraz spis parametrów aktualnych 
5. Początek, koniec lub przerwa 
oznaczenie miejsca rozpoczęcia, zakończenia lut 
. przerwania działania programu 

( START ^ ( STOP 

I 

6. Droga przepływu danych o wskazanym kierunku prze 
pływu. m 


7 Skrzyżowanie dróg przepływu danych bez powiązania 
logicznego między nimi' 


8 Łączenie dróg przuptyu 


9 Łącznik wewnątrzstronu • , 
wejście (do) lub wyjście z wyodrębnionych fragmentów 
schematu-znajdujących się na jednej strome- 

lub ^2^ *• 


10 Łącznik między stronicowy ■ 
wejście lub wyjście ? wyodrębnionych fragmentów 
schematu znajdujących się na różnych stronicach 


$ 
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Komentarzy używa się w ceiu opisania pewnych części 
schematu ułatwia to zrozumienie schematu blokowego. 

Powyżej pod^jśmy symbole graficzne, najczęściej uży- 
wane w schematach blokowych. Symbole graficzne 1 , 2, 3. 
4 5, 1 1 *nazyw3 się blokami. Kształt bloku określa rodzaj 
czynności'. napis wewnątrz bloku precyzuje tę czynność 
oraź jej parametry. Ponadto do każdego bloku może do- 
chodzić dowolna liczba strzałek, z każdego bloku z wyjątkiem 
decyzyjnego (3) może wychodzić jedna strzałka (jedno 
wyjście) Zaleca stę uzupełnienie schematów blokowych 
listą nazw i oznaczeń użytych w schemacie 

Zapiszemy teraz w postaci schematów blokowych al- 
gorytmy podane w przykładach 3 l i 3,2. 

Przykład 3.1 



Oznaczenia 

a, b - współczynniki równania 
X — pierwiastek równania 


Przykład 3.2 



(jtoT) 


Oznaczenia, 
a. b. c — boki trójkąta 
p z — zrmepne pomocniczo 
F pole ttojkąta 

R — promień okręgu opisanego na trójkącie 
r — promień okręgu wpisanego w trójkąt 

Schematy Dioępwe mogą być używane dć zapisu algo 
rytmów menumerowanych Najlepszym przykładem zbioru 
algorytmów jest książka kucharska, algorytmów gotowania 
i przyrządzania potraw, tżn. przepisów na wykonanie pew- 
nych czynności w dokładnie określonej kolejności, by za 
każdym razem, gdy je wykonamy, osiągnąć pożądany re- 
zultat Także wykonując codzienne czynności stosujemy 
zwykle świadomie lub podświadomie pewną metodę po- 
stępowania. która ma nas doprowadzić do określonego 
celu, . . 

I tak rip wedłgg określonego schematu (algorytmu) uru- 
chamiamy i prowadzimy samochód, ubieramy, się. robimy 
zakupy itp 

Przykład 3.3. 

Napisać algorytm w postaci sieci działań czynności 
związanych z zakupem , IKS-a' w kiosku RUCHU 



’ Podany wyżej algorytm mdże być rozszerzony np o 
wyjście z domu czy o brak reszty u kioskarza, ale kolejnoś- 
ci czynności wyszczególnionych w poszczególnych punk 
tach nie da się zmienić 


Opierając się na powyższych przykładach, powiemy, ze 
algorytm (w najprostszym ujęciu) jest to metoda prowa- 
dząca do rozwiązania określonego zagadnienia lub do 
osiągnięcia zamierzonego celu 


dokończenie w piątym numerze IKS*a 
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Układ równart 

Rozwiązanie układu równart li- 
niowych naatręcza wiele trudności. 
Program ten zrealizowany na C-64 
może to zadanie w wielu wypadkach 
ułatwić. Spoaób korzystania z pro- 
gramu I jego szczegółowy opis uzy- 
skuje się po uruchomieniu progra- 
mu. 
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Sposób ni projektowanie... komputer + plotter. 
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Z historii 

mikrokomputerów 

(Wielka Brytania) 


Dostarczane zza Oceanu do Anglii 
komputery, takie jak PET, APPLE II czy 
TRS-80 model 1, kosztowały aż 500 fun- 
tów. Z pewnością fakt ten znacznie 
przyspieszył w Wielkiej Brytanii prace 
nad własnymi mikrokomputerami, a 
konstrukcje brytyjskiej produkcji na 
przykład: NASCOM 1, Mk 14, UK 101 by- 
ły niemal trzykrotnie tańsze od amery- 
kańskich. Budowano je na jednym pakie- 
cie, który poza procesorem mieścił 2 lub 
4K RAM i ROM. Komputery te akcep- 
towały kod ASC IL 

Znaczącą datą w historii rozwoju 
mikrokomputerów jest rok powsta- 
nia pierwszego pisma im poświęco- 
nego. W Wielkiej Brytanii stało się 
to w 1978 roku, kiedy ukazało się 
pismo „PERSONAL COMPUTER 
WORLD”. 

W niecałe dwa lata potem poja- 
wiają się pierwsze przenośne mi- 
krokomputery ACORN ATOM i 
SINCLAIR Z80. Już wówczas mia- 
ły one „wbudowany” BASIC w pa- 
mięci ROM. ACORN ATOM ba- 
zował na procesorze 6502; miał 2K 
RAM (z możliwością rozbudowy do 
12K), monochromatyczny telewizor. 

Sir Clive Sinclair (jeszcze wó- 
wczas po prostu „Pan”) wymarzył 
sobie mikrokomputer, który koszto- 
wałby mniej niż magiczna cena 100 
funtów. Po wielu miesiącach ciężkiej 
pracy jego firma „Sinclair Research” 
wyprodukowała mikrokomputery 
ZX80 o pamięci 1 K RAM z BASIC- 
-em i interfejsem do typowych, do- 
mowych telewizorów i magnetofo- 
nów. Powodzenie tego sprzętu przy- 
czyniło się do uruchomienia produk- 
cji ZX81, który był już o 50% tańszy 
od swego poprzednika. 

W 1982 roku na rynku niepodziel- 
nie panował mikrokomputer ZX 
Spectrum z pamięcią 48K 
RAM + kolory za 125 funtów. W 
tym samym czasie komputer ten jako 
TIMEX SINCLAIR 2000 zawęd- 
rował do USA. 

Jak dotychczas do Spectrum napi- 
sano największą liczbę komputero- 
wych gier, dla dzieci i dorosłych — 


Zapamiętajcie! 

Bil — najmniejsza jednostka informa- 
cji, przyjmuje wartość 1 lub 0 (tak lub 

nie) 

Bajt to 8 Bitów 

KBajt: 2 10 4= 1024 Bajty = 8 1024 = 

= 8192 Bity 

MBajt: 1024 KBajty = 1024 1024 = 

= 1048 576 Bajtów = 8 1048576 = 

= 8388608 Bitów 

CBajt: 1024 MBajty = 1024 1024 = 

= 1 048 576 KBajtów = 

= 1024 1024 1024 = 

= 1073741 824 Bajty = 

= 8 1073741824 = 

= 8589934 592 Bity 


wany jest do pracy na wolnym po- 
wietrzu, można nim rzucać o podło- 
gę, jest po prostu niezawodny. Elek- 
tronika tego urządzenia oparta jest 
na układach CMOS i układach 
kompatybilnych z Z80 (procesor 
C800 firmy National Scmiconduc- 
tor, zegar 4MHz, system CP/M). 

Obudowa komputera HUSKY 
jest prosta, bez mechanicznych 
pamięci masowych. Ta pozorna wa- 
da czyni sprzęt mobilnym, a nie- 
zbędne dane stałe i programy są za- 
rejestrowane w trwałej pamięci 
CMOSRAM. 

Już w 1981 roku prezentowany 
mikrokomputer miał wbudowaną 
pamięć RAM o wielkości 144K, a 
ostatni model HUSKY HUNTER 
jest wielkości połowy arkusza A4, 
waży 1200 g, pracuje pod wodą, a jć- 
go baterie zapewniają pracę przez 50 
godzin. Ekran typu LCD wyświetla 
informacje w 8 wierszach po 40 zna- 
ków lub 240X64 piksele. Pamięć 
ROM ma 48K i mieści się w niej 
edytor tekstów, program komunika- 
cji, interpreter BASICA, filc mana- 
ger DEMOS kompatybilny z CP/M 
2.2 Pamięć RAM ma wielkość 256K 
w tym 48K z przeznaczeniem na 
symulację dysku. 

Kolejne modele mikrokomputera 
HUSKY to: 

— HUSKY SP (special performan- 
ce), 352K RAM, baterie na 100 
godzin pracy, 

— HUSKY IS (Intrinsically Safe) 
przeznaczony do zabezpieczenia 
elektrowni, petrochemii, ko- 


jedynic Commodorc może być dla 
niego konkurencją. 

Tymczasem ACORN wyprodu- 
kował na zlecenie rozgłośni BBC 
mikrokomputer o tej samej nazwie 

— BBC MICRO. Komputer ten i 
jego oprogramowanie konstruowano 
z myślą o sprzężeniu nowoczesnej 
technologii z telewizją dydaktyczną^ 
BBC zbudowany jest na procesorze 
6502, a jego zalety podkreśla dosko- 
nała kolorowa grafika. 

Jednak wadą nie do pokonania dla 
BBC okazała się zbyt wysoka cena, a 
ograniczoność zastosowania dopro- 
wadziła producenta niemal do bank- 
ructwa. Ostatecznie BBC został wy- 
kupiony przez firmę OLIVETTI i 
ślad po nim zaginął. 

W historii brytyjskich mikrokom- 
puterów znaczące były także inne 
konstrukcje: NEW BRAIN i Jupiter 
ACE, który zbudowano na podsta- 
wie procesora ZX80 (zamiast BA- 
SICA w ROM-ie mieścił się 
FORTH). Konieczność zdobycia 
przez każdego użytkownika mikro- 
komputera ACE odpowiednich kwa- 
lifikacji okazała się zgubna dla pro- 
ducenta — Jupiter zbankrutował. 

Potem pojawiły się mikrokompu- 
tery DRAGON 32 na procesorze 
6809. ORIC i pierwszy, składany, do 
dziś produkowany, przenośny (lap 

— held) mikrokomputer HUSKY. 
Jego produkcję rozpoczęto jeszcze 
przed rokiem 1981, a brak wcześ- 
niejszych informacji o nim tłumaczy 
podstawowe przeznaczenie kompu- 
tera HUSKY — wojsko. Przystoso- 
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paln up. wyposażony w 
422, 

HUSKY AD (analog/digital) ma 
osiem kanałów .zamiany sygna- 
łów analogowych na cyfrowe, 

— HUSKY M208, pierwszy kom- 
■„ puter odporny na krańcowo złe 
warunki zewnętrzne; drgania, 
uderzenia, temperaturę. Produ- 
cent twierdzi, źc sprzęt ten wy- 
trzyma warunki „3 wojny”. 

Brytyjskie czekanie na 16-bitowy 
komputer zakończyło się 4 lata temu 
. wyprodukowaniem SIRIUSA. Na- 
tychmiast firma ACT odpowiedziała 
mikrokomputerem APRICOT, któ- 
rego w 1983 roku sprzedano 35 000 
szt. Komputer ten jest ciągle sprze- 
dawany w swej oryginalnej obudo- 
wie z bliźniakami jednostronnych 
dysków 256 KB plus 9-calowy moni- 
tor z zielonym ekranem. 

\ W marcu 1984 roku firma ACT 
rozpoczęła sprzedaż modeli Xi20s o 
pamięci 1 MB RAM, twardy dysk 
20MB i 720 KB floppy dysk. Brak 
kompatybilności z IBM producent 
zastąpił dwoma tysiącami własnych 
programów. Było to kolejnym obja- 


wem procesu 
konkurentów ACT, w' tym IBM. 
Duży wpływ na te zmiany miała tak- 
że produkcja lokalnych sieci PO INI' 
32, które łączą do 32 komputerów 
APRICOT. 

Użytkownicy mikrokomputera 
APRICOT chwalą sobie jego małe 
rozmiary i łatwość transportu. Ten 
typ komputera między innymi upo- 
dobali sobie aptekarze. Pomaga im w 
tym skrupulatnie dostarczane fa- 
chowe opfogramow anie. 

Warto podkreślić, że procesor w 
APRICOT 8086 jest szybszy niż 
8088 w IBM PC. Ponadto prezen- 
towany mikrokomputer został ostat- 
nio uzupełniony o bardzo użyteczne 
oprogramowanie, COMMUNI- 
QUE, pozwalające korzystać z 
elektronicznej poczty — Tekom 
Gold, a także z terminali VT100, 
rozpowszechniających oprogramo- 
wanie i innych źródeł cennych 
informacji (MICROMAIL, MUL- 
TISTREAM). 

Na zakończenie warto zwrócić 
uw'agę na dziwną historię jednej z 
najbardziej popularnych firm mik- 
rokomputerowych w Polsce — Sinc- 
lair Research. Po olbrzymich sukcc- 


nicm był ZX Spectrum 48 KB 
RAM, firma zainwestowała między 
innymi w wersję QL, Zdarzepie to | 
odegrało niebagatelną rolę w kryzy- 
sie finansowym Sinclair^. Firmie I 
groziło bankructwo. Uzyskany w j 
ubiegłym roku kredyt około 15 mi- 
lionów funtów pozwolił na pokrycie I 
długów i radykalną obniżkę ceny QL 
z 399 na 199 funtów! Wkrótce firma I 
otrzymała zamówienie na sprzęt I 
opiewające na 10 milionów funtów. 
Ku wielkiemu zaskoczeniu okazało | 
się jednak, że nic QL jest przedmio- 
tem zamówienia, stanowi bowiem I 
tylko 1 5% całości — reszta to znane | 
u nas Spectrum i Spectrum plus. 
Tymczasem ZX80 jest nadal najle- 1 
piej sprzedawanym komputerem I 
domowym. 

Niepowodzenia mające swe źródło I 
w QL odzwierciedla między innymi I 
opinia, że nowa wersja AMSTRA- 1 
DA PCW 8256, mimo ceny 399 fun- I 
tów, nic będzie miała konkurencji w [ 
QL — który jest tylko zabawką, ma I 
kolorowy monitor, jego przeznaczę- 1 
nic to gry, a nie zastosowanie profes- 1 
jonalne. 

W. GOGOŁEK I 
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Odpowiedzi na zadania z drugiego 
numeru „IKS-a” 


Zadanie 1 

Oznaczamy szerokość drogi przez x. Z wa r unków zada- 
nia wynika, że. 

(80 - 2x) (60 ~ 2x) = .S Q: . SP . 

stąd otrzymujemy równanie kwadratowe 
x* - 70x + 600 = 0 

Jego rozwiązaniem są dwie wartości: x, = 10 i x z = 60. 
Uwzględniając treści zadania odrzucamy wartość x* = 60. 
czyli szerokość drogi wynosi 1 0 m. 


ao im] . 



Zadania 2 

Załóżmy, ze pierwszy przedmiot kupiono za x zł. wtedy 
drugi przedmiot kupiono za 225 — x zł. Ze sprzedaży pier- 
wszego przedmiotu otrzymano 25 proc. dochodu, tzn.. że 
został on sprzedany za 1,25x zł. Ze sprzedaży drugiego 
przedmiotu otrzymano 50 proc. dochodu, czyli sprzedano 
go za 1 .5 (225 — x) zł. 

W zadaniu podano, że całkowity dochód (w stosunku do 
ceny zakupu wynoszącej 225 zł) wynosi 40 proc. 

Zatem do kasy antykwariatu wpłynęło za oba przedmioty: 

1,40 *225 = 315 (zł), stąd: 

lix + 1-?(225 - x) = 315 

Zatem pierwszy przedmiot kupiono za 90 zł a drugi za 
135 zł. 

Zadanie 3 

Po 2 godzinach napełniła się $ zbiornika (woda wlewała 
się przez pierwszy kran). Oba krany w ciągu godziny na- 
pełniały + ?= ?*4 zbiornika stąd f zbiornika napełniły 
oba krany w ciągu 4 godzin, bo: 

b 

6 = x; a zatem x = 4 

zatem zbiornik zostanie napełniony całkowicie po 6 godzi- 
nach. 


Zadanie 4 

W zadaniu tym należało podać algorytm, czyli dokładny 
przepis wykonania w określonym porządku skończonej 
liczby operacji, pozwalających na rozwiązanie równania 
kwadratowego ax 2 + bx 4- c = 0. Poniżej przedstawiony 
został algorytm w postaci schematu blokowego. Algorytm 
ten można też było przedstawić w innej postaci np jako 
opis słowny kolejnych czynności w określonym porządku. 

W następnym numerze dalsze odpowiedzi 


Liga Myślących 


Zadanie nr 1 

Poprzedniego dnia zostały wyregulowane dwa zegary 
ścienny i budzik Zegar ścienny spóźnia się o 2 minuty na 
godzinę, budzik zaś spieszy się o 1 minutę na godzinę. Na- 
stępnego dnia rano oba zegary stanęły Zegar ścienny 
wskazywał godzinę siódmą rano, budzik zaś ósmą. 

W jakim czasie zostały wyregulowane I nakręcone dnia 
poprzedniego oba zegary? 


Zadanie nr 2 

Jakie jest prawdopodobieństwo losowego wyciągnięcia 
spośród 10 cyfr od 0 do 9 trzech takich, aby można było z 
nich ułożyć liczbę podzielną przez 9? 


Zadanie nr 3 

W turnieju szachowym bierze udział n zawodników, przy 
czym n — 2 zawodników rozegrało między sobą partie 
każdy z każdym, zaś z dwóch pozostałych, jeden rozegrał 
10 parlii a drugi jedną. Ilu było zawodników i czy wspo- 
mniani dwaj gracze grali ze sobą, jeżeli wiadomo, że roze- 
grano w sumie 55 partii? 


Rozwiązania zadań prosimy przesyłać do redakcji do końca 
września br.. z dopiskiem .Liga Myślących' Punktacja zalezy od 
liczby prawidłowych rozwiązań Wśród uczestników rozlosujemy 
książki a na zwycięzców „Ligi" czekaią dodatkowe cenne nagrody 
niespodzianki. 
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Pocztowa giełda 


Rozwiązanie krzyżówki nr 2. Hasło brzmi „BAW 8I£ z 
NAMI” Bony pieniężne 1000 zł wylosowali Julita Dryg- 
gas Gdańsk Karol Piekarz Rybnik, Miron Rogackl Konin, 
Witold Bardzki Łódź Paweł Szpakowski Warszawa 

Nagrody książkowe otrzymują Krzysztof Awodziewlcz 
Szczecin, Adam Szałamacha Chorzów-Batory. Janusz 

Kita Stalowa Wola, Leonard Radliński Wrocław, Wacław 
Uchlik Rumia Tomasz Bubiak Jaworzno Piotr Burak 
Kamienna Góra Mariusz Ladziński Rzeszów, Robert $o* 
liński Grajewo Orłowska Mirosława Kłodzko, Anna Cho- 
lewińska Lublin. 


Niebywałym powodzeniem cieszy się „Liga Myślą- 
cych". Zadania z pierwszego numeru „IKS-a" rozwiązało 
prawidłowo ponad 400 osób. Z drugiego numeru, mimo że 
przysłano więcej rozwiązań, tylko kilkanaście uzyskało 
maksymalną liczbę punktów. Na czołówkę i „liderów’' przyj- 
dzie jeszcze trochę poczekać. 

Przepraszamy za mylną „stopkę" w „Lidze Myślących" w 
nr 3 „IKS-a" 


Warszawskie (czerwcowe) notowania 
„komputerowe”: 

ZX Spectrum Plus — 110 tys. 

ZX Spectrum 48 + magnetofon — 105 
tys. 

ZX Spectrum 128 K — 195 tys. 

Atari 800 XL + magnetofon — 115 tys. 
Atari 130 XE — 135 tys. 

Commodore C-64 + magnetofon + 2 
joysticki — 290 tys. 

Commodore 16 + magnetofon — 60 tys. 

Meritum 1 — 155 tys. 

Prosimy o nadsyłanie notowań „komputerowych" z 
innych miast (z adresem giełdy). 


Ogłoszenia 

Sprzedam programy, literaturę do: Commodore 
C-64, C-1 6, C-1 1 6, Plus 4, Atari 800 XI Marek Gór- 
ny skr. p. 1170 40-001 Katowice 1. 

Kupię grę elektroniczną Andrzej Dopke, ul. Rej- 
tana 7/17 84-200 Wejherowo, woj. Gdahek. 

Kupię oprogramowanie i moduł ROM-u (TV Exlen- 
ded Basic) na komputęr T 1 99/4A Piotr Uchyla, ul. 

Kościuszki 3 44-240 Żory. 

Wymienię programy na Commodore C-64 Michał 

Łaszewicz, ul Szpitalna 35a/54 15-295 Białystok 
tel. 215-58. 

Sprzedam Commodore C-1 16 + magnetofon + 
książkę Basic i kasety Robert Zdzirtski Centr. B 
1/100 31-926 KrakOw. 


Lista „przebojów” 


W naszych notowaniach systematycznie zachodzą 
zmiany. Na czoto wysunął się program z trzeciego nu- 
meru „Łamigłówka". Czytelnicy lubią programy „myś- 
lące" — taki wniosek nasuwa się z otrzymanych listów, 
Chwalicie „Odwracankf" która z pierwszego miejsca 
spadla na drugie — oba programy przeznaczone są na 
komputer „Atari", może nasi czytelnicy pokuszą się o 
adaptowanie ich na ' inne typy mikrokomputerów — 
wytrwałym życzymy powodzenia. Na kolejnych miejs- 
cach na naszej liście, z niewielką różnicą otrzymanych 
głosów znajduje się program dla statystyków „Współ- 
czynniki korelacji" i dwa programy na Commodore 
C-64 „Projektant eprltea" I „Projektant — znaki". 

Uwaga! Już od kilku tygodni komputerowe programy 
prezentujemy w sobotnio-niedzielnym wydaniu „Żoł- 
nierza Wolności” — Horyzont Na łamy zapraszamy 
naszych czytelników. Wasze najciekawsze propozycje 
opublikujemy. Liczy się każdy dobry pomysł — zapra- 
szamy do współpracy. 


W naszym kompulerlandzie 


W naszym kompulerlandzie sensacja! Najpowa- 
żniejsze zespoły robotów ustaliły, że pieniądze spa- 
dają z niebios. W związku z tym w bardzo prosty spo- 
sób. nie wymagający żadnego wysiłku poza szuka- 
niem trajerobów, można zdobyć fortunę. 

Wystarczy tylko ułożyć listę 12 robotów, najls; 
piej z kręgów własnej robociej rodziny, po czyitr 
sprzedać listę fraierobom, którzy dopasują podobne 
sobie typy i generacje robotów i mają obowiązek 
wystać gotówkę do Pierwszego (w liście). 

Poczta jest zadowolona bo kasuje opłaty. Dzieło- 
roby zwane listonoszami są zadowolone, bo dostają 
od Pierwszego dolę. 

Pierwszy jest najbardziej zadowolony, bo fraieroby 
przysyłają mu szmal, który upycha w podwójne dno 
obudowy monitora i pęka ze śmiechu na widok resz- 
ty, która biega z opracowanymi przez siebie fałszy- 
wymi listami żądając opłat. 

Dla zapewnienia reklamy w przedsięwzięciu Pier- 
wszy rozsiewa pogłoski o wielomilionowych fortu- 
nach, jakie roboty porobiły w naszym komputerlan- 
dzie i interes kwitnie. 

Pomysł byt do tego stopnia dobry, że nawet pra- 
cowity Spektruś postanowił taką skróconą listę uru- 
chomić i umieści) na niej: redaktorów „IKS-a" a na : 
stępnie siebie. 

Nie jest jednak wydrwigroszem i ową listę oferował 
za darmo uczciwie mówiąc, że pragnie dorobić się 
kosztem czytelników, aby kupić wreszcie redakcji 
„IKS-a" niezbędny sprzęt. 

Pełen nadziei Spektruś czeka na miliony... 

Podglądał: Eugeniutz MLECZAK 
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Krzyżówka nr 4 


POZIOMO: A-l Mikrokarta przejrzysta, D-3 Pod- 
stawowa komórka społeczna, A-4 Patetyczny 
utwór poetycki, K-4 Autor trylogii „Czas nieutra- 
cony", F-5 Znany polski przedwojenny bokser, 
A-6 Organ dowodzenia sił zbrojnych, 1-6 Drapie- 
żna ryba morska z rzędu chrzęstnoszkieleto- 
wych, E-7 Miara powierzchni gruntu, H-7 Matka 
bogów, A-8 Miasto w Turcji. Dawna Smyrna, 1-8 
To co jest unoszone przez wiatr lub wodę, F-9 
Rodzaj sieci na ryby, A-10 Rozebrana lala na fot- 
ce, K-10 4840 jardów kwadratowych, D-11 Prze- 
nośnie grubas kojarzy się z masłem, A-13 Meto- 
dyka dokonywania pomiarów na człowieku. 

PIONOWO: A-l Wyjawienie czegoś ukrywanego, 
C-4 Pracuje bez udziału człowieka, D-1 Jednost- 
ka podstawowa makrocząsteczki otrzymanej 
przez polimeryzację, D-11 Duży gęsty stary las, 
F-1 Służy do zmiany alfabetu, F-9 Np. Gujazyl, 
G-5 Pies z elementarza, H-1 Myśliwy beocki, 
H-9 U ludów tureckich okup płacony dawniej ro- 
dzicom narzeczonej, 1-6 Pierwiastek, J-1 Papuga, 
J-11 Piłka poza linią boiska, G— 8 Szósty, stopień 
gamy C-dur, K-4 Słownictwo, K-1 Techn. otrzy- 
mywanie metali z tlenków przy użyciu metali- 
cznego glinu. 

HASŁO: 3— G, 1—1, 1— H, 4— Ł, 13— F, 5— C, 
1 — L, 4 — F, 2 — H, 2 — A, 11— Ł, 3-F, 13-G, 7-K, 
6— B. 10— L, 4— H, 11— H, 10— F. 

Roz wiązana ttyiko hasio) należy przesiać pod adresem redakC|i 
do końca września br 


TANDY 1000, wyprodukowany przez 
firmę Tandy (Radio Shack, jest jednam z 
tańszych komputerów tej klasy, jego cena, 
z pojedynczy, 128 kilobajtową stacją dy- 
sków, wynosi 999 dolarów lub 1746 z pod- 
wójną — 256 kilobajtową. Jest w pełni 
kompatybilny. z innymi komputerami 
osobistymi tej klasy. Działa w oparciu o 
16/8 bitowy procesor 8088. Ma możliwości 
rozszerzenia pamięci do 640 KB. Zastoso- 
wany ekran jest monochromatyczny i za- 
wiera 80 znaków w 25 wierszach. Możliwe 
jest zastosowanie monitora kolorowego. 


„IKS” — dodatek „Żołnierza Wolności”. Redagują: Wiesław Celera, Ryszard Rogoń. Adres redakcji: 00-450 Warszawa 
ul. Grzybowska 77, telefon centrali 20-12-61 w. 486. Rękopisów nie zamówionych redakcja nie zwraca i zastrzega sobie 
prawo do skrótów. Nakładem: Wydawnictwa „Czasopisma Wojskowe”, Warszawa ul. Grzybowska 77. Fotoskład i druk 
rotograwiurowy — Wojskowe Zakłady Graficzne im. gen. dyw. A. Zawadzkiego. Nr zam. 7821. Nr ind. 382804 P-73 
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Przyjemności lata mamy już za sobą. Co to 
były za wakacje! Po raz pierwszy tak wielu 
spędziło je przed komputerem. Na licznych 
obozach te cacka naszych czasów były waż- 
niejsze od kucharza i pogody razem. A że ta 
ostatnia nie zawsze dopisywała, tym inten- 
sywniej stukano w komputerowe klawisze. 

Kończymy pierwszą piątkę numerów 
„IKS-a”. Każdy numer był inny, i mamy na- 
dzieję, że lepszy. Jeśli tak jest, to bez wątpie- 
nia stało się to także przy pomocy naszych 
Czytelników, którzy nie skąpili nam rad i nie 
ukrywamy, że z nich korzystamy. Na barki 
skromnej redakcji spadł dosłownie grad ko- 
respondencji. I choć przeczytaliśmy każdy 
list (do dziś czujemy w dłoniach trud otwie- 
rania niezwykle starannie zaklejanych ko- 
pert), nie na każdy zdołaliśmy odpowiedzieć 
— prosimy o cierpliwość — już wkrótce nad- 
robimy zaległości. Ale już teraz dziękujemy 
za rady, życzenia i wszystkie uwagi. 

Mamy jednak prośbę, rozwiązania krzy- 
żówek, przysyłajcie nam na kartkach pocz- 
towych, a rozwiązania „Ligi Myślących" opa- 
trujcie tym właśnie dopiskiem. 

Już wkrótce na łamach „IKS-a” znajdziecie 
najciekawsze propozycje naszych czytelni- 
ków. Zapraszamy do dzielenia się swoimi do- 
świadczeniami w programowaniu: Jeśli coś 
można zrobić lepiej, to zróbmy — rusz gło- 
wą. 

W naszym piśmie więcej miejsca poświęcać 
będziemy programowaniu i zgodnie z ży- 
czeniem Czytelników rozszerzamy nasz 
„komputerowy asortyment”. Prosicie nas 
często o gry, dobre, graficzne. No cóż dobra 
atrakcyjna gra, z dobrą grafiką, to przede 
wszystkim bardzo dobry program i to napisa- 
ny w języku wewnętrznym — jego objętość 
byłaby tak duża, że „pożarłby” większość na- 
szych kolumn. Zresztą o kasety z atrakcyjny- 
mi programami coraz łatwiej, a ich sprzedażą 
zajmują się również Kluby Międzynarodowej 
Prasy i Książki (o czym piszemy obok). A jeśli 
już gry, to proste, logiczne. Tym lepsze im 
błyskotliwszy projektant i zdolniejszy pro- 
gramista. Może wśród Waszych propozycji 
znajdzie się pomysł na miarę Rubika. Cze- 
kamy na Wasze pomysły i otwieramy dla nich 
naszą „Listę przebojów”. Nadal prezentować 
będziemy, przykłady praktycznego zastoso- 
wania komputerów. Zaczynamy od proble- 
mów nam najbliższych, bo komputer w do- 
mu nie może być jedynie kosztowną zabaw- 
ką, ale w miarę możliwości powinien nas 
wspierać : Biblioteka, obliczenia, programy 
edukacyjne, to tylko niektóre przykłady jego 
zastosowania. 

Jeśli ułatwimy wam poznanie komputera 
uznamy to za swój sukces, bo dialog z tym 
urządzeniem to realna rozmowa o przyszłoś- 

REDAKCJA 


„IKS" w ciągłej sprzedały 

Juz wkrótce niektóre Kluby Międzynarodowej Prasy 
Książki pęoą wyspecjalizowanymi punktami sprzedaży 
czasopism i publikacji mforrpatycznych oraz kaset z pro- 
gramami Komputerowymi. W wytypowanych przez Zarząd 
'Główny RSW klubach zawsze fiędzłe można kupić „IKS-a", 
..Bajtka" „Komputer". Oto adresy placówek, które w 
pierwszej kolejności zajmą się sprzedażą kaset i c/aso 
pism: 

1. Bydgoszcz — Al. 1 Maja 10 

2. Gdańsk — ul. Długi Targ 25/27 

3. Katowice — ul. Wawelska 2 

4. Gliwice — Rynek Główny 

5. Kielce — ul. Rewolucji Październikowej 3/5 

6. Koszalin — ul. Zwycięstwa 106/108 

7. Kraków — Mały Rynek 4 

8. Lublin — Krakowskie Przedmieście 20 

9. Łódź — ul. Narutowicza 8/10 

10. Olsztyn — ul. 1 Maja 18/19 

11. Poznań — ul. Ratajczaka 39 

12. Rzeszów — ul. Słowackiego 11 

13. Szczecin — al. Wojska Polskiego 2 

14. Warszawa — ul. Bagatela 14 

ul. Marszałkowska 116/122 

15. Wrocław — plac Kościuszki 21/23 

Dodajmy, że ciągłą sprzedaż naszego miesięcznika 
prowadzi księgarnia Wydawnictwa MON — „Bellona" 
— uł. Grzybowska 77 Warszawa. 

Już wkrótce kolportażem wydawnictw informatycznych 
zajmą się równie/ KMPiK w: Opolu. Zielonej Górze. Bia- 
łymstoku. Toruniu. Tarnowie, Kaliszu. Pile. Świnoujściu. 
Mamy nacjzieję. że każdy miłośnik informatyki" znajdzie w 

■ j n ' '■< Qi> i -i ' < - 

UWAGA! „IKS" w prenumeracie! Prenumeratę przyj- 
mują oddziały RSW „Prasa-Ksiąika-Ruch”, a w miej- 
scowościach, gdzie ich nie ma urzędy pocztowe i 
doręczyciele. 
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— Dopiero kilkudziesięciu, głów- 
nie z dużych ośrodków miejskich. Nie- 
którzy z nich realizowali już bardzo da- 
lekie połączenia, nawet ze Stanami 
Zjednoczonymi. 

• Czy wszystkie centrale telefo- 
niczne naszego kraju są zdolne do 
realizacji połączeń komputerowych? 

— Niestety nie. Mamy przecież 
jeszcze centrale ręczne j gdyby telefo- 
nistka włączyła, się w transmisję da- 
nych z pytaniem „mówi się?" — 
wszystko, trzeba by było .zaczynać od 
nowa. 

• Jakie są zatem tendencje roz- 
wojowe? 

— Dotyczą one stworzenia wy- 
dzielonej sieci transmisji danych, po- 
czątkowo tylko dla instytucji, dostoso- 
wanej do współpracy i z siecią telefo- 
niczną i z siecią teleksową. Przy okazji 
chciałbym powiedzieć o innej koncep- 
cji — interesującej na pewno wszyst- 
kich telewidzów. Jej istotą jest sieć 
uzupełniająca dzisiejszy system łączy 
telefonicznych na .takiej zasadzie, na 
jakiej w wielu już państwach za po- 
mocą „czarnej skrzynki" sprzedawanej 
przez administrację łączności do linii 
telekomunikacyjnych przyłączać mo- 
żna odbiorniki telewizyjne. 

• Kiedy resort przystąpi do reali- 
zacji tych, nowych zadań? 

— Początek w przyszłym roku. 

• Dziękuję bardzo za informacje. 


Michał PRZYBYŁOWSKI 


Rys. Michał Przybyłowski 
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Mikro w Japonii 


Światową historię mikrokomputerów rozpoczął w 1971 
roku mikroprocesor 4004. Rok potem INTEL produkuje 
8008, by po kilkunastu miesiącach dostarczyć na rynek 
jeden z najpopularniejszych mikroprocesorów 8080. Zna- 
czącym uzupełnieniem rozwoju mikro było pojawienie się w 
1973 roku procesora Ziloga. 


W tym samym czasie japońscy kons- 
truktorzy pracowali nad własnymi 
technologiami i już wiosną 1972 roku 
firma NEC rozpoczyna sprzedaż mik- 
roprocesorów NEC 700. Składały się 
one z dwóch układów i były ekwiwalen- 
tem procesora 4004. 

Maj 1973 roku to data narodzin w 
firmie TOSHIBA 12-bitowego mi- 
kroprocesora TLCS-12. Miało to za- 
pewne istotne znaczenie w przyspie- 
szeniu prac NECa, skoro w październi- 
ku tego samego roku rozpoczęto pro- 
dukcję serii /uCOM: /uCOM-4, AtCOM-8. 
/iCOM-16. Są to kolejno procesory 4-, 
8- i 16-bitowe. W rezultacie okazało 
się. że mikrokomputery NECa i Fujitsu 
są dwa razy szybsze niż IBM PC. 

Japońskie komputery najczęściej 
bazują na mikroprocesorach 8086-2 
lub 80186, są wyposażone w pamięć 
RAM 0.5 MB. floppy dyski 1 MB każdy 
pracują pod systemami MS DOS 
CP/M-86 plus język japoński, 
opracowanie nie było łatwe. A 
tym angielska terminologia 
czna jest istotnym problemem. 


cznych. Zamiast aparatu telefoniczne- 
go umieszczony tam terminal ma wbu- 
dowany ekran, klawisz start, dwie gałki 
kursora, klawisze akceptacji i kasowa- 
nia oraz otwory na kasety, floppy dysk. 
Oczywiście nie zabrakło wlotu na mo- 
nety, a także kartę kredytową. Całość 
połączona jest z głównym komputerem 
kablem telefonicznym. 


wiście zaprezentowana, ale dopiero 
uiszczenie odpowiedniej opłaty jest 
warunkiem by została zapisana na dy- 
sku lub kasecie użytkownika. Czas wy- 
konania wszystkich tych czynności (w 
budce — terminalu) nie przekracza 
200 sekund. Koszt tego typu terminalu 
wynosi 8 — 12 tys. dolarów. 

Przykładami obecnie produkowa- 
nych w Japonii mikrokomputerów są: 
IS-11 C. T 1100, SPIRIT PC. 

IS-1 1 C z ekranem LCD o rozdziel- 
czości 640 X 200. ma pamięci ROM 72 
KB i RAM 80 KB. 70 klawiszy, wbudo- 
wany system mikrokaset 1 28 KB każ- 
da. IS-11 C ma również możliwość do- 
łączenia termicznej drukarki, innej kla- 
wiatury, interfejsu do mikrofloppów, a 
także lokalnego komputera za pośred- 
nictwem łączności telefonicznej. 

T 1 1 00 również jest wyposażony w 
ekran LCD, mikrofloppy, dysk i jest 
kompatybilny z IBM PC, akceptuje 
MS DOS/PC DOS. 

SPIRIT PC znany w Wielkiej Brytanii 
jako OSBORNE jest w pełni kompaty- 
bilny z IBM PC. Posiada oprogramo- 
wanie INTEGRATED 7 o siedmiu inte- 
gralnych aplikacjach, między innymi 
baza danych, grafika zawodowa, a po- 
nadto słownik z 35 000 słów (zamiast 
słownika ortograficznego — oczywiś- 
cie japońskiego). Innymi słowy kompu- 
poza realizacją typowych zadań 
itroluje poprawność pisanych słów 
potocznego, na przykład pod- 
:as aktualizacji zbiorów, których ele- 
entami są słowa. 

Na zakończenie dodajmy, iż ostatnio 
aponię zdominował system operacyj- 
y UNIX, który podobnie jak CAD/ 
AM stał się standardem, 

Poza niekwestionowanymi osiąg- 
nięciami w zakresie technologii, na 
zególne podkreślenie zasługuje 
szacunek Japończyków do własne- 


u nas nawet nie budzi zainteresowania, 
a czasami jedynie uśmiech politowania 
„fachowców" wobec prób wprowadza- 
nia rodzimej terminologii związanej z in- 
formatyką. 

Stan rozwoju komputerów w Kraju 
Kwitnącej Wiśni odzwierciedla bardzo 
interesujący system SV — 2000 (Soft- 
ware Vending System). Jest to sieć z 
terminalami w postaci budek telefoni- 


Za pośrednictwem tego ogólnodo- 
stępnego terminalu można dokonywać 
transakcji finansowych, rejestrować i 
odczytywać dane, programy itp. 

Po naciśnięciu klawisza start, na ek- 
ranie ukazuje się lista możliwych „us- 
ług" terminalu. Można na przykład po 
podaniu typu posiadanego w domu 
komputera (koniecznie firmy NEC), 
wybrać nową grę, zostanie ona oczy- 


go języka. Szkoda, że tego nie moż- 
na powiedzieć o wielu producentach 
sprzętu elektronicznego (w tym 
komputerów) w Polsce. Nawet więk- 
szość podstawowych opisów sprzę- 
tu domowego wykonana jest w Języ- 
ku angielskim. Na przykład napis 
„kolor” na telewizorze Neptun — 
„COLOR"! Dlaczego? 

Włodzimierz GOGOŁEK 
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gyguguj 


WYLICZENIA WIELOPOZYCYJNE 

Dziś prezentujemy program 
szczególny. Taki, który zwiększa 
możliwości Twojego komputera. 
Obecnie będziesz mógł wyliczyć 
wiele, bardzo wiele pozycji „po 
przecinku". Ile? 100, 500, a może 
więcej. Nasz program ma jednak 
ograniczone zastosowanie — wyli* 
cza on stałą „rr”, stałą „c”, ekspo- 
nentę oraz ułamek. 

Zacznijmy od końca. Ile pozycji 
ma ułamek 1/7? Nieskończenie wie- 
le. Tak, ale w jego „ogonie" jest 
prawidłowość: stale się powtarza 
człon „142857" i znów „142857" itd. 
Ciąg ten ma SZEŚĆ pozycji i nie 
może mieć więcej, gdyż przy podzia- 
le przez 7 „reszta" wynosi 1, lub 2, 3, i 
4, 5 lub 6. Większej reszty nie ma. 

1 oto mamy regułę: okres odwrot- 
ności liczby „M" może mieć NAJ- 
WYŻEJ „M-l” pozycji. 

Oczywiście może ich być mniej. 
(Odwrotność M=10 wynosi 0,1, ok- 
res jest ZEROWY, a więc mniejszy 
od 10-1). 

Bardzo „złośliwa" jest odwrot- 
ność M=21. Okres ma aż 20 pozycji, 
Dla M=49 pozycji jest 42. 

Proponujemy zacząć od wyliczeń 
ułamka (etykieta G). Wprowadź- 
my... 100 pozycji dla licznika 12345 
oraz mianownika 99999. Rezultat 
powinien być monotonny: stale 
„12345.12345". Jeśli jest łnny — źle 
wprowadziłeś program. 

Gdy usunąłeś błąd, zbadaj możli- 
wości Twojego komputera. Wylicz 
500, 1000, a może więcej pozycji. 
Wynik ma być zawsze ten sam: 
„12345.12345”. Jeśli na końcowych 
pozycjach masz inny wynik, oznacza 
to, że osiągnąłeś GRANICE MOŻ- 
LIWOŚCI Twojego komputera. 
Warto je poznać. 

Dalsze programy służą do wyli- 
czeń wiclopozycyjnych stałej „ n'\ 
stałej „e” oraz eksponenty. 

Wyliczanie stałej „ n " jest długie: 
mój SHARP PC-150 wylicza 100 
pozycji w ciągu 26 minut i 18 sekund. 
Francuski programista Renaud de 
LA TAILLE (od którego pożyczyłem 
koncepcję tego programu) podaje, iż 
wyliczenie 1000 pozycji trwa 14 dni, 
zaś 1650 pozycji jego SHARP PC 
1211 liczy 38 dni! 


Niewątpliwie istotne jest, czy te 
wyliczenia są POPRAWNE? Ja po- 
stąpiłem następująco: wyszperałem 
w tablicach matematycznych stałe 
”rr" oraz „e” z dokładnością do 31 
pozycji. Porównałem je z moimi wy- 
liczeniami: IDEALNA ZGOD- 

NOŚĆ! 

Jednak poprawność 31 pozycji 
wcale nie oznacza, iż reszta 100-po- 
zycyjnego „ogona" jest dobra. I oto 
mam problem: czy „ogon" jest 
dobry? 

Sam nie potrafię odpowiedzieć. 
Spróbujmy wspólnie: napisz do 
„IKS-a". Podaj wyniki wyliczeń i 
wyszperane dane. 

Wracając do programu: zwróć 
uwagę na trzy podprogramy (ety- 
kiety A, B, C). Są one stosowane we 
wszystkich naszych programach. 
Podprogram „A" dotyczy wiclopo- 
zycyjncgo mnożenia, „B" — dziele- 
nia, zaś „C" — • wydania wyników. 
Teoria mówi, iż za ich pomocą 
(A,B,C) można wielopozycyjnie wy- 
liczać funkcje trygonometryczne (a 
zapewne i inne). To adresuję do 
tych, którzy lubią wyższą matema- 
tykę (problem „szeregi potęgowe"). 
No i na koniec: PO CO TAKA DO- 
KŁADNOŚĆ? Odpowiadam: w 

„codziennym" życiu jest zbyteczna. 
Ale już dziś kartografowie uważają, 
iż dziesięciopozycyjne wyliczanie 
jest zbyt mało dokładne („przydałby 
się dłuższy arytmometr"). Co zatem 
mają powiedzieć kosmonauci?! 

Czy możesz sobie wyobrazić, jak 
precyzyjnie był wyliczony tor WE- 
GI, która po latach wędrówki kos- 
micznej TRAFIŁA w-warkocz kome- 
ty Hal!cv’a?! 

STARY NAUCZYCIEL 
50: "A": FOR K=WT0 
0STEP -1 

60: G=INT X(K) : D=X 
(K)-G 

70:B=D*L+P/Q:C=(<3 
*L+INT B)/Q 
80: P=INT C: X(K>=( 
C-P)*Q+(B-INT 
B) 

90: NEXT K: RETURN 
100: "B" : FOR K=0TO 
U 

1 10: G=INT X(iO : D=X 


120: A=G+P*Q: B^INT 
<A/n> 

130: E=A-B*!1: F=(D+E 
>*Q . 

140: C= INT <F/M) : P= 

F-c*n 

150:X<K)=B+<OQ> 
160: NEXT K: RETURN 
170: "C" : TEXT : 

USING : FOR K=0 
TO U 

180: LPRINT 

USING "*#####. 
#####";XOO 
190: USING : NEXT K 
195: T 1=T1-INT (Tl/ 
100>*100: T2=T2 
-INT <T2/100)* 
100 

200: LPRINT "OD" i Tl 
I" DO" ; T2: FND 
210: "D":CLEAR : REfl 
"Stalą Jl" 

220: INPUT "Jl Pozyc 
j ! " i Z 
225: Tl = TIf1E 
230: N=INT <Z*<LN 1 
0)z<LN 2) ) : Ll= 
INT (ZzIOj-l 
240: IF W< 1LET W=1 
250: DIH X< : Q=1E5 
: USING : WAIT 0 
260: L=N: PRINT "PAR 
AHETR" ; N: G0SUB 
"A" 

220: fl=2*N+l : G0SUB 

"B" 

280: X(0)=XC0)+2E4: 
P=0 

290:N=N-l: IF N>0 
GOTO 260 
295: T2=TIf1E 
300: TEXT : LPRINT " 
Sta I a JT" i ZJ " p 
ozycj i " 

310: GOTO "C" 

320: "F":CLEAR : REH 
"Stalą e" 

330: INPUT "Stała e 
Pozycji "!Z 
335: Tl=TinE 

dokończenie na str. t» 
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dokończenie ze sir. 5 

340: N=N+1 : A=A+L0G 
N: WAI T 0-.PRINT 
"Pro I 09 11 i N 
350: IF A<ZGOTO 340 
360:W=INT <Z/10>-1 
: IF UK 1LET W=1 
370: DIFI X(W) : Q=1E5 
: USING 

380: N=N: PRINT "PAR 
AHETR" ; N: GOSUB 
"B" 

390: X(0)=X(0)+1E4: 
P=0 

400: N=N- 1 : IF N>0 
GOTO 380 
405: T2=TITIE 
410: TEXT : LPRINT " 
Stalą e"!Zi " p 

H7UC.i I " 

420: GOTO "C" 

430: "G":CLEAR : REM 
"Ułamek L/M * 

0 <l<h< 100000 " 

440: INPUT "Pozycj i 
Z, "L I czn ik 
" i L, "fi i anouin I k 
n 

450:W=INT <Z/10)-ł 
: IF W< 1LET W=1 
460: DIM X(W> : Q=IE5 
: USING : WAI T 0 
: X<0)=Q 
465: Tl=TinE 


470:PRINT "Licznik 
"!L: GOSUB "A" 
480:PRINT "lllanoum 
i k " ; FI: GOSUB "B 

485: T2=TIME 
490: TEXT : LPRINT " 
U I amek " > Li " /" 
i Mi " Poz. "i Z 
500: GOTO "C" 


510: “H":CLEAR : REH 
"Exp X *0<X<1 

1 

520: INPUT "Exp X P 
ozycj i " j Z, "1 1- 

>x=";y 

525: TI=TIHE 
530 : N=N+ 1 : A=A+LOG 
N-LOG Y: WAI T 0 
: PRINT "Prolog 
"JN 

540: IF A<ZGOTO 530 
550: W=INT <Z/10)-1 
: IF W< 1LET 14=1 
560: DIII X( W) : Q=1 E5 
: USING 

570: L=Y : PRINT "PAR 
AHETR" i N: GOSUB 
"A" 

580: n=N: GOSUB "B" 
590: X<0)=X<0)+1 
600: N=N- 1 : IF N>0 
GOTO 570 
605: T2=TIf1E 


610: TEXT : LPRINT 
Exp" ; Yi " Poz. 
52 

620: GOTO "C." 


Stała U 100 pozycj 
I 

0* 31415.92653 
1* 58979.32384 
2* 62643.38327 
3* 95028.84197 
4* 16939.93751 
5¥'*5820. 97494 
6 * 45923.07816 
7* 40628.62089 
8 * 98628.03482 
9* 53421. 17067 
OD 13.3447 DO 14.0 
105 


Stała e 100 pozycj 


0* 27182. 
IX 45904. 
2* 60287. 
3* 26624. 
4* 24709. 
5* 59574. 
6 * 76277. 
7* 63035. 
8 * 94571. 
9* 85251. 
OD 14.1931 
251 


8 lt '8 
52353 
47135 
97757 
36999 
96696 
24076 
35475 
38217 
66427 
-DO 14.2 


Lai hlqj 9 tajg ea a a a a 
B00j_Q00Oj 0 B B B B 
Q 0 0 0 jg..0J3LB @ 0 B BH B 
LJUUULJGIOG G9 B B B B 
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MERITUM 


Głos mają Czytelnicy: 


I ' RUCH JEDNOSTAJNIE PRZYSPIESZONY " ’ ' 

4 DIM V ( 10) s DIM 8(1«> MERITUM POTRAFI RÓWNIEŻ 

3 LLb RYSOWAĆ 

6 FOR X-1 TO 7 SPRINT s NEXT X 

10 PRINT CHR*<23) »"RUCH JEDNOSTAJNIE PRZYSPIESZONY" 

II PRINTG846 f "NACI ŚNIJ SPACJE" 

13 IF INKEY*-" " THEN GOTO 19 

14 GOTO 13 

19 CLS 

20 INPUT"PODAJ PRZYSPIESZENIE ’A'"?A 

25 CLS 

26 PRINT TAB (12) "PRZYSPIESZENIE ’A» WYNOSI "?A 

28 PRINT" T“%" U-"," S="f" DS»" 

29 PRINT 

30 FOR T=1 TO 10 

40 V(T)=A»T8S<T)«(A*T*»T>/2lDS=S(T)-<A*(T-l)*<T-l) )/2 
50 PRINT TfU(T) rS (T> rDS 
60 NEXT T 

65 PRINTQ902»"U CELU KONTYNUOWANIA PROGRAMU NACISKAJ SPACJE 
70 IF INKEY*«" " GOTO 100 n „ 

7 «. rsnm Do naszych szkół dociera 

„„„ więcej różnych mlkrokomputei 

100 CLS s PR IN i G0 r U s GOSUD 300 dobrze wykorzystać ich wszec 

110 FOR T=1 TO 10 ne możliwości, potrzebne są r 

III ON ERROR GOTO 400 cielom programy dydaktyczne 

115 SET <T*9»44-V <T) /10> cowane szczegółowo. Wśród zt 

120 NEXT T sowanych mikrokomputerami 

130 IF INKEY*=>" " THEN GOTO 200 mylna opinia, że nasze rodzin 

140 GOTO 130 RITUM produkowane przez 


-<A*<T-l>*<T-l>>/2 


200 CLSsPRINT00r "S" sGOSUB 300 

210 FOR T=1 TO 10 

211 ON ERROR GOTO 510 
215 SET <Tt*9r44-S(T)/10) 

220 NEXT T 

230 IF INKEY**=" " THEN RUN 

240 GOTO 230 

300 FOR X»0 TO 41 

310 SET(X.44)SSET(0»44-X) 

320 NEXT X 

330 FOR X=42 TO 100 

340 SET (Xr44) 

350 NEXT. X 

355 PRINT0945»"T" 

360 RETURN 

400 IF INKEY»=" " THEN RESUME 200 
410 GOTO 400 

510 IF INKEY*=" " THEN RESUME 530 
520 GOTO 510 
530 RUN 


Do naszych szkół dociera coraz 
więcej różnych mikrokomputerów. By 
dobrze wykorzystać ich wszechstron- 
ne możliwości, potrzebne są nauczy- 
cielom programy dydaktyczne, opra- 
cowane szczegółowo. Wśród zaintere- 
sowanych mikrokomputerami panuje 
mylna opinia, że nasze rodzime ME- 
RITUM produkowane przez MERA- 
-ELZAB nie ma możliwości grafi- 
cznych. 

Chciałbym zgodnie z przysłowiem 
„cudze chwalicie, swego nie znacie” 
wykazać, że na MERITUM można na 
lekcjach demonstrować różne intere- 
sujące rzeczy, natrafiając rzecz jasna 
w trakcie programowania na pewne 
trudności (np. nie można rysować ma- 
łych okręgów, potrzebnych w sche- 
matach elektrycznych do przedsta- 
wienia przyrządów pomiarowych). 

Podstawowym znakiem graficznym 
w MERITUM, niestety, nie jest punkt, 
lecz mały prostokąt. Dlatego różna 
ilość komórek semigraficznych w plo- 
nie I poziomie jest powodem, że chcąc 
na przykład narysować okrąg należy 
rzędne I odcięte pomnożyć przez róż- 
ne współczynniki wynikające z orga- 
nizacji ekranu. Można to opanować 
metodą wielu prób. Na zamieszczo- 
nych moich programach można prze- 
śledzić, jak ten problem rozwiązałem. 


Jari GOLLA 
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Jeszcze do niedawna uzyskanie wykresu 
funkcji y = f (x), na podstawie jej zapisu 
analitycznego, było czynnością bardzo 
żmudną. Wymagało stablicowanla funkcji, 
to znaczy obliczenia wartoici y dla wartości 
x, wybieranych zwykle ze stałym krokiem, w 
zadanym przedziale, a następnie cierpliwe- 
go przenoszenia wyznaczonych punktów 
na wykres (najczęściej na papierze milime- 
trowym). Tablicowanie funkcji możliwe jest 
za pomocą każdego komputera, lecz uzy- 
skanie jej wykresu wymaga graficznego 
urządzenia wyjściowego. Oo niedawna ta- 
kie urządzenia dostępne były tylko w nieli- 
cznych ośrodkach obliczeniowych. Dopie- 
ro pojawienie się mikrokomputerów, wyko- 
rzystujących monitor lub zwykły odbiornik 
telewizyjny jako urządzenie wyjściowe, 
umożliwiło uzyskanie bezpośrednio wykre- 
su funkcji. Powstało wiele odpowiednich 
programów różniących się typem używa- 
nego komputera oraz sposobem dialogu z 
użytkownikiem. Przykładem może byó pro- 
gram dla ZX Spectrum zamieszczony w 1 
numerze „IKS-a". 

Program tworzący wykres funkcji musi 
uwzględniać specyfikę komputera, w tym 
przypadku ATARI 800 XL. Jego wersja języ- 
ka BASIC posiada instrukcję VAL o znacznie 
mniejszych możliwościach niż Spectrum. W 
rezultacie kreślona funkcja nie może być 
podana jako ciąg znaków. Można ją podać 
w postaci linii programu (przed uruchomie- 
niem lub po zatrzymaniu), ale w takim przy- 
padku niemożliwe jest zrobienie opisu wyk- 
resu. W książce „ATARI BASIC” wydanej 
przez klub użytkowników ATARI z Krakowa 
zamieszczony jest przykład programu dają- 
cego na ekranie wykresy funkcji. Wymaga 
on jednak skomplikowanej obsługi magne- 
tofonu. 

W przedstawionym programie przyjęto 
inne rozwiązanie, wykorzystujące właści- 
wości ATARI oraz jego edytora ekranowe- 
go. Komputer ten umożliwia użycie ekranu 
telewizora jako urządzenia zewnętrznego 
działającego w trybie zapisu I odczytu. Linia 
programu, zawierająca funkcję do wykreś- 
lenia zapisywana jest na ekranie. Program 
zatrzymuje się I użytkownik ma możliwość 
zmiany funkcji, za pomocą edytora, w taki 
sam sposób, jak dowolnego wiersza pro- 
gramu. Po podaniu instrukcji CONT reali- 
zacja programu będzie kontynuowana. 


Zmieniona funkcja wprowadzana jest z ek- 
ranu jako ciąg znaków. Dzięki temu możli- 
we jest wykonanie opisu wykresu, co rów- 
nież wymaga dodatkowych zabiegów. 

Komputery ZX Spectrum, Amstrad- 
-Schnelder CPC 464 lub 6128 pozwalają na 
wykonanie opisu rysunku lub osi układu 
współrzędnych w sposób bardzo prosty, 
dzięki możliwości jednoczesnej pracy w 
trybie graficznym i tekstowym. Komputery 
ATARI 600/800 XL mają odrębne tryby gra- 
ficzne i tekstowe. Nie można, bez dodatko- 
wych operacji, uzyskać na przykład opisu 
osi układu. W tym celu opracowano spe- 
cjalny podprogram (linie 2000—2090), który 
umożliwia zapis dowolnego znaku, lub cią- 
gu znaków, w wybranym miejscu ekranu. 
Pobiera on kolejne bajty, tworzące obraz 
znaku, z obszaru pamięci ROM, I przesyła je 
do odpowiednich komórek pamięci ekranu. 
Można go wykorzystać również w innych 
programach. Należy tylko pa- 
miętać, żeby w zmiennej PX 
odąć numer kolumny, w 
lórej ma być umieszczony 
pierwszy znak ciągu 
(0 — 39), w zmień n e j P Y — 
pionowe położenie tekstu 
0 — 183), a w zmiennej VS 
która musi być wcześniej 
zadeklarowana) — ciąg zna- 
ków, który ma być wydru- 
kowany na ekranie. Trzeba 
również pamiętać, aby nie 
używać w innym celu zmien- 
nych: PX,PV, VS, DL, Dl, D2 
i D 3 . 

Pozostałe podprogramy mają znaczenie 
kosmetyczne: określenie dziedziny funkcji 
(linie 300—325), wyznaczenie przedziału 
zmienności funkcji (linie 330—370), okreś- 
lenie położenia osi układu współrzędnych i 
współczynnika skali (linie 500—550). Krok 
obliczeń uzależnia się od maksymalnej Iloś- 
ci punktów graficznych (płxe!l) przezna- 
czonych na wykres oraz granic zmienności 
(linie 510—520). Po wykonaniu niezbęd- 
nych obliczeń samo kreślenie funkcji (linie 
900—950) jest prostą operacją, jeśli tylko 
pamięta się, że punkt o współrzędnych (0,0) 
leży w lewym, górnym rogu ekranu. Jeżeli 
wykres |est zbyt krótko na ekranie, to należy 
prawić linię 100, wstawiając większą llcz- 
w miejsce 5000. 

L. PIELA 
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Program OKNO tworzy na ekranie pseudo- 
okienka, a mówiąc ściślej wypełnia zadane ob- 
szary proponowanymi kolorami. Napisany jest w 
języku wewnętrznym Z80 pod owsemblerem 
GENS1M21. Istotną sprawą w tym dość prostym 
programie jest sposób przekazywania parame- 
trów. Zamiast zwykle używanej metody wyko- 
rzystującej komendę POKE przed uruchomie- 
niem kodu zastosowano tu funkcję użytkownika 
o 5 parametrach. Kolejno: 1 oznacza numer linii 
lewego górnego pola okna, k — numer kolumny, 
s — szerokość okna, h — wysokość okna, zaś a 
— atrybut, który wypełni okno wg wzoru: 
a ink + 8 * paper r 64 * bright + 128 * flash 
Parametry te wyszukuje sobie procedura, spra- 
wdza ich poprawność i wypełnia okno kolorem. 
Są one umieszczone wewnątrz instrukcji IF... 
THEN..., która, jak widać, jest tylko atrapą. Wy- 
woływanie kodu maszynowego w ten sposób 
wydaje się być najbardziej korzystne. Użycie np. 
RANOOMIZE powoduje narzucenie stałego cią- 
gu liczb pseudolosowych przy korzystaniu z 
funkcji RND. 

Program OKNO zbudowany jest następująco: 
linia 40 -* rejestr IX wskazuje pierwszy parametr 
( 1 ) w obliczanej funkcji w ( ) poprzez 
odczyt zmiennej systemowej DE- 
FADD; 

linie 50. ..60 — rejestr HL odkładany jesf na stos z 
zawartością adresu procedury ob- 
sługi błędu przy błędnym parame- 
trze: 

linie 70. ..250 - sprawdzanie zasadności parame- 
trów: eliminacja liczb ujemnych, 
ułamkowych i zer: 

linia 260 — rejestr IX ponownie wskazuje parametr 
1 : 

linie 270. ..290 - eliminacja linii powyżej numeru 
23: 

linia 300 — rejestr HL podaje adres ekranu o nu- 
merze linii 1 ; 

linie 310. ..330 ~ eliminacja kolumny powyżej nu- 
meru3i. 

linie 360.. .420 — przejście na adresy ekranu atry- 
butów; 

linie 430. ..440 - rejestr C zawiera parametr a, zaś 
rejestr B wysoKość okna; 
linie 450.. .610 — wypełnienie okna atrybutem; 
linie 500.. .520 — sprawdzenie czy okno^ nie wy- 
kracza poza ekran z prawej strony; 
linie 580. ..600 - sprawdzenie czy okno nie wykra- 


10 


ORG 

60000 

20 

DEF ADD 

EQU 

23563 

30 

ERROR 

EQU 

10379 

40 


LD 

IXr (DEFADD) 

30 


LD 

HL» ERROR 

60 


PUSH 

HL 

70 


LD 

B > 5 

80 

PARAM 

LD 

Ar ( IX+2> 

90 


AND 

A 


100 


RET 

NZ 

110 


LD 

Au < IX+3> 

120 


AND 

A 

130 


RET 

NZ 

140 


LD 

Ar <IX+4> 

150 


AND 

A 

160 


RET 

Z 

170 


LD 

A> <IX+5> 

180 


AND 

A 

190 


RET 

NZ 

200 


LD 

Ar (IX+6) 

210 


AND 

A 

220 


RET 

NZ 

230 


LD 

DE >8 

240 


ADD 

IXrDE 

250 


DJNZ 

PARAM 

260 


LD 

IX r < DEF AD 

270 


LD 

Ar <IX+4) 

280 


CP 

24 

290 


RET 

NC 

300 


CALI. 

3742 

310 


LD 

Ar <IX+12) 

320 


CP 

32 

330 


RET 

NC 

340 


ADD 

A i L 

350 


LD 

LrA 

360 


LD 

ArH 

370 


RRCA 


380 


.RRCA 


390 


RRCA 


400 


AND 

3 

410 


OR 

458 

420 

430 


i r* 



LD 

Cr QX+36) 

440 


L.D 

B r <IX+28> 

450 

WYS 

PUSH 

BC 

460 


PUSH 

HL. 

470 


LD 

Br <IX+20> 

480 

SZER 

LD 

(HL) rC 

490 


INC 

HL 

500 


LD 

A r L 

510 


AND 

31 

520 


JR 

Zr TAK 

530 


DJNZ 

SZER 

540 

TAK 

POP 

HL 

550 


POP 

BC 

560 


LD 

DEr32 

570 


ADD 

HL r DE 

580 


LD 

A r 91 

590 


CP 

H 

600 


JR 

Zr KONIEC 

610 


DJNZ 

WYS 

620 

KONIEC 

INC 

SP 

630 


INC 

SP 

640 


RET 



Pizykład wykorzystania programu OKNO 

łO DEF FN m( 1 , k,s,h,a>= USR 6e4 1 
20 IF FN w <5, 1,30, 10,39) THEN 
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SPECTRUM 


Program REGRESJA LINIOWA przepro- 
wadza statystyczną analizę regresji i kore- 
lacji. 

Mamy zadane dwa zbiory danych x, I y, 
(/ 1, 2... n). Z wykresu tych danych wnio- 

skujemy. że istnieje między nimi korelacja 
liniowa. Wobec tego należy obliczyć współ- 
czynniki a 1 b najlepiej dobranej prostej 
y ax ■ b w sensie minimum odchyleń 
punktów od tej prostej. Wyznaczanie pro- 
stej uzupełniamy badaniem jej istotności. 

Dla danych wartości x, i wartości y, (I 1, 
2... n), gdzie n — liczba pomiarów obliczane 
sę: 

1. Oceny parametrów A I B liniowej funk- 
cji regresji, 

2. Błędy standardowe oceny parametrów 
liniowej funkcji regresji (S(a), S(b)), 

3. Wariancje i odchylenia standardowe 
składnika resztowego (S(z), S(z)), 

4. Współczynnik korelacji liniowej 

(H(x,y)), _ . 

5. Wartości średnie: X i Y, 

6. Wartości teoretyczne y, (i 1, 2... n). 

(z zaokrągleniem do 5 miejsc po przecinku). 

W programie zastosowano Instrukcję 
PAUSE 1000, która zatrzymuje działanie 
programu umożliwiając tym samym spisa- 
nie z ekranu pierwszej części obliczeń. 


5 REM regresja liniowa 
8 CLS 

10 PR INT "podaj liczbę pomiaro 
u " 

20 print "liczba poaiarow N«"; 

30 INPUT N 
40 PRINT N 
50 DIM X IN) 

55 OIM Y (N) 

60 PRINT "wprowadź X i Y” 

70 FOR 1*1 TO N 
80 PRINT I; 

90 INPUT X (I) ,Y (I) 

100 PRINT TfiB 4; X (I) ,Y (I) 

110 NEXT I 

120 print rt 20 , 0 ; "Dane poprawn 

e?T/N" 

130 INPUT Z* 

140 IF Z**”f" THEN 00 TO 260 
150 IF Zio"N" TMEN 00 TO 120 

160 print rt 20 , 0 ; "podaj nr x i 

170 INPUT I 

130 PRINT RT 21,0; "podaj X i Y" 
190 INPUT X(I> 

200 INPUT YU) 

205 PRINT TRB 4;X(I),Y(I) 

210 GO TO 120 
260 LET 51*0 


270 LET 52=0 
280 LET 53*0 
290 LET 54=0 
295 LET 55=0 
300 FOR 1=1 TO N 
310 LET S1=S1+XCI> 

320 LET 52=52 +Y ( I) 

330 LET S3=S3+X (I) *X (I) 

•340 LET S4=S4+X (I) *Y II) 

345 LET S5=S5+Y (I) «Y CI) 

350 NEXT I 

380 LET R=N*S3-S1*S1 

370 LET R* (N*S4-S1*S2) /R 

380 LET B= (52-AsSl) /N 

390 LET SZ=0 

400 FOR 1=1 TO N 

410 LET ROB=Y (I) -A«X (I) -B 

420 LET 5Z=SZ+R0B»R0B 

430 NEXT I 

440 LET SZ=SZ/(N-2) 

450 LET SR=50R (SZSN/R) 

460 LET SBaSOR (SZSS3/R) 

470 LET RXY= (S4-S1*S2/N) /SOR <( 
53-SlłSl/N) * iS5-S2*S2/N> ) 

475 PRINT 

480 PRINT "RÓWNANIE REGRESJI Y« 
R»X+B" 

490 PRINT '"OCENY PARAMETRÓW 
500 PRINT "R=" ; R ' "B = " ; B 
510 PRINT 

620 PRINT v BLEDY STANDARDOWE OC 
ENY PARAM." 

530 PRINT "5 (R) SR' "5 (B) *"; SB 
540 PRINT '"WARIANCJA I ODCHYLĘ 
NIE STAN- DRRDOWE SKŁADNIKA R 
ESZTOWEGO : " 

550 PRINT "ST2(Z) *";SZ'"S(Z) » 

" ; SOR (SZ) 

560 PRINT '"WSPÓŁCZYNNIK KORELA 
CJI LINIOWEJ:" 

570 PRINT "R (X,Y) RXY 
580 PRINT '"WARTOŚCI ŚREDNIE:" 
590 PRINT "XSR="; 51 /N '" YSR* " ; 52 
/N 

595 PAUSE 1000 

600 PRINT 

605 LET K=100000 

610 PRINT " X Y(EMP) 

Y (TEORT) " 

620 FOR 1=1 TO N 
630 LET RB=A*X II) +B 
640 LET RB=K4RS+0.S 
650 LET RB = INT (RB) /K 
660 PRINT X (I) ;TAB 8;Y(I);TAB 2 
0, RB 

670 NEXT I 
675 PRINT 

'ze 0 7T^N" T ST S1 " L i czyay jesz 
700 INPUT Z* 

710 IF Z*="T" TMEN GO TO 8 
720 IF Z i < > "N" TMEN 00 TQ 700 
730 PRINT "KONIEC" 

''iO STOP 
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KOMPUTER 
W DYDAKTYCE 


Początkowo koszt produkcji pojedynczego mikro- 
procesora przekraczał sumę stu dolarów. Obecnie 
kształtuje się w granicach jednego. To tylko jedna, 
chociaż nie najważniejsza przyczyna, z powodu której 
mikrokomputer stał się tani i zarazem ogólnodostępny. 


G wałtowny rozwój tech- 
niki. zastosowanie nowych 
materiałów i technologii, 
spowodowały uzyskanie rwewyobra- 
żalnych wprost możliwości w miniatu- 
ryzacji elektronicznego sprzętu Na 
Zachodzie przedsiębiorstwa, które je- 
szcze do niedawna inwestowały grube 
miliardy w komputery-szafy, sprzedają 
je obecnie za symboliczne centy. W 
wyspecjalizowanych firmach, za po- 
mocą młotka i sprawnych rąk robotni- 
ków. odzyskuje się z nich tylko metale 
szlachetne (głównie złoto), a reszta 
wędruje na złom Szczytowe do nie- 
dawna osiągnięcie myśli technicznej w 
elektronice, traktuje się obecnie jako su- 
rowiec. z którego można uz'. 
gramów poszukiwanych metali 
W gospodarce i przemyśle, 
nictwie i biurze, w wojsku i 
tam gdzie jest potrzebny. kr< 
kroprocesor. Niewielki, ele< 
pakowany, wygodny w użyciu, łatwy w 
obsłudze i coraz częściei wchodzący w 
skład osobistego wyposażenia czło- 
w e^^Mi lat będzie rzeczą tak 
; zegarek A może na- 
fszcze^klziei potrzebną. Będzie 


Zaakceptowanie szklanego ekranu z 
przyciskami, w szkolnej rzeczywistości 
oznacza sięgnięcie po nowe wartości 

w nauczaniu i uczeniu się. Jednak 
efekty kształcenia w dalszym ciągu za- 
leżeć będą przede wszystkim od 
ucznia i nauczyciela Możliwości 


N 



pcą. ekg^herr 
fedziem o wyjąuf 
Jkrokomput er f 
|isty. porj 
c a _ 

JłaJ 

W dydaktyce mikrokomputer wkrada 
się w łaski nauczycieli, uczniów. Nie 
wszyscy jeszcze go akceptują, ale 
wszystkich bardzo ciekawi. 

Jakie są możliwości zastosowania 
elektroniki w szkole 9 Czy efekty kształ- 
cenia wzrosną przy zastosowaniu no- 
wych środków 9 Komputery będą po- 
magać czy tylko staną się elementem 
dekoracyjnym w klasie 9 


ka do odpowiadania na pytania. Od 
trafności odpowiedzi uzależniona jest 
dalsza realizacja programu Uczeń mo- 
że sam wielokrotnie powtarzać okreś- 
lone lekcje lub też po bezbłędnym opa- 


trótl 

yi I 

lub pochlebne słow^H dźwięki. Taka 
forma uznania po^^Hjziałać mobili- 
zująco ale zdarzMĘĘĘtm odwrotnie. 
Słuchanie hymnu pochwalnego na 
cześć swoich zdolności może dopro- 
wadzić do niezbyt szybkiej reakcji na 
kolejne pytania Jednak po opanowa- 
niu materiału, uczeń już nie daie się za- 
skoczyć. nawet przy znacznym skró- 
ceniu czasu na odpowiedź. 


Coraz częściej mikroKomputery wy- 
korzystuje się do naśladowania ludzkiej 
mowy Mogą wyręczać, nauczyciela, 
nie mogą jednak całkowicie go zastą- 
pić. Amerykańska firma IBM przepro- 
wadziła eksperyment, w którym uczyła 
czytać mało dzieci, za pomocą mikro- 
komputera z układem syntezy mowy. W 
ciągu 3 miesięcy pociechy poddane 
tej próbie, nauczyły się samodzielnie 
czytać. 

Nowe możliwości w nauczaniu stwa- 
rzają najnowsze komputery które roz 
poznają i ..rozumieją'' ludzką mowę. Na- 
leżą *do "nich komputery piątej genera- 
cji. Największe osiągnięcia w tej dzie- 
dzinie odnotowano w Japonii t USA 
Zastosowanie tego typu urządzeń w 
szkolnictwie doprowadzi prawdopo- 
dobnie do rewolucji w dotychczaso- 
wych systemach dydaktycznych 

R zmysły i wyobraźnię 
ucznia najbardziej od- 
dżiałują barwne i ciekawe 
obrazy, ukazuiące się w różnych kom- 
binacjach i w nieregularnym czasie. 
Odpowiednio przemyślane i opraco- 
wane. nie tylko uatrakcyjniają proces 
kształcenia ale zmuszają do aktywnoś- 
ci i intensywnego myśienia. Dlatego 
tez. opracowując program edukacyjny, 
należy pamiętać o tym. aby zachować 
odpowiednie proporcje formy i treści 
Nieprzestrzeganie tych reguł może 
poważnie ograniczyć efekty 

Elektroniczne liczydło stało się nie 
tyko modne ale i konieczne w zakła- 
dzie pracy, w biurze czy nawet w szko- 
le. Obecnie za pomocą komputerów 
Iko informatyków czy 
iwobodme posługują 
ze i inżynierowie pra- 
:h branżach przemy- 
(enia i analizy, które 
lajwięcej czasu, dzi- 
siaj sprowadzają się do wykorzystania 
określonego programu. Wyniki obli- 
czane są z szybkością kilkunastif m»- 


flonów operaci 
Przetwarzaj 


i sekundę. 

lnie dotyczy tylkada- 



i wydaj 

W ŚRÓD programów edu- 
kacyjnych kilka zasługuje 
na szczególną uwagę 
Najbardziej popularne są „lekcje kom- 
puterowe ", Na ©kranie wyświetlane są 
pewne partie materiału, a następnie 
poprzez różnego rodraju testy spraw- 
dza się stopień jego opanowania, 
dokończenie na str. 14 
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Ucznia kontroluje komputer. Kreda i 
tablica zostaje zastąpiona częściowo 
przez monitor i mikroprocesor. W ten 
sposób nowoczesne środki dydakty- 
czne są „przemycane" do starych me- 
tod nauczania. Z badań jednak wynika, 
że taka forma kształcenia nie jest zbyt 
efektywna. 

Większe walory dydaktyczne posia- 
dają programy zawierające ćwiczenia i 
treningi oraz gry uczące. W nauczaniu 
języków obcych wykorzystuje się je do 
ćwiczeń gramatycznych ' oraz spraw- 
dzania opanowania słownictwa. 

Na bajecznie kolorowym ekranie 
monitora ukazuje się obcojęzyczne 
zdanie. Wszystkie wyrazy napisane 
zostały z małej litery, Należy znaleźć te, 
które pisze się z dużej. Skaczącego na 
ekranie „krasnala" można skierować 
nad dowolny wyraz. Jeżeli uczeń zde- 
cyduje się na konkretną literę, akcentu- 
je to „ludzikiem" i powiadamia mikro- 
komputer. Albo słyszy triumfalny hymn 
świadczący o trafności odpowiedzi lub 
tylko ostrzegawcze i złowróżbne, na ca- 
ły ekran rozlewające się — nie. Do 
trzech razy sztuka — ta zasada obo- 
wiązuje również w tym systemie. Po 
bezskutecznych próbach odgadnięcia 
„cierpliwy" komputer drukuje prawid- 


łowo napisane zdanie, podkreślając 
wyrazy, które pisze się z dużej litery. 
Dodatkowo „przemądrzała maszyna" 
rejestruje słabszą formę psychointelek- 
tualną uczącego się i dla odprężenia 
proponuje prostą zabawę. Na ekranie 
„wyrasta" zielone drzewko z jabłkami. 
Jednocześnie ukazuje się litera lub cyf- 
ra. którą należy odnaleźć na klawiatu- 
rze komputera. Jeżeli uczący się, w 
odpowiednim i stale skracającym się 
czasie, potrafi naciskać zadawane 
znaki, spadające z drzewka jabłka 
gromadzone są w odpowiednim poje- 
mniku. Pomyłki lub zbyt długi czas szu- 
kania, znaczone są rozbitymi owocami. 
„Mecz" kończy wyświetlenie wyniku, 
na podstawie którego komputer decy- 
duje czy dalej już można się uczyć czy 
wybrać inną zabawę edukacyjną. 

C IEKAWIE prezentują się 
programy dla nauczycieli. 
Są takie, które pomagają w 
przygotowaniu lekcji, układaniu różno- 
rodnych diagramów lub służą jako na- 
rzędzia do tworzenia nowych progra- 
mów. Na komputerze można opraco- 
wać i drukować zestawy pytań, testy 
sprawdzające albo powielać interesu- 
jące publikacje. Nauczyciel może w 
krótkim czasie dysponować prawie 
nieograniczoną ilością materiałów' po- 
mocniczych. Przez to jego praca może 
być łatwiejsza, a nauczanie efektyw- 


niejsze. Jeszcze szersze perspektywy 
roztaczają się przed nauczycielami 
umiejącymi pisać programy. Indywi-; 
dualna praca z komputerem rozszerza 
bowiem zakres jego możliwości o nowe 
wartości. 

Prawdziwa rewolucja komputerowa, 
w szkolnictwie jest dopiero przed nami. 
Już obecnie dzieci, oprócz książek i 
piórnika, noszą w tornistrach kalkulato- 
ry. Za kilka lat będą to komputery oso- 
biste. Podłączone w klasie do kompu- 
tera nauczyciela, umożliwią prowadze- 
nie lekcji w nieznany do tej pory spo- 
sób. Z ich pomocą będzie można pi- 
sać sprawdziany i klasówki, posługi-' 
wać się nimi jak encyklopedią, słowni- 
kiem czy książką, prowadzić -bezpoś- 
redni dialog z nauczycielem nawet z 
domu. 

Wszystkich możliwości, którymi za- 
skoczyć może nas jeszcze komputer . 1 
nie sposób dzisiaj przewidzieć. Te, o 
których wiemy, napawają optymiz- 
mem... i najczęściej szokują. 

T AK czy inaczej do kompute- 
ryzacji życia społeczeństwo 
musi zostać przygotowane. 
Szkoła będzie główną instytucją pro- 
gramowo wdrażającą „mikroproceso- 
rową rzeczywistość". Nadciągająca 
cywilizacja „elektronicznych robotów" ‘ 
już dzisiaj sygnalizuje komputerową 
dydaktykę. 

RYSZARD ROGOŃ 



Rys. Michał Przybyłowski 
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Wakacje z komputerem 


Tegoroczne lato „obrodziło” w 
komputerowe Imprezy. Tylko 
pod patronatem ZSMP, a ściślej 
Federacji Klubów Komputero- 
wych Młodych Mistrzów Techni- 
ki utworzono około 30 obozów i 
zorganizowano kilkanaście kur- 
sów, które były najczęściej pier- 
wszym spotkaniem z Informaty- 
kę. 

W Wilkasach Koło Giżycka rozgości- 
ła się młodzież i miłośnicy komputerów 
z woj. katowickiego. Patronat nad obo- 
zem objął Wojewódzki Zarząd ZSMP w 
Katowicach przy współudziale władz 
centralnych związku. Uczestniczyło w 
ni.m 40 dziewcząt i chłopców. 


Na kurs zapisałam się trochę z cieka- 
wości, ale również piątego, że w szkolę 
mamy komputer który chciałabym 
umieć obsługiwać — zwierza się Vio- 
leta Grstka II klasa LO . Rybnik — 
moim marzeniem jest zbudowanie pro- 
gramu zawierającego określony zbiór 
roślin, np. kwiatów. A w ogóle to prze- 
żywam la/ną przygodę z komputerem. 

— Artur Zawada (Technikum Samo- 
chodowe): w naszej 'szkole jest 
komputer i ale nie ma kto go obsłu- 
giwać. Na kurs namówił mnie wy- 
chowawca. Cieszę s/ę. że po przy- 
jeżdzie do szkoły będę .. fachow- 
cem " (jeszcżę miernym ) „od kom- 
putera . 

— Ewa Idziriska (Technikum Górni- 
cze Tychy): w szkole mamy SPEC- 
TRUM. ale praktycznie trudno się 
do niego „dopchać". Trochę jestem 
przerażona 'ijpścią materiału, jaki 
nam tutaj „serwują". Nie wiem, czy 
zdam egzamin, ale ta zabawa z 
komputerem bardzo mi się podoba. 

— Adam Biersk (LO Wodzisław): naj- 
bardziej denerwujące jest to, że 
„studio" komputerowe działa tylko 
od godziny 6.00 do 2100. Z tego je- 
szcze od 20.00 do 23.00 dostępne 
jest dla wszystkich (nie tylko dla 
kursantów). Mamy tylko sześć stano- 
wisk (komputery „Meritum") I nie 
zawsze jest dostatecznie dużo cza- 
su. aby teorię „przekuwać w prakty- 
kę. Całe szczęście, że od czasu do 
czasu udaie się nam zabrać kompute- 
ry na noc do domków. w których 
mieszkamy. Wtedy możemy trochę 
poszaleć. 



WILKASY’ 86 


— Wojciech Trautsolt: wraz z kolegą 
po 4 dniach tego kursu napisaliśmy 
własny program. Myślę, że będzie 
to nasza najlepsza wypowiedź. 


1 REM Program „Palenie skraca 

życie" 

2 REM Autorzy: Wojciech 

Trautsolt i Zowka 

3 REM 1986.08.13 Wilkasy 
10 CLS 

20 PRINT „Czy palisz papierosy" 
30 INPUT aS 

40 IF aS = „NIE" THEN GOTO 
1000 

45 IF a$ <> „TAK” THEN GOTO 
20 

50 PRINT „Od kiedy palisz" 

60 INPUT „Podaj rok”: B 

62 IF B >1986 THEN PRINT 
„Kłamiesz, nie rób tego więcej": 
GOTO 50 

63 IF BC1945 THEN PRINT „Wed- 
ług moich obliczeń jesteś już 
nieboszczykiem”: END 

70 PRINT „Napisz w przybliżeniu 
ile papierosów palisz dziennie” 

71 INPUT C: IF C<0 THEN PRINT 
„Nie ze mnę te numery": END 

72 IF 050 THEN PRINT „Może 
masz kondycję, ale bajać to 
my, a nie nam": END 

90 LET Q—1986 — B 

92 IF Q -0 THEN LET Q=0.6 

100 LET Z— O'C-8 

110 LET x— Z/60 

120 LET y— x/24 

130 LET v=y/30 

150 PRINT „Jak wiadomo palenie 
jest szkodliwe czyli skraca życie" 
170 PRINT „Żyjesz"; Z: „Minut 
krócej, to jest"; x: „Godzin" 

180 PRINT „Czyli jak łatwo obli- 
czyć umrzesz; v;" miesięcy 
wcześniej niż mógłbyś" 

200 PRINT „Moje obliczenia zos- 
tały naukowo udowodnione 
przez ekspertów": END 
1000 PRINT „Przyjdź jak się na- 
uczysz palić": END 


— Konrad Ołdakowski (uczeń 8 kla- 
sy Szkoły Podstawowej w Giżycku): 
w domu mam Ćommodore VC-20. 
ale nie bardzo wiem. jak się nim 
posługiwać. Jestem wdzięczny kie- 
rownictwu obozu za to, że wraz z ko- 
legami, zostałem przyjęty na ten 
kurs. 2 Giżycka na zgrupowanie do- 
jeżdżam 5 km na rowerze 

Wnioski: 

Piotr Maculewicz — kursant. 

— Najważniejsze, że zajęcia prowa- 
dzone są legularnie, 

-- Jest dużo teorii, ale wykładana jest 
przystępnie. 

— Doskonalę swoje umiejętności 
praktyczne i próbuję pisać własny 
progi am. 

Adam Cały — instruktor; 

— Przed kursem powinna być prowa- 
dzona wstępna kwalifikacja uczes- 
tników obozu. W grupie jest zbyt 
zróżnicowany poźiom. (na 40 
uczestników kursu 5 osób ma w 
domu komputer, a w szkole zetknę- 
ło się z nim 7). 

— Nie do końca rozwiązano problem 
sprzętu, jest go po prostu mało. 

— Brak jest również ogólnodostępnej 
literatury do prowadzenia szkolenia 
na kursach. 

— Na obozach należy zwrócić więk- 
szą uwagę na właściwą bazę loka- 
lową. 

Andrzej Krowiak — szef i opiekun 

metodyczny 

— Jest to jedna z form czynnego wy- 
poczynku, łączenie przyjemnego z 
pożytecznym. 

— Szkolimy kadry dla szkolnych klu- 
bów komputerowych. 

— Takie kursy to przygotowanie 
przyszłego społeczeństwa do pracy 
z komputerem na co dzień i prakty- 
cznie w każde j dziedzinie. 

Wakacje z komputerem hasło, do 

którego będziemy jeszcze wracać. 

R. R. 
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Fotos Ryward ROGOI 




O komputerach, 
przyszłości 

i interesach... 


Rozmowa z Wojciechem Wyszomirskim, 
sekretarzem generalnym Rady Krajowej 
Turnieju Młodych Mistrzów Techniki i 
Andrzejem Maciągowsklm — sekreta- 
rzem Ogólnopolskiej Federacji Klubów 
Komputerowych MMT. 

Wiesław Cetera: - Mamy juz Federację ' 
- co dalei ^ 9 

Wojciech Wyszomirski: - Przed nami i 
dokładnie to. co legio u podstaw jej powoła- i 
nia. W lutym 1 986 roku. po spotkaniu przed- 
stawicieli klubów komputerowych, posta- 
« nowiiuśmy powołać do życia instytucję, która 
ulatniałaby życie wszystkim miłośnikom 1 1 


tach i wreszcie samego sprzętu można zna- ; 
leźć dosłownie na każdym większym targo- 
wisku — barierą jest jednaj. certa 

W. W.: — Komputery są drogim sprzętem, 
dlatego mpsimy spojrzeć na nie nie tylko jak 
na elerpfent rozrywki, ale na trwały synonim 
systemu edukacyjnego. To pierwszy krok. | 
drugi — meurvkmona konieczność upo- 
rządkowania cen tego sprzętu, ale am nasz 
związek, ani kluby same zrobić tego nie mo- 
gą 

A. M.: — Sprzęt to nie wszystko Staramy 
się. aby szybko dostarczyć naszym człon- 
kom rzetelnej wiedzy. Juz wkrótce ukaże się 
•V ecj.-T : oozycji. wydanych przez ośrodek 


C.: - Gdzie będzie można je kupie' 5 

A. M.: — Niestety, nakład jest niewielki, 
pytać o nie będzie mozra w klubach kompu- 
terowych 

C. Jedna jaskółka wiosny me czyni i 
podejrzewam, że „posucha' 1 na literaturę 
trwać będzie nadal. 

A. M.: Sądzimy, że juz wkrótce uda 

nam się uruchomić bank programów Jego 
działanie polegałoby na zbieraniu, powiela- 
niu i przekazywaniu zainteresowanym w 
zamian za dostarczenie na przykład do ban- 
ku jakiegoś własnego programu Pomysł 
wymaga jeszcze dopracowaniu, a poza tym 
bank należałoby dobrze wyposażyć w sprzęt' 
i kadrę, ale mam nadzieję, że już wkrótce 
rozpocznie działalność. , 

C.: — Jak na początek, to zamierzenia są 
amoitne 

A. M.: — I realne 

W. W.: - Chodzi też nie tylko o spraw- 
dzalność naszego działania, kryterium oce- 
ny to me tylko wiarygodność Rady Federa- 
cji. ale przede wszystkim ostateczny efekt 
naszego działania Mamy w tym również 
swój interes, ułatwiamy nie tyłko ‘działanie 
kiubom, sądzimy, że ułatwimy rozwój nie- 
jednemu młodemu talentowi, a stwarzając 
odpowieome warunki, damy szansę rozwo- 

jU: 

C.: - A to z pewnością nam wszystkim 
się opłaca 

Dziękuję za rozmowę. 

Wiesław 

CETERA 


raczkującym użytkownikom mikrokompute 
rów 

C.: ~ Ułatwiać, czyli có? 

Andrzej Maciągowskl: -- Czyli pomagać 
w zdobyciu sprzętu, mowa oczywiście wy- 
łącznie o klubach działających w strukturze 
ZSMP, niezbędnej literatury i fachowej po- 
mocy 

C.: — Nasz komputerowy rynek informa- 
cji rozszalał s*;ę ostatnio Wiele książek, ser- 
wisowych instrukcji, programów na kase- 


katowic.Ki „Pohn". poświęconych miki o.*, 
paterom Są wśródnich takie między innym, 
tytuły „Elementy grafiki komputerowej", 
„Baza danych na mikrokomputerach”, 
„Pascal dla mikrokomputera Meritum I 
Spectrum”. 
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SPECTRUM 


100 PRINT 'Uwaga! Tablica obraz 
OW bedzie tasousna 1 “ . STOP 
11® BTM 2 $ <10000,3) 
liiP DIt-1 ą (4.0) : Rf-M - Maksymalna 
Ui.zba Obrazów 

140 lIt Mffifi 1 lo*P«n»* c J i . 
ISO ols . Input "Poda j i.o lejny 
numer kompensowanego obrazka", 

p 

160 let t=a(p-i> 

16S CL.S : FLASH 1: PRINT "KOMPE 
NSRCJR TRWA. PROSZĘ CZEKAC" : FL A 
SH O 

170 GO TO 300 

200 REM - Oczytanie obrazka do 
i om pena ac ii 

SIO LOAC- "'CODĘ 56000,6912 

220 GO TO 130 

300 LET 1=50 LET k=S© 

310 LET W=0 
320 LET a *255 
330 GO SUB 300 
340 LET W =2046 
350 LET e =2303 
360 GO SUB 500 
370 LET w =4096 
360 LET e =4352 
390 GO SUB 500 

400 CL3 PRINT "Koniec kowpens 
a c ,J 1 obrazka. Dotychczas sr.o 

npenaowane obrazki zajmu 

ja . t ; " ba jtów": LET a(p)=t 
4 10 51 OP 

50O FOR n *w TO e 

510 LET g=PEEK (5800040) 

520 LET dsPEEK (8928041)1 
530 GO SUB 600 
540 LET k =k 41 

550 XF k <62 THEN GO TO 5S0 
560 LET 1=141: LET k =50 

570 IF l>72 THEN GO TO 400 
560 N£XT n 
S90 RETURN 

600 IF d =0 RND 9=0 THEN RETURN 
610 LET t = t 4 1 
620 LET C=S 

630 IF 9=0 THEN GO TO 670 , 

640 IF 9=15 THEN LET C=1 
650 IF 9=243 THEN LET 0=2 
660 IF g =£56 THEN LET C=3 
673 IF d =0 THEN GO TO 710 
680 IF d =15 THEN LET C=C44 
690 IF d =240 THEN LET C=C43 
700 IF d =£55 THEN LET C=C4l2 
,'10 LET Z* (t , 1) =CHR* ( U 
720 LET Z $ ( t v £) =CHR$ (k) 

730 LET Z$ i, t ,3) =CHR* (C+1SS) 

74© RETURN 

1000 REM - DEK OMPENSRCUA 

1005 CLS 

1010 INPUT "Podaj koior atrament 

u " , K2 

lais input "Podaj kolor tla";k: 
PAPER k 

1020 input "Podaj numer obrazka" 


100 obrazów w 48K RAM ZX Spectrum 

Często podczas, na przykład, prowadze- 
nia zajęć niezbędne jest demonstrowanie 
rysunków. Także w tym przypadku kompu- 
ter (tutaj ZX Spectrum) może okazać się 
bardzo przydatny. 

Po wykonaniu szeregu obrazów (na ekra- 
nie TV), można je zarejestrować na kasecie 
lub dysku i w zależności od potrzeby odtwa- 
rzać na monitorach. Niestety w praktyce 
kaseta okazuje się za wolna, a dysk po pro- 
stu za drogi... 

Prezentowany program KOMPENS zna- 
cznie ogranicza te kłopoty. Powoduje bo- 
wiem, że obrazy, które dotychczas zajmo- 
wały niemal 7 Kbajtów każdy, po pewnej 
obróbce — kompensacji — zajmuję prze- 
ciętnie od 100 do 350 bajtów. Zatem na po- 
czętku zajęć można „ścięgnęć” z kasety do 
komputera na przykład: 100 (stoi) skom- 
pensowanych obrazów. Czas wyboru I de- 
kompensacjl dowolnego z tych stu obrazów 
nie przekracza 3 sekund. 

Niestety jest pewne ograniczenie — 
obrazy mogę być zbudowane tylko ze zna- 
ków graficznych ZX Spectrum. Praktycznie 
najlepiej budować obrazy programem M 
draw (przy największym powiększeniul) i 
zapisywać kolejno na kasetę. 

Prezentowana wersja KOMPENS pomija 
atrybuty wyróżnianych pizell obrazów. 
Uzupełnienie tego braku jest stosunkowo 

S I może dostarczyć dużo satysfakcji, 
praktyczne: 

1. GO TO 110 — tylko raz na poczętku wy- 
korzystywania programul 

2. GO TO 200 - KOMPENS czyta kolejne 
obrazki z kasety do kom- 
pensacji. 

3. Po wczytaniu obrazka z kasety należy 
podać numer kompensowanego obrazka 
(komputer poprosi o to). Pierwszy obra- 
zek powinien mleć numer 2. 

4. Wykonuje się kompensacja (kilka minut). 

5. Koniec kompensacji program sygnali- 
zuje podajęc Ile bajtów zajmuję wszyst- 
kie dotychczas skompensowane obrazy. 

6. GO TO 1000 — dekompensacja I wy- 
świetlanie wybranego 
obrazu. Także kolor tła i 
atramentu jest wybiera- 
ny przez podanie jego 
numeru. 


103S CLS 

1030 FOR teiff-l) 
1040 LET I *CODe 
1050 LET t. =COt>E 
1060 LET Cs CODĘ Z 
1070 PRINT m l , fc 
1080 NEXT 1 
1090 STOP 


POWODZENIA 


WŁODZIMIERZ GOGOŁEK 
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Wakacje z komputerem 
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BASIC 


Jako uzupełnienie tego, co zostało powiedziane o algo- 
rytmach, zalecamy uważne przeczytanie wspomnianego 
artykułu z pierwszego numeru „IKS-a" („Co trzeba 
wiedzieć?"). 

W przykładzie 3.2 obliczany jest pierwiastek kwadratowy 
z wyrażenia p (p - a) (p - b) (p - c). Zajmiemy się teraz 
obliczaniem wartości, np. funkcji sinus, cosinus. pierwiast- 
ka kwadratowego w języku BASIC 
Jak zawsze zaczynamy od przykładu. Włączamy kompu- 
ter i do pracyl 
Przykład 3.4 

Zaprogramować w BASlCu obliczenie wartości y danej 
wzorem: 


’ = \/3 sin x 4- ab cos (x + b) + 


jgx-Ma~b) (x — b) 


dla a = 1 .2 b = 4,25 x = 2,3 

Algorytm obliczeń jest prosty, więc piszemy program 

10 REM Przykład 3.4. 

15 LET a =1.2 
20 LET fc> =4. . 25 

25 LET X =2. 3 _ , 

30 LET Z«SQR 3*SIN x+a*b#COS l 
X+b) 

35 LET W = i (LN X/LN 10) +RBS Ca- 
fe) ) /LN X 

40 LET y»Z+W*EXP CX-b) 

45 REM z, w - wyniki pośrednie 
obliczeń 

“■ ”5IN .COS , SOR i LN ,R 

nazwami funkcji stan 


"argument funkcji SI 
TRN należy podawać w ra 
(uwa-ga: Pl/fi radianow » 


50 PRINT 
BS , EXP &a 
dardowy ch" 

56 PftINT 
N ,CQS i ““ 
dianach u _ 

20 stopni ) " 

60 PRINT '‘funkcja LN oblicza 
wartość logarytmu przy podstawi 
e e Ciogarytm naturalny - in)‘ 

65 PRINT '"wartość togarytmu p 
rzy dowolnej podstawia c, oblicza 
my wg. wzoru : log przy podst.c z 
. .. .. .. 

'••funkcja SOR oblicza 
piarwiastka kwadrat 


x =LN x /LN 
70 PRINT 
wartość 
owego" 

75 PRINT ' •* funkcja 
c bezwzględna" 

80 PRINT '“funkcja 
EXP oblicza wartość 

85 PRINT 

a dla a« 

x » “ ; x ' " 


rbs -wartos 

wyk ładni cza 

atx“ 

wartość wyrażani 

a ; " b* " ; bi " 

wynosi : ",y 


Wprowadźmy ten program i wykonajmy. Sprawdźmy w , 
nik z wynikiem podanym niżei 


SIN ,COS , 30R . LN ,RBS , EXP sa 
nazwami funkcji standardowych 

argument funkcji SIN ,C06 i TRN 
należy podawać w radiana.ch (uwa- 
ga: PI/2 radianow * 20 stopni) 

funkcja ln oblicza wartość loga 
rytmu przy podstawie e ciogarytm 


natura lny 


ln' 


wartość logarytmu przy dowolnej 
podstawie c obliczamy wg. wzoru : 
log przy podst.c z x «LN x/LN 10 

funkcja SOR oblicza wartość 
Pierwiastka kwadratowego 

funkcja RBS -wartość bezwzględna 

funkcja wykładnicza EXP Oblicza 
wartość etx 


wartość wyrażenia dla 

a = 1.2 b= 4.25 Xx 2.3 
wynosi : 6.7232162 

W podanym przykładzie poKdzalismy, w jaru sposob ję- 
zyk BASIC umożliwia obliczanie wartości podstawowych 
funkcji matematycznych. Zestaw tych funkcji i innych na- 
zywa się funkcjami standardowymi Funkcie standardowe 
wchodzące w skład zestawu zamieszczonego w BASlCu 
dla ZX Spectrum są opisane w książce ZX Spectrum — 
BASIC programming. 

Nazwy funkcji standardowych składają się z 3 liter i po- 
przedzają argument ujęty (lub nie) w nawiasy okrągłe. W 
ZX Spectrum, w wypadku gdy argument funkcji jest liczbą 
lub nazwą zmiennej prostej, nie musi być umieszczony w 
nawiasach okrągłych. Argumentem każdej funkcji stan- 
dardowej może być wyrażenie arytmetyczne (może ono 
zawierać też funkcje), piszemy go wtedy w nawiasach. 

Funkcje standardowe stosujemy w wyrażeniach arytme- 
tycznych na tych samych zasadach co zmienne i stałe, 
posługujemy się wtedy nazwami symbolicznymi funkcji 
standardowych, rozumiejąc każdą z nich jako symbol war- 
tości funkcji odpowiadającej aktualnym wartościom argu- 
mentu. 

np. napis SQR 3 oznacza obliczenie wartości v3 
napis SIN X oznacza obliczenie wartości funkcji si- 
nus dla argumentu x. 

W podanych programach w poprzednich wykładach 
wszystkie instrukcje były wykonywane sekwencyjnie, jed- 
na po drugiej, poczynając od linii o najniższym numerze. W 
wielu algorytmach obliczeniowych daje się zauważyć po- 
trzebę wszelkiego rodzaju rozgałęzień, „obejść" i „pętli", a 
więc sytuacji, w których instrukcje nie są wykonywane 
sekwencyjnie. 

Analizując algorytmy podane w postaci schematów blo- 
kowych w przykładach 3.1. 3.2. 3.3 znajdujemy przykłady 
..rozgałęzień", „obejść" i „pętli". 

Weźmy pod uwagę algorytm przykładu 3.1 i napiszmy 
program w BASlCu. 

Przykład 3.1 


PfllNT 1 K 'Równanie ałfx+b*0 

30 input "wprowadź a»" ; a , "wpro 
wadź bx";b 

40 IF a<>0 THEN 00 TO 00 
50 IF b=0 THEN 00 TO 70 
55 PRINT '"a= 0 i bo 0"'"rown 
anie sprzeczne - 

brak rozwiązań" 

60 GO TO 75 

70 PRINT '“a* 0 i b» 0 Każda 

wartość x spełnia równanie" 

75 STOP 

80 LET X x-b/a * 

20 PRINT '"a» "ia," b* "jb 

100 PRINT 'pierwiastek równani 
a x a ";x 
110 STOP 


dokończenie na str. 22 
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dokończenie ze str. 21 

Wprowadźmy i wykonajmy ten prógram, Niżej prezentu- 
jemy otrzymane wyniki dla różnych a, b. 


Równanie a*x + b=0 

a* 0 i b<> 0 
równania sprzeczne - 

brak rozwiązań 


Równanie a#x + b*0 


a a 0 i b= 0 

Każda wartość x spełnia równanie 


Równanie a*x+b=© 
aa 4 bs 10 

pierwiastek równania x* -2.5 


Sprawdzenie a ^ 0 oraz b - 0 w schemacie zostało zapi- 
sane w postaci bloków warunkowych o dwóch wyjściach: 



Każdy z tych bloków w programie zapisaliśmy instrukcją 
postaci: 

40 IF a < > Q THEN GO TO 80 

i 50 IF b - 0 THEN GO TO 70 

Podejmujemy tu pewne decyzje, które powinien wyko- 
nać komputer i działać stosownie do nich. piszemy wtedy 
instrukcję: IF co jest prawdą (lub nieprawdą) THEN zrób 

coś. 

Instrukcja IF nazywa się warunkową instrukcją sterującą 
i ma postać: 

n IF wyrażenie logiczne THEN instrukcja 
n — numer wiersza 

wyrażenie logiczne — w najprostszym przypadku relacja, 
instrukcja - dowolna instrukcja BASiCu (lub ciąg instruk- 
cji oddzielonych między sobą. (dwukrop- 
kiem). 

W innych reprezentacjach BASICu instrukcja warunko- 
wa ma postać: 

IF wyraz. log. THEN numer wiersza znaczy to samo co: 

IF wyraź, log THEN GO TO numer wiersza. 

Wyrażenie logiczne jest to takie wyrażenie, którego war 
tość może być albo prawdą, albo fałszem. Wykonanie ins- 
trukcji IF rozpoczyna się od obliczenia wartości wyrażenia 
logicznego. W wypadku otrzymania wartości równej praw- 
da, następuje wykonanie instrukcji napisanej po słowie 
THEN następnie przejście do wykonywania instrukcji, któ- 
ra jest napisana w kolejnym wierszu po instrukcji IF Nato- j 
miast dia wartości fałsz będzie wykonywana ta instrukcja, 
która jest umieszczona w kolejnym wierszu po instrukcji IF 

Wykonanie instrukcji IF można zapisać w bloku warun- 
kowym postaci: 

e — TAK 

(fałsz) pSrukcjaT| 
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Relacje przeznaczone są do porównywania wartości 
dwóch wyrażeń arytmetycznych (lub tekstowych). 

W BASiCu relacje mają następującą postać ogólną. 

e.i R e 2 

w której ei i e 2 są dowolnymi wyrażeniami arytmetycznymi 
lub tekstowymi, a R jest jednym z operatorów relacji poda- 
nych niżej 


Operator relacji 

Znaczenie 

Klawisz 

= 

równa 

L 

O 

różne (nierówne, #) 

W 

< 

mniejsze 

R 

< = 

mniejsze lub równe (<) 

P 

> 

większe 

T 

> = 

większe lub równe (>) 

E 


Każdy znak operatora relacji otrzymamy, naciskając 
jednocześnie klawisz SYMBOL SHIFT i klawisz z odpo- 
wiednią literą. 

Teraz omówimy wykonanie instrukcji warunkowych w 
programie 3.1. 

Realizacja instrukcji 

40 IF a < > 0 THEN GO TO 80 

przebiega w następujący sposób 

jeżeli wartość zmiennej a jest różna od zera (nierówność 
spełniona) (tzn. wartością relacji a O 0 jest prawda, to 
przejdź do instrukcji w wierszu o numerze 80, w przeciw- 
nym przypadku (tzn. gdy jest fałsz), przejdź do instrukcji 
wypisanej w kolejnym wierszu po instrukcji IF tzn . 

50 IF b = 0 THEN GO TO 70 

Realizacja tej instrukcji IF przebiega w identyczny spo- 
sób: jeżeli wartością relacji b = 0 jest prawdą, to przejdź do 
instrukcji w wierszu o numerze 70. w przeciwnym przypad- 
ku (tzn, gdy jest fałsz) przejdź do instrukcji wypisanej w ko- 
lejnym wierszu po instrukcji IF tzn.: 

55 PRINT ..Równanie sprzeczne — brak rozwiązań" 

W obu tych instrukcjach po słowie THEN występują ins- 
trukcje GO TO 80 i GO TO 70. 

Instrukcja GO TO nazywa się bezwarunkową instrukcją 
skoku i ma postać: 

n GO TO n, 

n — numer wiersza 

n, — numer wiersza, do którego wykonanie programu 
„przenosi" instrukcja skoku 

Wykonanie instrukcji GO TO n, powoduje bezwarunko- 
we przejście do wykonania instrukcji umieszczonej w wier- 
szu o numerze n. Wiersz o numerze n, musi istnieć w pro- 
gramie. a w wypadku jego braku sygnalizowany jest błąd 
Jeżeli w wierszu tym (n, ) znajduje się instrukcja bierna (ins- 
trukcją bierną jest np. instrukcja REM; instrukcje bierne nie 
wykonują się w czasie działania programu, lecz służą np 
do opisania programu jak instr. REM ), to wykonanie rozpo- 
czyna się od pierwszej instrukcji czynnej, umieszczonej w 
programie po wskazanej instrukcji biernej. 

Wykonanie tego programu przez Komputer zakończyć 
się może wypisaniem na dole ekranu jednego z dwu ko- 
munikatów: 

9 STOP statement. 75:1 
lub 9 STOP statement. 110:1 



które powiadają, że pierwsza instrukcja w wierszu 75 lub 
1 1 0 spowodowała zatrzymanie programu. 

Instrukcja STOP jest bezwarunkową instrukcją sterują- 
cą i ma postać: 

n STOP 

n — numer wiersza. 

Instrukcja STOP służy do zakończenia obliczeń lub chwi- 
lowego przerwania programu. Naciśnięcie klawisza CON- 
TINUE (CONT) spowoduje wykonywanie programu od ins- 
trukcji wypisanej w kolejności po instrukcji STOP (o ile taka 
w programie istnieje). 

W BASlCu ZX Spectrum nie jest konieczne stosowanie 
instrukcji STOP jako instrukcji kończącej wykonywanie 
programu. W schematach blokowych instrukcja STOP od- 
powiada blokowi granicznemu postaci: 

STOP 

W programie 3.1 instrukcja: 

75 STOP 

■ jest konieczna, gdyż wykonywanie programu dla tych da- 
nych kończy się w tym miejscu, a następne instrukcje nie 
mogą być wykonane 

Natomiast instrukcję 

110 STOP 

można pominąć, gdyż jest ona ostatnią w tym programie. 

Aby zapamiętać to. co zostało omówione w tym wykła- 
dzie. przerobimy kilka przykładów 

Zapiszmy w BASlCu algorytm podany i omówiony w 
przykładzie 3.2. 


10 rem przykład 3.2 

20 input 'podali długości bokow 

trojkata: a» " j a.; " b= " b 

; " c = “ ; c 

25 CLS 

- 30 PRINT '"Dany jest trójkąt o 
bokach :||' n as "ja;" b« ";b; 

40 let p ■ (a + b + c ) /2 

50 LET Z=P* tp-a) * (p-b:> * (P-C) 

60 PRINT "P= P, *• Z = "i z 

70 IF Z < =0 THEN GO TO 150 
60 LET F=SQR (Z) 

90 LET R=a *b*C/ (4*F) 

100 LET rmsF/p 

110 PRINT '"Pole trojkata F* 

F 

120 PRINT '"Promień okręgu opis 
anego na trójkącie R» 

R 

130 PRINT '"Promień okręgu wpis 
anego w trójkąt r« M ; 

r m 

140 GO TO 160 

150 PRINT '"Z tych bokow ni« mo 
zna zbudować trojkata" 

160 PRINT '"chcesz ł i czy dałej 

7 : 

170 INPUT "tak /nie ";x* 

175 PRINT X* 

130 IF X i a" tak" THEN GO TG 20 
190 IF X a < >"n i « " THEN GO TO 170 
200 PRINT '"Dziękuję -koniec pr 
acy " 

210 STOP 

Wprowadźmy i wykonajmy ten program. Nifej prezentu- 
jemy otrzymane wyniki dla różnych ą, b. c. 


Danu jest trójkąt o bokach 
a*S b = 6 c* 


Dan 

5 b = _ 

p = 9 Z s 216 

Pole trojkata F 


14.696936 

Promień Okręgu opisanego 
na trójkącie R= 3.5721725 

Promień okręgu wpisanego 
w trójkąt r = 1.6329932 

chcesz liczy dalej ? nic 

Dziękuję -koniec pracy 


Dany jest trójkąt o bokach 
a= 5 * ~ 


p = 8 


ba 3 
Z= 0 


nożna zbudować 


2 tych bokow nie 
trojkata 

chcesz liczy dalej ? nie 

Dziękuję -koniec pracy 

i Zapiszmy w BASlLu algorytm podany i omówiony w 
przykładzie 3.3. 

10 REM Przykład 3.3 
20 PRINT "Kupu 

3 ku RUCHU" 


jemy IKS-a w kio 


30 print '"masz pieniądze ? "; 
40 INPUT "tak /nie ";x$ 

45 PRINT X $ 

50 IF x*a"nie" THEN STOP 
55 IF X* < >" tak " THEN GO TO 40 
60 PRINT '"podejdź do kiosku" 
70 PRINT '"czy v iest IKS ? " 

80 INPUT "tak /nie ";x$ 

85 PRINT x $ 

90 IF X $a"n I € " THEN GO TO 250 
95 IF X*< >" tak" THEN GO TO 80 
100 PRINT '"proszę o jeden egze 
mp lar z" 

105 REM instrukcji 110,120,130 
brak na schemacie blokowym 
110 PRINT '"ile place ? 

120 INPUT "wprowadź cene : ",a 
130 PRINT a 

140 PRINT "podaj pieniądze : 

' 145 INPUT b; PRINT b 
150 IF a =b THEN GO TO 210 
160 IF a < b THEN GO TO 200 
170 print "podaies za mało pie 
niedzy dopłać . ".;a-b.;" zi" 

130 INPUT d 




izenii* na słf. 24 
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190 LET b=*b + 
195 90 TO 15i 
200 PRINT 
210 PRINT '"i 
220 INPUT "t 
225 PRINT X $ 
230 IF xi="t 
24-0 00 TO 22' 
250 PRINT " 
255 PRINT ' M 
260 INPUT "t 
265 PRINT x % 
270 IF X $ a " t ■ 
230 IF XiO"l 
235 PRINT 
290 INPUT "t 
295 PRINT X $ 
300 IF xi*"n 
305 IF xł<>" 
310 PRINT ' M 
i OS KU \ " 

320 90 TO 60 


dokończenie ze str. 23 


ab+d 

150 

' “oto reszta " ; b-a 
'"wziales gazeta ? 

’• ta K /nie ";x$ 

x$ 

= "UK" THEN GO TO 250 
220 

'"odejdź od kiosku i ** 
' "Kupi i. es iKS-a ? 
"taK/nie ";x$ 

x* 

= " ta K " THEN STOP 
O "nie" THEN GO TO 260 
'"szu Kasz dalej ? 
"taK/nie ";x$ 

x$ 

="n i e " THEN STOP 
< > " ta K " 1 HEN 90 TO 290 
'"idz do następne 9 o k 


Zachęcam czytelników do napisania nowej na pewno 
lepszej wersji programu z przykładu 3.3 i przysłania tego 
programu do redakcji. 

Przykład 3.5 

W pudełku znajdują się ponumerowane kule. Należy 
każdą z nich zważyć i zapisać jej numer i wagę. Następnie 
napisać program, który dla dowolnej wartości zmiennych: 
k — reprezentującej numer kuli 
x — reprezentującej wagę kuli 
wprowadzanych z klawiatury drukuje następujące komuni- 
katy 

„ciężka" gdy x > 20 kg 

„średniociężka" gdy 10 kg < x < 20 kg 
„lekka” gdy x< 10 kg 


) schemat blokowy 


[z | ■ "średniociężka*' 


Ryt. Michał Przybyłowski 


strona 24 





Oznaczenia: 

k — numer Kuli 
x — waga Kuli 

7. $— zmienna alfanumeryczna, Której „wartością" jest 
odpowiedni komuniKat (tekst) 

b) program 

10 REM Przykład 9.5 . . .. 

a© print ••RiatyfiMS^nSSi k ..i 
25 print Nr .kuli ; uaga kul 
i Komunikat" , . „ . „ , 

30 Input "podaj nr kuli ; #k 
"wase kuli " ; x 

4.5 IF x>20 THEN*LET z*»"Ciezka 
• GO TO 70 

'50 IF X < 10 THEN LET ZM“ltfck« 

« O TO 70 _ „ 

0 LET z*a"sredniocitzka 
70 PRINT " " ; k ; " ;x; 

80 INPUT "wprowadzamy dattj 7 

tł *ą n ip yś»*tah" then so to 35 

100 IF y*<>"nie" THEN GO TO 80 
110 PRINT '"koniec programu 
ISO STOP 

Wprowadźmy i wykonajmy len program. Niżej prezentu- 
jemy otrzymane wyniki rtla przykładowych danych: 

Klasy f i kac Ja kul' 

Nr. kuli Uaga kuli Komunikat 
1 2 lekka 

2 15 tredniociezka 

3 20 a redniociezka 


4 25 ciężka 

5 10 sradniociazka 

6 9 lekka 

koniec programu 


Analizę algorytmu programu pozostawiamy czytelnikowi, 
natomiast omówimy dwie instrukcje: 

a) 40 IF x > 20 THEN LET z $ = „ciężka" GO TO 70 

b) 50 IF x < 1 0 THEN LET z $ „lekka”: GO TO 70 

Po słowie THEN napisane są instrukcje: 

a) LET z $ = „ciężka”: GO TO 70 

b) LET z $ = „lekka": GO TO 70 

BASIC na ZX Spectrum dopuszcza pisanie kilku instrukcji 
w jednym wierszu oraz po stówie THEN. Instrukcje te od- 
dzielamy od siebie znakiem : (dwukropek). Po wypisaniu 
znaku : ukazuje się nam kursor K. 

Zadanie: 

3.1. W czasie realizacji programu trzy osoby mają podać 
swoje imiona i liczbę lat. Należy podać, która z nich 
jest najstarsza Na wynikach należy wypisać imię tej 
oseby i liczbę lat. 

3.2. Napisać program, który dla dowolnej wartości zmien- 
nej x wprowadzanej z urządzenia wejściowego, wy- 
znacza i drukuje wartość y zdetiniowaną następują- 
cym wzorem: 

( 2x + 5 x < 0 

y — J \/x + 2sinx 0 < x < 2 
x» - 4x + 4 x > 2 

z.z 
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LOGO 


W lipcu ukazała się w sprzedaży kaseta magnetofonowa 
zawierająca translator polskiego Logo na mikrokomputer ZX 
Spectrum. Wersja języka Logo z tej kasety jest całkowicie 
zgodna z PTI Logo. Dodatkowo dołączono program, pozwala- 
jący zmienić działanie instrukcji ZAMALUJ na sprawniejsze. 
Przypominam, te strategia zamalowywania figur w polskim 
Logo jest następująca: z bieżącej pozycji żółwia prowadzone 
są kreski w górę i w dół do brzegów figury i zaznaczony w ten 
sposób obszar wypełnia się kolorem. Po wgraniu z kasety 
krótkiego programu następującego po translatorze, ZA- 
MALUJ działa lepiej — figura o dowolnym kształcie jest cał- 
kowicie wypełniana kolorem. Malowanie wygląda tak, jak 
gdyby malarz szedł wewnątrz figury dookoła, trzymając się 
lewą ręką ściany, czyli już zamalowanego obszaru. Należy 
pamiętać, że sprawność działania ZAMALUJ została uzyska- 
na kosztem pamięci. Gdy chcemy pisać większe programy w 
Logo, lepiej wrócić z powrotem do uboższej wersji ZAMALUJ, 
bo po prostu szybciej może zabraknąć pamięci. 

Aby nauczyć się zapisywania tych, większych programów 
musimy dalej systematycznie śledzić tajniki języka Logo W po- 
przednim odcinku była mowa o tworzeniu procedur. Procedura ry- 
sująca kwadrat o boku wygląda tak: 

OTO kwadrat 1 

POWTÓRZ 4 (NAPRZÓD 20 LEWO 90) 

JUŻ 

Gdy chcemy narysować kwadrat o innej długości boku, możemy 
napisać inną procedurę, która w komendzie NAPRZÓD będzie 
miała podaną mną liczbę Kroków. Ale można też zrobić to inaczei 
napisać procedurę, która będzie rysowała kwadrat o boku dowol- 
nej długości. Wystarczy dodać procedurze parametr. W nagłówku 
procedury umieszczamy symbol, który zastąpimy konkretną liczbą 
w chwili wywołania tej procedury. Pamiętajmy, aby zawsze nazwę 
parametru poprzedzić dwukropkiem dla odróżnienia od nazwy 
procedury 

OTO kwadrat 2 : dł. boku 

POWTÓRZ 4 (NAPRZÓD :dł. boku LEWO 90) 

JUŻ 

Ody wywołamy kwadrat 20, narysowany będzie taki sam kwadrat, 
jak przy wywołaniu kwadrat 1 . Ale możemy też wywołać kwadrat 2 
z każdą inną liczbą np. 5 lub 31 i otrzymać rysunek mniejszego lub 
większego kwadratu Procedura może mieć więcej parametrów 
niz 1 Na przykład prostokąt o dowolnych wymiarach można nary- 
sować, wywołując z odpowiednimi wartościami a i b taką proce- 
durę: 

OTO prostokąt :a :b 

POWTÓRZ 2 (NAPRZÓD :• LEWO 90 NAPRZÓD :b LEWO 90) 
JUŻ 

Procedurę można wywołać nie tylko wtedy, gdy na ekranie jest 
znak ?. Nazwę procedury można umieścić wewnątrz treści innej 
procedury. Na przykład rozetę z kwadratów można narysować tak: 

OTO rozeta :dłboku :ilekw 

POWTÓRZ :llekw (kwadrat2 :dłboku LEWO 360/:iiekw) 

JUŻ 

Rozmiar rozety (kwadratów, z których się składa) i liczbę kwadra- 
tów określają parametry procedury. 

W fjoprzedmm odcinku podałem program rysujący koło o ok- 
reślonym promieniu. Korzystając z możliwości przekazywania 
procedurom parametrów, możemy zapisać program rysujący koło 
o dowolnym promieniu. Oto on: 


ÓTO KOLO : T 

POWTÓRZ 36 cnaprzód 2 * pit * 
/ 36 lewo 103 

już 


A jeśli chcemy, by środkiem okręgu był punkt, w którym w danej 
chwili znajduje się żółw, możemy to osiągnąć w ten sposób: 

OTO kołol :r 
POD NAPRZÓD :r 
LEWO 90 OPU 
koło :r 

POD PRAWO 90 
WSTECZ :r OPU 
JUŻ 

Komendy zapisane po wywołaniu koło :r powodują, że żółw wraca 
do pozycji wyjściowej. Jest znów w tym samym punkcie i ustawio- 
ny pod tym samym kątem, co w momencie rozpoczęcia działania 
procedury kołol . Jest to dobry zwyczaj programistyczny. Gdy za- 
czniemy pisać długie i naprawdę skomplikowane programy w Lo- 
go, przestrzeganie zasady wracania żółwiem do znanego punktu 
wyjścia będzie po prostu koniecznością. Jeśli zostawialibyśmy 
żółwia w poszczególnych procedurach w dowolnym punkcie ek- 
ranu, zamiast spodz.ewanego końcowego rysunku otrzymalibyś- 
my plątaninę w niespodziewany sposób poprzesuwanych jego 
części 

Z dotychczasowych uwag mógłby ktoś wyciągnąć wniosek, 
ze wartością przekazywaną do procedury może być tylko liczba 
Tymczasem wartością parametru może być dowolny obiekt Logo 
np. słowo albo lista (pamiętamy, że lista to ciąg ujęty w nawiasy 
kwadratowe) Jak zwykle najlepiej jest poeksperymentować przy 
komputerze t samemu sprawdzić efekty różnych podstawień. 
Spróbujmy na Drzykład tak: 

OTO kartka :tekst1 :tekst2 
PISZ :tekst1 

PISZ (Przaayłam serdeczne pozdrowienia) 

PISZ :tekst2 
JUŻ 

i wywołanie. 

kartka (Droga Jolu) (z Zakopanego) 

Olrzymarńy tekst: 

Droga Jolu Przesyłam serdeczne pozdrowienia z Zakopanego 
Posługując się tą samą procedurą, możemy pozdrowić szefa 
kartka (Szanowny Parne) (z kursokonferencji w Serbinowie) 
Wystarczy tylko tekst wypisać na drukarkę zamiast na ekran Ałe o 
tym. jak to się robi, będzie mowa dalej, w następnych odcinkach 
naszego kursu. 

Napiszmy POLE i narysujmy kilka współśrodkowych okręgów, 
posługując się procedurą kołol i zwiększając coraz bardziej pro- 
mień — parametr procedury. Po pewnym czasie rysowany okrąg 
będzie tak duży, że me zmieści się na ekranie. Żółw przestanie ry- 
sować, a na dole ekranu pojawi się komunikat: „Żółw poza polem" 
(w wersji angielskiej „Turtle out of field"). Ekran to zamknięty, 
ogrodzony obszar, poza który żółw me może wykraczać Możemy 
jednak zmienić tę właściwość ekranu i sprawić, by żółw nie za- 
uważał jego brzegów. Wystarczy podać komendę OKNO (ang. 
WINDOW). Teraz żółw porusza się dowolnie w przestrzeni. Mozo 
na przykład zakreślić okrąg o promieniu 1000. tyle ze na ekranie 
komputera me zobaczymy żadnego rysunku Ekran jest oknem, 
przez które ogiąoamy przestrzeń Jeśli żółw wejdzie w obszar wi- 
doczny z okna. będziemy widzieli, co rysuje i jak się przemie- 
szcza Oprócz trybów ekran POLE i OKNO marny do dyspozycji 
jeszcze jeden dający bodaj najciekawsze efekty graficzne tryb 
SKLEJ (ang. WRAP). Po podaniu tej komendy żółw na ekranie za- 
chowuje się tak, jak gdyby chodził po torusie. Dolny brzeg ekranu 
skleja się z górnym, a lewy z prawym. Żółw wychodzący poza ek - 
ran na górze pojawia się natychmiast w odpowiednim miejscu na 
dole ekranu i kontynuuje rysowanie, w razie potrzeby schodząc w 
dół poza ekran, aby zr\ów pojawić się na górze. Czytelnikom sie- 
dzącym przy komputerze (a jeszcze raz podkreślam, że jest to je- 
dyny sensowny sposób nauki języka programowania) radzę napi- 
sać SKLEJ, a potem kilka iuD lepiej kilkanaście razy wywołać pro- 
cedurę kołol od wartości r zwiększającej się kolejno na przykład o 
10. Prawda, że na ekranie uzyskaliśmy ciekawy efekt? Warto 
poeksperymentować także z innymi figurami; choćby ze współ- 
środkowymi kwadratami o przekątnych leżących na osiach ekranu 

Wróćmy jeszcze raz do definiowania procedur. Wiemy już, jak 
nauczyć Logo rozumienia nowego słowa — nazwy nowej proce- 
dury. Ale co zrobić, gdy w trakcie wpisywania treści procedury 
pomylimy się i wprowadzimy błędną limę? Otóż teksty procedur 
można kodyfikować. Do tego celu słuiy wbudowany w system 
Logo edytor. Do trybu redagowania tekstów przechodzi się po po- 
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daniu Komendy RED (ang EDIT i SKfót ED) Jeśli chcemy popra- 
wić treść jednej procedury należy napisać RED ., nazwa, gdzie na- 
zwa jest nazwą danej procedury Podanie komendy RED bez na- 
zwy spowoduje, ze dostępna będzie zawartość ostatniego edytora. 
Jest to wygodne, gdy wielokrotnie przekształcamy treść tego sa- 
mego fragmentu programu. RED" lub RED [) tworzy pusty edytor. 
Wpływanie tekstu następuje tak samo jak w normalnym trybie 
pracy, tyle że można na bieżąco korygować błędy Można jedno- 
cześnie modyfikować treść kilku procedur Należy wtedy ich na- 
zwy ująć w nawiasy kwadratowe i wymienić po słowie RED RED 
(nazwał nazwa2 .. nazwan], Do poruszania się po ekranie służą w 
edytorze strzałki. W zwykłym Spectrum należy nacisnąć jedno- 
cześnie klawisz CAPS SHIFT i klawisz Z odpowiednią strzałką. 
Spectrum + ma oddzielne przyciski ze strzałkami Kasowanie liter 
następuje po wciśnięciu CAPS SHIFT i O lub w Spectrum + od- 
dzielnego klawisza z napisem DELETE. Aby skasować całą bieżą- 
cą linię, trzeba przejść do trybu EXTEND MODĘ (wcisnąć naraz 
klawisze CAPS SHIFT i SYMBOL SHIFT) - literka w dolnym pra- 
wym rogu ekranu zmienia się na E. Wtedy trzeba przycisnąć kla- 
wisz Y. Powielenie ostatnio kasowanej lub wprowadzanej linii to 
naciśnięcie R w trybie EXTEND MODĘ. W trybie tym strzałki też 
mają swoje znaczenie: — — skok kursorem na początek linii, — — 
skok na koniec linii, ł — skok na początek ekranu, t — skok na ko- 
niec ekranu. Gdy poprawiany tekst jest długi, nie mieści się na ek- 
ranie. Jeśli chcemy znaleźć się na początku tekstu, musimy podać 
B w trybie EXTEND MODĘ, a gdy na końcu — Ew tym samym try- 
bie. Wprowadzone podczas pracy z edytorem zmiany są zapamię- 
tywane po przejściu do EXTEND MODĘ i wciśnięciu C. W tym 
momencie Logo uznaje, ze zaakceptowaliśmy ostateczną postać 
redagowanego tekstu, kończy pracę z edytorem i na ekranie w 
pierwszej kolumnie znów wyświetla się znak ?. Podczas pracy z 
edytorem możemy zrezygnować z zapisywania jakichkolwiek 
zmian, uznając, że poprzednia postać procedury była jednak pra- 
widłowa. Wyjście z edytora bez dokonywania zmian to naciśnięcie 
jednocześnie klawiszy CAPS SHIFT i SPACE lub pojedynczego 
klawisza BREAK w Spectrum +. Wszystkie te informacje o try- 
bach, klawiszach i ich jednoczesnym naciskaniu mogą się wydać 
na pierwszy rzut oka nieco skomplikowane, ale jak zwykle najlepiej 
jest samemu wypróbować działanie edytora Logo. a po krótkim 
czasie wszystko stanie się jasne i oczywiste. 

Czasem uznajemy, ze jakaś procedura jest tak zła. ze me war- 
to jej poprawić Lepiei napisać od początku Taką procedurę, po- 
dobnie jak każdą mną, która przestała już być potrzebna, należy 
usunąć z pamięci. Robi się to za pomocą komendy USUŃ (skrót 
US, ang. ERASE i skrót ER), po Której trzeba napisać nazwę usu- 
wanej procedury. Jeśli chcemy wyrzucić kilka procedur jedno- 
cześnie, ujmujemy ciąg ich nazw w nawiasy kwadratowe i umie- 
szczamy catość po stówie USUŃ. Gdy trzeba pozbyć się wszyst- 
kich proceour z pamięci, podajemy komendę USWP - od słów. 
usuń wszystkie procedury W angielskiej wers|i Logo USWP to 


komenda ERPS. Natomiast komenda USW (usuń wszystko) czyści 
dokfadnie całą pamięć Logo Jej angielski odpowiednik to ERALL 
O tym. co jeszcze oprócz treści procedur może znajdować się w 
pamięci, będzie mowa w następnych odcinkach. 

Często się zdarza, ze po dłuższej pracy me pamiętamy do- 
kładnie. co Logo przechowuje w p;vojej pamięci Można to spraw- 
dzić bez konieczności korzystania z edytora. Komenda POTP 
(ang. POTS) wyświetla na ekranie tytuły wszystkich procedur. Gdy 
chcemy obejrzeć treść którejś z nich podajemy komendę PO (ang 
PO) a po niej nazwę procedury poprzedzoną cudzysłowem Kilka 
procedur można wyświetlić wymieniając po PO kilka nazw ujętych 
w nawiasy kwadratowe Treść wszystkich procedur jest wyświet- 
lana na ządame POWP (ang. POPS). a zawartość całej pamięci 
Logo — po podaniu komendy POW (ang. POALL) 

Prawidłową gospodarkę pamięcią interpretera Logo ułatwiają 
jeszcze pwa słowa kluczowe. Możemy zapytać Logo. ile ma je- 
ęzcze wolnej pamięci Piszemy PISZ WOLNE (ang. NODES), a w 
odpowiedzi wyświetla się liczba wolnych jednostek pamięci. Logo 
w czasie pracy me zawsze oszczędnie gospodaruje swoją pamię- 
cią. Zdarza się. że po wykonaniu wielu operacji są w pamięci nie 
zajęte, ale i niedostępne jednostki. Aby uporządkować pamięć i 
odzyskać nieużytki, trzeba wydać rozkaz ODśMIEĆ (ang. RECYC- 
LE). Jeśli teraz znów sprawdzimy, ile jest dostępnej pamięci, pi- 
sząc PISZ WOLNE okaże się, że jej przybyło 

Do podanego miesiąc temu słowniczka poznanych komend 
polskiego Logo dołączamy dziś następne: 


POLE 

FENCE 

ekran graficzny to zamknięte pole 

OKNO 

WINDOW 

ekran to okienko w przestrzeni 

SKLEJ 

WRAP 

sklej ekran graficzny w torus 

RED 

EDIT.ED 

przejście do redagowania 

USUN.US 

ERASE, ER 

usuń procedurę z pamięci 

USWP 

ERPS 

usuń wszystkie procedury 

USW 

ERALL 

usuń wszystko 

POTP 

POTS 

pokaż tytuły procedur 

PO 

PO 

pokaż treść danych procedur 

POWP 

POPS 

pokaż wszystkie procedury 

POW 

POALL 

pokaz wszystko 

WOLNE 

NODES 

liczba wolnych jednostek pamięci 

ODŚMIEĆ 

RECYCLE 

uporządkuj pamięć 


Zadania do samodzielnego zaprogramowania: 

1 ) Napisać procedurę rysującą dowolny wielokąt foremny. 

2) Napisać procedurę obliczającą i wyświetlającą na ekranie ob- 
wód i pole Okręgu o dowolnym promieniu. Zrobić to samo dla kuli 
— obliczyć jej powierzchnię i objętość Napisać słowami na ekra- 
nie. co która wartość oznacza. 

Za miesiąc między innymi o tym, co to jest rekursja i jak się nią 
sprawnie posługiwać w Logo 
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Jest to prosta, kolorowa gra zręcznościowa, 
polegająca na uzyskaniu jak największej liczby 
punktów poprzez odbijanie „piłki", rozjuszają- 
cej mur ułożony z klocków. „Piłkę" odbijamy po- 
ruszając dwoma klawiszami kursora (klawisze 
oznaczone strzałką w lewo i strzałką w prawo). 

Czy uda się Wam uzyskać ponad 1000 punk- 
tów? 

Życzymy powodzenia. 


40 MODĘ 1 1 BORDER llINK 0,liINK 1,26 iINK 2,24iINK 3,6 

30 SPEED KEY 13,2 

60 ENV 1,1,18,0,11,0,10 

70 ENT 1,10,2,2 

80 ENV 3, 1,0, 16, 3, -3, 2 

90 ENV 2, 3, 3, 3, 1,-21, 22, 9, -3, 2 

100 ENT -2, 10, 2,2, 3, -7, 1,2, 11, 3, 2, -4 , 8 

130 M0VE 30, 32 i DRAWR 0,400, li MOVE 610,32iDRAWR 0,400,1 

140 PEN 3 1 LOCATE 3, liPRINT STRINGS <36, 143) 

130 PEN 2 i LOCATE 3,2iPRINT STRING6 <36, 143) 

160 PEN 1 1 FOR r-3 TO 6 « LOCATE 3,nPRINT BTRING6 <36, 143) l NEXT r 
170 bx-9 

180 11 v«s-5i «cor »-0 

190 PEN I 1 GO 8 UB 680 1 CLE AR INPUT 

200 IF INKEYSOCHR*<32> AND J0Y<0)<16 THEN 200 

210 LOCATE 11, 23 1 PR 1 NT 9PACE6 <20 > i LOCATE 1,24»PRINT BPACE*<40)| 

220 G08UB 690 i G08UB 660 (GOTO 280 

250 LOCATE , 24i PRINT" " 1 9TRINGS <4, 131 i RETURN 

280 x«-liy«-iilF INT<RND*2)-1 THEN 

290 PEN 1 i G08UB 250 

300 0RIG1N 0,400 

310 x-bx+4iy-llixl-xiyl-y 

340 x 1 — x+kai y 1 -y+y« 

330 IF xl-3 OR xl-38 THEN x«— xa 
360 GOBUB 540 

370 IF yl-24 AND xl>bx+l AND xl<bx +6 THEN y«— y«i y 1-y 1-2 1 BOUND 130, 44, 8 , 7, l , 1 1 •- 
< <x >bx+S) OR <x<bx+2) > i IF •— 1 THEN x«-x«*«i x l-x l+x*i y 
1 -y 1>1 

380 IF yl-23 THEN LOCATE x,yi PRINT" "iGOTO 300 
390 GOBUB 230 

400 t-TEBT < <16*xl)-l,-(16<yl)-l) 

410 IF t<>0 THEN ya— yai xz«x 1 1 yz-yl i yi-yl+yai GOBUB 390i IF t-2 THEN •cora-acora-M 
Ol GOBUB 660 

420 IF t-3 THEN acora-acora+ 201 GOBUB 660 
430 IF t-1 THEN acora-»cora*5i GOBUB 660 
440 IF y 1-1 THEN ya-1 

430 LOCATE x,yi PRINT " "i LOCATE xl,yli PRINT CHRS <233) i x-x 1 1 y-y 1 
460 IF y-1 OR x-3 OR x-38 THEN BOUND 129,76,8,7,1,1 
470 GOTO 340 

300 1 1 vaa-l i vaa- 1 1 BOUND 132, 19, 46, 12, 2. 2» IF livaa-0 THEN GOTO 620 
SIO GOBUB 660 1 GOTO 280 

340 IF < INKEY (B> -O OR INKEY<74)-0) AND bx>2 THEN bx-bx-2l RETURN . 

330 IF ( INKEY < 1 > -O OR INKEY <73) -O) AND bx<-32 THEN bx "bx +2 1 RETURN 
360 RETURN 

390 LOCATE xz,yzi PRINT " " i RETURN 

620 IF •cor»>-hi»cor* THEN hi scora-acora 

630 GOBUB 660l acora-Oi Hvaa-5iG0T0 130 

660 BOUND 130,0,20, 13, 3,0,311 LOCATE l,23i PRINT TAB (4) "REKORD" | hi acoraj 
670 LOCATE 18, 23i PRINT "PUNKTY" | acorai LOCATE 30, 2S| PRINT"NR GRY" 1 1 i vaai RETURN 
680 LOCATE 1 1 , 23 1 PRINT". START to BPACJA" i RETURN 
690 LOCATE 1, 23 1 PRINT BP ACE* <40) | i RETURN 


^(htWia 


IKS — strona 28 



PAMIpCI 

OPTYCZNE 


Współczesne systemy kompute- 
rowe wymagają coraz większych 
pamięci o dużej pojemności i krót- 
kim czasie dostępu. Na przykład sa- 
telita wyposażony w teleskop prze- 
kazuje w ciągu roku kilka terabajtów 
informacji. Dla jej zmagazynowania 
potrzeba około 100 000 taśm magne- 
tycznych o pojemności 1 50 megabaj- 
tów każda. Stacje kosmiczne, które 
będą budowane w latach dziewięć- 
dziesiątych, będą przekazywać 
dziennie 1 terabajt informacji z 
szybkością większą niż 1 gigabit na 
sekundę. Istniejące obecnie urzą- 
dzenia pamięciowe są niewystarcza- 
jące dla gromadzenia tak wielu in- 
formacji. Nową nadzieją, która poz- 
woli przełamać istniejące bariery 
technologiczne, są pamięci optyczne. 
Ich pojemność przekracza ł terabajt, 
a szybkość dostępu jest większa niż 1 
gigabit na sekundę. 

„Grająca szafa” 
dysków optycznych 

Urządzenie to, skonstruowane na 
wzór tradycyjnej „szafy grającej”, 
zawiera zestaw dysków optycznych, 
umieszczonych w oddzielnych kase- 
tach, z których są wybierane za po- 
mocą precyzyjnych mechanizmów, 
dokonujących zapisu lub odczytu 
promieniem laserowym. Pojemność 
pamięci lego urządzenia wynosi 10 lł 
bitów (1250 gigabajtów), a dostęp do 
dowolnej informacji można osiągnąć 
w przeciągu 6 sekund. Dyski opty- 
czne pozwalają na jednokrotne zapi- 
sanie informacji i wielokrotne jej od- 
czytanie. Stosowane są również dy- 
ski magneto-optyczne, umożliwiają- 
ce wielokrotny zapis informacji. Dy- 
ski te pokryte są magnctoczułą war- 
stwą, na której zapisuje promień la- 
sera w obecności pola magnetyczne- 
go. Naświetlony punkt zmienia 
swoją strukturę powierzchniową — 
kąt odbicia promienia laserowego 
jest w takich miejscach inny. Pozwa- 
la to jednoznacznie odczytać zapisa- 
ną informację. Zapis kasuje się przez 
naświetlanie laserem miejsc o zmie- 
nionej strukturze powierzchniowej 
w obecności odwrotnie niż poprzed- 


nio skierowanego pola magnety- 
cznego. Pamięci tego typu są stoso- 
wane w amerykańskiej Krajowej 
Agencji Badania Przestrzeni Kosmi- 
cznej (NASA). 

Pamięć buforowa 

na dyskach optycznych 

Pamięć ta charakteryzuje się dużą 
pojemnością (większą niż 1 terabajt), 
dużą szybkością zapisu i odczytywa- 
nia informacji (większą niż 1.6 giga- 
bita na sekundę) oraz krótkim cza- 
sem dostępu do dowolnej informacji 
(mniejszym niż 100 milisekund. 
Urządzenie to składa się z 12 magne- 
to-optycznych dysków, umieszczo- 
nych na wspólnym wałku. Każdy 
dysk obsługiwany jest przez elck- 
trooptyczny moduł laserowy. W po- 
równaniu z najnowszymi pamięcia- 
mi buforowymi wykorzystującymi 
dyski magnetyczne, pamięć ta cha- 
rakteryzuje stę 60-krotnic większą 
szybkością dostępu do danych i 25- 
-krotnic większą pojemnością! 



Magneto-optyczny 
rejestrator taśmowy 


W urządzeniu tym do zapisu in- 
formacji zastosowana jest taśma o 
właściwościach identycznych jak 
dysk magneto-optyczny. Rejestrator 
składa się z 16 magneto-optycznych 
modułów, z których każdy zapisuje 
jednocześnie 8 kanałów na taśmie. 
Pojemność pamięci wynosi 1250 gi- 
gabajtów, a szybkość dostępu do da- 
nych 1 .6 gigabita na sekundę. 

Pamięci optyczne rozpoczynają 
dopiero swoją karierę. Ich podsta- 
wową wadą są duże gabaryty i pre- 
cyzyjna i zarazem wrażliwa mecha- 
nika, co ogranicza możliwości ich 
stosowania w urządzeniach mobil- 
nych. Oczekuje się, że prawdziwy 
rozkwit tego rodzaju pamięci nastąpi 
w latach dziewięćdziesiątych, kiedy 
będą wykorzystywane nic tylko w 
badaniach kosmicznych, jak obecnie, 
ale również w innych dziedzinach 
nauki i techniki. 

W.O. 
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Liga Myślących 


Zadanie nr 1 

Dwóch robotników wykopało nakazany rów melioracyjny w 
ciągu 12 godzin. Gdyby pierwszy wykonał sam połowę 
pracy, a następnie drugi resztę, to zużyłby na to 25 godzin. 
W ciągu ilu godzin każdy robotnik, pracując oddzielnie mo- 
że wykopać rów melioracyjny? 


Zadanie nr 2 

Według legendy na płycie Diofantosa był taki napis ułożo- 
ny przez Eutropiusza: „Przechodniu! Pod tym kamieniem 
spoczywają prochy Diofantosa, który umarł w głębokiej 
starości. Przez szóstą część swego życia był dzieckiem, 
przez dwunastą część — młodzieńcem. Następnie upłynę- 
ła siódma część jego życia, zanim się ożenił. W pięć lat po 
zawarciu związku małżeńskiego urodził mu się syn, który 
żył dwa razy krócej od niego. W cztery lata po śmierci swe- 
go syna Diofantos opłakiwany przez swych najbliższych, 
zasnął snem wiecznym. Powiedz, jeśli umiesz obliczyć, ile 
on miał lat, kiedy zmarł". 

Proszę podać rozwiązanie tego zadania. 


Rozwiązania zadań prosimy przesyłać do redakcji do końca 
listopada br., z dopiskiem „Liga Myślących". Punktacja zależy od 
liczby prawidłowych rozwiązań. Wśród uczestników rozlosujemy 
książki, a na zwycięzców „Ligi" czekają dodatkowe cenne nagrody 
— niespodzianki. 


Odpowiedzi na zadania zamieszczone w 
trzecim numerze „IKS-a”. 

Zadanie 1 

Z chwilą gdy jeden z autobusów zaczął się w godzinach szczytu z 
powodu przypadkowych zakłóceń opóźniać w stosunku do rozkła- 
du jazdy, zwiększa się liczba pasażerów wsiadających do autobu - 
su, a co za tym idzie zwiększa się również stopień napełnienia au- 
tobusu. Zwiększa się także liczba pasażerów wysiadających z au- 
tobusu. Im bardziej jest opóźniony autobus tym więcei pasażerów 
spotyka się na każdym przystanku Z powodu dużej liczby pasaże- 
rów wsiadanie zajmuje więcej czasu, co powoduje dalsze opó- 
źnienie autobusu. Z kolei następny wyjeżdżający na trasę autobus 
jedzie szybciej bo między innymi na przystankach oczekuje mniej 
ludzi. W końcu dochodzi do połączenia jazdy autobusów i mamy 
do czynienia z tzw. jazdą autobusów parami. 

Zadanie 2 

Do prawidłowego sporządzenia administracyjnej mapy Polski tak, 
aby sąsiadujące ze sobą województwa miały inne kolory wystar- 
czy użyć czterech barw Tzw. zagadnienie czterech kolorów było 
jednym z najsłynniejszych zagadnień teorii gratów. Tezy. iż do po- 
kolorowania dowolnego atlasu wystarczą cztery kolory nie mogło 
udowodnić wielu wybitnych matematyków świata. Dokonano wie- 
lu ważnych odkryć w teorii gratów, ponieważ wydawało się, że bę- 
dą pomocne przy rozwiązaniu zagadnienia czterech barw. Do 
1976 roku hipoteza o czterech kolorach była na pewno najsłyn- 
niejszym nierozwiązanym zagadnieniem w teorii grafów W 1976 
roku hipoteza ta została udowodniona przez Kennetha Appel a i 
Wolfgana Hakon a. Przedstawili oni niekonwencjonalny dowód, 
wykorzystując szybki komputer. 

Zadanie 3 

Czynności Andrzeja przy próbie telefonowania do Piotra przy zało- 
żeniu, ze Piotr jet w domu w kolejności ich wykonania zostały 
przedstawione poniżej w postaci tzw, schematu blokowego. Ina- 


czej mówiąc, poniższy rysunek przedstawia algorytm próby telefo- 
nowania Andrzeja do Piotra: 


Zadanie 4 

Przystępując do rozwiązania tego zadania należy założyć, że po- 
ciąg mija zawiadowcę i peron ze stałą prędkością v. W ciągu 26 
sekund pociąg ze stałą prędkością v mija peron, pokonując drogę 
równą długości peronu oraz drogę równą swojej długości x. stąd: 


ODPOWIEDZI NA ZADANIA 
nr 5, 6 z nr. 2 „IKS-a" 

Zadanie 5 

Różnica między godziną trzecią i szóstą wynosi 180 minut. Ilość 
minut pozostającą do godziny szóstej można znaleźć, jeśli 
1 80 — 50 = 1 30 minut podzielimy na takie dwie części, z których' 
jedna jest cztery razy większa od drugiej. To znaczy znajdujemy 
piątą część liczby 130 Tą liczbą jest 26 A zatem do odejścia po- 
ciągu pozostało jeszcze 26 minut Sprawdźmy powyższe rozumo- 
wanie Przed 50 minutami pozostawało do od|ezdzaiącego o go- 
dzinie szóstej pociągu 26 + 50 = 76 minut czyli licząc od godziny 
trzeciej, wynosiło to 1 80 — 76 = 1 04 minuty po trzeciej. Czas 1 04 
minut jest rzeczywiście czterokrotnie dłuższy od 26 minut. 

dokończenie na itr. 31 


Z tą samą prędkością v pociąg mija zawiadowcę pokonując drogę 
równą swojej długości x w ciągu 1 1 sekund, stąd 


x = 88 m 

Długość pociągu wynosi 88 metrów 

Zadanie 5 

Aby rozstrzygnąć, która z dwunastu drużyn, grając każda z każdą 
jest najlepsza, należy rozegrać 66 meczy. Wielkość tę można obli- 
czyć wg wzoru: 

oi-h - JJ... 

2 

gdzie n — ilość drużyn biorąca udział w turnieju. 


odtdi słuchawki 
falafonu 
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Pocztowa giełda 


Rozwiązanie krzyżówki nr 3 

Hasło brzmi: „KOMPUTER TWOIM PRZYJACIE- 
LEM". Bony pieniężne (1000 zł) wylosowali: Ma- 
rian Misiaszek — Toruń, Marian Persona — Bę- 
dzin, Stanisława Sroka — Chrzanów, Tomasz 
Bednarek — Dęblin, Witold Szydłowski — So- 
chaczew. 

Nagrody książkowe otrzymują; Zdzisław Tar- 
czyński Legnica, Tomasz Wiatr Poznań. Dariusz 
Sierzkiewicz Siedlce, Robert Gałuszka Jaworzno, 
Mariusz Petelicki Chrzanów, Ryszard Puskarz 
Kraków, Antoni Goryl Kraków, Stanisław Cyga- 
nik Duszniki-Zdrój, Andrzej Boczek Police, To- 
masz Rostecki Leszno. 

Przypominamy naszym Czytelnikom, że w lo- 
sowaniu biorą udział wyłącznie odpowiedzi przy- 
syłane na kartach pocztowych. 


Warszawskie notowania „komputerowe" 

Spectrum 48K — 70—80 tys. 

Spectrum Plus — 110 tys. 

Spectrum 128 K — 180 tys. 

Commodore 64 + magnetofon + 2 joysticki — 
280 tys. 

Commodore 116 — 55—65 tys. 

Atari 130 XE — 120 tys. 

Atarl 800 XL + magnetofon — 120 tys. 

Amstrad 6128 • kolorowy monitor — 450 tys. 
Amstrad CPC464 - kolorowy monitor — 320 tys. 

Sharp 700 — 210 tys. 

Timex — 95 tys. 


Zadanie 6 

Gdy zegar wyoija godzTię trzecią, czas trwania wybiiama godzm 
składa się z dwóch okresów: 

pierwszego *- pomiędzy pierwszym i drugim uderzeniem, 
drugiego — pomiędzy drugim i trzeftim uderzaniem 
Oba okresy trwają 3 sekundy. tzn„ ze każdy z mci) trwa po 1 1 /2 
sekundy. Gdy zegar wybił godzinę czternastą, okres taki jest jeden 
i wynosi T i 72 sekundy. 

Wszystkie odpowiedzi oparte na powyższym rozumowaniu zostały 
przyjęte jako prawidłowe 

Q a zadania Opublikowane w trzecim numerzfi .IKS-a można 
byló' uzyskać następujące ilości punktów 
Zadanie nr 1 — 2 pkt 

Zacarne nr 2 - 1 pkt* ' ' . - 

Zadanie nr 3 - 1 pkl- r 
Zadanie nr 4 - 1 pkt 
Zadanie nr 5 — 1 pkt 

Oto nazwiska czytelników, którzy wyiosowali ksiązKi za po- 
prawne rozwiązanie żagań zamieszczonych w pierwszym numerze 

..IKS-a Jarosław Lubczyński / Lodzi. Ania Jatczak z Ozorkowa, 
Beata Więcek z Cliorzowa. Piotr Labuda z Bochni Joachim 
Lach z Nowej Rudy 

A oto na 2 wtska . czytelników, którzy wyiosowali książki za pra- 
widłowe rozwiązanie- zadań zamieszczonych w drugim nume**e 

..IKS-a Ryszard Wilkocki z Lodzi, Jacek Oryga z Bytomia Ma- 
rian Misiaczek z Tórun.a, Antoni Goryl r Krakowa Hubert No- 
waczyk t. Grudziądza. 

Za poprawne rozwiązanie zadań umieszczonych w trzecim 
numerze IKS-a książki otrzymują Leopold Gulcz i Rumu And- 
rzej Wrześniewski z Krakowa Józef Kurowski z Tykocina. We- 
ronika Kowalska / Sosnowca. Agnieszka Para z Płocka. 


W naszym komputerlandzie 


Wracając z zasłużonego wakacyjno-uriopowego wypo- 
czynku pracowity robot Spektruś’ przeżył w podróży nie la- 
da emocje. Widząc na peronie tłumy podróżnych, Spektruś 
ustawił się czujnie. Kiedy podjechał pociąg, wskoczył 
przez okno, otrzepał się że szkła, bo okno było zamknięte, i ' 
zaczął ładować do środka, co rhu podawano walizkę, psa, 
starą komputerzycę Odrę. robocik z. komputerkiem, tobół 
.narty, skrzynię, wózek z: niemowlęciem. . Było tego niema- 
ło 

Pociąg wyjechał z trzygodzinnym opóźnieniem i w złym 
kierunku, bo dziołorób nim kierujący me rozróżniał stron 
kómputerlandu. Kiedy wśród wrzasku, przekleństw, śpię 
wów, wycia i modlitw wszyscy ułożyli się w czterech war- 
stwach, staruszka Odra zaczęła gaworzyć, że ona tylko 
odprowadzała i niechętnie jedzie. Ponadto w tłoku zamie- 
niono jej przewodnik na półprzewodnik, a ona nie lubi robo- 
ty wykonywanej połowicznie. 'Zaklinowano ją wreszcie 
między półki i jakoś ucichła. 

Mały robocik. bawiąc się komputerkiem, zadawał mu py- 
tanie co oznacza słowo, którego najczęściej używano w 
przedziale, bo krótkie i warczące — chciałby spopularyzo- 
wać wśród kolegów. Na szczęście, ktoś mu przydeptał to 
urządzenie i się nie dowiedział. 

Pociąg nie zatrzymywał się na żadnej stacji, bo prowa- 
dzący go dziełorób włączył całą parę i się zdrzemnął, W 
końcu dojechał na miejsce z częścią odważnych pasaże- 
rów. Nikt me wnosił.pretensji. bo wprawdzie z kilkudniowym 
opóźnieniem, ale przybył o właściwej godzinie. 

Zresztą, jak się komuś bardzo spieszyło, wyskakiwał w 
biegu i pogotowiem ratunkowym dojeżdżał na miejsce raz 
dwa. 

Sporadyczne wnioski o zwrot kosztów podróży odrzuco- 
no. bowiem po pierwsze bilety były juz przeterminowane, a 
po drugie opóźnienie wynikło z przyczyn obiektywnych. 

Zmęczony, ale uszczęśliwiony pomyślnym zakończe- 
niem podróży Spektruś wrócił do pracy ... 

Podglądał: Eugeniusz MLECZAK 


Lista „przebojów” 

Tym razem bez większych zmian. Na czóle nadal „Ła- 
migłówka”. Na drugim miejscu zdecydowanie „Odwra- 
canka" — oba programy na Atari. Czytelnicy domagają się 
podania tych programów w innych wersjach komputero- 
wych Pokrzywdzeni czują się przede wszystkim posiada- 
cze Spectrum — nie wszyscy potrafią dokonać niezbęd- 
nych przeróbek. Na trzecim miejscu nadał utrzymuje się 
program na C-64 — „Projektant — znaki" 

Uwaga! Przypominamy, że na łamach sobotnio-nie- 
dzielnego wydania „Żołnierza Wolności'’ •— Horyzont dru- 
kujemy krótkie programy ną różne mikrokomputery. Cze- 
kamy na Wasze propozycje 


Ogłoszenia 

Kupię ZX Spectrum 48KB. Wiesław Peta Okunino 
77-203 Dretyń woj. Słupsk. 

ZX — Spectrum — wysyłka programów komputero- 
wych na korzystnych warunkach. SPEKTRA, 21-426 
Wola Mysłowska. 
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KRZYŻÓWKA nr 5 


POZIOMO: 1. stała wartość, wielkość 6. alotro- 
powa odmiana tlenu 7. bakteria, drobnoustrój 8. 
artretyzm 9. stolica państwa auropejskiego 10. 
Inwencja twórcza 14. wprowadza dane do kom- 
putera 16. drzewo iglaste 17. pierwszy polski król 
18. poprawia jakość zdjęcia 20. organizacja wal- 
cząca z narkomanią 23. spisek 26. defensywa 27. 
malec 

PIONOWO: 1. elektryczny lub rzeczny 2. Rzym 
dla Włocha 3. układ scalony o wielkiej skali inte- 


danych 11. popularny 
pas ortopedyczny 1 3. człowiek, 
iące 


gracji 4. maszyna zastępująca człowieka S. spe- 
cjalista od przetwarzania dc 
minikomputer 12. pas ortope 
postać 15. zabrzańskie zakłady 
komputery 16. podłużne zagłębienie w ziemi 21. 


harcerskie kolonie 22. galaretka z morskich wo 
dorostów 24. zawiera nasiona 25. kamień ozdób- 
ny 26. wielka rzeka syberyjska 
Hasło: (1k,3e,6r 
7h) (la, 81, 13a, lOg 
Rozwiązania (tyTl 


OSBORNE 3 jest średnich rozmiarów 
komputerem przenośnymw pełni kompa- 
tybilnym z komputerem IBM. Produko- 
wany jest przez firmę Osborne Computer 
Co., a o jego konkurencyjności w stosunku 
do innych komputerów tej klasy decyduje 
stosunkowo niska cena — 1895 dolarów. 
Pracuje w oparciu o 16-bitowy procesor 
80C86, pamięć 256 KB RAM z możliwością 
rozszerzenia do 512 KB przy zastosowaniu 
układu 256 KB DRAMs. Pojemność pamię- 
ci dyskowej wynosi 2 x 360 KB przy wyko- 
rzystaniu 2 stacji 5,25-calowych dysków 
elastycznych. Osborne 3 wyposażony jest 
w ekran ciekłokrystaliczny z możliwością 
wyświetlania 80 znaków w 16 wierszach. 


Hasło: (1k, 3e, 6a) (lid, 9e, 21, 9k) (16f, lOa, 131, 
‘ 'la, 81, 13a, 10g, 14k, 16e) 

(tylko hasło) prosimy przesyłać 
pod adresem redakcji do końca listopada. Wśród 


Czytelników, którzy nadeślą prawidłowe rozwią- 
zania rozlosujemy bony pieniężne i nagrody 
książkowe. 





„IKS" — dodatek „Żołnierza Wolności". Redagują Wiesław Cetera,- Ryszard Rogoó. Adres redakcji: 00-950 Warszawa 
ul Grzybowska 77, telefon centrali 20-12-61 w. 486. Rękopisów nie zamówionych redakcja nie zwraca i zastrzega sobie 
prawo do skrótów. Nakładem: Wydawnictwa „Czasopisma Wojskowe”, Warszawa ul. Grzybowska 77. Fotoskład i druk 
rotograwiurowy — Wojskowe Zakłady Graficzne im. gen. dyw. A. Zawadzkiego. Nr zam. 8059, Nr Ind. 382809 t 
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Uważni Czytelnicy z pewnością do- 
strzegają zachodzące na tamach na- 
szego pisma zmiany ; coraz więcej 
miejsca poświęcamy na prezentowa- 
nie programów na wszystkie najpo- 
pularniejsze w Polsce mikrokompu- 
tery. Staramy się , aby w większości by- 
ty (o programy użytkowe — takie , 
które mogą przydać się na co dzień. 
Chcemy, aby nasze publikacje zaspo- 
kajały nie tylko „ pierwszy głód" in- 
formatycznej wiedzy, ale i satysfak- 
cjonowały bardziej wymagających 
sympatyków mikrokomputerów. 

Chroniczny brak literatury facho- 
wej sprawia, iż użytkownicy Atari czy 
Commodore skazani są niemal na 
obcojęzyczne instrukcje. Dlatego też 
prezentujemy ciekawsze rozwiązanie 
programowe dotyczące poszczegól- 
nych typów mikrokomputerów. 

Liczymy oczywiście zawsze na po- 
moc Czytelników. Dobrych pomys- 
łów z pewnością Wam nie brakuje. 
Nie brakowało ich nigdy — gorzej by- 
ło z ich rozpowszechnianiem. Wiedza 
jest towarem najcenniejszym — ■ szu- 
kajmy zatem talentów potrafiących 
robić właściwy użytek ze swych sza- 
rych komórek. 

PROGRAM 87 — to hasto konkursu 
ogłoszonego przez Ogólnopolską 
Federację Klubów Komputerowych 
Młodych Mistrzów Techniki ’, które- 
mu nasza redakcja wiernie sekundu- 
je. Konkurs odbędzie się w trzech 
etapach: listopad — grudzień 1986, 
marzec — maj 1987 i wrzesień — li- 
stopad 1987 r. Programy oceniane 
będą w pięciu kategoriach: programy 
dydaktyczne, graficzne, gry kompu- 
terowe, programy sterujące robotami 
i automatami oraz programy rozwią- 
zujące zagadnienia techniczne. 

Federacja Klubów Komputerowych 
ostro wzięła się do roboty, jeszcze w 
tym roku rozstrzygnięty będzie ko- 
lejny konkurs — tym razem na najle- 
piej pracujący klub komputerowy — 
a jest ich już ponad 200 (to tylko te, 
które należą do Federacji). 

Komputery tanieją, ale jeszcze nie- 
prędko osiągną odpowiednią cenę 
dla ul popularnej pomocy szkolnej" — 
stąd też często właśnie klub kompu- 
terowy jest jedyną formą kontaktu z 
tym sprzętem. Być może problem 
zostanie rozwiązany, kiedy ruszy peł- 
ną parą produkcja elwrowskiego ju- 
niora, ale tymczasem wiedza informa- 
tyczna młodzieży zależy często, na 
szczęście, od licznych zapaleńców, 
którzy uważają, że bez komputera 
nie ma przyszłości ; skupiają wokół 
siebie podobnych pasjonatów, zdo- 
bywają środki i organizują klub kom- 
puterowy. Czasami o powodzeniu 
przedsięwzięcia decyduje przypadek. 
Tymczasem sukces powinien być re- 
gułą i do tego dążymy. 

REDAKCJA 



SHARP PC- 1500 
KRZYWE 
LISSAJOUS 


10;BEEP 10, 100, 10 
0 

20: "A" : CLEAR : 
USINS : GRAPH : 
DEGREE : WAI T 0 

30: INPUT "POZIOn 
X=" ; X: X=ABS X: 
X=INT X 

40: INPUT "PION Y= 
Y: Y=ABS Y: Y= 
INT Y 

50: IF (X J 'Y)=0GOTO 
. 10 

60: INPUT "FAZA F= 
"iF 

70: L INE -(. 0 , 0>-(l 
00, 0), 9: SORGN 

80: R=75: T=0: X2=0: 
Y2=0 

90:N=36*(X+Y):S=3 

80/N 

100:X2=R*SIN (X*T) 
:Y2=R*SIN (Y*( 
T+F)> 

1 10: LINĘ -(0,0>-(X 
2, Y2>, 9 

130: FOR K=0TO N 

140: T=T+S: X1=X2: Y1 
=Y2 

150:X2=R*SIN (X*T) 
:Y2=R*SIN (Y*( 
T+F) > 

160: LINĘ -(XI, Yl)- 
(X2, Y2>, 1 

170: NEXT K 

180: L INE -(X2, Y2)- 
(0, 0), 9 

190: TEXT : END 


SHARP PC- 1500 
KRYSZTAŁ 


10:-BEEP 10, 100, 10 
0 

20: "A": CLEAR : 
USING : WAIT 0 
30: INPUT "ILE BOK 
014 B=" j B: B=ABS 
B: B=INT B 
40: IF B<4GOTO 10 
50: INPUT "WIELKOS 
C Q=" J Q: Q=ABS 
Q: Q=INT Q 
60: IF Q=0GOTO 10 
70: A=2W/B:DIN W( 
B 2 ) 

80: FOR K=0TO CB-1 
) 

90: I1=K+1 : W(t1, 1)=Q 
*C0S (K*A> 

100: l*KH, 2>=Q*SIN ( 
K*A> 

1 10: NEXT K 
120: GRAPH :RLINE - 
(110, 0 ), 9 

130: SORGN : RLINE - 
<Q, 0>, 9 
140: X2=0: Y2-0 
150: FOR L»1T0 B 
160: X1=W(L, 1 ) : Y1=W 
(L, 2) 

170:LINE -(X2, Y2)~ 
(XI, Yl), 9 
180: FOR K=LT0 B 
200: N=K+1 : IF N>B 
GOTO 240 

210: X2=W(N, 1): Y2=W 
(N, 2) 

220: L INE -(XI, Yl)- 
(X2, Y2), 1 

230: LINĘ — ( X2, Y2>- 
(XI, Yl), 9 
240: NEXT K: NEXT L 
250: LINĘ -(X2, Y2)- 
(0,0), 9 
260: TEXT : END 
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Elementy systemów mikrokomputerowych (1 ) 


Na początku 

był ENIAC ... 


Wyprodukowanie pierwszego mikroprocesora stało 
się początkiem przewrotu, kojarzonego z drugą rewo- 
lucją przemysłową, zwaną rewolucją mikroprocesoro- 
wą. Mimo dopiero piętnastoletniego istnienia, układ 
elektroniczny, nazwany w związku z technologią jego 
wykonania mikroprocesorem, nabrał historycznego 
znaczenia, znalazł wielostronne i niebanalne zastoso- 
wania. 


Postęp w dziedzinie technologii ele- 
mentów elektronicznych powodował 
kolejne kroki w rozwoju techniki kom- 
puterowej. Powstawały kolejne gene- 
racje komputerów. Oczywiście, warun- 
kiem koniecznym ich rozwoju, poza 
doskonaleniem technologii, był rozwój 
koncepcji działania systemów oblicze- 
niowych i oprogramowania. 

Elementy elektroniczne wkroczyły do 
techniki obliczeniowej w 1946 r. Na 
Uniwersytecie Pensylwania skon- 
struowano wówczas pierwszy działają- 
cy komputer ENIAC (Electronic Nume- 
rical Integrator and Computer). Ważył 
30 ton (!), zużywał 1 50 kW energii elek- 
trycznej (!), a zbudowany był z 18 000 
lamp próżniowych i 1 500 przekaźników 
elektromagnetycznych. Na wykonanie 
operacji dodawania dwóch liczb dzie- 
sięciocyfrowych ENIAC potrzebował 
0,2 milisekundy (1 ms = 0,001 s), a na 
wykonanie operacji mnożenia 2,8 ms. 
Komputer posiadał, procesor, który 
tworzyły: jednostka sterująca i aryt- 
mometr: pamięć wewnętrzną, składa- 
jącą się z 20 rejestrów mieszczących 
liczby dziesięciocyfrowe; pamięć ze- 
wnętrzną, na pliku kart dziurkowa- 
nych. 

Komputer ENIAC działał w następu- 
jący sposób. Jednostka sterująca 
wprowadzała na wejście arytmometru 
daną liczbową, zapisaną w rejestrze 
pamięci lub na karcie dziurkowanej, a 
następnie wysterowywała arytmometr, 
co oznaczało wykonanie odpowiedniej 
operacji arytmetycznej. Wynik operacji 
wyprowadzany był do jednego z rejes- 
trów. Kolejne działania procesora za- 
programowane były w tzw. tablicy 
punktów. Rozwiązanie problemu obli- 
czeniowego oznaczało wprowadzenie 
właśnie tablicy punktów, których kolej- 
ność odpowiednich połączeń interpre- 
towana była przez jednostkę sterującą 
oraz przygotowanie danych na kartach 
dziurkowanych. 


Czasochłonność oraz niedogodność 
programowania oraz mała pojemność 
pamięci wewnętrznej, którymi to cha- 
rakteryzował się ENIAC, „poprawione" 
zostały w koncepcji J. Eckerta i J. von 
Neumanna. Koncepcja ta ukazywała 
ogromną rolę pamięci wewnętrznej 
(operacyjnej) i jej wpływ na architek- 
turę komputera, a polegała na tym, że 
jednostka sterująca mogła wykorzy- 
stywać, zapisane w tej samej pamięci, 
dane i instrukcje programu (rozkazy) 
— operujące na tych danych. 



Architektura komputera, zgodnego z 
tą koncepcją, zawierać miała procesor, 
tor przesyłania danych i pamięć. Pro- 
cesor tworzyły arytmometr i jednostka 
sterująca, która zawierała m.in. licznik 
rozkazów i rejestr rozkazów. Pamięć 
operacyjna zawierała, oprócz komórek 
pamięci, rejestr adresowy pamięci. 

Cykl pobrania rozkazu przez kompu- 
ter o takiej architekturze wyglądał na- 
stępująco. W chwili początkowej licznik 
rozkazów ma wartość zerową. Zawar- 
tość licznika przesyłana jest do rejestru 
adresowego pamięci. Po czasie, zwa- 
nym czasem dostępu do pamięci, za- 
wartość komórki o adresie zerowym 
przesyłana jest do rejestru rozkazów. 
Rozkaz po pobraniu jest interpretowa- 
ny przez procesor, a następnie wyko- 
nywany. 


Rozkaz procesora składa się z częś- 
ci operacyjnej, wskazującej, jaką ope 
rację ma wykonać procesor oraz z 
części adresowej, wskazującej adres 
komórki pamięci (adresy komórek pa- 
mięci), w których, zawarte są argumen- 
ty tej operacji. 

Do momentu sformułowania kon- 
cepcji Eckerta i von Neumanna do bu- 
dowy komputerów wykorzystywano 
próżniowe lampy elektronowe z 
trzema elektrodami: katodą, anodą i 
siatką, lampy zwane triodami, o zdol- 
nościach wzmacniających. Jako ele- 
menty logiki wykorzystywano przeka- 
źniki elektromagnetyczne Pamięć 
zewnętrzną stanowiły wspomniane 
wcześniej karty dziurkowane (perfo- 
rowane), na których informacje kodo- 
wane są za pomocą tzw. kodu Hollerit- 
ha. Konieczne stało się konstrukcyjne 
rozwiązanie „dużej" pamięci operacyj- 
nej, o pojemności kilku tysięcy komó- 
rek. 

W komputerze EDVAC, uruchomio 
nym w 1 950 r.. do budowy pamięci wy- 
korzystano rtęciowe linie opóźniają- 
ce. Odznaczały się dużą szybkością 
działania, ale małą pojemnością i były 
szkodliwe dla ludzi, zostały więc szybko 
wyparte. 

Rozpoczęła się era panowania tech- 
niki komputerowej. Opracowywano 
nowe technologie i konstrukcje, poszu- 
kiwano nowych rozwiązań funkcjonal- 
nych. 

Powstały trzy podstawowe typy pa- 
mięci elektromechanicznych: pa- 
mięć bębnowa, pamięć taśmowa i pa- 
mięć dyskowa. 

W pamięci bębnowej głowice mag- 
netyczne zapisują (przez lokalne na- 
magnesowanie) lub odczytują infor- 
macje z wirującego bębna, na który 
naniesiony jest materiał magnetyczny. 
Z uwagi na konieczność ustawienia 
głowic na odpowiedni obszar bębna 
pamięć bębnowa jest powolna, ale ma 
ważną zaletę — dużą pojemność. Czas 
dostępu do informacji zazwyczaj wy- 
nosi kilkadziesiąt ms. Pamięć umożli- 
wia zapisanie na jednym bębnie do mi- 
liona bitów (bit — binary digit — naj- 
mniejsza jednostka do reprezentacji 
danych dwuwartościowych, czyli zer 
lub jedynek liczbowego systemu dwój- 
kowego). 

dokończenie na str. 4 
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dokończenie ze str. 3 

Pamięci na taśmie magnetycznej 

stosowane są do dziś, ze względu na 
znaczną pojemność, mimo stosunko- 
wo długiego czasu dostępu do po- 
trzebnej informacji. 

Pamięci dyskowe, wykorzystujące 
lokalny zapis magnetyczny, znalazły 
trwałe zastosowanie w komputerach, 
ze względu na dużą pojemność, rzędu 
miliardów bitów w konstrukcjach wie- 
lodyskowych. Czas dostępu do infor- 
macji wynosi kilkanaście ms. 

Wymienione pamięci elektromecha- 
niczne stosowane są jako masowe 
pamięci zewnętrzne. 

Bardzo duży wpływ na rozwój 
techniki komputerowej wywarły rdze- 
niowe pamięci ferrytowe. Charakte- 
ryzowały się one dużą szybkością 
odczytu, rzędu kilku mikrosekund 
(1 /Lis = 0,000001 s ). Były one wyko- 
rzystywane jako pamięci wewnętrzne, 
wyparte zostały dopiero przez pamięci 
półprzewodnikowe. 

Odkrycie w 1948 r. przez W. Sho- 
kleya, J. Bardeena i W. Brattaina no- 
wego, półprzewodnikowego elementu 
elektronicznego, tranzystora, który 
zastąpił jedyny dotąd element wzmac- 
niający — lampę elektronową, to po- 
czątek ery tranzystorowej w elektroni- 
ce i początek II generacji techniki 
komputerowej. 

Zanim przejdziemy dalej, kilka zdań 
o innych konstrukcjach komputero- 
wych I generacji. 

W 1951 r. firma UNIVAC polecała 
swój komputer UNIVAC— 1, zbudowa- 
ny z 5000 lamp i z 1 12 rtęciowych linii 
opóźniających, mieszczących 1000 
liczb dwunastocyfrowych. Wykonywał 
on 45 rozkazów z wyróżnioną częścią 
operacyjną i częścią adresową (trzy- 


cyfrową). Do komunikacji operatora z 
systemem po raz pierwszy wykorzy- 
stano elektryczną maszynę z klawia- 
turą, natomiast do zapamiętywania du- 
żych zbiorów danych wykorzystywano 
taśmę magnetyczną. Operację doda- 
wania dwóch liczb dwunastocyfrowych 
UNIVAC-1 wykonywał w 0,5 ms, ope- 
rację mnożenia w 2.5 ms. Już w rok pó- 
źniej w komputerze UNIVAC 1103 jako 
pamięć operacyjną zastosowano rdze- 
nie magnetyczne. Zwiększyło to pięć- 
dziesięciokrotnie szybkość UNIVAC 
1103 w stosunku doUNIVAC-1. 

W 1 952 r. firma IBM weszła na rynek 
komputerowy z udaną (nie pierwszą) 
konstrukcją, komputerem 701. Zawie- 
rał on 4000 lamp i 12 000 diod germa- 
nowych. Jako pamięć operacyjną za- 
stosowano 72 pamiętające lampy ka- 
todowe, o czasie dostępu 12 jjs. W 
komputerze zastosowano kilka urzą- 
dzeń wejścia — wyjścia systemu: czyt- 
nik i dziurkarkę kart. drukarkę o szyb- 
kości 150 wierszy/minutę, taśmę 
magnetyczną o gęstości zapisu 1 00 bi- 
tów/cal. IBM 701 wykonywał operacje 
na danych 36-bitowych, operacja do- 
dania dwóch liczb trwała 62,5 /us, ope- 
racja mnożenia 500 ns. Kolejne mode- 
le firmy IBM 702, 704, 705 miały pa- 
mięci rdzeniowe. W następnych mode- 
lach RAMAC 305 i 650 jako masową 
pamięć zewnętrzną zastosowano pa- 
mięci dyskowe, panele złożone z 50 
dysków. Na każdym z dysków znajdo- 
wało się 100 ścieżek, o pojemności 
10 000 znaków każda. Pamięć wyróż- 
niała się więc olbrzymią pojemnością. 

Przedstawiony wyżej etap rozwoju 
techniki komputerowej charakteryzo- 
wał się pogonią za parametrami tech- 
nicznymi. Niewiele uwagi poświęcono 
systemom operacyjnym i językom pro- 
gramowania, sterowanie pracą kompu- 


tera oznaczało żmudne pisanie pro- 
gramów w jęz /ku procesora. Jako 
pierwsza tymi problemami zajęła się 
firma UNIVAC. Komputer UNIVAC 
1 1 03 wyposażon y został w interpreter, 
program tłumacz ący na język proceso- 
ra kolejne wiersz 3 programu. Po prze- 
tłumaczeniu danego wiersza procesor 
komputera wykonywał odpowiednie 
rozkazy, następnie czekał na przetłu- 
maczenie kolejn& jo wiersza programu. 

W firmie UNIVAC uruchomiono rów- 
nież program translatora, tłumaczą- 
cego na język procesora od razu cały 
program. Po przetłumaczeniu procesor 
wykonywał wszystkie rozkazy. Taka 
metoda nazywana jest kompilacją, a 
program kompilatorem. 

Bardzo ważną sprawą jest organiza- 
cja pracy systemu komputerowego 
czyli współdziałania wszystkich ele- 
mentów. Zbiór programów obejmują- 
cych te zagadnienia nazywa się sy- 
stemem operacyjnym. 

Kolejnym problemem są języki pro- 
gramowania, umożliwiające pisanie 
programów w języ <u zbliżonym do 
ludzkiego, możliwie dalekim od języka 
procesora. Dany j ęzyk jest zazwyczaj 
przeznaczony do rozwiązywania prob- 
lemów z pewnej dziedziny. Wśród języ- 
ków programowania współcześnie 
„panujących" najważniejsze to: AL- 
GOL, do opisu algorytmów obliczeń; 
FORTRAN, do zastosowań naukowo- 
-technicznych; COBOL, do przetwa- 
rzania dużej liczby danych; BASIC, do 
rozwiązywania próbie "nów naukowo- 
-technicznych; C, do prac. nad syste- 
mami operacyjnymi; PASCAL, do ope- 
racji na złożonych struł- :lurach danych; 
LOGO, do nauki pods*aw informatyki; 
PROLOG, do programowania logi- 
cznego i oprogramowania robotów. 


JANUSZ MILLER 
SHARP PC- 1500 
ELIPSY 




10*BEEP 10, 100,100 
20* “A U *CLEAR iUSING łRADIAN 
30IINPUT "LICZBA ELIPS ? N-*|N*N- 
ABS NiN-INT N*JF N<3QOTO 10 
40* INPUT U A+B*rt ? n-“jntn«A0S MIIF 
l>0OR n>90GOTO 10 
50 * F® JT/20 : D®n/ <. N+ 1 > * S*JT/20 
70* FOR K-1TO N 
80*C®C+i*JF C>3LET C-C-3 
30 » A=f1-K*D ł B-K*D * SR APH 


100JCOLOR CfLINE -<0*0>-U 10, 0), 8* 
SOR6N 

1101 LINĘ -<0,0>-<; A,0),9*X2*A*Y2"0*T* 
0 

120* FOR L-0TO 33 
130* Xl»X2* Y1-Y2* T-T+S 
140»X2»A*COS T*Y2«B*SIN T 
150*LINE -0*1, Yi>-<X2, Y2>, 1 
160*NEXT L 

170*LINE -<X2 ? Y2>-<0,0>,9 
1B0* TEXT *NEXT K 
130* END 
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Wspomniane problemy oprogramo- 
wania większe odzwierciedlenie zna- 
lazły w komputerze UNIVAC III. 

Opanowanie technologii tranzysto- 
rów, zwłaszcza tranzystorów bipolar- 
nych, to podstawa konstrukcji kompu- 
terów II generacji. Tranzystory unipo- 
larne, inaczej połowę, konstruowane 
na strukturze MOS (Metal — Oxide — 
Semiconductor), wykorzystywane były 
tylko w układach peryferyjnych sy- 
stemów komputerowych. Technologia 
MOS nabrała znaczenia dopiero w la- 
tach siedemdziesiątych. 

W latach sześćdziesiątych poczy- 
niono kolejny krok, na jednym kryształ- 
ku półprzewodnika umieszczono wię- 
cej niż jeden element. Zaczęto kon- 
struować układy scalone, zawierające 
wiele elementów — tranzystorów, diod, 
rezystorów itp. 

Układy scalone, w zależności od 
liczby elementów w strukturze pół- 
przewodnika, można podzielić m.in. na: 
małej skali integracji SSI (Smali Scalę 
of Integration) — zawierające do 100 
tranzystorów w swojej strukturze i 
średniej skali integracji MSI (Medium 
Scalę of Integration) — zawierające do 
1 000 tranzystorów. 

Układy scalone SSI i MSI posłużyły 
do konstrukcji komputerów III genera- 
cji. Wymienione układy scalone wyko- 
nywane były głównie technologiami 


wykorzystującymi tranzystory bipolar- 
ne Z technologii tych największe zna- 
czenie osiągnęła TTL (Transistor — 
Transistor Logic), która króluje na ryn- 
ku elektronicznym do dziś. 

W związku z wprowadzeniem ele- 
mentów półprzewodnikowych, za- 
pewniających wzrost szybkości działa- 
nia i niezawodność, zmniejszenie po- 
boru mocy oraz spadek kosztów wyko- 
nania oraz w związku z pracami nad 
oprogramowaniem, sprzęt komputero- 
wy stał się bardziej dostępny, pow- 
szechniejszy, Bardzo popularnym był 
komputer IBM 1 360 oraz najszybszy do 
1979 r. komputer ILLIAC IV, wykonują- 
cy 200 min rozkazów/sekundę(!). 

Na rynku komputerowym zaczęły 
panować dwie tendencje. Pierwsza z 
nich to upowszechnienie szybkich i du- 
żych komputerów. Druga to miniatury- 
zacja systemów komputerowych, przy 
zachowaniu parametrów technicznych 
dużych systemów. 

W 1970 r. firma Digital Equipment 
Corporation wprowadziła PDP-11, 
komputer o bardzo oryginalnej archi- 
tekturze. Wszystkie elementy tego 
komputera: procesor, pamięć i urzą- 
dzenia wejścia-wyjścia, dołączone były 
do jednej wspólnej szyny. 

W tym czasie opanowano technolo- 
gie wytwarzania układów scalonych 
dużej skali integracji LSI (Large Scalę 


of Integration), zawierających do 
10 000 tranzystorów w jednej struktu- 
rze półprzewodnikowej. Rozpoczęła się 
era dominacji technologii MOS, zwła- 
szcza PMOS, NMOS, CMOS a ostatnio 
CHMOS. W 1971 r. zaprojektowano i 
wykonano pierwszy mikroprocesor 
Rozpoczęła się IV generacja kompute- 
rów. Układy LSI to na pewne najwięk- 
sze osiągnięcie ejektroniki, od czasu 
wynalezienia tranzystora. 

Lata osiemdziesiąte to nov»e układy 
scalone, VLSI (Very Large Scalę of In- 
tegration) o olbrzymich możliwościach. 
Przykładowo koprocesor arytmetyczny 
firmy MOTOROLA MC 68881, wyko- 
nany w technologii CHMOS, przezna- 
czony do współpracy z 32 bitowym 
mikroprocesorem M 68020. zawiera 
155 000 tranzystorów w strukturze o 
wymiarach 27 na 33 mm. 

Tak w skrócie przeszliśmy do kom- 
puterów nam współczesnych. Reasu- 
mując — komputer to: architextura i jej 
elementy składowe, czyli hardware: 
system operacyjny i języki programo- 
wania, interpretery i kompilatory, czyli 
software. W następnych numer ach zaj- 
miemy się tym pierwszym, c;:yli ele- 
mentami elektronicznymi, z których 
zbudowane są komputery. 

Jacek WO JTALA 



POSZERZANIE TABLICY ZMIENNYCH - 
Spectrum 48K 


Jak 2-wymiarową tablicę zmiennych tek- 
stowych nS, w której przechowujesz np. 
pewną liczbę nazwisk, powiększyć o kilka 
zmiennych? Program wczyta zmienną (linia 
9900), ustali jej wymiary (linie 9902— 9910), 
zapyta o liczbę dodatkowych nazwisk (linie 
9912—9916), powiększy odpowiednio tabli- 
cę (linie 9918—9932) oraz nagra no- 
wą tablicę na taśmę (linia 9936). Aby przys- 
pieszyć te operacje nie używamy pętli 
FOR— NEXT. Poniższą sekwencję możesz 
stosować jako część własnych, większych 
baz danych. 


SPECTRUM 

9900 LOAD "nazwiska" DATA n*<) 

9902 LET n*<lł«nS(i> 

9904 RANDOMIZE FN p <23629) 

9906 LET wymi ar 1* FN p < FN p (23670) -4) 
9908 LET wymiar2* FN p < FN p <23670) -2) 
9910 INPUT "ile nazwisk extra? "jil* 
9912 IF ile<0 OR INT ileOile THEN >30T0 
9910 

9914 IF NOT ile THEN STOP 
9916 DIM r* < wymi ar 1, wymi ar2> 

9918 LET a*l 

9920 IF a<=wymiarl THEN LET r*(a)=n!|(a) 

i LET a=a+l: GOTO 9920 

9922 DIM n* (wymiar 1+i le, wymi ar 2) 

9924 LET a=l 

9926 IF a<=wymiarl THEN LET n*(a)=r*(a) 
l LET a*a+l: GOTO 9926 
9928 LET a*l 

9930 IF aOile THEN INPUT "nazwisko "*< 
wymiarl+a), LINĘ n* (wymi ar l+a> : LET a x a 
+1: GOTO 9930 
9932 DIM r* < 1 ) 

9934 SAVE "nazwiska" DATA n*() 

9940 DEF FN p(a)*PEEK a+256* PEEK <a»-l> 


IKS — strona 5 





SPECTRUM 


REM MIGACZ 
POKE 229 12 , 14,3 

REM LOSOWAŃ IE=KTO ZACZYNA 
IF RND <0.5 THEN GO TO 360 
PRINT AT 16,0, 

"ILE JAB£EK ZABIERASZ ? 

LET f a CO DE INKEY $ -48 
PAUSE 12: BEEP 0.01, RND *30 

IF r< 1 OR f >3 
THEN GO TO 250 
PRINT r 

PRINT AT 18,23; " " 

LET P = P - r 
PRINT AT 9,2; 

" ZuSTAEO " ; p , " " 

GO SUB 840 

IF p<l THEN GO TO 510 

REM KOMPUTER MYŚLI 
LET n = INT Cp/4)*4 
IF pan THEN LET 
fal NT (RND *3+ 1) 

IF por. THEN LET fsp-n 
LET psp-r 
PAUSE 60 
BEEP 1 , 10*.* 

PRINT AT 13,5; 

"SPECTRUM ZABIERA " ; f 
PRINT AT 16,23;" " 

GO SUB 540 
PRINT AT 9,2; 

" ZuST A£0 " ; p ; " " 

IF p<l THEN GO TO 480 
GO TO 240 

PRINT FLASH 1 ; AT 20,2; 

UYGRA£ KOMPUTER ! ! ! 
BEEP 1,20: BEEP 2,3 
PAUSE 100: GO TO 10 
PRINT FLASH 1;AT 20,2; 

TY UYGRA£ES ! ! ! 

BEEP .1,20: BEEP 2,20 
PAUSE 2O0: GO TO 10 
FOR 1=1 TO f 

PR INT AT 12, p; "XXX" ( TO f) 
BEEP .l,10*r 

PRINT AT 12, p," "( TO f) 

PAUSE 10 
NEXT I. 

RETURN 

5AUE " ZAB IERANKA " LINĘ 10 


„Kto zabierze ostatnie jabłko ten wy- 
grał ” Twoim przeciwnikiem jest SPEC- 
TRUM. Znajdujecie jabłka i bierzecie je na 
zmianę. Ostatnie jabłko jest najsmaczniej- 
sze. Czy komputer zawsze musi je zabrać? 
Spróbuj odkryć „system” i zacznij wygry- 
wać. W trakcie zastanawiania się słuchasz 
muzyki aleatorycznej (przypadkowej — li- 
nia 260). Jeżeli chcesz zawsze zaczynać 
grę jako pierwszy skasuj linię 230. 

Powodzenia i... smacznego! 


380 

390 

400 

410 

420 


10 BORDER 0; PAPER 0: INK 7 

30 PRINT " KTO ZABIERZE OSTAT 
NIE JAB£KO" 

40 PRINT 

60 PRINT " TEN WYGRA ! " 

60 PRINT 

70 PRINT " -WOLNO BRAĆ 1,2 LUB 
3 JABCKA . " 

30 PRINT " 


90 

100 REM LOSOWANIE JABfiEK 
110 LET p as INT (RND *14) +11 
120 

130 PRINT AT 8 . 13, " JAB£EK ";p 
140 

150 PRINT AT 11,0; ' 

" ( TO p) 

160 

170 PRINT AT 12 , 0, "000000090000 
0000000000000" ( TO p) 

ISO 
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SHARP 


Nasz program nazwaliśmy „Czy- 
tanie myśli", gdyż może on sprawiać 
takie wrażenie. 

Aby posługiwać się „odczytywa- 
czem myśli”, wystarczy znajomość... 
alfabetu: ściślej znajomość KOLEJ- 
NOŚCI LITER ALFABETU ŁACIŃ- 
SKIEGO. 

Przykładowo na pytanie: 

PRZED C ?T=1 N=0 
należy odpowiedzieć „TAK”, czyli 
wypalcować 1, gdy pomyślana literę 
jest A lub B. 

Jeżeli zaś pomyślanę literę jest 

C,D,E Z, to należy odpowiedzieć 

„NIE”, czyli 0. Uwaga: litera C NIE 
JEST PRZED C. 

Po załadowaniu programu po- 
myślmy jakiś wyraz. Na poczętek 
krótki: UL, LAS, KOT. 

Program wywołuje RUN „X”. Od 
tego momentu bardzo uważnie od- 
powiadajmy na pytania. (Nasz Jeden 
błęd psuje zabawę). 

Gdy na pytanie 

OSTATNIA T=1 N=0 
czyli „czy to była OSTATNIA litera 
pomyślanego wyrazu" — gdy na py- 
tanie odpowiemy „TAK” (1), wów- 
czas komputer „odczyta pomyślany 
wyraz". 


CZYTANIE... MYŚLI. Wykorzystuje 
Się tu zasadę DYCHOTOMII (po- 
działu na dwie przeciwstawne częś- 
ci). Najpierw całość alfabetu dzieli- 
my na pół. Wskazanę przez odpo- 
wiedź połówkę dzielimy na ćwiartki. 
Potem na „ósemki, szesnastki I trzy- 
dzlestkldwójkl”. 

Ponieważ 2X2X2X2X2 = 32, 
zaś liter jest 26, zatem większość li- 
ter „odczytujemy" po PIĘCIU odpo- 
wiedziach, niektóre zaś po CZTE- 
RECH. 

Życzymy dobrej zabawyl 


JANUSZ ni LLER 
SHARP PC-1500 


CZYTANIE NYSLI 


600: "C":CLS 
610: WA I T 0: PRINT " 

przed " ; z$; "? 

T=1 N=0 " 

620: CURSOR 16: 
INPUT " " j D: 
CLS : RETURN 
630: "D" : US INS 
640: Z$-"N" : GOSUB " 
C" : IF D=0GOTO 
820 

650: Z$="H" '• GOSUB " 
C": IF D=0GOTO 
250 

660: Z$="E": GOSUB " 
C": IF D=0GOTO 
2 20 

620: ZS="C" : GOSUB “ 
C" : IF D=0GOTO 
200 

680: Z$="B" : GOSUB " 
C": IF D=0LET X 
$="B" : RETURN 
690: X$= I, A" : RETURN 
200: Z$="D" : GOSUB " 

■ C": IF D=1LET X 
S="C'' : RETURN 
210: X$="D" : RETURN 
220: ZS="G": GOSUB " 
C " : 1 F D=0LET X 
$=" G" : RETURN 
230: Z$="F" : GOSUB " 
C": IF D=0LET X 
$="F" : RETURN 
240: X$="E" : RETURN 
250: Z$="K": GOSUB " 
C": IF D=0GOTO 
290 

260: Z$=" J" : GOSUB " 
C": IF D=0LET X 
$=" J" : RETURN 
220: ZS=" I " : GOSUB “ 
C" : IF D=0LET X 
$=" I " : RETURN 
280: X$= "H" : RETURN 
290 : Z$= " M ": GOSUB " 
C": IF D=0LET X 
$="N" : RETURN 


800: ZS= " L " : GOSUB " 

' C": IF O=0LET X 
S="L":RETURN 
810: XS="K'" : RETURN 
820: ZS="T" : GOSUB " 
C" : IF D=0GOTU 
900 

830: 2S="Q" : GOSUB " 

C " : I F D=0GOTO 
820 

840: ZS="P": GOSUB " 
C": IF D=0LET X 
$="P" : RETURN 
850: Z$="0" : GOSUB " 
C": IF D=0LET X 
♦="0" : RETURN 
860: XS="N" : RETURN 
820: Z$="S": GOSUB " 
C" : IF D=0LET X 
S="S": RETURN 
880: Z$="R": GOSUB " 
C": IF D=0LET X , 
S="R " : RETURN 
890: X$="Q" : RETURN 
900: Z$="W": GOSUB " 
C": IF D=0GOTO 
940 

910: ZS="U" : GOSUB " 
C": IF D=0LET X 
$="U“: RETURN 
920: ZS="U" : GOSUB " 
C": IF D=0LET X 
S=‘'U" : RETURN 
930: X$=" T" : RETURN 
940: ZS="Y": GOSJJB " 
C": IF D=0GOTO 
920 

950: ZS="X”: GOSUB “ 
C": IF O=0LET X 
S="X" : RETURN 
960: XS=‘'W": RETURN 
920: ZS="Z": GOSUB " 
C": IF D=0LET X 
S=”Z" : RETURN 
980: X$=" Y" : RETURN 
1000: "X":CLEAR : 
LIAIT : CLS 
1010: K=K+1: WAI T : 
PRINT "LITER 

a";k 

1020: GOSUB "D";Y$ 
=Y$+X$ 

1030: INPUT "OSTAT 
NIA? T=1 N=0 
" ! D: IF D=0 
GOTO 1010 
1040: LIAI T ■ : PRI NT 
"KRYPT0NIH 11 
J YS: END 
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Sztuki i sztuczki 


Zmienne systemowe 
ROM SPECTRUM 


Dla tych, którzy poznali już BASIC, 
proponujemy spojrzenie w te sfery pa- 
mięci, które pozwolą wszechstronniej 
wykorzystać możliwości SPECTRUM. 
Dobra znajomość zmiennych syste- 
mowych jest wygodna dla programisty; 
ułatwia pracę i pozwala głębiej poznać 
system. Większość sztuk i sztuczek, ja- 
kie można wydobyć z tego obszaru, 
postaramy się przedstawić w kilku naj- 
bliższych numerach. 

Klawiatura 

KSTATE 23552..9 
LAST- K 23560 
REPDEL 23561 
REPPER 23562 
PIP 23009 

Co 20 ms procedura przerwań ma- 
skowalnych o adresie 56 przeszukuje 
klawiaturę z tym samym celem — od- 
szukania przyciśniętego klawisza. W 
przypadku pozytywnym dodatkowo na- 
stępuje dekodowanie na system ASCII. 
Aktualny stan klawiatury zostaje umie- 
szczony w grupie bajtów KSTATE, któ- 
rą można podzielić na dwie części po 4 
bajty. Oznaczmy adresy 23552-5, jako 
B1.B2, B3, B4 zaś adresy 23556..9, ja- 
ko A1.A2.A3.A4. 

Wciskamy klawisz, Reaguje grupa 
druga (A 1 ...A4). Bajt A 1 , który miał do- 
tąd wartość 255, co oznacza, że żaden 
klawisz nie był wciśnięty, szybko reagu- 
je kodem naszego guzika. Przy czym 
jest to kod cyfry albo dużej litery. Nie 
ma więc znaczenia dla A 1, czy przy- 
ciśnięto coś z CAPS SHIFT, czy SYM- 
BOL SHIFT. Wyjątkiem jest reakcja na 
oba shifty (kod 14). Z chwilą przyciś- 
nięcia pary innych klawiszy (oprócz 
obu shiftów) ładowany jest kod pier- 
wszego wykrytego. 

Natomiast A4 pokazuje już bardziej 
sprecyzowany kod ASCII. Uwzględnia, 
czy naciśnięto guzik z CAPS, czy 
SYMBOL SHIFT. Teraz wystarczy już 
tylko skupić się nad długością trwania 
nacisku. Z chwilą wykrycia klawisza w 
A3 ładuje się wartość zmiennej syste- 
mowej REPDEL. Jest to czas mierzony 
w 50. częściach sekundy, po tym 
czasie klawisz zostanie uznany za 


przyciśnięty powtórnie. Standardowo 
ma ona wartość 35, czyli ok. 0,5 s. Z 
każdym przerwaniem A3 jest dekre- 
mentowane (zmniejszane o 1 ), aż do 
zera. Komputer wie wtedy, że dalej 
trzymamy palec na klawiszu. Jeśli je- 
steśmy w edytorze, nastąpi drugi wyd- 
ruk znaku o kodzie A4 dla trybu małych 
liter (kursor L) lub o kodzie A 1 dla trybu 
dużych liter (kursor C). O tym, że kom- 
puter „czuje" nacisk palca, niech 
świadczy poniższy test: 


10 POKE 23562, 1 

20 IF NOT LEN INKEYS THEN GOTO 20 

30 IF LEN INKEY* THEN GOTO 30 

40 IF PEEK 23558 +3 >» PEEK 23361 T 

HEN PRINT "krotko” l STOP 

30 IF PEEK 23338 +11 >- PEEK 23361 

THEN PRINT "*r«dnio“i STOP 

60 PRINT "długo” 


Kontynuując, dalsze samopowtarza- 
nie zależy już od zawartości zmiennej 
systemowej REPPER. Decyduje ona o 
odstępie czasowym, w jakim ma po- 
wtarzać się uznawanie trzymanego 
klawisza za „ponownie wciśnięty" po 
wyzerowaniu zawartości REPDEL w 
A3. Normalnie jest tam wartość 5, co 
oznacza 0.1 s. Samopowtarzanie od- 
bywa się na tej samej zasadzie co 
wcześniej, czyli na dekrementacji. Jeśli 
teraz A3 wyzeruje się, zawartość REP- 
PER ładowana jest tam znowu itd. Gdy 
podczas tego procesu przyciśniemy 
inny klawisz, system zignoruje go, chy- 
ba że puścimy ten pierwszy. Wtedy na- 
stąpi przerzut na komórki BI ... B4 i cały 
omówiony proces powtarza się. W Al 
pojawi się 255, zaś precyzyjny kod 
ostatnio przyciskanego klawisza zosta- 
je umieszczony w zmiennej LAST — K i 
nie zmieniany, póki nie zostanie wykry- 
ty nowy klawisz. 

Upraszczając, pierwsze powtórzenie 
guzika nastąpi po czasie zawartym w 
REPDEL, a każde następne po czasie 
zawartym w REPPER. 

Należy podkreślić, że guzik naciśnię- 
ty z CAPS SHIFT lub SYMBOL SHIFT 
jest traktowany jako pojedynczy. Pozo- 
staje do wyjaśnienia zawartość A2 lub 
B2. Jeśli nie naruszamy klawiatury, są 
tam zera, lecz po wykryciu nacisku po- 
jawia się tam wartość 5 dekremento- 


wana za każdym następnym przerwa- 
niem. W praktyce oznacza to, że kom- 
puter 5 razy musi mieć potwierdzenie 
nacisku (0,1 $), i dopiero wówczas za- 
reaguje dekodowaniem klawisza. Służ- 
bista? Nie tylko. Otóż zwarcie styków 
klawiatury powoduje ich nieznaczne 
drgania, co mogłoby spowodować błę- 
dy w wykryciu klawisza. Spokojne od- 
czekanie przez system daje większą 
pewność użytkownikowi. 

Poza otrzymywaniem szeregu infor- 
macji o stanie klawiatury, w zasadzie 
zmienna KSTATE nie jest wykorzysty- 
wana do innych celów.. Zmiana war- 
tości któregokolwiek bajtu nic nie - da, 
gdyż uaktualnianie danych następuje 
piorunująco szybko. Zmieniać możemy 
wartości REPPER i REPDEL, modyfiku- 
jąc w ten sposób parametry samopo- 
wtarzania. Dobre efekty dla zaprzyja- 
źnionego już dobrze z klawiaturą daje: 
POKE 23562,1 
P0KE 23561 ,30 
POKE 23609,40 

Ten ostatni adres (23609), to zmien- 
na systemowa PIP. Decyduje ona o 
długości dźwięku wydanego z głośnika 
przy nacisku na klawisz. Początkowo 
zawiera 0, co objawia się cichym trza- 
skiem (ang. click). Podwyższenie o 1 
powoduje zwiększenie czasu trwania 
dźwięku o ok. 1 /765 s. 

Na zakończenie kilka sztuczek. Po- 
niższy program przełączający wydruk 
tekstu z ekranu na drukarkę i odwrotnie 
jest pretekstem do rezygnacji z dwu- 
znacznej funkcji INKEY$: 

10 PRINT "Drukarka / Ekran" 

13 PAUSE li PAU8E O I 
20 LET a- PEEK 23556 
30 IF a- CODĘ "D" THEN LET f«3 
40 IF a- CODĘ "E" THE* LET a-2 
50 PRINT #*|"t«k*t" 

Dla programistów zniechęconych 
niedostatkiem instrukcji PAUSE O ma- 
my dobrą radę. Sekwencja: 

10 PAUSE O 

20 IF PEEK 23558 < 35 THEN GOTO 
10 

działa znacznie lepiej. 

Brak reakcji pojedynczych klawiszy 
SHIFT również można ominąć. Poniż- 
szy program zakończy się. jeśli rze- 
czywiście przyciśniemy dowolny kla- 
wisz: 

10 PRINT «1|AT 1, 8 j "dowolny klawlaz 
20 LET ł* IN 234 

30 IF a* 253 OR a- 191 THEN GOTO 20 
40 STOP 

W najbliższym numerze trochę 
szczegółów o pamięci RAM. 

Krzysztof MAMCARZ 
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SPECTRUM 


MOŻNA INACZEJ 

Chciałbym podzielić się z Czytelnikami „IKS-a” kil- 
koma uwagami dotyczącymi przedstawionych w nu- 
merze 1/86 programów „Wykresy” i „Mapa Polski”. 

Wartość dydaktyczna programu „Wykresy” jest 
znacznie obniżona przez obarczenie użytkownika ko- 
niecznością podania wartości maksymalnej i mini- 
malnej funkcji w rozpatrywanym przedziale. Wartości 
te — niezbędne do prawidłowego wyrysowania układu 
współrzędnych i opisu osi — mogą i muszą być obli- 
czone przez komputer, na podstawie przepisu funkcji i 
przedziału zmienności zmiennej niezależnej x. Obli- 
czenie tych wartości dla wielu niebanalnych funkcji 
nie jest rzeczą prostą, dlatego też zadanie to powinna 
wykonać tpaszyna. Podanie błędnego zakresu zmien- 
ności wartości funkcji powoduje całkowite zniekształ- 
cenie wykresu (dla przykładu proszę sprawdzić: 
y = SIN X, XMIN = 0, XMAX = 5, YMIN = 0, 
YMAX = 2). 

Przedstawiony program nie sporządzi wykresu 
funkcji stałej y(x) = a. Funkcja stała, aczkolwiek 
bardzo prosta, musi być przez program akceptowana. 
Program nie poradzi sobie również z funkcjami nie- 
ciągłymi w zadanym przedziale, np. y(x) = l/x czy 
y(x) = (SIN X). 

W przypadku podania przedziału zmienności argu- 
mentu x mniejszego od 0.5 np. (0.1, 0.2) wygenerowany 
opis osi będzie błędny. Prawidłowe działanie progra- 
mu dla małych długości przedziału jest niezbędne, po- 
nieważ umożliwia oglądanie wycinków wykresu funk- 
cji. 

W programie nie są sprawdzane dane wejściowe 
XMIN, XMAX, YMIN, YMAX (powinny to być liczby). 
Bardzo łatwo można więc doprowadzić do wystąpienia 
błędu, podając — omyłkowo lub świadomie — wiel- 
kości nie będące liczbami. 

Sprawdzenie warunku w instrukcji 460 

IF CODĘ Z% = 84 OR CODĘ Z$ = 116... 

można uprościć pisząc: 

IF Z$ = „T” OR Z$ = „t”... 

Ponadto należałoby najpierw sprawdzić, czy wpro- 
wadzony znak jest jednym ze znaków T, t, N, n. Mil- 
czące założenie, że wszystkie znaki różne od T i t są 
równoznaczne z N/n jest błędem, gdyż prawdopodo- 
bieństwo błędnego napisania znaku N lub n jest równe 
prawdopodobieństwu błędnego wpisania znaku T 
lub t. 

W programie „Mapa Polski” do wykreślenia kontu- 
rów mapy wielokrotnie użyto instrukcji DRAW z 
trzema parametrami (łuki), co znacznie wydłuża czas 
rysowania choć program czyni czytelnym. Poniżej 
przedstawiam swoją wersję rysowania mapy, która — 
choć trochę dłuższa — jest kilkadziesiąt razy szybsza 
(czas rysowania mniejszy od 0.5 s). 

Ponadto w obydwu programach po zakończeniu ob- 
liczeń nie przywrócono „warunków normalnych”, tj. 
BORDER 7 : PAPER 7 : INKO : CLS. Pozostawienie po 
wryjściu z progrjjmt^&kich warunków powinno być re- 
gułą, aby nie powTIflować ewentualnych zakłóceń w 
pracy programu następnego użytkownika. 


i 



5000 : 
5010 

CL*™: PLUM 

* li£o . 160 l 

2' 

, -3 : 

DRRU 3,3: 

DRRU 9,-5: 

DRRU i 


-26 : DRfiU i, -16: DRRU -4,-2: DR 
RU -6.-8. DRRU 8,-5 
5020 DRRU -2,-8: DRRU 3,-10: DRR 

U 3,-2: DRRU 0,-2: DRRU 5,-5: DR 
RU —3 , —2 : DRRU 3 , —4 ; DRMU — 1 , — 5 : 
DRRU -6.-1: DRRU -15,-17: DRRU 

2.-10: DRRU 3,-2: DRRU -2,-2 
5030 DRRU -12,4. DRRU -1,2. DRRU 
-12,1: DRRU -3,-3: DRRU -3,2: D 

RRU -5,0:’ DRRU -3,-2: DRRU -1,-4 

: DRRU -2,3: DRRU -2.-2: DRRU 0, 

5: DRRU -4,0: DRRU -2,3 
5040 DRRU -3,-2. DRRU -1,-3: DRh 
U -6 . 0 . DRRU -8,11: DRRU -3,4: D 

RRU -4,-2: DRRU -4,5: DRfiU 3,2: 
DRRU -1.2: DRRU -8,1 
5050 DRRU -4.4: DRRU -2.-1 DRRU 

3.-7: DRRU -6.-3: DRRU -6 . 10 . D 
RRU 4.3: DRRU -1.2: DRRU -Ś.-l: 


DRRU -1.2 DRRU -3,0: DRfiU 
DRRU -3,-1: DRRU -1,7 
5060 DRRU -3,0: DRRU -1,-4 
-6,1. DRRU 2,3: DRRU 2,11: 
-5.3: DRRU 1,1. DRRU -3,4. 


- 2 , 2 ; 

DRRU 

DRRU 

DRRU 

DRRU 


3,4: DRRU 0,8. DRRU -3,. 

0,6: DRRU 1,0: DRRU -2,3 
5070 DRRU -7,6: DRRU 5,6: DRRU - 

2,20. DRRU 23,9: DRRU 8,5: DRRU 

6,1: DRRU 6,4: DRRU 16 , 3 . DRRU 8 

, -1 

5080 DRRU 8,-6: DRRU -2,-2: DRRU 

-4,4 DRRU 1,-6 DRRU 5.-3: DRh 
U 5,1. DRRU 5.3. DRRU 12.-1 
5090 RETURN 


Program „ Wykresy " 

na stronie 70 


Janusz MORBITZER 
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5 BEEP .2,15: PAUSE 30: BORDE 
R 7: PRPER 7: INK 0: CLS 

7 POKE 23609 , 50 

15 CLS PRINT BRIGHT 1; AT 8,8 

, "PROGRAM ""Funkcja : PRINT BR 

IGhT l ; AT 13,5, "Autor : Janusz MO 
RB ITZER" PRINT AT 16,11; BRIGHT 
1 ; " U3P -KRAKOU" 

20 DIM X (250) : DIM f (250) : DIM 
P (2) 

22 GO SUB 600: CLS : PRINT AT 
8 ,3; "Próg ram “"Funkcja"" realizu 
..e". PRINT AT 9,6, "wydruk funkCj 
i y s f ( x ) " : PRINT AT 10,8; "w prze 
dziale < a . b > " : PRINT AT 11,6, "o r 
a z Oblicza ni a k s i fii u ni " PR INT AT 
12.8; "i minimum funkcji": PRINT 
AT 13,8; "w tym przedziale": GO S 
UB 550 

25 LET p (1) =1000000: LET p (2) = 
1000000 

27 CLS : PRINT AT 14,5; BRIGHT 

i; "Poda j przepis funkcji." 

30 INPUT " f ( X ) = LINĘ k $ : IF 

LEN k$=0 THEN GO TO 30 
35 LET d lugosc =5+LEN k$: LET p 

ozy =(31 -dlugosc) /2 

40 CLS : PRINT BRIGHT 1,AT 14, 

8 . "Poda j przedział" 

41 INPUT ” a = " ; LINĘ a " 

b=" ; LINĘ b$ : IF LEN a$=0 

OR LEN b $ =0 THEN GO TO 41 

43 FOR i=l TO LEN a$: IF a* (i) 

;="0" AND a$(i)<="9" uR a$(i)=". 
" OR a$(i)="-" OR a$(i)="+" OR a 
$ i i ; ="PI" OR a $ ( i ) = " *" OR a $ ( i ) = 

THEN NEXT i : GO TO 50 

44 GO TO 40 

51 FOR i=l TO LEN b$ IF b$(i) 

> = "0" AND b$ i i ) < ="9" OR b*(x)=". 

' OR b $ 1. 1 i =" - " OR b$(i )="+" OR b 
S •. i ) = ' ‘ P I " OR b$ ( i ) =" *" OR b $ ( i ) = 
" / 1 THEN NEXT i : GO TO 55 

52 GO TO 40 

55 LET a =UAL a $ . LET b=«JAL b$ 

60 IF a>=b THEN GO TO 40 

61 LET przedział =0 

62 LET dt=b-a. LET r =SGN (a*b) 
64 IF r =1 AND a>0 THEN LET dt = 

b . GO TO b8 

66 IF r =1 AND a<0 THEN LET dt = 
ABS i-a ) 

63 IF dtob-a THEN LET przedzi 
a 1=1 

70 LET Z = ABS (a) : LET d=dt/250 

LET d4=4*d 

80 CLS : PRINT BP IGHT 1 , AT 14, 

6; "Podaj liczbę punktów": PRINT 
At 16.6; BRIGHT 1; "n i e c i *gt osc i 
( 0 - 2 ) : 

82 LET W $ = INKEY $ : IF LEN W$Ol 

THEN GO TO 32 

90 IF w $ < " 0 " OR w$>"2" THEN bO 
TO 32 

100 LET w=UAL W $ : IF W =0 THEN G 

O TO 140 

105 FOR i =1 TO w 

110 PRINT AT 21,3; "Podaj ";i,". 
Pkt nieciągłości:" 

115 INPUT LINĘ C $ : IF LEN C*=0 

THEN GO TO 115 

120 FOR fii = 1 TO LEN C*: IF C*(m) 

>="0" AND c$(m)<*"9" OR c*(m)=". 
" OR C$(m)="-" OR C*(lti)="*" OR C 
$(m)="+" OR C $ (m ) ="P I" THEN NEXT 
LET p(i )=UAL C $ : GO TO 130 
125 GO TO 115 

130 IF NOT (p(i)>=a AND p(i)<=b 

> THEN LET w=w-l 
135 NEXT i 

137 LET pnl = p(l) : LET pn2=p (2) 
140 LET n =249 : LET 1=0 
145 BORDER 0: PAPER 0: INK 7: L 

ET d k = ( 28 -LEN a $ -LEN b$)/2: CLS 


: PRINT AT 4,9; FLASH 1; "PROSZĘ 
CZEKAC*': PRINT AT 8,8. "Obecnie f 
un k c ja : " . PRINT INUERŚE i;AT 10, 
pozy ; "y (x ) =" ; k $ : PRINT AT 12,0;" 
jest ta be la ryzowana w przedziale 
": PRINT INUERSE 1, AT 14,dk,"C", 
a b$; : PRINT AT 16,0, "Kr 

ok tabe laryzac ji dx = ",d 
,* 150 FOR i=l TO f.+l 

160 LET/ x=a + (i -tL) *d : IF X>b THE 

# N GO TO 210 

170 IF w =0 THEN GO TO 190 
180 IF ABS (X -pri 1) <d4 OR ABS (X 
-pr.2) <d4 THEN GO TO 200 
190 LET 1=1+1: LET X ( l ) =X LET 

f ( l ) =UAL k $ 

200 NEXT i 

210 LET f m i n = f ( l ) : LET fmax = f(l 

220 LET k 1 = 1 : LET k2 = l 
230 FOR i =2 TO l 

240 IF ( f (i ) -fmin) >=0 THEN GO T 
O 260 

250 LET f m i n = f ( i ) : LET kl = i : GO 
TO 230 

260 IF ( f (i ) -fmax) < =0 THEN GO T 
O 230 

270 LET f fu a X = f ( i ) : LET k2 = i 
280 NEXT i 

290 LET xmin=x(kl): LET xmax=x( 
k2i 

295 LET m $=STR$ f f. i a X . IF LEN fu $ 
>9 THEN LET fi. $=fn 9 ( TO 9; 

296 LET n$ = STR$ fff.ir. : IF LEN n$ 

>9 THEN LET Il$=n$( TO 9) 

297 LET X $ = STR $ x»in : IF LEN X$ 

>9 THEN LET x$=x$( TO 9) 

298 LET y$=STR$ Xfu«iX : IF LEN y$ 

>9 THEN LET y*=y$( TO 9) 

300 LET d y = f m a x - f m i n . BEEP .8,1 
5: 60RDER 7: PAPER 7: INK 0: CLS 

310 PRINT BRIGHT 1,AT 9,0; "FMIN 
= ";n$," dia x=";x$ 

320 PRINT BRIGHT l; AT 11,0; "FMA 
X = " ; fu $; " dla x = " ; y % 

330 GO SUB 550 

340 CLS : LET S =SGN C f fń i n * f ffi a X ) 

350 IF s = 1 AND f fń i n >0 THEN LET 
y=5. GO TO 400 

360 IF s = 1 AND f m i n < O THEN LET 
y = 160 : GO TO 400 

370 IF S =0 AND f m a X > 0 THEN LET 
y=5. GO TO 400 

380 IF S =0 AND fmax=0 THEN LET 
y = 160 . GO TO 400 
390 LET y = INT ((ABS (fmin)/dy)* 
165J : IF y <5 THEN LET y =5 

395 IF y > 160 THEN LET y=160 
400 LET t =SGN ( a * b '• 

410 IF t > =0 AND a > =0 THEN LET X 
=5: GO TO 440 

420 IF t>=0 AND a<0 THEN LET X= 
249. GO TO 440 
430 LET X =INT t(2/dt)*255) 

440 IF X <250 THEN PLOT 0,y . DRA 
ij 249,0. PlOT 249, y +2: DRAU 0,-4 
DRAUl 6,2: \DRAU -6,2: GO TO 460 
450 PLOT 6,y\ DRAU 249.0. PLOT 
ó,y+2: DRAU 0 } -4 : DRAU -6,2: DRA 
U 6,2 

460 IF y < 160 THEN PLOT X,0: DRA 

U 0,\159-. PLOT X -2,189: DRAU 4,0: 

_ DFjfHU ^2 , 6 : DRAU -2,-6: GO TO 47 

'470 f.L.Cg':i^ ,6 DRRU 0,159: PLOT 

--•OPtSL: 4 „0 DRftU -2,-6: DRR 

475 ‘ IF , dv < >0 THEN LET Z3 = 160/d9 
430 LET p op r x =0 : LET popry=0:lL 
ET Z 1 = 250 /d t : IF fm in<>0 THEN LE 

T z4= 160/ fmin 

481 IF X =5 THEN lET pOprx=5 

482 IF y=S THEN LET popry=5 
433 IF f max =0 THEN GO TO 435 
484 LET z2 = 160/fH.ax 
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; n $ . ■* di a 
dla 


485 IF przedzial=l fiND a>0 THEN 
LET Z =IZ> 

48? IF S > *0 fi ND flfi*X>0 THEN LET 
f $ = " i ( i ) *Z2+pop ry " : GO TO 490 
438 IF £>x0 ftND i fti i n < 0 THEN LET 
f $ = " 160-fiBS ( f ( i ) #Z 4 ) " : GO TO 4 
90 

489 LET f $ = " fiBS ((f(i)-fnin)*z3 
) +popru" 

490 PRINT fiT 0,5; INUERSE l;"y( 

x ) = " ; k $ 

495 FOR i=l TO l 

500 LET Xb( ( Z + X (i)i *Z 1+pop i'X ) 

510 LET y=URL f$ 

515 IF fiBS X >255 OR fiBS y > 175 T 
HEN GO TO 530 
520 INK 0: PLOT X,y 

530 NEXT i 

531 PRINT U 1 ; fiT 0,2; BRIGHT l;" 

Zadany wydruk(t-tak,n-nie):": LE 
T W $= INKEY $ : IF LEN w$ = 0 THEN GO 

TO 531 

532 IF w* O"!" fiND w$<>"n" THEN 
GO TO 531 

533 IF w$="t" THEN COPY : LPRIN 
T ; LPRINT -Przedział.; C" ; a $; 

; b$.i "3 •• : LPRINT "Flftin* 

X=";X$: LPRINT ’*Fniax = " 
x=", y $ 

535 PRINT 81, fiT 0.0," 

: PRINT 8 

1 fiT 0,1, bright i, "Poda j (©-koni 
e c , l-kon tynua c ja ) ; " 

536 LET t $ = INKEY$ IF LEN t$=0 
THEN GO TO 536 

538 IF t$O"0" AND t $ < > " 1” THEN 
GO TO 536 

539 IF t$="l" THEN GO TO 25 

540 CLS . PRINT fiT 3, 10, " ****** 

******": PRINT fiT 9,10,"* 

*". PRINT fiT 10,10; f ’* KONIEC 
*": PRINT fiT 11,10,"* PROGRfiMU 

*": PRINT fiT 12,10,"* 

*" ; PRINT fiT 13,10;"************ 
" : G O 5UB 6 00; GO T O 630 

5 4 S MaH^-iy.l^faCTggaFITl 

550 PRINT 81; BRIGHT 1, FLfiSH 
l;fiT 0 , 4, "Na c i śn i j dowolny klawi 
az " 

560 PfiUSE 0; RETURN 

6 0 oHssaraasaEEKEiii 

610 LET t = . 25 : BEEP 1,0: BEEP t 
,2; BEEP t. ,4; BEEP t , 5 : BEEP 1,7 
. BEEP 1,9; BEEP t,ll: BEEP t , 12 
; PfiUSE 10; BEEP t , 12 ; BEEP 1,11 
: BEEP 1,9: BEEP 1,7: BEEP t,5; 
BEEP t.,4: BEEP 1,2: BEEP t,0 

620 RETURN 

630 PfiUSE 0: BORDER 7: PfiPER 

INK 0: CLS : GO TO 15 

aa raa M Em 


UWAGA ! 

1 *i 

„IKS” w prenumeracie! 
Prenumeratę przyjmują od- 
działy RSW „Prasa-Książka- 
-Ruch”, a w miejscowoś- 
ciach, gdzie ich nie ma 
urzędy pocztowe i dorę- 
czyciele. 





Przedział: 10,6*PI3 

F f»i i n = -0 . 2 17133 dla X =4. 52 38934 
F fu a =0 . 984909© dla s0 . 3015928 



Przedział C-2*PI,2*PI3 

Fhiin =-4.873399 dla x =-0.201061 

Ffftax =3 . 8538699 dla X =0.25132. "4 



Pr zedz i ał ; C-2 .23 

Frńin = . 009 15781 dla x=-2 
F fń a x = 0 . 5 dla * =0 
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METODA 

TRAPEZÓW 


Znalezienie wartości całki oznaczo- 
nej zadanej funkcji w określonym prze- 
dziale na ogół nie jest trudne. Pier- 
wszym, najtrudniejszym krokiem jest 
znalezienie funkcji pierwotnej — czyn- 
ności następne są już działaniami 
arytmetycznymi, nie sprawiają więk- 
szych kłopotów. Prawdziwe zmartwie- 
nie zaczyna się wtedy, kiedy funkcja 
podcałkowa nie posiada funkcji pier- 
wotnej. Taki problem mamy z funkcją 
exp(— x 2 ), której całkę oznaczoną mo- 
żemy obliczyć jedynie metodami nu- 
merycznymi. 

Możemy to zrobić metodą Newtona- 
-Cotesa, Simpsona albo metodą trape- 
zów. Wybierzmy tę ostatnią. Przedział 
całkowania dzielimy na n równych 
części, w konsekwencji otrzymujemy 
węzły: 

^) = a<X 1 <>c<X 3 <_<Xn- 1 <Xn=b 

Jako przybliżenie całki w metodzie 


trapezów przyjmuje się wartość nastę- 
pującego wyrażenia: 

S = h(' / 2 y„ + y, + y 2 + ... yn-, + ’ / 2 y„) 
gdzie: 

y ( = f(xt) (i = 0. 1 . 2. ... n) 
f — funkcja podcałkowa 
h — wysokość elementarnego tra- 
pezu (jednakowa dla wszystkich trape- 
zów. co wynika z podziału przedziału 
całkowania na n równych części). 
Metoda ta nie jest wolna od błędu, jest 
on określony wzorem: 


Przystępując do obliczania całki me- 
todą trapezów nie wiemy na ile części 
podzielić całkowania < a, b >, tak, aby 
wynik mieścił się w zadanej dokład- 
ności eps. Musimy to uwzględnić w 
realizowanym algorytmie. 

Krok pierwszy Jako pierwsze przybli- 


żenie (początkowe) całki przyjmujemy 
wartość całki obliczoną dla n = 1 . Jest 
ono równe polu trapezu o bokach f(a), 
f(b) i wysokości h = b — a. 

Krok drugi. Następne przybliżenie 
otrzymujemy przez podwojenie liczby 
podziałów przedziału < a, b > z po- 
przedniego przybliżenia. Przedział cał- 
kowania dzielimy oczywiście na równe 
części. Liczba podziałów jest podwaja- 
na, a wysokość h zmniejsza się o po- 
łowę. 

Krok trzeci. Z otrzymanych podziałów 
obliczamy kolejne przybliżenie całki. 
Sprawdzamy, czy moduł różnicy po- 
między tym i poprzednim przybliżeniem 
jest mniejszy od zadanej wielkości eps 
Jeżeli nie. to cofamy się do kroku dru- 
giego, jeżeli tak, to w tym miejscu na- 
stępuje koniec obliczeń i wydruk wyni- 
ków 


comment Obliczanie całki metodą tra- 
pezów 

begin 

real h, a. b, eps, x: x0, x1 , y. s: 

integer i, n; 

linę (1); 

print (‘WARTOŚĆ CAŁKI W 

PRZEDZIALE < a, b >’); 

linę (1); 

P: read (a, b, €ips); 
h = b — a; n = 1 ; 
s = (exp(— af2) + exp(— bt2))/2; 
x0 = s * h; 
y = 10 t 2; 

for n = 2 * n while y > eps do 

begin 

h = h/2; x1 = s; 
x = a; 

for i = 1 st«p 1 until n — 1 do 
begin 

x = x + h; 

x1 = x1 + exp(— xT2) 

end i; 

x1 = x1 • h; 
y = abs(x1 — x0); 
x0 = x1 

end n; 

format (’ —12.346 ’); linę (2); 
print (’ a = ’, a, ‘ b = ’, b, ' eps = 
eps * wartość całki = x1 ); 
wait 0 nowe dane ); 

goto P 

end programu 


Algorytm zakodowany został w 
dwóch językach: Algolu i w dobrze nam 
znanym Basicu. Łatwo wyróżnić w nich 
sekwencje wykonujące te same obli- 
czenia Algol jest językiem, w którym 
zapis programu pozostaje w dużej 
zgodności z „kształtem" algorytmu — 
bardzo często zamiast rysować sche- 
mat działania rozwiązanie problemu 
zapisuje się wprost w Algolu. 

Różnice? Program w tym języku 
wymaga wcześniejszych deklaracji 
zmiennych i stałych Real to liczby rze- 
czywiste integer — całkowite. Komen- 
da linę (1 ) powoduje wysunięcie papie- 
ru drukarki o jeden wiersz. Inne są 
oczywiście komendy i formaty instruk- 
cji we /wy. 

Właściwości Algolu pozwoliły na wa- 
runkowe zorganizowanie pętli: 
for n = 2 • n while y > eps do 
instrukcje z jej wnętrza wykonywane są 
w przypadku gdy y > eps. Aby zapew- 
nić sobie przynajmniej jednokrotne 
ich wykonanie przed pętlą dokonano 
podstawienia y = 1 00 — eps z pew- 
nością jest mniejsze. 

W Basicu natomiast warunek ten 
sprawdzany jest w wierszu — 200 — w 
ten sposób, bez uprzednich podsta- 
wień. obliczenia pierwszego przybliże- 
nia wartości całki będą zawsze wyko 
nane. 


10 REM Obliczanie całki metodą 
trapezów 

15 PRINT „WARTOŚĆ CAŁKI W 
PRZEDZIALE < a, b >“ 

20 INPUT „podaj dolną granicę 
całkowania", a 

30 INPUT „podaj górną granicę 

całkowania"; b 

35 INPUT „podaj dokładność"; eps 
40 LET h -- b — a 
50 LET n = 1 

60 LET s = (EXP(— ał2) + EXP(-bt2))/2 
70 LET x0 = s • h 
90 LET n = 2 « n 
100 LET h = h/2 
110 LET x1 = s 
120 LET x = a 

1 25 REM Początek pętli warunkowej 

1 30 FOR i = 1 TO n - 1 

140 LET x = x + h 

150 LET x1 = x1 + EXP(— xt2) 

160 NEXT 1 

170 LET = x1 = x1 • h 

180 LET y = ABS(x1 — x0) 

190 LET x0 = x1 

200 IF y > = eps THEN GOTO 90 
210 PRINT "a = "; a, "b = "; b, 
"eps = "; eps, "wartość całki = "; x1 
220 LET b$ = "TAK" 

230 INPUT "czy nowe dane TAK/ 
/NIE"; a$ 

240 IF b$ = a$ THEN GOTO 20 
250 STOP 

A.S. 
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Jedno z komputerowych pism angielskich nie bez 
złośliwości stwierdza, że trudno jest podziwiać francu- 
ski mikrokomputer bez świadomości, że wytwarzane 
we Francji produkty są niepowtarzalne: sery, wina, 
samochody i... komputery. 


Tytko Francuzi mogli utworzyć wehi- 
kuł (CITROEN 2CV) o uroku, który nie- 
sie sobą brak elegancji. Ty'ko oni mogli 
rozwinąć mikro typu GClPIL G4. G4 
pracuje pod systemem MS DOS i prak- 
tycznie jest kompatybilny ;? IBM. Oce- 
niając ten mikro, należy mieć pewien 
pogląd o genealogii maszyny i firmie, 
która ten komputer zbudowała. SOCIE- 
TE DE MICRO - INFORMATIOUE lub 
prościej SMT International Firma ta ma 
zaledwie pięć lat, ale już od ponad 
dwóch lat stara się zdobyć rynek an- 
gielski. Oczywiście, towarerr jest mikro 
typu GOUPIL. Słowo to według śred- 
niowiecznej francuskiej legendy ozna- 
cza sympatycznego drap ! ożnika — 
LISA. 

Do końca 1983 roku SM1 sprzedał 
nieco poniżej 10 000 tych maszyn. Po- 
tem firma zdecydowała się i ta wspom- 
nianą próbę zdobycia rynku angiel- 
skiego. Proponowano tam komputery 
w trzech wersjach różniącyc n się pro- 
cesorami: 6809, Z-80, 8088. Oferowa- 
ne maszyny umożliwiały między innymi 
wieloprogramowość. 

Niestety, wynik był mizerny. Starano 
się więc wykorzystać bardziej konwen- 
cjonalny komputer G4. Wykorzystuje 
on standardową (nieco zmodyfikowa- 
ną) klawiaturę IBM. Klawisze fi jnkcyjne 
zostały przesunięte z lewej strony nad 
klawisze alfanumeryczne. 

Warto w tym miejscu podkreślić ol- 
brzymie znaczenie usytuowania klawi- 
szy, szczególnie funkcyjnych. Nawet 
pozornie drobne zmiany przyjętych 
standardów (praktycznie narzuca je 
IBM) mogą znacznie utrudnić wykorzy- 
stanie komputera. Tak jest w wypadku 
G4, bowiem część klawiszy jest źle 
usytuowana; trudno na przykład zna- 
leźć klawisz BREAK. 

W mikro G4 zainstalowano dyski typ j 
IBM, a w skład jego wyposażenia wchód. :i 
„myszka" i długo oczekiwany system Micrc - 
softa OKNA (WINDOWS) Serce G4 to 16- 
-bitowy mikroprocesor 801 86. 

80186 jest zastanawiającym wyborem, I 
jest różny bowiem od 8088 wykorzysta- 
nym w IBM PC, a jednocześnie ma liczne! 
braki wobec 80286, wykorzystanego w 
IBM PC AT. 

G4 realizuje oprogramowanie IBMa, Elec- 
tric Disck, Chit-Chat i Framework w więk- 
szości wypadków robi to szybciej niż kon- 
wencjonalne maszyny IBM. 

Oceniany model ma pamięć 256 
KB RAM, twardy dysk 1 0 MB i kompatybilne 
do IBM floppy. Typowe uzupełnienie to mo- 
nitor oraz klawiatura. Jednak o atrakcyjnoś- 
ci G4 decydują OKNA Microsofta i doskona- 
le oprogramowana „myszka". 


Daje się odczuć, że jakość konstrukcji 
komputera, jego oprogramowanie wiąże się 
z odpowiednim przygotowaniem rynku, za- 
spokojeniem najbardziej wyszukanych po- 
trzeb potencjalnych klientów, łącznie z po- 
radnictwem np. w zakresie instalacji kompu- 
tera w wybranej firmie. 

SMT zdaje sobie sprawę, że nie zdobę- 
dzie rynku jedynie niskimi cenami. Jest tu 
zbyt wielka konkurencja w postaci takich 
firm jak TANDY, COMMODORE. Goupil ofe- 
ruje trochę większą szybkość, nieco lepszy 
styl oraz oczekiwane, bardzo praktyczne 
OKNA. 

OKNA są realizacją i jednocześnie zwia- 
stunem nowej, niewątpliwie trwałej tenden- 
cji rozwoju i doskonalenia „ interfejsu użyt- 
kownika". Tych możliwości komputera, któ- 
re decydują o wzroście „życzliwości 
komputera", prostszym i bardziej natural- 
nym sposobie komunikowania się z kompu- 
terem 

Komputer G4 jest przyjemny w eksploa- 
tacji i nie zaskakuje doświadczonych użyt- 
kowników PC, aczkolwiek podczas pracy 
zestawu pojawia się czasem błąd parzy- 
stości. 

Jedynie monochromatyczny ekran nieco 
zaskakuje zbyt małą rozdzielczością, jakiej 
należałoby oczekiwać w maszynie, która ma 
się stać popularna właśnie dzięki grafice 
użytkowej. 

Interfejsowe możliwości G4 wydają się 
standardowe. Oba szeregowe i równoległe 
porty są wbudowane w tylnej części. Pracu- 
ją poprawnie z modemami i równoległą dru- 
karką, System twardego dysku jest cichy i 
szybki — sprawia wrażenie, że to dodatko- 
wa pamięć RAM. 


Pamięć 640 KB powinna być wystarcza- 
jąca dla większości zastosowań. Należy 
jednak sprawdzić, ile OKNA zostawiają pa- 
mięci dla programów użytkowych, przed ok- 
reśleniem ostatecznej konfiguracji G4 (cena 
1395 funtów 128 KB lub 4420 funtów 512 
KB). 

Część przedstawionych powyżej 
uwag na temat jednego z ostatnich 
francuskich komputerów tylko pozornie 
jest nieco różna od informatycznych 
zainteresowań czytelników „IKS-a”. Ju- 
tro bowiem istotną kwestią stanie się 
wybór komputera dla naszego zakładu 
pracy, wyróżnienie jego podstawowych 
cech, które decydują o jakości i kom- 
forcie pracy maszyny. Wydaje się, że 
zasadniczym wnioskiem jest uznanie 
kompatybilności z IBM jako podstawo- 
wej cechy profesjonalnego mikrokom- 
putera. Kolejną cechą, którą wyróżnio- 
no jest „życzliwość komputera” (friend- 
liness). Mieści się w tym zarówno 
mechaniczna konstrukcja, jak i opro- 
gramowanie maszyny. 

Na przykładzie G4, „życzliwość" swą 
mikro uzyskuje dzięki bardzo komuni- 
katywnemu systemowi OKNA. Uzupeł- 
nieniem tej własności miała być nie- 
udana próba poprawienia konstrukcji 
klawiatury (rozmieszczenia klawiszy). 

Wymowne jest to, że profesjonalne 
pismo komputerowe bardziej eksponu- 
je składowe „życzliwości komputera", 
na przykład kiepską jakość monitora, 
niż szybkość G4, która przekracza moż- 
liwości IBM. 

Można sądzić, że wkraczamy w no- 
wy etap rozwoju mikrokomputerów, 
etap dążeń ku poprawie jakości 
współpracy z komputerami w pracy i w 
domu. 


W.G. 



CiMa n, Grzybowskiej... wrzesleń'36 Foto: Jan z „ man 
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Jak to zrobić (1) 


Zapewne wszystkich fascynuje barwny, ruszający 
się świat gier. Dociekliwi, zanim wykonają pierwszy 
ruch joystickiem, zastanawiają się, JAK TO można 
ZROBIĆ. Artykuł ten wyjaśnia podstawy najprostszej 
techniki animacji na ATARI 800, jaką dostarcza grafika 
PLAYER-MISSILE, odpowiadająca SPRITom na in- 
nych komputerach. 


W związku z tym, że w dalszej części 
używane będą operacje POKE i PEEK, 
a nie chcę osobom rozpoczynającym 
swoją przygodę z komputerem odbie- 
rać szansy zrozumienia, rozpocząć 
muszę od kilku uwag z nimi związa- 
nych. 

PEEK jest funkcją, która odczytuje 
wartość bajtu spod wskazanego adre- 
su. Na przykład instrukcje 
A = PEEK (704) 

B = PEEK (53248) 

przypisują zmiennym A i B wartości 
zapamiętane odpowiednio w komór- 
kach o adresach 704 i 53248. 

Odwrotne role odgrywa procedura 
POKE. Pod adresem występującym w 
roli jednego z jej parametrów umie- 
szcza ona dowolną wartość z przedzia- 
łu 0—255, podana jako drugi parametr. 
Na przykład 

POKE 704,160 
POKE 53248.100 

Przechodząc już do właściwego te- 
matu. należy odpowiedzieć na pytanie, 
czym jest player ? 

Wyobraźmy sobie pionowy pasek na 
ekranie. Podobnie jak wszystko, co jest 
wyświetlane, pasek nasz jest obrazem 
pewnego kawałka pamięci komputera. 
Jeżeli teraz (... na razie) uwierzymy, że 
może się on przesuwać wzdłuż ekranu, 
zmieniać swoją szerokość i barwę, to 
będziemy znali najprostszą odpowiedź 
na to pytanie. 

Należy dodać, że dysponujemy czte- 
rema playerami i czterema misselami, 
z których każdy jest także „paskiem", 
ale o szerokości 1 /4 rozmiaru playera. 

Wielu zapalonych amatorów pro- 
gramowania już wyobraża sobie baje- 
czne obrazy własnego autorstwa, prze- 
suwające się po ekranie. My jednak 
postępować powinniśmy systematy- 
cznie, a w fazie poznawania możliwości 
playerów powoli, ale dokładnie anali- 
zować każdy krok. 

Rozszyfrowywanie tajemnic grafiki 
PLAYER-MISSILE rozpoczniemy od 
następującego stwierdzenia: 

player jest obrazem ciągłego obsza- 
ru pamięci. 
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Fakt ten ma ogromne znaczenie przy 
definiowaniu kształtu playera, co zoba- 
czymy dalej. Rola. jaką on odgrywa, i 
cała „filozofia" playerów szczególnie 
widoczna jest w momencie analizy 
sposobu, w jaki komputer wyświetla 
zadane informacje na ekranie. 

Wiemy, że obraz widoczny na moni- 
torze jest odwzorowaniem pewnej 
części pamięci. W zależności od wy- 
branej grafiki, różne jej komórki mogą 
być wyświetlane w różnych miejscach 
ekranu (zależy to od liczby bajtów two- 
rzących linię dla danej grafiki). Różny 
jest także sposób liczenia adresów baj- 
tów wyświetlanych bezpośrednio wyżej 
i niżej wybranej pozycji ekranu. Dla gra- 
fiki „0" adresy pamięci, tworzącej obraz 
ekranu, przedstawić można następują- 
co: 



Realia te powodują, że stworzenie 
pionowego obrazu, który mógłby się 
poruszać, jest, może nietrudne, ale 
dość skomplikowane i pracochłonne. 
Ponadto zauważmy, że każdorazowa 
chęć zmiany grafiki niesie ze sobą nie- 
bezpieczeństwo zniszczenia rysunku. 

Rozwiązanie tego problemu dostar- 
cza grafika playerów. Ciągłość obszaru 
pamięci przeznaczonej dla ich repre- 
zentacji i jego niezależność od pamięci 
ekranu zapewniają: 

— łatwość dostępu do kolejnych baj- 
tów, odpowiadających następują- 


cym po sobie liniom obrazu, 

— uniezależnienie playera od trybu 
graficznego tła. 

Ponadto komputer dostarcza nam 
możliwość wyboru jednego z dwóch 
sposobów odwzorowania pamięci 
playera na ekran różniących się rezo- 
lucją, tj. liczbą linii opisanych jednym 
bajtem. Możemy zażądać, by każdy 
bajt przeniesiony został na dwie linie 
ekranu — rezolucja podwójna, ale wy- 
raźniejszy rysunek uzyskujemy przy re- 
zolucji pojedynczej — każdy bajt two- 
rzy jedną linię obrazu. 

Do wskazania wybranej rezolucji 
służy czwarty bit komórki o adresie 
559. Brzmi to przerażająco, dlatego na- 
leży natychmiast zapomnieć to zdanie, 
a zapamiętać dwie liczby 62 i 46, które 
wpisane instrukcją 

POKE 559,... 
zapewniają 

62 — rezolucja pojedyncza, 

46 — rezolucja podwójna. 

Z rezolucją playerów ściśle związa- 
na jest wielkość pamięci, potrzebna do 
ich reprezentacji, dla pojedyńczej wy- 
nosi aż 256 bajtów, dla podwójnej tylko 
połowę, czyli 1 28 bajtów. Dla popraw- 
nej obsługi playerów adres tego pola 
znajdować się musi w komórce o adre- 
sie 54279. Może to być oczywiście 
liczba nie przekraczająca 255 (dlacze- 
go?), dlatego właściwy adres wyraża 
ona w postaci bloków po 256 bajtów 
każdy. 

Poniższy rysunek prezentuje sche- 
mat omawianej pamięci. 



Po tych niezbędnych wyjaśnieniach 
przystąpić możemy do nadania playe- 
rowi kształtu. Metoda jest powszechnie 
znana — rysujemy planowany obraz na 
siatce o szerokości ośmiu pól, w której 
kolumny, począwszy od prawej strony, 
ponumerowane są kolejnymi potęgami 
dwójki 1,2,4. .. Następnie pola, przez 
które przechodzą linie rysunku, zamie- 
niamy na 1 . pozostałe na 0. Dla każdej 
linii rysunku obliczamy wartość będącą 
sumą iloczynów wartości pola (1 lub 0) 
przez wartość kolumny, w której się 
znajduje (1,2,4,...). 

Zasadę ilustruje poniższy przykład: 



— 

— 

— 


— 




— 

— 

— 

— 


1 







t 







1 






■ 

1 






■ 

1 



— 


— 



Szczególną ostrożność należy za- 
chować przy tworzeniu rysunków mis- 
seli, bowiem jeden bajt pamięci zawie- 
ra informację o postaci pojedynczej li- 
nii każdego z nich. I tak na powyższym 
rysunku kolumny (bity) z numerami 
1 ,2 — zawierają informacje dotyczą- 
ce missela 0, 

4,8 — dotyczą missela 1 , 

1 6,32 — missela 2, zaś 
64 i 1 28 — missela 3. 

Nie zmienia się sposób liczenia od- 
powiednich wartości. 

Liczby, które w opisany sposób utwo- 
rzyliśmy, musimy teraz umieścić we 
właściwych miejscach pamięci. Przyj- 
rzyjmy się następującemu programowi, 
umieszczającemu pokazany wyże) 
prostokąt w playerze 0. 

10 REM DEFINIOWANIE RYSUNKU 
PLAYERA - PROSTOKĄT 

11 REM MAMY NADZIEJĘ, ZE 
PAMIĘĆ PLAYERA JEST 
„CZYSTA", 

12 REM W PRZECIWNYM 
PRZYPADKU NALEŻY UMIEŚCIĆ 
W NIEJ STOSOWNĄ 

13 REM LICZBĘ ZER 

20 AD = PEEK (106) — 1 6 
30 POKE106, AD— 16:REM 
REZERWUJEMY PAMIĘĆ DLA 
PLAYERÓW 

40 POKE 54279, AD:REM 
INFORMUJEMY SYSTEM GDZIE 
ZNAJDUJĄ SIĘ 

OPISY PLAYERÓW 

41 REM 

50 POKE 53277, 3:REM „WŁĄCZAMY" 
GRAFIKĘ P-M 

60 POKE 559,62: REM WYBIERAMY 
REZOLUCJE OBRAZU 
70 START = AD 256 + 1 024 + 1 00 
80 FOR I = START TD START + 5: 
REM PĘTLA WPISUJĄCA DANE 
90 READ B 
100 POKEI.B 
110 NEXT I 

1 20 DATA 255,1 29,1 29,1 29,1 29,255 
Wyjaśnienia wymagają instrukcje w 
następujących liniach: 

50 — „włączenie" polega na wskaza- 
niu systemowi, jakie elementy 
mają być uwidocznione na ekra- 


nie; wstawiając do komórki 
53277 wartość 1 , pozwalamy na 
przeniesienie na ekran obrazu 
misseli, — wartość 2 — obrazu 
playerów; w celu wykorzystania 
wszystkich możliwości, należy 
posłużyć się sumą tych wartości 
— stąd liczba 3. 

70 — obliczanie adresu 'pierwszego 
bajtu, od którego należy rozpo- 
cząć wpisywanie definicji linii 
playera. Liczba 100 określa na 
ekranie linię, od której pokaże 
się nasz prostokąt. Poniżej 
przedstawione zostały numery linii 
zapewniające widzialność obraz- 
ka na monitorze. Podane liczby 
dotyczą rezolucji pojedynczej, w 
nawiasach, znalazły się ich od- 
powiedniki dla rezolucji podwój- 
nej. 





j 


Z powyższego rysunku wiemy, jakimi 
wartościami możemy opisywać pozio- 
me ustawienie playera. Zobaczymy te- 
raz, jak to zrobić. Dla ułatwienia zapo- 
znajmy się od razu z następującymi 
komórkami pamięci, które będą nam 
jeszcze potrzebne. Dla potrzeb nasze- 
go programu są to adresy dotyczące 
playera 0. 

53248 — przechowuje wartość okreś- 
lającą poziome pozycje 
playera, 

704 — definiuje jego kolor, jest to 

liczba postaci 16 (kod kolo- 
• ru) + (jasność) 

53256 — opisuje jego szerokość, w 
sposób następujący: 

0,2 — normalna, to znaczy jed- 
nemu bitowi z każdego bajtu 
playera odpowiada jeden punkt 
w linii ekranu, ma on szerokość 8 
punktów (uff, to było trudne wy- 
jaśnienie), 

1 — podwójna, rozumieć należy 
w sposób oczywisty, 

3 — poczwórna. 

Natychmiast wykorzystajmy nowo 
zdobytą wiedzę do rozszerzenia pro- 
gramu o następne instrukcje: 

130 POKE 53248, 100.REM 
USTAWIENIE POZYCJI 
POZIOMEJ 

140 POKE 704,64:REM NIECH 
BĘDZIE CZERWONY 


150 POKE 53256, 0:REM 

SZEROKOŚĆ NORMALNA 
Dalej wzbogacić go możemy ins- 
trukcjami powodującymi poziomy 
przesuw, zgodny z ruchami joysticka. 
Oto one 

160 HPOZ = 100:REM USTALENIE 
POZYCJI POCZĄTKOWEJ 
170 IF STICK(O) = 1 1 THEN 
HPOZ = HPOZ— 1 :REM W 
LEWO 

180 IF STICK(O) = 7 THEN 
HPOZ = HPOZ + 1.REM W 
PRAWO 

190 POKE 53248, HPOZ 
200 GOTO 1 70 


Kryją one jednak poważny błąd (op- 
rócz tego, że tworzą nieskończoną pęt- 
lę). Proszę spróbować przesunąć pro- 
stokąt poza ekran (np. w prawo), zaob- 
serwować efekt i wytłumaczyć go. Po- 
winienem przy tym wytłumaczyć się, że 
nie zapomniałem o misselach, ani o 
pozostałych. playerach. Po prostu up- 
rościłem sobie problem, wiedząc, że 
operacje dotyczące wszystkich ele- 
mentów grafiki P— M są jednakowe i 
przedstawiłem je na przykładzie playe- 
ra 0. Jest to jednak moim obowiązkiem 
podać adresy wszystkich komórek, 
które mogą mieć znaczenie w trakcie 
programowania z wykorzystaniem 
przedstawionej techniki. Oto one: 

704 kolor playera i missela 0, 

705 kolor playera i missela 1 , 

706 kolor playera i missela 2. 

707 kolor playera i missela 3, 

53248 pozioma pozycja playera 0, 

53249 pozioma pozycja playera 1 , 

53250 pozioma pozycja playera 2, 

53251 pozioma pozycja playera 3, 

53252 pozioma pozycja missela 0, 

53253 pozioma pozycja missela 1 , 

53254 pozioma pozycja missela 2, 

53255 pozioma pozycja missela 3, 

53256 rozmiar playera 0, 

53257 rozmiar playera 1 , 

53258 rozmiar playera 2, 

53259 rozmiar playera 3, 

53260 rozmiar wszystkich misseli, jest 
to liczba tworzona jako suma 
wartości opisujących szerokość 
każdego z nich . 


Na tym chciałbym zakończyć rozwa- 
żania dotyczące playerów. Zachęcam 
wszystkich do wpisania tych kilku za- 
prezentowanych instrukcji i przepro- 
wadzenia eksperymentów. Życzę przy- 
jemnej zabawy i powodzenia przy two- 
rzeniu swoich własnych ruszających 
się obrazków. 

GRZEŚ 


IKS — strona 15 





Foto: Ryszard Rogoń 


DUKACJI... 

S/1PUTEROWEJ 

na Grzybowskiej) 



E NOTOW] 


Hmmodore 64 + magneJ^ilłljM^yłticI 

Efemmoitore 1 1 6 — 55—65 tył. i\ ^ 

Atart 800XL + magnetofon — 125 tył. 

Amłtrad 6128 + kolorowy monitor - 
450 tył. 

Dodatkowo ... kolor , dźwięk, telewizja, duto szumu 
wypchanych 'portfeli. y ~ . ■ ■ v 


4 


Kontynuujemy wykład z programowania w języku BASIC na 
mikrokomputer ZX Spectrum. 

W wykładzie tym podamy podetawowe wiadomości i zasady 
tworzenia cykli obliczeniowych, zwanych takie pętlami. Omówi- 
my odpowiednie Instrukcje BASIC-u, za pomocę których zapisu- 
jemy cykle obliczeniowe (pętle). Wiadomości te będę uzupełniane 
(Podstawy programowania) * następnych wykładach. 


BASIC 


Wykład czwarty: cykle obliczenowe (pętle) zapisywanie pętli 
w programach w BASlCu z wykorzystaniem — instrukcji IF 

- instrukcji cyklu FOR I NEXT 

W poprzednim wykładzie (wykład 3) zapoznaliśmy się między 
innymi z instrukcją IF Stosowaliśmy ją np. w celu sprawdzenia od- 
powiedzi na pytanie: „czy wprowadzamy dalej?". Jeżeli odpowie- 
dzieliśmy jak", to wykonując instrukcję skoku bezwarunkowego 
(GO TO n) powracaliśmy do wykonania instrukcji o numerze n 
i powtarzaliśmy cykl obliczeń zapisany kilkoma instrukcjami. I tak 
np w programie z przykładu 3.5 instrukcje o numerach 30—80 są 
wykonywane tyle razy, ile razy napisaliśmy „tak". 

Omówimy teraz zapisywanie za pomocą instrukcji IF cykli obli- 
czeniowych zwanych także pętlami. Jak zwykle zaczynamy od 
przykładu. 

Przykład 4.1 

Napisać program na obliczcie sumy 5 liczb (dowolnych) wczy- 
tywanych w trakcie realizat^^rogramu. Napisany program ma 
postać: 


b) program 

łi n - x o s c d w czy tywany ch 

Liczb 

x-kolejna czytana Liczba 
i - L i czn i k , s -suma n Liczb 
20 INPUT "n = " ,n 
25 PRINT "Obliczanie sumy ";n; 
Liczb" 

30 PRINT '"wczytane Liczby " 
35 LET S=0 
40 LET i*l 

45 IF i >n THEN GO TO 80 
50 INPUT X 
55 PRINT X ; " 

60 LET S»S+X 
65 LET i *i +1 
70 GO TO 45 

80 PRINT ''"suma ";n," Liczb * 


10 REM PrzykLad 
15 REM s-suna 5 
x-ko Lejna 
20 LET S »0 
25 INPUT "x = " ; X 
30 LET 5 =S +X 
35 INPUT "X ; X 
40 LET s — S +X 
45 INPUT "X a" ; X 
50 LET £=S+X 
55 INPUT "Xa";X 
60 LET £ *S +X 
65 INPUT "X="iX 
70 LET £ *£ +X 
75 PRINT "suma 


4.1 

LiCZb 

czytana 

, PRINT 

: PRINT 

: PR INT 

. PRINT 

: PRINT 

5 LiCZb 


Li CZ ba 
X 

X 

X 

X 

X 


Napisanie takiego programu, gdy chcemy zsumować więcej, 
np. 100 liczb, byłoby bezsensowne. Sumowanie dowolnej ilości 
liczb można przeprowadzić za pomocą programu, w którym wy- 
stępują instrukcje wielokrotnie wykonujące te same obliczenia dla 
różnych wartości danych. 

Przykład 4.2 

Napisać program obliczający sumę n liczb (dowolnych) wczy- 
tywanych w trakcie realizacji programu. W programie należy sko- 
rzystać z instrukcji IF. 
a) schemat blokowy: 



c) wyniki dla przykładowych danych 

O b L i c z a n i e sumy 5 Liczb 

wczytane Liczby . 

2 3 5 6 8 

suma 5 Liczb * 24 

Zauważmy, ze jeżeli rozwiązywanie problemu zawiera pewien 
proces powtarzalny, to w schemacie blokowym pojawia się pęlta 
(cykle obliczeniowe). Pętla musi zawierać określenie sposobu jej 
zakończenia. Czynność polegająca na wykonaniu każdej operacji 
w jednym przebiegu pętli nazywa się cyklem pętli. 

Zajmiemy się teraz analizą schematu blokowego z przykładu 
4.2. Czynności opisane blokami: czytanie x i sumowanie 
(S = s + x) mają się wykonać n-razy dla różnych wartości x (w 
tym miejscu wartość n jest już znana). Wykonanie tych czynności 
dla jednej wartości x to cykl pętli. 
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Zapis w tym bloku odczytujemy w następujący sposób: jeżeli wa- 
runek i > n jest spełniony, to przejdź do wypisania wartości sumy 
n-liczb; jeżeli jest nie spełniony, to powtórz obliczenia tzn,: 

— czytaj x 

— dodaj x do sumy (s = s + x) 

— dodaj do i liczbę 1: obliczoną wartość podstaw pod 
zmienną i (i = i + f ) 

— powróć do pytania i > n 

W tym przykładzie zmienna i służy do zliczania ilości liczb, a za- 
razem zlicza liczbę wykonanych cykli w pętli, można także powie- 
dzieć. że zmienna i odgrywa również rolę licznika „obrotów" pętli; 
jej wartość zmienia się o stałą liczbę równą 1 . Po zakończeniu ob- 
liczeń, tzn w razie spełnienia nierówności i > n, wartość zmiennej 
i wynosi n + 1 . 

Zapiszemy teraz program z przykładu 4.2 w postaci: 


10 REM PrzykLad 4.2,1 
15 REM n -i Lose wczytywanych 

Liczb 

x-ko Lejna czytana Liczba 
s-suma n Liczb 
20 INPUT " n >s *• ; n 
25 PRINT “Obliczanie sumy * ;n; 
Liczb" 

30 PRINT '"wczytana Liczby ; 

35 LET S*0 

40 FOR i *1 TO n STEP 1 
45 REM i -zmienna sterującą 
50 INPUT x 

55 PRINT x ; " ; 

60 LET Srs+X 

70 NEXT i „ 

80 PRINT ''"suma * ;n ; Liczb - 

" ; s 

Wprowadźmy i wykonajmy ten program dla tych samych liczb 
co program z przykładu 4.2. Otrzymane wyniki są takie same jak 
poprzednio. 

Do zapisu pętli w BASlCu przeznaczone są dwie specjalne ins- 
trukcje zwane instrukcjami cyklu (lub instrukcjami powtórzeń), są 
to instrukcje czynne FOR i NEXT. Są one zawsze używane razem 
i mają dwie postacie ogólne, 
n, FOR z p = w, TO w 2 STEP w 3 

n 2 NEXT z p 
lub 

n, FOR Zp = w, TO w 2 
n 2 NEXT z p 

gdzie: n,. n 2 — numery wierszy 
z p — zmienna sterująca (lub zmienna kontrolowana, lub wska- 
źnik pętli) jest zmienną prostą numeryczną, nazwa 
zmiennej sterującej musi być jednoliterowa, 
w, — wyrażenie arytmetyczne określające wartość początko- 
wą zmiennej sterującej. 

w 2 — wyrażenie arytmetyczne określające wartość końcową 
zmiennej sterującej, 

w 3 — wyrażenie arytmetyczne określające wartość kroku 
zmiany zmiennej sterującej, \ 

w,,w 2 , w 3 — nazywane są parametrami cyklu 
Jeżeli krok zmiany zmiennej sterującej ma wartość 1 (w 3 = 1 ) to 
fragment STEP w 3 może być pominięty. Instrukcja FOR przyjmuje 
wtedy postać drugą 
Przykłady instrukcji FOR: 

a) 100 FOR / = 1 TOn 

140 NEXT i 

b) 60 FOR k = 4+ k TO 5 ♦ i + 2 • k + 1 STEP 2 


160 NEXT k 

c) 70 FOR j =-25 TO 20 
170 NEXT / 

d) 50 FOR x = x1 TO x2 STEP x3 
100 NEXT x 

e) 100 FOR /= 1 TO n STEP k 
150 NEXT i 

W przykładach b, d, e, przed wejściem do pętli muszą być znane 
wartości I, x1, x2, x3, oraz I, n, k. 

Instrukcje cyklu umożliwiają proste zapisanie w programie tej 
części schematu blokowego, którą opisywaliśmy za pomocą ins- 


trukcji warunkowej IF. W naszym przykładzie zamiast instrukcji: 

40 LET i = 1 

45 IF i > n THEN GO TO 80 
oraz 

65 LET / = i + 1 

70 GO TO 45 
napisaliśmy instrukcje: 

40 FOR i = 1 TOW STEP 1 
oraz 

70 NEXT i 

Przy tworzeniu pętli można wyróżnić pięć grup czynności, z któ- 
rych każda została opisana w postaci odpowiedniego bloku na 
powyższym schemacie. 

Wyjaśnień dodatkowych wymaga blok 1 

Parametry cyklu w,. w 2 . w 3 są wyrażeniami arytmetycznymi, a 
więc mogą być to stałe numeryczne nazwy zmiennych numery- 
cznych lub wyrażenia arytmetyczne. Przed wejściem do pętli mu- 
szą być nadane wartości zmiennym numerycznym wchodzącym 
w skład wyrażeń arytmetycznych, reprezentujących parametry 
cyklu w,. w 2 . w 3 . 

Zapamiętajmy pewne reguły obowiązujące przy pisaniu pro- 
gramów z instrukcjami FOR i NEXT: 

— instrukcję postaci: 

n FOR z p = w, TO w 2 STEP w 3 
piszemy w miejscu, które odpowiada na schemacie blokom 
o numerach 2 i 3 (uprzednio należy ustalić wartości wyrażeń 
w,. w 2 . w 3 , blok numer 1). 

— instrukcję postaci 

n, NEXT z p 

piszemy w miejscu, które odpowiada na schemacie blokowi 
o numerze 5. 

— blok o numerze 4. to ciąg Instrukcji, które mają być wykona- 
ne tyle razy. ile wskazują parametry cyklu. 

Tak więc realizację podanego schematu można w BASlCu za- 
pisać ciągiem instrukcji postaci; 


40 

REM 

50 

REM l 

i 

60 

FOR : 

70 

REM 

80 

REM i 

90 

NEXT 

100 

REM 


instrukcje przed p e t l a , 
b L o k Pl 

nadanie wartości zmien- 
nym występującym w para 
metrach cykLu (jeżeli 
występują) 

Z=wl TO w 2 STEP w3 
ciąg instrukcji - 
wnet r ze petLi 
z 

instrukcje po pętli* 
bLok P2 


Ten sam ciąo instrukcji zapisany w BASlCu za pomocą instruk- 

-ji ił wygląda następująco: 


40 

REM 

instrukcje przed patia, 
bLOk Pl 

50 

REM 

nadanie wartości zmien- 
nym występującym w para 
metrach cykLu (jezeLi 
występują) 

55 

REM 

G , h - zmienne dostępne 
jedynie t r a n s L a t o r o w i 
jeżyka BftSIC 

60 

LET 

z *w 1 

62 

LET 

G*w2 

64 

LET 

h=w3 

. 66 

IF : 

5GN <h> * <Z -G) >0 TMEN GO 

TO 100 

ciąg instrukcji - 

70 

REM 

30 

REM 

wnetrze petLi 

. 90 

LET 

T§’66 M 

92 

GO ‘ 

100 

REM 

instrukcja po petti, 
błon. P2 
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DYSPONUJĄC NOWOCZESNYM SPRZĘTEM 
KOMPUTEROWYM Z ŁATWOŚCI A, WYZNACZYĆ 

można strony świrta , gdyż komputery 

PORASTAJĄ MCHEM ZAWSZE OD PÓŁNOCY... 
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Z podanego ciągu instrukcji wynika, że na wykonanie instrukcji 
cyklu FOR— NEXT składają się następujące czynności: 

1 . obliczenie wartości wyrażenia w, i nadanie zmiennej sterującej 
z wartości początkowej (wiersz 60). 

2. obliczenie wartości wyrażeń w 2 i w 3 (z uwzględnieniem nowej 
wartości zmiennej) oraz zapamiętanie wartości końcowej w 2 i 
kroku w* pod zmiennymi G i H niedostępnymi dla programu 
użytkownika (wiersz 62 i 64), 

3. sprawdzenie warunku niewykonywania cyklu (wiersz 66). przy 
spełnieniu tego warunku następuje przejście do instrukcji wy- 
stępującej bezpośrednio po instrukcji NEXT.(SGN (x)) jest to 
funkcja standardowa — podaje ona znak zmiennej x. wartości 
wykonania tej funkcji wynoszą (— 1 ) jeżeli x < 0; 0 jeżeli x = 0; 
1 jeżeli x > 0), 

4. wykonanie ciągu instrukcji będącego wnętrzem pętli, 

5. nadanie nowej wartości zmiennej sterującej (wiersz 90). 

6. przejście do wykonywania następnego cyklu (wiersz 92). 

Z podanych czynności wynika następujące działanie instrukcji 
cyklu: 

— jeżeli wartość kroku jest większa od zera (w 3 > 0). to war- 
tość początkowa w, musi być nie większa od wartości koń- 
cowej w 2 (w, < w 2 ), 

— jeżeli wartość kroku jest mniejsza od zera (w 3 < 0) to war- 
tość początkowa w, musi być mniejsza od wartości końco- 
wej w 2 (w, > w 2 ) 

W przeciwnym przypadku cykl nie jest wykonywany, a zmienna 
sterująca przyjmuje wartość początkową. Po wykonaniu instrukcji 
cyklu wartość zmiennej sterującej jest większa od w 2 o krok w 3 tzn. 
z = w 2 + w 3 (patrz: wydruk do przykładu 4.3). 

Podaliśmy obszerną porcję informacji teoretycznych, postara- 
my się je zapamiętać, wykonując kilka przykładów. 


Przykład 4.3 


Danych jest 1 5 liczb. Należy wczytywać po jednej liczbie w cza- 
sie realizacji programu oraz drukować tę liczbę, jej kwadrat i sześ- 
cian. 

Program jest prosty i podajemy go bez schnmafu blokowego. 


10 REM Przykład 4.3 
20 REM x-czytana liczba 
30 PRINT " x "i“ 

40 FOR i=l TO 15 STEP 1 
50 INPUT "X* M ;x 
60 PRINT ** " ; x ; " 


• X łtX i " " ’ " " # X (X #X ' *' " 

65 ' REM liczby ino *3 a by c dowolne 
ujemne, równe zero lub 
dodat nie, a wiec nie może 
my zastosować operatora 
potęgowania C t ) 


70 NEXT i 
80 PRINT *'i i 


Wprowadźmy i wykonajmy ten program. Niżej prezentujemy 
otrzymane wvn* dla przykładowych danych: 


X 

-3 


xta 

i 

4 

9 


X 1 3 
-1 
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i =16 


0 

a 

3 

4 

5 

6 
7 

5 
9 

6 
5 
4 


0 

4 

9 

16 

25 

36 

49 

64 

81 

36 

25 

16 


0 

S 

27 

64 

125 

216 

343 

512 

729 

216 

125 

64 


Patrząc na programy z przykładów 4.2.1 i 4.3 zauważamy, źa 
łnatrukcja cyklu zostały zastosowana do zliczenia powtórzeń 

wykonywania ciągu instrukcji. Można powiedzieć, że jest to 
podstawowa funkcja tych instrukcji 

W przykładzie 4.2 instrukcje cyklu spowodują wykonanie ciągu 
instrukcji (wiersze 50, 55, 60) n-razy, (wartość n jest już w tym 
momencie znana), a w przykładzie 4.3 — wykonanie ciągu ins- 
trukcji (wiersze 50. 60) — 1 5 razy 

Przykład 4.4 

Napisać program na mnożenie danej liczby x przez 1 0 kolejnych 
liczb naturalnych, poczynając od zadanej liczby 1. 

Program jest prosty i podajemy go bez schematu blokowego 


10 REM Przykład 4.4 

20 INPUT "X* ";x 

30 INPUT ”1= "ii 

40 FOR j«l TO 1+10-1 STEP 1 

50 print x;“ * ";j;" = ";j*x 

60 NEXT j 


Wprowadźmy i wykonajmy ten program. Niżej prezentujemy 
otrzymane wyniki dla przykładowych danych 


5 

* 

1 

3 

5 

5 

* 

2 

3 

10 

S 

* 

3 

3 

15 

5 

* 

4 

3 

20 

5 

* 

5 

3 

25 

5 

* 

6 

a 

30 

5 

ił 

7 

3 

35 

5 

ił 

8 

3 

40 

5 

* 

9 

a 

45 

5 

* 

10 


= 50 


W programie tym ciąg instrukcji powtarzanych (wnętrze pętli) 
składa się z jednej instrukcji: 

70 PRINT x; ; / ; "=" ; / • x 

W instrukcji tej występuje zmienna /, która jest zmienną sterują- 
cą instrukcji cyklu napisanej w wierszu 40. Wykorzystujemy tu jej 
wartość W ciągu instrukcji powtarzanych (wa wnętrzu pętli) 
można wykorzystywać wartość zmiennej sterującej, ale nie 
należy zmieniać jej wartości. 

We wnętrzu pętli można zmieniać (ale się nie zaleca) wartość 
zmiennej sterującej. Nowa wartość nadana tej zmiennej zostanie 
uwzględniona przy kolejnym obliczaniu nowej wartości zmiennej 
sterującej i sprawdzaniu z wartością końcową 

Przykład 4.5 

Dany jest program W programie tym w linii 70 następuje zwięk- 
szenie wartości zmiennej sterującej o 3: 


$8 m kwu 4 

60 PRINT i , 

?0 LET i = i +3 
30 PRINT i 
90 NEXT i 


Instrukcje wnętrza pętli wykonane zostaną tylko 5 razy zamiast 
1 8. Wprowadźmy ten program i wykonajmy. Sprawdźmy wynik z 
wynikiem podanym niżej. 


£ 

9 

13 

17 


| 

12 

16 

20 


Przykład 4.6 

Dany jest ciąg liczb naturalnych /, . I 2 J k Napisać program na 
wybieranie spośród tych liczb i drukowanie liczb podzielnych (bez 
reszty) przez zadaną liczbę p.(p-naturalne, o wartość n*e większej 
od wartości maksymalnei liczby w ciągu tzn. p < /*). 
a) schemat blokowy 


c) wyniki dla przykładowych danych 

wybieranie z danego ciągu Liczb 
naturalnych Liczb podzieLnych 
przez zadana Licz be p 

Liczby podziel ne przez 3 
w ciągu 6 ...... 30 



b) program 


10 REM Przykład 4.6 
15 PRINT 'wybieranie z danego 
Ciągu liczb naturalnych Liczb po 
dzielnych przez zadana liczbę 
p 

2© rem il-pierwsza Liczba w 
c i agu 

Lk -ostatnia Liczba w 
c i agu 

p - zadana liczba 
25 INPUT "11= " ; 1 1 4 " L k ss lk 
30 INPUT "p = " ; p 
40 IF P<=lk THEN GO TO 10O 
50 print '"podana liczba p = "j 
p "jest większa od ostatniej 
i i cz by w ciągu = " ; i k 
6© PRINT ' "wczytujemy nowe p it 
ak/nie) 

70 INPUT X% PRINT X % 

80 IF X**" tak" THEN GO TO 30 
90 STOP 

100 PRINT '"liczby po dzielne pr 

zez ",p'"w ciągu ";il," ".i 

k 

105 PRINT ' 

110 FOR l sil TO lk STEP 1 

120 LET zsi/p 

130 IF IslNT (Z) *p THEN PRINT L 


6 9 12 15 18 21 24 27 3© 

Przykład 4.7 

Napisać program drukowania tablicy wartości funkcji In (x ? -f* 2) 
dla argumentu x zmieniającego się w granicach od x1 do x2 z kro- 
kiem h Wartości x1, x2, h wczytywane są w czasie realizacji pro- 
gramu. Należy sprawdzić czy spełniają one warunki 
x1 < x2 i h > 0. 

a) schemat blokowy 



10 REM Pr zuK lad 4.7 
1S PRINT "Tablicowanie furncji 
LN(xt2+2) w przedziale <xl,x2> 



40 PRINT "zle wartości xl i x 


- x 1 > =x 2 xl = ”;xi."x2 = ";x 

£0 GO TO 20 

60 INPUT "h= "ih 

70 IF h >0 THEN GO TO 95 

30 PRINT "z la wartość KroKu h 

- h < =0 h = " ; h 

90 GO TO 60 , 

95 PRINT '"Darie: ";"xl = ";xl; 

xa = " i x2; " h = - ; h 
100 PRINT ' " X"." Ln(Xł2+2) 

110 FOR X=X1 TO X2 STEP h 
120 PRINT X,LN 
130 NEXT X 
140 STOP 


140 ŃEXT l 
150 STOP 
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c)T wyniki dla przykładowych danych 


Tablicowanie funkcji LN(x-T2+2) 
w przedziale < x 1 , x 2 > z krokiem 


Dane : 

1 

2 

3 

4 


Ta b l i cowani e 
w przedziale 


zu wartości 
XI 5 


<£ a 5 h* 

Ln <x*2+2) 
1.0986123 
1.7917595 
2.3973953 
£ .8903713 
3. £958369 


funkcji LN(Xt2+2) 
<x 1 , x£ > z krokiem 


xl i x 2 - xl>ox£ 
X 2 a 1 


zia wartość kroku h - h<=i2 
1 


h 

Dane 

x 

1 

2 

3 

4 

5 


XI 


X 2 =5 h = 

Ln (Xt £+2) 
1 . 0986 123 
1.7917595 
2.3973953 
2 . 8903718 
3.2953369 

Przykład 4.8 


Napisać program drukowania tablicy wartości funkcji y zadanej 
wzorem: 

{ x? + 2 dla x < O 

cos (x) + In (x) dla O < x < 4 

(x)V< + (x)V> + (x)V* dla x > 4 


dla n — wartości zmiennej x 

Kolejne wartości zmiennej x mają być wczytywane w czasie rea 
zacji programu. 

) schemat^lokowy 



10 
15 
y d 
J X " 
20 
30 
35 
40 
50 
60 
O TO 
70 
ix i ) 
80 
90 
100 
110 


REM Przyk lad 4.8 
PRINT "tablicowanie funkcji 
la- n-wartosci zmienne 

1NPUT "n * " ;n 

PRINT ' " X"," y 

PRINT 

FOR i =1 TO n 

Input “X * ";x 

I F x<=0 ThEN LET y*x*x+2: G 

90 

IF X >4. THEN LET y =SQR iSGR 
+Xt i 1/3) +50R (X): GO TO 90 
LET y=COS X+LN X 
PRINT x i y 
NEXT i 
STOP 

ii.i pr/y« Indowych (lanych 


tablicowanie funkcji y dia 
n -wartość i zmiennej x 


-2 

6 

-1 

3 

1.5 

0.47620231 

3 

0 . 10361979 

16 

8.5193421 


Na tym kończymy omawianie podstawowych informacji o pęt- 
lach (cyklach obliczeniowych) oraz o instrukcjach cyklu FOR 
i NEXT Wiadomości te będą uzupełniane i rozszerzane w następ- 
nych wykładach, 

Zadania 

4.1 Podać ile razy i jakie wartości zostaną wprowadzone w trak 
cie wykonywania następujących fragmentów programów 


10 REM ZAD.4. 1. 1 
20 FOR X=-21 TO -1 STEP 3 
30 PRINT "X = " j X + 1 
40 NEXT X 


10 REM ZAD .4.1.2 
£0 FOR i =0 TO 5 
30 LET X s-3 + i *0.25 
40 PRINT "X = ".X 
50 NEXT i 


10 REM ZAD. 4. 1.3 
20 LET b = 32 
30 FOR J*1 TO 
40 PRINT "J = 

50 LET jsJ+2 
60 LET b*b+2 
70 NEXT j 
80 PRINT "b * 


b STEP 4 


: b 


10 REM ZAD . 4 . 1.4 
20 LET i=5 

30 FOR i z i -10 TO i +10 STEP ABS 

( i /£) 

40 PRINT "i = " ; i 
50 NEXT i 

60 PRINT ' "i * ; i 


4 2 Napisać następujące programy, tak, aby nie występowały 
w nich instrukcje cyklu FOR i NEXT — wykorzystać instruk- 
cje IF: 

4 21 program z przykładu 4.7 
42? program z przykładu 4.8 

Z.Z. 
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LOGO 


Program w języku Logo składa się z procedur — tyle 
wiemy już z dotychczasowych rozważań. Wiemy też. że 
procedury mogą być wywoływane od różnych parametrów, 
a zatem wywołane w odmienny sposób, mogą obliczać 
różne wartości — dla innych danych, albo też, jak to się 
niebawem okaże, wykonywać zupełnie inne obliczenia dla 
różnych wartości parametrów. Zazwyczaj rozwiązanie 
problemu wymaga napisania więcej niż jednej procedury. 
Procedury te muszą mieć możliwość porozumiewania się 
między sobą, przekazywania sobie nawzajem wyników ob- 
liczeń W tym celu w Logo przyjęto, że każda procedura 
może zwracać wartość. Wewnątrz treści procedury należy 
umieścić słowo WYNIK, a następnie wielkość, która po- 
winna być dostępna na zewnątrz procedury. Wielkością tą 
może być dowolny obiekt Logo. może też być to dowolne 
wyrażenie, które po obliczeniu „stanie się” obiektem (wyra- 
żenie jest po prostu skomplikowaną nazwą obiektu). Wy- 
konanie komendy WYNIK powoduje, że nazwie procedury 
nadawana jest wartość i wykonywanie tej procedury jest 
przerywane Nazwą takiej procedury Dosługujemy się tak 
jak obiektem, który jest jej wartością. Oto proste przykłady: 
.1) Obliczamy pole i objętość kuli o promieniu r, korzysta- 
jąc z procedury liczącej pole koła o tym samym promieniu 
(zauważmy. że: 4 / 3 m 3 = 


óro KOLO : r 

WYNIK PI+ * : f 
JUŻ 


* : r 


OTO KULO : r , . 
PISZ tpole kuli *3 


P|52 4 * KOL. O : r 
. > b g J t o i ć ku 
i / 3 


Cobjttość ku U’ *3 
3 i :r * KOLO 


2) Rysujemy wielokąt foremny, korzystając z procedury li- 
czącej, o jaki kąt powinien obrócić się żółw zależnie od 
liczby boków wielokąta: 


oiR-^ILOKfr 


POWToRZ 

ni : Ibj 
out 


: Ib 


: Ib :db 

cnp : d b ItKO ■ lestep 


8$5W L £ 

out 


STOPNI •• Ib 
SB / : l b 


Napiszmy tera/ procedurę „wielokąt 2" tak: 


OTO SPIRĄLfi :Odl 
NP ;odl 

LU : Kął , , 

SP1RPLB :*dl * .-tkok : 
jut 


: a ko K 

kąt :skok 


i wywołajmy ją. Na ekranie me będzie żadnego rysunku, ale 
Logo zapyta, co zrobić z wynikiem zwracanym przez pro- 
cedurę „wielokąt". Komenda WYNIK przekazuje dane na 
wyższy poziom i jednocześnie zatrzymuje działanie proce- 
dury. Jest to logicznie uzasadnione — po co jeszcze coś 
obliczać skoro wynik jest już ustalony. Gdybyśmy w ostat- 
niej procedurze „wielokąt zamiast WYNIK napisali STOP, 
nie otrzymalibyśmy na ekranie w ogóle żadnego efektu — 
procedura nic nie robi i nie ma żadnej wartości. Komenda 


STOP po prostu kończy, działanie procedury. Na obecnym 
etapie znajomości Logo może się wydawać, że używanie 
STOP jest pozbawione większego sensu. Tymczasem 
okaże się później, że komenda ta jest bardzo potrzebna i 
często stosowana. W angielskim Logo WYNIK to OUTPUT. 
a komenda STOP brzmi tak samo po polsku. 

Procedury rozwiązujące ten sam problem komunikują 
się między sobą. wywołują się nawzajem. Gdy jakąś czyn- 
ność należy powtórzyć wielokrotnie, najprościej jest, gdy 
procedura, która tę czynność wykonuje, wywołała samą 
siebie. Jest to tak zwane wywołanie rekurencyjne. Logo 
pozwala na posługiwanie się rekursją w programowaniu. 
Co więcej, w Logo rekursją jest jednym z podstawowych 
narzędzi programowania. Dla niektórych obliczeń program 
rekurencyjny jest najprostszym i najłatwiej narzucającym 
się rozwiązaniem. Tak jest choćby przy liczeniu „silni" liczby 
naturalnej: 


OTO SILNIA :n 
JEŚLI :n * 0 Emy 1) 

UY : n * SILNIA n - 1 
JUŻ 


W procedurze tej pojawiła się nader użyteczna instrukcja 
warunkowa JEŚLI. Jej zastosowanie w tym programie jest 
oczywiste, szczegóły JEŚLI nieco niżej. Tymczasem 
wróćmy do rekursji. Służy ona w Logo dosłownie do 
wszystkiego. Korzystając z niej można szybko i elegancko 
programować. Spróbujmy natomiast napisać jakikolwiek 
większy program, zupełnie nie posługując się rekursją. Je- 
stem pewny, że będzie to niełatwe zadanie, jeśli w ogóle 
wykohalne. Logo dysponuje tylko jedną instrukcją Iteracyj- 
ną (powtórzenie) — jest to już omawiana instrukcja 
POWTÓRZ. Wiemy już, że nie daje ona zbyt wielkich moż- 
liwości — trzeba z góry określić, ile razy należy wykonać 
podane po słowie POWTÓRZ instrukcje. W Logo nie ma 
instrukcji skoku w rodzaju choćby Basic’owego GO TO. 
Zatem zakładanie pętli z użyciem skoku jest niemożliwe. 
Pozostaje rekursją, z której należy jak najwięcej korzystać. 
Przy pewnej wprawie programowanie rekurencyjne jest 
bardzo naturalne i oczywiste. Trzeba się tylko przestawić 
na ten sposób myślenia. Łatwiej z pewnością będzie tym, 
dla których Logo jest pierwszym poznawanym językiem 
programowania, trudniej tym, którzy przyzwyczaili się do 
programowania w języku bez rekursji np. w Basic'u. Mają 
oni już utrwalone schematy myślenia programistycznego i 
trudniej im przyjdzie znajdować rozwiązania rekurencyjne, 
bo mimo woli najpierw będą się głowić nad rozwiązaniem 
iteracyjnym (za pomocą pętli) danego problemu. Tacy fani 
programowania najlepiej zrozumieją to. co fachowcy wciąż 
powtarzają: że ważne jest nie tylko to, by jak najszybciej ze- 
tknąć się z komputerem i programowaniem, ale także, a 
może nawet głównie to, by zrobić to w sposób właściwy — 
tak, aby od początku „zakodować" sobie odpowiednie od- 
ruchy myślenia programistycznego. A oto przykład nad- 
zwyczaj prostej a dającej niespodziewanie ciekawe efekty 
procedury rekurencyjnej: 


Ib : d b 
: I. b 

: d b iw ilestopni 


Jak wskazuje to jej nazwa, procedura rysuje spirale — jej 
kształt jest zależny od podanych parametrów: długości do- 
dawanego odcinka i kąta, o jaki za każdym razem obraca 
się żółw. Czytelnikom siedzącym przy komputerze radzę 
wypróbować działanie procedury „spirala" dla różnych 
wartości parametrów. Prawda, że rysunki są interesujące? 
Ci, którzy testowali procedurę zauważyli już, że procedura 
„spirala" raz uruchomiona działa bez końca. Trzeba ją 
dokończeni* na atr. 24 


OTO UIEL0K4T2 : 
yYNIK_|LE5T0PNI 
Cnp 


POWTÓRZ 
b3 

JUŻ 
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przerywać naciskając klawisz BREAK. Aby procedura 
kończyła swe działanie bez brutalnej interwencji z ze- 
wnątrz, trzeba w jej wnętrzu umieścić instrukcję stopu, ob- 
warowaną jakimś sensownym warunkiem. Instrukcja wa- 
runkowa w polskim Logo zaczyna się od słowa JEŚLI, dalej 
następuje warunek (na przykład: n=0) i dwie listy. Pierwsza 
z nich zawiera instrukcje, które są wykonywane, gdy waru- 
nek jest spełniony, druga — instrukcje do wykonania przy 
niespełnionym warunku. Pierwsza lista musi być podana, 
drugą można pominąć. Instrukcja warunkowa w procedurze 
„silnia" jest zapisana właśnie z pominięciem drugiej listy. W 
tej sytuacji Logo stwierdzając, że zadany warunek nie jest 
spełniony, po prostu przechodzi do wykonywania następ- 
nej po JEŚLI instrukcji. Zauważmy, że procedurę „silnia 2" 
możemy równoważnie zapisać tak: 

0.0 5ILNIR2 : n 

n?«a X, n n - s ai Cwy :n * si 1 

jut 


W procedurze „spirala" instrukcję warunkową wykorzy- 
stamy dla zatrzymania rysowania spirali w odpowiednim 
momencie. Przyjmijmy, że na przykład procedura ma 
przerwać rysowanie, gdy jednorazowo kreślony odcinek 
będzie miał długość większą niż 100: 


OTO SPIRALA2 
JEŚLI * dl > 
NP : o dl 
LU : kąt 
SP IRALA2 O d l 
JUŻ 


: O d l : K ą t 
100 CS top 


+ .skok 


3 


■.skok 


kat 


ko K 


W angielskim Logo zamiast JEŚLI należy pisać IF. Inne 
zasady dotyczące zapisu instrukcji warunkowej są takie 
same, jak w polskiej wersji języka. A oto jeszcze jeden pro- 
gram w istotny sposób wykorzystujący instrukcję warunko- 
wą i możliwość przekazywania wyników obliczeń przez 
procedury. Podany niżej komplet procedur oblicza i wypi- 
suje na ekranie pierwiastki równania kwadratowego oraz 
współrzędne wierzchołka paraboli, będącej wykresem 
funkcji kwadratowej o zadanych współczynnikach. Pro- 
gram doskonale nadaje się do weryfikacji rozwiązań szkol- 
nych 7a dań do odrobienia" w domu 1 


OTO RÓUKJPD : a : b : C 
MI| JSCP2ERDUE : a : b : C 
WlfR7CH0*EK :a :b :C 


OTO M2£ JSCAZEROulE :a : b : C , 
JEŚLI O > DELTA :a :b :c CsJopJ 

JEŚLI 0 * -DELTA a :b :C Cp«sx C 

X© *3 PISZ - : b / ( 2 * > STO 

PI 

PISZ Ol *3 PISZ XI :a :b :C 
PISZ t*2 *3 PISZ X2 :» :b :C 
JUŻ 


^ISZ 
PISZ 
PISZ 
PISZ 
* : a 
już 


Ex =3 

- : b / ( 2 * 
Cy b3 

( - DELTA : a 

) 


: a 
: b 


C 


✓ ( 4 


Nic dotychczas nie mówiliśmy o zmiennych w Logo. A 
zatem zmienną w tym języku można utożsamiać z nazwą. 
Jest to jak gdyby etykietka przyporządkowana obiektowi 
Logo, a nie tak jak w niektórych innych językach pudełko, 
do którego wkłada się wartości zmiennej. Obiekty opatry- 
wane są etykietkami za pomocą instrukcji przypisania. Po 
słowie PRZYPISZ należy podać nazwę zmiennej, poprze- 
dzoną cudzysłowem, a następnie wartość nadawaną tej 
zmiennej. Wartość ta powinna mieć normalną dla Logo po- 
stać: liczby podaje się zwyczajnie, wartości zmiennych 
powinny być poprzedzone dwukropkiem (zapis taki jak dla 
parametrów procedur), nazwy funkcji (procedur zwracają- 
cych wynik) wymienione normalnie, listy jako ciągi obiek- 
tów ujęte w nawiasy kwadratowe (o listach i operacjach na 
nich będzie szczegółowo w następnych odcinkach), słowa 
(napisy) poprzedzone cudzysłowem. Na przykład: 
PRZYPISZ "y 89 
PRZYPISZ "ala "kot 

PRZYPISZ "x :y — etykietka dla x została przypisana także 
wartości 89. Przypisywać można także skomplikowane wy- 
rażenia np: 

PRZYPISZ "XI (— :b - PIERWIASTEK delta a :b :c) 
12 + :a 

W angielskim Logo odpowiednikiem słowa PRZYPISZ jest 
MAKE. Instrukcję przypisywania można wykorzystać 
choćby do zaprogramowania iteracyjnej wersji procedury 
„silnia": 


JTO SILN1A3 : n 
PR2YPIS2 *'m 1 
PRZYP 0 
POUTdRZ : f 

B "m :m * 

V . : m 

UU2 


UToRZ :fl Cjr zyp 


T 1 pr zy 


Na zakończenie, jak zwykle, przypomnijmy sobie nowe 
słowa poznane w tym odcinku. A więc. 

PRZYPISZ (PRZYP) przypisuje wartości nazwę: np. 

przyp "all to nadanie nazwy 
a liczbie 1 1 (ang. MAKE) 

WYNIK (WY) n przypisuje procedurze wartość i 
kończy jej działanie (ang. OUT- 
PUT (OP)) 


OTQ DELTO ; a : b 
UYNIK : b * : b * 

JUŻ 


OTO XI :a 

UY.C - : b 

: b : C ) / 
JUŻ 


: b : c 

- T 


OTO X2 
WY l - 
✓ ( 2 * 

Jut 


.9 : b : C 

r 


: c 

4 e 


BUIftSTtK D£LTP ;a 

* :a ) 


OELTfl : a : fa :c ) 


OTO UIEftlCHOtEK 
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: a 

nt 


t b : C 

Wł ec 2 thołkMl 


STOP kończy działanie procedury 

(przerywa — powoduje „wyjście" 
z procedury) (ang. STOP) 


Jeśli war akcjal akcja2 jeśli warunek jest prawdą wyko- 
nuje się lista — akcjal . w przeci- 
wnym przypadku akcja 2 (może 
jej zresztą nie być) 


PIERWIASTEK (PKW) n daje (zwraca) pierwiastek kwa- 
dratowy n (ang.SORT) 

•SIS 



W bardzo wielu zastosowaniach matematyki korzy- 
sta się z funkcji zwanych wielomianami. Wynika to ze 
szczególnych własności tych funkcji: 

— łatwość obliczenia wartości wielomianu za po- 
mocą skończonej liczby mnoień i dodawań; 

— łatwość wykonywania podstawowych działań 
arytmetycznych: dodawania, odejmowania, mno- 
żenia, dzielenia, obliczania pochodnej i całkowa- 
nia; 

— możliwość wykorzystania wielomianów do apro- 
ksymacji funkcji ciągłych z dowolną dokładnoś- 
ci* 

Wykonanie takich podstawowych działań arytmety- 
cznych, jak dodawanie i odejmowanie wielomianów, z 
reguły nie sprawia nam trudności, gdyż sprowadza się 
do redukcji wyrazów podobnych. Natomiast mnożenie 
i dzielenie wielomianów wymaga nie tylko znajomości 
odpowiednich metod, ale cierpliwości w wykonywaniu 
żmudnych obliczeń. W takich przypadkach okazuje się 
pomocny mikrokomputer. Zamieszczony poniżej pro- 
gram WIELOMIANY wspomaga wykonanie tych ope- 
racji. Jest on tak skonstruowany, że pozwala w prosty 
sposób rozbudować swe możliwości o dodatkowe 
operacje na wielomianach. 

Program WIELOMIANY opracowany został na mi- 
krokomputery: Commodore 64, Plus/4 1 16. Ola mikro- 
komputerów Commodore 16 i Plus/4 należy wiersz 10 
zmienić według wzoru (patrz 10 str. 26). 

Program WIELOMIANY umożliwia wykonanie dzia- 
łań (mnożenia i dzielenia) na wielomianach postaci: 

A(x) = a„x" + an-,*"' 1 + ... + a 0 
B(x) = b m x m + bm-ix m_1 + +b 0 

gdzie a n * 0; b m * 0. 

Zapisując wielomiany (np. A(x) = 2x* + x 3 + x — 1) 
podajemy: 

— stopień wielomianu (w naszym przykładzie jest 
równy 4) 

— dla współczynników różnych od zera: numer 
współczynnika i jego wartość (nr 0, wartość —1; 
nr 3, wartość 1; nr 1, wartość 1; nr 4, wartość 2). _ 

Zapisywanie wielomianu kończy się po podaniu war-* 
tości współczynnika o numerze równym stopniowi wie- 
lomianu. Istnieje możliwość modyfikacji postaci wie- 
lomianów przy ponownym wykorzystaniu operacji za- 
pisu. 

W wyniku operacji mnożenia wielomianów A(x) I 
B(x) uzyskujemy wielomian W(x) = A(x) * B(x). W wy- 
niku operacji dzielenia wielomianu A(x) przez wielo- 
mian B(x) otrzymamy iloraz W(x) I resztę z dzielenia 
R(x) spełniające równość: 

A(x) =W(x) • B(x) +R(x) 

Wyniki wyprowadzane są według konwencji zapisu, 
tzn. numery i wartości współczynników różnych od ze- 
ra. 

Algorytmy mnożenia i dzielenia wielomianów wyko- 
rzystywane w programie WIELOMIANY są odmienne 
od tych, jakimi posługujemy się w obliczeniach rę- 
cznych. Zainteresowanych namawiam do prześledze- 
nia tych algorytmów i na ich podstawie opracowania 
szczególnych algorytmów dzielenia wielomianu przez 


COMMODORE C-64 


dwumian x — bo lub trójmian kwadratowy 

x 2 4- b,x + bo. 

Dla osób, które będą chciały rozbudować program 
WIELOMIANY, podaję krótki opis kodu programu: 


1. wiersze 20—70: wyświetlenie informacji o 
operacjach aktualnie moż- 
liwych do realizacji; wybór 
operacji; 


wiersze 

90-160: 

wiersze 

170—230: 

wiersze 

240-300: 

wiersze 

310—350: 

wiersze 

360—560: 

wiersze 

600-620: 


zapis wielomianu A(x) 
zapis wielomianu B(x) 
wykonanie dzielenia wie- 
lomianów A(x) przez B(x) 
wykonanie mnożenia wie- 
lomianów 

wyprowadzenie wyników 
w zależności od ostatnio 
wykonanej operacji 
„czyszczenie" ekranu po 
obejrzeniu partii wyników. 


2. zmienne sterujące: 

T — określa aktualnie dostępne operacje; 

D — określa matrycę, według której należy wypro- 
wadzać ostatnio otrzymane wyniki. 


Uwaga: w tekście programu zamiast znaku $ użyty jest 
znak x 


0 REM ***UIEL.OMIANY*** 

1 0 T» 1 s D IMW < 39 ) b 0 1 064 a POKE53280 , 0 s 
P0KE53281 ,0 

20 PRINTCHRK < 147 > 'OPCJE s ~ a ONTGOTOA0 
r ~~i0 40 ‘<0 

3® PRlŃr"6 - WYNIKI* 

4® PRINT"5 - MNOŻENIE WIELOMIANÓW A 
<X)*B<X)*:F‘RINT*4 - DZIELENIE WIELO 
MIANOW A < X ) /B < X > " 

5® PR I NT "3 - ZAPIS WIELOMIANU B<X>" 
A® PRINT"2 - ZAPIS WIELOMIANU A<X>" 
:PRINT“1 - KONIEC" sPRINTs INPUT"WYBI 
ERAM* ,0/ 

7® PRINTCHRK <147) sON OX GOSUB 80.90 
,170,240,310,360: GOTO20 
80 ENB 

90 IFT>1THEN12® 

100 INPUT " MAKSYMALNY STOPIEŃ WIELOM 
I ANOW" s MSZ s IFMSX<0THEN100 
110 DIMA(MSZ) ,B<MSX> ,C<MSX+MSX> :T«=2 
120 INPUT* AKTUALNY STOPIEŃ WIEL. A< 
X ) " , SAZ s IFSAZ >MSXORSAX< 1THEN120 
130 INPUT*A<X> s NR WSP. " jNUX: IFNWZ 
>SAXORNWX < 0THEN 1 30 

140 INPUT"A(X>« WARTOŚĆ" jA(SAX-NWX 
) s IFNWX< >SAXTHEN13® 

150 IFA<0)=0THEN140 

160 RETURN 

17® IFT < 2THENRETURN 


dokończenie na str. 26 
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dokończenie ze etr. 25 


18® INPUT "AKTUALNY STOPI EN UIIEL. B< 
X > " t SRX 8 IFSBX >MSXORSBX< 1THEN100 
19® INF'UT"B<X>a NR WSP."»NUXiIFNWX 
> SBXORNUX < 01 HEN 1 V® 

20® INPUT"B(X)a WARTOŚĆ" aB(SBX-NWX 

>aIFNUXOSBXTHEN190 

210 IFB<0)~0THEN2®0 

22® IFT-2THENT-3 

230 RETURN 

240 IFT< 3THENRETURN 

250 XFSBX > 8AXTHENFQRK-0TQ8AX s C < K > -A 

< K ) s NEXT » D-2 1 RETURN 

260 S»SAX-SBX a FORK-0TOBAX s JP-K-SBX 1 

IF,JP<0THENJP-0 

265 JK-K-1 a IFK >STHENJK-S 

270 C < K ) -0 ! FOR J- JPTO JK aC<K>»C<K>+C< 

J>*B<K~J>aNEXTaC<K>«A<K>-C(K) 

280 IFK<«STHENC(K)“C<K)/B(0) 

290 NEXTaIFT-3TMENT«4 

300 D“1 « RETURN 

310 I FT < 3THENRETURN 

320 FORK-0TOS AX+8BX z JP-K-8 AX a 1 F JP < 0 

THENJP-0 

330 JK»SBX « IFJK >KTHENJK-K 

340 C ( K ) -0 s FOR J» JPTO JK a C < K > »C < K > +B ( 

J ) *A < K- J ) « NEXT « NEXT « IFT-3THENT-4 

350 ri=3« RETURN 

360 IFT < 4THENRETIJRN 

37® K»0 i ONDGOSUB380 , 47® , 52® ! PRINT ! I 

NFUT "OBEJRZAŁEŚ " j Z* a RETURN 

38® PRINT"WSPOI. CZYNNIKI ILORAZU ROZ 

NE OB ZERAi " sF'RINTaU-1 

390 I FC < K ) -0THE.N4 1 0 

400 OOSUB600 a F'R INT " WSP . NR"S-KjTAB< 


12) "WARTOŚCI "C<K> 

41® K-K+l « IFK< -SAX-SBXTHEN390 

415 PRINT « INPUT"OBE JRZAI-ES" » Z* 8 PRIN 

TCHRw<147) 

41*0 F'RINT"WSPOLCZYNNIKI RESZTY ROZN 
E OH ZER A » " # F'R I NT a W® 1 1 
430 IFC<K)»®THEN450 
44® OOSUB600 bPRINT"W8P. NRb"SAX-K|T 
AB( 12) "WARTOŚCI "C(K) 

450 K-K+l i IFK< »SAXTHEN430 
460 RETURN 

470 PRINT" WSPÓŁCZYNNIKI RESZTY ROZN 
E OD ZERAi" «PRINTaW»l 
480 IFC<K)»0THEN500 

490 OOSUB600«PRINT"WSP. NR"SAX--K|TA 
B< 12) "WARTOŚĆ 8 "C<K) 

50® K»K+i8lFK<»SAXTHEN480 
51® RETURN 

520 PRINT"WSPOLCZYNNIKI ILOCZYNU RO 
ZNE OD ZERA a " 3 PR I NT a W- 1 
530 I FC < K > -0THEN550 
540 OOSUB600aPRINT"WSP. NRa"SAX+SBX 
-K > T AB < 1 2 ) " WARTOŚĆ a "C < K ) 

550 K-K+l bIF'K<»SAX+SBXTHEN530 
560 RETURN 

600 W-W+l a IFW<20THENRETIJRN 

610 W— 0 a PRINT a INPUT"OBEJRZAI. ES" a Zw a 

FORI-0TO39 8 W < I ) -PEEK ( C+ 1 ) I NEXT 

620 PRINTCHRm < 147 ) b FORI-0TO39 a POKEC 

+1 ,W< I > a NEXTa PR INT a PRINT a RETURN 


10 T-l i DIMM (39)1 (>3112 1 COLOR0 „ 1 , 1 1 
COLOR4, 1,1 



ATARI 


Program mole służyć do nauki al- 
fabetu Moraa’a z dźwiękowym i wi- 
zualnym |ago odwzorowaniem lub 
po podłączeniu mikrokomputera do 
nadajnika |ako moduł usprawniający 
pracę operatora. 

Korzystajęc z tago programu mo- 
żna nadawać klawiaturę lub klu- 
czem. W obu przypadkach jast moż- 
liwe otrzymania na ekranie znaków 
Morae'a lub alfabetu łacińskiego. 
Ponadto takie kody Jak: nazwa sta- 
cji, wywołania ogólna itp., nadawa- 
ne aę w całości przez naciśnięcie 
określonego klawisza. W tym celu 
należy powrócić do MENU wciska- 
Jęc klawisz „ t ", a następnie wcls- 


nęć klawisz z literę występujęcę przy 
danym kodzie. 

W miejsce nazwy stacji SP5IVJ na- 
leży wpisać swoję nazwę. Dokonuje 
się tego w L.136 I L.4000 (na końcu 
clęgu należy pozostawić gwiazdkę). 
Gdyby użytkownik zechciał rozsze- 
rzyć zestaw znaków alfabetu Mor- 
ska, wystarczy wprowadzić do pro- 
gramu dane pomiędzy L.20050 I 
L.20060 np. 20055 DATA (znak), 
(kod znaku). 

Szybkość emitowania znaków za 
pomocę klucza zależy od sprawnoś- 
ci manualnej użytkownika araz Ja- 
kości klucza. Stęd też w przypadku 


znaków dekodowanych I otrzymy- 
wanych w postaci alfabetu łaciń- 
skiego na ekranie monitora wpro- 
wadzono pętlę L.2120,2140. W pętli 
taj zmlennę CZ ustala się czas, w 
Jakim Jest dekodowany wprowadzo- 
ny znak. Zmienna CZ obliczana 
Jest w L.2103 na podstawia dane) Z 
wprowadzonej w 1.2102. 

Jako klucz nadaje się najbardziej 
przedstawiony na rysunku manipu- 
lator klucza elektronowego, Przyta- 
cza eię go do wyprowadzeń nr 3, 4 1 
8 (GND) gniazda Joystick'a ozna- 
czonego na obudowie mikrokompu- 
tera Jako CONTR LLERS 1. Zamiast 
klucza można stosować również 
Joystick, Jednak powoduje to zna- 
cznie wolniejsze nadawanie. Prze- 
kazywanie sygnału z mikrokompute- 
ra do nadajnika dokonują się z koń- 
cówek nr 3 I 2 (GND) gniazda 
MONITOR. 
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5 REM **Alfabet Morse 'a** 

6 REM <C) Janusz J. 

7 REM Warszawa 1986/7 
10 OPEN #1,4,0, H K=" 

12 ? " > “ J POKE 752/1 
14 GRAPHICS 2 

16 POSITION 2/1? #6/ 

18 POSITION 2/3 : ? #6 i “alfabet morse'a" 
20 POSITION 2/5 1 ? #6,"<C> 1986/7" 

22 POSITION 2/ 7 ! ? #6; 

25 DIM B<12,9>,SP*<7>,L*<10> 

26 DIM WL*a>,DL*<l>,AS<6> 

28 DIM KL*<6>,AL*<1>,K*<6> 

29 L*= "01 23456789 " 

30 FOR E=0 TO 4 
35 FOR F=0 TO 4 

40 EF=E+FFE=INT<0.3*F*E> 

45 B<F,EF)=45 
50 B<F+6 ■ EF+1 >=46 
55 B<F+6,FE>=45 
60 B<F+1,FE>=46 

65 NEXT F=NEXT E 

66 B< 10/ 0>=45 : B< 10, 1 >=46 : B< 10, 2 >=46 
B<10,3>=46=B<10,4)=45 

67 B< 1 1 / 0>*45 ! B< 1 1 , 1 >*46 1 B< 1 1 , 2>*46 
B< 1 1 , 3>=45 = B< 1 1 , 4)*46 

70 ? = ? " WcisniJ dowolna klawisz" 
75 GET #1/P 
80 GRAPHICS €H- 16 
82 POKE 752/1 
84 POKE' 764. 147 
100 ? ">“ 

110 POSITION 16,5=? " MENU " 

120 POSITION 7,7-7 "A - KORZYSTANIE 
Z KLAWIATURY " 

130 POSITION 7, 8 = ? W B - KORZYSTANIE 
Z KLUCZA" 

135 POSITION 15,11 ? H KODY= “ 

136 POSITION 14/13 ? "D - SP5IVJ M 

137 POSITION 14,14? "E - ORZ" 

138 POSITION 14,15? "F - QRA" 

139 POSITION 14,16=? "G - ORT" 

140 POSITION 14,17=? "H - GRX" 

141 POSITION 14,18=? "I - QTH" 

160 GEJ #1 , AM 

165 IF AM <65 OR AM>73 THEN 160 
170 MA-AM-64 
180 GOTO 100O4MA 

1000 REM WYKORZYSTANIE KLAWI ATURY 
1010 GOSUB 1500 
1020 ? ">* 

1025 IF AK=42 THEN 100 


1030 GET #1,X 

1032 IF X=42 THEN 1010 

1033 IF AK =65 THEN ? CHR*<X>> 

1035 IF X>46 AND X<58 OR X«61 THEN 140« 
1040 WL*=CHR*<X> 

1050 RESTORE 
1060 READ DL*, A* 

1065 L=LEN<A*> 

1070 IF DL*="*" THEN ? # BRAK DANYCH * 

/ GOTO 1030 

1080 IF DL*=WL* THEN 1200 
1090 GOTO 1060' 

1200 FOR D=1 TO L 
1210 IF AK=65 THEN 1230 
1220 ? A*<D,D> , 

1230 IF AfCD/D)**-" THEN GOSUB 1300 
GOTO 1245 

1240 FOR F=1 TO 8 SOUND 0,20/14,15= 

NEXT F 

1242 FOR F=1 TO 10=NEXT F 

1245 SOUND 0,0/ 0,0 

1250 NEXT D 

1255 ? " "ż 

1260 GOTO 1030 

1300 FOR F=1 TO 30 

1310 SOUND 0/20, 14, 15 


1320 NEXT F 
1330 RETURN 
1400 Z=X-48 

1402 IF 2=13 THEN 2=10 
1404 IF Z=-l THEN Z»ll 
1410 FOR FF=0 TO 4 
1415 IF AK=65 THEN 1425 
1420 ? CHRS<B<Z,FF) ) ; 

1425 IF 8<Z, FF>=45 THEN GOSUB 1300 
GOTO 1432 

1430 FOR U=1 TO 8 > SOUND 0,20,14/15 = 
NEXT U 

1431 FOR U=1 TO 10 = NEXT U 

1432 SOUND 0,0, 0,0 
1435 NEXT FF 

1440 ? M ", 

1450 GOTO 1030 
1500 ? ">" 

POSITON 7,5*? "CO CHCESZ NA 
EKRANIE ?" 

1520 POSITION 10,7? "A - alfabet" 
1530 POSITION 10,8=? "B - kod Mors' 
1540 POSITION 10,10.?"* - powrot 
do menu" 

1550 GET #1 , AK 
1560 RETURN 

2090 REM WYKORZYSTANIE KLUCZA 

2004 POKE 764,255 

2005 GOSUB 1500 

2007 IF AK =65 THEN 2100 

2008 IF AK =42 THEN 100 
2010 ? ">" 

2015 ST*STICK<0> 

2020 IF ST-11 THEN ? •.*,=FOR F=1 T 

O 8 SOUND 0,20,14, 15= NEXT F 

2030 IF ST*7 THEN ? FOR F=1 TO 

30 SOUND 0,20, 14, 15=NEXT F 

2040 SOUND 0, 0,0,0 

2050 IF PEEK<764>*7 THEN 2004 

2060 GOTO 2015 

2100 POSITION 10,14? *CZRS DEKODOW 

2101 POSITION 17,15? " < 10 - 60 >" 

2102 POSITION 27,14=? i = INPUT 2 

2103 CZ=INT<120/Z> 

2105 ? ">" 

2110 DK=1 
2115 KL»="" 

2120 FOR R=1 TO CZ 

2121 SOUND 0,0/ 0,0 
2123 ST=STICK<8> 

2125 IF ST-11 THEN 2210 
2130 IF ST=7 THEN 2230 

2133 L=LEN<KL*> 

2134 IF L=6 THEN 2175 

2135 IF PEEK<764>=7 THEN 2004 

2136 IF L-5 THEN 2300 
2140 NEXT R 

2178 IF L=0 THEN 2120 
2175 RESTORE 
2180 READ AL$,K* 

2185 IF AL*="$" THEN 2400 

2190 IF K*=KL* THEN ? AL*/ GOTO 2110 

2195 GOTO 2180 

2210 IF DK>6 THEN 2400 

2212 KL*<DK,DK)=" . " 

2215 FOR F=1 TO 8 -SOUND 0,20,14,15 

=NEXT F 

2220 DK=DK-*-l 

2225 GOTO 2120 

2230 IF DK>6 THEN 2400 

2232 KL*<DK,DK)="- H 

2235 FOR F»1 TO 30 SOUND 0,20,14,15 

= NEXT F 

2240 DK-DK+1 

2245 GOTO 2120 

2300 FOR G*0 TO 11 

2310 FOR E=0 TO 4 

2315 N—E+l 

dokończenie ne itr. 21 
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4810 IF L*<M,f1>=SP*<N,N.' THF.N 4828 

4815 NEXT M 

4820 MM=M-1 

4830 FOR F=0 TO 4 

4840 IF B<MM,F>=46 THEN GOSUB 4930 

; GOTO 4860 

4850 GOSUB 4900 

4860 NEXT F 

4890 GOTO 4510 

4900 FOR E=1 TO 19 

4910 SOUND 0,20,14,15 

4920 NEXT E 

4930 FOR E=1 TO 5 

4940 SOUND 0,20,14,15 

4950 NEXT E 

4960 SOUND 0,0, 0,0 

4970 FOR E*1 TO 5 

4975 NEXT E 

4980 RETURN 


5000 SP$="QRZ*" 

5019 GOSUB 4500 

5020 GOTO 168 
6000 SP*«"QRfi*" 

6010 GOSUB 450O 
6020 GOTO 160 
7000 SP*» M QRT*" 

7010 GOSUB 4500 
7020 GOTO 160 
8000 SP*«"QRX# M 
8010 GOSUB 4500 
8020 GOTO 160 
9000 SP*="QTH*" 

9010 GOSUB 4500 
9020 GOTO 160 

20000 DflTfl fi, .-.B,-... 

20010 DfiTfi J,. , N, 

20020 DfiTfi fi, — ,F, . 
20030 DfiTfi D,-..,R, 
20040 DfiTfi L, . - . . , Q, — 
20050 DfiTfi U, 

20060 DflTfl $,t 


O,- 

Z,™ 

H,., 

-,P, 



2317 IF G=1 1 AND ASC<KL*<N,N>>OB<ll 
,E) THEN 2400 

2320 IF RSC(KL*<N,N>)OB<G,E>THEN 2 
330 

2323 IF E=4 AND ASC<KL*<5,5>>=B<G,4 
) THEN 2333 

2325 NEXT E _ 

2330 NEXT G 

2333 IF 6=10 THEN ? "=**; >GOTO 2110 
2335 IF G=1 1 THEN ? ‘V“;=GOTO 2110 
2350 ? G; 

2360 GOTO 2110 

2400 ? "BRAK OKREŚLENIA ZNAKU", 

2410 GOTO 2110 
4000 SP*="SP5IVJ*" 

4005 LS=LEN<SP*> 

4010 GOSUB 4500 
4020 GOTO 160 
4500 N=0 
4510 N=N+ 1 

4515 IF LS>4 AND N=3 THEN 4800 
4520 RESTORE 
4530 READ DL*, A* 

4540 IF A*="*" THEN RETURN 
4550 IF DL*=SP*<N,N> THEN 4570 
4560 GOTO 4530 
4570 L=LEN<A*> 

4580 FOR- F=1 TO L 

4590 IF A* <F,F >=•>." THEN GOSUB 4938 
GOTO 4690 
4610 GOSUB 4900 
4690 NEXT F 
4700 FOR. E=1 TO 12 
4710 NEXT E 
4720 GOTO 4510 
4800 FOR M=1 TO 10 


3 8 \ 



I 


IKS — strona 28 




Wideo — 
straszak 

Cokolwiek zrobilibyśmy — będzit 
źle. Nie było w Polsce komputerów - 
źle. Są — też źle. Taka ocena sytuacj 
przypomina starą anegdotę, Znacie' 
No to. posłuchajcie! Otóż w knajpci 
siedzi kilku „podciętych" facetów. Nu 
dzi im się. Spostrzegają przy sąsiednin 
stoliku chudego, bladego faceta w oku 
larach. Rozmowa „zmęczonych" nabie 
ra rozmachu. 

— Trzeba by mu dać w ucho! 

— Ale za co? 

— Spytaj się go czy był kiedyś v. 
Gródku... 

— A jak był? 

— Dasz mu w uchę. 

— A jak nie był? 

— Też dasz mu w ucho! 

Ludzie nam niechętni zawsze znajdą 
powód, aby próbować wbić przysło 
wiową szpilę. Tym razem okazją stały 
się minikomputery i videokasety. Nie 
dawno londyński dziennik „The Times 
opublikował artykuł pod frapującym ty 
tułem: „Początek innych wojer 

gwiezdnych”. Autor, mister Roget 
Boyes rozwodził się długo i boleśnie na 
temat zagrożenia, jakie rzekomo dla 
Polski i w ogóle krajów socjalisty 
cznych stanowią owe minikomputery 
videokasety. Dlaczego? 

Ponieważ można je wykorzystał 
do antypaństwowej roboty, np. v. 
zaciszu domowym, wyświetlać dla ro 
dżiny, a co gorsze dla sąsiadów, ta-- 
np. film jak „Amadeusz" Milosa Forma 
na. który z pewnością uważany jesi 
„tam", to znaczy — u nas, za „niebez- 
pieczny ładunek". I właśnie, dlatego, 
mieliśmy okazję zobaczyć go przed pa- 
roma miesiącami na „Konfronta- 
cjach‘86". 

Henryk KAWKA 



Giełda... październik’86 

Foto: J. Zelman 


JANUSZ HILLER 
SHARP PC- 1500 
SPIRALA 

10: BEEP 10,100.10 
0 

20: “A":CLEAR : 
USINS : WAI T 0: 
RADIAN : GRAPH 

30: INPUT "ILE SPI 
RALi ? N*“ ! N: N 
=ABS N: N=INT N 
: IF N=0GOTO -10 

40: INPUT "ILE ZUI 

TEK ? Z="> Z ! 2= 
ABS Z: Z=INT Z: 
IF Z=0GOTO 10 

50: A=2»H/N:Din U( 
N, 2) 

60:S=IU40:Q=1/CZ¥ 
2) : PRINT "N";N 
Z" j z 

70: FOR K=0TO CN-l 

80:n=n+i:u<n, u=6 
0YCOS CK*A) 

30: UCH, 2>=50*SIN 
<K*A> 

100:NEXT K 
1 10:-RLINE -C80, 0), 
9: SORGN 

120: FOR K=1T0 N 
130: X=U(K> 1 ) : Y=UCK 
, 2 ) 


140: LINĘ - <0, 0>-<X 
, Y), 9: SORGN 
150: T-0: R=0t X2=0: Y 
2=0tU=U+l: IF U 
=4LET U=1 
160: COLOR U 
170: FOR J=lT0 Z 
180: FOR l=1T0 80 
190: X1=X2: Y1=Y2: T 
T+S:R=R+Q:X2= 
YCOS T 

200: Y2=R*SIN T: IF 
CK-INT CK/2>*2 
>=0LET X2=-X2 
210: LINĘ -CX1,Y1>- 
CX2, Y2>, 1 
220: NEXT L : NEXT J 
230: LINĘ - CX2, Y2>“ 
< 0 , 0 >, 9 

240: NEXT k: TEXT 
250: END 



ZAKŁADY ELEKTRONICZNE „MICRONET" 



MICRONET 


ODDZIAŁ Gdański 
ul. Krasickiego 9 
81-836 Sopot 

tal. 51-13-17, 41-32-25 w. 36, 65 
tlx 051-2299 
ODDZIAŁ BYDGOSKI 
ul Sobieszewska 17 
85-717 Bydgoszcz 
tel. 42-29-32 
oferują do sprzedaży: 


TERMINAL EKRANOWY SERII AN-2000 

— 24 wiersze po 80 znaków 

— duże i małe litery, alfabet polski 

— interfejs szeregowy V-24 

Wykorzystując ww. terminal Instalujemy również wielodo- 
stępne systemy na mikrokomputery typu IBM PC 
OFERUJEMY PONADTO WSPÓŁPRACĘ W ZAKRESIE: 

— konstrukcji i oprogramowania mikroprocesorowych sy- 
stemów kontrolno-pomiarowych 

— elektronicznego sprzętu medycznego 

— montażu i uruchomień urządzeń elektronicznych w małych 
seriach na podstawie zleconej dokumentacji technicznej 

ZAPRASZAMY! 
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Zadanie 2 


LIGA MYŚLĄCYCH 


Zadanie nr 1 

Na drodze o długości 720 m przednie koło wozu wykona- 
ło o 96 obrotów więcej niż tylne. Gdyby obwód każdego ko- 
ła był o pół milimetra mniejszy, to przednie koło na tej 
samej drodze wykonałoby o 1 28 obrotów więcej niż tylne. 

Obliczyć długość obwodu każdego koła. 


Zadanie nr 2 

W szkole przeprowadzono ankietę wśród uczniów na 
temat nowo wprowadzonego programu nauczania z ma- 
tematyki. Jeden z uczniów, miłośnik łamigłówek w rubryce 
wiek ankietowanego wpisał: jeśli mój wiek, który będę miał 
za trzy lata, trzykrotnie zwiększycie i odejmiecie od tego 
powiększony trzykrotnie mój wiek, który miałem trzy lata 
temu, to dowiecie się ile mam obecnie lat. 


Zadanie nr 3 

Na przebycie drogi o długości 520 km, jeden podróżny 
zużyje o 3 dni więcej czasu niż drugi, który przebywa 
dziennie o 12 km więcej niż pierwszy. Ile dni potrzebuje 
każdy z nich na przebycie tej drogi? 


Zadanie nr 4 

W trójwymiarowej przestrzeni danych jest n-punktów, z 
których żadne cztery nie leżą na jednej płaszczyźnie. Ile 
prostych i ile płaszczyzn wyznaczają te punkty? 


Rozwiązania zadań prosimy przesyłać do redakcji do końca 
listopada br., z dopiskiem „Liga Myślących". Punktacja zależy 
od liczby prawidłowych rozwiązań. Wśród uczestników rozlo- 
sujemy książki, a na zwycięzców „Ligi" czekają dodatkowe 
cenne nagrody — niespodzianki. 


Odpowiedzi do zadań z 4 nr. „IKS-a” 


Wszystkich możliwości wylosowania trzech różnych cyfr 
z dziesięciu, a więc wszystkich kombinacji 3-elemento- 
wych z 1 0 jest: 

(re) = 3! (10-3)f .'i- 120 - 

Sprzyjających kombinacji czyli takich, kiedy suma 
cyfr równa się 9 lub 18 jest tylko 14 (018, 027, 036, 
045, 126, 135, 234, 378, 468, 567, 918, 927, 936, 
945). A więc prawdopodobieństwo wyciągnięcia „na 
chybił trafił" spośród 10 cyfr od 0 do 9 trzech takich, 
aby można z nich ułożyć liczbę podzielną przez 9 
wynosi: 

n _ 14 _ 7 

P - Tar - w 


Zadanie 3 

Jeżeli n-2 zawodników rozegrało między sobą partię 
każdy z każdym, to rozegrano tyle partii ile jest 2-elemen- 
towych kombinacji ze zbioru n-2-elementowego: 

/rv2\ _ (n-3)(n-2) 

' 2 > “ 2 


Gdy założymy, że pozostali dwaj gracze nie rozegrali par- 
tii między sobą, to z warunków zadania wynika, że: 


(n-3)(n-2) 


+ 10 + 1 = 55. 


czyli n * 1 2 3 4 — 5n — 82 = 0. 


Równanie to nie posiada rozwiązań w zbiorze liczb natu- 
ralnych a zatem założenie, że dwaj gracze nie rozegrali 
między sobą partii było błędne. 

Załóżmy więc, że pozostali dwaj gracze rozegrali między 
sobą partię. Wtedy otrzymamy następujące równanie: 


(n-3)(n-2) 

2 


+ 10 = 55 


czyli n 2 — 5n — 84 = 0. 


Rozwiązaniem tego równania są n, = 7, które odrzuca- 
my i n 2 = 12. 

Zatem w turnieju szachowym brało udział 12 zawodni- 
ków, a wspomniani dwaj gracze rozegrali między sobą par- 
tię. 


Zadanie 1 

Z warunków zadania wiemy, że z każdą godziną różnica 
wskazań zegarów rośnie o 3 minuty. Zatem, od momentu 
wyregulowania i nakręcenia, 1 godzinę różnicy wskazań, 
zegary osiągnęły po 20 godzinach. Stąd, do chwili zatrzy- 
mania, budzik pośpieszył się o 20 minut. Z tego wynika, że 
w momencie zatrzymania zegarów była godzina 7.40 (od 
chwili, w której stanął budzik tj. od godziny 8.00 odejmuje- 
my 20 minut). Wyregulowanie i nakręcenie zegarów odbyło 
się 20 godzin wcześniej, tj. o godzinie 1 1 .40 dnia poprzed- 
niego. 


NAZWISKA OSÓB, które wylosowały książki za 
poprawne rozwiązanie zadań z 4 nr. „IKS-a” 

1 . Krzysztof PAROL z Mińska Mazowieckiego (05-300 
ul. Obrońców Stalingradu 27/11) 

2. Bartosz BOBER z Rzeszowa (35-106 ul. Wnukow- 
skiego 47/44) 

3. Witold ŻYŁA z Warszawy (02-123 ul. Korotyńskiego 
19a/32) 

4. Beata BIESZK ze Szczecina (70-136, ul. 9 Ma- 
ja 8/21 


W naszym komputerlandzie 


Pocztowa giełda 


Rozwiązanie krzyżówki z „IKS-a” nr 4 

Hasło brzmi: „Z komputerem do szkoły". Bony 
pieniężne (1000 zł) wylosowali: Maciej Janik — 
Częstochowa, Grażyna Kolbusz — Brzeg, Adam 
Kardasz — Gdańsk, Jarosław Piąstka — Lucyno- 
wo/Ostrowite, Sławomir Rydel — Kolno. 

Nagrody książkowe otrzymują: Monika Andrze- 
jewska — Ostrołęka, Robert Kalisz — Wrocław, 
Tomasz Łapiński — Pruszków, Michał Sułkowski 

— Tarnobrzeg, Dariusz Domański — Żarów, Ade- 
la Kopyclok — Świętochłowice, Sylwester Bąk 

— Lublin, Mirosława Orłowska — Kłodzko, Beata 
Bobowska — Wrocław, Barbara Slarklewicz — 
Sosnowiec. 


UWAGA — KONKURS! 


Miłośnicy literatury science fiction z oryginal- 
nymi pomysłami i fantazją! Każdy z Was ma szansę 
spróbować swoich sił w naszym konkursie na nowe- 
lę lub opowiadanie pod hasłem „Przed nami XXI 
wiek”. 

„Najfantastyczniejsze” utwory zostaną uhonoro- 
wane przez ziemskie jury. które przyzna nagrody: 

I — 15 tys. złotych 

II — 10 tys. złotych 

III — 5 tys. złotych 

Nad ich sprawiedliwym i obiektywnym podziałem 
czuwać będzie komputer. Autorzy materiałów zakwa- 
lifikowanych do druku zostaną ponadto usatysfak- 
cjonowani godziwym honorarium zgodnie z obowią- 
zującymi stawkami. 

Entuzjastów informatyki i komputerów nie musimy 
przekonywać, że i fantazja musi mieć swoje ścisłe 
parametry. A więc mile widziane będą prace o obję- 
tości nie przekraczającej 1 5 stron maszynopisu bądź 
czytelnego rękopisu. 

Jak będzie wyglądał nasz glob opanowany przez 
komputery n-tej generacji, w jaki sposób informatyka 
zmieni życie człowieka XXI wieku, jak homo sapiens 
ułoży sobie koegzystencję z rozumnymi maszynami? 
To tylko niektóre sugestie organizatorów dotyczące 
tematyki nadsyłanych utworów. 

Prace opatrzone godłem należy nadsyłać do koń- 
ca grudnia, dołączając kopertę podpisaną godłem, 
zawierającą dane o autorze, pod adresem: 

„IKS” — ul. Grzybowska 77 

00-950 W-wa 

Przychylności weny, zdyscyplinowanej. fantazji — 
życzy REDAKCJA 

PS Zastrzegamy sobie prawo pierwszeństwa 
publikacji prac nagrodzonych oraz wybranych 
spośród nie nagrodzonych. 


W zakresie kształcenia intelektualnego pracowity Spek- 
truś „zabezpieczył" dla kierowanego przez siebie zespotu 
robotów uznanego lektora. Przygotował on wykład oraz dy- 
skusję panelową na temat: „Dlaczego w komputerlandzie 
jest tyle znaków nierówności, a tak mato równania do 
przodu?”. 

Zaplanowano trzy spotkania, w których wziąć miały 
udział wszystkie roboty a także sam Spektruś. Prelegent 
jednak najzwyklej przynudzat i po dwudziestu minutach 
pierwszego wykładu okazało się, że połowa miejsc na sali 
jest pusta bo niesforne roboty wycofały się po angielsku, 
żeby nie zwracać uwagi. W połowie drugiego spotkania wy- 
łączono światło i zanim znaleziono świeczki lektor oberwał 
po głowie i mógł jedynie bredzić. Tym samym prowadził 
wykład na takim samym poziomie, jak w pierwszej części. 
Do trzeciego spotkania nie doszło, bo wcześniej ktoś zam- 
knął lektora w ustronnym miejscu i zgubit klucz od skobel- 
ka. Kiedy go wyswobodzono sala była już pusta. 

Aby uniknąć takich sytuacji w przyszłości i zapewnić 
wysoki poziom prelekcji zapobiegliwy Spektruś opracował 
kompetentną i wszechstronną ściągę dla prelegentów na 
każdą okazję. Jego zdaniem najlepsze efekty można uzy- 
skać jeśli jedną trzecią odczytu stanowią stare, odwieczne 
prawdy, żeby słuchacze doszli do wniosku, że wcale nie są 
głupi — a przeciwnie. Środkową część należy poświęcić 
zagadnieniom nowym lecz podanym w przystępnej formie, 
by słuchaczom zdało się. iż z odczytu odnoszą korzyść. 
Ostatnia część powinna traktować o takich czy innych 
zjawiskach językiem niezrozumiałym, aby słuchacze nie 
stracili szacunku dla nauki. No i osoby prelegenta. . 


podglądał: Eugeniusz MLECZAK 



Przepraszamy... 


„IKS” nr 5, program „Wykres funkcji" — powtarzamy 
nieczytelne fragmenty 

500 KiM WYZNfiCZENIE WSP. SKALI 

510 XZ*XK-XP : YZ=YG-YD 

520 DX«XZ/239 • DY-YZ/ 1 59 

530 CY»INT<ABS< YD*<YD<0> )/DY> « CY-160-CY 

340 CX*INT<ABS<XP*<XP<0>>/DX>+40 


IKS — strona 31 


Krzyżówka nr 6 

a b c d e { <3 h i j u 



POZIOMO: 1-a) Kapelusz lub cześć silnika, 2-h) 
Praca w polu, 3-c) „Wypadek" na ringu, 4-a) Koleżanka 
Oli, 4-h) Jeden z gromady stawonogów, 5-d) Tkanina 
runowa lub miasto w Indiach, 7-a) Światłoczuły barwnik 
w pręcikach siatkówki oka, 9-e) Rodzaj kaktusa, 11-a) 
Miasto w ZSRR, 13-a) Rój meteorów, 13-g) Port nad 
Niemnem, 15-t) Gryzoń z komputera, 16-a) 
Wygnaniec. 

PIONOWO: 1-a) Ważna dla kobiety, 1-c) Rzeka lub 
Imię żeńskie, 1-e) Występuję w jądrze I cytoplażmle 
każdej komórki, 1-h) Wirnik, 1-k) Kaptan w przed- 
chrześcijańskiej Litwie, 6-a) Mieszkaniec Nilu, 6-c) 
Imię meskie, 6-i) W piosence nauczycielka..., 9-g) De- 
formacja tektoniczna warstw skalnych, 11-j) Autobus 
lub rzeka, 13-b) Tańcowała z nitką, 13-d) Tajemnica 
Tybetu, 13-1) Zezwolenie na pobyt za granicą. 13-k) 
Państwo na Płw. Arabskim, 15-f) Jedna ze stron konta. 

Hasło: 9-f, 7-a, 15-1, 13-d, 9-f, 2-h, 15-f, 9-c, 13-j, 2-h, 
15-1, 13-d, 3-d, 9-f, 1-h, 5-e, 9-h, 5-g, 14-k, 1-g, 5-h, 12-f, 
9-i, 13-b, 14-d, 16-d, 11-g, 15-h, 4-c. 

Rozwiązania (tylko hasło) prosimy przesyłać 
pod adresem redakcji do końca listopada. WSród 
Czytelników, którzy nadeSlą prawidłowe rozwią- 
zania rozlosujemy bony pieniężne i nagrody 
książkowe. 






Oto najnowszy produkt firmy ICL — DRS 300. Najważ- 
niejszy Jego zalety jest modułowa konstrukcja; podstawowy 
konfigurację można łatwo rozbudowywać dołyczajyc kolejne 
urzydzenia. Nie ma przy tym plytaniny kabli; foremne moduły 
idealnie pasujy do siebie, a można je ustawić nawet w pod- 
ręcznej biblioteczce. 



Rys. Michał Przybyłowski 


„IKS” — dodatek „Żołnierza Wolności”. Redagują; Wiesław Cetera, Ryszard Rogoń. Adres redakcji: 00-950 Warsza- 
wa ul. Grzybowska 77, telefon centrali 20-12-61 w. 486. Rękopisów nie zamówionych redakcja nie zwraca i 
zastrzega sobie prawo do skrótów. Nakładem: Wydawnictwa „Czasopisma Wojskowe”, Warszawa ul. Grzybowska 
77, Fotoskład i druk rotograwiurowy — Wojskowe Zakłady Graficzne im. gen. dyw. A. Zawadzkiego. Nr zam. 8112. 
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Mamy kolejny jubileusz, minę- 
ło dwadzieścia pięć lat wojsko- 
wej Informatyki, stąd okazja do 
sentymentalnych wspomnień. 
Przyznam się, że z tych pier- 
wszych lat niewiele pamiętam. 
Kiedy w Wojskowej Akademii 
Technicznej powstawały kons- 
trukcje pierwszych maszyn li- 
czących przygotowywałem się 
do konkursowego egzaminu na 
pierwszy rok studiów w szkole 
podstawowej. „Jaga" była dla 
mnie czarnym charakterem z 
przedszkolnej literatury — do- 
piero parę dzlesiętek lat później 
dowiedziałem się, że „Jaga" to 
również udana konstrukcja 
dwóch młodych naukowców z 
Katedry Automatyki i Telestero- 
wania WAT — Jarosińskiego i 
Gajewskiego. 

Kto dziś pamięta BINUZa — 


szeregową, jednoadresową ma- 
szynę liczącą z arytmetyką bi- 
narną I uzupełnieniem stało- 
przeclnkowym? I jeszcze jedno 
wspomnienie: dodawanie i 

odejmowanie trwało 7 sekund, 
mnożenie 35, a dzielenie aż 42 
sekundyl — to parametry prze- 
kaźnikowej maszyny cyfrowej 
skonstruowanej przez kapitana 
Stanisława Jarosińskiego w 1959 
roku w WAT. Na tej maszynie 
zawodowe ostrogi zdobywali 
pierwsi informatycy w mundu- 
rach. To oczywiście nie wszyst- 
ko: były jeszcze niezwykle udane 
konstrukcje maszyn analogo- 
wych zespołu, wtedy również 
kapitana, Józefa Kaplcy. Pier- 
wszy był ELWAT-1 przeznaczo- 
ny do syntezy I analizy układów 
dynamicznych, później kons- 
trukcję tę wielokrotnie modyfi- 


kowano. Powstała również ro- 
dzina komputerów — łączących 
cechy maszyn cyfrowych I ana- 
logowych. 

Tyle wspomnienia. Jubilatom 
zaś życzymy jeszcze wielu, wielu 
udanych pomysłów, a przede 
wszystkim krótkiej i łatwej Ich 
realizacji. 

Nie krzepmy się jednak 
wspomnieniami, informatyka 
jest bowiem dyscypliną, która 
nie znosi bezczynności. To, co 
wiemy dzisiaj juz jutro może nie 
wystarczaó. Zapowiadamy za- 
tem kilka zmian; przede wszyst- 
kim od pierwszego numeru 
przyszłego roku zmieniamy wi- 
nietę. Nowa szata graficzna, z 
pewnością ładniejsza, I rozsze- 
rzenie tematyki to zapowiedź na 
najbliższe miesiące — zgodnie z 
życzeniem Czytelników rejes- 
trować będziemy na naszych 
łamach wszelkie nowości. 

Mamy nadzieję, że poprawi się 
również kolportaż „IKS-a”, zni- 
kną kłopoty z jego zakupem. 

To oczywiście nie wszystko, 
Inne zmiany już wewnątrz niniej- 
szego numeru. 

WIESŁAW CETERA 



Planowy, i niestety rzeczywi- 
sty, przyjazd pociągu relacji 
Warszawa — Kołobrzeg godz. 
5.05! (bo niby dlaczego pasaże- 
rowie mieliby opuszczać wygod- 
ny wagon sypialny o 7 lub 8 go- 
dzinie...). Mały spacerek „Ko- 
łobrzeg nocą" i już o godz. 10 
dnia 21.10.86 r. rozpoczął się VIII 
INFOGRYF. 

Jest to chyba największe krajowe fo- 
rum informatyków związanych z teorią i 
praktyką wdrażania komputerów w 
przemyśle, i nic tylko. 

Czternaście lat temu przewodniczący 
Sekcji Informatyki TNOiK Szczecin — 
Edward Kolbusz — rozpoczął organiza- 
cję pierwszego lnfogryfu. Nazwę tę za- 
proponował (na trasie Warszawa — 
Szczecin), ówczesny dyrektor Zeto 
Szczecin, Zdzisław Bogdanowicz. Współ- 
organizatorami tej szacownej już dzisiaj 
imprezy były szczecińskie instytucje: Po- 
litechnika; TNOiK i ZETO. Od V Info- 
gryfu do grupy tej dołączyło Zeto Kosza- 
lin. 
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Po raz pierwszy w tym roku zamiast 
Politechniki, współorganizatorem Kon- 
ferencji został Uniwersytet Szczeciński. 
Jest to wynikiem przejścia jej duchowego 
przywódcy profesora Tadeusza Wierz- 
bickiego wraz z Wydziałem Ekonomi- 
cznym z Politechniki do Uniwersytetu 
Szczecińskiego. 

INFOGRYF’86 otworzył prof. 
Wierzbicki witając serdecznie uczestni- 
ków konferencji, w tym gości z NRD i 
Francji. Jednocześnie dał wyraz szcze- 
remu ubolewaniu, że nie może powitać 
przedstawicieli władz decydujących o 
kształcie polskiej informatyki, ponieważ 
nie zaszczyciły swoją obecnością konfe- 
rencji. 

Wykład inauguracyjny, który okazał 
się felietonem, wygłosił sekretarz nau- 
kowy lnfogryfu dr hab. Wojciech Olej- 
niczak. Wzbudzał on śmiech, smutek i 
inne bardzo kontrowersyjne odczucia. 
Felieton ten dotyczył bowiem EFEKTU 
SKALI, który, definiując przez przy- 
kład, polega na tym, iż nagłe zniknięcie 
długopisów mogło by doprowadzić do 
katastrofalnych następstw, natomiast 


gdyby to (zniknięcie) dotyczyło kompu- 
terów (wszystkich w kraju) negatywne 
skutki byłyby znacznie mniejsze — nie ta 
skala? 





Obrady toczyły się w trzech sekcjach: 

I. Systemy, metody i techniki tworze- 
nia systemów informatycznych. 

II. Komputerowe systemy wspomaga- 
nia decyzji. 

III. MIKROSKALA’86 - zastosowa- 
nie mikrokomputerów w przedsię- 
biorstwie. 

Ponadto odbywały się wykłady 
WSZECHNICY. 

Równoległy przebieg obrad we 
wszystkich sekcjach był jednym z istot- 
nych potknięć organizacyjnych Infogry- 
fu. Okazało się bowiem, co można było 
przewidzieć, że Mikroskala była prakty- 
cznie bezkonkurencyjną sekcją. Oznacza- 
ło to minimalną frekwencję na pozosta- 
łych dwóch salach obrad, gdzie były 
wygłaszane nie mniej wartościowe refe- 
raty, jednak nie tak atrakcyjne (modne 
jak mikrokomputery). 

Tematem jednego z wyróżniających 
się wykładów były systemy operacyjne 
mikrokomputerów. Autor — Jan MA- 
DEY z UW — w sposób niezmiernie in- 
teresujący zaprezentował podstawowe 
systemy operacyjne CP/M i jego po- 
chodne, MS-DOS i PC-DOS ze szcze- 
gólnym podkreśleniem architektury ze- 
stawu mikro, oraz czynności użytkowni- 
ka. UNIX został określony przez autora 
wykładu jako fenomen systemów opera- 
cyjnych, podobnie jak Pascal wśród ję- 
zyków programowania. 

Bardzo ciekawy był także wykład pani 
profesor Chislaine DUFOURD z Uni- 
vcrsite Louis Pasteur w Strasburgu — 
„Informatyka dla wszystkich: doświad- 
czenia francuskie”. Wykład dotyczył 
problemów edukacji w kontekście roz- 
szerzania się sfery zastosowań informa- 
tyki z punktu widzenia sprzętu, opro- 



Dsięki uprzejmości firmy DSE można oce- 
nić drobny przykład pomocy mikro — wy- 
konanie prezentowanych rycin trwało kil- 
kanaście minut. 


gramowania, a także przygotowania kadr 
nauczycielskich. W trakcie wykładu au- 
torka wprowadziła oryginalny termin — 
nanokomputery. 

Cenne uzupełnienie konferencji sta- 
nowią cztery tomy referatów i wykładów 
(brak nazw firm, autorów, adresów do 
korespondencji jest istotnym manka- 
mentem). 

Podczas INFOGRYFU’86 odbywała 
się wystawa sprzętu komputerowego. 
Przez kilka godzin można było oglądać 
ELWRO 800 — mikrokomputer firmy 
ELWRO, którego kilkadziesiąt egzem- 
plarzy prawdopodobnie będzie wykona- 
ne w najbliższej przyszłości... Natomiast 
„od ręki” można było kupić prezentowa- 
ny zestaw, kompatybilny z IBM 
PC/AT, oferowany przez firmę MI- 
KROKOMPUTERY za 14,9 min zł. 
Podobną ofertę złożył COMPUTEX 
(CS-88PC i CS-286PC, odpowiednio 
XT i AT). Firma DSE ze Sztokholmu 
proponowała komputer DSE TURBO 1 


Jak wygląda UNIX z bliska? Co to 
jest? Skąd pochodzi? Dlaczego ludzie 
nad nim pracują? Jakie są jego pers- 
pektywy? Czy stanie się standardem 
systemu operacyjnego następnej ge- 
neracji mikrokomputerów? 

Dla wielu, UNIX jest sposobem życia, 
religią lub obiektem miłości lub niena- 
wiści. Dla pozostałych jest pewnym sy- 
stemem operacyjnym — to znaczy 
programem, który czyni, iż części skła- 
dowe (hardware) komputera pracują. 
Bez systemu operacyjnego komputer 
może służyć tylko jako kosztowny me- 
bel 

System operacyjny jest oprogramo- 
waniem, które mówi jak wprowadzić i 
wyprowadzić informacje, jak sterować 
pracą dysków, zbiorów i programów i 
jak dzielić moc obliczeniową kompute- 
ra na wielu użytkowników oraz urzą- 
dzenia zewnętrzne 

W systemach mikroprocesorowych, 
tylko mała część systemu operacyjne- 
go jest zależna od specyfiki komputera; 


(kompat. z XT) i DSE TURBO 2 (kom- 
pat. z AT) odpowiednio za 2300 i 3300 
dolarów. Reprezentowane były także 
firmy HIROSS i SELIN proponujące 
kompletne wyposażenie sal komputero- 
wych (w tym poszukiwana podwójna 
podłoga!), klimatory, przetwornice. 
Stoisko swoje miało także COMPUTER 
STUDIO KAJKOWSCY. 

Organizatorzy konferencji twierdzili, 
iż Infogryf jest taki jak jego uczestnicy. 
W ocenie wielu osób był chyba trochę 
zbyt teoretyczny, za co zapewne nie mo- 
żna winić samych referentów. Faktem 
jest natomiast, że korzyści z osobistych 
kontaktów przedstawicieli różnych firm, 
giełda sprzętu i oprogramowania stano- 
wiły wystarczające uzupełnienie INFO- 
GRYFU’86 — był nadal miarodajnym 
źródłem danych i opinii o stanie infor- 
matyki w kraju. Do zobaczenia za dwa 
lata. 


jego większa część jest niezależna od 
sprzętowej konfiguracji maszyny 
Oznacza to. że system operacyjny mo- 
że być łatwo dostosowany do różnych 
maszyn, których jedyną wspólną cha- 
rakterystyką jest to. że wykorzystują 
one ten sam mikroprocesor (CPU). W 
każdym przypadku tylko specyficzne 
dla danej maszyny kody powinny być 
uwzględnione, reszta może pracować 
bez zmian. 

Z innego punktu widzenia oznacza 
to. że jeśli programiści piszą programy 
przeznaczone do określonego typu sy- 
stemu operacyjnego, mają oni duży po- 
tencjalny rynek dla swojej produkcji w 
istocie tworzą go wszystkie maszyny, w 
których pracuje ten 'szczególny typ sy- 
stemu operacyjnego 

Praktycznie mikrokomputery miały 
dwa znaczące systemy operacyjne. 
Pierwszym był CP/M (Control Program 
for Micros) napisany przez Gary Kidalla 
dla procesorów Z80 i 8080. CP/M stał 

dokończenie na str. 5 
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UCZESTNIK 


UNIX 


Sę dwie historie UNIXa. Jedna mówi, iż UNIX jest 
znany na całym świecle, druga, że nie. Każda z nich ma 
swych zwolenników, których liczba co roku się zmie- 
nia. 

Obecnie zakres potencjalnych maszyn tego systemu 
operacyjnego, takich jak IBM PC AT I Big Blue oferu- 
jących UNIX jako swój podstawowy system odnowił 
związane z nim spekulacje. Czy tylko dlatego, że to co 
IBM myśli dzisiaj, reszta świata próbuje powielać ju- 
tro? 
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dokończenie ze sir. 3 

się nie tylko podstawą firmy Kidalla — 
Digital Research, ale standardem dla 
komputerów 8-bitowych. Rezultatem 
tego była znaczna liczba programów 
pracujących pod CP/M 

Kiedy IBM zaprojektował swój PC 
Digital Research opracować miał sy- 
stem operacyjny dla procesora 8088. 
Stworzono wiele różnych wersji, ale 
ostatecznie oprogramowanie wykonała 
mała firma — MICROSOFT. Efektem 
był MS DOS — rozbudowane wersje 
CP/M. 

CP/M i MS DOS są przeznaczone 
dla indywidualnych użytkowników, 
niemożliwa jest praca w tak zwanym 
wielodostępie. Stan ten był zadowala- 
jący do chwili, gdy mikrokomputery 
miały ograniczony maksymalny adres 
pamięci równy 640 KB i szybkość 
przetwarzania nie przekraczającą 4.77 
MHz. 

Powstanie procesorów o większej 
mocy obliczeniowej, znacznie przekra- 
czającej potrzeby jednego użytkownika 
takich jak: INTEL 80286. MOTOROLA 
68020 i ZILOG Z8000 oraz olbrzymi 
spadek cen pamięci, spowodowało pil- 
ną potrzebę posiadania systemu, który 
może obsłużyć wielu użytkowników i 
realizować wiele zadań jednocześnie. 

Wykorzystanie do tego celu dotych- 
czasowych systemów napotykało na 
wiele trudności. Dwie z nich są szcze- 
gólnie ważne. Pierwsza — większość 
dużych systemów operacyjnych jest 
specyficzna dla danej maszyny. Ńa 
przykład IBM OS — 360 pracuje tylko 
na komputerach z rodziny IBM 360. 
VMS OigitaTa pracuje tylko na proce- 
sorach rodziny VMS. Druga trudność 
także wynika ze specyfiki maszyn, a w 
zasadzie właścicieli oprogramowania, 
którzy zazwyczaj niechętnie umożliwia- 
ją dopasowanie systemu do podobnej 
maszyny, ale produkowanej w innej 
firmie. 

UNIX natomiast jest wyjątkiem 
wśród większości wspomnianych trud- 
ności. Po pierwsze jest to system wie- 
lodostępny. wieloprogramowy bazują- 
cy na olbrzymich doświadczeniach 
zdobytych na całym świecie. Prakty- 
cznie każdy uniwersytet i komputerowy 
zakład naukowy na Zachodzie ma co- 
najmniej jedną maszynę pracującą pod 
UNIXem. UNIX jest jednocześnie ..sto- 
łowym” systemem, ponieważ w odróż- 
nieniu od Innych systemów nie jest 
napisany w specyficznym dla danej 
maszyny assemblerze, ale zazwy- 
czaj w wysokopoziomowym języku 
C. 

UNIX z powodzeniem został wyko- 
rzystany w dominujących na rynku ro- 
dzinach procesorów 16/32-bitowych 
włączając 68000, 80x86 i Z8000. Nie- 


zadowoleni użytkownicy MS DOS 
chętnie i efektywnie wykorzystują UNI- 
Xa 

Właścicielem UNIXa jest korporacja 
AT&T, która dotychczas wcale me była 
znana. 

W zasadzie UNIX jest nie tylko sy- 
stemem operacyjnym. Lepszym jego 
określeniem jest system operacyjny 
plus komputerowe otoczenie. Zatem, 
dodatkowo do zabezpieczenia podsta- 
wowych zadań pozwalających na pra- 
cę w wielodostępie użytkowników wy- 
korzystujących różne programy UNIX 
oferuje obsługę zaskakującej liczby 
urządzeń i możliwości — języki, kompi- 
latory. detektory błędów, dodatki do- 
kumentacyjne, edytory i możliwości 
przetwarzania tekstów, pocztę elektro- 
niczną. nadzór zbiorów, możliwości do- 
kumentacji itp. 

Inne systemy operacyjne posiadają 
podobne możliwości, ale wyłącznie ja- 
ko pojedyncze dodatki — jedynie UNIX 
oferuje je jako standard, integralną 
część pakietu. 

Część własności UNIXa ma na celu 
ułatwienie pracy programistom. Wiele 
wersji tego systemu posiada pakiet, któ- 
ry zawiera SOURCE CODĘ CONTROL 
SYSTEM (SCCS). Jest to pakiet progra- 
mów, który automatycznie śledzi i do- 
kumentuje każdą nową lub poprawioną 
wersję programu, zaznaczając datę. 
nazwisko autora itp. 

Znaczna część pomysłów, rozwią- 
zań może być wykorzystana w innych 
systemach, a sam UNIX dzięki orygi- 
nalnym pomysłom stał się dostępny 
także nie-programistom. 

Można również zauważyć pewien 
wpływ tego nowego standardu na inne 
systemy? Na przykład hierarchiczna 
struktura zbioru w MS DOS v2.0 jest 
niemal wierną kopią konstrukcji z 
UNIXa. 

Jeśli chcesz zrozumieć UNIXa to 
wyobraź sobie go jako owoc. W środku, 
gdzie zazwyczaj bywa pestka, jest jąd- 
ro UNIXa — podstawowe kody. które 
pozwalają na pracę systemu. Na zew 
nątrz pestki jest muszla — interfejs 
między jądrem, a Tobą. 

Jedną z przyczyn, z powodu której 
ludzie się ekscytują UNIXem jest siła i 
elastyczność wspomnianej muszli. Po- 
nadto UNIX oferuje ponad 120 samo- 
dzielnych komend (instrukcji). Część z 
nich jest bardzo podobna do innych 
prostszych systemów. Na przykład 
„cp" w UNIXie jest podobne do „copy” 
w MS DOS. Użytkownicy mogą decy- 
dować o priorytetach realizowanych 
przez komputer zadań. 

Już w ubiegłym roku sprzedano 
100 000 UNIXów, ale MS DOS aż trzy 
miliony. Jednak proporcję tę należy 
szacować mając na uwadze, że każdy 


UNIX dotyczy około 10 użytkowników 
(wielodostęp). 

Istnieje wiele przyczyn stosunkowo 
niewielkiej powszechności UN!Xa. Do 
niedawna jedną z nich było małe zain- 
teresowanie producenta, firmy AT&T w 
dystrybucji tego systemu. Inną przy- 
czyną jest obecnie zbyt ubogi sprzęt — 
aby UNIX poprawnie pracował po- 
trzebne jest — 1 MB RAM i 20 MB twar- 
dy dysk. Po trzecie dotychczas rynek 
był na tyle nasycony 16-bitowymi 
komputerami dla jednego użytkownika, 
że zainteresowanie systemem wielo- 
dostępu było nikłe. 

Stan ten zmienił się radykalnie. Firma 
AT&T rozszerzyła swoje komercyjne 
zainteresowania rynkiem komputero- 
wym. Ponadto IBM wydaje się być po- 
ważnie zainteresowany UNIXem. Do- 
wodzą tego starania zlikwidowania 
technicznych ograniczeń, tym bardziej 
że użytkownicy IBM PC dostrzegają 
pewne ograniczenia, które narzuca 
8088/86 MS DOS. Maksymalna do- 
stępna pod tym systemem pamięć wy- 
nosi zaledwie 640 KB. a np. pakiet typu 
SYMPHONY. tylko dla celów systemo- 
wych, wymaga 320 KB. Oznacza to po 
prostu głód pamięci RAM do celów 
użytkowych. 

Procesor 80286, który pracuje w IBM 
AT może operować na pamięci ponad 
4 MB, ale nie pod systemem MS DOS. 
Dla pojedynczych użytkowników całą 
tak dużą pamięć nadzoruje DOS 286. 

Zalety UNIXa dostrzegło wiele firm 
deklarując ścisłą współpracę w rozwo- 
ju tego systemu np. ICL. NIXDORF. 
PHILIPS. SIEMENS. BULL, OLIVETTI i 
oczywiście Japończycy. 


Włodzimierz GOGOŁEK 
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Elementy systemów mikrokomputerowych (2) 


ARCHITEKTURA INTEGRACJI 


W 1971 r. firma INTEL 
skonstruowała pierwszy na 
świecie mikroprocesor, o- 
znaczony symbolem 4004, 
o architekturze czteroblto- 
wej a wykonany w techno- 
logii PMOS. Dało to począ- 
tek rywalizacji kilkudzie- 
sięciu firm I tysięcy 
inżynierów o najkorzyst- 
niejsze rozwiązania archi- 
tektury mikroprocesorów I 
technologii ich wytwarza- 
nia. Wśród firm obecnie 
dominujących na świecie 
należy wymienić: INTEL, 
ZILOG, MOTOROLA, MOS 
TECHNOLOGY, RCA, 
FAIRCHILD, NATIONAL 
SEMICONDUCTOR, TE- 
XAS INSTRUMENTS, 
TOSHIBA. 

Mikroprocesor poza przewrotem, 
którego dokonał w przemyśle kompute- 
rowym. na stałe pojawił się w automa- 
tyce przemysłowej, w telekomunikacji, 
w medycynie, w technice pomiarowej, 
w sprzęcie powszechnego użytku i w 
technice wojskowej. 

Mikroprocesorem nazywana jest 
jednostka centralna (CPU — Central 
Processor Unit) systemu mikrokompute- 
rowego. wykonana w postaci jednego 
lub kilku układów wielkiej skali integra- 
cji. Mikroprocesor przeznaczony jest 
do wykonania dowolnego ciągu ope- 
racji (rozkazów) ze zbioru określa- 
nego jako lista rozkazów, a zawierają- 
cego zestaw operacji podstawowych 
mikroprocesora danego typu. 

Ciąg operacji oraz dane, które sta- 
nowią argumenty operacji, tworzą 
program dla systemu mikrokompute- 
rowego. 

W tym miejscu autor chce się przy- 
znać, iż nie może podać precyzyjnych 

definicji systemu mikrokomputero- 
wego i systemu mikroprocesorowe- 
go. Fizycznie systemy te nie różnią się, 
gdyż składają się z tych samych ele- 
mentów. Można przyjąć, że systemem 
mikrokomputerowym jest system wy- 
posażony w język programowania 
wyższego poziomu, daleki od języka 
dwójkowego, którym posługuje się 
procesor a możliwie zbliżony swoją 
symboliką do języka ludzi. 

Wróćmy do elementów, z których 
zbudowany jest system mikrokompute- 


rowy (system mikroprocesorowy). Za- 
wiera on następujące elementy, przed- 
stawione na rys. 1 .: 

— mikroprocesor, przeznaczony do 
przetwarzania informacji, inaczej wy- 
konania operacji na danych i do stero- 
wania pracą pozostałych elementów 
systemu; 

— pamięci: stałą ROM (Read — On- 
ly — Memory) i zapisywalną RAM 
(Random — Access — Memory); 

— układy wejścia — wyjścia. 

Wymienione elementy systemu po- 
łączone są ze sobą za pomocą magis- 
tral, w tym magistrali adresowej 
(Address Bus), magistrali danych 
(Data Bus) i magistrali sterującej 
(Control Bus), w prostszych rozwiąza- 
niach określanej jako linie sterujące. 

W pamięci stałej ROM przechowy- 
wany jest program oraz dane nie zmie- 
niające się w czasie pracy systemu, 
znajdujące się na trwałe nawet po wy- 
łączeniu zasilania. Pamięć ta zapisy- 
wana jest przez producenta, znajdują 
się w niej interpretery system opera- 
cyjny itp. Przykładowo w komputerze 
AMSTRAD CPC 464 znajduje się pa- 
mięć ROM o pojemności 32 Kilobajty 
(bajt — słowo 8-bitowe, inaczej dłu- 
gość słowa mikroprocesora 8-bitowe- 
go, przy czym 1 KB = 1000 bajtów). W 
pamięci tej 16 KB to system operacyj- 
ny i 16 KB to interpreter języka BASIC. 

W pamięci zapisywalnej RAM. 
zwanej pamięcią operacyjną zapisy- 
wane (i odczytywane) są dane powsta- 
łe w czasie pracy systemu oraz pro- 
gramy użytkownika. 

Układy wejścia — wyjścia umożli- 
wiają komunikację systemu z otocze- 
niem czyli wszelkimi urządzeniami ze- 
wnętrznymi np. monitorem, klawiaturą, 
pamięciami masowymi, urządzeniami 
pomiarowymi itp. 

Wymienione zasadnicze elementy 
systemu wykonane są jako układy LSI 
technologią MOS, umożliwiającą 
osiągnięcie dużej Integracji (scalenia) 
tranzystorów. Musimy pamiętać, że 
tranzystory to podstawowy element 
używany do konstrukcji mikroproceso- 
rów. Tranzystory te noszą nazwę uni- 
polarnych typu MOS. Technologia 
MOS zapewnia zastępowanie innych 
elementów konstrukcyjnych mikropro- 
cesorów np. rezystorów również tran- 
zystorami. Pozwala ona na osiągnięcie 
integracji, jak we wspomnianym w po- 
przednim numerze „IKS-a" koproceso- 
rze arytmetycznym MC 68881 . 

W systemach mikrokomputerowych 
do budowy połączeń sprzęgających 
ich elementy, w dalszym ciągu wyko- 


rzystywane są bipolarna układy MSI i 
SSI. Technologiami bipolarnymi wyko- 
nywane są również mikroprocesory 
segmentowe 

Wróćmy na chwilę do terminologii. 
Określenie mikrokomputer pojawiło się 
przez analogię do mikroprocesora. 
Obecnie „mikro-" nie świadczy o ma- 
łych możliwościach, należy to chyba 
rozunjieć z punktu widzenia technolo- 
gii produkcji. Przykładowo porównajmy 
komputer IBM 650 z dwoma mikropro- 
cesorami. z Z-80 i MC 68000. Kompu- 
ter IBM 650 posiadał pamięć bębnową 
o pojemności 2000 słów, miał listę 60 
rozkazów, czas wykonywania rozkazu 
wynosił 20 milisekund [msj. W 8-bito- 
wym Z-80 czas wykonania rozkazu 
najkrótszego/najdłuższego wynosi 1/us 
(5,75 *is czyli 0.001 ms) 0.00575 ms, 
mikroprocesor adresuje 64 KB prze- 
strzeni pamięci i posiada listę zawiera- 
jącą 158 rozkazów. 16-bitowy MC 
68000 posiada listę 61 rozkazów, czas 
wykonania rozkazu 0,5 *żs czyli 0,0005 
ms i adresuje przestrzeń adresową 1 6 
megabajtów [MB]!! 

Zanim przejdziemy do ogólnej cha- 
rakterystyki mikroprocesorów jeszcze 
kilka słów. Obecnie budowane są sy- 
stemy mikrokomputerowe złożone z wie- 
lu mikroprocesorów, o różnym prze- 
znaczeniu, są to tzw systemy wielo- 
mikroprocesorowe charakteryzujące 
się dużą efektywnością i niezawod- 
nością pracy. Stosuje się w tych sy- 
stemach m.in koprocesory arytme- 
tyczne, przeznaczone do wykonywa- 
nia operacji arytmetycznych (których 
nie wykonuje już mikroprocesor cen- 
tralny) oraz stosuje się mikroproce- 
sory wejścia — wyjścia, przeznaczo- 
ne do obsługi szybkich transmisji mię- 
dzy urządzeniami zewnętrznymi a pa- 
mięcią operacyjną. Przykładowo 16-bi- 
towy komputer personalny IBM PCAT 
zawiera, obok mikroprocesora 80286, 
koprocesor arytmetyczny 80287. 

Mikroprocesory można zgrupować w 
cztery generacje 

Mikroprocesorami pierwszej gene- 
racji są dwie konstrukcje firmy INTEL, 
czterobitowy 4004 i ośmiobitowy 8008 . 
charakteryzujące się ubogimi listami 
rozkazów i małymi szybkościami dzia- 
łania. 

Czterobitowy mikroprocesor INTEL 
4004, zaprojektowany i wykonany w 
1971 r„ posiada listę 46 rozkazów, w 
tym 16 rozkazów procesora, 14 rozka- 
zów akumulatora i 1 6 rozkazów wejś- 
cia-wyjścia. W skład systemu ozna- 
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czonego MCS-4 wchodzą, oprócz mik- 
roprocesora. układ pamięci ROM 4001 
o pojemności 256 X 4 bity, układ pa- 
mięci RAM 4002 o pojemności 80 X 4 
bity, układ 4003 do współpracy z wejś- 
ciem — wyjściem do — z systemu. Ca- 
ły cykl rozkazowy mikroprocesora trwa 
około 1 0.8 lis 

INTEL 4004. wykonany w technologii 
PMOS. może adresować przestrzeń 4 K 
czyli 4096 słów 4-bitowych. Rozwinię- 
ciem rodziny MCS-4 jest MCS-40. IN- 
TEL 4040, adresuje 81 92 słowa 4-bito- 
we. Jego architektura jest rozwinięta 
w stosunku do poprzednika, umożliwia 
ona obsługę przerwań jednopozio- 
mowych 

Ośmiobitowy mikroprocesor INTEL 
8008, posiadający listę 45 rozkazów, 
stanowi rozwinięcie architektury mik- 
roprocesora 4004. Posiada on możli- 
wość działania na danych ośmiobito- 
wych. Produkcję mikroprocesora roz- 
poczęto w 1 972 r. 

Cały cykl rozkazowy 8008 wynosi 
około 1 2,5 /is. Mikroprocesor może ad- 
resować 1 6 KB czyli 1 6 384 słowa 8-bi- 
towe. MCS-8 jest systemem równo- 
ległym, wykonanym w technologii N 
MOS, komunikującym się z pamięcią i 
układami wejścia — wyjścia przez ma- 
gistrale 8-bitowe. Mikroprocesor 8008 
posiada listę 45 rozkazów, w tym roz- 
kazy 8-. 16- i 24-bitowe. 

INTEL 8008 zapoczątkował rozwój 
najliczniejszej grupy mikroprocesorów 
ośmiobitowych. W ciągu następnych 
kilku lat powstało kilkadziesiąt różnych 
konstrukcji mikroprocesorów ośmiobi- 
towych. wykonanych przede wszystkim 
technologią N MOS, tworzących drugą 
generację 

Najważniejszymi przedstawicielami 
drugiej generacji mikroprocesorów są 


rodziny INTEL MCS-80 i MCS-85. mik- 
roprocesor firmy MOTOROLA MC 
6800 i rodzina mikroprocesorów firmy 
MOS TECHNOLOGY MCS 650X, Mik- 
roprocesory te posiadają dużo większe 
szybkości działania, bogatsze listy roz- 
kazowe i przestrzeń adresową 64 KB. 
Wykonano je technologią N MOS. 

Największą popularność z wymie- 
nionych wyżej mikroprocesorów zyskał 
8080. Wprowadzony na rynek w 1 974 r. 
dominował przez kilka lat. Wzięło się to 
z monopolu firmy INTEL na produkcję 
pamięci (stałych) programowalnych 
PROM i reprogramowalnych EPROM, 
wśród nich standardem światowym 
stały się EPROM 1 702 A o pojemności 
256 X 8 bitów i EPROM 2708 o poje- 
mności 1024 X 8 bitów. Charakterysty- 
ką mikroprocesorów 8008 i 8085 zaj- 
miemy się w kolejnych numerach 
„IKS-a", a więc na razie tylko tyle. 

Mikroprocesor MC 6800 znacznie 
przewyższa mikroprocesor 8080 za- 
równo łatwością organizacji systemu 
jak również: mocą obliczeniową, szyb- 
ką obsługą przerwań, elastycznością 
adresowania i wymaga on tylko jedne- 
go napięcia zasilającego +5 V, W skład 
rodziny MC 6800 wchodzą następują- 
ce układy towarzyszące: układy inter- 
fejsu MC 6820. MC 6850, MC 6852. 
MC 6843. MC 6854, MC 68488. układ 
bezpośredniego dostępu do pamięci 
(DMA— Direct Memory Access) MC 
6844, programowalny zegar czasu rze- 
czywistego MC 6840, modulator cyf- 
rowy MC 6862, modem MC 6860 i inne. 

Podstawowe cechy charakterysty- 
czne mikroprocesora 6800 to: 16-bito- 
wa magistrala adresowa. 8-bitowa ma- 
gistrala danych, lista złożona z 72 roz- 
kazów, czas wykonania rozkazu naj- 
krótszego/najdłuższego 1 /2,5/js. 

Produkcję układów rodziny mikro- 
procesorowej MOTOROLA MC 6800 


uruchomiono w Bułgarii, oznaczając 
rodzinę symbolem CM 600. Z uwagi na 
niewielkie (jak dotąd) zainteresowanie 
tym mikroprocesorem w naszym kraju, 
nie będziemy się nim zajmować. Mikro- 
procesor ten możemy spotkać w no- 
woczesnej aparaturze kontrolno-po- 
miarowej firm Hewlett-Packard czy 
Tektronix. 

Udoskonalenie MC 6800 stanowią 
mikroprocesory rodziny MCS 650X. 
opracowane w firmie MOS TECHNO- 
LOGY. Najważniejsze cechy tej rodziny 
to: duża liczba sposobów adresowania 
(13), elastyczność przerwań oraz za- 
kładkowe wykonywanie instrukcji — 
wykonanie jednej mikroinstrukcji i in- 
terpretacja następnej w czasie jednego 
cyklu zegarowego Mikroprocesor 
MCS 6502. mimo tylko 56-elementowej 
listy rozkazów uważany jest za najlep- 
szego przedstawiciela drugiej genera- 
cji. 

Trzecią generację otwierają, w dal- 
szym ciągu 8-bitowe. mikroprocesor 
ZILOG Z-80. wprowadzony na rynek w 

1976 r. i ulepszona wersja MC 6800 
oznaczona MC 6809. wprowadzona w 

1977 roku. Mikroprocesor Z-80 stano- 
wi daleko idące ulepszenie i rozwinię- 
cie INTEL-a 8080, będzie również do- 
kładnie omawiany w następnych nu- 
merach „IKS-a". Zasadniczy trzon ge- 
neracji tworzą mikroprocesory 16-bi- 
towe. Najważniejszymi ich przedstawi- 
cielami są mikroprocesory: INTEL 
8086 i INTEL 8088, MOTOROLA 
68000 i ZILOG Z-8000. Na pograniczu 
czwartej generacji jest mikroprocesor 
INTEL 80286. Z uwagi na pewien ciąg 
rozwojowy zajmiemy się również 1 6-bi- 
towymi mikroprocesorami firmy INTEL. 

Czwarta generacja to mikroproceso- 
ry 32-bitowe, jeden firmy INTEL ozna- 
czony 80386 i jeden firmy MOTOROLA 

dokończenie na str. 8 
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MC 68020. Dzięki nim piąta generacja 
komputerów jest już coraz bliżej. 

Po ogólnej charakterystyce mikro- 
procesorów zapoznajmy się z zasadą 
ich działania i architekturą. 

W każdym z mikroprocesorów, 
zgodnie ze znaną nam koncepcją Von 
Neumanna, występują następujące 
podzespoły, przedstawione na rys. 2: 

— jednostka arytmetyczno-logi- 
czna Alu (Arithmetic and Logic Unit); 

— układ sterowania CU (Control 
Unit); 

— akumulator A (Accumulator); 

— zestaw rejestrów roboczych R n 

(General Purpose Registers); 

— rejestr rozkazów IR (Instruction 
Register); 

— licznik rozkazów PC (Program 

Counter); 

— wskaźnik stosu SP (Stack Poin- 
ter); 

— rejestr wskaźników SF (Status 
Flag). 

Cykl rozkazowy mikroprocesora 
rozpoczyna się od fazy pobrania rozka- 
zu do rejestru rozkazów IR z komórki 
pamięci adresowanej przez licznik roz- 
kazów PC. Po pobraniu przez mikro- 
procesor słowa z pamięci programu li- 
cznik zwiększa swoją zawartość o je- 
den tzn adresuje następną komórkę 
pamięci lub w przypadku rozkazu sko- 
ku skokowo zmienia swoją zawartość. 

Po pobraniu rozkazu następuje faza 
wykonania rozkazu. Układ sterowania 
CU generuje sekwencję sygnałów ste- 
rujących. zapewniających wykonanie 
rozkazu. 

Każdy cykl rozkazowy składa się z 
kilku cykli maszynowych Cykl ma- 
szynowy składa się z kilku taktów ze- 
garowych. Faza pobrania rozkazu po- 
siada tyle cykli maszynowych ile słów 
zawiera rozkaz, natomiast faza wyko- 
nania rozkazu może zawierać różną 
liczbę cykli maszynowych. 

Jednostka arytmetyczno-logiczna 
ALU, po wysterowaniu przez układ ste- 
rowania CU, wykonuje podstawowe 
działania arytmetyczne i logiczne. Są to 
zazwyczaj dodawanie arytmetyczne 
(binarne i dziesiętne), odejmowanie, 
porównywanie, przesuwanie słowa o 
jeden bit w lewo lub prawo, suma logi- 
czna. iloczyn logiczny, różnica syme- 
tryczna, negacja słowa. Wyniki operacji 
zapamiętywane są w rejestrze wska- 
źników SF 

Z ALU funkcjonalnie związany jest 
specjalny rejestr roboczy akumulator 
A. przeznaczony do przechowywania 
jednego z argumentów (słowa) wyko- 
nywanej operacji dwuargumentowej i 
do przechowywania wyniku. Za po- 
średnictwem akumulatora dokonywane 
są najczęściej przesłania danych 
(słów) między ALU a pamięciami lub 
urządzeniami zewnętrznymi. 

Rejestry robocze R n służą do 
przechowywania danych i do określa- 
nia stanu magistrali adresowej, Rejestry 
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mogą być łączone w pary tworząc, w 
przypadku mikroprocesorów 8-bito- 
wych, rejestr 16-bitowy. Taki rejestr 
może służyć do określania adresu ko- 
mórki pamięci, nosi on nazwę licznika 
danych DC (Data Counter). 

Do adresowania wydzielonego ob- 
szaru pamięci RAM, przeznaczonego 
do przechowywania (i odczytywania) 
danych lub adresów na tzw. stosie, 
służy wskaźnik stosu SP Stos umoż- 
liwia zawieszenie wykonywania pro- 
gramu i przejście do podprogramu 

Do przesyłania danych między pod- 


zespołami mikroprocesora służy 
dwukierunkowa wewnętrzna magis- 
trala danych Jednokierunkowa wew- 
nętrzna magistrala adresowa pozwa- 
la na adresowanie zawartościami re- 
jestrów pamięci lub urządzeń zewnętrz- 
nych. 

W następnym numerze „IKS-a” 
omówimy logikę i arytmetykę mik- 
roprocesora, sposoby adresowania, 
przerwania i rozpoczniemy szcze- 
gółowe omawianie mikroprocesora 
ośmiobitowego. 

J.W. 
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Jesteśmy zdecydowanymi 
przeciwnikami takich gier, w któ- 
rych OSZUST, posługujący się 
ZNACZONYMI kartami, bez 
skrupułów OGRABIA naiwnego. 

Ponieważ jednak kuszenie 
szczęścia zawsze korciło, zatem 
proponujemy Wam grę UCZCI- 
WĄ, w której przeciwnikiem 
(niezainteresowanym material- 
nie) będzie Wasz komputer. 

Prezentowana gra jest PRO- 
GRAMOWO NIERÓWNA - 
uprzywilejowany jest gracz: 
MOŻE on ZMIENIĆ jedną, dwie, 
a nawet pięć kart. Komputer 
(programowo) NIE WYMIENIA: 
„gra” tym, co wylosuje. 

Zatem po nabraniu wprawy, 
gdy rozgromimy komputer, daj- 
my mu szansę: OGRANICZAJ- 
MY ZMIANY. Gdy z nich zrezyg- 
nujemy, gra będzie WYRÓW- 
NANA. 

Program wywołuje RUN „A. 

Karta wymieniona jest ozna- 
kowana gwiazdeczką. 

Życzymy dobrej zabawyl 

Budowa programu 

— „wydawaniem kart" zajmu- 
je się generator liczb losowych. 
Losuje „honor” RND 6, potem 
„kolor” RND 4, 

— wydane karty są rejestro- 
wane w dwuwymiarowej pamię- 
ci. To UNIEMOŻLIWIA PO- 
WTÓRZENIA. Macierz ma wymiar 
6*4, zatem operujemy 24 kar- 
tami. „Honory” pamięta jednoko- 
lumnowa macierz X$ zaś „kolo- 
ry” macierz Y$. 

Janusz MILLER 
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KOMPUTER. . . 

. . .POKERZYSTA 


100: "A":CLEAR iDin 
T<5, 3) : D1M Xi< 
5) : DIII Yi(3> : 
Din n*<5):Din 
Pi(5) : WA1T : K= 
RND 4: W=RND 8 
1 10: Xi(0) = "A" : XiU 
)="K" : Xi(2)="D 
":Xi<3)="W":Xi 
<4>="10"iX*<5> 

_ u g u 

120: Yi(0) = "KIER" : Y 
iU> = "KARO":Yi 
<2)="TREFL": Yi 
(3>="PIK" 

130: PRINT "MOJE KA 
RTY" 

140: FOR L=1 TO 5 
150: GOSUB "R":Wi= 
STRi L+" . " 

160: Ni (L)=Zi: PRINT 
Wij Z* 

120: NEXT L 
180: INPUT "ILE ZMI 
ENIC ? " J Z: Z= 
INT Z: Z=ABS Z: 
IF Z=0GOTO 340 
190: IF Z< 0OR Z>5 
THEN BEEP 10, 1 
00, 100: GOTO 18 
0 

200: IF Z=1THEN 

INPUT "ZniEN W 
IERSZ "i A:60T0 
290 

210: IF Z=2THEN 

INPUT "ZniEN D 
WA WIERSZE ", A 
, B: GOTO 280 
220: IF Z=3THEN 

INPUT "ZniEN T 
RZY WIERSZE ", 
A, B, C: GOTO 220 
230: IF Z=4THEN 

INPUT "ZNIEN C 
ZTERY WIERSZE 
", A, B, C, D:GOTO 
260 

240: A=1 : B=2: C=3: D= 
4 : E=5 


250: GOSUB "R":ni<E 
)=Zi+"*" 

260: GOSUB "R":ni<D 
)=2i+"*" 

220: GOSUB "R":ni(C 
)=Zi+"*" 

280: GOSUB "R":Ni(B 
>=Zi+"*" 

290: GOSUB "R":n*CA 
>=Zi+"*" 

300: CLS : PRINT "ZM 
IENIONE" 

310: FOR L=1T0 5 
320: Wi=STRi L+". " 
SPRINT WijNiCL 
> 

330: NEXT L 
340: PRINT " KONPUT 
ER " 

350: FOR L=1T0 5 
360: GOSUB "R":Wi= 
STRi L+". " 
320: Pi (L)=Zi: PRINT 
Wij Zi 
380: NEX'T L 
390: INPUT "GRASZ D 
.ALEJ? T=1 N=0 
"jD 

400: IF D=1G0T0 100 
410: END 

420: “R" : W=RND 6:W= 
W- 1 

430: K=RND 4:K=K-1 
440: IF T <W, K> = 1 
GOTO 420 

450: T (W, K>=1 : Zi=Xi 
<W> + " "+Yi<K>: 
RETURN 

PRZYKŁAD 
nOJE KARTY 

1. A KIER 

2. A TREFL 

3. 10 KARO 

4. 9 KIER 

5. 9 KARO 
Zn IENIONE 

1. A KIER 

2. A TREFL 

3. K KIERY 

4. 9 KIER 

5. 9 KARO 
KOnPUTER 

1. A KARO 

2. 9 TREFL 

3. K*KARO 

4. 10 KIER 

5. K TREFL 
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AMSTRAD 



Pełne możliwości programu przedstawia tzw. 
menu. Program „Książka telefoniczna" umożli- 
wia wprowadzenie I zachowanie na dyskietce (w 
zbiorze „DANE") dowolnej liczby abonentów. 
Prezentowany program może zachować infor- 
macje o 100 abonentach, ale chcąc zwiększyć tę 
liczbę do np. 1000 należy w wierszu o nr. 20 
zmienić n = 100 na n = 1000. W trakcie korzysta- 
nia z programu, w celu wyszukania konkretnego 
abonenta lub przejrzenia całego zbioru abonen- 
tów należy najpierw odzyskać tę informację z dy- 
skietki (czynnoić 5). Zobrazowanie Informacji w 
tzw. oknach oraz sygnalizacja dźwiękowa wy- 
raźnie poprawia komfort korzystania z programu. 

UWAGA: 

Chcąc wprowadzić do istniejącego zbioru na 
dyskietce nowych abonentów, należy najpierw 
odzyskać cały zbiór abonentów (czynność 5 z 
„menu”). 


10 REH KSIAZKA TELEFONICZNA 

20 it«100 

30 DIN ltiilfn) 

40 DIN tiltln) 

SO 60SIIB 1240 
40 NODE I 

70 NIND0N 01,7,39,8,14 

00 NINDON 02,3,20,22,20 

90 PRINT II, •!,* MproHadzanle danych' 

100 PRINT II 

110 PRINT 11, *2.- przegl adani e danych' 

120 PRINT 01 

130 PRINT 01, "3.- nyszukinanie danych' 

140 PRINT 01 

130 PRINT 01, *4,- zachosynanit danych* 

140 PRINT 01 

170 PRINT 01, '5.- odzyski«anie danych" 

180 INK 1 ,24:PEN I2,0,0|PAPER 02,13 

190 LOCATE 12,2,23 

200 PRINT 02, 'NYB1ERZ CZYNNOSC' 

210 |4*INKEYI 
220 IF •»>" TNEN 210 
230 IF i$«'l' THEN 340 
240 IF «4*'2' THEN 330 
250 IF •l»'3' THEN 830 
240 IF ■l*'4* THEN 1020 
270 IF •4»'5' THEN 1100 
280 GOTO 210 
290 CLS 00 
300 LOCATE 5,12 

310 PRINT -P0NR0T DO NENU - 1D0N0LNY KLAWISZ]* 
320 IF INKEYI*" THEN 320 
330 GOTO 40 
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340 CLSiINK 1 , 24: k»0 

330 FOR »»1 TO n 

340 IF LEN tieiet (x > ł >0 THEN 540 

370 a*liCLS 00 

380 LOCATE 3,23 

390 PRINT ‘KONIEC WPROWADZANIA - [RETURN]' 

400 NINDON 17,3,32,20,20 
410 PAPER 07, 13i PEN 07,0 
420 PRINT 07,' WPROWADZONO ')k|* ABONENTÓW • 

430 LOCATE 1,2 

440 PRINT ‘iilt i naznisko' 

430 INPUT isltOli) 

440 IF ilillUH" THEN 290 
470 PRINT 'tilałon' 

480 INPUT ttll(K) 

490 k«k*l 

300 ENV 1 ,«9, 2000: ENT -1,4, 3,1 
SIO S0UND 1,200,0,1,1 
320 NE1T 
530 GOTO 290 

940 LOCATE 12,l4iPRINT 'proszę czekac':G0T0 320 
330 CLS 

340 NINDON 03,3,29,4,22 
370 NINDON 14,33,39,4,22 

380 PAPER 03, 13i PAPER #4, 13sPEN I3,0|PEN 04,0zCLS 03fCLS 04 
390 PRINT 00,' INIE I NAZWISKO' ( SPC ( 13) | 'TELEFON' 

400 IF iiiilll)*'' THEN 780 
410 Z'l 

420 IF iaillfz)*" THEN 750 

430 FOR x»0 TO 18 

440 PRINT 13, lilllfzaa) 

430 S0UND 1 , 200IRND, 12 
440 PRINT I4,tell(z*x) 

470 S0UND 1 , 400ŹRND, 12 
480 IF iiie»(t+k)=" THEN 750 
490 NEXT x 
700 LOCATE 1,25 

710 PRINT 10,'NACISNIJ DOWOLNY KLAWISZ ' 

720 IF INKEYI' '• THEN 720 
730 CLS 03tCLS 04 
740 z*z*19z60T0 420 
750 LOCATE 1,25 

740 PRINT 'KONIEC PRZEGLĄDANIA - [DOWOLNY KLAWISZ) 

770 GOTO 320 

780 LOCATE 03,4,10 

790 PRINT 03,' DRAK ABONENTÓW* 

800 FOR a*200 TO 230 STEP 10 
810 S0UND t,a,l2:NEXT 
820 GOTO 750 
830 CLS 

840 NINDON 05,5,30,4,4 

830 PAPER 05, 13z PEN *S,0sCLS 03 

840 PRINT 10, 'PODAJ INIE I NAZWISKO' 



870 1MPUT ł3,lt 
880 FOR »*1 TO n 

890 IF IN8TR llaict lx ) ,a<> a 0 THEN 930 
900 LOCATE 7,8 

910 PR HIT Uit«|«)|SPC(3l|ttUI>) 

920 ENV 3, *9, 9000 

930 SOUNO 1,300,0,13,3 

940 IF LEN(lii»4(«>)>0 THEN 300 

930 NEXT 

980 HINDON 37,3,38,8,8 

970 PAPER 47, 13iPEN 17,0 

980 POINT 87,' BRAK ABONENTA N ZBIORZE ' 

990 ENV 3,-9,9000 
1000 SOUNO 1,100,0,13,3 
1010 EOTO 300 
1020 OPENOUT "dani* 

1030 FOR »»1 TO n 

1040 NRITE 89,iiial(a),till(«) 

1050 NEJT 
1080 CLOSEOUT 
1070 CLB 

1080 PRINT ‘DANE O ABONENTACH - ZACHONANO' 

1090 GOTO 300 
1100 OPEMZN 'dana* 

1110 FOR J*l TO n 

1120 INPIIT 89,iiiall>),tall(a) 

1130 NEH 
1140 CLD8EIN 
1130 CL8 

1180 PRINT 'DANE ODZYSKANO' 

1170 k«0 

1180 FOR «>1 TO n 

1190 IF ialtlla)*" THEN 1220 

1200 k«k*l 

1210 NEZT 

1220 j-n-lt 

1230 LOCATE 1,4 

1240 PRINT 'H0ZE3Z JESZCZE 2ACH0NAC '|j|' ADONENTON' 

1230 GOTO 300 

1280 tl*-'T E l E F O N Y' 

1270 T24-CHR4 1 164) *CHR8 (32) +CHR4 (32)*' CJ8 ' 

1280 HOOE O 

1290 ENV 1,-9, 20001 ENT -1,6, 3,1 

1300 ENV 2, 127, O, O, 127, O, O, 127, O, O, 127, O, OiENV 3, -9, 9080 

1310 FOR C*1 TO LENItll) 

1320 LOCATE 2*c,10 

1330 FOR n2-LEN(tl$) TO c STEP -1 

1340 PRINT HID4(tI4,n2,l) 

1330 LOCATE 2«c,10 

1360 SOUNO 133,20ln2,3, 12,2, 1 

1370 NEZT n2,c 

1380 SOUNO 135,100,0,13,3,1,20 
1390 LOCATE 5,15iPRINT t2l 
1400 FOR C*1 TO 2000lNEXT 
1410 CL8 
1420 RETURN 



Program KONSTRUKTOR LICZB jest grą eduka- 
cyjną, przeznaczoną przede wszystkim dla dzieci w 
wieku szkolnym. Może ona zainteresować również inne 
osoby. Celem gry jest rozwijanie umiejętności posługi- 
wania ęię podstawowymi działaniami arytmetycznymi 
i szacowania wyników tych działań. Program KONS- 
TRUKTOR LICZB opracowany został na mikrokom- 
puter Commodor* 64, Plus/4 I Commodore 16 W 
wypadku mikrokomputerów Commodore 16 i Plus/4 
zamiast wiersza 10 wprowadzić należy wiersz 

1® KOLOR® , 1 , 1 s C0L.0R4 , 1 , 1 « CN205 s 
K»2®2 1 B»239 5 Kl.„»2648 « PT»347® t 
CHRw(159> 

W grze może Prac udział od jednej do trzech osób. 
Każdy z graczy jest konstruktorem liczb, dysponują- 
cym narzędziami i materiałami. Narzędziami są cztery 
działania arytmetyczne: +. — . •, /. Materiałami są cyf- 
ry generowane przez mikrokomputer Liczba cytr jest 
zależna od tego. jakimi konstruktorami są gracze. 
Zmienia się od trzech cyfr (konstruktor zaawansowany) 
do pięciu cyfr (konstruktor początkujący). Dla każdego 
z graczy określany jest projekt liczby z zakresu od 100 
o 999. Zadaniem gracza jest skonstruowanie za pomo- 
cą dostępnych narzędzi i materiałów własnej liczby, jak 
najbliższej zadanemu projektowi, w jak najkrótszym 
czasie. Liczba operacji, która w końcowym elekcie mo- 
że być skonstruowana jest ograniczona do siedmiu. 
Czas tworzenia liczby zmienia się od jednej do trzech 
minut, zależnie od poziomu reprezentowanego przez 
konstruktorów 

Gra trwa pięć rund. W każdej rundzie gracze mają 
do wykonania po jednym projekcie. Liczba uzyskanych 
punktów jest wypadkową czasu wykonywania kons- 
trukcji liczby oraz dokładności, z jaką nasza liczba od- 
powiada projektowi. 

Grę rozpoczynamy od .podania diczby graczy oraz 
poziomu reprezentowanego przez konstruktorów (po- 
czątkujący. przeciętny, zaawansowany). Określony 
gracz (numer jest wyświetlany na ekranie) po pojawie- 
niu się komunikatu GOTÓW! przyciśnięciem dowol- 
nego klawisza powoduje rozpoczęcie gry. Pojawiają się 
wówczas na ekranie aktualnie dostępne materiały, pro- 
iekt liczby a zegar zaczyna odliczać czas. Wymieniony 
gracz zaczyna konstrukcję liczby. Konstruowana liczba 
nie może wyjść poza zakres O — 9999. Używane mate- 
ialy i narzędzia są w tej samej kolejności wyświetlane 
na ekranie, tworząc ciąg operacji arytmetycznych. Wy- 
świetlany jest wynik bieżącego ciągu operacji arytmety- 
cznych. Eliminację dowolnego elementu ciągu (mate- 
riału lub narzędzia) uzyskujęmy po ustawieniu kursora 
na tym elemencie i przyciśnięciu klawisza DELETE 
Przesuwanie kursora wewnątrz ciągu wykonujemy 
Klawiszami — I — . Zakończenie gry następuje po upływie 
określonego czasu lub po przyciśnięciu przez gracza 
Klawisza RETURN, gdy konstrukcję liczby chce za- 
KOńczyć przed czasem. Następuje wówczas podliczenie 
punktów uzyskanych przez gracza i do gry zapraszany 
iest kolejny gracz. 

Uwaga: w tekście programu zamiast znaku $ użyty 
jest znak .‘o*. 

dokończenie na str. 12 


IKS — strona 11 



dokończenie ze str. 11 

0 REM ***KONSTRUKTOR LICZB*** 

1 0 POKE53280 , 0 : P0KE5328 1 , 0 : 0=2 1 4 : K= 
21 1 ! B- 1 98 s KL-55896 : PT- 1 622 s AK-CHR* < 
150) 

20 »*=CHR* <156)1 C*-CHR* < 5 ) s D*-CHR« < 
98)5 E*-CHR* < 99 > s FYt-CHR* < 1 73 ) 

30 GX-CHR*C174> :H*=CHR*<176> s IK-CHR 
* < 189 ) s J*=CHR* <147)s K*-CHR* < 32 > 

40 L.*“CHR*<157> :S*= " ":6=1:RN=1 

50 PRINT J*SPC< 11 )A*H*s iF0RI-1T017iP 
RINTE* ; s NEXT s PRINTG* 

60 PRINTSPC! 11 )D*CK"KONSTRUKTOR LIC 
ZB"AKD* 

70 PRINTSPC(11)Fk; sF0RI=lT017sPRINT 
E*; :NEXT:PRINTI* 

80 PR INT : PR I NT : PR I NTB* " NARZEDZ I A a "C 
x.~ + - * /"SPC(12)A»:"CZAS" 

90 PRINT:PRINTB*"MATERIALY: "C*"0 
000 0"SPC<9) "0:00" 

100 PRI NT : PR X NTSPC < 9 ) B*H*E*E*E*0* 
110 PRINT"PROJEKT : "n*C*"000"B*n* 

1 20 PRINTSPC < 9 ) F*E*E*E*I* 

130 PRINT : PRINT iPRINTSPC < 32 ) A*H*E*E 
*E*E*G* 

140 PRINTCw"0 " ; :F0RI=1T07:F'RINT"+ 

0 ";:NEXT:PRINTCHR*<146>"= "A»:D»:Cw" 
0000"A*D* 

150 F0RI=1T015:PRINTCHR*<163>K*;:NE 
XT : PR I NTSPC < 2 > F*E*E*E*E* I x 
160 F : ‘OKEQ, ISsPRINT :F'RINT"L.ICZBA GRA 
CZY? < 1-3) " 

170 GETGRW: IFGR*< " 1"0RGRX>"3" THEN 
170 

180 F0RI=1T0VAL(GR*> :G< I >=0:NEXT:PO 
KEO, 18«PRINT:PRXNT"JESTES KONSTRUKT 
DREM?" 

190 PRINT :PRINT"1 - POCZĄTKUJĄCYM": 
FORINT"? - PRZECIĘTNYM" :PRINT"3 - ZA 
AWANSOWANYM" 

200 GETKR*: XF KR»:< " 1 "ORKR* > "3"TUEN 
200 

210 M=3-<KR:«"3")-<KRk<"2") :KR-4~VA 
L<KR*> 

220 POKEO , 1 7 1 PR I NT i PR I NTSPC < 26 ) B* " P 
UNKTAC JA" : PRINT : GR-WAL < GR>: ) 

230 F OR I = 1 TOGR : PR I NTSPC < 24 > B* " GR ACZ 
" I ; L*" : "C>: "0000" : P <1 ) =0 : NEXT : GOSUB 
560 

240 REM KOLEJNA GRA 

250 POKEO, 17:PRINT:PRINTA:°:"RUNDA"C* 
RN ; S«A* "GRACZ "C*G 

260 FOR I = 1 TOM : M < I) -0 : NEXT : FORI - 1 TOM 

270 F<=INT(RND<0>*9>+1:J=1 
280 IFR=M(J)THEN270 
290 J=J+1 : IFJ< -MTHEN280 

300 M < I ) =R : NEXT : F ORI-M1 05 : M < I ) =M < M > 
:NEXT 


310 W- INT < RND <0>*900)+100: R*= " 00000 
0 " : N- 1 : 0“ 1 : L— 0 : F-0 

320 POKEO , 20 : PRINT : PRINTSPC < 7 ) O "GO 
IOW!": FOR I -0TO29 : POKEKL+ 1,7: NEXT 
325 WAITB, 1:GETZ*: POKEO, 20: PRINT tPF 
I NTSPC < 5 > S*SX 

330 POKEO, 6: PRINT: PRINTSPC! 10) ; :FOF 
I — 1 TOM : PR I NTM < I > ; : NEXT 
340 PRINTS*S* : PRINT : PRINT : PRINTSPC < 
9 > W : POKEO , 9 : PR I NT : PR I NTSPC < 9 > B»:li»: 
350 POKEO, 14:PRINT:FORI«1T07«PRINTG 
x t : NEXT : PRINTKkSPC < 4 ) S*C* : TI*- "0000 
00" 

355 F-OKEO , 6 : PRI NT : PRINTSPC (32) KR; L» 
" :00" 

360 AZ=PT+N*2 : ZN-PEEK ( AZ ) : F'OKEAZ , ZN 
+ 128:1 FNOT < < N= 1 5 ) AND ( O < 0 ) ) THENO—O 
370 GETZ* : POKEB , 0 : IR) AL. < MID* (TI* , 4 , 
1) > >=KRTHE-N610 

380 T*— T. I * : POKEO , 6 : F'R I NT : IFTk-RwTHE 
N410 

390 R*-T* : POKEK , 33 : PRINTCHR* < 47+KR 
UAL < MID* <T*, 4, 1 )))":"; 

400 PRINTCHR*(53-UAL(MIII*<Tw,5,].) ) > 
CHR* ( 57-0 AL < MID* < T* , 6 , 1 > ) ) 

410 IFZw— " "THEN370 

420 Z-ASC<Z*);C-VAL(Z*):IFZ=13 THEN 
610 

430 P= < N+l ) /2 : IF< Z-420RZ-430RZ.-450 
RZ=47) ANBO >0ANDN< 16THEN0 < P ) =Z : GOTO 
480 

440 TF < C-M ( 1 ) ORC-M ( 2 ) ORC-M < 3 ) ORC-M 
< 4 > ORC-M < 5 ) ) ANBO < 0ANDN < 1 6THENC < P > = 
C:GOTO480 

450 IF Z-20ANDN— LANDN >0 THEN POKEAZ, 
32 : L.=L- 1 : 0—0 : C < P ) — C < P > * < N > 1 > : GOT 

0490 

460 IFF-10RN0T ( (Z— 29 ANB(N<L+1 ) AND 
N< 15 ) OR < Z- 1 57ANDN > 1 ) > THEN370 
470 IFCZ-29 AND(N<L+1)ANDN<15)0R<Z . 
-157ANDN > 1 ) THENPOKEAZ , ZN : N=N- < Z=29 
0R1 ) : GOTO360 

480 PRINTC* : POKEAZ , Z : L=L- < N >L > :N— N 
~<N<1.3) 

490 POKEO, 14 : PRINT : PRINTSPC < 33 > S* : 
F0RI-1T08:W<I)=C<I> :NEXT 
500 F0RI=1T07:W<I+1)-(0<I)=45)*W<I 
+1 >~(0<I)< >45>*W(I+1 > :NEXT:F-0:WZ“ 
0: J— Ls 1=0 

510 1=1+1 : IFN0T(0< I )=420R0< I )=47)0 
RI>=,I/2THEN530 

320 W<I+1> — <W(I)*W<I+1) )#(0<t>=42 
)-<W<I)/W(I+l>>*(O(I)=47):GOTO510 
530 H=WX: IFH+U<I ) >99990RH+W< I ) <0TH 
EN570 

540 WZ-W/+W < I ) : IFI < J/2THEN510 
550 POKEO, 14:PRINT : PRINTSPC < 32 >WZ: 
F-0 : POKEO , 1 4 : PR I NT : PR I NTSPC < 32 > A*D 
*C* : GOTO360 
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5A0 POKEO , 18 i PRI NT : FOR I »=0TO4 : FORJ=- 
0TO21 sPRINTKK J : NEXT : PRINT : NEXT : RE I' 
URN 

570 POKEO, 19s PRINT iPRINT"PRZEKROCZ 
ONO ZAKRES" :PRINT"LICZEi! (0-9999)" 
580 POKEAZ , 32 i N-N*- <N< 15) ! L-I...+ ( N-L.A 
Ni:il.< >15) !0 ; --0 

590 POKEO , 1 4 ! PR I NT t PRI NTSPC ( 33 ) Sw : 
WAITB, 1 

A00 GO8UB560 : GOTO3A0 

A10 POKEAZ , ZN s E=U-UZ i E=E+2*E* ( E< 0 ) 

!E=-E*<E<=100)~100k<E>100> 

A20 TR=KR»60~ ( 60*VAL < Mil):* < T:« ,4,1 ) ) 


+VAI..<RIGPn>:<TK,2>>> 

A30 U=I.NT( <100-E)*VAL(KR«)*TR/10) ! 
G(G)-G(G)HJ = POKEO ,18+GlPRINT 
A35 PR I NTSPC < 33 ) SwCHRK (145) iPRINTS 
PC (32>G(G> 

A40 G=G+ 1 ! IFG > UAL. ( GR>: ) THENG- 1 ! RN=R 
N+l 

A50 IFP(N( ATHEN240 

AA0 POKEO, 20 SPRINT jPRINT"KOLEJNA G 
P(A? (T/N)" 

A70 GETZws IFZ«< >"T"ANDZ>:< >"N"THEN 
A70 

A80 PR I NT J* s I FZ:»:= "T" THENRUN 




Zaczarowana skrzynka 


Racuchy pałaszowały jeden za 
drugim, a przy tym wbrew upo- 
mnieniom pani wychowawczyni, 
bardzo hałasowały i gestykulo- 
wały. Jak się okazało, tyle emocji 
wśród przedszkolaków wzbudzi- 
ła „zaczarowana skrzynka” czyli 
komputer Amstrad 6128. 

— Jeszcze na stałe nie posiadamy 
komputera — powiedziała Marianna 
Błaszczak, dyrektorka w warszawskim 
przedszkolu, mieszczącym się przy uli- 
cy Koszykowej, ale nosimy się z zamia- 
rem jego zakupu. Może nie Amstrad, bo 
co tu ukrywać, nie dysponujemy aż tak 
dużymi finansami, ale może Commo- 
dore lub Spectrum 
Rodzice przyklasnęli inicjatywie dy- 
rekcji przedszkola. „Niech nasze dzieci 
nie zostają w tyle za nowinkami techni- 
ki — powiadają. Komputery w wielu 
krajach traktowane są jako narzędzie 
pracy, a u nas wciąż wzbudzają wiele 
emocji. A wiadomo czym skorupka za 
młodu nasiąknie....’* 

Na razie sześciolatki korzystają z 
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uprzejmości zaprzyjaźnionych placó- 
wek i... zamożniejszych rodziców. 

W ciągu roku grupa zerowa musi po 
znać 22 litery wielkie i mało Nauczyć 
się czytać proste zdania i Krótkie tek- 
sty Liczyć od 0 do 10, poznać cyfry, 
znaki i podstawowe pojęcia matematy- 
czne. Muszą umieć układać wzory z 
poznanych znaków. W tym wszystkim 
mógłby pomóc im właśnie komputer - 
chociaż... 

Pani wychowawczyni dużo wcześ- 
niej zapowiedziała zajęcia z kompute- 
rem. Kiedy wreszcie będzie — niecier- 
pliwiły się przedszkolaki. Ja tam już wi- 
działem — chwalił się Krzyś. I co. co — 
dopytywali się rówieśnicy. 

— Wujek grał z komputerem w karty 
a dla mnie włączył wyścigi. Mówię wam 
bomba Emocje doszły zenitu. Naresz- 
cie po śniadaniu spotkanie z „wielką 
niewiadomą". 

Amstrad „zawitał" do świetlicy. Nim 
pracownik Wojskowego Instytutu In- 
formatyki zdązył cokolwiek omówić, 
dzieci zarzuciły go mnóstwem pytań. A 
po co są te klawisze! A co to za ekran? 
A te blaszki do czego służą? Każde 
chciało dotknąć skrzynkę, wydającą 
dziwne dźwięki, nacisnąć chociaż je- 
den klawisz. 

Proszę się nie przepychać — karciła 
przedszkolaków pani wychowawczyni, 
Elżbieta Kąca. Wszyscy zobaczycie. 
Za klawiaturą zasiada Kamil. Dla niego 
to nie nowina. Komputer ma w domu. 
Umiejętnie zdobywa punkty, zbijając 
„Uciekającego Franciszka”. Ja bym 
chciał mieć takie cacko w domu — 
wzdycha Paweł. Dziewczynki bardziej 
sceptycznie się wypowiadały. Może 
jednak wolą Zuzię, lalę niedużą... 

— Według mnie — powiedział pra- 
cownik Wojskowego Instytutu Informa- 
tyki. mjr Romuald Głąb — nie powin- 
niśmy wpadać w przesadną euforię. 


Jak do tej pory, na rynku nie pojawiły 
się programy opracowane dla potrzeb 
szkolnictwa, a zwłaszcza grup zero- 
wych. Programy z prawdziwego zda- 
rzenia, które po konsultacji nauczycieli 
z zawodowymi informatykami mogłyby 
pomóc, a nie zaszkodzić w nauczaniu 
początkowym. Chałupnicze wymysły, 
to nie to. Zresztą jeden komputer na 30 
dzieci, to przysłowiowa kropla w morzu 
— podsumował. 

No cóż, od czegoś należy zacząć. 
Poprzednia grupa zerowa uwielbiała 
zajęcia z komputerem (wypożyczo- 
nym). Na ekranie ukazywały się proste 
działania i jeśli je dobrze wykonały, 
premiowane były punktami. W prze- 
ciwnym wypadku rozlegał się sygnał — 
popraw się. Kilku sześciolatków, w do- 
mu, uczyło się języka LOGO, w którym 
się programuje, tworzy za pomocą pro- 
stych instrukcji — obrazy. 

— Wszystkie zaczęłyśmy się do- 
kształcać — powiedziała pani Bła- 
szczak, Przecież nie możemy zostać w 
tyle... za naszymi wychowankami, z 
których w przyszłości może wyrosną in- 
formatycy. 

Jak na razie dzieci wychodzą na 
przywitanie dnia jutrzejszego Uczą się 
myślenia twórczego, by w 2000 roku. 
już jako dwudziestolatki nie miały po- 
czucia straconego czasu. 

ANNA TOMCZYKOWSKA 



Sztuki i sztuczki (2) 

Zmienne systemowe 
ROM SPECTRUM 

WSKAŹNIKI RAM 

PRÓG 23635/6 
VARS 23627/8 
E— LINE23641/2 
WORKSP 23649/50 
STKBOT 23651/2 
STKEND 23653/4 
ERR-SP 23613/4 
RAMTOP 23730/1 
UDG 23675/6 
P-RAMT 23732/3 

Kiedy piszemy program w BASIC-u, pamięć RAM jest na 
bieżąco porządkowana. Komputer musi wiedzieć wszyst- 
ko, a będzie to możliwe wtedy, gdy nasze posunięcia będą 
kontrolowane. Z tego powodu RAM oznaczona jest wielo- 
ma wskaźnikami. Wszystkie zajmują w obszarze zmien- 
nych po 2 bajty, gdyż zawierają adresy. 

P— RAMT przechowuje wielkość adresowanej pamięci, 
a ściślej bajt o najwyższym adresie. Dla Spectrum 48K jest 
to adres 65535. Jeśli coś nie jest w porządku z naszym 
przyjacielem, lepiej sprawdzić zawartość tej zmiennej. 
Uzyskamy informację, czy w porządku są moduły RAM. 

Program w BASIC-u lokuje się od adresu przechowywa- 
nego przez PRÓG. Zwykle jest to 23755, jednak po przyłą- 
czeniu INTERFACE 1 wynosi on 23812, co wynika z faktu 
pojawienia się obszaru mapy microdrive'u. 

Pozostałe wskaźniki wyznaczają początek następujących 
obszarów: 

VARS — zmienne BASIC-u 
E— LINĘ — bufor edycyjny, gdzie redaguje się linie 
BASIC. 

WORKSP — przestrzeń robocza, gdzie trzymane są 
dane wczytane w czasie egzekucji ko- 
mendy INPUT oraz tworzony |est nagłó- 
wek po wczytaniu instrukcji SAVE... 
STKBOT — stos kalkulatora, na którym zachodzą 
wszystkie obliczenia arytmetyczne, 
STKEND — wolna pamięć zmniejszająca się w miarę 
dodawania tinii do programu. 

Granicą ekspansji programu BASIC jest adres trzyma- 
ny przez RAMTOP, zmniejszony o 80. Przy przekroczeniu 
tej wielkości otrzymamy komunikaty Out ofmemory lub No 
room for linę. W trakcie powstawania programu użyteczne 
mogą być następujące informacje: 

9000 CLSi PRINT * * • 

9010 PRINT "dług. programu " „ FN a (23 
627,23635) 

9020 PRINT "dług., zmi ennych" , FN a(2 
3641, 23627) -1 

9030 PRINT "wolna parni «c ", 65536- UB 
R 7962 

9040 PRINT "ramtop", PEEK 237304-256 
* PEEK 23731 

9050 DEF FN a(h,l)-PEEK h- PEEK 1+2 
56$ (PEEK (h+1) -PEEK (1+1)) 

Od RAMTOP w dół pamięci odkłada się stos 
GOSUB'ów, na którym przechowywane są 3-bajtowe (numer 
linii i wyrażenia) informacje o powrocie z podprogramu po 
komendzie RETURN. Oto przykład wymuszania powrotu: 
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10 GOSUB lOOi REN stos gcsub'ow zaw 
i sra linie 10 i wyrażenie 2 jako po 
wrót 

20 PRINT "liczba dodatnia"! STOP 
100 INPUT "podaj dowolna liczbe"|zn 

ak 

110 IF SGN znak=l THEN RETURN 
120 LET 1 ini a*200* LET wyr*l 
130 LET stos-2+ PEEK 236 13+256* PEEK 
23614 

140 POKE stos, 1 inia-256* INT (linia 
/256> 

150 POKE stos+t, INT (linia/256) 

160 POKE st os+2, wyr 
170 RETURN 

200 PRINT "liczba nie jest dodatnia 
"l STOP 


Poniżej stosu podprogramów odkłada się stos maszy- 
nowy, a rozdziela je adres obsługi wydruku raportów błę- 
dów, który zawsze jest wskazywany przez zmienną 
ERR-SP 

RAMTOP. jako jedyną zmienną systemową, można 
ustawiać komendą CLEAR adres, Początkowo wynosi on 
65367. Zaraz za nim (65368) rozpoczyna się obszar grafik 
użytkownika, który wskazuje UDG. Zaletą tego obszaru 
(168 bajtów) jest możliwość umieszczenia go w innym, 
rozsądnym miejscu RAM. choćby w buforze drukarki, gdy 
nie jest przyłączona. 

Jeśli nie wystarcza 21 grafik użytkownika, można ich 
liczbę powiększyć. 

200 RESTORE 200+obsz ar $10 
202 READ ba jt 1 , ba jt2 
204 POKE 23675, ba jtl 
206 POKE 23676, ba jt2 
208 RETURN 
210 DATA 3,254 
220 DATA 176,254 
230 DATA 88,255 


Ten podprogram umożliwia korzystanie z 63 znaków gra- 
ficznych. lecz na każdy z obszarów trzeba się przełączyć. 
Odbywa się to przez sekwencję np.: 

LET obszar = 1 : GOSUB’ 200 
Konieczne jest na początku programu głównego obniże- 
nie RAMTOP przez CLEAR 65031 . 

Spośobów przechowywania procedur w kodzie maszy- 
nowym jest kilka. Najpopularniejsze z nich to bezpośrednie 
wczytywanie pliku z nośnika (taśmy, dyskietki) do określo- 
nego obszaru pamięci, trzymanie bajtów w instrukcjach 
DATA oraz przechowywanie ich w instrukcjach REM. Ten 
ostatni sposób jest używany najczęściej. Pierwszą linię 
programu zaopatrujemy komendą REM i tyloma znakami, 
ile bajtów zajmuje procedura. Następnie wczytujemy kolej- 
ne bajty, korzystając z podprogramu: 


10 REN ilosc znaków równa długości kodu 
20 INPUT "długość kodut H |d 
30 1F d< 1 THEN GOTO 20 

40 LET próg- PEEK 23635+256* PEEK 23636 
50 FOR a-l TO d 
60 INPUT bajt 

70 IF bajt >255 OR bajt<0 THEN GOTO 60 
80 POKE prog+4+a, bajt 
90 NEXT a 

100 PRINT "adras początkowy - M |prog+5 



Problem Ieit prosty: rozwiązanie trójkąta o da- 
nych trzech bokach. Po wprowadzeniu danych 
obliczony jest obwód trójkąta, pole (ze wzoru He- 
rona) oraz wszystkie kąty (z twierdzenia Carno- 
ta). Linie 360... 430 szkicują trójkąt proporcjonal- 
nie do wymiarów ekranu. Wysokość prowadzona 
jest do najdłuższego boku. Objaśnienia: 

1) Nie ma potrzeby deklarowania zmiennych 
rzeczywistych, gdyż Amstrad robi to auto- 
matycznie. 

2) Kolory ustala slf poprzez podwójne przypo- 
rządkowanie, co może stwarzać nieco kłopo- 
tów debiutantom. Najlepiej zacząć od „na- 
pełnienia” kałamarzy (INK) odpowiednimi 
kolorami tuszu (linie 50... 70). 

W trakcie pisania programu wylewamy tusz z 
kałamarza na tło (PAPER) lub maczamy w nim 
pióro (PEN). Jeśli definiujemy okna trzeba 
okreillć dla nich odpowiednie atrybuty (linie 
80... 90). 

3) W stosunku do standardu Spectrum upro- 
szczono maksymalnie definiowanie grafik 
użytkownika (linie 100...110). 

4) Wprowadzenie funkcji użytkownika należy 
umieszczać przed korzystaniem z nich (w 
Spectrum można je umieszczać w dowolnym 
miejscu programu). 

5) Czyszczenie okien najlepiej przeprowadzać 
od największego do najmniejszego (linia 1 70). 
Należy pamiętać, że CLS niszczy tryb obli- 
czania funkcji trygonometrycznych w stop- 
niach kątowych. 

6) Deklaracja tablicy 11-wymiarowej (linia 150) 
tworzy pamięć dla 11 + 1 zmiennych 
uwzględniając Indeks zerowy (linie 310...330). 

7) Przed wprowadzeniem danych z klawiatury 
dobrze jest wyczyścić bufor, w którym Ams- 
trad skrupulatnie odnotowuje każdy przyciś- 
nięty klawlśz (linia 190). 

8) Pomysłowa instrukcja MASK pozwala na two- 
rzenie różnych linii. Argumentem jest wartość 
8 bitów, które będą logicznie mnożone przez 
każde kolejne 8 punktów linii. Wartość MASK 
obowiązuje od momentu określenia do zmia- 
ny wartości argumentu. 


dokortcztni* ze itr. 14 

Na zakończenie metoda ochraniania programu w języku 
BASIC, poleaająca na zapisie na nośnik sekwencji bajtów 
symulujących program w języku wewnętrznym. 


9900 INPUT "nar w* zbioru " , L I NE n* 

9910 IF LEN n*>8 THEN IF USR 1602 THEN 
9920 LET »« PEEK 23633+256* PEEK 23634 
9930 8AVE n* CODĘ 23532, *-23300 
9940 RUN 


Autostart programu następuje dzięki linii 9940. Proszę 
zwrócić uwagę, że zachowany zostaje cały obszar zmien- 
nych systemowych, m.in. zmienna przechowująca nu- 
mer ostatnio wykonanej linii. 

W kolejnym numerze kilka sztuczek z grafiki. 

Krzysztof MAMCARZ 


AMSTRAD 

9) Amstrad nie ma kłopotów z zaokrągleniem 
liczby do kilku cyfr po przecinku, co realizuje 
wygodne ROUND (linie 460...470). Jednak 
zaokrąglenie części ułamkowej kąta nie poda 
minut kątowych, lecz wartość w systemie 
dziesiętnym. Przejście na minuty realizuje li- 
nia 520. 

10) Niefortunny brak funkcji arcsln, arccos czy 
arccta zmusza do odwiedzenia biblioteki (II- 


20 ’ dekłarac j, funkcji 1 imiennych 
30 ' definicje grafik i kolorow 
40 BORDER 6 
30 INK 0,21 
60 INK 1,0 
70 IW: 2,22 

80 WINDOM Ml , 30, 40, 1,13 

90 PAPER #1 , 3i PEN Ml, 2 

100 SYMBOL 233,22,12,24,32,24,12,22.0 

110 SYMBOL 254,6.9,9,6,0,0,0,0 

120 DEF FN k(a.b,c)«- (a~2-b~2-c*2> / (2 

tbtc) 

130 DEF FN 1 (a>-?0-ATN(a/SQR(l-a*2>> 
140 DEF FN p (o.a, b, c) -SOR (o/2* (o/2-a) 
* (o/2-b) t (o/2-c) ) 

130 DIM k (3) 

160 * wprowadzani* danych 
170 CLSiCLSMliDEG 
leO MASK 233 
190 CLE AR INPUT 
200 INPUT Ml , "bok 1 "ta 
210 INPUT Ml, "bok 2 "ib 
220 INPUT Ml, "bok 3 "|c 
230 IF ABS(b-c)<a AND a<b+c THEN ELSE 
PRlNT"tro jkat ni* istnl*J*"iGOTO 340 
240 • obliczenia 
230 k ( 1 > *FN 1 (FN k(a.b,c>) 

260 k (2) “FN 1 (FN k(b.c.a)) 

270 k(3)«FN 1 (FN k<c,a,b>> 

280 ob*a+b+c 
290 m-MAX (a,b,c) 

300 n-MIN (a.b.c) 

310 k(0)«FN l (FN k (ob-m-n, m,n) ) 

320 K«n*C0S(k(0> ) 

330 y-n*SIN(k(0>> 

340 m 1-300/m 

330 * konfiguracja trojkata 

360 ORIGIN 20,20 

370 PLOT 0,0 

380 DRAW mtml , O 

T90 DRAW >r tml , yiml 

400 DRAW 0,0 

410 MOVE Mtffll, ytml 

420 MASK 219 

430 DRAW :(tml,0 

440 * wydruk wyników 

430 CLS Ml 

460 RRINTM1, "obwod-" « ROUND (ob, 2) 

470 PRINTM1 , "pole -"t ROUND (FN o(ob.a, 
b,e> ,2) 

480 FOR a-l TO 3 
490 PRINTM1 

300 PR I NT Ml, CHR* ( 255 > | 

310 IF a-l THEN PRINTM1, " (a,b> " ELSE 
IF a-2 THEN PPINTM1, " (b,e> " ELSE PRIN 
TM1 , * (e, a) " 

320 PR I NT Ml , FIX (k (a) ) i CHR* (B> j CHR* (2 
34) » ROUND ( (k (a>-FIX(k(a>) V*60> «CHR*( 
8) | CHR* (39) 

330 NEXT 

340 PRINT"lnne dane ? T/N" 

330 IF INKEY (31 > "-1 THEN 330 ELSE 170 
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LOGO 


W poprzednim odcinku dowiedzieliśmy sle tro- 
chę o zmiennych w LOGO. Zmienne te nie są 
jednak odpowiednikiem zmiennych w językach 
typu Basic. Reprezentują one bowiem nazwę, a 
nie wartość. Są bardziej etykietką przyczepioną 
do czegoś, a nie tym czymś. Zauważyliśmy, że 
przed zmienną mogą stać znaczki „lub 1 ’. Znaczki 
te mówią, jak należy interpretować napis stojący 
za nimi. I tak, jeśli przed zmienna (słowem, napi- 
sem) jest umieszczony cudzysłów (uwaaa! bez 
odstępu — spacji), to napis należy brać dosłow- 
nie, jak stałą — łańcuch (string). Jeśli natomiast 
znaczkiem tym jest dwukropek, wtedy należy w 
tym miejscu operować na wartości reprezento- 
wanej przez daną nazwę (coś w rodzaju zmiennej 
Basic’owej). Jednak jak się dalej okaże, to po- 
równanie jest niezbyt szczęśliwe. 

Ogólnie rzecz biorąc, w LOGO preferuje się programo- 
wanie bez użycia zmiennych. Tylko w ostateczności się- 
gamy po to narzędzie. Fakt istnienia parametrów procedur i 
możliwości ich przekazywania, w zupełności wystarcza do 
większości problemów. Ponieważ LOGO jest językiem RE- 
KURENCYJNYM i PROCEDURALNYM, zmienne globalne 
są tylko czasami użyteczne. Zwróćmy też uwagę, że przed 
parametrami procedur jest dwukropek Tutaj oznacza on, 
że dana nazwa reprezentuje jakąś wartość, lecz zupełnie 
niewiadomo jaką. Nie tylko ze względu na wartość np. licz- 
bową, ale także na samą istotę tej wartości (np. czy to sło- 
wo, czy liczba). 

Zmieńmy na kilkanaście zdań temat. W którymś z po- 
przednich odcinków zasygnalizowałem fakt pojawienia się 
na rynku kasety z polskim LOGO wersja 2.2. Wersja ta jest 
w zupełności zgodna z PTI LOGO, a posiada dodatkowo 
możliwość „dogrania" efektownej procedury zamalowują- 
cej rysunki. Słów kilka o sposobie korzystania z tej proce- 
dury. Po pierwsze jak ją podłączyć do LOGO. A więc, po 
załadowaniu LOGO (Polskie LOGO... itd.) zatrzymujemy 
taśmę. Następnie piszemy: 

? zajmij 2000 

co powoduje zarezerwowanie 2000 bajtów na tę włąśnie 
procedurę. Z tych 2000 bajtów ok. 400 przeznaczonych 
jest na właściwą procedurę, napisaną w języku maszyno- 
wym, a ok. 1600 na lokalny tzw. STOS wykorzystywany 
przy malowaniu. Dalej piszemy: 

? ładujbin zam 63025 

i „puszczamy” taśmę dalej. Liczba 63025 oznacza, że pod 
ten adres pamięci ma wgrać się dodatkowa procedura. 
LOGO powinno zasygnalizować odnalezieniem na taśmie 
zbioru „zam” i po chwili znów wesoło migać kursorem. Od 
tej chwili działanie słowa „zamaluj" („zam”) jest inne niż 
opisywane wcześniej. Kontury, wewnątrz których znajduje 
się żółw, są dokładnie wypełniane kolorem żółwia, bez 
względu na ich kształt (mogą to być figury „mocno wklęs- 
łe"). Kontur jest „obrysowywany" po obwodzie i każde za- 
kamarki są oddzielnie zamalowywane. Jednak działanie 
tego kolorowania jest znacznie wolniejsze niż poprzednio 
(skuteczność to pewien narzut czasowy). Ale też mamy tu- 
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taj pewne usprawnienie, bo gdy się pomylimy, możemy ko- 
lorowanie przerwać. Wciskamy po prostu klawisz BREAK i 
kończymy „na siłę" działanie procedury. W przypadku 
„zwykłego zamaluj" (PTI LOGO lub 2.2 bez dogrywania), 
kolorowania nie można przerwać. Spróbujcie, jeśli macie 
kasetę z tą wersją, pobawić się w wypełnianie kolorem ry- 
sunków. a obserwacja drogi, jaką przebiega malująca kre- 
ska. na pewno będzie ciekawa. 

W poprzednim odcinku poznaliśmy nader ważną kons- 
trukcję języka, a mianowicie instrukcję — operację „jeśli". 
Umożliwia ona wykonywanie „inteligentnych" obliczeń, 
gdyż pozwala wybrać jakąś ewentualność. Co to byłby za 
program, który liczy tylko jedno? I tak, instrukcja „jeśli" 
sprawdza, czy stojący na początku warunek jest prawdą i 
jeśli tak, wykonuje jedną sekwencję (LISTĘ) komend, a w 
przeciwnym przypadku drugą, która zresztą może być pu- 
sta (może jej w ogóle nie być), weźmy banalny przykład: 

? oto pisz— moduł : par 

> jeśli : par < 0 [pisz — :par] [pisz : parj 

> już 

PISZ MODUŁ zdefiniowane 

Spróbujmy wywołać tę procedurę dla różnych liczb. Wi- 
dzimy, że dzięki „jeśli" możemy sprawdzić, czy dana liczba 
jest ujemna, i w zależności od tego wypisać odpowiednią 
wartość. Przypominam, że lista instrukcji do wykonania 
MUSI być w nawiasach KWADRATOWYCH. Na margine- 
sie jeszcze jedna uwaga. Listy, bądź jedna lista, do wyko- 
nania, musi być zawarta w jednej linii. Linia ta ma znacze- 
nie linii logicznej, co nie znaczy, że musi być w jednym 
wierszu na ekranie. Linia logiczna, to linia kończąca się 
klawiszem ENTER. Jedna linia logiczna może być w kilku 
„ekranowych" wierszach. Kontynuacja linii w następnym 
wierszu, sygnalizowana jest wykrzyknikiem w ostatniej ko- 
lumnie. Podobna zasada obowiązuje listę instrukcji w ko- 
mendzie „powtórz". 

Proponuję teraz małe ćwiczenie na zrozumienie sensu 
parametru. Zdefiniujmy proste procedury: 

? oto w ramce: co 

> szlaczek 

> pisz : co 

> szlaczek 

> już 

W ramce zdefiniowane - 

> oto szlaczek 

> pisz „7.! 

> już 

SZLACZEK zdefiniowane 

Zauważmy najpierw, że szlaczek to napisanie jednego 
SŁOWA — poprzedzony CUDZYSŁOWEM napis 
JXIXIX/XIXIXIX/XIXIX/X Spróbujmy teraz wywołać 
procedurę „w ramce" z różnymi parametrami. Najpierw: 

? w ramce 1 0 

10 

/.!/.!/.! /.I/.!*/.!/.! /.»/.! /.!/.! 

teraz jako parametr wstawmy napis (słowo) np.: 

? w ramce „bumbum i mamy 

/.! /.! /.! /.! /.!7.f /.! /.! /.! /.! /.! 

bumbum 

/.I/.I/.I 

wreszcie wywołajmy: 

? w ramce [ale fajny szlaczek] i na ekranie jest 


/.!7.!7.!'/.!7.!7.!7.!/.!7.!7.!7.! 

ale fajny szlaczek 

V. ! 7. ! 7. ! 7. ! 7. 1 7. 1 7. ! 7. ! 7. 17. ! 7. ! 

W zależności od tego. co umieściliśmy jako parametr 
procedury „w ramce", to właśnie było umieszczone między 
szlaczkami. Najpierw była to liczba, później słowo (napis po 
cudzysłowie) w końcu LISTA słów ujęta w nawiasy kwadra- 
towe. Parametr określa zatem dowolną pod względem 
znaczenia rzecz — obiekt, którego sens widać dopiero przy 
wykonywaniu procedury, 

Czas teraz przystąpić do napisania „poważnego" pro- 
gramu (zespołu procedur) w LOGO. Najpierw postaramy 
się wyspecyfikować problem, Jest to bardzo ważny ele- 
ment (nie ma się co śmiać) projektowania każdego pro- 
gramu, czy całego systemu programów. Wiele problemów 
pojawiających się w profesjonalnej informatyce (choćby 
nieprzewidziane błędy w programie), wielkie tzw. pady sy- 
stemów, są głównie spowodowane zaniedbaniem w po- 
czątkowej fazie projektowania (zawodowcy dosyć dobrze 
programują). Specyfikacje zresztą to już cała gałąź infor- 
matyki. 

Stawiam zatem ogólny problem: 

realizacja testu z dowolnej dziedziny (może być z wielu) 
wiedzy. A ściślej: chcę aby komputer zadawał pytania, 
sprawdzał poprawność odpowiedzi — wyświetlał np. „Bra- 
wo" lub „Niedobrze" oraz liczył punkty — dobrze 1 punkt, 
źle 0. Na końcu powinien podać liczbę zdobytych punktów. 
Ocenę możemy sobie na razie darować. Pytania i prawi- 
dłowe odpowiedzi podajemy redagując (korzystając z edy- 
tora— redaktora) pewną procedurę. 

Taka specyfikacja powinna być wystarczająca do zbu- 
dowania prostego systemu procedur (z jedną oczywiście 
główną). Od niej też zaczniemy budowanie naszego pro- 
gramu. Zastanówmy się jak ma przebiegać testowanie. A 
więc, inicjalizacja (wyświetlenie tytułu itp.), zadawanie py- 
tań i zakończenie, czyli podanie wyniku i pożegnanie. Po 
prostu: 

? oto test 

> inicjalizacja 

> pytania . 

> zakończenie 

> już 

TEST zdefiniowanie 

Prawda; że proste? Oczywiście pozostaje zdefiniowanie 
procedur „inicjalizacja". „pytania" i „zakończenie". No więc 
do roboty. Do pamiętania punktów, dla ułatwienia, użyjmy 
sobie zmiennej: 

? oto inicjalizacja „przyp" to skrót od 

> przyp „punkty 0" „przypisz" 

> pp [Dzień dobry. Powodzenia:] „pp" to skrót od „pisz" 

> już 

INICJALIZACJA zdefiniowane 

Teraz pytania. Musimy wykazać się inwencją (na razie 
się bawimy) i wymyślić jakieś testowe pytania. Na przykład: 

? oto pytania 

> pytaj [Stolica ZSRR] [Moskwa] 

> pytaj [Ile jest 1 1x1 1 ?] [1 21 ] 

> pytaj [Prószy w zimie?] [śnieg] 

> pytaj [Często miauczy?] [kot] 

> już 

> PYTANIA zdefiniowane 

Procedura „pytaj", którą zdefiniujemy, ma dwa parametry 
Jeden to pytanie, a drugi to prawidłowa odpowiedź. Oba w 


konkretnym naszym wywołaniu są LISTAMI słów (w na- 
wiasach KWADRATOWYCH). „Najtrudniejsza" procedura" 
„pytaj" może wyglądać tak: 

? oto pytaj : pyt: odp. 

pp : pyt 

jeśli czytaj listę = odp (pp „Brawo!) 

przyp „punkty: punkty + II (pp „Niedobrze!) 

już 

PYTAJ zdefiniowane 

Słowo „czytaj listę" to instrukcja WEJŚCIA. W miejsce 
tego słowa zostanie wstawione to, co testowany delikwent 
wpisze z klawiatury — odpowiedź. Równoprawnym skró- 
tem jest „cl". „Czytaj listę" to LISTA słów wprowadzona z 
klawiatury, aż do naciśnięcia ENTER. Jeśli wciśniemy od 
razu ENTER, lista będzie pusta — J. Może też to być jedno 
słowo np. kot i ENTER, a wtedy lista ta to (kot). W tym 
miejscu jeszcze raz przypomnę, że instrukcja „jeśli", razem 
ze swoimi listami do wykonania, w zależności od warunku, 
musi być w jednej linii logicznej. Nie można po drodze 
wcisnąć klawisza ENTER. Tutaj w procedurze „pytaj", bę- 
dzie się ona mieścić w 3 wierszach na ekranie, a dwa wier- 
sze będą kontynuowane (znaczek „!" w ostatniej kolumnie 
na ekranie). 

Pozostaje jeszcze problem „zakończenia". Nic prost- 
szego: 



> pp „koniec! 

> pp (liczba zdobytych punktów:) 

> pp: punkty 

> pp: [Do widzenia!] 

> już 

ZAKOŃCZENIE zdefiniowane 

i koniec. Wywołajmy teraz procedurę „test" i posadźmy ko- 
goś przy klawiaturze — będzie trochę śmiechu! Można roz- 
szerzyć repertuar pytań i prawidłowych odpowiedzi. Trzeba 
w tym celu przeredagować procedurę „pytania" (umiemy 
chyba korzystać z edytora — red. „pytania) i dodać np.: 

pytaj [ile jest 1 3x1 3] [1 69] 
pytaj [polskie morze] [Bałtyk] 

dokortczanla na atr. 20 
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dokończenie ze ttr. 19 

Zauważmy, że odpowiedź „Bałtyk" będzie zła. Należy 
wpisać ją dokładnie tak jak jest w nawiasie kwadratowym, 
czyli zacząć wielką literą. Dla przypomnienia sposobu pra- 
cy z edytorem — redaktorem, napiszę jak dodać nowe linie 
do procedury „pytania”. A więc : najpierw piszemy: 

? red. pytania 

„weszliśmy" w edytor i na dole jest to sygnalizowane: Edy- 
tor LOGO... Teraz „najeżdżamy" kursorem (używając strza- 
łek pionowych i poziomych) na koniec linii, po której 
chcemy wstawić nową i wciskamy ENTER. Mamy nową 
pustą linię. Wpisujemy tam treść nowej linii. Aby zapamię- 
tać zmiany, wciskamy Extended modę i klawisz „C”. Bę- 
dzie: 


PYTANIA zdefiniowane 


Dla przypomnienia kilka instrukcji edytora — redaktora: 


Extended modę i 
strzałka w prawo 
strzałka w lewo 
strzałka w górę 
strzałka w dół 
klawisz „B" 

klawisz „E" 
klawisz „N" 
klawisz „P" 
klaWisz „C" 
klawisz „Y" 

klawisz „R" 


skok na koniec linii 
skok na początek linii 
skok na początek ekranu 
skok na koniec ekranu 
skok na początek tekstu (może 
być na kilku ekranach) 
skok na koniec tekstu 
przejście do następnej strony 
przejście do poprzedniej strony 
zapamiętanie zmian 
skasowanie linii na prawo od 
kursora 

powielanie ostatnio skasowanej 
lub wprowadzonej linii 


kasowanie liter — kursor na prawo od kasowanej litery i 
klawisz DELETE wyjście z edytora bez dokonania zmian — 
BREAK 

Redagowanie (wejście w edytor) to napisanie 


? red. „nazwa lub 
? red. [nazwa 1 nazwa 2 ... nazwa] 
i wtedy redagujemy więcej niż jedną procedurę 
wejście w pusty edytor (tylko po co?) to 

? red [ ] 


wejście w ostatnio używany edytor to po prostu 
? red 

Extended modę i klawisz „Y" lub „R" można też używać 
poza edytorem do usprawnienia naszej konwersacji. 
Sprawdźcie to. 


Na zakończania przedstawiam cały program (5 pro- 
cedur — główna „test” — ją wywołujemy) realizujący 
testowanie. Wydruk został zrobiony na drukarce Sei- 
kosha GP50. O tym jak współpracować z drukarką i 
magnetofonem, będzie jeszcze mowa w następnych 
odcinkach. 
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Fani mikro mają nowe miejsce „pielgrzymek”. W 
przejściu podziemnym u zbiegu Wolskiej i Młynar- 
skie) na warszawskiej Woli firma System oferuje 
mikrokomputery, urządzenia peryferyjne i progra- 
my. Najwięcej jak zwykle oglądających... 

Foto: Jan Zelman 
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METODA ELIMINACJI 
ELEMENTÓW GŁÓWNYCH 


Jak rozwiązać układ równań li- 
niowych? Metod jest wiele. Jednak 
każda z nich jest uciążliwa, szcze- 
gólnie kiedy dysponujemy jedynie 
kartką papieru, a równań w układzie 
jest więcej niż 3. 

Zacznijmy zatem od początku. Ma- 
my rozwiązać układ równań zapisany 
ogólnym wzorem: 

n 

1 a ij x j =a i,n+1 ( , + 1 - 2 n ) 

)=1 

Do rozwiązania tego układu, czyli 
znalezienia wszystkich X: posłużymy się 
metodą eliminacji elementów głów- 
nych, polegających na kolejnym elimi- 
nowaniu współczynników układu w po- 
rządku zależnym od ich wielkości. 

Pierwsze równanie dzielimy strona- 
mi przez ten współczynnik a 1 który 
ma największą wartość bezwzględną. 
Związaną z nim niewiadomą eliminuje 
się z pozostałych równań, Z otrzyma- 
nym układem n-1 równań z n-1 niewia- 
domymi postępujemy podobnie: elimi- 
nujemy z niego niewiadomą, której w 
pierwszym równaniu nowego układu 
towarzyszy współczynnik o największej 
wartości bezwzględnej. Analogicznie 
eliminujemy następne niewiadome. W 
efekcie otrzymujemy układ równań za- 
wierających odpowiednio n,n-1, n-2. .. 
2.1 niewiadomych. Otrzymujemy rów- 
nież numery p r p 2 . .. p n kolejno elimi- 
nowanych niewiadomych, Ciąg ten 
powstaje stopniowo, w miarę eliminacji 
niewiadomych, z ciągu 1 ,2... n. Po usta- 
leniu, że najpierw należy wyeliminować 
niewiadomą x przestawia się liczby 

lii: ' 

j,2...j-1, 1,1-2,... n. 

Za pomocą pierwszego równania 
eliminuje się z pozostałych równań tę 
niewiadomą, której numer występuje w 
powyższym ciągu na pozycji pierwszej i 
oblicza się nowe współczynniki przy 
pozostałych niewiadomych. W następ- 
nym kroku bada się tylko współczynniki 
przy tych właśnie niewiadomych w 
drugim równaniu. Numer niewiadomej, 
której odpowiada współczynnik o naj- 
większej wartości bezwzględnej, prze- 
stawia się z drugą liczbą powyższego 
ciągu. 

Za pomocą pierwszego równania 
(zredukowanego) eliminuje się z pozo- 
stałych równań tę niewiadomą, której 
numer występuje w nowym ciągu 


wskaźników na drugiej pozycji. Podob- 
ne operacje wykonujemy, aby wyelimi- 
nować pozostałe niewiadome. 

Równania otrzymanego układu za- 
wierają coraz mniej niewiadomych. Ko- 
lejne x wyznaczamy w kolejności odw- 
rotnej do porządku eliminacji. 

Powyższą metodę najłatwiej spraw- 
dzić oczywiście na niewielkim układzie 
równań — większe rozwiąże poniższy 
program. 

Pierwszy z nich jest wiernym zapi- 
sem przedstawionego algorytmu w ję- 
zyku ALGOL, drugi natomiast jest jego 
odpowiednikiem BASICu na Spec- 
trum. 

BEGIN 

COMMENT rozwiązanie ukła- 
du metodą elementów głów- 
nych 

INTEGER h, H. i. j. n. N. ph. pj; 

REAL s, t; 

ininteger (1, n); 

N: =n+1; 

BEGIN 

INTEGER ARRAY p[1 N]; 

ARRAY a [1 : n, 1 : N], x [1 : n]; 

inarray (1 , a); 

FOR i: = 1 STEP 1 UNTIL n DO 


5 REM 
7 REH 


P[i] ' = i: 

FOR h: = 1 STEP 1 UNTIL n DO 
BEGIN 

s: = 0; 

FOR i = h STEP 1 UNTIL n DO 
BEGIN 

t: = abs (a[h,p [i]]); 

IFt >s 

THEN BEGIN 

s: = t; 
j: = i 

END t >s 
END i; 

Ph = P [j]. 

P li] = P [h]: 

P [h]: = ph; 
s: = a [h. ph); 

H: = h+1 

FOR j: = H STEP 1 UNTIL n Do 
BEGIN 

Pj: = UJ: 

t: = a [h, pj]: a (h. pj] /s; 

FOR i = H STEP 1 UNTIL n DO 

a [i, pj]: = a [i, pj] - a [i, ph]* t 

EDN j 
END h; 

FOR h = n STEP - 1 UNTIL 1 DO 
BEGIN 

s: = a [h, N]; 

FOR | = h-ł-1 STEP 1 UNTIL n 
DO 

BEGIN 

Pi: = P lii: 
s: = s-a[h. pj]*[pj] 

END |; 

x [p[h]] ; = s 

END h; 

outarray (1, x) 

END 

END 


14 REK Program rozwiązuje n równań liniowych o n niewiado- 
mych aetoda eleeentow glow- nych. 

13 REK 

24 INPUT 'Podaj liczbę zmiennych 'In 
3« LEI z*n+l 
W D1K p (zł 
St DIK x <n) 

44 DIK a(n>z) 

45 REK 

47 REK IHIHIHHIHHHHHl 
49 REK 

74 REK Rozpoczyna łie wprowa-dzanie kolejnych współczynników układu 
72 REK 

75 REK IIHIHHHIHHIHHH 
e« FOR i»l TO n 

9* FOR 1»1 TO z 

IM INPUT 'Podaj współczynnik o('l(i)l*r'l(l)l') 'la(irl) 

114 NEXT 1 
124 NEKT i 

134 FOR i-1 TO z dokończenie nn elr. 30 
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PASCAL 

PASCAL jest jednym z najpopularniej- 
szych języków programowania. Opra- 
cowany przez N. Wirtha w końcu lat 
sześćdziesiątych (opublikowany w roku 
1971) szybko zdobył sobie niezwykłe 

I iowodzenie. Zadecydowały o tym takie 
ego cechy, jak: 

— łatwość zapisu programu, 

— możliwość wykorzystania do opisu 
liczne] klasy problemów, 

— przystosowanie do wymagań pro- 
gramowania systematycznego. 
PASCAL jest obecnie powszechnie 
stosowany w nauczaniu programowania 
praktycznie na całym śwlecle. Nowe ję- 
zyki programowania w wielu wypadkach 
wzorowane są na języku PASCAL i jego 
konstrukcjach. PASCAL przyjął też rolę 
języka publikacyjnego, co oznacza, że 
większość algorytmów publikowanych 
w książkach i pismach specjalistycznych 
zapisywana jest właśnie w tym języku. 

Niniejszy kurs programowania w języku PASCAL jest 
przeznaczony dla licznego kręgu odbiorców, którzy opa- 
nowali podstawowe wiadomości z dziedziny programowa- 
nia. Zakładamy jednak, że PASCAL może być pierwszym 
językiem programowania, z którym styka się Czytelnik. Z 
tego powodu nie odwołujemy się do innych języków pro- 
gramowania, ilustrujemy opis języka przykładami i propo- 
nujemy zadania do samodzielnego rozwiązania. Wszystkie 
prezentowane przykłady zostały uruchomione w systemie 
TURBO PASCAL, zaimplementowanym 1 na komputerze 
AMSTRAD CPC 6128, pracującym pod systemem opera- 
cyjnym CP/M PLUS. Wybierając system TURBO PASCAL, 
kierowaliśmy się następującymi względami: 

— TURBO PASCAL obejmuje (poza nielicznymi wyjątka- 
mi) właściwości standardowego języka PASCAL, a ponad- 
to dostarcza wiele możliwości ułatwiających programowa- 
nie i zwiększających zakres języka, 

TURBO PASCAL wyposażony jest w efektywny edytor 
ekranowy 2 , ułatwiający tworzenie i poprawianie progra- 
mów źródłowych, 

— TURBO PASCAL umożliwia pełne wykorzystanie sy- 
stemu operacyjnego. 

O wyborze komputera zadecydowało to, że z powodu 
ceny jest on bardziej dostępny niż inne, na których również 
zaimplementowano system TURBO PASCAL, np. kompu- 
tery serii IBM PC. 

Całość kursu, ze względu na dość obszerny zakres ma- 
teriału, została podzielona na kilka części. W każdej z nich 
oprócz opisu elementów języka, zamieszczamy opisy wy- 
branych własności systemu TURBO PASCAL. 

1. Podstawowe zasady korzystania z systemu TURBO PASCAL 

System TURBO PASCAL obejmuje edytor, kompilator i 
zestaw programów pomocniczych. Ponieważ prezentowa- 
ny TURBO PASCAL pracuje pod kontrolą jednego z sy- 
stemów operacyjnych, CP/M PLUS lub CP/M-80 2.2, do- 
wolny z nich należy załadować do pamięci komputera 
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przed użyciem TURBO PASCAL. Uzyskuje się to przez 
wprowadzenie z klawiatury komendy: CPM. Po załadowa- 
niu systemu operacyjnego należy wprowadzić z klawiatury 
komendę TURBO i wcisnąć klawisz RETURN. Spowoduje 
to załadowanie kompilatora do pamięci komputera i wy- 
świetlenie komunikatu wstępnego: 

TURBO PASCAL system Version 3.00E 
CP/M-80, Z80 

Copyright 1985 AGROCOMPUTER 
Terminal: AMSTRAD CPC6128 
Include error messages (Y/N)? 
zawierającego pytanie o sposób sygnalizowania błędów 
kompilacji. Na pytanie należy dać odpowiedź, wciskając 
klawisz Ylub N. Wciśnięcie klawisza N spowoduje, że błędy 
kompilacji będą sygnalizowane wyłącznie numerami. 
Wciśnięcie klawisza Y sprawi, że sygnalizacja błędów 
kompilacji będzie zawierała również słowne opisy błędów. 
Rezygnacja z opisów błędów przyniesie zwiększenie pa- 
mięci dostępnej dla programu o 1,5 Kbajtów, jednak w 
pierwszym etapie nauki języka opisy błędów będą raczej 
przydatne. Po wprowadzeniu odpowiedzi zostaje wyświe- 
tlone tzw. menu główne, zawierające zbiór dostępnych 
komend systemu TURBO PASCAL: 

Logged drive: A 
Work file: 

Main file: Edit Compile Run Save 
execute Dir Quit compiler Options 
Text: O bytes 
Free: 28909 bytes 

Wykonanie określonej komendy następuje po wciśnięciu 
odpowiedniego klawisza (W, M,E,C,R,S, X,D,Q, O). Po wyko- 
naniu komendy ponowne wyświetlenie menu głównego 
można uzyskać przez wciśnięcie klawisza RETURN 
Wyjście z systemu TURBO PASCAL umożliwia komenda 
Ouit. Po wciśnięciu klawisza Q następuje powrót do sy- 
stemu operacyjnego. Aby wrócić do systemu TURBO 
PASCAL, należy ponownie wykonać komendę TURBO, 

2. Jak uruchomić pierwszy program 

Po napisaniu programu należy wywołać edytor (komen- 
da Edit), używając komend edytora wprowadzić program 
źródłowy do zbioru roboczego edytora, skompilować go i 
uruchomić (komenda Run). Ciąg czynności prowadzących 
do uruchomienia programu można przedstawić w postaci 
następującego algorytmu: 

a) wcisnąć klawisz E (wywołanie edytora), 

b) podać nazwę zbioru roboczego edytora i wcisnąć 
klawisz RETURN 

c) wprowadzić z klawiatury wiersz tekstu programu źród- 
łowego (zostanie on wyświetlony na ekranie monito- 
ra). 

d) wcisnąć klawisz RETURN, 

e) czynności c i d wykonać dla kolejnych wierszy tekstu 
programu źródłowego, 

f) po wprowadzeniu ostatniego wiersza tekstu programu 
źródłowego wcisnąć jednocześnie klawisze 
CONTROL i K, a następnie wcisnąć klawisz D (wy- 
konanie komendy edytora Koniec Edycji). 

g) wcisnąć klawisz R (kompilacja i uruchomienie pro- 
gramu). Po wciśnięciu klawisza E nastąpi wyświetle- 
nie komunikatu: 

Work file name: 

po którym należy podać nazwę zbioru w postaci: 
nazwa lub nazwa, typ 

gdzie: 

nazwa — ciąg od jednego do ośmiu znaków. 

określający nazwę zbioru, 
typ — ciąg od jednego do trzech znaków, okreś 
łający typ zbioru 

(pominięcie typu jest równoważne przyjęciu typu 
domyślnego PAS). 


W obu wypadkach żaden ze znaków nie powinien być zna- 
kiem: 

= ?*.<>;[]{) 

Po podaniu nazwy zbioru (np FILENAME.PAS) i wciśnię- 
ciu klawisza RETURN w pierwszym wierszu, u góry ekranu, 
zostanie wyświetlony opis stanu edytora w postaci: 

Linę 1 Col 1 Insert Indent AFILENAME.PAS 
(od tego momentu edytor reaguje tylko na własne ko- 
mendy, a nie na komendy systemu TURBO PASCAL). W 
kolejnych wierszach będą wyświetlane wprowadzane 
wiersze tekstu programu źródłowego. Gdy cały ekran zos- 
tanie zapełniony, wprowadzenie nowego wiersza następu- 
je po przesunięciu zawartości ekranu (bez opisu stanu edy- 
tora) o jeden wiersz w górę. Nie należy się jednak obawiać 
utraty „znikających" wierszy. Można je bowiem wyświetlić, 
wykorzystując odpowiednie komendy edytora. 

Wciśnięcie klawisza R (po zakończeniu edycji) spowo- 
duje kompilację programu i. jeśli zakończy się ona po- 
prawnie. jego uruchomienie. W razie błędnej kompilacji na- 
leży poprawić program źródłowy i ponownie wykonać ko- 
mendę Run. Poprawienie programu źródłowego dokonuje 
się za pomocą odpowiednich komend edytora. Opis tych 
komend oraz sposób ich użycia przedstawiamy w następ- 
nej części kursu. 

3. Proste programy w Języku PASCAL 

Każdy program zapisywany w języku PASCAL składa się 
7 trzech części: 

— nagłówka (początku programu), 

— bloku (utworzonego z części definiującej i części ope- 
racyjnej). 

— separatora kończącego program. 

które będziemy stopniowo definiowali, odwołując się do in- 
tuicyjnie wykazanych potrzeb 

Zacznijmy od najprostszego wariantu — wyprowadzenia 
na monitor ekranowy rezultatów wykonania programu, nie- 
zbędnego w większości programów, Budowę takiego pro- 
gramu ilustruje przykład 1 . 

Przykład 1 
PROGRAM progi: 

BEGIN 

WRITE ( pierwszy program w języku pascal') 

END. 

Nagłówek programu składa się z następujących elemen- 
tów: 

— tzw. słowa kluczowego 3 PROGRAM 

— nazwy programu, będącej kombinacją liter i cyfr rozpo- 
czynającą się od litery (próg 1 ). 

— separatora oddzielającego nagłówek od bloku pro- 
gramu. 

Blok programu, w tym prostym wypadku, zawiera tylko 
część operacyjną, w której pomiędzy słowami kluczowymi 
BEGIN — END zapisano jedną instrukcję wyjścia WRITE 
Jej zadaniem jest tutaj wyprowadzenie na ekran monitora 
tekstu ujętego w apostrofach. 

W wyniku programu "program 1 ” na ekranie monitora zos- 
tał wyświetlony tekst o postaci: 
pierwszy program w języku pascal 
W ogólnym wypadku cały proces obliczania przez kompu- 
ter składa się z trzech faz i : 

— wprowadzenia danych weiściowych, 

— przetworzenia danych wejściowych, 

— wyprowadzenia wyników. 

Każda z tych faz występuje w programie "próg 2" przed- 
stawionym w przykładzie liczb całkowitych 
Przykład 2 
PROGRAM próg 2; 

VAR x. y, suma, różnica, iloczyn: integer; 

iloraz: real; (deklaracje zmiennych) 

BEGIN 

READ (x.y); 


WRITELN; 

WRITELN ( pierwsza liczba = ' x:2, druga liczba = 
y:2); 

suma: = x+y; 
różnica: =x— y; 
iloczyn: =x*y; 
iloraz. =x/y; 

WRITELN (' suma = '. suma: 3,' różnica = ' róźnica:2,' 
iloczyn = \ iloczyn:4,’ iloraz = ’ iloraz: 
8:5) 

END 

oraz wyznaczenie wyprowadzenie na monitor ekranowy 
ich sumy, różnicy, iloczynu i ilorazu. Zauważmy, że w częś- 
ci operacyjnej bloku programu występuje pięć zmiennych: 
X, Y, SUMA, RÓŻNICA, ILOCZYN, które będą przyjmowały 
wartości całkowite oraz zmienna ILORAZ, która będzie 
przyjmowała wartości rzeczywiste. Wykorzystanie zmien- 
nych (symbolicznie reprezentujących obiekty rzeczywiste, 
w tym wypadku liczby (pozwala na wykorzystanie progra- 
mu dla różnych danych wejściowych bez konieczności 
wprowadzania jakichkolwiek zmian w zapisie programu. W 
danym momencie realizacji programu zmienne reprezentu- 
ją tylko jedną wartość, żwaną bieżącą wartością zmiennej. 
Wartość zmiennej może być zmieniona na inną jedynie w 
wyniku wykonania instrukcji przypisania (w której jako lewy 
argument operatora występuje nazwa zmiennej) lub 
instrukcji wejścia (w której nazwa zmiennej występuje jako 
jeden z argumentów). 

Opisy zmiennych programu występują w części definiują- 
cej bloku programu w formie tzw. deklaracji zmiennych. 
Deklaracja zmiennych składa się ze słowa kluczowego 
VAR i zapisów deklaracji zmiennych. Każdy zapis deklara- 
cji zmiennych składa się z następujących elementów. 

— listy nazw deklarowanych zmiennych danego typu (np. 
liczby całkowite) oddzielonych od siebie przecinkami, 

— znacznika oddzielającego listę zmiennych od nazwy 
typu, 

— nazwy typu (klasy wartości, przyjmowanej przez dekla- 
rowane zmienne, np. integer, dla liczb całkowitych, 
real — dla liczb rzeczywistych), 

— separatora oddzielającego zapis danej deklaracji 
zmiennej od innych zapisów. 

Występująca w części operacyjnej instrukcja wejścia 
READ wykazuje pierwszą z wymienionych faz — wprowa- 
dzenia danych wejściowych. Zgodnie z tą instrukcją na- 
stępuje czytanie liczb, na których będą wykonywane żąda- 
ne operacje. Wartości wczytanych liczb są przypisywane 
zmiennym X i Y. 

dokończtnie na *tr. 24 
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Fazę drugą uruchamiają cztery instrukcje przypisania, w 
których kolejno wyznacza się sumę, różnicę, iloczyn i iloraz 
wczytanych liczb. Każda z tych instrukcji składa się z na- 
zwy zmiennej, operatora przypisania i wyrażenia 
(w tych wypadkach arytmetycznego). Występujące w wy- 
rażeniach operatory +. — . ., / oznaczają odpowiednio 
dodawanie, odejmowanie, mnożenie, dzielenie. Należy za- 
uważyć. że wartość każdego wyrażenia ma typ zgodny z 
typem zmiennej, do której jest przypisywana. 

Do wyprowadzenia wyników na ekran monitora (realiza- 
cja fazy trzeciej) wykorzystano instrukcję WRITELN. Ins- 
trukcja ta, podana bez parametrów, umożliwia przejście do 
nowej linii. Wykonanie instrukcji WRITELN z parametrami 
jest podobne do wykonania instrukcji WRITE. przy czym po 
wyprowadzeniu wartości parametrów następuje przejście 
do nowej linii. Parametrami instrukcji WRITELN są tutaj, 
oprócz tekstów, nazwy zmiennych, których wartości mają 
być wyprowadzane. Określona jest przy tym liczba pozycji 
znakowych, jakie ma zajmować wyprowadzana wartość. 
Dla zmiennej typu real określono ponadto liczbę pozycji 
znakowych przeznaczonych na część ułamkową (w tym 
przypadku 5). Rozplanowując rozmieszczenie wyników na 
ekranie monitora założono, że wprowadzane liczby będą 
liczbami z zakresu (1 ,99). Dla liczb 27 i 1 3 uzyskano nastę- 
pujący wynik działania programu: 
pierwsza liczba = 27 druga liczba = 1 3 
suma = 40 różnica = 1 4 iloczyn = 351 iloraz = 2.07692 
Liczby te zostały wprowadzone z klawiatury (wpisanie liczb 
27 13 i naciśnięcie klawisza RETURN lub ENTER). 

W przykładzie 2 zamieszczono tekst objaśniający, ujęty w 
nawiasy klamrowe. Jest to komentarz nie mający żadnego 
wpływu na przebieg obliczeń (jest pomijany przez kompila- 
tor). Komentarze będą używane również w dalszych pro- 
gramach w celu zwiększenia czytelności programów i 
ułatwienia zrozumienia ich treści. 

Dotychczas poznane instrukcje umożliwiają już wykona- 
nie prostych obliczeń na wprowadzonych danych oraz 
prezentację wyników. Przeważnie jest to niewystarczające, 
gdyż wykonanie takich działań często zależy od spełnie- 
nia określonych warunków. Zagadnienie to zilustrujemy 
bliżej na przykładzie wyznaczania pierwiastków rzeczywi- 
stych trójmianu kwadratowego (przykład 3). Jak wiemy, 
liczba pierwiastków rzeczywistych zależy od wartości 
Przykład 3 
PROGRAM próg 3. 

VAR a. b. c. (współczynniki trójmianu) 
x1.x2 (pierwiastki trójmianu) 
delta:real; (zmienna pomocnicza) 

BEGIN 

READLN (a); 

IF a < = 0 THEN 

WRITELN (' niedopuszczalna wartość współczynnika 


BEGIN 
READ (b, c); 

WRITELN; 

WRITELN (' dla współczynników: a = ', a); 

WRITELN (' b = ', b); 

WRITELN C c = c); 

delta: = b*b— 4*a*c; (obliczenie wyróżnika trójmianu) 

IF delta <0 THEN 

WRITELN (' brak pierwiastków rzeczywistych') 
ELSE 

IF delta = 0 THEN 
BEGIN 

x 1 : = — b/ (2*a); 

WRITELN (' trójmian ma jeden pierwiastek 
podwójny x = x 1 ) 

END 

ELSE 

BEGIN 

x 1 : =(— b— SORT (delta)) / (2*a); 
x 2: =(— b+SQRT (delta)) / (2*a); 

WRITELN; 

WRITELN (' trójmian ma dwa pierwiastki: x 1 = ', 
x 1); 

WRITELN C x 2 = '. x 2) 
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END 

END 

END. 

wyróżnika trójmianu. Zatem w zależności od jego wartości 
należy wykonać inną grupę instrukcji. Wybór umożliwia ins- 
trukcja alternatywy o postaci: 

IF warunek THEN instrukcja 1 ELSE instrukcja 2 
Wykonanie instrukcji alternatywy polega na zbadaniu wa- 
runku i jeśli jest on spełniony, następuje wykonanie ins- 
trukcji 1 . W przeciwnym razie wykonywana jest instrukcja 
2. W warunkach z przykładu 3 zastosowano operatory re- 
lacyjne: < (mniejszy), <= (mniejszy lub równy), = (równy). 
Pozostałe operatory relacyjne to: > (większy), >= (większy 
lub równy), O (nierówny), W celu umożliwienia wykona- 
nia określonej grupy instrukcji w wypadku spełnienia (nie- 
spełnienia) warunku wykorzystano instrukcję złożoną. Ins- 
trukcja złożona jest sekwencją instrukcji zawartą między 
parą słów kluczowych BEGIN — END. Jest ona traktowana 
jako pojedyncza instrukcja. Do wyznaczania wartości 
pierwiastka wyróżnika trójmianu użyto standardowej funk- 
cji SORT. Odpowiednią kolejność wykonywania działań w 
wyrażeniach arytmetycznych zapewniają nawiasy (podob- 
nie. jak w powszechnie stosowanej notacji matematy- 
cznej). Instrukcję READLN, wykorzystaną do wczytania 
współczynnika "a", wykonuje się jak instrukcję READ, przy 
czym po wczytaniu danej wejściowej następuje przeskok 
do następnej linii wczytania (w tym przypadku do następ- 
nego wiersza ekranu). Wartości wyznaczonych pierwiast- 
ków (jeśli istnieją) wyprowadzane są w standardowym 
formacie zmiennoprzecinkowym, przyjętym dla liczb rze- 
czywistych. Ma oh postać: 

□ □ #.##«####### E * ## 

dla liczb większych lub równych zero oraz postać. 

□ - * ## 

dla liczb mniejszych od zera. przy czym dl reprezentuje 
spację, # reprezentuje cyfrę dziesiętną, 'reprezentu- 
je znak + lub — . 

Wartość tak wyprowadzonej liczby należy odczytywać jako 
c.10 

gdzie: 

c — liczba znajdująca się przed literą E (cecha), 
m — liczba znajdująca się za literą E (mantysa). 

Program przedstawiony w przykładzie 3 wykonano dla 
następujących wartości współczynników trójmianu 
a = 2,67, b = 1 3,63. c = 7,21 i uzyskano następujące wy- 
niki: 

dla współczynników: a = 2.6700000000E+00 

b = 1.3630000000E+01 
c = 7.2100000000E+00 
trójmian ma dwa pierwiastki: x 1 = — 4.50552 10206E+00 
x 2 = — 5.9934789329E— 01 
Dane zostały wprowadzone z klawiatury w następujący 
sposób: 

— wpisanie liczby 2.67 i wciśnięcie klawisza RETURN, 

— wpisanie liczb 13.63 i 7.21 i wciśnięcie klawisza RE- 
TURN. 

Zamiast klawisza RETURN można używać również Klawi- 
sza ENTRY 

Wprowadzona instrukcja alternatywy może być wyko- 
rzystywana do opisu działań o wybiorczym przebiegu. Nie 
pozwala natomiast opisać operacji wykonywanych powta- 
rzalnie. Jedną z instrukcji dostępnych w języku PASCAL, 
umożliwiających taki opis. jest instrukcja WHILE o postaci. 

WHILE wyr log Do 
instr 

gdzie: 

wyrlog — wyrażenie logiczne przyjmujące wartość 

TRUE(prawda) lub FALSE (fałsz), 

instr — pojedyncza instrukcja języka PASCAL 

Powyższy zapis oznacza, że wykonanie instrukcji „instr' 
ma byc powtarzalne tak długo, aż wartość wyrażenia logi- 
cznego ..wyrlog" zostanie doprowadzona do wartości FAL- 
SE. Zauważmy, że jeżeli już przed wykonaniem instrukcji 


WHILE wartością „wyrlog" jest FALSE. to instrukcja ..instr'' 
nie jest w ogóle wykonywana. Instrukcję WHILE wykorzy- 
stano w programie wyznaczania największego wspólnego 
podzielnika dwóch całkowitych liczb dodatnich (przykład 

4). 

Przykład 4. 

PROGRAM próg 4; 

VAR x,y: integer; 

BEGIN 

READ (x. y); 

WRITELN; 

WRITE (' największy wspólny podzielnik liczb 
'.X,' i ’,y,' wynosi '); 

WHILE x< >y DO 
|F x > y THEN 
x: = x— y 
ELSE 
y: = y — x; 

WRITELN (x) 

END 

Nietrudno zauważyć, że wpływ na wartość wyrażenia logi- 
cznego w instrukcji WHILE (xOy) ma wykonanie instruk- 
cji alternatywy, a więc instrukcji „instr". Należy przy tym 
zdawać sobie sprawę z tego. że jeżeli po żadnym z powtó- 
rzeń instrukcji „instr" wyrażenie logiczne nie osiągnie war- 
tości FALSE. to wykonywanie instrukcji WHILE nigdy się 
nie zakończy. "Mówi się wtedy często o „zapętleniu" progra- 
mu. 

Wyrażenia występujące w przykładzie 4 zawierają nazwy 
tych samych zmiennych po obu stronach operatora .. : = ", 
np. 


x: = x - y. 

W takim wypadku przy obliczaniu wartości wyrażenia bra- 
na jest pod uwagę wartość zmiennej x przed wykonaniem 
instrukcji podstawienia. Wyznaczona wartość wyrażenia 
jest następnie przypisywana zmiennej x jako nowa wartość 
(a więc poprzednia wartość zostaje zniszczona). 

Program wykonano dla liczb 256 i 64. Uzyskano następu- 
jące wyniki: 

Największy wspólny podzielnik liczb 256 i 64 wynosi 64 
Ponieważ w instrukcjach wyjścia nie określono liczby po- 
zycji znakowych dla wyprowadzonych liczb całkowitych, 
zajmują one tyle pozycji, ile mają cyfr znaczących. 

Kolejne wiadomości o języku PASCAL — w następnej 
części. 


4. Zadania 

Wychodząc z założenia, że programowania nie można 
nauczyć się bez intensywnego i samodzielnego opracowy- 
wania programów, ich kompilacji, uruchamiania i testowa- 
nia. w każdej części, będziemy przedstawiali zadania do 
samodzielnego opracowania. Zestawy zadań postaramy 
się tak dobrać, aby ich opracowanie było możliwe na pod- 
stawie już przedstawionych wiadomości o języku. Zachę- 
camy Czytelnika do rozwiązania chociażby jednego z za- 
dań. 


Zadanie 1 

Napisać program wyznaczający wartość wyrażenia: 

a) x2 — ax 3 4 
2ax 


(a ■ b) 1 2 + | 


Zadanie 2 

Napisać program, który sprawdza czy trzy całkowite liczby 
dodatnie a. b. c. są długościami boków trójkąta i jakiego 
(równoramiennego, równobocznego, prostokątnego). 


Zadanie 3 

Napisać program obliczania wartości szeregu 



1 Implementację języKa uzyskuje się przez opracowanie 
translatora, tj. programu tłumaczącego teksty z danego ję- 
zyka (źródłowego) na inny język (wynikowy). Translatory 
dzielimy na kompilatory i interpretery, System TURBO 
PASCAL wyposażony jest w kompilator języka PASCAL. 

2 Edytor ekranowy pozwala na bezpośrednie działanie na 
tekście aktualnie wyświetlanym na ekranie monitora. Za 
pomocą odpowiednich komend tekst taki można rozsu- 
wać. wstawiać nowe słowa, kasować określone słowa lub 
wiersze tekstu itp. 

3 Słowa kluczowe języka są słowami o określonym znacze- 
niu i mogą być używane tylko zgodnie z regułami dopusz- 
czanymi przez język. W przykładach programów słowa klu- 
czowe są napisane, dla odróżnienia, dużymi literami. 

4 Jest to podział logiczny. W programach, części progra- 
mów zaliczane umownie do poszczególnych faz z reguły 
się przeplatają. 


10 CIS 

20 0RI6IN 320,200 
30 FOR x«I 10 10 
35 FOR y=l 10 15. 
40 DRAM -7*x, 10»y 
45 DRAK -5«y,10«y 

47 NEKT y 

48 ORIEIN 390,200 
50 ORAN 54y,-10«i 
60 NEKT * 

70 0R1GIN 320,200 
80 FOR k=l TO 10 
90 FOR i*l TO 15 
100 DRAM 7tk,-10ti 


110 DRAM 5<i,-10Im 
120 NEXT ■ 

125 0RI6IN 270,200 
130 DRAM -5li,10lk 
135 NETT k 
137 0RIGIN 580,400 
140 FOR x=l TO 15 
143 DRAM -20«x,-15»x 
145 DRAM -5tx,-10lx 
147 DRAM -20łx,-25 
155 NEKT x 
160 ORIEIN 580,0 
170 FOR x*l TO 15 
180 DRAM -20lx,15tx 


185 DRAM -5«x,10lx 
190 DRAM -20lx , 25 
200 NEKT x 
210 0RI6IN 60,0 
220 FOR x*l TO 15 
230 DRAM 20lx,15(x 
240 DRAM 5lx,10«x 
250 DRAM 20tx,25 
260 NEKT x 
270 ORIEIN 60,400 
280 FOR x=l TO 15 
290 DRAM 20lx,-15lx 
300 DRAM 5»x,-10lx 
310 DRAM 20«x, -25 
320 NEKT x 
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ATARI 


„Węglowodory”, to prosty program edukacyl- 
ly, przeznaczony do sprawdzenia wiadomości 
o węglowodorach od C H, do C e H, 6 . Program 


może być użyty jako sprawdzian wiedzy lub 
do zobrazowania wzorćw strukturalnych. Przy 


5 REM ** WĘGLOWODORY ** 

7 OPEN #1,4,0', “K'" 

10 DIM R$<90) ,BS<7) , C#<75>, D$<6) 

DIM E*<6>,F*<40>,Q*<1> 

F*=" 

Q*=" " 

GOSUB 1000 
? " > " ' POKE 732 ,1 
POSITION 14,2'? "C WĘGLOWODORY 

6,8'? "Czy potrzebujesz wy jaśnienia 
16; 10 ; ? "CTOak/CNOie" 


niewielkim nakładzie pracy możliwe jest roz- 
budowanie programu o Inne grupy związków 
organicznych. 


12 

14 

16 

20 

23 

25 

30 

35 

45 

50 

55 

65 

80 

82 

83 

85 

30 

32 

99 

101 

102 

103 

105 

107 

110 

111 

112 

114 

116 

120 

122 

126 

127 

128 

129 

130 

132 

133 

134 


3" 


POSITION 
POSITION 
GET #1,X 
IF X==84 THEN GOTO 200 
IF X<>84 THEN GOTO 65 
P*0 . pp=»0 

I*INT<RND<0>#15> ' J=I*6+1 'K=»I*5+1 
B»-R*<J,J+5> 

D*-C*<K,K+4> 

IF PP*0 THEN 92 
FOR F-l TO 500 1 NEXT F 
GOSUB 1200 

POSITION 14y*2 ; ? "C WĘGLOWODORY 3" 
POSITION 1,20'? "C Wzory strukturalne 


W 


3" 

Prawidłowe odpowiedzi Ocena 3" 
Uruchomienie T Kasowanie N 3" 


POSITION 1,21'? "C 
POSITION 1,22'? "C 
POSITION 27,21'? P 
POSITION 7,7'? BS 
POSITION 7,9'INPUT E* 

pp.pp+1 

IF E*»"W" THEN GOSUB 400 
IF E*«"T" THEN 23 
IF E*»"N" THEN 1300 
L»LEN<E*> 

IF L»4 THEN E#<LEN<E$>+1 >»QS 
IF PP<16 THEN 133 
IF P>*7 THEN POSITION 36,21'? "3" 

IF P>-10 THEN POSITION 36,21'? "4" 

IF P>-13 THEN POSITION 36,21=? "5" 

IF P<7 THEN POSITION 36,21'? "2” 

IF PP>«16 THEN 1100 
IF ES-D* THEN 300 
IF E***"W" THEN 80 
135 POSITION 5,16'? "Zle-sprobuJ jeszcze raz" 

140 GOTO 90 

200 REM OBJAŚNIENIE 

205 POSITION 2,4'? "Sprawdzenie wiadomości o alkanach" 
210 POSITION 2,6'? "i alkenach." 

215 POSITION 2,8,'? "Gdy pokaże sie nazwa weilowodoru" 

220 POSITION 2,18'? "podaj- Jeęo w*or sujnaryczny . " 

225 POSITION 2,12* RETURN otrzy-" 
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2,18'? 

2 , 20 '? 

2 , 22 '? 


"mujesz wzór strukturalny, " 

"Klawisz T i RETURN uruchamiasz" 
"pros ram od początku." 

"Klawisz T i RETURN kasuje pros ram. 
"C Wciśnij dowolny klawisz 3" 


"Wynik dobry - kontynuuj" 
P 


1 1 " ' POSITION 18,10'? "H-C-H" 'POSITION 20 


1 I" 'POSITION 20+L, 10 ' ? “C-H" 'POSITIO 


230 POSITION 2,14'?' 

235 POSITION 2,16'? 

240 POSITION 
245 POSITION 
250 POSITION 
260 GET #1,X 
265 ? ">" 

270 IF X<>27 THEN 65 
300 POSITION 5,16'? 

310 P=P+1 'POSITION 27,21'? 

320 GOTO 80 

400 REM WZORY STRUKTURALNE. 

402 L=0 

405 IF I>7 THEN 450 
407 1=1+1 

410 POSITION 20,8'? "H" 'POSITION 20,3'? 

,11'? "I "'POSITION 20,12'? "H" 

415 IF 1 = 1 THEN 495 
425 FOR fl=2 TO I'L»L+2 

430 POSITION 20+L, 8'? "H" 'POSITION 20+L, 9'? 

N 20+L, 11'? “I "'POSITION 20+L, 12'? "H" 

435 NEXT A 
440 GOTO 435 

450 POSITION 20,8'? "H H" 'POSITION 20,3'? "I I" 'POSITION 20,10'? "C=C" 'POSITION 
20,11'? "I I" 'POSITION 20,12'? "H H" 

455 IF 1=8 THEN 435 

460 POSITION 22,8'? " “'POSITION 22,3'? " " 

465 FOR A=9 TO I'L=L+2 

470- POSITION 22+L, 8 ' ? "H"'POSITION 22+L,3’? "I"' POSITION 21+L,10'1 
OH 22+L, 11'? "I" 'POSITION 22+L, 12'? "H" 

475 NEXT 8 

435 FOR F=1 TO 700'NEXT F 
500 RETURN 

1000 A$="METAN ETAN PROPANBUTAN PENTANHEKSAHHEPTANOKTAN ETEN 
NHEKSENHEPTENOKTEN " 

1010 C*»"C1H4 C2H6 C3H8 C4H10C5H12C6H14C7H16C8H18C2H4 C3H6 C4H8 O5H10C6H12C7H14C 
8H16" 

1020 RETURN 
1100 GOSUB 1200 
1110 POSITION 5,16'? 

1120 POSITION 16, 18'? 

1130 GOTO 110 
1200 FOR F«4 TÓ 13 
1210 POSITION 0, F ’ ? F* 

1220 NEXT F 
f230 RETURN 

1300 ? " > " ' POKE 752 , 0 1 NEW 


-C-H" 'POSITI 


PROPENBUTEN PENTE 


Czy chcesz spróbować Jeszcze raz" 
"mak/CN3ie" 


UWRGR 


m 


Sposob wprowadzania niektórych 
znaków niedostępnych w druku 1 

REVERSE VIDE0 a Potem T 

ESC a następnie COHTROL i CLEflR 
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Po długim oczekiwaniu 
rynek oprogramowania 
mikrokomputerów wzbo- 
gacił się o systemy „inter- 
fejsu graficznego”. Spra- 
wiają one, iż komputer wy- 
daje się bardziej „życzli- 
wy”. 

Firma DIGITAL RESEARCH była 
pierwszą, która dostarczyła użytkową 
wersję systemu graficznego — GEM. 
Znakomicie ułatwia on wykonywanie 
żmudnych i kłopotliwych czynności 
związanych z przekazywaniem komu- 
nikatów do systemu operacyjnego mi- 
krokomputera, a także ułatwia odczyt in- 
formacji adresowanych przez maszynę 
do użytkownika. 

Praktycznie, w dużej części służy 
temu tak zwana myszka. Jest to urzą- 
dzenie w postaci niewielkiego (jak 
paczka papierosów) pudełka z klawi- 
szami (najczęściej od jednego do 
trzech klawiszy). W dolnej płaszczyźnie 
pudełka znajduje się kulka, która, po- 
dobnie do zainstalowanej w końcówce 
długopisu, przesuwana po dowolnej 
płaszczyźnie, obraca się. Każdy ruch 
(obrót) kulki, dzięki odpowiednim ukła- 
dom elektronicznym myszki, sygnali- 
zowany jest komputerowi (za pośred- 
nictwem kabla — ogonka myszki). 

Przesuwanie myszki, np. po stole, 
odzwierciedlane jest na ekranie moni- 
tora zmianą położenia charakterysty- 
cznego punktu, tak zwanego znaczni- 
ka. 

Zatem urządzenie to pozwala między 
innymi na wskazywanie jednego z wie- 
lu wyświetlanych na ekranie komunika- 
tów, np. składową menu — „wyczyść 
ekran”. Gdy znacznik znajdzie się w po- 
lu wyświetlanego komunikatu, należy 
po prostu nacisnąć określony klawisz 
myszki. Jest to jednoznaczne i z napi- 
saniem wyróżnionych słów za pośred- 
nictwem klawiatury. 

OKNA (produkt firmy MICROSOFT) 
także zapewniają realizację tego typu 
zadań. Ponadto pozwalają na pseudo- 
wieloprogramowość. Oznacza to, że 
stwarzane jest wrażenie jednoczesnej 
realizacji więcej niż jednego użytkowe- 
go programu. 

Podstawową ideą tej formy grafi- 
cznej komunikacji z mikrokomputerem 
jest uproszczenie czynności manual- 
nych związanych z kierowaniem pracą 
systemu, a także poprawienie jakości 
postaci informacji przekazywanej przez 
mikro. 

Na przykład, jeśli przetwarzane są 
jednocześnie dwa programy, dwie wy- 
różnione części ekranu, umownie na- 
zywane oknami, prezentują obrazy 
odzwierciedlające aktualny stan pro- 
cesu przetwarzania informacji przez te 
programy. Monitor służy do „podgląda- 
nia" pracy mikro. 

Podobnie jak ekrany monitorów w 
supersamie służą do „podglądania" 
wielu miejsc sklepu jednocześnie przez 
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jedną osobę. W przypadku sklepu źród- 
łem informacji są kamery. W mikro rolę 
tę pełni np. system OKNA. 

Myszka jest wykorzystywana do sze- 
regu różnych zadań, jednym z nich jest 
wskazywanie wybranej czynności, któ- 
rą ma wykonać mikro, na przykład: 
nowy rozmiar okna, otworzenie nowe- 
go okna. 

Czynności związane z instalowaniem 
systemu OKNA w nowym komputerze 
nie są zbyt złożone. Wymagane jest tyl- 
ko wspomniane manipulowanie mysz-' 
ką. Polega ono na wskazywaniu wyróż- 
nionych elementów menu, które jest 
wyświetlane na ekranie w jednym z 
okien. 

Zazwyczaj w pierwszej kolejności 
dokonuje się tym sposobem odpo- 
wiednie przystosowanie dysku do pra- 
cy pod kontrolą okien. Następnie nale- 


OKNA 


ży przekazać do systemu informacje o 
konfiguracji sprzętowej (rodzaj drukar- 
ki, wielkość i typ pamięci itp.). 

Sterowanie systemem OKNA jest tak 
proste, że najczęściej podręcznik oka- 
zuje się zbędny. Jednak mając na 
uwadze małe doświadczenie użytkow- 
ników końcówek mikro, firma MICRO- 
SOFT zamierza jednak sprzedawać 
odpowiednią dokumentację. 

OKNA wykorzystują tę samą metodę 
prezentacji co konkurencyjne systemy: 
GEM i MACINTOSH, jednak nie dy- 
sponują możliwością polegającą na 
wyświetlaniu komend sterowania sy- 
stemem oraz zbiorów w postaci IKON. 

Jednym z podstawowych założeń 
współczesnych metod porozumiewa- 
nia się obrazem, jest maksymalne 
ograniczenie sztucznych, wyuczonych 
symboli, jakimi są między innymi litery i 
cyfry. Lansowany jest powrót do natu- 
ralnego języka, jakim wydają się obrazy, 
w swej uproszczonej formie (przy za- 
chowaniu meritum treści) są nimi, wed- 
ług umownej terminologii, ikony. Naj- 
częściej ilustrują przedmiot lub czyn- 
ność. Przykładem takiej konwencji ikon 
są niektóre oznaczenia w miejscach 
publicznych, a także część znaków 
drogowych. 

W odniesieniu do techniki 
mikrokomputerowej prace w tym kie- 
runku prowadzone są od dosyć dawna 
i ich wynikiem jest między innymi 
SNOBOI 4 — język ikon. 

Ikony w sposób istotny usprawniły i 
ułatwiły proces porozumiewania się 
człowieka z komputerem i odwrotnie. 
Często zamiast mało czytelnych słów 
niewielka rycina ukazana na ekranie 
monitora dostarcza nam szybko i bez- 
błędnie określoną treść. 

Obecnie ikony dostępne są we 


wszystkich profesjonalnych mikro- 
komputerach. Pokonują bariery języ- 
kowe i są najbliższe naturalnej tenden- 
cji porozumiewania się. Redukują czas 
uczenia się, jest mniej kłopotów pod- 
czas pracy z mikro, staje się ona atrak- 
cyjna. Doskonałą ilustracją tej metody 
jest większość gier komputerowych, 
które dzięki ikonom są zrozumiałe w 
czasie kilku chwil, nawet dla dzieci. 
Okazuje się bowiem, że język jakim 
posługuje się autor gry nie ma znacze- 
nia. W zasadzie bawiący się nie muszą 
umieć czytać. Klasycznym przykładem 
takiej gry jest SHADOWFIRE (zabawa, 
której twórcą jest Danton Designs z 
firmy BEYOND). 

Kiedy zamierzamy sprawdzić zawar- 
tość dysku — OKNA wyświetlają ak- 
tualną listę zbiorów w postaci tekstu. 
Natomiast GEM i MACINTOSH oferują 
tekst i ikony. 

Wydaje się, że jednak OKNA są sy- 
stemem lepszym od swych konkuren- 
tów. Górują między innymi szybkością 
odpowiedzi (na polecenia wydawane 
za pomocą myszki), łatwiejsze jest ste- 
rowanie pracą mikrokomputera i uzy- 
skuje się zdecydowanie bardziej czy- 
telną formę prezentacji menu. 

Szybkie otwieranie różnych okien, 
„podglądanie" różnych newralgicznych 
punktów realizowanego programu, 
np.: procesu kontroli danych wejścio- 
wych, postaci danych zapisywanych 
na dysku, pośrednich wyników prze- 
twarzania, następuje praktycznie bez- 
zwłocznie, ale pod warunkiem, że 
przetwarzany jest tylko jeden program. 
Przyczyna tkwi w szybkości procesora, 
który jest udostępniany przez system 
kolejno realizowanym programom. Wy- 
świetlane okna są „zdjęciami" zrobio- 
nymi podczas ostatniego kontaktu pro- 
gramu z procesorem. Stąd okres mię- 
dzy kolejnymi zdjęciami (oknami) tego 
samego programu rośnie wraz z liczbą 
przetwarzanych programów. Gdy pra- 
cuje jeden program, okres ten jest nie- 
zauważalny. 

Niestety OKNA są w pełni wykorzy- 
stane tylko wówczas, gdy wspomagają 
pracę oryginalnych programów 
MICROSOFTa. Dołączany jest wó- 
wczas tak zwany pamiętnik programu 
użytkowego, notatnik dla użytkownika, 
kalkulator i zegar. Wszystkie te zdol- 
ności są odpowiednio prezentowane 
na ekranie monitora w oknach, np. ze- 
gar w postaci- tarczy i tradycyjnych 
wskazówek. 

System ten posiada także prostą ba- 
zę danych, rejestrowane są one w po- 
staci obrazów i tekstów. 

Przykładem firmowego oprogramo- 
wania w pełni wykorzystującego moż- 
liwości OKIEN jest PAINT. Pozwala on 
tworzyć obrazy o wyszukanej formie i 
dowolnej treści. Stanowi konkurencję 
dla uznanego przez profesjonalistów 
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CHIŃSKIE KOMPUTERY 
PERSONALNE 

Chińska Republika Ludowa oferuje 
mikrokomputery oznaczone 0520A, 
0520 C-E, 0520 C-H kompatybilne z 
IBM PC. Model 0520 C-H ma mikro- 
procesor 8088, 51 2 KB pamięci opera- 
cyjnej RAM, dwa mechanizmy dysków 
elastycznych o gęstości zapisu 360 KB 
oraz dysk stały 20 MB. 

W monitorze kolorowym ekran przy 
pracuje z 648 x 504 
Dunktami bezpośrednio adresowalny- 
mi, w monitorze monpchromatycznym 
z 972 x 700 punktami bezpośrednio ad- 
resowalnymi. 

ARM 

Mikroprocesor ARM, czyli Acorn 
RISC (Redunded Instruction Set Com- 
puter) Machinę, o architekturze z 
przetwarzaniem potokowym (pipeli- 
ning), może wykonać 3 miliony rozka- 
w ciągu sekundy. Zbudowany jest 
z 25 000 tranzystorów, umieszczonych 
na powierzchni 7 mm 2 , a wykonanych 
technologią CMOS. ARM ma 25 peł- 
nych rejestrów 32-bitowych. Mikropro- 
cesor dysponuje 26-bitową magistralą 
adresową, czyli może adresować prze- 
strzeń 64 MB a dokładniej — adresuje 
67 108 864 słowa 32-bitowe. Wypo- 
sażony jest w 32-bitową magistralę 
danych. 

Dyski laserowe 

Firma AGA Inc. wprowadza system 
dysków laserowych dla komputerów 
personalnych IBM. Dyski o średnicy 12 
cali mają umożliwiać przy zapisie da- 
nych tekstowych osiągnięcie poje- 
mności 3 GB, przy zapisie obrazów gra- 
ficznych — pojemność 50 GB. 

J. W. 



| Przyjechali... aż zaprzęgiem. Oprócz wielu 
atrakcji, przywieźli również komputery. A 
najwięcej radości z „Dni Berlina" w Warszawie 
miały dzieci. 


U 


ZAKŁADY ELEKTRONICZNE „MICRONET” 

ODDZIAŁ Gdański 
ul. Krasickiego 9 
81 -836 Sopot 

tel. 51-13-17, 41-32-25 w. 36, 65 
tlx 051-2299 
ODDZIAŁ BYDGOSKI 
ul Sobieszewska 17 
85-717 Bydgoszcz 
tel. 42-29-32 
oferują do sprzedaży: 

TERMINAL EKRANOWY SERII AN-2000 

— 24 wiersze po 80 znaków 

— duże i małe litery, alfabet polski 

— interfejs szeregowy V-24 

Wykorzystując ww. terminal instalujemy również wielodo- 
stępne systemy na mikrokomputery typu IBM PC 
OFERUJEMY PONADTO WSPÓŁPRACĘ W ZAKRESIE: 

— konstrukcji i oprogramowania mikroprocesorowych sy- 
stemów kontrolno-pomiarowych 

— elektronicznego sprzętu medycznego 

— montażu i uruchomień urządzeń elektronicznych w małych 
seriach na podstawie zleconej dokumentacji technicznej 

ZAPRASZAMY! 
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LIGA MYŚLĄCYCH 

Zadanie nr 1 

Dwie beczki zawierają razem 240 litrów wody. Gdyby 
z pierwszej beczki przelać do drugiej tyle litrów wody, 
żeby zawartość drugiej beczki podwoiła się, a następnie 
z drugiej przelać do pierwszej tyle litrów wody, żeby 
zawartość pierwszej beczki podwoiła się to w obu becz- 
kach będzie jednakowa liczba litrów wody. 

Ile litrów wody było pierwotnie w każdej beczce? 


Zadanie nr 2 

Trzech robotników może wykonać pracę w ciągu t 
godzin. Pierwszy z nich, pracując sam, może wykonać 
pracę dwa razy szybciej od trzeciego, a o godzinę krócej 
od drugiego. W jakim czasie każdy z nich może wykonać 
tę pracę samodzielnie? 


Zadanie nr 3 

Ile najmniej kuponów TOTO LOTKA należy skreś- 
lić, aby uzyskać co najmniej jedno prawidłowe skreśle- 
nie sześciu liczb przy założeniu, że skreślamy sześć liczb 
z 49? Proszę podać sposób rozwiązania. 


Rozwiązania zadań prosimy przysyłać pod adresem redakcji 
do końca grudnia br., z dopiskiem „Liga Myślących”. Punktacja 
zależy od liczby prawidłowych rozwiązań. Wśród uczestników 
rozlosujemy książki, a na zwycięzców „Ligi” czekają dodatkowe 
cenne nagrody — niespodzianki. 


14# LET p(i)«i 
15# NEXT i 

154 FOR h-1 TO n 

155 LET «"• 

14# FOR i»l TO n 
17# LET t«AB8 (a(irp(i))> 

18# IF t)-i THEN LET «=ti LET j*i 
19# NEXT i 

2## LET g*p(j)i LET p(j)-p(h) 

21# LET p<h)*g 
22# LET f-o(h»g) 

23# LET sHt+1 
24# FOR j-u TO z 
25# LET q*p(j) 

24# LET a(h»q)*a(hiq)/i 
27# LET t«a(h»q) 

28# FOR i-u TO n 

29# LET a(irq)*a(ifq)-a(irg)«t 

3## NEXT i 

31# NEXT j 

32# NEXT h 

33# FOR h*n TO 1 STEP -1 
34# LET s*a(hrz) 

35# FOR j«h+l TO n 
34#LETq»p(j) ' 

37# LET s*s-a(h»q)*x(q) 

38# HEXT j 
39# LET x(p(h))*t 
4## NEXT h 

41# REM Mudruk rozwiązania układu rownan 

42# FOR i«l TO n 

43# PRINT 'KCfin « *fxU> 

44# NEXT i 
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pakietu o nazwie MACPAINT (zbudo- 
wany on został przez Macintosha na 
komputer Apple). 

Dostatecznie duża pamięć kompute- 
ra pozwala na jednoczesne wykorzy- 
stywanie kilku wersji tego samego pro- 
gramu. Jest to bardzo użyteczne np. 
podczas stosowania PAINTa bowiem 
zbiór obrazów może być wówczas 
wspólny dla kilku programów, Wielu 
użytkowników korzysta z tego samego 
zbioru obrazów, także obrazy są prze- 
kazywane między programami. 

Jednym z najaktualniejszych zamie- 
rzeń MICROSOFTa (twórcy OKIEN) 
jest rozwiązanie problemu wielopro- 
gramowości i wielodostępu. Prace w 
tym kierunku uzależnione są od uzy- 
skania odpowiedniej wersji systemu 
operacyjnego MS DOS, 

Ciekawostkę stanowi zapewne cał- 
kowicie poprawna praca OKIEN pod 
systemem GEM. 

Odpowiedzią IBMa na prezentowane 
oprogramowanie Macintosha, OKIEN 
MICROSOFTa oraz GEMa firmy DIGI- 
TAL RESEARCH jest TOPVIEW. 
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Zamiarem IBMa było osiągnięcie 
efektu „życzliwych zachowań" perso- 
nalnych komputerów. Jednak porównu- 
jąc TOPVIEW z OKNAMI lub z GEMem 
należy z całą' stanowczością stwier- 
dzić, iż jest to zdecydowanie gorsze 
oprogramowanie. 

Powierzchownie TOPVIEW jest bar- 
dziej podobny do OKIEN niż do GEMa 
lub Macintosha. System ten nie repre- 
zentuje jednak programu graficznego, 
nie używa ikon, ponadto sterowanie 
tym systemem jest bardzo kłopotliwe, 
Wymagana jest myszka i klawiatura. 
Część poleceń należy wybierać mysz- 
ką, a część tradycyjnie przekazywać za 
pośrednictwem klawiatury. Na przy- 
kład, aby cokolwiek napisać, najpierw 
trzeba skorzystać z myszki, by ustalić 
miejsce kursora na ekranie monitora 
mikro, dopiero potem można napisać 
wybrany komunikat na klawiaturze. 

W zasadzie TOPVIEW jest sterowany 
klawiaturą. 

Pierwszą informacją wyświetlaną na 
ekranie przez ten system jest 
„TOPVIEW WITA" i pierwszą czynnoś- 
cią. którą należy wykonać jest naciś- 
nięcie klawisza by program pracował 
dalej — czynność, która nie ma sensu. 


Prawdopodobnie IBM chciał w ten 
sposób zamanifestować komputerową 
życzliwość... 

OKNA i TOPVIEW wymagają pew- 
nych informacji o realizowanych pro- 
gramach użytkowych. Informacje te są, 
za pomocą specjalnych edytorów, re- 
jestrowane w Program Information File 
(PIF). 

TOPVIEW ma kłopoty z innymi pro- 
gramami niż ze stworzonymi przez IBM. 
Np. GEM i OKNA doskonale dają 
sobie radę z LOTUSem 1-2-3, na- 
tomiast TOPVlEW jest tu nieużyteczny. 
Nawet w LOGO interpreter IBM wpro- 
wadza bałagan na ekranie, prakty- 
cznie uniemożliwiający pracę. 

Zasygnalizowane prace MICRO- 
SOFTa, MACINTOSHa, DIGITAL 
RESEARCH, a także IBMa, bez wzglę- 
du na już uzyskane efekty, są objawem 
stosunkowo nowego kierunku w infor- 
matyce — doskonalenie kontaktu 
człowiek — komputer. Często efekty 
tych prac nazywane są interfejsem 
użytkownika, interfejsem graficznym, 
„łatwe w użyciu". Jednak najtrudniej 
tendencję tę oddaje określenie: ŻY- 
CZLIWOŚĆ KOMPUTERÓW. 
Opracował: Włodzimierz GOGOŁEK 


Pocztowa giełda 


Rozwiązanie krzyżówki z „IKS-a" nr 5 

Hasło brzmi: IKS UCZY, BAWI, POMAGA". Bony 
pieniężne (1000 zł) wylosowali: Tomasz Dąbrow- 
ski — Słupsk, Henryk Duklas — Zgierz, Jolanta 
Mężyk — Ustroń, Dorota Niezgoda — Sando- 
mierz, Artur Pacholec — Przemyśl. 

Nagrody książkowe otrzymują: Magdalena 
Swatowska — Warszawa, Przemysław Krzak — 
Koziegłowy, Arek Klimczak — Leśna, Krzysztoł 
Pielarz — Janów Lubelski, Andrzej Eckersdorf — 
Gorzów Wlkp., Andrzej Ciszek — Gliwice, Jani- 
na Sajdak — Warszawa, Paweł Nowak — Poznań, 
Ewa Sokoli — Bytom, Bartosz Szpunt — Kosza- 
lin. 


UWAGA - KONKURS! 


Miłośnicy literatury science fiction z oryginal- 
nymi pomysłami i fantazją! Każdy z Was ma szansę 
spróbować swych sił w naszym konkursie na nowe- 
lę lub opowiadanie pod Hasłem „Przed nami XXI 
wiek”. 

„Najfantastyczniejsze" utwory zostaną uhonoro- 
wane przez ziemskie jury, które przyzna nagrody: 

I — 15 tys. złotych 

II — 10 tys. złotych 

III — 5 tys. złotych 

Nad ich sprawiedliwym i obiektywnym podzia- 
łem czuwać będzie komputer. Autorzy materiałów 
zakwalifikowanych do druku zostaną ponadto usa- 
tysfakcjonowani godziwym honorarium zgodnie z 
obowiązującymi stawkami. 

Entuzjastów informatyki i komputerów nie mu- 
simy przekonywać, że i fantazja musi mieć swoje 
ścisłe parametry. A więc mile widziane będą prace 
o objętości nie przekraczającej 15 stron maszyno- 
pisu bądź czytelnego rękopisu, jak będzie wyglą- 
dał nasz glob opanowany przez komputery n-tej 
generacji, w jaki sposób informatyka zmieni życie 
człowieka XXI wieku, jak homo sapiens ułoży sobie 
koegzystencję z rozumnymi maszynami? To tylko 
niektóre sugestie organizatorów dotyczące tema- 
tyki nadesłanych utworów. 

Prace opatrzone godłem należy nadsyłać do 
końca grudnia, dołączając kopertę podpisaną god- 
łem, zawierającą dane o autorze, pod adresem: 

„IKS” — ul. Grzybowska 77 
00-950 W-wa 

Przychylności weny, zdyscyplinowanej fantazji — 
życzy REDAKCJA 

PS Zastrzegamy sobie prawo pierwszeństwa 
publikacji prac nagrodzonych oraz wybranych 
spośród nie nagrodzonych. 


W naszym komputerlandzie 


W naszym komputerlandzie rozsiano ostatnio plotki, że 
według wszelkich reguł prawdopodobieństwa istnieją duże 
szanse, iż nowy rok będzie nosił numer 1987. Zaniepoko- 
jony tymi doniesieniami pracowity Spektruś zwołał kiero- 
wany przez siebie zespół robotów na roboczą naradę. Naj- 
starsze i najzacniejsze roboty wypowiedziały się więc 
konstruktywnie na interesujący wszystkich temat, 

Pierwszy robot swoją wypowiedź utrzymał w tonie opty- 
mistycznym, stwierdzając jednak, że byłby za ustaleniem 
numeru 1 975, gdyż w komputerlandzie uzyskano właśnie 
poziom techniki komputerowej przewidzianej w planie na 
ten rok, 

Robot drugi krytycznie ustosunkował się do tej kwestii, 
gdyż jego zdaniem nie ma sensu dyskutować o roku 1 987, 
skoro nie wyjaśniona jest jeszcze sprawa roku 467 przed 
naszą erą. ^ 

Trzeci dyskutant proponował, by w komputerlandzie 
przeprowadzić badania ankietowe, które zadecydują o tym 
czy będzie to rok 1 987 czy jakiś inny, Badania najlepiej by- 
łoby przeprowadzić w III kwartale roku przyszłego, a wyniki 
po opracowaniu przez komputer byłyby znane najdalej pod 
koniec I półrocza roku następnego. 

A czwarty mówca był za wyrównaniem wszystkich cyfe- 
rek i ustaleniem na przykład numeru 2222. Jeśli bowiem 
nawet jakiś spekulant będzie próbował sztuczek czytania 
numeru od końca, to i tak wyjdzie mu to samo, zaś numer 
1 987 czytany od końca daje 7891 , a to już wielka przesada 
i w ogóle brak wyobraźni. 

W swoim podsumowującym słowie Spektruś zauwa- 
żył, że wstępne rozeznanie pozwala założyć, że numer na- 
stępnego roku będzie pochodną funkcji roku poprzednie- 
go według wzoru: 

N = R* + \/(X-Y,) + n 

co zostanie obliczone, jak tylko zespół robotów połapie się, 
o co chodzi. W porównaniu jednak do roku 1986, rok na- 
stępny powinien wzrosnąć o około 0,050352 procenta. 
Dla porównania — jest to wzrost znaczący, zwłaszcza w 
zestawieniu z latami poprzednimi... 

Podglądał: 

Eugeniusz MLECZAK 



Nie wiemy, kiedy na rynku ukaże się ELWRO 800 Ju- 
nior, ale na pewno w następnym numerze „IKS-a" 
znajdziecie: 

• kolejny odcinek Basica 

• Jak tn rrnhir*r/ ? 

• rozwiązania zadań z „Ligi Myślących’ 

• oraz wiele innych ciekawych informacji 
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Krzyżówka nr 7 



POZIOMO: 1-8 naczynie lub tytoń 3-A jeden z 
rodziny komputerów, S-A założenie, 5-F jednost- 
ka pamięci, 7-D może być senna, 8-A silnikowy 
lub roślinny, 9-C ...tenisowa 10-A coś rzadko spo- 
tykanego, 11-D działacz emigracyjny czł. Młodej 
Polski, 12- A rajska dziewczyna, 13-A w tytule 
powieści F. Dostojewskiego, 13-F rezerwa MO, 
15-A popisy cyrkowe, 17-B w załodze statku. 
PIONOWO: 1-C nietypowy aktor, 1-E jabłko. 1-G 
rynek w starożytnej Grecji, 1-1 akcja na cele do- 
broczynne, 2-A uzyskuje się go z drzewa lub 
owoców, 5-B C H , 6-E jednostka oporu elektry- 
cznego, 7-D zlot, 7-F kort, 7-H jego imieniem na- 
zwano Dwór w Gdańsku z XIV w., 8-A pańskie 
konia tuczy, 8-C okres w dziejach Ziemi, 10-B 
mała czarna, 11-E 0,01 ha, 11-G jednostka po- 
wierzchni, 11-1 rodak, 12-A tytuł czasopisma. 
12-C wulkaniczny masyw na Wyż. Armeńskiej. 
14-E rzeka w ZSRR, 15 ; G królw Bułgarii. 
HASŁO: 3— A, S^-C, 7^-B, 9— H, 16^-G, 15^-H, 
9±F, 15^B, 4~2|,9±*D. 

ROZWIĄZANIA (tylko hasło) prosimy przesy- 
łać pod adresem redakcji do końca grudnia. 
Wśród czytelników, którzy nadeślą prawidłowe 
rozwiązania rozlos"'~”'y bonv pieniężne i nagro- 
dy książkowe 



Mikrociekawostki 


Nowa japońska propozycja — SHARP MZ-5600 
to cała seria 16-bitowych mikrokomputerów 
(MZ-5631, MZ-S641, MZ-5645) zbudowanych na 
procesorze 8086-2 (8 MHz). Pamięć RAM ma 
standardowo 256 KB z możliwością rozbudowy 
do 512 KB. Komputery tej serii mogą być wypo 
sażone w dysk sztywny o pojemności 10 MB 
Standardowym systemem operacyjnym na MZ 
-5600 jest MS-DOS, a językiem programowania 
oczywiście BASIC. 



CO wv, komputer, nie 

ROZUM! Cl £ JAKA 


Rys. Michał Przybyłowski 


„IKS’* — dodatek „Żołnierza Wolności”. Redaguj*: Wiesław Cetera (kierownik zespołu), Ryszard Rogoń. Siali współpracownicy: 
Włodzimierz Gogołek, Ireneusz Miernik, Janusz Miller, Michał Przybyłowski, Jacek Szaniawski. Adres redakcji; 00-950 Warszawa 
ul. Grzybowska 77, telefon centrali 20-12-61 w. 406. Rękopisów nie zamówionych redakcja nie zwraca i zastrzega sobie prawo do 
skrótów. Nakładem: Wydawnictwa „Czasopisma Wojskowe”, Warszawa ul. Grzybowska 77, Fotoskład I druk rotograwiurowy — 
Wojskowe Zakłady Graficzne im. gen. dyw. A. Zawadzkiego. Nr zam. 8241. Nr ind. 382009 r-67 





CENA — 50 zł 






Za parę tygodni rozpocznie- 
my nowy rok bardziej dojrzali. 
Osiem wydanych numerów 
„IKS-a” zaświadcza, że wyszliś- 
my już z wieku niemowlęcego 
Podsumowania jednak nie bę- 
dzie, bowiem jaki jest nasz mie- 
sięcznik Czytelnicy wiedzą dos- 
konale. Liczymy się z ich zda- 
niem, a pomysły, dobre oczy- 
wiście, starannie wykorzystuje- 
my. Łamy „IKS-a” dla wszyst- 
kich, którzy mają coś ciekawego 
do powiedzenia, stoją otworem. 
Otrzymujemy wiele listów, szcze- 
gólnie serdecznie staramy się 
przyjmować gości w naszej re- 
dakcji. Jesteśmy zapraszani na 
wiele mikrokomputerowych im- 
prez. 

Zainteresowanie mikrokompu- 
terami nie słabnie. Sprzętu jest 
coraz więcej. Przybywa też wia- 
domości o jego możliwościach. 
Już dziś zdarza się, że kilkuna- 
stoletni młodzieńcy zawstydzają 
dojrzałych profesjonalistów. 
Nadal jednak jesteśmy na począ- 
tku drogi. Informatyka porwała 
wielu, niestety dla znacznej czę- 
ści młodzieży stała się również 
przykrym obowiązkiem. 

Niestety bywa i tak. Kiedy 
w Warszawie rozpoczynała się 


Firma PHILIPS SUBSYSTEMS and 
PERIPHERALS z Nowego Jorku pracu- 
je nad nowym typem optycznego dy- 
sku typu „pisz raz, czytaj wiele razy" 
(write once reaid many) o pojemności 
500 Megabajtów. Będzie on kompaty- 
bilny z CD ROM (compact disk read 
only rnemory). Philips nazwał te nowe 
dyski CD-PROM (compact disk pro- 
grammable read only rnemory). 


Holenderska firma DOC-data planu- 
je wykonać optyczny mechanizm taś- 
mowy, który będzie rejestrował 1 Tera- 
bajt (1000 Gigabajtów danych). Urzą- 
dzenie to nazwano DOCwheel, wyko- 
rzystuje ono 1 28 optycznych kaset (op- 
tical cassettes) o rozmiarach standar- 
dowych audio-kaset (4, 4x2, 2x0, 6 cala). 
Każda kaseta ma pojemność 8 Giga- 
bajtów. To nadzwyczajne urządzenie 
będzie dostępne w 1987 roku. 


Natomiast już dzisiaj można kupić 
BACKUP Tape System firmy IRWIN. 
Jest to pamięć taśmowa o pojemności 
40 Megabajtów. Informacje rejestro- 
wane są na kasecie typowej wielkości. 
Można ją schować do kieszeni mary- 
narki. Dzięki autokorekcji błędów gwa- 
rantowana jest poprawność odczytu 
bez konieczności weryfikacji zapisa- 

IKS — 2 


wystawa Mikro Expo wokół Mu- 
zeum Techniki hulał mroźny, lis- 
topadowy wiatr. Nie przeszka- 
dzało to jednak domorosłym in- 
formatykom w uformowaniu 
cierpliwie stojącej kolejki. Tak 
było w sobotę i niedzielę (8 i 9 
listopada). Od wtorku na wysta- 
wę przychodziły szkoły. „i co my 
tu będziemy robić przez te pót 
godziny'' pytali najbardziej znu- 
dzeni. Prawda, co mieli robić, 
kiedy tylko nieliczni wiedzie- 
li po co tu przyszli. W ten sposób 
już wkrótce okazać się może, że 
jesteśmy na dobrej drodze do 
zagłaskania informatyki, aż do 
obrzydzenia. 

Jeszcze raz trzeba sobie zdać 
sprawę z tego, że mikrokompu- 
ter jest tylko narzędziem. Po- 
równać go można do samocho- 
du. Proszę bardzo: posiadanie 
prawa jazdy nie jest czymś nad- 
zwyczajnym, trzeba znać zasady 
ruchu, umieć wykonać podsta- 
wowe czynności techniczne, ot 
chociażby zmienić koło — to 
wystarczy. Znakomita większość 
kierowców nie „grzebie” w silni- 
ku, poważniejsze naprawy pozo- 
stawiając specjalistom. 

Z komputerem jest tak samo, 
dokładnie tak samo: trzeba po- 
znać zasady dialogu z tym urzą- 


nych na kasecie informacji. Propono- 
wane (oczywiste) zastosowanie — 
składowanie twardych dysków: 1 0. 20 i 
40 Megabajtowych. 


KURZWELL zaprezentował foniczny 
terminal,' który umożliwia wykorzysta- 
nie wypowiadanych stów i fraz do ste- 
rowania, wprowadzania i obierania da- 
nych z mikrokomputerów. System ten 
automatycznie „przekłada" stówa ko- 
mend i dane na postać wymaganą 


NOWINKI 

przez wejście w komputerze stosowa- 
ne dla typowej klawiatury. Innymi słowy 
można wykorzystać klawiaturę lub mik- ' 
rofon, ekran lub głośnik,, i 


Firma MITSUBISHI proponuje tani 
(395 dolarów) digitizer o aktywnej po- 
wierzchni tablicy 21x30 cm. Digitizer 
umożliwia operowanie z szybkością 60 
punktów na sekundę i rozdzielczością 
0,1 mm. Tablica współpracuje z Auto- 
CAD, P-CAD, PC-Paint itp. (Digitizer 
jest urządzeniem wejściowym mikro, 
które, podobnie jak myszka, zmienia 
położenie znacznika na ekranie moni- 


dzeniem i umieć go uruchomić. 
A środek pozostawmy specjali- 
stom. Pamiętajmy, że z kompu- 
terem trzeba się oswoić, bo wię- 
kszość użytkowników nie będzie 
w przyszłości pisać programów! 
Będzie je jedynie eksploatować. 
Tak, tak. Ucząc zatem podstaw 
nie wymagajmy gruntownej wie- 
dzy technicznej. Przyszły użyt- 
kownik nie musi wiedzieć jak 
działa mikroprocesor, nie jest 
mu potrzebna wiedza o układach 
logicznych, tak jak kierowcy nie 
jest potrzebna znajomość na 
przykład ilości zębów w przekła- 
dni głównej — bo i po co! 

Nie straszmy zatem informa- 
tyką, pokażmy jedynie jej możli- 
wości. I zapamiętajmy, że tylko 
nieliczni będą genialnymi kons- 
truktorami i wspaniałymi pro- 
gramistami — większość pójdzie 
tylko ich śladem. 

Pokonywaniu tych właśnie ba- 
rier, niechęci, niezrozumienia, 
niemalże przestrachu chcemy 
służyć i nadal liczymy na Waszą 
pomoc. 

Wszystkim Czytelnikom 
Przyjaciołom i Sympatykom 
życzymy udanego startu w 
nowy rok. 

Redakcja 


tora. Miejsce stołu zajmuje wspomnia- 
na tablica, myszki — „pióro"). 


HEWLETT-PACKARD wyproduko- 
wał maszynę kompatybilną z IBM 
PC/AT, która może pracować w języku 
angielskim lub jednym z czterech azja- 
tyckich: japońskim, koreańskim, chiń- 
skim lub uproszczonym chińskim. Ma- 
szyny te pracują w oparciu o procesor 
80286. Dołączona jest bogata oferta 
uzupełniająca (RAM, floppy 1 ,2 Mb. op- 
rogramowanie). Wybierając wersję ja- 
pońską (3,1) MS-DOS staje się sy- 
stemem operacyjnym w języku japoń- 
skim. W ROM-ie zapisano około 7000 
japońskich znaków. Znaki Kanji są wy- 
świetlane na ekranie jako matryce 
24x24 pixele. 


Pojemność typowego optycznego 
dysku wynosi 1 Gigabajt. Jest to ekwi- 
walentem około 400 000 stron A4. 500 
do 1 000 obrazów czarno-białych, 2000 
mikrofisz, 8000 m taśmy magnetycznej. 
FUJITSU twierdzi, że to dopiero począ- 
tek, bowiem propozycja tej firmy to 12- 
-calowy dysk 3 Gigabajty z możliwością 
zapisu i odczytu informacji Póki co 
można kupić CMI 00 Philipsa 0,6 Giga 
(1 1 5x320x267 mm — 5 kg). 

W.G. 


POLSKIE ZNAKI 
NA ZX SPECTRUM 


Wszystkie programy, które powstają z 
myślą o polskim użytkowniku powinny 
być wyposażone w cały zestaw liter pol- 
skiego alfabetu. Dotyczy to szczególnie 
programów dydaktycznych, programów 
przetwarzających teksty oraz programów, 
w których występuje lista nazwisk lub 
dowolnych innych nazw. Stosowanie li- 
ter polskiego alfabetu w programach po- 
dyktowane jest nie tylko wymaganiami 
dydaktycznymi czy formalnymi. To 
właśnie język przez długie lata był ostoją 
naszej narodowości. 

Żaden z zachodnich mikrokomputerów nie jest wyposa- 
zony we wszystkie litery polskiego alfabetu Nie występują 
bowiem polskie litery diakrytyzowane, takie jak Ą, ą, ć, ć. Ę, 
ę itd. 

W mikrokomputerze ZX Spectrum można stosunkowo 
łatwo zdefiniować dowolny znak. w szczególności więc 
również i polskie litery diakrytyzowane. Łącznie zdefinio- 
wać można 21 znaków, które dostępne są w trybie grafi- 
cznym na klawiszach A— U. Definiując znak, trzeba roz- 
strzygnąć dwie kwestie: 

— kształt znaku 

— przyporządkowanie znaku do jednego z klawiszy A— U. 

Wszystkie znaki definiowane są w matrycy 8X8 pól (pi- 
kseli). Każdy rząd składający się z ośmiu pikseli może być 

oznacza pole zaczernione (przy założeniu pisma pozytywo- 
wego. tj trybu INVERSE0)a 0 pole nie zaczernione Liczby 
te wpisywane są następnie za pomocą instrukcji POKE w 
tzw. obszar UDG(user define-u puu auu, ,• wy- 

branego klawisza A— U. Łatwo zauważyć, że jeden tak zde- 
finiowany znak zajmuje 8 bajtów pamięci, podczas gdy 
wszystkie znaki i słowa kluczowe dostępne wprost z kla- 
wiatury zajmują 1 bajt. 

Poniżej przedstav _■ ■*-» 1 'itryca znaku „ź": 



titiiiti 



30 FOR i =0 TO 7 
40 REflD a 

50 POKE USR K*+i ,a 

60 NEXT i 

70 DRTR 8,16,124,8,16,32,124,0 

Tak zdefiniowany „z dostępny jest w trybie graficznym 
po naciśnięciu klawisza „g 

W związku z dużym upowszechnieniem mikrokomputera 
ZX Spectrum celowe byłoby ujednolicenie przyporządko- 
wania poszczególnych liter diakrytyzowanych do klawiszy 
A— U O ile dla małych liter ą. ć, ę itd panuje zgodność — 
gdyż przyporządkowuje się je do klawiszy odpowiednio A. C 
E — o tyle dla dużych liter zgodności takiej me ma Ponad- 
to pewien chaos wprowadzają znaki „ź". „Ź , „ż". ,.Ż ", które 
nie mieszczą się w przedziale A— U. Najlepszym kryterium 
dla przyporządkowania znaków do klawiszy jest sąsiedz- 
two w alfabecie (porządek alfabetyczny) oraz — dla zna- 
ków „ź" i „ż" — skojarzenie z wymową francuską. 

Należy podkreślić, że w ASCII kody znaków zdefiniowa- 
nych przez UDG są większe od kodów dużych i małych li- 
ter alfabetu angielskiego, co utrudnia leksykograficzne po- 
rządkowanie słów. Problem można, rozwiązać stosując 
umiejętne kodowanie, np. nazwisko „Ślusarczyk” powinno 
być zapisane w komputerze jako „Stlusarczyk". Przy wpro- 
wadzaniu danych trzeba analizować pierwszy znak i — je- 
śli jest to znak z zakresu UDG — przeprowadza się ko- 
dowanie. Przy wyprowadzaniu danych (na ekran lub dru- 
karkę) trzeba analizować drugi znak nazwy i — jeśli jest to 
znak użyty do kodowania (t). dwa pierwsze znaki nazwy za- 
stępuje się odpowiednim znakiem z zakresu UDG. Kodo- 
wanie i dekodowanie powinno być realizowane przez od- 
rębne podprogramy. Znak użyty do kodowania powinien być 
tak dobrany, aby jego kod był zawarty pomiędzy kodami 
dużych i małych liter. Jest to niezbędne dla zapewnienia 
prawidłowego sortowania. Warunek ten spełnia np. znak t. 

Alfabet polski zawiera 1 8 liter diakrytyzowanych (małych 
i dużych razem). Ponieważ obszar UDG pozwala na zde- 
finiowanie 21 znaków, pozostałe 3 znaki można wykorzy- 
stać do celów specjalnych (np bardzo przydatna jest kre- 
ska do podkreśleń tekstu) 

Znaki raz zdefiniowane zgodnie z przedstawionym opi- 
sem należy zapisać na taśmie za pomocą instrukcji 

SRUE "Zna K i -po L " CODĘ 65368,168 


10 REM . 
20 POKE 
30 POKE 
40 POKE 
50 POKE 
60 POKE 
70 POKE 
80 POKE 
90 POKE 


USR 

USR 

USR 

USR 

USR. 

USR 

USR 


'9"+l,6XN 
‘g "+2 ,BIN 
'g"+3,BIN 
•g"+4 ,BIN 
'9 " +5 , BIN 
’g"+6,BXN 
'g"+7,BIN 


. . >000 
00010000 
01111100 
00001000 
00010000 
00100000 
01111100 
0 


Alty uHiMicji, powUMZdnid iIisUum-ji i ur\:_. iliuZita uZyĆ 
pętli FOR. należy jednak przeliczyć liczby binarne na dzie- 
siętne. Stosowny fragment programu definiujący znak ,.ź" 
wyglądałby wówczas następująco: 


i używać w każdym programie, ładując je instrukcją 

LORD "Znafci -POI" CODĘ 

lub 


LORD "" CODĘ 


dokończenie na str. 6 
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„ZGADYWANKA” (ATARI) jest komputerową 
wersją popularnej gry „Master mind". Jest tru- 
dniejsza od pierwowzoru, polega bowiem na od- 
gadnięciu liczby z przedziału od 0000 do 9999. 
Może w niej brać udział do 10 graczy, można za- 
tem urządzić turniej logicznego myślenia. 

Istnieją dwa poziomy gry; łatwy, dla początku- 
jących, w którym każda cyfra liczby jest inna oraz 
trudny, dla zaawansowanych, w którym mogą 
wystąpić powtarzające się cyfry. 

UWAGA: W linii 110 należy wpisać w cudzy- 
słowach po B $ i C $ następujące znaki graficzne, 
które nie zostały wydrukowane, odpowiednio 
CTRL P oraz CTRL T. Te same znaki należy 
wpisać w nawiasy w linii 1450, w takiej samej 
kolejności. 

90 REM « ZGADYWANKA » 

100 DIM T(10) ,C(10) ,Z (2.4) .K<4> 
105 DIM 0*<1) ,B*<2> ,CS<2> ,S<4> 
110 B*=" " : C*=" " 

115 OPEN #1,4,0. "K: " 

117 FOR 1=1 TO 10: T ( I ) =0: NEXT I 
120 GOSUB 1000: REM STRONA TYTUŁ 
OWA 

400 FOR P=1 TO Q 
405 POKE 752,0 

410 GRAPHICS O:? “ UWAGA GRA 
CZ 11 ; P; " , WYBIERAM LICZBĘ.":? : 

? :? 

420 FOR 1 = 1 TO 6: C ( I ) =0: NEXT I 
430 N=0: FOR 1=1 TO 4 
440 N1=INT<10*RND(0) > : IF A9=l T 
HEN 470 

450 IF C(N1+1)=1 THEN 440 
460 C (Nl+1 ) =1 

470 N=N+(N1* (lO-MI-l) )) :NEXT I 
480 N1=N:T5=0 

490 T1=INT (N/1000) : N=N— (Tl *1000 
) 

500 H1 = INT (N/100) : N=N— (HI * 100) 
510 E1=INT (N/10) :N=N— (E1410) 

520 Z(l, 1>=T1:Z(1,2)=H1:Z(1,3) = 
E1:Z<1,4)=N 

530 IF T5< >20 THEN 550 

540 ? :? "ZBYT WIELE PRÓB, SZUK 

ANA LICZBA: ":N1:GOTO 720 

550 POSITION 1,22:? “PODAJ SWÓJ 

A LICZBĘ: " 

560 FOR 1 = 1 TO 4: S < I ) =0: K < I ) =0: 
NEXT I : X 1 =0 : T5=T5+ 1 
570 FOR KL=5 TO 1 1 STEP 2 
580 GOSUB 950 

590 IF KL=5 THEN T=C: POSITION K 

L, T5: ? T: Z (2,1 ) =T 

594 IF KL=7 THEN H=C: POSITION K 

L, T5: ? H: Z (2,2) =H 

598 IF KL=9 THEN E=C: POSITION K 

L, T5: ? E:Z(2,3)=E 

600 IF KL=11 THEN 0=C: POSITION 

KL.T5:? O: Z <2, 4) =0 

605 NEXT KL 

610 G=T*1000+H»100+E*10+0 
615 POSITION 1,22:? " 

620 POSITION 16. T5: POKE 752,1 
622 FOR T =4 TO 1 STPP -1 I 


624 IF Z (2, I ) —Z (1,1) THEN ? B*; 

: K ( I > =2 
626 NEXT I 

628 IF G=N1 THEN 710 
630 X=INT <4*RND (O) ) +1 : IF S(X)=1 
THEN 630 

640 S (X ) =1 : FOR L=1 TO 4: IF Z(2, 

mOZfl.LI THEN 700 

645 IF K (L) =2 THEN 700 

650 IF K (L) =1 THEN 700 

660 K(L) = 1: IF XOL THEN 680 

670 POKE 752,1:? B*;:GOTO 690 

680 POKE 752,1:? C*; 

690 L=5 

700 NEXT L: X 1=X1 + 1 : IF Xl=4 THEN 
530 

705 GOTO 630 

710 ? : ? i? : ? :? “ BARDZO 

DOBRZE. ODGADŁEŚ LICZBĘ W "f 
T5: " RUCHACH. “ 

715 FOR 1=1 TO 600: NEXT I 

720 ? i? : T <P) =T (P) +T5: NEXT P:R 

=R+1 

730 ? I? " PO ZAKOŃCZENIU R 

UNDY “ i R: ? 

740 ? ''GRACZ", "RAZEM", "ŚREDNIA" 
"STOPIEŃ" 

750 ? : FOR 1=1 TO Q 
760 ? " "fi." "jT(I) , :T9=INT( 

(T ( I ) /R) ł 100) / 100: ? " ";T9, 

770 GOSUB 830 
780 NEXT I 
790 ? :? :? 

800 ? "NASTĘPNA RUNDA? (T/N) ": 
: INPUT O* 

810 IF 0*="T" THEN 40# 

815 IF 0*< > " T AND 0*<>"N" THEN 
800 

820 STOP 

830 T9=T9+( (A9-l)*4) 

840 IF T9<=4 THEN ? "EKSPERT" :R 
ETURN 

850 IF T9<=8 THEN ? "WYJĄTKOWO" 
: RETURN 

860 IF T9< = 12 THEN ? "DOBRZE" :R 
ETURN 

870 IF T9<=15 THEN ? "ŚREDNIO": 
RETURN 

880 IF T9<=18 THEN ? "SŁABO": RE 
TURN 

890 IF T9<=20 THEN ? "BARDZO SL 
ABO": RETURN 

900 ? "WYMAGA":? "TREN 

INGU": RETURN 

950 REM PPROGRAM GET 

960 GET #l.C:C=C-48 

965 IF C=78 THEN KL=KL— 2: POSITI 

ON KL, T5: ? " " 

970 IF C<0 OR 09 THEN 960 
980 RETURN 

1000 REM STRONA TYTUŁOWA 
1010 DL=PEEK(560)+256*PEEK(561) 
1020 GRAPHICS 0:SETC0L0R 2,0,0: 
POKE 580.1: POKE 752.2 
1030 SETCOLOR 1 , O, 15: SETCOLOR O 
,2,8: SETCOLOR 3. li. 7: POKE 82,0 
1040 POKE DL+9, 7 : POKE DL+13,7 
1050 POSITION 5,4:? "zgadywanka 


1060 POSITION 3,15:? ' lOPTIONl - 

POZIOM GRY:" * 

1070 POSITION 3.17:? 'ISELECTl - 

ILOSC GRACZY:" , , 

1080 POSITION 3,19:? ' 1STARTI - 

POCZĄTEK GRY" 

1090 POSITION 3,21:? "iHELPl 
dokończenie na sir. 6 
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dokończenie ze str. 3 


dokończenie ze str. 5 


INSTRUKCJA" 

1100 A9=l : GOSUB 1200 
1110 Q=0: GOSUB 1300 
1120 W=PEEK (53279) 

1130 IF W=3 THEN GOSUB 1200 
1140 IF W=5 THEN GOSUB 1300 
1150 IF W=6 THEN RETURN 
1160 IF PEEK (732) =17 THEN GOSUB 
1400 

1170 GOTO 1120 

1200 REM POZIOM GRY 

1210 A9= NOT A9 

1215 FOR 1=1 TO 50: NEXT I 

1220 IF A9=0 THEN 1240 

1230 POSITION 25,15:? "ŁATWY / 

HoRatP": RETURN 

1240 POSITION 25,15:? / 

TRUDNY": RETURN 

1300 REM ILOSC GRACZY 

1305 FOR 1=1 TO 50: NEXT I 

1310 IF Q=10 THEN Q=0 

1320 Q=Q+1: POSITION 30,17:? " 

1330 POSITION 30,17:? STR*(Q> 
1340 RETURN 
1400 REM INSTRUKCJA 
1410 POKE 732, O: GRAPHICS 0:P0KE 
82 , 2 : POKE 83,39 

1420 POSITION' 15, 1:? "ZASADY GR 
Y" :? " " 

1430 ? " WYBIERAM LICZBĘ MIED 
ZY 0000-9999. SPRÓBUJ ODGADNAC 
TE LICZBĘ W MINIMAL- NEJ ILOSC 
I PRÓB. ZA KAŻDYM RAZ" 

1440 ? "NEJ ILOŚCI PRÓB. ZA KAZ 
DYM RAZEM DAM CI WSKAZÓWKI JAK 
BLISKI JESTES P0-" 

1450 ?' "PRAWNEJ ODPOWIEDZI. WSK 
AZOWKAMI BEDA <CZARNE><> I/LUB 
< B I ALE > ( ) . JEŚLI" 

1460 ? "POWIEM <BIALE> TO ZNACZ 
Y, ZE JEDNA Z CYFR. JEST POPRAW 
NA, LECZ NIE JEST NA" 

1470 ? "SWOIM MIEJSCU. JEŚLI PO 
WIEM <CZARNE>, WTEDY MASZ POPRĄ 
WNA CYFRĘ NA SWOIM" 

1480 ? "MIEJSCU. POZWALA CI TO 
WNIOSKOWAĆ JAKIE CYFRY SA P 

OFRAWNE. " 

1490 ? " ":? " ":? "Jeśli skonc 
syles czytac, nacisnij dowo 

lny klawisz.’':? " " : POKE 764,25 

1495 IF PEEK (764) =255 THEN 1495 
1500 ? " ":? " ":? " ":? " ":? 
m . n " . " 

1510 ? " ISTNIEJĄ DWA POZIOMY 
TRUDNOŚCI GRY. WERSJA ŁATWA - D, 
LA POCZĄTKUJĄCYCH, " 

1520 ? "NIE BEDZIE MIEĆ TYCH SA 
MYCH CYFR UZY- TYCH DWA RAZY W 
LICZBIE. WERSJA DLA" 

1530 ? "ZAAWANSOWANYCH MOZĘ MIE 
C NAWET CZTERY TAKIE SAME CYFRY 

1540 ? " MOZĘ GRAC OD 1 DO 10 
GRACZY. " 

1550 ? " ":? " ":? " ":? "****# 
***** IPOWODZENIAH **********" 
1560 ? ": ? " ": ? " ":? " Je 

sli skończyłeś czytac, nacisnij 
dowolny klawisz." 
i 570 POKE 764,255 
1580 IF PEEK (764) =255 THEN 1580 
“90 POP : 60T0 1000 
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Jeżeli powyższe instrukcje ładowania będą umieszczone 
w programie jako pierwsze instrukcje wykonywalne, a zna- 
ki zapisane zostaną na taśmie bezpośrednio z programem, 
możliwe jest automatyczne ładowanie polskiego alfabetu. 

Co zrobić gdy w programie potrzebne są dwa lub więcej 
alfabetów (np. słowniki)? Można zwiększyć obszar UDG 
korzystając ze zmiennej systemowej o tej samej nazwie 
(adresy 23676 i 23676) lub wykorzystać części wspólne 
znaków. Jeżeli np. zdefiniowaliśmy znak „ą", to chcąc uzy- 
skać znak niemieckiego alfabetu „a", wystarczy zlikwido- 
wać ogonek u dołu znaku i dopisać kropki u góry. Częścią 
wspólną, którą można wykorzystać dla obu liter jest tu znak 
. a" Zamiana znaku ..ą" na .3" odbywa się dzięki 

POKE U5R "a" , B IN 00101000 

POKE USR "a " +7 , BIN 0 


POKE USR "a” ,40 

POKE USR M a”+7,0 


Przejście odwrotne od „a" do „ą" polegające na usunię- 
ciu kropek u góry znaku i dopisaniu ogonka u dołu wykonu- 
ją instrukcje 


£8kI 


USR "a" , BIN 0 

USR "i" +7 ; BIN 00000010 


POKE USR "a'’ 
POKE USR "a" +7 


,0 

,2 


Oczywiście obydwa znaki „ą" i „a" dostępne są w trybie 
graficznym na klawiszu „a", przy czym w danej chwili do- 
stępny jest tylko jeden z nich, Powyższy sposób „przeła- 
dowania" alfabetów jest bardzo szybki i prosty. Przełado- 
wanie całego alfabetu wymaga zaledwie kilku instrukcji 
POKE i może być zrealizowane przez podprogram. 

Kończąc pragnę zachęcić Czytelników do korzystania w 
swoich programach ze wszystkich liter polskiego alfabetu. 
Pomni nawoływania Mikołaja Reja 

„niechaj narodowie wżdy postronni znają 
iż Polacy nie gęsi, iż swój język mają" 
dbajmy o poprawną polszczyznę we własnych progra- 
mach, które wykonywane przez komputer — pisane są 
przecież — dla ludzi. 

Janusz MORBITZER 




CYKLOIOA 

Krąg toczy się po prostej. Związany z nim 
punkt leżący na okręgu pozostawia „ślad" zna- 
cząc swą drogę. Efektem tej „pracy" punktu bę- 
dzie krzywa okresowa o długości tuku równej dla 
jednego cyklu ośmiu promieniom okręgu. Wy- 
startujmy program. Linie 190... 240 wczytują 107 
bajtów tworzących trzy podprogramy w języku 
wewnętrznym Z80. Nie można bez nich marzyć 
o poprawnej animacji. 

Menu pozwala wybrać 9 wykresów cykloidy w 
trzech wariantach. „Pracujący” punkt może leżeć 
na okręgu (cykloida zwyczajna), na zewnątrz 
(cykloida wydłużona) lub wewnątrz niego (cy- 
kloida skrócona). W każdym wariancie możemy 
obejrzeć trzy charakterystyczne przebiegi poda- 
jąc liczbę pełnych obrotów okręgu. 

Ekran podzielony jest na trzy części identy- 
cznie, jak to zrobiono firmowo. W dolnej części 
przesuwany jest okrąg, aby go tam umieścić (za- 
hacza o linie edycyjne) trzeba go narysować w 
części środkowej (linia 420) i przerzucić w dół (li- 
nia 450). Operację wykonuje część programu 
maszynowego nazwana żartobliwie „desantem 
okręgu”. 

Od linii 460 rozpoczyna się główna pętla reali- 
zująca wykres. Położenie okręgu w dolnym ekra- 
nie jest zsynchronizowane z obliczonym położe- 
niem promienia wodzącego rysowanym na gór- 
nym ekranie (linie 480... 510). Teraz obie części 
ekranu są logicznie sumowane przed kod „nakła- 
danie ekranu" i wyświetlane w części środkowej 
dając efekt animacji. Okrąg przesuwa się (linie 
550... 610) i cały cykl powtarza się. Przemie- 
szczanie okręgu realizuje procedura „scroll pra- 
wy”. Proces zachodzi co jeden punkt w każdym 
przebiegu głównej pętli. 

Kreślenie krzywej można zatrzymać w każdym 
momencie dowolnym klawiszem i podobnym 
wznowić (stopklatka). 

Rezygnacja z opisów i wzorów jest świadoma 
— można je znaleźć w książkach. 

K.M. 


10 REM ** cykloida 86 

20 OVER Ol INVERBE O. FLASH Ol BRISHT 0 

30 ELEAR 59999 

40 REM grafiki 

50 LET c-16224 

60 FOR a-0 TO 23 

70 POKE USR "a M +a, PEEK (c+a) 

80 IF a-7 THEN LET e-16240 
90 IF a-15 THEN LET c-16320 
lOO NEXT a 

110 POKE USR "a"+3,24 
120 POKE USR "a”+8, 16 
130 POKE USR "a"+16 p 16 
140 LET c*-“ CYKLOIDA” 

150 LET d«-”zwyczajna" 


SPECTRUM 


160 LET ••-"wyd"+ CHR* 144+ "u"* CHR* 146 
ona" 

170 LET f*«"skr"+ CHR* 145+"cona" 

180 REM kod maszynowy 
190 LET a-60000 
200 READ r 

210 IF r< O THEN GOTO 250 
20 POKE a,r 
230 LET a-a+1 
240 GOTO 200 
245 REM menu 

250 BORDER 5« PAPER 5* INK Ol CL8 
260 PRINT 1 "+d*’ p " 2 

H +f* 

|270 IF PEEK 23560-49 THEN LET rl-Ot GOTC 
310 

280 IF PEEK 23560-50 THEN LET rl-5i GOTC 
310 

290 IF PEEK 23560-51 THEN LET rl— 5* GOI 
O 310 

300 GOTO 270 

310 INPUT AT 22 * O j AT 15, 4| "liczba cykli 
C1..3)"’i 

320 LET i-ABS (INT i) 

330 IF i< 1 OR i >3 THEN GOTO 310 

340 REM cykloida 

350 BORDER 1 

360 PAPER li INK li CLS 

370 FOR a-22784 TO 23039 

380 FOKĘ a, 14 

390 NEXT a 

400 POKE 23624,9« INPUT O 
410 LET r- 15 

420 CIRCLE INK 8 j PAPER 8*r,74,r 

430 PLOT r,123f DRAW 225,0: DRAW -5,3 

440 FLOT r, 123: DRAW 0,50i DRAW 3,-5 

450 RANDOMIZE USR 60067 

460 FOR a-l TO 225 STEP i 

470 IF LEN INKEY* THEN GOSUB 680 

480 LET alfa-a*PI/95*i 

490 LET x— (r+rl)t SIN alfa 

500 LET y— <r+rl)t COS alfa 

510 GOSUB 650 

520 RANDOMIZE USR 60079 

530 GOSUB 650 

540 PLOT PEEK 23677, PEEK 23678 

550 FOR b-1 TO i 

560 POKE 23602,0 

570 POKE 23603,80 

580 POKE 23604,64 

590 POKE 23605,32 

600 RANDOMIZE USR 6E4 

610 NEXT b 

620 NEXT a 


630 PRINT INK 9»AT 18,3|C*?" "j 

631 IF NOT rl THEN PRINT INK 9;d* 

632 IF r 1 >0 THEN PRINT INK 9?e* 
dokończenie na str. 8 
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633 IF r KO THEN PRINT INK 9;f* 

634 IF NOT LEN INKEY* THEN GOTO 634 

635 GOTO 350 

650 POKE 23677, r+ar POKE 23678,138 
660 DRAW OVER l|x,y 
670 RETURN 

680 IF LEN INKEY* THEN GOTO 680 
690 IF NOT LEN INKEY* THEN GOTO 690 
700 RETURN 

710 DATA 042,050,092,237,075,052,092,1 
, 203, 030,035, 005, 032, 250, 042, 050,092,2 
, 131 , 234,034, 050, 092, 237,075,052, 092, C 
, 200 , 237 , 067 , 052 , 092 , 024 , 228 ,124, 230 , C 
54 , 007 , 040 , 002 , 036 ,201,125, 230 , 224 , 1 
, 224 , 040 , 007 ,017, 224 , 006 ,167, 237 , 082 , 2 
720 DATA 1 24 , 254 , 087 , 200 ,017, 032 , 000 , C 
, 201 , 033, 000, 072,017, 000, 080, 001 , 000, C 
37,176,201, 033, 000, 064,017,000, 080, C 
,000,008,221,033,000,072,026, 182,221,1 
,000,035,019,221,035,011, 120, 177,032,2 
,201 

730 DATA -1 


5 Sscroll prawy 


1® 

LD 

HL» (23602) 

20 

LD 

BC » (23604) 

3® LI 

AND 

A 

40 L2 

RR 

(HL) 

5® 

INC 

HL 

60 

DEC 

B 

70 

JR 

NZ i L2 

80 - 

LD 

HL , (23602) 

90 

CALL 

CH 

100 

LD 

(23602) »HL 

110 

LD 

BC x (23604) 

120 

DEC 

C 

13® 

RET 

Z 

140 

LD 

(23604) ,BC 

15® 

JR 

LI 


160 

CH 

LD 

A,H 

170 


AND 

407 

180 


CP 

407 

190 


JR 

Z.L3 

200 


INC 

H 

210 


RET 


220 

L3 

LD 

A > L 

230 


AND 

4E0 

240 


„CP 

4E0 

250 


JR 

ZrL4 

260 


LD 

DE, 01760 

270 


• AND 

A 

280 


SBC 

HL , DE 

290 


RET 


300 

L4 

LD 

A , H 

310 


CP 

457 

320 


RET 

Z 

330 


LD 

DE, 00032 

340 


ADD 

HL , DE 

350 


RET 


370 

» desant 

okręgu 


390 


LD 

HL, 18432 

400 


LD 

DE, 20480 

410 


LD 

BC , 2048 

420 


LDIR 


430 


RET 


440 

^nakładanie ekranu 

460 


LD 

HL, 16384 

470 


LD 

DE, 20480 

4i80 


LD 

BC , 2048 

490 


LD 

IX, 18432 

500 

LOOF' 

LD 

A, (DE) 

510 


OR 

(HL) 

520 


LD 

(IX) , A 

530 


INC 

HL 

540 


INC 

DE 

550 


INC 

IX 

560 


DEC 

BC 

570 


LD 

A t B 

580 


OR 

c 

590 


JR 

NZ ? L.OOP 

600 


RET 



10 CIS 

20 LET 2*0 

30 bI*RND»5*l 

40 cI*RNDI5*l 

50 0RI6IN 320,200 

60 FOR a=0 TO 100 STEP PI/20 

70 xl=140tC0S(a> f 

80 yI=1401SIN(a) 

90 HOVE x2,y2 

100 DRAW 200ISIN(a/bl),200ICOS(a/cI) 

110 LET 2=2*1 

120 IF 2=600 60T0 140 

130 NEXT a 

140 PRINT 'koniec' 


<u 


2 

O 


co 
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Elementy systemów mikrokomputerowych 3) 

Logika i arytmetyka 
w technice cyfrowej 


Poprzedni odcinek tego cyklu zapoznał Was z architekturą mi- 
krokomputera i mikroprocesora. Czas przejść do podstaw mate- 
matycznych, terminologii i pojęć, których znajomość jest nie- 
zbędna każdemu, kto pragnie poznać działanie elementów mikro- 
komputera. 


Obróbkę informacji dwójkowych 

można prowadzić za pomocą układów 
cyfrowych zwanych bramkami logi- 
cznymi. W tabeli 1 przedstawiono 
osiem bramek wykonujących operacje 
logiczne. Operacje negacji, sumy logi- 
cznej i iloczynu logicznego, trzy pod- 
stawowe operacje logiczne, łatwo mo- 
żna przeprowadzić za pomocą układów 
tranzystorowych. Do budowy układów 
scalonych, realizujących powyższe 
operacje, układów popularnie zwanych 
bramkami, wykorzystano właśnie tran- 
zystory. 

Operacjami logicznymi i zmiennymi 
dwójkowymi zajmuje się algebra Boo- 


Podstawowym elementem, używa- 
nym do budowy mikroprocesorów i po- 
zostałych elementów systemów mikro- 
komputerowych jest tranzystor, elek- 
troniczny element półprzewodnikowy o 
trzech wyprowadzeniach: bazie, emita- 
rze i kolektorze Tranzystor, przedsta- 
wiony na rys. 3.. może stabilnie i pew- 
nie pracować w dwóch stanach. 



Rys 3. Tranzystor jako element dwu- 
stanowy 

1 0 Gdy na wejście tranzystora, podane 
zostanie napięcie U, bliskie 0 V. wów- 
czas prąd wyjściowy jest prawie równy 
zeru i napięcie U 2 na wyjściu tranzy- 
stora bliskie jest napięciu U c . 
Tranzystor nie przewodzi, jest rozwarty 
2° Gdy na wejście podane zostanie 
napięcie bliskie U c . wówczas prąd 
wyjściowy jest bardzo duży, a napięcie 
U;, bliskie jest 0 V 
Tranzystor jest nasycony, zwarty 

Dwa powyższe stany, oznaczone 
umownie 1 (jedynka logiczna) i 0 (ze- 
ro logiczne) oraz to, ze ludzie mają 
tendencję do używania zwrotów praw- 
da (1 ) lub fałsz (0) powoduje, iż natu- 
ralnym systemem liczenia w kompute- 
rach jest dwójkowy system liczbowy. 

Cala informacja dla mikroprocesora 
oraz innych elementów systemu mi- 
krokomputerowego przedstawiona jest 
jako informacja dwójkowa, za pomocą 
wielkości fizycznych, zwanych sygna- 
łami dwuwartościowymi (dwusta- 
nowymi). W danym systemie można 



używać sygnału 3 V (z tolerancją, 1 
V) jako logicznej jedynki (1) i sygnału 
0.5 V (z tolerancją, 0,5 V) jako logi- 
cznego zera (0). 

Systemy elektroniczne, zbudowane z 
elementów (układów) dwustanowych, 
nazywane są systemami cyfrowymi. 

Układy dwustanowe, inaczej cyfrowe, 
na swoich wejściach akceptują sygna- 
ły dwuwartościowe o określonej tole- 
rancji. Na wyjściach tych układów po- 
jawiają się również sygnały dwuwar- 
tościowe. 


TABELA 1 BRAMKI LOGICZNE 

le'a. Ze znanych wam już symboli ope- 
racji logicznych oraz ze zmiennych 
dwójkowych, nawiasów i znaku rów- 
ności można utworzyć wyrażenie alge- 
braiczne. funkcję boolowską. która dla 
danej wartości zmiennych przyjmuje 
wartość 1 lub 0. 

Daną funkcję boolowską, inaczei 
funkcję logiczną, można przedstawić 
za pomocą układu złożonego z bramek 
logicznych dokończenie na str. 10 
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dokończenie ze str. 9 

Dobra znajomość poniżej przedsta- 
wionych podstawowych zależności al- 
gebry Boolea. pozwala na otrzymywa- 
nie prostszyęh funkcji logicznych, rea- 
lizowanych za pomocą mniejszej ilości 
bramek. 

TABLICA 1 

PODSTAWOWE ZALEŻNOŚCI 
ALGEBRY BOOLE A 

(1) a -0 = 0 

(2) a • 1 = a 

(3) a • a = a 

(4) a • a = 0 V 

(5) a • b = b • a 

(6) (a • b) • c = a • (b • c) 

(7) a • (b + c) = a • b + a • c 

(8) a + 0 = a 

(9) a + 1 = 1 

(10) a + a = a 

(11) a + a = 1 

(12) a + b = b + a 

(13) a + (b + c) = (a + b) + c 

(14) a + b • c = (a + b) • (a + c) 

(15) a = a 

(16) a • b = a + b 

(17) a 4- b = a • b 

V a — ,.a'' zanegowane 

Dwie ostatnie zależności, oznaczone 
(16. (17), nazywane prawami de Mor- 
gana, są bardzo ważne przy działa- 
niach na funkcjach NAND i NOR. Z 
praw tych wynika, że dowolną funkcję 
boolowską można zrealizować za po- 
mocą bramek jednego z dwóch typów: 
NAND lub NOR Nie jest to bez zna- 
czenia. w związku m. in. z tym, podsta- 
wowymi, powszechnie wykorzystywa- 
nymi bramkami są NAND i NOR. umie- 
szczone (po cztery danego typu) w 
układach 7400 i 7402. 

Jedną z metod upraszczania postaci 
funkcji logicznych jest metoda tablic 
Karnaugha, znana też pod nazwą me- 
tody wykresów Veitcha. Metoda ta po- 
lega na minimalizacji funkcji przez łą- 
czenie w grupy jedynek i jest pomocna 
przy przechodzęniu od opisu słownego 
problemu do postaci funkcji boolow- 
skiej. 

Połączenie bramek logicznych two- 
rzy układ kombinacyjny, w którym 
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sygnały dwuwartościowe na wyjściach 
są jednoznacznie określonymi funk- 
cjami kombinacji zer i jedynek, poda- 
nych w danej chwili na wejścia. Wśród 
przykładów układów kombinacyjnych 
można podać półsumator i sumator 
pełny. 

Półsumator. przedstawiony na rys. 4, 



Rys. 4. Układ półsumatora 


umożliwia arytmetyczne dodawanie 
dwóch bitów. Natomiast sumator pełny, 
przedstawiony na rys. 5, umożliwia 



Rys. 5. Układ sumatora pełnego 

arytmetyczne dodawanie trzech bitów 
wejściowych. Na wejście C podawane 
jest przeniesienie z poprzedniej, mniej 
znaczącej pozycji. 

Układ, w którym, oprócz bramek lo- 
gicznych. znajdują się układy pamięta- 
jące, zwane przerzutnikami jest ukła- 
dem sekwencyjnym. W takim układzie 
sygnały dwuwartościowe na wyjściach 
są kombinacją zer i jedynek na wejś- 
ciach. jak również zależą od stanów 
przerzutników, czyli od ostatnio zapa- 
miętanych wartości sygnałów 

Układy sekwencyjne można podzie- 
lić na synchroniczne, w których mo- 
menty działania poszczególnych ele- 
mentów elektronicznych taktowane są 
Impulsami zegarowymi i asynchro- 
niczne, bez wyróżnionych impulsów 
zegarowych. 

Do przechowywania informacji 
dwójkowych wykorzystywane są cyf- 
rowe układy scalone zwane rejestra- 
mi. Rejestr zawiera w sobie przerzut- 
niki — komórki logiczne do przecho- 
wywania jednego bitu informacji oraz 
może posiadać bramki kombinacyjne, 
ułatwiające przetwarzanie informacji. 

Przerzutniki można podzielić na 
asynchroniczne R-S oraz synchroni- 
czne, wykorzystywane w systemach 


komputerowych. Przerzutniki synchro- 
niczne można podzielić na: 

— wyzwalane zboczem, zmienia- 
jące swój stan w chwili zmiany wartoś- 
ci sygnału zegarowego zł na 0 lub z 0 
na 1 ; 

— wyzwalane poziomem inaczej 
zatrzaskowe typu „latch", przenoszące 
zmiany z wejścia na wyjście przy je- 
dynce 'ogicznej na wejściu zegarowym; 

— dwuzboczowe typu Master- 

-Slave, składające się z przerzutnika 
głównego i przerzutnika pomocnicze- 
go 

Symbol graficzny przerzutnika syn- 
chronicznego przedstawia rys. 6 


wejici* prz*łqczajqc* u»tawiajqc« 


wejście informacyjne 



«yjłc» . 

we/ście zeęaroew 




wejście informacyjne 


Q 






wejście przełqc*ajqce zer\jjqc# 


Rys. 6. Przerzulnik synchroniczny 

Upraszczając można stwierdzić, iz w 
zależności od posiadanych wejść prze- 
rzutniki można sklasyfikować jako: 

przerzutniki JK, przerzutniki D, 
przerzutniki T. 

Rejestry można sklasyfikować w na- 
stępujący sposób 

— szeregowe, do szeregowego (ko- 
lejnego) wprowadzania i wyprowadzania 
informacji, bit po bicie, 

— równoległe, do równoległego 
(jednoczesnego) wprowadzania i wy- 
prowadzania informacji; 

— szeregowo-równoległe, do sze- 
regowego wprowadzenia i równoległe- 
go wyprowadzenia informacji; 

— równoległo-szeregowe, do rów- 
noległego wprowadzenia i szeregowe- 
go wyprowadzenia informacji 

Rejestry szeregowe mogą być rejes- 
trami jednokierunkowymi, przesuwa- 
jącymi informację w lewo lub w prawo 
albo rejestrami dwukierunkowymi, 
przesuwającymi informację w lewo i w 
prawo. Rejestry równoległe wykorzy- 
stywane są do budowania pamięci bu- 
forowych, przechowujących informa- 
cje podawane w sposób równoległy. 

Rejestr zmieniający stan w określo- 
nej kolejności nazywany jest liczni- 
kiem. Licznik służy do zliczenia i za- 
pamiętania liczby impulsów podanych 
na jego wejścia zliczające. Licznik mo- 
żna podzielić m in. na jednokierunko- 
we i dwukierunkowe (rewersyjne) 


oraz na asynchroniczne, synchroni- 
czne, asynchroniczno-synchroni- 
czne. Liczniki zbudowane są. podobnie 
jak rejestry, z przerzutników i bramek 
kombinacyjnych. 

Innymi układami, które spotkacie w 
systemie cyfrowym są układy do 
przetwarzania kodów. Układy służące 
do zmiany kodu. w czasie komunikacji 
człowiek ~ system, nazywane są 
przetwornikami (konwerterami) ko- 
dów. Do zamiany informacji dwójko- 
wej na kod pierścieniowy „1 z n" służą 
dekodery, do odwrotnej zamiany zaś 
enkodery. Pozostałe przetworniki na- 
zywa się transkoderami. 

Do realizacji transmisji (przesyła- 
nia) informacji wykorzystywane są 
multipleksery i demultipleksery czyli 
przetworniki formatu słów z równoleg- 
łego na szeregowy oraz do transmisji 
linią przesyłową z szeregowego na 
równoległy. 

W części sterującej każdego syste- 
mu cyfrowego spotykane są układy 
uzależnień czasowych. Są wśród 
nich przerzutniki monostabłlne, ge- 
neratory fali prostokątnej, rozdzie- 
lacze, selektory impulsów itp 

Do wykonywania działań arytmety- 
cznych w systemach cyfrowych wy- 
korzystywane są sumatory; subtrak- 
tory (do odejmowania); sumatory uzu- 
pełnione o układy przesuwające, umoż- 
liwiające wykonywanie mnożenia i 
dzielenia; komparatory, porównujące 
wielkość kilku liczb, multiplikatory, do 
'realizacji operacji mnożenia. Jednostki 
arytmetyczno-logiczne ALU, wyko- 
nujące szereg operacji arytmety- 
cznych; układy kontroli parzystości 
itp 

Kolejne grupy układów systemów 
cyfrowych to układy sprzęgające 

sterujące m.ini wskaźnikami cyfrowy- 
mi, współpracujące z klawiaturą oraz 

układy transmisji do przekazywania 
informacji na duże odległości. 

Tak w skrócie wygląda charaktery- 
styka układów systemów cyfrowych. 

Wróćmy do arytmetyki systemów 
cyfrowych. System liczbowy o pod- 
stawie R jest systemem, w którym każ- 
da z r cyfr oznaczona jest różnym 
symbolem W dziesiętnym systemie 
liczbowym systemie o podstawie 
r= 10. używa się dziesięciu symboli; 
0. 1. 2, 3, 4. 5. 6, 7, 8, 9. W dwójko- 
wym systemie liczbowym r = 2 i 
używane są dwa symbole; 0.1. W 
ósemkowym (oktalnym) systemie 
liczbowym r = 8 i używanych jest 
osiem symboli: 0. 1. 2. 3, 4. 5. 6. 7. 
W szesnastkowym (heksadecymal- 
nym) systemie liczbowym r = 16 i 
używa się szesnastu symboli; 0.1 . 2. 3, 
4. 5. 6. 7,8. 9.A.B. C. D, E. F. 

W systemach cyfrowych spotkacie 
się właśnie z tymi systemami liczbo- 
wymi. Zapiszmy przykładowo w każ- 


dym z tych systemów liczbę 1024. 

Liczba w systemie dziesiętnym zapi- 
sywana jest następująco; 

(18) 

L,o = Sa. • 1 0 1 = a n -. • tCT' + 
+ a „-2 • 10 "'*+.,.+ a 3 • 10 3 + 
+ a 2 • 10 z + a. • 10' + So • 10 p + 
+ a-, • 10"' +...+ a-m •10'"’ 

1024 to: 

1 ■ 10 s + 0- 10* + 2-10' + 4-10° 

Liczba w systemie dwójkowym zapisy- 
wana jest następująco; 

(19) 

L 2 = ai • 2‘ — a n -i ■ 2 n_1 4- 
-ł-‘ a „-2 • 2"' 2 4- ...+ a 3 • 2 3 4- 
4- a 2 • 2 2 4- a, • 2 1 4- ao • 2° 4- 
4- a-i • 2" 1 +...+ a-m • 2" m 

1024i O to 

1 • 2 10 4- 0 • 2* 4- 0 -2 8 + ...4- 0-2 1 + 
4- 0-2° 

1024,o = 100 0000 0000 2 

Liczba w systemie ósemkowym 
zapisywana jest następująco: 

(20) 

L a = jEa, • 8' = a„-, ■ 8 n_1 + 
4- a n -2 • 8 n ~ 2 +...+ a 3 • 8 3 4- 
4- a 2 • 8 2 4- a, ■ 8 1 -ł- ao • 8° 4- 
+ a-, • 8"’ 4-...-F a-m • 8~ m 

1024,o to 

2 • 8 3 4- 0 • 8 2 + 0 • 8’ 4- 0-8° 

1024,o = 2000a 

Liczba w systemie szesnastkowym za- 
pisywana jest następująco: 

(21) 

L,e = la, • 16' = a„-i • 16"' 1 + 
4- a„- 2 • 16 n ' 2 +...+ a 3 • 1 6 3 4- 
+ a 2 • 16 2 4- a, • 1 6 1 4- ao ■ 1 6° 4- 
4- a-, • 16" 1 4-...-F a-m - 16' m 

1024,o to: 

4 • 16 2 4- 0- 16 1 4- 0- 16° 

1024,o = 400,6 


zestawiając: 

1024,0 = 100 0000 0000 2 = 2000 8 = 
= 400,6 

Przykłady liczb całkowitych, zapisa- 
nych w różnych systemach przedsta- 
wiono w tablicy 2 


Tablica 2 

LICZBY W RÓŻNYCH SYSTEMACH 
LICZBOWYCH 


System System 

dziesiętny szesnastkowy 

0 0 

1 1 

2 2 

3 3 

4 4 

5 5 

6 6 

7 7 

8 8 

9 9 


10 

4 

11 


12 

C 

13 

D 

14 

E 

15 

F 

16 

10 

20 

14 

40 

28 

50 

32 

100 

64 

System 

System 

ósemkowy 

dwójkowy 

0 

0 

2 

10 

3 

11 

4 

100 

5 

101 

6 

110 

7 

111 

10 

1000 

11 

1001 

12 

1010 

13 

1011 

14 

1100 

15 

1101 

16 

1110 

17 

1111 

20 

10000 

24 

10100 

48 

101000 

62 

110010 

144 

1100100 

Od arytmetyki rozpoczniemy nasze 
następne spotkanie. 

Jacek WOJTALA 
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KOMPUTERY 
W LOTNICTWIE 


Komputery zadomowiły się na 
dobre we współczesnym lot- 
nictwie, przejmując wiele różno- 
rodnych zadań obciążających 
do tej pory człowieka bądź wy- 
konywanych przez rozbudowa- 
ne i zawodne urządzenia elek- 
tromechaniczne. Pełnią one wie- 
le funkcji usługowych w 
urządzeniach naziemnych, rewo- 
lucjonizując szkolenie pilotów i 
obsług technicznych dzięki rea- 
listycznej symulacji warunków 
lotu i złożonych systemów samo- 
lotu, usprawniając naziemną 
obsługę techniczną i diagnosty- 
kę, pracując w systemach 
ochrony lotnisk, pomagając w 
kontroli ruchu powietrznego czy 
też w rezerwacji miejsc na rejsy 
pasażerskie. 

W dalszej części artykułu zajmiemy 
się jednak komputerami znajdującymi 
się na pokładzie samolotów. Mają one 
wiele zadań, z których najważniejsze, 
to 

— obliczenia nawigacyjne. 

— pilotowanie samolotu, 

— kontrola funkcjonowania elemen- 
tów wyposażenia lotniczego. 

— sterowanie pracą silników, 

— sterowanie systemów dystrybucji 
paliwa, 

— przetwarzanie informacji pilota- 
zowo-mformacyjnej na elektro- 
niczne układy obrazowania 
(wskaźniki). 

— obliczenia do kierowania ogniem 
i bombardowania (w samolo- 
tach wojskowych). 

Zadania te komputery pokładowe 
wykonywać muszą niejednokrotnie w 
bardzo trudnych warunkach, wymaga 
się więc od nich wyjątkowe) odporno- 
ści na wpływy otaczającego środowi- 
ska. jak np. możliwości pracy w tempe- 
raturach od — 55°C do -ł-80°C. odpor- 
ności na zmiany ciśnienia, tj. 
poprawnej pracy m vno na po- 
wierzchni Ziemi, jak tez na wysokoś- 
ciach rzędu 15—25 km. odporności na 
przeciążenia w granicach 7—9 (prze- 
ciążenie — stosunek przyspieszeń wy- 
stępujących w locie po torze krzywoli- 
niowym do przyspieszenia ziemskie- 
go). wibracje w zakresie częstotliwości 
10—1000 Hz. kurz. aerozole soli itp a 
wszystko to w wilgotności względnej aż 
do 95%. Pomimo to komputery pokła- 
dowe pracują bezawaryjnie przez kilka 
tysięcy godzin ku zadowoleniu użyt- 
kowników 


Różnorodność zadań doprowadziła 
do pewnej specjalizacji i w chwili 
obecnej wyróżnić można komputery 
nawigacyjne, komputery danych po- 
wietrznych, komputery-przeliczniki kie- 
rowania bronią, komputery zarządzają- 
ce urządzeniami awionicznymi i inne 
wąskospecjalizowane maszyny znajdu- 
jące się głównie na pokładzie samolo- 
tów bojowych, współpracujące z rada- 
rem. systemami kontroli podwieszane- 
go uzbrojenia. radiokomunikacji, 
dystrybucji paliwa itp... Stało się tak 
jednak nie od razu... 

Pierwsze próby wprowadzenia kom- 
puterów w lotnictwie sięgają lat pięć- 
dziesiątych i dotyczą głównie maszyn 
analogowych. Wyjątkiem jest tutaj ma- 
szyna cyfrowa opracowana we wczes- 
nych latach pięćdziesiątych, służąca 
jako przelicznik do kierowania ogniem 
rakiet odpalanych z myśliwca F 102. 
Była to konstrukcja oparta na lampach 
miniaturowych, funkcjonująca z szyb- 
kością setek operacji na sekundę. Jej 
program operacyjny złożony z kilkuset 
słów, zapisany był obwodowo na ma- 
łym bębnie magnetycznym, w języku 
maszynowym. 



Fot. 4 Magnetyczna pamięć pęche- 
rzykowa komputera systemu 
kierowania lotem 

Burzliwy rozwój techniki komputero- 
wej w latach sześćdziesiątych sprawił, 
że jednemu centralnemu komputerowi 
na pokładzie samolotu usiłowano pod- 
porządkować całość rozbudowanych 
urządzeń. pokładowych, niejako wbrew 
usługowym funkcjom komputera, który 
jest tylko instrumentem pomocniczym, 
a nie celem samym w sobie. Obecnie 
komputery cyfrowe (procesory) roz- 
mieszczone są w sposób zdecentrali- 
zowany. zwykle w pobliżu czujników 
bądź wskaźników, z którymi współpra- 



Fot. 1 Komputery pomagają w Kontroli 
ruchu powietrznego 
cują. rozproszone w różnych miejs- 
cach samolotu, komunikując się wza- 
jemnie poprzez magistrale danych in- 
tegrujące wszystkie urządzenia 
awioniczne w jeden zwarty system 
Dzięki nim możliwości pilotażowe roz- 
szerzone zostały poza granice dotych- 
czas niewyobrażalne. Przykładami mo- 
gą być tutaj systemy ślepego lądowa- 
nia, pilot automatyczny, systemy 
nawigacji według profilu terenu czy też 
elektroniczne systemy sterowania 
(ang „fly by wire") 

Właśnie opracowanie elektroniczne- 
go systemu sterowania samolotem by- 
ło przełomem w wykorzystywaniu 
komputerów pokładowych. We wcześ- 
niejszych hydro-mechamcznych sy- 
stemach sterowania projektanci zdam 
byli na łaskę i niełaskę charakterystyk 
aerodynamicznych samolotu. System 
„fly by wire" pozwala na nowatorskie 
rozwiązywanie zagadnień sterowania 
samolotem poprzez wprowadzanie sił 
sterujących dokładnie tam, gdzie trze- 
ba i kiedy trzeba Efektem jest samolot, 
który zachowuje sią tak. jakby jego 
konfiguracja była idealnie dopasowana 
do warunków zastanych w danym 
momencie, zwany krótko CCV (ang. 
„control configured vehicle '). tj samo 
lot o konfigurowanej stateczności. Zło 
żonę problemy aerodynamiki lotu roz 
wiązywane są przez komputery za po 
mocą metod optymalizacji Zaletami 
elektronicznego systemu sterowania 
są: 

— duża zwrotność samolotu. 

— mniejsze rozmiary powierzchni 
sterowych, 

— .niedopuszczanie do przecią 
gnięcia samolotu poprzez umie 
szczenię ograniczników w pęt- 
lach sterowania 

Istota systemu „fly by wire" polega 
na usunięciu tradycyjnych mechani 
cznych połączeń pomiędzy pilotem a 
powierzchniami sterowymi i zastąpie- 
niu ich sygnałem elektrycznym analo- 
gowym bądź cyfrowym, który na swej 
drodze do urządzeń wykonawczych 
przetwarzany jest przez specjalizowa- 
ne komputery pokładowe sprzężone z 
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różnorodnymi czujnikami informujący- 
mi o parametrach lotu, Ponad połowa 
oprogramowania systemu przezna- 
czona jest do kontroli parametrów lotu i 
utrzymania odpowiednich wartości 
granicznych, tj. prędkości, współczyn- 
ników obciążenia itp 
W celu zwiększenia niezawodności 
stosuje się potrójnie lub poczwórnie re- 
zerwowane (rezerwowanie — stoso- 
wanie dodatkowych (rezerwowych) sy- 
stemów lub elementów strukturalnych) 
systemy sterowania zapewniające 
zmniejszenie ryzyka przypadku utraty 
samolotu z powodu całkowitego usz- 
kodzenia układu sterowania do 1 na 10 
milionów tj. 10- 7 milionów. Wyliczanie 
samolotów wyposażonych w elektroni- 
czny system sterowania zajęłoby dużo 
miejsca, wspomnę więc tylko, że samo- 
lot pasażerski „Concorde" posiada po- 
czwórnie rezerwowany analogowy sy- 
stem sterowania, samolot wielozada- 
niowy „Tornado" potrójnie rezerwowa- 
ny system analogowy, a samolot 
myśliwski F-18 poczwórnie rezerwo- 
wany cyfrowy. Prom kosmiczny „Space 
Shuttle” zaopatrzony jest również w 
poczwórnie rezerwowany cyfrowy sy- 
stem sterowania. 



Fot 3 Moduł wprowadzania i zobrazo- 
wania informacji komputera sy- 
stemu kierowania lotem 
Wprowadzenie obwodów o dużej i 
bardzo dużej skali integracji doprowa- 
dziło do rewolucji w dziedzinie wyko- 
rzystywania systemów sterowania i in- 
formowania na pokładzie samolotu. 
Komputery (procesory) pozwoliły na 
realizację techniczną wielu nowych 
urządzeń i zmiany jakościowe urzą- 
dzeń dotychczas istniejących, a mia- 
nowicie: wskaźników refleksyjnych 

(obraz wyświetlany na przedniej szybie 
kabiny), wielofunkcyjnych wskaźników 


barwnych, wielofunkcyjnych radarów 
dopplerowskich, obserwacyjnych urzą- 
dzeń termalnych (termowizyjnych), la- 
serowych dalmierzy, oświetlaczy i ter- 
molokatorów, sterowanych mikropro- 
cesorowo urządzeń walki radioelek- 
tronicznej. systemów nawigacji według 
profilu terenu i wspomnianych już elek- 
tronicznych układów sterowania samo- 
lotem. Te nowe rozwiązania zwiększyły 
znacznie bezpieczeństwo latania po- 
przez dokładne i szybkie informowanie 
pilota, poprawienie manewrowości i 
umożliwienie lotów w praktycznie każ- 
dych warunkach atmosferycznych. W 
samolotach wojskowych poprawiły 
istotnie bojową efektywność poprzez 
zwiększenie celności i skuteczności 
ognia oraz wprowadzenie skuteczniej- 
szych urządzeń walki elektronicznej. 
Ten jakościowy skok technologiczny 
stał się możliwy dzięki przejęciu przez 
komputery co najmniej czterech zadań 
niemożliwych dotychczas do wykona- 
nia przez urządzenia. Należą do nich: 

— łączenie w sposób komplemen- 
tarny wskazań wielu czujników 
pokładowych pozwalających na 
uzyskanie jakościowo wyższych 
parametrów (wskazań), jak ma to 
miejsce w przypadku kompute- 
rów nawigacyjnych przetwarza- 
jących dane z układu nawigacji 
bezwładnościowej, radaru dop- 
plerowskiego, radiokompasu, 
itp. . 

— zastąpienie złożonych urządzeń 
elektromechanicznych, jak ma to 
miejsce w systemach nawigacji 
bezwładnościowej, radarach do- 
pplerowskich. systemach stabili- 
zacji częstotliwości prądów i na- 
pięć zasilających, przelicznikach 
kierowania ogniem itp..., 

— przetwarzanie danych z czujni- 
ków jak np. procesory radarowe, 
procesory dany.ch powietrznych, 
procesory obrazowe wskaźników 
barwnych na lampach kinesko- 
powych, itp 

— wykorzystanie nowych zjawisk fi- 
zycznych w konstrukcji urządzeń 
pokładowych, dotychczas nie- 
możliwych do realizacji, jak np 
żyroskop laserowy w systemie 
nawigacji bezwładnościowej. 

Jednym z ciekawszych zastosowań 
komputerów w lotnictwie komunikacyj- 
nym jest komputerowy system kiero- 
wania lotem. Integruje on funkcje sy- 
stemów nawigacji, automatycznego 
sterowania silnikami i autopilota. Umoż- 
liwia on bezpieczne prowadzenie sa- 
molotu według zadanej trasy przelotu, 
oblicza optymalną prędkość lotu i wy- 
sokość, zużycie paliwa i czasy przylotu 
do wyznaczonych punktów trasy i lot- 
nisk. Dokładny opis techniczny syste- 
mu jest trudny i niezrozumiały dla śred- 
nio przygotowanego czytelnika. Jego 
struktura oparta jest na kilku proceso- 
rach, co pozwala uzyskać większe 


szybkości działania niż w przypadku 
jednego procesora centralnego Są to 
dostępne komercyjnie procesory 16- 
-bitowe typu Intel 8086, 8087 i 8088 
Pamięć swobodnego dostępu RAM 
może być trojakiego rodzaju: magnety- 
czna rdzeniowa, magnetyczna na dy-^ 
skach lub magnetyczna pęcherzyko- 
wa Ta ostatnia stosowana jest w naj- 
nowocześniejszych rozwiązaniach ze 
względu na dużą gęstość upakowania 
danych i występowanie części rucho- 
mych, co zwiększa jej niezawodność. 
Objętość programów komputera sy- 
stemu kierowania lotem zawiera się w 
granicach 256 do 512 kilosłów 
Najbardziej nasycone techniką mik- 
rokomputerową są samoloty bojowe. 
Pilot współczesnego samolotu wielo- 
zadaniowego musi wykryć cele. ziden- 
tyfikować. śledzić i zniszczyć, w czym 
pomocne mu są najnowocześniejsze 
systemy pokładowe i bronie. W toku 
wykonywania zadania komputery po- 
kładowe wykonują miliony obliczeń w 



Fot 2 „Skomputeryzowana kabina 
samolotu pasażerskiego naj- 
bliższej przyszłości A -320. Wi- 
doczne wielofunkcyjne wskaź- 
niki barwne na lampach kine- 
skopowych i w dolnej części 
f owa moduły wprowadzania i zob- 
razowania danych systemu kie- 
rowania lotem 

ułamku sekundy i podejmują różnorod- 
ne decyzje Pilot prowadząc samolot 
musi ciągle kontrolować przyrządy i in- 
terpretować ich wskazania aby wyko- 
nać zadanie bojowe W celu odciąże- 
nia pilota wszelkie decyzje i funkcje, 
które można zautomatyzować zostały 
włączone w zintegrowane podsystemy 
komputerowe. Oczywiście operacje 
wykonywane przez nie są pod kontrolą 
pilota i w każdej chwili może wykonać 
je sam lub zdając się na podsystemy 
komputerowe realizować swoje pod- 
stawowe zadania, tj. obmyślać taktykę 
walki i obserwować wskazania przy- 
rządów. Rozwiązania systemowe 
współczesnych samolotów bojowych 
pozwalają bowiem na w pełni zautoma- 
tyzowane prowadzenie samolotu, bez 
ingerencji w pracę poszczególnych 
układów. Samolot potrzebuje ręki pilota 
jedynie w momencie startu i lądowania, 
dokończenie na str. 14 
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dokończenie ze str. 13 

jak również podczas manewrów w rejo- 
nie działań bojowych (celu), Przelot 
według zadanej trasy do wybranych 
lotnisk i rejonów, jak również podejście 
do lądowania, do wysokości kilkudzie- 
sięciu metrów, odbywają się automa- 
tycznie. 

System komputerowy samolotu bo- 
jowego składa się z 1 —2 komputerów 
zadaniowych i pewnej liczby kompute- 
rów specjalizowanych współpracują- 
cych z czujnikami i wskaźnikami. Prak- 
tycznie wszystkie nowoczesne samolo- 
ty bojowe wyposażone są w tego typu 
systemy komputerowe lub przynaj- 
mniej w komputerowy system nawiga- 
cyjno-celowmczy Wszelkie istotne da- 
ne pomocne do wykonania zadania 
wprowadzane są do pamięci kompute- 
ra przed startem samolotu. Zwykle są 
to współrzędne geograficzne lotnisk, 
punktów pośrednich trasy przelotu, 
.współrzędne rejonów celów oraz cała 
gama dodatkowych warunków związa- 
nych ze specyfiką wykonywanego za- 
dania. Dane te wprowadzać można z 
kart perforowanych, taśm magnety- 
cznych bądź za pomocą klawiatury al- 
fanumerycznej 

Komputery pokładowe są znacznie 
zróżnicowane zależnie od typu samolo- 
tu' i zadań przed ,nim stawianych. 
Obecnie na pokładzie samolotów wy- 
stępują komputery z procesorami 8-. 
16-, 24- i 32-bitowymi adresującymi 
pamięci o pojemności od 32 do 512 ki- 
losłów i szybkości działania w grani- 
cach 200 tys. do 800 tys. operacji na 
sekundę. Standardem w przypadku 
samolotów wielozadaniowych, myśliw- 
sko-bombowych stal się już prakty- 
cznie komputer z procesorem 16-bito- 
wym. jakkolwiek starsze modele tych 
samolotów mają procesor 8-bitowy. 
Procesory 16-bitowe wchodzą również 
w skład większości opracowywanych 
obecnie systemów minikomputero- 
wych cywilnych samolotów pasażer- 
skich. Natomiast samoloty specjalnego 
przeznaczenia służące np. do wczes- 
nego ostrzegania powietrznego, wy- 
krywania i zwalczania okrętów pod- 
wodnych oraz bombowce strategiczne 
wyposażone są w komputery o stan- 
dardzie 32-bitowym, co wiąże się z 
ogromem informacji zbieranej z dużego 
obszaru przestrzeni i przetwarzanej z 
czasie rzeczywistym przez pokładowe 
systemy komputerowe. 

Podobnie zróżnicowana jest wiel- 
kość oprogramowania komputerów 
pokładowych. Program samolotu F-16 
składa się np. ze 128 kilosłów, z czego 
32 kilosłowa to program komputera - 
-przelicznika kierowania broniło szyb- 
kości działania 500 tys. operacji na se- 
kundę. Natomiast program samolotu 
F-18 złożony jest z 400 kilosłów i 
realizowany przez 13 komputerów po- 
kładowych. Większe samoloty, jak np. 
samolot wczesnego ostrzegania mary- 
narki wojennej USA, typu P-3. którego 
oprogramowanie ma objętość 700 ki- 
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losłów, z czego 1 28 kilosłów w magne- 
tycznej pamięci rdzeniowej, bądź sa- 
molot wczesnego ostrzegania E-3A 
„AWACS" mający oprogramowanie o 
objętości 51 2 kilosłów. to już niemal la- 
tające ośrodki obliczeniowe. Żeby 
utwierdzić się w tym przekonaniu dodam, 
że program wykorzystywany do celów 
diagnostyki i obsługi. technicznej tego 
typu samolotów ma objętość nieco po- 
nad 1 milion słów. Od 30% do 70% 
programów komputerów pokładowycłh 
napisanych jest w językach wyższego 
rzędu, takich jak: Coral. Jovial. Fortran 
lub Macro. Reszta zaś w językach ma- 
szynowych typu Assembler. 

W dziedzinie technologii kompute- 
rów pokładowych o standardzie 32-bi- 
towym dokonał się w ciągu ostatnich 
kilku lat ogromny postęp. Dowodem są 
dane porównawcze tego typu kompu- 
terów z lat 1980 i 1985, opublikowane 
przez amerykańską firmę IBM 


Do światowej czołówki w produkcji 
pokładowych komputerów lotniczych 
należą firmy amerykańskie, angielskie i 
francuskie. Komputery o wysokim 
standardzie produkowane są również 
w Szwecji. RFN. Izraelu i we Włoszech. 
W krajach socjalistycznych komputery 
lotnicze produkowane są głównie w 
ZSRR 

Dzień dzisiejszy przynosi bowiem 
ciągle nowe rozwiązania techniczne. 
Dopiero w chwili obecnej konstruktorzy 
systemów awionicznych zaczynają 
pojmować, jak różnorodne zadania 
spełniać mogą napływające w znacznej 
ilości komputery i w jaki sposób można 
je wykorzystać najbardziej efektywnie. 
Jednymi z nowszych pomysłów, w toku 
prób, są np. cyfrowe systemy sterowa- 
nia głosem i fotel wyrzucany, którego 
katapultowaniem steruje układ mikro- 
procesorowy. 


ZBIGNIEW KAROLCZYK 


1980 

komputer syst.„AWACS" 
typu CC-2 

1985 

komputer AN/UYK-41 

szybkość 
działania ’ 

2 min oper /s 

3 min oper./s 

pojemność 

pamięci 

2,5 Mbitów 

2 Mbity 

pobór mocy 

6500 W . 

100 W 

objętość 

1 036 dm 3 

17 dm 3 

komputer nawłg. -celow- 
niczy bomb. B-52 

komputer pojedynczo- 
-modułowy 

szybkość 400t /s 

działania 

500 tys. oper./s 

pojemność 

pamięci 

128 Kbitów 

1 28 Kbitów 

pobór mocy 

450 W 

5 W 

objętość 

25,2 dm 3 

0,56 dm 3 (pojed. 
karta) 



Trudne początki, ale... 


Rozmowa z Tomaszem Okólskim — 
szefem klubu komputerowego przy 
ZW ZSMP we Wrocławiu. 

• Trudno się dodzwonić do klu- 
bu, ale za to chyba drzwi do niego są 
otwarte. 

— Telefonować trzeba przez centra- 
lę ZW ZSMP i na pewno uzyska się po- 
łączenie Do niedawna rzeczywiście 
były trudności, gdyż organizowaliśmy 
zajęcia w terenie Nikogo tu nie było. 
Mamy już jednak swój kąt. Drzwi, jak 
widać są otwarte. 

• Ale dopiero się tutaj urządza- 
cie. Nie widać sprzętu. 

— To ostatnie przygotowania do ot- 
warcia klubu komputerowego z praw- 
dziwego zdarzenia Jak widać pomie- 
szczenie jest duże. Chcemy ruszyć os- 
tro w listopadzie. 

• Co tu kiedyś było? 

— Bufet Zarządu Wojewódzkiego 
ZSMP. 

• Nikt nie miał do was pretensji, że 
zabraliście lokal na klub? 

— Przydzielono go nam i nie słysza- 
łem żadnych głosów krytycznych pod 
naszym adresem. Wręcz przeciwnie. 
Inicjatywa z powołaniem klubu została 
przyjęta życzliwie. Działacze młodzie- 
żowi pomagają nam w wielu sprawach, 

• Od kiedy faktycznie istnieje klub? 

— Od czerwca 

• I odtąd nie ruszyliście jeszcze z 
miejsca? \ 

— Od tamtej pory działaliśmy, jak 
wspomniałem, w terenie, prowadząc 
akcję pod nazwą „latający komputer". 
Po prostu jeździliśmy po gminach wo- 
jewództwa wrocławskiego ze sprzętem, 
propagując problematykę mikrokom- 
puterową wśród tamtejszej młodzieży i 
władz terenowych. W czasie wakacji 
udało się nam zainteresować szerokie 
rzesze młodych ludzi tą dziedziną wie- 
dzy. zachęcić do powoływania klubów. 

• I udało się? 

— Owszem. Zainteresowanie było 
bardzo duże. W gminach Sobótka i Ką- 
ty Wrocławskie już zakupiono sprzęt i 
powstały kluby. Ponadto uczestniczy- 
liśmy w obozie młodzieżowym. Sprzęt 
otrzymaliśmy na ten czas z zakładów 
ELWRO. Również z tego zakładu odde- 
legowano specjalistę programowania, 
który prowadził zajęcia na wysokim po- 
ziomie metodycznym. Uczył progra- 
mowania, obchodzenia się ze sprzę- 
tem. przekazywał wiele fachowych in- 
formacji. Cenimy sobie taką pomoc. 
Zresztą we Wrocławiu mamy wielu 
zwolenników. Utrzymujemy też ścisły 
kontakt z Elektronicznymi Zakładami 
Naukowymi. Najcenniejsze jest to. że 


będziemy mogli korzystać z fachowego 
wsparcia specjalistów wysokiej klasy. 
Może także i sprzętu. 

• A jaki macie własny sprzęt? 

— Taki chyba sam jak pozosfałe 
kluby wyposażone przez CB TMT. A 
więc trzy mikrokomputery UNIPOL- 
BRIT. Mamy też jeden SPECTRUM 
ufundowany przez ZW ZSMP. Ale 
obecnie jest uszkodzony i mamy kłopo- 
ty z naprawą 

• Nie jest to wiele, tym bardziej 
że zainteresowanie młodzieży wa- 
szym klubem jest duże. Czym więc 
się będziecie zajmować na począ- 
tek? 

— Przede wszystkim wymianą do- 
świadczeń, ułatwieniem dostępu do li- 
teratury. oprogramowania dla wszyst- 
kich chętnych z całego województwa 
wrocławskiego. Zgłosiła się już duża 
grupa ze Strzelina. Mamy sygnały o za- 
interesowaniu grup młodzieży z wielu 
szkół średnich Są także zgłoszenia in- 
dywidualne. Każdy może do nas 
przyjść. Jak to się mówi: prosto z ulicy. 

• Czy ci, którzy przyszli, są za- 
dowoleni? 

— Różnie z tym bywa. Niektórzy od- 
chodzą dość szybko, gdy dowiadują 
się, że nie prowadzimy gier i innych 
atrakcji. Po prostu traktujemy klub 
komputerowy nie jako salon gier. lecz 


placówkę kształcącą młodych ludzi. 
Dlatego zostają ci. którzy traktują klub 
jako źródło zdobywania nowych wia- 
domości. poznawania tajników maszy- 
ny. programowania. Z nimi też wiążemy 
największe nadzieje. 

• Sądzę, że na początek macie 
już zarysowany jakiś program dzia- 
łania lub tematy, którymi zajmiecie 
się szczegółowo. 

— Jeszcze, nie. Najpierw chcemy 
ludzi, a potem niech wszyscy ustalą 
czym powinniśmy się zajmować. For- 
muła jest otwarta. Na owoce naszej 
działalności będzie trzeba trochę po- 
czekać. 

• Co z nazwą klubu? 

— Będzie również zależała od jego 
członków. 

• Jak zostałeś szefem? 

— Studiuję w Akademii Ekonomi- 
cznej i tam należę do koła naukowego 
informatyki. Jest to zresztą moja życio- 
wa pasja. Właściwie przypadkowo trafi; 
łem do tego klubu. Zaproponowano mi 
tę pracę, a wiadomo, że student nie 
pogardzi żadnym groszem Ponadto 
będzie dla mnie dużą satysfakcją na- 
uczanie innych obcowania z kompute- 
rem. 

• Czego oczekujesz od „IKS-a"? 

— Programy, które drukujecie, mnie 
osobiście już niewiele dają, choć są 
przydatne innym. Natomiast oczekuję 
na jeszcze więcej świeżych informacji 
o sprzęcie, na prezentację oprogra- 
mowania. 

• Mam nadzieję, że programy, 
które powstaną w waszym klubie 
trafią na łamy „IKS-a”. 

— Chętnie byśmy je tam widzieli. I 
skorzystamy z oferty. 

• Życzę więc udanego startu. 

rozmawiał: MAREK SIENIAWSKI 


10 OLS 

30 0RI6IN 250,200 
40 FOR x»l TO 13 
60 DRAW 15tx,-l5tx 
65 DRAM 320,200 
70 DRAM 15tx,15tx 
80 DRAM 320,-200 
90 KEXT x 

100 0RI6IN 390,200 
110 FOR y*l TO 13 
120 DRAM -I5ly,-15ly 
130 DRAM -320,200 
150 DRAM -15ty,15ty 
160 DRAM -320,-200 
170 NEXT y 
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Dean Wspaniały 

ANDRZEJ MONASTYRSKI 

— Dean, kochanie, wstawaj. Dochodzi szósta trzydzieści... 

Melodyjny kobiecy głos napełnił pokój. Wydawało się, że płynął 
zewsząd. Z góry, z dołu, od okien, ścian i drzwi. Jego natężenie 
stopniowo rosło. Od szeptu przechodził do unisono, by zakończyć 
się w ciepłym mezzoforte. 


Dean leniwie przeciągnął się na wy- 
godnym pneumatycznym tapczanie, 
przyjmującym przez cały czas kształt 
jego ciała. Okna powoli rozjaśniały się 
miłym, łagodnym blaskiem, tak różnym 
od natrętnych promieni słonecznych. 
Sprawiał to specjalny system filtrów op- 
tycznych. Leżący mężczyzna powoli 
uchylił powieki. Nie był ostatnio w naj- 
lepszym nastroju. Chyba ze dwa razy w 
zeszłym miesiącu wydało mu się. że 
nie może porozumieć się bez kłopotu z 
najnowszym modelem omalizomatu X 
10TW95, jego podstawowym narzę- 
dziem pracy. A gdyby to zauważył przy- 
padkiem Warner — lub któryś z jego 
donosicieli, ot, choćby James — Dean 
nie miałby czego szukać w firmie. Więc 
dla poprawy samopoczucia zamówił 
sobie ten poranny program. 

Na dużym ekranie ukazała się po- 
stać pięknej dziewczyny. 

— Dean, przypominam ci. że już po-, 
winieneś wstać. Dziś jest czwartek, 
piętnastego czerwca. Temperatura wy- 
nosi 1 8 stopni, będzie słonecznie, w po- 
łudnie może być do 25 stopni. 

Jedna z najatrakcyjniejszych mode- 
lek znanej firmy Simson — Cloth uś- 
miechała się teraz tylko dla niego, uka- 
zując nieskazitelną biel zębów i urocze 
dołeczki na buzi. 

— Wanna już czeka. Dziś masz ką- 
piel jaśminową. No, rusz się wreszcie 
— pogroziła figlarnie paluszkiem — bo 
ci się grzanki' przypalą i kawa wystyg- 
nie! A do tego, jak będziesz marudził, 
czeka cię w windzie spotkanie z Jame- 
sem.. 

Dean zmarszczył brwi. Nie cierpiał 
tego ulizanego cwaniaczka. Takiego, 
który zawsze i wszędzie musi być pier- 
wszy, musi ze swym przypochlebnym 
uśmieszkiem wejść od rana w oczy 
bossowi, przymilić się sekretarce, 
opowiedzieć najnowszy dowcip współ- 
pasażerom w windzie. 

— Stary karierowicz — mruknął pod 
nosem. 

— To stary karierowicz, obrzydliwy 
typ — powtórzyła jak echo złotoloka 
Miriam z ekranu. — Nie daj mu się dziś 
prześcignąć. Musisz być lepszy. Bę- 
dziesz lepszy... 

Dean Robinson podniósł się wresz- 
cie z posłania. Podszedł do niewielkiej 
klawiatury i przebiegł palcami po przy- 
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Ciskach. Zaprogramował sobie cały 
poranek. Miriam ponowiła zaproszenie 
do łazienki z wyjątkowo kuszącym uś- 
miechem. 

— Dean, skarbie, pośpiesz się. Cze- 
kam... 

Wszedł do sporego seledynowo-błę- 
kitnego pomieszczenia. Na ekranie zaj- 
mującym pół ściany widniała już 
Miriam. Stała pod prysznicem, a 
deszcz srebrzystych kropelek rozpry- 
skiwał się dokoła 

— No, nie gap się tak — posłyszał 
jej lekko strofujący głos — jakbyś mnie 
w życiu nie widział. Nie marudź, czas 
ucieka, 

Odwrócił oczy, nieco skonfudowany. 
Wydawało mu się, że to realna Miriam, 
a nie jej ekranowa postać. Tymczasem 
ze ścian, sufitu i podłogi co chwila wy- 
suwały się kolejne przyrządy gimna- 
styczne. Drążki, poręcze, kółka, sprę- 
żyny, worki treningowe. Robinson każ- 
demu z nich poświęcał chwilę uwagi, 
by przejść do następnego. Kazał je za- 
instalować, gdy stwierdził, że mięśnie 
mu wiotczeją, brzuch zaczyna się zao- 
krąglać, a sylwetka traci swój popraw- 
ny wygląd. 

Wreszcie zmęczony wszedł do 
pachnącej kąpieli, poddając się łagod- 
nemu podwodnemu masażowi. Od- 
świeżony zabrał się z apetytem do 
śniadania. W tym czasie Miriam zaba- 
wiała go z ekranu. 

— W dzisiejszych gazetach nie ma 
nic ciekawego. Notowania giełdy bez 
specjalnych zmian. W Europie spokój.. 
W Meksyku wybuchł jakiś wulkan. Uwa- 
żaj, nie poplam spodni kawą! Boss nie 
cierpi najmniejszej plamki na ubra- 
niach pracowników, pamiętasz? 

— Stary pedant — skrzywił się 
Dean. 

— Stary, głupawy pedant — za- 
szczebiotała Miriam — ale od niego 
wszystko zależy. I dzisiejszy dzień i 
twoja pozycja w pracy i nadzieja na 
awans. Więc nie marudź i uważaj. Zos- 
taw już te kanapki! Nie zauważyłeś, że 
ci przybyło na wadze? A boss nie znosi 
otyłych. Sam chudy jak szczapa nie 
cierpi grubasów. 

Dean cofnął rękę. Szkoda mu było 
świeżutkich grzanek zaserwowanych 
przez automat, ale musiał pohamować 
apetyt. To prawda, Ted Warner bez 


skrupułów pozbywał się każdego, kto 
przekroczył 70 kilogramów I diabli 
wiedzieli, skąd brał te informacje? Po- 
dobno Ted kazał umieścić wagę w wy- 
cieraczce. ale nikt tego nie potrafił 
sprawdzić. Za to w firmie pracowali wyłą- 
cznie szczupli, wysportowani panowie, 
jednakowo ubrani i jednakowo pach- 
nący lawendą. Wyłącznie lawendą 

Robinson poczuł narastającą złość i 
niechęć do pracy, szefa i świata. Co- 
dziennie ten sam rytuał, ten sam strój, 
ten sam zapach. Ale boss był twardy. 
Wymagał, płacił i nie tolerował naj- 
mniejszych odstępstw od tego swoi- 
stego regulaminu. 

— Gorzej, jak w wojsku — warknął. 

— Tam mogłem odpiąć guzik, podwi- 
nąć rękawy, rozluźnić pas. a nawet wy- 
lać sobie na łeb garniec jakichkolwiek 
perfum i nikt nie miał pretensji... 

— Nie marudź, Dean — posłyszał 
znów strofujący głos. — Warner jest 
pedantyczny, ale dobrze płaci. Inni 
bossowie bywają gorsi. 

— Racja — pomyślał. 

— Kończ śniadanie. Pośpiesz się. 
Masz dziś szansę. Ted wkrótce będzie 
konferował z facetami z Chemical In- 
dustry. Będzie chyba chciał mieć tam 
swego człowieka. Może właśnie ciebie 
tam wsadzi? Zrób dziś na nim dobre 
wrażenie. Bądź miły, nie daj się wy- 
przedzić Jamesowi. Zabłyśnij czymś, 
postaraj się. Zrób coś, co go do ciebie 
przekona. No. pomyśl o czymś takim, 
zadziałaj dziś mądrze... 

— Głupia, wydekoltowana papugo 

— warknął Dean. — Sam dobrze to 
wszystko wiem. Powtarzasz mi ciągle 
tylko to, co ci kazałem nagrać. A bądź 
taka mądra i powiedz wreszcie jak i 
czym tu błysnąć? 

— Postaraj się Dean. Kochany, zrób 
coś. Przecież jesteś inteligentny, mądry, 
pracowity. Może być trudny dzień, ale 
łatwo dasz sobie radę. Tylko nie zapo- 
mnij zagłuszyć ten jaśmin lawendą! 

— Jesteś głupia gęś! Stale gęgasz 
to samo! Mam już dosyć twoich wspa- 
niałych rad! Chyba będę musiał ciebie 
wymienić. O, już wiem! Zamówię sobie 
Kate. Ona jest lepsza. Ma zgrabniejsze 
nogi. wiesz? dokońcIenl , na str . 23 
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Materiał zaprezentowany w części pierwszej 
został tak dobrany, aby po jego opanowaniu moż- 
liwe było pisanie i uruchamianie prostych pro- 
gramów. W kolejnych częściach, na niezbyt 
skomplikowanych przykładach, będziemy oma- 
wiali wybrane elementy języka. W tej części 
zajmiemy się w głównej mierze instrukcjami 
umożliwiającymi zapisywanie w języku PASCAL 
czynności wykonywanych powtarzalnie. Zgodnie 
z zapowiedzią zamieszczamy również opis ko- 
mend edytora, niezbędnych do poprawiania pro- 
gramów źródłowych oraz zadania do samodziel- 
nego rozwiązania. 

1. Instrukcje iteracyjne (powtarzania). 

Rozpatrzmy następujący problem: 

„Wyznaczyć maksymalną liczbę spośród zadanych N liczb 
rzeczywistych". 

Najprostszym rozwiązaniem jest uznanie pierwszej licz- 
by za maksymalną ‘i porównanie jej z liczbą następną. 
Liczbę większą, z porównywanych, traktuje się jako ma- 
ksymalną i porównuje ją z kolejną liczbą. Zatem po N-1 
porównaniach uzyskujemy liczbę największą spośród za- 
danych. Program wykonujący przedstawione zadanie 
przedstawiono w przykładzie 5. 


PROGRAM orogSi 

VAR n, (llosc liczb rx»cxvwl »tych) 

lilnt«Q«ri (licznik oowtarzan) 

x, (kolejno liczbo rzeczywisto) 

moKireoli (liczbo moksymolno) 

BEGIN 

READLN <n> i 

ii-ll 

READLN(k) i 

WHILE i <- 0-t DO 
BEGIN 

READLN (x 1 | 

IF mox < X THEN mox i -x 
ENDi 

WRITELNi 

WRITELN ( 'moknymal no liczbo apoorod wprowodzonych to ’.mox) 


Do opisu powtarzających się czynności wykorzystano 
znaną już instrukcję WHILE. Nietrudno zauważyć, że w tym 
wypadku stosowanie tej instrukcji nie jest zbyt wygodne. 
Konieczne jest bowiem ustalenie liczby powtórzeń operacji 
wykonanych zgodnie z instrukcją WHILE oraz określenie 
warunku kończącego jej wykonanie. Warunek powinien 
być spełniony wtedy, gdy osiągnie się wymaganą liczbę 
powtórzeń. Nieprecyzyjne określenie warunku prowadzi do 
niepoprawnej liczby powtórzeń (najczęściej o 1 mniejsza 
lub o 1 większa od wymaganej). 

Bardziej naturalną konstrukcją do opisu czynności po- 
wtarzanych określoną ilość razy jest instrukcja o postaci: 

FOR i: = ei TO e 2 DO 
instr 

gdzie: 

i — zmienna kontrolna (licznik powtórzeń), 
ei — początkowa wartość zmiennej kontrolnej, 
e 2 — końcowa wartość zmiennej kontrolnej, 
instr — dowolna instrukcja. 


Zapis ten oznacza, że instrukcja „instr 1 ’ wykonywana jest 
dla kolejnych wartości zmiennej kontrolnej „i" od wartości 
początkowej „ei” z krokiem 1 do wartości końcowej „e 2 ". 
Wartość zmiennej kontrolnej jest zmieniana automaty- 
cznie, zatem zmiana taka nie jest dopuszczalna w ramach 
instrukcji „instr". Zmienna kontrolna może być natomiast 
wykorzystywana jako argument w wyrażeniach, jeżeli takie 
występują w instrukcji „instr". Przyjmuje się, że po wykona- 
niu instrukcji FOR wartość zmiennej kontrolnej jest 
określona. 

Program wyznaczania maksymalnej liczby spośród za- 
danych N liczb rzeczywistych z wykorzystaniem omówio- 
nej instrukcji FOR zamieszczono w przykładzie 6. 


PROGRAM prog6l 

VAR n. ( i 1 obc liczb rzeczywistych) 

iilntagari (zmienna kontrolna) 

x, (kolejna liczba rzaezywiata) 

mamraali (liczba maksymalna) 

BEGIN 

READLN (n)| 

READLN (X) I 
max i “X | 

FOR i i-l TO n-1 DO 
BEGIN 

READLN ( x > l 

IF max < X THEN maxi-x 
ENDi 

WRITELNi 

WRITELNI 'maksymalna liczba sposrod wprowadzonych to ’.max) 


Program „próg. 5" i „próg. 6" uruchomiono dla N = 7 
oraz liczb rzeczywistych 2,57; — 1 2; 26,48; — 1 ,31 ; 5,1 26 i 
7,33 uzyskując identyczny wynik o postaci: 

maksymalna liczba sposrod 

wprowadzonych to 2. 6480000000E+01 

W obu programach wykorzystano instrukcję warunkową 
IF warunek THEN instr 

gdzie: 

warunek — wyrażenie logiczne, 
instr — dowolna instrukcja. 

Jeżeli warunek jest spełniony, to zostaje wykonana ins- 
trukcja „instr", a jej zakończenie jest uważane za zrealizo- 
wanie Całej instrukcji warunkowej. W przypadku przeciw- 
nym instrukcja „instr" nie jest wykonywana i uważa się, że 
cała instrukcja warunkowa została zrealizowana. 

Po tym koniecznym wyjaśnieniu powróćmy ponownie do 
własności języka PASCAL w zakresie opisu czynności wy- 
konywanych powtarzalnie. 

Rozważmy problem obliczania wartości szeregu 



z zadaną dokładnością. Można go rozwiązać przez doda- 
wanie do siebie kolejno obliczanych wartości wyrazów 
szeregu. Należy przy tym zauważyć, że: 

— wartości kolejnych wyrazów szeregu można wyznaczyć 
z zależności 

a " + 1 ~ a " ' nTl 

przyjmując, że do a c = 1 (a„ — n-ty wyraz szeregu), 

— o dokładności obliczeń decyduje wartość ostatniego 
obliczonego wyrazu szeregu. 

Czytelnicy, którzy rozwiązali zadanie nr 3, bez trudu na- 
piszą program obliczania wartości podanego szeregu, wy- 
korzystując znaną już instrukcję WHILE. 

dokończenie na str. 21 
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AMSTRAD 


W Londynie, we wrześniu tego roku, firma AMSTRAD zaprezen- 
towała swój najnowszy model, komputer osobisty PC 1512, kom- 
patybilny z IBM PC. Porównując PC 1512 z niewiele starszymi, 
dobrze znanymi w naszym kraju, modelami CPC 6128 i JOYCE 
PCW 8256, należy stwierdzić, że to duży krok do przodu. Można 
też sądzić, iż model ten będzie cieszyć się olbrzymią popularnoś- 
cią nie tylko w W. Brytanii. 


W AMSTRADZIE PC 1512 zastoso- 
wano 16-bitowy mikroprocesor 8086, 
pracujący z częstotliwością zegara 8 
MHz. Mikroprocesor adresuje 512 KB 
pamięci RAM, którą można zwiększyć 
o 128 KB Szybkość działania mikro- 
procesora może być zwiększona po do- 
łączeniu do niego koprocesora arytme- 
tycznego 8087, dla którego wykonano 
miejsce w płycie systemu. Nie wyko- 
nano natomiast złączek do rozszerze- 
nia pamięci operacyjnej ponad poje- 
mność 640 KB W systemie zastoso- 
wano kwarcowy zegar czasu rzeczywi- 
stego z baterią, działającą po wyłącze- 
niu zasilania. 


PC 1512 przełamuje lansowany do- 
tąd przez firmę AMSTRAD standard 
dyskietek 3-calowych. W modelu tym 
zastosowano dwustronne mechanizmy 
dyskowe, pozwalające na dyskach 
elastycznych 5 1 /4 cala osiągnąć gę- 
stość zapisu 360 KB, dokładniej 368 
640 bajtów Jako pamięć masową za- 
stosowano również dysk stały o poje- 
mności 10 MB lub 20 MB, co jest no- 
wością w modelach firmy. 

AMSTRAD PC jest wyposażony w in- 
terfejs szeregowy RS 232 C i równoleg- 
ły typu Centronics. Ten drugi służyć 
może do podłączenia bardzo dobrych 
drukarek matrycowych DMP 2000 lub 
DMP 3000, Trzy zastosowane złączki 
umożliwiają dołączenie do konfiguracji 
podstawowej wspomnianego dysku 
stałego, modemu, przetwornika a/c lub 
c/a, dodatkowego portu dla drukarki. 
Istnieje również złączka dla pióra 
świetlnego. 

PC 1512 ma klawiaturę typu QWER- 
TY z 85 klawiszami, która ma 
wbudowaną złączkę dla drążka stero- 
wego, W skład wyposażenia podsta- 
wowego wchodzi również „myszka". 

Z najnowszym AMSTRADEM mogą 
pracować monitor kolorowy PC CM lub 


monochromatyczny PC MM. Pozwalają 
one na organizację ekranu w standar- 
dzie dużej rozdzielczości (high resolu- 
tion) w modzie graficznym: w 16 lub 


2 

bezpośrednio adresowalnymi 

W standardzie średniej rozdzielczoś- 
ci (medium resolution) mogą być wy- 
korzystywane 3 palety czterokolorowe 
z 320 x 200 punktami bezpośrednio ad- 
resowalnymi. W modzie alfanumery- 
cznym organizacja ekranu może być 
następująca: 16 kolorów w 25 li- 
niach po 80 znaków lub 25 liniach po 
40 znaków. 

Waga poszczególnych elementów 
systemu AMSTRAD PC 1512 jest na- 
stępująca: jednostka centralna z dwie- 
ma stacjami dysków 7,75 kg; klawiatu- 
ra i.1 7 kg; PC CM 1 1 ,6 kg; PC MM 7.4 
kg; DMP 3000 4,2 kg. 

Przedstawione parametry AMS- 
TRAD-a PC nie są rewelacyjne, nie- 
mniej czynią go atrakcyjnym na rynku 
europejskim, tym bardziej że upodob- 
niają go do IBM PC/XT 

Teraz krótka charakterystyka opro- 
gramowania. W PC 1512 zastosowano 
dyskowy system operacyjny wersję MS 
DOS3.20 oraz DOS Plus firmy DIGITAL 
RESEARCH. Firma ta opracowała rów- 
nież GEM, ułatwiający pracę w wyżej 
wymienionych modach graficznych. 
Firma LOCOMOTIVE SOFTWARE op- 
racowała nową wersję języka Basic — 
BASIC 2. 

W pamięci stałej ROM AMSTRADA 
PC umieszczono ROM BIOS (Basic In- 
put/ Output System), pracujący bez- 
pośrednio ze wszystkimi układami elek- 
tronicznymi, w tym peryferyjnymi, sta- 
nowiącymi system PC 1512. 


Wśród programów użytkowych, ofero- 
wanych przez firmę a znanych na pew- 
no dobrze użytkownikom IBM-ów, są: 
program do redagowania tekstów 
WordSt. '1512; program dla dyrekto- 
rów i ekonomistów SuperCalc 3. ze 
swoimi pie chartami i bar chartami, 
oraz inne. w tym. LOTUS 1 -2-3; SIDE- 
KICK; PFS: FILE; DBMS; REFLEX. 


Nie zapomniano o miłośnikach gier. 
Przygotowano dla nich szachy, golf, 
wyścigi samochodowe, zawody zimo- 
we. 


Na koniec ceny: 


- 1 x360 KB, PC 

- 2 x360 KB.PC 

- 1 x360 KB, PC 

- 2 x360 KB, PC 

- 1 x360 KB, 10 

- 1 x360 KB, 10 

- 1 x360 KB. 20 

- 1 x360 KB, 20 


MM 


£ 

399 

MM 


£ 

499 

CM 


£ 

599 

CM 


£ 

699 

MB 

PC 

MM£ 

699 

MB 

PC 

CM£ 

849 

MB 

PC 

MM£ 

799 

MB 

PC 

CM£ 

949 


Rozszerzenie RAM o 128 KB zwięk- 
sza cenę o £44 

Jacek WOJTALA 
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dokończenie ze str. 19 

Program, dający, w wyniku wykonania taki sam efekt, 
zamieszczono w przykładzie 7, Zamiast instrukcji WHILE, 
do opisu czynności wykonywanych powtarzalnie wykorzy- 
stano instrukcję REPEAT o postaci: 

REPEAT 

i2. 


UNTIL wyrlog 


i, e, e 2 , instr — mają identyczne znaczenie, jak w już 
opisanej instrukcji FOR (FOR— TO). 

Zapis ten oznacza, że instrukcja „instr" wykonywana jest 
dla kolejnych wartości zmiennej kontrolnej „i" od wartości 
początkowej „e, ”, przy czym wartość zmięnnej kontrolnej 
jest zmniejszona o 1 (a nie zwiększona, jak w instrukcji 
FOR— TO) po każdym wykonaniu instrukcji „instr. Przykła- 
dy wykorzystania instrukcji FOR— DOWNTO podamy w 
odpowiednim czasie. Biorąc pod uwagę dotychczas po- 
znane własności języka PASCAL, trudno jest znaleźć prob- 
lem, w rozwiązaniu którego naturalne byłoby zastosowanie 
instrukcji FOR— DOWNTO. 

2. Wybrane komendy edytora 


gdzie: ii, \2 in — dowolne instrukcje, 

wyrlog — wyrażenie logiczne 


Zapis ten oznacza, że ciąg instrukcji zawarty pomiędzy 
słowami kluczowymi REPEAT— UNTIL wykonywany jest 
tak długo (przynajmniej raz — porównaj z instrukcją WHI- 
LE), aż wartość wyrażenia logicznego „wyrlog” będzie 
równa TRUE. Należy przy tym zdawać sobie sprawę z tego, 
że jeżeli w żadnym z powtórzeń wykonania ciągu instrukcji 
wyrażenie logiczne „wyrlog" nie osiągnie wartości TRUE, 
to wykonanie instrukcji REPEAT nigdy się nie zakończy. 


PROGRAM or oq7 
VAR nsintecier; 


Pt ;: 1 ! 

READ . eps) s 
REPEAT 


{numer wyrazu szereguj 
■C wartość szereguj 
Cwartosc kolejnego wyrazu) 
{dokładność obliczeń) 


s: =5+0! 

p : =p*:i / <n+l ) 

UNTIL. ABS(b) "•'= eps; 

WRITELN; 

WRITELN (’ wartość szeregu dla ',< = 

WRITELN (’ obi i csona z dokładnością eps ,eps> ; 
WRITELN (' wvnosi s =’,s> 

END. 


Program „Próg 7" wykonano dla X = 1 i 
eps = 1CF 10 (eps można wprowadzić w postaci 
1 e — 1 0 lub 0 0000000001) uzyskując wynik: 


wartość szeregu dla x = 1 , OOOOOOOOOOE+OO 

obliczona z dokładnością eps = 1 . OOOOOOOOOOE-IO 

wynosi s = 1 . 71828182S4E+00 


,, piuyidimu wykorzystano standardową funkcję aryt- 
metyczną ABS, obliczającą wartość absolutną argumentu 
„P" („P" zależy od „X”, a więc może przyjmować wartości 
mniejsze od zera). W języku PASCAL dostępne są jeszcze 
inne standardowe funkcje, np. obliczające wartość sinusa 
kąta czy logarytmu naturalnego z danej liczby. Funkcje 
standardowe zostaną omówione w jednej z kolejnych 
części. 

Aby zamknąć listę instrukcji iteracyjnych języka PAS- 
CAL. opiszemy drugą postać instrukcji FOR (FOR— DOWN- 
TO) 

Jest ona następująca: 

FOR i: = e, DOWNTO e 2 DO 
instr 

gdzie: 


Pierwsze próby uruchomienia programu z reguły kończą 
się niepowodzeniem. Przyczyny są następujące: 

— w programie źródłowym wystąpił zapis niezgodny z re- 
gułami języka PASCAL (sygnalizowany jest błąd komplika- 
cji). 

— podczas wykonania programu wystąpił błąd, np. próba 
wczytania danej o postaci niedopuszczalnej dla typu 
zmiennej, której ma być przypisana (sygnalizowany jest 
błąd wykonania), 

— w programie wystąpiły błędy logiczne (program wyko- 
nał się, lecz wyniki nie są zgodne z oczekiwanymi). W każ- 
dym z tych wypadków należy wywołać edytor przez wciś- 
nięcie klawisza: 

— ESC — po sygnalizacji błędu komplikacji lub wykona- 
nia; na ekranie monitora zostanie wyświetlony program 
źródłowy, a kursor wskaże miejsce, w którym wystąpił 
błąd. 

— E — gdy stwierdziliśmy błędy logiczne; na ekranie mo- 
nitora zostanie wyświetlony program źródłowy, a kursor 
będzie wskazywał pierwszy znak w pierwszej linii pro- 
gramu. 

Wykorzystując komendy edytora programu można po- 
prawić i uruchomić go ponownie. Edytor dostarcza 45 ko- 
mend, z których opiszemy na razie kilka, naszym zdaniem, 
niezbędnych. 

Komendy edytora składają się z jednego lub dwóch zna- 
ków. Będziemy je zapisywać symbolicznie w następujący 
sposób: 

— <CTRL> — znak 1 (w przypadku komend jednozna- 
kowych), 

— <CTRL> — znak 1 — znak 2 (w przypadku komend 
dwuznakowych). 

Zapisy te oznaczają, że przy wciśniętym klawiszu CON- 
TROL należy nacisnąć klawisze ze znakiem „znak 1 ”, a dla 
komend dwuznakowych, należy nacisnąć następnie kla- 
wisz ze znakiem „znak 2". 

Poprawienie programu może polegać m. in. na: 

— wstawieniu nowych znaków w v " 
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dokończenie ze str. 21 


— skasowaniu określonych znaków w wierszu, 

— wstawieniu nowego wiersza do programu, 

— skasowaniu określonego wiersza programu. 

Edytor ma dwa tryby wstawiania znaków w wierszu: 
INSERT oraz OVERWRITE. W 'trybie INSERT nowy znak 
zostaje wprowadzony na pozycję kursora, a pozostała 
część wiersza (od kursora w prawo do końca wiersza) jest 
przesuwana w prawo* W trybie ON/ERWRITE nowy znak 
zostaje wprowadzony na miejsce znaku, wskazywanego 
przez kursor. Zmianę trybu wstawienia znaków powoduje 
komenda <CTRL> — O— V. Do skasowania znaku znajdu- 
jącego się przed kursorem wykorzystywany jest klawisz 
DEL. Do przesunięcia kursora można wykorzystać jedną z 
komend: 

<CTRL> — S — przesunięcie kursora w prawo o jeden 
znak, 

<CTRL> — D — przesunięcie kursora w lewo o jeden 
znak, 

<CTRL> — E — przesunięcie kursora o jeden wiersz w 
górę, 

<CTRL> — X — przesunięcie kursora o jeden wiersz w 
dół, 

<CTRL> — W — tzw. przewinięcie w górę (przesunięcie 
tekstu wyświetlonego na ekranie o jeden wiesz w dół), 
<CTRL> — Z — tzw. przewinięcie w dół (przesunięcie 
tekstu wyświetlonego na ekranie o jeden wiersz w gorę). 

Wstawienie nowego wiersza umożliwia komenda 
<CTRL> — N. Powoduje ona wstawienie nowego wiersza 
za wierszem, w którym znajduje się kursor. Znaki, od po- 
zycji kursora w prawo do końca wiersza, zostają przenie- 
sione do nowego wiersza. Pozycja kursora się nie zmienia. 
Do kasowania wiersza, w którym znajduje się kursor, służy 
komenda <CTRL> — Y. Po skasowaniu wiersza tekst 
znajdujący się poniżej kasowanego wiersza jest przesu- 
wany o jeden wiersz w górę. Kursor przesuwa się na pozy- 
cję pierwszego znaku. Przy stosowaniu tej komendy należy 
zachować ostrożność, gdyż nie ma możliwości odzyskania 
skasowanego wiersza. 

3. Zadania 
Zadanie 4 

Napisać program obliczający wartość funkcji 
' F(k) = K! 

dla zadanej liczby naturalnej K. 

Zadanie 5 

Napisać program, który wczytuje dwie liczby całkowite i 
sprawdza, £zy są one względnie pierwsze. Dwie liczby są 
względnie pierwsze, jeżeli nie mają wspólnych podzielni- 
ków różnych od 1 i —1. 

Zadanie 6 

Napisać program obliczający cosinus kąta między dwo- 
ma wektorami {aj i {bi} 
o n współrzędnych z zależności: 

Z a,b, 

cos a - T -r-_ 

Via, J -fb, 2 

Uwaga: współrzędne wektorów wczytywać parami 
ai, b, (i = 1,2..., n). 

Stefan ROZMUS 


Z ostatniej chwili 


NATIONAL SEMICONDUCTOR 
32332 

Jest to procesor pracujący z częstotliwością zegara 
10,12 lub .15 MHz. Magistrala danych może być 
zaprojektowana jako 8-, 16- lub 32-bitowa. 

Mikroprocesor 32332 adresuje 16-Megabajtową 
przestrzeń adresową, która po dodaniu 32-bitowego 
rejestru może być zwiększona do 4 Gigabajtów. 


CP/M - 8000 


Firmy DIGITAL RESEARCH i ZILOG opracowały 
system operacyjny CP/M dla 16-bitowego mikropro- 
cesora Z-8000 (i jego kolejnych wersji Z-8001, Z- 
-8002, Z-8003, Z-8004). 

System wymaga pamięci operacyjnej o pojemności 
minimum 176 KB, zalecana pojemność 256 KB. CP/M 
— 8000 działa z kompilatorami języków: BASIC, C, 
FORTRAN, PASCAL z ASSEMBLEREM i różnymi 
programami użytkowymi. System może być umiesz- 
czony na 8-calowych dyskach elastycznych SS/SD lub 
5 1/4 calowych dyskach DS/DD. 



„IKS" od stycznia w nowej szacie... 
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„Zegar” na MERITUM 

„Zegar” to podprogram obsługi przerwania 
NMI mikroprocesora Z-80. Umożliwia stały od- 
czyt czasu podczas pracy z mikrokomputerem. 

Wadą programu jest konieczność zatrzymywa- 
nia „Zegara” przed zapisem i odczytem progra- 
mów z taśmy. „Zegar" zatrzymuje się instrukcją 
OUT 250,0 i ponownie uruchamia instrukcję OUT 
250,0. Czas uaktualnia się poprzez wpisywanie 
do odpowiednich komórek pamięci wartości: 
godzin, minut i sekund. Przykład zapisu nowego 
czasu do zegara POKE 16500,12’ sekundy 

POKE 16501,59' minuty 
POKE 16502,10' godziny 

Wartości adresów są stałe. Operacje związane 
z zatrzymaniem, uruchomieniem i zmianą czasu 
w zegarze wykonuje się w trybie kalkulatorowym. 
W przypadku wyzerowania systemu należy kolej- 
no wykonać instrukcje: 

POKE 165526,17: POKE 16527,126: PRINT USR 
( 0 ) 

Spowodują one wykonanie programu maszy- 
nowego (od adresu 32273), który wznowi pracę 
„Zegara '. Po wpisaniu i uruchomieniu programu 
można wykonać rozkaz NEW. 

PIOTR BIEDRZYCKI 
LVI LO — Warszawa 


8600 FOR A-32144 TO 32297 

8005 READ A:« 

801.0 N=ASC(LEFT:«(A:«rl) >-48 

801.5 N-N-INT <N/12)#7 

8020 M=ASC(RIGHTw(AKrl) ) -48 


8025 M*=M-INT <M/12) *7 
8030 POKE A r N*ló+M 
8035 NEXT A 

8040 ' KOD MASZYNOWY ZEGARA 

8045 DATA F5 r 3E r B0 r D3 , FB r 3E t C2 * D3 
8050 DATA FA»3ErD8»D3»FArE5łC5»CD 
8055 DATA AA » 7D r CD r DC 1 7D »C1 »E1 r FI 
8060 DATA ED r 45 r 21 r 73 » 40 » 34 r 3E » 1E 
8065 DATA BE r C0 r 36 1 00 » 3C t D3 r FE »3D 
8070 DATA D3 r FE » 23 r 34 r 3E r 3C r BE r C0 
8075 DATA 36 » 00 r 23 ► 34 » BE , C0 » 36 r 00 
8080 DATA 3E r FF » 06 » 35 r D3 r FE » 10 »FE 
8085 DATA 3D r 20 r F7 r 3E » 18 »23 r 34 , BE 
8090 DATA C0 r 36 r 00 1 C9 rD5rllr74r40 
8095 DATA 21 r 3F j 3C » 06 » 03 r CD i F4 » 7D 
8100 DATA 2B»36r3A,2B»13»10»F6r23 
8105 DATA 36r20»DlrC9»lArCD»05r7E 
8110 DATA E6r0F»F6r30r77r79rE6»0F 
8115 DATA F6r30»2Br77rC9r0E»FF»0C 
8120 DATA D6»0A»F2»07»7ErA7»C6»0A 
8125 DATA C9 r 00 » 21 r 90 » 7D r 22 r 10 » 40 
8130 DATA 3E r 0F» D3 » F7 r 3E r B0 r D3 » FB 
8135 DATA 3E r 00 r D3 r FA » D3 » FA . 00 » C3 
8140 DATA CC 1 06 
8145 CLSJPRINTG 520r""! 

8150 INPUT"PODAJ GODZ r MIN rSEK " 
łGlMrS 

8155 POKE 16500»SSPOKE 16501»M I 
POKE 16502 rG 
8160 POKE 32294 » 20H 

POKE 16526 r 17 5 POKE 16527,126 
: U=USR (0) s POKE 32294,0 

8165 GOTO 8165 


dokończenie ze str. 18 

Ale Mirlam nie reagowała i konty- 
nuowała swój monolog. 

— Dean, jesteś znakomrty! Dosko- : 
nale dziś wyglądasz! I nie przejmuj 
się, że masz trudny dzień. Jesteś w ! 
znakomitej formie, widziałam to pod- 
czas ćwiczeń, Wykonałeś je lepiej, niż 
wcześniej, daję słowo. Zasłużyłeś na ! 
dużą buźkę! Ale już zbieraj się, bo naj- 1 
wyższy czas. 

W odpowiedzi wzruszył ramionami. , 
Widział w łazienkowym lustrze swe od- j 
bicie, a i ćwiczenia wcale nie poszły 
mu najlepiej. 

— Pamiętaj — ciągnęła Miriam — j 
wkrótce dtary Bob Andersson zrezyg- j 
nuje z roboty. Może właśnie dziś Tedo- 
wi przyjdzie myśl. żeby ciebie dać na j 
jego miejsce? Zarządzałbyś całym 
pierwszym zespołem analiz magazy- 


nowych! To by było wspaniałe! Dean, 
mógłbyś nareszcie zmienić mieszka- 
nie, kupić nowy samochód, ożenić się... 
No, chłopie, nie zmarnuj szansy! Dean, 
jesteś jednym z najinteligentniejszych 
facetów spośród wszystkich, jakich 
znam... 

— Kretynko! — wrzasnął dziko 
Dean. — Zamknij ten swój uśmiechnię- 
ty dziób! Przestań powtarzać mi do 
znudzenia to wszystko! 

Cholera wie. czy stary Bob tak szyb- 
ko odejdzie na emeryturę! Cholera wie, 
czy Ted zaproponuje mi jego stanowi- 
sko, czy nie wybierze tego gnojka Ja- 
mesa! Cholera wie, czy zechce mnie 
ulokować w Chemical Industry! Chole- 
ra wie, czy to wszystko prawda, co so- 
bie wymyśliłem 1 A teraz ty mi to w kółko 
powtarzasz! 

Uśmiechnięta twarz Miriam ani na 
moment nie zmieniła swego wyrazu, 


Kwadrofoma nadal przekazywała jej 
ciepły, łagodny głos. 

— Dean, skarbie, więcej pewności 
siebie. Dziś bez wątpienia dokonasz 
: czegoś, czym zapewnisz sobie przy- 
chylność Warnera. Nie przejmuj się ni- 
czym. Wal do roboty i wracaj szybko do 
domu. Będę czekała na ciebie. Śmiało 
Dean, odwagi, chłopie. Pamiętaj, cze- 
kam! Pa, kochany. A teraz do roboty. 
No, wal... 

; Dean z ponurą miną chwycił ze stołu 
; ciężki szklany klosz od sera i z całej si- 
I ły z rozmachem walnął nim w uroczo 
uśmiechającą się z ekranu buzię. Za- 
nim jednak krucha powłoka ekranu i 
szkło klosza rozmieniły się na tysiące 
okruchów, posłyszał jeszcze zachwy- 
cony głos dziewczyny: 

— Dean, jesteś Wspa... 

ANDRZEJ MONASTYRSKI 
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Ł BASIC 

(Podstawy programowania) 

PAMIĘĆ KASETOWA: INSTRUKCJE SYSTEMOWE 
LOAD, SAVE, VERIFY, MERGE (wiadomości podsta- 
wowe) 

ZX Spectrum współpracuje z magnetofonem kaseto- 
wym. Taśmy magnetyczne (kasety) pełnią rolę pamięci 
zewnętrznej (pamięci pomocniczej). Na kasety nagrywamy 
programy przeznaczone do wielokrotnej realizacji. 

Do nagrywania programów posługujemy się instrukcją 
postaci. 

SAVE „nazwa" 

— nazwa — jest to nazwa identyfikująca dany program na 

taśmie (jest to innymi słowy etykieta programu) 
zaczyna się od litery i jest ciągiem liter i cyfr. 
liczba znaków w nazwie < 1 0 
Załóżmy, że wprowadziliśmy program do komputera i 
chcemy go zapamiętać na taśmie magnetycznej z etykietą 
(nazwą) „rysunek". 

W tym celu musimy wykonać następujące czynności: 

1 . podłączyć magnetofon do komputera (wejście „MIC”) i 
ustawić taśmę na miejscu pustym (do zapisu) 

2. napisać instrukcję: 

SAVE rysuneK (i ENTER) 

3. komputer wypisze na ekranie: 

Start tape then press any key 

4. włączyć magnetofon (do zapisu) 

5. nacisnąć dowolny klawisz w ZX Spectrum 

6. na ekranie pokazują się różne) wielkości paski poprze- 
czne, poprawny zapis jest sygnalizowany przez kompu- 
ter napisem w lewym dolnym rogu postaci: 0 OK 

Zapisany program na taśmie należałoby sprawdzić, czy 
dobrze się nagrał. Instrukcja VERIFY porównuje program z 
taśmy z zawartością pamięci komputera i ma postać: 

VERIFY nazwa 

— nazwa — jest to nazwa identyfikująca dany program na 

taśmie (etykieta programu) 

Sprawdźmy nagrany przez nas program. W tym celu mu- 
simy wykonać następujące czynności: 

1 . przewinąć taśmę tak, aby ustawić ją (mniej więcej) przed 
początkiem sprawdzanego programu 

2. włączyć przewód łączący wejścia: słuchawki w magne- 
tofonie a w komputerze „EAR" 

3. napisać instrukcję. 

VERIFY ..rysunek" (i ENTER i 

4. włączyć magnetofon (do odczytu) 

5 następuje szukanie na taśmie programu o etykiecie (na- 
zwie) rysunek. W trakcie szukania programu komputer 
wypisuje na ekranie nazwy każdej informacji na taśmie 
na jaką po drodze natrafi. W momencie znalezienia pro- 
gramu o etykiecie rysunek pojawi się na ekranie napis: 
Program: rysunek 

Następnie na ekranie pokazywać się będą różnej szero- 
kości poprzeczne paski. Poprawne zweryfikowanie (spra- 
wdzenie) programu sygnalizowane jest przez komputer w 
lewym dolnym rogu ekranu napisem postaci: 

0 OK, 0:1 

Do wczytywania programów zapisanych na taśmie służy 
instrukcja postaci: 

LOAD „nazwa 

— nazwa — jest to nazwa identyfikująca dany program na 

taśmie (etykieta programu) 

Chcemy wczytać uprzednio nagrany program o etykie- 


cie (nazwie) rysunek. 

W celu wczytania programu musimy wykonać następują- 
ce czynności: 

1 . włożyć do magnetofonu odpowiednią kasetę tzn. taką, na 
której zapisany jest program, który chcemy wczytać 

2. ustawić taśmę w miejscu (przybliżonym) naszego pro- 
gramu 

3. włączyć przewód łączący wejścia: słuchawki w magne- 
tofonie. a w komputerze „EAR" 

4 napisać instrukcję 

LOAD rys ek" (i ENTER) 

5. włączyć magnetofon (do odczytu) 

6. następuje szukanie na taśmie programu o etykiecie 
(nazwie) rysunek. W trakcie szukania programu kom- 
puter wypisuje na ekranie nazwę każdej informacji na 
taśmie na jaką po drodze natrafi. W momencie znale- 
zienia programu o etykiecie rysunek pojawi się na ek- 
ranie napis: 

Program: rysunek 

Następnie na ekranie pokazywać się będą różnej szero- 
kości poprzeczne paski. Poprawne wczytanie programu 
sygnalizowane jest przez komputer w. lewym dolnym rogu 
ekranu napisem postaci 

0 OK. 0:1 

Możemy wtedy program wykonywać (RUN i ENTER 
itd.) Instrukcja LOAD usuwa stary program i zmienne z 
pamięci komputera przed wczytaniem nowych z taśmy. 
Istnieje inna instrukcja — MERGE - która tego nie robi. 
MERGE usuwa tylko te linie i zmienne, które zastępuje no- 
wymi, o tym samym numerze lub nazwie 
Instrukcja MERGE ma postać 
MERGE ..nazwa 

— nazwa — jest to nazwa identyfikująca dany program na 
taśmie (etykieta programu) 

Czynności, które wykonujemy są takie same jak w LOAD. 

Instrukcję MERGE stosujemy wtedy, gdy „składamy" 
dwa programy (lub kilka programów) w jeden. 

Przypuśćmy, że mamy dane dwa programy 
10 REM program 1 
20 


100 

110 


300 

10 REM program 2 
20 


100 
310 . 


500 

Chcemy z tych programów złożyć jeden program postaci: 
10 REM program 2 


20 

linie z programu 2 

100 


110 

linie z programu 1 

300 
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310 linie z programu 2 


500 

Programy nagrane są na taśmę z etykietami (nazwami) 
program 1 i program 2. Wykonujemy następujące czyn- 
ności: 

LOAD „program 1 " (i ENTER) 
po wczytaniu tego programu (0 OK) piszemy 
MERGE „program 2" (i ENTER) 
po wczytaniu tego programu (0) naciśnijmy LIST i spraw- 
dźmy czy otrzymaliśmy w programie te linie, które nas inte- 
resują 

Linie programu 1 o numerach 1 0+1 00 będą zastąpione 
liniami programu 2 o tych samych numerach. Linie pro- 
gramu 1 o nr 110+300 pozostaną bez zmian, natomiast Ii- 
me o numerach 310+500 są liniami programu 2. 

W instrukcjach VERIFY, LOAD i MERGE nazwa pro- 
gramu może być tekstem pustym tzn, możemy napisać: 
VERIFY” "LOAD" "MERGE" 


I wówczas komputer me dba o nazwę programu i bierze 
pierwszy program z taśmy, na który natrafi. 

' Uwaga: w nazwach programów (w tych instrukcjach) roz- 
różniane są duże i małe litery, np. RYSUNEK i ry- 
sunek nie oznaczają tej samej nazwy 

Jeżeli podczas czytania z taśmy lub sprawdzania (wery- 
fikowania) programu komputer wypisze: 

R Tape loading error 

oznacza to. że wystąpił błąd we wczytywaniu (program na 
taśmie został odnaleziony, ale z jakiegoś powodu nie mógł 
zostać wczytany lub zweryfikowany). 

W przypadku weryfikowania, najczęściej należy dany 
program nagrać od nowa ($AVE) i ponownie weryfikować 
(VERIFY) 

W przypadku odczytywania (LOAD lub MERGE > należy 
zmieniać ustawienie głośności i tonów w magnetofonie. 
Jeżeli po kilku próbach nie uda się wczytać programu, na- 
leży zaniechać wczytywania (szczególnie wtedy, gdy taś- 
ma była nagrywana na innym magnetofonie). Z.W. 


Wychodząc z założenia, że nawet najprostszy przykład wyjaśni 
więcej, niż wielogodzinny wykład chcę podbudować poprzednie 
rozważania o playerach programem wykorzystującym tę techni- 


Jak to 


10 0PEN #2/4.0, m K ! “ 

15 DIM AS<20),OP*<1>,K»<1> 

20 **=" 

25 PL“0 1 GOSUB 2205 1 REM CZYNNOŚCI 
PLAYER* 0 

30 FOR PL*1 TO 3 'REM TWORZENIE 
35 GOSUB 2235 NEXT PL 
40 MS=90 : REM MIEJSCE WYŚWIETLANIA 
45 L*5 : REM USTAWIENIE LUDZIKA 
50 P=4 REM <P-3> OKREŚLA POZIOM 
55 D-0'REM PRZESUNIECIE ZAKRESU 
60 REM START 
65 IF P>8 THEN GOTO 990 REM GRA 
70 REM ORGANIZACJA EKRANU 
75 POSITION 1,8 

80 PRINT #6) "2 5" 

85 POKE 53248, MS 'REM WYŚWIETLENIE 
90 POSITION 11,0 


kę. 


POCZĄTKOWE I DEFINIOWANIE 
POZOSTAŁYCH PLAYERÓW 
PLAYERA NA POCZĄTKU GRY 

TRUDNOŚCI 

LICZB 

MA PIECI POZIOMOW 
PLAYERA 0 - STOJĄCY LUDZIK 


Jest to bardzo prosty program, po- 
magający w przyswojeniu czterech 
podstawowych działań arytmety- 
cznych. Są w nim kolejno losowo wy- 
bierane działania i generowane ich 
składniki (czynniki). Pojawiają się one 
na monitorze w postaci równania z 
jedną niewiadomą, np: 

9 : x =3 

a osoba „ucząca" się powinna wpro- 
wadzić prawidłową, jej zdaniem, war- 
tość zmicnr.oj x. 

Cały proces przebiega w kilku częś- 
ciach o zmiennym stopniu trudności, 
osiąganym przez zmianę zakresu zga- 
dywanych liczb. 

W programie ofuKt ten otrzymujemy 
przez zwiększenie liczby wartości moż- 
liwych do generowania za pomocą 
następującej instrukcji: 
l=INT (RMD (0) * Poziom) 
oraz przesunięcie wartości bazowej 
wykorzystywanej do tworzenia zgady- 
wanych liczb 
x = BAZA + I 

Pięknie, ale gdzie są nasze playery. 
Otóż spójrzmy na ekran. 

Prezentują one kolejne zmiany prze- 
biegające po udzieleniu prawidłowej 
odpowiedzi. 

W programie technika player-missile 
wykorzystana została do zobrazowania 
ruchu „ludzika". Jego przesuwanie się 
jest uzależnione od poprawności od- 
powiedzi i ilustruje moment zbliżenia 
się do oceny bardzo dobrej lub sygnali- 
zuje niebezpieczeństwo otrzymania 
dwójki. Dodatkowo, w czasie gdy gra- 
jący myśli, jakiej udzielić odpowiedzi, 
ludzik ze zniecierpliwieniem tupie nogą. 

W tekście programu oznaczone zos- 
tały odpowiednie fragmenty realizujące 
„odpowiedzialne" za opisane zacho- 
wanie ludzika. By nie odebrać przyje- 
mności rozszyfrowania, jak one działa- 
ją, nie chcę ich dogłębnie analizować 
Życzę dobrej zabawy. GRZEŚ 
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95 PRINT #6; "czesc "jP-3 
100 REM GENEROWANIE WYRAŻENIA 
105 J*D+INT(RND<0>*P>+1 
110 I*D+INT<RND<0>*P>+1 
115 X«D+INT<RND<0>*P>+1. 

120 C«INT(RND(0>*8>+1 

125 ON C GOTO 130,130,135,140,145,145,150,155 


130 I*J+X 
135 I«J-X 
140 I«X-J 
145 I*J*X 
150 J*I#X'OP»= 
155 X=J*I'OP*= 


OP*»' 
OP*-"-" 
OP#="-“H 
OP*-‘ 


“GOTO 200+50* <C-1> 

"'GOTO 200 
“'GOTO 250 
'GOTO 200+50* <ę-5) 

■GOTO 200 
•'GOTO 250 
195 REM WYPISANIE DZIAŁANIE 
200 POSITION 0,2 'PRINT #6; ASPOSITION 1,2 
205 PRINT #6; J; " "iOP#;" X * "ii 
210 C*1 REM WSKAŹNIK TYPU DZIAŁANIA 
215 GOTO 300 

250 POSITION 0,2 'PRINT #6; A* POSITION 1,2 
255 PRINT #6. ' "X "iOP*)" "iJ> M » "ił 
260 C*2 

295 REM POBRANIE WYNIKU 
300 POSITION 0,10 

305 PRINT #6; "podaj wartość x "i 

310 LK-0IC=0' POSITION 17,10 

315 IF PEEKC 764 >0255 THEN 330 

320 REM OCZEKIWANIE NA WCIŚNIĘCIE KI 

325 GOSUB 2328 GOTO 315 

330 GET #2, K ' IF K=155 THEN .380 

335 REM KONTROLA. POPRAWNOŚCI 

340 IC=IC+1 ' IF 103 THEN 300 

345 IF K<48 OK K>57 THEN 300 

350 PRINT #6,CHRS<K>; 

355 REM OBLICZANIE WARTOŚCI LICZBY 
360 LK*10*LK+K-48 
370 GOTO 315 

375 REM ANALIZA ODPOWIEDZI 
380 POSITION 0,10 PRINT #6iA* 


dokończenie na str. 26 


zrobić 


i 


dokończenie ze str. 25 

385 POSITION 1,2' PRINT #6;A$ 

390 POSITION 1.2^ IF c=2 THEN 405 
395 PRINT #6i Jj " ";OP*.'" ";X; " = "il 
400 GOTO 415 

405 PRINT #6;X;“ ";OP*," ">J;" = ";I 

410 REM SPRAWDZENIE POPRAWNOŚCI 

415 IF LK=X THEN 500 

420 REM ODPOWIEDZ NIEPRAWIDŁOWA 

425 L=L-1 ' IF L<1 THEN 460 

430 POKE 712.53 ' POKE 708.250 

435 GOSUB 2500: REM RUCH W LEWO NA ZMIENIONYM TLE 

440 FOR N=1 TO 5: GOSUB 2300 ' NEXT N 
445 POKE 712. 250: POKE 708.50 
450 GOTO 105 

455 REM D W O J A KONIEC GRY 
460 POSITION 1.8: PRINT #6; "2" 

465 GOSUB 2300: PRINT #S; CHR$< 125) 

470 POSITION 1.3 

475 PRINT #6; "MUSISZ JESZCZE" 

480 POSITION 3.5 

485 PRINT #6; "POPRACOWAĆ" 

490 GOTO 1000 

495 REM ODPOWIEDZ POPRAWNA 

500 L=L+1:IF L> 19 THEN 520 

505 GOSUB 2400: REM RUCH W PRAWO 

510 GOTO 105: REM NASTĘPNE DZIAŁANIE 

515 REM OSIĄGNIĘTĄ PIĄTKĄ 

520 POSITION 18. 8: PRINT #6; "5" 

525 GOSUB 2300: GOSUB u 50 
530 PRINT #6;CHR$(125> 

535 POSITION 2. 3 'PRINT #6; "B RAWO" 

540 FOR N=1 TO 3 'GOSUB 2300 ' NEXT N 
545 PRINT #6;CHR$<125> 

550 REM USTAWIENIE PARAMETRÓW NASTĘPNEJ CZĘŚCI 

555 P=P+1 ' D=D+2 ' L=5 ' MS=90 
560 GOTO 65 

895 REM P I A T K A KONIEC GRY 
900 PRINT #6; CHR$< 125) 

905 POSITION 5.3 

910 PRINT #6; "WSPANIALE ZNASZ" 

915 POSITION 2.5 

920 PRINT #6;" MATEMATYKĘ" 

1000 GOTO 1000 

1145 REM SYGNAŁ DŹWIĘKOWY 

1150 FOR X=1 TO 3 

1155 SOUND 0.82. 10. 8 'GOSUB 2300 

1160 SOUND 0.0. 0.0 'GOSUB 2301 

1165 NEXT X 

1170 SOUND 0.103,10.8 

1175 GOSUB 2300 'GOSUB 2300 

1180 SOUND 0,0, 0,0 

1185 FOR N=1 TO 5 'GOSUB 2300 'NEXT N 

1190 RETURN 

2200 REM POCZĄTEK PROGRAMU 
2205 M=PEEK<106>-16' GRAPHICS 18 
2210 POKE 712, 250 'POKE 708,50 
2215 POKE 709,176 

2228 POKE 559, 62 'POKE 54279, M 
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2225 POKE 106, M' POKE 53277,3 

2230 REM DEFINIOWANIE PLAYERA PL 

2235 POKE 704+PL, 160 -POKE 53256+PL,2 

2240 S=M*256+1024+PL*256 

2245 REM TWORZENIE OBRAZU PLAYERA 

2250 RESTORE 2275+PL 

2255 FOR L=150 TO 170 

2260 READ B'POKE S+L,B 

2265 NEXT L 

2270 RETURN 

2275 DATA 16,56,56,56,16,124,254, 186, 186,186, 186, 16,40,40,40,40,40,108,0,0,0 

2276 DATA 8,28,28,28,8,62,93,93,93,88, 158,8,20,36,68,36, 100,12,0,0,0 

2277 DATA 16,56,56,56,16,56, 124, 186, 170, 186, 121,16,40,36,34,36,38,48,0,0,0 

2278 DATA 8,28,28,28,8,28,28,28,28,28,28,28,28,8,8,8,8,8,0,0,0 

2300 FOR T=0 TO 100-NEKT T : RETURN 

2301 FOR T=0 TO 15'NEXT T' RETURN 

2315 REM TUPANIE NOGA ZMIANA WARTOŚCI W OBRAZIE PLAYERA 

2320 S=M*256+1024+166 

2325 POKE S,PEEKCS)+128 

2330 GOSUB 2301 1 GOSUB 2301 

2335 POKE S, PEEKCS1-128 

2340 GOSUB 2301 

2345 RETURN 

2390 REM R U C H POWSTAŁY PRZEZ WYMIANĘ PLAYERÓW 

2395 REM RUCH W PRAWO 

2400 POKE 53248, 1 ' GOSUB 2301 ■ ILK=0 

2405 ILKULK+1 ' IF ILK=8 THEN 2435 

2410 MS-MS+1 

2415 POKE 53251 , 1 ! POKE 53250, MS 
2420 GOSUB 2301 

2425 POKE 53251, MS -POKE 53250,1 

2430 GOSUB 2301 'GOTO 2405 

2435 POKE 53251,1 'POKE 53248, MS 

2440 RETURN 

2495 REM RUCH W LEWO 

2500 POKE 53248,1 'GOSUB 2301 ' ILK=0 

2505 ILK=ILK+1 ' IF ILK=8 THEN 2535 

2510 MS=MS-1 

2515 POKE 53251,1 'POKE 53249, MS 
2520 GOSUB 2301 

2525 POKE 53251, MS 'POKE 53249,1 
2530 GOSUB 2301 'GOTO 2505 
2535 POKE 53251,1 'POKE 53248, MS 
2540 RETURN 


JANUSZ MILLER 
SHARP PC- 1500 
WIATRAKI 


10: BEEP 10, 100, 10 
0 

20: "A" : CLEAR : 

. USING : RADIAN 

30: INPUT "ILE WIA 
TRAKÓW ? N="jN 
: N=ABS N: IF N< 
3GOTO 10 

40: INPUT "KOLOR ? 
U=" i U: U=ABS U 
: U=INT U: IF U> 
3G0T0 10 

50: INPUT "MNOŻNIK 
? M=";M:M=ABS 
MUF M=0GOTO 1 
0 


60: GRAPH :LINE -< 
0, 01-C100, 0), 3 
: SORGN 

70: R=M: IF R>60LET 
M=M-1 : GOTO 70 

80: S=JV(4XN) : D=Rz 
(2*N) : DIM W (6, 
2 ) 

90: U-U-l : IF U< 1 
LET U=1 

100: FOR L=1T0 N 
110: T=0: U=U+1 : IF U 
>3LET U=U-3 
120: FOR KUTO 6 
130: WCK, l)=R*COS < 
T+F) 

140: WCK, 2)=R*SIN C 
T+F 1 : T=T+Jl/3 
150: NEXT K:COL0R U 
160: FOR KUTO 6 


170: IF K=^OR K=40R 
K=6G0T0 230 

180: X=WCK, 1 ) : Y=W(K 
, 2 ) 

185: IF L>1 THEN 

LINĘ -C0, 0)-<X 
, Y>, 9: GOTO 200 

190: LINĘ -(0, 0>-<X 

, Y), 1 

200: P=K+1 : IF P>6 
LET P=P-6 

210: A=UKP, 1 ) : B=W<P 
, 21 : LINĘ -CX, Y 
>-<A, BI, 1 

220: LINĘ -CA, B1-C0 

, 0 ), 1 

230: NEXT K:F=F+S:R 
=R+D 

240: NEXT L: TEXT : 
END 



W 
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Sztuki i sztuczki (3) 


EKRAN GRAFICZNY 


COORD 23677/8 

Obszar ekranu zajmuje w 
Spectrum 6912 bajtów (adresy 
16384.. 23295), przy czym ostat- 
nie 768 bajtów jest przeznaczone 
na atrybuty. W trybie graficznym 
ekran tworzy sieć punktów o ar- 
chitekturze 192 linie na 256 ko- 
lumn, lecz dla BASICa dostęp- 
nych jest 176 linii, gdyż pominię- 
to część edycyjną ekranu. Po- 
mimo dobrych algorytmów pro- 
cedury graficzne nie są pozba- 
wione drobnych, lecz utrudnia- 
jących życie elementów. Szcze- 
gólną krytyką darzą wszyscy 
sposób przekazywania parame- 
trów do instrukcji DRAW. 

Z chwilą włączenia komputera oraz 
po rozkazach RUN. CLEAR. NEW i CLS 
punkt kursora graficznego ma współ- 
rzędne (0. 0). Spróbujmy stworzyć 
funkcję ustawiania pozycji tego kurso- 
ra podobnie, jak to ma miejsce w Ams- 
trad — BASIC (rozkaz MOVE). Wyko- 
rzystamy niestety jedyne, graficzne 
zmienne systemowe COORD, Adres 
„23677 trzyma kolumnę ostatnio posta- 
wionego punktu (współrzędna x), zaś 
23678 Imię (współrzędna y). 

200 FOKĘ 23677, xi FtDKE 23678, y 
t RETURN 

Muy przesunąć Kursor do pozycji np. 
(80. 1 00) wczytujemy: 

LET x = 80: LET y = 1 00 : GOSUB 200 

Oczywiście punkt ten nie będzie 
„zapalony" w przeciwieństwie do ins- 
trukcji PLOT 80,100. 

Rysowanie linii szczególnie począt- 
kującym nastręcza wiele kłopotów. Le- 
piej przecież podać współrzędne punk- 
tu. w którym linia będzie zakończona 

300 DRAW x- PEEK 23677, y- PEEK 

236781 RETURN 

PrzyKłaoowo, aby narysować Imię od 
punktu (10. 15) do punktu (200, 75) 
wczytujemy: 

10 LET x-10i LET y-l3s GOSUB 2 
OO 

20 LET x-200i LET y«73i GOSUB 
300 

Innym sposobem rysowania linii jest 
wykorzystanie współrzędnych biegu- 
nowych, jak to ma miejsce w LOGO. 
Należy ustalić azymut w stopniach i 
podać długość linii w punktach. Oto 
podprogram: 


400 IF ABS azymut >360 THEN RET 
URN 

410 PLOT PEEK 23677, PEEK 2367 
8 

420 DRAW np* SIN <azy«ut* PI / 
180), np* COS (azymut* PI /180) 
430 RETURN 

Parametry podajemy następująco: 
LET azymut = 45: LET np. = 100: 
GOSUB 400 

Symulacja komend LOGO: prawo i 
lewo. nie powinna teraz nastręczać 
trudności. 

Powróćmy jeszcze do problemu bra- 
ku możliwości stawiania punktów w 
dolnych liniach ekranu i nauczmy 
komputer Zakładamy, że numery do- 
datkowych linii graficznych będą od 
0 do 1 5, przy czym punkt (0, 0) będzie 
w lewym, górnym rogu prostokąta edy- 
cji Stawianie punktów umożliwi nam 
procedura w języku wewnętrznym 280 
o identyfikatorze EDIT— PLOT zapisana 
pod assemblerem GENS3M21 : 


5 r edit-plot *86 
1® ORG 

2 ® 

3® 



CP 

JR 

R8T 

DEFB 

AND 

ADD 

LD 

LD 

LD 

CP 


61®®® 

HL r (23677) 
ArH 
16 

C » NOERR 


A f H 
E r 192 


AND 

RRCA 

RRCA 


ArL 

248 


2®® 


RRCA 


210 


ADD 

ArE 

22® 


LD 

Et A 

230 


LD 

ArL 

240 


AND 

7 

250 


LD 

BrA 

260 


INC 

B 

27® 


X0R 

A 

280 


SCF 


290 

NRBIT 

RRA 


30® 


DJNZ 

NRBIT 

310 


EX 

DErHL 

320 


BIT 

lr (IY+87) 

33® 


JR 

NZrOUERl 

360 


OR 

(HL) 

365 


LD 

(HL) rA 

370 


RET 


300 

0UER1 

X0R 

(HL) 

385 


LD 

(HL) rA 

39® 


RET 



linia 20 — wydobycie współrzędnych 
punktów z COORD; 
linie 30—40 — współrzędna y nie może 
przekroczyć 1 5: 

linie 50—70 — błąd, jeśli przekroczyła, 
linie 80—220 — wyszukanie bajtu na 
ekranie, w którym punkt będzie posta- 
wiony; 

linie 230—310 — wyszukanie numeru 
ustawionego bitu; 

linie 320—330 — czy tryb OVER 1 — 
skok,, jeśli tak; 

linie 360—370 — wydruk punktu w try- 
bie normalnym; 

linie 380—390 — wydruk punktu w try- 
bie OVER 1 ; 

Aby skorzystać z procedury zasto- 
sujmy podprogram 

300 POKE 23677, xi FOKĘ 23678, y 
510 IF USR 61000 THEN 
520 RETURN 

Narysowanie linii prostej wygląda 
następująco: 

10 FOR a*0 TO 255 
20 LET x»ai LET y-15 
30 GOSUB 500 
40 NEXT a 

50 GOTO 50« REM obrona przed r 
aportem 

Procedura EDIT— PLOT uwzględnia 
tryb OVER, jeśli go włączymy. W na- 
stępnym numerze jeszcze o ekranie... w 

Krzysztof MAMCARZ 
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Dysponując chwilowo wolnym czasem oraz kompute- 
rem. zespół robotów, kierowany przez pracowitego Spek- 
trusia. postanowił założyć komputerowy system matrymo- 
nialny. żeby ułatwić ludziom wybór partnera lub partnerki 
Roboty zachwycone były tym pomysłem do tego stopnia, 
że nie brały pod uwagę ewentualności, iż kiedykolwiek ktoś 
może mieć z tego powodu do nich pretensje. 

Przezorny Spektruś od początku miał jednak wątpliwg 
ci Koncepcja, że maszyna dostarczać będzie- 
męża jego zdaniem zniechęcała do 
skoro pretensje będzie można rr^t K-Wi^rlkroproceso 
rów i programu A jak «jdco^l||nfc?rA jak zabraknie 
części zamiennych? A jal?Wylączą prąd? A jak coś nawa 
li 9 Trzeba będzie przepraszać, a co gorsza przez lata wy 
słuchiwać wyzwisk: ty tranzystorze skubany! 

Mimo Spektrusiowych wątpliwości system ostatecznie 
uruchomiono, a pierwszym efektem jego pracy było skoja 
rżenie 72-letniego kawalera, który chciał udowodnić, ż< 
stary człowiek może z 80-letnią panienką, która zapomnia 
la już, o co mu chodzi, a ponadto była głucha 


Odpowiednia reklama zapewniała przedsięwzięciu popu- 
larność i powodzenie, jednak do komputerowej firmy ma- 
trymonialnej zaczęły napływać spostrzeżenia, propozycje i 
sugestie, wśród których przewyal*^ koncepcje całowa- 
nia w różne miejsca i jes^f^^ąlfwyrafinowanych pie- 

Ltf jt^iKp^Jtruś. widzący jasno swą powinność 
p\Jow<Mc bezkomputerową, wieloliczydlową firmę 
vodową. „żeby była jakaś całość". 

W komputerlandzie znowu wszyscy mają pełne ręce ro- 
boty. Podnladał EUGENIUSZ MLECZAK 



UŻYTKOWNICY PAMIĘCI EPROM! 


ZPAE „INCO” Wrocław oferuje: 

• programator pamięci EPROM typ PPE-1 

• kasownik pamięci EPROM typ KPE-1. 

Zalety programatora: 

• przyłączany do mikrokomputera ZX Spectrum stuży do 
programowania pamięci EPROM typ 2716/2732/ 

2732A/27.64/271 28/27256 

• umożliwia programowanie pamięci, czytanie zawar- 
tości, kontrolę zaprogramowania i kasowania oraz 
łatwe przeniesienie danych z jednego EPROM-u do in- 
nego (również różnych typów). 

• program obsługujący programator napisany jest w ję- 
zyku maszynowym mikroprocesora Z80 i umieszczony 
w pamięci stałej programatora 

• dane do zaprogramowania można przesłać z zewnątrz 
w sposób równoległy lub szeregowy 

Na życzenie progfamator może być przystosowany do innego typu mikrokom- 
putera (Armstrad. Meritum. Commodore). 

Zalety kasownika: 

• szybki czas kasowania 

• możliwość jednoczesnego kasowania 6 szt. EPROM-ów 

• nastawny czas kasowania 0—60 min. 


Cena programatora: 79 500 zł 
Cena kasownika: 39 000 zł 

Zamówienia przyjmuje: 
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REDAGUJ 
RAZEM Z NAMI! 


Z pewnością każdy z Was przeszedł 
dziesiątki labiryntów, stoczył sporo walk 
z kosmitami, czy też pędził po niejed- 
nym torze wyścigowym. Prędko też za- 
uważyliście. że wiele gier jest do siebie 
podobnych i szybko nudzą. Zatem pro- 
ponujemy byście razem z nami reda- 


gowali namiastkę listy przebojów, a 
właściwie tych programów, które naj- 
chętniej ładujemy do naszego „Atari". 
Ponieważ niewielu z nas ma stację dy- 
sków — umawiamy się tylko na pro- 
gramy kasetowe Uwzględniamy tylko gry 
komputerowe i programy użytkowe. 


Odpadają w przedbiegach te, które 
zamiast bawić i uczyć, drażnią swą 
agresywnością lub noszą znamiona 
hazardu 

Płoponujemy skalę ocen od 1—10, 
przy czym ocena końcowa nie jest 
średnią arytmetyczną Decydują też 
walory szczególne programów. A więc, 
rozpoczynamy zabawę od typów Pawła 
listopad'86. Zapewne macie lepsze. 
Czekamy 1 

O ile gier na „Atari" jest już około 500 
— gorzej z programami użytkowymi 
Posiadacze DOS-ów mają większe 
szanse Ja polecam na razie „Statysty- 
kę" i „Elektrownię atomową" w wydaniu 
polskim, choć szkoda, że za wygóro- 
waną cenę — studio komputerowe nie 
zdobyło się na oryginalność i progra- 
my te przypominają do złudzenia pew- 
ne starocie, jak chociażby „SCRAM" - 
Symulator Reaktora Jądrowego Ale, 
lepsze to niż nic. 

Nadal dobrą zabawą jest „Magie 
Painter" z bogatym menu — pozwala 
jącym na komputerowe malarstwo — 
prawie w całym tego słowa znaczeniu. 

Życzę przyjemnej zabawy. 


NA 32 KOLUMNACH 

Poniższy program pozwala na 
wprowadzenie istotnych modyfika- 
cji w obszarze ekranu i Display List 
— zarządzających generacją obrazu 
na monitorze. Jason Grant ułożył 
„pięciolinię", która daje Ci nowe 
możliwości w porównaniu z edyto- 
rem tekstu. Trochę „żonglerki” 
POKE-ami, a efekt widoczny będzie 
w postaci 32-kolumnowego edytora 
ekranu w zerowym trybie grafiki. 
Przekonaj się sam: 


19 Fftt 82,9: POKC 81,Xl:ClttNXCS 9:95= 

PEEK (99) *PCEK (99) *259 : 91=1539 

29 FM 1=1519 T9 1S18:P0KE 1,112: IIEKT 

I:FM 1=1 T9 24IP0KE 9L,86 

19 POKE 9L+2,XMT (95/259) :P0KE 9LM.9S- 

259*PEEK CM *2) : 95=99*49 

49 9L=9L+l:NEXT IlPOKE S59,X1:P0KE 9L* 

2,9 

59 POCĘ PLL , 95 : P9CE 91*1, 9 I FOKĘ 599,91 
FOKĘ 591,9 


NOWE URZĄDZENIE 

Jeżeli posiadasz już „Atari" oraz 
współpracującą z nim drukarkę — 
pomyśl o elektronicznej maszynie 
do pisania Nowy wydatek? — ależ 
nie. Wystarczy pięcioliniowy 
program by Twój komputero- 
wy keyboard spełniał funkcję 


Pozycja 

Nazwa i rodzaj 
programu 
(producent i data) 

Grafika 

Dźwięk 

Tl 

s 

PC 

5 

I 

W- 

o» 

Szczególne wartości żaba 
wowe, edukacyjne i inne 

Ogólna ocena i 

1 

„Spy vs Spy" — cz II 
„Walka szpiegów" — 
cz. II 

gra przygodowa 

10 

8 

10 

Gra na 2 joysticki Wymaga- 
ne logiczne myślenie i zdol- 
ność podzielnej uwagi oraz 
szybkięgo kojarzenia szcze- 
gółów Dodatkową atrakcją 
piękna grafika trójwymiaro- 
wa. Dużo emocji. 

9 

2 

„The Last V-8" 
„Ostatnie V-8" 
gra zręcznościowa 
Mastertronic 1985 

9 

10 

• 

7 

Dojechanie samochodem do 
bazy przed upływem czasu, 
wymaga mistrzowskiego opa- 
nowania joysticka. Doskona- 
ły podkład muzyczny. Wyra- 
bia refleks. — 6 pkt 

9 

3 

„Sega’s Spy Hunter” 
gra przygodowa 
U.S. Gold 

8 

8 

8 

Kto zna scenerię i dynamikę 
przygód Jamesa Bonda — 
ten wie już o co chodzi. Szyb- 
ka akcja z dreszczykiem, 
samochodami, motocyklami, 
motorówką etc. Wyświetlane 
są komunikaty. — 6 pkt. 

8 

4 

„Montezuma's Re- 
venge" (Zemsta Mon- 
tezumy) gra labiryn- 
towo-przygodowa 
Utopia Software 83 

9 

6 

10 

Pasjonująca gra. w której 
stawką są zaklęte skarby 
wodza Azteków. Sceneria ko- 
responduje z wyobrażaniem 
o azteckich labiryntaci czy- 
hających w nich niespo- 
dziankach. — 8 pkt. 

8 

5 

.Hacker" 
(Komputerowy 
gangster) 
Activision 1985 
gra strategiczno- 
- przygodowa 

6 

4 

10 

Sensacyjna przygoda ze 
skompletowaniem planu 

„Magma" Aktywny udział w 
grze, wymagana podstawo- 
wa znajomość angielskiego i 
geografii stref czasowych. 
Uczy logicznego myślenia 

7 
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Pocztowa giełda 

Rozwiązanie krzyżówki z „IKS-a” nr 6 

Hasło brzmi: „PRZYPOMINAMY O PRENUMERACIE 
IKS-a". Bony pieniężne (1000 zł) wylosowali: Paweł Dąbro- 
wski — Łódź, Łukasz Fołtyn — Radom, Danuta Jagiełłą — 
Wrocław, Maciej Śliwiński — Konin, Bogusław Trzeciak — 
Milicz. 

Nagrody książkowe otrzymują: Ewa Colur — Będzin, 
Janusz Hełpa — Wolsztyn, Krzysztof Grabacki — Kraków, 
Wojciech Pilski — Gdańsk, Wiesława Kurczak — Waliszew, 
Antoni Rudź — Sokółka, Barbara Bańska — Ostrzeszów, 
Waldemar Jaróg — Nowy Targ, Paweł Hamerlik — Dąbrowa 
Górn., Adam Darda — Świętochłowice. 

Prosimy o podanie dokładnego adresu Piotra Burka z 
Kamiennej Góry, który wylosował nagrodę książkową za 
prawidłowe rozwiązanie krzyżówki z nr. 2 IKS-a". 



PILNE! Zakupię następujące materiały firmy SHARP: 

1. pisaki czarne nr EA-850 B; 

2. pisaki barwne nr EA-850 C; 

3. papier (rolki) nr EA-1500 P. 

Wiadomość: pisemnie pod adresem redakcji. Telefo- 
nicznie: 22-65-93 (Warszawa) Janusz Miller 

Kupię — klawiaturę lub folię pod klawiaturę do 
ZX 81. Michał Pracel, ul. Bosmańska 28/12. 
81-116 Gdynia 


Odpowiedzi na zadania „Ligi Myślących" z 5 numeru „IKS-a" 
Zadanie 1: 

Niech pierwszy robotnik kopie rów w czasie t t . a drugi w czasie ł 2 
Z treści zadania wynika, ze cały rów robotnicy wykopali w ciągu 
12 godzin, stąd w ciągu godziny wykopali następującą część ro- 
wu: 


— L + -L. = i 

t ; t? 12 

Gdyby pierwszy robotnik sam wykonał połowę pracy, a drugi resz- 
tę to wykopaliby rów w czasie 25 godzin, stąd 


A więc otrzymujemy układ równań 

f 1 ■ + 1 - = - 1 

1 t, T 12 

t t + t, = 50 

Rozwiązując powyższy układ równań otrzymujemy dwa rozwiąza 
nia 

t, = 30 lub t, = 20 

a stąd ta = 20 lub ta = 30 

Odpowiedź Wykonując pracę samodzielnie, jeden z robotników 
kopałby rów przez 20 godzin, a drugi przez 30 godzin 

Zadanie 2 


Kupię schemat ideowy mikrokomputera ZX Spectrum 
48 K. Jacek Zieliński, ul. Bieruta 8/7 11-100 Lidzbark 
Warmiński woj. olsztyńskie 

Sprzedam ZX Spectrum 48 K. Joanna Piotrowska, ul. 
Kniewskiego 25/5, Poznań 

Kupię Commodore VIC 20. Adam Rusin, ul. Reja 11/36, 
43-300 Bielsko-Biała 


W zadaniu tym należało obliczyć ilość lat matematyka greckiego, 
nazwanego w średniowieczu ojcem algebry" Diotantosa Ozna- 
czmy przez x — długość życia Diotantosa 
Z treści zadania możemy ułożyć następujące równanie 


x + -1 x + 5 


stąd: x = 84 

Odpowiedź: Diofantos zmarł mając 84 lata 


dokończenie ze str. 30 
klawiatury'nowoczesnej maszyny do 
pisania. Spróbuj! 

Gdyby w pisaniu tekstów przesz- 
kadzał Ci kursor, możesz „schować" 
go; wpisując instrukcję: POKE 752, 1. 

Teraz już możesz napisać do nas 
na swojej nowoczesnej maszynie. 
Powodzenia! 


lf Mim CHR$ (125) :0PEN ttl,4,9 > "K:" 
29 OPER R2,9,9,”P: M 
39 OPER R3,9,9, N S:» 

49 FOR 60=9 TO 1 STEP 9: SET 81, K 
59 PUT tt2,K:PUT ai,K:60T0 49 


I jeszcze ciekawostka. Jak podaje. 
„Atari User" — który program opub- 
likował — autorami tej praktycznej 
..pięciolinii'' są uczniowie 5 klasy 
szkoły podstawowej. A może okażesz 

się lepszy od nich Pogłówkuj"! 

Kolumnę opracował: 

Paweł Kowalewski uczeń XIV LO im. 
K. Gottwalda w Warszawie. Wyko- 
rzystano teksty z „Atari User" nr 
4/86 



Ry*. M. Przybyłowski 
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KRZYŻÓWKA NOWOROCZNA 



POZIOMO: 1-A komputer jej nie ma, 1-L krąży wokół jądra. 

4-A synonim nawałnicy, 4-1 część przedstawienia, 4-N rodzaj 
nadwozia samochodu osobowego. 6-A tyqodnik zmotoryzo- 
wanych, 6-N namiestnik, 8-A architekt japoński — realizował 
„Expo-70”, 8-N skrzydlaty koń 10-A rodzina chrząszczy, 10-N 
miasto woj. nad. rz. Mleczna, 12-B. lód w kawałkach, 12-0 je- 
den z trzech w trójkącie, 14-A gra zręcznościowa, 14-N miasto 
we Włoszech, 16-A aparatura do sondowania jonosfery, 16-K 
często kończy się bólem brzucha, 19-A Nazwa pierwszego pa- 
rowozu; 19-1 struś..., 19-Ł polonijne przedsiębiorstwo kompu- 

,e ' BWe ' DOSI E 6 <9 £ O k 

Hasło: £f, 4-S, 16-E, 17-F, 14-P, 17-L, 19-M, 14-N, 4-A, 12-R, 1-D 

Rozwiązania (tylko hasło) należy przesyłać pod adresem redakcji do końca stycznia 1987 r. Wśród czytelników rozlosujemy 
bony pieniężne i nagrody książkowe. 


PIONOWO: 1-A nauka o przetwarzaniu informacji, 1-D zjedno- 
czenie, 1-F podobno się zdarza, 1-H imię żeńskie, 1-L miasto w 
woj. suwalskim, 1-M miasto w Holandii, 1-0 świątynia buddyj- 
ska w Japonii, 1-S, gwiazdy o największych rozmiarach i jas- 
ności, 2-J 1987, 4-E państwo w Europie, 4-N park rozrywki, 
8-C chorwacki pisarz (1876-1949), 8-P na tarczy herbowej, 13-A 
srebrna moneta 13-E, produkt węgla, 13-N stragan, 13-S imię 
męskie, 16-D szpilkowate kości, 16-F Międzynarodowa Orga- 
nizacjia Radia i Telewizji, 16-H zanieczyszcza atmosferę, 16-L 
tytuł oficerski w dawnej Turcji, 16-M Stan w USA, 16-0 lubi im- 
ponować, 17-J pamięć w komputerze. 


„IKS” — dodatek „Żołnierza Wolności”. Redagują: Wiesław Cetera (kierownik zespołu), Ryszard Rogoń. Stali współpracownicy: 
Włodzimierz Cogołek, Krzysztof Mamcarz, Ireneusz Miernik, Janusz Miller, Michał Przybyłowski, Jacek Szaniawski. Adres redakcji: 
00-950 Warszawa ul. Grzybowska 77, telefon centrali 20-12-61 w. 486. Rękopisów nie zamówionych redakcja nie zwraca i zastrzega 
sobie prawo do skrótów. Nakładem: Wydawnictwa „Czasopisma Wojskowe”, Warszawa ul. Grzybowska 77, Fotoskład i druk roto- 
grawiurowy — Wojskowe Zakłady Graficzne im. gen. dyw. A. Zawadzkiego. Nr zam. 8325. Nr ind. 382809 P-82 






Noworoczne życzenia, które Wam 
składaliśmy, są oczywiście życze- 
niami i dla nas — mamy nadzieję, że 
nadal pozostaniecie naszymi Czy- 
telnikami. 

Zmieniliśmy winietę. Czy będzie 
się podobać? Chociaż oczywiście 
nie ona jest w „IKS-ie" najważniej- 
sza. A co wewnątrz? Przede wszyst- 
kim więcej programów, krótkich, in- 
teresujących i coraz lepszych. Już 
dziś zapowiedzieć możemy specjal- 
ne wydanie „IKS-a", tylko z progra- 
mami — w kioskach powinno się 
znaleźć jeszcze w pierwszym kwar- 
tale. Będą to programy oryginalne, 
nigdzie dotychczas nie publikowa- 
ne, przeznaczone na najpopular- 
niejsze komputery, a napisane w 
Basicu i Pascalu, których naukę 
rozpoczęliśmy w ubiegłym roku. 

Wśród opublikowanych, progra- 
mów znajdą się również samodziel- 
ne prace naszych Czytelników, pro- 

Komputer czeka 
na Ciebie! 

Chcesz być jego posiadaczem, to 
odczytaj treść ukrytą pod postacią 
ciąou znakć .«.■ 

OYs 2*> "zNr> 
dUiKlr !SzN"*o!7N 
dP^JwsYuA*"/ PsN 
d0pU+«zT*" ! ~ijqcN 

Zt •• • 1 n, uiukar- 

ce mak $ 

Afe uwaga! Jest to zbiór znaków ko- 
du ASCII zastosowanego w kompute- 
rze Spectrum. Kod ten choć określony 


gramy sprawdzone, dobre. Nadal 
czekamy na Wasze propozycje. 

Na łamach „IKS-a" nadal publi- 
kować będziemy wykłady (choć to 
raczej odstraszające słowo), Pasca- 
la, Basica — w zmienionej nieco 
formule. Więcej też będzie informa- 
cji o tym, jak lepiej wykorzystywać 
posiadany sprzęt i to zarówno pod 
względem programowym (software) 
jak i sprzętowym (hardware). To 
wszystko już od pierwszego nume- 
ru. 

I jeszcze jedno: w ubiegłym roku 
do rąk Czytelników trafiło osiem 
numerów „IKS-a”, razem 1 600 000 
egzemplarzy. W tym roku wydamy 
12 numerów, które, jak obiecuje 
drukarnia, trafiać będą do kiosków 
regularnie co miesiąc. 

Życzymy przyjemnej lektury i po- 
żytecznej zabawy. 

REDAKCJA 


jest międzynarodową normą różni się w 
kilku miejscach w zależności od tego, 
w jakim sprzęcie został zastosowany. 
Na przykład ta sama treść zakodowana 
przez mikrokomputer Sharp ma postać: 

0Ys 2*)"zNr)x$5s 
dU!Klr!#zN"#o!7N 
dPM$$Yu4, V PsN 
d0pU+$zT*" ! -yqcN 
Nietrudno dostrzec drobne różnice. 
Teraz do dzieła. Szukamy klucza. Dla 
ułatwienia podajemy: nasz klucz ma 
szesnaście znaków i jest nim data 
zapisana w międzynarodowym sy- 
stemie: 


To była okazja 

W radiowym studiu 20 stycznia spot- 
kali się przedstawiciele redakcji 
wszystkich pism komputerowych. Był 

„Komputer", był „Bajtek" i „IKS”. 

Gospodarzem byli dziennikarze „Ra- 
diokomputera". 

Spotkanie trwało godzinę Słu- 
chacze, ale tylko ci, których późna pora 
emisji (22.50 — 23.50) nie odstraszyła, 
byli świadkami wymiany jedynie kur- 
tuazyjnych zwrotów, z których nic 
konkretnego nie wynika. Tymczasem 
wiemy z pewnością wszystkie pisma 
ukazywać się będą nadal, a o ich 
kształcie w dużym stopniu zadecydują 
Czytelnicy.' 

Wiesław CETERA 


DATA: RRRR.MM.DD. 

(np. DATA:1410.07.15 — bitwa pod 
Grunwaldem, który to zapis nie jest 
oczywiście poszukiwanym kluczem)' 
Na czym polega szyfrowanie i odczy- 
tywanie tajnopisów przeczytacie 
poniżej. Aby odczytać nasz tajno- 
pis nie jest potrzebny komputer — 
wystarczy kartka papieru i ołówek. 

W następnym numerze dla tych. któ- 
rym nie udało się znaleźć klucza i od- 
czytać zakodowanej informacji poda- 
my bliższe informacje o kluczu. Roz- 
wiązanie konkursu już w maju. 

Na zwycięzcę czeka komputer. 
Zatem do dzieła. 


TYLKO DLA 
WTAJEMNICZONYCH 


Ten „nieczytelny" tekst można przesłać zwykłą pocztą. 
Treść kryptogramu może zrozumieć tylko upoważniony, a 
więc taki odbiorca, który ma klucz szyfrowy. 

A oto metoda deszyfracji 


Każda publikacja (a więc i ta) jest ogólnodostępna. 
Ten numer „IKS-a" każdy może kupić i przeczytać. Są 
jednak informacje przeznaczone tylko dla upoważnio- 
nych. Jak je przesyłać? W zwykłej papierowej koper- 
cie? Przez kuriera? Jak to chronić? Problem ten (w du- 
żym stopniu) rozwiązuje znana od 50 lat technika 
szyfracji. 

SZYFRACJA polega na takiej zmianie formy, aby treść 
była możliwn do zrozumienia tylko przez osobę upoważ- 
nioną. Zmiana formy zapisu (zwykle) polega na tym, iż 
dany jest zapis tekstu zastrzeżonego. Klucz szyfrowy oraz 
metoda zmiany formy zapisu (czyli METODA SZYFRACJI I 
DESZYFRACJI) znane są nadawcy i upoważnionemu 
odbiorcy-. 

Nasza metoda szyfracji jest następująca: 

1 . pobieramy KOLEJNY znak TEKSTU. 

2. pobieramy KOLEJNY znak KLUCZA. 

3. wykonujemy „DODAWANIE ZNAKÓW". 

4 „SUMA" jest KOLEJNYM znakiem KRYPTOGRAMU. 

KRYPTOGRAM ma tę samą treść co tekst, lecz 
FORMA jego jest taka, iż treść JEST NIEZROZUMIA- 
ŁA dla osoby nieupoważnionej. 


1 . pobieramy koleiny znak kryptogramu. 

2. pobieramy kolejny znak klucza. 

3. wykonujemy „ODEJMOWANIE ZNAKÓW". 

4. „Różnica" jest kolejnym znakiem odtworzonego tekstu. 
A cóż to jest „dodawanie" czy „odejmowanie, znaków"? 

Czyli jak szyfruje komputer? 

DO szyfracji nadaje się każdy (duży) komputer, zaś mikro- 
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komputer tylko taki, który ma dwie cechy: 

— posługuje się kodem ASCII 

— wykonuje operacje znakowe. 

Rysunki la i Ib podają tablice międzynarodowego kodu 
ASCII, la to wersja wykorzystana przez firmę SHARP, zaś 
Ib to kod ASCII zastosowany w „poczciwym" Spectrum. 
Kod ten polega na tym, iż każdemu znakowi (każdej literze, 
każdej cyfrze, każdemu symbolowi) odpowiada jeden nu- 
mer kodu (ten jest zwykle podawany w postaci zero-je- 
dynkowej, my przyjęliśmy dziesiętną). 

1. ASC "A" ( ENTER ) 65 

2. CHRg 65 ( ENTER ) A 

3. A$ = "123ABC"d^|R) 123ABC 
LEFTg |Ag,4l ( ENTER ) 123A 

4. RIGHTg (Ag,4) ( ENTER ) 3 AB C 

5. LEN Ag ( ENTER ) 6 

6. Bg = "WAC": Cg = ”12 3 4 " 

Bg = Bg» Cg ( ENTER ) WAC-1234 

7. Og = " " ( ENTER ) 

LEN Og ( ENTER ) 5 

Uwaga: __ oznacza od&typ 

Rys. 2 

Rysunek 2 podaje wykorzystane operacje znakowe: 

1 ) przetworzenie znaku na numer kodu ASCII, 

2) przetworzenie numeru na znak, 

3) wyodrębnienie 4 kolejnych znaków licząc od LEWEJ, 

4) wyodrębnienie 4 kolejnych znaków licząc od PRAWEJ, 

5) wyznaczenie liczby znaków, 

6) rozbudowa pamięci znaku, 

7) wypełnienie odstępami pamięci znaku. 


0 « t < 91 

T.W-32 ! 
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Rys. 3 


Rysunek 3 podaje zakresy numerów. Kod ASCII operuje 
numerami od 0 do 127. Wykorzystywana w programie 
zmienna W rejestruje numery od 32 do 123. Druga zmien- 
na: 

T ='W — 32 

rejestruje numery od 0 do 91 . 

1. TEKST " P" — ♦ ASC "P" C ENTER ) 80 

2. KLUCZ "W" • — > ASC " W" C ENTER ) 87 

3. W = numer TEKSTU ♦ numer KLUCZA 
W = 80 + 87 ^ 167 

4. T = W - 32 = 167 - 32 = 135 

5. T = 135 > 91 • «>T = T -91 =135-91=44 

6. W = T+32 = 44 + 32 = 76 

7. CHRg 76 C ENTER ) L 

8. Znak SZYFRU "L" 

SZYFRACJA ( P,W — t>~L~) 
Rys. 4 


Rysunek 4 podaje przykład szyfracji jednego znaku. 

Oto opis OPERACJI SZYFROWANIA: 

1 ) znak TEKSTU przetwarzamy na NUMER kodu ASCII, 

2) znak KLUCZA przetwarzamy na NUMER, 

3) DODAJEMY NUMERY. Sumą jest zmienna W, 

4) wyliczamy zmienną T = W — 32 

5) ponieważ zakres zmiennej T zawiera w przedziale od 
0 do 91, zatem jej wartość SPROWADZAMY do wła- 
ściwego zakresu. 

6) wyliczamy numer szyfru: W = T + 32, 

7) przetwarzamy numer szyfru na znak szyfru, 

8) ten znak szyfru dopisujemy do kryptogramu. 

Jak widać, SZYFRACJA polega na „dodawaniu znaków": 

NUMER KRYPTOGRAMU = NUMER TEKSTU + NUMER 
KLUCZA 

DESZYFRACJA zaś na odwrót — polega na „odejmowaniu 
znaków": 


NUMER ODTWORZONEGO TEKSTU = NUMER KRYP- 
TOGRAMU - NUMER KLUCZA 


2 3 4 5 I7| 


3 J 1 12 13 K 15 W 


Rys. 5 


Rysunek 5 podaje czynności wstępne SZYFRACJI 
TEKSTU" Klucz jest naiwny (data ukończenia tego 

dokończenie na str. 4 
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dokończenie ze str. 3 

programu). Treścią jest LICZBA KLUCZY WYNOSI: 
91 t 16 - 2.211374397E.31 

Ponieważ w pamięci znakowej SHARP PC-1500 można 
zmieścić tylko 16 znaków, zaś różnych znaków jest 91 za- 
tem: 

Liczba kluczy 
91 t 16 

wynosi (ponad) dwadzieścia dwa i... trzydzieści zer, czyli 
22 kwintyliony!!! 

Janusz MILLER 


- program dla SHARPA str. 28 


— program dla SPECTRUM str. 30 



ABAKUS 

Pierwszy w Polsce klub minikompu- 
terowy — ABAKUS powstał w 1983 r. 
Od listopada 1984 r. ABAKUS jest 
Stowarzyszeniem Mikrokomputerowym 
posiadającym osobowość prawną. 

Celem jego działania jest populary- 
zacja mikroinformatyki i jej zastoso- 
wań, a w szerszym ujęciu — kształto- 
wanie kultury mikroinformatycznej w 
PRL. 

Stowarzyszenie prowadzi swoją dzia- 
łalność na terenie Warszawy przez klu- 
by komputerowe, istniejące przy War- 
szawskim Ośrodku Kultury i w Domu 
Kultury na Bródnie przy ul. Wysockie- 
go. Jeszcze w tym roku zostaną uru- 
chomione kolejne kluby, m.in. w DK w 
Rembertowie, przy SM Jary na Ursy- 
nowie i zostanie wznowiona praca klu- 
bu na Woli przy ul. Brożka. 

Ale kluby mikrokomputerowe to tylko 
jedna z form działalności stowarzysze- 
nia. 

Cele ABAKUS-a są szersze. Chce- 
my organizować imprezy popularyzu- 
jące mikroinformatykę o ogólnopolskim 
zasięgu. Będziemy tworzyć płaszczy- 
znę spotkań i wymiany doświadczeń 
osobom interesującym się informatyką, 
śledzić i rozpowszechniać światowe 
osiągnięcia w zakresie zastosowań 
mikroinformatyki. ABAKUS zorganizo- 
wał już kilkadziesiąt pokazów, organi- 
zował giełdy komputerowe, konkursy. 
Szerokim echem odbiły się w Polsce 
organizowane przez' Stowarzyszenie: 
- DNI KULTURY MIKROINFORMA- 
TYCZNEJ (maj-czerwiec 1985) — 
DNI KULTURY VIDEOINFORMATYCZ- 
NEJ— INFOVIDEO’86 "(maj-czerwiec 
1986) 


ABAKUS nawiązał współpracę w 
Hobby Computer Club (HCC) — naj- 
większą w świecie organizacją społe- 
czną zrzeszającą miłośników mikro- 
komputerów. 

Dzisiaj podajemy do publicznej wia- 
domości wyniki konkursu na grę edu- 
kacyjną. Jego uczestnicy zbudowali 
wspaniałe programy, które jednocześ- 
nie uczą i bawią. 

W klubach mikrokomputerowych 
stowarzyszenia prowadzona jest dzia- 
łalność szkoleniowa z podstaw budo- 
wy, obsługi i programowania mikro- 
komputerów dla osób w różnym wieku i 
z różnych środowisk Rozpoczynają 
działalność sekcje zainteresowań, do 
których zapraszamy dzieci i młodzież. 
Komputery dla członków stowarzysze- 
nia udostępniamy także na zamówienie 
— telefonicznie można uzgodnić z ins- 
truktorem dzień, godzinę i czas korzy- 
stania ze sprzętu 

Zapraszamy wszystkich chętnych 
do współpracy, do włączenia się w two- 
rzenie kultury mikroinformatycznej w 
PolsCe. Stowarzyszenie opiera swą 
działalność na pracy społecznej człon- 




ków. którymi mogą być osoby prawne 
lub fizyczne. Swoją działalność stowa- 
rzyszenie prowadzi na bazie funduszów 
gromadzonych ze składek członkow- 
skich, darowizn i dotacji. 

Stowarzyszenie Mikrokomputerowe 
ABAKUS działa w tymczasowej siedzi- 
bie przy Warszawskim Ośrodku Kultury 
w Warszawie przy ul. Elektoralnej 12 
(tel. 20-48-38 wewn. 205). Kieruje 
nim prezes Leszek Wilk i dwaj wicepre- 
zesi Krzysztof Świętoń i Dorota Winkler. 
Oto wynik konkursu na grę eduka- 
cyjną: 

I nagroda — mikrokomputer ATAR1 130 
za program „ABC" L. Kuciński 

II nagroda — mikrokomputer TEXAS za 
program „ORTOGRAFIA" J. Potępa 

III nagroda — radiomagnetofon za pro- 
gram „Nauka Jazdy" K. Wysocki 

IV, V, VI nagroda — kasety z progra- 
mami 

— J. Kańkowski za program „Mno- 
żenie" 

— A. Zimny za program „Nauko- 
wiec" 

— M. Dąbrowski za program „Sok 
jabłkowy" 
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PĘTLA 


Konstrukcją programową czę- 
sto używaną w programach jest 
pętla. Jest ona najprostszym 
sposobem wielokrotnego wyko- 
nywania grupy instrukcji (w 
szczególnym przypadku może to 
być pojedyncza instrukcja lub 
instrukcja pusta), aż do momen- 
tu zajścia określonego warunku 
powodującego zakończenie jej 
działania. Pętle wymagają 
odejścia od normalnego, sek- 
wencyjnego interpretowania ins- 
trukcji programowych. W celu 
zdefiniowania pętli niezbędnym 
staje się określenie następują- 
cych elementów jej struktury: 

1 . Specyfikacja początku i końca 
pętli. 

2. Specyfikacja warunku kończące- 
go pętlę. 

Pętle możemy programować wyko- 
rzystując podstawowe instrukcje ąteru- 
jące takie jak IF i GOTO. Instrukcja 
GOTO definiuje pierwszy z wymienio- 
nych elementów struktury pętli, nato- 
miast instrukcja IF definiuje drugi 
element. Do tworzenia pętli można 
również wykorzystywać instrukcje 
przeznaczone specjalnie do realizacji 
pętli np.: FOR, REPEAT, WHILE i inne 
w zależności od stosowanego języka 
programowania. Poniżej przedstawio- 
ne są trzy przykłady pętli rozwiązu- 
jących ten sam problem: obliczenie 
sumy liczb naturalnych od-1 do N. 

A) 

0 INPUTN 
10 FOR 1*1 TO N 
20 SIJM-SUM+I 
30 NEXT 
40 FND 


B > l > 

0 INPUTN 

5 1*1 

:l 0 IF T >N THEN GOTO 40 
20 SUM*SUM+I 
30 1*1+1 s GOTO 10 
40 EN» 

C) 

0 INPUTN 
“5 1*0 
:10 1 * 1+1 
20 SIJM-SUM+I 
30 IF KN THEN GOTO 10 
40 FND 


Wszystkie pętle wymagają wykona- 
nia testu pozwalającego określić, czy 
pętlę należy zakończyć, czy kontynuo- 
wać dalej? Realizacja tego testu może 
być na początku pętli (pętla 1 B) lub na 
jej końcu (pętla 1 C). Należy zauważyć, 
że wykonanie testu na końcu pętli po- 
woduje co najmniej jednokrotną reali- 
zację grupy instrukcji zawartych w pęt- 
li. Umieszczenie testu na początku pętli 
może wykluczyć w ogóle realizację ins- 
trukcji obejmowanych przez pętlę. 

Nieumiejętne korzystanić z pętli 
prowadzi do powstawania programów 
zbyt wolnych lub zajmujących wiele 
pamięci. Istnieje kilka praktycznych re- 
guł pozwalających programować 
sprawne pętle. 

W pierwszym rzędzie należy zasta- 
nowić się, czy do rozwiązania zadania 
niezbędne jest wykorzystanie pętli? 
Otóż okazuje się, że w wielu przypad- 
kach pętle nie są konieczne. Przedsta- 
wiony wcześniej problem można roz- 
wiązać bez korzystania z pętli. Kolejne, 
liczby od 1 do N mogą być interpreto- 
wane jako wyrazy ciągu arytmetyczne- 
go. Suma S n n początkowych kolejnych 
wyrazów ciągu arytmetycznego wyraża 
się wzorem: 

Sn =5L±l£n 

gdzie: ai — pierwszy wyraz ciągu, 
a n — = n-ty wyraz ciągu 

Korzystając z tej własności program 
upraszcza się do postaci: 

10 SUM = N * (1 + N)/2 

Zyskaliśmy na zajętości pamięci I 
szybkości działania programu. i 

W następnych przykładach możemy 
zatrudnić nasze komputery do wyko- 
pywania różnych pętli. Pierwszy z nich 
obrazuje możliwość łączenia pętli: 


5 1NPUT N 



.10 

FOR J>1 

TO 

N 

?0 

X^X+I 




NEXT 



40 

FOR I«J 

to 

N 

50 

Y“Y-I 



A0 

NEXT 




INPUT N 



10 

FOR I-i 

TO 

N 

20 

X“X+I 



30 

Y-Y-I 



40 

NEXT 




Zamiast dwóch pętli obejmujących 
wiersze 10—30 i 40—60 wykonywana 
jest jedna pętla obejmująca wiersze 
10—40. Połączenie pętli pozwoliło na 
zmniejszenie zajętości pamięci i wzrost 
szybkości działania programu. 


Kolejny przykład ilustruje organiza- 
cję zagnieżdżeń pętli: 


1.0 FOR K»1 TO 100 
20 FOR J*1 TO 50 
30 FOR 1*1 TO 10 
40 NE‘XT s NEXT s NEXT 

10 FOR 1*1 TO 10 
20 FOR J«1 TO 50 
30 FOR K«1 TO 100 
40 NEXT s NEXT_ s NEXT 

Zakładając, że kolejność występo- 
wania pętli nie wpływa na uzyskiwany 
efekt końcowy możemy organizować 
pętle w różnej kolejności. Dwa sposoby 
demonstruje przykład. Realizacja 
wersji pierwszej na mikrokomputerze 
C-64 wynosi około 2 minut, zaś wersji 
drugiej 1 minutę. Co powoduje taką 
różnicę szybkości działania progra- 
mów? Otóż zwróćmyajwagę na liczbę 
otwarć i zamknięć pętli w obu wersjach 
(wiąże się z tym inicjowanie zmiennej 
sterującej pętlą oraz testbwanie wa- 
runku zakończenia pętli). 



wersja A 

wersja B 

liczba 

1 + 100 + 

1 4 50 4 

otwarć 

+ 5000 = 5101 

4 500 = 551 

liczba 

50000 + 5000 4 

50000 4 500 4 

zamknięć \ 

4 100 = 55100 

4 10 = 50510 

Razem: 

60201 

51061 


Jasne staje się teraz, dlaczego 
wersja B jest szybsza. Należy pamię- 
tać, że pętle należy tak organizować, 
aby pętle zewnętrzne były powtarzane 
najmniej razy. Ograniczymy w ten spo- 
sób liczbę otwarć i zamknięć pętli. 

Następna seria przykładów posłuży 
omówieniu zasad optymalizacji pętli. 

5 N«50«DIM Tl<N,N>,T2<N>»T3<N)s 
Y“1 s INPIJT U 
10 FOR 1=1 TO N 
20 FOR J*4 TO N 

30 IF W=0 THEN S»S+SIN<X)+T1 < I , J> 
sOOTO 50 

40 S=8+T2 < I > +T3 < J > +X/Y 
50 NEXTsNEXT 
60 FND 


5 N-50sPIM TKN,N>,T2<N>,T3<N>s 

Y~1 s TNPUT W 

10 IF W“‘0 THEN GOTO 60 

20 FOR 1=1 TO N 

30 FOR J=1 TO N 

40 S»S+T2< I )+T3< J)+X/Y 

50 NEXY 8 NEXT a GOT O 100 

60 FOR I»1 TO N 

70 FOR J“1 TO N 

GO S»S+SIN<X>4-T1 <I r J> 

90 NEXT a NEXT 
100 END 

dokończenie na str. 6 
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dokończenie ze słr. 5 


5 N*50#DIM 1 l<N,N>,T2<N),T3<N>s 

Y=1 : INFUT U 

10 IF U=0 THEN GOTO 80 

20 XY“X/Y 

30 FOR 1=1 TO Ns TZ=T2<I>+XY 
40 FOR J=1 TO N 
50 S»S+T3<J>+TZ 
A0 NEXT i NEXT t GOTO 120 
70 GI=SIN<X> 

80 FOR 1=1 TO N 
90 FOR .1=1 TO N 
100 S=S+SI+T1 < I » J) 

110 NEXTłNEXT 
120 END 


Ulepszanie pętli należy zawsze za- 
czynać od pętli wewnętrznych. Zmini- 
malizowanie operacji wewnątrz tych 
pętli zostaje zwielokrotnione przez dzia- 
łanie pętli Do podstawowych sposo- 
bów pozwalających na uzyskanie wy- 
miernych efektów należą. ' 


— usuwanie niezmiennych wyrażeń 

z pętli: ( 

— zmniejszanie liczby odwołań do 
obiektów ze wskaźnikami (np. tabli- 
ce); 

— właściwe ustawianie kolejności wy- 
rażeń logicznych. 

Wykorzystywanie dwóch pierwszych 
sposobów z reguły powoduje wzrost 
wielkości pamięci zajmowanej przez 
program, jak również wzrost szybkości 
działania programu. 

Wersja pierwsza w prezentowanych 
przykładach zajmuje najmniej pa v mięci, 
lecz jest najwolniejsza. Drugą wersję 
uzyskujemy wyciągając badanie wa- 
runku W = 0 przed pętle z jednoczes- 
nym rozłączeniem pętli, gdyż jest on 
niezmiennym wyrażeniem pętli. Wersja 
trzecia uzyskana jest po usunięciu 
wszystkich pozostałych niezmiennych 
wyrażeń z odpowiednich pętli. Czasy 


realizacji poszczególnych wersji na 
mikrokomputerze C-64 są następują- 
ce: 



wersja 1 

wersja 2 

wersja 3 

W = 1 

40 s 

32 s 

' 22 s 

W = 0 

45 s 

36 s 

26 s 


Uzyskiwane w przykładach 
oszczędności czasu działania po- 
szczególnych wersji programów są 
rzędu kilku lub kilkudziesięciu sekund. 
Wykorzystanie jednak wersji wewnątrz 
kolejnej pętli powoduje zwielokrotnie- 
nie oszczędności. 

Proponuję przetestowanie ich w 
omawianym zakresie. Pamiętajmy: pęt- 
la pętli nie równa! 

S. WASILEWSKI 


NA SKRÓTY 


Proponujemy wspólną zabawę — 
pracę. Polegać ona będzie na tłu- 
maczeniu oraz uzupełnianiu naj- 
częściej stosowanych skrótów zwią- 
zanych z mikro. Dzisiaj prezentuje- 
my skróty wybrane (zauważone) 
przez nas, łącznie z ich oryginalną 
interpretacją. 

Oczekujemy na inne, Waszym 
zdaniem ważne, skróty oraz ich 
tłumaczenia (interpretację). W ko- 
lejnym numerze „IKS-a" będziemy 
prezentować aktualny stan naszego 
słownika. 


ASCII — American Standard 

' Code for Information 
Interchange 

AT — for Advanced Tech- 

nology 

BASIC — Beginners All-purpo- 
se Symbolic Instruc- 
tion Codę 

BIOS — Basic Input-Output 

System 

bps — bits per second 

CAD — Computer-Aided De- 

sign 

CAM — Computer Aided 

Manufacturing 

CAMAC — Computer Application 
of Measurments 

CD ROM — Compact Disc ROM 

CIA — Complex Interface 

, Adapter 

CMOS — Complementary Metal- 
-Oxide Semiconductor 

CPI — Characters Per Inch 

CPS — Characters Per Second 

CPU — Central Processing Unit 


DCE 

- 

Data Communication 
Eąuipment 

DIP 

— 

Dual In-line Packa- 

ge 

DMA 

~ 

Direct Memory Ac- 
cess 

DOS 

— 

Disc Operating Sys- 
tem 

DRAW 

— 

Digital Read And 
Write 

DTE 

— 

Data Terminal Equip- 
ment 

EARS 

— 

Electronic Audio Re- 
cognition System 

EDRAW 

— 

Erasable Optical Disc 
Technology 

EGA 

— 

Enhanced Graphics 
Adapter 

ELD 

— 

Electroluminescent 

Display 

EPROM 

— 

Erasable PROM 

FF 

— 

Form Feed 

FPU 

— 

Floating Point Proces- 
sing Unit 

GEM 

— 

Graphics Environment 
Manager 

GSX 

— 

Graphics System 
Extension 

IBM 

— 

International Business 
Machines 

IC 

— 

Integrated Circuit 

ICL 

— 

International Compu- 
ters Ltd 

l/O 

— 

Input/Output 

LAN 

— 

Local Area NetWork ' 

LCD 

- 

Liquid-Crystal Display 

LF 

— 

Linę Feed 

MDA 

— 

Monochrome Display 
Adapter 

MNU 

~ 1 

Memory Menagement 
Unit 


NLQ 

- 

Near Letter Ouality 

OCR 

— 

Optical Character Rea- 
der 

PC 

— 

Personal Computer 

PGS 

— 

Professional Graphics 
System 

PIF 

— 

Program Information File 

PIPS 

— 

Pan Information Pro- 
cessing System 

POST 

— 

Power-On Self Test 

PROM 

— 

Programmable ROM - 

PSG 

~ 

Programmable Sound • 
Generator 

RAM 

— 

Randim Access 
(Read/Write) Memory 

ROM 

— 

Read Only Memory 

RGB 

— 

Red-Green-Blue 

RISC 

T 

Reduced Instruction 
Set Computer 

SCCS 

T 

Source Cocje Control . 
System 

SID 

— 

Sound Interface Device 

VIC 

— 

Video Interface Chip 

WIMPS 

— 

Windows, Icons. Mice 
and Pull-Down Menus 

WORM 

— 

Write Once, Read Many 

YHP 


Yokogawa Hewlett- 
-Packard 
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Prosta ewidencja literatury 

Wydaje się, że ciekawą kontrpropozycją wobec pro- 
gramu nr 16 BIBLIOTEKA z „IKS-a” nr 4/1986 jest niżej 
prezentowana „Prosta ewidencja literatury” (Ewiden- 
cja). Zasadnicze cechy proponowanej wersji różnią ją 
od programu Biblioteka. 

1. Program Ewidencja jest stosunkowo krótki (ok. 6 
razy krótszy od Biblioteki). 

2. Pozwala wybierać pozycje, które dotyczą wy- 
branego tematu lub dwóch wybranych tematów 
jednocześnie. (Łatwo można zwiększyć liczbę tema- 
tów, które jednocześnie muszą występować przy 
określonej pozycji by została ona wybrana). 

2. Wprowadzamy do komputera nie nazwy, lecz kody. 
(Unikamy czasochłonnego przepisywania tekstów 
na klawiaturze i co ważniejsze — zbiór pamięci 
RAM mieści swobodnie informacje o ponad 2000 
pozycji. Ponadto wprowadzanie informacji o 
każdej pozycji trwa 2 — 3 sekundy, bowiem każda 
składa się z kilku lub kilkunastu znaków). 

4. Niezbędny jest zeszyt (skorowidz), do którego 
wprowadzamy informacje głównie tekstowe, nie 
podlegające komputerowej analizie. 

W zasadzie Ewidencja powstała dwa lata temu na 
konkretne (własne) zamówienie. W chwili gdy stwier- 
dziłem, że aby znaleźć informacje na przykład doty- 
czące „kolorowych ikon w mikrokomputerach”, muszę 
przejrzeć kilkanaście lub więcej pozycji z mojej półki, 
bez pewności, że nie pominąłem istotnego źródła da- 
nych na ten temat. Oczywiście „propozycja" to nie tyl- 
ko książka, czasopismo, ale głównie kserokopia lub po 
prostu własne notatki, streszczenia. 

Pierwszym zabiegiem wdrażania Ewidencji było za- 
łożenie (w zeszycie) mojego prywatnego języka ewi- 
dencji, którego słowami są dwuznakowe kody: 

a) tematów, np.: DL — drukarki laserowe, UN — unix, 
CE — ceny, DO — dyski optyczne itp. Praktycznie 
wyróżniłem 60 tematów, 

b) wydawnictw, tytułów, np.: BA — Bajtek, BY — BY- 
TE, lX - IKS, 

c) autorów (znaczących) np.: MC — Mc Cormick, EZ 
— Ezra Shapiro. 

Kody b) i c) praktycznie okazały się zbyteczne, za- 
tem można je pominąć. Radzę zwrócić uwagę na a)! 

Pozostało jeszcze nadanie numerów każdej pozycji, 
przejrzenie ich i wyróżnienie tematów, których doty- 
czą. Informacje te notuję skrupulatnie w zeszycie, na 
przykład: BI, PR, SP, 495 X zapis ten oznacza (zgodnie 
z moim słownikiem): Biblioteka, program, Spectrum, 
pozycja na półce i w komputerze 495, autor nie ma 
kodu, wydawnictwo IKS. Każdej pozycji można przy- 
porządkować do 15 tematów, jeśli mniej, należy 
nacisnąć spację. 



°o wprowadzeniu naszych pozycji do komputera i 
na kasety (na wszelki wypadek koniecznie na dwie) 
chcąc wybrać znaną mi litęraturę (o której istnieniu 
mogłem zapomnieć) na temat PR i SP (czyli programy 
na Spectrum) wystarczy uruchomić Ewidencję i napi- 
sać PR,SP — w odpowiedzi na ekranie ukażą się numery 
pozycji dotyczące tematów PR i SP np.: 

TEMAT: pr, sp Pozycja 351 X 

Pozycja 380 BA 
itp. 

Pierwsze uruchomienie 
LET n = 1 
GO TO 10 

Po komunikacie: Będzie DIM! Należy wcisnąć dowolny 
klawisz. Pojawi się informacja: ZAPISAŁEM 0 ELE- 
MENTÓW oraz pytania: 

KONTROLA (k)? 

DOGRYWANIE (d)? 

WYBIERANIE (w)? 

odpowiedzią powinien być znak d (bo nie ma jeszcze 
co kontrolować i wybierać). Na pytanie: podaj numer 
kolejny, należy nacisnąć klawisz 1. 

Na ekranie pojawi się instrukcja: Podaj kod literatury w 
formacie: 

999AABB 

999 — 3-cyfrowy numer literatury (jest on sprawdza- 
ny), w naszym przypadku numerem tym jest: 
001 

AA — dwuliterowy kod autora, (opcjonalnie). 

BB — dwuliterowy kod wydawnictwa, (opcjonalnie). 
Kolejną instrukcją jest: NAPISZ KOD CECHY: 
w odpowiedzi piszemy dwuliterowy kod tematu np.: aa. 
Można go podać do 15 tematów, o każdy zapyta kom- 
puter. Jeśli tematów jest mniej niż 15, wystarczy nacis- 
nąć znak spacji i wracamy do kodu literatury. Spacja 
zamiast kodu literatury powoduje powrót do menu. Te- 
raz już jest co kontrolować i wybierać, 
k — kontrola. Należy odpowiedzieć na pytanie: Podaj 
n: co oznacza, że możemy sprawdzać nasz zbiór od 
dowolnego miejsca = n. 

Gdy zdecydujemy się na wybieranie w, na ekranie 
pojawia się pytanie: CZEGO SZUKAĆ? PYTAJ, NP.: 
ab,ac LUB TYLKO ab. 

Gdy chcemy szukać literatury dotyczącej tematu 
programy, piszemy pr, gdy chodzi nam o pozycje 
dotyczące programów, ale tylko tych, które zamie- 
niają komputer w zabawkę, piszemy pr, gr. 

W odpowiedzi komputer przedstawi nam pozycje 
związane z oboma tematami pr (programy) i gr (gry), w 
formie wcześniej prezentowanego przykładu. Naciś- 
nięcie dowolnego klawisza powoduje powrót do: CZE- 
GO SZUKAĆ... 

Kolejne uruchomienia 

Po ściągnięciu programu z kasety uruchamiamy go 
GO TO 100 nigdy RUN 

Składujemy program przez SAVE, oczywiście 
wcześniej go zawieszając. Proponuję nadawać nazwę 
z aktualną datą np. ewid231186. 

Teksty podkreślone ukazują się na ekranie w wyniku 
pracy komputera lub naciśnięcia klawisza na klawia- 
turze komputera. 

dokończenie na str. 8 
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dokończenie ze str. 7 


45 REM PROSTA EWIDENCJA LITERATURY 
50 CLS : PRINT "Bedzie DIM!" 

55 PAUSE 0 
60 DIM Z0(200r38> 

103 POKE 23609 t 50. 

1,10 CLS 

115 PRINT "Zapisałem "5(n-l)S" elementów" 

120 INPUT "Kontrola (k> ?" ’ "Dogrywan ie <d> ?" ’ "Wyb ieranie (w>?"’k0 
122 IF k0«"k" THEN GO TO 600 
124 IF k0«"w" THEN GO TO 300 

129 INPUT "Podaj numer kolejny" Sn 

130 FOR n=n TO 200 

135 INPUT "Podaj kod literatury w formacie! "’ "999AABB "Skt 

136 PRINT " 

137 PRINT nS" "Sk0S" "'s IF k*=" " THEN LET k0="*«" 

140 LET Z0(n>=k0! IF k0="**" THEN GO TO 120 

141 FOR a=l TO 3 

142 IF CODĘ 2 $ Cn ra) <48 OR CODĘ 2 * <n »a) >57 THEN GO TO 148 

143 NEXT a 

144 GO TO 150 

148 PRINT "BLAD kodu literatury"! PAUSE 0! GO TO 135 

150 IF k*="**" THEN GO TO 120 

155 IF UAL 2 $ Cn r 1 TO 3>=n THEN GO TO 160 

157 PRINT "BLAD numeru"! PAUSE 0! GO TO 135 

160 FOR w-8 TO 37 STEP 2 

170 INPUT "Nap is 2 kod cechy!"SkS 

173 PRINT " "Sk0S"» " 

175 IF k0-" " THEN LET k0="*»" 

180 LET 2 $ (n » w TO w+2)=k* 

190 IF THEN GO TO 205 

200 NEXT u 
210 NEXT n 

220 PRINT "PrHepelnienie" 8 STOP 
310 DIM 10(5) 

320 CLS a INPUT "Czego szukać?. Pytaj > np . Sab rac lub tylko ab"S10( 

340 FOR n=l TO 200 

350 FOR w-8 TO 37 STEP 2 

360 IF 2.0 (ml TO 2>="«*" THEN GO TO 400 

370 IF 10(1 TO 2) -20 (n f w TO w+l> THEN GO TO 420 

380 IF 20 (nru TO w+l>="*»" THEN GO TO 395 

390 NEXT w 

395 NEXT n 

400 PRINT INUERSE 15"Brak tematu w zbior 2 e"! PAUSE 0: GO TO 300 

420 REM Drugi kluc 2 

430 IF 10(3><>"»" THEN GO, TO 520 

440 FOR w-8 TO 37 STEP 2 

450 IF 10 (4 TO 5) -z0 (n rw TO w+l> THEN GO TO 520 
460 GO TO 380 
520 REM Druk 

530 PRINT "Temat! "S10(l TO 2>S"r"S10(4 TO 5>S". Pozycja! "Sz0(nrl 

540 GO TO 380 

610 INPUT "Podaj n: "Sn 

620 FOR n=n TO 200 

650 PRINT " " Sn 5 " "Sz0(n.l TO 7>S" "Sz0(n,8 TO 38> 

660 IF -20 (ml TO 2)="**" THEN GO TO 700 
670 NEXT n 

700 PAUSE 0! GO TO 100 


1 TO 5) 


TO 7>j 


W.G. 
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10 * ** AMSTRAD BASIC 
20 ’ ** kolo ’ 86 
30 ’ ** !K0L0,P1,P2,P3,P4 
40 ' ** P1,P2 - wsp. środka 
50 ’ P3 — promień 
60 ' ** P4 - INK 

70 DATA " 1 80C6B00460032003 1 00000000003EF 
6DDBDC0CDCCBBED530AA0220CA0DD7E00CDDEBBD 
D6603DD6E022204A0DD5607DD5E06DD6605DD6E0 
4CDC9BB0 1 0000ED4306A02A04 A02208A0CB25CB 1 
4E5D 1 2 1 0300 AFED522202 A02A06A0ED5B08A0E5D 
5CDC8A0D 1 E 1 AFED " 

80 DATA "52FA76A0ED5B0AA02A0CA0CDC9BBC92 
A02A00 1 0000ED42F298A0ED5B06 A0CB23CB 1 2CB2 
3CB 1221 0600 1 9ED5B02A0 191 8242A06 A0ED5B08A 
0AFED52CB25CB 1 4CB25CB 1411 0A00 1 9ED5B02A0 1 
9ED5B08A0 1 BED5308A02202A02A06 A0232206A0 1 
88FED5B06 A02A08 " 

90 DATA " A0CDEABBED5B08A02A06A0CDEABB2 1 O 
000ED4B06A0AFED42E5E5ED5B08A0CDEABBD 1 2A0 
8A0CDEABB2 1 0000ED4B08A0AFED42E5E5ED5B06A 
OCDEABBD 1 2A06A0CDEABBE 1 D 1 E5D5CDEABBE 1 D 1 C 
DE ABBC90 1 2BA 121 27A 1 CDD 1 BCC9FC A62B A 1 30A 1 C 
30E A04B4F4CCF00 " 

100 RESTORE 
110 MEMORY &9FFF 
120 bajt=&AOOO 
130 FOR a=l TO 3 
140 READ a* 

150 k= 1 

160 GOSUB 200 

170 NEXT 

180 CALL &A11D 

190 DELETE -250 

200 WHILE k<207 

210 POKE baJt,VAL ( ,, «c ,, +MID* (a*, k, 2) ) 



AMSTRAD 


Dość dziwne wydaje się, że przy tak du- 
żych możliwościach Amstrada zabrakło w 
nim procedury, która rysowałaby koło. 
Prezentowany program powoduje zainsta- 
lowanie komendy, która tę lukę wypełnia. 
Po jego uruchomieniu nastąpi wczytanie 
kodu maszynowego od adresu & AOOO, na 
który składają się procedury: instalacyjna i 
obsługująca. 

Nowa komenda: KOŁO wymaga czte- 
rech parametrów: współrzędnych środka, 
długości promienia oraz numeru kałama- 
rza (INK), z którego ma być wzięty kolor 
do narysowania figury. Np. 

: KOŁO, 320, 200, 50, 3 
Rysowanie odbywa się dość szybko, a 
wnętrze koła może być wypełnione przez 
komendę FILL (co jest niemożliwe przy 
metodzie podanej w instrukcji firmowej). 
Jako zachętę do wykorzystywania proce- 
dury podajemy krótki program demon- 
stracyjny, wyglądający w kolorach bardzo 
efektownie. 


220 k=k+2 

230 ba jt=ba j t+1 

240 WEND 

250 RETURN 

260 ’ DEMONSTRACJA 

270 ' FANTAZJA 

280 CLS 

290 FOR a=0 TO 200 STEfc 3 
300 I KOLO , a , 200 , a , a 
310 ! KOLO , 600— a , 200 , a , a 
320 NEXT 
330 END 



/ 
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Pamięć programu 

Opublikowany w „IKS” nr 2/86 program „Pa- 
mięć operacyjna” posiada dwie istotne niedo- 
godności. 

1. listowanie rozpoczyna się zawsze od pier- 
wszego wiersza programu — co przy długich 
programach jest bardzo niewygodne. 

2 program „nie wie”, gdzie kończy się program 
w BASICu i listuje pamięć obszaru zmiennych co 
dezorientuje użytkownika — (pojawiają się nu- 
mery nieistniejących w programie wierszy). 

Pozwalam sobie zatem zaproponować zmiany 
w wierszach 9010 i 9020 oraz dopisanie wierszy 
9015, 9016 i 9017. 

Znrtk raslępuie rvp'1n<stępnv na clrukarrą znak S 

900® REM 06.1 LIST MEM 

9® 10 CLSi LET s-PEEK 23635+PEEK 23636*256-11 LET k-PEEK 23627* 
PEEK 23620*256-1 a LET p-PEEK <«*1) »256+PEEK <s+2) I 

INPtlT "LIST od wiorsnai"! < p>I" t/n "I LINĘ a*l IF 
THEN GO TO 921® 

9615 INPUT "wi*rsz: ' IWI PRINT FLASH II *CZEKAJ"i FOR 1-s TO kl 
IF PEEK 1-13 THEN LET p-PEEK <ł*l» *256*PEEK (t*2> I IF n>-w 
THEN LET s-l+lt CLSi GO TO 922® 

9®16 NEXT 1 

9017 PRINT wl "NIE MA TAKIEGO WIERSZA!"l DEEP ltli PAUSE 1701 
GO TO 901® 

9020 LET p=PEEK s 

9030 IF P"1. 3 THEN GO TO 9200 

9040 IF P-=14 THEN GO TO 9300 


MoZna inaczej — 

Głos mają Czytelnicy 


SPECTRUM 

905® IF P< 1® THEN PRINT sl " " I " "I 

906® IF p >9 AND P<10® THEN PRINT *1 " "lol" "I 

907® IF p >99 THEN PRINT sl ■ "ipi * "I 

908® IF P >31 THEN PRINT PAPER 61 O0ł* P 

9090 IF P<32 THEN PRINT 

91»® LET s-s*li GO TO 902® 

9200 PRINT sl " "IPI " "1 PAPER 41 "KONIEC UIERSZA"! 

IF «»k THEN INPUT FLASH ll "KONIEC PROGRAMU (ENTER) " I 
LINĘ o*i STOP 

9205 PRINT 

9210 LET s— s* 1 1 LET p-PEEK b*256*PEEK <**1> 

9220 PRINT 01 " 'I PAPER 4| "WIERSZ NRi "Ipi " 

9230 LET »-s+2i LET p-PEEK s+PEEK <b+ 1>«256 
924® PRINT sl " "I PAPER 61 "IloBC bajtów- "Ip 
925® LET s-s*ll GO TO 9100 

9300 PRINT sl " "ipi * "I PAPER 41 "Stola liczbował* 

931® PRINT *+ll " "I 

932® FOR f-**l TO s*5i PRINT PEEK Tl " . "Is NEXT f 
9350 PRINT i LET b-b*5i GO TO 9100 

W wierszu 9010: zmienna s start programu w 
BASICu (zmienna systemowa PRÓG), zmienna 
k koniec programu w BASICu (zmienna sy- 
stemowa VARS), zmienna p -- numer pierwszego 
wiersza programu, zmienna a pytanie czy li- 
stować od wiersza (p). 

W wierszu 9015 wprowadzenie poszukiwanego 
numeru wiersza — zmienna (w), w pętli szukanie 
adresu zadanego wiersza. 

W wierszu 9017 wydrukowanie komunikatu — 
jeśli zadany numer wiersza nie istnieje. 

W wierszu 9020 po wydrukowaniu komunikatu: 
„KONIEC WIERSZA" sprawdzenie czy jest to ko- 
niec programu. 

ANDRZEJ HOROCH 


10 CLS 

15 0RI6IN 320,200 
20 FOR x*l TO 13 
25 DRAW 15tx,-15tx 
50 DRAW 320,200 
60 0RI6IN 320,200 
75 DRAW 15tx,15tx 
95 DRAW 320,-200 
86 NEXT x 
90 0RI6IN 320,200 
93 FOR y*l TO 13 
95 DRAW -15ty,-15*y 
100 DRAW -320,200 ' 
105 0RI6IN 320,200 
110 DRAW -15ty,15Jy 
115 DRAW -320,-200 
120 NEXT y 
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KOMPUTER ZEGAREM 

Jednym z częstszych pytań zadawanych przez posiada- 
czy ATARI 800XL jest pytanie o sposób pomiaru czasu 
przez komputer. Dlatego w bieżącym numerze przedsta- 
wimy wykorzystanie jednego z zegarów programowych. 
Jest to tak zwany zegar czasu bieżącego (RTCLOCK), któ- 
ry liczy od zera i przechowuje wartość trzybajtową. Znajdu- 
je się on w pamięci RAM o adresach 1 8, 1 9, 20 i działa od 
włączenia komputera do chwili jego wyłączenia. Zliczą on 
przerwania VBLANK. które -występuj^ w regularnych od- 
stępach czasu, zgodnie ze standardem sygnału telewizyj- 
nego (co 1 / 60 sekundy dla NTSC i co 1 /50 sekundy dla 
PAL). Każde z tych miejsc pamięci działa jak część liczni- 
ka. Procedura obsługi przerwania systemu operacyjnego 
dodaje jedynkę do bajtu o adresie 2'0. Gdy jego zawartość 
osiągnie 255, następne przerwanie powoduje dodanie je- 
dynki do bajtu 1 9 i wyzerowanie bajtu 20. Sytuacja taka wy- 
stępuję co 5,1 sekundy. Gdy wartości bajtów 1 9 i 20 osiąg- 
ną liczbę 255, następne przerwanie powoduje dodanie je- 
dynki do bajtu o adresie 18 i wyzerowanie bajtów 19 i 20. 
Zdarza się to co 21 ,845 piinuty. Z chwilą, gdy wszystkie 
trzy bajty osiągną wartość 255, następne przerwanie po- 
woduje ich wyzerowanie. Zjawisko takie wystąpi po 
16 777 215 przerwaniach, czyli po około 93,2 godzinach. 

Dla sprawdzenia powyższych wywodów wprowadźmy 
do pamięci komputera następujące instrukcje: 


10 CZAS=PEEK ( 18) *65536+PEEK (19) 
*256+F*EEK(20) 

20 PRINT "CZAS= ";CZAS 


Po napisaniu RUN (i RETURN) otrzymamy na ekranie 
liczbę. Gdy po chwiliponownie napiszemy RUN. otrzyma- 
my inną. większą liczbę. Jest to liczba przerwań VBLANK 
od momentu włączenia komputera. Aby otrzymać czas 
włączenia korrfputera, musimy tę liczbę podzielić przez 50. 
W tym celu zmodyfikujemy powyższe instrukcje następu- 
jąco: 

10 CZAS=PEEK (18) * 65536+ PEEK (19) 
*256+F‘EEK<20> 

20 CZAS=INT (CZAS/50) 

30 PRINT "CZA3= " ; CZAS; " s" 

W celu rozpoczęcia pomiaru czasu musimy oznaczyć 
moment rozpoczęcia pomiaru. Mpżemy to zrobić jednym 
z następujących sposobów: 

1 ) zapamiętując aktualną wartość zegara czasu bieżącego: 

2) wstawiając zera do komórek o adresach 1 8, 1 9 i 20 pa- 
mięci. 

Poniżej podajemy przykład wykorzystujący pierwszy 
sposób. Po ■ oznaczeniu chwili początkowej możemy 
w każdym momencie określić czas, jaki minął od tej chwili. 
W poniższym przykładzie wykorzystujemy tę samą proce- 
durę odczytu czasu (linie programu 6000—6020) zarówno 
do oznaczenia początku pomiaru (linie 100, 110), jak i do 
odczytu bieżącej wartości zegara (linia 140). Po odjęciu 
obu wartości (linia 150) otrzymujemy czas oczekiwania 
komputera na odpowiedź, oczywiście w sekundach. 


ATARI 


100 60SUB 6000: REM ODCZYT CZASU 
POCZĄTKOWEGO 
110 CZASP— CZAS 

120 PRINT "ILE TO JEST 4*7 "s 
130 INPUT X 

140 GOSUB 6000: REM ODCZYT CZASU 
KOŃCOWEGO 

150 CZASU=CZAS— CZASP 

160 PRINT "POTRZEBOWAŁEŚ NA ODP 

OWIEDZ AZ "; CZASU:" S. " 

170 STOP 

6000 REM PROCEDURA ODCZYTU CZAS 
U 

6010 CZAS=INT( (PEEK (18) *65536+P 
EEK ( 1 ? ) * 256+PEEK ( 20 > > / 50 > 

6020 RETURN 


Na zakończenie proponujemy program.wykorzystujący ze- 
gar czasu bieżącego i używający drugiego z wymienio- 
nych spospbów oznaczania momentu zainicjowania zega- 
ra, to jest wyzerowania zawartości komórek o adresach 1 8. 
19 i 20. Poniższy przykład demonstruje sposób przerobie- 
nia komputera na budzik, 'możliwe jest ustawienie aktual- 
nego czasu oraz wybranie chwili wszczęcia alarmu. 


10 REM ZEGAR Z BUDZIKIEM 
20 GRAPHICS 2: FOKĘ 752,1:? * 
25 ? "PODAJ AKTUALNY CZAS" 

30 GOSUB 300 

35 REM INICJOWANIE ZEGARA 
40 POKE 20,0:P0KE 19,0:POKE 


18, 


O 

45 

50 


GODZ=G:MIN=M: SEK=S 
? "PODAJ CZAS BUDZENIA" 

GOSUB 300 
60 GA=G:MA=M:SA=S 
65 I60DZ=G0DZ: IMIN=MIN: ISEK=SEK 
70 GOSUB 200: REM ODCZYT CZASU 
75 IF (GA=GODZ ) AND (MA=MIN> AN 
D (SA<SEK> THEN GOSUB 100 
78 IF SEK=0 THEN ? #6;">" 

80 PDSITION 5,5:? #6; GODZ ; " : " ; M 

IN;":“;SEK 

85 ' GOTO 70 

90 REM SYGNAŁ BUDZIKA 

100 FOR 1=100 TO 10 STEP -10 

HO SOUND O, 1,10,8 

120 NEXT I 

130 SOUND O, O, O, O 

140 RETURN 

190 REM ODCZYT CZASU 

200 C= ( ( (PEEK (18) *256) +PEEK (19) 

) *256+PEEK (20) > 750 

210 GODZ=INT (C/3600) : C=C- (GODZ* 

3600) 

220 MIN=INT (C/60) : SEK=INT (C- (MI 
N*60> ) 

230 SEK=SEK+ISEK: IF SEK>59 THEN 
SEK=SEK-60 : M I N=M I N+ 1 
240 MIN=MIN+IMIN: IF MIN>59 THEN 
MIN=MIN-60: G0DZ=G0DZ+1 
250 GODZ=GODZ+IGODZ 
260 GODZ=GODZ— INT (GODZ/24) *24 
270 RETURN 

290 REM WPROWADZANIE CZASU 
300 ? "GODZINA INPUT G:? "MI 
NUTA ";: INPUT M: ? "SEKUNDA " : 
INPUT S 
310 RETURN 

LP 


IKS - 11 




Drukarka ośmiobitowa 


C ztery centymetry przewodu, lu- 
townica i nóż — tylko tyle po- 
trzeba, aby wbudowane w 
twoim komputerze Amstrad (Schnei- 
der) CPC 464 łącze Centronics roz- 
szerzyć do 8 bitów Przyłączenie do- 
wolnej drukarki do Amstrada CPC 464 
nie jest żadną trudnością dzięki seryj- 
nemu łączeniu Centronics. Odpowied- 
ni wtyk platynowy można nabyć w każ- 
dym elektronicznym sklepie, tak samo 
jak łącze Centronics i kabel, Szybko 
jednak dostrzeżono istotny mankament 
Amstrada; zamiast przenosić 8 bitów 
danych równoległych w CPC 464, ós- 
my bit danych stanowi nieużyteczny 
sygnał strobujący. co oznacza iż. ten 
ósmy bit me odpowiada bitowi przewo- 
dzonemu do drukarki, gdyż funkcję tę 
spełnia podłączony sygnał strobujący, 
informujący o przekazywaniu danych 
do drukarki. 

Dla samego tekstu jest to w pełni 
wystarczające, gdyż w Amstradach 
stosowany jest kod ASCII (ASCII — 
American Standard Codę for Informa- 
tion Interchange), który jest kodem 7- 
bitowym Wszystkie litery, cyfry i znaki 
mogą po wykonaniu kroku „Print 8" 
zostać przesłane do drukarki. Inaczej 
wygląda to w przypadku grafiki. Więk- 
szość drukarek może w tym reżimie 
pracy odwzorować dowolne symbole 
graficzne, szczególnie w tzw. grafice 
blokowej, wszystkie znaki mają kod 
większy od 1 27. Wymagają one jednak 
przenoszenia danych graficznych peł- 
nych 8-bitowych wartości. Chcąc sko- 
rzystać z tych możliwości drukarki, na- 
leży wprowadzić ósmy bit danych. 
Rozwiązanie tego problemu jest bardzo 
proste i wymaga łatwego majsterko- 
wania najprostszymi narzędziami. Po- 
trzebne są do tego tylko następujące 
przybory mała lutownica (15 Wat), 5 
do 6 cm izolowanego przewodu, śru- 
bokręt krzyżakowy, ostry, spiczasty nóż 
i filcowa podkładka. 

Zanim zabierzesz się do pracy, mu- 
sisz pamiętać, że, cała ta operacja 
spowoduje wygaśnięcie gwarancji two- 
jego komputera. Jeśli mimo to zdecy- 
dowałeś się — do dzieła! 

Najpierw należy otworzyć obudowę 
CPC 464 (sześć śrub na dolnej płycie) i 
odłączyć górną część obudowy wraz 
z klawiaturą i magnetofonem kaseto- 
wym. przy czym należy rozłączyć dwa 
połączenia wtykowe. Nie ma obawy 
pomylenia ich przy składaniu, wtyczki 
pasują tylko do swoich właściwych 
gniazd. Błąd jest więc wykluczony. 
Złącza komputera odkrywają się na 
dolnej płycie obudowy. Płytę ustawia- 
my przed sobą tak, by rozszerzanie się 
połączeń przebiegało na dół. W lewym. 


górnym rogu znajdują się teraz połą- 
czenia z joystickiem, obok na prawo 
łącze Centronics. 

Licząc od lewej strony, znajdź 9 
ścieżkę prowadzącą do bramki Cen- 
tronics i zaznacz filcową podkładką. 
Jest to właśnie połączenie 8 bitu i w 
Amstradzie zblokowane jest ono na 
masę. Musi więc być przerwane jako 
pierwsze. Używamy do tego celu ostro 
zakończonego noża. Uważnie zeskro- 
bujemy kawałeczek ścieżki przewo- 
dzącej. Uwaga! Robimy to ostrożnie, 
bez zbytniej siły, by nie uszkodzić in- 
nych ścieżek. Gdy żądana ścieżka zos- 
tanie przerwana, musimy wykonać no- 
we połączenie z 12 nóżką kostki 8255 
Szukamy więc dużej, 40-nóżkowej 
kostki' IC poniżej bramek Centronics, 
na której m.in. jest napis „8255". W dol- 
nym rzędzie nóżek, licząc od lewej 
strony znajdujemy 12 nóżkę i zazna- 
czamy ją filcową podkładką Na od- 
chodzącej od niej ścieżce, kilka milime- 
trów poniżej, znajduje się „oczko" lu- 
townicze. do którego przylutowujemy 
odizolowany koniec naszego przewo- 
du. Drugi koniec przewodu należy przy- 
lutować do zaznaczonej uprzednio 
dziewiątej ścieżki, bramki Centronics, 
tuż nad wykonaną przerwą w ścieżce, 
ale tak by nie zblokować złączki na ca- 
łej długości. Jeszcze ostatnie spraw- 
dzenie miejsc lutowania i ponownie 
można podłączyć gniazda klawiatury i 
magnetofonu kasetowego. W ten spo- 
sób można wykonać 8-bitowy hardwa- 
re. ale rzecz jeszcze w tym. by wyste- 
rować software. 

Dlatego też nieodzowne są częścio- 
wo nowe procedury, niezbędne do wy- 
sterowania drukarki. Wysterowanie 
układa się w postaci normalnego tek- 
stu tak jak poprzednio, zaś w specjal- 
nych wypadkach, gdy chcemy wykorzy- 
stać ten ósmy bit. musimy ułożyć spe- 
cjalną komunikację. Ósmy bit bramki 
Centronics jest przez małe hardwaro- 
we sprzężenie połączony z bitem 5 na 
porcie C kostki 8255. W Basic będzie 
więc ósmy bit wprowadzony przez 
„OUT&F600", X0010000” lub niezale- 
żnie przez „OUT&F600.32" ustawić 
zaś przez „OUT&F600.0" ponownie 
skasować. By móc dowolny 8-bitowy 
znak przesłać do drukarki, należy 
postępować następująco: 

1 Sprawdź, czy kod znaku jest większy 
niż 127. Jeżeli tak, to ustaw ósmy bit 
przez „OUT & F600.32" 

2. Przekazać znak do drukarki normal- 
nie przez „PRINT ^ 8" 

3. Poprzedni stan skasować przez 
„OUT & F600.0" 

Listing „Printer’ Utilities fur 8 Bit” za- 
wiera dwa programy ułatwiające tę 


procedurę. Oba programy zapisane w 
Basicu mogą być włączone do dowol- 
nych programów w tym języku za po- 
mocą instrukcji MERGE. Instrukcja 
"GOSUB 6000" będzie przekazywać 
do drukarki dowolny znak. Zmienny 
znak Z musi przy tym otrzymać znak 
kodowy. Gdy chodzi np. o sterowanie 
grafiką i przesyłanie znaków ośmiobi- 
towych — wprowadzona została w tym 
celu linia 61000. Od tego momentu 
wszystkie zńaki Z $ przesyłane będą 
równocześnie do drukarki jako ośmio- 
bitowe. 

Po tak eleganckim rozwiązaniu prob- 
lemu łącza należałoby zająć się kolej- 
nym aspektem drukarki tzw. Auto-Line 
-Feed-Syndrom. który jest szczególnie 
ważny przy tworzeniu listingów W 
większości drukarek do Amstrada po 
każdym zadrukowanym wierszu znaj- 
duje się wiersz pusty, co w związku ze 
zużyciem papieru nie jest zbyt pożąda- 
ne. Przyczyna tego znajduje się w języ- 
ku maszynowym CPC 464, który na 
końcu każdego wiersza wysyła nie tyl- 
ko znak CR (Carriage Return) ale także 
dodatkowo znak LF (Linę Feed). Więk- 
szość drukarek przesuwa wiersz nie 
tylko przy sygnale CR. ale także LF. 
Tak więc drukarka odbierze także syg- 
nał LF i wykona drugie przesunięcie. 
Najlepiej w -tym wypadku byłoby 
przeszkodzić wysłaniu sygnałów LF, 
Jest to rzeczywiście możliwe po małej 
ingerencji w język maszyny. Oczywiś- 
cie, nie możemy nic zmienić w ROM- 
-ie, ale można w tym celu dokonać 
pewnego przełączenia. Tym przełą- 
czeniem jest rozgałęzienie z ROM na 
RAM. Na odpowiadającej RAM pozycji 
zrfajduje się przeważnie rozkaz JP dla 
programu ROM Stawia on przed użyt- 
kownikiem możliwość, by zamiast JP 
wprowadzić do języka maszyny odpo- 
wiedni program. Indirection — Jump 
— Błock składa się z adresu & BDCD 
do & BDF3 w RAM i zawiera jako ostat- 
ni zapis odgałęzienia „MC WAIT PRIN- 
TER". To odgałęzienie będzie przeka- 
zane każdej drukarce z drukowanymi 
znakami w Akku. Poza tym odgałęzie- 
niem znajdują się bity wolne parhięci. 
tak że można mały program maszyno- 
wy wpisać wprost pod adresem „MC 
WAIT PRINTER": 

BDF1 FEOA CP10; LF? 

BDF3 37 SCF; all o.k. 

BDF4 C8 RETZ; tue no 

BDF5 C5 07F8 JP 07F8H; normal next 

Program ten porównuje znaki w Akku 
z LF, przykłada dla ostrożności Carry 
Flag (symbolizuje on język maszynowy, 
który prowadzi kolejność programu) i 
powraca bez dalszej akcji, zamiast 
przesyłania znaku LF. Innymi słowy 
przeskakuje porządkowy rozkaz pro- 
gramu druku. W listingu -znajduje się 
rozkaz w Basicu (wywołanie GOSUB 
62000, który ten program maszynowy 
zapisze w pamięci. Po jednorazowym 
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5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5075 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
i 5150 


’ printei — Utilities 
’ 8 - bit 


REM print Z (8-bit) 

IF z >127 THEN OUT &F600.32 
PRINT #B,CHR*(z>; 

OUT S.F600.0 
RETURN 

9 

REM print Z* (8 bit) 

FOR zz=l TO LEN<z*> 
z=ASC (MID$ (z$,zz, 1) ) 

GOSUB 5060 s NEXT 
RETURN 


5160 REM printer linę feed off 
5170 FOR z=&BDFl TO &BDF7 
5180 READ bytesPOKE z,byte 
5190 NEXT 

5200 DATA &FE, &0A, &37, &C8, &C3, 
&F8,&07 
5210 RETURN 
5220 * 

5230 REM Czy drukarka wyłączoną ? 
5240 FOR z z — 200 TO 1 STEP -1 
5250 IF ( INP (&F500) AND 64>=0 
THEN zz=-l 
5260 NEXT 
5270 IF z z —0 THEN 

PRINT *'** Wlacz drukarkę **“ 
5280 RETURN 


wywołaniu zmiana pozostanie, aż do 
wyłączenia lub przeprogramowania 
komputera. 

Instrukcję sprawdzającą dla drukarki 
„GOSUB 63000" można wykorzystać w 
wielu wypadkach. Amstrad odmówi 
dalszej pracy według programu w Ba- 
sicu, jeśli po instrukcji PRINT ^ 8 dru- 


karka nie była włączona. Według pro- 
gramu od wiersza 63000 można spro- 
wadzić bieżący program stanu drukar- 
ki. 

Zawarte w listingu cztery sposoby 
wykorzystania drukarki nie były prze- 
widziane dla specjalnych drukarek, 
szczególnie pracujących razem ze 


wszystkimi urządzeniami, które wypo- 
sażone są w łącze Centronics. Pier- 
wsze dwa programy są tylko do rozsze- 
rzenia hardware w opisany sposób, ( 
podczas gdy oba ostatnie podprogra- 
my są uniwersalne. 

tłum. i oprać. JEM 
na podst. „Happy Computer” 



Mikrokalkulator kieszonkowy FX 7000 japońskiej 
firmy CASIO ma „klasyczne” rozwiązania: 

— Programowanie symboliczne ( jeden rozkaz = jeden 
klawisz), 

— pamięć 422 „kroków” (czyli wciśnięć klawisza), 

— tylko 26 pamięci wartości, 

krótko mówiąc, przypomina on pierwsze programo- 
wane kalkulatory (na przykład model TI-58 firmy TE- 
XAS INSTRUMENTS od lat produkowany w miliono- 
wych seriach). 

Obok tych „archaicznych" rozwiązań ma on coś 
„supernowoczesnego”: jest to ciekłokrystaliczny ekran 
(LCD) mieszczący 128 znaków, który swoje 5995 punk- 
tów wykorzystuje do grafiki komputerowej. I tak „na 
rozkaz” ukazuje się wykres zaprogramowanej funkcji. 

Mało tego: można uruchomić „punkt wędrujący” po 
wykresie („myszkę") zaś w interesującym miejscu uzy- 
skać współrzędne punktu. Można wykresy funkcji na- 
kładać jeden na drugi i analizować punkty przecięcia. 
Prócz tego rysuje on histogram lub linie regresji z wy- 
punktowanymi zmiennymi. 

Krótko mówiąc: to „maleństwo” umożliwia jakoś- 
ciową analizę funkcji, dając ponadto jej wykres. 

Ponieważ nie zawsze interesują nas superdokładne 
wyliczenia, zaś niemal zawsze ciekawy jest kształt 
funkcji, zatem nasuwa się pytanie postawione na 
wstępie: czy FX 7000 „GRAFIC” jest jeszcze jedną za- 
bawką czy też jest on odkryciem firmy CASIO? 

\ 


FX 7000 


CASIO 

Zabawka czy ... odkrycie 


W szponach Atari 


F irma Atari znana była na 
rynku amerykańskim i 
światowym jako produ- 
cent gier elektronicznych prze- 
znaczonych dla lokali rozryw- 
kowych. Założyciel firmy i jej 
ówczesny właściciel, Nolan 
Buschnell, był namiętnym gra- 
czem w „Go”. Jego marzeniem 
było wprowadzenie automatów 
do gier do domów. Udało mu się 
je zrealizować w 1975 roku. 
Urządzenia te do dzisiaj cieszą 
się ogromną popularnością. 
Według ocen producenta ponad 
25 min automatów model 2600 
znajduje się w rękach graczy 
(albo na ich półkach). W 1985 
roku sprzedano ich ponad milion 
i popyt nie słabnie. Umożliwi- 
ło to obniżenie kosztów, zmniej- 
szenie wymiarów i wprowadze- 
nie na rynek, zimą 1986 roku, 
ulepszonej wersji modelu 2600. 

Tymczasem pojawiły się komputery 
domowe. Firma Atari zareagowała bar- 
dzo szybko. W 1 979 roku powstały pier- 
wsze. rewolucyjne modele 400 i 800. 
zbudowane w oparciu o 8-bitowy mikro- 
procesor 6502. Różniły się głównie 
klawiaturą. ATARI 400 miał klawiaturę 
foliową, zaś ATARI 800 — typową kla- 
wiaturę maszyny do pisania. Wewnętrz- 
na budowa obu była identyczna. Cha- 
rakterystyczne dla obu modeli było to, 
że o spełnianej przez komputer funkcji 
decydował dołączany z zewnątrz 
specjalny moduł ROM. Jednocześnie 
mogły być podłączone dwa takie mo- 
duły. O jakości i popularności tych 
komputerów najlepiej świadczy to, że 
sprzedano ich 26 milionów sztuk. 

Silna konkurencja Commodore 64, 
wypierającego dzięki swej niskiej cenie 
i uniwersalności, Atari z rynku, zmusiła 
firmę do szybkiej modernizacji wyro- 
bów. Produkcję wersji 400 i 800 
wstrzymano, wprowadzając na ich 
miejsce, jesienią 1 983 roku, nowe mo- 
dele ATARI 600XL i 800XL. Różniły się 
one jedynie pojemnością pamięci RAM 
(16KB i 64KB odpowiednio). Były to 
udoskonalone wprsje wcześniejszych 
modeli tej firmy, Jednak nie uzyskały 
oczekiwanego powodzenia. Firma zna- 
lazła się w obliczu bankructwa. W 1 984 
roku kupił ją dotychczasowy właściciel 
Commodore — Jack Tramiel. Od po- 
czątku 1985 roku rozpoczął on „wojnę 
cenową" ze swoimi konkurentami, ob- 
niżając ceny swoich mikrokomputerów 
prawie o połowę. 

Dzięki walce konkurencyjnej dwóch 
firm stałem się posiadaczem kompute- 
ra ATARI 800XL. Od jesieni 1984 roku 
pilnie śledziłem ceny komputerów do- 


mowych, obserwowałem ich stały spa- 
dek. Nie mogłem' się zdecydować. Naj- 
popularniejszy wtedy u nas Spectrum 
48KB, firmy Sinclair Research, razi I ni- 
ską jakością klawiatury i „niepowa- 
żnym" wyglądem. Commodore 64 był 
w sam raz, lecz zbyt drogi jak na moją 
kieszeń. ATARI 800XL zwrócił moją 
uwagę, gdy jego cena zrównała się z 
ceną Spectrum. Wykonany jest zna- 
cznie solidnie/, ma normalną klawiaturę 
o bardzo dobrej jakości, cztery genera- 
tory dźwięku, w obudowie umieszczone 
są gniazda do podłączenia manipulato- 
rów drążkowych. Nie uwzględniłem tyl- 
ko jednego, o czym nie można było 
wyczytać w krótkich notatkach praso- 
wych, nie może on bezpośrednio 
współpracować ze zwykłym magneto- 
fonem kasetowym. Aby efektywnie wy- 
korzystać możliwości komputera, nie- 
zbędny jest zakup przynajmniej najtań- 
szej pamięci zewnętrznej — magneto- 
fonu firmowego (Program Recorder) 
Jego cena stanowi połowę ceny kom- 
putera, ale podczas pracy jest zna- 
cznie wygodniejszy od zwykłego mag- 
netofonu. 

Radość z nabycia komputera trwała 
krótko. Okazało się, że zarówno pro- 
gramy, jak i literatura, dotycząca tego 
sprzętu, były nieosiągalne. Próbowa- 
łem sam pisać różne programy i gry dla 
dzieci, ale brakowało mi dokładnych 
opisów różnorodnych możliwości 
sprzętu i oprogramowania podstawo- 
wego. Obecnie sytuacja się nieco 
zmieniła. Można już zdobyć ęporo pro- 
gramów dla A TARI, lecz nadal są trud- 
ności z uzyskaniem odpowiedniej lite- 
ratury. Pewne pozycje można kupić, 
po bardzo wysokich cenach, na różno- 
rodnych giełdach. Są to zwykle kiep- 
skie odbitki kserograficzne książek w 


języku angielskim, albo nie najlepsze 
ich tłumaczenia na język polski, rów- 
nież mało czytelne. 

Wraz z kolegą. Tomaszem, postano- 
wiliśmy pomóć wszystkim posiada- 
czom komputerów ATARI, zarówno 
800XL jak i 130XE. Zgromadziliśmy 
trochę literatury, poznaliśmy możliwoś- 
ci 800XL i pragniemy podzielić się zdo- 
bytym doświadczeniem. 

Pragniemy pomóc czytelnikom 
„IKS-a" w poznaniu swojego komputera 
i w jak najlepszym jego wykorzystaniu. 
Będziemy pisać dla tych, którym znu- 
dziły się już gry oraz tych, którzy chcą 
sami, w sposób twórczy, wykorzystać 
swój komputer nie tylko do zabawy. 
Przedstawimy przykłady rozwiązań 
pewnych problemów związanych z 
dźwiękiem oraz grafiką, zapoznamy z 
dostępnymi /ęzykami programowania, 
oraz gotowymi programami użytkowy- 
mi. które mogą pomóc w pracy, nauce i 
zabawie. W redagowaniu działu liczy- 
my na pomoc czytelników. Mamy na- 
dzieję, że pomożecie nam w wyborze 
tematów, które Was najbardziej intere- 
sują. 

RZUT OKA DO ŚRODKA 

Wewnętrzna konstrukcja ATARI 
800XL różni się od innych, równorzęd- 
nych mu komputerów. Ma ęn oczywiś- 
cie mikroprocesor (6502). pamięci 
RAM i ROM oraz układy wejścia-wyjś- 
cia (PIA — Peripheral Interface Adap- 
ter). Dodatkowo ma trzy specjalizowa- 
ne układy scalone (LSI) znane jako 
ANTIC. GTIA i POKEY. Zostały one za- 
projektowane przez inżynierów Atari 
głównie po to. aby odciążyć mikropro- 
cesor od czynności pomocniczych i 
umożliwić mu skoncentrowanie się na 
obliczeniach. Podstawowe zalety 
ATARI 800XL wynikają głównie z moż- 
liwości tych trzech układów. 

ANTIC jest układem przeznaczonym 
do tworzenia obrazu telewizyjnego. 
Jest on prawdziwym mikroprocesorem; 
zawiera, zestaw rozkazów, program 
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zwany programem wyświetlania (dis- 
play list) oraz dane. Program i dane 
do wyświetlania zapisywane są do 
RAM przez 6502. ANflC pobiera te in- 
formacje. korzystając z bezpośrednie- 
go dostępu do pamięci (DMA). Rozka- 
zy wyższego poziomu, zawarte w pro- 
gramie wyświetlania, tłumaczy na ciąg 
prostych rozkazów dla GTIA. 

GTIA jest układem wyjścia telewizyj- 
nego. ANTIC bezpośrednio steruje 
większością jego operacji, lecz 6502 
może być zaprogramowany do usta- 
wiania i sterowania pewnych lub 
wszystkich jego funkcji. GTIA tłumaczy 
rozkazy cyfrowe z ANTIC-u (lub 6502) 
na sygnały, które są wysyłane do tele- 
wizora. GTIA dodaje także pewne 
własne składniki, takie jak wartości ko- 
loru, grafikę gracz/pocisk ,<P)M — 
player/(m.issile) oraz wykrywanie kolizji. 
POKEY jest układem cyfrowego wejś- 
cia/wyjścia. Wypełnia on takie różno- 
rodne zadania jak sterowanie szere- 
gową magistralą wejścia/wyjścia, ge- 
nerowanie dźwięku, testowanie klawia- 
tury i generowanie liczb losowych. 
Zamienia on także na postać cyfrową 
sygnały analogowe „wiosełek" (padd- 
le) i steruje żądaniami przerwań ma- 
skowaln^ch (IRQ) z urządzeń zewnętrz- 
nych. 

Wszystkie cztery układy scalone 
działają jednocześnie. Właściwe roz- 
dzielenie ich funkcji w czasie projekto- 
wania zminimalizowało konflikty mię- 
dzy nimi. Jedyny konflikt na poziomie 
sprzętu, między dowolnymi dwoma 
układami w systemie, występuje wtedy, 
kiedy ANTIC musi wykorzystać magis- 
trale, adresową i danych, w celu po- 
brania informacji do wyświetlania. Aby 
to wykonać, zatrzymuje on 6502 i 
przejmuje kontrolę nad magistralami. 


W każdym komputerze domowym 
ATARI wbudowany jest układ pamięci 
ROM, o pojemności 1 0KB, zawierający 
system operacyjny. Znaczenie tego 
układu jest często niedoceniane. Bez 
niego dysponujemy tylko ogromem 
możliwości, lecz nic poza tym. Ta sy- 
tuacja dotyczy ' wszystkich kompute- 
rów, nie tylko ATARI. Komputer jest ze- 
stawem różnorodnych układów i urzą- 
dzeń. Aby wykonać jakiekolwiek zada- 
nie, użytkownik musi sterować tymi 
urządzeniami (zasobami układowymi). 
Gdyby wszyscy programiści rozpoczy- 
nali tworzenie programów od takiego 
poziomu, byłaby teraz znacznie mniej- 
sza liczba dostępnych programów.' 
Rozwiązaniem, które było stosowane 
przez lata, jest wbudowanie do kompu- 
tera programu, który steruje zasobami 
dostępnymi dla systemu i zmniejsza 
wysiłek programistów, niezbędny do 
sterowania nimi. Program ten znany 
jest pod różnymi nazwami: system ope- 


racyjny, główny program sterujący, 
monitor systemu, system wykonawczy, 
itp. W komputerach ATARI używana 
jest nazwa system operacyjny lub OS. 

Używając zasobów, sprzętowych 
komputera, system operacyjny może 
współpracować z różnorodnymi urzą- 
dzeniami i sterować ich pracą. Do 
urządzeń zaliczamy: odbiornik telewi- 
zyjny lub monitor, klawiaturę, klawisze 
funkcyjne, manipulatory drążkowe, 
wiosełka, magnetofon kasetowy, stację 
dysków, drukarki, układ wejścia/wyjś- 
cia RS-232 i modemy. 

W systemie operacyjnym można wy- 
różnić następujące podstawowe ele- 
menty: 

Monitor. Jest to procedura syste- 
mowa, która jest uruchamiana po włą- 
czeniu komputera lub naciśnięciu kla- 
wisza RESET. Za pośrednictwem tej 
procedury OS przejmuje kontrolę nad 
systemem. Monitor odnawia system 
zarządzania pamięcią, inicjuje podsy- 
stem wejścia /wyjścia, ustawia wektory 
systemu i wybiera środowisko działa- 
nia po zakończeniu inicjowania. 

Obsługa przerwań. Komputer wy- 
korzystuje standardową strukturę 
przerwań mikroprocesora, 6502, z 
pewnym zewnętrznym rozszerzeniem 
w celu zwiększenia elastyczności dzia- 
łania. Przerwania generowane są przez 
pewne zdarzenia, . do których należą: 
naciśnięcie jednego z klawiszy, naciś- 
nięcie klawisza BREAK, pewne zda- 
rzenia magistrali szeregowej, przekro- 
czenie czasu systemowego i pionowe 
(puste) przejście strujmienia świetlnego 
w telewizorze. 

Wektory systemu. Dostarczają one 
mechanizmu, który umożliwia użyt- 
kownikowi dostęp do procedur syste- 
mu lub dostosowanie OS do specjal- 
nych wymagań. Wektory systemu naj- 
częściej używane są do wywoływania 
procedur wejścia/wyjścia, ustawiania 
zegarów i przekazywania sterowania 
do innych środowisk działania. Rozróż- 
nia się wektory ROM, które są miejs- 
cami zawierającymi instrukcje skoku 
(IMP) do procedur systemu i nie mogą 
być zmieniane oraz wektory RAM, któ- 
re zawierają dające się zmieniać adre- 
sy procedur systemu. 

Podsystem wejścia/wyjścia. Sy- 
stem operacyjny umożliwia programiś- 
cie dostęp do wszystkich urządzeń ze- 
wnętrznych komputera. Podsystem 
wejścia /wyjścia jest zestawem proce- 
dur. które łączą wysokopoziomowe 
operacje wejścia/wyjścia z progra- 
mami obsługi (handlerami) urządzeń, 
które fizycznie sterują sprzętem wejś- 
cia/wyjścia. 

Programowanie bieżące. Kompu- 
ter domowy ATARI jest dobrze przygo- 
towany do rozwiązywania problemów 
na bieżąco. W tym celu OS zaopatrzo- 
ny jest dwa typy zegarów: układowe i 
programowe systemu. Zegary układo- 


we odliczają czas w dół i mogą być 
używane do pomiaru czasu trwania 
zdarzeń w zakresie od pół mikrosekun- 
dy do kilku sekund. Zegary syśtemowe 
są programowymi, zmieniają się z czę- 
stotliwością 50 Hz i mogą być używane 
do zastosowań tak różnych jak pomiar 
czasu na magistrali szeregowej lub ge- 
nerowanie efektów dźwiękowych. 

Zestaw znaków. Komputer wyposa- 
żony jest w tak zwany „miękki” zestaw 
znaków, to znaczy, że może być zmie- 
niany. Zestaw znaków ROM używany 
jest dla dostarczenia standardowego 
zestawu znaków po włączeniu zasila- 
nia. 

Pakiet zmiennoprzecinkowy. Jest 
to zestaw procedur matematycznych, 
które zwiększają możliwości systemu. 
Używają one arytmetyki BCD (binary 
codet decimal) w celu dostarczenia 
standardowych funkcji matematy- 
cznych (+. -, *, /), funkcji wykładni- 
czych i logarytmicznych oraz konwersji 
z kodu ATASCII na BCD i z BCD 
na ATASCII. 

OKO KOMPUTERA 

COMPUTER EY.ES jest nowoczes- 
nym urządzeniem do zamiany obrazu 
na postać cyfrową. Wspierane odpo- 
wiednim programem, po włączeniu 
między dowolne, standardowe źródło 
video i komputer ATARI, umożliwia 
wprowadzenie do pamięci, w ciągu kil- 
ku sekund, obrazu o wysokiej rozdziel- 
czości. Obraz może pochodzić z kame- 
ry video, wyjścia TV, dysku optyczne- 
go, innego komputera, itp. Podłączany 
jest do wejścia rhanipulatora drążko- 
wego. Wprowadzony obraz może być 
przechowany na dysku. Używanymi 
trybami graficznymi są: 8 — wysoka 
rozdzielczość: 9 — szesnaście odcieni 
sżarości uzyskanych kosztem rozdziel- 
czości; 7,5 — zgodny z tablicą grafi- 
czną (touch tablet). Wprowadzone 
obrazy mogą być modyfikowane za 
pomocą jednego z następujących pro- 
gramów: Koala Pad, Atari Touch Tab- 
let, Micro Ilustrator lub Magniprint. 

Korzystając z programu Magniprint 
II + można uzyskać: 

— wydruk obrazów w 19 różnych po- 
większeniach: 

— wydruk obrazów z pełnym cienio- 
waniem, uzyskuje się lepsze efekty niż 
na ekranie telewizora. 

Dla użytkowników, którzy nie mają 
dostępu do sprzętu video, oferowane 
są zestawy zawierające: COMPUTER 
EYES + programy do przechowywania 
obrazu i wyświetlania, Magniprint II +, 
kamerę video wysokiej jakości i 3 m 
kabla koncentrycznego z odpowiedni- 
mi końcówkami. 

Umożliwia przechowywanie zdjęć 
w pamięci dyskowej i wyświetlanie ich 
na ekranie telewizora. 

LP 
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Jak wykorzystać 

niedostępną pamięć RAM 

Przedstawiony poniżej program użytkowy umożliwia 
wykorzystanie w mikrokomputerach ATARI 800XL 
i 130XE pamięci RAM niedostępnej w czasie pracy z 
systemem operacyjnym wbudowanym w pamięć ROM 
komputera (ÓS ROM). 

Mapę pamięci mikrokomputera można przedstawić w 


ogólnym zarysie w sposób poniższy: 


nr 

adres 

wykorzystanie 

obsz. 

1 

dziesiętnie 

0-40959 

hexadecym, 
$0000— S9FFF 

40KB RAM /bez kilku 

2 

40960-49151 

SA000— SBFFF 

pierwszych stron 
8KB BASIC lub RAM 

3 

49152-53247 

SC000— SCFFF 

OS ROM— 4 KB 

4 

53248-55295 

SD000— SD7FF 

2KB obszar rejestrów 

5 

55296-65535 

$D800— $FFFF 

we/wy(ang. hardware 
register) 

10KB OS ROM 

W 

czasie pracy z normalnym systemem operacyjnym 


OS ROM dostępne są tylko obszary 1 i 2 (ok. 48 KB), a przy 
włączeniu interpretera BASIC tylko obszar 1 . Jednak za wy- 
jątkiem obszaru 4, związanego z obsługą urządzeń we/ wy. 
pozostałe obszary mogą być z powodzeniem wykorzysta- 
ne. Zezwala ną to konstrukcja komputera i wbudowanego 
weń systemu operacyjnego System operacyjny mikro- 
komputera ATARI zawiera standardowe procedury (pod- 
programy) obsługujące urządzenia zewnętrzne. Na stałe re- 
zydują w systemie operacyjnym podprogramy obsługujące 
takie urządzenia jak: klawiatura „K: ", drukarka „P ", magne- 
tofon kasetowy „C:", monitor „S:" oraz tzw. edytor ekranowy 
„E . Procedury do obsługi innych urządzeń np. dysków nie 
rezydują na stałe w OS ROM (wyjątek stanowią procedury 
inicjujące ładowanie do pamięci procedur DOS), lecz są 
do niego ..dokładane" z dyskietki. Ponadto użytkownik 
komputera ma możliwość wprowadzenia do OS ROM, pro- 
cedur obsługujących swoje własne urządzenia, w postaci 
napisanych przez siebie programów. Tę właśnie możli- 
wość wykorzystuje prezentowany program. Wprowadza on 
do OS ROM dwie dodatkowe procedury obsługujące urzą- 
dzenia oznaczone „M:" i „N " Urządzenie „M:” jest symulo- 
wanym, w normalnie niedostępnym obszarze RAM, dy- 
skiem magnetycznym — stąd jego nazwa RAMDYSK. 
RAMDYSK można wykorzystywać pod kontrolą DOS w 
sposób analogiczny jak normalną dyskietkę (zamiast „D:" 
należy używać ,,M:“). Maksymalna pojemność RAMDYSKU 
faynosi co prawda tylko ok. 22KB (przy włączonym inter- 
preterze BASIC jeszcze mniej, bo ok. 1 4KB) i jest po wyłą- 
czeniu komputera tracona, ale dostęp do zapisanych w 
RAMDYSKU informacji jest znacznie szybszy niż w przy- 
padku normalnej stacji dysków. 

Natomiast urządzenie „N:" (ang.-null handler) symuluje 
wprowadzanie danych przez program na urządzenie ze- 
wnętrzne. chociaż fizycznie dane te nie są nigdzie przesy- 
łane. Nullhandler jest szczególnie przydatny przy testowa- 
niu pisanych programów. Wyobraźmy sobie sytuację, że 
testujemy program, który zapisuje 1 0 000 znaków na taś- 
mę magnetyczną, tworząc jednocześnie pewne tablice 
pamięci. Po zapisaniu dąnych na kasecie program przy- 
stępuje do przetwarzania powstałych tablic. Testując taki 
program, ogrom czasu pochłania oczekiwanie na zakoń- 
czenie przesyłania-danych na taśmę magnetyczną. Nato- 
miast jeżeli zastąpimy w testowanym programie (tylko na 
czas testowania) we wszystkich rozkazach związanych z 


•pamięcią kasetową urządzenie ,.C:" urządzeniem „N . to 
sytuacja radykalnie się poprawi Czas testowania skróci 
się niewspółmiernie. Kto nie wierzy', łatwo może to spraw 
dzić. Ostatnia uwaga na temat tego urządzenia Nie ma 
ono zaimplementowanej funkcji czytania (nie można czy 
tać z niego informacji), toteż każda instrukcja INPUT lub 
GET z nim związana powoduje wystąpienie błędu w nume- 
rze 146. 

Program napisany jest w języku BASIC i kodzie iszy- 
nowym. zainstalowany jest na 6 stronie parmęci o * 1 resu 
$0600 do adresu $06EB. Po napisaniu programu można go 
zapisać na taśmę magnetyczną lub dyskietkę. Program 
uruchamia się instrukcją RUN. Po pojawieniu się komuni- 
katu READY urządzenia ,.M " i „N: są gotowe do użycia. 
Dla użytkowników komputera ze stacją dysków warto po-* 
lecić zapisanie binarnego programu do zbioru-AUTORUN. 
SYS, co zapewni jego automatyczne uruchomienie po każ- 
dorazowym załadowaniu DÓS-a. Natomiast instalacja 
komputera bez stacji dysków wymaga, niestety, przy każ- 
dorazowym włączeniu komputera ładowania programu do 
pamięci 

Wykorzysta 1 RAMDYSKU móże być wielorakie Należy 
zaznaczyć, że wszystkie )ego elementy uwidaczniają się 
podczas pracy z dyskowym systemem operacyjnym. Ale 
również pracując bez DOS-a. użytkownik zyskuje wiele 
cennych możliwości. Na przykład: można do RAMDYSKU 
wprowadzić instrukcję SAVE „M." program w BASIC-u i 
uruchamiać go. gdy istnieje taka potrzeba (RUN „M "). Za- 
znaczyć należy, że oprócz programu przechowywanego w 
RAMDYSKU można załadować program do ..normalnego" 
RAM-u. Opcja ta jest szczególnie przydatna, gdy zachodzi 
potrzeba częstego uruchamiania dwóch lub więcej pro- 
gramów — pozwala ona oszczędzać czas potrzebny na ła- 
dowanie programów. Można w obszarze RAMDYSKU ut- 
worzyć minibazę danych. Trzeba jednakże pamiętać, że 
bez DOS-a dostęp do zapisanych w niej informacji będzie 
dostępem sekwencyjnym, Zawartość takiej bazy danych 
może być skopiowana na kasetę i wprowadzana do RAM- 
DYSKU za pomocą prostego programu w BASIC-u. Można 
w obszarze RAMDYSKU przechowywać grafikę do tworzo- 
nych gier. można go wykorzystać jako bufor do przekazy- 
wania danych pomiędzy programami, może on z powodze- 
niem zastąpić wyjście programowe na drukarkę, a zapisa- 
ny do niego wydruk można skopiować na kasetę lub dy- 
skietkę. Inicjatywa co do sposobu jego wykorzystania na- 
leży do programisty. Proponuję samemu spróbować. 

Opracował: H. KRASUSKI 


10610 S-6REST0RE 10100 

10020 FOR 0-1336 TO 1771 RERD D'POKE R/D 

’S-S*0‘NEXT fl 

10030 IF SO 25924 THEN ? *8LRD ORNYCH* =S 
TOP 

10090 R*USR< 1394) 

10100 DRTR 160.0/105.26/3/201.0/240/9.20 

0,200,200,192/34,200,242.56 

10110 DRTR 96.162,0,109,62,6,153,26,3,23 

2,200,224,6.200,244,174,0 

10120 DRTR 160,232,138,142,0,160,77,0,16 

0,208,4,206,0,160,96,169,160 

10130 DRTR 141,99,6,141,233,6,96,104,76, 

0,6,78,68,6,77,83,6,105,6 

10140 DRTR 105,6,107,6,103,6.103,6,107,6 

,76,106,6,97,6,103,6,160,6 

10130 DRTR 108,6,103,6,103,6,76,106,6,16 

9.192.133.75.169.0. 133.74 

10160 DRTR 160,1,96,162,208,228,75,200.4 

, 162,216, 134,75, 160,0. 196 

10170 DRTR 73,240,20,32,209,6.143.74,32, 

224,6.230,74,196,74,208,2 

10180 DRTR 230,75,200,165,74,141,234,6,1 

63.73,141.233,6,96,32,90,6 

10190 DRTR 160,146,76,142,6,160,208,196, 

73 , 208 , 4 , 1 60 , 2 1 6 , 1 32 , 75 , 1 72 

10200 DRTR 234,6,174,235,6,228,75,208,7, 

196, 74,208,3, 160, 136,96, 160 

10210 DRTR 0,32.209,6,177,74,32,224,6,23 

0,74,196,74,208,2,230.75,160 

10220 DRTR 1,96,120,140,-14,212.174,1,211 

,160,234,140,1,211,160.0,96 

10230 DRTR 142,1,211.162,253,142,14,212, 

88.96.0. 192 
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Czy komputer 
może być życzliwy? 


W idealnym świecie mikro- 
komputerów powinien zacho- 
wywać się jak doskonały asy- 
stent. Należałoby go wówczas 
włączyć, wprowadzić kilka pole- 
ceń (instrukcji) i zostawić same- 
go by po powrocie stwierdzić, że 
zadana praca została wykonana 
zgodnie z poleceniem. 

Niestety, otaczający nas świat nie 
jest idealny. Poza barierami technolo- 
gicznymi. przyczyn takiego stanu nale- 
ży upatrywać w tym. że część ludzi nie 
zrobi (me potrafi) nic za włączeniem 
komputera —.znacznie mniej, zrobi coś 
ponadto. 

Wysiłki nad pokonaniem tych barier, 
uczynieniem komputera bardziej „przy- 
jaznym", ..życzliwym" dają niestety 
ograniczone efekty. Ale projektanci są 
nadal przy pracy w swoich laborato- 
riach Należy więc mieć nadzieję, że w 
niedalekiej przyszłości, spotkamy się z 
życzliwością komputerów, 

Firmy komputerowe zapewniają, że 
już wkrótce użytkownicy będą mówili 
do mikrokomputerów i mikro będą 
odpowiadały (miejmy nadzieję, że 
grzecznie). 

Technologia została opracowana, 
problem tkwi w kosztach tego rozwią- 
zania. Cena procesora o odpowiedniej 
mocy i pamięciach masowych dla syn- 
tezy i rozpoznawania mowy musi zna- 
cznie zmaleć przed wkroczeniem tej 
technologii na rynek mikro, 

Foniczne („mówione”) wejście i 
wyjście informacji do i z komputera jest 
jak dotychczas ostatnim stopniem w 
śwjatowym rozwoju oprogramowania. 

Oczywiście oprogramowanie nie 
musi być życzliwe, by było użyteczne. 

Ważnym zabiegiem w staraniach o 
pozyskanie była zmiana zasad kons- 
trukcji oprogramowania z prezentacji 
menu skonstruowanego ze znaków na 
WIMP (okna. ikony, myszka i zwijane 
menu — Windows, icons. mice and 
pull-down menus). 

Pionierską pracę w tym zakresie wy- 
konano dla Rank Xerox w Pało Alto Re- 
search Centre. Był to bodziec do roz- 
poczęcia produkcji Xerox Star i po- 
średnio Mac. Gem. Taxi i innych pro- 
duktów typu WIMP. 

W Xerox Parć zwrócono szczególną 
uwagę na oprogramowanie takich 
własności systemu, które znacznie 
upraszczają pracę programistów. 

Ikony, menu i dialogowa skrzynka. 


nazywana także tabliczkami do ryso 
wania (zasada jej działania jest dalej 
opisana) zminimalizowały wszystko to. 
czego użytkownik mikro musi się uczyć 
i co musi pamiętać. Jest to skrupulat- 
nie wykorzystywane w wielu progra- 
mach. 

Przystępność graficznej informacji 
ma szczególną wartość, gdy zostaje 
wykorzystana jako sposób w przeka- 
zywaniu komend do systemu opera- 
cyjnego mikro. W rezultacie oprogra- 
mowanie tak rozumianej grafiki — ży- 
czliwości — znacznie upraszcza pracę 
operatorską. \ 

Firmy produkujące i sprzedające 
oprogramowanie i sprzęt zgodziły się z 
tym. że ulepszaniu systemu operacyj- 
nego maszyny powinien towarzyszyć 
jej „życzliwy wygląd". Wytwórcy traktu- 
ją tak rozumianą życzliwość jako spo- 
sób na sprzedaż mikro użytkownikom, 
którzy wcześniej byli przeciwni kupie- 
niu komputera 

Ostatnio wiele firm produkujących 
mikrokomputery podpisało z Microsof- 
tem i z Digital Research umowy, by 
produkowane przez nich systemy ope- 
racyjne. coraz częściej nazywane gra- 
ficznymi interfejsami, typu OKNA i 
GEM były produkowane bez ograni- 
czeń zawężających zdolność ich pracy 
tylko do określonego typu komputera. 
Innymi słowy, dotychczas omawiane 
systemy operacyjne mogły praktycznie 
pracować tylko na sprzęcie, do którego 
były dołączone. Jednak entuzjazm 
użytkowników wobec trudnych do 
przecenienia możliwości „życzliwych 
systemów" według Digital Research 
okazał się nadzwyczaj wymierny, za- 
ledwie bowiem 50% kopii GEM pracuje 
na oryginalnym sprzęcie, pozostałe 
50% jest w rękach wspomnianych 
użytkowników, którzy są głęboko prze- 
konani. iż GEM zapewnia im łatwy spo- 
sób komunikowania się z mikro. 

Digital Research porównał dwa róż- 
ne interfejsy— programy. Jeden znany 
jako VIP przekazywał informacje zna- 
, kami. częściowo w postaci ikon. Jego 
ekran podzielony był na 3 części: w le- 
wym górnym rogu powierzchnia pracy, 
menu po prawej stronie i rozwinięcie 
komend wzdłuż dołu ekranu. Drugi, 
preferowany przez użytkowników (co 
zapewne potwierdziło założenia badań) 
program to wspominany GEM — opie- 
rał się na ikonach, miał możliwości re- 
konfiguracji podziału ekranu. Menu 



ukazuje się w szczytowym pasku ekra- 
nu. Pełne menu ukazuje się w postaci 
„zwijanego" w dół tękstu. 

W tym miejscu warto zwrócić uwagę 
na fakt. że dwie konkurencyjne firmy 
produkujące oprogramowanie Digital 
Research i Macintosh miały bardzo 
podobne rezultaty prac nad interfejsem 
użytkownika. Dowodzi to. że kwestia 
życzliwości mikro nie jest epizodem w 
rozwoju systemów operacyjnych mi- 
krokomputerów. Jego dużą wagę pod- 
kreśla niekwestionowane zaintereso- 
wanie użytkowników — profesjonali- 
stów i amatorów — także liczących się 
w świecie producentów systemów 
operacyjnych 

Rozwijając system Taxi, jego produ- 
cent. Epson, rozważnie kierował się za- 
sadą oryginalności, unikania kopii na- 
wet takich firm jak Macintosh, miał jed- 
nak cały czas na uwadze podstawy 
WIMP. 

Jednym z twórców życzliwości mikro 
za pośrednictwem systemu Taxi był 
Alistair Macintosh. Wykorzystał on 
swoje bardzo bogate doświadczenie z 
pracy nad wizualną percepcją w pro- 
jektowaniu tego typu programów. 
„Mózg jest bardzo dobry do oceny wzo- 
rów — przestrzennej percepcji — mówi 
Macintosh — gdy wejdziesz do pokoju 
z zawiązanymi oczami i zdejmiesz 
przepaskę na pót sekundy, będziesz w 
stanie opisać bardzo wiele — usytuo- 
wanie okien, drzwi, stotu itp. Natomiast 
czytanie / est wyuczonym atrybutem. 
Jeśli dam . ci opis pokoju i bdslomę 
oczy, to będziesz potrzebował dużo 
czasu, by opisść pokój'\ 

W Taxi, sprawdzając podział zbio- 
rów, widać dużą liczbę ikon, które. są 
łatwo rozpoznawalne dzięki ich kształ- 
towi. Porównując to z systemami Macin- 
tosha i GEM. gdzie ikony są tak małe, 
że niezbędny pkazał się tekst opisują- 
cy typ zbioru reprezentowany przez 
ikony. W rezultacie znowu pośredni- 
kiem stają się znaki alfanumeryczne. 

Według oceny Macintosha rozwój 
grafiki jest limitowany przez użyty w 
IBM mikroprocesor, będący standar- 
dem w profesjonalnych mikro, a także 
przez pojemność dostępnej pamięci. 

dokończenie na str. 20 
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dokończenie ze str. 19 

Macintosh oczekuje w niedalekiej 
przyszłości systemu, który będzie rea- 
gował na każde dotknięcie klawiatury. 
W len sposób, by użytkownik odczuwał 
życzliwość komputera. Hasło „pomoc" 
spowoduje natychmiastowe udzielenie 
rad i wskazówek, co należy robić. 

Użytkownicy zatrudnieni w przemyś- 
le oczekują innych niż klawiatura poś- 
redników. także myszka nie cieszy się 
zbyt wielkim powodzeniem. Chodzi o 
to, by posługiwać się zbliżonymi do na- 
turalnych metodami przekazywania in- 
formacji. Ekran dotykowy wymaga po 
prostu dotykania palcem wyróżnionych 
swoich części. Znajdująca się tam in- 
formacja jest odbierana przez kompu- 
ter. Zatem nie klawiatura, która, ma 
często ponad setkę klawiszy, lecz po 
prostu dotknięcie palcem wybranego 
obrazka na ekranie — komunikatu — 
pośredniczy w przekazywaniu informa- 
cji do mikro 

Podobnie działa tabliczka do ryso- 
wania. która pośredniczy w bezbłę- 
dnym przekazywaniu do maszyny 
współrzędnych miejsca dotknięcia 
tworzącego ją prostokąta, na przykład 
formatu dwóch kartek papieru. Całość 
ułożona jest na stole. Dotykane na tab- 
liczce miejsca są odpowiednio od- 
zwierciedlane na ekranie monitora. Za- 
tem rysując na tabliczce (palcem, tak- 
że igłą. ołówkiem) kwadrat, pojawia się 
on jednocześnie na ekranie lub dotyka- 
jąc odpowiednie miejsce tabliczki, wy- 
różniamy fragment ekranu, na którym 
jest na przykład symbol dysku (ikona 
dysku), w odpowiedzi komputer druku- 
je operacje możliwe do wykonania na 
dysku Kopiowanie, reorganizacja, ka- 
sowanie. listowanie, czytanie itp. Nasz 
wybór „czytanie' (przez dotknięcie 
fragmentu obrazu) lub tabliczki, (w któ- 
rym wyświetlone jest to słowo) powo- 
duje kolejne pytania mikro: czytanie 
nazw?, wczytanie zbioru 7 , programu 7 
Nasz wybór „programy?" inicjuje kolej- 
ne propozycje komputera. Tym razem 
są mmi nazwy programów zapisanych 
w dostępnych pamięciach dyskowych. 
Ostatecznie wybrany przez nas pro- 
gram (dotknięciem obrazka jego na- 
zwy) jest wczytany do pamięci RAM. 
Podobnie przebiega jego uruchomienie 
i eksploatacja. 

Jednakże doświadczeni użytkownicy 
wydają się niechętni wobec innych niż 
klawiatura pośredników. Profesjonaliś- 
ci uważają, że używanie myszki po pros- 
tu me jest „męskie". Krytycyzmu tego 
rodzaju należy prawdopodobnie upa- 
trywać także w doświadczeniach uzys- 
kanych podczas eksploatacji syste- 
mów przetwarzania tekstów. Niezbę- 
dne okazuje się wówczas wykorzysty- 
wanie klawiatury. 

Nowa Amiga Commodora ma wyjąt- 
kowo duże możliwości, często przekra- 
czające standardy światowe. Pozwala 
bowiem na bardzo duży zakres korzy- 


stania z życzliwego interfejsu użytkow- 
nika z doskonale oprogramowaną 
myszką i typowym dostępem do^kla- 
wiatury. 

Jednak przebojem Amigi jest pier- 
wszy komputer, który dysponuje tek- 
stem do ,. wypowiadania . mówienia" in- 
formacji wyjściowych. Mikro może 
mówić do ciebie lub po prostu czytać ci 
wybrane dokumenty. 

Zasadniczą barierą sterowania kom- 
putera głosem są koszty. ..Mówione 
wejście" lub inaczej rozpoznawanie 
mowy, jest dzisiaj możliwe. Na cenę te- 
go rozwiązania wpływa technologia 
elementów elektronicznych — proce- 
sory. pamięci. 

Wiele z ..fonicznych planów osiąg- 
nął w ubiegłym roku APRICOT. W celu 
rozpoznania rynku, uzyskania oceny 
reakcji użytkowników. Apricot wprowa- 
dził na rynek mikro, który może rozpo- 
znawać 4000 słów. Niestety, technolo- 
gia ta nie została doceniona i mikro me 
cieszył się oczekiwaną popularnością 
Właściciele tego mikro stwierdzili, że 
potrzeba zbyt dużo czasu, by komputer 
nauczył się rozpoznawać komendy je- 
go właścicieli. Na początku użytkowni- 
cy muszą określić, które komendy ma- 
ją być rozpoznawane przez program i 
potem wypowiadają kolejne komendy 
po pięć razy, aż komputer nauczy się je 
rozpoznawać. 

Dystrybutorzy zauważyli, że trudno 
jest znaleźć profesjonalne zastosowa- 
nia tego rodzaju rozpoznawania mowy. 

Rynek oczekuje mikro ze słownikiem 
20 000 słów, których wymowę rozumie i 
wypowiada komputer. Taki mikro wy- 
maga pamięci gigabajtowej. Przewidu- 
je się. że rolę tę będzie pełnił CD ROM 
(compact disk read-only memory). 
Obecnie dostępne CD ROM mają oko- 
ło pół gigabajta pojemności, ale czas 
dostępu 0,5 sekundy. Zatem CD ROM 
mogą być tylko częścią rozwiązania. 
Ponadto CD ROM kosztuje dzisiaj aż 
1 200 funtów 


Synteza dźwięków mowy ludzkiej wy- 
maga trudnej do wyobrażenia pracy 
procesora Niezbędne są szybkie pro- 
cesory, takie jak INTEL 80286 i 80386. 

Apricot nie zmienił swoich „foni- 
cznych” planów i dąży do zmniejszenia 
kosztów ich realizacji. Osiąga to przez 
wprowadzenie sieci komputerowych, 
co znacznie zmniejsza koszt ponoszo- 
ny przez jednego użytkownika Ponadto 
wdrożono także system, który wykorzy- 
stuje interfejs opierający się na iko- 
nach łącznie z wejściem głosem. W 
rozwiązaniu tym rozpoznanie mowy 
jest wykonywane w większości pro- 
gramowo 

A następny krok? 

Staniemy przed komputerami, z któ- 
rymi można porozmawiać. Przed mot 
tej konwersacji, jej zakres>zależny iest 
od oprogramowania. Przewiduje się że 
najczęściej będzie to system tyou 
EKSPERT 

System ekspert ma zaprogramowa- 
ne zasady i informacje, które są dosta- 
teczne. by zadawać pytania użytkowni- 
kowi. oceniać odpowiedzi i odpowia- 
dać samemu. Jeśli konwersacja 
odbywa się za pomocą głosu można 
autentycznie odczuć życzliwość 
komputera i sympatię ... do tego 
urządzenia 

Taka „rozmowa" wymaga nadzwy- 
czajnych prac ekspertów, programo- 
wania, rejestracji faktów i zasad obo- 
wiązujących w systemie ekspert. Po- 
nadto komputer powinien być „wyćwi- 
czony” w rozumieniu tysięcy słów w 
swoim słowniku, bez względu na ak- 
cent mówiącego 

Zapewne większość czytelników 
JKS-a" z niecierpliwością oczekuje 
upowszechnienia sygnalizowanych ob- 
jawów życzliwości komputerów. Należy 
jednak pamiętać, że nasze biura, re- 
dakcje, staną się wówczas niezwykle 
gwarnymi miejscami. 



..życzliwe czy nieżyczliwe, zabawa z nimi wspaniała! 
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6 


BASIC 


(Podstawy programowania) 

Włączamy komputer i zaczynamy. 

Wykład szósty: zagnieżdżone instrukcje cyklu (pę- 
tle), zasady tworzenia cykli obli- 
czeniowych (pętli); sc roli 
(„przewijanie” ekranu), komendy: 
BREAK, CONTINUE; instrukcje: 
CLS, PAUSE; 

W wykładzie czwartym zapoznaliśmy się z cy- 
klami obliczeniowymi (pętlami), oraz z instruk- 
cjami cyklu FOR i NEXT za pomocą, których 
zapisujemy pętle w BASICU. 

Dotychczas we wszystkich przykładach wystę- 
powały pojedyncze cykle obliczeniowe postaci: 

40 FOR i = 1 TO n STEP 1 
60 REM wnętrze pętli 
70 NEXT i 

Natomiast w tym wykładzie omówimy zagnież- 
dżone instrukcje cyklu (pętle) oraz zasady two- 
rzenia pętli. 

W ramach jednego cyklu obliczeniowego (jednej pętli) mo- 
gą być wykonywane dalsze cykle obliczeniowe. Tak więc 
pętle mogą być (zagnieżdżone) jedna w drugiej, ale nigdy 
nie mogą zachodzić jedna na drugą. W tym wykładzie, jak i 
w następnych będziemy posługiwali się tylko nazwą pętle 
obliczeniowe. Zasady tworzenia pętli najłatwiej jest zobra- 
zować graficznie: 

1 ) pętla pojedyncza 2) pętle rozłączne 



4) pętla trzykrotna 
a) 


c 


G 


c 


trzykrotne zagnieżdżenie pętli 

5) pętle nie mogą się przecinać (zachodzić jedna na dru- 
gą): 

źle 



6) z pętli można „wyskoczyć" za pomocą 



7) z pętli można „wyskoczyć i powrócić do pętli z zacho- 
waniem wartości zmiennej sterującej. 


tkocz 




i 


skocz 


3) pętla podwójna 

a) , b) 


G 
G 

j i 

dwukrotne zagnieżdżenie pętli 



8) nie wolno wykonywać skoku do pętli z zewnątrz: 



Pętle typu 1) i 2) występowały w programach wykładu 
czwartego. Zajmiemy się więc omówieniem pętli typu 3) + 

8 ). 

dokończenie na str. 22 
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dokończenie ze sir. 21 


Program: 


Przykład 5.1 

Napisać program, który w każdym znaku ekranu drukuje 
(gwiazdkę). 


10 REM Przy k lad S. 1 
15 REM ekran -22 Linie po 32 
znaki 

20 REM petLa typu 3a) - 
dwukrotne zagnieżdżenie petLi 
30 FOR i *1 TO 22 
40 FOR j = l TO 32 
50 PRINT 
60 NEXT j 
70 PRINT 
80 NEXT i 


Przykład 5.2 

Napisać programy, które drukują figury postaci 


jest do 
pozy c ji 


10 REM Przyktad 5.3 
15 REM ekran - 22 Linie po 32 
znaki 

20 REM petLa typu 3b) 

30 FOR i *1 TO 11 
35 REM do wypełnienia jest 11 
podwójnych Linii 
40 FOR j*l TO 16 
45 REM w każdej Linii 
wypeLnienia 16 
dwuznakowych 
50 PRINT 
60 NEXT j 
70 PRINT 

80 FOR j»l TO 16 
90 PRINT 
100 NEXT j 
110 PRINT 
120 NEXT i 


Przykład 5.4 

Napisać program, który numeruje znaki w każdej linii ekra 
nu w następujący sposób: 

01234567890123456789012345678901 (32 znaki) 

Program 


a) programy: 


i§ im - 

dwukrotne zagnieżdżenie petLi 
30 FOR i=l TO 22 
40 FOR j=l TO i 
50 PRINT 
60 NEXT j 
70 PRINT 
60 NEXT i 


a§ im KW l Mp5-iif 

dwukrotne zagnieżdżenie 
30 FOR i =22 TO 1 STEP 
40 FOR j=l TO i 
50 PRINT 
60 NEXT J 
70 PRINT 
80 NEXT i 


petLi 

-1 


W programach tych zmienna sterująca i jest wartością 
końcową zmiennej sterującej (wartość zmiennej sterującej 
można wykorzystywać w pętli, ale nie wolno jej zmieniać). 

Przykład 5.3 

Napisać program, który wypełnia ekran ..szlaczkiem" po- 
staci: 


1 linia : 

2 linia : ♦ - 

3 linia v 

4 linia : 4 - + - 4 - 

itd. 


10 REM Pr zyk Lad 5.4 . 

20 REM petLa typu 4aj - 
trzykrotne Zagnieżdżenie petLi 
25 REM aby p r og r am . by L bar- 
dziej czytelny (przejrzysty) 
można go zapisać jak niżej, 
uwidaczniając zagnieżdżenie 
instrukcji FOR 

30 FOR i =1 TO 22 
40 FOR j=l TO 3 
50 FOR k =0 TO 9 
60 PRINT k; 

70 NEXT k 
80 NEXT j 
90 PRINT 0; 1 
100 NEXT i 


Przykład 5.5 

Napisać program, który „rysuje" na ekranie szachownicę 
Ka/de pole szachownicy ma zajmować na ekranie 4 znaki: 


y///m 

uZ 



7^ 







1 



mm 

LJ 



TT 



| i i 




t 7 

. . . , 


TT 




TT 

[1 



TT 




\ 



w. 

Wy. 








BEM Przyk Lad .5.5 
REM szachownica - 


70 

80 

90 

100 

110 

120 

130 

140 

150 

160 


Liczba znaków = 256 
(16 L i ni i *16 znaków 
w Linii) 

REM petLa typu 4b) 

FOR i =1 TO 4 
FOR j=l TO 2 
FOR k = 1 TO 4 
PRINT ’• Hi". 

REM ■ - otrzymujemy na kur- 
sorze G,naciskajac jed- 
nocześnie kLawisze 
CRPS SHIFT i 8 
NEXT k 
PRINT 
NEXT j 

FOR j=l TO 2 
FOR K = 1 TO 4 
PRINT "H 
NEXT k 
PRINT 
NEXT j 
NEXT i 
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Przykład 5.6 

Napisać program, który drukuje potęgi od 1 do 4'wszyst- 
kich liczb od 1 do 10. 

Program 


10 REM Przyk Lad 5.6 
20 FOR i =1 TO 4 
'30 FOR jsi TO 10 
40 LET k = jt i 
50 PRINT k 
t>0 NEXT j 
70 NEXT i 
80 STOP 


W trakcie realizacji naszego programu, gdy został zapeł- 
niony liczbami cały ekran (wszystkie linie) na dole ekranu 
pokazał się napis s c r o 1 1? Naciśnijmy dowolny klawisz 
np. klawisz A. Liczby napisane w górnych liniach ekranu 
„chowają" się poza ekran, a od dołu ekranu zaczynają się 
wprowadzać ripwe linie z następnymi liczbami. Po każdym 
napisie s c r o 1 1? naciśnijmy ten sam klawisz. Przesuwa- 
nie się linii do góry zakończy się w tym momencie, gdy na 
dole ekranu pokaże się napis: 

9 STOP statement. 80:1- 

Widać z tego przykładu, że gdy górna część ekranu za- 
pełnia się, to zostaje on przesunięty w górę o jedną linię 
(itd.). Jeżeli miałoby to pociągnąć za sobą utratę linii, którą 
chcielibyśmy oglądać, komputer staje i pyta: s c r o 1 1? 

Naciśnięcie klawisza N, SPACE, STOP lub BREAK za- 
trzyma wykonywanie programu z komunikatem: 

D BREAK — CONT repeates nr 1 : nr 2 
nr 1 — numer wiersza, w którym został zatrzymany pro- 
gram, 

nr 2 — numer instrukcji w tym wierszu. 

Natomiast naciśnięcie dowolnego innego klawisza spo- 
woduje przesunięcie ekranu 
Wykonajmy jeszcze raz nasz program (RUN. ENTER) 
Ekran zapełnia się liczbami i pojawi się nam napis: 
s c r o 1 1?, naciśnijmy teraz klawisz N i ENTER, na 
dole ekranu pojawi się komunikat: 

D BREAK CONT repeates, 40 : 1 
Naciśnijmy teraz klawisz CONT CONTINUE, kom- 
puter „przypomina sobie" numer wiersza podany w 
ostatnim komunikacie i rozpoczyna wykonywanie 
programu od tego wiersza (powtarza wiersz). 

Wykonajmy jeszcze raz nasz program. Gdy ekran zapeł- 
ni się do połowy liczbami naciśnijmy równocześnie klawi- 
sze CAPS SCHIFT i SPACE (BREAK) - przerwiemy 
wykonywanie programu („zawiesimy" program). W lewym 
dolnym rogu ekranu pojawi się komunikat: 

L BREAK — CONT repeates. nr 1 : nr 2 
Naciśnijmy teraz klawisz CONT. Po wciśnięciu CONTI- 
NUE realizacja programu rozpocznie się od następne- 
go wiersza po wierszu, którego numer został podany w 
komunikacie. 

Wykonajmy jeszcze raz nasz program. Gdy ekran zapeł- 
ni się np. do połowy liczbami naciśnijmy klawisz STOP — 
przerwiemy wykonywanie programu, w lewym dolnym rogu 
ekranu pojawi się komunikat: 

9 STOP statement, nr 1 . nr 2 
Naciśnijmy teraz klawisz STOP. Po wciśnięciu CON- 
TINUE realizacja programu rozpocznie się od następ- 
nego wiersza, tzn. nie powtarza się instrukcji STOP. 

Przykład 5.7 


Napisać program, który drukuje tabliczkę mnożenia w na- 


stępujący sposób. 

1 * 1=1 2 * 1=2 

1*2 = 2 2*2 = 4 


1 • 10 = 10 


2 * 10 = 20 
itd 


a) program: 


10 REM Przy k Lad 5.7 
20 PRINT •• TRBLICZKR MN02 
NIR” 

25 PRINT 

30 FOR i=l TO 9 STEP 2 
40 FOR j=l TO 10 
50 PRINT i;” * ";j;" = 

+ 1; " * " ; j ; " = " ; (i +1) * j 

60 NEXT j 
70 PRINT 
80 PRUSE 250 
90 CLS 
100 NEXT i 


Wprowadźmy i wykonajmy ten program. 
Poniżej zamieszczamy przykładowe wyniki 


TRBLICZKR 


1 = 
£ = 

3 = 

4 = 

5 = 

6 = 

7 = 

8 = 

9 = 

10 


MNOZENIR 
1 = 


10 


3 *= 

4 * 

5 a 

6 s 

7 = 

8 = 

9 = 

•10 


2 
4 
6 
8 
10 
12 
14 
16 
18 
i 20 


W czasie realizacji naszego programu zauważamy, że 
gdy zostaną wydrukowane wyniki dla dwóch kolejnych 
liczb np. 1 i 2, lub 3 i 4 itd., wyniki te „stoją" na ekranie pe- 
wien czas. a następnie ekran zostaje oczyszczony. 

W programie napisano instrukcje: 

80 PAUSE 250 

oraz 

90 CLS 

Instrukcja 

n PAUSE m 

n — numer wiersza 
m — liczba 

zatrzymuje działanie programu i wyświetla obraz przez 
m/50 sek. ramki ekranu (ramek tych wyświetlanych jest 50 
na sekundę). 

W naszym programie obraz na ekranie będzie „stał 
przez 5 sekund, umożliwi to odczytanie wyników umie- 
szczonych na ekranie. 

Instrukcja 

n CLS 

n — numer wiersza 

oczyszcza ekran z wszelkich informacji (CLS — elear 
screen). 

CLS można używać w BASICU-u na ZX Spectrum, ja- 
ko instrukcję, lub jako komendę (omawianą w pierwszym 
wykładzie). 

Można usunąć z programu te dwie instrukcje tzn. 80 
PAUSE 250 i 90 CLS. wtedy w czasie realizacji programu 
pojawi się napis s c r o 1 1? — działanie zostało omówione 
przy omawianiu przykładu 5.6. 

dokończenie na itr. 24 
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dokończenie ze str. 23 

Przykład 5.8 


Napisać program, który drukuje na ekranie liczby 1.2.3 w 
następujący sposób: 



a) program 


łl 

BEM Przykład 5, 
REM petTa typu 

■9. 

20 

FOR i si TO 22 


30 

FOR J at 1 TO 22 


40 

IF i = J THEN GO 

TO 

50 

IF i>J THEN GO 

TO 

60 

PRINT 3; 


70 

NEXT J 


75 

PRINT 


80 

NEXT i 


90 

STOP 


100 

PRINT 2; 


110 

GO TO 70 


120 

PRINT 1; 


130 

GO Tu 70 



b) wyniki 

2333333333333333333333 
1233333333333333333333 
1 123353333333333333333 
1112333333333333333333 
1111233333333333333333 
1111123333333333333333 
1111112333333333333333 
1111111233333333333333 
1111111123333333333333 
1111111112333333333333 
1111111111233333333333 
1111111111123333333333 
1111111111112333333333 
1111111111111233333333 
1111111111111123333333 
1111111111111112333333 
1111111111111111233333 
1111111111111111123333 
1111111111111111112333 
1111111111111111111233 
1111111111111111111123 
1111111111111111111112 


Tak napisany program ilustruje nam pętlę typu 7) 
Instrukcje: 

40 IF i - | THEN GOTO 100 

oraz 

50 IF i > j THEN GOTO 120 

„wyprowadzają realizację programu poza pętlę, natomiast 
instrukcje. 

110 GOTO 70 i 130.GOTO 70 
„wprowadzają” realizację programu w obszar pętli (konie- 
cznie w obszar pętli wewnętrznej tzn. pętli ze zmienną ste- 
rującą j). 


Instrukcja 

90 STOP 

spowoduje, że po zakończeniu pętli program nie wykona 
następnych instrukcji, które właściwie należą do wnętrza 
pętli 

W BASIC-u na ZX Spectrum, program ten można napi- 
sać bez „wyprowadzania” jego realizacji poza obszar pętli, 
a tym samym ograniczyć liczbę skoków, a wi£c w postaci: 


10 REM Przykład 5.3.1 
20 FOR i *1 TO 22 
30 FOR j*l TO 22 
40 IF i«J THEN PRINT 2; : 
70 

50 IF i > j THEN PRINT 1; : 
70 

60 PRINT 3; 

70 NEXT j 
75 PRINT 
80 NEXT i 

85 REM instrukcja STOP - 
niekonieczna 

90 STOP 

Przykład 5.9 


Dany jest program 


10 REM Przykład 5.9 
20 RtM petła typu 5) 
30 FOR i »1 TO 4 
40 FOR jal TO 5 
50 PRINT i ; " * JJ " 
60 NEXT i 


70 NEXT J 
75 PRINT 
80 PRINT 

li I 
e ! " 


"zła konstrukcja pet 
petle przecinają si 


Wprowadźmy i wykonajmy ten program. Niżej prezentu- 
jemy otrzymane wyniki: 


1 

2 

3 

4 
10 
18 
28 
40 


z ła konstrukcja pet li ! 
pet te przecinają siei 


Analizując otrzymane wyniki zauważymy, że nie są one 
poprawner Program ten miał drukować wyniki mnożenia 
liczb od 1 do 4 przez liczby od 1 do 5. a więc wyniki po- 
staci: 

1*1 = 1 
1*2 = 2 
1*3 = 3 
1*4 = 4 
1*5 = 5 
2 * 1=2 
2*2 = 4 


4*4= 16 
4 • 5 = 20 

Natomiast wyniki, które otrzymaliśmy, całkowicie odbiegają 
od oczekiwanych. 

Konstrukcja tego programu jest błędna. Pętle obli- 
czeniowe przecinają się (zachodzą jedna na drugą). 

Wynik działania takiego programu jest nieokreślony tzn. w 
różnych reprezentacjach BASIC-u możemy otrzymać róż- 
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ne wyniki, ponadto jest zawsze inny od tego, jaki chcieliśmy 
otrzymać. 

Zamieńmy miejscami instrukcje 

60 NEXT i . 

70 NEXT | 

tzn. napiszmy 

60 NEXT ) 

70 NEXT i 

Wykonując tak poprawiony program otrzymamy oczekiwa- 
ne przez nas wyniki. 


Taki zapis jest błędny, gdyż nie wolno wykonywać skoku 
do wnętrza pętli z zewnątrz, jeżeli uprzednio z niej nie „wy- 
skoczono". 

Przykład 5.11 

Napisać program na obliczanie sumy 20 liczb wczytywa- 
nych w trakcie realizacji programu. Jeżeli wczytywana 
liczba jest równa 99, to sumowanie należy zakończyć (na- 
wet gdy wczytano mniej niż 20 liczb). 


Przykład 5.10 


Dany jest program: 


y 


10 REM PrzyK lid 5.10 
E 0 rem pętla typu Si 
SS PR1NT "z la konstrukcja - n. 

mol no wykonywać skol 
do pętli z zewnątrz 

Ę PSOT-l TO * 

4.0 FOR j*l TO 5 

50 PRINT ii" * "iJi" 3 

60 NEXT j 

70 NEXT i 

75 GO TO 50 

80 PRINT 

90 STOP 


Wprowadźmy i wykonajmy ten program. Niżej prezentuje- 
my przykładowo wyniki 

zia konstrukcja - nie 
wolno wykonywać skoku 
do pętu z zewnątrz! 


2 * 


1 

2 

3 

4. 

5 

2 

4- i 

6 
8 

10 

3 
6 
9 
12 

15 

4 
3 
12 

16 


44 - 


7 = 
7*8 = 
8*9 = 

•3 * 10 : 

10 * 11 
11 * 12 

12 * 13 

13 * 14 


42 
56 
72 
: 90 
= 110 
= 132 
* 156 
= 182 


Wyników tych byłoby więcej, ale zatrzymano działanie 
programu naciskając klawisz BREAK. Program ten reali- 
zuje to samo zadanie co program z przykładu 5.9. 

Część wyników jest poprawna (do kreski) i to miał zreali- 
zować program, natomiast (poniżej kreski) inne wyniki są 
przypadkowe. Zostało to spowodowane umieszczeniem w 
programie instrukcji: 

75 GOTO 50 

która po zakończeniu pętli wprowadza działanie programu 
do wnętrza pętli, a tym samym pętle nie rozpoczynają się 
od podstawienia wartości początkowych i sprawdzenia 
warunku niewykonywania pętli (patrz wykład 4'). 


a) schemat blokowy 



10 REM Przykład 5.11 
20 REM pętla typu 6) 

25 LET £ =0 

30 FOR i =1 TO 20 

40 INPUT "X = " ; X 

50 IF X =99 THEN GO TO 100 

60 LET s=s+x 

70 NEXT i 

80 PRINT "wczytano liczb = ";j- 

1 

90 GO TO 110 

100 PRINT "wczytano liczb =";i 
li© PRINT '"suma wczytanych lic 
zb wynosi: " ; s 

120 STOP 


c) wyniki 

wczytano liczb =11 

suma wczytanych liczb 
wynosi : 1 © 


wczytano li czb =11 

suma wczytanych liczb 
wynosi I© 

dokończenie na str. 26 
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Jeśli masz w domu SPEC- 
TRUM i popularną przystawkę z 
interfejsem typu KEMPSTON 
nazywaną z ang. JOYSTICKIEM 
i nie wiesz jak wykorzystać ją we 
własnych programach, poniższy 
tekst powinien ci pomóc. Poru- 
szając drążkiem powodujesz 
przesłanie odpowiednich war- 
tości do PORTU 31, który w 
przypadku KEMPSTONA służy 
do komunikacji z komputerem. 
Wystarczy tylko odczytać poja- 
wiające się w porcie informacje 
i wykorzystać je. 

Rysunki przedstawiają wartości dzie- 
siętne odwzorowywane przez JOY- 
STICK: 
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chyleniach drążka w pionie i poziomie, 
zaś FIRE dokłada do PORTU liczbę 1 6. 
Oto prosty przykład sterowania ruchem 
punktu na ekranie: 


10 CLS 

20 LET x=128: LET y=88 
30 PLOT x , y 

40 IF IN 31=1 OR IN 31=17 THEN 
PLOT INVERSE l;x,y: LET x=x + l 
: IF x=256 THEN LET x=255 
50 IF IN 31=2 OR IN 31=18 THEN 
PLOT INVERSE l;x,y: LET x=x-l 
: IF x=-l THEN LET x=0 
60 IF IN 31=4 OR IN 31=20 THEN 
PLOT INUERSE l;x,ys LET y=y-l 
: IF y=— 1 THEN LET y=0 v 
70 IF IN 31=8 OR IN 31=24 THEN 
PLOT INUERSE l;x,y* LET y=y+l 
: IF y=176 THEN LET y=175 
80 IF IN 31 >=16 THEN BEEP .000 
5,50 

90 GOTO 30 


Rysunek z prawej podaje zawartość 
PORTU- przy jednoczesnym używaniu 
przycisku FIRE. Jak widać, wartości 
pośrednie są sumą wartości przy wy- 


Następny przykład jest mniej poglądo- 
wy, lecz krótszy, szybszy (skrócone ins- 
trukcje warunkowe) oraz uwzględnia- 
jący kierunki pośrednie: 


10 CLS 

20 LET x=128: LET y=88 

30 PLOT x , y 

40 LET xl=x* LET yl=y 

50 LET b=IN 31* LET a=b-16*(b> 

15) 

60 LET x=x+(x<255>*(a=l OR a=5 
OR a*9> 

70 LET y=y+(y<175)*(a>3 AND a< 
7) 

80 LET x*x— (x >0) * <a=2 OR a»6 O 
R a=10) 

90 LET y»y-(y>0)*(a>7 AND a<ll 
) 

100 PLOT INUERSE Cb<16);xl,yl 
HO GOTO 30 


Spójrzmy teraz na PORT 31, jak na 8- 
-bitowy rejestr. Porównując wartości z 
rysunków odkryjemy, że każdy tryb 
pracy JOYSTICKA jest związany z uak- 
tywnieniem odpowiedniego bitu w 
PORCIE. 


bit 7 6 5 4 3 2 1 0 



Przykładowo, wychylenie drążka w le- 
wo spowoduje wpisanie jedynki logi- 
cznej do bitu 3, zaś odchylenie w kie- 
runku prawo— -dół z przyciśnięciem FIRE 
uaktywni bity 0,2 i 4. Można już spróbo- 
wać oprogramować JOYSTICK w ko- 
dzie wewnętrznym Z 80 (GENS 3M21) 



KRZYSZTOF MAMCARZ 


dokończenie ze str. 25 

Wyniki (i) reprezentują ciąg 20 liczb, w którym nie było licz- 
by równej 99, natomiast wyniki (ii) reprezentują ciąg liczb, 
w którym liczba jedenasta równała się 99. W tym przypad- 
ku wykonywanie pętli zostało przerwane spełnieniem wa- 
runku postaci: 

50 IF X = 99 THEN GOTO 100 
Zadania 

5.1. Kamienie domina zawierają po dwa pola. Każde pole 
może być puste lub zawierać od 1 do 6 punktów. Wy- 
generować wszystkie kamienie jakie można utworzyć 
z pól o różnej lub tej samej liczbie punktów (takich ka- 
mieni jest- 28). Każdy kamień przedstawić jako parę 
liczb, a mianowicie liczb punktów jego pól. 

5.2. Napisać program znajdowania takich trzech cyfr, któ- 
rych suma sześcianów jest równa liczbie trzycyfrowej z 
nich skonstruowanej. 

(Uwaga: należy rozwiązać równanie: 

A3 + B3 +C3 = A X 102 + B X 10 + C) 

z.z.w. 



i 

a 

■s 
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Jak to zrobić 3> 

Zdarza się, że koncentrując uwagę na jednym problemie, nie 
dostrzegamy spraw, zdawałoby się mniej ważnych, które innym 
„rzucają” się w oczy. 

W programie zamieszczonym w poprzednim numerze chciałem 
pokazać, w jaki sposób można wykorzystać grafikę player-missile. 
Pierwsza uwaga, z jaką się spotkałem na jego temat, brzmiała: 


„Ludzik może być, ale dlaczego ta 
gwiazdka, To musi być jakiś inny 
znak". 

Niestety w trybie graficznym używa- 
nym w programie nie jest możliwe wy- 
pisanie kropki jako znaku mnożenia, 
jak to się robi w szkole. Spróbujmy jed- 
nak zastanowić się, jak należy popra- 
wić program, aby zrealizować ten po- 
stulat. 

Zacznijmy od garści niezbędnych 
'informacji. 

Wszystkie znaki, jakie potrafi napisać 
nasz komputer zapamiętane £ą w jego 
stałej pamięci (ROM) zaczynając od 
komórki o adreęie 57344 — obszar ten 
bywa nazywany generatorem znaków. 
Każdy znak jest w nim opisany za 
pomocą ośmiu bajtów, odpowiadają- 
cych ośmiu liniom na ekranie monitora. 
W każdej z tych linii świecą się tylko te 
punkty, dla których bit. przypisany im 
we właściwym bajcie ma wartość 1 . 

Dla dowolnie wybranego znaku ZN 
bardzo łatwo jest odnaleźć pierwszy 
bajt jego opisu — wystarczy posłużyć 
się wzorem 

ADDR + (ASC (ZN) - 32) * 8 
gdzie: ADDR jest adresem generatora 
znaków. 

ASC jest znaną funkcją BA- 
SlC’a podającą kod 
ASCII znaku będącego 
jej parametrem. 

Charakter pamięci przechowującej 
wzorce znaków nie pozwala na wpro- 
wadzenie w nich jakichkolwiek zmian. 
Musimy to zrobić inaczej — oszukamy 
komputer przygotowując nowy zestaw 
pozmienianych znaków. 

Zaczniemy od zarezerwowania pa- 
mięci na ich opisy. Posłużmy się ins- 
trukcją 

1 0POKĘ 106, PEEK (106) — 8 
Możemy teraz przepisać definicje 
znaków do „naszej" pamięci rozpoczy- 
nającej się od adresu obliczonego w 
instrukcji 

20 ADDR = PEEK (106) 256 
Można to zrobić w sposób następu- 
jący 

30 MEM = 57344 
40 FOR 1 = OTO 1023 
50 POKE ADDR + 1 , 

PEEK (MEM + I) 

60 NEXT I 

Najtrudniejszą część mamy już za 
sobą. 

Wykorzystując podany wyżej wzór 


na szukanie bajtów opisujących wy- 
brany znak. w prosty sposób możemy 
usunąć przyczynę całego zamieszania 
i zmodyfikować znak „ * ". Poniższe ins- 
trukcje zamienią go na kropkę. 

70 A = ASC A. * 7 
80 M = ADDR + (A - 32) 8 
90 FOR I - 0 TO 7 
100READB : POKE M + I, B 
1 10 NEXT I 

120 DATA 0.0. 0. 24.24. 0. 0.0 
130 GR. 18 

Przed nami najważniejsze, musimy 
„namówić" komputer, by korzystał z 
naszego zestawu znaków. Jeżeli to 
zrobimy, osiągniemy cel. 

A zrobimy to bez większych proble- 
mów wiedząc, że w komórce o adresie 
756 przechowywany jest numer bloku, 
od którego rozpoczyna się pamięć 
przeznaczona na opisy znaków. Musi- 
my zatem wpisać do niej adres odpo- 
wiedniego bloku: 

140 POKE 756, PEEK (106) . 
UWAGA: 

Określenie trybu graficznego po- 
winno nastąpić wcześniej, bo- 
wiem instrukcja GRAPHICS spo- 
woduje powrót do starego gene- 
ratora znaków. 

Ye raz już możemy napisać wyma- 
rzone działanie mnożenia z piękną 
kropką w miejscu gwiazdki. < 

150 POSITION 2,2 
160 PRINT # 6; „x * 3 = 9" 

(Nie martwmy się. na ekranie pojawi 
się kropkal). 

Idąc „za ciosem" uporać się może- 
my z podobnymi uchybieniami nasze- 
go programu i nauczyć go pisać litery 
polskiego alfabetu. 

Następujące instrukcje: 


170DIM BS (1) 

180 READ BS : IF BS = „* " THEN 
GOTO 300 

190 M = ADDR + (ASC (BS) — 
32) * 8 

200 FOR I = 0 TO 7 

210 READ D POKE M + I, 

PEEK (M + I) + D 

220 NEXT I 

230 GOTO 170 

240 DATA C. 8, 0, 0.0, 0, 0, 0, 0 
250 DATA E, 0, 0. 0, 0, 0. 8, 0, 4 
260 DATA S, 8, 0, 0, 0, 0. 0, 0, 0. 

270 DATA * 

300 POSITION 4,4 . PRINT # 6; 

CZEść" 

310 POSITION 5.4 : PRINT # 6; 
"PODAJ WARTOŚĆ X" 
spowodują, że teksty umieszczone w 
liniach 300 i 31 0 zostaną wypisane tak, 
jak oczekiwaliśmy. 

Teraz już pozostaje dopisać instruk- 
cję, która zatrzyma obraz na ekranie, 
np 

400 GOTO 400, wpisać RUN i prze- 
konać się. czy to. co zostało napisane 
wyżej jest prawdą. 

Myślę, że po przeczytaniu tego arty- 
kułu, gdy zajdzie potrzeba, każdy bę- 
dzie potrafił przygotować swój własny 
zestaw znaków. 

Wszystkim, amatorom programowa- 
nia, którzy zamierzają w praktyce wy- 
korzystać to, o czym dziś mówiliśmy, 
chciałbym udzielić konkretnej pomocy 
podając tekst procedury kopiującej 
komplet 1024 znaków w czasie o wiele 
krótszym niż użyta instrukcja: 40 FOR... 
1000 DIM PROCS (40) 

1010 MEM = PEEK (106) - 8 : POKE 
106, MEM 

1020 CHADR = MEM * 256 
1030 FOR I = 1 TO 32 . READ B 
PROCS (I) = CHRS (B) : NEXT I 
1040 DATA KM, 104, 133, 213, 104 
133, 212, 104, 133, 215, 
104. 133,214, 162 

1050 DATA 4, 160, 0, 177, 212, 145, 
214, 200, 208, 249, 230, 
213, 230, 215, 202, 208, 
240, 96 

1060 A : USR (ADR (PROCS), 
224 * 256, CHADR) 

1070 RETURN 

Życzę powodzenia. 

Grześ 



„Wozik CAF — Zbigniew Matuszewski 
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opis str. 2 

SHARP 

SZYFRACJA 

10: "X": FOR K=0TO 
N 

20: B4=K4: IF Q=1 
LET A$=J4<K): 
SOTO 40 
30: A$=J$(K> 

40: FOR L=0TO 16 
50: N=16-L: X4= 
RIGHt* <A4, L): 
A4=LEFT4 <A4, H 
):A4=A4+04 
60: Y$=RIGHT4 <B$, 
L):B4=LEFT4 <B 
4, n):B4=B4+04 
20: X=ASC X4:Y=ASC 
Y4:W=X+Y:T=W-3 
2: IF Q=1G0T0 1 
00 

80: IF T>91LET T=T 
-91 : GOTO 80 
90: GOTO 120 
100: W=X-Y: T=W-32 
110: IF TC0LET T=T+ 
91 : GOTO 110 
120: W=T+32 
130: P4=CHR4 U+P4 
140: HEXT L: IF Q=1 
LET N4<K)=P4: 
GOTO 160 
150:T4<K)=P4 
160: NEXT K: RETURN 
120: BEEP I0,J00, 10 

180T^A" : CLEAR : 
WAIT 0: USI NG : 
CLS s-RANDON 
190: INPUT "ILE ZNA 
KOW TEKSTU ? Z 
= " i Z: Z=ABS Z: Z 
. =INT Z: IF Z=0 
GOTO 120 

200: INPUT "KLUCZ < 
DO 16 ZNAKÓW) 

M • 

210: N=INT <Zzl6) • 
Din J4<N) : DIN 
T4,(N) : DIN N4CN 
): IF' LEN K4=0 
GOTO 120 
220: FOR ,K=0TO N 
230: PRINT STR4 CK+ 
1 ) : CURSOR 2 
240: INPUT "CZŁON < 
16 ZNAKÓW) J 
4<K) 

250: CLS : WA I T : 
PRINT J4<K) 


260: INPUT "POPRAWN 
IE ? T=1 N=0 “ 
i D : I F D=0GOTO 
230 

220: WAIT 0:NEXT K 
280:04=" 

290:Q=0: GOSUB "X" 
300: "B":WAIT : 

' PRINT "SZYFRAC 
JA" 

310: FOR K=0TO N 
320: L=K+ 1 : PRINT "T 
EKST"!L:pRINT 
J4<K) 

330: PRINT "KRYPTGR 
An" ; L: PRINT T4 
(K) ' 

340: NEXT K 
350: "K":PRINT " K 
L U C Z" SPRINT 
K4: END 

320: "C": INPUT "KLU 
CZ <D0 16 ZNAK 
OW) " ; K4 
380: IF LEN K4=0 
THEN BEEP 10, 1 
00, 100: GOTO 32 
0 

390: Q=l: GOSUB "X" ' 
400: "D" : WAIT : 

PRINT "DESZYFR 
ACJA" 

410: FOR K=0TO N 
420 : L=K+ 1 : PR I NT "K 
RYPTOGRAn" J L: 
PRINT T4(K) - ' 
430: PRINT "TEKST"; 

L: PRINT N4(K) 
440: NEXT K:GOTO "K 

450: "S":PRINT "KRY 
PTOGRAn" 

460: FOR K=0TO N 
‘ 420: PRINT T4(K) 
480iNEXT K : END 
500: "G":USING : 
RANDOn :. U4=" ": 
N=0:WAIT 100 
510: PRINT "K L U C 
Z E" SPRINT "P 
RZYPADKOWE" 
520: INPUT "ILE KLU 
CZY ? N=" j N: N= 
ABS N: N=INT N 
530: FOR L=1T0 N 
540: FOR K=1T0 16 
550: A=34+RND 88 
560: U4=U4+CHR4 A 
520: NEXT KiPRINT U 
$ : U$=;' " 

580: NEXT LsEND 


Treść kryptogramu podaje wyd- 
ruk. Wewnątrz programu można 
wyodrębnić bloki: 

Etykieta „A"' (wiersze od 170 do 
290) dotyczy SZYFRACJI. 

,.B„ (300 — 340)_ — wyniki szyfracji. 
„C" (370—390)"— deszyfracja. 

„D” (400—440) — wyniki deszyfra- 
cji, 

„K” (350) wydruk klucza, 

„S" (450—480) — wydruk krypto- 
gramu, 

„X” (10—160) — dodawanie i 
odejmowanie znaków, 

„G” (500—580) — generacja lo- 
sowych kluczy. 

Nasze propozycje: 

1 . Zacznijcie od przykładu z wyd- 
ruku. Jeśli wynik będzie identyczny 
to 

2. opracujcie własny tekst i własny 
klucz 

3. wykonajcie szyfrację (RUN „A") 
i deszyfrację (RUN „B”) 

4. zastosujcie zły klucz („wytrych) i 
spróbujcie deszyfracji... itd. 

Uwaga: przy projektowaniu klu- 
cza unikać symbolu cudzysłów " 
gdyż (mój) komputer go nie toleru- 
je! 

Przykład: 


DESZYFRACJA 


KRYPTOGRAn 1 
R*. - I x5#z <PWX0 
TEKST 1 
LIC? 8.30 liczy 
KRYPTOGRAn 2 
RU>+" "X03G2#boUU 
TEKST 2 

uiy348. ZSYQr'16= 
KRYPTOGRAn 3 
okNJ?i JLGA?WvYk 9 
TFkAT A 

=2. RQQSWTSY2E 31 
KLUCZ 
29 SIERPNIA 1986 
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Tej firmy przedstawiać nie trzeba. Oto rodzina urządzeń grafi- 
cznych produkowanych przez ICL. Najnowocześniejszym wyro- 
bem jest drukarka laserowa — potrafi przez minutę zapełnić dru- 
kiem osiem stron formatu A4, zaś ML 193 drukuje 33 znaki na se- 
kundę. Trzecie urządzenie przeznaczone jest do wypisywania dru- 
ków korespondencyjnych: automatyczne ustawianie papieru, duża 
staranność i czytelność wydruku. Thermal printer to drukarka termi- 
czna — szybkość druku maksymalnie 80 znaków na sekundę 
(oczywiście znakomita dokładność znaków). I ostatnie urządzenie: 
plotter kreślący rysunki na papierze formatu A4 i A3. 

Ceny? Cóż, nie każdego stać na takie inwestycje. 





ZAPRim 


... na karnawał 
z komputerem! 

Foto: Jan Zelman 
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Z mikroprocesorem 
w psychologię 

"Zastosowanie mikrokompu- 
terów w psychologii i pedagogi- 
ce” było tematem konferencji 
zorganizowanej w Warszawie 
przez Wojskowy Instytut Medy- 
cyny Lotniczej, Instytut Psycho- 
logii UAM z Poznania oraz Spół- 
dzielnię Pracy Psychologów z 
Katowic. Podczas spotkania za- 
prezentowano rodzime osią- 
gnięcia w zakresie zastosowania 
mikrokomputerów w psychologii 

i pedagogice. 

Na temat konferencji rozmawiamy z 
doc. dr. hab. Janem Terelakiem: 

— Była to pierwsza konferencja zor- 
ganizowana na tak szeroką skalę, 
obejmująca nie tylko psychologię i pe- 
dagogikę. ale również różnorodne sy- 
stemy eksperymentalne. Za wcześnie 
jest jeszcze na ogólne podsumowanie. 
Wypłynęło jednak kilka ważnych pro- 
blemów. które należy jak najszybciej 
rozwiązać. Do nich zaliczyłbym sprawę 
sprzętu i odpowiednich programów. 

— Jak zastosować komputer w 
psychologii — nauce związanej ze 
zjawiskami i procesami psychicznymi? 


— Nie liczymy na komputer jako 
psychologa — może n-ta generacja, 
za ileś tam lat. Elektronowy ..mózg” ma 
nam pomóc przede wszystkim w prze- 
prowadzeniu obliczeń wielowarianto- 
wych. w budowie i doborze właściwych 
wskaźników, w ich analizowaniu i 
sprawdzaniu. Komputer znakomicie 
nadaje się do stawiania różnorod- 
nych diagnoz, prognozowania, może 
znacznie przyspieszyć opracowanie 
wyników badań. 

— Czyżby naukowcy już tak bardzo 
„polubili" bezduszne maszyny, że po- 
trafią.... 

—...konferencja wykazała, ze stan 
wiedzy informatycznej wśród psycho- 
logów i dydaktyków jest zróżnicowany. 
Najczęściej jednak sprowadza się do 
opanowania umiejętności posługiwania 
się komputerem i programami przygo- 
towanymi przez profesjonalistów. - 

— Nie przewiduje Pan, że programy 
będą pisać również np.: psycholodzy? 

— Już to robią * 1 

— Dziękuję za rozmowę i życzę 
dużo satysfakcji z pracy z kompute- 
rem. 


Rozmawiał: RYSZARD ROGOŃ 

PS Najciekawsze opracowania z kon- 
ferencji zostaną opublikowane. 
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opis str. 2 

SPECTRUM 

100 REM "X" 

110 LET pt-"" 

120 FOR k-1 TO n 
130 LET b*«k*(l> 

140 LET «*-j»<k> 

150 IF q«l THEN LET **«t*(k) 

160 FOR 1-1 TO 16 

170 LET m- 1 7-1 

180 LET x*-«*(m TO ) 

190 LET «•-«•( TO m-1) 

200 LET **»«*+ot<m TO > ' 

210 LET y*«b*(m TO ) 

220 LET b*-b*< TO m-1) 

230 LET b*-b*+o* (m TO ) 

240 LET x»CODE x* 

250 LET y-CODE y* 

260 IF q-l THEN GOTO 300 

270 LET w-x+y i LET t-w-32 

280 IF t >-91 THEN LET t-t-91i GOTO 280 

290 GOTO 330 

300 LET w«x-yi LET t*w-32 

310 IF t<0 THEN LET t-t+91* GOTO 310 

330 LET w-t+32 

340 LET p*-chr* w+p* 

350 NEXT 1 

360 IF q»l THEN LET n*(k)-p*i GOTO 380 
370 LET t*(k)»p* 

380 NEXT k 
390 RETURN 

1000 REM "A" 

1010 BEEP .4,7 

1020 CLSf DIM kt(l, 16) 

1030 INPUT "lis znaków tekstu? ";z 
1040 LET z “ INT (ABS z) 

1050 IF NOT z THEN GOTO 1000 

1060 INPUT "Klucz (do 16 znaków) 

" I k* < 1 ) 

1070 LET n-INT (<z-l)/16)+l 
1080 DIM j* (n , 16) 

1090 DIM t* (n, 16) 

1100 DIM n*(n, 16) 

1110 FOR k-1 TO n 

1120 INPUT < k ) j " człon 16 znakowy:"; 
j$(k) 

1130 PRINT jt (k) 

1140 INPUT "poprawnie ? t/n ";LINE d* 


1150 IF d*»"n" OF; d*="N" THEN GOTO 1120 
1160 NEXT k 

1170 LET o*=" ... R£M l6 

spdc ji 

1180 LET q»Oł GOSUB 100 
1190 REM "B" 

1200 CLS: PRINT "SZYFRACJA" : PRINT 
1210 FOR k-1 TO n 
1220 PRINT "tekst "jk 
1230 PRINT jS(k) 

1240 PRINT "KRYPTOGRAM ":k 
1250 PRINT t *( k ) i PRINT 
1260 NEXT k 
1270 REM "K" 

1280 PRINT "K L U C Z" 

1290 PRINT kt ( 1 ) I STOP 

2000 REM "C" 

2010 CLS: INPUT "klucz (do 16 znaków) " : 
k*(l) 

2020 LET q-l: GOSUB 100 
2030 REM "D" 

2040 PRINT "DESZYFRACJA" : PRINT 
2050 FOR k-1 TO n 
2060 PRINT "KRYPTOGRAM ";k 
2070 PRINT t * ( k ) 

2080 PRINT "tekst "|k 
2090 PRINT n*(k> 

2100 NEXT kl GOTO 1270 

3000 REM "S" 

3010 CLS: PRINT "KRYPTOGRAM": PRINT 
3020 FOR k-1 TO n 
3030 PRINT t*(k> 

3040 NEXT kl STOP 

4000 REM "G" 

4010 CLS: RANDOM I ZE O 
4020 LET u*-"" 

4030 LET n-0 

4040 PRINT "K L U C Z E": PRINT "PRZYPAD 
KOWE" i PRINT 

4050 INPUT "Ile kluczy? ";n 
4060, LET n= INT (ABS n) 

4070 FOR 1-1 TO n 

4080 FOR k-1 TO 16 

4090 LET a-34+INT (RND*88) 

4100 LET ut»u*+CHR« a 
4110 NEXT k 

4120 PRINT u«: LET u«»"" 

4130 NEXT 1: STOP 
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Dziękujemy za nuwoiocznu 


Odpowiedzi do zadań „Ligi Myślących" z 6 nr. „IKS-a” 

Na wstępie chcemy wrócić do podane) w 7 nr ..IKS-a" odpo- 
wiedzi na zadanie nr 1 z numeru piątego Otóż większość Czytelni- 
ków załozyla, że do treści zadania wkradł się błąd, a mianowicie w 
drugim zadaniu zamiast słowa „zużyłby" powinno być „zużyliby" i 
stąd każdy robotnik pracując oddzielnie wykopałby rów odpo- 
wiednio w 20 godzin i 30 godzin. Przyjmując, ze w zadaniu nie ma 
błędu otrzymamy odpowiedź, że |eden robotnik kopal rów przez 50 
godzin, a drugi przez ok. 1 5 godz. 48 minut. Obie odpowiedzi zosta- 
ły uznane za prawidłowe. A teraz przejdźmy do rozwiązań zadań 
z „szóstki" 

Zadanie 1 

Wprowadźmy na wstępie następujące oznaczenia: 
a — obwód przedniego, a więc mmeiszego koła wozu 
A — obwód tylnego koła wozu 

Na podstawie treści zadania możemy ułożyć następujący układ, 
równań: 
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Pocztowa 

giełda 

Rozwiązanie krzyżówki z nr. 7 
„IKS-a" 

Hasło brzmi: „CZYTAJ IKS-a" 

Bony pieniężne (1000 zł) wyloso- 
wali: Wanda Lipska — Wyszków, Pa- 
tryk Stokłosa — Warszawa, Artur 
Turek — Nowa Dęba, Paweł Sro- 
czyński — Sandomierz, Anna Sien- 
kiewicz — Braniewo. 

I Nagrody książkowe otrzymują: 
Maciej Makuła — Elbląg, Miron Kło- 
sowski — Gdańsk, Tomasz Polsa- 
kiewicz — Elbląg, Arkadiusz Grze- 
siński — Tczew, Rafał Pasik — Wo- 
łomin, Bogdan Trzpit — Rzeszów, 
Paweł Wojciechowski — Gdynia, 
Janusz Płonkowski — Przemyśl, 
Wojciech Kostecki — Gdańsk-Oli- 
wa, Andrzej Pieczonka — Zarzecze. 


Najatrakcyjniejsze programy na ZX 
Spectrum — TANIO. Literatura po 
polsku na ATARI, SPECTRUM, 
COMMODORE. Informacja — ko- 
perta zwrotna + znaczek, Jarosław 
Supłacz, ul. Szarych Szeregów 
18/20, 09-409 Płock 

ATARI — programy kupię, wymie- 
nię, sprzedam Marian Fraszczyński 
30-611 Kraków ul. J. Nićki 15/34 

Sprzedam komputer ATARI 130XE, 
2 joysticki, magnetofon oraz pro- 
gramy. Paweł Podgórny, ul. K. Mar- 
ksa 72/9, 32-100 Proszowice, woj. 
Kraków 


Notowania komputerowe 


Giełda 



ZX Spectrum Plus 

_ 

1 35 tys. zł 

ZX Spectrum 48KB 

— 

80 tys. zl 

Drukarka Seikosha GP50S 

— 

1 00 tys. zł 

ZX Spectrum 1 28 KB 4- 2 kasety 

— 

1 90 tys. zł 

ZX Spectrum 1 28 KB 4- magn. 4- drukarka 

— 

400 tys. zł 

magnetofon t 

— 

28 tys. zł 

Atari 800XL -t- stacja dyskietek 1 050 

— 

250 tys. zł 

Atari 800XL 4- magnetofon 

— 

1 50 tys. zł 

Atari 800XL 4- magn. XC1 1 4- joystick 4- Paddies 
4- Cortridge 4- 10 kaset z programami 


1 30 tys. zł 
185 tys. zł 

Timex 2048 4- magnetofon 4- joystick 

_ 

140-150 tys. zł 

Commodore 116 4- magnetofon 4- joystick 
+ 1 0 programów 



1 50 tys. zl 

Commodore 1 28 + magnetofon 

-T- 

350 tys. zł 

Commodore 1 1 6 

— 

65 tys. zł 

Commodore Plus 4 4- magnetofon 

— 

1 40 tys. żł 

IBM — Keyboard 

- 

1 1 0 tys. zł 

Komis 

Commodore Plus 4 4- magnetofon 

_ 

200 tys. zł 

Sharp MZ721 


200 tys. zł 

Sharp MZ700 

— 

170 tys. zł 

Dyskietki 5 1 /4 cala 

— 

24 tys. zł 

Amstrad CPC 6128 z zielonym monitorem 


1 200 tys. zł 

Studio SYSTEM — Warszawa Wola 


Amstrad PCW 8256 4- drukarka 



1 300 tys. zł 

Amstrad CPC 6128 4- monitor zielony 

— 

880 tys. zł 

Amstrad CPC 464 4- monitor zielony 

— 

' 250 tys. zł 

Spectrum Plus 

— 

1 50 tys. zł 

Sharp MZ721 

— 

1 80 tys. zl 

Commodore 116 4- magnetofon 

— 

91 tys. zł 

Joystick Ouickshot II 

— 

8 450 zł 

Dyskietki 3.5 cala DS 

— 

8 760 zł 

Dyskietki 3.5 cala SS‘ 

— 

5 370 zł 

Drukarka Seikosha SP-1000PC 

— 

576 tys. zł 

Spectrum 128 KB 

— 

279 tys. zł 

Atari 800XL 

— 

125 500 zł 




Z rozwiązania powyższego układu równań wynika, że obwód a 
przedniego koła wozu wynosi 3 m, a obwód A tylnego koła wozu 
wynosi 5 m. 

Zadanie 2 

Oznaczamy szukaną liczbę lat ucznia przez x - 
Na podstawie treści zadania tworzymy równanie 

3 (x + 3) - 3 (x — 3) = x 

W wyniku rozwiązania równania otrzymamy x = 18, a więc nasz 
miłośnik łamigłówek ma lat 18. 

Zadanie 3 

Niech x oznacza ilość dni potrzebną do przebycia drogi przez pod- 
różnego maszerującego wplniej. 

Stąd treść zadania możemy „opisać" następującym równaniem: 


520 19 _ 520 

x - 3 w ~ T 

Rozwiązując powyższe równanie otrzymamy: x =1 3. a zatem jeden 
podróżny potrzebuje na przebycie drogi o długości 520 km — 13 
dni. a drugi 10 dni 

Zadanie 4 

Każdą prostą w przestrzeni trójwymiarowe! możemy jednozna- 
cznie opisać, podając dwa punkty. Przez dwa dowolne punkty z n- 
-punktów przestrzeni trójwymiarowej możemy poprowadzić tyle 
prostych ile jest 2-elementowych kombinacji ze zbioru n-elemen- 
towego, czyli 

/ n \ _ n(n — 1) 

W " 2 

Podobne rozumowanie przeprowadzamy dla płaszczyzny 
Trzy dowolne punkty z n-punktów wyznaczają tyle płaszczyzn ile 
jest 3-elementowych kombinacji ze zbioru n-elementowegtf a 
więc 

/ n \ _ n(n — 1 ) (n — 2) 

W ~ 6 
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Krzyżówka nr 1 

123456789 10 11 



POZIOMO: A-l) Pierwiastek chemiczny z rodziny lanta- 
nowców, A-7) Degustator oceniający potrawy lub napoje, 
B-5) Skrót oznaczający komputer analogowy, C-1) Międzyna- 
rodowa gwara oparta na trancuszczyżnie, C-7) Benzopirol 
stosowany w przemyśle perfumeryjnym, D-5) Smar maszy- 
nowy, E-1) Określa wartość towaru, E-8) Napoleońska wyspa, 
F-4) Skrót określający moduł dziurkarki taśmy dziurkowanej, 
F-7) Skrót określający moduł czytnika taśmy dziurkowanej, 
G-1) Glon, wodorost, G-8) Komputer produkowany przez 
MERA— ELWRO, H-5) Waluta San Marino, 1-1) Rodzina lutni- 
ków z Cremony, 1-7) Niemiecki obóz jeniecki dla oficerów w 
okresie okupacji, J-5) Oznaczenie sposobu rozwiązania 
schematowego elementów logicznych lub innych elementów 
cyfrowych, stanowiących podstawę układów scalonych, uży- 
wanych przy produkcji krajowych komputerów trzeciej gene- 
racji, K-1) W żyłach bogów zamiast krwi, K-7) Numer identyfi- 
kujący komórkę pamięci lub zapis na kopercie. 

PIONOWO: A-l) Nazwa komputera zbudowanego w Uni- 
wersytecie Cambridge pod kierunkiem M.W. Wilkesa, G-1) 
Nazwa popularnego komputera, E-2) Opracowany w Polsce 
język do przetwarzania symboli, A-3) Duchowny żydowski, 
G-3) Duży budynek, E-4) Skrót nazwy brytyjskiego systemu 
informatycznego dla dowodzenia marynarką wojenną, A-5) 
Nazwa metody analizy sieciowej lub nazwa pakietu progra- 
mów komputerowych, H-5) Jednostka pojemności, D-6) Stała 
część nazwy modeli komputerów i ich modułów produkowa- 
nych w ramach „jednolitego systemu ", G-6) Ludolfina, A-7) 
Stolica nad Nilem, H-7) Przeznaczona dla aktora, E-8) Elek- 
troniczna technika obliczeniowa, A-9) Woźny w zakładzie na- 
ukowym, G-9) Między innymi waluta Etiopii, Tajwanu, Male- 
zji, E-10) Gęsty las, A-11) Rulon, zwój, G-11) Czujny strażnik. 

HASŁO: C-4, A>, K-ljJ D-5, kl, 1$ !, kIl fisjorf, C-8, 
B-J, hU, AjS, ca C-J, 1-2, C-10, K-4, A^7, H4, S-6, G-6, A-2, 
J-6, B-9, A -Tl, B-3, f-6, K-3. 

Rozwiązanie (tylko hasło) należy przesłać pod adresem re- 
dakcji do końca lutego br. Wśród czytelników rozlosujemy 
bony pieniężne i nagrody książkowe. 


KROCIEKAWOSTK 


jCL 

one per desk 



Oto kilka szczegółów: keyboard — wy- 
miary: 95 X 440X 250 oczywiście mm, 
waga 3 kg. Urządzenie może pracować w 
temperaturze od 10 do 45°C; pamięć 
RAM 128 Kb. W podstawowej konfigu- 
racji może pracować monitor mono- 
chromatyczny i kolorowy (ten drugi nie- 
stety ciężki — 14 kg). OPD może praco- 
wać jako komputer peryferyjny połączo- 
ny z jednostką centralną łączami tele- 
fonicznymi. 



Rys. Michał Przybyłowśki 
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Wojskowe Zakłady Graficzn e^im. gen, dyw. A. Zawadzkiego. Nr zam. 8417, Nr ind. 361682 K- 70 
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N IE prowadziliśmy dokładnej 
buchalterii nadchodzącej do 
redakcji koratpondancjl. 
Wiele odpowiedzi na pytania klaro- 
wane do naa przez Czytelników 
znajdowało alf, bądź w najbliższym 
czasie znajdzie się na łamach 
,.IKS-a". Z otrzymywanych listów 
wnioskować można o stania naszej 
mlkrolntormatykl — jaiall pod tym 
pojadam rozumieć będziemy stan 
posiadania, HoSć I jakoSć sprzętu 
mikrokomputerowego oraz poziom 
wkdzy na temat |ego wykorzystania. 

Co zatem wiemy? OtóZ najwięk- 
sza grupę użytkowników aa posia- 
dacze poczciwego Spectrum I 
wszystkich jago wersji. Niewiele 
mniejsza grupa to właściciele Atari 
800 XL systematycznie przybywa 
nowszych modeli Atari 130 X£ Trud- 
no jednak powiedzieć, Ile kompute- 
rów tego typu jest w Polsce. Na nasz 
apel o przedstawiania się odpowie- 
działo kllkanaSole tysięcy Czytelni- 
ków — wSród nich najwięcej byto 
użytkowników zdobywającego obec- 
nie polski rynek Atari. To Im wtaSnla 
jeszcze niedawno dokuczał brak 
oprogramowania — szczególnie w 
mniejszych miastach, na warszaw- 
skich giełdach bowiem, programów 
na tan wlaSnle komputer jest pod 
dostatkiem (tak jest równlaZ w Kra- 
kowie). Podobna sytuacja panuje na 
rynku oprogramowania Spectrum — 
lloSć egzemplarzy tego komputera 
równleZ stale roSnle. Oprogramo- 
wanie jest, po|awla|ę się takZe pro- 
gramy uZytkowe, choć raczel le- 
szcze nieśmiało toruję sobie drogę 
do Indywidualnych użytkowników. 
Od niedawna przybywa Amstradów. 
Amstrad 464 jest juZ co prawda prze- 
szłością konstrukcyjna — do nas 
jednak nadal napływała lego eg- 
zemplarze. Znacznie zmniejszyła się 
cena tego modelu, a w niektórych 
komisach komputer tan (wyposażo- 
ny w zielony monitor) moZna kupić 
juZ za 290—300 tysięcy. Spadla 


równleZ cena Amstrada 6128 — che i 
500—600 tysięcy dla prywatnych 
właścicieli, a 800 tysięcy do miliona 
(z zielonym monitorem) dla odbior- 
ców uspołecznionych, to jednak 
nadal duZo. Niewiele przybywa na- 
tomiast Commodorów Nowa C l 28 
sę nadal drogie I nla wytrzymuję 
konkurencji z Innymi komputerami 
taj klasy. Mamy teZ nieco sprzętu 
egzotycznego: Sharpy, Orici, Casio — 
stosunkowo tanie, ale za to z ubo- 
gim oprogramowaniem, szczególnie 
z niewielka HoScIę gier. 

Posiadamy zatem przede wszyst- 
kim sprzęt zagraniczny. Ta niewiel- 
kie lloScl Meritum czy MK sę bowiem 
mniej nIZ kroplę w morzu potrzeb — 
pracuję głównie w klubach, choć I 
tam nikt Ich nla wita z entuzjazmem. 
Nie naleZy się spodziewać rychłej 
poprawy sytuacji — produkcie z 
wrocławskiej ELWRO przeznaczona 
dla szkół (£/wro 800 Junior ) nie wy- 
pełni półek w Składnicy Harcerskiej, 
nie zaspokoi nawet komputerowego 
gtodu w szkołach. Na lakę aytuację 
będziemy musieli leszcze poozekać. 
Tymczasem komputer klaey Juniora 
juZ jest na Zwiecie konatrukeję prze- 
starzała z co najmniej pięcioletnia 
historię, a to w przypadku mikro- 
komputera jest juZ archeologia!!! 

Mamy w Polsce leszcze prototypy 
Mazovii I Kraka 86 — jest to sprzęt 
profesjonalny, ale perspektywy ma- 
sowej produkcji sę raczej mgliste — 
choć z pewnoScIę jego obecnoSć 
uzdrowiłaby kaleki rynek kompute- 
rowy. 

Obecna sytuacja sprzyja udane- 
mu wydawaniu duZe| lloScl pienię- 
dzy, a chcemy przacleZ udostępnić 
komputery mtodzleZy. Nie kaZdy 
moZa jednak wydać co najmniej sto 
tysięcy, aby rozwijać swoja osobo- 
wość. Pozostaję jedynie kluby kom- 
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Dziś przedstawiam „Edytor znaków" 
— program pozwalający na przygoto- 
wanie ich według własnego życzenia. 
W czasie pracy na ekranie widoczne 
jest pole 8 x 8, na którym za pomocą 
joysticka (powoduje ruch) i przycisku 
lirę (zmienia kolor punktu wskazujące- 
go położenie kursora — pozwalając na 
zamalowywanie lub czyszczenie punk- 
tów) możemy utworzyć rysunek włas- 
nego znaku. Dodatkowo, na wysokości 
każdego wiersza rysunku podawana 


jesl liczba, w znany nam sposób kodu- 
jąca ten wiersz, W trakcie tej twórczej 
pracy możemy na bieżąco obserwo- 
wać, jak nasz znak będzie wygląda! w 
grafice 0. 1 i 2, 

Program ten jest dodatkowo wzbo- 
gacony o ; 

— odczytywanie stanu klawiszy funk- 
cyjnych, 

— elementy samomodyfikacji pro- 
gramu. 

□la lepszego zrozumienia tych za- 


puterowa, która tał potrzebuję nie- 
mało groaza na rozruoh, oany obo- 
wiązujące przy zakupie na rachunek 
sę bowiem u naa znaoznla wyższe 
nli na giełdach, choć sprzęt bywa 
tan sami Zakłady pracy również wy- 
dala miliony, kilkakrotnie przepłaca- 
jąc prawdziwa wartoSć komputera 
— taka jest cena rachunku I frycowe 
za obowiązujące przepisy finanso- 
wa. 

Lepltl jest z władzę. Niczym grzy- 
by po deszczu rosnę domorośli In- 
formatycy, przed którymi komputer 
nla ma talemnlc. I JeSII byłoby u nas 
można włamać się do jakiegoś kom- 
puterowego banku danych, to z 
pewnością już by się włamali — na 
Szczęścia nam to nla grozi. 

Grupa dociekliwych |est zdecy- 
dowania większa od taj, w której po- 
szukują się rozwięzart gotowych, 
najchętniej poprawnie działających 
programów, ., Dlaczego drukujecie 
program Sharpa, a nie Spectrum ?" — 
pytano mnla w liceum ogólno- 
kształcącym, na południu Polski, w 
którym Informatyka jest już przed- 
miotem nauczanlal Kochani, jeśli je- 
szcze nikt Wam tego nie powiedział, 
to pomySIcla sami. Ileż to roboty, 
aby dialekt Baslca obowiązujący w 
Sharpie przerobić na Spectrum ? 
Przecież algorytm działania jest ten 
sam, inna jedynie są instrukcje we/ 
wy. Ala jaSli nla wszyscy potrafią, to 
słownik podstawowych lnstrukc|i 
Baslca różniących wers|ę obowiązu- 
jącą na Amstradzie I Sharpie od tej, 
którą dysponuje Spectrum, podaje- 
my już w tym numerze. 

A teraz życzymy przyjemnej lektu- 
ry. Czekają na Was programy, nauka 
Baslca, a dla tych, którzy lubią 
pogrzebać się w ROM-le koleiny od- 
cinek „Sztuk i sztuczek". 

WIESŁAW CETERA 


gadnień niezbędne są jednak pewne 
dodatkowe informacje. 

I tak komórka o adresie 53279 poz- 
wala nam stwierdzić, jaki klawisz funk- 
cyjny został wciśnięty. Może w niej 
znajdować się wartość z przedziału 
0 — 7 oznaczająca użycie: 

0 - OPTION, SELECT, START 

1 - OPTION, SELECT 

2 - OPTION, START 

3 - OPTION 

4 - SELECT, START 

5 - SELECT 

6 - START 

7 — żaden klawisz nie został wciśnię- 
ty 

W programie wykorzystane mogą 
być następujące klawisze: 

SELECT — w zależności od postaci 
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punktu wskazującego położenie kurso- 
ra, zamienia go na biały prostokąt za- 
ciemniający zajęte pole lub pozostawia 
wolne miejsce (pozwala spokojnie 
przyjrzeć się utworzonemu znakowi); 
jest sygnałem do analizy klawiszy 
funkcyjnych, 

SELECT/START naciśnięto jedno- 
cześnie ponawiają proces edycji po 
wciśnięciu SELECT 
START — rozpoczyna od początku 
edycje znaku 

OPTION/START naciśnięte jedno- 
cześnie kończą działanie programu, 
OPTION — w treści programu zapa- 
miętuje dane do utworzenia przygoto- 
wanego znaku; przed ' użyciem tego 
klawisza należy wiedzieć, jaki znak 
chcemy przedefiniować. 

W ten sposób doszliśmy do dziwnie 
brzmiącego, a w gruncie rzeczy bardzo 
prostego do realizacji hasła samomo- 
dyfikacji programu. To dziwne zjawisko 
polega na kontrolowanej ingerencji 
programu w swoją treść, w rezultacie 
czego zmienić możemy jego działanie, 
a nawet otrzymać całkiem nowy pro- 
gram. 


60 POKE 842,13 : REM Czytanie ins- 
trukcji z ekranu 

70 STOP 

80 POKE 842,1 2 : REM Powrót do nor- 
malnego trybu 
pracy 

W programie powyższe instrukcje 
mają za zadanie umieścić w odpo- 
wiednim jego miejscu instrukcje DATA 
z danymi potrzebnymi do zdefiniowania 
aktualnie stworzonego znaku. 

Czytelnikom, którym prezentowany 
program może pomóc w pracy propo- 
nuję wykorzystanie tej możliwości 
do przygotowania procedury zmiany 
znaków. Po zakończeniu działania 
programu można go zapisać np 
na kasecie (LIST "C:") i umieścić 
w każdym ze swoich programów 
(ENTER "C:"). Pierwszy krok jest już 
dokonany, w przypadku użycia klawi- 
szy OPTION/START, do zakończenia 
pracy programu usuwana jest jedna z 
jego linii, by po napisie READY otrzy- 
mać zadaną procedurę należy wyma- 
zać jeszcze kilka linii. 

Ale jak to zrobić,..? 

Grze* 


UwaQi na ten temat zacznijmy od 
pokazania... jak to zrobić. Otóż wsta- 
wienie do komórki o adresie 842 war- 
tości 1 3 powoduje ustawienie naszego 
komputera w tryb czytania z ekranu. 
Umiejętne wykorzystanie tej sytuacji 
zasymuluje proste wciśnięcie klawisza 
BREAK, wprowadzenie zadanych pop- 
rawok I następnie instrukcji CONT. Ca- 
ły pomysł opierać się musi na tym, aby 
na ekranie wypisać właściwe instruk- 
cje i zmusić komputer do ich realizacji. 
Spójrzmy zatem, jak wygląda nic nie 
robiący schemat rozwiązania naszego 
problemu: 

10 GRAPHICS 0 
20 POSITION 2.4 

30 REM WYPISANIE INSTRUKCJI OD 
DRUGIEJ KOLUMNY 
40PRINT „CONT" 

50 POSITION 2,2 : REM Instrukcja 
STOP powodu- 
je wypisanie na 
ekranie dwóch 
linii. musimy 
ustawić kursor 
o te dwie linie 
wyżej 


10 REM Pros ram demonstruj* metod* 

15 REM tworzeni* własnych zn*kow 
20 REM 

25 REM Równocześnie pokazany Jest 
30 REM sposob wykorzystania klawisza 
funkcyjnych 
35 GRRPHICS 0 
40 DIM W<8) 

45 MEM-PEEK ( 1 06 ) -8 ' POKE 106, MEM ! POKE 7 
56,MEM 

50 CHADR»256*MEM'POKE 752,2 
55 ZN-ASCC ! ") > ZN»CHADR+<ZN-32)*8 

68 REM Kopiowanie zbioru znaków 
65 GOSUB 1 000 1 LAB* 1100 

69 REM 

70 REM Zmiany w Display List 

71 REM 

75 DL»PEEKC360)+256*PEEK<561) 

80 POKE DL+23,6 
85 POKE DL+25,7 
39 REM 

98 REM Zmiana koloru ekranu 
91 REM 

95 FOR K-0 TO 2 'POKE 710+K, 144 NEXT K 

99 REM 

100 REM Tworzenie obrazu na ekranie 

101 REM 

105 POSITION 5,0'PRINT "EDYTOR 
Znaków" 

110 POSITION 5,2'PRINT 

115 FOR >3 TO 10 

120 POSITION 4,1 PRINT " 

0 " 

125 W(l-2)-0'POKE ZN+I-3,0 
130 NEXT I 

135 POSITION 5-11'PRINT 
140 X-5'Y-3'C0-32'C1»32>C2«20 
149 REM 

158 REM Pętla słowna 
151 REM 

160 S-STICK<0)'ST-STRIG<0) 


165 L-0'1-0 

170 IF ST-0 THEN C1-192-C1 'C2-168-C2 
175 POSITION X,Y' PRINT CHR*(C2) 

180 0X-X 1 OY-Y ' OC-C0 

185 IF <S>8> AND <8<12) AND <X>5) THEN 
X-X-1'L«1 

190 IF <S>4) AND <B<8> AND <X<12) THEN 
X-X+1'L-1 

195 IF <8-10 OR 8-14 OR S-6> AND <Y>3> 
THEN Y-Y-l'L-1 

200 IF <8-13 OR 8-9 OR 8-5) AND <Y<10> 
THEN Y-Y+l'L-1 
205 IF L-0 THEN GOTO 275 
210 POSITION OX,OY>PRINT CHR*(C1) 

215 IF C0-C1 THEN GOTO 250 

220 REM Zmiana znaku 

225 IF Cl-160 THEN 1-1 

230 IF CI 0 160 THEN 1—1 

235 0X» 1 2-OX ' OY-OY-2 

240 WCOY)»W<OY)+I*2 A OX 

245 POKE ZN+0Y-1,U<0Y) 'POSITION 20-OY+ 

2'PRINT W(OY)i" 

250 LOCATE X,Y,C0'POSITION X,Y'PRINT C 
HRŚCC2) 

255 REM Wypisanie wzoru znaku 

260 POSITION 6, 16'PRINT "! ! ! ! ! 

265 POSITION 3,18 'PRINT "! ! ! !" 

270 POSITION 23, 19 'PRINT "! ! ! !" 

275 IF PEEK<53279)-6 THEN GOTO 105 

279 REM Analiza stanu klawiszy 

funkcyjnych 

280 POSITION X, Y'PRINT CHR»(C1)'IF PEE 
K<53279) 05 THEN GOTO 160 

285 WY-W(Y-2)'WW-2 A (12-X)'IF (Cl-160 A 
ND C0O160) THEN W(Y-2)-WY+WW 
290 IF (Cl 0 160 AND C0-160) THEN U(Y-2 
)«WY-WW' POSITION X,Y> PRINT CHR*(C1) 

295 POKE ZN*Y-3,H(Y-2) 'POSITION 20-Y'P 
RINT W(Y-5)i" ■ 

300 REM Osiadanie znaku 

305 IF PEEK<53279><-3 THEN GOTO 350 

310 IF PEEK< 53279) 04 THEN GOTO 305 

dokończenie na t(r. 23 
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Z dużym zainteresowaniem przeczytałem w BAJTKU refleksje na temat 
,. Staruszki ODRY" (S. Polak, R. Wojciechowski, Nie tylko małe, BAJTEK 
10/86.) Jestem jednym z wielu, którzy poznawali informatykę, dzięki tej, wów- 
czas bardzo nowoczesnej, maszynie. Mimo upływu lat jeszcze dzisiaj kompute- 
ry z ELWRO (obecnie MERAELWRO) dostarczają podstawowych mocy obli- 
czeniowych do profesjonalnych zastosowań komputerów w kraju. 

ICL 1900... to już historia 


Szkoda tylko, ze, w bajtkowych re- 
fleksjach „zabrano": przetwornicy kolo 
zamachowe, każdemu ze sterowników 
(kontrolerów lub po prostu PDSów) po 
dwa napędy dyskowe, a dyskom tro- 
chę (300%) pamięci (ostatnio nie 8. a 
32 Mega wynosi pojemność każdej 
stacji), 

Najważniejsze jest jednak, że w myśl 
zasady: „szanujmy wspomnienia, pa- 
nowie " -- temat zasłużonego kompu- 
tera rodzimej produkcji znalazł trochę 
miejsca w naszej bardzo poczytnej 
prasie informatycznej. 

ODRA jest w pełni kompatybilna z 
ICL 1900. Ale., to juz niemal historia. 
Co słychać teraz w firmie ICL? 

Okazuje się, że proponowany przez 
ICL sprzęt i oprogramowanie są nowo- 
czesne i konkurencyjne wobec innych 
firm zachodnich, także IBMa. Przykła- 
dem jest nowa generacja systemów 
komputerowych „SERIA 39". Są to 
dwie całkowicie nowe maszyny: LEVEL 
80 i LEVEL 30 — pierwszy owoc 
współpracy ICL z FUJITSU. 

Komputery systemu LEVEL 80 wy- 
konują ponad 1 3 milionów operacji na 
sekundę przy pojemności pamięci 
RAM od 16 do 32 Mbajtów. Natomiast 
LEVEL 30 jest nieco skromniejszy i jest 
przeznaczony do typowych biur. Kom- 
puter ten wykonuje dwa miliony opera - 
cji na sekundę, a jego pamięć RAM 
wynosi od 4 do 1 6 Mega. Imponującym 
uzupełnieniem pamięci RAM tych 
komputerów są dyski o pojemności od 
1000 do 10 tysięcy Mogą! 

Rewelacją w skali światowej są pro- 
ponowane od ponad roku przez ICL 
sieci typu MACROLAN. Połączenia 
sieci — to kable zbudowane ze świat- 
łowodów. Przekazują one informacje z 
ponad 1250 stron maszynopisu w cza- 
sie jednej sekundy, to jest ok. 50 Mega- 
bitów na sekundę. Technikę tę wyko- 
rzystano do sprzężenia szybkich urzą- 
dzeń peryferyjnych, takich jak na przy- 
kład dyski, a także do łączenia zesta- 
wów komputerów w duże systemy — 
sieci komputerowe. Odległość między 
sprzęganymi elementami nie powinna 
przekraczać 1500 m. 

Kabel światłowodu tworzą dwa 
włókna; jedno do transmisji informacji, 
drugie do sterowania transmisją. Łą- 
czna średnica wynosi zaledwie 5 mm. 
Dołączane są one do urządzeń za po- 
średnictwem przystawki wielkości teczki 
(Port Switch Unit). Producent radzi, by 
„teczkę" tę wieszać na ścianie. Łączy 


ona sześć linii i może wchodzić w skład 
systemu do 1 5 stacji MARCOLANa. 

Nieco tańszym rozwiązaniem jest 
OSLAN (Open Systems Local Area 
Network). Łączy terminale, drukarki, i 
inne urządzenia komputerowych ze- 
stawów. Wykorzystano tu tradycyjny 
pośrednik przesyłania informacji — 
kabel koncentryczny. Kabel wewnętrz- 
nej sieci OSLANa ma średnicę 1 0 mm, 
odcinki po 500 m. co 1 500 m wzmac- 
niacz. Nie byłoby w tym nic nad- 
zwyczajnego, gdyby nie wartości pa- 
rametrów tej sieci — szybkość trans- 
misji wynosząca 10 Megabitów/sek. 
Jest to ekwiwalentem około 1000 
szybkich linii transmisji lub inaczej 
równoznaczne z przesyłaniem 250 
stron A4 w czasie jednej sekundy. 
OSLAN może „jednocześnie obsłużyć" 
250 szybkich drukarek. 

Obecnie system OSLAN stosowany 
jest do łączenia komputerów Serii 39 z 
DRS 20. System 25. PERO i SERIA 
2900, a także sprzęgania z siecią tele- 
fpniczną całego świata. 

Nowoczesne komputery firmy ICL 
wyposażone są w szybkie kontrolery 
dysków. Ostatnio dostępne są napędy: 
FDS 300 z dyskami o pojemności 337 
Mega i szybkości transmisji 2,46 Mb/s 
oraz FDS 2500 o pojemności 2521 
Mbajty i szybkości transmisji 2,86 
Mb/s. Zatem każdy kontroler łączący 
cztery napędy FDS 2500 stanowi dla 
komputera pamięć dyskową o poje- 
mności ponad 10 GIGA! 

Prezentowane parametry, bardzo 
atrakcyjne parametry, „wnuków, może 



prawnuków, stryjecznych" ODRY za- 
chęcają do stosowania ich w wielu sy- 
tuacjach, gdzie szybkość przetwarza- 
nia dużych zbiorów informacji jest ce- 
lem nadrzędnym. Wiąże się to zazwy- 
czaj z koniecznością zapewnienia bez- 
awaryjnej pracy (elektrownie, fabryki, 
koleje itp.) maszyn. Osiąga się to przez 
systemowe dublowanie komputerów 
lub taniej (w nieco ograniczonym za- 
kresie) przez tak zwany system wczes- 
nego ostrzegania. 

Komputery Serii 39 mogą być połą- 
czone za pośrednictwem zwykłej tele- 
fonicznej linii z centrum diagnozy i kon- 
troli — ICL Support Centres. Linia ta 
pośredniczy w bezustannej kontroli 
poprawności pracy sprzętu i oprogra- 
mowania komputera bez udziału ludzi. 
Diagnoza zestawu komputera dotyczy 
wszystkich elementów: pamięci taś- 
mowych. dyskowych, RAMowskich, lo- 
giki. działania systemu operacyjnego 
itp. W razie, gdy kontrola stanu lub dzia- 
łania komputera wypadnie niepomyśl- 
nie, według oceny komputera central- 
nego zainstalowanego w Support Cen- 
tres. natychmiast powiadamiany jest o 
tym użytkownik ze wskazaniem miejs- 
ca ewentualnej lub zaistniałej awarii. 

Oferta programowa ICLa jest me 
mniej atrakcyjna niż sprzęt (bazy da- 
nych, edytory, języki itp.). Także UNIX 
uznawany jest jako przyszłościowy 
system operacyjny potomków naszej 
ODRY. 

WŁODZIMIERZ GOGOŁEK 



IKS - 4 



w 


COMMODORE 



Oprogramowanie dydaktyczne 
nie nadąża za rozwojem opro- 
gramowania użytkowego, a w 
porównaniu z tak popularnymi 
grami to praktycznie margines 
zastosowań. 

Przedstawiony program jest przykła- 
dem wykorzystania mikrokomputera 
właśnie w dydaktyce, zarówno przez 
uczących się, jak i wykładowców, Jest 
testem z wyborem wariantu odpowie- 
dzi. Nie dotyczy konkretnego, tematy- 
cznego zastosowania. Własne pytania, 
warianty odpowiedzi, a także dane do 
oceny (prawidłowe odpowiedzi, liczba 
dopuszczalnych błędów) koduje użyt- 
kownik. Ilość pytań zależy tylko od po- 
jemności pamięci komputera, 

Zakodowane pytania zostają zapi- 
sane na dyskietce, w zbiorze DANE. Z 
jednolitą nazwą zbioru zapisaną w 
wierszach 2010 i 3020 poradzi sobie 
każdy. Można używać różnych dyskie- 
tek lub rozbudować program, wprowa- 
dzając alternatywne nazwy zbioru. Mo- 
żna także składować kolejne wersje 
programu ze zmienioną nazwą (zarów- 
no programu, jak i zbioru danych). 


Po wykonaniu tych operacji TEST 
gotowy jest do zapisu kolejnych pytań 
(tematów). 

Program zapewnia wykonanie na- 
stępujących operacji; 

Z — zapisanie przygotowanych pytań 
i wariantów odpowiedzi (wiersze 
300-500), prawidłowych odpo- 
wiedzi dla każdego pytania (510- 
-560) oraz dopuszczalnej liczby 
błędów dla uzyskania ocen: 
b.db., db„ dst. (600-790). Za- 
trzymanie programu w wierszu 
700 umożliwia przyłączenie dy- 
sków. Po wciśnięciu dowolnego 
klawisza następuje zapis danych 
(pytań) na dyskietce. 

T — realizację testu. Wyprowadzone 
są kolejne pytania wraz z warian- 
tami możliwych odpowiedzi 
(800-920). Należy każdorazowo 
wcisnąć klawisz numeryczny 
odpowiadając przyjętej (za pra- 
widłową) odpowiedzi. Za każdą 
prawidłową odpowiedź uzysku- 
jemy jeden punkt. 

Wyprowadzenie ilości po- 
prawnych i błędnych odpowiedzi 
oraz uzyskanej oceny kończy 
test. 


K — korekta zapisów. Wyprowadzane 
są kolejno wszystkie wprowa- 
dzone na etapie „Z" dane. Jeżeli 
wiersz zapisany jest prawidłowo 
należy wcisnąć klawisz RE- 
TURN, gdy nie — wpisać prawid- 
łowy tekst. 

Każde uruchomienie programu wy- 
musza podanie ilości pytań i wariantów 
odpowiedzi, a operacje „T" i „K" po- 
przedzane są zawsze wczytaniem zbio- 
ru danych z dyskietki. 

Program może być wykorzystany w 
praktyce, ale powstał w zasadzie w ce- 
lu pokazania idei (jednego ze sposo- 
bów) wykorzystania mikrokomputera w 
dydaktyce, Stąd proste (łatwość adap- 
tacji na innych komputerach) instruk- 
cje oraz sprowadzone do minimum 
procedury kontroli i korekty danych. 

Nowy program można rozbudować o 
nowe elementy, takie jak: wprowadze- 
nie nazwiska, wyprowadzenie wyników 
na drukarkę, różną ilość punktów za 
poszczególne odpowiedzi (w tym punk- 
ty ujemne za błędne odpowiedzi). 

KRZYSZTOF ŚWIĘTOŃ 


10 PRINT.T 

20 PRINT : PRINT ^PRINT : PRINT : PRINT" TEST" 

30 PRINT PRINT : PRINT : PRINT : PRINT 
40 INPUT "PODAJ ILOSC PVTAN ";A 
50 INPUT "PODAJ ILOSC WARIANTÓW" ;B 
60 PRINT" 3" 

100 PRINT PRINT : PRINT '•PRINT" K 0 D V P R A C V" 

110 PRINT" PRINT: PRINT: PRINT 

120 PRINT"Z - ZAPIS PVTAN": PRINT PRINT 
130 PRINT"T - TEST" PRINT: PRINT 
140 PRINT*'K - KOREKTA": PRINT: PRINT 
150 INPUT “PISZ KOD"; A* 

200 IF A**"Z" THEN 300 
210 IF A*»"T" THEN 800 
220 IF A**"K" THEN 1300 

230 PRINT : PRINT ; PRINT : PRINT"8LEDNV KOD PRACV" 

240 INPUT A* 

250 GOTO 60 

300 BIM Z*<A*<B+3>+3> 

310 1*0 . 

320 FOR K«1 TO A 

330- PRINT-.T: PRINT :PRINT"PVTANIE NR - ";K 
340 PRINT PRINT: PRINT: INPUT Z*<I> 

350 FOR J*1 TO B 
360 1*1+1 

370 PRINT: PRINT :PRINT"WARIANT ODPOWIEDZI NR - ";J 
380 INPUT Z*< I > 

390 NEXT J 
400 1*1+1 
410 NEXT K 
490 J*1 

500 FOR I*A#<B+1> TO A*<B+2>-l 
510 PRINT "3" 

520 PRINT: PRINT PRINT "WPROWADŹ PRAWIDŁOWE ODPOWIEDZI" 
530 PRINT: PRINT J; - "■ 

540 INPUT Z*<I> 

550 J*J+l 
560 NEXT I 


6/ats ppinitt frimi fkini pRiiii"i»imiZiv«iiH iuisr dudom dlh ocen 

610 PRINT PR 1 NT 

620 INPUT "fi. IW. - 'KW k> i> • 

630 PRINT PRINT 

6+0 1 NPUT " DOBRY - " . Z* i *♦< &♦<>«! > 

650 PRINT PRINT 

660 INPUT "DOST. - • 

700 PRINT 'Tl" PRINT PRINT 
710 INPUT"ZRP!S? D8NE " ■ BI 
720 OOSUfc 2000 

730 PRINT PRINT PRINT PRINT PRINT 
790 STOP 

800 I-O GOSUB 3000 
810 L-fl*<B+2> 

820 POR K-l TO R 

830 PRINT".T PRINT PRINT -PRINIK," - ";2#<I> 

850 FOR J«l TO B 
860 1*1+1 

870 PRINT PRINT PRINT" ".Ii" - ”iZ#'l) 

880 NEXT J 

890 1-1+1 PRINTPRINT 

906 INPUT "ODPOWIEDZ ”.Z*a» 

910 L*L+1 
920 NEKT K 
9+0 S»0K"R*(B+2) 

530. FOR TO H*(B+2.'-l 

960 1P Zł(K)OZM) THEN 980 
978 S*S+1 

990 NEXT* I 

1000 PRINT "3" Z*H-S 

1010 PRINT PRINT PRINT” ILOSC PYffiN - ",R 

1020 PRINT PRINT PP INI "PUPRNWNYCH ODPOWIEDZI - ”iS 
1030 PRINT PRINT PRINT ” BUDNYCH ODPOWIEDZI - ".2 

I04O PRINT PRINT PRINT” — r « 

1100 T«VHL(?ł'M*<B+3>;>+l 
1110 1 1* VHL f 7$ < FUM. B+3)+ 1 O + l 
1120 V«VHL<2*i:ft*(D+3)+2T) + l 
1130 S**"NDST. «2>" 

1150 IF 7 V THEN S«*"DST. (3>“ 

1160 JF 7 31 THEN SI* "DOBRY - <4»" 

1170 IF ?.< T Tl N BR. <s>« 

1200 PRINT PR., «T PRINT” O T. k N 0 - ".SI 

1210 PRINT PRINT PPJNT PRINT PRINT 

1290 STOR 

1300 GOSUB30U0 

131B I«0 1*1 

1320 PRINf.T PRINT RRIN I "PY IHIIIfi" 

1330 FOR 1=1 TO .'*10 3 

IW PR TUT PRINT PRINI PRIMIL,” "•7IU- 
1340 BI-'".' INPUT ki* II BI*'" 1 MIC II 1360 
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1360 1*1+1 :L"L+i 

1370 IF łOR THEN 1300 

1380 FOR J-1T08- 

1390 PRINT" "1 Jl "• - ",Z* <J> 

1400 B<*’"' : INPUT B* 

1410 ZF B*""" THEN 1430 
1420 Z*<I)*B# 

1430 I-I+l 
1440 NEXT J 

1300 IF K-fl THEN 008UB 1800 

1320 IF K-2*R THEN GOSUB' 1900 

1530 NEXT K 

1340 OOSUB2000 

1550 PRINT : PRINT '• PRINT : STUP 

1800 L*1 

1010 -PR I NT " 51" 1 PR I NT * PR I NT ; PR I NT " ODPOW I EDZ I " 

1820 RETURN 
1900 L-l 

1910 PRlNT ,, n" ; PRINT 1 PRINT : PRINT" DOPUSZCZALNA ILOSC BLEDOW 
1920 PRINT"DLR OCEN ■ B.DB. <D*. < D8T ; PRINT : PRINT 
1930 RETU RN . 11± _ 

— “THia ł, il 


2000 OPEŃI 
2010 OPEN3/i< 3 


"#0 ; DRNE.SjW" 


2020 FOR K*0 TO Fl*<B+3>+3 
2030 PRINT#3,Z$aO 
2040 NEXT K 
2050 fl*="***#" 

2060 PRINT#3j fllu CMR$< 13) ż 
2070 CL03E 3 : CL0SE15 
2080 RETURN 
2420 Z*<I>«B$ 

3000 OPEN 15.. 8, 15 
3010 BiriZ*<R#',B+3>+3) 

3020 OPEH3.8.3,"0:BflNE.S.R" 
3030 FOR K=0 TO fl*KB+3)+3 
3040 INPUT43* fii 
3045 ZŚ<K)*RŚ 

3050' IF "###*" THEN 3070 
3060 NEXT K 
3070 CL0SE3 : CL0SE15 
3080 RETURN 


UWAGA! ATARI 

Komputerowy teleexpress 

Zapewne nieraz widzieliście efektowny napis świetlny 
biegnący wzdtuż telewizyjnego ekranu. Bardzo często 
efekt ten wykorzystuje się w celach reklamowych. Może on 
mieć również zastosowanie w redagowaniu gazety świetl- 
nej lub też możecie go wykorzystać np. do przesiania bar- 
dzo atrakcyjnych edytorsko życzeń koleżance lub koledze, 
którzy dysponują minikomputerem „Atari". Program ten jest 
nadzwyczaj prosty i łatwo można go rozbudować. A więc, 
przystępujemy do zredagowania naszej pierwszej telega- 
zety. A może... na naszym domowym ekranie wyświetlimy 
komputerowe życzenia noworoczne?... Spróbujcie! 

10 DIM TEKST! (200) 

20 GRAPHICS 2 

30 PRINT "PRnszę WPROWADZIĆ TEK8T" 

40 DIM SPS (200) 

50 INPUT TEKST* 

50 SP#= " " 

70 SP* (LEN (SPS) + 1) = TEKST* 

80 TEK8T* = SP* 

90 TEKST* (LEN (TEKST*) + 1) = " ” 

1*0 ML=LEN (TEKST*) 

110POKE 702,1 
120 PRINT " ) " 

13* SETCOLOR 2,0,0 

14* FOR P=1 TO ML 

15* EI=P+19tlF EL ‘ML THEN EL=ML 

180 POSITION 0,5 

17* PRINT *01 TEKST* (P, EL) 

18* FOR W=1 TO 99:NEXT W 
190 NEXT P 
2*0 GOTO 140 

„IKS UCZY”: Projektujemy stronę 
tytułową programu 

Każdy z Was zdążył już zebrać sporo programów na 
„Atari” — chociażby ułożonych na podstawie iksowych li- 
stingów. Warto więc zadbać i o to, by miały one ładną stro- 
nę tytułową. Prezentowany tu krótki program jest jedynie 
wstępem do tej pożyteczne] zabawy. Można go wzbogacić 
np. o miłe dla ucha efekty dźwiękowe, czy też swój własny 
piktogram lub hasło; datę; można wpisać jakąś dedykację 
itp. Przyjemnej zabawy! 



Alan 260ST 

10 GRAPHICS 2 
2* SETCOLOR 2,(,0 
30 P08ITI0N 8,4 
40 PRINT / 8; „IKS UCZY" 

5* FLIP-224 

80 PRINT „NAClSNU START” 

70 SETCOLOR *,«,* 

80 FOR WAIT=1 TO 80«: NEXT WAIT 
90 SETCOLOR 0, HUE, 8 
1*0 HUE— HUE+1 

11* POKE 75S,FLIP:FLIP=450— FLIP 
120 FOR WAIT=1 TO 5**:NEXT WAIT 
13* IF PEEK (53279) O 9 THEN GOTO 7* 

14* POKE 755,224 

„Atari” udaje, te kreśli koła 

Użytkownicy „Atari" — szczególnie najmtodBi, nie bardzo 
wiedzą, jak posługując się wyłącznie instrukcjami 
„BASIC-u" wykreślić koło. Podsuwamy więc pomysł na 
wykreślenie kilku kół koncentrycznych względem siebie 
Wprawdzie do elegancji daleko im, jednak zawsze to już 
coś, 

1* GRAPHICS 7 
2* DEG 

3* FOR J=1 TO 380 
40 COLOR J 
5* FOR 1=1 TO 36* 

0* PLOT 50+INT (J • 

•IN (I)) 

7* NEXT I 
8* NEXT J 


10 -COS (I)), 4* + INT (J • 10 ■ 


opracowała ANITA FRYSZKIEWICZ 
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KRESKA 

(Basic CPC 464) (1) 


Zamieszczony i opisany mze| pro- 
gram KRESKA pozwala na tworzenie 
prostych rysunków na ekranie monito- 
ra. Jest jednocześnie ilustracją okreś- 
lonych rozwiązań możliwych do zreali- 
zowania przy użyciu języka BASIC. W 
niniejszym numerze „IKS-a" zamie- 
szczona została podstawowa część 
tego programu. W kolejnych odcinkach 
będzie się on rozrastał o procedury 
realizujące kolejne funkcje. Chciałbym, 
aby jeQO końcowa postać była przy- 
datnym narzędziem do tworzenia ry- 
sunków. Nie będzie to jednak grafika 
komputerowa, gdyż nie program będzie 
jej autorem. W naszym przypadku 
ekran monitora zastąpi papier i farby, 
a klawisze kursora lub joystick — 
pędzei i kredki. Ponieważ w kolejnych 
artykułach zamieścimy fragmenty pro- 
gramu, które dołączać będziemy do 
części podstawowej, mamy więc szan- 
sę wspólnie tworzyć, przez kilka kolej- 
nyuh miesięcy, program graficzny. Je- 
go ja -ość będzie zależała od naszych 
pomysłów i rozwiązań. Przygotowałem 
dwa pierwsze artykuły. Mam koncepcję 
odnośnie dalszej rozbudowy programu. 
Chciałbym jednak, abyśmy wspólnie 
spróbowali dokończyć „dzieła" — 
oczekuję Waszych propozycji i uwag. 


P odstawowym parametrem de- 
cydującym o jakości widziane- 
go przez nas obrazu jest jego 
rozdzielczość, czyli maksymalna ilość 
punktów świetlnych, na jakie jest po- 
dzielony ekran. Niezależnie od trybu 
pracy każdy punkt możemy opisać pa- 
rą współrzędnych *, y. Pozycję punktu 
wzdłuż osi Y można określić za pomo- 
cą liczb od 0 do 399, przy czym dwie 
kolejne wartości odpowiadają jednej 
pozycji na ekranie. Oś X posiada nu- 
merację od 0 do 639. Zatem ekran jest 
podzielony na 640 punktów w poziomie 
i 400 punktów w pionie. Rozwiązanie 
takie przyjęto dla lepszego zachowania 
proporcji obrazu. CPC 464 może wy- 
świetlać znaki w trzech trybach: 

MODĘ O — tryb wielobarwny. Mamy 
do dyspozycji jedynie 20 
kolumn i 26 wierszy tekstu 
oraz 1 60 * 200 punktów w 
przypadku grafiki. Możli- 
we jest jednoczesne wy- 
korzystywanie 1 6 kolorów 


rowanych do 0 do 26. 
MODĘ 1 — tryb standardowy. Mieści 
on 40 kolumn i 25 wierszy 
tekstu, co odpowiada 320 
x 200 punktom dla grafiki. 
Ale do dyspozycji mamy 
już tylko cztery kolory z 
27. 

MODĘ 2 — tryb wysokiej ' rozdziel- 
czości. Pozwala na rów- 
noczesne użycie jedynie 
dwóch z 27 barw, lecz 
wynagradza nam to do- 
stępność 60 kolumn i 25 
wierszy tekstu, lub 640 x 
200 punktów w przypadku 
obrazów. 

Jak widać parametrem związanym 
ze zmianą trybu pracy jest. wielkość 
punktów kreślonych wzdłuż osi X, Po- 
nieważ numeracja nie zależy od trybu i 
wynosi, jak już wspomniałem, od 0 do 
639, tak więc, jedna pozycja na ekranie 
w poziomie odpowiada kolejnym trzem, 
dwóm lub jednej wartości. 

BORDER (ramka) to obszar otacza- 
jący PAPER (tło). Znaki wyświetlane na 
ekranie mogą ukazywać się tylko 
wewnątrz ramki. PEN (pióro) pisze sam 
znak. INK (atrament) możemy sobie 
wyobrazić |ako zbiorniczek wypełniony 
atramentem o wybranym kolorze. Re- 
lacje między komendami PAPER, PEN. 
INK są ustawiane standardowo w chwi- 
li włączenia komputera. Możemy je 
zmieniać poprzez użycie Instrukcji INK. 

O miejscu zapalenia punktu na ek- 
ranie decyduje położenie kursora. Za- 
zwyczaj w programach wykorzystuje- 
my dwa kursory: znaku I graficzny. 
Różnią się one przeznaczeniem oraz 
wielkością — działają w sposób rozłą- 
czny, Kursor znaku ma wielkość ma- 
trycy znaku i dopóki nie użyjemy rozka- 
zu LOCATE zaczyna on ruch od lewe- 
go górnego rogu ekranu co odpowiada 
współrzędnym (x,y)=(1,1), gdzie x 
oznacza numer kolejny, a y numer 
wiersza. Wielkość maksymalna współ- 
rzędnej x determinowana jest przez 
tryb pracy (MODĘ) i przybiera wartości 
20,40 lub 80. W przeciwieństwie do 
kursora znaku współrzędne kursora 
graficznego odnoszą się do lewego 


Każdy z naa w mniejszym lub większym stopniu potrafi posłu- 
giwać się Instrukcjami interpretera BASIC rezydującego w kompu- 
terze. Istniejące rozkazy Interpretera, umożliwiają w praktyce na- 
rysowanie każde| płaskiej figury geometrycznej, a także realizację 
nieskomplikowanej grafiki przestrzennej. 

z palety 27 barw ponume- 



dolnego rogu ekranu (x,y)=(0,0). 
Współrzędne opisujące położenie tego 
kursora nie zależą od trybu. Kursor gra- 
ficzny nie jest wyświetlany na ekranie. 
Do pokazania jego położenia może być 
użyty rozkaz PLOT. 

Pewne instrukcje języka BASIC wpro- 
wadzające wyniki na określone urzą- 
dzenie wyjścia używają pojęcia stream 

— strumień, przy czym stream opisy- 
wany jest cyfrą od 0 do 9, Po|ęcle 
stream określa, jakie urządzenie wyjś- 
cia powinno być wykorzystane. Znak ff 
to znacznik strumienia. Skierowanie 
danych do strumieni o numerach od ff 
0 do # 7 powoduje wyświetlenie Ich na 
ekranie monitora. Strumienie o powyż- 
szych numerach są przypisane do ca- 
łego ekranu lub tzw. okienek (agn. 
WINDOWS), o ile zostaną one zdefi- 
niowane. Skierowanie danych do stru- 
mienia ff 8 powoduje ich przesłanie na 
drukarkę. Strumień ff 9 związany jest 
natomiast z pamięcią kasetową. 

Po tych ogólnych uwagach przejdź- 
my do prezentowanego przykładu. 

Ekran’ w naszym programie został 
zorganizowany w trybie standardowym 
(MODĘ 1). Podzieliłem go na dwie 
części, Górna, wiersze 1 i 2, w trybie 
znakowym, spełniają funkcję Informa- 
cyjną. W lewym górnym rogu (WIN- 
DOW ff 5) wyświetlane są bieżące 
współrzędne kursora graficznego. 
Część środkowa (WINDOW # 2) prze- 
znaczona została do prezentacji funkcji 
możliwych do zrealizowania w danej 
chwili (tzw. menu), zaś górny prawy róg 
(WINDOW # 3) wykorzystałem do uka- 
zania wybranego koloru pióra. Pozosta- 
ła część ekranu (WINDOW (fi) — 
wiersze 3 do 25 — służyć nam będzie 
do tworzenia rysunków Kreślenia do- 
konuje się za pomocą klawiszy steru- 
jących ruchem kursora lub joystickiem. 

Program KRESKA realizuje trzy pod- 
stawowe funkcje; 

— kreślenie — opcja wybierana klawi- 
szem z literą K; 

— czyszczenie części ekranu prze- 
znaczonej do rysowania — opcja C; 

— zakończenie pracy — opcja 2. 

dokończeni* ne tir. 8 
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dokończenie ze str. 7 

Wybór opcji K — kreślenie, daje nam 
następujące możliwości: 

— przemieszczanie kursora grafi- 
cznego bez śladu — opcja P; 

— wybór koloru pióra — opcja K; 

— rysowanie „punkt po punkcie" 
opcja W; 

— wycieranie niepotrzebnych frag- 
mentów rysunku — opcja G. 

Podstawowymi komendami języka 
BASIC wykorzystanymi w programie 
KRESKA są: 

BORDER <nr INK> — określa kolor 
ramki 

CLS [#<stream>] — wypełnia okreś- 
lony zakres ekranu odpo- 
wiednim dla tła kolorem. 
DRAW x,y, <nr INK> — rysuje linię od 
aktualnej pozycji kursora 
graficznego, (x'.y ) do nowe- 
go punktu (x,y). 

INK <nr atr>,<nr> — przypisuje atra- 
mentowi o numerze nr atr 
kolor o numerze nr, jaki zos- 
tanie użyty przez rozkazy 
PEN lub PAPER. 

LOCATE [#<stream>],x,y — określa 
miejsce położenia kursora 
znakowego na ekranie w 
okienku określonym nume- 
rem stream. 

MOVE x,y — przesuwa kursor grafi- 
czny do punktu określonego 
współrzędnymi (x,y). 

MOVER a,b — przesuwa kursor grafi- 
czny z punktu (x,y) do punk- 
tu (x',y') = (x+a, y+b). 
PAPER [#<stream>],<nr INK> — 
ustawia kolor tła w okienku 
ekranu o numerze # stream, 
zadeklarowanym komendą 
WINDOW. 

PEN [#<stream>],<nr INK> — okreś- 
la kolor atramentu pióra, któ- 
ry jest używany do pisania w 
okienku o numerze # 
stream. 

PLOT x,y, <nr INK> — rysuje punkt o 
współrzędnych (x,y). Kolor 
punktu określony jest nume- 
rem atramentu. 

PLOTR a,b, <nr INK> — rysuje punkt 
względem bieżącego poło- 
żenia kursora graficznego 
(x,y), o współrzędnych (x-f a. 
y+b) kolorem określonym 
przez numer atramentu. 
WINDOW [#<stream>],1,p,g,d — ok- 
reśla rozmiary okienka tek- 
stowego nadając mu numer 
strumiehia — tt stream. Pa- 
rametry I — numer pierwszej 
— lewej kolumny, p — 
ostatniej — prawej kolumny, 
g — numer górnego wiersza 
i d — dolnego wiersza defi- 
niują punkty graniczne 
okienka zgodnie z zadanym 
trybem (MODĘ). 


TEST x,y — bada numer atramentu 
punktu o współrzędnych 
(x.y). 

XPOS YPOS — podają współrzędne 
odpowiednio x i y kursora 
graficznego. 

Powyższe komendy związane były 
bezpośrednio z tworzeniem rysunku. W 
programie używam także innych ins- 
trukcji: 

CALL adres — w naszym przypadku 
umożliwia wywołanie pod- 
programu znajdującego się 
w pamięci ROM. 

INKEY (nr) — funkcja przyjmuje war- 
tość 0, jeśli zostanie wciś- 
nięty na klawiaturze klawisz 
o numerze nr. 

INKEY $ — przyjmuje wartość pier- 
wszego znaku wprowadzo- 
nego z klawiatury lub tzw. 
łańcucha pustego — " ”, gdy 
żaden klawisz nie został 
wciśnięty. 

GOSUB nr linii — skok do podprogra- 
mu określonego numerem 
linii. Koniec podprogramu 
jest oznaczony instrukcją 
RETURN. Po zakończeniu 
jego realizacji następuje 
powrót do programu głów- 
nego, do następnego rozka- 
zu GOSUB. 

GOTO nr linii — skok do określonej 
numerem linii programu. 

FOR wsk = a TO b 

NEXT b — realizuje fragment programu 
między FOR a NEXT — b-a 
razy. 

IF wyr. log. THEN wl ELSE w2 — 
sprawdza czy wyrażenie lo- 
giczne jest prawdziwe. Jeże- 
li tak, to realizowany jest 
ciąg instrukcji wl zapisany 
w tej samej linii programu. 
Jeżeli jest fałszywe, realizo- 
wana jest druga część wy- 
rażenia. 

Omówię dalej funkcje realizowane 
przez poszczególne fragmenty pro- 
gramu KRESKA. Unie od — do zawie- 
rają: 

50 — 100 zdefiniowanie okienek, 
określenie kolorów tła i 
pióra. Wyznaczają punkt 
startowy kreślenia. 

1 40 — 170 wybór sposobu kreślenia 
z jednoczesnym począt- 
kowym nadaniem war- 
tości parametrom G%, 
D%,L%, P%,F%. Przypo- 
rządkowanie tym parame- 
trom numerów klawiszy 
kursora i klawisza COPY 
(odpowiednio: 0,2,8, 1,9), 
ewentualnie styków joy- 
sticka i przycisku FIRE 
(72,73,74,75,76). 

360 linia ta zawiera rozkaz 

CALL B1A9. Wykonanie 
tego polecenia powoduje 
wyzerowanie oraz wystar- 
towanie procedur ini- 


cjujących pracę (wynik 
analogiczny, jak przy 
równoczesnym naciśnię 
ciu SHIFT. CONTROL i 
ESC). 

420 — 440 wypełnienie fragmentu 
ekranu przeznaczonego 
do tworzenia rysunków 
kolorem tła. Jednocześnie 
zostaje narysowany punkt 
o współrzędnych (320, 
200). W ten sposób zosta- 
je określone nowe poło- 
żenie kursora graficznego, 

480 — 590 w liniach tych tworzone 
jest menu związane z wy- 
borem opcji K — kreśle- 
nie. Po dokonaniu wyboru 
sterowanie przenoszone 
jest do odpowiedniej linii 
związanej z wybraną 
opcją. Akceptowane zna- 
ki to: M,P,K,G,W,t,l 

630 — 700 wybór koloru pióra, Moż- 
liwy jest wybór jednego z 
trzech kolorów (kolor tła 
jest niedostępny). W wy- 
padku naciśnięcia klawi- 
sza kursora następuje 
zmiana numeru atramen- 
tu (nr INK) związanego z 
piórem (PEN). Zmiana po- 
wyższa jest sygnalizowa- 
na w górnym prawym ro- 
gu ekranu (WINDOW#3). 

750 — 820 w liniach tych zawarte 
zostało sterowanie prze- 
sunięciem kursora grafi- 
cznego (bez kreślenia). 
Samo przemieszczenie 
odbywa się przez odwo- 
łanie do odpowiednich 
procedur. 

870 — 920 ustalenie numeru atra- 
mentu (INK) punktu o 
współrzędnych (x%,y%) i 
podstawienie jego war- 
tości pod zmienną p. 

930 — 970 wypełnienie punktu (x%, 
y%) kolorem atramentu 
(INK) o numerze p. 

980 — 1020 sprawdzenie czy kursor 
graficzny mieści się w ob- 
szarze przeznaczonym do 
kreślenia. Punkty grani- 
czne tego obszaru to: dół 
(0,0) i (639,0), góra 
(0,366) i (639,366). W wy- 
padku, gdy nowe współ- 
rzędne wynikające z 
przesunięcia wychodzą 
poza obszar dozwolony, 
punkt jest cofany na gra- 
nicę okna. Próby wyjścia 
poza ekran są sygnalizo- 
wane dźwiękiem (CHR$ 
7). 

1070— 1 120nadanie nowych wartości 
współrzędnym (x%,y%) w 
zależności od naciśnięcia 
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klawisza kursora lub wy- 
chylenia joysticka. 

1160—1 300kreślenie „punkt po punk- 
cie" - z jednoczesnym 
sprawdzeniem czy kursor 
nie opuszcza dozwolone- 
go obszaru. 

1340 — 1480 wycieranie fragmentów 
rysunku. Mechanizm wy- 
cierania polega na wy 
pełnianiu obszaru ograni- 
czonego rozmiarami gum 
ki kolorem tła (INK 0). 

1530 — 1550 wyświetlanie aktualnych 
współrzędnych kursora 
graficznego. Należy pod- 
kreślić, że w języku BA 
SIC wszystkie wyprowa- 
dzane liczby uzupełniane 
są spacją kończącą. Stąd 
np. liczba trzycyfrowa zaj 
muje cztery pozycje na 
ekranie. W naszym przy 
padku wymusza to dekla 
rację okna tekstowego o 
szerokości czterech zna 
ków (3+1 ). 

1600 — 161 Ozapamiętanie numeru 
atramentu (INK) i bieżą 
cych współrzędnych kur 
sora graficznego. 

W programie używam następujących 

zmiennych: 

x%,y% — współrzędne bieżące kur- 

sora graficznego; 

xp%,yp% — współrzędne pamiętane- 
go punktu; 

x,y — współrzędne służące do 

wydruku; 

G% — numer klawisza lub styku 

joysticka wywołującego 
ruch kursora graficznego 
w górę 

D% — j.w w dół; 

L% — j.w. w lewo; 

P% — j.w. w prawo; 

F% — numer klawisza COPY lub 

przycisku FIRE; 

sk% — informuje, czy punkt 

przykryty kursorem grafi- 
cznym został zamalo- 
wany; 

pr% — informuje, czy nastąpiła 

zmiana współrzędnych 
kursora graficznego; 

p — pamiętany numer atra 

mentu (INK); 

rb% — oznacza stany gumki (0 

-wyłączona 1 -włączona). 


io REHtmttmmmtmmmmittsts 

20 REM PR06RAM 6RAFICZMY - KRESKA 
30 REH autor: Jan Roaanowski 1986 

40 REHtttimmmtmtttttttttttmtii 
50 M0DE 1 : BORDER 13: INK 0,26: INK 1,0: INK 
2,6: INK 3, 14:kolor*ltxX*320:yX ss 200 
60 WINDOM 10,1,5,1, 2: PAPER 10, 2: PEN ft0,l 
:CLS I0:PRINT 10, "X*320*; 

70 LOCATE I0,1,2:PRINT I0,'Y*200*| 


80 NIND0N 12,6,6,1 f 2: PAPER «2,2:PEN 12, 1 
SPRINT I2,CHR$(211)*CHRI(211); 

90 NIND0N 12,7,40, 1,2:PAPER 12,2:CLS 12: 
PEN 12, 1 

100 NIND0N 11, 1,40, 3, 25: PAPER tl,0:CLS 1 
1 s PLOT xX,yX, 0: x*XPQS: y*YPQS: 60SUB 1530 
no REMtiMtttitttmitmtmmmMM 
120 REM MENU 6L0MNE 

130 REMtmttmmmtHttttmmtttt! 
140 PRINT 12," (K)LANIATURA CZY (J)0YS 
TICK. * 

150 IF INKEY (37> *0 THEN 6X*0:DX*2:LX*8:P 
X*1:FX*9:60T0 180 

160 IF INKEY (45) *0 THEN 6X*72:DX*73:LX*7 
4:PX*75:FX a 76:60T0 180 
170 60T0 150 

180 CIS *2:PRINT 12, - (Z)AKONCZENIE PRAC 
Y (K)RESLENIE-; 

190 LOCATE 12,2,2:PRINT 12, "(OLS 
200 REMttittiitmmmmtmimttiit 
210 REM KREŚLENIE 

220 REMitittmittmttmtittttitttttii 
230 IF INKEY (37) c 0 THEN CLS «2:60T0 480 
240 RENttttltmmttimittlttttttlttlt 
250 REH CLS - CZYSZCZENIE EKRANU 
260 REMimmittmttttiittmtmtttit 
270 IF INKEY (62) =0 THEN CLS12: PRINT 12,' 
CLS - CZY JESTES PEN I EN T/N*:60T0 420 
280 REMtuttttmmMmimtMmttiM 
290 REH ZAKOŃCZENIE PRACY 
300 REHtMttttttmttttmttmttiiittM 
310 IF INKEY (71 )*0 THEN CLS 12:PRINT 12, 
• CZY JESTES PENIEN ? T/N* x 60T0 360 
320 60T0 230 

330 REHutttmtttmtifittmttttttmi 
340 REM ZAKOŃCZENIE PRACY T/N 
350 REMttmmtmtmmttmtmttiM 
360 IF INKEY (51 ) a 0 THEN H0DE 0: PRINT 'K 
0 N I E C*:F0R n*l TO 2000:NEXT nsCALL b 
1A9 

370 IF INKEY (46) *0 THEN B0T0 180 
380 60T0 360 

390 REMttmmittmttmmmmtmt 
400 REM CZYSZCZENIE EKRANU 
410 REMutmtmmittttmttMitttmt 
420 IF INKEY (51 )*0 THEN CLS H:xX a 320:yZ 
*200: PLOT xX,yX,0:x a XP0S:y*YP0S:60SUB 15 
30: GOTO 180 

430 IF INKEY (46) *0 THEN 60T0 180 
440 GOTO 420 

450 mtimmtuumnttnmtmttu 

460 REN KREŚLENIE - MENU GL0WNE 
470 REMmttttttttmitmitmttmtm 
480 NIND0N #2,7, 30, 1 , 2: PRINT 12, ł (MlENU 
GL0WNE (PRZEMIESZCZENIE (K)0L0R 
LUB ( ■♦CHR# (241 )♦* ) ■ | 

490 N1ND0N 13,39,40, 1,2: PAPER 13,kolor:C 
LS 13: PEN 13,1:PRINT ł3,CHR$(211)*CHR*(3 
2)+CHRf (211); 

500 IF INKEY ( 38) *0 THEN N INDOM 12,7,40, 

| ,2: GOTO 180 

1510 IF INKEY (2)*0 THEN 60T0 550 
520 IF INKEY (37) *0 THEN 60SUB 630 


530 IF INKEY (27) *0 THEN B0SUB I 6 OO 16 OTO 
750 

540 60T0 500 

550 CLS #2* PRINT !2,*(6)UHKA (N)0LNE KRE 
SLENIE LUB ( "■♦■CHR# (240) ♦* ) * 

560 IF INKEY (0)*0 THEN 60T0 480 
570 IF INKEY (59) *0 THEN GOTO 1160 
580 IF INKEY (52) *0 THEN 60SUB 1340 
590 GOTO 560 

600 REHmttiimtttitMttitmmititii 
610 REM NYB0R KOLORU 

620 REMimmmtmttmmttmtmii 
630 CLS 12:PRINT 12, -WYBIERAJĄC KOLOR UZ 
YNAJ - •♦CHRK24D+* P0MR0T DO MENU 
- P ł 

640 1MINKEYI:IF IM” THEN 640 

650 IF INKEY (2) s 0 THEN kolor*kolor+l:80U 

ND 1,100,10,7,3,5,1 

660 IF INKEY (27) *0 THEN 60T0 480 

670 IF kolor<4 THEN PAPER 13, kolor: CLS I 

3: PEN 13, 1 ePRINT 13,CHR$ (211)*CHR$(32)*C 

HR$ (21 i ) +CHR* (32) ; 

680 IF kolor <4 THEN FOR i*l TO 100cNEXT 
i: GOTO 640 

690 IF kolor >3 THEN kolor*l:PAPER 13, kol 
or : CLS 13:F0R i«l TO 100:NEXT iiGOTO 640 
700 GOTO 650 

710 REMtmtmmtttmiimttiimiiit 
720 REM PRZEMIESZCZANIE KURSORA 
730 GRAFICZNEGO 

740 REHttimtttttttmttmiimtmtt 
750 CLS 12:PRINT 12,' UZYNAJ i”tCHM(240 
) ♦CHR# (242) ♦CHR$ (243) +CHR4 (241 )♦* LUB JO 
YSTICK* 

760 60SUB 1600 

770 LOCATE 12,1,2:PRINT 12,* P0NR0T DO M 
ENU - P" 

780 IF INKEY (27) *0 THEN 480 
790 60SUB 930: 60SUB 1070:G0SUB 870:G0SUB 
930: 60SUB 980:G0SUB 870 
800 IF skX a 0 AND prX*l THEN PLOT xpX,ypX 
, kol :M0VE xX,yX:skX*l 
810 GOTO 780 
820 RETURN 

830 REHtttmitmtttmtitmmmm 
840 REN ANALIZA KURSORA 

850 REM GRAFICZNEGO 

860 REMtmtttittmtittttttmttttiitt 

870 IF TEST (xZ, yX) *1 THEN p»l 
880 IF TEST(xX,yX)*2 THEN p a 2 
890 IF TEST(xX,yX)*3 THEN p*3 
900 IF TEST(xX,yX)*0 THEN p*0 
910 PLOT xX,yX,l 
920 RETURN 

930 IF p*J THEN PLOT xX,yX,l 
940 IF p*2 THEN PLOT xX,yX,2 
950 IF p*3 THEN PLOT xX,yX,3 
960 IF pOl AND p<>2 AND p<>3 THEN PLOT 
I xX,yX,0 
l! 970 RETURN 

; 980 IF yX<l THEN yX*l:PRINT I3,CHR$(7) 
dokończenie na str. 11 
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Sztuki i sztuczki (4) 


Zmienne systemowe BOM Spectrum 

EKRAN ZNAKOWY 

S-POSN 23688/9 

SPOSNL 23690/1 

DF-CC 23684/5 

DF-CCL 23686/7 

SCR-CT 23692 

DF-SZ 23659 

CHARS 23606/7 

K-CUR 23643 

MODĘ 23617 

Układ bajtów w obszarze ekranu nie jest sekwencyjny, 
co najlepiej sprawdzić obserwując pojawianie się obrazka 
z dowolnej gry. Adresy dostosowane są do wydruku zna- 
ków. Każdy standardowy znak ASCII na ekranie składa się 
z 64 punktów w konfiguracji 8X8. Definiuje to ekran zna- 
kowy na 24 linie 1 32 kolumny. 22 linie zawiera ekran głów- 
ny, a dwie część edycyjna, Te ustalenia można oczywiście 
zmienić. Rozszerzenie edytora nastąpi po: POKE 23659, a 
gdy a > 2, co jednocześnie zmniejszy ekran główny do 
24-a linii, Ustalając DF-SZ na zero pozbywamy się edytora, 
choć jest to pomysł trochę niebezpieczny. Nie można wte- 
dy stosować komend INPUT I SAVE w progamie, wymu- 
szać pytanie scroll? i pieczołowicie omijać BREAK (z dru- 
gie) strony to niezła blokada). Do dyspozycji są 24 linie ek- 
ranu głównego, ale o Ile TAB w instrukcjach z PRINT działa 
normalnie, to AT nie wolno używać dla linii ostatniej (23). 
Poniżej przykład wydruku w liniach edycji: 

i O BORDER 21 PAPER HCLB 

20 POKE 23*39,01 REM brak linii adycjl 

30 PRINT PAPER 2|AT 22, 2| -WYNIK" | TAB 10| “PALIWO H | 

' TAB 20| "CZA8 U |TAB 4|0|TAB 12|100|TAB 20|"0l00" 
40 POKE 23*B9,2i REM dMla linia adycjl 
30 GOTO 30 

Zmienna SCR-CT jest wskaźnikiem przewijania ekranu. 
Zawiera liczbę o 1 większą, niż liczba linii, o jaką przesunie 
się obraz ku górze 

10 POKE 23692,10 
20 PRINT AT 10, 1 j "TEKST" 

30 PRINT AT 21,31” 

40 IF PEEK 23692*1 THEN STOP 
50 PAUSE 4 
60 GOTO 30 

Proszę zauważyć, że przesuwanie zostaje wymuszone w 
linii 30 przez symulację wydruku poza ekranem, co nor- 
malnie spowodowałoby reakcję scroll? Efekt podobny mo- 
żna osiągnąć przez bezpośrednie wywołanie procedur 
ROM w adresach 3190 lub 3582: 

10 CLSiFRINT At 21, 0| 

IF LKN INKEY* THEN BOTO 20 
IF NOT LEN INKEY* THEN 0OTO 30 

IF CODĘ INKEYE-12 THEN PRINT CHR* ar “|CHR* Bi.OOTO *0 
PRINT 1NKEY*| 

BEEP .02,-10 

70 IF PEEK 23689-3 AND PEEK T ,88-1 THEN RANDOM I ZE UBR 3190l 
POKE 23688,33 
80 GOTO 20 

Przy okazji wykorzystaliśmy zmienną S-POSN. Określa 
ona pozycję wydruku kolejnego znaku. Oznacza to, że jeśli 
wydruk był w polu np. (x,y), to następny znak pojawi się w 
polu (24-PEEK 23689, 33-PEEK 23688). Podobnie odczy- 


tujemy pozycję w liniach edycyjnych wykorzystując 
SPOSNL. Poniższy program „nie lubi" przenosić części wy- 
ło LET a9-"NaJ 1 80*i ym mpoaobam wydruku na akr ani* jHt 

pojawiania *1* kolejnych lltar od lsMij do praiwj 
■trony i •sybkotclR czytania wzrokiem. 11 

20 LET k-1 
30 PRINT 89(k)| 

40 BEEP .03,20 

30 IP NOT (k-LEN a*) THEN STOP 
*0 LET k-k+1 

70 IP PEEK 23*88-1 ANO **<k-l><>“ “ THEN G0BU8 200 
80 GOTO 30 

200 IP a*(k) -" « THEN GOTO 230 
210 PRINT CHR* B| l REM eołacz 
220 LET k-k-1 

230 IP A*(k><>“ “THEN 80T0 210 

240 PRINT TAB Ol 

230 LET k-k+li RETURN 

Wyv \)w< unranu, więc spróbujmy go te- 

raz uniknąć, 

10 PRINT "mikrokomputar“ . 

20 IP PEEK 23*89-2 THEN POKE 23*89, 3i.-AlEM .kran “•tol" 

30 BOTO i O 

Innym sposobem wydruku jest bezpośrednie korzystanie 
z adresów obszaru ekranu. Zmienne DF-CC i DF-CCL od- 
powiednio dla ekranu głównego i edycyjnego wskazują ad- 
res kolejnego wydruku Wykorzystujemy to do zrobienia 

,kOłikurr*nc \< grafiko; i; użytkownika’ 

10 CLBi PRINT "H" | 

20 G08UB' 60 
30 PRINT "0»f 
40 STOP 

50 DATA 0,0,0,28,4,24,32,60 
60 LET Adr»»-PEEK 236B4+236IPEEK 23685 
70 LET lic«*0 
80 READ k 
90 POKE Adr»s,k 
100 LET adrftft«adr«B+256 
110 LET llc*«licz+l 
120 IF 1 icz<8 THEN GOTO 80 
130 POKE 23684, PEEK 236844-1 
140 RETURN 

.ZiidM, r.turu unuzują się na ekranie zdefiniowane są w 
ROM-le. W zmiennej CHARS znajduje się Ich adres po- 
czątkowy 15616 pomniejszony o 256. Własny zbiór grafik 
dla znaków o kodach 32. .127 można wprowadzić do RAM 
najlepiej pod adres modulo 256 pamiętając, że każdą gra- 
fikę określa 8 bajtów. Przejście odbywa się przez modyfi- 
kację CHARS 

POKE 23606,0 

POKE 23607, adre»/256-l 

Oto dwa pizysluu/ V." . THAP 1 - 


3 LIT ehara-PBEK 23*0*+28**PIEK 23*07 
10 INPUT “znak? “ | LINĘ a* 

20 IP a*-"“ OR LEN a*>i OR CODĘ **<32 THEN GOTO 10 
30 LET n-CODE *8 
40 FOR a-0 TO ? 

30 LET h-PEEK (char«6B*n+a) 

60 LET t*«"“ 

70 FOR b-1 TO ■ 

BO LET e-INT ( m/2) iLET d-x-2*e 
90 LET t*-(“»“ AND d> + <“i'' AND NOT d)+p8 
100 LET K-CI NEXT b 
110 PRINT p«i NEXT a 


10 DIM c (8,8) 

20 LET ch«r«*PEEK 236064-236*PEEK 23607 
30 INPUT LINĘ a* 

40 LET a-LEN a* i IF a >8 THEN LET «*8 
50 FOR r*l TO • 
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60 LET 1 -eh ar •+MC0DC a*(r> 

70 FOR t-6 TO Tl LIT R-WHtK U+t) 

80 FOR p-0 TO T 
90 LET e <t«-l,B-p)*m-2*INT t*/2ł 
100 LET «-INT<«t/2> 

110 NEXT piNEKT t 

120 FOR U-l TO 4l LIT t*- M “ 

150 FOR 1-1 TO 4 

140 LET k-c(2»U-l,2#«)+a»C(2»U-l,2t*-i> 4-**eC2tU, 2t»> ♦ 
8*c(2*u, 2 * 1 - 1 ) 

130 LET CHR»(128+k> 

160 NEXT *1 PRINT AT U,4«r-4|t* 

170 NEXT Ul NIKT f 


Bajt 23606 można wykorzystać do innych efektów: 

10 DATA "Zmltnlajfc", "wartoŁĆ", “bajtu", " 23606", 
"o*l agamy" , "barda 1 aj “ , "apaktakul arny" , "apoabb", 
"wydruku", "na", "akranla", 

•20 REBTOREi PAINT AT 0,0| 

30 READ a* 

40 IF THEN GOTO 20 

50 FOR a-7 TO O STEP -1 
60 POKE 23606, a 
70 PRINT a* 

80 POKE 23609, FEEK 23689+1 
90 NEKT ai PRINT 
100 GOTO 30 

Szczególnym znakiem drukowanym na ekranie jest kur- 
sor edycyjny. Mle|sce jego aktualnego pobytu w obszarze 
między E-LINE. a WORKSP przechowuje zmienna K-CUR, 
natomiast znak, jaki będzie drukowany zależy od bajtu 
MODĘ. Manipulując tą ostatnią zmienną można otrzymać 
różne rozwiązania graficzne kursora w trakcie egzekucji 
komendy INPUT, gdyż jest to |edyna sposobność, gdy bu- 
for edycji przedstawiany jest na ekranie. T u zajmę się tylko 
wymuszaniem trybów pracy podczas INPUT. Tryb grafi- 
czny osiągamy przez: 


10 POKE 23617,2 
20 INPUT LINĘ i* 

30 IF CODĘ 1 *>164 THEN GOTO 10 

Tryb EXTENDED będzie obowiązywał tylko dla pier- 
wszego znaku, co może posłużyć do napisania podrę- 
cznego kalkulatora obliczającego wartości zaimplemento- 
wanych funkcji: 


10 POKE 23617,1 
20 INPUT LINĘ 1* 

30 PRINT VAL 1* 

Po wczytaniu np, BIN 10 otrzymamy po SIN (PI/2) 
zobaczymy 1 . 

Możliwe jest również wymuszenie trybu K: 

10 PRINT "Kt6r» i komend wZuły do 
nlazczenlw obszaru imi ennych 
BASIC 7“ 

20 POKE 23611,1281 POKE 23617, 1SB 
30 INPUT LINĘ i* 

40 IF CODĘ 1*0233 THEN GOTO 20 
30 PRINT i * ( 1 ) ’ I NVER8E lj "DOBRZE" 

W następnym numerze o atrybutach ekranu. 

Krzysztof MAMCARZ 


(7) 

1020 RETURN 

1030 RBIIMimilimtlUtlltUttllltlll 
1040 REN ZMIANA H8P0LRZE0NYCH 
1030 REN KURSORA BRAF1CZNE6D 

10S0 REHtltttUtttlttltttlltttllllllllll 
1070 IF INKEYlBSlsO THEN yX-yX+4i prl-1 
1080 IF INKEYlOllsO THEN yX«yX-4l prX«l 
1000 IF lNKEYUllsO THEH »X«»X-4tprX»l 
1100 IF INKEV<PI)>0 THEN »X»«X*4iprX«l 
1110 pXP0BiyYP00l60BU8 1330 
1120 RETURN 

1130 REHiimtimiiiiimmimiiitiii 

1140 REN WOLNE KREŚLENIE 

liso RENmtiiiimtmtiMiutiitiimi 
1160 OLS B2l PRINT *2, ‘UŻYWAJ l , *CHRII240 
H-CHR* ( 242 ) 4CHR* < 243 ) 4CHR* ( 24 1 7 4* LUB JO 
YSTICK’ 

1170 LOCATE *2,l,2lPRlNT 12,‘PONROT DO N 
ENU - P‘ 

1180 IF 1NKEY127P0 THEN BOTO 480 
1190 IF INKEYISZPO THEN PLOTR 0,1, kolor 
1200 IF 1NKEY(DX)*0 THEN PLOTR 0,-1, kolo 
r 

S210 IF 1NKEYILII-0 THEN PLOTR -1,0, kolo 
r 

1220 IF INKEYIPD-O THEN PLOTN 1,0, kolor 
1230 i-ZPOSiyYPOSiBOSUB 1330 
1240 »X*JiyX*y 


dokończenie re tłr. 9 

990 IF yX>346 THEN yWSWlPNINT I3,CNM( 1250 IF *< 1 THE " "WER l.OlPRlNT I3.CHR4 
7) l?l 

1000 IF K«l THEN kWlPNINT »3,CHNŚI7) 1J *° 1F »>«’ ™ "WER -l.OtPRINT 13,0 
1010 IF »X>839 THEN >X-839lPRINT 13, CNN! 

1270 IF y>366 THEN NOVER 0,-liPRlNT 13, C 
HRŚI7I 

1280 IF y(l THEN NOVER O, liPRINT S3.CHRS 
17) 

1290 BOTO 11B0 
1300 RETURN 

1310 RENlIttttlimitimtlllltlMIttttl 
1320 REN BUHKA 

1330 RENtimitmmimmiiimiiMit 
1340 OLS B2IPR1NT I2,'6UNKA - NYLACZANA 
P - POKROP 

1330 LOCATE B2,l,2lPRlNT *2, ‘UŻYWAJ t’łC 
MR* (24014CNRB 1242) 4CHRS (243) +CHRS1241I f 
COPY LUB JOYSTICKI 
1360 rbX-0 

1370 B08UB 930t60fiUB 1070tB0SUB 9B0.60SU 
0 B70IB0BUB 930 

13B0 IF INKEyI( 271*0 THEN BOTO 400 
1390 IF INKEY1FIP0 AND rbX»0 THEN rbX-l 
■FOR 1*1 TO 200INEZT ll LOCATE «2,9,liPRl 
NT (2, "WŁĄCZONĄ 'I60T0 1400 ELSE IF INKĘ 
YIFIPO AND rbX«l THEN rbX H Oi LOCATE *2,9 
, liPRINT #2, "WYŁĄCZONĄ' t FOR PI TO 200|N 
EZT ił BOTO 1400 

1400 IF rbW THEN BOTO 1410 ELBE BOSUB 
B70|60T0 1330 
1410 FOR yt*-2 TO 2 

1420 NOVE xX-3,yXe V Xi DRAW «l43,yZ«vl,l 
1430 NEZT vt 


1440 FOR vX>-3 TO 3 

1430 NOYE xX-4, yX+vXt DRAŃ «X*4,yX*vX,0 
1480 NEZT *X 
1470 BOTO 1370 
1480 RETURN 

1490 RENItllimtlUilltlltllltllttllttt 
1300 REN NYSN1ETLAN1E WSPÓŁRZĘDNYCH 
13)0 REN KURSORA BRAFIC2NE60 
1320 RENItllltmilimilllllltltlltlllt 
1330 NINDON 45,3,6, 1 , 2t PAPER «5,2|FEN 13 
, liPRINT S5, US1N6-SS4* |X 
1540 PRINT IS,UBINB'llk'|y 
1350 RETURN 

1 S 6 O fiENimmHiiiiitimitiiimmti 

1570 REN CHARAKTERYSTYKA PUNKTU 

1500 REN B1EZACEB0 

1590 REHItlKllllltimtlltllllllllttm 

1600 «pX-lPOBiypX«VPOSlkoPTESTI<pZ,ypXI 

itkX*0iprX«0 

1810 RETURN 


W następnym numerze będziemy 
ozbudowywać prezentowany program 
) szereg nowych funkcji, w tym m.in.: 
kreślenie linii, okręgu, czworokąta, 
Zładowanie pamięci ekranu na kase- 
cie magnetofonowej, wczytywanie ry- 
sunku z kasety do pamięci obrazu. 

Janek 
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Commodore 64 jest jednym z mikrokompute- 
rów, które oferują znaczne możliwości graficzne. 
Niestety dostarczana użytkownikowi wraz z mi- 
krokomputerem instrukcja obsługi nie omawia 
wszystkich szczegółów związanych ze sposobem 
wykorzystania C-64 do tworzenia grafiki kompu- 
terowej. Zacznijmy zatem od początku. 

Jak wygląda pamięć Commodore 64? 

Mikrokomputer posiada dwa rodzaje pamięci półprze- 
wodnikowej: pamięć stałą (ROM) i pamięć o dostępie swo- 
bodnym (RAM). 

Po włączeniu mikrokomputera C-64 wyświetlany jest 
komunikat: 

64 RAM SYSTEM 3891 1 BASIC BYTES FREE 

Informuje on nas o tym, że system dysponuje pamięcią 
64Kbajtów, lecz dla progamu w Basicu dostępne jest tylko 
38911 bajtów. 


ADRES 

OPIS 

od 

do 

0 

1 

rejestry mikroprocesora 

2 

1023 

pamięć wykorzystywana przez sy- 
stem operacyjny 

1024 

2039 

pamięć (matryca) obrazu wyświet- 
lanego za pomocą znaków — 
PAMIĘĆ EKRANU 

2040 

2047 

wskaźniki na bloki pamięci, w któ- 
rych zdefiniowano postacie sprite 

2048 

40959 

pamięć wykorzystywana przez pro- 
gram w Basicu, dane lub w inny 
sposób; jest to nasza dyspozycyjna 
pamięć 

40960 

49151 

interpreter języka Basic 

49152 

53247 

dodatkowy obszar pamięci RAM do 
wykorzystania przez użytkownika 

53248 

53249 

rejestry układu kontroli obrazu 
(VIC-a) 

54272 

55295 

rejestry syntetyzera dźwięków 
(SID-a) 

55296 

56319 

pamięć (matryca) kolorów wy- 
świetlanych znaków — PAMIĘĆ 
KOLORU 

56320 

57343 

rejestry wejścia/wyjścia 

57344 

65535 

procedury systemu operacyjnego 
(KERNAL) 


Rys. 1. Jedna z możliwych (podstawowa) konfiguracji 
pamięci C-64. 

Uwaga: Generator znaków ROM (zbiór standar- 
dowych postaci znaków C-64) można uzyskać w 
obszarze od 53248 do 57343 bajtu po ustawieniu 
odpowiednich przełączników. 


Na rys. 1 . przedstawiono jedną z możliwych, najczęściej 
wykorzystywaną konfigurację pamięci. 

Jak powstaje obraz? 

Na ekranie monitora widzimy różne obiekty (np. litery, 
znaki graficzne, sprite) wytwarzane przez mikrokomputer. 
Każdy obiekt powstaje po zinterpretowaniu określonych 
obszarów pamięci definiujących jego postać, kolor, poło- 
żenie na ekranie. Można powiedzieć, że mikrokomputer 
wyświetla swoją pamięć. 

Całą grafiką mikrokomputera C-64 steruje układ scalony 
zwany układem kontroli obrazu. W dalszej części będziemy 
posługiwać się jego skrótową nazwą VIC (ang. Video Inter- 
face Controller). Przetwarza on określone obszary pamięci 
mikrokomputera w obiekty oglądane na ekranie. VIC po- 
siada następujące podstawowe tryby pracy: 

a) tryb znakowy — możliwość wyświetlania znaków w 40 

kolumnach i 25 wierszach; 

b) tryb graficzny — możliwość wyświetlania obrazów gra- 

ficznych o rozdzielczości 320 na 200 
punktów świetlnych; 

c) sprite — możliwość wyświetlania do 8 ruchomych 

obrazków graficznych (24 na 21 punktów 
świetlnych każdy). 

Wymienione tryby pracy mogą być realizowane w grafi- 
ce wielobarwnej lub standardowej. Można je również łą- 
czyć konstruując bardzo barwne obrazy graficzne. 

Ważną własnością VIC jest niezatrudnianie do swojej 
pracy mikroprocesora. VIC jest sam specjalizowanym pro- 
cesorem mającym możliwość niezależnej adresacji pa- 
mięci. Na formę obrazu oglądanego na ekranie, a wytwa- 
rzanego przez VIC wpływa zawartość wielu obszarów pa- 
mięci. W schematyczny spo- i p^a/ono to na rys. 2. 



Ryb. ... Poubtdwuwu ułomunty biorące udział przy two- 
rzeniu obrazu graficznego.przez C-64. 


Do sterowania pracą i komunikowania się z VIC słu- 
ży 47 rejestrów rozmieszczonych między 53248 i 53294 
bajtem pamięci. Ustalając odpowiednie zawartości tych re- 
jestrów możemy wpływać na grafikę uzyskiwaną na ekra- 
nie. Niektóre z rejestrów pełnią kilka funkcji. Realizację wy- 
branej funkcji uzyskuje się zapalając odpowiednie bity 
(ustawiając na wartość 1), bądź też gasząc odpowiednie 
bity (ustawiając na wartość 0). 
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Wykonajmy następującą instrukcję w trybie bezpośre- 
dnim: 

POKE 53265, PEEK(53265)AND 239 

W rejestrze zlokalizowanym w 53265 bajcie zgasiliśmy 
bit 4, Spowodowało to zniknięcie obrazu na ekranie. Cały 
ekran jest w kolorze obrzeża, a znaki nie są wyświetlane 
Przyciśnijmy dowolny klawisz. Na ekranie nie pojawiają się 
żadne znaki. Naciśnijmy klawisz RETURN, a następnie 
wprowadźmy kolejną instrukcję (ostrożnie, gdyż wprowa- 
dzane znaki są niewidoczne): 

POKE 53265. PEEK(53265)OR 16 

W tym samym rejestrze zapaliliśmy obecnie bit 4 i otrzy- 
maliśmy normalny obraz na ekranie. 

Do tworzenia obrazu wykorzystywany jest również ob- 
szar pamięci zwany PAMIĘCIĄ KOLORU zlokalizowany 
między 55296 i 56319 bajtem. PAMIĘĆ KOLORU określa 
kolor znaku wyświetlanego w każdej pozycji na ekranie. 

Oprócz wymienionych obszarów pamięci (rejestry i PA- 
MIĘĆ KOLORU) VIC wykorzystuje do tworzenia obrazu 
blok pamięci wielkości 16Kbajtów, zwany BANKIEM. W 
BANKU VIC posiada tormy wszystkich obiektów wyświet- 
lanych na ekranie monitora: 

— PAMIĘĆ EKRANU zawierającą kody znaków wyświe- 
tlanych w 40 kolumnach i 25 wierszach; 

— GENERATOR ZNAKÓW zawierający zbiór form 
wyświetlanych znaków; każdy kod znaku ma odpo- 
wiadającą mu dokładnie jedną formę; 

— bloki definiujące postać każdego sprite'a 
wyświetlanego na ekranie. 

Rozmieszczenie tych obiektów wewnątrz BANKU może 
ulegać zmianie. Sterujemy tym za pomocą rejestrów VIC. 

C-64 dysponuje pamięcią 64K. Można wyodrębnić w 
niej cztery bloki o wielkości 1 6K (rys. 3). Każdy z wydzielo- 
nych bloków może zostać interpretowany przez VIC jako 
BANK. VIC widzi tylko 16K naraz, Każdy z BANKÓW jest 
adresowany od 0 do 1 6383 w procesie sterowania pracą 
VIC, choć w rzeczywistości mogą to być inne adresy. 


i — r t 



Pom,d prm W 
•4r»»y YIC-o 


Rys. 3. Koncepcja BANKU. 

Jak powstają znaki na ekranie? 

Każdy znak wyświetlony na ekranie monitora można 
scharakteryzować następującymi składowymi: forma, ko- 
lor i umiejscowienie. Z punktu widzenia mikrokomputera 
dodatkowym i niezbędnym elementem charakteryzującym 
znak staje się jego kod. Przyspiesza bowiem realizację wie- 
lu operacji na znakach np. porównanie. 

Spróbujmy w bardzo ogólnym zarysie prześledzić pro- 
cedurę tworzenia znaku na ekranie monitora. Naciskając 
klawisz z dowolnym znakiem powodujemy generację od- 
powiedniego kodu dla tego znaku. Na podstawie zawar- 
tości 648 bajtu pamięci system operacyjny określa rze- 
czywiste położenie PAMIĘCI EKRANU i przesyła do odpo- 
wiedniej pozycji tej pamięci kod znaku. Kolor znaku (kod 
koloru) jest zapisywany do odpowiedniej pozycji PAMIĘCI 
KOLORU. Aktualny kolor znaków wprowadzanych jest za- 
warty w 646 bajcie. Mając te dane VIC pobiera z GENE- 
RATORA ZNAKÓW na podstawie kodu znaku jego formę, 
a z PAMIĘCI KOLORU identyfikuje jego kolor i wyświetla 


odpowiedni znak w odpowiednim miejscu i kolorze na ek- 
ranie monitora. 

GENERATOR ZNAKÓW standardowych pochodzących 
z pamięci ROM jest dostępny dla VIC tylko w BANKU 0 i 
2. Znajduje się on między 4096 i 81 91 bajtem wg adresacji 
VIC. Zawartość generatora nie zmienia zawartości pa- 
mięci RAM w obu odpowiadających mu rzeczywistych ob- 
szarach. Z punktu widzenia VIC pamięć ROM przesłania 
pamięć RAM. 

.Jak gospodarować pamięcią? 

Nie licząc rejestrów VIC i .PAMIĘCI KOLORU wszyst- 
kie pozostałe obszary pamięci definiujące formę obrazu są 
ruchome tzn. można je tworzyć w różnych rejonach pa- 
mięci RAM. 

Stwarza to duże możliwości graficzne np.: 

— możliwość definiowania własnych znaków grafi- 
cznych; 

— możliwość tworzenia animacji; 

— możliwość optymalnego wykorzystania posiadanej 
pamięei. 

Dla tych, którzy pragną korzystać z tych możliwości za- 
mieszczamy tabelę, która w prosty sposób pozwala go- 
spodarować wybranymi obszarami pamięci. Za pomocą 
tej tabeli możemy wybrać BANK, a wewnątrz BANKU 
określić położenie PAMIĘCI EKRANU i GENERATORA 
ZNAKÓW. Wykonujemy te czynności ustawiając odpo- 
wiednie zawartości trzech bajtów: 

— 56576 — najmłodsze dwa bity określają BANK dołą- 

czany do VIC; 

— 53272 — rejestr VIC-a określający położenie GE- 

NERATORA ZNAKÓW (3 najmłodsze bity) 
i PAMIĘCI EKRANU (4 najstarsze bity); 

— 648 — wskaźnik położenia PAMIĘCI EKRANU uży- 

wany przez system operacyjny; oblicza się go 
według wzoru: 

adres początkowy PAMIĘCI EKRANU 

wskaźnik 

256 

Przykłady użycia tabeli: 
a) Wykonując sekwencję instrukcji; 

POKE 56576,149: POKE 648,140: POKE 53272,53 

dokończenie na str. 28 
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Najwygodniejszym sposobem 
sterowania grami jest zastoso- 
wanie joysticka. Najpopularniej- 
szy w naszym kraju mikrokom- 
puter ZX Spectrum nie posiada 
gniazda, dającego taką możli- 
wość. W tym celu musimy zasto- 
sować odpowiedni Interfejs. 

W artykule opisano konstrukcję inter- 
fejsu pracującego w standardzie 
SINCLAIR umożliwiającego dołączenie 
jednego joysticka. Wybrano ten stan- 
dard ze względu na możliwość wyko- 
rzystania do budowy interfejsu elemen- 
tów tylko krajowej produkcji, 

Schemat ideowy urządzenia przed- 
stawiono na rys. 1 . Zastosowanie cyf- 
rowych układów scalonych rodziny 
TTL-LS pozwala na zasilanie interfejsu 
i zasilacza +5V mikrokomputera. 

Z punktu widzenia oprogramowania 
odczyt funkcji joysticka jest odczytem 
stanu klawiszy: 6, 7, 8. 9, 0. 

Odczyt stanu manipulatora następu- 
je w momencie wybierania układu ULA 
do odczytu (sygnały IOROGE, A0, RD 
mają niski stan) oraz po podaniu na li- 
nię adresową A 12 niskiego stanu. 
Niski poziom napięcia z tej linii adre- 
sowej może być podany, poprzez styki 
joysticka, na jedną z linii F, G, D, P. L. 
Stan zwarcia (niski stan) podawany 
jest poprzez bramki NOR i NOT na linie 
danych DO + D43. Informacja o funkcji 
manipulatora pojawia się na odpo- 
wiednich bitach tej linii w postaci ni- 
skiego stanu. W położeniu neutralnym 
joysticka wszystkie bity linii danych 
mają (muszą mieć) wysoki stan, 

Osiągnięto to przez zastosowanie 
rezystorów R2 + R6 utrzymujących 
wyjście bramek NOR w stanie niskim. 
Po zanegowaniu przez bramki NOT 
układu US1. daje nam to wysoki stan 
na bitach DO + D4 linii danych mikro- 
komputera. Układ US1 ma wyjścia z 
otwartym kolektorem. Dzięki temu 
układy mikrokomputera mogą ustawić 
linie danych w stanie niskim. Zapewnia 
to poprawną pracę komputera 



INTERFEJS 


Szerszą informację o wykorzystywa- 
nych sygnałach możemy znaleźć w 
pracach [1 ) i 12). 

Układ zmontowano na dwustronnej 
płytce drukowanej o wymiarach 62X54 
mm. Na rysunku 2 pokazano rozmie- 
szczenie elementów, a na kolejnych 
rysunkach (3 I 4) widok mozaiki połą- 
czeń po obu stronach płytki. 

Do połączenia interfejsu ze złączem 
komputera, wykorzystano gniazdo 
krawędziowe, a do podłączenia joy- 
sticka 9-8tykowe gniazdo szufladowe. 
Oba gniazda umocowano do płytki 


drukowanej. Gniazdo krawędziowe 
przylutowano (rys. 5), a gniazdo mani- 
pulatora przykręcono za pośrednict- 
wem dwóch wsporników (kątowników). 

Gniazdo krawędziowe wymaga 
przed montażem przygotowania. Nale- 
ży je przyciąć na długość 1 7 styków. 
Styki niewykorzystane należy usunąć i 
w odpowiednim miejscu (rys. 6) umo- 
cować wykonaną z izolacyjnego mate- 
riału grubości 1 ,5 mm przegródkę usta- 
lającą. 

Po umocowaniu gniazd lutujemy ko- 
lejno elementy dyskretne I układy sca- 



K-punk! lutowniczy (tworo) 



Ryl. 2 Rozmłtszczanle olomentów 
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Rys. 3 Płytka drukowana — widok od strony 

OZftCi 



Styki ( 



Styki 

A 

B 
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Uwago: Llnlq grubq oznaczono 
ustalająca wykorzyzływano styki 

Rys. 8. Wykorzystani* styków złącza krawędziowego 


Ztgczo krowodzl om 


/ ' •- Strono umktięnnia twnwntów 

r / / y Pyko drul^w ^r^ 

1 l U ~ 


Do 

komputera 


y y Lutoi 
\ Styki B 


Lutować 


Rys. 5 Szkic montażu złącza krawędziowego do płytki drukowanej 


Rys. 4 Płytka drukowana 
widok od strony lutowania 

lone. Tak wykonany interfejs nie wy- 
maga żadnych regulacji. Po wizualnej 
kontroli montażu możemy Interfejs do- 
łączyć do ZX Spectrum, 

UWAGA! 

Dołączenie interfejsu do komputera 
należy przeprowadzić przy wyłączo- 
nym zasilaniu komputera. Joystick mo- 
żemy dołączyć do Interfejsu zarówno 
przy wyłączonym, jak i włączonym zasi- 
laniu komputera. 

Po dołączeniu wg powyższych uwag 
interfejsu I joysticka włączamy zasila- 
nie komputera. Uaktywnienie dowolnej 
funkcji manipulatora powinno powo- 
dować wyświetlanie na ekranie telewi- 
zora cyfr. Poszczególnym funkcjom 
joysticka powinny odpowiadać nastę- 
pujące cyfry: 


Funkcja joysticka 

Cyfra 

w lewo 

6 

w prawo 

7 

w dół 

8 

w górę 

9 

S&Sl 

2 


Przy zastosowaniu sprawnych ele- 
mentów oraz prawidłowym montażu 
układ powinien działać od razu po pod- 
łączeniu. 

(B. L.) 

Wykaz altmanlów: 

Układy scalone: 

USt - UCY 74LS05, 

USZ.U53 - UCY 74LS02; 

Dioda: 

DD1 — BAVP 19 (lub dowolna Im- 
pulsowa); 

Rezystory (wszystkie 0,1 25 W): 

HI — 4.7 kQ. 

R2 -r R8 — - 6,8 k + 10 kD: 


Kondensatory: 

Cl - D,1 piF/163 V typu KFPm (lub 
MKSE). 

C2 - 22 juF/6.3 V elektrolityczny: 
Inne: 

Gniazdo krawędziowe typu Eltra 801 
(2X24 styki), 

Gniazdo joysticka — wtyk szuflado- 
wy typu Eltra 871—9 styków. 


Literatura: 

[1] Bednarski P.: Dodatkowa klawiatu- 
ra do mikrokomputera ZX Spec- 
trum, Radioelektronik 7185 

[2] Dickens A.: Spectrum Hardware 
Manuał, Melbourne House, 1983, 




2 CLS 

3 0RI6IN 70,200 
5 FOR »*1 TO 15 
11 DRAW 400,25tx 
20 DRAW 10lx,5lx 
25 NEKT x 

30 0RI6IN 570,200 
35 FOR y*l TO 15 
40 DRAW -400,25ly 
50 DRAK -10ly,5ly 
40 NEXT y 
70 ORieiN 70,200 


GRAFIKA 

AMSTRAD/ 


00 FOR z ■ 1 TO 15 
B5 DRAW 400,-2511 
90 DRAK 10lz,-5tz 
100 NEKT z 
110 ORIEIN 570,200 
120 FOR k«l TO 15 
130 ORAN -400,-25lk 
140 ORAN -10łk,-5*lt 
150 NEKT k 
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zzoraj i dziś... 

INSTYTUT INFORMATYKI 


AMSTRAD 
- BASIC 

Pomimo wielu prób standaryzacji komend BASIC-a ciąg- 
le istnieje tendencja do pojawiania się kolejnych wersji 
tego języka. Każdy nowy typ mikrokomputera zawiera zbiór 
unikalnych słów kluczowych, a z oryginału pozostaje nie wię- 
cej jak kilkanaście. Podobnie jest z maszyną AM8TRAD 
Poniżej opisane zostały te jej słowa kluczowe, które nie 
występują w innych dialektach BASIC-a. 

Komendy: 

MEMORY — ustala wielkość pamięci dostępnej dla 
BASIC-a przez podanie najwyż- 
szego bajtu (analogia do CLEAR 
w Spectrum); 

CALL — wywołuje podprogram w języku wewnętrznym; 
FRAME — powoduje czasowe zgranie wydruków na ek- 
ranie upłynniając ruch; 

AFTER...GOSUB — obsługa przerwań (!); po pewnym. 

określonym przedziale czasowym 
wywołuje podprogram w BASIC-u; 
EVERY...GOSUB — obsługa przerwań (!); regularnie, co 
pewien okres wywołuje podpro- 
gram w BASIC-u; 

ERROR — wywołuje błąd o podanym kodzie; 

RESUME — wznawia normalną egzekucję programu po 
powrocie z podprogramu obsługi 
błędów wywołanego przez ON 
ERROR GOTO lub ON BREAK 
GOTO; 

CHAIN — ładuje (LOAD) i uruchamia (RUN) program od 
podanego numeru linii, 

OPENIN — otwiera plik ASCII do odczytu z dyskietki; 
OPENOUT — otwiera plik ASCII do zapisu na dyskietkę; 
CLOSEIN — zamyka odczyt pliku ASCII; 

CLOSEOUT — zamyka odczyt pliku ASCII; 

ENT — definiuje parametry wysokości dźwięku; 

ENV — definiuje parametry głośności dźwięku, 

RELEASE — uaktywnia kanały dźwiękowe; 

WAIT — czeka na określoną wartość w porcie; 

WIDTH — ustala długość linii dla drukarki; 

SPEED KEY — określa szybkość samopowtarzanla kla- 
wisza; 

SPEED INK — określa częstotliwość zmian kolorów w trak- 
cie migania (Spectrum FLASH); 
SPEDD WRITE — określa szybkość zapisu do pamięci 
zewnętrznej; 

CLG — czyści ekran graficzny; 

ORIGIN — ustala miejsce graficznego punktu (0,0) na 
ekranie graficznym; 

MASK — podaje parametr dla instrukcji DRAW powodu- 
jący możliwość modyfikowania li- 
nii (np, przerywana, punktowa); 
FILL — wypełnia kolorem figurę zamkniętą; 

LOCATE — pozycja wydruku znaku (Spectrum AT); 

MODĘ — ustala tryb ekranu tekstowego na 20,40 lub 80 
znaków w linii; 

MOVE — przesuwa kursor graficzny; 

SYMBOL — definiuje grafikę użytkownika; 

TAG — włącza tryb wydruku znaków na ekranie graficz- 
nym; 
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TAGOFF — wyłącza powyższy tryb: 

ZONĘ — określa liczbę znaków, o jaką przesunie się kur- 
sor tekstowy napotykając prze- 
cinek: 

DEG — włącza tryb obliczania kątów w stopniach; 

RAD — włącza tryb obliczania kątów w radianach; 

DEFINT — deklaracja zmiennych typu mteger 
DEFREAL — deklaracje zmiennych rzeczywistych; 
DEFSTR — deklarac|a zmiennych tekstowych; 

ERASE — wymazanie zmlenne| z pamięci; 

KEY — definicja klawisza !unkcy|nego; 

KEYDEF — zmienia znaczenie klawisza; 

CLEAR INPUT — powoduje wyczyszczenie bufora klawia- 
tury; 

CURSOR — odpowiada za wydruk kursora podczas symu- 
lacji Instrukcji INPUT; 

Dl — wyłącza system przerwań; 

El — włącza system przerwań; 

Funkcje: 

CINT — zmienia liczbę rzeczywistą na całkowitą; 

CREAL — zmienia liczbę całkowitą na rzeczywistą; 

FIX — wyodrębnia część całkowitą liozby; 

MAX — podaje najwyższą wartość z wyszczególnionych 
argumentów numerycznych: 

MIN — podaje najniższą wartość: 

ROUND — zaokrągla wartość do podanej liczby miejsc po 
przecinku; 

UNT — podaje dziesiętnie adres wyrażony binarnie lub 
heksadecymalnle: 

ASC — podaje kod znaku w systemie ASCII; 

BINS — podaje wartość binarną liczby całkowitej; 

HEX$ — przedstawia liczbę w postaci heksadecymalnej; 
DECS — przedstawia liczbę w postaci dziesiętnej: 
LOWERJ — zmienia w łańcuchu tekstowym duże litery na 
małe; 

UPPERS — zmienia w łańcuchu tekstowym małe litery na 
duże; 

STRINGS — tworzy łańcuch tekstowy złożony z podanej 
Ilości wybranego znaku; 

SPACES — tworzy łańcuch tekstowy złożony z podanej 
ilości spacji; 

COPYCHRS — odczytu|e znak z ekranu (Spectrum 
SCREENS); 

INSTR — szuka łańcucha tekstowego w Innym i podaje 
pozycję, jeśli znajdzie; 

INKEY — sprawdza, w jakiej konfiguracji naciśnięto poda- 
ny klawisz (shltt. control); 

JOY — odczylu|e stan dołączonego Joystick a: 

POS — określa poziome położenie kursora tekstowego. 

głowicy drukarki lub Ilość przesła- 
nych znaków na dyskietkę; 

REMAIN — wyłącza zegar obsługujący przerwania poda- 
|ąc jego dotychczasowy stan; 

SQ — podaje stan jednego z trzech kanałów dźwiękowych; 
VPOS — określa pionowe położenie kursora tekstowego; 
EOF — wskaźnik końca zbioru podczas pracy z urządze- 
niami WE/WY; 

ERR — poda|e numer ostatniego błędu; 

DERR — podaje numer linii ostatniego błędu AMSDOD: 
ERL — podaje numer linii ostatniego błędu; 

FRE — wskazuje liczbę wolnych bajtów pamięci dla 
BASIC-a; 

HIMEM — podaje na|wyższy adres dostępny dla BASIC-a; 
TEST — podaje kolor wyszczególnionego punktu na ekra- 
nie graficznym; 

TIME — zwraca czas rzeczywisty od momentu wyzerowa- 
nia komputera. 
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SŁOWNIK SHARP 


Japonka firma SHARP produkuje 
mikrokomputery posługujące się języ- 
kiem BASIC. Obowiązuje tu typowy dla 
BASIC słownik i gramatyka BASIC. 

Na tej podstawie poszczególne fir- 
my. a w tym i SHARP opracowały 
własne WYRAŻENIA 
Ponieważ Czytelnicy posługują się 
RÓŻNYMI komputerami podajemy 
skrócony ..słownik", właściwy dla 
PC 1500 SHARP To ułatwi 
„przetłumaczenie" z SHARP na SPEC- 

Wyrażenia (software) wynikają z ar- 
chitektury (hardware). Zatem krótko o 
PC 1500: ma on wbudowany WSKAŹ- 
NIK 26-pozycyjny z ciekłych kryszta- 
łów LCD. Na mm wydawane są infor- 
macje literowo-cyfrowe. Przez konsolę 
komputer jest połączony z mlnlplsa- 
kiem czterokolorowym. Może on dru- 
kować (wypisywać) teksty literowo- 
-cyfrowe, lub kreślić mimrysunki na 
taśmie 59 mm zwykłego papieru. 
PAMIĘCI SHARP 
Rejestracja LICZB: Jest tu cała 
mnogość sposobów znakowania 
pamięci Oto odmiany zapisu: 

— jednoliterowa: A.B....Z 

— dwuliterowa: AA, AB., „AZ, BA, 

BB BZ, ZA, ZB,:..ZZ. 

— literowo-cyfrowa: A0. Al A9 Z0 

Zł Z9. 

Rejestracja WYRAZÓW: Operuje 
TAKIMI SAMYMI ZBIORAMI SYMBOLI 
z tą uwagą, iż dla WYRAZÓW dodaje- 
my sufix $. 

Np. CZS = „czwartek". A$ = „Jan", 
W1$ = „12 lipca". 

Pamięci ZBIOROWE: Wyrażenie DIM 
A(3) oznacza CZTERY pamięci liczbo- 
we A(0), A(1 ), A( n ), A(3). Wyrażenie 
DIM T$ (7) oznacza OSIEM pamięci 
wyrazów. 

Zapis typu DIM A(1,2) oznacza pa- 
mięć liczbową MACIERZOWA, mającą 
DWA wiersze I TRZY kolumny, zaś za- 
pis typu DIM IN$ (5,10). ; 

Przykład ŁĄCZENIA pamięci słów: 

W$ = ,.WAC".W$ = WŚ + ., - " + 
STRS1234 

Daje W$ = „WAC— 1234" 

ROZKAZY SHARP 

RUN 397. RUN „A" — startuj od wier- 
sza 397, etykiety „A" 

NEW — kasowanie całego programu 
LIST 070, LIST „Z" - podaj wiersz 870, 
etykietę „Z" programu 

DEKLARACJE SHARP 
INPUT — wejście (wprowadzenie) da- 
nych 

PRINT — wyjście: wyświetlenie na 
wskaźniku. 

CURSOR 13 — zacznij od 13 pozycji 
wskaźnika 

PAUSE — krótkotrwałe wyświetlenie 
na wskaźniku 


- PC 1500 


USING — deklaracja formy zapisu da- 
nych 

WAIT 50 — występuje łącznie z PRINT. 
Jest to czas wyświetlenia na wskaźni- 
ku 

CLS — wygaszenie wskaźnika 
BEEP 7,123,300 — generacja dźwięku 
o 7 powtórzeniach, częstotliwości 
(umownej) 123, Impulsu trwającego 
300 jednostek czasu 
CLE AR — zerowanie wszystkich pa- 
mięci 

RANDOM — generacja liczb losowych 
DEGREE — kąt w' stopniach 
RADIAN — kąw w radianach 

FUNKCJE SHARP 

SIN, COS, TAN — sinus, cosinus, tan- 
gens 

ASN, ACS, ATN — arcusy: sinusa, co- 
sinusa. tangensa 

LN. LOG — logarytmy naturalny i dzie- 
siętny 

EXP — exponenta 

DEG — stopnie I ich ułamki dziesiętne 
DMS - zapis typu STOPNIE, MINUTY. 
SEKUNDY 

RND 7 — generowanie liczb losowych 
od 1 do 7 

SQR — pierwiastek kwadratowy 
(lub ) 

ABS — wartość bezwzględna 
INT — część całkowita 

OPERACJE 8HARP 

+. — cztery działania 

(,) — nawiasy 

< <=, >. >= — nierówności 
=, O — równość, nierówność 
A — „do potęgi" 

AND — funkcja logiczna ora? 



OH — łunkcja logiczna LUB 
NOT - logiczne ZAPRZECZENIE 
INKEYS — startowanie dowolnym kla- 
wiszem 

TIME — . wywołanie zegara-kalendarza 

STEROWANIE PISAKIEM 
SHAPR 

LLIST 230, 1600 — wydruk programu 

od wleraza 230 do 1 600 włącznie 

TEST — próba pisaka. Rysuje cztery 

kolorowe kwadraciki 

LPRINT — wydruk tekstu llterowo-cyf- 

rowego 

COLOR 3 — pisak czerwony (0 — 
czarny, 1 — niebieski, 2 — zielony) 
GLCURSOR 138 — przesunięcie pisa- 
ka o 138 „punktów" 

SORGN — ustawienie początku w za- 
danym punkcie 

LINĘ — (0.0) — (20—53) — wyrysowa- 
nie linii od współrzędnych k.y = 0.0 do 
20,-53 

RLINE — (10,— 12) — wyrysowanie od- 
cinka o rzutach 10,-12 
TEXT — stan typowy — gotów do dru- 
ku tekstów llterowo-cylrowych 
GRAPH — przestawienie na rysowanie 
linii (LINĘ, RLINE..,) 

Wybrał: Janusa MILLER 
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STUDIO 


EESSSTillini? 


— UCZĄ 

FTT -SPT 


Klub mikrokomputerowy „Bit” 


Foto: Jan Zelman 





Elementy s ystemów mikrokomputerowych (4) 

ARYTMETYKA 
I ADRESOWANIE 


Odcinek ten rozpoczynamy od 
dokończenia, omawianej w po- 
przednim numerze, logiki i aryt- 
metyki systemów cyfrowych. 

Zapis w systemie dwójkowym, ina- 
czej naturalny zapis binarny (dwójko- 
wy), ma pewne wady, które są nie bez 
znaczenia dla mikroprocesora. Wyma- 
ga on przeznaczenia najstarszego 
(najbardziej znaczącego) bitu liczby na 
zapis jej znaku oraz nie bardzo wiado- 
mo co robić z faktem, że istnieją, jakby 
dwa zera (+0 i —0) zapisywane jako 
0 0000 i 1 0000. W 1 bajcie za pomocą 
naturalnego zapisu binarnego, w skró- 
cie NKB (natural binary codę), można 
zapisywać liczby całkowite z przedziału 
(+0 255). 

Z uwagi na niedogodność zapisu w 
NKB w kodzie znak-moduł, powodują- 
cym skomplikowanie operacji arytme- 
tycznych, arytmetyka mikroproceso- 
rów oparta jest na zapisie w kodzie 
uzupełnień do 2, oznaczanym U2. Kod 
ten umożliwia zapisanie w 1 bajcie 
liczby całkowitej ze znakiem z przedzia- 
łu (—128, +127). Liczba w kodzie U2 
zapisywana jest następująco: 


(22) L U2 = - a (| * 2" + la; 2 


Najważniejsze cechy charakterysty- 
czne zapisu w kodzie uzupełnień do 2 
to: zmiana znaku liczby poprzez zane- 
gowanie bajtu i dodanię jedynki; wyko- 
nywanie dodawania i odejmowania jak 
na liczbach w NKB; traktowanie całko- 
witych liczb dodatnich jak zapisanych 
w NKB. 

Mikroprocesory 8-bitowe nie są w 
stanie realizować wprost operacji 
mnożenia i dzielenia. Wyjątek stanowią 
mnożenie i dzielenie przez 2. Dzielenie 
przez 2 wykonywane jest poprzez prze- 
sunięcie liczby w prawo i powtórzenie 
na najbardziej znaczącej pozycji bitu, 
jaki się tam znajdował przed wykona- 
niem przesunięcia. Mnożenie przez 2 


wykonywane jest poprzez przesunięcie 
liczby w lewo i dopisanie na najmniej 
znaczącej pozycji zera. 

Z uwagi na używanie przez mikro- 
komputery zapisu dwójkowego, a przez 
człowieka zapisu dziesiętnego dobrym 
rozwiązaniem problemu komunikacji 
między człowiekiem i mikrokompute- 
rem mógłby być zapis dwójkowo-dzie- 
siętny, zwany BCD (binary codę de- 
cimal notation). W zapisie BCD każda 
cyfra dziesiętna kodowana jest od- 
dzielnie za pomocą 4 bitów. 

Przykładowo zapiszmy liczbę dzie- 
siętną w kodzie BCD 8421 : 

1957 = 0001 '1001 '0101’OIH 
10 

Z uwagi na architekturę mikroproceso- 
ra nie opłaca się stosować tego kodu 
w mikrokomputerach, nabiera on 
znaczenia w dużych i średnich syste- 
mach komputerowych. 

Niejako rozwiązaniem pośrednim 
problemu komunikacji jest zastosowa- 
nie zapisu szesnastkowego, znacznie 
ograniczającego długość zapisu liczb, 
łatwego do konwersji na zapis dwójko- 
wy. 

Znane są już nam pojęcia: cykl roz- 
kazowy mikroprocesora (instruction 
set) i cykl maszynowy (machinę cycle), 
zwany cyklem procesora. Z uwagi na 
sygnały sterujące, wytwarzane przez 
system mikroprocesorowy, można wy- 
różnić kilka typów cykli procesora: 

— cykl odczytu z pamięci; 

— cykl zapisu do pamięci; 

— cykl odczytu z układów wejścia- 
-wyjścia; 

— cykl zapisu do układów wejścia- 
-wyjścia; 

— cykl przyjęcia przerwania. 

W czasie tych cykli mikroprocesor ge- 
neruje sygnały sterujące, w przypadku 
mikroprocesora INTEL 8080 są nimi: 

— MEMR (memory read), sygnał od- 
czytu z pamięci; 


— MEMW (memory write), sygnał za- 
pisu do pamięci; 

— IOR (input/output read), sygnał 
odczytu z układów wejścia-wyjścia; 

— IOW (input/output write), sygnał 
zapisu do układów wejścia-wyjścia; 

— INTA (interrupt acknowledge), sy- 
gnał potwierdzenia przyjęcia przerwa- 
nia. 

Za pomocą takich sygnałów mikro- 
procesor 8080 komunikuje się z pamię- 
cią i układami wejścia-wyjścia, stano- 
wiącymi jego moduły zewnętrzne. Wy- 
bieranie modułów, z którymi mikropro- 
cesor wymienia dane, następuje po- 
przez podanie magistralą adresową 
kombinacji zer i jedynek logicznych, 
stanowiącej adres modułu. 

W zależności do realizacji układowej 
(sprzętowej) można wyróżnić dwie me- 
tody adresowania zewnętrznych modu- 
łów mikroprocesora: 

— jednolite adresowanie pamięci i 
układów wejścia-wyjścia (memory 
maped i/o)\ 

— odrębne adresowanie pamięci i 
układów wejścia-wyjścia (isolated Ho). 

W pierwszym przypadku istnieje jed- 
nolita przestrzeń adresowa, o 2" adre- 
sach (gdzie N — liczba linii adreso- 
wych). W przestrzeni tej pamięci jak i 
układy wejścia-wyjścia mogą być 
umieszczone w dowolny sposób. Re- 
jestry układów wejścia-wyjścia trakto- 
wane są tu jak komórki pamięci. Meto- 
dę jednolitego adresowania przedsta- 
wiono na rys 7. Do odczytu i zapisy- 



Ryt. 7 Jednolita odrMowanio modu«5w zownytrznych 
mikroprocołora 

wama danych miedzy mikroproceso- 

rem a modułami zewnętrznymi 
wykorzystywane są dwa sygnały steru- 
jące: MEMR i MEMW. Ten sposób ad- 
resowania posiada bardzo ważną zale- 

dokończenie na str. 22 
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dokończenie ze ttr. 21 

tę. do komunikacji mikroprocesora z 
układami wejścia-wyjścia można wy- 
korzystać bogatszy zbiór rozkazów I 
trybów adresowania, odnoszących się 
w przypadku odrębnego adresowania 
tylko do pamięci. 

W drugim przypadku, przy odrębnym 
adresowaniu, istnieją dwie odrębne 
przestrzenie adresowe Do komunikacji 
z modułami zewnętrznymi mikroproce- 
sor wykorzystuje cztery sygnały: 
MEMR, MEMW, IOR, IOW. Do przesy- 
łania danych z/do układów wejścia- 
-wyjścia służą dwa rozkazy IN (input) I 
OUT (output). Metodę odrębnego ad- 
resowania przedstawiono na rys. 8. 
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Wyjaśnijmy dokładniej sposób adre- 
sowania poszczególnych zewnętrz- 
nych modułów mikroprocesora. Ma- 
gistrala adresowa mikroprocesora 
dzielona jest w następujący sposób. 
Mniej znaczące (młodsze) bity służą do 
adresowania kolejnych komórek pa- 
mięci lub układów wejścia-wyjścia. 
Bardziej znaczące (starsze) bity służą 
do wybierania, za pomocą dekoderów 
adresów, kolejnych modułów, w któ- 
rych uaktywniane są wejścia wybiera- 
jące C8 (chip select). W danej chwili, 
w zależności od sygnałów na wejś- 
ciach dekodera czyli od starszych bi- 
tów magistrali adresowej, tylko na 
jednym z wyjść dekodera jest logiczne 
zero, wybierające konkretny moduł ze- 
wnętrzny. Przedstawia to poglądowo 
rys. 9. 

Jako dekodery mogą być wykorzy- 
stywane również pamięci PROM lub 
EPROM. Na ich wyjściach danych mo- 
żna zaprogramować odpowiednie 
sekwencje zer i jedynek logicznych, 
przełączające — w zależności od bitów 
na wejściach adresowych pamięci — 
kolejne moduły mikroprocesora. 
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W systemach mikroprocesorowych 
stosuje się zwykło dwustopniowe de- 
kodowenle adresu Pierwszy dekoder 
służy do zdekodowanla grupy modułów 
drugi natomiast umożliwia żaadreso- 
wanin odpowiedniego modułu. 
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Za pomucą duRoduiów możemy po 

dzielić dysponowaną w systemie prze- 
strzeń adresową, utworzyć mapę 
przestrzeni adresowa) W zależności 
od potrzeb użytkowych przestrzeń ta 
może być ciągła, z dekodowaniem peł- 
nym lub nieciągła, t dekodowaniem 
częściowym jak na rys 9 

Zanim przejdziemy do trybów adreso- 
wania (addressing modę) czyli do spo- 
sobów określenia miejsca umieszcze- 
nia argumentu danego typu operacji 
mikroprocesora, przypomnijmy okreś- 
lenie — słowo mikroprocesora. Jest to 
elementarna jednostka Informacji, jaka 
jest przesyłana w systemie mikropro- 
cesorowym. Słowo może mieć długość 
4 bity, 8 bitów (tzw. bajt), 16 bitów, 32 
bity. W słowie może być zawarty kod 
rozkazu (operacji), kod rozkazu wraz z 
pośrednim adresem argumentu, liczba 
binarna lub w kodzie 8CD. kod znaku 
alfanumerycznego. Rozkazy mogą 
mleć postać jednosłowową, lub wlelosło- 
wów, gdy zawierają argument będący 
liczbą lub numer komórki pamięci (ad- 
res), w której zapisana Jest liczba. 

W liczniku rozkazów mikroproceso- 
ra zawsze zawarty jest adres komórki 
pamięci, w której zapisano kod wyko- 
nywanego rozkazu. W zależności od 
zastosowanego w rozkazie trybu adre- 
sowania argumenty można określać w 
różny sposób. Wśród sposobów adre- 
sowania, wykorzystywanych w mikro- 
procesorach. wyróżnia się następujące 
podstawowe tryby: 

— adresowanie natychmiastowe (im- 
mediate addresing); 

— adresowanie bezpośrednie (direct 
addresslng); 


— adresowanie pośrednie ( indirecl 
addressing); 

— adresowanie względne (relative 
addressing); 

— adresowanie indeksowe (lndexing 
addressing); 

Adresowani* natychmiastowe do- 
tyczy rozkazów wielosłowowych, 2- lub 
3-słowowych W pierwszym słowie roz- 
kazu umieszczony jest kod operacji, w 
słowach następnych znajduje się 
argument (operand). Tryb ten stoso- 
wany jest do umieszczania w pamięci 
danych stałych 

Adresowani* bezpośrednie odnosi 
się do rozkazów co najmniej 3-sło- 
wowych. W rozkazie, bezpośrednio za ko- 
dem operacji, umieszcza się adres 
komórki pamięci, z której należy po- 
brać argument, lub do której należy ten 
argument przesłać. Tryb ten wykorzy- 
stywany jest również przy wykonywa- 
niu operacji na rejestrach wewnętrz- 
nych mikroprocesora. Są to zazwyczaj 
rozkazy 1 -słowowe. Programiści stosu- 
ją ten tryb wówczas, gdy znany jest ad- 
res argumentu, dotyczy to np. rozka- 
zów skoków, 

Adresowanie pośrednie dotyczy 
rozkazów, w których poza kodem ope- 
racji, umieszczony jest adres pamięci, 
pod który zapisany jesł adres argumen- 
tu operacji. Do adresowania pośred- 
niego można również zaliczyć adreso- 
wanie rejestrowe pośrednie (pointer 
addressing), w którym adres argumen- 
tu umieszczony jest w rejestrze (rejes- 
trach) roboczym mikroprocesora. Re- 
jestr taki nazywany Jest wówczas li- 
cznikiem danych (data counter) lub 
wskaźnikiem danych (data pointer). 
Tryb adresowania pośredniego umoż- 
liwia korzystanie z argumentów znajdu- 
jących się w całej przestrzeni adreso- 
wej mikroprocesora. 

Adresowani* wtględne odnosi się 
do rozkazów, w których adres argu- 
mentu jest wynikiem dodania liczby 
umieszczonej w rozkazie (za kodem 
operacji) I zawartości licznika rozka- 
zów. Tryb ten stosuje się w rozkazach 
skoków warunkowych, adresowanie to 
jest stosowane w programach, które 
mogą pracować w dowolnym miejscu 
przestrzeni adresowej. 

Adresowanie Indeksowe jest to 
odmiana adresowania względnego 
Adres argumentu jest sumą adresu 
zawartego wewnątrz rozkazu, bezpoś- 
rednio za kodem operacji, a zwanego 
przesunięciem oraz adresu umie- 
szczonego w rejestrze indeksowym 
mikroprocesora. Adresowanie to jest 
oczywiście stosowane w mikroproce- 
sorach posiadających taki rejestr. Tryb 
wykorzystywany jest głównie, gdy ko- 
nieczny jest dostęp do danych umie- 
szczonych kolejno w pamięci jako tab- 
lica. 


Omówione tryby adresowania są 
podstawowymi, spotykanymi w więk- 
szości mikroprocesorów. Jak wiele jest 
sposobów adresowania niech świad- 
czy to, że 16-bltowy mikrokomputer IN- 
TEL 8086 posiada ich aż 24 

Źródłem danych dla mikroprocesora 
jest świat zewnętrzny, z którym to ko- 
munikuje się on za pomocą układów 
wejścia-wyjścia, a są nimi urządzenia 
zewnętrzne takie jak: klawiatura, moni- 
tor lub wyświetlacz cyfrowy, drukarka, 
pamięć masowa (np. na dyskach ela- 
stycznych) etc. 

Wymiana danych z urządzeniami 
zewnętrznymi może być realizowana 
m.in. poprzez: 

— system przerwać (interrupt system); 

— bezpośredni dostęp do pamięci (di- 
rect memory access DMA) 

System przerwań umożliwia przer- 
wanie wykonywania przez mikroproce- 
sor programu głównego i przejście do 
podprogramu obsługującego urzą- 
dzenie zgłaszające przerwanie. Sygna- 
ły żądania przerwania (każdy z nićh 
posiada przyporządkowany odpowied- 


nio priorytet) można potraktować jako 
sygnały sterujące pracą mikroproceso- 
ra. System przerwań umożliwia więc 
reakcje mikroprocesora na zdarzenia 
w jogo otoczeniu zewnętrznym. Aby by- 
ło to możliwe mikroprocesor, pod ko- 
niec każdego cyklu rozkazowego, 
sprawdza czy nie pojawiły się sygnały żą- 
dania przerwania. Jeśli w systemie za- 
stosowano jednopoziomową struktu- 
rę przerwań to mikroprocesor obsłuży 
zgłoszenie przerwania, które pojawiło 
się jako pierwsze. Ingorowane są inne 
zgłoszenia — nawet o wyższym priory- 
tecie, aż do końca obsługi pierwszego. 
Jeśli pojawiło się kilka sygnałów zgło- 
szeń przerwania to obsłużone zostanie 
to z nich, które posiada najwyższy prio- 
rytet. W ten sposób mikroprocesor ob- 
służy wszystkie zgłoszenia I dopiero 
powróci do wykonywania programu 
głównego. Jeśli w systemie zastoso- 
wano wielopoziomową strukturę 
przerwań, to podczas wykonywania 
obsługi przerwania, gdy pojawi się 
zgłoszenie przerwania o wyższym priory- 
tecie. następuje zawieszenie obsługi 


danego przerwania, aż do momentu 
zakończenia obsługi zgłoszenia waż- 
niejszego Dopiero wtedy następuje 
powrót do obsługi mniej ważnego zgło- 
szenia (posiadającego niższy priory- 
tetu 

Bezpośredni dostęp do pamięci 

DMA umożliwia przeprowadzanie 
szybkich przesłań danych (tzw, trans- 
misji blokowych) między pamięcią sy- 
stemu mikroprocesorowego a urzą- 
dzeniami zewnętrznymi. Transmisje te 
wykonywane są bez udziału mikropro- 
cesora, poprzez specjalizowany układ 
wejścia-wyjścia tzw sterownik DMA. 
Gdy ze sterownikiem współpracuje 
wiele urządzeń zewnętrznych, to po- 
dobnie jak w systemie przorwań okreś- 
lany jest priorytet urządzenia. 

Terminologia I pojęcia wprowa- 
dzona w pierwszych czterech od- 
cinkach cyklu staną się laplaj zro- 
zumiała już w następnym numerze 
JKS-a", od którego rozpoczynamy 
omawiania budowy I programowa- 
nia konkretnych systemów mikro- 
procesorowych. ...... 

Jacek WOJTALA 


Jak lo /robić — dokończenie ze itr. 3 

313 W<Y~2>*WY 

328 POKE ZN+Y-3,W<Y-2> 'P08IT10N 20,Y'P 
RINT M<Y-2>/“ “ 

323 GOTO 160 

343 REM 2apanl*ttnl* danych dla 
definicji znaku 

330 1F PEEK<33279><3 THEN GOTO 300 
333 W< Y-2)"WY ' POKE ZN+Y-3,W<Y-2) 'POSIT 
10N 20, Y' PRINT W<Y-2>i“ 

360 GRAPHICS 0'PO8ITION 2.2 

363 PRINT “PodaJ kod ASCII definiowane 

f maku " ; 

370 INPUT CH' PRINT “ Prawidłowa Postać 
Instrukcji DATA" 

373 P08ITION 2,7 

380 PRINT LAB; “ DATA “;CH; 'LRB-LAB+3 
383 FOR 1«1 TO 8 
380 PRINT V'/N<I>J 
393 NEXT I ' 

400 REM Wprowadzani* poprawki w 
tr*scl protramu 

403 POSITION 2, 9 1 PRINT "CONt" 'POSITION 
2,4 

4i0 POKE 842,13 'STOP 
413 POKE 842,12 
420 GRAPHIC8 0 

423 REM Odtuorztni* Środowiska 
430 MEM-PEEK ( 1 06 > -8 ' POKE 106, MEM' POKE 
736, MEM 

433 CHADR-2364MEM ' POKE 732,2 

440 ZN-A8C<*!">>ZN-CHADR+<2N-32>*8 

443 GOSUB 105S 'GOTO 73 

300 1F PEEK(33279)<2 THEN GOTO 303 

305 REM 0PTI0N/8TART -Konl*e proiramu 

310 GRAPHICS 0 

313 POSITION 2,4'PRINT "1036“ 

320 PRINT “CONT" 'P08ITI0N 2,0 
323 POKE 842,13'8T0P 
538 POKE 042,12 
540 END 

1000 DIM PR0C*<32> 

1018 REM Definiowani* procedury 
koPluJaC*J znaki 


1015 FOR I«1 TO 32 

1020 READ B ' PROC* < I ) “CHR* < B > 

1025 NEXT I 

1030 DATA 104,104,133,213,104,133,212, 
104, 133,215, 104, 133,214, 162,4, 160,0, 17 
7,212,145,214 
1035 REM 

1040 DATA 200,208,249,230,213,230,215, 
202,208,240,96 

1045 REM Kopiowani* zbioru znaków 
1050 REM 

1 055 R-USR < ADR < PROC* ), 224*236 , CHADR ) 
1060 READ J ' IF >0 THEN RETURN 
1065 RETURN 

1070 READ B > POKE CHADR+<J-32)*8+I,B 
1075 NEXT I 
1995 DATA 0 
2008 GOTO 1060 

GRZEŚ 



PASCAL (3) 


Program realizujący porządkowanie dowolnych sześciu 
liczb całkowitych metodą sortowania bąbelkowego zamie- 
szczono w przykładzie 8. 

Przykład 8 


Dotychczas poznane instrukcje wyczerpują 
zbiór najczęściej wykorzystywanych instrukcji 
języka PASCAL. Jednak o użyteczności języka 
decydują nie tylko dostępne instrukcje, ale także, 
w znacznej mierze, dostępne dla programisty ty- 
py danych. Występujące w przedstawionych 
wcześniej przykładach typy INTEGER I REAL na- 
leżą do grupy typów prostych. Oprócz typów 
prostych w języku PASCAL istnieją typy struktu- 
ralne, umożliwiające opis obiektów, traktowa- 
nych jako zbiory wartości typów prostych i struk- 
turalnych. Do typowych obiektów tej klasy nale- 
żą znane z matematyki wektory i macierze. W ję- 
zyku PASCAL odpowiednikiem wektorów i ma- 
cierzy są tzw. tablice, którym poświęcamy niniej- 
szą część. 

1. Deklaracje i wykorzystanie tablic 

Jednowymiarowa łablica to ciąg ponumerowanych ele- 
mentów. których wartości "Są tego samego typu. Dwuwy- 
miarowa tablica to ciąg wierszy lub kolumn, z których każ- 
da liczy tyle samo elementów tego samego typu. Rozmiary 
dwuwymiarowej tablicy to liczba wierszy i liczba elemen- 
tów w wierszu (czyli liczba kolumn). Za pomocą jednowy- 
miarowych tablic opisujemy zwykle takie obiekty jak wek- 
tory. natomiast za pomocą tablic dwuwymiarowych — ma- 
cierze. (PASCAL pozwala na definiowanie tablic o większej 
ilości wymiarów. Ponieważ nie przewidujemy przedstawia- 
nia problemów wymagających takich tablic poprzestaniemy 
na omówieniu tablic co najwyżej dwuwymiarowych). 
Naturalnym sposobem opisu tablic jest więc notacja; 

a) ARRAY [1 nj OF integer. 

dla opisu tablicy jednowymiarowej o „n" elementach typu 
integei, 

b) ARRAY [1 . m, 1 n] OF real. 

dla tablicy dwuwymiarowej o rozmiarach m X n i elemen- 
tach typu real. 

Sposoby deklarowania i wykorzystania tablic w pro- 
gramach przedstawiamy na przykładach. 

Rozważmy następujący problem należy uporządkować 
rosnąco 6 zadanych liczb całkowitych Jeden ze sposobów 
rozwiązania tego problemu opiera się na zasadzie porów- 
nywania i zamiany par sąsiadujących ze sobą liczb dopóty, 
dopóki wszystkie liczby nie zostaną ustawione w kolejności 
od najmniejszej do największej Z przedstawionego sposo- 
bu wynika. Ze warunkiem jego zrealizowania jest jedno- 
czesne udostępnienie wszystkich sześciu liczb. Jeżeli po- 
traktujemy zadane liczby jako elementy „pionowej" tablicy 
jednowymiarowej to. przy pewnej dozie wyobraźni, może- 
my je uważać za znajdujące się w naczyniu z wodą bąbelki 
w „wagach" proporcjonalnych do ich wartości. Zatem każ- 
de przejście przez tablicę da w wyniku wypchnięcie bąbel- 
ka na poziom odpowiadający jego wadze. Metoda ta jest 
znana pod nazwą sortowania bąbelkowego. Przykładowy 
przebieg sortowania bąbelkowego ilustruje poniższa tabel- 
ka. 

Tabela nr 1 
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Drufi* 

prniio* 
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8 

23 
34 
-125 
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23 
34 
125 
— 303 

574 


PROGRAM prog8; 

(porządkowanie zadanych 6 liczb rosnąco) 
VAR liczby: ARRAY! 1.. 63 OF integer; 

x,i, jzinteger; 

BEG1N 

FOR i:*l TO 6 00 (wczytanie liczb) 
READdiczbyEi 3) | 

NRITELMs , . 

KRITEUr wprowadzone liczby:’)} 

FOR i:*l TO 6 DO 

MRITE(liczbyCil:V ’»3); tł . 
FOR i:»2 TO & 00 (porządkowanie liczb) 
FOR j: s 6 D0NNT0 i 00 
1F liczbylj-miiczbytj] THEN 
BEG1N 

x:»liczbyH-l]: 
liczbyt j-l‘:*liczbyC jl; 
liczbyt jl:*x 
END; 

URITELN; 

WRITELH( ’ liczby uporządkowane:’)} 

FOR i:*l TO 6 00 
MRITE (1 iczbyti 3 :5, ’ ’:3) 

END. 


Zadane liczby wczytywane są do jednowymiarowej sześ- 
cioelementowej tablicy ..liczby". Działania na elementach 
tablicy przeprowadza się tak. jak na zmiennych typu zgod- 
nego z typem elementów tablicy. Każdy element tablicy 
jest identyfikowany jednoznacznie przez nazwę tablicy 
oraz tzw. indeks, określający położenie elementów w tabli- 
cy. np. 

liczby |i] — i-ty wskazywany przez wartość zmiennej „i" 
element jednowymiarowej tablicy „liczby . 
liczby [j — 1 1 — |j— 1 1-szy (wska- 
zany przez wartość wyrażenia ..j — 1 " 
element jednowymiarowej tablicy 
„liczby". 

W przypadku, gdy indeks jest wyrażeniem, wartość wyra- 
żenia jest obliczona przed udostępnieniem elementu tabli- 
cy. Należy zauważyć, że bieżąca wartość indeksu musi 
mieścić się w przedziale wartości dopuszczalnych dla tego 
indeksu (w naszym programie <1 .6>). Zmiana elementów 
tablicy miejscami odbywa się za pośrednictwem pomocni- 
czej „x" (dlaczego?). 

Program wykonano dla danych z przedstawionej tabelki, 
uzyskując następujące wyniki 


uprowadzone liczby: 
574 303 34 

liczby uporządkowane: 
B 23 34 


125 B 23 
125 303 574 


Wprowadzając dane do programu „próg 8" należy pamię- 
tać. aby po każdej wprowadzanej liczbie nacisnąć klawisz 
ENTER (co spowoduje wykonanie instrukcji READ wczytu- 
jącej w tym przypadku jedną liczbę). Wyjaśnienie, dlacze- 
go jest to konieczne, przedstawimy w odpowiednim czasie 
Nowo wprowadzonym typom — w tym przypadku tabli- 
com — można przypisywać nazwę, która będzie traktowa- 
na jako synonim danego typu. Nazwa ta może być następ- 
nie wykorzystana między innymi w deklaracji zmiennych. 
Taki sposób deklarowania tablic zastosowano w progra- 
mie dodawania dwóch macierzy o ustalonych wymiarach 
(przykład 9). Przypomnijmy, że sumą dwóch macierzy A i B 
tego samego wymiaru jest trzecia macierz C. której ele- 


IKS — 24 


menty wyznaczane są według zależności: 

c ij = a jj 4 b jj 

gdzie: 

/' — indeks wierszy , 

/ — indeks kolumny 

Przykład 9 


PROGRAM prog9; 

(dodawani e aacierzy o ustalonych wyaiarach) 
TYPE 

aacierz*ARRAY[1..3,1..3) OF realj 
VAR 

a,b, (aacierze wejściowe) 

c:aacierz; (aacierz wyjściowa) 
^ijjunteger}{zaienne poaocnicza) # 

{wczytanie eleaentow aacierzy a> 

FOR i s =1 TO 3 DO 
BEGIN 

POR j: a l TO 5 DO 
READIaCi, jl); 

READLN 

ENI: 

(wczytanie eleaentow aacierzy b} 

FOR i:*l TO 3 DO 
BE6IN 

FOR j s * 1 TO 5 DO 
READ(bCi, j)); 

READLN 

END; 

(dodawanie aacierzy a i b> 

FOR i:*l TO 3 DO 
FOR j: *1 TO 5 DO 
cCi,jlt*a[i, j]+b(i,j]} 

NRITELNi 

NRITELNTdane wejściowe:’); 

(wydruk aacierzy a) 

NRITELNI’ 10, aacierz a’); 

FOR i:*l TO 3 DO 
BE6IN 

FOR j:=l TO 5 DO 
NRITEI’ ’:3,aCi,j]tlO); 

NRITELN 

END; 

(wydruk aacierzy b> 

NRITELNI’ ’łlO,’aacierz b’); 

FOR i:*l TO 3 DO 
BE6IN 

FOR js =1 TO 5 DO 
NRITEI’ ’:3,b(i. jlilO); 

NRITELN 

END: 

NRITELN: 

NRITELN(’wynik:’)} 

(wydruk aacierzy c) 

NRITELNI’ ’: 10, aacierz c*a+b’)j 
FOR i:*l TO 3 DO 
BE6IN 

FOR <:*1 TO 5 DO 
NRI ; -(’ ’:3,c(i, jl:10) j 
NRITELN 
END 


W programie, w deklaracji zmiennych typu tablica (a.b.c) 
wykorzystano wcześniej zdefiniowany typ „macierz" opisu- , 
jący macierze o wymiarach 3 X 5 i elementach typu REAL. 
Typ ten został zdefiniowany zgodnie z następującą, przyję- 
tą w języku PASCAL, ogólną postacią definicji typu: 

TYPE I = T 
gdzie: 

TYPE — słowo kluczowe oznaczające definicję typu, 
ł — nazwa definiowanego typu („macierz"), 

T ~ opis definiowanego typu 
(ARRAY [1 ...3,1 .5] OF real) 

Program wykonano dla macierzy: 


[ 10 -6 15 1 33l 
25 -12 31 6 89 1 
16 4 8 19 — 7J 



uzyskując następujące wyniki: 


dtn* Mtjscione: 





Mcitrz i 




1.0000E+01 

-6.000E+00 

I.5000E*01 

l.0000£*00 

3.3000EłOl 

2.5000E*0! 

1.2000E*01 

-3.100E+0; 

6.0000E*00 

B.9000E+01 

1.6000E+01 

4.0000E+00 

8. OOOOE*CO 

1.9000E*01 

-7.000E*00 

aaeitrz b 




1 . 0000t+00 

2.0000E+00 

3.0000E+00 

4.0000E+00 

3.0000E+00 

1.0000E+00 

2.0000E+00 

3.0000E*00 

4.0000E+00 

S.OOOOE^O 

t.OCOOEtOO 

2.0000E+00 

3.0000E+00 

4.0000E+00 

5,OOOOE«CO 

wynik: 





MCierz c=a*b 




1.1C00E»01 

-4.000E+00 

l.BOOOE*Ol 

5.0000E*00 

3.B000E+01 

2.6000E*01 

1.4000E+01 

-2.800E*01 

1 . OOOOE+Ol 

?.4000E*01 

1.7000E*01 

Ł.OOOOE^OO 

1. 1000E+0! 

:.3000Et01 

-2.000E*00 


Elementy obu macierzy zostały wprowadzone wierszami 
przy czym, w odniesieniu do każdego wiersza, obowiązy- 
wały te same zasady wprowadzania danych, jak w pro- 
gramie poprzednim. Przejście do nowego wiersza nastę- 
powało po dodatkowym wciśnięciu klawisza ENTER. po 
wprowadzeniu elementów danego wiersza (odpowiada to 
wykonaniu instrukcji READLN). 

Zastanówmy się obecnie, jakie zmiany byłyby konieczne 
w przedstawionych programach w przypadku zmiany wy- 
miarów tablic. Nietrudno zauważyć, że zmiana wymiarów 
„rozprzestrzeni" się na cały program Należy bowiem zmo- 
dyfikować również wszystkie instrukcje programu, w któ- 
rych występują wartości graniczne wymiarów tablic. I tak. 
zmiana wymiarów tablicy „liczby" z przykładu 8 wymaga 
wprowadzenia zmian w sześciu wierszach programu a 
zmiana wymiarów tablicy „macierz", z przykładu 9 — aż w 
trzynastu wierszach! 

Wad łych jest pozbawiony program mnożenia dwóch 
macierzy, z przykładu 1 0. Przypomnijmy, że iloczyn A * B 
dwóch macierzy A i B jest taką macierzą C, w której ele- 
ment i-tego wiersza i j-tej kolumny jest sumą iloczynów 
elementów i-tego wiersza macierzy A przez odpowiednie 
elementy j-tej kolumny macierzy B. Liczba kolumn macie- 
rzy A musi być przy tym równa liczbie wierszy macierzy B. 
Jeżeli więc macierz A jest stopnia p • q i macierz B — 
stopnia q * r, to macierz C jest stopnia p * r: 

Cp*r = Ap.q x Bq*r 
gdzie: 

c //= Za ik * b kj 


Przykład 10 

PROGRAM proglO: 

(enozenie aacierzy) 

CONST 

dw«lt (dolna wartość indeksu wierszy) 

gw*7j {oorna wartość indeksu wierszy) 

ak*l; (dolna wartość indeksu koluan) 

gk*7; (górna wartość indeksu koluan) 


t& 7 ' 


Jjtblica=ARRAYtd»..g*,(lk..gk] OF rtal; 


51 - 

q2. 


(liczba Kierszy ucitrzy i! 
(liczba koluan aadtrzy a ) 
(liczba titrszy aadtrzy b) 


dokończenie na sir. 26 
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dokonczsnl* m lir. 25 


riintigtri (liczb* keluąn Hctirzy h ) 
i , J, ki inttgiri (iii wini robocu! 


i,b, ' ' (iiciirii iijicioke: 
ęitibllcit (iicliri Dyni kom : 


iirmli 
BEEIN 

READLN(p,ql) | (HCiytinti ityiliroi mcitrzy i) 
IeĆIn’ * !,l> * THEN 
W TELNi 

bRITEUtrniipopriini lyiliry meliny «’ ) 
END 
ELSE 
BEEIN 

FOR ii»dw TO p 00 (uciytinii ilnintoi) 
iJN. __ (mc liny i ) 


it'bk TO gl 
'tlitl.Jlll 


g}sJi^wy y,urs,,, “‘ ,r,yM 

wiTElllt^iipoprgNfli «y«iiry Mdiriy b') 

tND 

■L 

FOR i 1 *d» TO gl 00 (sczytinit iluiMon) 
BĘ6]N „ (Mcii 


Ji *dk TO r 00 

1011" 


iiriy b 


&i^^!i^«^r h,,cl,r,vł 

FON fik TO p 00 
IN Ji»dk TO gi 00 


OR ji *dk TO , .. 



Wymiary tablic zostały określona poprzez nazwy stałych 
(dw, bw, dk, gk), zdefiniowanych w części definiującej pro- 
gramu po słowie kluczowym CONST. Ponieważ w części 
operacyjnej programu również używamy zdefiniowanych 
slatyoh, nie jesf ona „wrażliwa" na zmiany wymiarów tablic. 
Ewentualna zmiana wymiarów tablic wymaga jedynie 
przedefiniowanla odpowiednich stałych. 

Analizując program „próg 10" można zauważyć, że ak- 
tualnie wymagane wymiary tablic są wczytywane w czasie 
wykonywania programu, Pozwala to na zmianę wymiarów 
tablic bez konieczności modyfikacji tekstu programu 
Oczywiście zakres zmian iest ograniczony zdefiniowanymi 
wymiarami tablic. Zatem po wczytaniu bieżących wartości 
wymiarów tablic należy sprawdzić, czy mieszczą się one w 
przedziale wartości dopuszczalnych Program wykonano 
dla macierzy; 


fi 34 ol 
[22 -14 -5j 

[ -7 2 1 2 0"| 

12 2 5 1-1 I 

3 2 -9 1 O J 


l.ooi 

2.201 


uzyskując nrrctnp ąrr wyniki- 

•icltrz i 

OOOOE+OO 3.40001+01 O.OOOOE+OO 
2000E+01 -1 . 400E+01 -5.000E+00 
iicisr; b 

-7.000E+00 1.0000E+00 2.0000E+00 O.OOOOE+OO 
J.2000E+01 5. OOOOE+OO 1.0000E+00 -1.000E+00 
3, OOOOE+OO -9. OOOE+OO t . OOOOE+OO O.OOOOE+OO 

Mciirz c>itb 

4, 0100E+02 1.7100E+02 3. &000E+0I -3.400E+01 
•3.370E+02 -5, 000E+00 5.S000E+0I MO00E+0I 
2. Składowanie zbiorów roboczych 


Czytelnicy wykorzystujący praktycznie system TURBO 
PASCAL zauważyli zapewne, że żądanie utworzenia no- 
wego zbioru roboczego, gdy w pamięci istniał już zbiór (np. 
poddawany edycji), powodowało wyprowadzenie pytania 
dotyczącego składowania istniejącego zbioru Odpowiedz 
twierdząca (Y) powoduje w tym przypadku składowanie 
zbioru w pamięci dyskowej, przecząca zaś — jego zni- 
szczenie poprzez otworzenie nowego zbioru roboczego. 
Widzimy zatem, że składowanie zbioru zapobiega jego zni- 
szczeniu. Składowanie programu można uzyskać również 
przez wykonanie komendy S, Jeżeli istnieje poprzednia 
wersja zbioru o tej samej nazwie, oo składowany zbiór ro- 
boczy. to typ zbioru w tej wers|i zostanie przemianowany 
na BAK Należy podkreślić, że wprowadzając nowy pro- 
gram o dużej ilości wierszy źródłowych warto dokonywać 
jego składowania po wprowadzeniu kolejnej porcji wierszy 
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Zapobiegnie to utracie całego wprowadzonego programu 
w przypadku jaKiejkdlwiek awarii. Wczytanie składowane- 
go programu umożliwia znana już komenda W 

3. Zadania 


Zadania 7 

Napisać program obliczający iloczyn skalarny dwóch wek- 
torów o n współrzędnych całkowitych. 

Zadania > 

Napisać program porządkowania n-elementowego ciągu 
liczb rzeczywistych metodą „przez proste wybieranie W 
metodzie tej przyjmuje się następujące zasady: 

— wybieramy liczbę najmniejszą, 

— zamieniamy ją z pierwszą liczbą ciągu, 

— operacje powyższe powtarzamy dla pozostałych n-1 
liczb, następnie dla n-2 liczb itd. aż pozostanie tylko 
liczba największa. 


MfiITELN(’brak p:ir«uastko„ rzicirm’, 
’stvch'l 

ELSE 

If dalta > 0 THEN 
SESIN 

xti ■-b/(2*a)i 

KRITELti ( ’ tro jaian ta jiditt gierki’, 
'sstek podnojny x « ’,«ll 

END 

ELSE 

BEGIN 

»|l « l-b-SGRT (dii tli )/ (2U) i • 
i2i«l-b*S0RTU»ltll)/l2lll| 

KRI TEIN t 

NRITELNftrojnisn ma dna pierwiastki’, 
’ i ul • ’ ,ill| 

URI TEIN (’ ’ t27, ’ l x2* ’,x2) 

END 

END 

END, 


Zadania > 

Napisać program odejmowania, dwóch macierzy o zada- 
nych wymiarach i elementach rzeczywistych. 

Zadania 10 

Napisaó program, który dla zadanej macierzy kwadratowej 
oblicza sumy elementów leżących: 

a) nad przekątną gtówną, 

b) na przekątne! głównej, 

c) pod przekątną gtówną. Stefan ROZMUS 

Przepraszamy... 

zamieszczając poprawne, dobrze napisane programy 
z pierwszej części PASCALA. 


PROGRAM prog2| 

MN s,y,iUM, roznieś, lloczynilntsgsri 
ilorezireili (deklirseje ztlinny 


innych) 


W 


ICliriiiraeH lleim 

’ drugi liczba « ',yi2l| 


euiii>ieyi 

rpznicn*»-yi 

iloczym>«ty| 

UKUIfT "■ 


l(’»ułi > '.suistJ,' roznlci • 


END. 

PROGRAM progli 

V»R a,b,c, twspolczynnilii trojalsnu) 


1 


«t. >2, (pierwisstkl trojsiinu) 
deltiireeli (zalinni poaocniczi) 

'łgfia. 

NRITELNI niedopuizczelni wertocec ', 
'Mipozciynnika i') 

IDE 
IESIN 
REAO (b • c> | 

NRITELNi 

NRITELNCdle wipolczynnikow l i 


NRITELNi 

NRITELNi' 


i • 'lljl 

c ■ * ,e) z 


dsltii*Dlb-4ZiZci (obliciinia wyroznike) 

i ) 


IF dalta < 0 THEN 


< troiaianu 


PR06RAM progi! 

VRR x,yiintiger| 
SESIN 

• READIi,y)| 
NRITELNi 


NRITE CnajMiekeiY wspólny podzielnik’, 
’ liczb 1 ’,y,’ wynosi ’)| 


NN1LE »<>y DO 
IF k>y THEN 

a ir y 

NRITiLŃIi* 1 


END. 
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MOŻLIWOŚCI COMMODORE 64 - dokończenie ze itr. 13 

osiągniemy następujące efekty: 

— VIC korzysta z BANKU drugiego, 

— PAMIĘĆ EKRANU rozpoczyna się od 35840. 

— GENERATOR ZNAKÓW jest standardowy 
(z ROM) od adresu 36864, 

— system operacyjny poinformowany jest o ak- 
tualnym położeniu PAMIĘCI EKRANU 
(35840:256=140). 

• b) Wykonując sekwencję instrukcji: 

POKE 56576,150: POKE 648,120: POKE 53272,25 
POKE 56,28672/256: CLR lub POKE 56,1 12 CLR 
osiągamy następujące efekty: 

— VIC korzysta z BANKU pierwszego, 

- PAMIĘĆ EKRANU rozpoczyna się od 30720, 

— GENERATOR ZNAKÓW rozpoczyna się od 
28672, 

— system operacyjny poinformowany jest o ak- 
tualnym położeniu PAMIĘCI EKRANU 
(30720:256=120), 

- zabezpieczenie GENERATORA ZNAKÓW i PA- 
MIĘCI EKRANU przed ingerencją Basica w tym 
obszarze. Wskaźnik (bajt 56) określający naj- 
większy adres używany przez Basic ustala go na 
28671. 

Po włączeniu mikrokomputera VIC pracuje w BANKU 0. 
PAMIĘĆ EKRANU zlokalizowana jest począwszy od 1024 
bajtu, a GENERATOR ZNAKÓW (standardowych) od 4096 
bajtu. Jeżeli zmienimy położenie PAMIĘCI EKRANU, to 
powrót do standardowego obszaru uzyskamy przyciskając 
jednocześnie klawisze (energicznie): RUN/STOP 

i RESTORE. Brak kursora na ekranie będzie świadczył o 
niezgodności rzeczywistego położenia PAMIĘCI EKRANU 
ze wskazaniami bajtu 648. Standardowa wartość wynosi 4. 

Jak programować własne znaki i jak korzystać z grafi- 
cznego trybu pracy VIC w następnej części. 

Program demonstracyjny: 

• REN C-A4 ZADEMONSTRUJE UŻYWANIE DMOCH EKRANÓW 
1* POKE 34376. 14C • REN WYBIERAMY BANK 3 
2® B*-'UERT'i REM DOWOLNE 4 ZNAKI 

99 REH WYŚWIETLAMY JEDEN EKRAN JEDNOCZEŚNIE ZAPISUJĄC NASTĘPNY 
GOSUB 1«®«I POKE 33272.171 POKE 640.2®®i REM EKRAN i 
u# OOSUB !•••! POKE 33272.331 POKE 640.1941 REH EKRAN 2 
12® 3OT0 1«® 

999 REN BUDUJEMY LOSOWY ŁAŃCUCH ZNAKÓW DO WYŚWIETLENIA 
1®«® X*-"l FOR J-l TO 9i L-RND<l>M*l 
1»1® X®-X®»MID®<8*.L.l) I NEXT 

1*2® PRINTCHR* <147) I FOR J-l TO Uli PRINTX4M NEXT 
1®3® RETURN 


BANK 0: wybieramy za pomocą instrukcji 

POKE 56576. (PEEK(56576) AND 252) OR 3 
(zwykle wartość 151) 
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Adresy 
początkowe 

PAMIĘĆ POKE 


GENERATOR ZNAKÓW 


ROM 


EKRANU 

648, 

2048 4096 6144 8192 10240 12288 14336 





POKE 53272, 



.1024 

4 

19 

21 

23 

25 

27 

29 

31 

2048 

8 

35 

37 

39 

41 

43 

45 

47 

3072 

12 

51 

53 

55 

57 

59 

61 

63 

PAMIĘĆ EKRANU nie może być zlokalizowana między 4096- 

-8191, ponieważ VIC widzi lu GENERATOR ZNAKĆW stan- 
dardowych z ROM-u 

8192 

32 

131 

133 

135 

137 

139 

141 

143 

9216 

36 

147 

149 

151 

153 

155 

157 

159 

10240 

40 

163 

165 

167 

169 

171 

173 

175 

11264 

44 

179 

181 

183 

185 

187 

189 

191 

12288 

48 

195 

197 

199 

201 

203 

205 

207 

13312 

52 

211 

213 

215 

217 

219 

221 

223 

14336 

56 

227 

229 

231 

233 

235 

237 

239 

15360 

60 

243 

245 

247 

249 

251 

253 

255 


BANK 1 : wybieramy za pomocą instrukcji 


POKE 56576, (PEEK(56576) AND 252) OR 2 


(zwykle wartość 1 50) 


Adresy 
początkowe 
PAMIĘĆ POKE 
EKRANU 648. 

GENERATOR ZNAKÓW 

OJ 

8 

18432 

’ 20480 

ro 

ro 

OJ 

rv> 

OD 

rvj 

OJ 

CTł 

rvj 

o 

cr> 

ro 

28672 

30720 

POKE 532/2, 

16384 

64 

1 

3 

5 

7 

9 

11 

13 

15 

17408 

68 

17 

19 

21 

23 

25 

27 

29 

31 

18432 

72 

33 

35 

37 

39 

41 

43 

45 

47 

19456 

76 

49 

51 

53 

55 

57 

59 

61 

63 

20480 

80 

65 

67 

69 

71 

73 

75 

77 

79 

21504 

84 

81 

83 

85 

87 

89 

91 

93 

95 

22528 

88 

97 

99 

101 

103 

105 

107 

109 

111 

23552 

92 

113 

115 

117 

119 

121 

123 

125 

127 

24576 

96 

129 

131 

133 

135 

137 

139 

141 

143 

25600 

100 

145 

147 

149 

151 

153 

155 

157 

159 

26624 

104 

161 

163 

165 

167 

169 

171 

173 

175 

27648 

108 

177 

179 

181 

183 

185 

187 

189 

191 

28672 

112 

193 

195 

197 

199 

201 

203 

205 

207 

29696 

116 

209 

211 

213 

215 

217 

219 

221 

223 

30720 

120 

225 

227 

229 

231 

233 

235 

237 

239 

31744 

124 

241 

243 

245 

247 

249 

251 

253 

255 


BANK 3: wybieramy za pomocą instrukcji 


POKE 56576. (PEEK(56576) AND 252) 
(zwykle wartość 1 48) 


UWAGA: pamięć o adresach 49152-53247 może być tylko 
używana jako PAMIĘĆ EKRANU (patrz komentarz 
w BANKU 2). 


Adresy 


GENERATOR ZNAKÓW 


PAMIĘĆ POKE 
EKRANU 648. 

co 

OJ 

ro 

51200 

53248 

55296 

OJ 

co 

S 

•U' 

59392 

61440 

63488 

POKE 53272, 

49152 

192 

1 

3 

5 

7 

9 

11 

13 

15 

50176 

196 

17 

19 

21 

23 

25 

27 

29 

31 

51200 

200 

33 

35 

37 

39 

41 

43 

45 

47 

52224 

204 

49 

51 

53 

55 

57 

59 

61 

63 


BANK 2: wybieramy za pomocą instrukcji 

POKE 56576, (PEEK(56576) AND 252) OR 1 
(zwykle wartość 149) 


Adresy 

początkowe 

PAMIĘĆ POKE 
EKRANU 648. 

GENERATOR ZNAKÓW 

ROM 

OJ n u oj 4. fi. -U 

u cn od o co cn 

OO 03 to to o o 


POKE 53272. 

32768 

33792 

34816 

35840 

128 1 3 5 7 9 11 13 15 

132 1 7 1 9 21 23 25 27 29 31 

136 33 35 37 39 41 43 45 47 

140 49 51 53 55 57 59 61 63 

PAMIĘĆ EKRANU nie może być zlokalizowana między 
36864-40959, ponieważ VIC widzi lu GENERATOR ZNAKÓW 
standardowych z ROM. 

Obszaru pamięci o adresach 40960-49151 nie należy uży- 
wać jako PAMIĘCI EKRANU VIC ma dostęp w tym obszarze do 
pamięci RAM. natomiast mikroprocesor widzi pamięć ROM 
Pamięć RAM i ROM jest w tym rejonie zrównoleglona i stanowi 
dwie odrębne części. Chcąc użyć tych obszarów jako PAMIĘCI 
EKRANU należy wyłączyć pamięć ROM VIC i mikroprocesor 
widzą wtedy ten sam rzeczywisty obszar pamięci 



Chcesz się 


nauczyc 


W naszym komputerlandzie 

Wśród robotów z kierowanego przez siebie zespołu 
Spektruś uchodził zawsze za szefa dobrego, wyrozumiałe- 
go lecz pryncypialnego, wymagającego i dominującego 
nad wszystkimi. W jego domu od dawna jednak panuje 
równouprawnienie. Może właśnie dlatego trzepanie dywa- 
nu. pastowanie podłogi i zmywanie naczyń znużyło go już 
trochę Jego żona. Elwra. parokrotnie zwracała na to uwagę. 
Najpierw delikatnie, potem nieco ostrzej Spektruś próbo- 
wał się mobilizować, ale bezskutecznie. Stosunki partner- 
skie polegają jednak na tym. ze gdy jedna strona przezywa 
kryzys — druga wyciąga do niej pomocną dłoń. 

Obliczywszy, że trzepanie dużego dywanu może koszto- 
wać 2 tys. zł a pastowanie i mycie podłóg jakieś 5 tys.. żona 
postanowiła zastosować elementy reformy 

— Daj mi najlepiej te pieniądze — rzekła kiedyś. Prze- 
cież gdybyś był obcym robotem, musiałabym ci 
właśnie tyle zapłacić A przecież jakoś ostatnio praca 
w domu wcale cię nie interesuje 

Trudno było Spektrusiowi zaprzeczyć Chwycił za portfel 
i nieśmiało zapytał: 

— - A jak będzie z porządkami? 

— Nie martw się — odrzekła. Za taką sumę można wy- 
pucować mieszkanie do połysku 

Po dwóch dniach żona pojawiła się w nowej sukni. Do 
tego zmieniła uczesanie i klipsy. Z zadowoleniem przeglą- 
dała się w lustrze. 

No. jeśli chcesz, żebym była elegancka, zabieraj się 
do roboty. Chyba me chcesz, żebym pobrudziła tę 
elegancką sukienkę. 

Spektruś bez namysłu złapał za ścierkę. Tak więc dzięki 
drobnym reformatorskim posunięciom wróciło współpart- 
nerstwo i harmonia. 

Podglądał: Eugeniusz MLECZAK 





• projektowania systemów informatycznych - 230 godz. 

• programowania w języku FORTRAN — 200 godz. 

• programowania w języku BASIC — 180 godz. 

• użytkowania mikrokomputerów — 100 godz. 

się na kurs, 

organizowany przez Polskie Towa- 
rzystwo Cybernetyczne. Zajęcia od- 
bywać się będą w Poznaniu raz w 
miesiącu przez 3 dni. W przypadku 
wybrania 2 lub 3 specjalności, za 
kaidą następną specjalność opłaca 
się tylko 50 % kosztów. 

Zgłoszenia prosimy kierować na ad- 
res: Polskie Towarzystwo Cyberne- 
tyczne, ul. 28 Czerwca nr 231/235 
budynek TASKO, 60-965 Poznań, 
lub tel. 32-12-41, telex 0413353. 
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SHARP 



BITWA MORSKA 

Proponowana bitwa morska od- 
bywa się na ograniczonym AKWE- 
NIE: ma on 25 POL uszeregowa- 
nych w 5 wierszy i 5 kolumn, (Rys, 
1 ) 

Moja pierwsza salwa została od- 
dana w pole o współrzędnych 
„wiersz” t , „kolumna" 5, czyli skró- 
towo (1,5). 

Komputer zameldował pudto, 

Moja druga salwa ma współ- 
rzędne (4,4), Komputer: W CELU 
ZATOPIONY. 

Mam satystakcję, ponieważ zni- 
szczyłem pierwszy cel. Prócz tego 
dostałem cenną informację: po- 
nieważ cel został „zatopiony”, za- 
tem wokół niego są obszary, w któ- 
re nie warto celować. 

Moja trzecia salwa wywołała od- 
powiedź „w celu nie tonie” (2,2). 

Mam drugie trafienie i bardziej 
niż istotną informację; ponieważ 
„nie tonie", zatem jest to „duża jed- 
nostka" i należy ją ostrzelał z za- 
chodu, ze wschodu, z północy lub z 
południa. 

Ja w moich rozgrywkach posłu- 
guję się kratkowanym „akwenem”, 
rejestruję każdą salwę i starannie 
planuję współrzędne kolejnej sal- 
wy. 

Zdaję sobie sprawę, że taki mały 
akwen może być zbyt skromnym 
„teatrem wojny Łatwo dokonać 
modyfikacji dla DUŻEGO AKWE- 
NU (100 pól, 10 wierszy i 10 ko- 
lumn 40 celów i 50 salw). 

Przed każdą bitwą generator 
liczb losowych rozmieszcza cele. 
Są one „nieznane" w czasie bitwy. 
Ich lokalizację, oraz raport walki 
poda meldunek „po bitwie" 

Program wywołuje RUN „B". 

Życzymy rozgromienia armady. 


10501 "B":CLERR i 
UAIT i USING 
* Din T<6, 6) 
1060t FOR L«1T0 10 
10201 U=RND 5i K= 
RND 5 

10801 I F T<W| K)«l 

goto 1020 

1 090 « T ŚW) K) = l 


•1 1001 NERT LtPRINT 
“Bi TUR' HORSK 
R" 

1 1 10! FOR L=lTO 10 
1 120S INPUT "CELUJ 
<1,2, 3,4,5) 
U=" i Ws B=0 
1 1301 W=INT UiU= 
ABS Ul 1F U<1 
OR U>5LET B= 
1 

11401 INPUT "CELUJ 
<1, 2, 3, 4, 5) 
K=" j Ki URIT 

0 

1150lK=INT Ks K= 
RBS Kl IF K< 1 
OR K>50R B=1 
THEN PRINT " 
1 , 2, 3, 4, 5 " i 
BEEP 1, 100, 5 
001 GOTO 1120 
11601 IF T <U, K)=0 
THEN PRINT " 
P U D L 0"l 
BEEP 3, 100, 2 
001 GOTO 1230 
11201 PRINT "U CEL 
U" i CURSOR Pi 
Q=Q+1 l C=0I D= 
01 T(U, K)=- 1 
11801 IF T<U- 1, K) = 
10R T <U+1, K) 
= 1LET C=1 
11901 IF T <U, K+l ) = 
10R T<U, K-l) 
=1LET D=1 
12001 IF (C+D) >0 
THEN PRINT " 
NIE TONIE"! 
GOTO 1220 
1210IPRINT "ZATOP 
IONY" 

12201 BEEP 10, 50, 1 
00 

1230IUAIT l PRINT 
"SALUA") Li " 
TRAFIEŃ" jQ 
12401 CLS INEXT LI 
UAIT l PRINT 
"PO BITUIE" 


12501 FOR U=1 TO 5 
12601 FOR K=lTO 5 
12201 IF T<U, K)=0 
GOTO 1310 
12801 Z*=" < "+STR* 
U+", "+STR* K 
+ ")" 

12901 IF T<U,K>=^1 
THEN PRINT " 
ZATOPIONY "i 
Z*: GOTO 1310 
1300! PRINT "UALCZ 
Y " i Z$ 
1310INERT K 
1320! NERT Ul END 


Wydruk .Przykładu ' dotyczy innego przy- 
padku niz przedstawiony na rysunku 


PRZYKŁAD 


PO BITUIE 
ZATOPIONY <1, 1) 
UALCZY < 1, 5) 
ZATOPIONY <2, 3) 
UALCZY <2, 4) 
ZATOPIONY (3,2) 
ZATOPIONY <3, 3) 
UALCZY <3, 4) 
UALCZY <4, 1) 
WALCZY <4, 5) 
UALCZY <5, 3) 


JANUSZ niLLER 
SHARP PC- 1500 
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Pocztowa 

giełda 


Rozwijani* krzyłćwkl z „IKS-a" nr t 

Hasło brzmi: „DO SIEGO ROKU". 
Bony pieniężne (1000 zł) wylosowa- 
li: Garlak Piotr — Legnica, Jolanta 
Mycak — Ruda Śl., Baala Konieczna 

— Laazno, Mariusz Kordys — Rze- 
szów, Dariusz Tokaraw — Zlotów. 
Nagrody kslgikowe otrzymują: Do- 
rota Masłowska — Aleksandrów 
Kuj., Magdalena Grześk — Byd- 
goszcz, Mirosław Cwallna — Łomża, 
Tomasz Malus — Ostrołęka, Aneta 
Czartoryska — Zambrów, Jan Cho- 
lewa — Ustrort, Tomasz Redzlewlcz 

— Braniewo, Dorota Tyszka — Ty- 
chy, Andrze| Kwiatkowski — Szcze- 
cin, Sławomir Czarwleckl — Bytom. 


Stawką w tej grzs 
Jest komputer 

Aby zlamaó szylr, trzeba odnaleźć 
klucz. Oto zapis, który nalały odczy- 

Uć 0Y» 2*>"zNrOx«s 
dUI KIM l*N"#o!'?N 
dPAJMYu4, V PsN 
d0pU+#zT*"!-yqcN 

Przypominamy: obowiązuj* znaki 
ASCII zastosowane na Sharple. 
Klucz Jest dat* wydarzenia historii 
współczesnej zapisań* w międzyna- 
rodowym systemie: 

DATA: RRRR. MM. DD. 

Jakie to wydarzenie? Szukajcie go 
w naszym stuleoiu, dodajmy, łe 
suma cytr roku, w którym do niego 
doszło, wynosi 19. 

O tym, jak lamaó azytry pisaliśmy 
w poprzednim numerze „IKS-a" (nr 
1/87). A teraz do dzieła, 
rozwl*zanle konkursu jut w maju. 


Poszukuj* k*l*żkl: 

1. Układy scalone serii UCA *4/VC 74. 
Parametry I zastosowania — Włodzi- 
mierz (ssał WKL Warszawa 1988 

2. Mikrokomputer — elementy, budowa, 
działanie Andrzej Rydzewekl, Krzysz- 
tof Socha. Sigma Warszawa 1988. 

3. Mikrokomputery — programowanie w 
języku Basic. Bogdan Pralek, Andrzej 
Lawandowakl. Sigma Warszawa 
1998. 

JANUSZ JANASIK, ul. Zawadzkiego 
22/68 93-100 Sram. 


Giełda 

Commodort 128 + magnetofon 

340 tys. zł 

Commodor* 128 + joystick + stacja dyskietek 

500 tys. zł 

Commodor* 18 

65 tys. zł 

Commodor* 16 + magnetofon 1831 

100 tys. zł 

Commodor* Plus 4 + magnetofon + 4 programy 150 tys. zł 

ZX Spectrum 128 

175 tys. zł 

ZX Spectrum 48 KB + magnetofon + joystick 

185 tys. zł 

Sharp MZ-700 

160 tys. zł 

Sharp MZ-721 

155 tys. zł 

Drukarka Serial 8056 

115tys. zł 

Drukarka 8*lkosha GP 505 

105 tys. zł 

Drukarka 8*ikosha QP 500 

180 tys. zł 

Drukarka MPS 802 

220 tys. zł 

Atarl — kasata 

800 — * 1500 zł 

Atarl — kaseta zawleraj*ca 5 gier 1 3 programy koplu|*ce 1 700 zł 

Atarl — ęry 

100 - 300 zł/szt. 

Spectrum — kasata 

1200 zł 

Spectrum — gry 

100 - 300 zł/szt. 

Spectrum — programy ułytkowe 

od 150 zł/szt. 

Commodor* — gry, programy użytkowa 

150 - 300 zł/szt. 

Studio SY8TEM - W-wa Wola 

8chn*!dtr Amstrad CPC 6128 

885 tys. zł 

Schneider Amstrad PCW 8256 

1 200 tys. zł 

8chn*id*r Amstrad PCW 8612 

1 540 tys. zł 

Komputer kompatybilny XT: 

- 840 KB RAM 

- 2 X FD 360 KB 

- 20 MB HD 

- Hercules 

- RS 232 

5 400 tys. zł 

Komputer kompatybilny AT: 

— 640 KB RAM (512) 

— 20 MB HD 

— 1,2 MB FD (5 360 KB) 

— (Coprocessor 80287) 

— Hercules (EDA) 

— R8 232 

11 -13 min zł 

Drukarki: 

- SG 15 

- 15X1 

- SG 10 

- 10X1 
-NL10 

i JłB8 tys. zł 
1 820 tys. zł 
700 tys. zł 
830 tys. zł 
840 tys. zł 

Manipulatory kulowe (myszki) do IBM 

od 280 tys. zł 

Interface y KEMPSTON 

10 200 zł 

lnt*rfac*'y SINCLAIR 

10 620 zł 

Dyskietki 5.25 “ 2D 

1 071 zł 

Dyskietki 5.25" 2D firmowe 

3 500 zł 

Dyskietki 5.25" 2HD 

6,5 — 9,5 tys. zł 

Dyskietki 3" 

6,2 - 8,4 tys. zł 

Zestaw programów SPECTRUM (min 8) 

1 600 zt 

Bogata biblioteka programów ATARI 

400 zł/szt. 


IKS - 31 




Krzyżówka nr 2 

1 23 4 5 6 7 89 10 11 


POZIOMO: A-l) Może być na przykład aperturowa. dualna, 
indeksowa itp. A-7) Sekwencja rozkazów, która została celo- 
wo określona przez programistę i jest wykonywana przez 
I procesor w sposób powtarzalny, aż do momentu spełnienia 
I założonego warunku B-5) Jednostka gęstości zapisu na mag- 
1 netycznym nośniku danych C-1) Określona porcja np. pro- 
I mieniowania C-7) Uniwersalny język programowy stosowany 
I w zagadnieniach ekonomicznych i zarządzania D-5) Jedno z 
I wcieleń Janusza Gajosa E-1) Robocza nazwa komputerów 
I „jednolitego systemu” E-8) Grecki Mars F-4) Jednostka opor- 
] ności elektrycznej F-7) Stała część nazwy systemów opera- 
I cyjnych dla komputerów rodziny Rład lub firmy IBM G-1) 

] Skrótowa nazwa angielskiego specjalistycznego systemu 
przetwarzania danych przeznaczonych do informowania kie- 
rownictwa G-6) Część ciała ludzkiego H-S) Potrawa na ratu- 
I nek 1-1) Osoba żyjąca przy klasztorze nie składająca ślubów I- 
I 7) Odwrotność różniczki J-5) Imię żeńskie K-1) Metropolia 
I Jordanii K-7) W starożytnym Rzymie pieśń żałobna 
] PIONOWO: A-l) Urządzenie zmieniające symbole pewnego 
I alfabetu na symbole innego alfabetu G-1) Obraz religijny w 
I sztuce Wschodnio-Chrześcijańskiej E-2) Skrótowa nazwa 
I firmy, będącej największym producentem sprzętu kompute- 
] rowego na świecie A-3) Pokaz, parada G-3) Mahometanizm 
E-4) Ogólna nazwa systemów operacyjnych dla komputerów 
rodziny RIAO lub firmy IBM A-S) Starożytne liczydła H-5) Pi- 
I stolet maszynowy skonstruowany przez Shepparda i Turplna 
i D-6) Przyjęta z języka angielskiego nazwa spójnika LUB G-6) 
Klasyczny Japoński balet dramatyczny A-7) Nazwa systemu 
informatycznego przeznaczonego do kierowania produkcja 
I H-7) Nazwa pakietu programów przeznaczonych dla kompu 
I terów serii ODRA 1300 oraz ICL-1900 i stosowanych do kon 
I troli zapasów magazynowych E-8) Stosowana w języku rosyj- 
I skim skrótowa nazwa zautomatyzowanego systemu zarzą 
I dzania A-9) środki transportowe G-9) Może być operacyjny 
| (mnożenia, sumujący itp.) E-10) Skrót oznaczający komputer 
I Hybrydowy A-l 1) Najpopularniejszy instrument muzyczny w 
I starożytnej Grecji, Atrybut Euterpe G-11) Lęk, strach przed 
czymś p l £ J* T O V O M P 
HASŁO: (3-B, 3-1, 3-C, 6-E, 7-F)(4-A, 8-C)(lfa, 9-J, 2-K, 7-A. 
8-G, 9- A, 8-K. 3-AK1-.C, 11-C, 2-^)(7-C, 3-D, 5-J, 1-G, 1(L- 

I Rozwiązania (tylko hasło) należy przesyłać pod adresem re- 
I dakcji do końca marca 1987 r. Wśród czytelników rozlosuje- 
| my bony pieniężne I nagrody książkowe. 


SAM 3001 AT produkowany jest przez koreańską 
firmę Samsung Semiconductor Telecommunications 
Co. Ltd. Jest kompatybilny z komputerem IBM PC AT. 
Pracuje w oparciu o mikroprocesor 80286 z możliwoś- 
cią dołączenia dodatkowego procesora arytmetyczne- 
go 80287. Pamięć operacyjna ma 640 Kbajtów z możli- 
wością powiększenia jej do 16 Mbajtów. Pojemność 
pamięci na dyskach elastycznych 1,2 Mbajta i na dy- 
skach sztywnych 20 Mbajtów z możliwością powiększe- 
nia do 80 Mbajtów. Cena podstawowa 4395 dolarów. 


Rys. Michał Przybyłowski 


„IKS" — dodatek „Żołnierza Wolności". Redagują: Wiesław Cetera (kierownik zespołu), Ryszard Rogoń. Stali współpracownicy: 

I Włodzimierz Gogołek, Krzysztof Mamcarz, Ireneusz Miernik, Janusz Miller, Michał Przybyłowski, Jacek Szaniawski. Adres redakcji: 
00-950 Warszawa ul. Grzybowska 77, telefon centrali 20-12-61 w. 486. Tele* 313664. Rękopisów nie zamówionych redakcja nie zwraca 
! i zastrzega sobie prawo do skrótów. Nakładem: Wydawnictwa „Czasopisma Wojskowe", Warszawa ul. Grzybowska 77, Fotoskład i druk 
! rotograwiurowy — Wojskowe Zakłady Graficzne im. gen. dyw. A. Zawadzkiego. Nr zam. 8501. Nr. ind. 361682. K-62 | 







W numerze: 


• W szponach ATARI (2) 
Praca w trybie znakowym 

— str. 3 

• Kreska CPC 464 
(2) — str. 7 

• Grafika (Amstrad) — 
str. 8 

• Grafika Commodo- 
re 64 (2) — str. 9 

• Mikrokomputery IBM 
PC — str. 11 

• Biblioteka — str. 12 

• „Home, Office, Perso- 
nal Computer 1987” 

— Tradycja to nasz 
obowiązek — str. 13 
— Na ekranie „Kom- 
putera’, 87” — str. 14 

— Fotoreportaż — 
str. 16—17 

• Udawanie rzeczywis- 
tości — str. 18 

• Mikroserwis — str. 20 

• Wyszukiwanie infor- 
macji w zbiorze — 
str. 21 

• Sztuki i sztuczki (5) 

— str. 22 

• Szkoleniowy system 
graficzny — Oprogra- 
mowanie znacznika 
świetlnego — str. 24 

• Sami piszemy gry 

— str. 27 

• W naszym komputer- 
landzie — str. 29 

• OLIVETTI — str. 29 

• Liga Myślących — 
str. 31 

• Notowania kompute- 
rowe — str. 31 


Podobnie jak przed rokiem parada 
komputerów wzbudziła duże zainte- 
resowanie. Ponad siedemdziesiąt 
firm, w tym znaczące w świecie mar- 
ki, ściągnęło do dusznych sal Pałacu 
Kultury i Nauki fachowców, i pasjo- 
natów nowoczesnej techniki. A było 
na co popatrzeć. 

Dla handlowców oczywiście nie- 
wielkie mają znaczenie okrzyki za- 
chwytu, bo o nie w naszej sytuacji 
raczej nietrudno, ale konkretne kon- 
trakty, których realność jest sprawą 
być, albo nie być na polskim rynku. 

Oczywiście „być". I jeśli nawet te- 
raz trudno się z nami handluje, 
szczególnie tak nowoczesną techni- 
ką, którą nie zawsze jesteśmy w 
stanie skonsumować, to przecież w 
przyszłości, dla światowych poten- 
tatów możemy być dobrym partne- 
rem. Tymczasem komputerowe fir- 
my muszą zadbać, aby ich przyszły 
klient miał za co kupić ich wyroby, 
czyli po prostu wcześniej trzeba mu 
dolary do kieszeni włożyć, żeby je 
później wyciągnąć. Z tą drugą czyn- 
nością nie ma kłopotów — gorzej z 
pierwszą. 

Z kim handlować warto? Na to 
trzeba odrobiny doświadczenia i 
przede wszystkim wiedzy. Z dnia na 
dzień przybywa nam firm kompute- 
rowych, oferujących sprzęt i opro- 
gramowanie. Handlowanie opro- 
gramowaniem jest w wielu przypad- 


Uwaga ośmioklasiści 


Uczniowie klas ósmych muszą 
zdecydować o dalszej nauce. Jedną 
z ciekawszych możliwości są dla 
nich wojskowe licea ogólnokształ- 
cące. Aktualnie oczekuje na swoich 
przyszłych uczniów pięć wojsko- 
wych liceów w: Częstochowie, Lub- 
linie, Olsztynie, Toruniu i Wrocła- 
wiu. 

Ogólnokształcące licea wojskowe 
realizują pełny program średniej 
szkoły w klasie matematyczno-fizy- 
cznej. Dodatkową atrakcją są w pro- 
cesie nauczania elementy politech- 
nizacji, komputeryzacji, cybernetyki 
i informatyki. Licea dysponują bo- 
wiem nowoczesną bazą sprzętu 
komputerowego. Nauka w szkole 
trwa 4 lata. Kandydatów obowiązuje 
egzamin wstępny z matematyki i ję- 
zyka polskiego oraz sprawdzian 
sprawności fizycznej. 


kach czystym piractwem, w którym 
interes polega na oferowaniu cudzej 
pracy, za duże pieniądze, z jedno- 
czesnym pozbawieniem wszelkich 
praw autorskich i majątkowych. Ot, 
po prostu kto pierwszy znajdzie do- 
bry program przerzyna go naty- 
chmiast i puszcza w obieg. 

Oczywiście dotyczy to nie tylko 
oprogramowania profesjonalnego, 
którego ceny sięgają często setek 
tysięcy, ale również i naszych pro- 
gramów drukowanych na łamach 
„IKS-a". Spotkać je można na kom- 
puterowych giełdach, starannie na- 
grane na kasety w niezmienionej wer- 
sji, albo przerobione na inny dialekt 
BASIC-a. W tej sytuacji autor jest 
nieważny — tu liczy się pieniądz. 

Niestety dla wielu zwiedzających 
liczy się przede wszystkim efekt: 
błysk kamery, obficie rozdawane ko- 
lorowe foldery i drobne upominki. 

Atrakcją komputerowych poka- 
zów były oczywiście gry i kolorowe 
grafiki. Nikogo to nie dziwi. Tak jest 
na całym świecie. Taki jest właśnie 
pierwszy kontakt z komputerem. A 
że zainteresowanie tą techniką u nas 
nie spada — możemy sądzić, że za 
kilka lat komputer stanie się nie tyl- 
ko kosztowną zabawką, ale pow- 
szechnie stosowanym narzędziem 
pracy. Czego i nasza redakcja życzy- 
łaby sobie. 

W. CETERA 


Podania o przyjęcie do wybrane- 
go wojskowego liceum ogólno- 
kształcącego zainteresowani składają 
w terminie do 15 kwietnia br. w naj- 
bliższej wojskowej komendzie uzu- 
pełnień. 

Uczniowie w czasie nauki w li- 
ceum wojskowym otrzymują bez- 
płatnie: zakwaterowanie w internacie, 
ubiór szkolny (wyjściowy i codzien- 
ny); wyżywienie, wojskową pomoc 
leczniczą, podręczniki i inne mate- 
riały szkolne; przejazdy (4 razy w ro- 
ku) do miejsca zamieszkania naj- 
bliższej rodziny. 

W okresie letnich wakacji organi- 
zuje się dla uczniów bezpłatne, trzy- 
tygodniowe obozy szkoleniowe, w 
ramach których można uzyskać 
między innymi kartę pływacką, pa- 
tent żeglarza jachtowego, prawo 
jazdy, specjalność skoczka spado- 
chronowego itp. 


Wojskowe licea ogólnokształcące 
czekają 


IKS — 2 


Podstawowym problemem każdego kompute- 
ra, używającego odbiornika telewizyjnego dla ce- 
lów zobrazowania informacji, jest to, że wyświet- 
lanie jest procesem dynamicznym; z tego powo- 
du telewizor nie pamięta obrazu. W rezultacie 
musi go pamiętać komputer i stale wysyłać syg- 
nał do telewizora, mówiący co jest do wyświetla- 
nia. Wysyłanie informacji jest procesem ciągłym i 
wymaga stałej uwagi. Z tego powodu większość 
mikrokomputerów ma specjalne układy, które 
obsługują telewizor. W Atarii funkcje te spełnia 
ANTIC. 

l/l / szponach A TARI (2) 

Praca w trybie 
znakowym 

Tomasz MROWIEĆ 
Ludwik PIELA 

Mikroprocesor zapisuje informację w pamięci RAM. AN- 
TIC stale kontaktuje się z tym obszarem pamięci, pobiera- 
jąc dane. które przekształca (z pomocą GTIA) na sygnały 
telewizyjne. Sygnały te idą do telewizora, który wyświetla 
informację. Pamięć ekranu odwzorowywana jest na ekra- 
nie w takiej samej kolejności, w jakiej występuje w RAM. 
Oznacza to, że pierwszy bajt pamięci ekranu odwzoruje 
lewy górny narożnik obrazu, drugi bajt odwzoruje jedną po- 
zycję w prawo, następnie trzeci, czwarty, aż do ostatniego 
bajtu, który jest odwzorowany w prawym dolnym rogu ek- 
ranu, 

ANTIC może pracować w trybach tekstowych lub grafi- 
cznych. Najistotniejsza różnica między nimi polega na 
źródle danych, które tworzą obraz W trybach graficznych 
dane z pamięci ekranu są bezpośrednio wyświetlane. W 
trybach tekstowych każdy bajt traktowany jest jako numer 
znaku, Na podstawie tego numeru ANTIC wybiera odpo- 
wiedni wzorzec i umieszcza go na ekranie. Dzięki temu 
każdemu znakowi wyświetlonemu na ekranie odpowiada 
jeden bajt w pamięci ekranu. 

Od razu należy wyjaśnić, że numer znaku przechowy- 
wany w pamięci ekranu, nie jest kodem AT ASCII tego zna- 
ku Jest to po prostu numer porządkowy, który wskazuje 
wzorzec znaku przechowywany w pamięci ROM. 

Aby zrozumieć, w jakiej postaci wzorce znaków prze- 
chowywane są w pamięci komputera, przyjrzyjmy się bliżej, 
w jaki sposób znak wyświetlany jest na ekranie. Wyobraź- 
my sobie siatkę 8x8 oczek, w której umieszczono 64 minia- 
turowe żarówki Każda z nich reprezentuje elementarny 
punkt ekranu (pixel) i może być zapalona lub nie. Aby uzy- 
skać kształt litery „A", muszą być zapalone żarówki jak na 
poniższym rysunku- 




Każdy wiersz siatki może być opisany za pomocą bajtu. 
„Żarówka" zapalona może być oznaczona jako 1. a zga- 
szona jako O. Zatem poszczególne wiersze mogą być za- 
pisane w postaci liczb dwójkowych, jakie umieszczone są z 
prawej strony siatki. Na prawo od nich umieszczone są od- 
powiedniki dziesiętne. Ci. którzy nie mają wprawy w posłu- 
giwaniu się liczbami binarnymi, mogą przekształcić każdy 
wiersz w następujący sposób: 

1 Powyżej każdej kolumny umieszczone są liczby — są 
to potęgi liczby 2 

2. Jeżeli „żarówka" jest zapalona, bierzemy liczbę umie- 
szczoną nad nią i dodajemy do zmiennej „suma" Sumuje- 
my wszystkie zapalone „żarówki" w wierszu (np. czwarta li- 
nia „A" ma wartość 64 * 32 • 4 - 2 102). 

3. Wykonujemy to dla ośmiu wierszy. 

W ten sposób, za pomócą ośmiu bajtów możemy opisać 
kształt dowolnego znaku, utworzonego w powyższej siatce. 
W takiej właśnie postaci przechowywane są wzorce zna- 
ków w pamięci komputera. Zestaw znaków przechowywa- 
nych jest w ciągłym obszarze pamięci ROM w adresach 
57344 do 58367 (SE000 do 8E777 szesnastkowo): od 
8E000 zaczynają się znaki specjalne, interpunkcyjne i cyf- 
ry, od SE1 00 (57600) zaczynają się wielkie litery; od SE200 
(57856) — znaki graficzne i od SE300 (581 1 2) - małe lite- 
ry. Łącznie zajęty jest obszar 1 024 (S400) bajtów. 1 28 zna- 
ków po 8 bajtów każdy. Negatywy znaków nie są przecho- 
wywane, lecz uzyskiwane przez odpowiednie manipulowa- 
nie bajtami. 

W komórkach pamięci o adresach 756 (CHBAS) i 54281 
przechowywany jest adres początku obszaru, w którym 
przechowywane są wzorce znaków, a dokładniej, numer 
stronicy (256-bajtowego bloku). Dzięki temu istnieje moż- 
liwość zmodyfikowania kształtów istniejących symboli lub 
wręcz zdefiniowania własnego ich zestawu. Możliwe jest 
zatem posiadanie znaków polskich, greckich, cyrylicy lub 
innych specjalnych. Można, na przykład, utworzyć zestaw 
symboli elektronicznych, zawierający symbole tranzysto- 
rów. diod. oporników, kondensatorów i przewodów, dzięki 
którym możliwe byłoby kreślenie schematów elektroni- 
cznych. 

Jeszcze ciekawsze efekty wynikają z możliwości zmiany 
zestawów znaków podczas działania programu. Można wy- 
różnić trzy tryby cźasowe dla takiego multipleksowania ze- 
stawu znaków: wolny (rzadziej niż co 1 sek.), szybki (1/50 
sek. do 1 sek.) i bardzo szybki (częściej niż co 1 /50 sek.). 

Wolne multipleksowanie znaków przydatne jest do 
„zmiany scenerii". Na przykład, program podróży w kos- 
mosie może używać jednego zestawu znaków graficznych 
dla jednej planety, drugiego dla kosmosu i trzeciego dla in- 
nej planety. W miarę przemieszczania się podróżnika, pro- 
gram zmienia zestaw znaków dla otrzymania nowej, egzo- 
tycznej scenerii. 

Szybkie przełączanie zestawów znaków może być przy- 
datne do animacji. Efekty ruchu można uzyskać zmie- 
niając znaki wewnątrz jednego zestawu, albo zmieniając 
całe zestawy znaków 

Bardzo szybka animacja cykliczna całego ekranu moż- 
liwa jest dzięki przygotowaniu kilku zestawów znaków, wy* 
kreśleniu obrazu, a następnie cyklicznemu wybieraniu ze- 
stawów. Jeśli każdy znak ma różne wcielenia w innych ze- 
stawach znaków, to przejdzie przez animowany ciąg w 
miarę zmian zestawów. W ten sposób ekran zapełniony 
obiektami może być cyklicznie przesuwany za pomocą 
bardzo prostej pętli. ^ 
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Używanie zestawów znaków do grafiki i animacji ma wie- 
le zalet i pewne ograniczenia. Największą zaletą jest zaj- 
mowanie małego obszaru pamięci RAM do utworzenia 
szczegółowego obrazu. Na przykład, w trybie zerowym 
możliwe jest umieszczenie na ekranie 960 znaków (24 linie 
po 40 znaków) i uzyskanie rozdzielczości takiej jak w trybie 
8 Dla porównania, zajętość pamięci w trybie 0—960 baj- 
tów. a w trybie 8—7680 bajtów, czyli osiem razy więcej 
Obraz używający trybu 2 może dać tyle samo szczegółów i 
o jeden kolor więcej niż obraz w trybie 7. Dodatkowo bę- 
dzie on zajmował 200 bajtów, podczas gdy w trybie 7 zaj- 
muje 4000 bajtów. Ze względu na mniejszą objętość pa- 
mięci manipulowanie ekranem z grafiką znakową jest dużo 
szybsze. 

Jednak grafika znakowa nie jest zbyt elastyczna. Nie 
można ustawić tego ćo chcemy w dowolnym miejscu ek- 
ranu. Ograniczenie to uniemożliwia używanie grafiki zna- 
kowej w pewnych zastosowaniach. Pozostaje jednak wiele 
zastosowań graficznych, w których potrzebujemy wyświet- 
lić tylko ograniczoną liczbę wcześniej zdefiniowanych 
kształtów w ustalonych miejscach. W tych wypadkach gra- 
fika znakowa jest bardzo wygodna. 

Interesującym przykładem wykorzystania grafiki znako- 
wej jest program „Eastern front 1941 ", w którym uzyskano 
bardzo ciekawe efekty dzięki zdefiniowaniu odpowiednich 
znaków graficznych terenu. 

Tworzenie własnych znaków 

Komputery Atari. jak zresztą wiele innych, odznaczają 
się interesującą i pożyteczną własnością — możliwością 
tworzenia własnych znaków. Nie ma jednak do tego ża- 
dnych specjalnych instrukcji. Wszystko trzeba wykonać za 
pomocą PEEK i POKE. instrukcji umożliwiających pobie- 
ranie i modyfikowanie zawartości pamięci, w bardzo uciąż- 
liwy sposób. 

Tworzenie własnych znaków rozpoczynamy od zaprojek- 
towania ich kształtu. Można to zrobić za pomocą ołówka, 
kalkulatora i kilku arkuszy papieru milimetrowego. W celu 
utworzenia znaku w odpowiedni sposób wypełniamy siatkę 
8x8 oczek, w której każde oczko reprezentuje elementar- 
ny punkt ekranu. Musimy uwzględnić to. że linie poziome 
wyświetlane są jaśniej niż pionowe, dlatego konieczne jest 
pogrubienie tych ostatnich, aby stały się widoczne. 

Po zaprojektowaniu kształtów znaków musimy je przet- 
łumaczyć na liczby, które są bardziej zrozumiałe dla kom- 
putera. Sposób zamiany kształtu znaku na liczby opisany 
został powyżej. Następnie zestawiamy liczby w instrukcje 
DATA Gdy już to zrobimy, musimy podmienić liczby wy- 
branego znaku naszymi. Nie jest to takie proste. Zestaw 
znaków przechowywany jest w pamięci ROM i nie może 
być zmieniany Ale i na to jest rada. Wystarczy skopiować 
ten obszar do RAM, gdzie może być zmieniany, i poinfor- 
mować komputer (a dokładnie ANTIC) o miejscu położenia 
nowego zestawu znaków. W tym celu musimy znaleźć od- 
powiednie miejsce w pamięci do ich przechowywania. 

Jednym z rozwiązań jest umieszczenie wzorców znaków 
w górnych adresach pamięci RAM dostępnej dla użytkow- 
nika. a następnie przekonanie komputera, że ma mniej 
pamięci niz w rzeczywistości. Chroni to zestaw znaków 
przed przypadkowym uszkodzeniem. W tym celu używamy 
komórki o adresie 106 (RAMTOP). która przechowuje ilość 
dostępnych stronic pamięci (bloków po 256 bajtów). Atari 
800 XL zawsze umieszcza program Wyświetlania (display 
list) i dane do wyświetlania bezpośrednio poniżej RAM- 
TOP. Jeśli zmienimy zawartość komórki 106. system ope- 
racyjny przesunie program wyświetlania i dane do niż- 
szych adresów RAM. Zmniejsza to obszar dostępny dla 
programu, lecz uwalnia część pamięci powyżej nowej war- 
tości RAMTOP. Obszar ten nie będzie używany przez pro- 
gram ani system operacyjny i może być traktowany jako 
„zarezerwowany". 


Poniższy program przedstawia, w jaki sposób można 
zmniejszyć RAMTOP o cztery strony (1024 bajty). Należy 
pamiętać o użyciu rozkazu GRAPHICS bezpośrednio po 
zmianie zawartości komórki 106. w celu przesunięcia pro- 
gramu wyświetlania i danych. 

10 ? "WOLNE RAM = ";FRE<0> 

20 RAMTOP=PEEK< 106) :? "RAMTOP = 
"sRAMTOP;" STRONIC":? "OSTATNI 
ADRES = " ; RAMTQP#256 
30 FOR W=1 TO 2000: NEXT W 
40 MALERAM=RAMT0P-4 
50 POKE 106, MALERAM 
60 GRAPHICS O 
70 ARAMTOP=PEEK ( 106) 

80 ? "AKTUALNIE WOLNE RAM = ";F 
RE (O) 

85 ? "STARE RAMTOP * "; RAMTOP;" 
STRONIC" 

90 ? "NOWE RAMTOP = " : ARAMTOP: " 
STRONIC":? "OSTATNI ADRES = 
ARAMTOP *256 

100 ? "ZAREZERWOWANY OBSZAR ZAC 
ZYNA SIE OD ARAMT0P*256+ 1 

Używanie tak zarezerwowanego obszaru jest wygodne, 
ponieważ zawartość komórki 106, odtwarzana jest tylko w 
dwóch wypadkach: włączenia zasilania i naciśnięcia kla- 
wisza RESET. Należy go jednak używać ostrożnie, a w 
chwili rezerwowania tego obszaru uwzględnić: 

1) każde użycie rozkazu GRAPHICS zeruje ekran oraz 
pierwsze 64 bajty powyżej RAMTOP. 

2) każde użycie rozkazu CLEAR ( lub PRINT CHRS(125)/ 
zeruje również pierwsze 64 bajty powyżej RAMTOP 
Dla bezpiecznej pracy najlepiej będzie pozostawić wolne 

pierwsze 800 bajtów powyżej RAMTOP. Wymaga to zare- 
zerwowania większego obszaru pamięci, niż to jest nie- 
zbędne, a tym samym zmniejszenia obszaru dostępnego 
dla programu. 

Innym rozwiązaniem jest umieszczenie znaków w dol- 
nych adresach pamięci RAM. a następnie przekonanie sy- 
stemu operacyjnego, że wolna pamięć zaczyna się w in- 
nym miejscu. W tym celu używamy wskaźnika początku 
obszaru wolnej pamięci — MEMLO. Przechowywany on 
jest w komórkach o adresach 743 i 744. Wskazuje adres 
pierwszej wolnej komórki RAM dostępnej dla programu. 
Bez DOS-u MEMLO wskazuje 1792. a z DOS-em 7420. 
Jego zawartość aktualizowana jest po włączeniu zasilania 
lub naciśnięciu klawisza RESET. 

Możemy zmienić zawartość MEMLO w celu zarezerwo- 
wania obszaru pamięci poniżej programu. Musi to być jed- 
nak zrobione na samym początku, zanim BASIC przejmie 
sterowanie, ponieważ rozpoczyna on przechowywanie 
wprowadzanego programu od najniższych adresów. Wy- 
maga to użycia prostego podprogramu w języku maszy- 
nowym. który działa następująco: przejmuje kontrolę nad 
komputerem i wstawia nową wartość do MEMLO, a na- 
stępnie ponownie inicjuje BASIC — tak jak po naciśnięciu 
klawisza RESET. Kontrolę nad komputerem przejmuje BA- 
SIC nieświadomy, ze ma teraz mniej wolnej pamięci. Poniżej 
zamieszczamy program, który umożliwia zmianę zawartoś- 
ci MEMLO. 


10 DIM SUBR*<24) 

20 FOR 1=1 TO 24: READ PRG 
30 SUBR$-( I ) =CHR$ (PRG) : NEXT I 
40 ? "Ile bajtów chcesz zarezer 
wowac " 52 INPUT REZ 
50 HI=INT(REZ/256) * L0=REZ-256*H 
I 

60 SUBR* (6,6) =CHR* <LO ) 3 SUBR$ ( 14 
, 14>=CHR*(HI) 

70 Z=USR<ADR(SUBR*> > 

80 DATA 24,173,231,2,103,0,141 
90 DATA 231,2,173,232,2,105,0,1 

100 DATA 232,2,169,0,133,8,76,0 
, 160 
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W celu określenia adresu, od którego zaczyna się zare- 
zerwowany obszar, musimy wprowadzić przed uruchomie- 
niem tego programu następującą linię 

?PEEK(743) + 256 * PEEK(744) 

Otrzymana liczba może być używana jako adres prze- 
znaczenia dla dowolnych danych, które chcemy przecho- 
wać w zarezerwowanym obszarze. 

Najczęściej jednak obywamy się bez specjalnych sztu- 
czek i umieszczamy własne znaki w obszarze pamięci 
przeznaczonym na program, zakładając optymistycznie, że 
nie zajmie pamięci całkowicie. Dlatego najchętniej umie- 
szczamy znaki tuż przed pamięcią ekranu. Istnieje jednak 
pewna komplikacja. Wielkość pamięci ekranu zależy od 
używanego trybu graficznego, od 272 bajtów w GRAP- 
HICS 3. do prawie 8000 bajtów w GRAPHICS 8. Możemy 
wykorzystać zawartość komórki 106 (RAMTOP) i cofnąć 
się wystarczająco daleko, aby zostawić miejsce na pamięć 
ekranu. 

Zatem dla znalezienia miejsca do przechowania zesta- 
wu znaków w trybach 0. 1 . 2, 3, 4 i 5 cofnijmy się o 4 stroni- 
ce od RAMTOP — miejsce na pamięć ekranu, a następnie 
o 4 dodatkowe do przechowania znaków, razem 8. GRAP- 
HICS 6 będzie wymagać 12. GRAPHICS 7 - 20, a GRAP- 
HICS 8 — 36 stron pamięci. 

Po wybraniu odpowiedniego obszaru pamięci możemy 
przesłać zestaw znaków z ROM do RAM. Mogą to wykonać 

następujące instrukcje: 


10 CHBAS=37344 

20 CHSET= ( PEEK ( 1 06 > -8 ) *256 

30 FOR 1=0 TO 1023 

40 POKE CHSET + 1 , PEEK ( CHB AS+ 1 ) 

50 NEXT I 

60 SUBR$ (6,6) =CHR$ ( LO ) : SUBR* (14 
, 14>=CHR*(HI> 

70 Z=USR < ADR ( SUBR* ) > 

80 DATA 24,173,231.2.105,0.141 
90 DATA 231,2,173,232,2,105,0,1 

100 DATA 232,2,169,0,133,8,76,0 
, 160 

Przesłanie w Basic u zajmuje dosyć dużo czasu, dla 
1 024 bajtów trwa około 1 5 sekund. Dlatego lepiej jesl użyć 
znacznie szybciej działającej procedury w języku maszy- 
nowym Na przykład podobnej do poniższej: 

10 DIM BYTE* (80) 

20 CHSET= (PEEK ( 106.) -8> *256 
30 FOR L=1 TO 32 : READ B: BYTE* (L 
, L) =CHR* <B) :NEXT L 

4 212 ^ TA 104 ’ 104 ’ 133 ' 213 ’ 104 ’ 133 
&0 DATA' 104, 133,215, 104, 133,214 
162 ' 

Ło DATA 4.160,0,177,212,145,214 
70 iDAT A 200 , 208 , 249 , 230 ,213,230 

feo DATA 202,208,240,96 

90^ Z=USR (ADR (BYTE*) , 224*256, CHS 

100 POKE 756, CHSET/256 


Kolejna linia w każdym z powyższych programów po- 
winna informować ANTIC. gdzie umieściliśmy zestaw zna- 
ków: 

60 POKE 756. CHSET/256 

Normalnie w komórce o adresie 756 przechowywana jest 
wartość 224 (224 X 256 = 57344 — adres standardowego 
zestawu znaków w ROM). 

Teraz, mając już zestaw znaków w RAM. możemy przy- 
stąpić do ich modyfikacji. W tym celu wybieramy znak. któ- 
ry chcemy zmienić, wyznaczamy jego adres i podmienia- 
my odpowiednie bajty. Po zmianie kształtów wszystkich in- 
teresujących nas znaków musimy przechować nowy ze- 


staw znaków w pamięci zewnętrznej, dla wykorzystania w 
przyszłości do innych programów. 

Jak widać z przedstawionego opisu, tworzenie własnych 
znaków jest czynnością niełatwą i bardzo żmudną. Na 
szczęście, istnieją specjalne programy, zwane edytorami 
kształtu znaków lub generatorami znaków, które pomagają 
nam zmieniać wygląd znaków, pokazują, jak będą wyglą- 
dać, wykonują niezbędne obliczenia i przechowują cały 
zestaw znaków na taśmie lub dyskietce. Do najbardziej 
znanych należą: The Next Step z Online. Instedit z APX, 
Font Edit z Codę Works czy Ultrafont z Antic. Ze względu 
na kłopoty związane ze zdobyciem tych programów propo- 
nujemy własną wersję generatora znaków. Być może nie 
ma on wszystkich funkcji oferowanych przez wymienione, 
ale chcieliśmy, aby był napisany w języku Basic i nie był 
zbyt trudny do wyprowadzenia 

Generator znaków 

Prezentowany program jest ilustracją materiału doty- 
czącego generowania własnych znaków. Umożliwia on 
zmodyfikowanie kształtu dowolnego, wybranego przez nas 
znaku lub zaprojektowanie go od nowa. Działanie rozpo- 
czynamy od wybrania znaku, którego postać chcemy 
zmienić. W tym celu naciskamy klawisz SELECT i za po- 
mocą manipulatora przesuwamy kursor na wybrane miejs- 
ce prezentowanego repertuaru znaków. Po naciśnięciu 
przycisku manipulatora znak, w dużym powiększeniu, po- 
jawi się w dolnej części ekranu. W przedstawionej siatce 
możemy zmienić dowolne pole. Naciśnięcie przycisku 
zmienia jego stan na przeciwny. Jednocześnie, z prawej 
strony powiększonego znaku widoczna jest jego postać o 
wymiarach dwa razy większych niż normalnie (tak jak w 
GRAPHICS 2). Jeżeli uznamy, że uzyskany kształt znaku 
jest odpowiedni, naciskamy klawisz START Spowoduje to 
zamianę znaku. 

Po dokonaniu wszystkich modyfikacji musimy prze- 
chować zestaw znaków w pamięci zewnętrznej. W tym ce- 
lu naciskamy klawisz OPTION. Na ekranie pojawi się pyta- 
nie o nazwę zbioru. Jeśli chcemy zapisać nowe znaki na 
taśmie magnetycznej, to podajemy „C:”. w wypadku zapi- 
su na dyskietkę podajemy „D: NAZWA ZB. LST" Zapis 
ma postać linii DATA o numerach od 32000 do 32042, 
Jeśli chcemy zacząć pracę od nowa lub wygenerować 
inny zestaw znaków, to wystarczy nacisnąć klawisz HELP. 
Spowoduje to odtworzenie standardowego zestawu zna- 
ków i przejście do początku programu. 

Zapisany w pamięci zewnętrznej zestaw znaków można 
dołączyć do własnego programu instrukcją ENTER. Włą- 
czenie tych linii do programu nie wystarcza. Należy wpro- 
wadzić te dane do tablicy znaków i przekazać komputerowi 
adres tej tablicy. Poniższy program, który może być włą- 
czony do własnego programu po ewentualnej zmianie nu- 
merów linii, rezerwuje obszar pamięci, niezbędny do 
przechowania zestawu własnych znaków oraz wpisuje do 
niego dane o znakach. 

30000 MEM=F*EEK ( 106) -8: POKE 106, 
MEM-l 

30010 CHACT=MEM*256 
30020 RESTORE 32000 
30030 FOR 1=0 TO 1023 
30040 READ DsPOKE CHACT+I,D 
30050 NEXT I 
30060 POKE 756, MEM 
30070 RETURN 

Dla lepszego zrozumienia działania programu oraz 
ewentualnej jego rozbudowy podajemy w skrócie, co reali- 
zują poszczególne linie: 

Linie 10—20 — rezerwowanie obszaru pamięci 

► 
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► 

Linie • 

Linie 

Linie 

Linie 

Linie 

Linie 

Linie 


dla zeslawu znaków i grafiki P/M. 

60—80 — przygotowanie podprogramów w 

języku wewnętrznym, 
ustawienie parametrów dla gra- 
fiki P/M. 

rozpoznawanie funkcji. 

200—220 — przepisanie zestawu znaków z 
ROM do RAM. 

300—690 — podprogram wyboru znaku do 
poprawiania. 

700—795 — ustawienie kursora w środku 
ekranu. 

800—860 — podprogram przemieszczania 
kursora. 


100-120 

140-190 


Linie 

900-940 

Linie 

1000-1090 

Linie 

1100-1195 

Linie 

1500-1550 

Linie 

1600-1700 

Linie 

2000-2090 

Linie 

2100 v 

Linie 

3000-3170 

r znaków 


4 CLOSE #6 i OPEN #6.4.0, "Si " 

3iF lr ol!< m i?* < 10> '® u ^ t<32> » UP * < 
To heffcpEiS^ 106) -16 

20 AD-PEEK(106)-8* WSK-OiPOKE 10 
6.MEM-1 

30 CHACT -MEM*236 
40 GOSUB 1 300 1 REM SKOK DO STRON 
Y TYTUŁOWEJ 
30 RESTORE 

60 FOR L-l TO 32 i READ PGM* POKE 
708,L»BUF*(L,L)-CHR*(PGM) |NEXT 
L 

70 FOR L-l TO 21 i READ PGM i POKE 
708,LiUP*(L,L)«CHR*(PGM> iNEXT L 
80 FOR L-l TO 21 i READ PGM* POKE 
708, Li DOL* (L, L) -CHR* (PGM) i NEXT 
L 

83 GRAPHICS O 
90 GOSUB 1600 
93 GOSUB 2100 

100 POKE 54279, ADiPOKE 33277,3* 
POKE 359,46 

110 START-AD*236+312+68iP0KE 33 
248,142 

120 POKE 704,64* POKE 53236,0* PO 
KE 752,1 
130 GOSUB 200 


SUB 1600* GOSUB 200 
170 IF KF-3 THEN GOSUB 3000 
180 IF KF-3 THEN GOTO 300 
190 GOTO 140 

200 REM PRZEPISANIE TABLICY ZNA 
KOW 

210 Z-U8R (ADR (BUF*) ,224*236. CHA 
CT> 

220 POKE 736, MEMi RETURN 
300 REM WYBÓR ZNAKU I POPRAWA 
310 7 "> " * POSITION 4,1* FOR L-0 
TO 26 


320 NEXT K 

530 POSITION 10,11+1 

540 NEXT I 

330 GOSUB 700 

360 A— ST I CK ( O ) * G08UB 800 

563 IF PEEK (33279) -6 THEN 640 

570 IF STRIG (O) < >0 THEN 360 


mu rusiiiun 
*7 CHR*(L) i iNEXT L 


330 POSITION 4, 4* FOR L-97 TO 12 

4* ? CHR* (L) i i NEXT L 

360 GOSUB 700 

370 A— ST I CK ( O ) * GOSUB 800 

380 IF STRIG (0)00 THEN 370 

390 GOSUB 900 

400 B-M 

410 IF B>127 THEN B-B-127 

420 IF B<32 THEN B-B+64lG0T0 44 

O 

430 IF B<97 THEN B-B-32 

440 POSITION 10, 10* FOR I-O TO 7 

430 W-PEEK (CHACT+L+B*8) 

460 POKE START+I , W 
470 KK— 256 
480 FOR K— O TO 7 
490 KK-KK/2 

300 IF W<KK THEN 7 M + B |iGOTO 52 


3ip '? " ** 1 1 W— W— KK 


600 IF 
160) 

610 POSITION XP, YP* 7 A*j 
620 GOSUB 1000 

630 IF PEEK (33279) 06 THEN 560 
640 FOR I-O TO 7 
630 W-PEEK (START-*-!) 

660 POKE CHACT+I+B*8, W 

670- NEXT I 

680 G08UB 700 

690 GOTO 140 

700 REM KURSOR W ŚRODKU 

720 POKE 33249, 142 

730 X-142* Y— 80* POKE 703,88 

740 RESTORE 1200 

750 AD 1 -AD* 236+640 

760 FOR I-AD1 TO AD l-*- 127* POKE I 

,OiNEXT I 

770 FOR I-AD1+Y TO ĄD1+Y+7 
780 READ A* POKE I,A V 

790 NEXT I : : 1 

795 RETURN 

800 REM RUCH KURSORA 

810 IF (A— 10 OR A— 9 OR A-ll) TH 

820 IF <A-6 OR A-7 OR A-3) THEN 
X-X+l 

830 POKE 33249. X 
840 IF (A- 10 Oft A— 14 OR A-6) TH 
EN U-USR (ADR (UP*) , AD1+Y) * Y-Y-l 
830 IF (A-9 OR A-13 OR A-3) THE 
N U— U8R ( ADR ( DOL* ) , AD 1 +Y ) * Y— Y ■*■ 1 
860 RETURN 

900 REM LOKALIZACJA KURSORA 
910 XP— (X— 46) /4* YP— ( Y-16) / 4 
920 A*-"" 

930 LOCATE XP.YP.M 

935 POSITION XP,YPł? CHR*(M) 

940 RETURN 

lOOO REM ZMIANA ZNAKU P/M 

1010 FOR I-O TO 7 

1020 KK-236* W-0 

1030 FOR J-0 TO 7 

1040 LOCATE 10+J, 10+1 , M 

1030 KK-KK/2* IF H-160 THEN W-W+ 

KK? 

1060 NEXT J 
1070 POKE ST ART* I, W 
1080 NEXT I 
1090 RETURN 

1100 DATA 104,104,133,213,104,1 

33.212 

1110 DATA 104,133,215,104,133,2 

llfeo DATA 4,160,0,177,212,143,2 
14 

1130 DATA 200,208,249,230,213,2 

30.213 

1140 DATA 202,208,240,96 


- podprogram rozpoznawania po- 
łożenia kursora na ekranie. 

- podprogram wyświetlania po- 
większonego znaku. i 

- podprogramy w języku wew- 
nętrznym, 

- podprogram wyświetlania strony 
tytułowej programu 

- podprogram wyświetlania instru- 
kcji programu. 

- podprogram umieszczania na- 
pisu w środku ekranu 

- podprogram wygaszania kurso- 
ra. 

- podprogram zapisu zestawu 
znaków w pamięci zewnętrznej. 


1136 DATA 104,104,133,204,104,1 
l?io DATA 160,1, 177, 203, 136, 1*5 
i 170 DATA 200,200,192,10,208,24 
l\s0 DATA 104,104,133,204,104,1 

11^0°BaTA 160,9,177,203,200,143 
. 203 

1193 DATA 136,136,192,233,208,2 

126o 6 DATA O. O, 24, 60, 24, O, O, a 
1300 GRAPHICS 2+16 , 

1310 A*- "GENERATOR * P— 3 

1330 A*"" ZNAKÓW" * P-6 

m> m& n 2000 , 

1600 REM INSTRUKCJA 
1610 7 "> " * POSITION 10,5*7 " 
MENU "i? »? *7 * POKE 

752. 1 .* - 

j$S ? “.iwf - sucSpti" *S u in. 

1640 7 "HELP - powrot do pocz 
atku" 

1630 7 "OPTION - zapis znaków n 

a kasata" 

1660 7 " lub dysk" 

1690 GOSUB 2100 X 

1700 RETURN 

2000 Z-INT (O. 3+ (20— LEN (A*) > /2) 
2010 FOR 1-1 TO LEN (A*) 

2020 FOR J— 19 TO Z STEP -1 
2030 SOUND O, J*2*I, 10, 10 
2040 POSITION J,P* 7 #6jA*(I,I)| 

205& FOR W— 1 TO 10*NEXT W “ 

2060 NEXT J 
2070 Z-Z+l 
2080 NEXT I 


+767* POKE I . O* NEXT 1 1 RETURN 
3000 REM ZAPIS ZNAKÓW NA C* LUB 
Di 

3010 CHR— PEEK (736) *256 
3020 NUM-32000 

3030 7 "> Podaj nazwa zbioru"* t 
INPUT A* 

3040 FOR I-O TO 1023 STEP 24 
3030 7 

3060 POSITION 2,4*7 NUM| " "|"DA 

3070* 7 PEEK (CHR+I ) t 
3080 FOR J-l TO 23 
3090 7 ". " iPEEK (CHR+I+J) * 

3100 IF ł+J-1023 THEN 3l20 
3110 NEXT J 


3120 7 *7 "CONT" 

3130 POSITION 2, O* POKE 842, 
TOP 

3140 POKE 842, 12* NUM-NUM+1 
3150 NEXT I 
3133 7 ">" 

3160 LIST A*. 32000, 32042 
3170 A*-"": RfeTURN 


13* S 


Colossus chess 


Jest to program szachowy, dlatego nie ma potrzeby 
omawiania zasad gry. Zainteresowani znają je z pewnoś- 
cią lepiej od nas. A ci. którzy nie znają, mogą je znaleźć w 
stosownej literaturze. Dlatego ograniczymy się do przed- 
stawienia możliwości oferowanych przez program Colos- 
sus chess 3.0. 

IKS — 6 


W czasie gry dysponujemy dwoma przełączanymi obra- 
zami: jeden z nich przedstawia szachownicę, a drugi sześć 
ostatnich posunięć każdego z partnerów, nazwy graczy 
(Colossus i Opponent), zegary szachowe oraz sposób ana- 
lizowania ruchów przez program. Przełączania dokonuje- 
my klawiszem „SPACE BAR". Po zakończeniu analizowa- 
nia pozycji program wyświetla kilka najlepszych posunięć. 

dokończenie na str. 23 


Zgodnie z zapowiedzią, w po- 
przednim odcinku obecnie przystą- 
pimy do rozszerzenia naszego pro- 
gramu. Dołączymy do niego ele- 
menty, które realizują następujące 
funkcje: 


— składowanie pamięci obrazu na 
kasecie magnetofonowej, 

— wczytanie rysunku z pamięci ka- 
setowej do pamięci obrazu, 

— kreślenie odcinka, okręgu i 
czworokąta. 


(Basic CPC 464) (2) 


Pierwsza z tych funkcji realizowana 
jest w linii 198, przy użyciu komendy 
SAVE. Ogólny format instrukcji: 

SAVE nazwa — kartoteki — zbioru (typ 
danych), adres początku zbioru w pa- 
mięci RAM, (długość zbioru). 

W przypadku naszego programu, kar- 
totekę nazwałem RYSUNEK. Typ da- 
nych — litera B oznacza, że tworzony 
jest na taśmie zbiór binarny. Taki spo- 
sób zapisu minimalizuje czas jego za- 
pisywania i odczytywania. Adres C000 
pokrywa się z adresem początkowym 
pamięci obrazu, która w przypadku 
CPC 464 wykorzystuje 16 Kbajtów 
RAM (od adresu C000 do FFFF). Dłu- 
gość zbioru określona jest liczbą szes- 
nastkową 4000, co odpowiada 16 K: 
4000 szesnastkowo = 1 6384 dziesięt- 
nie (4 *16 3 + 0 , 16 2 -F0*16 1 -F0*16 0 ) W 
rezultacie na taśmie kasetowej tworzo- 
ny jest zbiór składający się z 8 bloków 
po 2Kbajtów każdy. Szybkość przesy- 
łania danych w trakcie zapisu określa- 
na jest przez instrukcję: 

SPEED WRITEa 

dla a=0 szybkość transmisji wynosi 
1000 bodów (bitów na sekundę) dla 
a=1 przesyłanie odbywa się z szyb- 
kością 2000 bodów. Wczytywanie ry- 
sunku z pamięci kasetowej do pamięci 
obrazu — linia 194 — realizowana jest 
w oparciu o komendę LOAD. 

Format: 

LOAD nazwa — kartoteki. 

Kreślenie odcinka prostej, okręgu 
oraz czworokąta dokonywane jest 
odpowiednio w liniach 4220—4400, 
4590-4800, 4840-5090. Wspólną 
cechą przyjętych rozwiązań jest okreś- 
lanie punktów charakterystycznych 
poprzez naciskanie klawisza COPY 
bądź przycisku FIRE. I tak w wypadku 
rysowania odcinka pierwsze naciśnię- 
cie COPY/FIRE spowoduje zazna- 
czenie jego punktu początkowego, po- 
nowne zaś, wykreślenie linii do punktu 
aktualnie wskazywanego przez kursor 
graficzny. W przypadku kreślenia okrę- 
gu. pierwsze naciśnięcie FIRE/COPY 
wyznaczy jego środek. Dalsze prze- 
mieszczanie kursora graficznego po 
ekranie określa zmianę długości pro- 


mienia Ponowne wciśnięcie FIRE/ 
/COPY spowoduje wyliczenie tej dłu- 
gości wg wzoru: 

R = (x,-x 2 )2 + (y t — y 2 )2 

gdzie 

(x,, y t ) — współrzędne środka okręgu 
(x 2 , y?) — współrzędne punktu aktual- 
nie wskazywanego przez kursor 
Samo rysowanie okręgu polega na 
zapalaniu na ekranie monitora wszyst- 
kich punktów (x.y) spełniających rów- 
nania: 

x = x, + R • cos(a) 
y = y, -F R • sin(a) 

gdzie a zawiera się w przedziale od 0° 
do 360°. Kreślenie czworokąta (równo- 
ległoboku) sprowadza się do wyzna- 
czenia trzech jego wierzchołków. 
Czwarty wyliczany jest wg następują- 
cych zależności: 

x 4 = x 1 -(x 3 — x 2 ) 

y. = (ys-y0 

Po obliczeniu współrzędnych punktu 
(x 4 , y 4 ) następuje wykreślenie czworo- 
kąta za pomocą instrukcji DRAW Po- 
łączenia wszystkich elementów pro- 
gramu KRESKA dokonujemy następu- 
jąco: 

Po wprowadzeniu II części programu 
do pamięci komputera, składujemy ją 
na taśmie kasetowej komendą SAVE 
np.: 

SAVE „PLUS" 

Następnie kasujemy zawartość pa- 
mięci komputera. Po wykonaniu tej 
czynności możemy przejść do utwo- 
rzenia rozszerzonej wersji programu. W 
tym celu należy: 

1 . Wczytać program KRESKA komen- 
dą LOAD „KRESKA" 

2. dołączyć część II instrukcją 

MERGE „PLUS" 

3. usunąć zbędne linie rozkazem DE- 
LETE. Dotyczy to linii: 820, 1300 oraz 
1480. 

4. przenumerować nowo otrzymany 
program komendą RENUM 

Nową wersję programu KRESKA na- 
leży nagrać na taśmie magnetofonowej 
komendą: 

SAVE „KRESKA V.2" 

Na zakończenie uwaga praktycz- 



na. Przy wprowadzeniu programu 
zaleca się pisanie komend małymi li- 
terami. Umożliwia to łatwe odnaj- 
dywanie błędów formalnych, gdyż 
wszystkie niepoprawnie wpisane in- 
strukcje zostaną przez interpreter 
BASICa wylistowane na ekranie w 
niezmienionej postaci (interpreter 
poprawne komendy wypisuje wiel- 
kimi literami). 


W kolejnych numerach zostaną 
przedstawione kolejne funkcje: 

— wypełnianie kolorem figur zamknię- 
tych 

— aerograf 

— kreślenie prostopadłościanu. 

Janek 


180 CLS «2:PRIMT «2, a (DOAD <S)AVE (KIR 
ESLENIE (CILS*; 

190 LOCATE §2, 2, 2: PRINT #2, a < Z) AKONCZENI 
E PRACY" j 

191 REnttttittttttmtmttttmtttttttt 

192 REN CZYTANIE RYSUNKU Z TASNY 

193 RENtttttmttttttttttttittmttmtt 

194 IF INKEY (36)*0 THEN CLS #2:PRINT #2, 
" PROSZĘ NCISNAC < PLAY > " * LOAD " ! RYSUNEK * : 
60T0 180 

193 REHtmtimtttmmttttiimmm 

196 REN ZAPISANIE RYSUNKU NA TASHIE 

197 RENtlttmMttmttmttttttttMMtt 

198 IF INKEY(60) S 0 THEN CLS #2: PRINT 12, 
• PROSZĘ NCISNAC <PLAY> I <REC> "jFOR i* 
1 TO 2000] NEXT i : SPEED NRITE 1:SAVE'!RYS 
UNEK* , 8, ItCOOO, 64000: 60TO 180 

320 60T0 194 

480 WINDOM 12,7,38,1,2: PRINT «2, I (N)ENU 
6L0NNE (PIRZEHIESZCZENIE (K)OLOR (UIN1A 
(FII6URY LUB ( "♦CHRt (241 ) ♦") " 

501 IF INKEY (361*0 THEN 4220 

502 IF INKEY (53) «0 THEN 4440 
520 IF INKEY (37 1*0 THEN 60T0 630 
580 IF INKEY (521-0 THEN 6OT0 1340 

4190 REHIttmillttltltlttttllttimtttt 
4200 REN KREŚLENIE LINII 

4210 REHItltttltlttltltlltllttttllltttlt 

6 


IKS — 7 



6 

4220 CIS #2: PRI NT 12, * WYZNACZ PIERWSZY 
PUNKT* :L0CATE #2,2,2:PRINT 12, 'UŻYWAJ :* 
♦CHR* ( 240 ) ♦CHRf ( 242 ) ♦CHRI ( 243 1 ♦CHRI (241) 
COPY LUB JOYSTICK* 

4230 oX*0 

4240 60SUB 1600:60SUB 930:60SUB 1070 
4230 60SUB B70:60SUB 930:60SUB 980 
4260 60SUB B70 

4270 IF oX* 1 THEN PLOT aX,bX,l:HOVE xX,y 
Z 

4280 IF INKEY (FX) *0 THEN 60T0 4310 

4290 IF INKEY (27) «Ó THEN 480 

4300 60T0 4240 

4310 IF oX*l THEN GOTO 4360 

4320 aX«xZ:bX«yX:oX»l 

4330 LOCATE ł2,l,l:PRINT 12,* WYZNACZ OR 

U6I PUNKT 

4340 FOR i*l TO 100:NEXT i 

4350 GOTO 4240 

4360 HOVE aZ,bZ 

4370 DRAŃ xX,yX,kolor:oX s O 

4380 LOCATE !2,1,1:PRINT 42, * WYZNACZ PI 

ERWSZY PUNKT LUB P * 

4390 FOR i*l TO 100:NEXT i 
4400 GOTO 4240 

4410 REHtttiMtmtttttttttmttititmt 
4420 REN FI6URY 

4430 REHttmtmttttttttmiituttttttt 
4440 CLS I2:PRINT 12/ (0)KRA6 (C)ZWOROK 
AT * 

4450 LOCATE #2,2,2:PRINT I2/(P>0NR0T DO 
HENU * 

4460 IF INKEY (34) *0 THEN 4590 
4470 IF INKEY (27)*0 THEN 480 
4475 IF INKEY (62 )*0 THEN 4810 
4480 60T0 4460 

4560 REHtmtmmmtimtittitttmtt 


io as 

20 0RI6IN 0,0 
30 FOR x*l TO 15 
40 DRAW 320,25tx 
50 DRAW 10tx,5tx 
60 NEXT x 
70 0RI6IN 640,0 
80 FOR y*l TO 15 
90 DRAM -320,25ly 
100 ORAN -10ly,5ly 
110 NEIT y 
120 0RI6IN 0,400 
130 FOR 1 TO 15 
140 ORAN 320,-25tz 
150 ORAN 10tz,-5lz 
160 NEXT z 
170 ORIGIN 640,400 
180 FOR k*l TO 15 
190 DRAŃ -320,-25tk 
200 ORAN -10lk,-5lk 


4570 REH KREŚLENIE 0KRE6U 
4580 RENtltttttttttttttlttttlttllttltltt 
4590 CLS «2:PRINT 42/ WYZNACZ ŚRODEK OK 
RE6U LUB P* 

4600 LOCATE I2,2,2:PRINT 12/UZYWAJ :*+C 
HRI (240) +CHRI (242) ♦CHRI (243) ♦CHRI (241 > / 
COPY LUB JOYSTICK* 

4610 60SUB 980: 60SUB 930:G0SUB 1070: GOSU 

B 870: GOSUB 930 

4620 IF INKEY (27) «0 THEN 480 

4630 IF INKEY (FZ)*0 THEN cxX«xX:cyX*yX:L 

OCATE 12, 2,1: PRINT 12/WYZNACZ PROMIEŃ O 

KRĘGU*: FOR i‘l TO 150:NEXT i: GOTO 4660 

4640 GOSUB 870 

4650 GOTO 4610 

4660 GOSUB 930:G0SUB 1070:60SUB 980: GOSU 
B 870: GOSUB 930 

4670 PLOT cxX,cyX,l:HOVE xX,yX 

4680 IF INKEY (FZ)*0 THEN oxX«xX:oyZ»yX:L 

OCATE 82,2, 1 : PRINT 12/WYZNACZ ŚRODEK OK 

REGU LUB P*:GOTO 4710 

4690 GOSUB 870 

4700 60T0 4660 

4710 dlX*cxX-oxX:d2X*cyZ-oyX 

4720 d 1 Z*ABS (d IZ) : d2Z*ABS (d2X) 

4730 r *SBR ( (dlX A 2) ♦ (d2X A 2) ) 

4740 FOR aX*l TO 360 
4750 DEG 

4760 PLOT cxX^rtCOS(aZ),cyX^rtSIN(aX),ko 
lor 

4770 x*XPQS:y*YP0S:60SUB 1530 
4780 NEXT aX 

4790 PLOT cxX,cyZ,0:xZ«cxZ:yZ«cyZ 
4800 GOTO 4590 

4810 REHttltltfllttttmtltltttttttllltt 
4820 REH KREŚLENIE CZWOROKĄTA 
4830 REHtttMtmttttmmiitmtmtti 


4840 CLS «2:PRINT 12/ WYZNACZ PIERWSZY 
PUNKT LUB P*: LOCATE 12, 2, 2: PRINT 12/U 
ZYWAJ : •♦CHRI (240) ♦CHRI (242) ♦CHRI (243) +C 
HR$(241 ) ♦" COPY LUB JOYSTICK* 

4850 qX=0 

4B60 GOSUB 1600:GOSUB 930:60SUB 1070 
4870 60SUB 870: GOSUB 930: GOSUB 980 
4880 GOSUB 870 

4890 IF skX s 0 AND prZ*l AND qX*0 THEN PL 

OT xpX,ypX, kol : MOVE xZ,yZ:qX*l 

4900 IF INKEY (FX) *0 THEN 4930 

4910 IF INKEY (27) *0 THEN 480 

4920 GOTO 4860 

4930 PLOT xX,yX,l 

4940 xlX*xX:ylX«yX 

4950 LOCATE 12, 1,1 sPRINT 12/ WYZNACZ DR 
U6I PUNKT 

4960 GOSUB 930: GOSUB 1070:60SUB 870:60SU 

B 930: 60SUB 980:60SUB 870 

4970 IF skZ-0 AND prX*l THEN PLOT xpZ,yp 

X, kol : MOVE xZ,yZ;*kZ*l 

4980 IF INKEY (FX)*0 THEN 5000 

4990 60T0 4960 

5000 PLOT xZ,yZ,l:x2Z«xZ:y2X«yXiqX*0 
5010 LOCATE 12, 1,1: PRINT 12/ WYZNACZ TR 
ZECI PUNKT 

5020 60SUB 1600: GOSUB 930: GOSUB 1070: GOS 
UB 870: 60SUB 930:60SUB 980: GOSUB 870 
5030 IF skX=0 AND prX»l AND qX*0 THEN PL 
OT xpX,ypX, kol :MOVE xX,yX:skZ*l:qZ»l 
5040 IF INKEY(FZ)«0 THEN 5060 
5050 GOTO 5020 

5060 x3Z*xX:y3X-yX:H0VE xlZ,ylZ 
5070 x4Z*xlX+(x3Z-x2X):y4Z*y3Z-(y2Z-ylX) 
5080 DRAW x2Z,y2Z, kolor: DRAW x3Z,y3Z,kol 
or : DRAW x4Z,y4Z, kolor: DRAW x lZ,ylZ, kolor 
5090 x»XP0S:y=YP0S:60SUB 1530: GOTO 4840 


210 NEXT k 
220 ORIGIN 0,200 
230 FOR x*l TO 15 
240 DRAW 320, 25tx 
250 DRAW 10tx,5tx 
260 NEXT x 
270 ORIGIN 0,200 
280 FOR y*l TO 15 
290 DRAW 320,-25ly 
300 DRAW 10$y,-5ly 
310 NEXT y 
320 ORIGIN 640,200 
330 FOR z*l TO 15 
340 DRAW -320, 25fz 
350 DRAW -10!z,5tz 
360 NEXT z 
370 0RI6IN MO, 200 
380 FOR x*l TO 15 
390 DRAW -320, -25tx 
400 DRAW -10tx,-5tx 
410 NEXT x 





Możliwości Commodore 64 


( 2 ) 


W tej części zajmiemy się znakowym trybem 
pracy mikrokomputera Commodore 64. W szcze- 
gólności opisany zostanie GENERATOR ZNA- 
KÓW oraz metoda programowania własnych 
znaków w trybie pracy dwukoiorowej i wielokolo- 
rowej. Dla przybliżenia omawianych problemów 
posłużymy się dwoma programami: 

1. zobrazowanie bitowej reprezentacji znaków 
rezydujących w GENERATORZE ZNAKÓW; 

2. dwukolorowa i wielokolorowa realizacja 
podstawowych elementów obwodu elektry- 
cznego. 

Generator znaków 

Wszystkie standardowe znaki graficzne widziane na ek- 
ranie otrzymywane są z GENERATORA ZNAKÓW (GZ) 
mieszczącego się w pamięci ROM. Bezpośredni dostęp do 
tej pamięci posiada VIC pracując w BANKU 0 lub w 
BANKU 2. W BANKU 0 standardowy GZ zlokalizowany jest 
od adresu 4096 do 81 91 . a w BANKU 2 od adresu 36864 
do 40959. W obszarach występowania standardowego GZ 
pamięć RAM jest przesłaniana pamięcią ROM zawierającą 
GZ — z punktu widzenia VIC-a. System operacyjny i pro- 
gramy korzystają w tych miejscach z normalnej pamięci 
RAM o identycznej adresacji. 

Dostęp do standardowego GZ system operacyjny i pro- 
gramy mają w obszarze od 53248 bajtu do 57343 bajtu. 
Napotykamy tu jednak pewną trudność, ten sam obszar 
pamięci jest wykorzystywany do dwóch różnych celów. 
Pamięć RAM zawiera w tym miejscu rejestry we/wy nie- 
zbędne do obsługi przerwań O tym. która pamięć fizycznie 
występuje pod wspomnianymi adresami decyduje aktual- 
ne ustawienie przełącznika rodzaju pamięci zlokalizowa- 
nego w trzecim bicie pierwszego bajtu pamięci. 

W celu uzyskania dostępu do standardowego GZ musi- 
my poinformować system operacyjny, aby nie reagował 
na pojawiające się sygnały przerwań. 

30 POKE 56334, PEEK (56334) AND 254 

Posiadacze mikrokomputerów C-64 mogą jednocześnie 
wprowadzać do pamięci pierwszy z przykładowych pro- 
gramów. który posłuży nam do ilustracji omawianych za- 
gadnień związanych z GENERATOREM ZNAKÓW. 

Ustawmy teraz przełącznik rodzaju pamięci tak. aby w 
obszarze 53248 — 57343 mieć GZ z pamięci ROM: 

40 POKE 1, PEEK (1) AND 251 

Powrót do stanu poprzedniego tj. odłączenie pamięci 
ROM. przyłączenie pamięci RAM i umożliwienie obsługi 
przerwań uzyskamy sekwencją instrukcji: 

60 POKE 1 . PEEK (1 ) OR 4 
70 POKE 56334, PEEK (56334) OR 1 

GENERATOR ZNAKÓW podzielony jest na dwa zbiory 
znaków (po 256 znaków każdy) wielkości 2K. W procesie 
wyświetlania znaków na ekranie VIC pracuje zawsze tylko 
na jednym ze zbiorów, który możemy wybrać: 

— przyciskając |ednocześnie klawisze SHIFT i COM- 
MODORE; 

— ustawiając odpowiednią wartość 53272 bajtu według 
tabeli zamieszczonej w części pierwszej artykułu. 

Każdy znak graficzny ma określony KOD EKRANOWY 
(KE). który jest liczbą porządkową tego znaku w zbiorze 
GZ. Ponieważ istnieją dwa zbiory znaków, ten sam KE mo- 
że odnosić się do dwóch różnych znaków (np kod 1 odpo- 
wiada znakom A i a). Zestawy znaków standardowych i ich 


KODY EKRANOWE zamieszczone są w każdej instrukcji 
do mikrokomputera C-64. 

W naszym przykładowym programie znak będziemy lo- 
kalizować podając dane. 

10 INPUT "KOD EKRANOWY ZNAKU 0 - 

255"; KE 

20 INPUT "ZBIÓR ZNAKÓW 1 — 2"; ZB • 

Każdy znak występujący w GENERATORZE ZNAKÓW 
definiowany jest na ośmiu bajtach Rzeczywisty adres (RA) 
znaku w pamięci można wyznaczyć według reguły: 

50 RA=51 200+ ZB*2048+KE*8 

Po zlokalizowaniu znaku pozostaje tylko wyprowadzić 
zawartość pamięci definiującej znak Każdy z ośmiu bajtów 
wyprowadzany ma być w postaci zerojedynkowej w ko- 
lejnych wierszach ekranu, zachowując uporządkowanie z 
pamięci. Przedstawiona poniżej grupą ^pstrukcji wykonuje 
opisaną procedurę: 

60 PRINT: PRINT "POSTAĆ BITOWA ZNA- 

KU:":PRINT 

70FOR 1=0 TO 7: LP=PEEK (RA-FI): FOR J=7 

TO 0 STEP -1 

80 LK=INT(LP/2): T(J)=LP-LK*2: LP=LK: 

NEXT: Z$="" 

90 FOR J=0TO 7: Z$=Z$+MID$(STR$(T(J)). 

2.1): NEXT 

100 PRINT” ";Z$: NEXT 

Spróbujmy uruchomić nasz program dla następują- 
cych danych: KE=1. ZB=1 oraz KE=1, ZB=2. Uzyskamy 
na ekranie bitową reprezentację litery A i litery a. Litera A 
ma postać: 

0 0 0 1 1 0 0 0 
0 0 1 1110 0 
01100110 
0 1 T 1 1 1 1 0 
01100110 
01100110 
01100110 
00000000 

Zatem, każdy znak zbudowany jest z 64 punktów (8 
wierszy na 8 kolumn); a wartość bitu 1 odpowiada świe- 
cącemu punktowi na ekranie, zaś wartość 0 odpowiada 
kolorowi. Oczywiście jest to słuszne w trybie pracy dwu- 
kolorowej; 

Dla ciekawskich pozostawiam dokładniejsze przebada- 
nie GENERATORA ZNAKÓW za pomocą zaprezentowa- 
nego programu Możemy wykryć dodatkowe cechy stan- 
dardowego GZ (np jakie znaki graficzne przedstawiają 
KE. które me zostały pokazane w instrukcji do C-64?). 

Programowanie własnych znaków 

Ogólną metoda wykorzystania w grafice komputerowej 
niestandardowych znaków sprowadza się do budowy włas- 
nego GENERATORA ZNAKÓW i przekazania go VIC-owi 
Przy realizacji tego typu programów należy wykonać na- 
stępujące czynności: 

— zaprojektować własne znaki (uwzględniając ewen- 
tualne ich wykorzystanie w trybie wielobarwnym); 

» 
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Kolorowanie znaków 


* 

— wybrać obszar pamięci RAM, w którym powstanie 
nowy GENERATOR ZNAKÓW (korzystał z tabeli 
zamieszczonej w pierwszej części artykułu) i sko- 
piować do tego obszaru niezbędne znaki ze stan- 
dardowego GZ; 

— wprowadzić zaprojektowane znaki w odpowiednie 
miejsca do nowego GZ; 

— zlecić VIC-owi korzystanie z nowego GZ; 

— przeprowadzić dodatkowe operacje związane z wy- 
korzystywaniem własnego GZ (np. zabezpieczenie 
się przed niekontrolowanym zniszczeniem zawar- 
tości GZ przez program w Basicu) 

Powyższe czynności zilustrowane zostały w kolejnym 
programie, którego zadaniem jest zobrazowanie na ekra- 
nie podstawowych elementów obwodu elektrycznego: re- 
zystancji, pojemności, indukcyjności. zestawie znaków 
standardowych C-64 nie ma symboli graficznych wy- 
mienionych elementów. Przyjęte zostały następujące za- 
łożenia dotyczące projektowanych znaków; 

— rezystancja zaprojektowana jest jako dwa znaki 
o KE 35 i 36 (# i $);. 

— pojemność reprezentuje jeden znak o KE 37 (%); 

— indukcyjność przedstawiana jest za pomocą trzech 
znaków o KE 38, 39 i 42/&. i ( /. 

Poszczególne grupy instrukcji opatrzone zostały komen- 
tarzem ułatwiającym zrozumienie programu. 

5 REM KOPIOWANIE STANDARDOWEGO GZ DO WY- 
BRANEGO OBSZARU PAMIĘCI RAM 
10 POKE56334, PEEK (56334) AND 254 
20 POKE 1.PEEK(1 ) AND 251 

p0 FOR 1=0 TO 4095; POKE 40960H PEEK (53248+1) 
NEXT 

40 POKE 1 ,PEEK(1 ) OR 4 
50 POKE 56334, PEEK (56334) OR 1 
55 REM WPROWADZENIE WŁASNYCH ZNAKÓW DO 
GZ W ODPOWIEDNIE MIEJSCA 
60 FOR 1=41240 TO 41287: READ L: POKEI.L: NEXT 
70 DATA 0,170,128.128.128.128.170.0: REM REZY- 
STANCJA 

80 DATA 0,170,2.2.2.2.1 70,0 

90 DATA 130,130,130,130,130,130,130,130: REM PO- 
JEMNOŚĆ 

100 DATA 40.1 30.1 30,1 30,1 30,0,0.0: REM INDUKCYJ- 
NOŚĆ 

110 DATA 162,8,8,8,8,0,0,0 
120 DATA 128,32.32.47,47.0.0.0 
125 REM PRZEKAZANIE NOWEGO GZ VIC-owi 
130 POKE 56576,149: POKE 648.140: POKE 53272,57 
140 POKE 56,35840/256: CLR: REM OGRANICZENIE 
OD GÓRY PAMIĘCI RAM DLA BASICA 
1 50 POKE 53280,1 : POKE 53281 .1 : REM BIAŁY KOLOR 
OBRZEŻA I EKRANU 

160 PRINTCHR$(1 47) : PRINT: PRINT„PODSTAWOWE 
ELEMENTY OBWODU ELEKTRYCZNEGO" : PRINT 
170 POKE 646,1 1: REM ZNAKI KOLORU SZAREGO 

180 PRINT" o #$-%-&'( o”: STOP: REM 

WYŚWIETLENIE OBWODU ELEKTRYCZNEGO 
215 REM POWROT DO SYTUACJI POCZĄTKOWEJ 
220 POKE 56.40960/256: CLR 
230 POKE 56576.1 51 : POKE 53272,21 . POKE 648,4 

Występująca w wierszu 180 instrukcja STOP pozwala na 
pozostanie w BANKU 2. Kontynuacja programu spowoduje 
powrót VIC-a do BANKU 0. 

W programie wykorzystana jest właściwość mikrokom- 
putera C-64 polegająca na takiej samej adresacji dwóch 
różnych pamięci. Nowy GENERATOR ZNAKÓW zlokali- 
zowany jest w obszarze 40960 — 45058 pamięci RAM. Pod 
tymi samymi adresami występuje interpreter Basica w pa- 
mięci ROM. 
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W przedstawionych programach wykorzystywany był 
dotychczas dwukolorowy tryb pracy VlC-a Pozwala on 
na wyświetlenie znaku mieszczącego się na 64 punktach 
ekranu (w ośmiu wierszach i kolumnach) odwzorowują- 
cych 64 bity pamięci (jeden bit — jeden punkt ekranu). 
W dowolnej chwili mieliśmy możliwość określenia koloru ek- 
ranu (jednego tła dla wszystkich znaków) i koloru każdego 
ze znaków występujących na ekranie. Kolor ekranu wybie- 
ramy wprowadzając do bajtu 53281 liczbę odpowiadającą 
wybranej barwie (jednej z szesnastu możliwych). Kolor 
znaku określany jest na podstawie zawartości najmłod- 
szych trzech bitów odpowiedniego bajtu PAMIĘCI EKRA- 
NU (patrz cz.1). 

W trybie wielokolorowym wyświetlany znak mieści się na 
32 punktach ekranu (w ośmiu wierszach i czterech kolu- 
mnach) odwzorowujących również 64 bity pamięci, przy 
czym parze bitów odpowiada jeden punkt ekranu. Znak na 
ekranie w obu trybach zajmuje tę samą powierzchnię ek- 
ranu. Kolory punktów tworzących znaki są zależne od od- 
powiadających im par bitów. Para bitów wskazuje skąd na- 
leży pobrać kod barwy wyświetlanych punktów według po- 
niższego zestawienia: 

00 — bajt 53281; 

01 - bajt 53282; 

10 - bajt 53283; 

1 1 — najmłodsze trzy bity w bajcie odpowia- 
dają położeniu znaku w PAMIĘCI KOLORU. 

Zapisując odpowiednie kody barw w wymienionych baj- 
tach można realizować wielobarwną grafikę w trybie zna- 
kowej pracy VIC-a. 

Wykorzystanie trybu wielokolorowego zilustrujemy wpro- 
wadzając, do ostatniego programu dodatkowe wiersze: 

190 POKE 53282,15: POKE 53283,0: REM WYBÓR KO- 
LORÓW 

200 POKE 53270. PEEK (53270) OR 16: STOP. REM 

PRZEŁĄCZENIE VICA NA TRYB WIELOKOLOROWY 

210 POKE 53270, PEEK(53270) AND 239: STOP: REM 

POWRÓT DO TRYBU DWUKOLOROWEGO 

O programowaniu grafiki o dużej rozdzielczości przeczy- 
tać będzie można w następnej części. 


Sławomir WASIELEWSKI 




Cykl artykułów o mikrokom- 
puterach personalnych firmy 
IBM stanowi próbę zaprezento- 
wania ich architektury, parame- 
trów technicznych i oprogra- 
mowania. Próba ta poparta jest 
pewnym doświadczeniem auto- 
ra, zdobytym w czasie pracy z 
tym ciekawym systemem. 

Określenie komputer personalny 
(Personal Computer), lub komputer 
osobisty używane jest w odniesieniu do 
sprzętu, który może być wykorzysty- 
wany profesjonalnie. Jak dynamicznie 
kształtuje się światowy standard kom- 
putera personalnego możemy prześle- 
dzić właśnie na przykładzie firmy IBM 

Komputery IBM PC pojawiły się na 
rynku pod koniec 1981 roku. Jako jed- 
nostkę centralną wykorzystywano w 
nim 16-bitowy mikroprocesor INTEL 
8088. Komputer posiadał pamięć ope- 
racyjną RAM 64 Kb, pamięć stałą ROM 
40 Kb oraz pamięć zewnętrzną na dy- 
skach elastycznych, zwanych dyskiet- 
kami (Diskette), o wymiarach 5 1 / 4 
cala (133 mm) i czasie dostępu do in- 
formacji rzędu kilkudziesięciu milise- 
kund. 

Na początku 1 983 roku pojawiła się 
wersja IBM PC/XT Mikrokomputer 
wyposażono w większą pamięć opera- 
cyjną. o pojemności 1 28 Kb oraz umoż- 
liwiono rozbudowanie jej do pojemnoś- 
ci 640 Kb. Obok pamięci masowej na 
dyskach elastycznych, o gęstości za- 
pisu 1 84 320 bajtów (znaków informa- 
cji) lub 368 640 bajtów, zastosowano 
tzw. dysk stały (Hard Disk) o poje- 
mności 10 Mb, później 20 Mb. W mik- 
rokomputerze wykorzystano, obok jed- 


nostki centralnej 8088. koprocesor 
arytmetyczny INTEL 8087. Połączenie 
mikroprocesora 8088 z koprocesorem 
daje programiście jeden wspólny pro- 
cesor tzw interprocesor, o automaty- 
cznie skoordynowanych funkcjach. 
Koprocesor pracuje równolegle z pro- 
cesorem głównym, wykonując te roz- 
kazy. pobierane z pamięci programu, 
które są dla niego przeznaczone 

W połowie 1 984 roku pojawiła się ko- 
lejna wersja IBM PC/AT, wyposażona 
w nową jednostkę centralną INTEL 
80286 i koprocesor arytmetyczny 
INTEL 80287. Pamięć operacyjna ma 
pojemność 256 Kb i posiada możli- 
wość rozszerzenia do 1 Mb. Mikro- 
komputer posiada dysk stały 20 Mb 
(lub większy) oraz mechanizmy dy- 
skietkowe; jeden pozwalający na 
osiągnięcie na dyskietce 5 1 /4 cala 
gęstości zapisu 1 .2 Mb. a drugi o gę- 
stości 368 Kb. IBM PC/AT posiada in- 
ne udoskonalenia. 

W bieżącym roku zaprezentowano 
najnowszą wersję IBM PC/RT (lub 
IBM 6150). W mikrokomputerze zasto- 
sowano 32-bitowy procesor o architek- 
turze RISC (Redunded Instruction Set 
Computer), dużo szybszy od jednostek 
centralnych stosowanych w poprzed- 
nich wersjach oraz koprocesor AT, 
umożliwiający wykorzystanie progra- 
mów z IBM PC/AT. Pamięć operacyjna 
może mieć pojemność od 1 do 4 Mb. 
Pamięć masowa to dysk stały 210 Mb 
oraz dyski elastyczne, o gęstości zapi- 
su 1.2 Mb. 

Porównując wersję IBM PC/RT z 
pierwszą wersją IBM dochodzimy do 
wniosku, że jest to olbrzymi skok moż- 


liwości technicznych sprzętu, niewia- 
rygodnie wysoko podnoszący standard 
komputera personalnego. Rozwiązania 
sprzętowe tworzą z IBM PC/RT kom- 
puter o bardzo dużych mocach obli- 
czeniowych. 

O wartości komputerów IBM PC 
świadczą nie tylko ich parametry tech- 
niczne. Można uznać, że sprzęt (Hard- 
ware) jest „drugoplanową" cechą tych 
komputerów. Cechą najważniejszą, 
decydującą o tym, że IBM PC opano- 
wały już praktycznie wszystkie dziedzi- 
ny życia, jest ich bardzo bogate opro- 
gramowanie (software). 

Mikrokomputery IBM PC/XT dyspo- 
nując w typowej konfiguracji pamięcią 
operacyjną 640 Kb, pamięcią zewnętrz- 
ną na dysku stałym i dyskach elasty- 
cznych, stanowią uniwersalny system 
obliczeniowy, o dość dużej mocy obli- 
czeniowej. Moc ta może być zwiększa- 
na poprzez utworzenie sieci, z reguły 
1 6- lub 32- komputerowej. Na kompute- 
rach IBM PC/XT skupimy właśnie na- 
szą uwagę w dalszych numerach 
„IKS-a”. 

W mikrokomputerach PC/XT zasto- 
sowano dyskowy system operacyjny 
(DOS — Disk Operating System), bę- 
dący bogatym i uniwersalnym syste- 
mem, pozwalającym na budowę fine- 
zyjnych programów użytkowych. Wy- 
korzystywane są dwie implementacje 
tych systemów: MS-DOS (wersje 2.0. 
2.11, 3.10) oraz PC-DOS (wersja 3.0). 
Mikrokomputer może pracować rów- 
nież pod systemem operacyjnym 
CP/M. 

Wersja PC/RT posiada system ope- 
racyjny IBM AIX, umożliwiający pracę 
wielodostępną i wieloprogramową, 
wzorowaną na wersji V systemu UNIX. 
Innym bardzo ciekawym systemem 
jest MS-WIN DOS. zorientowany grafi- 
cznie pakiet oprogramowania, komuni- 
kujący się z użytkownikiem za pomocą 
okien z zestawem funkcji reprezento- 
wanych przez piktogramy. 

Oprogramowanie do PC/XT zawie- 
ra, oprócz interpretera BASIC-u, 
kompilatory BASIC-u, C, COBOL-u, 
FORTRAN-u, PASCAL-a. Z języków, 
posiadających implementację na 
PC/XT, kolejne to: MODULA-2 LOGO. 
PORTH. Do tworzenia oprogramowa- 
nia w języku procesora służy MACRO 
ASSEMBLER. Istnieje wiele progra- 
mów wspomagających tworzenie 
oprogramowania użytkowego, są to edy- 
tory czy programy, jak np. SIDEKICK. 
na stałe rezydujące po ich wpisaniu do 
pamięci operacyjnej, a służące do pod- 
ręcznych kalkulacji i notatek. 

Istnieje wiele zintegrowanych pakie- 
tów programowych, umożliwiających 
całą gamę zastosować PC/XT — za- 
czynając od komputerowego wspoma- 

► 
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gania projektowania inżynierskiego 
(CAE — Computer Aided Engineering 
czy CAD — Computer Adided Desing). 
wspomagania produkcji, a kończąc na 
programach do prowadzenia ewidencji 
i statystyk w gabinetach lekarskich, czy 
obsługujących zawody sportowe. 

Wśród programów wspomagających 
projektowanie warto wymienić: sam — 
ARTWORK. program umożliwiający 
projektowanie dwustronnych płytek 
elektronicznych — przykładowe wyd- 
ruki przedstawiono na rys 1 i rys. 2. 
ANALOP i NODAL. programy do anali- 
zy obwodów mikrofalowych. Do obli- 
czeń całek lub rozwiązywania równań 
różniczkowych może posłużyć mu — 
SIMP (mu - MATH). 

Inna grupa to programy typu baza 
danych, wśród nich: DBASE II. DBASE 
III, RBASE 4000 lub im podobne, takie 
jak: SYMPHONY czy LOTUS. 

Następna grupa to programy służą- 
ce do edycji tekstów np WORDSTAR i 
WORDSTAR 2000 + (do pracy w sieci) 
lub programy wspomagające sporzą- 
dzanie dokumentacji technicznej. 

Kolejna grupa to programy graficzne, 
takie jak: ACAD. PAINT BRUSH. GEM. 
ENERGRAPHICS, 3 DESIGN 

Tak w skrócie wygląda najważniej- 
sza. dostępna dla autora, część opro- 
gramowania mikrokomputerów IBM 
PC/XT. Oczywiście zgodnie z zasadą 
„kompatybilności w górę" większość 
programów mg- ■? pracować na wersji 
PC/AT i prawdopodobnie na PC/RT. 
Wersja IBM PC/RT. dopiero po opra- 
cowaniu nowego oprogramowania, 
zdecydowanie zwielokrotni swoje moż- 
liwości w stosunku do modeli XT i AT. 




Rys.l i 2 — Przykładowe wydruki płytek elektronicznych projektowane za pomocą 
programu SM-ARTWORK. (Skala 1:2) 



Nie powinniśmy zapomnieć, że mik- 
rokomputery IBM PC nie mogłyby zna- 
leźć zastosowań profesjonalnych bez 
odpowiednich urządzeń graficznych, 
takich jak drukarki matrycowe czy plot- 
tery. służące do sporządzania rysun- 
ków. wykresów itp. 


Do charakterystyki oprogramowania 
będziemy wracać w kolejnych nume- 
rach. natomiast w następnym numerze 
„IKS-a" poznamy architekturę mikro- 
komputera IBM PC/XT. 

(sierpień 1986 r.) 

Jacek WOJTALA 



Z listów do redakcji wy- 
nika, że „IKS-a” czytają: 
uczniowie, studenci i spe- 
cjaliści — krótko: „IKS-a” 
czytają Ci, których łączy 
jedna wspólna cecha: cie- 
kawość (Co komputer mo- 
że? Jak działa? Jaki bę- 
dzie?...). 

Wychodząc naprzeciw tym, któ- 
rym nie wystarcza „tylko palcowa- 
nie" rozpoczynamy nowy dział. 

Mikrorecenzje będą opisami ksią- 
żek nadesłanych nam. Zaczynamy 
od Wydawnictw Komunikacji i Łą- 
czności. 

1) „24 proste układy elektroni- 
czne do samodzielnego wykonania". 

(cena 200 zł). Poziom hobbysty-maj- 
sterkowicza. Para autorska: Maria 
i Wojciech Nowakowscy szczegó- 
łowo opisują domowe urządzenia 


elektroniczne: alarm włamaniowy, in- 
terkom, minutnik... zasilacz do akumu- 
latorów 



Autorzy bardziej niz zwiyzic oplują 

zalety urządzeń, natomiast bardziej niż 
dokładnie konstrukcję, a w szczegól- 
ności nowoczesną technologię (świa- 
dectwem ich dokładności jest powtó- 
rzenie na końcu rysunków obwodów 
drukowanych w skali 1:1) 


2) „PL/I dla inżynierów" 

„Elektronizacja — przewodnik zawo- 
dowy (zeszyt 22) autorstwa Jana Bie- 
leckiego — przeznaczony jest jedynie 
dla profesjonalistów PL/I zdobywa so- 
bie coraz więcej użytkowników. W 
Polsce pojawił się wraz z komputerem 
IBM/369/379 i systemem RIAD. który 
jako Jednolity System M C zdobywa 
sobie rynek krajów socjalistycznych. 

ciąg dalszy na sir. 31 
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TRADYCJA 
TO NASZ 
OBOWIĄZEK 


Rozmawiamy z dyrektorem Oddziału INTERNATIONAL 
COMPUTERS LIMITED w Polsce — JANEM J. KLUKIEM 


— Mówią o Was potentaci... 

Jan J. Kluk: — Kto mówi? 

— Fachowcy i Ci, dla których ICL 
oznacza po prostu dobry komputer. 

J.J. Kluk: — Na tę opinię pracujerrr, 
już ponad osiemdziesiąt lat. 

— I chyba nie tylko na nią. 

J.J.K.: — Jesteśmy obecnie największą 
brytyjską firmą komputerową, posia 
damy swoje oddziały w 80 krajach, na 
pięciu kontynentach. Zatrudniamy 
23 500 osób. a obroty firmy przekra 
czają miliard funtów rocznie. 

— W Polsce ICL obecny jest od 
20 lat — jakie są tego efekty? 

J.J.K.: — Dokładnie od 25 lat działa 
Biuro Handlowe ICL, a efektem jego 
pracy jest działanie ponad 400 instala 
cji systemów komputerowych ICL i ICL 
— pochodnych. 

— Całe zastępy polskich fachow- 
ców wychowały się na ODRACH. 


ICrsPCOuantn* 



Rodzina mikrokomputerów ICL PC se- 
rii OUATTRO+ obejmuje cztery modele 
M19, M39, M49. M59 różniące się poje- 
mnością pamięci zewnętrznej. Do jed- 
nostki centralnej ICL PC OUATTRO-t- 
można podłączyć jednocześnie cztery 
stanowiska (monitor monochromatyczny 
lub kolorowy, klawiatura, myszka). Mikro- 
komputery te mogą współpracować z 
drukarkami mozaikowymi, laserowymi I 
termicznymi, plotterami, czytnikami 
taSm, czytnikami kodów paskowych, ka- 
sami sklepowymi, modemami i innymi 
urządzeniami dołączanymi poprzez in- 
terfejs RS232C/Y24. OUATTRO+ pracu- 
je pod systemem operacyjnym Multluser 
Concurrent CP/M-86 3.1.8 lub Concur- 
rent DOS 4.1. Systemy te umożliwiają 
emulację MS-DOS — a to pozwala na 
realizację wielu programów z IBM PC. 


J.J.K.: — ODRA powstała na bazie ICL 
1900. I oczywiście w tym przypadku li 
czył się nie tylko osprzęt (hardware) 
ale równie bogate oprogramowanie 
i software). 

— Czy nie sądzi Pan, że właśnie 
ten pierwszy kontakt większości na- 
szych informatyków z ICL, powodu- 
je, że tak często decydują się w 
przyszłości na wasz sprzęt, który 
jednak nie poddał się światowemu 
standardowi IBMa? 

J.J.K.: — W interesach nikt nie kieruje 
się sentymentami. Jeśli na nasze sy 
stemy zdecydowały się stocznie w 
Gdańsku. Gdyni. Szczecinie i Ustce 
Huta im. Lenina. Zakłady Metalowe im 
Cegielskiego, banki, centrale handlu 
zagranicznego — lista ta jest oczywiś 
cie niepełna — i ciągle realizowane są 
nowe kontrakty, to nie z sentymentu — 
tu liczy się jakość. 


ICL CLAN jest 32-bltowym, szesnasto- 
stanowiskowym mikrokomputerem pra- 
cującym pod UNIXem. Trzy jego modele: 
35, 45 1 55 różnią się pojemnością pamię- 
ci zewnętrznej, ilością stanowisk, któro 
mogą obsłużyć I oczywiście ceną. Może 
współpracować podobnie jak PC 
OUATTRO z drukarkami mozaikowymi, 



— I co jeszcze? 

J.J.K.: — Nasze atuty to wiarygodność i 
elastyczność działania. Wymusza to 
stosowanie najnowszych technologii 
przy konstruowaniu sprzętu i tworzeniu 
oprogramowania, Musimy również bu- 
dować urządzenia kompatybilne za- 
równo z IBM. jak i ze sprzętem krajo- 
wym. takim jak na przykład ODRA. No- 
wy komputer ICL, nie może wprowa- 
dzać organizacyjnego zamieszania i 
nie może tworzyć sytuacji, w której 
działające dotychczas systemy infor- 
matyczne będzie trzeba przeprogra- 
mowywać. Poza tym coraz częściej 
proponujemy rozwiązania komplekso- 
we. T o znaczy sprzęt i specjalistyczne 

t 


termicznymi I laserowymi. System ope- 
racyjny zawiera ponad 150 programów 
standardowych realizujących między in- 
nymi: sortowanie, wyszukiwanie infor- 
macji. Oprogramowanie narzędziowe 
stanowią: język C, Fortran 77, SMC Ba- 
sic, SYS, Pascal, Level II Cobol. 
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oprogramowanie, takie jak systemy 
magazynowe czy finansowe w oparciu 
o komputery osobiste do wielkich sy- 
stemów komputerowych Serii 39. 

— Czy nie jest to zbyt optymisty- 
czne? 

J.J.K.: — Jeśli coś zwyczajnie nawali, a 
to choć rzadko, to przecież się zdarza, 
mamy serwis gwarancyjny, pogwaran- 
cyjny i niezłą kadrę specjalistów, W 
Polsce mamy również własny skład 
konsygnacyjny co znacznie ułatwia 
pracę. Poza tym nasz klient wie, że w 
przyszłości kupi u nas coś nowoczes- 
nego, utrzymanego w dotychczaso- 
wym standardzie. Nasze wyroby idą do 
przodu — nasi kontrahenci mają taką 
pewnęść. 

— Ale nie mają pewności, że bę- 
dzie ich na to stać. 

J.J.K.: — ICL nie jest przeznaczony dla 
amatorów. 

— Zawodowcy również nie za- 
wsze mogą sobie pozwolić na takie 
inwestycje. 

J.J.K.: — Zdajemy sobie z tego sprawę 

— I co? 

J.J.K.: — I coraz częściej musimy dbać 


o to. aby nasz potencjalny klient miał za 
co nas kupić. To jest cena utrzymania 
się na tym rynku. Pracownicy naszego 
biura muszą poszukiwać towarów, któ- 
re dadzą się sprzedać w drugim obsza- 
rze. 

— Tymczasem coraz więcej firm 
decyduje się na popularny sprzęt 
tańszy od ICLa. 

J.J.K.; — Ale me są to rozwiązania 
kompleksowe. Obecnie np. AMSTRAD 
to rozwiązanie doraźne. Nie dorównuje 
nam ani sprzętowo, ani programowo 
Jest jedynie tańszy. 

— I to jest argument. 

J.J.K.: — Przynajmniej na razie. Na Za- 
chodzie firmy przeszły już przez ten 
etap. Tam dobre są jedynie rozwiąza- 
nia takie jakie my proponujemy Przez 
Polskę przechodzi fala masowej kom- 
puteryzacji. ale są to głównie zastoso- 
wania indywidualne. Ludzie kupują 
sprzęt dlatego, że mogą go kupić — a 
nie z konieczności wprowadzania in- 
formatyki. Komputer w domu to roz- 
rywka. Ale kiedy trzeba będzie na- 
prawdę stosować informatykę po- 
trzebny będzie lepszy sprzęt. 


— Zatem uważa Pan, że i tak do 
ICLa wrócą? 

J.J.K.: — Nie chcę być zarozumiały ale 
uważam, że tak. 

— Co Pan im zaproponuje? 

J.J.K.. — To zależy oczywiście od za- 
stosowania. Dziś proponujemy ICL — 
Clan — 1 6-stanowiskowy mikrokompu- 
ter pracujący pod systemem operacyj- 
nym UNIX. PC Ouattro — jedno- lub 
wielostanowiskowe i najnowocześniej- 
szy nasz wyrób — DRS 300. 

— Nie wszystko to jednak może 
trafić na nasz rynek... 

J.J.K.: — Funkcjonują jeszcze zakazy 

— konsekwencje amerykańskiego 
embarga. Dotyczy ono między innymi 
komputerów o pojemności pamięci 
większej 2.4 Mb. ICL próbuje walczyć 
w Waszyngtonie o zniesienie tych 
ograniczeń. To leży w naszym interesie 

— przecież tradycyjnie gwarantujemy 
klientom najwyższy poziom — to nasz 
obowiązek. 

— Dziękuję za rozmowę. 
Rozmawiał: Wiesław CETERA 


Po raz drugi ACPOL zorganizował międzynarodową wystawę „Home Office Per- 
sonal Computer 1987”. W dniach 10 — 13 lutego br. w Pałacu Kultury i Nauki w War- 
szawie 70 wystawców z 11 krajów zaprezentowało największą w krajach RWPG 
ekspozycję techniki komputerowej. Mimo że wystawa miała charakter handlowy i 
była przeznaczona dla specjalistów, cieszyła się ogromnym powodzeniem wśród 
wszystkich zwiedzających. 

Tym, którzy nie mogli zapoznać się z wystawą „Komputer *87”, dedykujemy na- 
sze rozmowy i spostrzeżenia zobrazowane błyskiem flesza. 



Na ekranie 
„Komputera’87” 


niż za pieniądze. Współpracujemy z 
zakładami elektronicznymi w Związ- 
ku Radzieckim. MRAMOR powstał 
właśnie z tej kooperacji. Pod tym 
kryptonimem kryje się system kom- 
puterowego składu i łamania gazety. I 
będziemy to produkować. Projektem 
interesuje się redakcja dziennika 
..Prawda”. 


„Prawda” łamana kompute- 
rowo... 

MERA-BŁONIE 
Krzysztof Woliński 

— To przyszłość, miejmy nadzieję, 
że niedaleka. Obecnie w naszej pro- 
dukcji dominują drukarki. Po odpo- 
wiednim przystosowaniu mogą 
współpracować ze Spectrum, z 
Commodore i Atari. Mamy kłopoty z 
tzw. wsadem dewizowym. Dlatego 
też nasza produkcja nie przekracza 30 
tys. sztuk rocznie. Drukarki prezentu- 
ją przyzwoity europejski poziom. Po- 
nad 80 proc. jest wysyłane na eksport. 
W kraju łatwiej dostać je np. za lepik, 
(jeśli akurat jest potrzebny zakładowi ) 
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„Krówki”... i mikroprocesory... 
ALMA — Przedsiębiorstwo Polo- 
nijno-Zagraniczne Zakład Pro- 
dukcji i Oprogramowania Syste- 
mów Komputerowych 
Wojciech Lipko 

— Handlujemy słodyczami, ale na- 
sza oferta obejmuje również kompu- 
terowe systemy użytkowe dla szkół i 
zakładów pracy. Dlaczego aż taka du- 
ża rozpiętość — od cukierka po mik- 
roprocesor ? Za dolary zdobyte na 
eksporcie łakoci możemy kupić po- 
trzebny sprzęt I części w dalekiej Azji. 
Komputery montujemy w Polsce, 
tworząc na ich bazie sieci lokalne i 
wielodostępne. Oferujemy systemy 
przetwarzania informacji dotyczące 
gospodarki magazynowej oraz 
wspomagania prac biurowych. Na- 
szym klientom proponujemy sprzęt i 
usługi w granicach od 4 do 8 milio- 
nów złotych. Wszystko zależy od 
wielkości zamówienia i zakresu wy- 
konywanych prac. Doradzamy, szko- 
limy obsługi, wykonujemy projekty 
techniczne i oprogramowanie. Mamy 
własny serwis. Ceny umowne. 

Chcemy wtargnąć do 
szkół... 

ACORN 

Komputerowa firma angielska 
M. Neugarten 

— Firma w Polsce pojawiła się... w 
grudniu 1986 roku. Zdążyła się już za- 
aklimatyzować na Śląsku. Na wysta- 
wie prezentuje komputery Master 
128 i Compact 128. Jest to jedyna eks- 
pozycja ogólnodostępna dla zwiedza- 
jących (dzieci tłuką w klawiaturę kil- 
ku komputerów od rana do wieczo- 
ra). Ciekawostka, jaką po raz pierwszy 


Fotografował: Jan Zelman 

prezentujemy, to płyta wizyjna z od- 
czytem laserowym. Obraz Anglii 
przedstawiono w postaci 200 tys. fo- 
tografii, planów i schematów oraz 150 
tys. stron tekstu. A wszystko to na 
jednej niewielkiej lśniącej płycie. Wy- 
szukiwanie informacji trwa sekundy. 

Nasze komputery można porów- 
nywać do wyrobów tak znanej firmy 
jak Amstrad. Nie przegrywają w tej 
rywalizacji, raczej są lepsze. W Anglii 
jesteśmy najlepsi w produkcji kompu- 
terów edukacyjnych. Zrobimy 
wszystko, aby jak najszybciej pojawiły 
się w polskich szkołach. 


Nie musimy się 
reklamować... 

CERPOL 

Przedsiębiorstwo Polonijno- 

-Zagraniczne 

Marek Siwiński 

— Nasza oferta jest obszerna. 


jachtów pełnomorskich, jak i elek- 
tronikę dla rolnictwa. Współpracu- 
jemy z ośrodkami naukowymi we 
Wrocławiu i Gdańsku. Największym 
sukcesem firmy jest opracowanie sy- 
stemu METEOSAD, w którym dane 
meteorologiczne określa się za po- 
mocą satelity. Zajmujemy się również 
komputeryzacją w przedsiębior- 
stwach. Dotyczy to takich działów jak 
gospodarka magazynowa, finanse, 
kadry itp. Ofert jest coraz więcej. 


Komputery wyciskane z po- 
rzeczek... 

INTECRATED MICRO COMPU- 
TERSETS 

Szwajcarska Spółka Akcyjna 
Elżbieta Duchowicz 


— Handlujemy w zasadzie dużymi 
komputerami profesjonalnymi. Na 
polski rynek staramy się dostarczyć 
najnowsze konstrukcje, m.in. posia- 
damy licencje sprzedaży Fortune Sy- 
stem (komputery 32- i 16-bitowe). 
Współpracujemy tylko z przedsię- 
biorstwami państwowymi, wymienia- 
jąc towar za towar. Wiele firm patrzy- 
ło na nas z politowaniem, gdy kom- 
putery wymienialiśmy na soki po- 
rzeczkowe. Po pomyślnym zrealizo- 
waniu przez nas tego typu umowy, 
inni też rozglądają się z? podobnymi 
kontraktami. Przełamaliśmy pewien 
stereotyp myślenia. Uważam to za 
swój osobisty sukces. Chcemy rozsze- 
rzyć listę towarów, które można wy- 
mieniać na komputery. Jestem pełna 
optymizmu i wierzę, że pomogą 
skomputeryzować kraj, w którym się 
urodziłam. 

Notował: 

Rvc7arfł Rnr.nśj 
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KOMPUTER ‘87 


Początek byt nieciekawy 


ale w miarę przybywania 

eksponatów 

...było na co popatrzeć 


...wykorzystać do 
pracy, zabawy a 
przede wszystkim 
...porozmawiać z 
przedstawicielami 
firm, uzgodnić 
warunki 
i... kupić! 


Tekst i foto: 
Ryszard Rogoń 






UDAWANIE 

RZECZYWISTOŚCI 

S YMULACJA jest jedną z ważniejszych i ciekaw- 
szych możliwości wykorzystania mikrokomputera. 
Pozwala ona na przeanalizowanie zjawisk, które w 
rzeczywistym systemie przebiegają zbyt szybko lub wolno 
lub też wtedy, kiedy eksperymentowanie z rzeczywistym 
systemem byłoby zbyt kosztowne, niebezpieczne czy w 
ogóle niemożliwe (np. niemożliwe jest dowolne kształtowa- 
nie podaży i popytu w rzeczywistym systemie ekonomi- 
cznym, co łatwo można wykonać przy pracy z modelem; 
względy moralne uniemożliwiają manipulowanie mózgiem 
człowieka, natomiast eksperymentowanie z modelem nie 
stwarza takich ograniczeń). Ponadto komputerowe ekspe- 
rymenty są całkowicie niedestrukcyjne (nie niszczą sy- 
stemu rzeczywistego), zapewniają powtarzalność i umoż- 
liwiają łatwą zmianę parametrów modelu. 

Aby przeprowadzić symulację należy skonstruować mo- 
del systemu rzeczywistego Proces konstruowania mo- 
delu nazywamy modelowaniem Pojęcie „modelowanie i 
symulacja" oznacza zespół działań związanych z kons- 
truowaniem modelu systemu rzeczywistego i symulowania 
go na komputerze. Z definicji tej wynika, że możemy wyró- 
żnić trzy elementy; system rzeczywisty, model i komputer 
oraz dwie relacje pomiędzy tymi elementami: modelowanie 
i symulację. Związek ten przedstawiony jest na rys. 1 . 



Systemem rzeczywistym nazywamy interesującą nas 
część świata rzeczywistego. 

Modelem jest zbiór informacji o systemie zebranych w 
celu jego zbadania. Model powinien nie tylko odtwarzać 
zaobserwowaną reakcję systemu rzeczywistego, ale rów- 
nież wiernie odzwierciedlać sposób powstawania tej reak- 
cji w systemie rzeczywistym. Jest to postulat tzw. zasad- 
ności strukturalnej modelu. 

Istnieje kilka klasyfikacji modeli. Najważniejszfe z nich 
związane są: 

— z podstawą czasu, w której występują zdarzenia (mode- 
le ciągłe w czasie, modele dyskretne w czasie); 

— z zakresami wartości przyjmowanych przez zmienne 
opisowe (modele ciągłe w stanie, modele dyskretne w sta- 
nie); 

— ze zmiennymi losowymi (modele determinityczne, mo- 
dele stochastyczne). 

— Model jest ciągły w czasie, jeżeli opis czasu dokonuje 
się w sposób ciągły, tzn. zegar czasu modelu zwiększa 
swoją wartość o stałe przyrosty. 

— Model jest dyskretny w czasie, jeżeli czas płynie sko- 
kowo, tzn. zegar czasu modelu zwiększa się okresowo o 
różne wielokrotności umownej jednostki czasu. 
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— Model jest ciągły w stanie jeżeli jego zmienne przyj- 
mują wartości z pewnego przedziału liczb rzeczywistych 
(zmieniają się w sposób ciągły). 

— Model jest dyskretny w stanie, jeżeli jego zmienne 
przyjmują wartości dyskretne. 

— Model nazywamy deterministycznym, jeżeli w jego 
opisie nie występują zmienne; w przeciwnym przypadku 
model nazywamy stochastycznym lub probabilistycznym. 

W niniejszym artykule przedstawiony zostanie prosty 
przykład symulacji rozwoju społeczeństwa. Jest to model 
deterministyczny, ciągły w czasie i dyskretny w stanie. De- 
terminizm tego modelu polega na tym, że prawa rozwoju 
społeczeństwa opisane są ścisłymi matematycznymi for- 
mułami. bez zmiennych losowych 
Załóżmy, że w pewnym małym społeczeństwie struktura 
ludności jest następująca 

******************************** 
♦grupa* wiek * Liczba osób* 
******************************** 

* R * 0-19 * 4000 * 


B 

* 

i 

ID 1 
© l 
i 1 1 
W 1 
1 10 1 
1 1 

* 

3600 

C 

* 

40-59 

* 

3100 


* D *60 i wiecej* 2450 *. 

******************************** 


Przyjmijmy również, że wskaźniki śmiertelności i repro- 
dukcji w okresach dwudziestoletnich dla każdej z grup wy- 
noszą 


******************************* 
*grupa* wiek *us (%) *UR (/.) * 
******************************* 

* fl * 0-19 * 5 * 32 * 

* B * 20-39 * 12 * 67 * 

* C * 40-59 * 18 * 1 * 

* D *60 i wiecej* 80 * 0 * 

******************************* 


us-wskaźnik śmiertelności 


UR-wskaźnik reprodukcji 


Na podstawie takiego systemu rzeczywistego można 
łatwo skonstruować model matematyczny Model ten opi- 
suje w postaci czterech równań liczbę ludności w posz- 
czególnych grupach w kolejnych okresach czasowych, 
n=1', 2, 3, ... N. Przyjmujemy czas trwania jednego cyklu 
20 lat. 

Równanie (1)-r(4) tworzą matematyczny model syste- 
mu. 


1 ) A n +i = 0.32 A„ + 0.67 B„ + 0.01 C„ 

(liczba narodzin, czyli liczba osób, które w następ- 
nym cyklu zasilą grupę A) 

2) B n +i = 0.95 A n 

(95% populacji z grupy A przeżywa i przechodzi do 
grupy B) 


3) Cn+i = 0.88 Bo 

(88% populacji z grupy B przeżywa i przechodzi do 
grupy C) 


4) D nł1 =0.82 C„ + 0.2 Dn 

(82% populacji z grupy C przeżywa i przechodzi do 
grupy D, ponadto 20% populacji grupy D przeżywa 
do następnego cyklu. tj. więcej niż 20 lat). 

Warunki początkowe w chwili T =0 są następujące: 

A 0 = 4000. Bo = 3600, Co = 3100. D 0 = 2450 



2995| 

3000 

7;"Symulacja dynamiki": PRINT fl 
11 , 0; "rozwoju społeczeństwa w 
zadanej": print rt 14 , 0 , "ilości 
cyKli dwudziestoletnich.": BRIG 
HT 0: BEEP .5,10: GO SUB 3500 
3020 OLS : BRIGHT 1: PRINT RT 0, 
2; "Załóżmy , ze struktura wieku" 
: PRINT RT 2,2; "pewnego małego s 
połeczeństwa" : PRINT RT 4,2, "jes 
t następująca (model de-'’: PRIN 
T RT 6,8; "terministyczny) : " : BRI 
GMT 0 

3025 PRINT RT 8,0;"#************ 
*******************": PRINT RT 9 
,0;"*9rupa* wiek • liczba o 
sób*": PRINT RT 10 , 0 ;"*«*»***** * 
**********************" 

3030 PRINT RT 11,0; "ł R * 0 


NT RT 8, 
PRINT RT 


-19 

12,0; 


4000*''" 

#“ : 

PRINT 

RT 

•#" 





3035 

PRINT 

RT 13,0; 

" « 

B * 

20 

-39 

14,0, 

* 

3600 

#" : 

PRINT 

RT 







3040 

PRINT 

RT 15,0; 

" * 

C * 

40 

-59 

16,0; 

* 

3100 

#" : 

PRINT 

RT 







3045 PRINT RT 17,0; "ł O *60 i 
wieęej* 2450 *": PRINT RT 

18,0; ******************** ****** 
*♦*»**" 

3050 GO SUB 3500 

3055 CLS : PRINT RT 1,0;" Załóż 
my, że zdolność do repro-": prin 
T RT 2,0;"dukcji i śmiertelność 
w okresie": PRINT RT 3,0;"20-le 
tnim dla każdej z grup wy-" 

3060 PRINT RT 4,0; "nosi (w W. w 
Odniesieniu do li-": PRINT RT 5 
,0;" M Czby ludności z danej grup 

S 085 PRINT RT 8,0; "************* 
******************": PRINT RT 9, 
0; "tgrupa* wiek *US (Vt> *UR CC 
)*": PRINT RT 10,0;"************ 
*******************" 

3070 PRINT RT 11,0;"* R • 0 

-19 * 5 * 32 *": PRINT RT 1 

2,0; "* B * 20-39 * 12 * 6 

7 t": PRINT RT 13,0;"* C * 

40-59 * 18 * 1 *" 

3075 PRINT RT 14,0;"* O *60 i 
wiece j* 80 *0 *": PRINT RT 1 

5,0;"*************************** 
****" 

3080 PRINT BRIGHT 1;RT 17,4; "US- 
wskażnik umieralności": PRINT BR 
IGMT l; RT 19 , 4; "UR-wskaźn i k rep 
rodukc " 

3085 “ 

31201 
3130 
3140 
31501 
3160 
3170 
3ir 

DRTR :3Ś“Ś7::ll,0 
3210 BEEP .5,10: OLS : PRINT RT 
9,2; "Synu lac ja może być przeprow 
- ": PRINT RT ll,2;"dzona dla n 
kii dwudziesto-": PRINT RT 13, 

; " le tni ch . " : PRINT RT 17,3; BR 

IGMT 1; "Podaj żądaną liczbą cykl 

3212 INPUT " n»";- LI 

NE n*: LET l*LEN-n*: IF 1-0 THEN 
GO TO 3212 

3214 FOR i«l TO l: IF n»(i)>»"0" 
RND n*(i)< = "9." TMEN NEXT i: LET 
n.URL n»; GO TO 3220 



if 


3216 GO TO 3212 

3220 IF n < *0 THEN GO TO 3212 

3230 LET t«0 

3250 BEEP .5,10: CLS : PRINT RT 

0 , 0 ; 

: PRINT RT 1,0; " Icyk l I 0-1 

9 120-39 140-591 60+ I": PRINT fl 
T 2,0;" " 

3270 PRINT " I" ; TRB (4-LEN (STR* 
t));t;TRB 5; " 1 " ; TRB 7; a ; TRB 12;" 
l",TRB 14; b; TRB 19; " i' 1 ; TRB 21; c; 
TRB 25; " I '* ;TRB 27;d;TflB 31; " I A 
3275 IF a =0 RND b=0 RND C «0 RND 

d*0 TMEN PRINT 

: BEEP .8,0: PR 

USE 50: GO SUB 3500: CLS : PRINT 
BRIGHT 1; RT 12 , 5, "Spo t e czerts two 
wymarto": GO SUB 3500: GO TO 34 
50 

3280 IF t>*n THEN GO TO 3360 
3290 LET alsbl*a+b2*b+b3*C+b4*d 
3300 LET d sINT (<l-d3>*c) 

3310 LET C»INT ( ( l-d2) *b) 

3320 LET b = INT t(l-dl)*a> 

3330 LET a <=INT al 
3340 LET t=t+l 
3350 GO TO 3270 

3360 PRINT 

: PRINT : BEEP .8,1 

0: GO SUB 3500 
3370 GO TO 3450 

3450 RESTORE : CLS : PRINT RT 13 
,8; BRIGHT l; "Koniec symulacji": 
BEEP .8,10: GO SUB 3500: GO TO 
3000 

35B0 MaiM-rawja.i*ii'ii 

3S0S“fil7mffT RT TT 4 ; BRIGHT 1; 
FLRSH l;"Naciśnij dowolny klawls 
Z": PRUSE 0: RETURN 

Przedstawiony program napisany w języku 
BASIC na ZX Spectrum pozwala na przeprowa- 
dzenie symulacji dla dowolnie długiego okresu. 
Instrukcje 3000 4 - 3085 służą do wydrukowania 
Informacji ogólnych o problemie I mogą zostać 
pominięte. Użytkownik ma możliwość zmiany pa- 
rametrów modelu społeczeństwa: 

(a) początkowej struktury ludności (instrukcja 
DATA w linii 3140); 

(b) wskaźników śmiertelności (instrukcja DATA 
w linii 3170); 

(c) wskaźników urodzeń (instrukcja DATA w linii 
3200). 

W ten sposób można przeprowadzić prognozy 
demograficzne dla różnych wartości poszcze- 
gólnych parametrów modelu. Dla parametrów 
podanych w artykule otrzymujemy następujący 
przebieg symulacji: 


1 cy K U 

0-19 

120-39 

140-591 

60+ 1 

1 0 1 

4000 

1 3600 

1 31001 

2450 1 

1 1 1 

3723 

1 3800 

1 31681 

25411 

• 1 2 1 

3769 

1 3536 

1 3344 1 

2597 1 

1 3 1 

3606 

1 3580 

1 31111 

2742 1 

1 4 1 

3584 

1 3427 

1 31501 

25511 

1 5 1 

3474 

1 3404 

1 30151 

2582 1 

1 6 1 

3422 

1 3300 

1 29951 

2472 1 

1 7 1 

3335 

1 3250 

1 29041 

2455 1 

1 8 1 

3273 

1 3168 

1 28601 

23811 

1 9 1 

3198 

1 3109 

1 27871 

2345 1 

1 10 1 

3134 

1 3038 

1 27351 

2285 1 

1 11 1 

3065 

1 2977 

1 26731 

2242 1 

1 12 1 

3002 

1 2911 

1 26191 

2191 1 

1 13 1 

2937 

1 2851 

1 25611 

2147 1 

1 14 1 

2875 

1 2790 

1 25081 

2100 1 

1 15 1 

2814 

1 2731 

1 24551 

2056 1 

1 16 1 

2754 

1 2673 

1 24031 

2013 1 

1 17 1 

2696 

1 2616 

1 23521 

1970 1 


Dokładniejszy model można uzyskać, przyjmując 
krótszy czas trwania jednego cyklu, np. 5 lat. 

Janusz MORBITZER 
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Cztery lata temu pojawiła sie 
Hercules do mikrokomputera IBM 


HERCULES 
na 
PC 


PLUS 

rynku karta graficzna firmy 
ktdra w krótkim czasie stała 


Sie Światowym standardem . Karta HkRCULES posiada dwa tryby pracy: 

charakteryzuje sie duża 
graficzny 
do przetwarzania tekstów 
Nowy produkt firmy , karta HERCULES PLUS, posiada 
dodatkowy , trzeci tryb pracy RAMFont 

e £' 

definiowanie 3072 znaków 


tekstowy i graficzny . Tryb tekstowy 
szybkoScia , lecz ograniczony jest do 236 
pozwala na dowolna liczbę znaków , ale 
Jest zbyt wolny 
dodatkowy , trzi 
trybu tekstowego z elas 


znaków . Tryb 
pr: 

HE i 

pracy RAMFont . Łączy on w sobie sźybkoSó 
itycznoScia trybu "graficznego i umożliwia 
o różnej szerokości i wysokości . Prace 
nad nowa karta trwały dwa lata Głównym ich celem było 

zaprojektowanie procesora V112 . Cena karty HERCULES PLUS 299 S . 

TANDY 102 

YAoma TANDY wypnodukowaZa nayy 
mAknokamftuAea. fytzenoóny , ozna- 
czony oymboCem roz . TooAada on 
8 -bAAowy 80C88 , 

pnacujacy Z czeoAoAAAMOÓcAa 
a, 4 HHz , pomieć zopioywoCna 
‘ OAcCZa 3 


■i pomieć 


TAAfJHJ loa poóioda wokaZnik na 
ciekłych kayozAaZach LCD , poz- 
watajacy na pnące : w Aaybie 
aAfammanycznym w 8 /Ankach ' 
po 8 o znaków , w gnaficznym 
340 x 64 znaki adneoowane bez - 
poónednio . ĄUknokomptiAen. po- 
kCawiaAune QVERTY , ZCa - 


aAada 

zona z 56 kCawiozy , nozbiudawct- 
na o 8 kCawiozy funkcyjnych 
TANDY wyposażany jeoA w ponA 
ozenegowy RS — 333 -i aównotegZy 
onaZ AnAenfejd do magneiofonu 

A modemu . Zsinieje m ozdwoóć podZacZenAa pnzenoónej siacji dysków 
A nozszenzenia fcMł-u o 8 KB. Cena TANDY ios wynosA 299 *. 



COHPAQ DESKPRO 386 

DESKPRO 386 jest komputerem osobistym kompatybilnym z IBM PC 
Zastosowano w nim 32-bitowy 
z częstotliwością 16 MHz 

walna RAM o pojemności do 14 MB . V mikrokomputerze 
kartę graficzna EGA . DESKPRO 386 posiada stacje dysków elastycz - 
nych 3 cala o gestorici zapisu 1,2 MB . Mikrokomputer może mieó 

dysk stały 40 MB lub 130 MB . DESKPRO wyposażono w dyskowy system 
operacyjny DOS firmy MikroSofi . Cena mikrokomputera DESKPRO 386 
z dyskiem stałym 130 MB wynosi 9 000 Ł . 


STATGRAPHICS 

Zosi Ao nowy pakiei do Z&M TC pozc 
waAajacy na wizuaiizacje anadzo - 
wanych danych w fonmie ainakcyj - 
nych wyknesów A diagnamów . Zawiena 
pnocedun. z zaknesu anaCAZy 
negnesjA, anaCAZy danych ekspenymen- 
łaCnych onaz ana/Azy szenegów cza - 
sowych. Uspótpnaca z DBASEIII , LOTUS 
SYMPHONY , można wykoazysiywać zbiony 
ASCII . Cena 449 4 . 


opracowali : Jacek Wojtala i Mariusz Jarzębowski 


Wyszukiwanie informacji 
w zbiorze 


Wykorzystanie komputera do 
gromadzenia dużej ilości danych 
pociąga za sobą konieczność 
opracowania metod wyszuki- 
wania informacji w zbiorze. 

Wyszukiwanie odbywa się zazwyczaj 
wg pewnej wybranej cechy (lub cech) 
rekordu, np. nazwiska, tytułu książeczki 
czy numeru katalogowego. Cechę, wg 
której realizowane jest wyszukiwanie 
nazywamy deskryptorem lub klu- 
czem wyszukiwania. 

Zbiór, w którym wyszukujemy infor- 
macje może być uporządkowany wg 
kluczy (np. alfabetyc;" ■) lub nieupo- 
rządkowany. 

W zbiorze nieuporządkowanym je- 
dyną rozsądną strategią wyszukiwania 
informacji jest wyszukiwanie proste. 
Polega ono na sekwencyjnym przeglą- 
daniu zbioru (pobieraniu rekordów) i 
sprawdzaniu czy natrafiliśmy na żąda- 
ny rekord (klucz wyszukiwania zgodny 
z kluczem danego rekordu). 

Schemat blokowy takiego wyszuki- 
wania przedstawia rys. 1 : 

Powyższy schemat przedstawia sy- 
tuację, gdy wystarcza nam znalezienie 
lednego rekordu spełniającego okreś- 
lony warunek. Jeżeli takie rozwiązanie 
nas nie zadowala, należy sekwencyj- 
nie przeglądnąć wszystkie rekordy w 
zbiorze 

Pobranie |ednego rekordu ze zbioru 
w celu porównania jego klucza z klu- 
czem wyszukiwania nazywamy cy- 
klem. Oszacujmy średnią liczbę cykli 
niezbędną do odnalezienia informacji 
w zbiorze metodą wyszukiwania sek- 
wencyjnego. Niech N będzie liczbą re- 
kordów w zbiorze. W najlepszym razie 
poszukiwany rekord może być odnale- 
ziony w pierwszym cyklu, w najgorszym 
zaś — w ostatnim, czyli N-tym, Średnia 
liczba cykli wynosi więc 

C = (1 + N)/2 


Wadą wyszukiwania sekwencyjnego 
jest jego powolność, zaletą — oprócz 
prostoty — łatwość aktualizacji zbioru. 
Zbiór można uzupełniać nowymi rekor- 
dami. dopisując je na końcu lub w wol- 
ne miejsca; można też usuwać rekordy 
bez scalania zapisów zakładając, że 
przy wyszukiwaniu rekordy próste są po- 
mijane. 

Jeżeli znane jest uporządkowanie 
rekordów w zbiorze, możliwe jest zasto- 
sowanie szybszych metod wyszuki- 
wania informacji np. metody podziałów 
połówkowych, zwanej również metodą 
binarną. 

Wyszukiwanie binarne jest przykła- 
dem wyszukiwania dychotomlczne- 
go, tj. procesu, w którym każdy cykl 
wyszukiwania związany jest z podzia- 
łem zbioru na dwie części, z których 
jedna może być odrzucona. W meto- 
dzie tej porównywany jest z kluczem wy- 
szukiwania najpierw kluca rekordu 
środkowego. Jeżeli wartości kluczy są 
równe rekord został odnaleziony. Jeżeli 
wartość klucza rekordu jest większa od 
wartości klucza szukania, odrzucana 
jest dolna część zbioru, jeżeli jest ona 
mniejsza, odrzucana jest górna część 
zbioru. Odrzuconą część zbioru nazy- 
wany „martwą”, pozostałą zaś — „ży- 
wą”. Opisane postępowanie prowa- 
dzone jest z kolejnymi „żywymi" częś- 
ciami zbioru, aż do znalezienia rekordu 
lub stwierdzenia, że poszukiwanego 
rekordu nie ma w zbiorze (część „ży- 
wa" jest pusta). W każdym cyklu obszar 
poszukiwań zmniejszany jest o połowę 
względem poprzedniej jego objętości 
— stąd też wywodzi się nazwa metody. 


Program: 

Wyszukiwanie 

binarne 


Należy zwrócić uwagę, ze dokładniej 
rzecz ujmując w kolejnych cyklach 
zbiór zmniejszany jest nie o połowę, 
lecz o połowę — 1 , gdyż klucz rekordu 
środkowego był już sprawdzony i w 
dalszych działaniach może zostać po- 
minięty. Liczba cykli potrzebna do zna- 
lezienia rekordu wynosi (dla źbioru o N 
rekordach) log 2 N < c < 1 + łog 2 N 

Stosowanie metody binarnej jest 
opłacalne przy większych zbiorach; dla 
małych zbiorów szybszą może się oka- 
zać metoda wyszukiwania sekwencyj- 
nego (należy wziąć również pod uwagę 
koszt czasowy określenia kolejnego 
rekordu do sprawdzenia, który jest du- 
żo większy w metodzie binarnej oraz 
koszt utrzymania rekordów w stanie 
uporządkowania). Przykładowo, znale- 
zienie rekordu w zbiorze liczącym 1 000 
rekordów metodą wyszukiwania sek- 
wencyjnego wymaga średnio 500 cykli, 
podczas gdy zastosowanie metody 
wyszukiwania binarnego — tylko 9 do 
1 0 cykli. Poniżej przedstawiony został 
napisany w języku BASIC dla ZX 
Spectrum algorytm realizujący wyszu- 
kiwanie binarne. 

Zaletą tego algorytmu jest to, że mo- 
że on być używany nie tylko do wyszu- 
kiwania rekordów, ale również do sor- 
towania zbioru, przy czym sortowanie 
odbywa się bezpośrednio po wprowa- 
dzeniu nowego rekordu tzn. rekordy 
zapisywane są od razu we właściwym 
miejscu. Sortowanie takie odbywa się 
szybko. Wykorzystana jest tu naturalna 
inercja człowieka przy wprowadzaniu 
kolejnych rekordów (wprowadzanie re- 
kordów przeplata się z ich sortowa- 
niem). Metoda taka pozwala na uni- 
knięcie dłuższego oczekiwania na po- 
sortowanie zbioru, jakie występuje przy 
tradycyjnym układzie: wprowadzenie 
wszystkich rekordów — sortowanie ca- 
łości. 

Janusz MORBITZER 
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Maaaa; 

110 LET pal: LET K =n 

120 IF ( k -p ) > =0 ThEN GO TO 150 
130 IF gaz x e =1 ThEN LET poza*: 
RETURN 

14-0 PKINT "Brak rekordu!": 
PhUSE 100: RETURN 
150 i_ET »al + INT ( ip+fc-l) /2) 

1Ó0 IF a* '.ui , Tu ai=w$ ThEN lEi 
P o z =fo : PRINT "Zna tez i ono 
rekord" : RETURN 

170 IF a $ Ul , Tu di (W$ THEN LET 
paffi + 1: GO TO 120 
1 s 0 LET Kalli -1: GO TO 120 

190 | 
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Sztuki i sztuczki (5) 


Żmienne systemowe 
ROM Spectrum 


ATRYBUTY 


BORDCR 

23624 

ATTR — P 

23693 

ATTR— T 

23695 

MASK-P 

23694 

MASK-T 

23696 

P— FLAG 

23697 

K-DATA 

23565 

TYDATA 

23566 

Atrybuty ekranu to przede wszystkim kolory, ale niektó- 

rzy rozszerzają to pojęcie i wyróżniają: 

INK 

— kolor atramentu, czyli liter i punktów; 

PAPER 

— kolor tła; 

BRIGHT 

— tryb rozjaśniający kolory; 

FLASH 

— tryb cyklicznej wymiany kolorów atramen- 
tu i tła powodujący efekt migania. 

INVERSE 

— tryb zamiany kolorów atramentu i tła; 

OVER 

— tryb nakładania punktu na punkt powo- 
dujący jego zniknięcie (1 XOR 1 = 0) 


Kolory podstawowe (INK, PAPER) skojarzone są z polem 
tekstowym, co oznacza, że znak na ekranie może posiadać 
tylko jedną wartość atramentu i tła. Rodzi to wiele kłopotów 
głównie w trybie graficznym. 

Obszar atrybutów ekranu zajmuje tylko 768 bajtów (ad- 
resy 22528... 23295). Każdy bajt składa się z ośmiu bitów: 


bit 

7 

6 

5 

4 

3 

2 

1 

0 

stan 

0 

0 

1 

1 

1 

0 

0 

0 

wartość 

128 

64 

32 

16 

8 

4 

2 

1 


Bity 0, 1 , 2 określają INK, bity 3, 4, 5, PAPER, bit 6 odpo- 
wiada za BRIGHT, a bit 7 za FLASH w danym polu teksto- 
wym. W przykładzie powyższym zawartość bajtu wynosi 
56, co oznacza PAPER 7, INK 0. 

W Spectrum występują dwa pojęcia atrybutu — główny i 
tymczasowy. Jeśli podamy instrukcję np. PAPER 4 INK 7: 
CLS ustalamy atrybut główny, jeśli zaś. PLOT PAPER 1 , 
INK 6; 10, 10 ustawiamy tymczasowy dla jednej instrukcji. 

Atrybut główny trzyma zmienna ATTR P. tymczasowy — 
ATTR— T. Pozostałe tryby (INVERSE, OVER) przechowy- 
wane są w P— FLAG w następującej konfiguracji: 


bit 


znaczenie 


0 

! OVER tymczasowy 

1 

i OVER główny 

2 

! INVERSE tymczasowy 

3 

! INVERSE główny 

4 

1 INK 9 tymczasowy 

5 

! INK 9 główny 

6 

i PAPER 9 tymczasowy 

7 

! PAPER 9 główny 


Tryb 9 atramentu lub tła określa wydruk w kontrastowym 
kolorze niezależnie od stanu atrybutu głównego. 

Stan atrybutów podaje następujący program: 


9000 LET «-PEEK 23693 
9002 LET b-PEEK 23697 
9004 PRINT "FLASH "j*>127 
9006 LET «-«-128* (*>127) 

9008 PRINT "BRIGHT "|*>63 
9010 LET *“*-64« (a >63) 

9012 PRINT "PAPER "|INT <a/B>,CHR* (32+23* <b>127> > 
9014 LET b-to-128*(b>127> 

9016 PRINT "INK “|a-8*INT (a/B),CHR* (32+23* (b >31 > ) 
9018 LET b-b-32*(b>31> 

9020 PRINT " I NVERSE "|b>7 
9022 LET b-b-8*(b>7> 

9024 PRINT "OVER "|b>l 


Jeśli PAPER lub INK zostały wymuszone przez kontrast 
pojawia się przy nich cyfra 9. 

Tak się akurat składa, że BASIC zawiera wszystkie po- 
trzebne rozkazy dotyczące atrybutów, przez co wyszcze- 
gólnione na początku zmienne stosowane są głównie w ję- 
zyku wewnętrznym Mało wykorzystywaną właściwością 
Spectrum są tzw. atrybuty maskujące (lub przezroczyste) 
Ustawia się je komendami PAPER 8, INK 8, BRIGHT 8 i 
FLASH 8. Powodują zamaskowanie bitów odpowiedzial- 
nych za wyróżniony atrybut w pamięci ekranu, więc po wy- 
druku pozostaje on bez zmiany, „ósemki" przechowują 
zmienne MASK— P i MASK— T w podobny sposób, jak w 
ATTR— P Sprawdźmy te atrybuty 

10 LET a*="Każda litera jest widoczna ! " 
20 PAPER 7: INK 7: CLS: REM mgr a 
30 FOR a=22528 TO 22559 
40 POKE a,INT <RND*128> 

50 NEXT a: PAUSE O 
80 FOR a=l TO LEN a* 

90 PRINT a$ (a) ; 

110 PAUSE 10 
120 NEXT a 

Wydruk nastąpił, ale nic nie widać, gdyż atrament jest 
taki sam, jak tło. Zamaskujmy więc przypadkowe atrybuty, 
które wprowadziliśmy bezpośrednio do pamięci ekranu 
60 POKE 23694/127: REM PAPER 8, INK 8, BRIGHT 8 

Teraz wydruk jest widoczny! choć gdzieniegdzie słabo. 
Zależy to od stanu atrybutu w danym polu. Dodajmy kon- 
trastowy INK 

70POKE 23697, 32 REM INK 9 

Obecnie w każdym polu atrament musi kontrastować z 
tłem, przez co każda litera staje się dobrze widoczna. Je- 
szcze tylko kropka nad z.. 

100 IF a= 3 THEN PRINT CHR$ 8; 

70POKE 23697, 34 REM INK 9, OVER 1 

Zmienna TYBDATA przechowuje pod 23566 ostatnio 
używany kod kontrolny atrybutu ekranu (16. 21). kod AT 
(22) lub TAB (23), natomiast pod 23567 pierwszy parametr 
funkcji AT (czyli numer linii) lub TAB (numer kolumny). Mo- 
żemy więc zlokalizować linię, w której nastąpił ostatni wy- 
druk: 

10 PRINT AT INT (RND*22>,0|" linia Jaat przypadkowa "j 
20 PRINT FLASH 1|PEEK 23367 
30 PAUSE Oi CL Si GOTO 10 

Atrybuty można również wprowadzać w trybie EXTEN- 
DED bezpośrednio z klawiatury. Bajt ostatnio wykorzysty- 
wanego w ten sposób koloru lub stanu innych atrybutów (O 
lub 1) przechowuje K— DATA. 

Poza tym na ekranie widap jeszcze ramkę (BORDER), 
której kolor umieszczony jest w BORDCR Wartość tej 
zmiennej jest jednocześnie atrybutem linii edycyjnych. Oto 
sposób na zgranieJ<olorów ramki i edytora: 

10 BORDER 4 

20 INPUT; REM czyszczenie dwu linii edycji oraz tła ekra- 
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nu i edytora: 

10 PAPER 4. CLS 

20 POKE 23624. 32 REM PAPER 4 INK 0 
30INPUT 

Ciekawym efektem jest podzielenie ramki na szereg pas- 
ków, a nawet próba jej zgrania z kolorami głównego ekra- 
nu. 

10 BORDER 4i INPUT ; 

20 FOR a-l TO 44 

30 PRINT PAPER l+Zt <a>22> , « NEXT a 
40 PAUSE ll BORDER li BORDER ll BORDER ll BORDER ll 
BORDER li BORDER 4| BORDER 4t BORDER 4i BORDER 4l 
GOTO 40 


„W szponach ATARI” dokończenie ze str. 6 

Podaje również informację o posiadanych figurach (Mtrl) 
oraz ocenę aktualnej pozycji (Psnl). Dodatnie wartości 
świadczą o przewadze komputera. 

Informacje o naszym ruchu możemy przekazać dwojako: 

1 ) podając współrzędne pola początkowego i końcowe- 
go bierki szachowej; po podaniu współrzędnych każdego 
pola naciskamy RETURN, 

2) za pomocą strzałek sterujących przesuwamy kursor 
na pole. z którego chcemy wykonać ruch, naciskamy RE- 
TURN, przesuwamy kursor na pole, na które chcemy wy- 
konać posunięcie i naciskamy RETURN. 

Po wykonaniu nieprawidłowego ruchu komputer wy- 
świetla komunikat „Ulegał move'\ Współrzędne wprowa- 
dzone pomyłkowo możemy kasować za pomocą klawi- 
szy ESC i DELETE 

Komputer sygnalizuje zamiar wykonania ruchu komuni- 
katem „Let me think ". Naciśnięcie klawisza ESC. w czasie 
gdy komputer „myśli" nad ruchem, spowoduje przerwanie 
analizy możliwych posunięć, wyświetlenie komunikatu „Es- 
capę" i wykonanie najlepszego ruchu, jaki został znalezio- 
ny do momentu przerwania analizy. Jeśli komputer prze- 
widuje szybką wygraną, uprzedza nas o tym komunikatem 
„Matę in N" — gdzie N jest liczbą ruchów dzielących nas 
od mata. 

Po zakończeniu gry komputer informuje o wyniku: Dawn 
— remis, checkmate — mat. Stalemat — pat. Time up — 
przekroczenie limitu czasu. Po tych komunikatach pyta: 
„What now" (co teraz?) i czeka na wprowadzenie nowych 
instrukcji. 

Naciśnięcie CTRL R pozwala na odtworzenie rozegranej 
partii. Program zatrzymuje się po każdym ruchu na czas od 
O do 20 sekund (podawany przez nas). Odtwarzanie może 
być w każdej chwili przerwane klawiszem ESC. 

Po naciśnięciu CTRL N — nowa gra. Możliwe jest okreś- 
lenie stopnia trudności (CTRL Q) oraz wybranie typu gry 
(CTRL T). Po CTRL Q komputer pyta. czy ma korzystać z 
posiadanej książki debiutów (Book?) — odpowiadamy 1 
lub O (tak/ nie). Możemy również określić, czy komputer 
ma dążyć do zwycięstwa, czy do remisu, Podajemy war- 
tości dla mtrl z przedziału —9, +9 oraz dla psnl z przedziału 
— 60,60; im niższe wartości, tym silniejsze dążenie kompu- 
tera do zwycięstwa. 

Program zawiera 6 typów partii rozgrywanych w różnym 
tempie i stylu. Po naciśnięciu CTRL T jesteśmy proszeni o 
wybranie jednego z sześciu wariantów; 

1 ) partia turniejowa — należy podać liczbę ruchów do 
pierwszej i drugiej kontroli czasu oraz terminy kontroli. 

2) partia, dla której określamy średni czas ruchu, 

3) partia ó zadanym czasie trwania — przekroczenie 
czasu kończy się porażką. 

4) partia równoważna — komputer „myśli" tak długo jak 
przeciwnik, 


Maksymalna liczba pasków osiągana w BASICu wyno- 
si 10 (w języku wewn. 625). Nieznaczne ruchy ramki przy 
naciskaniu klawiszy są spowodowane długością czasu 
odszukiwania klawisza (kolor ramki i stan klawiatury są 
identyfikowane w tym samym porcie). 

W kolejnym odcinku trochę szczegółów o interpretacji i 
błędach. 

Krzysztof MAMCARZ 


5) partia o nieograniczonym czasie — stosowana przy 
poszukiwaniu najlepszego wariantu ruchu (czas poszuki- 
wania może trwać nawet dobę); 

6) rozwiązywanie zadań — komputer pyta o liczbę ru- 
chów do mata 

Możliwe są także dodatkowe utrudnienia gry, których ce- 
lem jest ćwiczenie pamięci. Po naciśnięciu CTRL V mo- 
żemy wybrać jedną z następujących wersji: 1 — niewido- 
czne białe bierki; 2— niewidoczne czarne bierki; 3 — nie- 
widoczne białe i czarne. Dodatkowo za pomocą CTRL Z. 
możemy wyłączyć dźwięk. 

Program jest bardzo elastyczny pod względem wyboru 
partnerów. Dostępne są następujące warianty gry; kompu- 
ter — komputer (CTRL P), człowiek — człowiek (CTRL S), 
bez podawania czegokolwiek człowiek (Opponentj gra z 
komputerem (Colossusi Podczas gry z komputerem mo- 
żemy zmusić go do wykonania ruchu za nas (CTRL G). 
następuje wtedy odwrócenie szachownicy i kontynuujemy 
grę bierkami komputera. Zmianę koloru bierek realizujemy 
po CTRL O, a zmianę koloru ekranu — CTRL C 

W czasie gry możliwe jest cofnięcie ruchu (CTRL B), 
zarówno naszego, jak i komputera, nawet kilkakrotnie. Moż- 
liwe jest wtedy wykonanie jednego lub więcej ruchów — 

CTRL F 

Można również „poprosić" komputer o wykonanie nieco 
gorszego ruchu (następny najlepszy) — CTRL U 

W wypadku rozwiązywania różnorodnych zadań sza- 
chowych pożądana jest możliwość swobodnego ustawia- 
nia figur na szachownicy. Po naciśnięciu CTRL A pojawia 
się komunikat; „Alter position: White. Commarid?", kt0ry 
sygnafizuje gotowość komputera do ustawiania białych 
bierek. W tym celu należy ustawić kursor w wybranym polu 
i nacisnąć jedną z następujących liter: C (czyszczenie po- 
la). P (pionek), N (skoczek), B (goniec), R (wieża). O (het- 
man) lub K (król). Naciśnięcie klawisza W usuwa wszystkie 
bierki. Aby ustawić figury drugiej strony, należy nacisnąć S 
Wyjście z trybu ustawiania poprzez naciśnięcie E 

Jeśli partia szachów przeciąga się i nie mamy czasu na 
jej dokończenie, możemy przechować na taśmie magnety- 
cznej aktualną sytuację i przełożyć ipartię na później. Po 
naciśnięciu CTRL D pojawia się komunikat „Load or Save". 
W zależności od potrzeby naciskamy L lub S (naciśnięcie 
innego klawisza powoduje wyjście z tego trybu pracy) 
Komputer poleca przygotować magnetofon i nacisnąć do- 
wolny klawisz. 

Colossus chess 3.0 jest najbardziej interesującym 
programem szachowym, w wersji taśmowej, jaki udało 
nam się znaleźć dla komputerów Atari 800 XL i 1 30 XE. 

Tomasz MROWIEĆ 
Ludwik PIELA 
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Szkoleniowy system graficzny 


Oprogramowanie znacznika świetlnego 


Procedury graficzne w 
systemach komputero- 
wych stosowane są do 
wprowadzania, przetwa- 
rzania i zobrazowania da- 
nych w postaci graficznej. 
Wprowadzanie danych w 
postaci graficznej jest 
ułatwione dzięki użyciu 
urządzeń operatorskich ta- 
kich jak manipulator kulo- 
wy lub pióro świetlne >. 
Użytkownik wskazuje okre- 
ślone punkty na ekranie 
monitora za pomocą zna- 
cznika świetlnego, stero- 
wanego odpowiednio opro- 
gramowanym urządzeniem 
operatorskim. 

Znacznik świetlny może być również 
sterowany uniwersalną klawiaturą al- 
fanumeryczną. Rozwiązanie takie 
przedstawione zostanie poniżej. 

Wybrany podzbiór znaków klawiatury 
alfanumerycznej został oprogramowa- 
ny dla potrzeb sterowania znacznikiem. 
Oprogramowanie to jest częścią szko- 
leniowego systemu graficznego (SSG), 
który został opracowany w języku 
BASIC i uruchomiony w komputerze 
MERITUM I. 


' Ch murzyński J.: Grafika kompute- 
rowa. ..IKS", nr 2/1986 


Struktura SSG 

Struktura SSG przedstawiona zosta- 
ła na rys. 1 . W skład SSG wchodzą ta- 
blice współrzędnych — rys. 2 oraz pro- 
cedury, zestawione w tabeli 1 . Począt- 
kowy fragment programu SSG przed- 
stawiono poniżej: 

1 REM ***** SZKOLENIOWY SY- 
STEM GRAFICZNY 

2 REM * OPRACOWAŁ J. 

CHMURZYŃSKI 1985 


3 

REM * * 

* ł * MERITUM 1 W. 1 

10 

DIM WK 

(21.2) 


11 

DIM WZ 

(21,2) 


12 

DIM WP 

(21,2) 


13 

DIM WE 

(21.2) 


14 

DIM TP 

(21,2) 


20 

DIM PI i 

(2) 


21 

DIM P2 i 

(2) 


22 

DIM P3 i 

(2) 


23 

DIM Tl i 

(2,2) 


24 

DIM T2 i 

12.2) 


25 

DIM T3 i 

[2,2) 


99 

CLS 



100 

INPUT „ 

NR PROCEDURY"; NP 

101 

IF NP = 

1 GOTO 

250 

102 

IF NP = 

2 GOTO 

150 

103 

IF NP = 

3 GOTO 

153 

104 

IF NP = 

4 GOTO 

155 

105 

IF NP = 

5 GOTO 

157 

106 

IF NP = 

6 GOTO 

170 

107 

IF NP = 

7 GOTO 

172 

108 

IF NP = 

8 GOTO 

99 

109 

IF NP = 

9 GOTO 

290 

110 

IF NP =. 

10 GOTO 

174 

111 

ir NP = 

1 1 GOTO 

164 


1 1 2 IF NP = 12 GOTO 1 68 

1 13 IF NP = 13 GOTO 160 

114 IF NP = 14 GOTO 162 

115 IF NP = 15 GOTO 400 

116 IF NP = 16 GOTO 555 

117 IF NP = 17 GOTO 560 

1 18 IF NP = 18 GOTO 166 

148 PRINT „ZLY NR PROCEDURY" 

149 GOTO 100 

Poszczególne tablice przechowują 
następujące dane: 

tablice WK i TP — współrzędne kartez- 
jańskie punktów 
charakterystycznych 
obrazu, 

tablica WP — przekształcone współ- 
rzędne kartezjańskie 
punktów charaktery- 
stycznych obrazu, 

tablica WE — współrzędne ekranowe 
punktów charaktery- 
stycznych obrazu, 

tablica WZ — współrzędne kartezjań- 
skie punktów charak- 
terystycznych obrazu 
wskazanych znaczni- 
kiem świetlnym. 

Obieg danych w SSG 

Dane w SSG przyjmować mogą po- 
stać pojedynczych współrzędnych X, Y 
punktu lub ciągów współrzędnych X, Y 
punktów. Punkty te mogą być elemen- 
tami składowymi obrazu lub też punk- 
tami początkowymi i końcowymi od- 
cinków linii prostej. 



Tabela 1 


Procedury SSG 


Na- 

zwa 

FUNKCJA 

A 

Wprowadzenie ciągu N par współrzędnych kartezjańskich z klawiatury 
alfanumerycznej do tablicy WK 

B 

Przesyłanie zawartości tablicy WK do tablicy WP bez przekształceń współ- 
rzędnych 

C 

Zamiana współrzędnych kartezjańskich punktów z tablicy WP na współ- 
rzędne ekranowe i przesyłanie ich do tablicy WE 

D 

Zmiana skali współrzędnych punktów z tablicy WK i przesyłanie ich do 
tablicy WP 

E 

Zobrazowanie na monitorze ekranowym linii według punktów charakte- 
rystycznych z tablicy WE- 

F 

Wygaszenie linii według punktów charakterystycznych z tablicy WE 

G 

Zobrazowanie na monitorze ekranowym punktów charakterystycznych z 
tablicy WE 

H 

Wygaszanie punktów charakterystycznych z tablicy WE 

1 

Przesyłanie zawartości tablicy WZ do tablicy WK 

J 

Przesyłanie współrzędnych środka znacznika świetlnego na pierwsze 
miejsce tablicy WK 

K 

Przesyłanie współrzędnych środka znacznika świetlnego na kolejne 
miejsce tablicy WZ 

L 

Zerowanie tablicy WK 

M 

Zerowanie tablicy WZ 

P 

Przesłanie zawartości tablicy WK do tablicy TP 

Q 

Przesłanie zawartości tablicy TP do tablicy WK 

R 

Przekształcenie obrazu opisanego punktami charakterystycznymi w tab- 
licy WK: przesunięcie o dany wektor 

S 

Przekształcenie obrazu opisanego punktami charakterystycznymi w tab- 
licy WK: obrót wokół środka układu współrzędnych 

T 

Przekształcenie obrazu opisanego punktami charakterystycznymi w tab- 
licy WK: obrót wokół dowolnego punktu 

U 

Sterowanie znacznikiem świetlnym (patrz rys. 4; tabela 3) 

V 

Wygaszenie wszystkich punktów na ekranie monitora 

Y 

Zobrazowanie na ekranie monitora osi X — Y układu współrzędnych 

Z 

Przesłanie zawartości tablicy WP do tablicy WK 


Współrzędne punktów wprowadzane 
są z klawiatury alfanumerycznej do tab- 
licy WK (procedura A). Drugim sposo- 
bem wprowadzania współrzędnych 
punktów jest użycie znacznika świetl- 
nego. sterowanego klawiaturą alfanu- 
meryczną (procedura U). Współrzędne 
środka znacznika świetlnego XZ, YZ 
kierowane są do tablicy WZ (procedura 
K) oraz zobrazowane są na ekranie 
monitora (procedury J. B. C, G). Po 
skompletowaniu ciągu współrzędnych 
punktów, wskazanych za pomocą zna- 
cznika świetlnego, zawartość tablicy 
WZ może być przeniesiona do tablicy 
WK (procedura I). 


Obraz opisany punktami charaktery- 
stycznymi. których współrzędne znaj- 
dują się watablicy WK, może być 
przekształcony i przesłany do tablicy 
WP (procedury D, R, S. T). Współrzęd- 
ne kartezjęńskie punktów charaktery- 
stycznych ż tablicy WP przekształcane 
są do postaci współrzędnych ekrano- 
wych (procedura C). Postać ekranowa 
współrzędnych służy do wyświetlania 
punktów lub odcinków linii (procedury 
G. E) albo też do wygaszania punktów 
lub odcinków (procedury H, P). 

Tablica TP służy do chwilowego 
przechowywania obrazu. 


0 

N 

— 

1 

XI 

Y1 

2 

X2 

Y2 

3 

X3 

Y3 


'• 


21 

X 2 1 

Y21 


N — ilość par współrzędnych X, Y znaj- 
dujących się w tablicy 
Rys. 2 Struktura tablicy współrzędnych 

Podczas złożonych transformacji 
obrazu stosowane jest przesyłanie za- 
wartości tablicy WP do tablicy WK 
(procedura Z). 

Dyrektywy operatorskie 
SSG 

Kolejnością wykonywania procedur 
SSG sterują dyrektywy operatorskie. 
Dyrektywy złożone są z identyfikatorów 
i parametrów. Dyrektywy operatorskie 
wprowadzane są do SSG przez klawia- 
turę alfanumeryczną. Identyfikatory dy- 
rektyw przyjmują wartość liczbową z 
przedziału od 1 do 18. W tabeli 2 ze- 
stawiono dyrektywy operatorskie SSG 
wraz z operacjami wykonywanymi po 
wprowadzeniu dyrektyw do SSG. 

Sterowanie znacznikiem 
świetlnym 

Znacznik świetlny w SSG złożon 
jest z 4 punktów ułożonych w kształci 
krzyża (rys. 3). Współrzędne środk 


p’K| Środtk 
| ;| /znacinika 



Rys. 3 Znacznik świetlny 

znacznika przechowywane są w 
zmiefinych XZ, YZ. Procedura U usta- 
wia początkowo znacznik na środku 
ekranu. W celu łatwego odróżnienia 
znacznika od innych elementów obra- 
zu. znacznik migocze. Migotanie 
znacznika zapewnia program cykli- 
cznego wyświetlania i wygaszania 
znacznika na ekranie monitora. 

Do sterowania znacznikiem świetl- 
nym wydzielono dodatkowe dyrektywy, 
przedstawione w tabeli 3. Znacznik 
może być przesuwany ze zmienną 
szybkością, zależną od skoku znaczni- 

► 
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Tabela 3 

Dyrektywy sterowania znacznikiem świetlnym 


IDENTYFIKATOR 

DYREKTYWY 

OPERACJE DYREKTYWY 

J 

Przesunięcie znacznika w lewo 

K 

Przesunięcie znacznika w prawo 

1 

Przesunięcie znacznika w górę 

M 

Przesunięcie znacznika w dół 

Q 

Wykonanie operacji K oraz ciągu operaqi J. B, C. G 

L 

Wykonanie ciągu operacji 1, B, C. E 

1 

Ustalenie skoku znacznika SZ = 1 j. r. 

3 

Ustalenie skoku znacznika SZ = 3 j. r. 

5 

Ustalenie skoku znacznika SZ = 5 j. r. 

7 

Ustalenie skoku znacznika SZ = 7 j. r. 

S 

Koniec sterowania znacznikiem świetlnym GOTO 100 


ka SZ. Wielkość skoku ustala się dy- 
rektywami sterowania znacznikiem 
świetlnym 1 , 3, 5 i 7. 

Algorytm sterowania znacznikiem 
świetlnym przedstawia rys, 4. Poszcze- 
gólne bloki algorytmu oznaczono do- 
datkowo numerami początkowych 
wierszy procedury sterowania znaczni- 
kiem świetlnym (procedura U). 

Procedura sterowania 
znacznikiem świetlnym 

Poniżej przedstawiono procedurę 
sterowania znacznikiem świetlnym w 
SSG. Procedura ta inicjowana jest dy- 
rektywą operatorską nr 15 i zapewnia 
sterowanie znacznikiem zgodnie z al- 
gorytmem przedstawionym na rys. 4 
Procedura ta umożliwia: 

— wprowadzenie do tablicy WZ opisu 
obrazu w postaci ciągu par współ- 
rzędnych charakterystycznych, 

— wyświetlanie punk.tów na ekranie 
monitora w miejscach położenia 
punktów charakterystycznych (dy- 
rektywa Q), 

— wyświetlanie linii łamanej, łączącej 
punkty charakterystyczne (dyrek- 
tywa L). 

Po wprowadzeniu wymaganej liczby 
punktów charakterystycznych dane te 
mogą być przesłane z tablicy WZ do 

Dyrektywy 
operatorskie SSG 


tablicy WK (procedura I) i poddane 
przekształceniom za pomocą procedu- 
ry SSG. 

400 REM PROCEDURA U 

401 WW ^ 0 

402 XZ = 64 

403 YZ = 24 
405 SZ = 1 

405 XP = 64 

406 YP = 24 

410 IF WW = 0 GOTO 412 

411 IF WW = 1 GOTO 422 

412 REM * * WYŚWIETL ZNA- 
CZNIK 1 

413 XZ = XP 

414 YZ = YP Tabela 2 


415 WW = 1 
417SET(X?+ 1. YZ) 

418 SET (XZ - 1. YZ) 

419 SET (XZ, YZ + 1) 

420 SET XZ. YZ - 1 ) 

421 GOTO 430 

422 REM ****** WYGAŚ' ZNACZ- 
NIK 

423 WW = 0 

425 RESET (XZ + 1.YZ) 

426 RESET (XZ - 1 . YZ) 

427 RESET (XZ,YZ + 1) 

428 RESET (XZ,YZ - 1) 

429 GOTO 430 

430 REM ******* ŚLEDZENIE 
ZNACZNIKA 

431 Z$ = INKEYS 

432 IF Z$ = "J" GOTO 460 

433 IF Z$ = "K" GOTO 470 

434 IF Z$ = T GOTO 480 

435 IF Z$ = "M" GOTO 490 

436 IF Z$ = "O" GOTO 500 

437 IF Z$ = "L" GOTO 520 

438 IF Z$ = "S" GOTO 100 

449 GOTO 540 

450 GOTO 410 

460 REM ****** KLAWISZ J 

461 XP = XZ — 1 * SZ 

462 IF XP - 1 < GOTO 465 

464 GOTO 410 

465 XP = XZ 

466 GOTO 410 

470 REM ****** KLAWISZ K 

471 XP = XZ + 1 * SZ 

472 IFXP 4- 1 > 127 GOTO 475 

474 GOTO 410 

475 XP = XZ 

476 GOTO 410 

480 REM ****** KLAWISZ I 

481 YP = YZ — 1 * SZ 

482 IF YP - 1 < 0 GOTO 485 

484 GOTO 410 

485 YP = YZ 

486 GOTO 410 

490 REM ****** KLAWISZ M 

491 YP = YZ + 1 * SZ 

492 IF YP -ł- 1 >47 GOTO 495 

494 GOTO 410 

495 YP = YZ 


NUMER 

DYREKTYWY 

(IDENTYFIKATOR) 

OPERACJE 

PARAMETRY 

DYREKTYWY 

DYREKTYWY 

1 

A 

- LICZBA PUNKTÓW 

- WSPÓŁRZĘDNE X, Y PUNKTÓW 

2 

B + C 

— 

3 

E 

— 

4 

F 

— 

5 

D + C 

— 

6 

P 

— 

7 

Q 

— 

8 

V 

— 

9 

Y 

— 

10 

R + C 

- DX, DY WEKTOR PRZESUNIĘCIA OBRAZU 

11 

S + C 

- FI - KĄT OBROTU 

12 

T + C 

— DX DY WSPÓŁRZĘDNE PUNKTU OBROTU 

— FI - KĄT OBROTU 

13 

G 

— 

14 

H 

— 

15 

U 

patrz tabela 3, rys. 4 

16 

M 

— 

17 

L 

— 

18 

Z 

- 
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496 GOTO 410 

500 REM WYŚWIETL PUNKT 

WG ZNACZNIKA 

501 WZ (0. 0) = WZ (0. 0) + 1 

502 N = WZ (0, 0) 

503 WZ (N, 0) = XZ - 64 

504 WZ (N. 1 ) = (24 - YZ) * 1 .845 

505 WK (0, 0) = 1 

506 WK (1,0) = XZ — 64 

507 WK(1. 1) = (24 - YZ) * 1.845 

508 GOSUB 260 

509 GOSUB 280 

510 GOSUB 380 

511 GOTO 410 

520 REM KREŚLENIE LINII 

ZA ZNACZNIKIEM 

521 FOR I = 1 TO WZ (0. 0) 

522 WK (I, 0) = WZ (i. 0) 

523 WK (1. 1 ) = WZ(1. 1) 

524 NEXT I 

525 WK (0, 0) = WZ (0, 0) 

526 GOSUB 260 

527 GOSUB 280 

528 GOSUB 300 

529 GOTO 410 

540 REM ******* ZMIANA SZE- 
ROKOŚCI PRZESUWU ZNACZNIKA 

541 IFZ$ = 'V GOTO 546 

542 IF Z$ = "3" GOTO 548 

543 IF Z$ = "5" GOTO 550 

544 IF Z$ = "7" GOTO 552 

545 GOTO 410 

546 SZ = 1 

547 GOTO 410 

548 SZ = 3 

549 GOTO 410 

550 SZ = 5 

551 GOTO 410 

552 SZ = 7 

553 GOTO 410 

Programy pozostałych procedur 
SSG przedstawione zostaną w drugiej 
części artykułu. 

Jerzy CHMURZYŃSKI 


SAMI PISZEMY GRY 


Znając podstawowe instrukcje języ- 
ka BASIC, spróbujmy sami napisać grę. 
Zaczynamy od wymyślenia scenariu- 
sza A oto przykład podróżując rakietą 
po wszechświecie w poszukiwaniu 
przygód, w pewnym momencie nasz 
czujnik pokładowy zasygnalizował, że 
kończy się paliwo. Na nasze szczęście 
w pobliżu znalazła się planeta, o której 
nasz komputer dal nam informację, iż 
znajdują się na niej składniki niezbędne 
do wytworzenia potrzebnego nam pa- 
liwa. Lecz cóż to? Nasze czujniki wyk- 
ryły obecność na planecie zbiorników 
ze skumulowaną antymaterią i spotka- 
nie z takim zbiornikiem grozi wybu- 


Cezary SOBCZAK 

chem. Wprawdzie komputer pokładowy 
wyświetla nam położenie niebezpie- 
cznych zbiorników, lecz pojawiające 
się zakłócenia powodują to. że ich 
rozmieszczenie po pewnym czasie sta- 
je,się niewidoczne. Wybierając się w 
drogę musimy zatem zapamiętać ich 
rozmieszczenie i tak się poruszać, aby 
się z nimi nie zderzyć. 

Przystępujemy teraz do budowy gry. 
Komputer osobisty AMSTRAD CPC 
6128 może wyświetlać znaki w trzech 
trybach (wielkościach): tryb 0, tryb 1 i 
tryb 2. 

W trybie 0 (MODĘ 0) może zapisać 
20 znaków w linii, 


w trybie 1 (MODĘ 1 ) może zapisać 40 
znaków w linii, 

w trybie 2 (MODĘ 2) może zapisać 80 
znaków w linii. 

w każdym trybie można zapisać 25 
linii. 

Aby zrozumieć różnice pomiędzy 
poszczególnymi trybami, po włączeniu 
komputera (automatycznie ustawiany 
jest tryb 1) wyświetl kilka dowolnych 
znakóyy. Następnie zmień tryb pisząc 
np. MODĘ 0 i wyświetl znów kilka zna- 
ków. Zobaczysz, że w trybie 2 znaki są 
najmniejsze, w trybie 0 — największe. 
Do naszej gry wybieramy tryb 0 (MODĘ 
0). a więc mamy do dyspozycji pole ek- 
ranu o wymiarach 20 na 25 znaków. 
Przystępujemy do precyzowania, zało- 
żeń gry, ustalania zmiennych i tablic 
oraz rysujemy schemat gry. 

Załóżmy, że: 

— nasza załoga składa się z trzech 
osób, które pojedynczo wychodzą na 
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I 

poszukiwanie składników paliwa, 

— rozlokowano 10 niebezpiecznych 
zbiorników, 

— na planecie znajduje się 5 skład- 
ników naszego paliwa, z czego do jego 
wytworzenia potrzeba nam przynaj- 
mniej trzech. 

Lista zmiennych i tablice: 
zal — określa aktualną liczbę człon- 
ków załogi, 

n — ilość rozlokowanych zbiorników, 
m — ogólna ilość rozmieszczonych 
na planecie składników paliwa, 
k — niezbędna ilość składników po- 
trzebnych do wykonania paliwa (k < 
m). a więc umożliwiających start rakie- 
ty i opuszczenie planety, 

I — ilość aktualnie zebranych skład- 
ników paliwa, I > k, 

minx (n) — tablica współrzędnych x 
zbiorników 

miny (n) -r tablica współrzędnych y 
zbiorników 

palx (m) — tablica współrzędnych x 
składników paliwa 

pały (m) — tablica współrzędnych y 
składników paliwa 

Rozpoczynając grę, kolejny członek 
załogi znajduje się w lewym górnym 
rogu ekranu (współrzędne x = 1 . y = 2; 
wiersz 1 rezerwujemy na wyświetlanie 
informacji np. o pozostałych przy życiu 
członkach załogi itp.), natomiast rakieta 
w prawym dolnym rogu ekranu (x = 20, 
y = 25). Rys. 1 . 

Przystępujemy do kodowania na- 
szego programu. Ustalmy jeszcze, że 
podprogramy będą rozpoczynały się 
od linii 1 000. 

10 rem nadanie wartości początko- 
wych 

20 modę O: zal=3:n=1 0:m=5:k=3:1 =0 
30 dlm minx (n) dim miny (n) : dim 
palx (m) dłm pały (m) 

Generujemy losowe współrzędne 
rozmieszczenia niebezpiecznych zbior- 


ników oraz składników paliwa. Wyko- 
rzystamy instrukcję RND obliczającą 
kolejną liczbę losową z przedziału 
(0—1). Ponieważ współrzędne muszą 
być liczbami całkowitymi i z zakresu 
odpowiednio x od 1 do 20 i y od 2 do 
25, wygenerowane liczby mnożymy 
przez 100, zaokrąglamy do liczb cał- 
kowitych i badamy przynależność do 
określonego przedziału. Może się zda- 
rzyć. że wygenerowane współrzędne 
zbiornika będą identyczne ze współ- 
rzędnymi składnika paliwa. Można tego 
uniknąć wprowadzając odpowiednie 
badanie i zmieniając współrzędne jed- 
nego z elementów, ale pozbawiłoby to 
dodatkowego elementu „dreszczyka" 
naszej gry. Może się również zdarzyć, 
że wygenerowane współrzędne zbior- 
nika będą identyczne z początkowymi 
współrzędnymi naszego ludzika (1.2) 
oraz położenia rakiety (20,25). W tym 
wypadku należałoby jednak zmienić 
położenie niebezpiecznego zbiornika, 
gdyż nie dałoby to nam szansy rozpo- 
częcia bądź zakończenia gry 
Napiszemy teraz podprogram gene- 
rujący współrzędne. 

1000 rem podprogram wyznaczania 
współrzędnych. 

1010 x = cint (md* 100) : łf x < — 1 

or x > — 20 then 1010 

1020 y = cint (rnd* 1 00) if y < — 2 

or y > — 25 then 1020 

1025 if (x = i and y = 2) or (x = 20 

and y = 25) then 1010 

1 030 return 

który wykorzystamy do zobrazowania 
ustawienia zbiorników. Jako znak nie- 
bezpiecznego zbiornika przyjmujemy 
jeden ze znaków naszego komputera 
oznaczony numerem 231 . 40 rem ge- 
nerowanie i wyświetlanie zbiorników 

50 for i = 1 to n 
60 gosub 1 000 
70 minx (i) = x : miny (i) = y 

80 locate x,y : print chr$ (231 ): next 
Dopisz teraz wiersz 

85 for a = 1 to 1 000 : next cis goto 40 


i uruchom program. Zobaczysz, jak 
wyglądają kolejne warianty rozmie- 
szczenia niebezpiecznych zbiorników 

Przerwij program naciskając dwu- 
krotnie klawisz [ESC], wykasuj wiersz 
85, napisz modę 1 lub modę 2 i pisze- 
my nasz program dalej. 

Do zakrycia („utajnienia") rozmie- 
szczenia zbiorników wykorzystamy 
rozkazy grafiki komputera. W tym wy- 
padku ekran podzielony jest na 640 
punktów (tzw. pixeli) w poziomie i 400 
punktów w pionie. Początkowe współ- 
rzędne kursora grafiki (x = 0, y = 0) 
umieszczone są w lewym dolnym rogu 
ekranu. Pole ze zbiornikami będziemy 
zasłaniać ..kurtyną" przemieszczającą 
się z lewej strony ekranu na prawą. Pi- 
szemy: 

90 for i = 0 to 640 step 3 
1 00 move i, 1 drawr 1 ,380 
120 next 
125 goto 125 

Uruchom program i zobacz, jak za- 
słaniane są niebezpieczne zbiorniki. 
Naciśnij dwa razy klawisz [ESC], wy- 
kasuj wiersz 125. napisz modę 1 lub 
modę 2. Aby nieco utrudnić, zakrywaj- 
my pole jednocześnie z dwóch stron: 

1 1 0 move 640— i. 1 : drawr 1 .380 : if 
i> 320 then 130 

Spróbuj sam dopisać instrukcje po- 
wodujące zasłanianie pola z czterech 
stron naraz. 

Skoro niebezpieczne zbiorniki są już 
niewidoczne, umieśćmy na naszej pla- 
necie komponenty paliwa, które musi- 
my zebrać. Wykorzystamy znak o nu- 
merze 229. 

130 rem generowanie i wyświetlanie 

składn. paliwa 

1 40 for i = 1 to m 

1 50 gosub 1 000 

160 palx (i) = x paty (i) = y 

1 70 locate x,y print chr$ (229) next 

175 goto 175 

Uruchom program i zobacz jeden z 
możliwych wariantów rozmieszczenia 
składników paliwa. Naciśnij dwa razy 
klawisz [ESC], skasuj wiersz 175, na- 
pisz modę 1 lub modę 2. Umieścimy te- 
raz na odpowiednich miejscach na- 
szego ludzika (znak numer 249) i rakie- 
tę (znak numer 239) oraz napiszemy 
podprogram wyświetlający informację 
o pozostałych przy życiu członkach za- 
łogi: 

180 x = 1 : y = 2 locate x.y print 
chr$ (249); locate 20. 25 print chr$ 

(239); 

190 gosub 1 130 

1 1 30 rem podaje ilość pozostałej przy 
życiu załogi 

1140 locate 18,1 : print 1; 

1 1 50 for i = 1 to zal 

1 1 60 locate 8 + i. 1 print chr$ (224); 
next : return 

Przystępujemy do sterowania ru- 
chem ludzika w zależności od naciśnię- 
tego klawisza. Wszystkim klawiszom 
komputera 



Rys. 1 Ekran początkowy 
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Schemat gry 


dokończenie na str. 30 


W naszym komputerlandzie 

W naszym komputerlandzie trwał właśnie niczym nie 
zmącony świąteczny nastrój. Z różnych stron napływały na 
ręce pracowitego Spektrusia urodzinowe życzenia, głównie 
by kolejne lata były wesołe, zdrowe i pogodne, wypełnione 
nieskończonym pasmem sukcesów. 

Atmosferę tę zakłócił jednak telegram oznaczony sym- 
bolem „PILNY". Jego treść początkowo obraźliwa, następ- 
nie życzliwa i radosna, w miarę dalszego czytania stawała 
się wulgarna, a na końcu nawet tragiczna — ogólnie jednak 
mało zrozumiała. Brzmiała ona: 

stop OCH NIEROBY stop SERDECZNE ŻY- 
CIE NA stop WIELE CZĘŚCI DO MASZYNKI 
Stop Ml DUPA SIEKIERA DOŚĆ NAKOPAŁ 
stop PIOTRUŚ NIE ŻYJE stop PRZYJEDŹCIE. 

Telegram wywołał w zespole robotów ogromny niepo- 
kój i poruszenie. Podczas gdy gorączkowo zaczęto się za- 
stanawiać co począć, jeden z robotów nie przejmując się 
poddawał pod wątpliwość prawdziwość treści, w związku z 
czym przestawił się na kontestację. Rozmyślając nad tek- 
stem wykonał on we współpracy z komputerem operację 
zwaną tłumaczeniem telegramu. Okazało się, że właściwa 
treść telegramu jest następująca: 

stop KOCHANE ROBOTY stop SERDECZNE ŻY- 
CZENIA stop WIELE SZCZĘŚCIA I W DOMU 
SZYNKI stop MIODU PASIEKĘ RADOŚCI NA KOPY 
stop SPEKTRUŚ NIECH ŻYJE stop PRZYJACIEL 

Nol Roboty odetchnęły z ulgą 

Podglądał: Eugeniusz MLECZAK 



OLIVETTI Ml 9 

Komputer klasy XT przezna- 
czony do użytku ]ako komputer 
edukacyjny. Pracuje pod syste- 
mem MS-DOS 2.11 lub 3.1. 
M19, ma RAM 256 Kb natomiast 
pamięć zewnętrzny stanowić 
mogę floppy dyski po 360 Kb lub 
floppy dysk 360 Kb plus dysk 
twardy 20 Mb. Jeśli cena tego 
sprzętu będzie przyzwoita to ma 
szansę na szerokie zastosowanie 


nie tylko w ośrodkach nauko- 
wych, ale również w szkołach. 
Bogate oprogramowanie i moż- 
liwość współpracy z wieloma 
urządzeniami zewnętrznymi są 
najważniejszym atutem M19. 

OLIVETTI M28 
Nowy model opracowany w 
firmie Olivetti, kompatybilny z 
IBM. Może pracować pod MS- 
DOS i XENIX V.286 SCo - 
po raz pierwszy oferowanym w 


Polsce zgodnym ze standardem 
światowym. Bogate oprogra- 
mowanie narzędziowe jest atu- 
tem tego urządzenia. Pozostałe 
parametry: RAM 512 Kb MOS 
ROM z możliwością rozbudowy 
do 1 Mb; dwa tryby znakowe na 
monitorze monochromatycznym 
lub kolorowym — 80X25 lub 
40X25 znaków; rozdzielczość 
obrazu 640X400, 640X200 lub 
320X200 punktów. 
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dokończenie ze str. 29 

przyporządkowane są określone nu- 
mery (rys. 2). Instrukcja INKEY spraw- 
dza, które klawisze zostały naciśnięte i 
generuje odpowiednią wartość odpo- 
wiedzi w zależności od naciśniętego 
klawisza. W naszej grze wykorzystamy 
klawisze sterujące ruchem kursora 
znakowego (strzałki w lewo. w prawo, w 
górę. w dół) mające numery odpo- 
wiednio: 8. 1. 0,-2 



Zasada sterowania ruchem ludzika 
jest następująca: w zależności od na- 
ciśniętego klawisza wyznacza się no- 
we współrzędne położenia ludzika 
(zwiększone lub zmniejszone o jeden 
znak), drukowany jest jego symbol gra- 
ficzny, natomiast w miejscu określo- 
nym poprzednimi (starymi) współrzęd- 
nymi drukowana jest spacja. Aby ludzik 
„nie uciekł" nam z ekranu wprowadzi- 
my odpowiednie ograniczenia na jego 
współrzędne. 

Ujmiemy to w następujące pod- 
programy: 

1 040 rem w lewo 

1050 if inkey (8) = 0 and x > 1 then 
gosub 1 100 : x = x — 1 
1 055 rem w prawo 

1 060 łf inkey (1) = 0andx < 20 then gosub 

1100 : x = x +1 
1 065 rem do góry 

1 070 if inkey (0) = 0 and y > 2 then gosub 

1100 : y = y — 1 
1075 rem w dół 

108011 inkey (2) = 0andy< 25 then gosub 

1100 : y = y -ł 1 1 

1085 locate x.y . print chr$ (249); 

1 090 return 

1100 locate x,y : print 

IllOsound 3.500,1... 13 
1 120 return 

Napisz jeszcze, 

200 gosub 1040 
205 goto 200 

Uruchom program i naciskając kia 
wiszę ze strzałkami zobaczysz jak lu 
dzik porusza się po ekranie. 

Naciśnij dwa razy klawisz (ESC). 

skasuj wiersz 205, powróć do po 
przedniego trybu. 

Piszemy nasz program dalej zgodnie 
ze schematem gry: 

210 rem dojście do rakiety 

220 if x = 20 and y = 25 then 420 

230 rem wejście na niebezpieczny 

zbiornik 


240 for i = 1 to n 

250 if x = minx (i) and y = miny (i, 

then 340 
260 next 

270 rem trafienie na składnik paliwa 
280 for i = 1 to m 

290 if x = palx (i) and y = pały (i) then 
palx (i) = 0 : pały (i) = 0 : I = 1 4-1 
locate 18,1 print I goto 200 
300 next 
310 goto 200 

420 rem po dojściu do rakiety 

430 if I < k then 580 

440 rem start rakiety 

450 forw = 1 to 1 50 

460 sound 1,500— w, 2. 15— cint 

(0,1 * w) 

470 If w> 19 then 510 

480 locate 10,25 — w : print chr$ 

(239) cis 

490 Ink 0, 9. 24 locate 5 12 print 

„KONIEC" 

500 Ink 0, 1 . Ink 1 , 26 

510 next 

520 modę 1 print ..GRASZ 
JESZCZE? (T/N)'* 

530 d$ = inkeyS 

540 If d$ = then 530 

550 if d$ = "T" or d$ = "t” then run 

560 if d$ = "N” or d$ = "n" then 640 

570 gotto 530 

340 rem wybuch 

350 sound 3,500.1 20,,,. 10 

360 for i = 1 to 7 

370 locate x.y print chr$ (144); cis 
locate x.y print chr$ (239); ink 
0.9,24 next Ink 0.1 : cis 
380 zal = zal — 1 
390 if zal = 0 then 520 
400 gosub 1130 goto 40 
580 rem za mało składników 
590 locate 2.1 print ZA MAŁO 
SKŁADNIKÓW"; 

600 for a = 1 to 1 000 next 
61 0 locate 2. 1 print space$ ( 1 5); 

620 locate 20.25 print chr$ (239); 

630 x = x — 1 gosub 1130 goto 
200 

640 modę 2 

Uporządkujmy numerację linii na- 
szego programu pisząc RENUM i osta- 
tecznie program nasz wygląda nastę- 
pująco 

10 REM 

20 MODĘ 0is*l-tin«10iin-5ik-3il-0- 
30 DIM mlnx <n) i DIM mtr»v<n> 

40 DIM pal :< <*> i DIM pały ('ml 
50 REM 

*0 POR 1-1 TO n 

70 GOSUB 670 

80 *1 nu < 1 > -k i ml ny <1 > -y 

90 LOCATE X « yi PRINT CHR* <231 ) 1 1 NEXT 

100 FOR 1-0 TO 640 STEP 3 

1 10 MOVB 1 , 1 1 DRAWR 1 , 380 

120 MOUE 640-1 , 1 I DRAWR l,380lIF 1 >320 Tl 

EN 140 

130 NEXT 

140 REM 

150 FOR 1-1 TO m 

160 GOSUB 670 

170 palu <1>-Kipaly(ł )-y 

190 LOCATE X , yi PRINT CMR4 <2291 | i NEXT 

190 x-liy-2l LOCATE K.ylPRINT CHR«<249>i 

200 LOCATE 20, 23l PRINT CHR* < 239) | 

210 GOSUB 840 
220 GOSUB 710 
230 REM 

240 IF K-20 AND y-25 THEN 430 
230 REM 

260 FOP 1-1 TO n 

270 IF mim. <1>«K AND *lny<l)-y THEN 36«-- 


290 NEXT 
290 REM 

300 FOR 1-1 TO m 

310 IF palu <1 )-x AND pal y <1 > -y THEN 340 
320 NEXT 
330 GOTO 220 

340 palu <ł)-Oipaly<l)-Oll-l*liLOCATE 18, 
1 

350 PRINT 1 1 GOTO 220 
360 REM 

370 SOUND 3,500, 120, ,,, 10 
380 FOR 1-1 TO 7 

390 LOCATE M, yi PRINT CHR* < 1 44) | i CLSl LOCA 
TE x , y 

400 PRINT CHR* <238) l i INK 0,9,24|NEXT 

410 INK O, HCLS 

420 zal-zal -1 1 1-0 

430 IF zal -O THEN 330 

440 GOSUB 8401 GOTO 30 

450 REM 

460 IF 1 <k THEN 610 
470 REM 

480 FOP w-1 TO 150 

490 SOUND 1 , 500-W, 2, 1S-CINT <0, 1 tw> 

500 IF w>19 tHEN 340 

510 LOCATE 10, 25-wi PRINT CHR* (239) i iCLS 
320 INK O, 9, 24i LOCATE 3. 12lPRINT M K 0 N 
I E C"| 

330 INK O, 1 l INK 1.26 
340 NEXT 

330 MODĘ li PRINT “GRASZ JESZCZE 7 (T/N) ” 
I 

560 d*- INKEY* 

370 IF d*=" " THEN 560 
380 IF d*-"t" OR d*-"T" THEN RUN 
390 IF d*-“n" OR d«- M N" THEN 880 
600 GOTO 560 

610 REM za mało składników 

620 LOCATE 2, It PRINT "ZA MAŁO SKŁADNIKÓW 

"I 

630 FOR A-l TO 1000iNEXT 

640 LOCATE 2, li PRINT STRING* < 18, " ">| 

650 LOCATE 20,25iRRINT CHR*<239)| 

660 x-x-li GOSUB 840 1 GOTO 220 
670 REM 

680 x-CINT <RND* 100) t IF x<-l OR X >-20 THE 
N 680 

690 y-CINT<PND*100)«IF y<-2 OR y>-25 THE 

700 RETURN 
710 REM w lawo 

720 IF INKEY (8) -O AND x>l THEN GOSUB 810 
i x -x - 1 

730 REM w prawo 

740 IF INKEY < 1 ) —O AND x<20 THEN GOSUB 81 
Oix-x*l 

730 REM do góry 

760 IF INKEY <0>-0 AND y>2 THEN G08UB 810 
iy-y -1 

770 REM na doi 

780 IF INKEY <2> — O ANO y<23 THEN GOSUB 81 
Oiy-y+1 

790 LOCATE K.ylPRINT CHR* (249) | 

800 RETURN 

810 LOCATE w , yi PRINT •• 

820 SOUND 3, 500,1,,, 13 
830 RETURN 
840 REM 

830 LOCATE 18. 1 1 PRINT l'| 

860 FOR 1-1 TO zal 

870 LOCATE 8*1 , 1 1 PRINT CHR* <224) | i NEXT| R 

ET URN 

880 MODĘ 2 


Program możemy sobie uatrakcyjnić 
zmieniając np. ilości zbiorników (war- 
tość n). ilości składników paliwa (war- 
tość m), i ilość niezbędnych składni- 
ków do wytworzenia paliwa (k) — 
zmiany w wierszu 20. Trzeba jednak 
zaznaczyć, że zbyt duże wartości n i m 
spowodują, że ludzik będzie się poru- 
szał wolniej (przeglądanie coraz więk- 
szych tablic). Może ktoś z Was zapro- 
ponuje inny, bardziej efektywny sposób 
poruszania s . ludzika, bądź szybszego 
przeglądar a tablic. 

Wprowadzenie ograniczenia czaso- 
wego (np w ciągu 30 sek.) na doiście 
do rakiety i wystartowanie na pewno 
zwiększy atrakcyjność gry. Życzę do- 
brej zabawy. 


IKS — 30 


Cezary SOBCZAK 


Notowania komputerowe 


GIEŁDA 

ZX Spectrum Plus 

125 tys. zł 

ZX Spectrum 128 KB 

195 tys. zł 

Commodore 16 + magnet. 1531 

100 tys. zł 

Commodore C-64 

170 tys. zł 

Atari 800 XL 

125 tys. zł 

Atari 1050 + joystick 5 + 10 dyskietek 

185 tys. zł 

Magnetofon 1050 

50 tys. zł 

Stacja dyskietek 1050 

170 tys. zł 

Atari — programy: gry 

300 — 500 zł 

programy użytkowe 

200 — 400 zł 

programy kopiujące 

500 — 700 zł 

Amstrad 464 z monit, kolor. 

320 tys. zł 

Drukarka Seikosha GP 50S 

100 tys. zł 

Studio SYSTEM — Warszawa-Wola 

Commodore C-16 

92 tys. zł 

Sharp M-701 z plotterem 

150 tys. zł 

Schneider (Amstrad) CPC 6128 

885 tys. zł 

Schneider (Amstrad) PCW 8256 

1 200 tys. zł 

Schneider (Amstrad) PCW 8512 

1 540 tys. zł 

lnterface'y KEMPSON 

10 200 zł 

lnterface'y SINCLAIR 

10 620 zł 

Dyskietki 3" 

6,2 — 8,4 tys. zł 

Dyskietki 5,25” 2D 

1 071 zł 

Dyskietki 5,25” 2D firmowe 

3 500 zł 

Zestaw programów SPECTRUM (min. 8) 

1 600 zł 

Bogata biblioteka ATARI 

400 zł/szt. 


Liga 

Myślących 


A oto wylosowane nazwiska 
Czytelników, którzy za prawid- 
łowe rozwiązanie wszystkich za- 
dań LIGI MYŚLĄCYCH z 5 nr. 
„IKS-a” otrzymują nagrody 
książkowe: Andrzej BARCE- 

WICZ z Łomży, Sławomir RY- 
DEL z Kolna, Wojciech WÓJCIK 
z Ostrowca Świętokrzyskiego, 
Paweł URBAN z Rzeszowa, Ja- 
nina SZMYDT z Lubonia. 

Oto wylosowane nazwiska 
Czytelników, którzy za prawid- 
łowe rozwiązanie wszystkich za- 
dań z 6 nr. „IKS-a" otrzymują na- 
grody książkowe: Marek ZDEB z 
Pszczyny, Marek KRUŻEL z 
Tarnowa, Barbara GOŁKOW- 
SKA z Grudziądza, Ryszard BA- 
NIEWICZ z Bydgoszczy, Ta- 
deusz FRYSKA z Poznania. 

Za poprawne rozwiązanie 
wszystkich zadań z 7 nr. „IKS-a" 
książki otrzymują: Andrzej ERD 
z Radomia, Janusz GWÓŻD2 z 
Zawiercia, Marian RABCZAK z 
Gdańska, Krzysztof TOPOLSKI 
ze Zbąszynia, Witold WRÓBEL z 
Katowic. 

W siódmym numerze „IKS-a" 
skończyliśmy pierwszą edycję 
LIGI MYŚLĄCYCH. W siedmiu 
numerach „IKS-a" przedstawio- 
no 27 zadań o różnym stopniu 
trudności. Wszystkie zadania 
rozwiązał prawidłowo i otrzymał 
maksymalną liczbę 37 punktów 
HUBERT NOWACZYK z Gru- 
dziądza. Został on zwycięzcą 
pierwszej edycji LIGI MYŚLĄ- 
CYCH i otrzymuje magnetofon 
MK 232 p. 

Kolejne miejsca, z 36 punkta- 
mi, zajęli: 

Andrzej ERD z Radomia, Antoni 
GORYL z Krakowa, Janusz 
MORBITZER z Krakowa, Andrzej 
WRZEŚNIOWSKI z Krakowa i 
otrzymują radioodbiorniki ANE- 
TA. 

Za miesiąc rozpoczynamy ko- 
lejną edycję LIGI MYŚLĄCYCH. 
Czekamy na propozycję zadań 
— najciekawsze trafią na łamy 
LIGI. Myślący do pracy! 


dokończenie ze sir. 12 
3) „Elementy i przyrządy pół- 
przewodnikowe powszechnego za- 
stosowania” (cena 790 zł). Poziom 
conajmniej studencki. Michał Polo- 
wczyk zaczynając od fizyki półprze- 
wodników, poprzez rezystory, halotrony 
i diody doprowadza nas do tranzysto- 



rów oraz elementów fotooptycznych. 
Jest to bazą do trzech głównych 


części: obwody scalone analogowe, 
obwody scalone cyfrowe TTL oraz ob- 
wody scalone cyfrowe MOS. Wytrwały 
czytelnik pozna tajemnice „cegiełek” 
komputera. 


4) Użytkownicy ZX Spectrum mają 
wreszcie dobry podręcznik: „Prze- 
wodnik po ZX Spectrum” (cena 480 
zł) K. Kuryłowicz. D. Madej i K. Mara- 
sek. Starali się wnikliwie omówić 
wszystkie zakamarki i możliwości tego 
najpopularniejszego w Polsce mikro- 
komputera. Może to być z pewnością 
książka dla początkujących, zaś za- 
awansowani znajdą w niej wskazówki, 
gdzie poszukiwać dalszych informacji. 
Uzupełnieniem wiadomości o zmien- 
nych systemowych ROM jest też 
„Iksowski" cykl „Sztułi i sztuczki". 
A rozszerzeniem infornjacji o Basicu 
nasz kurs tego języka 
„Przewodnik" przyda się każdemu 
fanowi mikrokomputerów, często bo- 
wiem wykracza poza ramy Spectrum 
— ta wiedza z pewnością będzie poży- 
teczna. Szkoda jedynie, że na pierwsze 
tego typu wydawnictwo na tak dobrym 
poziomie — tak długo trzeba było 
oczekiwać. Uwaga nakład 1 50 000 tys. 

C.M. 


Krzyżówka nr 3 



POZIOMO: Al) Może być na przykład aperturowa, dualna, 
Indeksowa ilp., A7) Sekwencja rozkazów, która została celo- 
wo określona przez programistę I Jest wykonywana przez 
procesor w sposób powtarzalny, aż do momentu spełnienia 
założonego warunku, B5) Jednostka gęstości zapisu na 
magnetycznym nośniku danych, Cl) Określona porcja np. 
promieniowania, C7) Uniwersalny język programowy stoso- 
wany w zagadnieniach ekonomicznych i zarządzania, 

05) Jedno z wcieleń Janusza Gajosa, El) Robocza nazwa 
komputerów „Jednolitego systemu", E8) Grecki Mars, 
F4) Jednostka oporności elektrycznej, F7) Stała część na- 
zwy systemów operacyjnych dla komputerów rodziny RIAD 
lub firmy IBM, G1) Skrótowa nazwa angielskiego specjalisty- 
cznego systemu przetwarzania danych przeznaczonych do 
informowania kierownictwa, G8) Część ciała ludzkiego, 
H5) Potrawa na ratunek. II) Osoba żyjąca przy klasztorze nie 
składająca ślubów, 17) Odwrotność różniczki, J5) Imię żeń- 
skie, KI) Metropolita Jordanii. K7) W starożytnym Rzymie 
pieśń żałobna. 

PIONOWO: Al) Urządzenie zmieniające symbol pewnego al- 
fabetu na symbole innego alfabetu, G1) Obraz religijny w 
sztuce wsch. -chrześcijańskiej, E2) Skrótowa nazwa firmy bę- 
dącej największym producentem sprzętu komputerowego na 
świecie, A3) Pokaz, parada, G3) Mahometanlzm, E4) Ogól- 
na nazwa systemów operacyjnych dla komputerów rodziny 
RIAD, lub firmy IBM zapewniających mniejsze możliwości 
aniżeli system OS, A5) Starożytne liczydła, H5) Pistolet ma- 
szynowy skonstruowany przez Shepparda i Turpina, 

06) Przyjęta z języka angielskiego nazwa spójnika — lub, 
G6) Klasyczny japoński balet dramatyczny, A7) Nazwa sy- 
stemu informatycznego przeznaczonego do kierowania pro- 
dukcją, H7) Nazwa pakietu programów przeznaczonych dla 
komputerów serii Odra-1300 oraz ICL-1900 i stosowanych do 
kontroli zapasów magazynowych, E8) Stosowana w języku 
rosyjskim skrótowa nazwa zautomatyzowanego systemu za- 
rządzania, A9) Środki transportowe, G9) Może być opera- 
cyjny (mnożenia, sumujący itp.), E10) Skrót oznaczający 
komputer hybrydowy, Ali) Najpopularniejszy instrument 
muzyczny w starożytnej Grecji, atrybut Euterpe, Gil) Lęk, 
strach. 

Hasło: (D3, HI, H3) (B6, KIO, F8. F5, BI) (E4, 13, E8) (17, B7. 
B3, 12. E2, E10) 




SUN — GRAFIK — SYSTEM 

Szczególną właściwością tego urządzenia 
jest rozdzielczość jego ekranu, 1 152X900 
punktów. Komputer dysponuje 256 barwami, 
z których różne jasności tworzą paletę za- 
wierającą 16 700 000 kolorów! 



Rozwiązanie (tylko hasło) należy przesłać pod adresem re- 
dakcji do końca kwietnia br. Wśród czytelników rozlosujemy 
bony pieniężne i nagrody książkowe. 

..IKS dodatek ..Żołnierza Wolności . Redagują. Wiesław Cetera (Kierownik zespołuj, Ryszard Rogon. Stan współpracownicy: 
Włodzimierz Gogołek. Krzysztof Mamcarz. Ireneusz Miernik. Janusz Miller. Michał Przybyłowskl, Jacek Szaniawski. Adres redakcji: 
00-950 Warszawa ul. Grzybowska 77. telefon centrali 20-12-61 w. 486. Telex 313664. Rękopisów nie zamówionych redakcja nie zwraca 
i zastrzega sobie prawo do skrótów. Nakładem: Wydawnictwa ..Czasopisma Wojskowe", Warszawa ul. Grzybowska 77. Fotoskład i druk 
rotograwiurowy — Wojskowe Zakłady Graficzne im. gen. dyw. A. Zawadzkiego. Nr zam. 8587. Nr. ind. 361682. K-71 
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W numerze: 

• Komputer i stylisty- 
czne linie papilarne — 
czyli komputer w roli 
detektywa — str. 4 

• Gra w wilki i owcę 
(Spectrum) — str. 5 

• W Szponach Atari (3) 

— str. 7 

• Kreska CPC 464 (3) — 
str. 14 

• Radiokomputer zawsze 
we wtorki... — fotore- 
portaż — str. 16 — 17 

• Sztuki i sztuczki (6) 
czyli zmienne syste- 
mowe ROM (Spectrum) 

— str. 18 

• Odkrywcy gwiazd str. 20 

• Pascal (4) — str. 21 

• Przesunięcie zawar- 
tości ekranu — str. 27 

• Pogoń (Sharp) — str. 27 

• Liga Myślących — str. 30 

• Ankieta — str. 30 


SPECTRUM 


tss 

' * "0*^616 nazywasz 7 " 

130 IF LEN >t<j GR LEN »S>2® TH 
EU RRlNT BO.flT 1.0. OD 3 DO 20 L 
ITER 1 PmUSE £00 GO TO 110 
140 KOR r> = l TO LEN ii IF NOT l 
COCE »*in)>64 RND CODĘ i*irn<91 
OR COLE »S(n>>96 AND CODĘ i«in>< 
123> THEN PRINT BO . RT 1.0. "TYLKO 
LITER'. ! " : PAU3E 200 GO TO 110 
150 NEXT n 

160 IF CODĘ iCtli ; 9 1 THEN LET i 
Sili *CHR« (CODĘ » * I 1) -321 
170 FOR r. *2 Tu LEN i* IF CODĘ 
ismi .91 THEN LET i*in)«CHRS iCO 
DE iS(hi»32) 

180 NEXT r. : LET L aLEN i S 

190 IF THEN LET i S«i * 

*200 . IF »SU> 

210 ZF 


i S l 1-2 TO 

_. -2 TO ) « "lu 

220 ZF i*iL-l TO 
T i«(L-l TO ) = •■ 


1" THEN LET i|»il 
- THEN L 
THEN LE 


-1 TO 

240 IF i ii l-l TO 
T i *( i. -1 TO )«"iu" 

250 XF i « i l-l TO 
T i * U-l TO )*"lu 
260 ZF . 6 i l-l TO 
T i * i L-l TO ) *"»0 
270 IF i Si L-l TO 
T i S t . -1 TO » a"kO 
250 ZF iłiL-1 TO 
T i $ « L-l TO > =•' LO 
220 IF iSiL-l TO 
T i* u-l TO > a "jO 
300 IF i S t L-l TO 
T i s 1 1, - i TO ‘ = "no 
303 IF i* U-l TO 
T 1 % i L-l TO I ="ro 
305 IF i * U-l TO 
T i C. L-l TO i ="«0 
310 IF iSU-1 TO 
T 

315 LET 4|t"Ui ti, " ♦! $♦ ! 

320 LET z«3l-LEN as 
330 CL 5 FOR r. a 1 TO 10 BEEP . 
05 . 2 *r. PRINT hT łfi-1) »2.3.RND*Z 
. BRIGMT i. PRPER RND*7. INF 9. a 
S HEXT n 

340 PAULE 100 60 tO 110 

999 Cl 5 5AUE "lnona" LlNE 10 
O BEEP .1.19 PRINT "canfy 
lSkC.fi*" UERIFY CO TO 100 


a"fi» 


a " 1 2 


k' THEN LE 
O" THEN LE 
a" THEN Le 
a" THEN LE 
a" THEN LE 
a" THEN LE 
a" THEN LE 
THEN LE 
THEN LE 
THEN LE 
THEN LE 


KOMUNIKAT 

Po szczegółowym zapoznaniu się ze wszystkimi pracami nadesła- 
nymi na konkurs miesięcznika „IKS" na utwór fantastyczny pt. „Przed 
nami XXI wiek" jury konkursowe w składzie: 

Ireneusz CZYŻEWSKI — przewodniczący 
Elżbieta JEZIERSKA — sekretarz 
Włodzimierz GOGOŁEK — członek 
Andrzej MONASTYRSKI — członek 
Tadeusz PIEKŁO — członek 

na posiedzeniu w dniu 11 marca 1987 r. postanowiło: 

1. Nie przyznawać 1 1 II nagrody. 

2. Przyznać trzy III nagrody po 5000 zł nw. autorom: 

Robertowi JASTRZĘBSKIEMU z Łodzi (20 lat) za pracę pt. 
„Ocalony" 

Michałowi NIEDŹWIEDZIOWI z Krakowa (17 lat) za pracę pt. „Gdy 
wyłączę prąd” 

Andrzejowi DYRSZCE ze Świętochłowic za pracę pt. „Finał" 

3. Wyróżnić nagrodami po 3000 zł nw. autorów: 

Romualda PAWLAKA z Sosnowca za pracę pt. „Los człowieka — 
los maszyny" 

Wiesławę FRYMARK z Płocka (15 lat) za pracę pt. „Przedszko- 
laki — rocznik 1995” 

Marka RUDNICKIEGO z Wrocławia (19 lat) za pracę pt. „świado- 
mość" 

Tomasza ROLĘ z Krakowa (16 lat) za pracę pt. „Ślepe marzenia” 
Autora, który zastrzegł sobie nazwisko (do wiadomości red.) — za 
pracę pt. „Pojedynek" 

4. Wszystkie prace nagrodzone i wyróżnione zakwalifikować do dru- 
ku w miesięczniku „IKS". 

5. Ponadto zakwalifikować do druku prace n.w. autorów: Jana GRU- 
SZCZYŃSKIEGO ze Szczecina (30 lat) pt. „System lojalności", 

P. KRÓLAKA pt. „Stan gotowości" 

6. Przyznać dyplom uznania dla Ewy SIEROCKIEJ z Kalisza (13 i.) 
za opowiadanie pt. „Dziecko dr. Hakiosa". 

Jednocześnie jury wyraża podziękowanie wszystkim pozostałym 
96 autorom nadesłanych prac za udział w naszym konkursie. 
Uwagi o konkursie na str. 31 


Kolejną rewię komputerów mamy już za sobą. Wrocławski „INFOSYSTEM’87" 
udowodnił, że zainteresowanie Informatyką nie słabnie. Targowa oferta była 
tak obfita, że polaki rynek z pewnością jej nie potrafi skonsumować. Jedno- 
cześnia obok komputerowych potęg pojawiły się wśród wystawców nikomu 
dotąd nie znane firmy. Wiele z nich to efemerydy, których na następnych tar- 
gach nikt pamiętać nie będzie. 

Tymczasem, kiedy wrocławskie oferty szokują nowoczesnością, my będzie- 
my wreszcie mieli Juniora. Zatem za parę lat, jeśli na drodze do jego masowej 
produkcji nic nie stanie, będziemy wreszcie mieli sprzęt, nie wiadomo nato- 
miast czy będziemy mogli jednocześnie zaproponować odpowiednie jego 
oprogramowanie. A brakuje przede wszystkim oprogramowania edukacyjne- 
go, brakuje również programów użytkowych dla sprzętu tej klasy. Wypada wie- 
rzyć, że nasi Czytelnicy poradzą sobie z tym problemem. 

Pod naszym adresem nadchodzi wiele programów napisanych przez Czytel- 
ników. Długie wydruki (jeśli program otrzymaliśmy tylko w takiej postaci) już 
tracą na starcia I mają małe szanse trafić do druku. Dlatego też proponujemy 

GIEŁDĘ POMYSŁÓW, 

w której oceniać będziemy najlepsze pomysły w najkrótszych programach. 
Może być każdy komputer, może być dowolna postać programu — liczy się tyl- 
ko pomysł. I tylko takie będą każdego miesiąca trafiały na nasze tamy. Na auto- 
rów najlepszych pomysłów czekają co miesiąc laury triumfatorów. 

REDAKCJA 
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M * I *K*R*0*S*.E*R*W*I*S 


Microsoft C v.4.0 

MJG 909&ZT tozpoczeZa optzcdaz czwaticj. wetnji krjmpi.Lat.nt a 

jeżyka G dZa miktokompu-ietOw JSM 9G , ktdty cecfiu^e : 

• zaawanśowana optymalizacja kodu 
wykonywana auiomaiycznie v Atakcie 
HompiZaCji ; 

• Hompa-Aybi-Znaść z śyoicm em rjficta - 
cyjnym 286 XENIX rjtaz zgodność 
z ptacami ncwtmaZ.-i.za.cyyn ymi ANSI ; 

• mozZiwośC wyHatzyoianZa ptogtamu 
CodeView uZaiwiajacego ZokaZizacje 
bZeddw ; 

• wykotzyoianie caZej dośiepnej pa — 
mięci zapiśywaZ-nej ; 

• impZemeniacja zmiennych tejcśito - 
wych; 

• pięć modeCi pamięci wykotzyśiuja - 
cych zaZeiy aegmeniowey atchiiek - 
iuny ptoceoota INTEL 8086 • 

• mozbcwooC Zaczenia wZaoności ocznych madeZA pamięci w po jodyn — 
czym ptogtamie ; 

• bogaia bibiioAcka funckji < 200 } ; 

• mozZiwośC Zoczenia ptogtamdw naginanych w MS G z ptog tamami na- 
pinanymi w MS FORTRANIE , MS Pascalu i MS Macro Assemblerze ; 

• duży zeaiaw HomunckaiOw umozZiwiajacych ztoHaZizowanie bZeddw . 



smARTWORK i HiWIRE 



Trzy lała temu WINTEK zaprojektowaZ i wykonaZ 
program o nazwie smARTWORK , k.tdry uZatwia 
projektowanie pZytek drukowanych . Od tego 
czasu tysiące inżynierów uczyniZo go popular- 
nym programem CAD w elektronice. V lutym b.r. 
ukazaZa sie nowa wersja programu <"w.l.2 rój 
jednocześnie firma WINTEK wprowadziZa program 
towarzyszący o nazwie HiWIRE , reklamując go 
iss rozpoczyna on prace .gdy smARTWORK ja za - 
koiiczyZ . HiWIRE jest programem wspomagającym 
rysowanie schematów elektrycznych Istotna 
cecha programdw jest możliwość korzystania 
Z biblioteki gotowych element Ow , każdy z pro- 
gramdw kosztuje 8gs 9 . 


□a 


OD 


MIKRODEPESZE 


Paul Allen, który wraz z Billem Gat 
załoaył nowa firmę ASYMETR,, 
pisanie oprogramowania przeznaczonego 
aonych w mikroprocesory 80286 i 80386 


■y utworzył korporacj 
I X . Głównym Jej zad 
lego dla mikrokompute 


e Microsoft, 

laniem ma byó 

:rokomputerów wyposa - 


opracowali: Hariusz Jarzębowski i Jacek Wojtala 




KOMPUTER 

I STYLISTYCZNE LINIE PAPILARNE 


Każdy z nas może spróbować swych 
sił jako detektyw o specjalności ... lite- 
ratura. „Literacki detektyw" stara się 
zidentyfikować autora przez odpo- 
wiednią analizę próbki jego twórczości. 
Często prowadzi to do wyróżnienia 
rzeczywistego autora spośród grona 
kandydatów do miana twórcy analizo- 
wanego dzieła. 

Dotychczas w badaniach tego typu 
wykorzystywano szereg różnych metod 
identyfikacji. T. C. Mendenhall stoso- 
wał częstotliwość długości słów jako 
podstawę do oceny autorstwa pew- 
nych dzieł Szekspira. Badacz ten poli- 
czył długość 400 000 słów z utworów 
Szekspira i 200 000 słów Bacona. Na- 
stępnie narysował krzywą częstotli- 
wości każdego autora. Krzywe z 
Szekspira i Bacona różniły się między 
sobą. Natomiast krzywa Ch. Marlowe'go 
z szekspirowską były niestety niemal 
identyczne. 

G. Udny Yule użył do badania autor- 
stwa częstotliwości występowania 
pewnych rzeczowników, jakimi posłu- 
giwali się potencjalni twórcy analizo- 
wanego dzieła, A. Ellegard użył podob- 
nej metody opierającej się na częstotli- 
wości występowania pewnych słów, do 
1 ■ 1 b hstów 

które zostały opublikowane w Londynie 
(od stycznia 1769 do stycznia 1772). 
Ellegard wyróżnił trzexh c«vc .,. 
autorów ze wskazaniem na Sir P. Fran- 
cis^. 

F. Mosteller i D. Wallace liczyli czę- 
stotliwość występowania drugorzęd- 
nych słów. by określić, którzy z auto- 
rów: A. Hamilton czy J. Madison napisa- 
li 12 artykułów w znanym wówczas 
piśmie THE FEDERALIST (lata 1 787 - 
1788)\ 

Mosteller i Wallace uznali, iż drugo- 
rzędne słowa, takie jak „a", „an", „by", 
„to" i „that" są doskonałymi „wyróżni- 
kami” autorów. 

Inną metodę przyjął W. Bennett, do- 
wiódł, że częstotliwość używania poje- 
dynczych liter jest wyróżnikiem między 
próbkami tekstu, jednak tylko na po- 
ziomie określonego języka (na przykład 
angielski i hiszpański). Natomiast czę- 
stotliwość par liter zazwyczaj wystar- 
cza do określenia różnic między auto- 
rami. Bennett przeprowadził badania, 
używając częstotliwość par liter w celu 
przyporządkowania autorów: Heming- 
way. Poe. Baldwin. joyce. Szekspir. 
Washington i Lincoln pracom będącym 
dotychczas anońimowymi. 


Analogia z detektywem pozwala 
uznać, że autor pozostawia znaczące 
ślady w swych pracach, które można 
uznać jako stylistyczne odciski palców. 
Istotne jest. że „ślady te" nie są zwią- 
zane ze stylem, ale tworzą wiele para- 
metrów, które mogą wyróżniać autora. 

J. Tankard (autor prezentowanego 
opracowania) napisał kilka programów 
na Apple II, które umożliwiały wykorzy- 
stać analizę jedno- i dwuliterową. Na- 
stępnie programy zostały przetestowa- 
ne na wspomnianych artykułach pisma 
„The Federalist". 

Programy te, zgodnie z założeniem, 
czytały teksty ze zbiorów, liczyły czę- 
stotliwość występowania liter samo- 
dzielnych i par liter, normalizowały ob- 
liczenia do standardowych próbek np.. 
1 000 liter lub 1 0 000 liter oraz rachowa- 
ły poszukiwane różnice częstotliwości. 

Napisanie programów okazało się 
bardzo proste Podstawowym był do 
analizy pojedynczych liter, jego prosta 
modyfikacja liczyła częstotliwość par li- 
ter Prostota tego zabiegu stanowiła o 
„sile komputera". Programy zostały na- 
pisane w Basicu — liczenie częstotli- 
wości samodzielnych liter, par liter i 
analizy statystycznej 

Punkt wyjścia opisywanego zasto- 
sowania mikrokomputera stanowiło 
odnalezienie tekstów, których autor był 
znany. Teksty Madisona zawierały 
18 087 znaków, natomiast Hamiltona 
9399 znaków. Nie miało to istotnego 
wpływu na wyniki, bowiem wcześniej 
dokonano normalizacji częstotliwości 
próbki do 1000 dla samodzielnych liter 
i 10 000 dla par liter. 

Analiza częstotliwości wskazała, że 
tytko 9 z 12 przypisywanych dotych- 
czas Madisonowi artykułów było jego 
nutn^fwn 

Wytłumaczenie tej różnicy, wobec 
wyników Mosteller'a i Wallace'a leży 
prawdopodobnie w rozmiarze próbki 
tekstów, które były traktowane jako 
znane teksty. Tworzyło ją aż 70 000 
słów wobec 6000 u Tankarda (1/3 
Hamiltona i 2/3 Madisona). Inną przy- 
czyną jest zapewne formalny styl, jaki 
narzucało pismo „The Federalist". 

Próbki tekstu przeznaczone do kom- 
puterowej analizy powinny być umie- 
szczone w samodzielnych zbiorach. 
Wykonano to za pomocą standardo- 
wego programu Apple Writer, który po- 
nadto umożliwił łatwą kontrolę i korektę 
wprowadzonych tekstów. 


Liczenie częstotliwości dla pojedyn- 
czych liter, za pomocą programów 
Tankarda trwało od 1 0 do 1 5 minut dla 
tekstów o długości 2000 — 3000 słów. 
Programy te zawierały szereg dodat- 
kowych funkcji, na przykład drukowa- 
nie tabel. 

Następnym logicznym krokiem w te- 
go typu badaniach powinno być pod- 
niesienie poziomu analizy do „triad" — 
trzech liter.’ Jednak rozszerzenie anali- 
zy do trzech liter wnosi sobą problem 
trudny do rozwiązania w mikrokompu- 
terze APPLE II — pojemność pamięci 
RAM. 

Analiza triad powinna podnieść wia- 
rygodność rozpoznawania autorstwa, 
bowiem teoretycznie aż 1 7 576 zmien- 
nych może wyróżniać autorów (dla ję- 
zyka angielskiego: 26 X 26 X 26 liter). 
Zabieg ten umożliwił by uwzględnienie 
3-literowych słów — niemal pełną ana- 
lizę „drugorzędnych słów", które w ba- 
daniach Mostellera i Wallace a okazały 
się dobrymi wyróżnikami — stylisty- 
cznymi odciskami palców 

Opracował: 
WŁODZIMIERZ GOGOŁEK 

' Hamilton Alexander 1 755—1 804, po- 
lityk amerykański, przywódca federa- 
listów. Madison James. 1751—1836, 
prezydent Stanów Zjednoczonych 
(1809—1817) jeden z przywódców 
walk o niepodległość. 
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Amstrad 


Kopiowanie 

ekranu 

Program pozwala 
na przeniesienie obra- 
zu z ekranu na papier 
za pomocą dowolnej 
drukarki. Kopiowany 
obraz otrzymujemy w 
formacie 7X13 cm, a 
czas kopiowania wy- 
nosi około 1 minuty 
bez wzglądu na zło- 
żoność kopiowanego 
obrazu. 

W celu wykonania 
kopii, przed wprowa- 
dzeniem właściwego 
programu należy wczy- 
tać niniejszy pro- 
gram. 

Wciśnlącle CTRL I 
COPY spowoduje prze- 
niesienie obrazu na 
papier. Proces ten 
możesz zatrzymać w 
każdej chwili przy- 
trzymując dłużej kla- 
wisz SHIFT. 

Uwaga!!! 

Program wykorzy- 
stuje komputer do 
wykonywania kopii, a 
następnie zostaje 
automatycznie ska- 
sowany, dlatego na- 
leży pamiętać, aby po 
przepisaniu z zamie- 
szczonego wydruku 
najpierw zapisać go 
na dysku lub taśmie, 
a dopiero później 
sprawdzić popraw- 
ność działania. 


30 

31 


Kopiowanie ekranu 
autor i Clif-f Lawson 
copyright (c) AMSOFT 
opracował dla IKS 
Coz*ry Dobrowolski 

***************** 


40 ZONĘ 3: MODĘ 2: LOCATE 12.10: RRINT " 
proszę czekac.": 

50 MEMORY HIMEM-353 
60 addr=HIMEM+l 

70 lin*180: REM pierwsza linia danych 
80 ON ERROR GOTO 160 
90 ps*1! sum*0 
100 READ a* 

110 n=OAL < "fc"+MID* (a*, ps, 2) ) 

120 ps-ps+3 

130 IF ps <-.26 THEN POKE addr, n: addr»addr+ 
1 : sum« (sum+rOMOD 256 ELSE IF suinOn THEN 
PRINT i PRINT : PRINT"b lad danych w lini“.l 
iniPRINT CHR 

* (7): MEMORY HIMEM +353: END 
140 IF ps<27 THEN GOTO 110 
150 1 in»l in+10:PRINT ,, ."i.:GOTO 90 
160 IF ERR-4 AND ERL-100 THEN MODĘ 2: LOC 
ATE 22 , 1 0 1 PR I N T " Naę i sn i ,j CCTRL3 i CC0FY3 
dla rozpoczęcia kop iowan ia" s LOCATE 25.1 
2: PRINT “Trz 

vmaj C SHIFT 3 dla przerwań ia" : CALL HIMEM+ 
1 : NEW ELSE PRINT "blad : " . ERR, "w" . ERL 
170 END _ 

180 DATA 21 El E9 22 30 00 F7 EB IF 

190 DATA 21 49 01 19 4E 23 46 79 B4 

200 DATA BO 28 15 E5 60 69 19 E5 99 

210 DATA 4E 23 46 60 69 19 44 4D 2A 

220 DATA El 71 23 70 £1 23 18 E4 E3 

230 DATA 21 49 00 06 81 OE 00 11 10 

240 DATA 2F 00 CD D7 BC C9 C5 D5 F2 

250 DATA E5 F5 3E 09 CD 1E BB 28 EF 

260 DATA OA 3E 17 CD 1E BB 28 03 30 

270 DATA CD 59 00 FI El Dl C.1 C9 53 

280 DATA 00 00 00 00 00 00 00 00 00 

290 DATA 00 00 00 00 00 00 00 00 00 

300 DATA DD 21 52 00 DD 36 01 00 64 

310 DATA DD 36 02 00 DD 36 03 90 BB 

320 DATA DO 36 04 01 DD 36 05 00 30 

330 DATA DD 36 00 00 3E IB CD CC 05 

340 DATA BB D5 E5 CD 2B BD 3E 41 A9 

350 DATA CD 2B BD 3E 06 CD 2B BD AE 

360 DATA CD 2E BD 38 FB 3E IB CD 11 

370 .DATA 2E< BD 3E 4B CD 2B BD 3E 64 

380 DATA 40 CD 2B BD 3E 01 CD 2B 2C 

390 DATA BD DD 36 00 00 DD 36 06 E9 

400 DATA 00 DD CB OO 26 DD 5E 01 OA 

410 DATA DD 56 02 DD 6E 03 DD 66 C6 

420 DATA 04 CD FO BB B7 28 04 DD 3C 

430 DATA CB 00 C6 DD 34 06 DD 7E 03 

440 ''DATA 06 FE 07 28 12 DD 6E 03 93 
450 DATA DD 66 04 2B 2B DD 75 03 F2 

460 OATA DD 74 04 18 CC 18 A9 CD C7 

470 DATA 2E BD 38 FB DD 7E 00 CD 46 

480 OATA 2B.BD DD 34 01 DD 34 01 OC 
490 PATA 20 03 DD 34 02 DD 7E Ol 92 

500 DATA P6 82 20 0~ 00 7E 02 FE DA 

•510 DATA 02 28 12 DD 6E 03 DD 66 CD 

520 ÓA TA 04 11 OC 00 19 DD 75 03 8F 

530 DATA DD 74 04 16 BC DD 34 05 OF 

540 DATA 3E OA CD 2B BD 3E OD CD 15 

530 DATA 2B BD 3E 15 CD 1E BB 20 01 

5oO DATA OF DD 36 01 00 DD 36 02 38 

570 DATA 00 DD 7E 05 FE 22 20 A5 45 

580 DATA 5E IB CD 2B BD 3E 40 CD 59 

590 T3ATA 2B BD El Dl CD C9 BB C9 BA 

600 OATA 22 00 29 00 4- 00 5B 00 E8 

6 1 0 DATA 00 00 00 00 00 00 00 00 00 


Gra 
w wilki 
i owcę 

Jesteś władcą czterech 
wilków, których zadaniem 
jest zamknięcie owcy w 
śmiertelnym pierścieniu. Gra 
ma prostą szatę graficzną, 
gdyż przy minimalnych zmia- 
nach może być „wpalcowana" 
nie tylko na SPECTRUM. 

Wprowadzenie współrzęd- 
nych ruchu jest w pełni kontro- 
lowane i nie ma obawy, by 
wykonać ruch niepoprawny. 

Teraz trochę o owcy — 
włada nią komputer. Owca 
porusza się (losowo?) do 
przodu, do momentu, gdy 
odkryje przejście między wil- 
kami. Wtedy dąży do przejś- 
cia najkrótszą drogą. Odkry- 
cie najkrótszej drogi umożli- 
wia jej algorytm LEE: wokół 
pola owcy (suma = 0, patrz 
zmienna „SUMA"). Każde po- 
le, na które w jednym ruchu 
może owca stanąć, przyjmuje 
wartość SUMA + 1. Teraz 
każde nowe pole jest anali- 
zowane analogicznie i wsta- 
wiana jest tam znowu wartość 
o 1 większa od pola startowe- 
go. Tak tworzony jest graf, 
który zostanie skończony, 
gdy wszystkie dostępne pola 
będą zajęte. Jeśli do Interesu- 
jącego nas pola jest dojście, 
to pole to ma jakąś wartość, 
jeśli nie, to wartość tego 
pola nie zmieniała się pod- 
czas budowy grafu. 

r 
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SPECTRUM 


Przykład: 

ABCDEFGH 
82#2#2#4#8 
7 # 1 # 1 # 3 # 5 7 
62#0#2#4#6 
5 # 1 # 1 ł 3 # 5 5 
42#2#2#W#4 
3#W#W#3#W3 
2 8 « 6 » 4 « 4 « 2 
1 # 7 # 5 #5 # 5 1 
ABCDEFGH 


W ten sposób do pola FI z 
pola C6 możemy dojść pię- 
cioma ruchami (przy nieru- 
chomych wilkach, które nie 
odetną nam drogi). Drogę 
wyznaczamy, cofając się z po- 
la FI (po zmniejszających się 
cyfrach) do pola C6. 


^ 1 REM gra w wilfci i Owce 

Krzuazcof Pozniak 1986 HOBBZTe 
5 RRINT ' GRR U UILKI . 

OUCe" PRINT PRINT PPINT "P 
oruszasz łi« wi l fc a a i podtjsc 
spoirzadna początku i końca r u- 
hu wilkiem dużymi li tarami : 

np ; . ..H9...G8": PRINT : P 

RINT ; PRINT " PRZYJEMNEJ Zh 

BRWY" 

10 PRINT PRINT : PRINT : PR i 

NT "NRCISNIJ DOUOL.NY KLRUISZ" 

20 P IM P* H0 , 10> 

30 0 IM p i 10 . 10' 

35 P IM ft (2,5) 

36 P IM aS'2< ■ PIM b»i2> 

37 PIM C (13.*) 

*0 FOR kol TO 10 PERO P*(fc> 
NEXT k 


56 REM PRU5E 0 - program cz*.. 
az nacisnistz dowolny klawisz 
60 PRUSE 0 

85 REM RT 0.0; - druk od lawao 
o gornago rogu akranu 

90 PRINT RT 0,0. FOR fc«l TO - 
2: PRINT ■' 

: NIXT k 

100 LET droga«0 LET gra«Q LET 

105 '■pRINT RT 0.0; : GO 3UB 1000 

107 GO 5UB 2000 

108 FOR k=l TO * PRINT " 

" . NEX7 
k 

109 IF gra <■» TMEN GO SUB 6000 


187 GO SUB 

128 IF ZWWC>0 TMEN GO TO 200 
130 GO SUB 3000 


200 PRINT PRINT 
210 IF ZWYC*1 TMEN PRINT "ZUYC I 
EZYLR OUCR' 


dant z pRTR od początku 

2*0 RESTORE 

999 STOP 


rganizac j 
=0 TO I: 

R 1*2 TO 


P ( k +* , l +» ) *1 NEXT l: NEXT k 
EXT m 

1020 LET P (A (1 , 1) ,A (2 . IM *10 FC. 
R k*8 TO 5: LeT p (m ( 1 , k ) , A (2 . k ) • 
*0 NEXT k 
1030 RETURN 

2000 REM druk pola gry 

2010 LET p« (A (1.1) ,A (8. 1) ) * ,, 0" : 

FOR k =2 TO 5: LET P * (M ( 1 , k ) , A (2 


PRINT p« (k . I) ; NEXT l : 


2030 RETURN 


na pgia : "i b$ 

3010 FOR fc*2 TO 9 IF aillliPIU 
. k ) ■ TMEN LET xs*k GO TO 3030 
3020 NEXT fc LET blad*l: GO TO 3 
500 

3030 FOR k *8 TO 9 IF l|IS)sp|i< 


l . PR II 
NEXT 


NT 


LET b. I a d * 1 : 


30*0 NEXT k 
500 

3050 FOR fc*2 TO 9 IF b«(l)*P«U 
, k ) TMEN LET xk«fc GO TO 3070 
3060 NEXT k LET blad*l: GO TO 3 
500 

3090 FOR k*2 TO 9: IF bS(2)*Pt<k 
.1) TMEN LET w k * k : GO TO 3110 
3100 NEXT fc : LET biad *1 GO TO . 
500 

3110 FOR k *2 TO 6 IF A ( 1 , k ) *y £ 
RNP A(2.k)«xs TMEN GO TO 3130 
3120 NEXT k: LET 6lad*8: GO TO : 
500 1 


LF. 


Krzysztof PÓŹNIAK oJ 3 ;«o S i^ń8fc’,!; 

T biad *3: GO TO 3500 

“T a ( l , k ) *y k : — 


31*0 LET A ( 1 . k ) »y k : LET W (2 . k ) * 

k : LET p* (ys ,X|)b'' 

3150 RETURN 

350© rem biad propozycji ruchu 
3505 PRINT RT 0,0. GO SUB 2000 
3510 IF blad*l TMEN PRINT "niazr 
ozuftiaia wspoirzadne ruchu" 

3520 IF biad»2 THEN PRINT "Z la O 
Krisunit PD lo lania wilka" 


3530 IF biad*3 TMEN PRINT "bltdn 
a propozycja ruchu wilkieA" 

35*0 GO fUB 3600 PRINT POWtOTZ 
propozycja ruchu 
35*5 FOR k *1 TO 6: PRINT : NEXT 

3550 GO TO 3000 

3600 REM wydruk ruchu 

3610 PRINT " z pozycji ; " ; a s ; " 


3620 print -na pozycja 


"J b*. " 


3630 RETURN 

4000 REM aigorytA LEE 

*005 LET iU»a=10 

*006 LET nh *2 LET pc*0 LeT c *0 
LET C >1,1) *A *1,1) : LET C(l,2)» 

fk(a.l) 

*007 LET i h f *0 

*010 FOR C«2 TQ 0 STEP -2: LET c 
(13.1+CJ *nh-l: LET nh»l: FOR h*l 
TO C (13, 1 1 C ) : LET k«C(h,l+PC): 

LET *C(h,2+PC) 

*020 FOR »«-l TO 1 STEP 2: FOR n 

«-l TO 1 STEP 2 

*025 LET wy =k--n LET HX«l-» 

*030 IF p iwy , wx ) >suAa +1 OR P (wy . 
WX)«l THEN LET inf*l LET p(wy,w 
x ) =suma ♦ 1 LET c (nh , l ♦ c ) «wy : LET 
c (nh ,2*c) *wx LET nhanhel 
*0*0 NEXT n NEXT a 
* 0*5 NEXT h 

*050 IF i n f *1 TMEN LET »uAa*suA* 
♦1: LET PC*C; NEXT C: GO TO *007 

*060 IF i u ma *10 TMEN LET zwyc‘ 
RETURN 

*070 IF droga*© TMEN GO SUB 5000 
: LET p Z A l O Ł *Z W l O S : GO SUB 5000 
LET kz» los =Zta 10S 

4071 LET Ain*100. FOR k*6-PZAlO» 
*3 T.O 6 +PZ A 10S *3 STEP PZWlOS 
*072 IF kZAlO«*-l RND p (9 , k ) > 1 T 
HEN LET A i n *p (9 ■ k ) LET Px*k 
TO *090 

*075 IF t ZA 104 * 1 RNO P (9 , k ) >1 RN 
O p (9, k ) <Ain THEN LET Ain*P(9,k) 
LET p>.«k 

*080 NEXT k: IF Ain*100 THEN LET 
droga»0: GO TO *100 
*090 LET drog«*l. LET py *9 LET 
su»a*min: GO sub *600 
4095 FOR k*2 TO 4 If ItUlllll 
, k ) THEN RETURN 

*097 N£XT k LET zwy C *1 RETURN 
*100 FOR g*gra to gra+2 LET py* 
8 -INT <g/*> LET PXs 8 - 2 * ig-*łINT 
(9 '*) ) : IF py*3 OR py*5 OR py*7 
OR Py *9 THEN LET px*ll-Px 
*110 IF pipy,px»>l RNO P(py,px)< 
>10 THEN LET SUAa*P (Py ,PX) GO S 
UB *500 RETURN 
4120 NEXT g 

*130 FOR fc«2 TO 9 FOR 1*2 TO 9 
IF pik. U *11 TMEN LET py*k: LET 

p x * l : LET suma *11: GO SUB *500; 
RETURN 

*1*0 NEXT l: NEXT k 
4150 STOP 

*500 REM szkania drogi 
*505 GO SUB 5000 FOR k*-l TO 1 
STEP 2 FOR l*-l TO 1 STEP S IF 
p (py-i ,pxazA io**k ) osuaa-i tmen 
GO TO 4530 

*510 IF P (py-l ,PX*ZAlO»#k) *10 TM 
EN LET A ( 1 , 1) *py LET A(2.1)*PX: 
LET p* (py-l ,px»ZA loaak) " RE 
TURN 

*520 LET »uma*$uma-l' LET Py=py- 

i . LET px*px +zm los *k 

4525 GO TO 4505 

*530 NĘXT l : NEXT k 

45*0 STOP 

5000 rem funkcja losowa 


5030 IF (f>-.l RNO f < . 3) OR (f>. 
5 RNO fi. 505) OR ■' f > . 5* RNO f <6) 
OR f > 0 . 65 THEN LET ZA10S--1 
50*0 RETURN 

6000 REM ruch owcy losowy 
6010 GO SUB 6000: l.ET P*(A(1,D, 
A (2,1))#" " : LET m (1 , 1) *A (1, 1) *1 
LET mi2,ltsi»(2,l)+ZMlOS 
6020 RETURN 

9000. DRTR " RBCOEFGH ", 

"6 U « « 88 " , 

"78 8 B 8 7" , 

"6888 86 " , 

"58 8885", 

"A 8 8 8 84" 

"38 8 8 8 3", 

"2 8 a 8 82" , 

" 18 8 O 8 1" . 

" ReCOEFC-H " 

3005 rem pozycja startowa pionow 
9010 DR1R S, 6-9. 3. 9. 5, 9, 7, 9,9 
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W szponach Atari (3) 


Wielojęzyczne 
Atari 


Ludwik PIELA 
Tomasz MROWIEĆ 


Wielu ludzi traktuje ośmiobitowe komputery Atari jako maszyny 
do gier. Wynika to zarówno z wcześniejszej renomy tej firmy, (o 
czym już pisaliśmy), jak i mnogości oferowanych gier, które często 
przesłaniają pozostałe programy. Jednak Atari 400, 800, XL i XE mają 
normalny mikroprocesor i są zdolne do działania w ponad dziesięciu 
językach programowania, od BASICa do LISPa. 

Poniżej przedstawiamy przegląd języków programowania, dostęp- 
nych obecnie dla 8-bitowych komputerów Atari. 


Komputery mogą wykonywać tylko 
takie programy, które maią postać liczb 
dwójkowych, będących kodami rozka- 
zów maszyny, Mówimy, że są to pro- 
gramy w języku lub kodzie maszyno- 
wym 

Wczesne mikrokomputery były wy- 
posażone w zestaw przełączników na 
płycie czołowej, służących do wprowa- 
dzania 0 i 1 do komórek pamięci Diody 
świecące wskazywały zawartość po- 
szczególnych bajtów. Jednak ręczne 
ustawianie przełączników w 'celu 
wprowadzenia rozkazów do pamięci 
było źródłem znacznych błędów. Na 
szczęście, komputery Atari nie są pro- 
gramowane w ten sposób. 

Język asembler 

Programy w języku maszynowym są 
prawie nieczytelne dla ludzi. Dla ułat- 
wienia projektowania takich progra- 
mów i' ich późniejszego zrozumienia 
używane są inne sposoby ich przedsta- 
wiania. Jeżeli kody rozkazów zastąpimy 
symbolami mnemotechnicznymi, a 
adresy i wartości ich nazwami, to 
otrzymamy język asemblera. Program, 
który tłumaczy symbole rozkazów na 
odpowiadające im kody maszynowe i 
zamienia nazwy na odpowiednie adre- 
sy i wartości nazywa się asemblerem. 

Pewne asemblery, zawierające róż- 
ne udogodnienia dla programistów, a 
zwłaszcza możliwość tworzenia i uży- 
wania zestawów procedur, zwanych 
makroinstrukcjami, noszą nazwę 
makroasemblerów 

Chociaż nie tak trudny do używania 
jak kod maszynowy, w dalszym ciągu 
język asemblera jest wygodniejszy dla 
komputera, niż dla użytkownika. 

Dla komputerów Atari istnieje sześć 
różnych języków asemblera: Atari As- 


sembler-Editor, Atari Macro As- 
sembler-Editor MAC/65 MAE (Mac- 
ro Assembler-Edltor) Synassemb- 
ler. Datasm/65 Różnią się one złożo- 
nością, elastycznością, wielkością i 
łatwością użycia. 

BASIC 

BASIC jest najbardziej popularnym z 
języków programowania mikrokompu- 
terów. W rzeczywistości nie jest to je- 
den język, lecz cała rodzina języków o 
wspólnym rdzeniu. 

BASIC stał się popularny głównie z 
powodu jego przyjazności dla użyt- 
kownika. Inne języki komputerowe są 
skomplikowane i używają nieznanych 
słów. symboli, i składni. BASIC „roz- 
mawia'’ w bardzo prostym języku an- 
gielskim, używając stosunkowo małej 
liczby słów, które mogą być z początku 
niezbyt zrozumiałe. 

BASIC ma pewne wady spowodo- 
wane przez wrodzony brak struktury. 
Często mówi się, że w tym języku pro- 
gramiści mają zbyt dużo swobody w 
wykonywaniu skoków. Jeśli skompli- 
kowany program w BASICu nie został 
dobrze udokumentowany za pomocą 
komentarzy, to jest trudny do zrozu- 
mienia nawet dla autora. 

Dla komputerów Atari istnieją trzy 
wersje języka BASIC. Najbardziej popu- 
larny jest Atari BASIC Początkowo 
istniał na 8KB pakiece ROM (cartridge). 
a następnie, po modyfikacji, został 
wbudowany do komputerów serii XL. 
Został on opracowany przez firmę Op- 
timized Systems Softwarte (OSS). 

Po rozszerzeniu oryginału o ponad 
czterdzieści dodatkowych funkcji, 
powstał BASIC A+. Dostarczany jest 
na dyskietce i zajmuje około 16KB pa- 
mięci RAM. Jest łatwiejszy w użyciu niż 


Atari BASIC i umożliwia programowa- 
nie strukturalne. Służą do tego instruk- 
cje IF... THEN... ENDIF i WHILE ... 
ENDWHILE. Inne usprawnienia obej- 
mują funkcję TAB, instrukcję INPUT. 
Dostarczone są dodatkowe funkcje 
manipulowania ciągami znaków, kon- 
katenacja i możliwość wyszukiwania 
podciągów za pomocą funkcji FIND. 
Włączono również kilka funkcji uła- 
twiających uruchamianie programów. 
TRACĘ umożliwia wyświetlanie komu- 
nikatów błędów podczas testowania 
programu. Funkcja IF ERR służy do te- 
stowania warunków błędu i sterowania 
przebiegiem programu Możliwe jest 
także kasowanie grupy linii za pomo- 
cą jednej instrukcji DELETE. 

Jedną z najciekawszych własności 
języka BASIC A+ jest obszerny zestaw 
rozkazów graficznych gracz (pocisk/- 
player/missile-P/M), Czynią one grafikę 
P/M tak łatwą w użyciu jak PLOT i 
DRAWTO. 

Firma OSS opracowała również dwa 
inne dialekty tego języka: BASIC XL i 
BASIC XE. Pierwszy z nich jest niezna- 
cznym rozwinięciem BASIC A+ umie- 
szczonym w pamięci ROM. 

BASIQ XE wprowadzony został dla 
ATARI 130XE wkrótce po pojawieniu 
się tego komputera w 1985 roku. Wy- 
korzystuje on dodatkowe 64KB pamię- 
ci RAM. dlatego może działać tylko na 
ATARI 130XE. Podobnie jak BASIC XL 
dostarczany jest w pakiecie ROM ze 
zbiorem „Extensions" na dyskietce. 
Umożliwia wykorzystanie 35KB na pa- 
miętanie zmiennych i 65KB na pro- 
gram (po podaniu komendy „Extend’'). 
Odznacza się pewnymi udoskonale- 
niami w stosunku do innych wersji. Do- 
tyczą one głównie funkcji działających 
na ciągach znaków. Konkatenację 
trzech ciągów znakowych zapisuje się 
następująco: AS=AS, BS, CS. Lepiej 
rozwiązane są również tablice teksto- 
we. Ich wymiary podaje się w taki spo- 
sób jak dla tablic numerycznych. Na 
przykład, DIM V S (3, 12) określa wy- 
miary tablicy zawierającej trzy elemen- 
ty o długości 1 2 znaków każdy 

BASIC XE ma łatwą w użyciu ins- 
trukcję sortowania działającą na tabli- 
cach numerycznych i tekstowych. Ma, 
również, podobnie jak BASIC XL, wbu- 
dowane instrukcje DOS-u, można za- 
tem kasować, wyprowadzać, zmieniać 
nazwy, zabezpieczać i odbezpieczać 
zbiory z wnętrza programów. 

Atari Microsoft BASIC (ASMB) do- 
starczany jest w dwóch wersjach: dy- 
skowej lub „cartridge" (dysk /ASMB II). 
Mają one te same możliwości, lecz po- 
Tecany jest ASMB II, ponieważ pakiet 
ROM jest trwalszym nośnikiem niż dysk 
chroniony przed kopiowaniem. 

ASMB jest nadzbiornikiem Microsoft 
BASIC, wykorzystującym specyficzne 
możliwości Atari w zakresie dźwięku i 

» 


* 

grafiki. Dużą jego wadą jest brak kon- 
troli składni podczas wprowadzania 
linii programu; błędy wykrywane są do- 
piero podczas działania programu. 
Pozwala za to wybrać typ zmiennej 
numerycznej, całkowitą lub rzeczywi- 
stą oraz jej dokładność — pojedynczą 
lub podwójną. Funkcje matematyczne 
realizowane są przez pakiet zmienno- 
przecinkowy systemu operacyjnego, 
dzięki temu wzrasta szybkość obli- 
czeń. 

jedną z cennych zalet ASMB jest 
możliwość akceptowania funkcji zdefi- 
niowanych przez użytkownika. Pozwala 
to modyfikować instrukcje języka. 

Być może najbardziej żnacząca róż- 
nica między tą a innymi wersjami BA- 
SlCa polega na sposobie manipulo- 
wania ciągami znaków. ASMB nie wy- 
maga deklarowania wielkości dla cią- 
gów jednowymiarowych, dopuszcza 
maksymalną długość ciągu 255 zna- 
ków i pozwala stosować prawdziwe 
tablice tekstowe. Zawiera również inne 
użyteczne funkcje: konkatenację, pod- 
ciągi lewy, środkowy i prawy oraz wy- 
szukiwanie podciągu 

ASMB zaopatrzony jest w instrukcje 
umożliwiające automatyczne numero- 
wanie, zmianę numeracji i kasowanie 
linii. Umożliwia śledzenie realizacji pro- 
gramów i przekazywanie wartości 
zmiennych z jednego programu do 
drugiego. Dodatkowe lub zmodyfiko- 
wane instrukcje obejmują WAIT (za- 
trzymanie realizacji programu na okreś- 
lony czas), IF THEN ELSE oraz po- 
łączenie FLOT DRAWTO w jedną 
instrukcję — PLOTTO 

PASCAL 

PASCAL został opracowany przez 
Kathleen Jensen i Niklausa Wirtha dla 
zademonstrowania zasad języka struk- 
turalnego. Jest łatwy do nauki i dosto- 
sowany do definiowania struktur da- 
nych, niezbędnych do rozwiązywania 
problemów. Wprowadza pewne typy 
danych (takie jak integer, real i Boo- 
lean), lecz daje programiście swobodę 
w definiowaniu nowych. Zdefiniowane 
mogą być także nowe funkcje i proce- 
dury. dopuszczalne jest manipulowanie 
danymi znakowymi i ciągami znaków. 

Jest to język kompilowany, lecz czę- 
sto nie bezpośrednio na kod maszyno- 
wy, lecz na pośredni pseudokod zwany 
p-code. Jest on przechowywany i w 
czasie działania programu interpreto- 
wany na kod maszynowy komputera. 

istnieją trzy implementacje języka 
Pascal dla komputerów Atari. Pierwsza 
z nich. zwana Atari Pascal Language 
System, oparta na języku standardo- 
wym jest bardzo podobna do UCSD 
Pascal. Drobne różnice dotyczą możli- 
wości graficznych i dźwiękowych. Nie- 
stety użycie tej wersji jest ograniczone; 
wymaga dwóch stacji dyskowych, nig- 



ATARI 


Edytor — wydruk 1 


(2680 IF FL THEN 32616 
.>2602 DIN L#<115),SVf<ll5),C2# 
<2),Bf<l I5),rtf <119),Sf <98),Ef < 
69>,A*<1) 'FL-1 'STNTAB-PEEK<136 
>+PEEK<137)*256 

32604 GRAPHICS 0'POKE 710,0<P- 
0'ABR«0'? -CZY CHCESZ UŻYWAĆ 3 
KROTOW INSTRUKCJI "i 
32603 INPUT Af'IF Af"T“ OR A# 
•7t" THEN RBR-l 

32606 Bf < 1 >-" " 'B#<115)-" "'B# 

<2>-e# 

32616 OPEN #17,4,0, "E« " 'LS»* • 
'GOSUB 32662 1 START -0 
52618 POKE 766,1 POKE 83, 39 -PO 
3ITI0N 1,3' IF LEN<L#)<39 THEN 
? L# « GOTO 32624 

32620 IF LEN<Lf)<77 THEN ? L»< 
1,38)'? L#<39,LEN<L#)) 1 GOTO 32 
624 

32622 ? Lf (1, 38) '? Lf<39,76)'? 
Lf<77,LEN<Lf )) 

32624 POKE 732,0 'POKE 766,0 -PO 
KE 559, 34 =POKE 82,1 POKE 83,38 
•POSITION 0, 10 1 ? - "i 'INPUT #1 
7 ; Lf ' POKE 766,1 

32626 IF <Lf "P" OR Lf "»") AN 
D START-0 THEN P-l*Lf"“ 

32628 IF Lf "E" OR Lf-"*" THEN 
E«1 -POSITION 1,10'? SVf ' GOTO 
32624 

32630 IF Lf "L" OR Lf "1" THEN 
GOSUB 32704 

32632 IF Lf "" AND P-l THEN 32 
686 

32634 IF Lf“" THEN 32624 
32636 IF Lf "8" OR Lf "b" THEN 
GRAPHICS 0-? "WPROWADŹ 'GOTO 
32600' U CELU KONTYNUACJI" END 
32638 IF Lf<l,l)--E" OR L0C1,1 
THEN E*1 1 TRAP 32624-EL-Y 
AL<L*<2>) POSITION 1,9'LIST EL 
•GOTO 32624 

32640 «SVf Lf ' TRAP 32624 -X-VAL< 

32642 START- 1 - IF P AND NOT E 
HEN 32632 

32644 GOSUB 32674 'IF NOT ABR 
OR P THEN 32632 

32646 POKE 766,0'? CHRf<125)'P 
OSITION 0,3'L-VALCLf ) ‘LIST L'? 

'? '? "CONT“'Lf«Bf 
32648 POSITION 0,0* POKE 842,13 
■STOP 

32650 POKE 842,12'A«USR<ADR<S# 
),ADR<Lf),4)'LfLf<l,A) 

32652 CHKSUM-USR<ADR<Mf),ADR<L 
f > , LEN(Lf) ) ' CHKSUM-CHKSUfl+PEEK 
< 154 2 >*65536 

32654 CHK-CHKSUM- < I NT < CHKSUM/6 
76>*676> ' HI-INT <CHK/26> ' LO-CHK 
-<HI*26> *C2f< 1 )-CHRf <HI+65> *C2 
f <2)«CHRf<LO*65) 

32656 IF NOT P OR E THEN E»0= 
GOSUB 32662 'IF NOT P THEN 326 

32658 POKE 83, 39 POKE 752, 1 FO 
R X«3 TO 3'P0SITI0N 1,X>? Bf<l 
,38) POSITION 1 , X+7 * ? Bf<l,38> 
*NEXT X'POKE 83,38 
32660 POKE 766,1 POKE 83, 38 'PO 
SITION 7,7'? C2f POKE 752, 0GO 
TO 32618 


32662 GOSUB 32702' POKE 766,0 -P 
OKE 752,1'? ")" 'POKE 82,1-DL-P 
EEK<560»256*PEEK<561 >+4 
32664 POKE DL-1,70POKE DL+2,6 
'POKE DL+3, 112 'POKE 0L+4,112'P 
OK£ DL +5, 112 ‘POKE DL+13,112'P0 
KB DL+14,112 

32666 POKE DL+22, 112 -POKE DL+2 
3, 112 'POKE DL+24, 65 ! POKE DL+25 
,PEEK< 560>* POKE DL*26,PEEK<561 
) 1 POKE 83,39 

32668 POSITION 20,0'? " I gAJ 


32Ś70 POSITION 8,1'? 
"'KTMINTKBTII 


& - ł^ifioNi Tż ■ ? 

32672 POKE 559, 34 RETURN 
32674 GRAPHICS 0‘POKE 559,0 -PO 
KE 766,1 POKE 82,0'POKE 83,39' 
POSITION 0,3'? Lf '? -? »? «? • 
CONT" 'POSITION 0,0 
32676 POKE 842, 13 STOP 
32678 POKE 842, 12 'TRAP 32682 'A 
=USR<RDR<E*),VAL<Lf))'IF A»4 T 
HEN POP GOTO 32682 
32680 RETURN 

32682 GOSUB 32662 SOUND 0,75,1 
0,8*FOR X-1 TO 20'NEXT X' SOUND 
0,0, 0,0 'POSITION 1,3*? "BLAD 
SKŁADNI! "=POKE 766,1 
32684 POKE 83, 38 'POSITION 1,10 
? SVf ■ GOTO 32624 
32686 L I NE*PEEK CSTMT AB ) +PEEK < S 
TMTAB+1 )*256 * IF LINE> 32599 THE 
N 32690 

32688 0FS«PEEK<STMTAB+2> 'STHTA 
B-STMTAB+OFS • POSITION 1,9'LIST 
LINĘ GOTO 32624 
32690 POSITION 1,10*? "Numer l 
inii nie może bvc większa od 
32599 !" 

32692 FOR 1-1 TO 1000*NEXT I>G 
OTO 32624 

32782 POKE 16, 112 'POKE 53774, 1 
1Z'RETURN 

32704 POSITION 5,12'? "KASETA 
CZY DYSKIETKA" ; « INPUT Lf : IF Lf 
0"K" AND Lf 0"D“ THEN 32704 
32706 IF Lf "D" THEN 32714 
32708 POSITION 1,12'? "Przv«ot 
uj k*sete i nacieniJ RETURN" -G 
OSUB 32720 

32710 LIST -C'", 1,32559 'GOTO 3 
2718 

32714 POSITION 0,12'? "NAZWA 7 
BIORU <DFILENAME.EXT) ";CHF 
#<30>;CHRf <30 )jCHR#<30)> « INPIT 

Lf 

32715 TRAP 32716* OPEN #1,4,0,L 
f 'CLOSE #1 ‘GOTO 32722 

32716 LIST Lf, 1,32559 
32718 POSITION 0,12'? - 

'RETURN 

32720 GET #17, A 'RETURN 
32722 ? CHRf <125) j "ZBIÓR JUZ I 
STNIEJE ! " ' ? "CZY WYKASOWAĆ GO" 
J* INPUT Af ' TRAP 32722- IF Af "T 
" THEN 32716 

32724 FOR X-12 TO 15 POSITION 
0,X'? Bf'NEXT X' GOTO 32714 
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dy nie był oficjalnie rozprowadzany 
przez Atari. jest szczególnie wolny w 
kompilacji i nie ma wbudowanego 
edytora. 

Dwie pozostałe wersje to Draper 
Pascal i Kyan Pascal Pierwszy z nich 
nie odpowiada oficjalnemu standardo- 
wi. Nie jest pełną implementacją języka 
(standardu ISO lu UCCD) i zawiera 
skrócony zakres typów danych, brak 
formatowania liczb i ograniczenia w 
przekazywaniu parametrów. Draper 
Pascal jest wystarczający do nauki ję- 
zyka lub prostych zastosowań Jest łatwy 
w użyciu i nietrudny do nauki, lecz me 
jest zalecany do poważniejszych prac. 

Kyan Pascal jest jednym ze standar- 
dów języka. Umożliwia pisanie nowych 
programów lub używanie wcześniej 
napisanych, zgodnych ze standardami. 

Wersja ta ma kilka uzupełnień w sto- 
sunku do standardowego języka. Nale- 
żą do nich: możliwość wykorzystania 
grafiki o dużej rozdzielczości, łączenie 
zbiorów zawierających programy wyni- 
kowe, rozkazy manipulowania ciągami 
znaków i zbiory o dostępie bezpo- 
średnim. Kyan Pascal nie wytwarza ko- 
du pośredniego, lecz znacznie szybszy 
kod asemblera, który nie wymaga inter- 
pretera 


JĘZYK C 

Język C opracowany został w B< 
Laboratories dla systemu operacyjne 
go UNIX. Jako język wysokopoziorru 
wy dostarcza programiście tyle możli 
wości. ile asembler. Umożliwia równie, 
przenoszenie programów między róż 
nymi maszynami prawie bez żadnycl 
modyfikacji. Jest to język strukturalny 
pozwala pracować praktycznie z do 
wolnymi strukturami danych. Łączy w 
sobie możliwości asemblera i Pascala. 
Przeznaczony jest głównie dla iachow- 
ców, Z powodu wyjątkowej zwięzłości 
programy są mało czytelne. Struktura 
programu tworzona jest za pomocą 
funkcji zdefiniowanych przez użytkow- 
nika i standardowych. Program pisany 
jest przy użyciu edytora i może składać 
się z kilku grup oddzielnie kompilowa- 
nych funkcji, zwanych modułami, które 
później zostaną połączone w jeden pro 
gram Tworzenie programów ułatwiają 
biblioteki funkcji standardowych ora. 
wcześniej zdefiniowanych przez użyt 
kównika. 

Język C dostępny jest dla Atari \a 
dwóch wersjach Tiny C (C/65) 
Deep Blue C. 

LISP (LlSt Processing language) 

LISP jest językiem przeznaczonym 
do obliczeń menumerycznych. Był on 
pierwszym językiem używanym w ba- 
daniach nad sztuczną inteligencją. 
Nadaje się głównie do przetwarzania 
tak zwanych struktur listowych Zawie- 
ra funkcie. zmienne i operatory arytme- 


tyczne. lecz wygląda obco dla progra- 
mistów używających BASICa. 

W języku LISP istnieją dwa typy da- 
nych: atomy i listy. Atomem jest dowol- 
na kombinacja znaków alfanumery- 
cznych zaczynająca się od litery. Lista 
składa się z atomów i innych list uję- 
tych w nawiasy. Programy w języku 
LISP same są listami operatorów i da- 
nych. Dlatego mogą same siebie mo- 
dyfikować w czasie wykonywania. 
Wszystkie funkcje mogą by używane 
jako argumenty. Język dysponuje wie- 
loma wbudowanymi funkcjami i umoż- 
liwia tworzenie własnych. Teksty pro- 
gramów są mało czytelne z powodu 
olbrzymiej liczby nawiasów. 

Aktualnie dostępna jest tylko jedna 
wersja LISPu dla Atari. opracowana 
przez firmę Datasoft 

FORTH 

FORTH jest trudny do nauczenia się 
z powodu rozbudowanego zestawu nie- 
łatwych do zapamiętania instrukcji oraz 
odmienności od innych używanych ję- 
zyków. Ponadto jego wyrażenia zapi- 
sywane są zawsze w odwrotnej notacji 
polskiej (RPN). dzięki czemu nie stosu- 
je się nawiasów. Nazywany jest cza- 
sem językiem „nieskończonym" z po- 
wodu prawie nieograniczonej swobody 
w tworzeniu nowych słów lub funkcji, 
które uzupełniają zestaw podstawowy i 
są traktowane do indywidualnych po- 
trzeb. 

FORTH jest językiem strukturalnym 
tak dalece, że nie ma GO TO ani ety- 
kiet instrukcji. Programy kompilowane 
są na bardzo oszczędny kod wynikowy. 
Dzięki temu pełny FORTH może 
zmieścić się w 16KB pamięci... i wciąż 
pozostaje miejsce na program. 

Dla Atari dostępne są dwie wersje 
tego języka: FIG-FORTH — rozpro- 
wadzany przez FORTH Interest Group 
(FIG), oraz Val-FORTH - rozpo- 
wszechniany przez Valpar International. 
Val-FORTH zawiera oddzielne moduły, 
kupowane w miarę potrzeb, wykorzy- 


stujące specyficzne własności Atari, 
takie jak grafika gracz (pocisk, przer- 
wania programu wyświetlania /DLI) 
oraz możliwości dźwiękowe. 


PILOT 

PILOT (Program lnquiery for Lear- 
ning Or Teaching) był pierwszym języ- 
Kiem przeznaczonym do nauczania 
wspomaganego przez komputer i zos- 
*ał zaimplementowany w wielu syste- 
mach. 

Instrukcje języka dzielą się na cztery 
-ategone: 

1 ) instrukcje podstawowe jednolite- 
rowe. standardowe dla wszyst- 
kich wersji języka. Dzięki temu 
programy można przenosić z jed- 
nego komputera na drugi. 

2) instrukcje ustawiające różnego 
rodzaju parametry związane z 
komputerem, 

3) instrukcje systemu zbiorów zwią- 
zane z przechowywaniem i wy- 
szukiwaniem programów i da- 
nych, na taśmie lub dysku, 

4) instrukcje grafiki żółwia — specy- 
ficzne dla wersji Atari języka. 

PILOT jest prawdopodobnie najłat- 
wiejszym językiem do nauki dla no- 
wych użytkowników komputera. 


LOGO 

Logo jest poddialektem języka LISP, 
łatwym w użyciu, z przyjaznym dla 
użytkownika interfejsem graficznym. 
Jest językiem specjalizowanym, prze- 
znaczonym głównie do ułatwienia za- 
poznania się z komputerem Umożliwia 
natychmiastowe obserwowanie wyni- 
ków działania i korygowanie błędów. 
Dysponuje dobrze rozwiązaną grafiką, 
chociaż wbrew powszechnej opinii nie 
jest językiem graficznym. Programy Lo- 
go są przejrzyste i czytelne oraz two- 
rzone w sposób strukturalny. Dzięki 
swoim własnościom jest bardzo do- 
brym językiem edukacyjnym do wspo- 
magania nauki programowania Nie 
nadaje się do rozwiązywania skompli- 
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Edytor — wydruk 2 


10 DIM L*<120>,ML*<119>,A*<1> 
20 GRAPHICS 0'POKE 710,0'? "Dy 
%k czy Kaseta"; 1 INPUT A*'IF A$ 
0“K" AND A*0“D" THEH 20 
30 IF ft*="K" THEN 50 
40 ? "Unieść sformatowana dysk 
ietke w stacji dysków, ■«? "na 
steonie naci śnij RETURN" 

43 INPUT L*<OPEN *1,8,0, "D*ML. 
DAT" 

30 ? «? "Przygotuj kasete, nac 
isniJ RETURN. " ; ■ INPUT L*'OPEN 

60* L**" 32608 M*<1>-"«L*<13>-CH 
R*<34> 

70 N-119=G0SUB 130>L*< 14>*ML*< 
1 , 58 > = L* < LEN < L* > ♦ 1 > *CHR* < 34 > = ? 
#1;L* 

80 L*<1 >*"32610 M*<59>*"‘L*<14 
>*CHR*<34> 'L*<15>*ML*<59> « L*<L 
EN<L*>+1>*CHR*<34>>? #1;L* 

90 L*<1 >*"32612 S**">L*<10)-CH 
R*<34> 

100 ML** " " •• N*98 : GOSUB 130«L*<1 
1>-ML*'L*<LEN<L*>+1>*CHR*<34> 

? il ;L* 

110 L*<1 >*"32614 E**"'L*<10>«C 
KR* (34) 

120 ML**" ">N*69< GOSUB 130'L*<1 
1 >-ML*‘L*<LEN<L*)+l >*CHR*<34> 

? #1;L*'END 

130 FOR X*1 TO N-REAO A'ML*<X> 

*CHR*<A> ‘NEXT X> RETURN 

140 DATA 104,104,133,204,104,1 

33,203,104,104,133,205,169,0,1 

41,3,6,141,2,6,141,4,6,141,5,8 

150 DATA 141^6, 6,238,3, 6, 32,68 

,218, 172,2,6, 177,203, 133,212,3 


2, 170, 217, 32, 182, 221 , 32, 68, 218 
160 DATA 173,3,6,133,212,32,17 
0,217,32,219,218,32,210,217,16 

5.212.141.0. 6.165.213.141.1.6, 

24 

170 DATA 173,0,6,109,4,6,141,4 
,6, 173,1,6, 109,5,6, 141,5,6, 144 
,3,238,6,6,238,2 
180 DATA 6,172,2,6,196,205,208 
, 176, 173,4,6, 133,212, 173,5,6, 1 
33,213,96 
190 DATA 104,104,133,204,104,1 
33,203, 104, 104, 141,255,6,169,0 
, 133,213,216, 165,88, 133,205, 16 

5.89.133.206 

200 DATA 174,255,6,24,165,205 
105,40, 133,205, 144,2,230,206,2 

02. 208. 242. 168. 0. 177. 205. 201 . 6 
4,144,18 
210 DATA 201,96,144,19,201,128 
,144,18,201,192,144,6,201,224, 
144,7, 176,8,24, 105,32, 144,3,56 
,233 

220 DATA 64,145,203,200,192,11 
4, 240, 2, 208, 215, 177, 203, 201 , 32 
,208,3,136,206,247,200,132,212 
,96 

230 DATA 104,104,141,254,6,104 
, 141, 253,6, 169,0, 133,213,216, 1 

65. 136. 133.205. 165. 137. 133.206 
,160,0,177 
240 DATA 205,205,253,6,208,8,2 
00, 177,205,205,254,6,240,15, 16 
0, 2, 177, 205, 24, 101 , 205, 133, 205 
,144,228 
250 DATA 230,206,176,224,160,4 
, 177, 205, 201 , 55, 240, 4, 160,0, 24 
0,0,132,212,96 


Kowanych problemów numerycznych 
lub przetwarzania dużych ilości da- 
nych. 

Atari Logo jest dobrą implementacją, 
która oprócz innych pożytecznych 
własności umożliwia manipulowanie 
kilkoma (do 4) żółwiami. 

ACTION! 

ACTION! jest czymś pośrednim mię- 
dzy językiem Pascal a C. Jednak z po- 
wodu podobieństwa do BASICa nawet 
doświadczeni programiści napotykają 
wiele problemów. 

System ACTION! składa się z edyto- 
ra. samego języka, kompilatora i moni- 
tora. Edytor, pozwalający tworzyć i mo- 
dyfikować programy, zgłasza się bez- 
pośrednio po załadowaniu systemu. 
Zawiera dwa okna tekstowe, które mo- 
gą być przesuwane przez program. 
Dodatkowo wyszukuje i podmienia, ka- 
suje linie oraz przesuwa bloki linii. ( 

Po napisaniu programu musi być 
przetworzony na kod maszynowy za 
pomocą kompilatora, który umożliwia 
również łączenie kilku oddzielnych 
modułów w. jeden program. Przydatna 
jest możliwość włączania wcześniej 
napisanych podprogramów uniwersal- 
nych do wnętrza określonego progra- 
mu. 

Monitor jest sekcją sterującą syste- 
mu. Umożliwia on wywołanie edytora 
lub kompilatora, uruchomienie pro- 
gramu lub zakończenie sesji. Za- 
pewnia również dostęp do DOS. 

Sam język jest strukturalny. Podob- 
nie do C jego procedury lub moduły 
mogą byc pisane oddzielnie, a następ- 
nie łączone razem Wyrażenia mogą 
zawierać operatory: arytmetyczne, 

działające na bitach lub relacji Istnieje 
wiele przydatnych'instrukcji. takich jak 
IF THEN ELSE - IF ELSE oraz 
pętli WHILE UNTIL i DO / 

System ACTION! ma także bibliotekę 
procedur użytkowych obejmujących 
operacje wejścia /wyjścia, wspomaga- 
jące wejście /wyjście i funkcje syste- 
mowe. Procedury wspomagające 
wejście/ wyjście są szczególnie użyte- 
czne dla programistów Atari, należą do 
nich następujące funkcje Open, Clo- 
se XIO Notę Point. Color Sound 
Stick i Paddle 

Doświadczony programista, działa- 
jący w niestrukturalnym świecie BASI- 
Ca, może mieć pewne kłopoty w do- 
stosowaniu się do ACTION! Jednak po 
kilku godzinach wszystko stanie się na- 
turalne. Trudniejszy może być powrót 
do BASICa. szczególnie po zapoznaniu 
się z szybkością i możliwościami. 

Omówiliśmy krótko dziesięć języków, 
pewne z nich z kilkoma dialektami — 
razem osiemnaście różnych sposobów 
„rozmawiania" z ATARI. Czyni to 8-bi- 
towy komputer ATARI porównywalnym 


z innymi, droższymi maszynami. Zatem 
ich właściciele rozporządzają poważ- 
nymi narzędziami, które mogą być 
przydatne w programowaniu użytko- 
wym. 

Każdy język ma swoje mocniejsze i 
słabsze strony. Pewne z nich są lepsze 
do zastosowań naukowych, podczas 
gdy inne lepiej służą początkującym 
użytkownikom. Widoczne są także inne 
różnice: szybkość, możliwości grafi- 
czne i łatwość użycia. 

Edytor BASICa 

Z pewnością wielu z nas zdarzyło się 
popełnić błędy podczas wprowadzania 
do komputera programów zamie- 
szczonych w postaci wydruków w róż- 
norodnych czasopismach. Można mó- 
wić o szczęściu, gdy błąd wykrywany 
był przez interpreter języka podczas 
wprowadzania lub realizacji programu. 
A co zrobić, gdy żaden błąd nie został 
wykryty, a program nie chce działać? 
Jedynym sposobem jest wtedy porów- 
nanie wydruku z prowadzonym pro- 
gramem. znak po znaku, linia po linii 
Najczęściej okazuje się. że błąd wym- 
knął z nieznacznego przekłamania w na- 
zwie zmiennej lub zmianie operatora i 
jest trudny do wykrycia. 


Poniższy program pomoże nam we 
wprowadzaniu zamieszczanych pro- 
gramów. W celu ułatwienia identyfikacji 
błędów każda linia programu badana 
jest bezpośrednio po wprowadzeniu. W 
określony sposób obliczana jest suma 
kontrolna, która zamieszczona jest rów- 
nież w wydruku programu. W razie zgod- 
ności mamy pewność, że linia progra- 
mu wprowadzona została bezbłędnie. 
Jeśli zakończymy wprowadzanie pro- 
gramu za pomocą Edytora BASICa, 
możemy być pewni, że nie zawiera on 
żadnych błędów. 

Program - ' zachowuje wszystkie włas- 
ności edycyjne Atari. dopuszcza także 
stosowanie skrótów instrukcji. Umożli- 
wia również sprawdzenie całego pro- 
gramu. jeśli został on wprowadzony w 
sposób konwencjonalny, przy wyko- 
rzystaniu wbudowanego edytora. 

Wprowadzenia Edytora 

W celu utworzenia własnej kopii Edy- 
tora BASICa należy dokładnie wyko- 
nać jedną z poniższych instrukcji. 

Wersja dyskowa. 

1 ) Wprowadzić Wydruk nr 1 . staran- 
nie i bez błędów, 

2) Przechować program na dy- 
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ATARI 


XS 90 DEG 

DR 180 D1H NM*<20),SYN*<3),H1* 
<3>,H2*<3),NMPAD*<100> 'NM*- 
"" 'łłll»"7" -H2*-"7" « DOT-0. FI 
RST-0 1 NUMALL-0 

FP 105 NMPAD*--789/ 8IN COS Tfl 
N 456* L10 ♦/- RTN 123- LOG 
EXP SOF 0.-4 X~2 1/X Y*X 
CLR" 

OK 110 GRRPHICS 0'POłCE 752, 1 'S 
ETCOLOR 2, 0,0 'REM CZYSZCZEŃ 
IE EKRflNU I CZRRNY KOLOR TL 
fl 

OM 120 GOSUB 1000 REM KREŚLENI 
E KALKULATORA 

HI 130 TRAP 1100. REM OOCZYT PR 
ZYCI8KU 

CG 140 POSITION X, Y.PRINT Hit 

JV 150 XINC-<STICK<0)-?)*<X<24 
>-<STICK<0>-ll>*<X>ll) 

GA 160 YINC-2*<<STICK<0)-13)*< 
Y<12WSTICK<0)«14>*<Y>4>> 

NC 170 IF XINC-1 AND X-14 THEN 
KINC-2 

HE 188 IF XINC— 1 AND X-16 THE 
N X1NC— 2 

XU 190 IF XIMC-1 AND X>-16 THE 
N XINC-4 

EB 200 IF XINC— 1 AND >0-20 TH 
EN XINC— 4 

WE 210 X-X4XINC.Y-Y-fYINC.IF Y- 
12 THEN X-16 

CR 220 IND€X-(Y-4)^2*174X-10.X 
LEN-(X>-16)*2 

GR 230 H1*«NMPAD*<INDEX, INDEX+ 
XLEN) 

TL 240 H2*-“ “ - FOR LOOP-1 TO LE 
N<HIt) ■ H2* < LOOP, LOOP) -CHR* < 
ASC<H1*<L00P,L00P) >+128) -NE 
XT LOOP 

SF 250 POSITION X, Y.PRINT H2*' 
IF STRIG<0>-1 THEN FOR UAIT 
-1 TO 20 1 NEXT MAI T* GOTO 130 

ZV 252 IF STRIG<0>*0 THEN 252 

JN 253 IF HI*- -CLR- THEN HOŁD- 
0 ■ F I RST-0 - DOT-0 = NW- SYN* 
-"•POSITION 11,1 

MW 254 IF H1*-"CLR" THEN PRINT 
" " ■ NUMALL 

-0 = GOTO 130 

BY 255 IF LEN(NM*)> 16 OR NUMAL 
L-l THEN 280 

PO 268 IF <X<14 AND Y<10) OR < 
X-ll AH> Y-10) THEN NM*<LEN 
<NM*>41 >*H1* i REM SZUKANIE L 
ICZBY 


KR 270 IF <X-12 ANO Y-10> AND 
DOT-0 THEN DOT-1 : NM*<L£N(NM 
t)4l)*Hlt iREM KROPKA DZIESI 
ETNA DODANA DO LICZBY 
MG 286 POSITION 11,1. PRINT " 

"■POSITION 2 
8-LENCNM*) , 1 -PRINT NM* 

AD 282 IF LEN(NM*>-0 AND FIRST 
-8 THEN NM*-STR* < HOŁD > 

NZ 285 IF LEN(NM*>-0 THEN 130 
VU 290 IF XO 14 THEN GOTO 350. 

REM OPERATORY ARYTMETYCZNE 
PQ 306 IF FI RST-0 THEN FIRST-1 
■ HOLD-VAL < NMt ) ■ NM*- " " • SYNt- 
_ H 1*. DOT-0 ^UMALL-0- GOTO 130 

ST 310 GOSUP Ą00 
NH 345 NM*-5>ICJ<H0LD>- POSITION 
28-LEN<NMI>,l. PRINT NM* 'NM 
*»""•• SYN 5 ^Hl* < DOT-0 ■ NUMALL- 
0‘GOTO 138 

PO 350 IF X"13 AND Y-10 THEN G 
0SU8 600. FIRST-0. POSITION 1 
1 , 1 'PRINT " 

"GOTO 345- REM - 
PI 360 IF X<16 THEN 130 
OZ 370 IF H1*-“SIN" THEN H0LD2 
«SIN<VAL<NM*)> 

IF 380 IF H1*»"C0S“ THEN H0LD2 
“COS < VAL < NM* ) ) 

IB 390 IF H1*«"TAN" THEN H0LD2 
-S I N < V AL < NM* ) ) /COS < VAL < NM* ) 

ZG 400 IF H1*-"L10'' THEN H0LD2 
«CLOGCVAL<NM*>> 

JH 410 IF Hl*-"4/-" THEN H0LD2 
-/<VAL<NM*)) 

EE 420 IF H1*-"ATN" THEN H0LD2 
«ATN<VAL<NM*) ) 

BE 430 IF H1*-"L0G" THEN H0LD2 
-LOG<VAL<NM*>) 

VC 440 IF H1*-"EXP M THEN H0LD2 
-EXP<VAL<NM*)> 

JM 450 IF H1*-"SQR" THEN H0LD2 
-SQR<VRL<NM*>) 

KI 460 IF Hl*-"X / '2" THEN H0LD2 
-VAL<NMS)*VAL<NM*) 

OP 470 IF Hl*-"1/X" THEN H0LD2 
-1/VAL(NM*> 

QP 480 IF H1*-“Y A X" THEN POSIT 
I0N 11,1= PRINT " 

"■POSITION 28-LENCNM* 

1 'PRINT NM*>GOTO 300 
FB/500 NM*-STR*<H0LD2) 'POSITIO 
N 11,1= PRINT " 

"■POSITION 28-LENCNM*), 

1 'PRINT NM* * NUMA1 r "*1 « GOTO 1 


Sumy 

kontrolne 

30 

PE 608 IF SYN*-"/" THEN HOLD-H 
OLD/VAL<NM*> 

GP 610 IF SYN*-"*" THEN HOLD-H 
OLD*VALCNM*> 

LW 620 IF SYN*-"-" THEN HOLD-H 
OLD-VALCNM*> 

IM 630 IF SYN*-”4- THEN HOLD-H 
0LD4VAL<NM*> 

RO 635 IF SYN*-"Y , 'X" THEN HOŁD 
-HOLD~VAL<NK*> 

ZK 640 RETURN 
PR 999 END 

DP 1000 REM KREŚLENIE KALKULAT 
ORA 

VB 1010 POSITION 10,0 'PRINT CH 
R*C17). POSITION 28,0. PRINT 
CHR*<5) 

EV 1020 POSITION 10,13'PRINT C 
HR*<26)> POSITION 28,13'PRIN 
T CHR*<3) 

GE 1030 FOR LOOP-1 1 TO 27-P08I 
TI ON LOOP, 0> PRINT CHR*<18)> 
POSITION LOOP, 13- PRINT CHR* 
C18) 

WH 1035 POSITION LOOP, 2* PRINT 
CHR* (18). NEXT LOOP 
XW 1040 FOR LOOP-1 TO 12 'POSIT 
ION 10, LOOP 'PRINT CHR*C124> 
■POSITION 28, LOOP 1 PRINT CHR 
*< 124) ■ NEXT LOOP 
ON 1045 POSITION 18, 2. PRINT CH 
R*<1). POSITION 28, 2. PRINT C 
HR*<4> 

DV 1050 POSITION 11, 4* PRINT "7 
89/ SIN COS TAN" 

L Z 1060 POSITION 11,6'PRINT "4 
56* L10 4/- ATN" 

QI 1070 POSITION 11, 8 'PRINT "1 
23- LOG EXP SOR" 

CR 1880 POSITION 11, 10- PRINT " 

0.-4 X~2 1/X Y*X" 

YD 1085 POSITION 16,12-PRINT " 
CLR" >X»11'Y»4' POSITION X,Y> 
PRINT 'tj* 

BA 1090 RETURN 
MH 1100 REM PROCEDURA BLEDU 
TD 1110 POSITION 11,1 'PRINT " 
"POSITION 
17,1 'PRINT "8LAD" 

IR 1120 HOLD-0' F1RST-0' DOT-0 'N 
M*=" " SYN*- " " ■ NUMALL-0 
PO 1130 FOR LOOP-1 TO 250. NE>" 
LOOP 

0Q 1140 GOTO 130 


sku za pomocą rozkazu SAVE 
„D: EDYTORW 1. BAS". 

3) Oczyścić pamięć komputera roz- 
kazem NEW. 

4) Wprowadzić Wydruk nr 2. 

5) Dla bezpieczeństwa przechować 
program na dysku za pomocą 
rozkazu SAVE „D: EDYT0RW2 
BAS". 

6) Uruchomić program instrukcją 
RUN i wykonać wyświetlone na 
ekranie polecenia. Zbiór danych 
o nazwie ML. DAT zapisany bę- 
dzie na dysku. 

7) Załadować do pamięci pierwszy 
program rozkazem LOAD „D: 
EDYT0RW1. BAS". 


8) Dołączyć zbiór utworzony przez 
program nr 2 rozkazem ENTER 
„D: ML. DAT". 

9) Przechować program wynikowy 
rozkazem LIST „D: EDYTOR. 
LST". 

Wersja taśmowa 

1 ) Wprowadzić Wydruk nr 1 . 

2) Przechować program na kasecie 
za pomocą rozkazu CSAVE (nie 
przewijać kasety). 

3) Oczyścić pamięć komputera roz- 
kazem NEW. 

4) Wprowadzić Wydruk nr 2. 


5) Dla bezpieczeństwa przechować 
program na taśmie. 

6) Uruchomić program rozkazem 
RUN i wykonać wyświetlone na 
ekranie polecenia. Zbiór danych 
zostanie zapisany na kasecie, 

7) Przewinąć taśmę i załadować 
pierwszy program rozkazem 
CLOAD 

8) Dołączyć zbiór utworzony przez 
program nr 2 rozkazem ENTER 

9) Ng innej kasecie przechować 
program wynikowy rozkazem 
LIST „C:“- 

» 

ii 


t Używanie Edytora 

Spójrzmy na wydruk programu zamie- 
szczony za Edytorem, Zauważmy, że 
każda linia programu poprzedzona jest 
przez kod dwuliterowy. Jest to suma 
kontrolna tej linii, a nie część progra- 
mu. 

W celu wprowadzenia programu z 
zamieszczonego wydruku załaduj Edy- 
tor BASICa rozkazem ENTER i uru- 
chom, Zostaniesz zapytany, czy 
chcesz używać skrótów instrukcji. Jeśli 
tak. to wprowadź T i naciśnij RETURN 
W przeciwnym razie poda] N. Ekran te- 
lewizora (monitora) zostanie podzielo- 
ny na dwa „okna ". W górnym wyświet- 
lana będzie każda linia po przetworze- 
niu przez Edytor oraz suma kontrolna 
obliczona dla tej linii. W dolnym oknie 
odbywa się wprowadzanie i poprawianie 
linii. 

Gdy program oczekuje na wprowa- 
dzenie, kursor pojawia się przy le- 
wym marginesie okna wprowadzania. 
Wprowadź linię programu i naciśnij 
RETURN Nastąpi sprawdzenie jej po- 
prawności oraz obliczenie sumy kon- 
trolnej. Linia programu pojawi się w 
oknie komunikatu wraz z wygenerowa- 
ną sumą kontrolną. Jeśli wyświetlony 
kod zgadza się z zamieszczonym w 
wydruku, można przejść do następnej 
linii programu. W przeciwnym wypadku 
należy podać rozkaz E (Edit) i nacisnąć 
RETURN. Ostatnio wprowadzona linia 
pojawi się w dolnym oknie, gdzie może 
zostać poprawiona. Po wprowadzeniu 
poprawek naciśni| RETURN 

Można wywołać dolną linię progra- 
mu, wcześniej wprowadzoną, którą 
chcemy poprawić, za pomocą rozka- 
zu E z numerem linii. Na przykład, E230 
wyświetli linię 230 w oknie wprowa- 
dzania. 

Jeśli używamy skrótów BASICa 
dwie wersje rozkazu E pracują różnie. 
Rozkaz E bez numeru linii wyświetli ją 
w takiej postaci, w jakiej została wpro- 
wadzona. Po dodaniu numeru linii bę- 
dzie ona wyświetlona w postaci rozwi- 
niętej (bez skrótów). 

W dowolnej chwili można wyjść z 
Edytora BASICa przez naciśnięcie B 
(BASIC) Można teraz przejrzeć swoją 
pracę. Zauważmy, że linie 32600 i 
wyższe należą do Edytora. Nasz pro- 
gram ma niższe numery. Aby powrócić 
do Edytora, należy podać GOTO 
32600 

W razie wprowadzenia dłuższych 
programów możemy mieć ochotę na 
robienie przerw, oczywiście po uprzed- 
nim zabezpieczeniu naszej pracy. W 
tym celu wprowadzamy L i RETURN, a 
następnie przechowujemy program w 
wybranej pamięci zewnętrznej w po- 
staci umożliwiającej późniejsze łącze- 
nie. 


Jeśli ktoś me chce używać Edytora 
BASICa, preferując wbudowany edytor 
Atari. także może sprawdzić i ewentual- 
nie poprawić wprowadzony już i 
przechowany w pamięci, zewnętrznej 
program. W tym celu należy załadować 
go do pamięci, następnie dołączyć 
Edytor BASICa za pomocą ENTER i 
uruchomić go rozkazem GOTO 32600 
Na propozycję używania skrótów mu- 
simy odpowiedzieć N Gdy edytor po- 
jawi się na ekranie, należy podać roz- 
kaz P (Post — przetwarza) i pierwsza li- 
nia programu pojawi się w oknie wpro- 
wadzania. W celu przetworzenia jej 
przez Edytor należy nacisnąć RE- 
TURN. Linia programu, wraz z sumą 
kontrolną, pojawi się w górnym oknie. 
Jeżeli suma kontrolna zgadza się z po- 
daną w wydruku, należy dwa razy na- 
cisnąć RETURN i przetwarzana bę- 
dzie następna linia programu. 

Po stwierdzeniu, że musimy popra- 
wić aktualną linię, podajemy rozkaz E i 
zostanie ona przesunięta do okna 
wprowadzania. 

Może się zdarzyć, że po wprowadze- 
niu programu za pomocą Edytora 
BASICa nie działa on właściwie. Możli- 


we są dwie przyczyny takiej sytuacji 
Po pierwsze, mogło się zdarzyć, że nie 
wykonaliśmy dokładnie instrukcji pro- 
gramu. Dlatego zawsze należy wcześ- 
niej przeczytać artykuł dotyczący pro- 
gramu. Po drugie, chociaż możemy za- 
ufać Edytorowi BASICa, że unikniemy 
błędów wprowadzania, nie może nam 
on powiedzieć, czy nie przeskoczyliś- 
my pewnych linii. Jeśli program nie 
chce działać, należy upewnić się. czy 
wprowadziliśmy wszystkie linie. 

Edytor BASICa zgodny jest z podob- 
nymi programami używanymi aktualnie 
przez „ANALOG Computing" i „AN- 
TIC". Opracowany został na podstawie 
następujących programów: BASIC Edi- 
tor, BASIC Editor II i Typo II. Dzięki te- 
mu można go wykorzystać do wprowa- 
dzania programów zamieszczonych w 
tych czasopismach. 

W celu bliższego zapoznania się z 
działaniem Edytora BASICa zamie- 
szczamy krótki program, którego dzia- 
łanie poznają Czytelnicy, którzy wpro- 
wadzą go bezbłędnie. 

Ludwik PIELA 
Tomasz MROWIEĆ 



10 DIM a (50) : LET n =0 . LET hax 
*0: BORDER 4: CLS 

20 LET n=n+l: INPUT "wartość ( 

" ; (n ) ; " ) ? (0 * koniec) ; a ( n ) : 
SE IF a (n) <0 TMEN LET ain)=RBS a(n) 
30 IF a(n)>wax TMEN LET Aiax*a( 

-3 n) 

DC 40 IF a(n)=0 THEN GO TO 60 

H- 50 GO TO 20 

o &0 LET £ = INT (255/(n-m -1: LE 

7ft T wspal75/»ax : FOR rń=l TO n-1:, I 

5r F n < 10 TMEN PR INT 00, RT l,(m-l)4 
4- (32/ (n-l) ) ; a i«) j 

</> 7© PLOT 1+ <tti-l)'* <S + 1) ,0: DRRU 

£-2,0. DRRU 0,a(K)*wsp: DRRU -ii 
-2) ,0: DRRU 0, -a (fil) *WSP: NEXT tri 
80 BEEP .2,26: PRUSF. 0: GO TO 

10 

90 ShUE " SŁUPKI" LINĘ 1© 


£ 

O 

.c: 

O 5 
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Spełnienie marzeń... 


Joanna Worońska, studentka I 
roku na Wydziale Matematyki, In- 
formatyki i Mechaniki Uniwersy- 
tetu Warszawskiego sumiennie 
przygotowywała się do pier- 
wszego i jedynego egzaminu se- 
sji zimowej — Wstępu do informa- 
tyki. Po emocjach egzaminacyj- 
nych, gdy „napięcie" ją na tyle 
opuściło, że była w stanie zebrać 
rozproszone myśli, poprosiliśmy 
Joasię o rozmowę: 

— Ciężko było? 

— Wyobraźnia podpowiadała 
ml bardziej koszmarne przeżycia. 
Najgorsza jest trema. 

— Joasiu, dlaczego zdecydo- 
wałaś się zdawać na informaty- 
kę? 

— Na pewno duży wpływ mieli 
moi rodzice, którzy są informaty- 
kami. Pracują w Instytucie Pod- 
staw Informatyki w PAN. Ja do 
trzeciej klasy licealnej myślałam 
o biologii. Jednak w pewnym 
momencie bardziej przekona- 
łam się do matematyki. Uważam, 
że informatyka ma przed sobą 
ogromną przyszłość. Rozwija się. 
Daje możliwość intelektualnego 
wyżycia się. 

— Czy do egzaminu przygo- 
towywałaś się, ćwicząc m.in. na 
komputerze? 

— Na wydziale, owszem, ma- 
my komputer z 8 końcówkami, w 
tym niestety 4 popsute. Musimy 
więc szukać innych „dojść". 

— Obecnie, jak sama się orien- 
tujesz, jak grzyby po deszczu 
powstają najróżniejsze kluby mi- 
krokomputerowe... 

— I bardzo dobrze, tylko jedno 
mam pragnienie. By spotkanie z 
komputerem nie kończyło się na 


— Oczywiście samych sukce- 
sów i podtrzymania tradycji ro- 
dzinnej — chcę być informaty- 
kiem — to moje marzenie. 


— Chyba bliskie spełnienia. 

— Oby. 

— Dziękuję za rozmowę. 

ANKA 


grach. Żeby młodzi zapaleńcy 
wzbogacali swoją wiedzę, docie- 
rali do fachowych pism m.in. wa- 
szego „IKS-a", szperali w podrę- 
cznikach. Po prostu coś więcej 
wnosili i wynosili. 

— Zdałaś egzamin, zrobiłaś 
pierwszy krok w przyszłość, czego 
ci życzyć już teraz. 


SPECTRUM 


Bajty 

(J. Rubinowicz) 


a t a s rii e 


i ZaPiS MO «. a 

100 FOR n =32 TO 12? 

105 POKE 23692,255 
110 PRINT "CHR $ BRIGMT 1;CHP 

$ hi BRIGHT 0 , T RB 9; "ADRES 11 ; BP 
l; 15616+ (6* «n -32) ) , BRIGMT 
"CODĘ **; BRIGHT 1; n 
120 FOR w =0 TO 7 

130 PRINT T RB (4*W);PEEK ( 1636C 
+8*n +w ) ; 

14.0 NEXT w 

150 PRINT : PPTNT 


Ać0 BEEP .01,9; BEEP .02,14: PR 
■J SE 40 

170 IF INKEY* <> M " THEN PRUSE 0 
160 NEXT n 
190 GO TO 100 

20O CLS : BORDER 4. PRINT 

Program pokazuje bajty okre- 
ślające budowę cyfr, liter i 
znaków oznaczonych kodami od 
32 do 127 oraz ich adresy. 

wyświetlanie programu można 
zatrzymać na przez naciśnie- 
cie dowolnego klawisza.” 

210 PRUSE 500: CLS : GO TO ©0 

9999 CLS ; SRUE ••CHRS32-127” LIN 
E 200: PRINT RT 4,12, PfiPER 4 i B 
RIGHT 1; " UERIFY " : BEEP .2,30:: 
UERIFY ,,M : GO TO 200 
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KRESKA 

(BASIC CPC 464) O) 

Modułowy program graficzny 

W tym odcinku rozwiniemy nasz program o na- 
stępujące funkcje: 

— kreślenie prostopadłościanu i ostrosłupa, 

— zapełnianie kolorem figur zamkniętych, 

— aerograf. 

Kreślenie prostopadłościanu i ostrosłupa opiera 
się na znanej już nam z poprzedniego odcinka za- 
sadzie, zaznaczania punktów charakterysty- 
cznych przez naciśnięcie klawisza COPY bądź 
przycisku FIRE W obu wypadkach określamy trzy 
punkty wierzchołkowe podstawy prostokątnej. 
Współrzędne czwartego punktu wyliczane są pro- 
gramowo. W związku z tym podobieństwem algo- 
rytmów kreślenia powyższych brył, są one ryso- 
wane na ekranie monitora za pomocą tej samej 
procedury W celu wyróżnienia tych funkcji wpro- 
wadziłem parametr bs, który przyjmuje następują- 
ce wartości: 

P — kreślenie prostopadłościanu, 

O — kreślenie ostrosłupa. 

W wypadku realizacji opcji „O” z menu BRYŁY, 
w dalszej kolejności wyliczane są współrzędne 
środka podstawy (xs%, ys%), a następnie z tego 
punktu wyprowadzana jest wysokość. Kolejne 
naciśnięcie klawisza COPY lub przycisku FIRE 
powoduje ustalenie współrzędnych punktu wierz- 
chołkowego ostrosłupa (x%, y%), a następnie 
przez wykorzystanie instrukcji BASICa — DRAW 
wykreślenie bryły. Wybór opcji „P" determinuje 
wyprowadzenie wysokości prostopadłościanu z 
punktu o współrzędnych (x3%, y3%), tj. ostatniego 
wyznaczanego przez nas wierzchołka podstawy. 
Kolejne naciśnięcie przycisku FIRE lub klawisza 
COPY uruchamia wyliczanie wysokości prosto- 
padłościanu, a w konsekwencji wszystkich współ- 
rzędnych drugiej podstawy. Po dokonaniu tych ob- 
liczeń następuje wykreślenie bryły. 

Kolejną funkcją, którą chcę przedstawić, jest 
wypełnianie kolorem figur zamkniętych. Przyjęty 
przeze mnie algorytm jest prosty i dlatego niedo- 
skonały. W razie przypadku zapełniania kolorem 
figur o bardziej skomplikowanych kształtach, za- 
mierzony efekt często uzyskujemy przez kilkakrotne 
uaktywnienie procedury. Proponuję udoskonale- 
nie tego rozwiązania we własnym zakresie. Pro- 
cedura działa wg następującego algorytmu: 


/ . Ruch kursora graficznego po ekranie. 

2. Czy nastąpiło przyciśnięcie FIRE/COPY? 

a. tak — przejdź do punktu 3. 

b. nie — przejdź do punktu 1. 

3. Testowanie koloru punktu startowego wy- 
pełniania oraz zapamiętanie jego współ- 
rzędnych (xpz, ypz). 

4. Wykreślenie punktu bieżącego kolorem 
określonym przez zmienną kolor oraz bada- 
nie koloru punktu o współrzędnych (x+2, y), 
leżącego na prawo wzdłuż osi X. 

5. Czy kolory są zgodne? 

a. tak — przejdź do punktu 4, 

b. nie — przejdź do punktu 6. 

6. Postępowanie jak w punkcie 4, z tą różnicą, 
że badane kolejne pupkty mają współrzęd- 
ne (x—2, y). 

7. Czy kolory są zgodne? 

a. tak — przejdź do punktu 6, 

b. nie — przejdź do punktu 8. 

8. Analiza koloru punktu leżącego powyżej 
punktu startowego — (xpz, y+2). Czy kolory 
są zgodne? 

a. tak — przejdź do punktu 4, 

b. nie — przejdź do punktu 9. 

9. Analiza koloru punktu leżącego poniżej 
punktu startowego (xpz, y—2). W wypadku 
zgodności przechodzimy do punktu 4, nie- 
zgodności 1 0. 

1 0. Wyłączenie zapełnienia i przejście do punk- 
tu 1. 

Ostatnią funkcią, którą dziś przedstawię, jest 
AEROGRAF Jest ona uruchamiana przez naciś- 
nięcie klawisza funkcyjnego FIRE/COPY. Rezul- 
tatem jej działania jest uzyskanie na ekranie moni- 
tora efektu malowania rozpylaczem aerozolowym. 
Sama procedura kreśli w jednym cyklu po pięć 
punktów za pomocą instrukcji BASICa PLOTR 
Współrzędne kolejnych punktów ustalane są przy 
wykorzystaniu wbudowanego generatora liczb 
pseudolosowych (instrukcja BASICa RND). Aero- 
graf wyłączamy przez ponowne wciśnięcie klawi- 
sza funkcyjnego. 

Powyższe uzupełnienia do programu KRESKA 
proponuję wprowadzić tak samo, jak przedstawi- 
łem to w II części cyklu. 

W kolejnym odcinku zostaną przedstawione 
funkcje: 

— wprowadzenie tekstów na rysunek, 

— kreślenie wielokątów wpisanych w okrąg, 

— kreślenie różnych trójkątów, 

— elipsa, 

— walec. 

Janek 
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Modułowy program graficzny 


630 PRUT 82,'<A)ER06RAF (B)RYLY (ZH 6 PEL 
NIANIEIOUHKA (N)OLNE KREŚLENIE LUIC*CH 
M(280)6') a | 

683 IF INKEY (69) "C TttN 60TC 4000 

686 IF INKEY(34>-0 THEN MTO 4300 

687 IF 1NKEY<71)«0 THEN 60T0 3300 

2313 tqt-0i6OSUB 1700t kol 1-kol txsZ-i»Xiy 
sl*ypl 

2333 IF qqX-0 ANO prX a l THEN PLOT ul.yt 
Z,koll:qq*l:NQVE xZ,yX 

3997 reh iiitttmimtiimitmmiiii 

3998 REN t AER06RAF I 

3999 REH milimtlttttttMItllllltlttt 

4000 CL 8 I2iPRINT 82,*A£R06RAF - MYLACZA 
NV P - PONROT* 

4010 LOCATE D2,1,2:PRINT #2, a UZYNAJ :**C 
HR4(240)*CHR»(242)*CHRB(243)*CHRB(241)i' 
COPY LUB JOYSTICK* 

4020 rbZ-0 

4030 60SUB 1030: 80SUB U70:MSUB 1080:60 
SUt 970I60SUB 1030 
4040 IF INKEY (27) -O THEN GOTO 360 
4030 IF INKEY(FZ)>0 AND rbZ-0 THEN rbW 
iFOR 1>1 TO 200INEIT li LOCATE 82,12,1:PR 
INT 12,‘HLACZONY a s6OT0 4060 ELSE IF INK 
EY(FZ)*0 AND rbl-1 THEN rbZ-0: LOCATE »2, 
12« liPRINT B2,*NYLAC20NY*iF0R 1«1 TO 2&0 
iNEIT i : GOTO 4030 

4060 IF rbt*l THEN MTO 4070 ELSE 60SUB 
970: MTO 4030 
4070 FOR 1-1 TO 3 
4080 xlX a INT(IRNDI10)-3> 

4090 x2X a INT ( (RNOtlO) *3) li3Z*366-YP0B: IF 
x3Z<i2Z THEN x2X a x3X 
4100 PIOTR ilZ,i2Z, kolor 
4110 NEKT 
4120 MTO 4030 

4300 CLS I2:PRINT •2 I '(P)ROSTOPADLOSC1AN 
(0ISTR08LUP (PI) ENU KREŚLENIE* 

4310 IF INKEY (38) "O THEN MTO 630 

4320 IF INKEY (27) a 0 THEN bl-*P*:MTO 460 

O 

4330 IF INK£Y(34)>0 THEN b»-*0*iHT0 460 
O 

4540 MTO 4310 

4600 reh tittmmmmtmsmitimt 

4610 REH I PROSTOPADŁOŚCIAN 1 I 

4615 REH I OSTROSŁUP I 

4620 reh immmttttmtttmmimt 
4630 CLS B2lPRINT 82,*NYZNACZ P1ERNSZY P 
UNKT P0D8TANY* 

4640 LOCATE •2 > l f 2:ntINT 12,'UZYNAJ :‘*C 
HRI (240) ♦CHR* (242) +CHRI (243) ♦CHRB <241 )♦• 
COPY LUB JOYSTICK* 

4630 oZ>0 

4660 60SUB 1030:60SUS 1170:60801 970:608 

US 1030: MSUB IO 8 O 1 M 8 UB 970 

4670 IF qkZ>0 AND prX a l THEN PLOT xpX,yp 


Z« kol :HOVE xX,yX:*kX a l 
4680 IF INKEY (FX)>0 THEN 4700 
4690 MTO 4660 
4700 PLOT il.yl.1 
4710 illiXiy!l>yZ 

4720 LOCATE 82, 1, 1 iPRINT 82,* WYZNACZ DR 
U 6 I PUNKT 

4730 60SUS 1030i608UB 1 170:60808 970:608 
UB 1030:60808 1080:60808 970 
4733 IF oZ-0 AND (x!XOx OR ylZOy) THEN 
PLOT xlZ,ylZ f l:ROVE «,y:oX-l 
_4740 IF ikZ»0 AND prZ-1 THEN PLOT xpX,yp 
Z,kol:NOVE xX,yXiskX-l 
4730 IF INKEY (FZ) -O THEN 4770 
4760 MTO 4730 

4770 PLOT xX,yX,lix2X a xX:y2X a yXiDX a 0 
4780 LOCATE 82,1,1:PR1NT 82 ( 'WYZNACZ RZU 
T TRZECIEM PUNKTU * 

4790 608UB 1030:608UB U70:608UB 970:608 
Ul 1030: MSUB 1080: M 8 UI 970 
4800 IF oX«0 AND (x2I<>x OR y2XOy) THEN 
PLOT x2X,y2Z,l:HOVE x,y:oX a l 
4810 IF akZ>0 ANO prZ-1 THEN PLOT xpZ,yp 
X,kol:H0V£ xX, yZi skZ-1 
4820 IF 1B8CEY(FZ)«0 THEN 4833 
4830 6OT0 4790 

4833 PLOT xZ f yX, l:i3X-xXiy3X-yZioZ-0 
4840 LOCATE 82,1,1:PRIHT #2, 'WYZNACZ NYS 
OKOSC 

4843 x4Z»x IZ* (x3X-x2X) : y4X«y3X- (y2X*ylX) 
* IF bf*0* THEN XłX"ilX+(x3Z-ilX)/2iyiX a 
ylZ*(y3Z-ylZ)/2:H0VE xiX,yiX:xX a xqX:yX a y 
■Z 

4830 60SUB 1030:60SUB 1170:608UI 970:608 
UB 1030i608UB 1080: MSU 8 970 
4860 IF oZ>0 ANO (x3XOx OR ySZOy) THEN 
PLOT x3X,y3X,l:H0VE x,y:oX a l 
4870 IF akZ-0 AND prl»l THEN PLOT xpX,yp 
X,kol:NOVE •Z.ylukZ-l 
4880 IF IKKEY(FX>-0 THEN 4900 
4890 60T0 4850 
4900 IF bł»*0* THEN 4970 
4910 hZ«y“y3Z 

4920 i3X a xlXix6X a x2Xix7X s x3X:x8Z>i4X 
4930 y3Z-y 1 Z+bZi y6X-y2X+6X: y 7Z«y 3Z*hX: y 8 
X-y4X+hl 

4940 H0VE xlX,ylZ:DRAN x2Z,y2X, kolor: DRA 
N x3Z,y3Z, kolor: ORAN x4X,y4Z,kolor:DRAN 
ilZ.ylZ, kolor 

4930 NOVE x5X« y3Z: DRAW x 6 X,y 6 Z, kolor: DRA 
N x7Z, y7Z, kolon DRAŃ. xBZ,yBZ, kolor: DRAŃ 
x5X,y5X, kolor 

4960 DRAŃ xlX,ylX,kolor:HOVE x 8 Z,y 8 Z:DRA 
N x 4Z,y4Z, kolor: HOVE x 6 Z,y 6 Z:DRAN x2X,y2 
X,kolor:HOVE x7X,y7Z:DRAN x3X,y3X, kolor: 
HOVER 1 , Ol 1 X a IP08: yZ* YPOS 1 MTO 3000 
4970 HOVE x 1 Z , y 1 X : DRAW x2X*y2Z, kolor: DRA 
N x3X, y3X, kol or 1 DRAŃ x4X,y4X, kolor: DRAŃ 
xlZ,ylX, kolor 


4980 DRAŃ xX, yX, kol or: DRAŃ x2X,y2X, kolor 
:HOVE x3X, y3X: DRAŃ xX,yX, kolor: DRAŃ x4X t 
y4X, kolor 
4990 HOVE xX,yX 
3000 CLS 12 

3010 PR1NT 82, " (fi) ENU KREŚLENIE (B)R 
YLY (J)ESZCZE RAZ* 

5020 IF INKEY (38)-0 THEN 360 
3030 IF INKEY (34) -O THEN 4300 
3040 IF INKEY (43>-0 THEN 4630 
3030 MTO 3020 

3300 reh titiittmimmmttiątitmt 

3310 REN I ZAPEŁNIANIE KOLOREH I 

3320 reh ttittiimmmiiimitiimii 

3330 CLS 82IPRINT 82, 'ZAPEŁNIANIE - NYLA 
CZANE (P)ONROT* 

3540 LOCATE 82, l,2:PftIMT 12,‘UZYNAJ 1 *♦ 
CHRB (240) *CHRI ( 242) *CHRI (243) ♦CHRB (241 > ♦ 
* COPY LUB JOYSTICK') 

3343 rbX>0 
5350 606UB 1700 

3360 608UB 1030:608UB 1170:MBUB 970:608 

UB 1030:MSUB 1 080: GOSUB 970 

3370 IF »kZ«0 AND prZ a l THEN PLOT xpX,yp 

X,kol:MVE xX, yX: skZ-1 

3600 IF INKEY (27)>0 THEN MTO 360 

3610 IF INKEY (FZ) a O AND rbZ-0 THEN rbX*l 

iFOR i-i TO 200:NEXT i: LOCATE 82,13,1:PR 

INT 82,'NLACZONE *:MTO 5620 ELSE IF INK 

EY(FX) a O AND rbZ-1 THEN rbZ-0:LOCATE 82, 

15,1:PRINT 82, 'NYLACZOWE* : FOR i«l TO 200 

iNEIT i: MTO 5360 

3615 MTO 3360 

3620 pzaTESTd^yhizmyi^iMkaOiipz* 
zziypzayz 

5630 PLOT x,y, kolor: IF x>640 THEN 3700 E 

LSE NOVER l,0:x*x+2:ppz"TESTIi,y): IF pz a 

ppz THEN MTO 3630 

3640 HOVE xz , yz :i a xz : y-yz 

3630 PLOT x, y, kolor: IF x<0 THEN 3700 ELS 

E HOVER -l,0ix a x*2:ppz a TEST(x,y)łIF pz a p 

pz THEN MTO 3630 

3633 IF Mk a l THEN MTO 3670 

5660 yz a yz*2:pzz a TEST (xz,yz) :x»xzi y a yz: I 

F pzz-pi THEN HOVE xz,yz:MTO 3630 

3665 Mk a l:HOVE xpz,ypz:xz a xpziyz a ypz 

3670 yz a yz-2ipzz a TEST(xz,yz)ix a xziy«yzil 

F pzz-pz THEN HOVE xz,yz:60T0 3630 

3680 HOVER 0,-2ixI*XP0S:yZ»YP0SiMT0 600 

O 

3700 CLS 82IPRINT 82,' UNA 6 A! FIGURA NI 
EDONKNIETA. (H)ENU KREŚLENIE (Z)APELNI 
ANIE': 

3705 HOVER 0. 2: xl-XPOS: yZ-YP03 
3710 IF INKEY (38) «0 THEN 360 
3720 IF INKEY (71 )»0 THEN 3330 
3730 60T0 3710 
6000 MTO 5530 


Godzina 22.50. Tu „Radiokomputer” 
program Rozgłośni Harcerskiej Pol- 
skiego Radia. Zawsze we wtorki o 


> 

E 

cc 
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i— 

CL 



LO 

C\j 

C\J 





^ Za stołem realizatorskim Marek Dalba 


W studiu goście programu Roman Dawidson i Maciej 
Kasperski z „Przeglądu Technicznego" — dziś roz- 
mawiają z Piotrem Tymochowiczem na temat wy- 
stawy komputerów. 


Muzyczny przerywnik — głos ma Adam Halber ^ 








Na tę chwilę czekają użytkownicy Atari — Tomasz 
Jordan przygotowuje program do emisji radiowej. 
Tuż za nim Janusz Sikorski — sekretarz Rozgłośni 
Harcerskiej PR. 


Foto: Jan Zelman 



ikiej tłok. Do sklepu Centralnej Składnicy Harcerskiej przywieźli 
iputery. Najważniejsze to dostać się do środka. Przy ladzie 
atwia się błyskawicznie. 




Sztuki i sztuczki (6) 

ZMIENNE 
SYSTEMOWE 
ROM SPECTRUM 

INTERPRETACJA I BŁĘDY 


T-ADDR 23668/9 

CH-ADD 23645/6 

NEWPPC 23618/9 

NSPPC 23620 

PPC 23621/2 

SUBPPC 23623 

OLDPPC 23662/3 

OSPPC 23664 

NXTLIN 23637/8 

X-PTR 23647/8 

RASP 23608 

ERR-NR 23610/1 

NMIADD 23728/9 

Interpretacja instrukcji, którą absorbujemy kompu- 
ter, składa się z dwóch etapów: analizy poprawności 
zapisu (syntaktyki) oraz wykonania (egzekucji). Od- 
powiada za to w ROM-ie blok zwany Interpreterem 
Analiza syntaktyczna polega na wykryciu komendy i 
skojarzonych z nią elementów, które zawarte są w 
tablicy parametrycznej. Komputer sprawdza, czy uży- 
to odpowiednich separatorów, typów zmiennych lub 
innych słów kluczowych (np. THEN musi być w wy- 
rażeniu z IF). Adres kolejnego elementu odczytywa- 
nego z tablicy znajduje się w zmiennej T-ADDR 
Część kontrolna interpretacji zachodzi już po naciś- 
nięciu ENTER przy wy|ściu z edytora. Adresy kolejno 
czytanych bajtów umieszczane są w CH-ADD przy 
wykorzystaniu restartów 24 i 32. Błąd składni sygna- 
lizowany jest migającym znakiem zapytania, druko- 
wanym pod adresem wziętym z X-PTR, 

Jeśli instrukcja została wczytana w trybie interak- 
cyjnym (bez numeru linii), to zostanie zinterpretowa- 
na natychmiast, jeśli zaś podany był numer linii, to 
będzie umieszczona w obszarze programu. Przejście 
do fazy wykonania nastąpi wtedy po rozkazach RUN, 
GOTO lub GOSUB. 

Warunkiem koniecznym rozpoczęcia egzekucji 
jest umieszczenie w zmiennych NEWPPC i NSPPC 
numeru linii I wyrażenia w niej, od których należy za- 
cząć. Normalnie wykonuje to interpreter, wrzucając 
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tam parametr rozkazów RUN, GOTO, czy linię auto- 
startu zakodowaną przez LINĘ. 

Nic nie stoi na przeszkodzie, aby wykorzystać 
NEWPPC i PPC. Poniższy przykład jest ulepszeniem 
instrukcji GOTO o numer wyrażenia w linii: 


1000 POKE 23618. 1 lnl 6-236* I NT <llnl«/256) 
1010 POKE 23619, INT <llni*/236> 

1020 POKE 23620, wyr 


W momencie pojawienia się potrzeby dokładnego 
skoku, np. do trzeciego wyrażenia w linjj 8000, pisze- 
my: 

LET linia = 8000 : LET wyr = 3 : GOTO 1 000 

Zwróćmy uwagę, ze skok jest reakcją na zmianę 
NSPPC. Dopóki będzie tam wartość 255, skok nie 
nastąpi. Można więc wyjaśnić tzw. autostart progra- 
mu. Przygotujmy 3 bajty. W pierwszym młodszy bajt 
numeru linii, w drugim starszy, a w trzecim numer wy- 
rażenia w linii. Np. 

POKE 60000, 70 
POKE 60001,0 
POKE 60002. 5 

Zapiszmy to: SAVE „start" CODĘ 6E4, 3. 

Jeśli teraz po wczytaniu programu wykonamy: 

LOAD „start” CODĘ 23618, 3 

to program po prostu się uruchomi od 5 wyrażenia 
w linii 70. 

W PPC i SUBPPC umieszczana jest w trakcie eg- 
zekucji linia i wyrażenie aktualnie wykonywane. 
Właśnie te wartości uwzględnia komunikat o błędzie 
systemowym. 

Zmienne OLDPPC i OSPPC stają się aktywne w 
razie przerwania programu klawiszem BREAK lub w 
wyniku rozkazu STOP. Zostają załadowane nume- 
rem linii i wyrażenia, od których wznowi się egzeku- 
cja po rozkazie CONTINUE. Interpreter zna te dane, 
gdyż w NXTUN przechowuje sobie adres kolejnej li- 
nii programu już w momencie zajęcia się aktualną. 
Wpiszmy w dowolne miejsce programu linię: 

xx PRINT PEEK 23637 + 256 • PEEK 
23638-50 

a otrzymamy adres początkowy linii po niej następu- 
jącej. Rozkaz CONTINUE może zastępować w cza- 
sie egzekucji komendę GOTO. Np. 


100 PRINT "wclAnlJ kl*wi*z"i IF NOT 
LEN INKEY* THEN POKE 23662,1001 POKE 
23664,21 CONTINUE 


Jeśli w programie jest dużo skoków do określonej 
linii, wtedy można jej numer schować do OLDPP- 
C/OSPPC i używać CONTINUE zamiast GOTO. 
Przykładowa konstrukcja menu wygląda tak: 


90 POKE 23662,1001 POKE 23663, Ol PO 
KE 23664,1 

100 PAUSE Ol IF INKEY.C " 1 " OR INKEY*. 
>"4" THEN CONTINUE 

110 IF INKEY»-"1" THEN PRINT "PODPRO 
GRAM l"l CONTINUE 

120 IF INKEY4*"2" THEN PRINT "PODPRO 
GRAM 2" I CONTINUE 

130 IF INKEY»-"3” THEN PRINT "PODPRO 
GRAM 3" l CONTINUE 

140 IF INKEY»-"4" THEN PRINT "PODPRO 
GRAM 4"l CONTINUE 

Inny przykład rozwiązania menu symuluje użycie 
instrukcji On n GOTO... nieznanej w Spectrum — Basic. 
Linia 150 wyszczególnia skoki, które odpowiadają 
poszczególnym opcjom. 


100 INPUT “(1..3) ",xl 
IF K< 1 OR X >3 THEN GOTO 100 
110 POKE 23618,2001 POKE 23619, Ol POK 
E 23620, X 

200 GOTO 600 1 GOTO HOOl GOTO 7020 
600 REM opcja 1 
1100 REM opcja 2 
7020 REM opcja 3 


ty „zagospodarował system dyskowy z nim współ- 
pracujący, mianowicie TOS (Timex Operating Sy- 
stem). Znaczenie bajtów jest wtedy następujące: 

23728 SYSERR - kod błędu lub O jeśli nie ma 
błędu: 

23729 TRAP — jeśli warteść inna niż O, to sy- 
stem nie drukuje raportów, umieszczając tylko kod 
błędu w SYSERR: 

Program poniższy powoduje, że jeśli nie powiedzie 
się odczyt tablicy zmiennych f. to egzekucja nie zos- 
tanie wstrzymana, a po naciśnięciu klawisza „r" mo- 
żna odczyt powtórzyć np. po zmianie niewłaściwej 
dyskietki: 


10 POKE 23729,255 

20 LOAD *"F*"DATA 9*0 

30 IF PEEK 2372800 THEN GOTO 1000 

40 PRINT f*(l> 

50 STOP 

1000 PRINT #1 1 AT 0, 0| "bżęd dyskowy •• 
(PEEK 23728’, "r powt.ri." 

1010 PAUSE ll PAUSE Ol INPUT O 
1020 GOTO 20+20* (PEEK 23556082) 


W następnym numerze o wskaźnikach obszaru 
programu i zmiennych Basic. 

K. MAMCARZ 


A teraz trochę o błędach... 

Oprócz omówionego już błędu składni Spectrum 
może sygnalizować przekroczenie dopuszczalnych 
sposobów pracy już na etapie edycji. Buczy wtedy 
zniechęcająco, a długość tego dźwięku „trzyma" 
zmienna RASP. Normalnie jest tam wartość 64, co 
daje nieco ponad 1 sek. Błędy wykryte podczas egze- 
kucji programu powodują przerwanie interpretacji i 
wykonania restartu 8. Pobierany jest adres procedu- 
ry drukującej raport (4867), który przechowuje 
zmienna ERR-SP. Bajt ERR-NR dostarcza kod błędu. 

W programie można wymusić dowolny raport 
przez: 

10 POKE 23610, kod: 
lub: 

1 0 POKE 23728, 207: REM RST 8 
20 POKE 23729, kod 
30 RANDOMIZE USR 23728 

W ostatnim przykładzie umieściłem program w ob- 
szarze zmiennych systemowych. W podręczniku oba 
adresy figurują jako wolne, choć w istocie miały 
służyć przechowywaniu adresu procedury przerwa- 
nia niemaskowalnego (NMI). W standardowym Spec- 
trum nie znalazło to zastosowania, ale oba wolne baj- 


łss fSr +6 

STEP 2: POKE n , 170: POKE n+1,255 

• NEXT n 

110 BORDER 4: CLS 
11S FOR n *0 TO 31: 

PER 7; rt 0,n ; " A" ; RT 
T n 

120 FOR n«0 TO 174- STEP 
0,r. : DRAU 265,0: NEXT n 
125 FOR n *0 TO 255 STEP 
ri,0: DRAU 0,175: NEXT n 
130 BEEP .2,26: PAUSE 0 


BORDER 4 
PRINT 00; PA 

l,n; M A M : NEX 

PLOT 


PLOT 


PRINT 


FOR n»0 TO 7: 

; : NEXT n : NE 


AT 6,0j 

135 FOR W«1 TO 6 
PRINT PAPER n; u 

140 PRINT AT 11,0; ’••• 

145 FOR wsi TO 6: FOR n*0 TO 7: 
PRINT PAPER n; BRIGHT 1;" M i : 
NEXT n: NEXT tn 

150 BEEP .2,14: PAUSE 0 
155 PLOT 41,175: DRAU 175,-175: 
PLOT 40,0: DRAU 175,175: PLOT 4 

0,1: DRAU 175,0: DRAU 0,174: DRA 
U -174,0: DRAU 0,-174 
160 BEEP .2,2: PAUSE 0 
165 FOR n»-60 TO 69: BEEP . 05 , n 
: PRINT AT 1,1;" ";n;" ": PAUSE 
3: NEXT n: PAUSE 100: GO TO 0100 
9000 CLS : SAUE "MONITEST" LINĘ 
100: PRINT AT 3,11; FLASH 1; BRI 

GHT 1; " UERIFY : UERIFY "MONI 
TEST": GO TO 100 


(J. Rubinowicz) 
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„Nasz klub jest narzędziem pracy — 
komputerem posługujemy się w astro- 
nomii" — mówi Mieczysław Borkow- 
ski, prezes łódzkiego Klubu Kompute- 
rowego Młodych Mistrzów Techniki 
„Andromeda". Jest to jeden z nieli- 
cznych. jeśli nie jedyny polski klub 
komputerowy, który zajmuje się wyłą- 
cznie astronomią. „Andromeda" jest 
jednym z kół zainteresowań istnieją- 
cych przy Specjalistycznym Ognisku 
Pracy Pozaszkolne) Planetarium i Ob- 
serwatorium Astronomicznego miasta 
Łodzi. 

Dlaczego właśnie astronomia? Krót- 
ka rozmowa z prezesem, daje odpo- 
wiedź na to pytanie. Planetarium pro- 
wadzi dla szkół, przedszkoli i zorgani- 
zowanych grup zajęcia popularyzujące 
wiedzę astronomiczną. Pomaga w tym: 
model planetarium, filmy video, groma- 
dzone od 10 lat (niestety czarno-białe, 
nagrywane i wyświetlane na polskim 
magnetowidzie MTV-10) oraz progra- 
my komputerowe. Dzięki nim. obserwu- 
jemy niebo, można odbywać podróż w 
czasie i przestrzeni. Na monitorze wy- 
świetla się obraz nieba widzianego z 
dowolnego punktu kuli ziemskiej, w 
dowolnym momencie, sprzed roku lub 
na przykład za kilka tysięcy lat. Na ek- 
ranie można zatem obejrzeć zaćmienie 
słońca opisane przez Prusa w „Farao- 
nie" lub niebo, jakie w czasie swojego 
życia oglądał Mikołaj Kopernik. Pro- 
gram ten wypisuje na żądanie podsta- 
wowe informacje encyklopedyczne o 
każdym obiekcie wyświetlonym na ek- 
ranie. Człowiek, oglądając wygwież- 
dżone niebo, stoi nieporadny wobec 
ogromnej liczby „migających" ciał 
.niebieskich. Nawet jeśli korzysta się z 
pomocy astronoma lub atlasu, trudno 
zidentyfikować oglądane gwiazdy, Na 
niebie po prostu nie ma punktów od- 
niesienia. a gwiazdy są do siebie po- 
dobne. Natomiast po monitorze poru- 
sza się krzyżyk, którym precyzyjnie wy- 


biera się gwiazdę lub grupy gwiazd i 
otrzymuje wyczerpujące informacje — 
astronoma zastąpi program edukacyj- 
ny. 

Inny program, traktowany trochę i 
przymrużeniem oka. sporządza horo- 
skopy Trzeba znać tylko dokładne 
współrzędne swojego miejsca urodze- 
nia (odczytuje się je z precyzyjnych 
map geodezyjnych) i czas z dokład- 
nością co do sekundy, gwarantuje to 
większą precyzję w określaniu indywi 
dualnej drogi życia. W „Andromedzie' 
tworzone są również własne programy 
jak mówi Mieczysław Borkowski; „wy- 
korzystuję naturalną ochotę zabawy do 
pisania programów dla astronautyki" 
Programy zagraniczne z reguły są uni- 
wersalne. ale pociąga to za sobą 
mniejszą dokładność. Natomiast pro- 
gramy własne klubu napisane zostały z 
myślą o konkretnym problemie, w 
związku z czym wykorzystują dokład- 
niejsze wzory i przez to są bardziej pre- 
cyzyjne. Jednym z nich jest program 
„Refleks", służący do oceny i trenowa- 
nia refleksu niezbędnego przy Obser- 
wacji zjawisk astronomicznych. Mierzy 
się czas zakrycia gwiazd przez tarczę 
Księżyca, dla obserwacji nadawany 
jest w paśmie 78.5 kHz czas astrono- 
miczny z dokładnością do jednej setnei 
sekundy Wyniki obserwacji: czas, 
współrzędne punktu przesyłane są do 
obserwatorium w Tokio. Napływające 
tam informacje o zjawiskach astrono- 
micznych z całego świata służą profe- 
sjonalistom od obliczeń. 

„Andromeda", podobnie jak wiele in- 
nych klubów, wyposażony jest w zbie- 
raninę sprzętu — ma ZX Spectrdm (6). 
Commodore Cl 28 (2). Amstrada CPC 
6128 i Meritum. Zmusza to członków 
klubu do przeróbek programów, utru- 
dnia to również obsługę techniczną. 
Choć z naprawą sprzętu klub ma bar- 
dzo mało kłopotów, a to dzięki Mikoła- 
jowi Przychodzie — właścicielowi pry- 
watnego zakładu usługowego. Po klu- 


bie krąży anegdotka: po pół roku leże- 
nia w państwowym zakładzie kompu- 
ter, którego „absolutnie" nie można by- 
ło naprawić, ożył po dotknięciu przez 
„złotą rękę" pana Mikołaja Po dwóch 
latach działalności Mieczysław Bor- 
kowski spokojnie może powiedzieć 
„Andromeda ma szansę działania — 
gdyż ma bazę techniczną, zapewniają- 
cą obsługę sprzętu, po prostu takie są 
możliwości działania Planetarium" 
Komputery ożywiły zainteresowania 
dzieci astronomią. Nie znaczy to bynaj- 
mniej, że wszystkie marzą o karierze 
astronomów. Traktują zajęcia w klubie 
jako hobby, jako sposób poznawania 
naszego świata. Motto ich działalności 
określa cytat umieszczony w sali klubu. 

., Pożytki astronomii płyną stąd, że 
uświadamia ona nam, jak małe jest cia- 
ło człowieka, a. jak wielki jest jego 

AMSTRAD — układ 

10 WODĘ llBORDER Ol PAPER Ol PEN 1 
20 INK O, Ol INK 1,261 INK 2,13,26iD£G 
30 FOR x-l TO 360i ORIGIN 320,200 
40 DRAW 209C08<x> ,209SIN<x> , 1 
SO PLOT 459C06<x>,139SIN(x> 

60 ORIGIN 273,200 

70 DRAW 3*C0S <x > , 39SIN (x ) , 1 

80 ORIGIN 320,200 

90 PLOT 709C06 (x > , 21 łSIN (k > 

100 ORIGIN 230,200 

110 DRAW 39C0S(x) ,3»8IN(x) 

120 ORIGIN 320,200 

130 PLOT 9S9C0S <x > , 3098 IN <x ) 

140 PLOT 1209C0S <x > , 4498IN (x ) 

150 PLOT 1579C06 <x ) , 36981 N (x > 

160 PLOT 1979C0S(x> ,679SIN(x> 

170 PLOT 2339C0B<x ) , 7898 IN (x ) 

180 PLOT 2709C08 (x ) , 899SIN <x ) 

190 PLOT 3009C0S <x ) , 9998IN <x ) 

200 ORIGIN 20,200 

210 DRAW 49C0B (x) ,498 IN(k)* s ' 

220 ORIGIN 30,200. 

230 DRAW 49COS <x) ,49SIN(K> 

240 ORIGIN 87,200 

230 DRAW 89C0B <x > ,B*SIN(x) 

260 ORIGIN 163,200 

270 DRAW 129C0S (x > , 129BIN <x > 

280 ORIGIN 123,200 

290 DRAW 99C0S (x ) , 998IŃ (x > 

300 ORIGIN 223,200 

310 DRAW 49C08 <x ) ,4*SIN(x> 

320 ORIGIN 200,200 

330 DRAW 49COS(x),49SIN(m>iNEXT 

340 ORIGIN O, Ol t»TIWE*700i WHILE TIWE<t 

330 PLOT RND9640, RND9400I WEND 

360 PLOT RND9640, RND9400, 2 

370 GOTO 370 

jmysi . Poucza* couziermej gonitwy 

zapominamy o ogromie wszechświata. 

0 tym. że zaobserwowano już tysiące 
.galaktyk, z których każda składa się z 
miliardów gwiazd podobnych do Słoń- 
ca. Ziemia jest jedną z planet krążących 
po orbicie wokół Słońca, planetą za- 
mieszkaną, której mieszkańcy jak na 
razie wykazują zbyt dużo energii, by się 
nawzajem zabijać. Zgodnie ze słowami 
prezesa „Andromedy”, astronomia uczy 
nas. że jesteśmy niewielką cząstką 
<osmosu. Ziemia podlega jako frag- 
ment kosmosu ruchom astronomi- 
cznym. Dlatego powinniśmy przestać 
myśleć egoistycznie, jak panowie życia 

1 śmierci organizmów ziemskich, a za- 
cząć myśleć jak elementy kosmosu. 

Dariusz OTTO 
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Spośród dotychczas przedstawionych programów dwa ostatnie 
(por. cz. 3, przykłady 9 i 10) należą do „najdłuższych”. Czytelnik za- 
uważył zapewne, że Istotny wpływ na ich długość mają powtarzające 
się podobne sekwencje instrukcji. I tak, w obu programach: 

— dla wczytania dwóch macierzy (a I b) zapisano dwukrotnie po- 
dobne sekwencje instrukcji, 

— dla wyprowadzenia na ekran monitora trzech macierzy (a, b i c) 
zapisano trzykrotnie podobne sekwencje instrukcji. 

Sytuacja taka występuje w wielu opracowywanych programach. 
Często bowiem musimy w różnych miejscach wykonywać niemal 
identyczne (z wyjątkiem argumentów) sekwencje instrukcji. Dla 
programisty wygodne jest więc wyodrębnienie takich sekwencji i 
traktowanie ich jako swojego rodzaju wzorów (podobnie jak w ma- 
tematyce), zwanych w językach programowania procedurami, z 
ustaloną listą zmiennych — zwanych parametrami formalnymi. W 
chwili korzystania ze wzoru (procedury) podawana byłaby nazwa 
wzoru (procedury) wraz z listą argumentów, zwanych parametrami 
aktualnymi. Byłoby to równoznaczne z zastąpieniem parametrów 
formalnych parametrami aktualnymi. Procedury wyznaczające war- 
tość i występujące w wyrażeniach nazywane są funkcjami. Procedu- 
ry i funkcje są tematem niniejszej części. 


1. PROCEDURY 

Procedura występująca w bloku 
programu musi być opisana w jego 
części definiującej, w postaci, tzw. 
deklaracji procedury. W przykła- 
dzie 1 1 przedstawiono zmodyfiko- 
waną wersję programu mnożenia 
dwóch macierzy (por. cz. 3), w któ- 
rych powtarzające się podobne 
sekwencje instrukcji, czytania i 
wyprowadzania macierzy, zadekla- 
towano jako procedury „czytać”, 
„pisać”. 

Są one wykorzystywane w częś- 
ci operacyjnej programu w postaci 
tzw. wywołań procedury lub ina- 
czej, instrukcji procedury. 

Przykład 11 

PROSRftłl progtl: 

(anorenie macierzy - eersja z proceduraei 
CONST 

da=l: (dolna eertosE indeksu marszy) 
oe»7} (oorna eartosc indeksu marszy) 
dk*li (dolna eartosc indeksu koluen) 
ok*7[ (oorna Martosc indeksu koluenl 
TfPE 

tab!ica=«RRM(dM..9M,dk..3kl OF reali 
VAR 

. p. (liczba wierszy nacierzy ») 

qi, (liczba koluan aacierzy a ) 

q2. (liczba wierszy aacierzy b) 

rsinteger: (liczba koluan aacierzy b ) 


a,b, (aacierze wejściowe) 

c: tablica: (aacierz wynikowa ) 
i,j,k:inteqer; (zaienne robocze) 
s:real: 

PROCEDURĘ czytaac (pdw. ilw,pdk, ilk: inteoer ; 

vAR aac: tablica) ; 
(paraaetry procedury: 
pdw - dolna wartość indeksu wierszy, 
ilw - liczba wierszy, 
pdk - dolna wartość indeksu koluan, 
ilk - liczba koluan, 
aac - adres aacierzy) 

VAR 

^ijjiinteger: (zaienne robocze) 

FOR i: : pdw TO ilw DO 
BEGIN 

FOR j:*pdk TO ilk DO 
READtaacti,)]); 

REAOLN 

•ND 

END: 

PROCEDURĘ pi szaaclpdw.il w, pdk. i Iks inteoer; 

VAR aac: tablica); 
(paraaetry procedury - jak 
w procedurze czytaac) 

VAR 

^ijjsinteęer; (zaienne robocze) 

FOR i:=pd* TO ilw DO 
beg:n 

FOR j:»pdk TO ilk DO 
HRITEI* ’:5.«icCi. jlslO); 

HRITELN 

END 

ENO: 

BEGIN 

READLN(p.ql): (wczytanie wyaiarow) , 

( aacierzy a ) 

IF (o>gw) CR (ql>gk) THEN » 

HRITELN: 

HRITELN ('niepoprawne wyaiary aacierzy a’) 
END 
ELSE 
BEGIN 

C2vtaac(dw.o,dk,ql.a): 

READLN(q2,r): (wczytanie wyaiarow ) 


(aacierzy b 
IM^, DR (r> 9 k) THEN 

HRITELN: 

NRITELN ( ’ ni Boopranne wyaiary aacierzy b’) 
END 
ELSE 
BEGIN 

czvtflac(dw.q2,dk,r,b){ 

HRITELN; (wypisanie wczytanych aacierzy ) 
HRITELN (’ :3,’>aciirz a’)i 




erz b’); 

3iszaac(dw,q2.dk l r.b); 

IF ql*q2 THEN (sprawdzenie zqodnosci ) 
BEGIN (wyaiarow aacierzy a i b) 

FOR ii«dw TO p 00 (anozenie aacierzy) 
POR J:*dk TO r DO 
BEŁIN 
il*0| 

FOR k:=dk TO ql DO 
|}'S+a[i t k)tb[k,j]; 
cti, jl:*« 

NRItHIni 

NRITElNt* ’:3, 'macierz c«a(b’l: 
ptszaac (dM.p.dk.r.c) 

END 

ELSE 

HRITELNUnietaDdne Myeiary eacierzy’, 

’ a I b’l 
ENO 
ENO 
END. 

Deklaracja procedury składa się 
z nagłówka procedury i blcku pro- 
cedury. W ogólnym przypadku na- 
główek procedury ma postać: 


PROCEDURĘ 

nazwa (Ipl); 


gdzie: 

PROCEDURĘ — słowo kluczowe, 
oznaczające deklarację procedury, 
nazwa — nazwa procedury, 

Ipl — lista parametrów formalnych 
określająca liczbę, rodzaj, kolej- 
ność i łyp parametrów formalnych. 


Należy zauważyć, że w listach 
parametrów formalnych występują 
zapisy o postaci odpowiadającej 
zapisom deklaracji zmiennych (por. 
cz. 1), przy czym część zapisów 
może być poprzedzona słowem 
kluczowym VAR. Te ostatnie to pa- 
rametry wejściowo-wyjściowe. Dru- 
gi rodzaj parametrów formalnych to 
parametry wejściowe — nie są one 
poprzedzone żadnym słowem klu- 
czowym. Parametry wejściowe słu- 
żą do przekazywania wartości pa- 
rametrów aktualnych (tzn. parame- 
trów, którymi zostaną zastąpione 
parametry formalne w wywołaniu 
procedury) do procedury. Ten ro- 
dzaj parametrów nie może być wy- 
korzystywany do przekazywania 

» 
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wyników działania procedury na 
zewnątrz procedury. Parametry wej- 
ściowo-wyjściowe służą do prze- 
kazywania wartości parametrów 
aktualnych; do procedury oraz 
umożliwiają przekazywanie wyni- 
ków jej działania na zewnątrz. Po 
wywołaniu procedury działania na 
parametrach wejściowo-wyjścio- 
wych wykonywane są faktycznie 
na odpowiadających im parame- 
trach aktualnych. 

Blok procedury jest zbudowany 
analogicznie, jak blok programu. 
Składa się z części definiującej i 
części operacyjnej. W części defi- 
niującej mogą występować: 

— definicje stałych, 

— definicje typów, 

— deklaracje zmiennych, 

— deklaracje procedur, 

Część operacyjna to ciąg ins- 
trukcji zawarty między parą słów 
kluczowych BEGIN— END Sepa- 
ratorem, kończącym blok procedu- 
ry, jest średnik (w wypadku pro- 
gramu jest to kropka). 

Wywołanie procedury powoduje 
zastąpienie parametrów formal- 
nych parametrami aktualnymi oraz 
wykonanie sekwencji instrukcji 
opisanej w części operacyjnej blo- 
ku procedury. Ogólna postać wy- 
wołania procedury jest następują 
ca: 

nazwa (Ipa); 
gdzie: 

nazwa — nazwa zadeklarowa- 
nej procedury, 

Ipa — lista parametrów ak- 
tualnych: należy pod- 
kreślić, że musi być 
ona zgodna (co do 
ilości, kolejności ro- 
dzaju i typu parame- 
trów) z listą parame- 
trów formalnych. 

Program „próg 1 1 ” wykonano dla 
takich samych danych, jak w pro- 
gramie „próg 10" (por. cz. 3), uzy- 
skując identyczny rezultat. 

Zajmijmy się teraz bliżej obiek- 
tami. które mogą wystąpić w części 
operacyjnej procedur. W tym celu 
rozpatrzmy program „próg 12” z 
przykładu 1 2 (jest to jedno z możli- ' 
wych rozwiązań zadania 8 z cz. 3). 


Przykład 12 

rnUGRAH progl2: 

C0N87 

n*100i 

TYPE 

ciig a ARRAYtl,.nl OF rtal; 

VAR liczbyiciag; 
ilosciintegcr; 

PROCEDURĘ prostaHyb Ci loici lntegart VAR 
liczbyiciag); 


(porzadkonar.ie ciągu liczb rz.czy.istvch 
aatoda przez procce wybieranie) 

VAR i.j.kiint.ger; 


ztrealt 
REGIN 

FOR il»l TO ilosc-1 DO 
SESIN 
k;*li 

wiwliczbytlti 
FOR jl«|łl TO ilosc DO 
IF liczbyljKi THEM 
REGIN 

li a iiczby[jj 

END) 

liczbytkli a liczbytil; 

liczby!!))*! 

END 

PROCEDURĘ czytajliczby; 

(czytanie ciągu liczb) 

VAR iiintegeri 
BEGIN 

FOR it»i TO ilotc DO 
BEADIllczbytil) 

END; 

PROCEDURĘ drukujliczby; 

(wj^prowadzaniie ciągu liczb) 

ilpw. 

reszta. 

BEŚS4’ k!int .„ ri 

ilpN!>ilose DI V 5; 
resztu*ilosc HDD 5: 

NRITELN: 

k:«0| 

FOR {«■! TO ilpti DO 
BEGIN 

FOR j**l TO 5 DO 
HR1TEC ’,liczbytk*j3:10:3) : 
NRITELN} 
ks«k+5 
END? 

FOR i * *1 TO reszta DO 
NRITEC %liczbvtk+i]:10:3) 

END: 

BE6IN 

REPEAT 

NRITELN? 

NRITELNCpodaj ilosc r/razoN ciaqu <=’, 
READLN(iloic) 

UNTIL (ilosc >0) AND (iIosc<*n): 

NRITELNł ’ wpronadz wyrazy ciągu* ) i 

NRITEUNr wprowadzone wyrazy ciągu:')} 

drukujliczby; 

prostewyblilosc. liczby); 

NRITELN; 

NRITEUNrwyrazy ciągu po uporządkowaniu;’); 
drukujliczby 
END. 


W części definiującej programu 
zadeklarowano trzy procedury, 
przy czym dwie z nich są procedu- 
rami bezparametrowymi, tzn. lista 
parametrów formalnych jest pusta. 
W każdej z procedur występują tzw. 
zmienne lokalne. Są to zmienne 
zadeklarowane w części definiują- 
cej procedury (nie są „widoczne” 
poza procedurą). Dlatego też w 
różnych procedurach mogą być 
deklarowane zmienne o takich sa- 
mych nazwach 

W procedurach „czytajliczby" i 
„drukujliczby" wykorzystywane są 
zmienne „liczby” i „ilość", zadekla- 
rowane poza tymi procedurami (w 
części definiującej programy). Są 
to tzw. zmienne globalne, deklaro- 
wane w bloku nadrzędnym, tj. ota- 
czającym daną procedurę. Należy 
zaznaczyć, że w bloku deklarowa- 
nej procedury są dostępne wszyst- 
kie zmienne zadeklarowane w do- 
wolnym z bloków nadrzędnych. Do- 
tyczy to również stałych, typów i 
procedur. 

W procedurze „prostewyb” wy- 
stępują parametry formalne, któ- 
rych nazwy są identyczne z na- 
zwami .zmiennych zadeklarowa- 
nych w części definiującej pro- 
gram. „Konflikt nazw” jest pozorny, 
gdyż nazwy parametrów formal- 
nych są lokalne dla danej procedu- 
ry- 

Program „próg 1 2" wykonano dla 
następującego ciągu liczb: 44, 
33, - 2,51,26,17,15, 14,- 35,8, 
6, 5, 4, 2,2, 3 i — 2 uzyskując na- 
stępujące wyniki: 


uprouadzone uyrazy ciągu; 


44.000 

33.000 

-2.000 

51.000 

26.000 

17.000 

15.000 

14.000 

-35*000 

8.000 

G.000 5.000 4.000 

3.000 -2.000 

izy ciągu po uporzadkoiianiui 

2.000 

2.000 

-35.000 

-2.000 

-2.000 

2.000 

2.000 

3.000 

4.000 

5.000 

6.000 

8.000 

14.000 

44.000 

13.000 

51.000 

17.000 

26.000 

33.000 
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Widać wyraźnie, że działanie 
procedury „prostewyb" odbywa się 
na zmiennej „liczby” zadeklarowa- 
nej w części definiującej programu, 
przekazanej do procedury jako pa- 
rametr wejściowo-wyjściowy. 

Kończąc omawianie procedur, 
warto podkreślić, że umiejętność 
posługiwania się nimi ma zasadni- 
czy wpływ na jakość i styl pracy 
programisty- Procedury stużą bo- 
wiem nie tylko do skracania tekstu 
programu, lecz również pozwalają 
na jego strukturalizację, tj. podzie- 
lenie na logicznie spójne części. 
Prawidłowa struktura programu 
przyczynia się do zwiększenia jego 
czytelności i ułatwia weryfikację 
programu. Warto zatem często po- 
sługiwać się procedurami nawet 
wtedy, gdy dany ciąg instrukcji wy- 
stępuje w programie tylko raz i 
argument skrócenia tekstu nie 
wchodzi w grę. 

2. Funkcje 

W kilku wcześnibj zaprezento- 
wanych programach wykorzysty- 
wane byty standardowe funkcje 
ABS i SORT Język PASCAL poz- 
wala na definiowanie własnych 
funkcji tzw. funkcji niestandardo- 
wych. Mogą one być używane do 
strukturalizacji wyrażeń arytmety- 
cznych. Sposób definiowania i 
użycia funkcji niestandardowych 
(jest podobny, jak w procedurach) 
omówimy na przykładzie funkcji 
wyznaczającej wartość całki 

D 

/ f(x) dx 

a 

metodą prostokątów. W metodzie tej 
przedział całkowania od a = x 0 do 
b = x„ dzieli się na n równych czę- 
ści punktami x,, ... Xi, ... x„. Następ- 
nie oblicza się wariości funkcji podcał- 
kowej w punktach, dla i £■ <1 ,n> 

Xi — Xi — i 
2 


t{x) 



O X, XI X,., Xj X«.| x„ 


Wartość całki jest sumą pól pro- 
stokątów utworzonych jak na ry- 
sunku. Można ją zatem wyrazić 
wzorem: 

t> „ 

/ f(x) dx >« h Z f(x,) 

a I*' 

gdzie: 

n — liczba podprzedziałów, 

h — b_B 

H TT 

szerokość podprzedziału, 

xi = a + (j — J-) h 

W przykładzie 1 3 przedstawiono 
funkcję wyznaczającą wartość 
całki 

b 

/ (lnx +5x) dx 

a 

Przyjęto tu, v że kolejne przybliże- 
nia całki mają być obliczone (przy 
podwojonej każdorazowo liczbie 
podprzedziałów) dotąd, aż bez- 
względna wartość różnicy między 
dwoma kolejnymi przybliżeniami 
będzie większa od zadanej dokład- 
ności obliczeń. 

Przykład 13 


Pf$06RAfl proQt3j 

dp,9P,dokl,aartcalki:r»al: 

.{ziienne robocza} 

FUNCTION calka(a,b.eps:fBal)ireal| 

(Nyznaczanie wartości całki dla 
funkcji f {x)*ln(x)+5lx; paraietrys 
a-dolna granica przcdzilu całkowania, 
b-gorna granica przedzilu całkowania, 
eps-dokladnosc obliczeń.) 

VAR 

n:integer; {liczba podprzedziałów ) 


Si. 


(szerokość podprzedziału) 
(wartość całki z kroku ) 
(poprzedniego ) 
(aktualna wartość całki ) 
(zaienne robocze ) 


(ustawienie wartości) 
(początkowych ) 


w2, 

x i real : 
ilinteger; 

BE6IN 

h»*b-aj 
xi*a+h/2s 
w2i*{UI(x/*5lx)i 
REPEAT 
ni=2ln; 
h * =h/2; 
wk-w2; 
w2:=0; 
x:=a+h/2| 

FOR i : =1 TO n CO 
BE6IN 

b (LNU) *51x1; 

" x:*x+h 
END; 

w2s=w2l.. 

UNTIL <ABStw2-wł) <* eps); 
calka:*w2 
END; 

BE6IN 

NRITELN; 

NRIT£LN(’podaj:-doIna granice przedzi’, 
ału całkowania’) ; 

NRITELNC ’:6, '-górna granice przedzi’, 
'ału całkowania’); 


KRITELN i* 5, '-dokładność obliczeń'); 

READtdp.op.dokl) « 

wart: alki:=calka(dp,qp, doki); 

KRITELN; 

KRITELNr wartość całki dla Funkcji’, 

’ f (x)»ln(x)+5tx*)i 
KRITELNCw przedziale ’.dp, , s2,gp); 
«RITELN(’wvlic 2 ona z dokładnością \dckl); 
KRITELNCwynos: '.wartcalki) 

END. 


Deklaracja funkcji zapisywana 
podobnie, jak deklaracja procedu- 
ry, przy czym nazwa funkcji odgry- 
wa podwójną rolę: jako nazwa 
sekwencji instrukcji i jako nazwa 
zmiennej uzyskującej określoną 
wartość na skutek wykcyianią. 
funkcji. 

Różnice między deklaracją funk- 
cji a deklaracją procedury są na- 
stępujące: 

a) inna postać nagłówka: 

' — słowo kluczowe FUNC- 
TION zamiast PROCEDURĘ, 

— lista parametrów formal- 
nych nie może być pusta, 

— musi być podany typ wy- 
niku funkcji (dopuszczalny 
jest tylko typ prosty), 

b) w części operacyjnej bloku 
funkcji musi wystąpić co 
najmniej jedna instrukcja przy- 
pisania, której lewą stroną 
jest nazwa tej funkcji, i co 
najmniej jedna z tych instruk- 
cji musi być wykonana pod- 
czas wywołania funkcji, war- 
tością funkcji jest ostatnia 
wartość nadana nazwie funk- 
cji (jeśli żadne przypisanie nie 
nastąpi, to wartość funkcji » 
jest nieokreślona), 

c) wywołanie funkcji ma postać 
identyczną jak wywołanie 
procedury, przy czym musi 
wystąpić jako element wyra- 
żenia. 

Zasady przekazywania parame- 
trów i dostępności obiektów są 
identyczne jak dla procedur. 

Program „próg 1 3" wykonano dla 
a = h, b = 1 1 i eps = 1 0, uzysku- 
jąc następujący wynik: 
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3. Zadania 


Kjrtosc całki dla funkcji f (*)=ln(*)ł5»x 
» przedziale 4 . OOOOOOOOOOE+OO 1.1000000000£*01 
wliczona i dokładnością 1 . OOOOOOOOOOE-04 
uynosi 2.7633169037W2 


Proponujemy rozwiązanie do- 
tychczas przedstawionych zadań z 
wykorzystaniem procedur i funkrii 

Stefan ROZMUS 


SKOCZEK SPECTRUM 

® m I?.. r\DQ I 1 ero • rsDCił i _o^i O- rsDOU 



łi§ lIt 
d =60300 ; 

0 rd + 1 , 1 

ISO GO T O 0600 

130 REM 

140 CLS : LET SkOk=l LET POWt= 

® LET w 1 = 10 LET W2=16: LET StW 

1 s 10 : LET St.w2 = 16 

150 PRINT »0;ftT 0.1 ; "Z ~ zapis" 
, AT 0,21; "SKOK"; RT 1,1; "C * nowy 
C y K ł " , hT 1 , 21; "REKORD rei- 1 

160 PRINT RT 21, 1 , " R = dem . rek 
oi du"; AT 21.21; "CYKL " , cy K ł 
170 INK 2: PLOT 12,20: DRAU 231 
, 0 . DRAU 0 , 152 : DR RU -231,0: DRR 
U 0,-152: - ‘ 

180 REM ł! 

190 IF INKEY$= 

500 

200 IF INKEY $ = " 

4-0 

210 IF INKEY**" 

60 

220 IF w 2 < 2 OR W2>28 OR wl<2 OR 
W 1 > 18 OR RTTR ( w 1 , w 2 ) =56 THEN B 
EEP .01,26: LET wl=StWl: LET W2 = 

Stw2: LET POWt=POWt+l 
230 IF PO w 1 >36 THEN BEEP .5,2: 
BEEP .25.-10: GO TO 037© 

240 IF RTTR <Wl,w2)*48 TMEN LET 
PO W t. 30 : 

PRINT INK 0; PRPER 7; INUERSE ( 
(S tw 1+S tw2) < >4 łINT ((Stwl+Stw2>/ 
4 ) ) ; RT stwl-l.stw2;a*;AT s t w 1 . s t 
w2; bi 

PRINT INK 2; PRPER 7, BRIGHT 1; 
FLASH 1; RT w 1 - 1 , w 2 ; a $ ; RT wl,w2; 
b i : POKE pawie C+2*SkO k ,wl: POKE 
pamięć +2 *skok+l,w2: 

PRINT U© , RT 0.28. BRIGHT (SkOk> 
(rek-l) >; PRPER 6+ (skok > (rek-l) ) 
;SkOk LET StWl = Wl: LET S tw2*w2; 
LET SKOŁ esKOK + 1 

250 REM 

2d 0 LET S t = 1+ INT vRND*8) 


THEN GO 5UB 0 
THEN GO TO 05 


THEN GO TO 03 


270 IF 

S t =1 

uR 

S t =8 

THEN 

LET 

Wl 

= W 1-4 







280 IF 

st=2 

OR 

St=7 

THEN 

LET 

Wl 

=w 1-2 







290 IF 

S t =3 

OR 

S t =6 

THEN 

LET 

Wl 

=W 1+2 







300 IF 

S t *4 

OR 

S t =S 

THEN 

LET 

W 1 

= W 1 +4 







310 IF 

s t =6 

OR 

S t »7 

THEN 

LET 

W2 

= w 2-4 







320 IF 

St*5 

OR 

S t =8 

THEN 

LET 

W 2 

= w 2 — 2 







330 IF 

s t = 1 

OR 

S t =4 

THEN 

LET 

W2 

=w2+2 







340 IF 

S t =2 

OR 

St=3 

THEN 

LET 

w2 

=W 2+4 







350 Gu 

TO 0180 





360 REM I8BRC1 


CCIfW 




370 IF 

SKOK) 

rek 

THEN FOR 

n =38 

T 

0 -2 STEP -3: 

BEEP . 02 , n : 

NEXT 

n 

: PRINT 

RT 20 

i,l. 

FLASH l; 

BRIGHT 

1, PRPER 7 . " 



NOUY 

REKOR 

D ‘ 


LET rek 

=s kok 

GO 

s 

UB C-490. 

GO SUB 

0390 




380 LET 

c y k ł 

Sty 

k Ul: 

GO TO 0130 

390 REM EKFn 



BMM?I 




0: DRRU 0,152: DRRU -231,0: DRAU 
"0, -152 

410 PRINT RT 20,1.; FLR5H 1; BRI 
GHT 1; PRPER 7;" NOUY RE 

KORD! 

420 PLOT 136,94: FOR n = l TO rek 
-1: PRINT »0;RT l,l5;n 

430 LET p2=S+8*PEEK (rekord+2*n 
♦1) : LET P1=175-6*PEEK (rekord+2 
*n ) 

440 DR RU P 2-REEK 23677 , P 1-PEEK 
23678; DRRU 1,1: DRAU -2,0: DRRU 

0,-2: DRRU 2,0: DRRU 0,1: DRRU 
-1,0: NEXT r. 

450 PfiUSE 150 PRINT ttO.AT 1,15 
;" ": FOR r.*l TO rek-l: PRINT 

«0;RT 1 , 15; n 

460 LET pl=PEEK (rekord+2*n) : L 
ET P2=PEEK (rekord +2 *n+l) 

470 PRINT INK 0, PAPER 7, BRIOH 
T i;hT plri,pa;as; hT Pl,P2;bł. U 
EEP .02,26: PRU5E 2 BEEP .02,21 

PRINT INK 2. PRPER 7, BR IG 
HT 1; INUEP.SE ( (Pl+P2(>4UNT i (p 
1+P2) /A ) ) > ; RT Pl-1 ,P2. ai, hT pl,p 
2,bS: NEXT n : PRUSE ISO . RETURN 


koęd+riw 1) ,PEEK (paw i e c +n +1) : NEX 
T n : RETURN 

500 REM], 

SI© GO SUB 0400 
520 GO T O 0130 

530 REM 

540 POKEl rekord , rek : POKE rekor 
d + 1 , c y k ł 

550 CLS : PRINT ' "Save : 5K0C 

ZEK 5": BEEP .1,1: SAUE "SKOCZEK 

5" LINĘ 0570: BEEP .1,5: SRUE " 

SKOCZEK V CODĘ re kord ,2*rek : BEE 
P .1,8: PRINT '"Uerify. SKOCZEK 

5": BEEP .1,13: UERIFY "": UERI 

RESTORE : CLS : GO T 


FY ""CODĘ 
O 0130 
560 REM _ 
570 PRPER 


LS 


PRPER 6 


INK 0: BORDER 6: 
PRINT 


PLOT 12,20 DFVRU 231, 


Prosraw ""SKOCZEK SAMOUCZEK"" 
sam koryguje własne błędy 
i zachowuje w pamięci 

najłepsze osiągnięcia. 

Za*>ii programu i wyników na 
tas we - k ław i sz H. " ' " 

Demonstracja rekordowego 
cyKłu- kławisz 0." 

580 PRINT PAPER 7; BRIGHT 1, FL 
ASN i; ' ' ' ' "Czeka j - trwa ładowań 
ie danych ! " 

590 INK 6 LORD " SKOCZEK"CODE 

: BEEP 1,-10. INK 0: CLS 

600 FOR n=USR "a" TO USR "a" +31 
: RERD bt! POKE n,bt: NEXT fi. RE 

STORĘ 

610 DATA 0,1,3,7,15,31,28,0,64, 
224, 112,246,240,248,240,240, 1,3, 
1,7,3,15731,0,224 .224 , 128,224 , 19 
2,240,248.0 

620 LET reksPEEK 60300: . LET cy 
k L = PEEK 60301 LET skOk*l: LET S 

tri: LET po Hit -0: LET W 1 = 11: LET 

StW 1 = 11: LET w 2 = 16 : LET Stw2 = l6 

630 BORDER 6: PRPER 6 CLS : BO 
RDER 6: PRPER 6 

640 LET at=CHR* 144+CHR* 145: L 

ET b*=CHR$ 146+CHR3; 14? 

65C GO TO 81*0 (J Rubinow i CZ ) 
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AMSTRAD 


10 ■ *******■»***********<******** 

20 ' * Wielkanocna Ja.ika * 

30 ■' r autor * 

40 1 * R. A. Wadd i lova * 

50 * Na podstawi# * 

60 ' * Computing With Th# Amauad * 

70 * opracował * 

80 ' * Cezary Dobrowolski * 

90 a*************************** 

100 MODĘ 1: MEMORY *8223 
110 GOSUB 1170:' in ic jal i zac ja 
120 GOSUB 530: ' inatrukcja 
130 MODĘ 0 
140 WHILE 1 

150 GOSUB 750: REM set up 

160 CALL &8364 : REM maih loop 

170 IF (PEEK (&8320) AND 128) THEN GOSUB 

970: GOSUB 200 ELSE GOSUB 420 

180 WEND 

190 END 

200 ' Zakończenie gry 

210 FOR 17.-0 TO 7000: NEXT 
220 MODĘ l 

230 CALL &BC02: CALL &BB4E: REM raset vdu 
240 INK 0,0: BORDER 0 
250 PAPER 3: PEN 1 
260 LOCATE 10, 1 

270 PRINT " Jajka Wielkanocna" 

280 PAPER 0 

290 score-10* (PEEK ( at ar t ) AND ?<F0) /&10+ < 
PEEK (start) AND &F) 

300 IF best<score THEN best^score 
310 LOCATE 3.5 

320 PRINT "Skauci zdołali zlapalc "jacor 
e: "jajek" 

330 PEN 2: LOCATE 8.14 

340 IF score-best THEN PRINT "Jestes mir* 
trzem!" ELSE PRINT "Rekordzista zbobyl 
beat 

350 PEN 3: LOCATE 6.15 

360 PRINT "Nacisnij klawiaz " 

370 WHILE INKEY*<>"": WEND 
380 WHILE INKEYS— " " c WEND 
390 POKE start, O: level»9 
400 MODĘ 0 
410 RETURN 

420 Ładowanie > , 

430 PEN 10: LOCATE 4,10 
440 PRINT "BRAWO ! " 

450 SOUND 129,239.160,4 
460 FOR i7.«0 TO 1000: NEXT 
470 SOUND 130,95,105.4 
480 FOR 17.-0 TO 1000: NEXT 
490 SOUND 132,40,50.4 
500 FOR 17.-0 TO 2000: NEXT 
510 CLS: level-level+2 
520 RETURN 

530 Inatrukcja 

540 CLS 

550 INK 0,6: INK 1,6: INK 3.25 


560 BORDER 3 

570 PEN 1 1 LOCATE 1.25 

5B0 PRINI "Wielkanoc" _ 

590 FOR i 7.-0 TO 144 STEP 2 

600 FOR j7.-0 TO 16 STEP 2 

610 IF TEST <17., j7.) THEN PLOT 155+i7.*2.35 

5+j7.*2,2:PLOT 155+i%*2, 357+ j%*2: PLOT 157 

+ i 7.*2 , 355+ j 7.*2 : PLOT 1 57+ i 7.* 2 , 357 + j 7.*2 

620 NEXT 

630 NEXT 

640 LOCATE 1 , 25 : PR I NT SPACE* (15); 

650 INK 1,21 

660 PEN 3: LOCATE 1,6:PRINT«" Jeatea naj 
lepszym pilotem w k lub ie, ": PRINT" prz 
ygotowujesz Świąteczny pokaz" 

670 PRINT:PRINT " Twoim zadaniem jea 

t rzucan ie" : PRINT"Swiatecznych jajek na 
piramidę Skautów,"," utworzona na 

pasie starto 
wym" 

680 PRINT : PRINT TAB (8) Jesl i Skaut złap 
ie ja jko" , TAB< 11 ); "natychmiast ucieka,": 
PRINT" Kiedy juz wszystcy beda mieli jat 
jka, " :PRINT 

TAB(9);"pas bedzie pusty .": PRINT TAB (8) ; 
"Bodziesz mogl wyładować" 

690 PEN 1: PRINT: PRINT TAB (3) "Rzucasz jaj 
ka naciskając klawisz apac j i LOCATE 7, 
2J5*FRINT " Programy I K S" 

700 PEN 2: LOCATE 7, 22: PRINT CHR* <24 ) ; " N 
acisnij jakikolwiek klawiaz." 

710 MOOE 0.0: DRAW 0,398,1: DRAW 638. 398: D 

RAW 638,0: DRAW 0.0:M0VE 0,345: DRAW 640,3 

45:M0VE 0, 18:DRAW 640.18 

720 WHILE INKEY*<>"": WEND 

730 WHILE INKEY*-"": WEND 

740 RETURN 

750 ' Początek 

760 BORDER 1 

770 DATA 2.6,1,3,16,3.24.15.12,26.25,0.0 

, 0 , 0,0 

780 RESTORE 770 
790 FOR i 7.-0 TO 15 
800 RE AD j7.: INK i 7., j7. 

010 NEXT 

820 PAPER 8: LOCATE 1,25 
830 PRINT SPACE* (20); 

840 PAPER 0 

850 PEN 9: LOCATE 9.1 . 

860 PRINT "Tra-f ient " 

870 CALL &834F, &C050, pdata, &D0C: ' samolot 

880 address-&C6F8 

890 FOR y7.-level TO 1 STEP -2 

900 FOR x7.=9-level TO B-level+y7. 

910 CALL &834F, address+x7.*4, mdata, M004: 
'rysunek skauta 
920 NEXT 

>30 address-address-&A0+4 
940 NEXT 
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950 FOR i '/.-O TO 1000iNEXT 
960 RETURN 

970 * Zderzenie 

980 SOUND 130,0,0,0. 

990 FOR 17.-1 TO 10 

1000 LOCATE 1 , 1 s PRINT .CHR* < 1 1 > 

1010 INK 1, INT<RND*27> 

1020 SOUND 4, RND*1000, 5, 6, O, O, 1 
1030 FOR J7.-1 TO 100iNEXT 
1040 LOCATE l,25i PRINT CHR*<10> 

1050 SOUND 4. RND*1000, 5, 6,0, O, 1 
1060 FOR jy.-l TO 1 00 ( NE X T 
1070 NEXT 
1080 INK 1,6 

1090 PAPER 8« LOCATE 1,25 
1100 PRINT SPACE* (20) t 
1110 PAPER O 

i 158 P8H N ?y.Łe. s 9o 3 S8cBi 

1140 PEN 1 Ol LOCATE 7,3 

1150 PRINT "Oh n 1 • ! " « PR I NT i PR I NT TAB (4) " 
Uderzyłeś w" i PRINTi PRINT TAB (6) "skauta ! 


1160 RETURN 

1170 ' lnic jal izac ja 

l 180 PRINT "Mysie. . . " 

1190 pdata-HlMEN+1 i mdata»pdata+ 156 

1200 edata=HIMEM++221 1 start-HIMEM+250 • 

1210 ENT 1, 150, 1,2 

1220 ENT -2,10,5,1,10,-5,1 

1230 ENT 3,200,1,5 

1240 ENT 4,50, -4, 1 

1250 RESTORE 1430 

1260 checksum-0 

1270 FOR 17.-1 TO 236 

1280 READ j7.iP0KE (HIMEM+i%> , j7. 

1290 checksum«checksum+ jX 
1300 NEXT 

1310 IF checksum<>21768 THEN PRINT "Erro 

- in character data, please check."iEND 

1320 RESTORE 1510 

1330 chocksum-0 

1340 FOR 1-&831 D TO Ł8508 

1350 READ a*i POKE i , VAL < 

1360 checksum-checksum+VAL < "fc"+a*) 

1370 NEXT 

1380 IF check*unK>42197 THEN PRINT "Błąd 
w kodzie maszynowym" i PRINT "Sprawdź blo 
k danych, " s END 
1390 POKE start, O 
1400 level“9ibe&t“0 
1410 RETURN 

1420 ' ; Samolot 

1430 DATA 192,0,0,0,0,0,240,160,0,0,0,0, 

192. 128.0. 0.0.0.240.8.0.0.0.0. 192.128.0, 
0,0.0. 176, 48,0,0,0,0, 192, 192,0,0,0,0,48, 

32.0. 0.0.0.1 
92 

1440 DATA 192,0,0,0,0,16,0,64,0,0,0,192, 

192. 128.0. 0.64.204. 136.64. 128.0.4. 132. 12 
, 72, 192, 192, 192,204,204, 192, 192, 128,4, 19 

2. 192. 192. 19 
2, 12, 12, 12, 12 

1450 DATA 12, 192. 192.4, 192, 192, 192, 192, 1 
2, 12. 12, 12, 12,72, 192, 12, 192, 192, 192, 192, 

192. 192. 192. 192. 192. 192. 192.4. 192. 192. 19 

2. 192.192.19 

2. 192. 192. 192. 192. 128.4.8.0. 0.0.0.0.0.4, 
0,0,0,4,12,0,0,0,0,0,0,12,8,0,0,0 

1460 Skaut 

1470 DATA 32,0,0,32,136,240,160,136,216, 
24.88, 136, 152,48,48, 136, 136,36,32, 136, 13 


6. 16.0. 136. 204. 196. 196. 136. 204.200. 204.1 
36,68,200,20 

4 . 0. 68.200.204.0.68.200. 204. 0. 68. 136. 204 
,0,68, 136,204,0,68, 136,204,0,68, 136,204, 
O, 192, 128, 192, T28 

1480 ' Jajko 

1490 DATA 0,188,168,20,108,188,252,252.2 

52.20. 188. 188.0. 188. 168. 136 

1500 ' Kod maszynowy 

1510 DATA 00,00,00,00,00,00,00,00 
1520 DATA 00,00,00,00,00,00,01,00 
1530 DATA 02, E8, 03, 00, 04, 32, 00, 02 
1540 DATA 00, 03, OA, 00, 00, 04, E8, 03 
1550 DATA 82, 00, 04, 2C, 01, 00, 05, 32 
1560 DATA 00, 82, 00, 00, DO, 07, 00, 05 
1570 DATA OA , 00 , DD . 4E , 00 , DD ,46,01 
1580 DATA DD,5E, 02, DD, 56,03, DD,6E 
15^ DATA 04’,T5t>7fcA7b5,C3,E6,84,CD 
1600 DATA 06, B9, F5, 21 , 50, CO, 22, 1E 
1610 DATA 83, 21, 00,00, 22, 21, 83, 3E 
1620 DATA 01, 32, 20, 83, CD, 63, 84, 11 
1630 DATA 00, 00, 21, 00. 00, CD, 10, BD 
1640 DATA CD, A6, 83, CD, OD, BO, 01 , IB 
1650 DATA 00, AF , ED, 42, 38 , F5, 3A , 20 
1660 DATA 83, E6, CO, 20, 07, 3E, 42, CD 
1670 DATA 1E, BB, 28, D8, FI , CD, OC, B9 
1680 DATA C9, 2A, 21 ,83, 7C, B5, 20, 28 
1690 DATA 3A, 20, 83, EE, 01, 32, 20, 83 
1700 DATA C8,3E, 2F,CD, 1E,BB,C8,2A 
1710 DATA 1E, 83, 01, 54, 38, 09, 22, 21 
1720 DATA 83, 11, 00, 83, 01, 03, 05, CD 
1730 DATA E6, 84,21. 34, 83, C3, AA , BC 
1740 DATA 22,23,83,01,03,38,09,30 
1750 DATA 04, 01, 50, CO, 09, 3A, CO, 82 
1760 DATA BE , 20 , 06 , 2B , 2B , 2B , BE , 28 
1770 DATA 2 A , 3E , 03 , BE , 28 , 1 D , 2A ,23 
1780 DATA 83,01,00,10,09,30,04,01 
1790 DATA 50, CO, 09, 22, 25, 03, 22, 21 
1800 DATA 83, 11, 00, 83, 01, 05, 03, CD 
1810 DATA A3, 84, C9, 21, 46, 83, CD, AA 
1820 DATA BC, 18,38, E5, 21 , 3D, 83, CD 
1830 DATA AA, BC ,21,01, OC, CD, 75, BB 
1840 DATA 3A, ID, 83,06,01,27,32, ID 
1850 DATA 83,F5,E6,F0,CB,3F,CB,3F 
1860 DATA CB, 3F, CB, 3F , C6, 30, CD, 5D 
1870 DATA BB, FI , E6, OF, C6, 30. CD , 5D 
1|880 DATA BB, El, 1 1, CO, 82, 01 ,04, 10 
1890 DATA CD, E6, 84, 11,00,83,01,03 
1900 DATA 05, 2A, 21, 83, CD, E6, 84, 21 
1910 DATA 00, 00, 22, 21 , 83, C9, 2A, 1E 
1920 DATA 83 , O 1 , FO , C6 , AF , ED , 42 , 38 
1930 DATA 08, 3A, 20, 83, F6, 40, 32,20 
1940 DATA 83, 21 , 2B, 83, CD, AA, BC, 2A 
1950 DATA 1E, 83, 22, 23, 83, 23, 22,25 
1960 DATA 83,22, 1E, 83, 11,24,82,01 
1970 DATA OD, OC, CD, A3, 84 , 2A, 1E,83 
1980 DATA 01, 5B, 20, 09, 3E, 00, BE, C8 
1990 DATA 21 , 20, 83, CB, FE, C9, ED, 43 
2000 DATA 29, 83, ED, 53, 27, 83, OE, 02 
2010 DATA CD, 19, BD, F3, ED, 5B, 27, 83 
2020 DATA 3A, 29, 8 3, 47, C5, 3A, 2A, 83 
2030 DATA 47 , 2A, 23, 83, 1 A, AE, 77, 23 
2040 DATA 13. 10, F9, 2A, 23, 83, 01 , 00 
2050 DATA 08, 09, 30, 04, 01 , 50, CO, 09 
2060 DATA 22, 23, 83, C 1 , 10, DE, 2A. 25 
2070 DATA 83, 22, 23, 83, OD, 20, CD . FB 
2080 DATA C9, 22, 23, 83, C5, 41 , 2A, 23 
2090 DATA 83. 1A, AE, 77, 23, 13, 10, F9 
2100 DATA 2A, 23, 83, 01, 00, 08, 09, 30 
2110 DATA 04, 01, 50, CO, 09. 22, 23, 83 
2120 DATA Cl. 10, El, C9, 00, 00,00, 00 


Podprogramy 

przesuwające 

zawartość 

ekranu 

(MERITUM) 

Działają niezależnie, a para- 
metrami dla każdego z nich jest 
numer wiersza lub kolumny, od 
której ma być przesunięty tekst 
lub grafika (adres komórki odpo- 
wiadającej temu parametrowi 
jest o 4 większy od adresu star- 
towego) oraz liczba wierszy lub 
kolumn do przesunięcia (adres 
o 6 większy od adresu startowe- 
go). Adresy startowe przedsta- 
wione są na listingu podprogra- 
mów. Instrukcje z linii 8175 mo- 
dyfikują sposób użycia funkcji 
USR (0). Po ich wykonaniu 
podprogramy możemy urucha- 
miać przez bezpośrednie dekla- 
rowanie adresu (np. U = USR 
(30000) uruchamia podprogram 
od adresu 30000). 


8X73 A-16448iP0KEA,293iP0KEA+l,127i 
POKE A+2, 16IP0KE A*3,233l 
POKE 14324 .64 (POKE 14527 , 44 
8299 'skroił do góry U-U8R (39999) 

8293 FOR 4-39999 TO 39962 
8219 REAO Kl POKE A,K 

8213 NEXT ’ 39994-0 39996-1 

8229 DATA 229,213, 197*34.32* 62.32, 
234,9,49,48,36,84,117,131 *234» 
65* 242 f 197? 117*22' 64'62 '64' 131 , 
93,198,64,111,98,6,9,62,14,245, 
14'32'237. 176. 38'34. 117.234,64» 
49, 9, 79,62,64. 148, 71, 33, 19, 16, 
232,241,61,32,231,193,249,223,241 
8223 'skroił do dołu U-U8R (34474) 
•234 FOR A-39676 TO 39131 
8233 READ KiPOKE A,K 
8244 NEXT » 34474-0 34476-1 

8243 DATA 229,213,197,39,2,62,32, 
234,9,49,47,36,153,117,131,234, 
63,242,176,117,22,63,198,127,98,98, 
214,64,111,6,9,62.14,248,14,32,237, 
184.58.124.117,254,44,44,9,79. 

42.64.143.71.43.27.14.232.241, 
41,32.231,193,269,223,261 

8236 'skroił w prawo U-U8R (36146) 
8233 FOR A-39146 TO 34189 
8269 REAO KiPOKE A,K 
8263 NEXT » 34144-0 36144-1 
8276 DATA 229.213,197,36,9,62,13, 

234.6.49.33.87.131.234.17.242, 

234. 117.33. 9. 49. 1.64. 9. 9. 61. 32, 
232,122,43,43,229,299,43,1,42.6, 

237,184,43.43,27,27,41,32,244, 

193,299,223,291 

8273 'skroił w lawo U-UBR (34199) 
8286 FOR A-39199 TO 36246 
8283 READ KiPOKE A,K 

8294 NEXT ' 39194-0 36196-1 
•293 DATA 229,213,197,39,9,62,13, 

234.9.46.36.87.131.234.17.242, 
29, 118, 123, 64,33, 192. 89, 1,44, 6, 

9,41,32,232,122,33,229,269,33,1, 

42.6.237.174.35.33.19.19.61.32, 
244,193,269,228,291 

9994 CL8IPRIMT' PROSA DZIAŁANIA 
A-ADRE8 

0- OD KTÓREJ KOLUNNY/LINI 

1- ILE K0LUHN/L.INI' 

9943 CLEAR 79 'FOR 8-6 TO 131 

PRINT8 8»44*32.'X'MMEXT S 
9936 PRINT 0312,8TRXN0x (44, *X') I 
9433 PRINT8832, i 

INPUT*A, 0, I' I A,0, I 
9444 IF A< >39666 AND A< >36979 
AND A( >39144 AND A( > 39194 
THEN GOTO 9433 
9463 POKE A-M, Ol POKE AM.Ii 
U-U8R (A> 

9976 IF INKEYM-" THEN 9476 
9999 GOTO 9464 



POGOŃ 


Zjawisko pogoni jest tak 
stare, jak życie na Ziemi. Ma 
ono swoją teorię (cynicy 
twierdzą, iż ścigająca samo- 
lot rakieta manewruje do- 
kładnie tak samo, jak... wiejski 
kundel goniący rowerzystę). 

Załóżmy, że cel został zlo- 
kalizowany i w chwili „zero" w 
jego kierunku odpalono ra- 
kietę. Rysunek przedstawia 
kolejne „sekundy" pogoni. 

Rakieta, wyposażona w 
mechanizm samonaprowa- 
dzania tak koryguje swój lot, 
aby cel był „na osi" rakiety 
(... kundel tak biegnie, aby 
rowerzysta był „przed no- 
sem"). W konsekwencji 
otrzymujemy misterną trajek- 
torię pogoni. Jeśli rakieta jest 
szybsza i jeśli ma dosyć pa- 
liwa, to nieuchronnie dościg- 
nie cel. 

Zagadnienie pogoni ma 
bogatą literaturę. W angloję- 
zycznych podręcznikach ma- 
tematyki ma ono swoją (ko- 
miczną) nazwę BANG-BANG 
PROBLEM. 

Program wywołuje etykieta 
„A" (RUN 70). Zmodelowany 
„radar namierzający" ma za- 
sięg (odległość) około 20 km, 
zaś elewacja mieści się w 
granicach od 30 do 90 stop- 
ni. 


Piotr BIEDRZYCKI 
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Ż 0 DIM X (60) ; DIM U (60) . ■ . 

0 FOR n=l TO 11: LET X,(n) =0: 
LET y <n) *16*(n-l) : NEXT n . „ _ 

30 FOR n*18 TO ST: LET X Ul) *16 
* (11-12): LET y (n) *175. NEXT n 
4.0 FOR n=£8 TO 38: LET x(n>=25 
S; LET y Ol ) =16*139-0) -1 : NEXT n 

SO FOR n *39 TO 54: LET X(n)*l6 
* (S5-n) -1: LET y (n ) *0 : NEXT n 
SS FOR n *55 TO 60: LET XUl)*X( 
n -54 ) : LET y 01 ) =y (n -54 ) : NEXT ri 
59 BORDER 6: PRINT CLS : 6 

ORDER 6 

60 FOR a=l TO S: FOR 11=1 TO SS 
: FOR »=n TO n+a: PLOT x(n),y(n> 
:: DRRU (X (Ki I -X Ol ) ) , <9 (Id ) -« < n ) ) ■ 

a. 5: NEXT ni: BEEP .02,n/a: NEXT 
r, : PRUSE 100: CLS : NEXT a 
70 OLS : GO TO 60 
90 SRUE "5 RftliEK" LINĘ 1: UERI 
FY — . GO TO 1 
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Wyraz „mnożnik" ma zna- 
czenie pomocnicze: dla 
SHARP 1 500-PC wystarcza 
M = 10. 


190: X1=X2: Y1=Y2: 
GOSUB 10 

200:X2=M*X:Y2=M*Y: 
LINĘ -<X1, Y1 >- 
CX2, Y2), 0, 3 

210: IF ABS X2>140 
LET Z=1 : PRINT 
"UCIECZKA": 
GOTO 230 

2 20: IF Q>UGOTO 190 

230:LINE -0X2, Y2>- 
C0, 0), 9:TEKT : 
IF Z=1THEN END 

240: PRINT "PUNKT T 
RAFIENIA" 

250: X=INT <X2*1E3) 
/CM*1E3) : PRINT 
"X=" )STR$ Xi" 
Kfl" 

260: Y=INT <Y2*1E3) 
/CM*1E3):PR1NT 
"Y=" j STR* Y)" 
Kfl" 

220: PRINT "CZAS PO 
GONI T=";STR* 

Tj " SEK" : LF 1:* 
END 

280: PRINT "DANE WY 
JSCIOWE" 

290: PRINT "ODLEGLO 
sc" ;R; " KM" 

300: PRINT "ELEWACJ 
A"5E;“ DEG" 

310: PRINT "P R E D 
KOSC" 

320: PRINT "CELU";P 
• i, Kn/S" 

330: PRINT "RAKIETY 
“i Ul" KM/S" 

340: RETURN 


10: T=;T+1 : U=U+P 
20:Q=CU-X)*CU-X)+ 
<H-Y)*CH-Y):Q= 
■TQ 

30: IF Q>0LET F= 
ASN C CU-X)/Q) 
40:X=X+CU*SIN F): 
Y=Y+CU*COS F) 
50: RĘTURN 
60: B£EP 3, 100, 300 
70: "A" : CLEAR : 
OEGREE 

80: INPUT "ODLEGLO 
SC CKM) " ; R: R= 
ABS R: IF R=0 
GOTO 60 

90: INPUT "ELEWACJ 
A CDEG) " ; E : I F 
EC30OR E>90 
GOTO 60 

100: L=RXCOS E : H=R# 
SIN E: IF L>10 
OR H>10GOTO 60 

110: INPUT "UCKM/S) 
CELU ";P:P= 
ABS P: IF P=0 
GOTO 60 

120: INPUT "UCKM/S) 
RAKIETY " j U: U 
-ABS U: IF U<=P 
GOTO 60 

130: U=-L: INPUT "MN 
OZNIK M=" ; M: M= 
ABS M: GOSUB 28 
0 

140:GRAPH : LINĘ -C 
0, 0)-C200, 0), 0 
,2 

150: LINĘ -C200, 0)- 
C70, 0), 9: SORGN 

160:HM--=H*M:LM=-L*M 
: LINĘ — C 0, 0)-C 
LM, HM), 9 

170: L INE -CLM, HM)- 
C 150, HM), 1, 1 
180: L INE -C 100, HM) 


Przykłady 


DANE WYJŚCIOWE 
ODLEGLOSC 10 KM 
ELEWACJA 30 DEG 
PRĘDKOŚĆ 
CELU 0.4 KM/S 
RAKIETY 0.5 KM/S 
PUNKT TRAFIENIA 
X=-2. 1817 KM 
Y=5. 0004 KM 
CZAS POGONI T---16 S 
EK 

DANE WYJŚCIOWE 
ODLEGLOSC 10 KM 
ELEWACJA 45 DEG 
PRĘDKOŚĆ 
CELU 0.4 KM/S 
RAKIETY 0.5 KM/S 
PUNKT TRAFIENIA 
X=2. 1966 KM 
Y-7.071 KM 
CZAS POGONI T-23 S 
EK 

DANE WYJŚCIOWE 
ODLEGLOSC 10 KM 
ELEWACJA 90 DEG 
PRĘDKOŚĆ 
CELU 0.4 KM/S 
RAKIETY 0.5 KM/S 
UCIECZKA 


JANUSZ MILLER 
SHARP PC- 1500 
POGOŃ 
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Jak uczyć programowania? Jak dotąd brak jedno- 
znacznej koncepcji. Powstał co prawda „Program 
powszechnej edukacji w zakresie wiedzy informaty- 
cznej i zastosowania techniki komputerowej w proce- 
sach kształcenia wiatach 1986— 1990” ( tak brzmi peł- 
na jego nazwa), ale jest to dopiero początek drogi. 
Cóż, mamy dopiero drugi rok okresu, który program 
obejmuje i choć jednoznacznie formułuje on cele in- 
formatycznej edukacji w szkołach wszystkich typów, 
określa szczegółowe założenia I przedstawia propozy- 
cje konkretnych działań — pozostaje jedynie suchym 
zapisem. 

Nie ma bowiem armat; nie ma nadal komputerów, 
które można by wykorzystywać powszechnie. Program 
powstał na fali szybko rosnącej liczby sprzętu mikro w 
kraju. Sprzętu, owszem, przybywa i to coraz lepszego, 
natomiast w szkołach jest go niewiele — w Polsce mo- 
że kilka tysięcy. Dopiero przyszłość przynieść ma el- 
wrowskiego Juniora , tymczasem uczenie pływania na 
sucho nie zawsze ma sens. Trudno liczyć na to, że na- 
uka programowania i ta cała informatyczna teoria (się- 
gająca zastosowań informatyki) dadzą jakikolwiek 
efekt. 

W szkolnej edukacji informatycznej czekają nas dwa 
problemy. Po pierwsze komputer jako urządzenie, któ- 
re trzeba nauczyć się wykorzystywać I poznać. Po dru- 
gie komputer jako zwykła szkolna pomoc, która ma 
służyć nauczycielowi, podobnie jak dziś magnetofon 
czy rzutnik. A na to trzeba poczekać. Powtórzmy je- 
szcze raz; brakuje sprzętu, nie ma programów eduka- 
cyjnych, nie ma jeszcze licznej dobrej kadry i to za- 
równo tej, która ma uczyć informatyki, jak i tej, która 
ma się nią posługiwać. 

Stan ten już wkrótce doprowadzić może do sytuacji, 
w której komputerowcy staną się elitą wśród swoich 
rówieśników, wyróżniających się nie tylko posiada- 
niem komputera, ale i wiedzą, którą dzięki niemu zdo- 
byli. A przecież nie o to chodzi. 

Sieć ZX Spectrum przeznaczona dla nauczania pro- 
gramowania — to propozycja rzemiosła (Zetatronik — 
Warszawa) wykonana jest na podstawie zmodyfikowa- 
nej wersji systemu dyskowego ZEDOS-2 i składa się ze 
stanowiska nauczyciela oraz ze stanowisk uczniów (do 
16). Każde ze stanowisk wyposażone jest oczywiście w 
mikrokomputer oraz monitor. Każdy z mikrokompute- 
rów pracujących w sieci dysponuje pełną przestrzenią 
adresową pamięci (RAM) co oznacza, że oprogramo- 
wanie systemowe sieci nie zajmuje miejsca w pamięci 
RAM dostępnej dla użytkownika. 

Stanowiska uczniowskie (równouprawnione wzglę- 
dem siebie) są wyposażone dodatkowo w interfejsy 
służące do obsługi systemu dyskowego i do komuni- 
kacji ze stanowiskiem nauczycielskim. Każde z nich 
pozwala na korzystanie ze wszystkich komend syste- 
mu dyskowego ZEDOS-2 i ma dostęp do dysku umie- 
szczonego w stacji nr 1 stanowiska nauczyciela. 
Uczniowie mają dostęp tylko do zbiorów przez siebie 
zapisanych. Jedynie nauczyciel może sięgać do 
wszystkich zbiorów. 
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Ankieta 


LIGA MYŚLĄCYCH 

Rozpoczynamy kolejną rundą Ligi Myślą- 
cych. Jak zwykle w każdym numerze czeka na 
Was kilka zadań. Redakcja czeka na odpowie- 
dzi, a laury na najlepszych. 

Zadanie 1 

Spośród 80 uczniów klas ósmych pewnej szkoły, 34 
bierze udział w konkursie matematycznym, 24 uczniów 
w konkursie fizycznym, 1 6 uczniów w konkursie chemi- 
cznym, w tym 8 uczniów w konkursie matematycznym i 
konkursie fizycznym, 7 uczniów w konkursie matema- 
tycznym i konkursie chemicznym, 6 uczniów w konkur- 
sie fizycznym i konkursie chemicznym, 5 uczniów w 
konkursach: matematycznym, chemicznym i fizycznym. 
• Proszę podać, ilu uczniów bierze udział tylko w jed- 
nym, a ilu nie bierze udziału w żadnym z podanych kon- 
kursów? 

Zadanie 2 

Niech A będzie zbiorem dzielników naturalnych licz- 
by 1 8, B zbiorem liczb pierwszych mniejszych od 1 8. C 
zbiorem liczb złożonych mniejszych od 1 5. 

Proszę podać wszystkie elementy każdego z tych 
zbiorów oraz utworzyć sumę i część wspólną A, B i C. 

Zadanie 3 

W liczbie trzycyfrowej suma cyfr setek i jedności 
równa się 1 5. Jeżeli cyfry liczby poszukiwanej napisze- 
my w odwrotnej kolejności, to otrzymamy liczbę o 297 
większą od poszukiwanej. Gdybyśmy zaś przed cyfrą 
setek liczby poszukiwanej dopisali cyfrę 7, wówczas 
nowo utworzona liczba czterocyfrowa byłaby o 1151 
większa od liczby czterocyfrowej, jaką otrzymalibyśmy, 
dopisując na końcu liczby poszukiwanej cyfrę 8. 

Proszę wyznaczyć poszukiwaną liczbę. 

Zadanie 4 

Z miasta A w kierunku miasta B. odległego od miasta 
A o 300 km. wyjechał samochód osobowy, a w tym sa- 
mym czasie z miasta B w kierunku A wyjechał samo- 
chód ciężarowy. Gdyby samochód osobowy wyjechał o 
48 minut wcześniej niż ciężarowy, to samochody minę- 
łyby się po upływie 2 godzin jazdy samochodu ciężaro- 
wego. Gdyby zaś samochód ciężarowy wyjechał o 1 
godzinę i 20 minut wcześniej niż osobowy, to samocho- 
dy minęłyby się po upływie 2 godzin jazdy samochodu 
osobowego. Z jaką prędkością jechał samochód oso- 
bowy. a z jaką ciężarowy? 

Ile czasu upłynęło od chwili mijania się obu samo- 
chodów? Jak daleko od miasta A minęły się samocho- 
dy? 

Zadanie 5 

Pewną liczbę kości do gry w domino rozdzielono na n 
stosów, po czym z pierwszego stosu przełożono na 
drugi -tą część kości znajdujących się w pierwszym 
stosie, a następnie z otrzymanego wtedy stosu przeło- 
żono -~-tą część kości na trzeci stos itd. Na koniec z 
n-tego stosu przełożono 4r-tą część na pierwszy stos 
i okazało się, że w każdym stosie było po A kości. Ile 
kości było początkowo w każdym stosie? 


Minął już rok od chwili ukazania się pierwszego numeru 
naszego pisma W każdym kolejnym staramy się zaspokoić 
informacyjne potrzeby naszych Czytelników Znamy )e z listów 
nadchodzących do redakcji, ze spotkań Tym razem, podobnie jak 
przed rokiem, prosimy o odpowiedź na poniższą ankietę Z pew- 
nością Wasze odpowiedzi pomogą nam w redagowaniu „IKSa" 
Wśród tych, którzy nadeślą pod naszym adresem swoje uwagi 
rozlosujemy nagrody. 

A teraz odpowiedzcie. 

Kto nas czyta? 

t) Mam lat 

2) Mieszkam w mieście, które ma: 

a) więcej niż 150 tys. mieszkańców 

b) 50—150 tys. mieszkańców 

c) mniej niż 50 tys. mieszkańców 

d) mieszkam na wsi 

3) Jestem 

a) uczniem szkoły podstawowej 

b) uczniem szkoły średniej 

c) studentem uczelni cywilnej 

d) studentem uczelni wojskowej 

e) pracuję 

4) Posiadam lub mam dostęp do 

a) ZX Spectrum 

b) Atarii 

c) Commodore (jaki?) 

d) Amstrad (jaki?) 

e) inny — jaki? 

5) Korzystam z komputera 

a) w domu (własny) 

b) w szkole 

c) w pracy 

d) w klubie 

e) w klubie garnizonowym 

f) u kolegi 

6) Czytam „IKSa 

a) systematycznie 

b) czasami 

c) bardzo rzadko 

7) Za pożyteczne uważam: 8) za niepotrzebne uważam 


a) wykłady Basica 

b) wykłady Pascala 

c) wykłady Logo 

d) publikacje dot, syste- 

mów mikrokomputero- 
wych 

e) programy gier 

f) programy użytkowe 

g) programy graficzne 

h) informacje o nowoś- 

ciach tech. 

i) zadania Ligi Myślą- 

cych 

j) porady techniczne 

k) Twoje propozycje 


Nasz adres: 

Redakcja „IKS" 

W-wa 00-950 
ul Grzybowska 77 

Pełne rozwiązania zadań prosimy 
'przesyłać pod adresem redakcji do 
końca czerwca br., z dopiskiem „Liga 
Myślących”. Punktacja zależy od liczby 
prawidłowych rozwiązań. Wśród uczestników 
rozlosujemy książki, a na zwycięzców 
„Ligi” czekają dodatkowe cenne nagrody 
— niespodzianki. 


30 



„Nasz XXI wiek" 

Pokłosie konkursu 

K ażdy konkurs literacki — jest czymś w rodzaju sondy, pozwalającej zo- 
rientować się, jaki jest stan świadomości autorów, uczestniczących w rywali- 
zacji. Jest tak, bowiem nadesłane prace nie tylko odzwierciedlają wyobraźnię, ta- 
lent, wiedzę i społeczne samopoczucie autorów, ale wiele mówią takie o ich sto- 
sunku do życia, o łączących się z tym przeświadczeniach i oczekiwaniach. 

Nasz konkurs, adresowany głównie do młodych, przyniósł ilościowo bardzo ob- 
fity plon. Sto osiem prac, nadesłanych z całej Polski — z dużych i małych miast, 
osiedli i wsi — obrazuje geografię naszej poczytnoścl. Cieszy nas rozległy zasięg 
oddziaływania pisma, potwierdzający coraz szersze upowszechnianie się „myślą- 
cej" elektroniki i rosnące zainteresowanie tą dziedziną wśród dzieci I młodzieży. 

Między pracami, nadesłanymi na konkurs — ogromną większość stanowią ut- 
wory kilkunastolatków, ale nie brakuje też opowiadań pisanych przez dorosłych. 
Najstarszy z autorów liczy sobie ponad 60 lat... 

Proporcje wiekowe pozwalają się domyślić, iż głównym nutlem fascynacji tema- 
tycznych są źródła, płynące z oglądania filmów telewizyjnych i bajek oraz lektur 
łatwych w odbiorze, nie poruszających głębszych problemów moralnych I psycho- 
logicznych. Stąd też dominująca w pracach tendencja do tworzenia atrakcyjnej i 
dynamicznej, przygodowej fabuły. Próby takie cechują znakomitą większość nade- 
słanych na konkurs prac. Zaiste, przemożny jest wpływ telewizji na umysły naj- 
młodszych! 

Dlatego też lektura pokłosia konkursu — a czytaliśmy wszystkie prace z 
jednakową uwagą — trochę nuży. Pomijamy tu świadomie niedostatki warsztatu 
— a więc klarowność I logikę wywodu, umiejętność konstruowania wątków i intry- 
gi — jako zrozumiałe, debiutanckie grzechy. Często musieliśmy też przymykać 
oko na kłopoty ze stylem i ortografią, choć to już nie te czasy, by porywać się na li- 
teracką ekspresję bez znajomości reguł językowych. Przecież świat komputerów 
też ma swoją gramatykę i ortografię! 

Wyobrażenia o przyszłości — są niemal lustrzanym odbiciem stereotypowych 
lęków, fobii i realnie istniejących zagrożeń. Skrajny katastrofizm artykułowany jest 
przez opisy zagłady cywilizacji, wojen gwiezdnych, buntów komputerów itd. Przy- 
nosi to dość schematyczne i banalne wizje XXI wieku. Czarnowidztwo I ekstremal- 
ny pesymizm — tak najkrócej można by scharakteryzować wyobrażenia znakomi- 
tej większości młodych autorów o tym, co ich czeka w przyszłości. Człowiek osa- 
czony, zniewolony przez technikę — tak widzą perspektywę nadchodzących lat cl 
autorzy, którzy nie wieszczą atomowej zagłady. 

Takie też w większości są (bo nie mieliśmy wszak innego wyboru) i prace na- 
grodzone oraz wyróżnione. Przy podejmowaniu decyzji — kierowaliśmy się prze- 
de wszystkim świeżością I oryginalnością pomysłu, wartościami literackimi, prze- 
nikliwością psychologiczną I intelektualną dojrzałością prac. 

Ile warte są wyróżnione w konkursie opowiadania? Najlepiej ocenią to sami Czy- 
telnicy. Przyjemnej lektury! 

Tadeusz PIEKŁO 


Pocztowa 

giełda 


Rozwiązanie krzyżówki 
z nr. 1/87 „IKS-a" 

Hasło brzmi: 

„IKS to litera i pismo o komputerach" 
Bony pieniężne (1000 zł) wyloso- 
wali: Magdalena Rucka — Wrocław, 
Leszek Szydłowski — Sochaczew, 
Marek Tararako — Gorzów Wlkp., 
Krystyna Feluś — Regulice, Ryszard 
Ratajczyk — Wrocław. 

Nagrody książkowe otrzymują: 
Joanna Marciniak — Warszawa, Ka- 
tarzyna Kosińska — Konin, Adam 
Berg — Gdynia, Maria Paluchowska 
— Poznań, Bogusław Oleksy — Ja- 
worzno, Stanisław Wrzos — Polko- 
wice, Tomasz Wojtczak — Warsza- 
wa, Juliusz Kobylanka — Żory, Jo- 
lanta Guzik — Bielsko-Biała, Arka- 
diusz Soroka •— Toruń. 


W naszym 
komputer- 
landzie 

Zgodnie z duchem czasu pra- 
cowity robot Spektruś postanowił 
przeprowadzić atestację swojego 
stanowiska pracy. W tym celu 
ustawi! na stole komputer i połączył 
go z monitorem. Obok umieścił 
drukarkę. Całość podłączył do sie- 
ci. Sprawdził jeszcze raz połącze- 
nia. 

Przy stole postawił krzesło i 
usiadł na nim skupiony, przybiera- 
jąc właściwą pozycję, zgodną z za- 
sadami higieny pracy umysłowej. 
Włączył komputer i położył palce 
na jego klawiszach. Poprawił się na 
krześle. Uniósłszy lekko głowę do 
góry — odetchnął głęboko. Skon- 
trolował. czy papieru w drukarce 
wystarczy, a następnie, czy jego 
kończyny górne zginają się prawid- 


łowo. Przeprowadził królką gimna- 
stykę palców, po czym próbnie 
przekonał się, czy trafiają one w 
klawisze. 

Ocenił, że siedzi za daleko od 
komputera — przybliżył się nieco. 
Teraz objął wzrokiem całą klawia- 
turę i uznał, że oświetlenie jesl nie- 
wystarczające Zapalił dodatkową 
żarówkę. 

Zaczął myśleć intensywnie po- 
zostając dłuższą chwilę w stanie 
koncentracji. Jeszcze raz wykonał 


wymienione czynności. Obserwo- 
wał kątem oka zegarek i śledził mi- 
jający czas. 

Zbliżał się już „fajrant" gdy Spek- 
truś mógł podsumować wyniki ate- 
stacji. 

Okazało się, że największym 
mankamentem na jego stanowisku 
pracy był jaskrawo występujący 
brak pomysłu... 

Podglądał: 
Eugeniusz MLECZAK 
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Litery odczytane w kolejności utworzą nazwy 
czterech urządzeń. Rozwiązaniem krzyżówki jest 
odpowiedź — jakie są to urządzenia. Rozwiąza- 
nia prosimy nadsyłać na kartkach pocztowych 
pod adresem redakcji do 31 czerwca br. 


...PODOBNO TEZ JUZ MAJĄ !!] 


■ r 


KRZYŻÓWKA 
nr 4 


Mikrociekawostki 


m pśr-^1*'' 


Standard Spectrum został utrzymany. Firma co prawda 
miała spore kłopoty i w konsekwencji zmieniła właściciela. 
Amstrad jednak zadbał o tych, którzy przyzwyczaili się do 
Spectrum — powstał nowy mikrokomputer ZX Spectrum t 2 
o pamięci 128 kB. W porównaniu z poprzednimi wersjami no- 
we urządzenie ma oczywiście lepsze parametry; zrezygnowa- 
no z wielofunkcyjnej klawiatury, magnetofon zaś jest inte- 
gralną częścią ZX Spectrum + 2. 

Trudno wróżyć różową przyszłość temu komputerowi. 
Ostrą konkurencję stanowią dla niego Amstrady sprowadzane 
do Polski przez Polanglię Ltd. Co prawda ceny tych ostatnich 
wzrosły od 1 stycznia o ok. 12,5 procent i za Amstrada PCW 
8512 z podwójną stacją dysków, monitorem, drukarką i edyto- 
rem tekstu płaci się 500 funtów, zaś Spectrum -f 2 kosztuje 
jedynie 200 funtów. Warto dodać, że pełny serwis tych kom- 
puterów prowadzi Sp. z oo Refleks. 



Szyfr już złamany 


W numerze: 

Czy komputer może uczyć? 

— str. 4 

W szponach Atari: 

Kreślenie okręgów — str. 5 

— Supertekst — str. 7 

— Reversi — str. 9 

Sharp: 

Kto winien? — str. 10 

Mikrokomputery IBM (2) 

— str. 12 

lnfosystem’87 — str. 13 

CPC 464 — Kreska (3) 

— str. 14 

W klubie, który będzie 

— str. 15 

Spectrum: 

Sztuki i sztuczki (7) 

— str. 18 

Pascal (5) — str. 21 

Basic (7) — str. 24 

Myślenie po godzinach, 
czyli z czego żyją rzemieśl- 
nicy — str. 29 

Liga Myślących — str. 30 


UWAGA! PRZYPOMINAMY 

Już wkrótce do kio- 
sków Ruchu dotrze 
drugi numer specjal- 
nego numeru „IKS-a” 
poświęconego wyłącz- 
nie programom. Wie- 
rzymy, że wśród kilku- 
nastu propozycji nasi 
Czytelnicy znajdą coś 
ciekawego dla siebie. 
Zatem uwaga użytko- 
wnicy Atari, Commo- 
dorów, Spectrum i 
Amstradów, pytajcie o 
programy „IKS-a” w 
kioskach. 


Znamy już szczęśliwego 
laureata naszego konkursu. 
Spośród nadesłanych do re- 
dakcji kilkunastu tysięcy 
prawidłowych rozwiązań pię- 
cioletnia Monika wylosowała 
zwycięzcę. 

Uwaga. Niebieska koperta: 
Posiadaczem komputera ZX 
Spectrum +, magnetofonu, 
joysticka i zestawu progra- 
mów ufundowanego przez 
firmę ICL został 

BOGDAN OLSZEWSKI 
z SOSNOWCA 

I jeszcze dwie koperty. 
Radioodbiorniki „Maria” otrzy- 
mują: Bożena Silezin-Budek 
z Warszawy i Michał Staj- 
szczak również z Warszawy. 

A teraz jeszcze kilka słów o 
konkursie. Naszym zdaniem 
odczytanie kryptogramu nie 
było zadaniem prostym. Naj- 
ważniejszą sprawą było 
oczywiście odnalezienie klu- 
cza, a potem krok po kroku 
należało odczytać niezrozu- 
miały ciąg znaków, w którym 
znalazły się dodatkowe 
utrudnienia. 

Zatem najważniejszy był 
klucz. W kolejnych numerach 
staraliśmy się podać o nim 
bliższe informacje. Ale ten 
trud okazał się niepotrzebny. 
Już wkrótce po ukazaniu się 
pierwszego numeru zaczęty 
napływać rozwiązania. Pra- 
widłowe? 

Klucz nie spraw ii więk- 
szych kłopotów — pisano. I 
słusznie, klucz miał postać 
Data:1 945.05.09. — jest to 
szczególny dzień w historii 
naszego narodu i świata. 
Kiedy znamy klucz, reszta 



A to już wszyscy szczęśliwcy 


jest formalnością. Odczytany 
kryptogram miat postać: 

WSZYSTKIE BOJOWE 
^ OPERACJE MIAŁY 
JEDEN AZYMUT: 
•WOLNA POLSKA* 

Okazało się. że tęgich głów 
nam nie brakuje, a liczba 
rozwiązań wskazuje, jak wie- 
lu doskonale daje sobie radę 
z matematyką. 

Zwycięzcom gratulujemy. 
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************************************************* 

************* NOWINKI ************* 
************************************************* 

***** STC POBIŁO REKORD ŚWIATA ***** 

STC - Standard Talaphonsa and Cablaa wygrała kontrakt wartości 3 Milionów funtów 
na położenia kabla światłowodowego o długości SS Mil łączącego wyspa Man (Wielka 
Brytania) z lądem stałym. Kabel ten pozwoli na wprowadzenie cyfrowej telekomuni- 
kacji na wyspie. Po raz pierwszy kabel światłowodowy tej długości nie bądzie 
potrzebował po drodze wzmacniaczy co jest swoistym rekordeM świata. 

••••• TANI SUPERKOMPUTER ***** 


Ceny superkomputerów rozpoczynaj* sią od kwoty 7.5 miliona dolarów, gdy tym- 
czasem Uniwersytet w Southampton obiecuje już niedługo taki komputer za. ....750 
tysiący dolarów. Superkomputer składać sią bądzie z 320-stu transputerów czyli 
kompletnych komputerów zawartych na "kości" wielkości ...znaczka pocztowego. 

***** ICL I SUN ***** 


Jeszcze pod koniec ubiegłego roku zostało podpisane porozumienie pomiędzy ICL - 
International Computers Ltd. i firm* SUN Microsystems Ltd. specjalizując* sif w 
systemach graficznych. W ramach porozumienia nastąpi sprzedaż systemów komputer- 
owych ICL i jako stacji graficznych systemów SUN - wymagających maszyn o dużej 
mocy przetwarzania. Drugą płaszczyzną porozumienia jest wzajemna współpraca w 
zakresie projektowania i konstruowania urządzać graficznych nowej generacji. 


Na zdjąciu pozbawiony 
migotania 13 calowy 
monitor kolorowy o 
rozdzielczości 1152 • 

900 punktów. Może wy- 
świetlać jednocześnie 
256 kolorów lub odcie- 
ni szarości z palety 
......16.7! milionów. 

Stacja graficzne SUN 
wyposażone są w 32 - 
bitowy mikroprocesor 
MOTOROLA 66020, a ich 
moc przetwarzania wynosi od 
ciągu jednej sekundy), 
najlepsze na świacie. 



1.5 do 4 MIPS (milionów operacji wykonywanych w 
Stacje graficzne firmy SUN są obecnie uważane za 


***** DWA NOWE PC APPLA ***** 

Firma Apple wylansowała w USA dwa nowe modele komputera osobistego Mclntosh. 
Nazwane zostały Macintosh II i Macintosh SE. Posiadają znacznie wiąkszą moc 
obliczeniową niż ich poprzednicy i mogą być rozbudowywane. Oba mogą wiernie na- 
śladować PC IBM-owskie i ich kopie-przy czym Macintosh II proponuje bardziej 
zaawansowaną technologią od orginalnego IBM PC przy znacznie niższej cenie. 

a******************************************************************************** 

(sch) 
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CZY KOMPUTER 
MOŻE UCZYĆ? 


Kilka dni lemu miałem okazję porozma- 
wiać z Robertem — absolwentem — 
skomputeryzowane! uczelni". Zważywszy 
na bardzo ciekawą (i pouczającą) treść tej 
rozmowy przedstawiam ją w niewielkim 
skrócie. 

Komputery w uczelni Roberta wykorzy- 
stywane są niemal we wszystkich dziedzi- 
nach życia szkoły: zarządzanie, administra- 
cja, prace naukowo-badawcze, wszelkiego 
typu banki informacji — a w szczególności 
informacja biblioteczna i naukowa. Jednak 
najciekawszą, moim zdaniem, sferą zasto- 
sowań jest nauczanie wspomagane przez 
komputer, tym bardziej ze dotyczy ono 
przedmiotów humanistycznych. 

Podczas nauki wspomaganej przez ma- 
szynę, uczący się ma do dyspozycji indywi- 
dualne stanowisko — miejsce odizolowane 
od pozostałej części sali o „wyciszających"' 
ścianach (w kolorze pastelowym). Mie- 
szczący się tam stolik wyposażony jest w 
mikrokomputer, który stanowi element sieci 
komputerowej uczelni. Dzięki połączeniom 
(sieci) z kilkoma liniami telefonicznymi — 
każde stanowisko ma łączność z wieloma 
innymi uczelniami, bibliotekami, a także z 
domem. 

Rozmiar mikrokomputera, często nazy- 
wanego nanokomputerem, jest odwrotnie 
proporcjonalny do jego możliwości. Przede 
wszystkim, nanokomputer wyposażono w 
kolorowy monitor „z dostępem” do każdego 
z 1024 x 1024 pikseli. Oznacza to, iż każdy 
umowny punkt (piksel) ekranu może mieć 
inny kolor — zmieniany zależnie od potrzeb. 
W efekcie pozwala to uzyskać dobrej jakoś- 
ci postać tekstów oraz bardziej złożonych 
rycin na ekranie. Istotny udział w komforcie 
odbioru (czytelności) tej formy informacji 
ma fakt, iż obraz na ekranie „odświeżany,, 
jest 100 razy w czasie jednej sekundy — 
dwukrotnie częściej niż ma to miejsce w 
standardach TV (50—60 Hz). Rezultatem te- 
go jest „papierowy” obraz, którego ogląda- 
nie, nawet przez kilka godzin, me męczy i 
jest zdecydowanie mniej szkodliwe dla 
zdrowia oczu. 

Mówiąc o ekranie, nie sposób nie wspo- 
mnieć o tym. że „wskazanie komputerowi” 
dowo.uego punktu ekranu, polega na do- 
tknięciu tego miejsca, na przykład po prostu 
palcem. Czynność tę można także wykonać 
„tradycyjną myszką", piórem świetlnym lub 
tak zwanym digityzerem. Urządzenia te 
umożliwiają przemieszczanie na ekranie 
kursora (migającą plamkę). 

Zatem podczas nauki geografii, a w za- 
sadzie kontroli zdobywania wiadomoś- 
ci z tego przedmiotu — komputer wyświetla 
na ekranie mapę określonego kraju i żąda 
wskazania na niej miejsc usytuowania nie- 
których bogactw naturalnych. Jednocześnie 
na lewej części ekranu ukazują się małe 
okienka z obrazkami symbolizującymi wę- 
giel, siarkę, miedź itp. Są to tak zwane ikony. 
Na przykład ikona siarki to po prostu rycina 
zapałek z symbolem Si. Uczący się „wybie- 
ra" dowolną ikonę przez jej dotknięcie (lub 
wskazanie). Potwierdzeniem, że komputer 
„zrozumiał” nasz wybór jest ukazanie się 
tej ikony w lewym górnym rogu ekranu. Wy- 
starczy teraz wskazywać odpowiednie 
miejsca na mapie. Gdy znajomość geogra- 
fii Polski jest przedmiotem kontroli — wska- 
zanie wybrzeża jako miejsca bogatych po- 
kładów węgla napotyka na zrozumiale 
„zdziwienie komputera, natomiast w po- 
prawnie wskazanych punktach pojawiają się 
miniaturki ikon. Gdy węgiel został „rozdys- 


ponowany", uczący się dotyka ikonę siarki, 
następnie miedzi itp. 

W trakcie tej pracy można oczywiście po- 
pełnić błąd, który został zauważony po pew- 
nej chwili — jego poprawie i innym typowym 
czynnościom służy zestaw stałych ikon 
(niezależnie od przedmiotu) wyświetlanych w 
dolnej części ekranu. Symbolizują one takie 
czynności jak na przykład: kasowanie (ma- 
zanie. ścieranie) — najczęściej w postaci 
obrazka gumki, prośba o pomoc (ikona 
uniesionej do góry dłoni), polecenie zapisy- 
wania wyróżnionych informacji (związanych 
z treściami nauczania) do własnego (pry- 
watnego) zbioru — dostępnego także w 
domu, powiększanie fragmentu ekranu 
(obrazek lupy, szkła powiększającego) itp. 

- Wydaje się, że bardzo atrakcyjną zdol- 
nością komputera podczas zajęć z geografii 
jest powiększanie fragmentów obrazu ak- 
tualnie wyświetlanego na ekranie monitora. 
Na przykład oglądając mapę Polski prosimy 
o powiększenie jej centralnej części — w 
odpowiedzi komputer wyświetla fizyczną 
mapę województwa warszawskiego i części 
sąsiednich województw. Można żądać ko- 
lejnych powiększeń — ostatnim krokiem jest 
np.: plan miasta Łowicza. 

Regulacji jasności i kontrastu obrazu za- 
zwyczaj dokonuje sam komputer, bowiem 
uprzedza chwilę, w której użytkownik sam 
zdecydowałby się na zmianę tych parame- 
trów ekranu. Wykonywane jest to w bardzo 
przemyślny sposób — komputer mierzy do- 
kładnie czas naszych odpowiedzi na obrazy 
(treści) ukazywane na ekranie. Korzystając 
ze znanej (maszynie) zależności między 
czasem reakcji na informacje (komunikaty) 
wyświetlane na monitorze, a skutkami 
wspomnianych regulacji (im większy kon- 
trast tym szybciej rozpoznawany jest obraz 

— niestety kosztem zdrowia oczu i pogor- 
szenia samopoczucia), komputer dobiera 
odpowiednie parametry wyświetlanego 
obrazu. W praktyce ustawiona jest taka jas- 
ność i kontrast ekranu by pogodzić potrzeby 
(szybkość oraz poprawność) i możliwości 
(nasze zdrowie) odczytywanych z niego 
treści. 

Mając na uwadze indywidualne wymaga- 
nia uczących się, w podobny sposób jak 
jasność i kontrast, komputer dobiera wiel- 
kość i proporcje stosowanych znaków i 
symboli. Uwzględnia to między innymi stan 
zdrowia naszych oczu. Na początku współ- 
pracy z użytkownikiem maszyna stopniowo 
zwiększa wielkość, aż do chwili, gdy dalsze 
powiększenie nie daje widocznego skutku 
(szybkość i poprawność odczytywania in- 
formacji z ekranu nie zmienia się) lub po 
prostu nie jest fizycznie to już możliwe. Ana- 
logicznie przebiega proces odwrotny — 
kontrolowane zmniejszanie znaków. Proce- 
dura ta, łącznie z podobnie wykonywaną we- 
ryfikacją proporcji znaków, realizowana jest 
bez przerwy. Ma to na celu uwzględnianie 
postępującego zmęczenia uczących się. 

Wracając do meritum sprawy — nauki 
wspomaganej przez komputer — rozpoczy- 
na się ona od prezentacji — uczący wymie- 
nia swoje nazwisko, pisząc je na ekranie (za 
pośrednictwem klawiatury) lub ostatnio po 
prostu (wyraźnie) na papierze, który stanowi 
jeden ze śledzonych przez kamerę obiek- 
tów. Jest ona sprzężona z komputerem, któ- 
ry odpowiednio analizuje przekazywane mu 
obrazy. Również informacje można przeka- 
zać do maszyny za pośrednictwem głosu — 
rozpoznaje ona ponad siedem tysięcy słów. 
Czasami niektóre z nich trzeba powtarzać, 


szczególnie podczas pierwszych godzin 
współpracy z komputerem, bowiem z cza- 
sem maszyna się „uczy" rozpoznawać nasz 
głos. Zatem przekazanie informacji do kom- 
putera jest czasem o wiele prostsze niż wy- 
konanie tej samej czynności w rozmowie z 
kolegą — maszyna jest bardziej cierpliwa i 
dostarcza dodatkowe środki przekazywania 
informacji — pismo oraz ikony. W ogólności 
stanowi to efekt prac nad interfejsem użyt- 
kownika, często nazywanym „życzliwością 
komputera" lub „łatwy w użyciu". 

Komputer wiedząc z kim ma do czynienia, 
sięga do odpowiednich informacji, które do- 
tyczą użytkownika. Wśród nich jest życiorys 
uczącego się, dane o jego stanie zdrowia (w 
tym oczu), o cechach osobowości, znaczą- 
cych doświadczeniach. Uzupełnieniem tych 
informacji są dane aktualne: ocena dotych- 
czas zdobytej przez uczącego.się wiedzy na 
temat będący przedmiotem, zajęć, a także 
aktualny stan zdrowia, który stanowi kolejny 
temat „rozmowy" po przedstawieniu się stu- 
denta. Mówiąc lub pisząc, można poinfor- 
mować maszynę, że nasza obecność wyni- 
ka tylko z obowiązku — stanowi to cenną 
wytyczną do doboru stosowanej przez kom- 
puter strategii nauczania — rzadziej zwraca 
uwagę, najczęściej chwali i nie wymuszą 
- dużej aktywności uczenia się. Jak ON to 
czyni — jest bardzo przebiegły, bo poza zna- 
jomością naszego życiorysu, samopoczu- 
cia, kontroluje naszą aktualną aktywność 
emocjonalną. Czyni to bardzo dyskretnie i 
bez przerwy — poprzez wspomniany precy- 
zyjny pomiar czasów reakcji (odzwierciedla- 
ją one w dużej mierze aktywność emoęjo- 
nalną człowieka) oraz gdy wyrazimy zgodę! 

— kontrolując szybkość przepływu krwi oraz 
EKG i GSR (galwaniczną reakcję skóry) — 
wymaga to założenia na lewy przegub cał- 
kiem eleganckiej „bransoletki". Podłączenie 
to, początkowo budzi mieszane uczucia stu- 
dentów i przez kilka pierwszych zajęć 
„bransoletka" wisi „na gwoździu". Jednak 
przykład bardziej zaawansowanych w „bo- 
jach z komputerem" przekonuje, tym bar- 
dziej że to nie boli, a nauka przebiega o po- 
nad 30% sprawniej (szybciej i „trwalej"). 

Jak to się dzieje? Komputer dysponując 
pomiarami z „bransoletki" szybko określa 
naszą optymalną aktywność emocjonalną, 
to znaczy taką, przy której najszybciej uczy- 
my się. Istnieje bowiem ścisła zależność 
naszej aktywności i efektów uczenia się. 
Gdy materiał jest zbyt trudny, aktywność 
nasza wzrasta ponad granice poprawnego 
funkcjonowania tych części mózgu, które 
odpowiadają za przyswajanie nowej wiedzy, 
często zachodzi proces odwrotny — nasza 
aktywność maleje (po prostu nudzimy się) 

— materiał jest zbyt trudny. Spadek aktyw : 
ności emocjonalnej towarzyszy także pre- 
zentacji zbyt łatwego materiału — mecha- 
nizm i skutek jest ten sam — nudzenie się. 
Maszyna „zdając sobie z tego sprawę" do- 
biera odpowiednią trudność materiału, by 
efekty nauki były jak największe. Jeśli i to 
nie pomaga; komputer dysponuje setkami 
komend o doskonale znanych mu efektach 
działania na zmianę stanu aktywności emo- 
cjonalnej uczących się. Są to zazwyczaj 
pochwały, nagany, propozycje przerwy lub 
jeszcze bardziej przekonujące komentarze 

Temat ten stanowił początek naszej ko- 
lejnej rozmowy z Robertem — absolwentem 
„skomputeryzowanej ucźelni ". 

W. G. 
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W szponach Atari (4) Tomasz MROWIEĆ 

^ Ludwik PIELA 

Sposoby 

kreślenia okręgów 


Podczas pisania programów wy- 
korzystujących lub tworzących gra- 
fikę od czasu do czasu musimy 
wykreślić okrąg. Wtedy z zazdroś- 
cią patrzymy na właścicieli ZX 
Spectrum, którzy mogą to zrobić 
za pomocą jednej instrukcji BA- 
SIC'a. Mamy nadzieję, że po prze- 
czytaniu tego artykułu i wprowa- 
dzeniu zamieszczonych progra- 
mów, również właściciele Atari 
będą mogli kreślić różnorodne ok- 
ręgi różnymi metodami. Zaprezen- 
tujemy kilka procedur od najprost- 
szej, w języku BASIC, która potrze- 
buje na kreślenie około 60 sekund, 
do procedury w języku maszyno- 
wym, która kreśli okrąg w ułamku 
sekundy. 

Pierwszy z prezentowanych pro- 
gramów „punktuje" okrąg w ciągu 
około 60 sekund, bez względu na 
wielkość. Trwa do dosyć długo. 
Gdy musieliśmy wykreślić kilka 
różnych okręgów na ekranie i cze- 
kaliśmy na efekt końcowy, nasunę- 
ły się nam pewne refleksje. Okrąg 
jest symetryczny, dlaczego zatem 
nie wykorzystać tej własności? Je- 
żeli znamy współrzędne jednego 
punktu, możemy zrobić jego „odbi- 
cie" względem osi x lub osi y. To 
znaczy, jeśli wiemy, że punkt (x,y) 
leży na okręgu, to punkt (x,— y) 
również leży na okręgu. To samo 
jest prawdą dla (— x, y) i (— x, — y). 
Musimy zatem wykonać tylko jed- 
ną czwartą obliczeń. Ale dlaczego 
nie iść dalej? Okręgi są także sy- 
metryczne względem linii y=x oraz 
y=— x. Jeśli wiemy, że (x,y) leży 
na okręgu, wtedy to samo dotyczy 
(x,y). Teraz musimy wyznaczyć 
tylko jedną ósmą punktów. Opisa- 
na metoda wykorzystana jest w 
drugim programie. 

Niestety, nawet wykonując tylko 


jedną ósmą obliczeń, wciąż po- 
trzebujemy ponad 10 sekund na 
wykreślenie okręgu. Być może ist- 
nieje lepszy sposób? Zamiast uży- 
wania funkcji trygonometrycznych 
sinus i cosinus wykorzystajmy na- 
stępujące równanie: 

x • x + y • y = r • r 

Nie jest ono zbyt przydatne, lecz 
po przekształceniu otrzymamy: 

y = SORT (r • r — x : ji ) 

Zatem wszystko co musimy zro- 
bić, to wyznaczyć y dla wartości x. 
zmieniających się od — r do r. 
Ponieważ funkcja pierwiastka 
kwadratowego daje tylko wartości 
dodatnie, musimy pamiętać o wyk- 
reśleniu ujemnych wartości pier- 
wiastka. Program 3 jest przykła- 
dem, jak to zrobić. Metoda ta jest 
szybsza od wykorzystującej funk- 
cje trygonometryczne, lecz wciąż 
wymaga ponad 16 sekund. Użyjmy 
zatem sposobu wypróbowanego w 
programie 2. W efekcie otrzymuje- 
my program 4, który zużywa tylko 
pięć sekund na kreślenie dużych 
okręgów i nieco mniej dla mniej- 
szych. 

I to jest minimalny czas kreślenia 
okręgu, możliwy do uzyskania w ję- 
zyku BASIC za pomocą znanych 
wzorów. Dalsze sukcesy możemy 
uzyskać, zmieniając albo sposób 
podejścia, albo język programowa- 
nia, albo jedno i drugie. 

Zacznijmy od pierwszego. Wyo- 
braźmy sobie ekran jako siatkę, 
której oczka reprezentowane są 
przez elementarne punkty grafi- 
czne (pixele). Każdy punkt adre- 
sowany jest za pomocą dwóch 
współrzędnych (x,y), które są za- 


wsze liczbami całkowitymi. 
Wprawdzie możemy napisać PLOT 
0.5, 0.6, lecz adresy są zaokrąglane 
do wartości całkowitych. Dzięki 
temu, jeśli jesteśmy w pewnym 
punkcie na okręgu i próbujemy ok- 
reślić, gdzie będzie następny 
punkt, możemy przenieść się w 
jednym z ośmiu kierunków. Jeśli 
podzielimy okrąg na ćwiartki, wtedy 
poprawne są tylko trzy z tych kie- 
runków. Jeżeli jednak podzielimy 
okrąg na osiem części, wtedy mo- 
żemy wybrać tylko jeden z dwóch 
kierunków. Na przykład, jeśli je- 
steśmy na okręgu w punkcie (r.O), 
następnym punktem może być al- 
bo (r,1), albo (r — 1,1). Ponieważ 
ekran nie może kreślić punktów in- 
nych niż o. adresach całkowitych, 
istnieje mały błąd, który nie zawsze 
równy jest zero Zastosujemy spo- 
sób sprawdzony w programie 2. 
Zajmuje to tylko trzy sekundy i nig- 
dy nie kreślimy linii o dowolnej dłu- 
gości, W ten sposób działa pro- 
gram 5. 

Zauważmy także, że uzyskujemy 
żądany efekt, wykorzystując tylko 
dodawanie i odejmowanie. Takie 
programy mogą być łatwo przetłu- 
maczone na język maszynowy. 
Program 7 jest przykładem proce- 
dury kreślenia okręgów w języku 
maszynowym. Program 6 służy do 
wywołania tego ostatniego i zuży- 
wa mniej niż 0,2 sekundy na kreś- 
lenie okręgu. Wywołanie odbywa 
się za pomocą funkcji USR, Prze- 
kazywanymi parametrami są kolej- 
no: adres kodu procedury; współ- 
rzędne środka okręgu x i y, pro- 
mień okręgu i tryb kreślenia. 

Poszczególne wartości trybu 
kreślenia oznaczają: 0 — zgaszenie 
punktu; 1 — zapalenie punktu; 2 — 
odwrócenie punktu (tj, zapalenie 
lub zgaszenie, w zależności od sta- 
nu, w jakim się znajduje). 

Jedyną trudnością w używaniu 
programu w języku maszynowym 
jest niekontrolowanie czy okrąg nie 
wyszedł poza ekran. ^ 
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KZ 100 REM KREŚLENIE OKRĘGU 
GO 110 REM 

KV 120 REM PROGRAM #1 
QS 130 REM 

MW 140 REM CZAS KREŚLENIA OKOŁO 6 
0 SEK. 

MF 200 DEG 

ZT 210 GRAPHICS 8= COLOR 1 
PD 230 SETCOLGR 2,0,0 
BF 240 A= 1 60 ; B=80 R=50 
OZ 380 FOR ALFfi=0 TO 360 
JA 310 Xl*INT(R*COS<ALFA>4-0.5> 

LJ 320 Yl=INT<R*SIN<ALFA>+0.5> 

GD 330 PLOT A+X1,B+Y1 
VY 348 NEXT ALFA 


KZ 100 REM KREŚLENIE OKRĘGU 
GO 110 REM 

LN 120 REM PROGRAM #2 
GS 130 REM 

HC 140 REM CZAS KREŚLENIA OKOŁO 1 
0 SEK. 

MF 200 DEG 

ZT 210 GRAPHICS 8 COLOR 1 
El 238 SETCOLOR 2,8,0 A=168 
IH 258 8=80 R=50 : PLOT A+R, B 
CE 300 FOR ALFA=8 TO 45 
JA 318 Xl=INT<R*CQS<ALFA>+0.5> 

LJ 320 Yl=INT<R*SINcALFA)+0.5> 

GD 338 PLOT A+X1 , B+Yl 
HB 348 PLOT A-X 1 , B+Y 1 
HN 350 PLOT A+X1 • B-Yl 
1L 360 PLOT A-X1 , B-Yl 
GG 370 PLOT A+Y1,B+Xi 
HE 380 PLOT fl-Yl , B+X1 
HG 390 PLOT A+Yl , B-X1 
HV 480 PLOT A-Yl , B-X1 
VT 410 NEXT ALFA 


KZ 108 REM KREŚLENIE OKRĘGU 
GO 110 REM 

MF 128 REM PROGRAM #3 
GS 130 REM 

PL 148 REM CZAS KREŚLENIA OKOŁO 1 
7 SEK. 

GW 150 REM 

ZT 210 GRAPHICS 8 : COLOR 1 
El 238 SETCOLOR 2,0,0 A-168 
QZ 250 B*80 R=58 
HT 270 X0=-R Y0=0 
SQ 300 FOR Xl*-R TO R 
WA 310 Y1 = INT<0.5+SQR<R*R-X1*XU> 
EJ 320 PLOT A+X0, B+Y0 1 DRAWTO A+X1 
• B+Y 1 

IF 330 PLOT A+X0,B-Y0 DRAWTO A+X1 
, B-Yl 

HS 348 X0*X1 : Y0*Y1 
GQ 350 NEXT XI 


KZ 100 REM KREŚLENIE OKRĘGU 
GO 110 REM 

MX 120 REM PROGRAM #4 
GS 130 REM 

UT 148 REM CZAS KREŚLENIA OKOŁO 5 
SEK. 

GW 150 REM 

ZT 210 GRAPHICS 8 COLOR 1 
El 230 SETCOLOR 2,0,0 A* 160 
QZ 258 6=80 1 R=50 
FP 270 X0=-RY0=0-X1=-R 
WP 290 Y1=INT<0.5+SQR<R*R-X1*X1>> 
EF 300 PLOT A+X0,B+Y0 DRAWTO A+X1 
• B+Yl 

HH 310 PLOT A-X0 , B+Y0 DRAWTO A-X1 
,B+Y1 

ID 320 PLOT R+X0, B-Y0 DRAWTO A+X1 
,6-Yl 

LF 330 PLOT A-X0,B-Y0 DRAWTO A-X1 
, B-Yl 

ED 340 PLOT A+Y0, B+X0 : DRAWTO A+Yl 
, B+X1 

HF 350 PLOT A-Y0,B+X8 DRAWTO A-Yl 
-B+X1 

IB 360 PLOT A+ Y0 , B-X0 : DRAWT O A+Yl 

LD 378 PLOT A- Y0.B-X0 DRAWTO A-Yl 
, B-X1 

IA 380 X0*X1 : Y0=Y1 
YU 390 IF -X1>*Y1 THEN X1»X1+1 GO 
TO 290 


KZ 100 REM KREŚLENIE OKRĘGU 
QO 110 REM 

NP 120 REM PROGRAM *5 
QS 130 REM 

SL 148 REM CZAS KREŚLENIA OKOŁO 3 
SEK. 

QW 150 REM 

ZT 210 GRAPHICS 8 1 COLOR 1 
•PD 230 SETCOLOR 2,0,0 
BF 240 A* 160 B=80=R»50 
YD 273 F I =0 ‘ Y 1 =0 ’ X 1 »R 
BY 300 FIY-FI+Y1+Y1+1 
KA 310 FIXY»FIY-X1-X1+1 
GB 320 PLOT A+X1,B+Y1 
GZ 336 PLOT R-X1,B+Y1 
HL 340 PLOT A+X1,B-Y1 
IJ 350 PLOT A-X1 , B-Yl 
GE 360 PLOT A+Yl , B+X1 
HC 370 PLOT A-Y1.B+K1 
HO 380 PLOT A+Yl , B-X1 
IM 390 PLOT A-Yl , B-X1 
UL 400 FI«FIY>Y1-Y1+1 
LX 420 IF ABS<FIXY> <ABS(FIY> THEN 
FI=FIXY'X1*X1-1 
TP 4T0 TF X1 N *Y1 THFH 700 

KZ 180 REM KREŚLENIE OKRĘGU 
GO 110 REM 

OH 120 REM PROGRAM #6 
GS 130 REM 

EA 148 REM CZAS ‘KREŚLENIA OKOŁO ! 
WT 158 REM 0.1833 SEK. 

ZT 210 GRAPHICS 8 COLOR 1 
PD 230 SETCOLOR 2,0.0 
BF 240 A=160 B=80 R»50 
DB 270 P=7*16*16*16 
VJ 380 I =USR < P , A , B , R , 1 ) 

KA 310 F I XY=F I Y-X 1 -X 1 + 1 
GB 320 PLOT A+X1 , B+Yl 
GZ 338 PLOT A-X1 , B+Yl 
HL 340 PLOT A+X1,B-Y1 
IJ 350 PLOT A-X1 , B-Yl 
GE 360 PLOT A+Y1,B+X1 
HC 370 PLOT A-Yl ,B+X1 
HO 380 PLOT A+Yl , B-X1 
IM 390 PLOT A-Yl , B-X1 
UL 400 FI=FIY = Y1=Y1 + 1 
LX 420 IF ABS(FIXY> <ABS(FIY> THEN 
FI=FIXY : X1*X1-1 
TP 430 IF X1>»Y1 THEN 300 

BW 10 REN F>jDFR'J'>MM ł RtSLENIA KO 
LA-28000 

PU 20 GOSUB 28000 
YR 38 END 

BJ 28000 FOR 1=8 TO 758 READ A PO 
KE 28672+1, A NEXT I 
OU 28004 RESTORE 29588 
MT 28805 FOR 1=1577 TO 1584 READ ! 

A POKE I,A NEXT I 
DS 28010 RETIJRN 

GW 28672 DATA 104,104,141,5,6,104 
EG 28678 DATA 141,4,6.104,141,7 
CY 28684 DATA 6,104,141,6,6,104 
DA 28698 DATA 141,9,6,141,12,6 
DT 28696 DATA 104,141,8,6,141,11 
YR 28702 DATA 6,104,104,141,10,6 
UB 28708 DATA 201.3,144,1,96,169 
YD 28714 DATA 8,141,13,6,141,14 
DX 28720 DATA 6,141,15,6,141,16 
KB 28726 DATA 6,24,173,4,6,109 
HL 28732 DATA 11 ,6, 141 ,25,6, 173 
EH 28738 DATA 5,6,109,12,6,141 
JG 28744 DATA 26,6,24,173,4,6 
JS 28750 DATA 109.13,6.141,29.6 
JG 28756 DATA 173,5,6,109.14.6 
IZ 28762 DATA 141,30,6,56-173,4 
IX 28768 DATA 6,237, 1 1 ,6, 141 ,27 
IX 28774 DATA 6, 173,5,6,237, 12 
GH 28780 DATA 6,141,28,6,56,173 
GF 28786 DATA 4, 6 . 237, 13,6 • 141 
FX 28792 DATA 31,6,173,5,6,141 
EG 28798 DATA 14,6,141,32,6,24 
FY 28804 DATA 173,6,6,109.11,6 
IM 28810 DATA 141,33,6,173,7,6 
FR 28816 DATA 109,12,6,141,34,6 
IL 28822 DATA 24,173,6,6,199,13 
NE 28828 DATA 6, 141 . 37, 6, 173, 7 
LB 28834 DATA 6-109,14,6,141,38 
PP 28848 DATA 6,56, 173,6,6,237 
JH 28846 DATA 11,6,141,35,6,173 
FR 28852 DATA 7,6, 237, 12, 6 . 141 
PY 28858 DATA 36,6,56,173.6,6 
MP 28864 DATA 237. 1S, 6, 141 , 39.6 


I LG 28870 DATA 173,7,6,237,14,6 
JE 28876 DATA 141,40,6,173,25,6 
I GV 28882 DATA 141,0,6,173,26,6 
KM 28888 DATA 141,1,6,173,37,6 
LL 28894 DATA 141,2,6,173,38,6 
CX 28980 DATA 141,3,6.32,106,114 
DD 28986 DATA 173,27,6, 141,0,6 
ED 28912 DATA 173,28,6,141,1,6 
ON 28918 DATA 32,106,114,173.25,6 
GK 28924 DATA 141,0,6,173,26,6 
KF 28930 DATA 141, 1< 6, 173,39,6 
EG 28936 DATA 141 , 2,6, 173. 40, 6 
DX 28942 DATA 141,3,6,32,106,114 
ED 28948 DATA 173,27,6,141,0,6 
FD 28954 DATA 173,28,6,141,1,6 
"UT 28968 DATA 32,106,114,173,29,6 
CO 28966 DATA 141,0,6,173,30,6 
FL 28972 DATA 141,1,6,173,33,6 
IE 28978 DATA 141,2,6,173,34,6 
EX 28984 DATA 141,3,6,32,106,114 
AB 28990 DATA 173,31,6,141,0,6 
CV 28996 DATA 173,32,6,141,1,6 
SO 29002 DATA 32,196,114,173,29,6 
B8 29098 DATA 141,0,6,173,30,6 
FW 29014 DATA 141,1,6,173,35,6 
GV 29029 DATA 141,2,6,173,36,6 
I DK 29026 DATA 141,3,6,32,106,114 
YO 29632 DATA 173,31,6,141,0,6 
BI 29038 DATA 173,32,6,141,1,6 
I ND 29044 DATA 32,106,114,173,14,6 
DO 29050 DATA 205,12,6,240,3,144 
LG 29056 DATA 10,96,173,13,6,205 
ML 29062 DATA 11,6,144,1,96,173 
CW 29868 DATA 11,6,133,4,173,12 
FX 29874 DATA 6,133,5,173,13,6 
UE 29080 DATA 133,205,173,14,6,13 

3 

MZ 29086 DATA 206,6,4,38,5,6 
NT 29092 DATA 205,38,206,56,165,2 
05 

JM 29098 DATA 109,15,6,141,17,6 
XF 29104 DATA 165,206,109,16,6-14 
1 

JV 29110 DATA 18,6,24, 173, 17,6 
OS 29116 DATA 229,4,141,19,6,173 
EB 29122 DATA 18,6,229,5,141,20 
NC 29128 DATA 6,173,18,6,16,27 
SG 29134 DATA 73,255,141,22,6,173 
MW 29140 DATA 17,6,73,255,24, 195 
BQ 29146 DATA 1,141,21,6,173,22 
XF 29152 DATA 6,105,0,141,22,6 
GR 29158 DATA 24,144,9,141,22,6 
EX 29164 DATA 173, 17,6, 141 , 21 ,6 
LD 29170 DATA 173, 20,6, 16, 27, 73 
UV 29176 DATA 255,141,24,6,173.19 
ER 29182 DATA 6,73,255,24,105,1 
IS 29188 DATA 141,23,6,173,24,6 
RV 29194 DATA 105,0,141,24,6,24 
MW 29290 DATA 144,9,141,24,6,173 
JO 29206 DATA 19,6,141,23,6,173 
IV 29212 DATA 17,6, 141 , 15,6, 173 
GH 29218 DATA 18,6,141,16,6,24 
BR 29224 DATA 173,13,6,105,1,141 
El 29230 DATA 13,6,173,14,6,105 
CQ 29236 DATA 0,141,14,6,173,22 
MY 29242 DATA 6,205,24,6,144,39 
LV 29248 DATA 288,8,173,21,6,205 
UG 29254 DATA 23,6,144,29,173,19 
DH 29268 DATA 6,141,15,6,173,20 
OM 29266 DATA 6,141,16,6,56,173 
UO 29272 DATA 11,6,233,1,141,11 
BE 29278 DATA 6,173,12,6,233,0 
LJ 29284 DATA 141,12,6,76,55,112 
WE 29290 DATA 173,2,6,133,205,169 
ML 29296 DATA 0,133,206.6,205,38 
ND 29302 DATA 206,6,205,38.206,6 
TA 29388 DATA 205,38,206,165,285, 
133 

HO 29314 DATA 4,165,206,133.5,6 
UP 29320 DATA 205,38,206,6,205,38 
PG 29326 DATA 206,24,165,205,101, 

4 

YO 29332 DATA 133,205,165,206,101 
,5 

LU 29338 DATA 133,206,173,0,6,133 
DX 29344 DATA 4,173.1,6,133,5 
AU 29358 DATA 70, 5, 102, 4, 70, 5 
WN 29356 DATA 102,4,70,5,102,4 
OU 29362 DATA 24,165,205,101,4,13 
3 

AC 29368 DATA 205,165,206,101,5,1 
33 


LI 29374 DATA 206, 24, 165, : 


WZ 29380 DATA 133,205,165,286,101 
,89 

G I 29386 DATA 1 33 , 206 ,173,8.6,41 
CF 29392 DATA 7, 170, 168, 0, 173, 10 
NN 29398 DATA 6 , 208 , 1 0 , 1 89 , 4 1 , 6 
MW 29484 DATA 73,255,49,205,145,2 


VS 29410 DFITR 96,201,1,208,8,139 
PS 29416 DRTR 41 , 6, 17, 285, 145 . 205 
TU 29422 DRTR 96,189,41,6,81,285 
XK 29428 DRTR 145,205,96,0,0,0 
MN 29508 DRTR 128,64,32,16,8,4,2, 
1 


Supertekst 


Każdy z właścicieli komputera 
Atari wcześniej czy później zetknie 
się z dosyć dużą trudnością, jaką 
jest umieszczenie na ekranie jed- 
nocześnie rysunku i tekstu. Część 
problemów rozwiązuje okno tek- 
stowe, lecz nie wszystkie. Chciało- 
by się mieć znacznie większe moż- 
liwości, np, literatury o różnej wy- 
sokości, w różnych kolorach, w 
dowolnym miejscu, itp. Podpro- 
gram opisany w 5 numerze „IKS-a" 
z ubiegłego roku umożliwiał umie- 
szczanie tekstów na ekranie w try- 
bie graficznym 8, Miał jednak duże 
ograniczenia: był bardzo wolny 
(napisany w języku BASIC), pozwa- 
lał wykorzystać tylko wielkie litery i 
cyfry oraz tylko w jednym trybie 
graficznym. 

Poniżej prezentujemy procedurę 
w języku maszynowym, która 
umożliwia kreślenie obrazów zna- 
ków w dowolnym trybie tekstowym 
lub graficznym. Ma ona następujące 
możliwości: 

1) Kreśli cały zestaw znaków 
ATASCII, włączając wielkie i 
małe litery, znaki graficzne, 
symbole specjalne i negatywy 
każdego z tych znaków w do- 
wolnym trybie graficznym lub 
tekstowym. Mogą być również 
kreślone opracowane przez nas 
znaki. W tym celu należy zmie- 
nić zawartość zmiennej syste- 
mowej CHBAS (o adresie 756) 
dla wskazania położenia włas- 
nego zestawu znaków. 

2) Umożliwia podanie ciągu kreś- 
lonych znaków. Długość ciągu 
ograniczona jest wyłącznie 


ilością miejsca przeznaczonego 
na jego wyświetlenie. 

3) Umożliwia określenie pozycji 
początkowej kreślonego ciągu, 
mogą to być dowolne współ- 
rzędne (x,y) na ekranie. 

4) Pozwala na zakrywanie istnie- 
jących już rysunków lub łącze- 
nie kreślonych znaków z grafi- 
ką. 

5) Wybieranie rejestrów kolorów 
używanych dla tła i kreślonych 
znaków. 

6) Skalowanie każdego ciągu zna- 
ków niezależnie, zarówno w po- 
ziomie, jak i w pionie, przez ok- 
reślenie liczby wierszy i kolumn 
dla każdego znaku. Aktualna 
wielkość każdego znaku zależy 
od rozmiaru elementarnego 
punktu graficznego wybranego 
trybu. 

7) Ciągi znaków mogą być kreślo- 
ne w jednym z czterech kierun- 
ków. 

Opisane możliwości stają się 
dostępne przez wywołanie proce- 
dury w języku maszynowym za 
pomocą instrukcji USR. Jej skład- 
nia jest następująca: 

A = USR(ADR(ASM$), ADR(S$), 
LEN (S$), XS, YS, ORIENT. IWIER, 
IKOL, RKZ, RKT, PRIOR) 

Używane parametry mają nastę- 
pujące znaczenie: 

ADR(ASM$) — Początkowy adres 
procedury „Supertekst", 

ADR(S$) — Adres kreślonego cią- 
gu, a dokładniej adres pierwszego 
znaku tego ciągu. Poprawny będzie 
dowolny adres, może on również 
wskazywać podciąg zawarty w 
długim ciągu. 

LEN(S$) — Parametr ten określa 
liczbę kreślonych znaków. Funkcja 
LEN dostarcza właściwej wartości 
w wypadku kreślenia całego ciągu. 
XS, YS — Współrzędne (x,y) po- 
czątku kreślonego tekstu (lewy 
dolny róg pierwszego znaku). 
Wskazany punkt używany jest rów- 
nież jako oś obrotu podczas obra- 
cania ciągu. (xs, ys) muszą okreś- 
lać punkt wewnątrz granic aktual- 
nego trybu graficznego. 


ORIENT — Parametr ten określa 
kierunek kreślonego ciągu znaków. 
Tekst obracany jest w kierunku 
przeciwnym do ruchu wskazówek 
zegara od poziomej półosi +x wo- 
kół punktu (xs, ys). Wartość para- 
metru powinna być całkowita i inter- 
pretowana jest następująco: 
ORIENT = 0 — obrót o 0 stopni. 
ORIENT = 1 — obrót o 90 stopni. 
ORIENT = 2 - 180 stopni, 

ORIENT = 3 — obrót o 270 stopni. 
Wartość ORIENT interpretowaną 
jest modulo 3, dlatego ORIENT = 4 
oznacza to samo, co ORIENT = 0. 
IWIER — Określa, ile wierszy na 
znak będzie kreślonych, definiuje 
zatem wysokość każdego znaku. 
Zwykle IWIER' jest większe lub 
równe osiem, poprawne są także 
wartości dodatnie mniejsze niż 
osiem, lecz w efekcie kreślone są 
znaki z „opuszczonymi” wierszami. 
Maksymalną wartością jest IWIER = 
- 255. 

IKOL — Liczba kolumn na znak, 
definiuje zatem szerokość każde- 
go znaku. 

RKZ — Określa rejestr koloru, 
który będzie używany do kreślenia 
znaków. Pośrednio określa kolory 
znaków. W trybach tekstowych 
(0—2) powinien być określony jako 
kod ATASCII. 

RKT — Określa rejestr koloru tła 
dla każdego ciągu znaków. Jeśli 
wartość parametru PRIOR jest ze- 
rowa, to RKT nie ma wpływu na 
kreślone znaki, 

PRIOR — Określa priorytet tła 
kreślonego ciągu znaków. Jeśli 
PRIOR= 0, tło znaków nie jest kreś- 
lone i istniejąca na ekranie, grafika 
nie będzie naruszona. Jeśli PRIOR 
ma wartość dodatnią, kolor poś- 
rednio określony przez RKT jest 
kreślony dla tła. 

Podczas określania wartości pa- 
rametrów należy uwzględnić na- 
stępujące uwagi: 

1 . Procedura „Supertekst" nie 
sprawdza, czy kreślone znaki 
mieszczą się w obszarze wy- 
świetlania, 

2. Negatywy znaków mogą być 
tworzone dwoma sposobami: 
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a) podanie negatywów znaków 
w ciągu, który będzie kreślo- 
ny, 


b) podanie normalnych znaków 
w ciągu i zamiana wartość; 
RKZ i RKT. 


3. Jeśli parametrom RKZ i RKT 
przydzielona jest ta sama war 
tość (i prior jest dodatnie), ciąg 
znaków zostanie wykreślony 
lecz pojawi się jako ciągte kolo 
rowe bloki. 


4, Jeśli podana jest niewłaściwa 
ilość parametrów w instrukcji 
USR, „Supertekst” nie wykona 
żadnej akcji. 


5. Wartość A zwracana przez 
funkcję USR nie ma żadnego 
znaczenia. 


Przedstawiony poniżej program 
zawiera zarówno opisaną procedu- 
rę, jak i programy demonstracyjne 
pokazujące sposoby jej używania. 


„Supertekst" rozpoczyna się od 
linii o, numerze 8000. Początkowe 
instrukcje służą do wprowadzania 
właściwej procedury w języku 
wewnętrznym komputera. Proszę 
zwrócić uwagę na nietypowe ins- 
trukcje DATA oraz rozbudowane 
instrukcje ładowania kodu maszy 
nowego. Spowodowane to jest 
specyficzną postacią procedury, 
która umożliwia umieszczenie jej w 
dowolnym obszarze pamięci, a w 
szczególności w zmiennej teksto- 
wej. Taką postać nazywamy prze- 
mieszczalną. Wszystkie adresy w 
instrukcjach są względne, wyzna- 
czone względem początku proce- 
dury. Właśnie te adresy są ozna- 
czone jako liczby ujemne w ins- 
trukcjach DATA. 


SUPER TEKST ATARI 


HW 1000 REM 

ZC 1010 REM INICJACJA 

GT 1030 DIM S*(40) : DEG = ?' "PROSZĘ 
CZEKAC 45 SEK. " = GOSUB 8000 
II 1040 REM 

CR 1058 REM DEMO #1 

10 1060 REM 
XM 1070 GRAPHICS 7+16 
W 1080 S*=" INFORMATYKA" = XS=24 • YS 
=24 « ORIENT=0 « NR0WS=24 NC0LS=8 = 
FCR*3 •• BCR=0 = PR I OR=0 « GOSI >Z 8000 
HL 1090 S*= "KOMPUTERY" : XS-24 = YS=4 
4 * ORIENT=0 « NROWS=S ' NC0LS=8 1 FCR 
= 1 1 BCR=0 = PRIOR=0 : GOSUB 8000 
UT 1100 S$="SYSTEMY" ! XS=24 : YS=95 : 
ORIENT=0 = NR0WS=32 ■ NCOLS=16 • FCR 
=2 ' BCR=0 = PR I OR=0 « GOSUB 8000 
ZP 1110 S*=" ATARI " « NR0WS=8 = NCO 
LS=8 « FCR=3 > BCR= 1 PR I 0R= 1 
YI 1120 XS*7=YS=64=0RIENT=1 PRIOR 
=1= GOSUB 8000 

PB 1130 XS=151 1 YS=2 = 0RIENT=3 : GOSU 
B 8000 

ZR 1140 GOSUB 7000 
IN 1150 REM 

BM 1800 REM DEMO #2 

IP 1810 REM 

EX 1820 GRAPHICS 7+16=C0L0R 3 
WH 1840 PLOT 34, 2 'DRAWTO 126,2= DR 
AWTO 126,94= DRAWTO 34,94'DRAWT 
O 34/2 

QP 1850 PLOT 51 / 19 ! DRAWTO 109/19= 
DRAWTO 109/ 77= DRAWTO 51/ 77 DRA 
WTO 51/19 

TS 1860 PLOT 60/ 28 'DRAWTO 180/28= 
DRAWTO 180, 68= DRAWTO 60 ,68= DRA 
WTO 68/28 

CT 1870 PLOT 34/ 2= DRAWTO 60/28 
HX 1880 PLOT 126, 2 'DRAWTO 100/28 
DF 1890 PLOT 126/ 94 DRAWTO 100,68 
SZ 1900 PLOT 34 ,94 'DRAWTO 68,68 
DL 1910 S*=" ATARI" = FCR=2 = BCR=0 = NR 
0WS=8 = NC0LS=8 = PRI0R=8 
MM 1920 XS=60 = YS=27 = OR I ENT =0 = GOSU 
B 8800 

WS 1930 XS= 1 0 1 ' YS=28 = OR I ENT=3 = GOS 
UB 8000 

WH 1940 XS=98 = YS=69 = 0RIENT=2 = GOSU 
B 8000 

SV 1950 XS=58 = YS=67 = ORIENT=l = GOSU 
B 8000 

CS 1968 NROWS= 1 6 = NCOLS= 1 1 = FCR= 1 
NX 1970 XS=53 = YS= 1 8 = OR I ENT=0 = GOSU 
B 8800 

SR 1980 XS= 110 = YS=2 1 ' OR I ENT=3 = GOS 
UB 8008 

CA 1990 XS= 1 07 = YS=78 = OR I ENT=2 = GOS 
UB 8000 

NW 2000 XS=50 = YS=75 = OR I ENT = 1 = GOSU 
B 8080 

VP 2010 XS=6 1 = YS=67 = OR I ENT=0 = FCR= 
3 = BCR=2 NR0WS=39 = NC0LS=39 = PR I O 
R=1 

CY 2020 FOR 1=1 TO 18 
MP 2030 S*=" IKSIKSIKSX" =S*=SS(I, I 
) GOSUB 8008 
FC 2040 NEXT I 
ZT 2850 GOSUB 7000 
QU 2060 GOTO 1070 
IC 7000 REM 

VS 7010 REM ZMIANA KOLORU 

II 7028 REM 

CT 7030 FOR 1=1 TO 50= FOR J=0 TO 
2 = SETCOLOR J , RND<0>*16, RND<0)* 
16 'FOR W=1 TO 5 = NEXT W = NEXT J = 


NEXT 1= RETURN 
NG 8800 IF ASMLD= 1 THEN A=USR<ADR 
(ASM*) , ADR(S*) , LEN(S*> , XS, YS, O 
R I ENT , NROWS , NCOLS , FCR , BCR , PR I O 
R)-* RETURN 
EZ 8010 ASMLD=1 


SA 8020 DIM ASM* <725) 

00 8030 FOR I=ADR<ASM*> TO ADR < AS 
M*)+724 

QG 8840 READ A 

BJ 8050 ON <SGN(A)+2) GOSUB 8880/ 
8160/8220 
FO 8860 NEXT I 
QP 8070 GOTO 8000 
RD 8088 READ B 

QX 8090 ADDR=ABS<A)+256*ABS<B)+AD 
R<ASM*> 

KS 8180 ADDRH I = I NT < ADDR/256 ) 

EE 8110 ADDRL0=ADDR-256*ADDRH I 

WQ 8120 POKE I/ADDRLO 

SQ 8130 POKE 1+1 , ADDRHI 

KY 8140 1=1+1 

AX 8150 RETURN 

QZ 8160 READ B 

El 8170 IF B<0 THEN 8890 

AQ 8180 POKE I, A . 

CB 8190 POKE 1+1/ B 
KO 8200 1=1+1 
AN 8210 RETURN 
AA 8220 POKE I,A 
AT 8230 RETURN 

FS 8240 DATA 104/ 141 ,-255/0, 10, 17 
0,240/8 

OD 8250 DATA 104, 157, -255, 0, 202, 7 

6, -6,0 

QO 8260 DATA 173,-255,0/201/10/24 
0,1,96 

! BK 8?70 DATA 173,-16,-1/208, 1/96, 

173, -8 

EA 8280 DATA -1,208,1,96,173,-6,- 
1,208, 1 

1 *K 8290 DATA 96, 173, -10/ -1 , 41 , 3, 1 
41,-10 

ZX 8309 DATA -1,173,-18,-1/133/20 
3,173 

OR 8310 DATA -19,-1,133,204,169,0 
, 141 

RY 8328 DATA -17, -1 , 238, -17, -1 , 56 
,173 

AT 8330 DATA -16,-1,237,-17,-1, 16 
,3,76 

VC 8340 DATA -254,0,32,-32,-1,173 

,- 6,-1 

HN 8350 DATA 141 , -7, -1 , 206, -7, -1 , 

174, -7 

TM 8360 DATA -1,224,255,208,3,76/ 
-251,0 

NK 8370 DATA 172,-6,-1,32,-138,-1 
, 140,-3 

AH 8380 DATA -1, 173, -6,-1, 174,-17 
,-1,172 

FO 8390 DATA -7,-1,32,-195,-1,140 

,- 20,-1 

HM 8400 DATA 142,-21,-1,169,255,1 
41,-9 

PB 8410- DATA -1,238,-9,-1,174,-9, 
-1,236 

IR 8420 DATA -8,-1,208,3,76,-248, 
0, 172 

QS 8430 DATA -8,-1,32,-138,-1,140 
,-5,-1 

XJ 8448 DATA 172, -5,-1, 177,205, 17 
2, -3,-1 

ZU 8450 DATA 57,-24,-1,240,2,169, 

1.141 

QV 8460 DATA -1,-1,173,-135,-1,24 
0,9,56 

BL 8470 DATA 169,1,237,-1,-1,141, 

- 1,-1 

ZM 8480 DATA 173,-1,-1,208,5,173, 

0,-1 

WM 8490 DATA 240,46, 174, -2,-1, 173 

,- 1,-1 

LH 8500 DATA 240,3,174,-4,-1,142, 

- 212,-2 

QY 8510 DATA 173, -8, -1 , 162, 1 , 172, 
-9,-1 

KU 8520 DATA 32,-195,-1,140,-22,- 

1.142 
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WU 8530 DATA -23,-1,32,-16,-2,173 
,-184 

OH 8540 DATA -2, 174, -183, -2, 172, - 
185,-2 

AT 8550 DATA 32, -187, -2, 76, -134, 0 
,76,-89 

YT 8560 DATA 0,76,-65,0,96,0,0,0, 

0 , 0 , 0,0 

UH 8570 DATA 0,0, 0,0, 0,0, 0,0, 0-0 • 

0 , 0 , 0,0 

GA 8580 DATA 0,0,0,0,1,2,4,8,16,3 

2.64 

CS 8590 DATA 128,169,0,141,-135,- 
1,172 

NG 8600 DATA -17, -1 , 136, 177, 203, i 
41,-136 

GI 8610 DATA -1,16,13,169,1,141,- 
135,-1 

IY 8620 DATA 173,-136,-1,41,127,1 
41,-136 

HF 8630 DATA -1,56,173,-136,-1,23 
3,32,16 

PA 8640 DATA 12,24,173,-136,-1,10 

5.64 

AE 8650 DATA 141 , -137, -1 , 76, -107, 
-1,56 

WO 8660 DATA 173,-136,-1,233,96,1 
6,12,56 

IK 8670 DATA 173,-136,-1,233,32,1 
41,-137 

RC 8680 DATA -1 , 76, -107, -1 , 173, -1 
36,-1 

EY 8690 DATA 141,-137,-1,169,0,13 
3,206 

BG 8700 DATA 173,-137,-1,133,205, 
162,3 

AR 8710 DATA 24,38,205,38,206,202 
,208 

CW 8720 DATA 248,24,165,206,109,2 
44,2 

BO 8730 DATA 133,206,96,0,0,0,142 
,-193 

CC 8740 DATA -1,140,-194,-1,142,- 
191,-1 


OM 8750 DATA 
2,3,24 
TY 8760 DATA 
1,202 

LJ 8770 DATA 
56, 173 
ZV 8780 DATA 
141 

RS 8790 DATA 

233.0 

LX 8800 DATA 
42,-191 
KI 8810 DATA 
2,-2 

OT 8820 DATA 
,-14,-2 
XE 8830 DATA 
2,-2 

WV 8840 DATA 

2.169.0 
JL 8850 DATA 

2,202 

FW 8860 DATA 

2.233.1 
PW 8870 DATA 

2,233,0 
EL 8880 DATA 
4,-2 

WZ 8890 DATA 
2,168 

MT 8900 DATA 
,-15,-2 
DO 8918 DATA 
10,-1 

QX 8920 DATA 
, 109 

GK 8930 DATA 
73,-15 

LJ 8940 DATA 
84,-2 

ZC 8950 DATA 
2,-1 

HF 8960 DATA 
-1,237 


169.0. 141,-192,-1,16 
46,-191,-1,46,-192,- 
208,246,160,255,200, 
-191,-1,237,-194,-1, 
-191,-1,173,-192,-1, 
141,-192,-1,16,235,1 
-1,96,0,0,0,0,141,-1 

140, -13,-2,169,0,141 

141, -15,-2,24,173,-1 
109,-14,-2,141,-14,- 
109,-15,-2,141,-15,- 

208.235.56. 173, -14,- 
141,-14,-2,173,-15,- 
141,-15,-2,56,173,-1 
237,-13,-2,141,-14,- 
173,-15,-2,233,0, 141 

170.96.0. 0.0.0. 174,- 

208.39.24. 173, -14,-1 
-20,-1,141,-183,-2,1 
-1,109,-21,-1,141,-1 

56.173, -12,-1,237,-2 
141,-185,-2,173,-13, 


CE 8970 DATA -23,-1,141,-186,-2,9 

6,202 

XO 8980 DATA 208,39,56,173,-14,-1 
,237 

IC 8990 DATA -22,-1,141,-183,-2,1 
73,-15 

MV 9000 DATA -1,237,-23,-1,141,-1 
84,-2 

VP 9010 DATA 56,173,-12,-1,237,-2 

0,-1 

MC 9020 DATA 141,-185,-2,173,-13, 
-1,237 

AB 9030 DATA -21,-1,141,-186,-2,9 

6,202 

UL 9040 DATA 208,39,56,173,-14,-1 
,237 

FZ 9050 DATA -20,-1,141,-183,-2,1 
73,-15 

LZ 9060 DATA -1,237,-21,-1,141,-1 

84, -2 

UP 9070 DATA 24,173,-12,-1,109,-2 

2,-1 

KF 9080 DATA 141,-185,-2,173,-13, 
-1,109 

RR 9090 DATA -23,-1,141,-186,-2,9 
6,24 

KG 9100 DATA 173,-14,-1,109,-22,- 
1,141 

GA 9110 DATA -183,-2,173,-15,-1,1 
09,-23 

UF 9120 DATA -1,141,-186,-2,24,17 
3,-12 

LD 9130 DATA -1,109,-20,-1,141,-1 

85, -2 

IZ 9140 DATA 173,-13,-1,109,-21,- 
1,141 

ZO 9150 DATA -186,-2,96,0,0,0,0,1 
34,85 

NN 9160 DATA 133,86,132,84,162,96 
, 169,11 

GI 9170 DATA 157,66,3,169,0,157,7 
2,3,173 

EX 9180 DATA -212,-2,32,86,228,96 

,1 


REVEHSI 

Jedną z ciekawszych gier, jakie 
mamy dla komputera Atari jest 
REVERSI. Nie odznacza się osza- 
łamiającą grafiką ani fascynują- 
cym dźwiękiem. Nie przenosi nas 
również w inny, nieznany świat. 
Jednak każda rozgrywka jest intere- 
sująca, tym bardziej że jej przebieg 
zależy od nas. Gra nie wymaga 
biegłości w posługiwaniu się mani- 
pulatorem ani dobrego refleksu. 
Wymaga za to logicznego myślenia 
i przewidywania skutków posunięć. 

Program jest komputerową wers- 
ją tradycyjnej gry, znanej od końca 
XVIII w„ szczególnie chętnie upra- 
wianej w drugiej połowie XIX wieku 
w całej Europie. 

Do gry potrzebna jest plansza o 
64 polach (jak zwykła szachowni- 
ca, lecz jednobarwna) oraz_64 
specjalne piony — każdy z nich 


jest z jednej strony biały, a z drugiej 
czarny, może więc być użyty jako 
biały lub czarny, w zależności od 
położenia na planszy. 

Celem gry jest ustawienie, a do- 
kładniej uzyskanie na planszy ma- 
ksymalnej liczby własnych pionów. 

Rozpoczynającego grę wyzna- 
cza się przez losowanie. Obydwaj 
gracze, na zmianę, kolejno ustawia- 
ją swoje piony na planszy. Pion raz 
postawiony nie wykonuje żadnych 
ruchów, kolejne posunięcia polega- 
ją na dostawianiu na planszy coraz 
to nowych pionów. 

Obowiązkiem graczy jest w 
pierwszych czterech ruchach 
ustawić piony na czterech central- 
nych polach planszy (D4, D5, E4, 
E5). W następnych ruchach gracze 
ustawiają swoje piony już na do- 
wolnie wybranych polach, przy 
czym w wyniku każdego posunię- 
cia co najmniej jeden pion prze- 


ciwnika musi zostać zdobyty. Jeśli 
gracz, na którego przypada koleje 
ność wykonania ruchu, nie jest w 
stanie zrobić tego, tak by zdobyć 
przynajmniej jeden pion przeciwni- 
ka, musi zrezygnować z wykonania 
ruchu, 

Bicie pionów odbywa się przez 
oskrzydlenie z dwóch stron pól 
przeciwnika — pjonowo, poziomo 
lub po przekątnej. Piony przeciwni- 
ka, znajdujące się pomiędzy na- 
szymi, zostają zdobyte; odwrócone 
na drugą stronę stają się naszymi. 

Jeden i ten sam pion, stojący na 
planszy, może więc w toku roz- 
grywki wiele razy zmieniać przyna- 
leżność do jednego lub drugiego 
gracza. Często znaczna przewaga 
może być zniwelowana przez jeden 
strategicznie umieszczony pion. 

W komputerowej wersji gry od- 
powiednia plansza pojawia się na 
ekranie z czterema pionami usta- 
+ 
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wionymi w centralnych polach 
planszy. Jeden ' gracz może grać 
przeciwko drugiemu lub kompute- 
rowi na trzech różnych poziomach, 
za pomocą manipulatora. 

Na najłatwiejszym poziomie 
komputer zawsze stara się zabrać 
jak najwięcej pionów w jednym ru- 
chu (podobnie grają początkujący 
gracze) i daje się tatwo ograć. Za 
to na najwyższym poziomie rozwa- 
ża swoje ruchy, nasze odpowiedzi i 


swój następny ruch; bierze również 
pod uwagę każde pole, ponieważ 
niektóre z nich są traktowane jako 
bardziej wartościowe niż inne. Inna 
opcja oferuje niezwykłą włas- 
ność — możemy zobaczyć, w jaki 
sposób komputer wyznacza swój 
następny ruch (dostępne na naj- 
wyższym poziomie). Wyświetla wtedy 
liczbę pól, które będą uzyskane 
dla dowolnego ruchu i wartość 
każdego kwadratu (pola) po roz- 



KTO WINIEN? 

Prezentowany program jest 
komputerową... opowieścią 
Kryminalną. Ma ona 2295 od- 
mian, które zapewnia funkcja 
RANDOM 

A oto fabuła opowieści. Popeł- 
niono przestępstwo. Nie perfid- 
ne morderstwo, lecz „zwyczaj- 
ną” kradzież. Jaką? Poda kom- 
puter! „Zaprezentuje" on ośmiu 
zatrzymanych. Należy zdecy- 
dować, Kto winien? 

Przesłanką są zaprezentowa- 
ne „ustalenia”, metodą zaś — 
dwa podstawowe pytania kry- 
minalistyki: 

1 . — KTO zostawi i ślady? 

2. — KTO skorzysta t z kradzie- 
ży? 

„Śledztwo" jest dwuetapowe: 
najpierw uzyskujemy część da- 
nych i wstępnie typujemy win- 
nych. 

W drugim etapie dostajemy 
pełną dokumentację i podejmu- 
jemy ostateczne decyzje. 


Czy były one słuszne? Odpo- 
wie... komputer. 

Program wywołuje etykieta 
„X" (RUN 100). 

Uwaga! W programie wykorzy- 
stano „japońskie delikatesy 
120:Restore 10 — oznacza 

10: DATA "ADAM", "J 
AN", "EDWARD”, " 
HENRYK", "ZENON 
", "MARIAN", "PA 
NEL", "ROMAN" 

20: DATA “ ŻYJE UB 
OGO", " ŻYJE SK 
ROMNIE", " ŻYJE 
ŚREDNIO" 

30: DATA " CZESTE 
LIBACJE", " BUD 
UJE GARAŻ V S 
TAW.IA DOM" 

40: DATA " WŁAMANI 
E DO", " OGRABI 
ENIE", ", WYNIEŚ 
IEN1E Z" 

50: DATA " PAWILON 
U", " MAGAZYNU" 

, " KASY" 

60: DATA " ŚLADY P 
ALCOW", " NITKI 
UBRANIA", " SL 


ważeniu innych możliwych ruchów. 

Komputer jest wymagającym 
przeciwnikiem, zmuszającym nas 
do intensywnego myślenia. Umoż- 
liwia nam również, po nabraniu 
wprawy, rozegranie partii z praw- 
dziwym ludzkim przeciwnikiem 
Dostarcza nam planszę i piony, 
przestrzega zasad gry oraz na bie- 
żąco podaje wynik. 

Ludwik PIELA 
Tomasz MROWIEĆ 


SHARP 


„czytaj dane (Data) TYLKO linii 
10”. 280:ON A GOSUB 300, 
320. 330 — "gdy A = 1 , adresuj 
300; gdy A = 2, to 320; gdy 
A = 3, to 330". 

■ Życzymy osiągnięcia abso- 
lutnej biegłości... 

Janusz MILLER 

ADY OBUWIA" 

70: DATA " KILKA U 
L0S0W", " NI EDO 
PALEK", " BRAK 
ŚLADÓW" 

80: A=INT Y: Y=< Y-A 
1*10: B-INT Y: Y 
=<Y-B)*10 
90: C=INT Y: Y=(Y~C 
)*10: D=Y: 

RETURN 

100: "X":ĆLEAR : 

RANDOM : USING 
: WA1 T 0: PR1NT 
"ŚLEDZTW 
O" 

1 10: DIM X$<8), K$(6 
.1, Z$<6>, S$<6), 
X<8), YC8) 

120: RES TORĘ 10: FOR 
K- 1 TO 8: READ X 
$ CK): NEXT K ^ 

130:RESTORE 20: FOR W 
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K=1T0 3: READ K 

290: ŃEXT K: PR INT . " 

440: INi-uT WINitN 

* <K1 : NEXT K 

Z A T R Z Y M 

? T=1 N=0- ” i E: 

140: RESTORE 30: FOR 

A N I“:60T0 36 

IF E=1LET Y<T.) 

K-4T0 6: READ K 

0 

-3 

*<K1:NEXT K 

300: X(Kl-X<Kl+0. 6 

450: IF E=0LET Y<T1 

150: RESTORE 40THJR 

310: R=RND 6:X<K1=X 

= 1 

K=1T0 3: READ Z 

<K1+R<100+R/1E 

460: NEXT K: IF Q=1 

*<Kl:NEXT K 

3: RETURN 

THEN PRINT “W 

160: RESTORE 50: FOR 

320: R=RND 5:XCK1=X 

Y N I K .1": 

K=4TO 6: READ Z 

<K1 +R/'10: GOTO 

GOTO 480 

t<Kl : NEXT K 

310 

470: PRINT "ETAP DR 

170: RESTORE 60: FOR 

330:R=RND 5:S=RND 

UGI " : Q= 1 : GOTO 

K=1 TO 3: READ S 

3: T=CRND 31+3 

360 

»<K1:NEXT K 

340: X(K1=X<K1+R/M0 

480: WAI T 0:U*=" UW 

180: RESTORE 70: FOR 

+S/100+T^lE3i 

AGA ! ”:W=" w 

K=4TO 6: READ S 

RETURN 

INNY ":N$=" Ń1 

*<K1:NEXT K 

350: R=RND 3: S=CRND 

EW INNY ":D$=" 

190: G-RND 8:F0R K= 

3 1+3.: PRINT Z*< 

ZGODA: " 

1 TO G 

R1JZ*(S1:Q=0 

490: FOR K=1T0 8:A= 

200: R=RND 8: 1F X<R 

360: U-0: W=RND 8: 

INT X<Kl:B=Y(K 

1 10GOTO 200 

FOR K= 1 TO 8 

l?C*=X*<Kl: 

210: X <R1=3: NEXT K: 

370: T=W+K: IF T>8 

PRINT STR$ K;: 

WA1T 

LET T=T.-8 

WAI.T 

230: FOR K=1T0 8:IF 

380: IF <0=11 AND <Y 

500: IF <A<31 AND <8- 

X (K) >0GOTO 260 

<TK31G0T0 460 

<31 THEN PRINT 

240: R-RND 2: 1F R=2 

330: Y=XCT!:0OSUB 8 

D*;C$;N* 

LET X(K1=1 : 

0:U=U+1 

510: IF < A=31 ANll <B 

GOTO 260 

400: PRINT U;"' INIE 

-31 THEN PRINT 

250: X CK 1=2 

: "iX$<;Tl 

D$;c$;W* 

260: NEXT K: R=RND 3 

410: PRINT “DOWODY: 

520: IF (A-.31AND <B 

: S=(RND 31+3: 

";S$(B! 

<31THEN PRINT 

PRINT Z*(R1;Z* 

420: PRINT “ZWYKLE: 

U*;C*;W* 

<S> 

' j K$(C1 : IF Q= 

530: IF < A<31 AND <B 

270: FOR K=1T0 8:A= 

0GOTO 440 

=31 THEN PRINT 

INT X<K1 . 

430: PRINT "OSTATNI 

U*; C$; N* . 

280: ON AGOSUB 300, 

0: ";K*<D1 

540: WAIT 0: PRI : NT " 

3?0, 930 


" : NEXT KśEND 


5 REM * GRAFIKA ATARI * 
*HIPERBOLOIDA JEDNOOBRO 
TOWA * 

10 GRAPHICS 8 ! COLOR 1>P 
1-3. 14-N*-10 
20 FOR A— PI TO PI STEP 
0.01*PI :Rfi«=A+2/3*PI 
30 X=INT<C0SCA>*451'XX= 
INT <COS< AA)*45> ■ Y-INTCS 
IN(A>*1?> • YY-INTCSINCAA 
>*17> 

40 IF A=N*PIxl0 THEN N- 
N+l i PLOT 1 60+X , 30+Y * DRA 
WTO 160+XX, 120+YY 
50 PLOT 160+X, 30+Y < PLOT 
1 S0+XX .120+YY- NEXT A 

JANUSZ W. JANIEC 
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MIKROKOMPUTERY IBM PC (2) 


S ystem mikroprocesorowy, tworzący 
mikrokomputer IBM PC/XT, można 
zaliczyć do systemów wieloproce- 
sorowych z dzieloną magistralą lokalną, a 
uściślając: przypisać go do systemów wie- 
lomikroprocesorowych silnie powiązanych, 
gdyż komunikacja między mikroprocesora- 
mi odbywa się przez wspólną pamięć ope- 
racyjną. 

Z punktu widzenia funkcjonalnego w sys- 
temie można wyróżnić cztery zasadnicze 
podsystemy: podsystem mikroprocesora i 
współpracujących z nim elementów, podsy- 
stem pamięci stałej ROM. podsystem 
pamięci zapisywalnej RAM. podsystem 
wejścia — wyjścia. 

2, punktu widzenia konstrukcyjnego sys- 
tem można podzielić na pakiety między in- 
nymi: pakiet systemowy i pakiety dodatkowe 
(rozszerzające). Na rysunku 3 przedstawio- 
no uproszczony schemat blokowy mikro- 
komputera IBM PC/XT. 

W systemie IBM PC/XT jako jednostkę 
centralną wykorzystano INTEL 8088, będą- 
cy wersją 16-bitowego mikroprocesora 
INTEL 8086. wersją z 8-bitową zewnętrzną 
magistralą danych Mikroprocesor 8088. 
zastosowany w omawianym mikrokompute- 
rze, pracuje z częstotliwością zegara 4,77 
MHz. Sygnał zegarowy dla mikroprocesora 
dostarcza układ 8284, generator sygnału 
zegarowego. Źródłem częstotliwości steru- 
jącej pracą układu 8284 jest zewnętrzny re- 
zonator kwarcowy o częstotliwości 
14,31818 MHz. która to częstotliwość dzie- 
lona jest przez 3. 

Częstotliwość 4.77 MHz pozwala na pra- 
cę mikroprocesora 8088 z cyklem magistrali 
trwającym cztery takty zegara po 0,210 /zs 
lub 0,840 /zs. 

Układy wejścia — wyjścia pracują z cy- 
klem pięciu taktów zegara po 0,210 jus lub 
1.05 jus. 

INTEL 8088 ma 20-bitową magistralę ad- 
resową (2 : ' n ~ 1 MB = 1024 KB. przy czym 
1 KB. = 1 024 bajty), a więc może adresować 
przestrzeń 1 048 576 bajtów. Z 'ośmioma 
mniej znaczącymi bitami adresu multiplek- 
sowane są bity danych. Bity adresowe i bity 
danych przekazywane są do Układów 
współpracujących z mikroprocesorem za 
pomocą buforów adresowych i buforów 
danych. 

Mikroprocesor 8088 steruje pracą pozo- 
stałych elementów systemu przez kontroler 
magistrali sterującej, układ 8288, nazywany 
również generatorem sygnałów magistrali 
sterującej w konfiguracji maksymalnej (mik- 
roprocesora 8086 lub 8088) 

Koprocesor INTEL 8087 jest procesorem 
numerycznym i przeznaczony jest do wyko- 
nywania operacji arytmetycznych. Pracuje 
równolegle z jednostką centralną (zwaną 
mikroprocesorem nadrzędnym), pobiera ten 
sam ciąg rozkazów, ale wykonuje rozkazy 
przeznaczone tylko dla niego 
Programowalny kontroler przerwań 
8259 A przeznaczony jest do nadzorowania 
przerwań (żądań obsługi) przekazywanych 


do mikroprocesora przez układy współpra- 
cujące. Układ 8259 A umożliwia realizację 
ośmiopoziomowych przerwań prioryteto- 
wych, tzw. przerwań maskowanych INTR. 
Sześć przerwań przekazywanych jest do 
pakietu systemowego z pakietów dodatko- 
wych, dołączonych do systemu za pomocą 
złączek (łączówek). Wśród sygnałów przer- 
wań. zgłaszanych przez pakiety dodatkowe 
są sygnały z dysku stałego, dysku elasty- 
cznego. drukarki. Dwa kolejne przerwania 
zgłaszają uktady z pakietu systemowego: 
moduł czasowy 8253 i klawiatura. W oma- 
wianym systemie realizowane jest również 
przerwanie niemaskowalne. po wykryciu 
błędu parzystości w pamięci operacyjnej. 

Sterownik DMA (Direct Memory Access) 
8237 A umożliwia prowadzenie szybkich 
transmisji między modułami zewnętrznymi 
mikrokomputera a pamięcią operacyjną, z 


pominięciem mikroprocesora. Steruje on 
transmisję danych odczytanych (zapisywa- 
nych) na dysku do/z pamięci operacyjnej. 

Moduł czasowy (Timer/Cunter) 8253 wy- 
korzystywany jest do generowania przebie- 
gów wyjściowych o zadanej częstotliwości, 
przebiegów sterujących głośnikiem mikro- 


komputera. przez równoTegly programowa- 
ny moduł sprzęgający 8255. 

Poprzez porty (bramy wejścia — wyjścia) 
układu 8255 informacje z /do magistrali da- 
nych przekazywane są do/ z różnych ukła- 
dów pakietu systemowego, m.in. do głośni- 
ka. 

W systemie znajduje się 256 KB pamięci 
operacyjnej RAM, w czterech blokach 
64 KB X 9, dziewiąty bit to kontrolny bit pa- 
rzystości. W jednym bloku znajduje się 
dziewięć układów pamięci dynamicznej, o 
organizacji 64 K X 1 bit i czasie dostępu 
0.200 /zs Pamięć operacyjną można zwięk- 
szyć do 640 KB po dołączeniu do pakietu 
systemowego, poprzez jedną ze złączek pa- 
kietu dodatkowego, zawierającego również 
układy organizujące pracę: monitora mono- 
chromatycznego i drukarki matrycowej, 
mechanizmów dysków elastycznych, moni- 
tora kolorowego itp. Kolejne złączki umożli- 
wiają dołączanie innych pakietów. 

Ostatnim z omawianych elementów jest 
pamięć stała. Mogą to być pamięci ROM lub 
EPROM. W pakiecie znajdują się dwa ukła- 


dy o organizacji 32 K X 8 bitów. Mikro 
komputer wykorzystuje do 40 KB pamięci 
stałej, w której zapisany jest ROM-BIOS* in- 
terpreter języka BASIC, diagnostyka. 

Dalszy opis mikrokomputera w następ- 
nym numerze „IKS-a 


Jacek WOJTALA 




IBTOR f»3 TO 80: CCS 
80 O IM a ii) : DIM- bii) 

30 FOR (1=1 TO i: FOR l»ll TO 1 

53 

N 

STEP -1: LET a (n ) =128 + INT ( .5+86 

■— 

♦SIN (S* (n-1) *PI/i ) ) 

o N 

5 

40 LET Mn)=86 + INT i.S+86*C0S 


ia* (n-1) tPI/i ) ) 


50 PRINT 80 j RT 1.15; i 

CU >, 


60 PLOT a in ) , b (n ) : DRRU a im) -a 

cl ^ 

U) * 

CE 

i n ) . b i r„ > - b ( n ) 

“i 

70 BEEP .01,3*Jń: NEXT W) : NEXT 
n 


80 PfiUSE 50: NEXT i: GO TO 10 
90 SROE ■■♦KRYSZTAŁ*" LINĘ 10 
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KRESKA 

BASIC CPC 464 (4) 


MODUŁOWY PROGRAM GRAFICZNY 

Obecnie przystąpimy do rozszerzenia programu KRESKA o następujące 
funkcje: 

— kreślenie elipsy 

— kreślenie trójkątów: równoramiennego i o dowolnym kształcie. 


Kreślenie elipsy opiera się na tej sa- 
mej zasadzie co rysowanie okręgu. Pier- 
wsze naciśnięcie FIRE/COPY wyzna- 
cza środek elipsy. Dalsze przemie- 
szczanie kursora graficznego po ekra- 
nie określa zmianę długości pierwszej 
osi elipsy. Ponowne wciśnięcie 
FIRE/COPY powoduje wyliczenie jej 
długości. . Analogicznie wyznaczana 
jest długo& drugiej osi. Samo kreśle- 
nie elipsy polega na wyznaczaniu na 
ekranie monitora wszystkich punktów o 
współrzędnych x,y spełniających wa- 
runki: 

x = xc% 4- r * cos(a) 
y = yc% +.p * sin(a) 
gdzie: 

xc%, yc%, — współrzędne środka 
elipsy 

r — połowa długości pierwszej osi 
p — połowa długości drugiej osi 
a — kąt od 0° do 360°. 

W związku z podobieństwem algoryt- 
mu kreślenia elipsy i okręgu, dokonujemy 
modyfikacji procedury rysowania 
okręgu, m.in. wprowadzając linie 
programu odnoszące się do nowej 
funkcji. Wprowadzony parametr w$ ste- 
ruje zmodyfikowaną procedurą w nastę- 
pujący sposób: 
w$ = „E" — kreślenie elipsy 
w$ = „O" — kreślenie okręgu. 

W wypadku rysowania dowolnego 


trójkąta wyznaczamy kolejne jego 
wierzchołki, przemieszczając po ekra- 
nie kursor graficzny, oraz naciskając 
FIRE/COPY. Po określeniu współrzęd- 
nych trzeciego wierzchołka następuje 
wykreślenie figury. Aby otrzymać na 
ekranie trójkąt równoramienny, wyzna- 
czamy punkty wierzchołkowe podstawy, 
a następnie z jej środka wyprowadza- 
my wysokość. Po jej wyznaczeniu (na- 
ciśnięcie FIRE/COPY) zostaje wykreś- 
lony trójkąt. 

Prezentowany dodatkowo program 
RSX LOADER został zaczerpnięty z lu- 
towego numeru pisma PC WORLD. 
Program ten rozszerza interpreter 
BASICa o dwie nowe komendy emulu- 
jące SCREENSWAP, znany z CPC 
6128. Aby zapamiętać zawartość ek- 
ranu w pamięci RAM używamy ko- 
mendy SCREENCOPY, a odtworzenie 
uzyskujemy stosując komendę: 
SCREENSHOW. Aby uaktywnić powy- 
ższe komendy należy: 

a. wyzerować komputer 

b. wczytać i uruchomić program RSX 
LOADER 

c. usunąć linie programu RSX LOADER 
z pamięci np. komendą DELETE. 

O możliwościach wykorzystania tych 
dodatkowych komend w programie 
KRESKA w następnymmumerze. 

JANEK 


10 REM********************************** 
20 REM* RSX LOADER * 

30 REM* na podstawie PC WORLD 2/1987 » 
40 REM********************************** 
50 IF PEEK (42750) =1 THEN MODĘ 2:PRINT 'R 
SX’y sa juz załadowane... ':END ELSE NEMO 
RY 25999:wsk=0:FOR a=42750 TO 4281 6: RE AD 
al:b=VAL('i'+a$) :P0KE a,b:wsk=wsk+b:NEX 
T 

60 IF wsk 06502 THEN MODĘ 2SPRINT *Blad 
w DATA" sEND 

70 CALL 6A6FE-.M0DE 2:PRINT 'RSX'y został 
y zainicjalizowane' 

80 DATA 01r08iA7»21>25fA7>C3rDlrBCrC9rl0 
r A7r C3r35f A7tC3»29vA7v53»43fS2»45 
90 DATA 45f4Ei53f48»4F»D7r53»43ł52»45i45 

'4E'43'4F'50'D9'00'00r00'08>A7'll 
100 DATA 90>65'21'00'C0'01>00'40'EDrB0>C 
9rllr00'C0r21f90>65'01'00>40'ED’B0 
110 DATA C9>00'00'00f00f00'00'00,00r00'0 
0 ' 00 > 00 ' 00 ' 00 > 00 > 00 ' 00 ' 00 > 00 ' 00'00 


1990 CLS S2:PRINT 42»' (O)KRAG (DZUOROK 
AT (T)ROJKAT' 

2000 LOCATE 42»2»2:PRINT 42»'(E)LIPSA 
(P)OWROT DO MENU ' 

2010 IF INKEY (34) =0 THEN w$='0': GOTO 20 
80 

| 2015 IF INKEY (58) =0 THEN w*='E': GOTO 20 
80 

2035 IF INKEY (51) =0 THEN 4000 
2060 REM KREŚLENIE OKRĘGU I ELIPSY 
2080 CLS S2SIF w*='0' THEN PRINT 42>' WY 
ZNACZ ŚRODEK OKRĘGU LUB P' 

2085 IF w0='E' THEN PRINT 42,' WYZNACZ S 
RODEK ELIPSY LUB P' 

2120 IF INKEY (FX)=0 AND w<='0' THEN cxX= 
xZ:cyX=yX:LOCATE 42,2,l:PRIWT 42, 'WYZNAĆ 
Z PROMIEŃ OKRĘGU' :FOR i=l TO 150:NEXT i: 
GOTO 2150 

.2125 IF INKEY (FX)=0 AND w*='E' THEN cxX= 
xX:cyX=yX:LOCATE 42,2»1:PRINT 42, 'WYZNAĆ 
Z PIERWSZA OS ELIPSY ':FOR i=l TO 150: 
NEXT i: GOTO 2150 

2170 IF INKEY(FX)=0 AND w$=*0' THEN oxX= 
xX:oyX=yX:LOCATE 42»2»1:PRINT 42, 'WYZNAĆ 
Z ŚRODEK OKRĘGU LUB P':GOTO 2200 
2175 IF INKEY (FZ)=0 AND w$='E' THEN oxX= 
xX:oyX=yX:LOCATE 42,2,1:PRINT 42, 'WYZNAĆ 
Z DRUGA OS ELIPSY " :PLOT oxX,oyX,l: 
xX=cxX : yX=cyX : qX=0 : MOVE cxX»cyX:GOTO 219 
1 

2191 GOSUB 1070:GOSUB 1210:GOSUB 1120:60 
SUB 1010:GOSUB 1070 

2192 IF INKEY (FX)=0 THEN rxX=xX:ryX=yX:L 
OCATE 42,2,1:PRINT 42, 'WYZNACZ ŚRODEK Et 
IPSY LUB P':GOTO 2195 

2193 IF qX=0 AND (xXOcxX OR yXOcyX) TH 
EN PLOT cxX»cyX,l:MQVE xX»yX 

2194 GOTO 2191 

2195 d3X=cxX-r xX : d4X=eyX-r yX 

2196 d3X=ABS(d3X):d4X=ABS(d4X) 

2197 p=SQR ( (d3X A 2) ♦ (d4X A 2) ) 

2250 IF wl='0' THEN PLOT cxX+r*COS(aZ) ,c 
yX+r*SIN(aX)f kolor 

2255 IF w$='E' THEN PLOT cxX+r*COS(aX),c 
y/+p*SIN(aX), kolor 




O 

CD 

CL 

CO 


RBRBRBRBRBRBRBRBRBRBRBRBRBRBRBRB 
CDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCD 
: LET b$ = " ” : FOR Wisi TO 11: LET 
b* =bS+a t : NEXT to: CLS 
30 FOR 2=0 TO 7 
40 LET a =INT (RND*£55) 

50 POKE 22432, a 

60 LET b*POINT (0,0) +2*P0INT ( 
1,0) + 4 *P0 INT (2,0) +8*P0INT (3,0) 

+ 16*P0INT (4,0) +32*P0INT (6,0) +6 

4 *PQ INT (6,0) +128*P0INT (7,0) 

70 POKE 65368+z , a 
80 POKE 65376+Z , b 
90 POKE 6539 1 -Z , a 
100 POKE 65399 -Z , b 
110 NEXT Z : REM RB CD a RB CD 
120 PRINT 80; RT l,15;n: LET n =n 
+1: BEEP . 02 , a /8 
130 PRINT RT 0,0; b*: GO TO 30 
200 5RUE " łrKILIM#" LINĘ 10 

J. Rubinowicz 
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4999 HEMwti M iii wi iH H i H iiii mm ii 
4#ll REM KREŚLENIE TROJKATA 
4921 HEH*<ihh*hhhh»«»hhihh«im 
4925 CLS W.PRINT 92»' ’+CHR$(244)+' (R) 

OUNORAHIENNY (D) OWOLNY" 

4939 PRIMT 92»' (K)ENU KREŚLENIE <F)I 
6URY"» 

4949 IF INKEY(38)=9 THEN 569 
4959 IF INKEY (53) =9 THEN 1999 
4969 IF INKEY (59) =9 THEN mI=’R': GOTO 41 

99 

4989 IF INKEY (61) =9 THEN h$*’D': GOTO 41 

99 

4999 GOTO 4949 
4199 CLS 92 

4119 PRINT 92.' WYZNACZ PIERWSZY WIERZCH 
OLEK '? 

4129 LOCATE #2»1»2«PRWT 92»'UZYUAJ *'+C 
HR9 (249) +CHR9 (242) +CHR9 (243) +CHR9 (241)+' 
COPY LUB JOYSTICK' 

4139 GOSUB 1729tG0SUB 1979:GOSUB 1219 
4149 GOSUB 1919:GOSUB 1979:60SUB 1129 
4159 GOSUB 1919 
4169 IF INKEY (FX) =9 THEN 4189 
4179 GOTO 4139 

4189 xU*XPOS:ylX=YPOSłLOCATE 92il.UPRI 
NT 92,' WYZNACZ DRUGI WIERZCHOŁEK '? 
4199 qX*9 

4299 GOSUB 1729JG0SUB 1974:G0SUB 1219 

4219 GOSUB 1919:GOSUB 1979: GOSUB 1129 
4239 GOSUB 1919 

4249 IF qX=9 THEN PLOT xlX,ylX»UHOVE x, 
S 

4259 IF INKEY (FZ) =9 THEN 4279 

4269 GOTO 4299 

4279 x2X*XP0S:y2X=YP0S 

4275 IF «$»'R' THEN LOCATE 92»l»lsPRINT 

92 ,' WYZNACZ WYSOKOSC 'I 

4289 IF h$*'D' THEN LOCATE 42»M:PRINT 
42.' WYZNACZ TRZECI WIERZCHOŁEK m \ 

4399 qX a 9 

4319 IF «9*'R' THEN x4X=xlX+(x2X-xlX)/2* 
y4X a ylX+(y2X-ylX)/2:NOVE x4X»y4X:xX=XP0S. 
:yX=YPOS 

4329 GOSUB 172®:GDSyB 1979:C0SUB 1219 
4339 60SUB 1910:GOSUB 1979:G0SUB 1129 
4349 GOSUB 1919 

4345 IF qX=9 AND wi='D* THEN PLOT x2X.y2 
X»i:MWE xX»yX 

4359 IF INKEY (FX) =9 THEN 4379 

4361 GOTO 4329 

4379 x3X=XPQS:y3X=YPQS 

4389 MOVE xlX»ylX:CRAW x2X, y2X, kolor :DRA 

W *3X,y3X,kpłor:DRAU xtX,ylX, kolor 

4399 GOTO 4999 




W KLUBIE, 
KTÓRY BĘDZIE 

Pierwszy mikrokomputer Spectrum Plus, pojawił się w Wyższej 
Szkole Oficerskiej Wojsk Łączności Im. płk. B. Kowalskiego w 
październiku 1985 roku. Od siedmiu lat istniał już wówczas Ośrodek 
Obliczeniowy, który prócz usług informatycznych prowadził prace 
naukowo-badawcze dla potrzeb uczelni. Dzięki komputerowi „Odra 
1305" utworzono całą sieć abonencką, z końcówkami, drukarkami w 
komendzie i cyklach nauczania. Na podstawie systemu opracowane 
były różne programy specjalistyczne i uniwersalne. 


W miarę przybywania sprzętu, 
czyli mikrokomputerów, pra- 
cownikom ośrodka oraz pod- 
chorążym zamarzyło się pow- 
stanie klubu mikrokomputero- 
wego. Pozostaje on nadal w sfe- 
rze marzeń, choć już bardziej 
realnych. Klubu jako takiego nie 
ma, gdyż brak dla niego na razie 
pomieszczenia Najprawdopo- 
dobniej już w tym roku znajdzie 
swoje lokum w Klubie Podcho- 
rążego. Tymczasem trwają po- 
szukiwania nazwy dla klubu, któ- 
ry w świadomości sporej grupy 
zapaleńców już istnieje. Przy oś- 
rodku powstało Kolo Naukowe 
nformatyków. które wraz z 
■unkcjonującym przy jednym z 
syklów Kołem Naukowym Pod- 
chorążych Teleinformatyków 
skupia przyszłych członków klu- 
bu 

— Jest ich okoto czterdziestu 
— wyjaśnia kierownik ośrodka i 


zarazem opiekun komputerowej 
grupy, mjr Tadeusz Szuszkie- 
wicz — Polowa rekrutuje się spoś- 
ród słuchaczy szkoły oficerskiej, 
druga potowa to podchorążowie 
SPR. Mamy możliwość korzystania 
z kilkgnastu mikrokomputerów 
Spectrum, Unipolbrit 2086 i Am- 
strad 6128 M. Kilka spośród nich 
zawsze jest w ośrodku. Do tego 
dochodzi jeszcze kilka prywatnych 
mikrokomputerów, podchorążych, 
którzy nie potrafili rozstać się ze 
swoim sprzętem i zabrali go do 
szkoły. 

Komputerowa „mania" nie oka- 
zała się słomianym ogniem, lecz 
zjawiskiem znacznie trwalszym. Od 
lat ma swoich wiernych zwolenni- 
ków. T u też wzbudza ogromne zain- 
teresowanie. Podchorążowie pod- 
kreślają, że trudno dzisiaj oddzielić 
nowoczesną technikę od kompute- 
ryzacji. W programie zegrzyńskiej 
tąoznościówki jest nauka poslugi- 
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wania się miisrokompDlerem T pod- 
stawowego programowania. Tę 
wiedzę można wzbogacić na klu- 
bowych spotkaniach. 

Ważną rolę odgrywają tam słu- 
chacze Szkoty Podchorążych Re- 
zerwy. Są oni absolwentami reno- 
mowanych uczelni technicznych. 
Wielu z nich to informatycy lub cy- 
bernetycy. Oni organizują kursy ię- 
zyków, uczą zasad programowania 
i licznych sposobów wykorzystania 
mikrokomputera. Chętnych na te 
zajęcia jest tak dużo. że nie jest ich 
w stanie pomieścić sporych roz- 
miarów sala. 

Podchorążowie SPR KOfż/siaią 
ze sprzętu zgromadzonego w Os 
rodku Obliczeniowym i fachowej 
rady jego pracowników. Współpra- 
ca ta zresztą przeciąga się na dłuż- 
szy okres, trwa nawet już po 
przejściu podchorążych do cywila. 
Dobrymi tego przykładami są kon- 
takty z informatykami Akademii 
Górniczo-Hutniczej czy Politechni- 
ki Gliwickiej. Do WOSWŁ dociera w 
ten sposób trudna do zdobycia lite- 
ratura specjalistyczna, interesują- 
ce programy, a także sprawozda- 
nia z prowadzonych aktualnie prac 
naukowo-badawczych. 

htap zafascynowania giaini 
komputerowymi szybko minął. To 
naturalna kolej rzeczy, że zaczyna 
się od rzeczy najprostszych, choć 
efektownych. Teraz podchorążo- 
wie rozwiązują już konkretne prob- 
lemy, wyczytane w literaturze lub 
wynikłe z programu studiów. Za 
swoje największe osiągnięcie 
przyszli klubowicze uważają 
opracowanie egzaminatora z do- 
wolnego przedmiotu. Za ten pro- 
gram zostali wyróżnieni przez mi- 
nistra obrony narodowej. Poza tym 
większość czasu poświęcają na 
przygotowanie programów do za- 
stosowania w wojskach łączności. 

Sierż. pchor. WSO Krzysztof Fą- 
ferek jest właścicielem mikrokom- 


putera Atari 800 XL. Mówi, że td je- 
go wielkie hobby, któremu poświę- 
ca większość swego wolnego cza- 
su. Jest w tej korzystnej sytuacji, że 
nie jest ograniczony czasem i po 
zamknięciu ośrodka ma swój 
sprzęt, który zresztą udostępnia ko- 
legom. 

— Najczęściej pracujemy nad 
konkretnymi problemami — stwier- 
dza kpr, pchor. WSO, Tomasz 
Szafranowski — lecz w bardzo 
szerokim pojęciu. Rozwiązujemy 
bowiem skomplikowane kwestie 
techniczne, ale budujemy też po- 
moce naukowe do zdawania 
egzaminów, poczynając od regu- 
laminów, a kończąc na taktyce. 
Oczywiście staramy się tworzyć 
coś nowego, indywidualnego, mo- 
że nie mającego tak powszechne- 
go, praktycznego zastosowania, 
ale przynoszącego za to najwięcej 
satysfakcji i nowych doświadczeń. 

Absolwent Politechniki War- 
szawskiej. plut. pchor. SPR, Jacek 
Kuśmierczyk chwali sobie, że 
właśnie tutaj trafił do wojska. Jest 
informatykiem, ma więc szansę 
uzupełniać swoje wiadomości. 
Podczas studiów wiele się nauczył, 
został doskonale przygotowany 
teoretycznie, ale jeszcze dwa lata 
temu Politechnika nie dysponowa- 
ła odpowiednim zapleczem sprzę- 
towym. Tutaj więc weryfikuje swe 
umiejętności. Uczy kolegów, a przy 
okazji poznaje nowe typy mikro- 
komputerów. 

Widać, że ten nie istniejący je- 
szcze klub już działa. Ma ambicje 
oddziaływania nie tylko na słucha- 
czy szkoły, ale i na miejscową mło- 
dzież Żeby tak było. niezbędny jest' 
lokal i więcej sprzętu. Pomieszcze- 
nie wkrótce będzie, może znajdzie 
się i mecenas, który zwiększy stan 
posiadania o kilka mikrokompute- 
rów J. RAJCH 




W KLUE 
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JIE, KTÓRY BĘDZIE 



Sztuki i sztuczki (7) 


Zmienne systemowe 
ROM Soectrum 


Wskaźniki obszarów programu I zmiennych 
BASICa 

LISTSP 23563/4 
S— TOP 23660/1 
E — PPC 23625/6 
DEFADD 23563/4 
DATADD 23639/40 
DEST 23629/30 
STRLEN 23666/7 

Obszar, w którym przechowywana jest lista instruk- 
cji do interpretacji, nazywa się obszarem programu. 
Ograniczają go wskaźniki PRÓG i VARS W odpo- 
wiednim formacie może on być przekazany na ekran 
(lub drukarkę) po komendzie LIST (LLIST), Cieka- 
wym zjawiskiem w Spectrum jest listing automaty- 
czny. Instrukcje pojawiają się na ekranie po naciś- 
nięciu ENTER bez potrzeby wczytania LIST. S— TOP 
trzyma tzw. automatyczny numer linii. E— PPC — nu- 
mer linii podlegającej edycji po naciśnięciu EDIT. 
Jeśli E—PPC jest większe od S— TOP, tó linia z kurso- 
rem programu wystąpi na górze ekranu, w przeciw- 
nym razie na dole. LISTSP przechowuje na czas pro- 
cesu wskaźnik stosu. Bezpośrednia zmiana zawar- 
tości E—PPC np.: 

POKE 23625,100 
POKE 23626,0 

Wywoła podobny efekt, co LIST 1 00, lecz oczywiście 
ekran nie zareaguje przewijaniem w celu pokazania 
linii z kursorem. Listing automatyczny, choć wygodny 
dla raczkujących, wydaje się jednak zbędny, czego 
potwierdzeniem jest nieobecność tego zjawiska w 
innych mikrokomputerach. 

Dwie funkcje Baslc’a DEF FN i DATA możemy 
umieścić w dowolnym miejscu programu, pozwala- 
jąc interpreterowi na samodzielne ich odszukanie. 
Lepiej więc lokować je na początku, co przyśpiesza 
akcję. Są one związane ze zmiennymi systemowymi 
DATADD i DEFADD. W pierwszej z nich znajdzie- 
my adres wskazujący miejsce, od którego będzie 
czytać dane instrukcja READ. Zwykle jest to adres 
przecinka separującego kolejne elementy w instruk- 
cji DATA lub końca linii. Poniższy program zlicza 
dowolne dane umieszczone po słowie DATA: 


lOO DEF FN p(«)-PEEK a +2364PEEK (a+l) 
110 LET Blnm-O 

120 RESTORE 200l REM nuiriłr .linii 
130 LET ad- FN p (23639) +6 
140 IF PEEK ad< >34 THEN GOTO 160 
ISO LET ad-ad+ll IF PEEK ad< >34 THEN G 
OTO 150 

160 LET ad-ad+l+S*( PEEK ad-14) 

170 LET al am-al am+ ( PEEK ad-13 OR PEEK 
ad-44) 

ISO IF PEEK ad-13 THEN PRINT Bierni STOP 
190 GOTO 140 

200 DATA SIN PI , "S" , -3. 14e-9, INT 1.1, 

" " " . " " " , PEEK O . " k on i e»r " 

Niewątpliwym mankamentem Spectrum-Basic jest i 
brak instrukcji pomocniczych np. do przenumerowywa 
nia linii, automatycznego ich generowania, niszcze- 
nia bloków programu itp., które użytkownikom innych 
komputerów ułatwiają życie. Niezbyt fortunne roz- 
wiązanie klawiszy doprowadziło do ograniczenia 
liczby stów kluczowych, a co za tym idzie, do rezyg- 
nacji z wielu prostych w gruncie rzeczy funkcji. 

Dla przykładu program kasowania bloków linii zaj- 
muje tylko 45 bajtów. Wykorzystamy tu własność 
zmiennej DEFADD wskazującej na identyfikator 
pierwszego parametru wyrażenia DEF FN w mo- 
mencie obliczania wartości funkcji. Określmy funk- 
cję: 

10 DEF FN d(p,o) = USR 62000 
gdzie p jest pierwszą linią, zaś o ostatnią w bloku ! 
przeznaczonym do fizycznego zniszczenia - Oba pa- 
rametry muszą być liczbami naturalnymi. 

1® i »* DEL..ETE '85 
2® f GENS3M2 assembler 


3® 


ORG 

62000 

40 

DEFADD 

EQU 

23563 

5® 

PPC 

EQU 

23621 

60 

RECL1 

EGU 

019E5 

70 

LINEAD 

EQU 

019ĆE 

80 


LD 

IX> (DEFADD) 

V® 


LD 

L f (IX+4) 

10® 


LD 

H> ( IX+5> 

110 


CALL 

LINEAD 

120 


PUSH 

HL 

13® 


LD 

L> <IX+12> 

140 


LD 

H» ( IX+13) 

150 


INC 

HL 

16® 


CALL 

LINEAD 

170 


POP 

DE 

180 


AND 

A 

19® 


SBC 

HL i DE 

200 


RET 

C 

210 


ADD 

HL f DE 

220 


CALL 

RECL1 

230 


LD 

BC» (PPC) 

240 


INC 

BC 

25® 


BIT 

7 r B 

26® 


RET 

Z 

270 


LD 

BC r 1000® 

280 


RET 



Procedura jest dostosowana do współpracy z ko- 
mendą GO TO, a więc kasowanie bloku powinno od- 
być się po instrukcji np. 
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GO TO FN d (3000, 5000), 

którą można użyć jako linię w programie, pozwalając 
nawet, aby skasowała sarną siebie. 

Opis tekstu źródłowego dla asemblera: 

* linie 80—1 70 — rejestr IX przechwytuje wskazanie 
DEFADD: numery linii podawane są do procedury 
LINEAD, która zwraca w HL ich adresy; 

* linie 180—200 — sprawdzenie, czy pierwsza linia 
nie jest większa od ostatniej ; 

* linia 220 — fizyczne zniszczenie obszaru programu 
między adresami zawartymi w HL i DE 

' linie 230—260 — powrót, jeśli instrukcja odwołania 
jest linią w programie; 

* linie 270—280 — powrót dla instrukcji wczytanej w 
trybie bezpośrednim (przyjmie ona postać GO TO 

10000 ) 

Kod jest relokowalny 

Następny problem dotyczy zapisu na nośniku tylko 
obszaru zmiennych BASIC, Najlepiej będzie pozbyć 
się obszaru programu , wykorzystując w tym celu ok- 
reśloną wcześniej funkcję FN d (p.o) lub krótszy kod: 


10 


ORG 

62300 

20 

PRÓG 

EQU 

53635 

30 

VARS 

EGU 

23641 

20 


LD 

HL, <VARS> 

30 


LD 

DE, (PRÓG) 

40 


JP 

6629 


Po uruchomieniu lyoii I u uajlow można zapisać na 
taśmie (dyskietce) wszystkie użyte w programie 
zmienne Basic’a przez: 

SAVE „zmienne", 

a w odpowiednim momencie dołączyć je do progra- 
mu (choćby w celu wymuszenia innych warunków 
jego działania przez: MERGE „zmienne"). 

Spectrum od strony implementacji ma tylko dwa typy 
zmiennych: numeryczne rzeczywiste i tekstowe. Tab- 
lica liczb naturalnych (do 65535), która zajmowałaby 
przykładowo w pamięci 5KB jest w większości (ok, 
3KB) nie wykorzystana. Brąkuje też rozkazu, który 
usuwałby ją z pamięci, tworząc miejsce dla innej. 
Tablicę np. m (10, T00, 20, 10) można wyzerować 
przez ponowną jej deklarację, zredukować do mini- 
malnych rozmiarów przez DIM m(1 ), ale fizycznie wy- 
rugować jej z pamięci nie można. Chyba że nauczy- 
my komputer... 

Najpierw jednak musimy się dowiedzieć od niego, 
jak przechowuje zmienne w pamięci. Szczegółowe 
dane zawiera podręcznik firmowy, ale brakuje tu ko- 
dowania identyfikatora zmiennej. 

bit 7 6 5 4 3 2 1 0 

znaczenie typ litera 

Typów szczegółowych jest sześć, przy czym typ 1 
nie istnieje: 

2) zmienna tekstowa (string); 

3) zmienna numeryczna 0 1 -literowym identyfikato- 
rze: 

4) tablice numeryczne (numeric array); 


5) zmienna numeryczna o wieloliterowym identyfika- 
torze; 

6) tablica tekstowa (string array); 

7) zmienna numeryczna 1 -literowa sterująca pętlą 
FOR-NEXT; 

Teraz możemy przedstawić program ERASE, który 
służy do niszczenia tablic, ale po pewnych przerób- 
kach zaimin sin" każdym typnm zmiennej. 


1® 

; #* ERASE 

r 86 


2® 

5 GENS3M2 

assembl <?r 

3® 


ORG 

63000 

4® 

DEFADD 

EGU 

23563 

5® 

UARS 

EGU 

23627 

6® 

RECL 

EGU 

*19E5 

7® 

PARERR 

EGU 

3280B 

8® 

•JARERR 

EQU 

S1C2E 

9® 

NEXT 

EQU 

»19B8 

.10® 

START 

LD 

HL* PARERR 

11® 


PUSH 

HL 

12® 


LD 

IX* (DEFADD) 

13® 


L.D 

L* ( IX+4) 

14® 


LD 

H* (IX+5> 

15® 


L.D 

C* (HL) 

16® 


SET 

7*C 

17® 


RES 

5*C 

10® 


RES 

6 * C 

19® 


LD 

A* ( IX+7) 

20® 


AND 

A 

21® 


RET 

NZ 

22® 


LD 

A* (IX+6> 

23® 


DEC 

A 

24® 


JR 

Z*ERA 

25® 


DEC 

A 

26® 


RET 

NZ 

27® 


INC 

HL 

20® 


LD 

A* (HL) 

29® 


CP 

"M" 

30® 


RET 

NZ 

31® 


SET 

6 * C 

32® 

ERA 

POP 

HL. 

33® 


LD 

HL* (UARS) 

34® 

LOOP 

PUSH 

BC 

35® 

' 

CALL 

NEXT 

36® 


POP 

BC 

37® 


LD 

A* (HL) 

30® 


CP 

128 

39® 


JP 

Z* UARERR 

40® 


CP 

C 

41® 


EX 

DE * HL 

42® 


JP 

Z* RECL 

43® 


JR 

LOOP 


Opis:' 

* linie 100—110 — umieszczenie na stosie adresu 
procedury błędu w przypadkach niewłaściwych 
danych w wyrażeniu DEF FN, 

* linie 120—320 — sprawdzenie poprawności poda- 
nych parametrów wejściowych oraz przygotowanie 
identyfikatora tablicy w rejestrze C (uwaga! w linii 
290 powinien być w cudzysłowach znak dolara); 

* linie 330—430 — przeszukanie obszaru zmien- 
nych; w przypadku znalezienia identyfikatora zni- 
szczenie tablicy, w przypadku przeciwnym wydruk 
raportu Variable not found; 

Kod jest również relokowalny. Do korzystania z niego 
potrzebne jest zdefiniowanie funkcji: ^ 

1 0 DEF FN e$(o$) = (USR 63000) W 
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► 

Zwróćmy uwagę, że będziemy przekazywać do pro- 
cedury ERASE parametr w postaci zmiennej znako- 
wej, czyli nazwę tablicy. Oto przykłady niszczenia 
tablic g oraz g$: 

20 IF VAL (FN e$ („g")) THEN 
30 IF VAL (FN e$ (gs”)) THEN 

DEST i STRLEN dotyczą zmiennych BASIC Pier- 
wsza wskazuje adres nazwy i wartości zmiennej w 
postaci zmiennoprzecinkowej (5 bajtów poprzedzo- 
nych znakiem kontrolnym 1 4), przy czym jeśli zmien- 
na jest dopiero oznaczana, adres odnosi się do ob- 
szaru programu, jeśli zaś jej wartość jest modyfiko- 
wana, adres dotyczy obszaru zmiennych BASICa. 
STRLEN trzyma długość łańcucha tekstowego, jeśli 
w użyciu jest zmienna tekstowa. Zarówno DEST, jak 
STRLEN uczestniczą w tworzeniu +— bajtowej 
reprezentacji stringu, której używa kalkulator do 
obróbki tekstów w obszarze roboczym (WORKSP) 
W trakcie interpretacji STRLEN jest modyfikowane i 
na wyjściu oba bajty trzymają w zasadzie niezależne 
informacje. Pod 23666 znajdziemy pierwszą literę 
użytej zmiennej numerycznej lub nowo utworzonej 
zmiennej tekstowej. W przypadku przekształcania tej 
drugiej bajt zawiera liczbę znaków przed modyfika- 
cją, co potwierdzi przykład: 

10 LET a*="stri ngpi erwotny" 

20 PRINT LEN (a*) 

30 LET a*=a*< TO 6> 

40 PRINT PEEK 23666 


W naszym 
komputerlandzie 

Szaleństwo wybierania najpiękniejszej ogarnęło w 
końcu i komputerland. Sam Spektruś zapalił się naj- 
później, ale za to najgoręcej i z własnej pensji zafun- 
dował nagrodę, a nawet stanął na czele jury. Szarfę 
dla przyszłej Miss komputerlandu zrobiono z taśmy 
perforowanej. 

Jury złożone z kompetentnych czynników posta- 
nowiło dopuścić do konkursu wszystkie komputerzy- 
ce, wychodząc z założenia, że wszystkie są urodziwe. 
Kiedy jednak do konkurencji zgłosiły się rzeczywiście 
wszystkie, jury znalazło się w niemałym kłopocie, bo 
wybrać trzeba było jedną. 

Wśród plejady gwiazd uwagę zwróciły dwie pię- 
kności — niemłoda już, lecz nieźle utrzymana Odra i 
młodziutka, nieśmiała Mazovia. 

Po prezentacji jury udało się na naradę, jak na 
prawdziwy kolektyw przystało i ustaliło kryteria oce- 
ny. 

Po pierwsze: Miss komputerlandu powinna repre- 
zentować wysokie walory osobiste, przy czym wyma- 
gane są wymiary 96—84—96. 

Po drugie — Miss powinna być inteligentna, lecz 
na tyle, by nie przytłaczała członków jury, aby nie po- 
padli w kompleksy 

Po trzecie: Miss powinna się umieć ubrać, żeby 
miała się z czego rozbierać. 

Wreszcie po czwarte — Miss nie musi za dobrze 
władać polskim, angielskim, ani żadnym innym ludz- 
kim językiem, bo jury nie lubi gadatliwych kompute- 
rzyc, szczególnie, gdy się przechwalają — która ład- 
niejsza. 

Niestety po długiej naradzie jury nie przyznało tytu- 
łu Miss komputerlandu, gdyż żadna z kandydatek nie 
spełniała czwartego warunku. Żadna nie chciała 
poddać się zakneblowaniu na czas pozostawania 
Miss... 

Podglądał: 
Eugeniusz MLECZAK 


Bajt 23667 podaje „utrudnioną" postać pierwszej 
litery wprowadzonej zmiennej, przy czym inny jest 
kod po komendzie LET, a inny po INPUT i READ. W 
wypadku wycinania tekstu (slicing) bajt ten zawiera 
zero. Za miesiąc o kanałach i strumieniach, ale bez 
wody... 

Krzysztof MAMCARZ 


£ 

23 

L. 

-V — i 

CD 

CL 

00 


30 >BQRDER 0 : LET S =© : LET w =0 
40 FOR i =0 TO 7: FOR P =0 TO i 
50 BEEP .05,2*i: PRINT RT W +2 , 
a; i ;■•+*: ;p; BRIGHT 1.; INK i ;• PRPE 
R p; "UUUUUUUUUUUUU" 

60 LET W =W + 1 : IF w =16 THEN LET 

W =0 : LET S =16 . 

70 NEXT P ; NEXT i 
S0 PRUSE 300: OLS : GO TO 20 
90 SRUE "36 KO 1.0 f OW " LINĘ 10: 
PRINT "Uerify !"; UERIFY " " : GO 
TO 10 


J. Rubinowicz 
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PASCAL (5 > 


Jedną z podstawowych dziedzin zastosowań komputerów jest przetwarza- 
nie danych. Wiąże się ono z gromadzeniem i przechowywaniem informacji 
o wielu obiektach, z których każdy może być opisywany wieloma cechami. 
W mniejszej części omówiono podstawowe właściwości tych konstrukcji języ- 
ka PASCAL, które umożliwiają opis obiektów charakteryzowanych przez 
wiele cech, gromadzenie informacji o wielu obiektach (ich ilość nie musi być 
z góry określona) i przechowywanie jej w pamięciach zewnętrznych. 


1. Rekordy 

Rekordy umożliwiają opisywanie 
obiektów, które można scharakteryzo- 
wać wieloma różnymi cechami. Przy- 
kładem takiego obiektu może być opis 
mikrokomputera dostępnego na rynku 
krajowym. Przyjmując dla uproszcze- 
nia, że zawiera on 20-znakową nazwę 
mikrokomputera, 12-znakową nazwę 
firmy produkującej mikrokomputery 
oraz minimalną cenę mikrokomputera 
(w tys. zt), „rynkowy" mikrokomputer 
można opisać następująco: 


TYPE opmikrok = RECORD 


naznik: string [20]; 
firma: string [12]; 
cenamin: integer 
END; 


gdzie: 

opmikrok — nazwa definiowanego re- 
kordu, 

naznik, firma, cenamin — nazwy skła- 
dowych rekordu zwanych polami 


RECORD— END — para słów klu- 
czowych, oznaczająca definicję rekor- 
du. 


Przykład 14 

PROGRAM prbgMj 

(zakładanie zbioru KOMPUTER. DT A 
na dyskietce) 

TYPE 

optikrok=RECORD {opis eikrokoeputera ) 
nazek:strin 9 [ 20 ]j 
fir»a:stringU23: 

■ cenamin: integer 
END; 

zbopmk=FILE OF opmikrok} 

(definicja pliku) 

VAR 

zbiortzbopak; (deklaracja pliku) 
rek:opaikrok; 

(zmienna opisującą mikrokomputer) 
ilop. (liczba oprowadzanych opisom) 
i: integer; 

BEGIN 

REAOLNiilop); 

ASSIGN(zbior.’l;oeputer.dta’)} 

(dowiązanie fizycznej reprezentacji 
oliku-zbioru c nazwie KOMPUTER. DTA) 
REWRITE (zbiór ) ; 

(przygotowanie pliku do zapisu) 

FOR i:=l TO ilop DO 
N1TH rek CO 
BEGIN 

READLNfnazmk, firma, cenamin) } 
(wczytanie opisu mikrokomputera 
z monitora) 

NRITEIzbior.rek) 

(zapisanie opisu mikrokomputera 
do pliku) 

ENO; 

CLOSE(zbior) (zamkniecie pliku) 

END. 


string — typ standardowy, umożliwia- 
jący definiowanie łańcuchów znaków 
(stałe typu „string” są już Czytelnikowi 
znane z instrukcji WRITE). 

Powyższa definicja umożliwia deklaro- 
wanie zmiennych np. według formuły 


VAR rl , r2,...rn: opmikrok; 
z których każda opisuje inny mikro- 
komputer. 

Sposoby odwoływania się do pól 
zmiennej rekordowej przez tzw. nazwy 
kwalifikowane wyjaśnia przykład 14, w 
którym poszczególnym polom nadaje 
się odpowiednie wartości. 


Po wykonaniu przedstawionej se- 
kwencji wykonanie instrukcji 
X:=rek. firma; 

gdzie „X" jest typu „string [12]" spo- 
woduje przypisanie zmiennej X wartoś- 
ci „SINCLAIR". Zauważmy, że łań- 
cuch znaków o długości krótszej niż 
podana w definicji jest uzupełniany 
spacjami z prawej strony. 

Przedstawiony sposób odwoływania 
się do pól zmiennej rekordowej może 
być uciążliwy (zwłaszcza, gdy jest ich 
dużo lub są to pola typu strukturalne- 
go), gdyż każde pole musi być poprze- 
dzone nazwą zmiennej. 

Wygodniejszy dostęp do pól zmien- 
nej rekordowej umożliwia instrukcja 


WITH, zwana instrukcją wiążącą lub 
instrukcją dostępu. Pozwala ona na 
odwoływanie się pól zmiennej rekor- 
dowej bezpośrednio przez nazwy pól, 
przy jednokrotnym podaniu nazwy 
zmiennej rekordowej. Wykorzystując 
instrukcję WITH fragment programu z 
przykładu 1 4 można zmodyfikować na- 
stępująco: 

Przykład 15 

2. Pliki 

Przechowywanie programów w pa- 
mięci zewnętrznej pozwala na ich wie- 
lokrotne wykorzystanie. Również dane. 
które podlegają przetwarzaniu co pe- 
wien czas (nieraz przez różne progra- 
my), muszą być przechowywane w 
pamięci zewnętrznej. Przykładem ta- 
kich danych może być zarówno wykaz 
odbiorców energii elektrycznej, dla któ- 
rych nalicza się okresowo wysokość 
opłat oraz progam Źródłowy, przetwa- 
rzany w zależności od potrzeb przez 
edytor lub kompilator. 

W PASCALu istnieje możliwość ko- 
rzystania z pamięci zewnętrznej przez 
tzw. pliki. Plik, podobnie jak tablica jest 
ciągiem elementów tego samego typu. 

Od tablicy różni się metodą dostępu 
do elementów (w danej chwili może 
być dostępny tylko jeden element pliku 
oraz typu) i tym, że liczba elementów 
nie musi być z góry określona i może 
się zmieniać w trakcie wykonywania 
programu. Po zakończeniu działania 
programu informacje zgromadzone w 
pliku pozostają w pamięci zewnętrznej i 
mogą być wykorzystane przez ten sam 
lub inne programy. Z punktu widzenia 
fizycznej reprezentacji plik jest wyróż- 
nionym obszarem pamięci zewnętrznej 
— zbiorem o zadanej nazwie. 

Sposób zakładania na dyskietce 
zbioru podanych wcześniej opisów 
mikrokomputerowych ilustruje przykład 
16. 

Przykład 16 

PROCEDURĘ wydruk (VAR zbszbopak; 

nazsnazwazb); 

{procedura wyprowadzająca na 
■onitor zawartość zbioru 
o zadanej nazwie) 

VflR 

reksopeikrokj 

BEGIN 

ASSIGN(zb,naz); 

RESET(zb); 

(przygotowanie pliku do 
odczytu) 

NHILE NOT EDF(zb) DO 
BEGIN 

READ(zb,rek); 

(wczytanie kolejnego opisu 
likrokoiputera z pliku) 

NITH rek DO 

NRITELNt’ ’ ,nazak,' ’,fir*a,’ 
cenaain) 

END; 
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► 

W przedstawionym programie wyko- 
rzystano procedury standardowe 

ASSIGN, REWRITE, WRITE i 
CLOSE. 


ASSIGN dowiązuje do pliku fizyczny 
zbiór o podanej nazwie. Po wyniku pro- 
cedury ASSIGN wszystkie operacje na 
pliku są równoważne działaniu na jego 
fizycznej reprezentacji. Nazwa zbioru 
jest łańcuchem znaków o postaci przy- 
jętej dla zbiorów roboczych edytora. 

REWRITE tworzy na dyskietce fizy- 
czny zbiór o nazwie podanej w proce- 
durze ASSIGN i udostępnia do zapisu 
pierwszy element pliku. Jeżeli zbiór o 
podanej nazwie już istnieje, to jest on 
kasowany, Po wykonaniu REWRITE 
plik jest pusty, tzn. nie zawiera żadnych 
elementów. 


WRITE — dopisuje do pliku element 
umieszczony w zmiennej, podanej jako 
parametr procedury WRITE. Po zapi- 
saniu danego elementu udostępniany 
jest kolejny element pliku. 


CLOSE — zamyka plik. Procedura 
ta powinna być wykonana po zakoń- 
czeniu działań na pliku. 

Wprowadzając dane do programu 
należy pamiętać, że łańcuchy znaków 
muszą być łańcuchami o długości po- 
danej w opisie rekordu (spacja też jest 
znakiem) oraz że kolejne łańcuchy nie 
są oddzielone od siebie żadnym sepa- 
ratorem. Program wykonano dla na- 
stępujących danych: 


ZX . Spectrum . Plus .... SINCLAIR .... 1 1 0 
ZX . Spectrum . 48kB .... SINCLAIR .... 75 

130XE ATARI 130 

C-128 COMMODORE...285 

gdzie: . — oznacza spację. 


Zawartość założonego zbioru można 
wyprowadzić na monitor wywołując 
procedurę „wydruk" podaną w przykła- 
dzie 17. W wywołaniu procedury para- 
metr należy zastąpić łańcuchem 
znaków komputer dta: 


Przykład 17 

PDD6RAN proglSs 

(•yprMidzcflit iMrtołci zbioru 
KMPUTER.DTA na aonitor) 

TYPE 

opiikrok*R£CQRD 

nazikntring[20]; 

firamtring[12]| 

cmuiniintagar 

ENOi 

zbop»k*f ILE OF opał krok) 
nazu4zb>ttring[!2]| 

VAR 

zbiorizbopak; 

nazuainazaazbi 

(nazua uyprouadzanago zbioru) 
PROCEDURĘ uydruk(VAR zb:zbopak; 

naz:nazuazb); 
(procedura uyprouadzajaca na 
aonitor zaturtotc zbioru 
o zadana) nazuia) 

VAR 

rakiopaikroki 

BEEIN 


EA0| 

PROCEDURĘ podkrtal; 

BCGIN 

MITOM’ , 

'nammuiini') 

END| 

BCGIN 

READ (nazwali 

CIRSCR) (wykasowania zawartości ekranu) 

MRITELNi 

podkrtal i 

MRITELNI’ ’ (4, 'NAZWA KOMPUTERA’,’ ’:6, 
’FIRNA’,’ ’«.7,’CENAI’)| 

podkrtal | 

wydruk (zbiór, nazwał) 

podkrtal; 

MRITELNI’ i etna ainiaalna w tys il’l 

END. 

W procuciuizt) „wydruk" poza już 
omówionymi procedurami standardo- 
wymi, wykorzystano procedury RESET 
i READ 

RESET udostępnia do przetwarza- 
nia (odczyt lub zapis) pierwszy element 
istniejącego pliku. Jeżeli brak jest fizy- 
cznej reprezentacji pliku, to wystąpi 
błąd wykonania. 

READ odczytuje element pliku i 
umieszcza go w podanej zmiennej okre- 
ślonego typu. Po odczytaniu danego 
elementu, do przetwarzania zostaje 
udostępniony kolejny element pliku. 
Sprawdzenie czy wystąpił koniec pliku 
wykonuje funkcja standardowa EOF. 

Program wyprowadzania zawartości 
założonego zbioru zamieszczono w 
przykładzie 1 7. 


Zawartość zbioru może być zmie- 
niana m.in. przez dopisanie nowych 
elementów lub skasowanie już istnie- 
jących, wybranych elementów. 

Program dopisywania nowych ele- 
mentów na koniec założonego zbioru 
(tylko takie jest dopuszczalne) zamie- 
szczono w przykładzie 1 8. 

Przykład 18 
PR06RAH progló; 

(dopisanie rekordów na koniec 
zbioru KOMPUTER. DTA) 

TYPE 

opaikrok*REC0RD 

naz«kistringt20); 

firaa:stringC12]; 

cenaainsinteger 

END; 

zbopak^FlLE OF opaikrok; 

VAR 

zbiorizbopak; 

rekiopaikrok; 

ilop, 

ii integer; 

BE6IN 

READLN(ilop); 

ASSI6N(zbior, * koaputer.dta’ ); 

RESET (zbiór); 

SEEK(zbior,FILESIZE (zbiór ) ) ; 

(przewiniecie pliku na koniec) 
FOR i :-l TO ilop DO 
MITH rek DO 
BEGIN 

READLN (nazak , f i r aa , cenaai n ) ; 

WRITE (zbi or r rek) 

END; 

CLOSE(zbior) 

END. 

Przewinięcie pliku na koniec umożliwia 
procedura standardowa SEEK (para- 
metr FILESIZE jest funkcją standar- 
dową obliczającą ilość elementów ist- 
niejącego pliku). 

Po dopisaniu dla założonego zbioru 
elementu 

800 XL ATARI ...70 

zawartość zbioru była następująca 
(ponownie wykonano program „próg 


Przykład 17 

Po wykonaniu programu „progu 15 
uzyskano następujące wyniki: 


Baxaaaxrxaixsax8x3xxxxxx3xxaxxxsxz3x3xszxsxxx 


NAZMA KOMPUTERA 

FIRKA 

CENA! 

SE3a»aaB3ax«B3ESSXEXXXaES3XEaXX3EEXES33SX3: 

ZX Spectrui Plus 

SINCLAIR 

110 

ZX Spectrui 48kB 

SINCLAIR 

75 

130KE 

ATARI 

130 

C-128 . 

C0HH0D0RE 

285 

1 etna liniialna m 

tys ll 



NAZWA KOMPUTERA 

FIRKA 

CENA! 

ZX Spectrui Plus 

SINCLAIR 

110 

ZX Spectrui 48kB 

SINCLAIR 

75 

130XE 

ATARI 

130 

C-128 

C0HK0D0RE 

285 

800XL 

ATARI 

70 


3aS33388SS3SB33S3aS3S3SaZ3X3SESS333SX333S3S333 

t cena liniialna n tys zl 

Pr: ' , [•rw-ji..:- - .. wybra- ł 
nych elementów założonego zbioru . 
zamieszczono w przykładzie 1 9. 
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Przykład 19 
PROuhiirt progl7; 

(kasowanie rekordów ze zbioru 
KOMPUTER- DTA> 

TYPE 

opn kr ok=REC0RD 

nazak: str i ng[20] ; 
f iraa:stringC123; 
cenaiintinteger 
END; 

zbopik=FILE OF opiikrok; 

VAR 

zbiór : zbopak; 
nazwaak :stringC20]; 
ilopkas, 
i: integer; 

PROCEDURĘ kasrek; 

VAR 

zbpoa: zbopak ; 
rek: opni krok; 

BEGIN 

ASSIGN(zbior,’ko*puter.dta’); 

RESET (zbiór) ; 

ASSIGN (zbpoa, 'pon.dta’) ; 

REHRITE (zbpoa); 

MHILE NOT EOF (zbiór ) DO 
BEGIN 

READ(zbior,rek); 

IF rek.nazakOnazwaak THEN 
URITE (zbpoa, rek) 

END; 

CLOSE (zbiór); 

CLOSE (zbpoa) ; 

ERASE(zbior); 

(skasowanie zbioru KOMPUTER. DTA) 
RENAHE (zbpoa, ’ koaputer . dta’ ) 
(zwiana nazwy zbioru POM-DTA na 
KOMPUTER. DTA) 

END; 

BE6IN 

READLN (ilopkas) ; 

FOR i : =1 TO ilopkas DO 
BEGIN 

READLN (nazwaak); 
kasrek 
END 

END. 

Przyjęto tutaj, że skasowanie nawet 
jednego elementu z pliku wymaga 
przejrzenia całego pliku. Ponieważ nie 
jest możliwe skasowanie elementu „ze 
środka” pliku, wykorzystuje się plik 
pomocniczy (pom, dla). 

Elementy danego pliku są czytane ko- 
lejno i te z nich, które nie podlegają ka- 
sowaniu są zapisywane do pliku po- 
mocniczego. Po przeglądnięciu całego 
pliku jest on kasowany (ERASE) a plik 
pomocniczy zostaje przemianowany 
na poprzednią nazwę pliku (RENAME), 
Identyfikatorem określającym, który 
element pliku ma być kasowany jest tu- 
taj nazwa mikrokomputera. 

Po skasowaniu opisu mikrokompute- 
ra 130 XE zawartość zbioru komputer, 
dta była następująca: 


i»«*as*sa»*ass===3srs=s*acs=ssszsss===ss*=s= 


NAZWA KOMPUTERA 

FIRMA 

CENA* 

E3SZSSBC88S3SSSS3SS 

csxse:::x:t::ss 

assssasi 

ZX Spcctrua Plus 

SINCLAIR 

110 

ZX Spectru* 48kB 

SINCLAIR 

75 

C-128 

COHMODORE 

285 

800X1 

ATARI 

70 


I cena ainiialna w tys zl 


3. Zadania 

Zadanie 12 

Napisać program zakładania zbioru 
opisów pozycji domowej biblioteczki. 

Zadanie 13 

Napisać program porządkowania za- 
łożonego zbioru alfabetycznie według 
nazwiska autora. 

Uwaga: porządkowanie wykonać w 
pamięci operacyjnej. Można zmodyfi 
kować poznaną już procedurę porząd 
kowania ciągu. 

Zadanie 14 

Napisać program umożliwiający ak- 
tualizację zbioru opisów pozycji do- 
mowej biblioteczki uwzględniający do- 
pisywanie lub kasowanie opisów. 

Zadanie 15 

Napisz program udostępniający in- 
formacje o danej pozycji domowej bi- 
blioteczki. 

S. ROZMUS 


PŁATEK 

KOCH’a 

Każdy bok trójkąta 
równobocznego jest podzie 
lony na trzy równe części 
zamieniany na następującą 
tamaną: 



Każdy z odcinków łamanej 
ulega takiemu samemu 
przekształceniu. Operacji do- 
konuje procedura ZAMIANA 
metodą rekurencyjną. Pro- 
ces kończy się w momencie, 


gdy długość boku jest odpo- 
wiednio mała (stała MIN- 
BOK). 

Proponujemy również mo- 
dyfikację procedury polega- 
jącą na wprowadzeniu 
zmiennego kąta, Zastąp pa- 
rametr aktualny przy wywo 
taniu procedur LEFT i RIGHT 
zmienną typu REAL (zasta- 
nów się dlaczego REAL, a 
nie INTEGER), którą zadekla- 
ruj i dopisz instrukcje jej 
wprowadzania. 

Płatek Koch’a uzyskujemy 
dla kąta = 60 stopni, a mody- 
fikacja pozwala otrzymać in- 
ne niezwykłe wzory. 

10 PROGRAM pl ataki 

20 

30 <»*«*»***»«***** tt *****•*«*»« t**> 


40 <** PROGRAM ryauja platak **> 
BO <** aniagu Kocha **> 
60 <** **> 
70 <** NAUKOWE KOLO PODCHORĄŻYCH **> 
80 <** WSOWt 1787 **> 
90 <**»** tt«*>*(t***«***t «(****«(<(} 


100 

110 CONBT mlnbok-Si 
120 VAR 
130 bokiraali 
140 lilntagari 
150 

160 OM****************************) 
170 <** tu nalasy wstawię paklat **> 
180 <*« procadur grafiki zolwla **> 
190 <**t ***»*****•*******»********«*> 
200 

210 PROCEDURĘ zamiana <bokiraal)| 

220 BEGIN 

230 IF bok>mlnbok THEN 

240 BEGIN 

2S0 z aml ana (bok/3) | 

260 laft (60) | 

270 zamiana (bok/3) | 

280 rlght<120)| 

, 290 sami ana (bok/3) | 

300 laft (60) | 

310 samlana(bok/3) | 

| 320 END 

330 ELBE f wd (bok) 

I 340 END| (* zamiana *) 

350 

360 BEGIN 

370 writaCbok-' ) | 

380 raad(bok)| 

390 pagai 

400 turtlaj 

410 laft (60) | 

420 xcori-320-bok*aqrt<3>/3| 

430 ycori-200-bok«aqrt(3>/6| 

440 FOR l i-l TO 3 DO 

430 BEGIN 

460 samlana(bok) | 

470 rlght ( 120) | 

480 END| 

»90 END. 
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BASIC 7 


Podstawy programowania 

Kontynuujemy wykład z programowania w 
języku BASIC na mikrokomputer ZX Spec- 
trum. W wykładzie tym podajemy podsta- 
wowe wiadomości o grafice i kolorach wraz z 
omówieniem odpowiednich instrukcji 
BASICa dla ZX Spectrum. 

Wykład siódmy: 

grafiki ZX Spectrum; instrukcje PRINT AT 

n, I; PRINT TAB 1; 

grafika: instrukcje PLOT, DRAW, CIRCLE 


W wykładzie pierwszym omawialiśmy ekran 
telewizyjny (gdy ZX Spectrum podłączone jest 
do telewizora) lub ekran monitora (gdy podłą- 
czone jest do monitora). Przyjmijmy (jak w po- 
przednich wykładach) nazwę ekran telewizyjny. 
Powtórzmy to, co było powiedziane w pier- 
wszym wykładzie. Ekran telewizyjny zawiera 24 
linie po 32 znaki i jest podzielony na dwie części 
w poziomie i w pionie. Linie i znaki numerowane 
są od zera. Górna część ekranu zawiera 22 linie 
(0—21 ), wyświetlany jest na niej program albo 
wyniki i wykorzystywana jest w grafice. Dolna 
część ekranu jest wykorzystywana do wprowa- 
dzania rozkazów, wierszy programu i danych 
wejściowych, a także do wyświetlania komuni- 
katów (zawiera ona dwie linie o numerach 22 i 
23). 

Narysujmy teraz schemat naszego ekranu w 
postaci: 



Położenie każdego znaku na ekranie okreś- 
lamy przez podanie numeru linii (wiersza) i ko- 
lumny (innymi słowy współrzędne znaku). 

Zajmiemy się teraz rysowaniem obrazków, 
wykorzystując symbole graficzne („grafiki") ZX 
Spectrum Symbole te wprowadzamy z kla- 
wiatury po uprzednim przejściu na tryb G 
(kursor G — otrzymujemy naciskając jedno- 
cześnie klawisze CAPS SHIFT i 9). Naciśnięcie 
(gdy jest kursor G) klawiszy 1—8 spowoduje 
wypisanie na ekranie odpowiedniego symbolu 
graficznego w takiej postaci, w jakiej są naryso- 
wane na klawiszach, a z klawiszem SYMBOL 
SHIFT (sh) — odwrotnie tzn. kolor czarny stanie 
się biały, a kolor biały czarny. Poniżej podajemy 


szesnaście 

symboli 

graficznych 

(litera G — 

oznacza kursor G, sh 

- SYMBOL 

SHIFT): 

symbol sposób użycia 

symbol 

sposób użycia 

□ 

28 

■ 

fi Sh e 

a 

Si 

■ 

fi sh 1 

E 

S2 

a 

fi sh 2 

B 

63 

a 

fi sh3 

□ 

64 

m 

fi sh 4 

a 

65 

n 

fi sh5 

s 

26 

a 

fi sh6 

9 

07 

El 

fi sh7 


Każdy znak zajmuje jedną pozycję na ekranie. 
Do wpisania takiego znaku w dowolne miejsce 
ekranu używana jest najczęściej instrukcja 
PRINT połączona z AT, postaci: 

PRINT AT n, I; „znak" 

gdzie: n — numer linii (0-t-21 ) 

/ — numer kolumny (-4-31 ) 
znak — mogą to być znaki, teksty, a bez 
cudzysłowu nazwy zmiennych 
prostych, wyrażenia arytmety- 
czne itp. 

AT n, I — przesuwa pozycję wydruku na wska- 
v zane miejsce ekranu (o współrzęd- 
nych (n, I). 

Po AT n, /; można pisać wszystko to, co było już 
omawiane w PRINT (średnik jest obowiązkowy). 

Przykład 6.1. 

W kwadracie o boku równym 22 znaki naryso- 
wać przekątne używając symbolu 


10 REM Przykład 6.1 
38 FOR i =8 TO 31 
30 FOR j=0 TO 31 
40 IF i=.i THEM PRINT RT 


45 IF i = 2 1 - j THEN PRINT RT i , j 

S3 NEXT J 
68 NEXT i 


Wprowadźmy i wykonajmy ten program. 
Otrzymane wyniki na ekranie są postaci: 



Przykład 6.2. 

Zaczynając od 5 wiersza i 10 kolumny wypisać 

dużą literę L, używając symbolu 

a) w pierwszym kroku „planujemy" obraz: 



b) program: 


ii 


10 REM Przuk lad 6. 
30 REM rysowanie u 
38 FOR i =5 TO 9 
40 PRINT RT i , 10; " 
50 HEXT i 

60 REM rysowanie w 


liniach 5-9 


liniach 10 . 


70 FOR j — 10 TO 14. _ 
80 PRINT RT 10. J; "||" 
90 PRINT RT 11, j 
100 NEXT j 


Wprowadźmy i wykonajmy ten program. Otrzy- 
mane wyniki na ekranie są postaci: 



Przykład 6.3. 

Dany jest program: 


10 rem Przykład 6.3" 
20 PRINT RT 7,15; 

30 PRINT RT 8,15; 

40 PRINT RT 9,15; 

50 PRINT RT 10,15; 

60 PRINT RT 11, 1S; 

70 PRINT RT 12,15; 


Wprowadzając ten program, używamy symboli 
graficznych: □, U, □. Wprowadźmy i wykonajmy 
ten program. Otrzymane wyniki na ekranie są 
postaci: 



Nauczyliśmy się przesuwać wydruk we wska- 
zane miejsce ekranu, używając AT n, I. Za 
pomocą AT n, I umiemy np. pisać w dolnej 
części ekranu, a potem w środku albo w górnej 
części ekranu, nawet w miejscach uprzednio 
zapisanych. 

W instrukcji PRINT można zastosować TAB / 
(/ — nr kolumny) TAB / — dopisuje spacje, tak 
aby przesunąć miejsce wydruku do wymienio- 
nej kolumny, zbstając w tej samej linii. Zdarza 
się, że trzeba przesunąć się do następnej linii i 
także do wskazanej kolumny. Komputer zmniej- 
sza numer kolumny „modulo 32” (dzieli przez 32 
i bierze resztę), więc TAB 33 oznacza to samo 
co TAB 1 (w następnej linii). Np. wprowadźmy i 
wykonajmy program ilustrujący działanie TAB /: 

10 FOR n = OTO 20 

20 PRINT TAB 6 * n; n; 

30 NEXT n 

Uwaga: używając w instrukcji PRINT: AT n, I lub 
TAB I zawsze piszemy średnik, tzn. 

PRINT AT n, I; 

lub PRINT TAB 1; 
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* 

Sądzę, że podane zasady i przykłady powinny 
wystarczyć do samodzielnej zabawy w „grafikę" 
ZX Spectrum. 

Teraz zajmiemy się rysowaniem obrazków na 
ZX Spectrum. 

Część ekranu, którą możemy używać do tego 
celu, zawiera 22 linie i 32 kolumny, czyli 
22 * 32 = 704 pozycje znakowe. Każda pozycja 
znakowa utworzona jest przez kwadracik 8 na 8 
punktów. Punkty te nazwano pixelami (mamy 
256 X 1 76 = 45 056 pixeli). Pixel jest określony 
przez dwie współrzędne: 

— pierwszą x, która określa odległość pixela od 
lewego dolnego rogu ekranu (w prawo), 

— drugą y, która określa wysokość pixela nad 
linią 22. 

Na rysunku poniżej podane są współrzędne 
rogów i środka ekranu. 


) 


o!'! 


!>o|li 

0,175 

127*87 

255,175 

l , 

0.0 
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x — - 


Współrzędne pixeli są inne niż linii i kolumn w 
AT. Punkty na ekranie rysujemy instrukcją po- 
staci: 


PLOT x, y (0 < x < 255, 0 < y <1 75) 
Punkty rysowane są w kolorze atramentu. 
Linie proste na ekranie rysujemy instrukcją po- 
staci: 


DRAW x, y (-255 < x < 255, -175 < y 
<175) 

Linia rysowana przez instrukcję DRAW zaczyna 
się w miejscu, gdzie ostatnio skończyło się ry- 
sowanie instrukcji PLOT, DRAW lub CIRCLE 
(zwane też pozycją PLOT-u), kończy się w 
miejscu odległym o x pixeli w prawę i y pixeli w 
górę. Każda instrukcja rysowania przesuwa po- 
zycję PLOT-u w miejsce, gdzie skończyło się 
rysowanie. Instrukcja DRAW nie określa punktu 
początkowego, tylko kierunek i długość. 


Przykład 6.4. 

Narysować dwie linie: 

linię A: punkt początkowy o współrzędnych 
(56, 22) 

punkt końcowy o współrzędnych 
(205, 106) 

linię B: punkt początkowy o współrzędnych 
(226, 152) 

punkt końcowy o współrzędnych 
(34, 22) 

obliczamy współrzędne instrukcji DRAW: 
linia A: 205 - 56 = 1 49 (x) 1 06 — 22 = 84 (y) 
linia B: 34 — 226= —1 92 (X) 22 — 1 52 = —1 30 (y) 


10 REM Przy K lad 6.4. 
15 REM linia A 
20 PLOT 66,22 
30 DRAU 149,84 
35 PfiUSE 50 
40 REM Linia B 
50 PLOT 226 , 152 
60 DRRU -192,-130 


Wprowadźmy i wykonajmy ten program. 
Sprawdźmy, czy otrzymaliśmy to, co poniżej: 



Przykład 6.5. 

Narysować prostokąt o bokach: w (równoległy 
do osi x) i h (równoległy do osi y) w środku 
ekranu: 


-w, o 

0, -h 0,h 


W, O 


10 REM PrzyK lad 6.5 
15 REM PROSTOKĄT 
20 1NPUT "podaj wartość w (l<= 
w < =255) " ; w 

30 INPUT "podaj wartość h ( 1 < a 
h «: = 175) " ; h 

35 PLOT (255-w) /£, (l?5-h) /2 
40 DRRU w ,0 
50 DRRU 0 , h 
60 DRRU -w,0 
70 DRRU 0 , -h 
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Wprowadźmy i wykonajmy ten program. Otrzy- 
many rysunek na ekranie dla w = 1 50 i n = 1 00 
jest postaci: 


Caty okrąg rysujemy stosując zwykle instrukcje 
CIRCLE. postaci: 

CIRCLE x, y, r 

x, y — współrzędna środka okręgu 
r — promień okręgu. 

Przykład 6.7. 

Narysować ciągi okręgów „wychodzące” z le- 
wego dolnego i prawego górnego rogu ekranu, 
o współrzędnych środka i promieni danych wzo- 
rem: 

Xi = X| + ih (dla i = 0, 8,... 80, h = 8, x 0 = 0) 


Instrukcję DRAW można użyć do rysowania 
fragmentów okręgów zamiast odcinków linii 
prostej. Postać tej instrukcji jest następująca: 
DRAW x, y, a 

x i y określają punkt końcowy jak normalnie, 
a określa liczbę radianów, w jaką należy się 
obrócić w trakcie rysowania, jeżeli a > 0 to 
obrót jest w lewo, jeżeli a < 0 to obrót jest w 
prawo (cały okrąg ma 2 7r radianów, PI jest 
na klawiszu M). 

Jeżeli a = rr, to niezależnie od wartości x i y zos- 
tanie narysowana połówka okręgu. 

Wykonanie ciągu instrukcji: 

10 PLOT 100, 100 
20 DRAW 50, 50, PI 

spowoduje narysowanie połowy okręgu. 

Przykład 6.6. 

Narysować ciąg 6 okręgów za pomocą ins- 
trukcji DRAW x, y, a, zaczynając od punktu po- 
czątkowego (40, 40). 

Przyjmijmy np. x = y = 50 


10 REM PrzukUd 6.6 

55 Por ł =lS to sb step io 

30 PLOT 40 + i ,40 + i 
40 DRRU 50 .50, PI 
50 GRRU -50 , -50 ,PI 
60 NEXT i 


Wprowadźmy i wykonajmy ten program. Otrzy- 
many rysunek na ekranie jest postaci: 



Ż§ P5B X=?i y TO a i0 step e 

£5 rem prawy górny roa ekranu 
30 CIRCLE 255-X , 175-X . X 
35 REM lewy domy rog ekranu 
40 CIRCLE X , X , X 
50 NEXT X 


Wprowadźmy i wykonajmy ten program. Otrzy- 
many rysunek na ekranie jest postaci: 



Przykład 6.8. 

Narysować kilka wykresów funcji i * sin x oraz 
i ‘ cos x, dla 0<x<4 oraz i = 1 0,20, .80 


10 rem Przyk lad 6.8 
15 REM rysowanie osi x 
20 PLOT 0,88; DRRU 255,0 
30 FOR i =10 TO 80 STEP 10 
40 FOR X=0 TO £55 
50 PLOT X . 88 + i *SIN <X/64*PI) 
60 PLOT X,8S+i*C0S <X/64*PI) 
x 


70 NEXT 
50 NEXT 


zw. 
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Ankieta 


Minął już rok od chwili ukazania się pierwszego numeru 
naszego pisma. W każdym kolejnym staramy się zaspokoić 
informacyjne potrzeby naszych Czytelników. Znamy je z listów 
nadchodzących do redakcji, ze spotkań. Tym razem, podobnie jak 
przed rokiem, prosimy o odpowiedź na poniższą ankietę Z pew- 
nością Wasze odpowiedzi pomogą nam w redagowaniu „IKSa". 
Wśród tych, którzy nadeślą pod naszym adresem swoje uwagi 
rozlosujemy nagrody. 

A teraz odpowiedzcie 

Kto nas. czyta? 

1) Mam lat. .. 

2) Mieszkam w mieście, które ma: 

a) więcej niż 150 tys. mieszkańców 

b) 50— 1 50 tys. mieszkańców 

c) mniej niż 50 tys. mieszkańców 

d) mipszkam na wsi. 

3) Jestem 

a) uczniem szkoły podstawowej 

b) uczniem szkoły średniej 

c) studentem uczelni cywilnej 

. d) Studentem uczelni wojskowej 

e) pracuję. 

4) Posiadam lub mam dostęp do 

a) ZX Spectrum 

b) Atarii 

c) Commodore (jaki?) 

d) Amstrad (jaki?) 

e) inny — jaki? 

5) Korzystam z komputera 

a) w domu (własny) 

b) w szkole 

c) w pracy 

d) w klubie 

e) w klubie garnizonowym 

f) u kolegi. 

6) Czytam „IKSa" 

a) systematycznie 

b) czasami 

c) bardzo rzadko 


P oczątkowo można było pracować. Byli klienci, 
były zlecenia, a w konsekwencji — pieniądze. 
Jeśli pracowało się szybko i skutecznie, zarobki przewyż- 
szały nie tylko stypendia, ale i średnią krajową płacę. Mo- 
żna było też mieć satysfakcję z wdrożeń swoich opraco- 
wań. Zmieniło się to nagle. Zmiana zarządu Studenckiej 
Spółdzielni spowodowała zmianę atmosfery i przepisów. 

Włodzimierz Witkowski szukał miejsca dla siebie. Nie 
chciał się przekwalifikować, nie chciał podzielić losów 
dawnych kolegów z Mokotowskiej. Przed laty spotkali się w 
warszawskim Centrum Studenckiego Ruchu Naukowego. 
Na kursie języka APT. Potem robili oprogramowania dla 
obrabiarek sterowanych numerycznie. 

Zamówienia mieli poważne 

— ze Świdnika, „Nowotki", Mielca, Kalisza. Na początku 
dekady wszystko się rozpadło. Przyszła bessa dla rodzi- 
mych informatyków. Część wyjechała, za granicę i tam 
pracuje w zawodzie. Z tych co zostali jeden jest taksówka- 
rzem, inny produkuje sztuczną biżuterię, a reszta jakoś 
przetrwała. Na dodatek nastąpiła rewolucja. Minikompute- 
ry wyparły „Odry" i RIADY. Wiernych informatyce pozosta- 
ła garstka. 

Entuzjaści — Witkowski tak określa ich, siebie. 

Czy na entuzjaźmie można zarobić? Okazało się, że tak. 
Witkowski trafił do nie znanego wtedy nikomu Towarzystwa 
Wynalazców „RATIO”. 

Mimo szumnej nazwy firma to w istocie niewielka. Całe 
biuro mieści się w skromnym pomieszczeniu na warszaw- 
skim Bródnie przy ul. Ogińskiego 1. Kapitał zakładowy 
wszystkiego pół miliona. Tyle co na opłaty lokalowe i ra- 
chunki telefoniczne przez kilka miesięcy. Dwa i pół etatu 
przeznaczono na cały personel. Prezes, urzędujący wice- 
prezes i te pół dla głównego księgowego. Pensja: czter- 
dzieści tysięcy. Ale żeby ją dostać trzeba było przyjść z 
ewentualnymi klientami towarzystwa. Z klientami, bo spół- 
ka od pewnego czasu praktycznie nie funkcjonowała. 

Jedynym atutem jest koncesja na działalność. I to na- 
wet rozległą. Prawie taką jaką prowadzi instytut naukowy i 
jeszcze kilka innych placówek różnego typu — wdrażanie 
projektów i opracowywanie systemów informatycznych, 
prace konstrukcyjne i ekspertyzy techniczne, ekonomi- 
czne, prawne, consulting i marketing, analiza wyników ba- 
dań i nadzór autorski. Słowem: dla każdego coś miłego, jeś- 
li tylko pragnie wydać parę groszy za myślenie. 

z administracji żyją. 


7) Za pożyteczne uważam: 8) za niepotrzebne uważam: 

a) wykłady Basica 

b) . wykłady Pascala 

c) wykłady Logo 

d) publikacje dot. syste- 

mów mikrokomputero- 
wych 

e) programy gier 

f) programy użytkowe 

g) programy graficzne 1 

h) informacje o nowoś- 

ciach tech. 

i) zadania Ligi Myślą- 

cych 

j) porady techniczne 

k) Twoje propozycje 


Nasz adres: 
Redakcja „IKS” 
W-wa 00-950 
ul. Grzybowska 77 


Co prawda głównie tej gospodarczej. 

Klient musi zobaczyć za co ma płacić... 

Witkowski wrzuca Amstrada na tylne siedzenie fiata i 
jedzie do jakiegoś zakładu. Tam rozstawia wszystko w sali 
konferencyjnej, wczytuje program i... 


Spektrum 


10 LET ais” 

20 FOR n =1 TO 32: LET a*=a* + 

CHR* 144: NEXT IT 

30 FOR n =33 TO 64: LET dt = a$t 

CHR$ 145: NEXT n 

40 FOR n=l TO 11: LET bS=cb*+a* 
: NEXT n 

50 PRINT BRI6HT 1; PT 0 , 0 .: bS 
60 FOR n =0 TO 7: LET asRND*25S 
: POKE 65368+n , 3 : POKE 65383-n,a 
: NEXT n: BEEP .02,3/5: GO TO 50 
99 SRUE "TKRNINfi” LINĘ 10 

J. Rubinowicz 
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— Proszę zobaczyć, jakie to proste ... Ależ skąd. pani też 
potrafi.. Proszę spróbować... Teraz tu naciskamy i już ma- 
my wszystkie potrzebne dane. . Nic nie ma prawa się ze- 
psuć, chyba że komputer spadnie na podłogę ... Niech pan. 
wprowadzi nowy program... Tak... ENTER! 

Trwa mocno przyśpieszony kurs informatyki. Przeważnie 
pierwsi kończą go dyrektorzy. Sprawa mody? Chyba nie, 
tylko! Chociaż komputer to synonim postępu, a postępowy 
chce być każdy.. Tym bardziej że pieniądze na ten cel są z 
Funduszu Postępu Techniczno-Ekonomicznego i nie każdy 
wie. jak je spożytkować. 

— Jednak poważni menedżerowie widzą w tym przede 
wszystkim szansę uporządkowania funkcjonowania przed- 
siębiorstwa. A komputer do tego zmusza. I czynią to ostro- 
żnie, małymi kroczkami. Gospodarka materiałowa. Finan- 
se. Kadry. Zaczynamy od ustawienia Amstrada 6128 na 
biurku dyrektorskim, potem dostawiamy następne. Rozbu- 
dowywujemy oprogramowanie. 

Z czasem powstają kompleksowe systemy. Tak jak to 
się dzieje w Ostrowi Mazowieckiej, gdzie „RATIO'' ma w 
ciągu dwóch lat skomputeryzować cały zakład. „Bumar- 
-Waryński". Na pierwszy ogień poszła gospodarka materia- 
łowa, potem inne sfery życia zakładu, w tym optymalizacja 
produkcji Całą siecią kierować będą profesjonalne kom- 
putery IBM Nie byłoby to możliwe, gdyby dyrekcja zakładu, 
a zwłaszcza główny księgowy nie rozumieli wymogów no- 
woczesności w zarządzaniu przedsiębiorstwem. 

Na podobne przedsięwzięcie chciały się porwać Pań- 
stwowe Zakłady Zbożowe w Olsztynie. Niestety barierą 
stały się koszta. Co tu ukrywać, spore — choć Towarzy- 



stwo Wynalazców i tak stosuje narzuty o połowę niższe niż 
biura uspołecznione. 

Konkurencyjne ceny sprawiają, ze jak na razie Witkow- 
ski nie martwi się o brak klientów. Zresztą u niego obowią- 
zuje naprawdę zasada: „Nasz klient — nasz pan". Zlece- 
niodawca decyduje o tym czego chce (co nie wszędzie 
jest sprawą oczywistą!), kiedy ma to być wykonane, może 
sobie wybrać specjalistę, któremu zadanie zostanie powie- 
rzone. 

Egzystencja spółki opiera się na współpracownikach. Na 
co dzień są to zatrudnieni etatowo w poważnych firmach 
informatycy, księgowi, radcy prawni, czasami nie w pełni 
doceniani i wykorzystywani, po godzinach dorabiają myś- 
leniem. A myśleć muszą bardzo intensywnie skoro zlece- 
niodawcy skłonni są im płacić kilkaset złotych za każde 
sześćdziesiąt minut pracy ich szarych komórek. Taka to 


fucha — nie fucha. 

Rozwiązania za każdym razem muszą być oryginalne 
Nie można mechanicznie powielać programów, projektów, 
ekspertyz. W poszczególnych przedsiębiorstwach bowiem, 
nawet tej samej branży, o identycznym niemal profilu pro- 
dukcji — odmienne panują zwyczaje, rozmaite obowiązują 
przepisy wewnętrzne, różny jest wreszcie stopień organi- 
zacyjnego bałaganu 

Właściciele rozliczają zarząd na dwóch i pół etacie z 
efektów jego starań. Witkowski wie, że jego zarobki zależą 
od obrotów spółki i że byle zastój może sprawić, iż będzie 
musiał sobie poszukać nowej pracy. Zarząd rozlicza wyko- 
nawców z rzetelności, terminowości. Nie ma w towarzy- 
stwie miejsca dla amatorów łatwych zarobków Pieniądze 
tutaj są — to prawda, ale nie dostaje się ich za nic. 

Czy to, co robią nie spotyka się z oporami? 

— Spotyka się! Ludzie mimo wszystko nieufnie podcho- 
dzą do nowego A komputery dla wielu jeszcze są tym no- 
wym. Wymuszają zmianę sposobu myślenia i działania. 
Choć przecież nie ma się czego bać... 

Nie sposób znaleźć sytuację, kiedy zainstalowanie ma- 
szyny elektronicznej pozbawia kogoś pracy. Owszem, zda- 
rzają się redukcje etatów, ale tylko wówczas, kiedy ktoś 
„zastąpiony” komputerem przechodzi na emeryturę. Bywa. 
że czasami, gdy po kilku miesiącach pracy z komputerem 
następuje jakaś awaria, urywają się telefony, mnożą inter- 
wencje, aby ją usunąć jak najszybciej. Ludzie zaczynają 
sobie nie wyobrażać życia bez niego, choć kiedyś ponoć 
świetnie dawali sobie radę... 

„RATIO" też skomputeryzował swoją działalność. Na dy- 
skach zapisane są wszystkie dane, finansowe tez. Główny 
księgowy jednak pieczołowicie prowadzi księgi rachunko- 
we. Wydruki wydrukami, ale jak na razie fiskus woli to, co 
wyliczy i zapisze człowiek. 

Janusz B. GROCHOWSKI 
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A B ft 8 aB N i A B 

CDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCD 
" : LET b*-"": FOR mai TO 11: LET 
b* = b* + aS: NEXT m. CLS 
25 PRIMT RT 8,1; BRIGHT 1; 'OBL 
ICZRNIE TABELI ODWRACAJĄCEJ 
3® FOR S =® TO 255 

50 LET E t =POINT S (0,0) +2*POINT ( 
1.0) +4.*POINT (2,0) +8*P0INT (3,0) 
+ 16*P0INT (4.,0) +32*P0INT i5 ,0) +0 
A*POINT (6,0) 4 128* POI NT (7.0) 

60 POKE 6000® +S . t . NEXT S 

7® FOR Z=0 TO 7 , 

80 LET a = INT (RND*255) : LET be 
PEEK (60000+a) 

85 POKE 66363+Z , a 
90 POKE 65376+Z , b 
95 POKE 6539 1 -Z , a 
100 POKE 65399-Z , b • 

110 NEXT Z: REM AB CD = AB CO 
120 PR INT U0J AT l,15;r. : LET n ar. 
+1: BEEP .02,3/8 „ „ 

130 PR INT AT 0,0; b*: 60 TO 70 
20® SAOE "♦KILIM 2* LINĘ 10 

J. Rubinowicz 
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UGA MYŚLĄCYCH 

Zadanie 1 

Utamek -y można przedstawić w postaci ułamka, np. 
6729/13458 yy ułamku tym występują wszystkie cyfry (z wyjąt- 
kiem zera). Korzystając z tej zasady należy podać składające 
się z dziewięciu cyfr ułamki, o wartościach: 
T , T , T , T'T'T'T' 

przy czym żadna z dziewięciu cyfr nie może się powtarzać. 


Zadanie 2 

Jaki rok zeszłego stulecia zwiększy się 4-^-krotnie, jeśli po- 
patrzymy na odbicie w lustrze cyfr zapisanych na kalkulatorze, 
tworzących tę datę? (Trzeba poeksperymentować). 


Zadanie 3 

Pewien wujek przyjechał w odwiedziny do swoich dwóch 
siostrzeńców i trzech siostrzenic. Najpierw wyszedł mu na 
-spotkanie mały Krzyś z siostrzyczką Basią i od razu poinfor- 
mował wujka, że jest dwa razy starszy od swej siostrzyczki. 
Następnie przybiegła Ela. Ojciec jej wyjaśnił gościowi, że su- 
ma lat obu dziewczynek jest dwa razy. większa od wieku 
chłopca. Gdy powrócił ze szkoły Michał, ojciec powiedział, że 
suma lat obu chłopców jest dwa razy większa od sumy lat 
dziewczynek. Wreszcie zjawiła się Krysia i ujrzawszy gościa 
krzyknęła radośnie: Wujku przyjechałeś do nas akurat w moje 
urodziny, właśnie dzisiaj kończę dwadzieścia jeden lat. Ojciec 
jej zaś dodał: właśnie zauważyłem, że w chwili obecnej suma 
lat wszystkich mych córek jest dwa razy większa od sumy lat 
mych synów. Ile lat ma każda córka i każdy syn? 


Zadanie 4 

Przyrost produkcji w fabryce w porównaniu z rokiem po- 
przednim wynosi za pierwszy rok p%. za drugi g%. Jaki powi- 
nien być procent przyrostu produkcji w 3 roku, aby średni przy- 
rost roczny produkcji za trzy lata był równy r% 


Zadanie 5 

Winda ma dwa systemy hamowania różniące się między so- 
bą i niezależnie pracujące. W razie zerwania się liny pierwszy 
system zatrzymuje windę średnio w 995 przypadkach na 1000, 
a drugi system w 998 przypadkach na 1000. Obliczyć, jakie jest 
prawdopodobieństwo P, że w razie zerwania się liny winda zos- 
tanie zahamowana? 


Nasz adres: 

Redakcja „IKS” 

W-wa 00-950 
ul. Grzybowska 77 

Pełne rozwiązania zadań prosimy 
przesyłać pod adresem redakcji do 
końca lipca br., z dopiskiem „Liga 
Myślących”. Punktacja zależy od liczby 
prawidłowych rozwiązań. Wśród ucze- 
stników rozlosujemy książki, a na zwy- 
cięzców „Ligi” czekają dodatkowe 
cenne nagrody — niespodzianki. 


Poczta „IKS-a” 


„IKS" kończy PIERWSZY ROK. W ciągu tego (niezbyt dłu- 
giego) czasu otrzymaliśmy wiele, bardzo wiele listów: pocz- 
tówek, starannie zaklejonych kopert, a nawet pracowicie 
sporządzonych maszynopisów. 

Każdy, nawet najkrótszy, był uważnie przeczytany, a za- 
warte w nim myśli natychmiast wykorzystane, gdyż IKS” 

JEST DLA WAS! 

Odpowiedzi było mało. 

Mogliśmy bowiem albo odpowiadać, albo... ROBIĆ 
„IKSa”! 

A nas było (i nadal jest) bardzo, bardzo mało. 


Jan MŁYNARZ 


Tomasz Nabożny: 

„...Jestem czytelnikiem waszego czasopisma. Zbieram 
prospekty różnych firm, a także interesuję się informatyką. I 
właśnie pomyślałem sobie, czy nie moglibyście przysłać mi 
adresów firm komputerowych, takich jak Sinclair, Atari, 
Commodore, Sharp itd. ...Gdzie można zakupić drogą wy- 
syłkową książki do nauki informatyki dla początkujących 
na ZX Spectrum +..." 

Wydawnictwa Komunikacji i Łączności niedawno wyda- 
ły książkę PRZEWODNIK PO ZX SPECTRUM. Nakład du- 
ży, cena wysoka (490 zł). Co się zaś tyczy „zbieractwa", to 
prawda jest taka: duże firmy są zainteresowane MASOWĄ 
SPRZEDAŻĄ swoich wyrobów i niechętnie (lub wcale) nie 
interesują się kolekcjonerami. Nasza rada: dużo się ucz 
(nie tylko angielskiego), a za parę lat powinny pojawić się 
polskie minikomputery i polskie prospekty tych minikompu- 
terów. 


Wojciech Zarzyka z Sanoka: 

Interesuję się informatyką, chciałbym się dowiedzieć, 

ile kosztuje ZX SPECTRUM i gdzie go można kupić. A oto 
mój program...' 1 

Dziękujemy za program. Komputery (za złotówki) można 
kupić trojako: 

— „z ogłoszenia" (polecamy, gdyż znany jest sprzedaw- 
ca), 

— w komisie (sprzedawca pobiera dodatkową marżę), 

— na giełdzie (bardziej ryzykowne — jest to typowe kupo- 
wanie kota w worku). 

Sprzedaż komputerów prowadzi również .Centralna 
Składnica Harcerska (Warszawa, Mokotowska), ale popyt 
dotychczas kilkakrotnie przewyższą podaż. 


UWAGA! 

Zrzeszenie Studentów Polskich 
MIKROKOMP 
93-590 Łódź 
Al. Politechniki 3 

organizuje w dniach 17—18 października br. 
konferencję użytkowników SHARP 
telefony: ZSP 36-84-89 
Prezes 32-57-83 
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Pocztowa 

giełda 


Rozwiązanie krzyżówki z nr. 2/87 „IKS-a” 
Hasło brzmi: 

„ELWRO to komputer dla Ciebie” 

Bony pieniężne (1000 zł) wylosowali: 
Barbara Sułkowska — Wyszków, Jacek 
Golis —Zgierz, Stanisław Mączka — Le- 
żajsk, Barbara Rejman — Kluczbork, 
Marcin Brzeziński — Lublin. 

Nagrody książkowe otrzymują: Marcin 
Szalkowski — Skierniewice, Tomasz Sta- 
ruszkiewicz — Przemyśl, Maciej Parzy- 
szek — Warszawa-Anin, Ireneusz Nowak 
— Tarnowskie Góry, Halina Wojturska — 
Rzeszów, Jadwiga Zasada — Szczecin, 
Ewa Bonder — Świętochłowice, Zbig- 
niew Słowik — Włoszczowa, Janusz Do- 
las — Częstochowa, Zdzisław Skiba — 
Szczecin. 



5 REM GRAFIKA ATARI 
10 GRAPHICS 8 ! COLOR 
1 : BY=16 : BC=1 ’DEG 
20 FOR B=31 TO 76 ST 
EP 3‘BB=C0S<3*B)'CC= 
C0Sa.l*<B-18>>’IF B 
>64 THEN BC=BC-0..2 
30 FOR A=-180 TO 180 
STEP 2 : X=INT<C0S<A> 
*30>:Y=INT<SIN<A>*12 
)1F B>64 THEN 70 
40 PLOT 160+X*BB*1.1 
) 10+Y+B'PLOT 160+X*C 
C.32+BY+Y+B 
50 NEXT A ■ BY=BY+1 . 5 : 
NEXT B 

70 PLOT 168+X*CC*BC, 
32+Y*BC>B+BY • GOTO 53 


Jeszcze raz konkurs 



Oto plik kilkudziesięciu poprawnych oczywiście rozwiązań. Na 
odwrocie są różni nadawcy, ale jeden autor na pocztowe kartki na- 
klejał powielone rozwiązanie. W losowaniu szczęścia niestety nie 
miał. ale należy mu się piątka z rachunku prawdopodobieństwa. 


E 

5 

CD 

CL 

CO 


a 

FR8CDE J IHGFRBCDE JIHGFRBCDEJIHGPR 
TONMLKPORSTONMLKPORSTONMLKPORSTC 
: LET bi»" ” : FOR « = 1 TO 11: LET 
b*=b*+ai: NEXT tt: CLS 
25 PRINT RT 3,1; BRIGHT 1; "OBL 
ICZhNIE TABELI ODWRACAJĄCEJ" 

30 FOR S=0 TO 255 
40 POKE 22432, t 

50 LET t«POINT (O,0) +2*P0INT ( 

1,0) +4*P0INT (2,0) ■fBePOINT 0,0) 

+16*P0INT (4,0) +32*P0INT (5,0) +6 
4*P0INT (6,0) +12S*P0INT (7,0) 

60 POKE 60000+S , l : NEXT s 

70 FOR Z*0 TO 39 

80 LET a s=INT (RND4255) : LET b* 

PEEK (60000 -fa ) 

85 POKE 65368 tz i 
90 POKE 65403 + Z , b 
95 POKE 65487 -Z , a 
100 POKE 65S27-Z , b 
110 NEXT Z 

120 PRINT »0; RT l,15;n: LET n«n 
♦1: BEEP . 02 , a /8 
130 PRINT RT 0,0; bt: PRU5E 140: 

BEEP '.02,1240/6: PRINT RT 0,0; 

INOERSE l;b«: 00 TO 70 
200 SROE •*KILIM 3*" LINĘ 10 . _ .. 

J. Rubinowicz 
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Krzyżówka nr 5 

ABCDEFGH I JKLŁ 



[TllTlHlTl 


POZIOMO: 1. układ scalony wielkiej skali integracji, pod- 
stawowy element budowy mikrokomputerów, 

8. witka, łoza, 

9. ciąg bitów mieszczący się w pojedynczej komórce 
pamięci, 

10. pisarz angielski (1814—84) rozwijający tradycje dic- 
kensowskie (skojarz z rozkazem „czytaj"), 

11. owadoierna niewielka jaszczurka, 

12. włosy z ogona i grzywy końskiej, 

14. wielkość określona jednoznacznie jedną liczbą rze- 
czywistą (np. długość, temperatura), 

17. urządzenie peryferyjne do termografli, 

18. np. informatyka, cybernetyka, 

19. latacz, kliwer, sztaksel, 

20. utracenie twardości pod wpływem wilgoci, rozmo- 
knięcie: 

PIONOWO: 1. fachowiec, mistrz, 

2. urządzenie klawiaturowe łączące funkcjonalne włas- 
ności dalekopisu, elektrycznej maszyny do pisania i 
dziurkarki taśmy, 

3. software, 

4. przedsięwzięcie o niepewnym wyniku, 

5. mag, czarodziej, 

6. łopata, rydel, 

7. urządzenie zapamiętujące pojedynczą wartość danej 
lub wyniku, 

13. pracownik wyspecjalizowany w obsłudze komputera, 

15. np. nikotyna, kofeina, strychnina, 

16. element pamięci zawierający rozkaz lub dane i posia- 
dający ściśle określony adres. 

Rozwiązanie stanowi hasło utworzone z liter przeniesionych z 



Si2bL-12L^ 

sag 


Rozwiązanie (tylko hasło) należy przesłać pod adresem re- 
dakcji do końca lipca br. Wśród czytelników rozlosujemy bo- 
ny pieniężne i nagrody książkowe. 


Mikrociekawostki 





mm 



Juki 5520 i 6500 ta sama firma, ale istotne różnice w 
cenie i możliwościach. Obie drukarki mają spory reper- 
tuar znaków, krojów i wielkości pisma. Istotnymi zale- 
tami są przede wszystkim szybkość druku (ponad sto 
znaków na minutę) i cicha praca. Wada — niestety, z 
uwagi na cenę są to urządzenia dla amatorów w Polsce 
niedostępne. 



Rys. Michał Przybyłowicz 


„IKS" — dodatek „Żołnierza Wolności". Redagują: Wiesław Cetera (kierownik zespołu), Ryszard Rogon. Stali współpracownicy: 
Włodzimierz Gogołek, Krzysztof Mamcarz, Ireneusz Miernik, Janusz Miller, Jacek Szaniawski. Adres redakcji: 00-950 Warszawa ul. Grzybowska 77, 
telefon centrali 20-12-61 w. 486. Telex 313664. Rękopisów nie zamówionych redakcja nie zwraca I zastrzega sobie prawo do skrótów. Nakładem: 
Wydawnictwa „Czasopisma Wojskowe", Warszawa ul. Grzybowska 77, Fotoskład i druk rotograwiurowy - Wojskowe Zakłady Graficzne Im. gen. 
dyw. A. Zawadzkiego. Nr zam. 8814. Nr. ind. 361682. K-82 
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WOJNA O KOMPUTERY 
TAJEMNICE SPECTRUM 
PROGRAMY 


INFORMATYKA 

KOMPUTERY 

SYSTEMY 


Dodatek „Żołnierza Wolności" ISSN 0860-2794 Cena 50 z! 




W numerze: 

• Ciekawostki — str. 3 

• Statystyka z ICL — str. 4 

• W szponach Atari (Wielo- 
kolorowa grafika w trybie 8) 

- str. 6—9 

• Komputer w medycynie 
Tomografia komputerowa 

— str. 13 

• Fotoreportaż — str. 16—17 

• „Wojna” o komputery 

— str. 18 

• Mikrokomputery IBM PC 

-str. 19-20 

• Basic -str. 21-22 

• Grafika Commodore 64 

— str. 23—24 

• Sztuki i sztuczki (Zmien- 

ne systemowe ROM — Spec- 
trum) - str. 25—26 

• Pascal — str. 27—29 

• Zrób to sam (Złośliwe ła- 
dunki) — str. 30 

• Liga Myślących — str. 31 

• Pocztowa giełda — str. 31 

• Krzyżówka - str. 32 

• Francuskie mikrokompu- 
tery — str. 32 

PROGRAMY: 

• Mój program (Sharp) 

— str. 5 

• Mini-DOS (Atari) — str. 10 

• Program kopiujący (Atari) 

— str. 11 

• Gra w oczko (Sharp) 

— str. 14 

(Spectrum) —str. 15 

UWAGA CZYTELNICY IKSa! 

ukaże się na przełomie lipca i sierpnia. 
Podwójna będzie również cena — 1 00 zł, ale 
sądzimy, że poziom zawartości będzie co 
najmniej tak wysoki jak i ona. 

I jeszcze o cenie. Od chwili, kiedy Rozpo- 
częliśmy wydawać nasz miesięcznik (a to 
już 14 numerów) znacznie wzrosły koszty 
produkcji, podrożała poligrafia i papier. Stąd 
też rachunek ekonomiczny zmusza nas do 
zmiany ceny. Od września IKS będzie kosz- 
tował 80 złotych i choć jest fo wzrost zna- 
czny, pozostaniemy przecież najtańszym 
pismem mikrokomputerowym w kraju. Ma- 
my też nadzieję, że dzięki pomocy Czytelni- 
ków będziemy coraz lepsi — jesteśmy 
przecież dla Was. Chcemy być Waszym 
pismem. 


Rozpoczynając {>rzed rokiem wy- 
dawanie „IKSa” zdawaliśmy sobie 
sprawę z olbrzymiej popularności 
mikrokomputerów. Urządzenia te 
napływały do kraju wartkim stru- 
mieniem, a ich cena sprawiła, że dla 
wielu stały się osiągalne. W ten 
sposób bariera dzieląca człowieka (z 
reguły nie zagłębiającego się w taj- 
niki informatyki) z wielkimi 
komputerami zniknęła. Komputer 
przestał być już potworem mrugają- 
cym małymi żarówkami w niezro- 
zumiałym języku — po prostu stał 
się bliższy. Nie oznacza to oczywiś- 
cie, że wszystkie przeszkody zostały 
pokonane. 

Najpierw była euforia nowości. Za 
„jedne” sto tysięcy można było stać 
się właścicielem najprostszego Z 81 
czy Spectrum. W ślad za nimi przy- 
szły nieco lepsze i droższe typy. Na 
informatyce chcieli znać się wszys- 
cy; o komputerze trzeba było wie- 
dzieć wszystko. W sytuacji najlep- 
szej znaleźli się cl, którzy na swoim 
biurku mogli postawić owe cudo. 

Po niedługim czasie sytuacja się 
wyjaśniła: informatyka nie jest dy- 
scypliną trudną, ale na komputer nie 
każdy może sobie pozwolić. Po du- 
żej fali zainteresowania przyszedł 


czas na refleksję. Z komputerów 
zrezygnowali ci, dla których były to 
jedynie zabawki. Sprzęt profesjo- 
nalny zaś jest jeszcze zbyt drogi, aby 
był powszechnie dostępny. Dlatego 
też tak ważne pozostają kluby i szko- 
ły, skracające dystans do mikro- 
komputerów, bo jeśli nawet dziś nie 
stać nas na sprzęt, to możemy sobie 
zafundować wiedzę, a ta z pewno- 
ścią się przyda. 

Mamy zatem nadzieję, że Czytel- 
nicy wybaczą nam, iż nie kokietuje- 
my ich lawiną informacji o techni- 
cznych nowinkach — sądzimy, że 
ważniejsze jest ich wykorzystanie. 
Chcemy również ułatwić pierwszy 
kontakt z komputerem tym, którzy 
się go jeszcze lękają. 

O wykorzystaniu mikrokompute- 
rów i sprzętu wideo dużo mówiło się 
w czasie Infowideo '87, imprezy 
organizowanej przez Stowarzysze- 
nie Mikrokomputerowe ABAKUS. I 
tu zaszły zmiany: w ubiegłym roku 
do Warszawskiego Ośrodka Kultury 
przy Elektoralnej — na Infowideo '86 
— trudno było wejść — po roku zain- 
teresowanie mimo wysiłków organi- 
zatorów było raczej mizerne. Jak 
będzie za rok? 
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TURBO BASIC 



y zoiory r yjJd cał . uniu^i m/iu ^ ^ _ r _ 

posiada własny edytor .program Zaczacy oraz bibliotekę .Turbo Basic 
wykorzystuje instrukcje strukturalne IF Ei.SE IF , SELECT CASb , ov 
VHILE DO UNTIL , Z. OOP VHILE , LOOP UNTIL . Program jest napisany 
w asemblerze i jest kompatybilny z IBM Advanced Basic oraz Microsoft 
G V-BASIC . Umożliwia obsługę karty graficznej EGA oraz koprocesora 
matematycznego 8087 Z 80x87 .Turbo Basic pozwala tworzyć programy , 
które przekraczają 64 KB C $ segment ). 

Turbo Prolog w medycynie 

Pracownicy naukowi w Medical College of Ohio rozwijają 
ekspertowy w Turbo Prologu , przeznaczony dla lekarzy z oddziału 
intensywnej terapii , określający czy pacjent rzeczywiście uległ 
atakowi serca . Program ekspertowy , będący czeScią składowa systemu 
Expert Scane Segmentation , ocenia dane zgromadzone przez skaner 
ultradźwiękowy . Dane przesyłane są do komputera , który wykorzystuje 
algorytmy napisane w jeżyku C 


Mikrokomputer domowy M S X X’ press SYI .738 


Mikrokomputer X’pre ss nie jest tylko 
komputerem zabawowym , może korzystać 
Z trzech systemów operacyjnych :CP/M, 
MSX-DOS i MSX Di sk BASIC .Dzięki nim 
istnieje szeroki dostęp do biblioteki 
programów użytkowych . Mikrokomputer 
posiada pamięć zapisywalna RAM 80 KB. 

V komputerze wbudowano stacje dysków 
3 l/z cala .pozwala jaca osiągnąć po- 
jemność 360 KB . Video Display Pro - 
cessor umozsliwia prace monitora : 

• w trybie al fanumerycznym 40 lub 80 
znaków w wierszu;* w trybie graficz- 
nym w standardach małej , średniej 
i durnej rozdzielczości . Mikrokomputer 
posiada wyjścia RS-Z3ZC i Centronix. 
Klawiatura typu QVERTY składa sie 
Z 73 klawiszy .w tym 10 funkcyjnych. 

Do mikrokomputera mofsna dołączyć mo- 
dem, druga stacje dysków, magnetofon, 
joystick. .drukarkę. Mikrokomputer mozse 
pracować w lokalnej sieci komputerowej 



OD ■ OO MIKRODEPESZE OO ■ DO 

kś^ód ftnocłukAów azjaJyc&Aeh można znałeżć kempaJyłćŁ- 

ny Z 9%Ą I TC/AT , wyftośazsony w fnoceotyt 8oz86 {nocujący z eZeśJoJłi- 
wckScao 6 / 8 / 10 / IZ MHz i posiadający 4 MB pamięci RAM na płycie 
podstawowej . •□□■□om 


opracowali: Mariusz Jarzębowski i Jacek Wojtala 



Przemysłu. Istotny 
było dokonanie w 1 
kupu we francuski) 
16 zestawów mas 
-analitycznych, od! 
się w owym czasie ji 
lepszych możliwo 
ploatacyjnymi. W 1 
— przed kolejnym 

Cnl.nm DmuHonhn 

opisem Kowszecnn 
piono następnę par 
firmie Buli, nowoczi 



W 1963 roku dla zapewnienia zorga- 
nizowania warunków zakupu i urucho- 
mienia elektronicznej techniki oblicze- 
niowej w GUS, utworzono w Zakładzie 
Techniki Statystycznej Dział Studiów i 
Analiz. Stał się on zalążkiem przyszłego 
Ośrodka Elektronicznego. Prowadzone 
przez DSiA prace studialnobadawcze 
były ściśle powiązane z praktycznym 
uruchomieniem opracowań statysty- 
cznych na dostępnej wówczas w Pols- 
ce maszynie elektronicznej ZAM 2, za- 
instalowanej w Instytucie Maszyn Ma- 
tematycznych oraz na maszynie ICT- 
1300 pracującej w Centralnym Ośrod- 
ku Doskonalenia Kadr Kierowniczych. 

W wyniku szczegółowej analizy pa- 
rametrów techniczno-użytkowych, 
oprogramowania, cen, warunków do- 
staw itp., odnoszących się do różnych 
typów komputerów dostępnych na ryn- 
ku, ostatecznie zdecydowano się za- 
kupić dla GUS maszynę typu ICL 1905 
w brytyjskiej firmie ICL (dawniej ICT). 
Komputer ten uruchomiony został w 
październiku 1967 i od pierwszych dni 
po odbiorze technicznym rozpoczęła 
się jego eksploatacja na dwie, a wkrót- 
ce na trzy zmiany. 

Wybór tego typu komputera okazał 
się dla GUS szczęśliwy również z tego 
względu, że w kilka lat później polski 
przemysł komputerowy na podstawie 
porozumienia z firmą ICL zastosował 
ich system oprogramowania w pol- 
skich komputerach Odra 1300, dzięki 
czemu obie te rodziny maszyn zasto- 
sowały w pełni wymienialne oprogra- 
mowanie. 

W 1970 roku nastąpiły kolejne kom- 
puterowe zakupy: ICL 1902 A, który już 
na miejscu przebudowano na większy 
model 1903 A oraz polską Odrę 
1304 — pierwszy egzemplarz tej ma- 
szyny z produkcji seryjnej. 

Obecnie Ośrodek Elektroniczny 
GUS ma 6 kompatybilnych kompute- 
rów Odra 1305 i ICL. Poszczególne 
zestawy mogą pracować ze sobą, 
sprzęt jest wymienny, można łączyć 
odpowiednie moduły. Dyrektor ośrod- 
ka, Andrzej Karpiński, twierdzi, że jest 
to sprzęt dobry, w pełni odpowiadający 
stawianym wymaganiom. Firma jest 
znana, solidna, wywiązuje się z umów, 
rozporządza bogatym oprogramowa- 
niem. W Warszawie znajduje się biuro 
ICL. Komputery cały czas są unowo- 
cześniane, ciągle dokupuje -się nowe 
moduły. Jeśli pamięć pier- 

wszego komputera wynosiła 32 tys. 
słów, to dzisiaj wynosi 51 2 tys. Dane re- 
jestrowane są na taśmach magnety- 
cznych. Można też robić to na kartach 
drukowanych, ale to mało ekonomi- 
czna metoda. Do prowadzenia danych 
służą mikrokomputery Mera 9150 z 
możliwością pracy równocześnie na 32 
stanowiskach. 

Jerzy RAJCH 

(Foto: — Jan Zelman) 



Henryk Jasiński — 
MÓJ PROGRAM 

„IKS" był, jest i zawsze będzie Wasz! 
Nie wszystkowiedzących, zadufanych w 
sobie redaktorów, lecz pismem Czytelni- 
ków. 

Dlatego z przyjemnością publikujemy 
program, który opracował jeden z Was. 
CZEKAMY NA KOLEJNE! 

Henryk Jasiński z Warszawy pisze: 
„...Jesteście jedyną redakcją doceniającą 
fakt istnienia... tzw. Pocket Computers. 

Pozostałe pisma, jeśli w ogóle je do- 
strzegają, to traktują komputery kie- 
szonkowe jako ciekawostki, dodając 
obowiązkową uwagę, że nie można do 
nich dołączyć joysticka, jakby to decy- 
dowało o klasie komputera. 

Pozwalam sobie przysłać... program 
drukujący kalendarz na dowolny rok...”. 

Tyle nasz Czytelnik. A oto jego pro- 
gram. Wywołuje go etykieta „A" (RUN 
100). 

ISSl^iCLEAR :6RAPb 

lieiDiti as tern, Bsuam, wiumi.i 

0Ul>»Nt1UIJ , • 

1201DATA *0*. t •'3*', ‘'4*', "S", •'o* 

130>DATA* -STYCZEŃ*', 31, 1, -MAJ-, 31, 5, - 
URZE6IEN*, 30, 0, -LUTY-, 28, 2 
140IDATA -CZERWIEC-, 30,0, -PAZDZIERNI 
k-,31, 10, -MARZEC-, 31, 3, -LIPIEC-, 
31,7 

1O0I0ATA -LISTOPAD-, 30, 11, -kUlEClEN" 
, 30, 4, -SIERPIEŃ 1 ', 31, 8, -GRUDZIEN- 
,31, 12 

1001 DATA -N-, -d-, -P-, -n-, •W 1 ', -1 -, -$ - 
, V-, -C-, -z-, -P-, -t -, -S-, -b- 
170JFOR I-0TO 8 
1801 READ A*4I1 
180iN£XT I 
2001 FOR M*0TO 11 
2I01READ MŚ4M1, LD4M1, NH4H1 
220lNEXT M 

2301 INPUT -Rok -|R*iR*UAL RŚ 
2401 IF ROINT R0R R41ABS R60T0 230 
2501ROTATE 01C6IZE 05COLOR 1 
2681 GLCURSOR 40, -72H SORGN 
2701 FOR 1-0 TO 2 

2001 GLCURSOR 48*1, 8*1 HLPRINT R* 

2801 N£XT I 

3801 LINĘ 40, 01-4216,721,0, 0,B 
3101ROTATE HCSIZE 1 
320 1M-01 GLCURSOR 4210, 0> 160RGN 
3301 FOR k-lTO 4 
3401 POR L-1TO 3 
350 1 M-M4 1 ł B-NM 4M- 1 1 i A-R 
3001 IF MO4G0T0 410 
370lX-0l IP A- INT 4A/41Y4-0LET X*1 
3801 IF A*- INT 4A^1001V100O0GOTO 400 
330lX-0tIF A-INT 4A/400>*400*0LET X* 
1 

4001LD4N-1>-284X 

4101 IF B-340LET A-R*- 1 1B-B4 131 GOTO 43 
0 

420IB-B41 

4301 C-INT 4305. 2SYA14 INT 430. 6YB1- 
INT 4A/10014INT 4A/400 1-4271 0*C- 
INT 4C«"71Y7 

4401 GLCURSOR 4- 10, -4> 1LPRINT 0*411-11 

4501RESTORE 108 

4001 FOR I-0TO 13 

4201 READ B* 4 1 1 

4801 NEXT I 

4801 E— 20» GLCURSOR 4E, -4H606UB 200 
5001 FOR J-0TO 5 
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5201 FOR J-l TO 7 

5301 Y-7YI4J~0*Z-INT 4Y/101 t U-Y-ZY10 
5401 IF Y410R Y>LD4t1- 1 1LET BŚ42YJ-21* 
- -tfl*42¥J*-l>«'- -* GOTO 580 
5501 B* 42YJ-2 1— A* 4Z1 
5001 IF Z-0LEJ B*42*J-21«- ' 
520iB*42W*-ll-A*4Ul 
5801 NEXT J 

5801 E— 28- I Y0: 6LCURSOR 4£, -4H60SUB 
700 

O00INEX.T I 

O101LINE 40, 01-4-72,-1021,0,0,8 
0201 GLCURSOR 4-72, 01 1S0R6N 
O30INEXT L 

6401 6LCUR60R 4216, -1021 t&ORGN 
650tNEXT X 

6601ROTATE 0iTEXT tLP 4iEND 

7001 FOR N-0TO 12STEP 2 

710 UF N-0COLOR 3: GOTO 740 

7201 IP N-2COLOR li GOTO 740 

7301 IF N-12C0L0R 2 

7401B*-B*4N1*B*4N4I1 

7601 GLCURSOR 4E, -4-NY71 tLPRINT B* 

7601 NEXT N 

7701 RETURN 
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Tryb graficzny 8 dostarcza obrazów o najwyższej rozdzielczości, jakie 
możemy wytworzyć za pomocą Atari, z 320 punktami w poziomie i 192 
(lub 160 dla rozszczepionego ekranu) w pionie. Ma jednak podstawową 
wadę: zezwala na używanie tylko jednego koloru. Instrukcja SETCOLOR 
2 określa kolor i jaskrawość tła, a SETCOLOR 1 określa jaskrawość pun- 
ktu lub linii wykreślonej za pomocą rozkazów PLOT i DRAWTO. Jedy- 
ną inną instrukcją SETCOLOR, która działa w trybie 8, jest SETCOLOR 4, 
ustawiająca kolor i jaskrawość ramki. 

1 N szpona ch Atari 1 


Wielokolorowa grafika w trybie 8 


Trudno kwestionować powyższe infor- 
macje, zaczerpnięte z podręcznika języka 
BASIC dla komputerów Atari, lecz nie za- 
szkodzi je sprawdzić. Dlatego po włączeniu 
komputera wprowadźmy instrukcję GRA- 
PHICS 8. Otrzymamy rozszczepiony ekran z 
oknem tekstowym na dole. Wprowadźmy 
następnie COLOR 1: PLOT 5, 80:DRA- 
WTO 315,80. Na ekranie pojawi się linia 
pozioma, której kolor możemy zmieniać za 
pomocą instrukcji SETCOLOR 

Spróbujmy poważnie podejść do badań. 
Za pomocą SETCOLOR 2, 0, 0 ustawia- 
my czarne tło, a za pomocą SETCOLOR 
1 , 0 , 12 wybieramy linie mocno kontrasto- 
we Teraz PLOT 160, 150: DRAWTO 160,5 
kreśli linię pionową w kolorze niebieskim. 

Jeśli otrzymany kolor nie jest niebieski, to 
pamiętajmy, że kolory w naszym telewizorze 
zależą od jego regulacji i warunków pracy. 
Chociaż kolory, które widzicie, mogą się 
różnić od opisanych, zasady i techniki ich 
otrzymywania pozostają takie same. 

Wprowadźmy teraz instrukcje PLOT 101, 
150:DRAWTO 101,5. Zobaczymy pionową 
linię w kolorze brązowym. Dlaczego otrzy- 
maliśmy dwie linie w różnych kolorach? Jest 
to zależne od wartości współrzędnej X, czy 
jóst parzysta, czy nieparzysta. Wszystkie li- 
nie pionowe z nieparzystą wartością X będą 
w jednym kolorze, a wszystkie z wartością X 
parzystą — w innym. Jest to prawdziwe tak- 
że dla wszystkich punktów zapalonych za 
pomocą PLOT. Jeśli wykreślimy linię pod 
dowolnym kątem poprzez zapalenie tylko 
tych punktów, które mają wartości współ- 
rzędnej X parzyste lub nieparzyste, otrzyma- 
my linię niebieską lub brązową. 

Jeśli wykreślimy inną linię za pomocą 
PLOT 160, 80 : DRAWTO 240, 120 bę- 
dzie ona czerwona. Wprowadzenie PLOT 
101,80 : DRAWT0 180, 120 daje linię zie- 
loną. Regułą jest, że wszystkie linie ukośne 
o kącie nachylenia określonym ułamkiem 
x/y = 2/1 będą zielone lub czerwone, w za- 
leżności od wsDÓłrżędnej X punktu począt- 
kowego. 

Instrukcje PLOT 10, 10 : DRAWTO 150, 

150 dają linię szarą. Wszystkie linie wykreś- 
lone pod kątem = Ijj* będą szare. 

Otrzymujemy zatem sześć podstawo- 
wych kolorów w trybie graficznym 8. Biały 
(linie poziome lub kilka linii jedna obok dru- 
giej), brązowy i niebieski (linie pionowe), zie- 
lony i czerwony (linie ukośne) i szary. Pozo- 
stałe linie są mieszaniną tych podstawo- 
wych kolorów. 

Jak to się ma zatem do informacji zawar- 
tych w podręczniku? Jaką wartość mogą 
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mieć kolory, które otrzymuje się poprzez 
wykreślenie linii pod określonym kątem? 
Jak to się dzieje, że otrzymujemy tyle kolo- 
rów? Odpowiedzi na to należy szukać w 
strukturze kineskopu i sposobie tworzenia 
kolorów. Powierzchnia kineskopu pokryta 
jest szeregiem poziomych linii, które składa- 
ją się z ciągów punktów niebieskich, zielo- 
nych i czerwonych. Punkty te zapalają się, 
jeśli trafi w nie strumień elektronów. Są one 
tak małe, że nie widzimy ich jako punkty, 
lecz tylko jako połączenie kolorów wielu 
punktów. Różnorodne barwy, jakie widzimy 
na ekranie telewizora uzyskuje się poprzez 
sterowanie intensywnością strumienia elek- 
tronów dla każdego punktu. Odpowiedni 
dobór niebieskich, zielonych i czerwonych 
punktów dostarcza pełnego zakresu kolo- 
rów. 

W trybie graficznym 8 linia pionowa jest 
tak wąska, że nie może pokryć wszystkich 
trzech kolorów jednocześnie. Kiedy współ- 
rzędna X linii pionowej jest parzysta, trafia 
głównie w punkty niebieskie. Kiedy współ- 
rzędna X jest nieparzysta, trafia w punkty 
czerwone i zielone, dając linię brązową. 
Rozdzielczość trybu graficznego 8 jest pra- 
wie tak dobra jak rozdzielczość ekranu te- 
lewizora! Ponieważ tak wąskie linie nie mo- 
gą uaktywnić wszystkich trzech punktów ko- 
loru. barwa linii nie może być efektywnie wy- 
regulowana poprzez zrównoważenie inten- 
sywności świecenia punktów, jak to jest ro- 
bione w trybach graficznych o niższej roz- 
dzielczości (linie poziome zawsze pokrywają 
wszystkie kolory). 

Podsumujmy zatem otrzymane wyniki: 

1. Kreślenie jasnego koloru (o dużej jas- 
krawości) na ciemnym tle lub ciemnego 
na jasnym tle wzmacnia otrzymany efekt. 

2. Kolor elementarnego punktu nie jest 
zmieniany przez jego współrzędną Y. 

3. Kolor elementarnego punktu zależy nie 
tylko od ustawionego koloru, lecz także 
od tego. czy jego współrzędna X jest pa- 
rzysta, czy nie i od koloru bezpośrednich 
sąsiadów w poziomie. 

4. Rozdzielczość pozioma ma praktyczną 
granicę raczej 1 60 niż 320. Dwa sąsied- 
nie poziome punkty elementarne zlewają 
się w jeden punkt w standardowym kolo- 
rze. 

Podstawowe efekty kreślenia białych 
punktów na czarnym tle podsumowane są w 
poniższej tablicy. N jest ilością sąsiednich 
białych punktów w poziomie. X jest współ- 
rzędną tych punktów w terminach „parzy- 
sty", ;, nieparzysty". Kolor jest w przybliżeniu 
aktualnym kolorem tych punktów, przy zało- 
żeniu normalnej regulacji monitora. 


N 

X 

kolor 

1 

parzysty 

niebieski 

1 

nieparzysty 

brązowy 

2 

parzysty— nieparzysty 

czerwony 

2 

niepa rzysty — pa rzy sty 

szary 

3 

— 

prawie biały 

4 

— 

biały 


Program 1 ilustruje występowanie kolo- 
rów poprzez kreślenie dwóch ciągów prawie 
pionowych białych linii na czarnym tle. Kolo- 
rowe poziome wstęgi utworzone są zgodnie 
i regułami z powyższej tablicy. W tym przy- 
kładzie nie powstaje biały kolor, ponieważ 
istnieją najwyżej pary sąsiednich „białych" 
punktów. Zauważmy, że paski o stałym ko- 
lorze tworzone są albo dlatego, że wszystkie 
„parzyste" punkty dają kolor niebieski, albo 
wszystkie „nieparzyste" dają kolor brązowy. 


PROGRAM NR 1 ■ 

ZS 110 GRAPHICS 8 COLOR 1 

RF 120 SETCOLOR 1 , 0, 14 ■ SETCOLOR 2 

JW 130 FOR X*0 TO 318 STEP 4 
UF 140 PLOT X,0'DRAWTd X+l,159 NE 

JJ 150 FOR X-0 TO 308 STEP 4 
BL 160 PLOT X,0' DRAWTO X+9,159'NE 

RV 199 REM ZMIANA KOLOROW 
PB 200 OPEN #1,4.0, "K > " 

NO 210 ? *? "WYBRANYM KOLOREM JES 
T TERAZ "łH 

YH 220 ? "NACISNIJ KLAWISZ H DLA 
ZMIANY KOLORU" 

VO 230 GET *1,X«IF X<>72 THEN 230 
QX 240 H-H+l-IF H«16 THEN H-0 
OH 250 SETCOLOR 2,H,0‘GOTO 210 


Aby umożliwić łatwą zmianę koloru, do- 
dano linie 1 99 do 250, zachowując ustawie- 
nie zerowej jaskrawości dla tła i jaskrawości 
14 dla kreślonych linii. Kolor tła może być 
prawie niewidoczny, lecz kolory poziomych 
wstęg mogą być zmieniane w znacznym 
stopniu. Najlepsze wyniki uzyskamy po wy- 
regulowaniu jaskrawości i kontrastu telewi- 
zora na niską lub minimalną wartość 


PROGRAM NR 2 

<P 10 GRAPHICS 24 
'A 20 SETCOLOR 1 , 0, 14 SETCOLOR 2, 
0,0 

Z 30 FOR X=0 TO 318 STEP 3 
E 40 COLOR 1 : PLOT 159,0' DRAWTO X 
, 191 

NZ 60 NEXT X 
TQ 70 GOTO 70 


Program 2 wykorzystuje zmianę kolorów 
dla tworzenia wzorów mory. Aby zbadać nie- 
co inny wzór z bardziej jednolitym rozkładem 
światła i zwiększonym kontrastem, dodajmy 
następującą linię: 

50 COLOR 0:PLOT 159,0:DRAWTO X + 1, 191 

Program krok po kroku kreśli czarną limę, 
która kasuje połowę (lub więcej) „białych" 
punktów, które były wykreślone w poprzed- 
nim kroku, w linii 40. Pomysł ten, po pew- 
nych modyfikacjach, wykorzystany został w 
programie 3. Jest on tak zaprojektowany, 
aby osoby mało wprawione w posługiwaniu 
się klawiaturą nie musiały wprowadzać ca- 
łego programu, aby zobaczyć co on robi. 


PROGRAM NR 3 


GC 100 GRAPHICS 6= POKE 82-5 POSIT 
ION 9,2 = ? "*** PIRAMIDA ***" 
PRINT 

RL 112 ? "USTAW KONTRAST SWOJEGO 
ODBIORNIKA" 

GZ 113 ? "I JASKRAWOŚĆ NA MINIMUM 

LK 120 ? "CO WYB I ERASZ : " 

IU 130 ? " 0 PARAMETRY LOSOWE" 

AX 140 ? " 1 PARAMETRY USTAWIAM 

E" 

FM 150 TRAP 1 50 : I NPUT WYB=IF WYB* 

0 THEN GRAPHICS 24 = GOTO 500 
YK 160 IF WYB 0 1 THEN 150 

RM 170 ? = ? "KREŚLENIE TLA LINIAM 

1 PIONOWYMI" 

FO 180 ? " 0 LINIE PARZYSTE" 

SY 190 ? " 1 LINIE NIEPARZYSTE" 

XA 200 ? " 2 BEZ TLA" 

NA 210 TRAP 210 : INPUT JASN = IF JAS 
N=2 THEN 230 

UH 220 IF JASN O 0 AND JASNO 1 THE 
N 210 

AP 230 ? ■? " SPOSOB KREŚLENIA PIR 
AMIDY : " 

MD 240 ? " 0 OD ŚRODKA" 

EK 250 ? " 1 OD LEWEJ NA PRAWO" 

FG 260 TRAP 260 INPUT TRYB 
XN 270 IF TRYB O 0 AND TRYBO 1 THE 
N 260 

CM 280 ? 7 "DLA WIERZCHOŁKA PI RA 

MI DY UŻYJ " 

TT 290 ? " 0 JEDNEGO PUNKTU" 

JT 300 ? " 1 DWÓCH PUNKTÓW" 

AN 310 TRAP 310‘ INPUT WIERZ 
IZ 320 IF WIERZO0 AND WIERZOl T 
HEN 310 

JD 330 ? = ? "ODSTĘP PROMIENI OD W 
IERZCHQLKA= " 

CR 340 ? "(LICZBA CAŁKOWITA = 2 DO 
6>" 

TC-35€T TRAP 350 INPUT ODST=IF ODS 
T <1 THEN 350 

NS 368 ? 7 "KREŚLIĆ CIEMNE PIONO 
WE LINIE?" 

FO 370 ? " 0 LINIE PARZYSTE" 

SY 380 ? " 1 LINIE NIEPARZYSTE" 

NP 780 ? •• ? REZ LINII" 

NG 400 TRAP 400 = INPUT CIEM 1 IF CIE 
M*2 THEN 420 

EL 410 IF CIEMOl AND CIEMO0 THE 
N 400 

LT 420 ? = ? "JEŚLI KONIEC" 

IX 430 ? " 0 PARAMETRY LOSOWE" 

BO 440 ? " 1 UTRZYMAĆ WZORZEC" 

XH 450 TRAP 450 INPUT UTRZ 
OL 455 IF UTRZ*0 THEN GRAPHICS 24 
: GOTO 600 

YX 460 IF UTRZ O 0 AND UTRZ Ol THE 
N 450 

SQ 470 POKE 82/2=? '? "WPROWADZAŃ 
IE WZORCA ZAKOŃCZONE" 

PH 475 ?"NACISNIJ H ABY ZMIENIĆ 

FB 480 ? '? "GOTOWE? NACI ŚNIJ STA 
RT" 

ET 490 IF PEEK< 53279) 06 THEN 490 
V0 495 TRAP 40000 GRAPHICS 24= GOT 
O 600 
SC 497 REM 

CR 498 REM *** PARAMETRY LOSOWE * 
%% 

SI 499 REM 

TI 500 JASN»INT<RND<0)*8) 

SI 510 TRYB* I NT <RND<0)#2) 

BJ 520 WIERZ* I NT <RND<0>*2> 

ND 538 ODST-2+INT<RND<0>*5> 

LD 535 IF TRYB=M AND WIERZ=A AND 
0DST=5 THEN 510 
QB 540 CIEM*INT(RND<0>*8) 

FO 545 KOL* I NT < RND< 0 ) * 1 6 ) 

UX 550 POKE 77/0 REM ZEROWANIE TR 
YBU ZWRACANIA UWAGI 
SD 597 REM 

TF 598 REM *** WYKONANIE PROGRAMU 
SJ 599 REM 

HM 600 SETCOLOR 2 / KOL / 0 = SETCOLOR 
1/0/ 14 

DE 620 IF JASN> 1 THEN 640 


ZJ 630 COLOR 1 =B=JASN=GOSUB 1000 
DA 640 IF TRYB*0 THEN GOSUB 2000 
EP 650 IF TRYB=1 THEN GOSUB 3000 
RD 660 REM 

UG 670 FOR K*191 TO 1 STEP -ODST 
JN 680 COLOR 1 = PLOT 159, WIERZ = DRA 
WTO 318, K= PLOT 159/ WIERZ DRAWT 
O 0/K 

BO 690 COLOR 0=PLOT 159,0= DRAWTO 
3 1 8 , K- 1 = PLOT 159,0 -DRAWTO 0,K- 
1 = NEXT K 

XA 700 IF CI EMM THEN 720 
PW 710 COLOR 0=B*CIEM= GOSUB 1000 
DC 720 IF UTRZ*1 THEN 4000 
XU 730 IF RND<0> <0. 2 THEN GRAPHIC 
S 24 

LU 740 M=TRYB = A=WIERZ = S*ODST 
NK 7 50 GOTO 500 
SH 997 REM 

JZ 998 REM *** PODPROGRAM LINII P 
I ONOWYCH 
SN 999 REM 

RI 1000 FOR K*B TO 319 STEP 2 
HZ 1010 PLOT K, 0 = DRAWTO K,191=NEX i 
T K 

AF 1020 RETURN 
KV 1998 REM 
KZ 1999 REM 

GM 2000 FOR K=0 TO 158 STEP ODST 
ZX 2010 COLOR 1 = PLOT 159,0= DRAWTO 
159+K, 191 PLOT 159.0= DRAWTO 1 
59-K, 191 

UZ 2020 COLOR 0 = PLOT 159, WIERZ 1 DR 
AWTO 160+K, 191 PLOT 159, WIERZ = 
DRAWTO 158-K/191 
HD 2030 NEXT K= RETURN 
KW 2998 REM 
LA 2999 REM 

. FB 3000 FOR K=0 TO 318 STEP ODST 
IJC 3010 COLOR 1 = PLOT 159,WIERZ'DR 
AWTO K, 191 

NE 3020 COLOR 0=PLOT 159,0= DRAWTO 
K+l , 191 • NEXT K= RETURN 
HZ 4000 REM 
ID 4001 REM 

ET 4010 OPEN #1,4,0, "K 1 " 

BJ 4820 GET #1 , X = IF X*72 THEN KOL 
=K0L+1 

EG 4O30 IF KOL* 16 THEN KOL=0 
PI 4040 SETCOLOR 2, KOL, 0= GOTO 482 
0 


Część programu (linie 1 00 do 470) prawie w 
całości służy do ustawiania parametrów 
wzoru przez użytkownika, aby lepiej poznać 
w jaki sposób osiągane są różne efekty W 
celu zmniejszenia liczby wprowadzanych Ii- 
mi, proszę podmienić pierwszą część pro- 
gramu pojedynczą linią: 1 00 GRAPHICS 24 
Wprowadzenie rozpoczynamy od linii 500 

Program w zasadzie nie wymaga dodat- 
kowych wyjaśnień, Najważniejsze inforrńa- 
cje są w nim zawarte. Należy jednak pod- 
kreślić kilka rzeczy. Linie 500 do 545 wybie- 
rają zestaw parametrów losowych dla wzo- 
ru. który ma być kreślony Zmienne JASN i 
CIEM skojarzone są z podprogramem kreś- 
lenia zestawu linii pionowych w wierszu 
1000 programu Są to zmienne o podwój- 
nym przeznaczeniu: jeśli są równe 0 lub 1 , 
wtedy kreślony będzie zestaw linii „parzy- 
stych" lub „nieparzystych", lecz jeśli więk- 
sza niż 1 , podprogram nie będzie wywołany 
Zatem prawdopodobieństwo, że JASN 
spowoduje wywołanie podprogramu wynosi 
0. 25. ponieważ losujemy liczbę całkowitą z 
przedziału 0 do 7. To samo dotyczy zmien- 
nej CIEM 

Zmienna JASN ustala kolorowe tło dla 
i wzoru, lecz daie nieco inny efekt, jeśli wzór 
I me został zniszczony przez linię 730 
Zmienna CIEM powoduje wykasowanie 
wszystkich kolorów za wyjątkiem czarnego 
zanim program ponownie przejdzie do wy- 
boru nowego zestawu parametrów loso- 
wych. Linia 535 wraz- z 740 umożliwiają 


upewnienie się, ze nowe wartości zmien- 
nych TRYB. WIERZ i ODST są inne niż sta- 
re. Linia 550 chroni przed trybem zwracania 
uwagi (attract modę) dopóki program działa 
na nowych wartościach zmiennych Za wy- 
jątkiem możliwości zatrzymania wzoru przez 
użytkownika (linie 450 i 720), nie ma za- 
drtych opóźnień czasowych Jeden cykl 
programu trwa około minuty, musi to być 
wystarczające dla zaobserwowania aktual- 
: ngo wzoru. Jeśli chcemy przyjrzeć się do- 
kładniej. działanie programu może być 
wstrzymane i wznowione za pomocą kia w - 
sza CTRL 1 


PROGRAM NR 4 


FC 50 GRAPHICS OPOSITION 16,2=? 
"KLEJNOT" -? =? 

AV 55 ? "PO ZAKOŃCZENIU KREŚLENIA 

PX 60 ?' "WYŁĄCZ ŚWIATŁO W POKOJU, 

• ABY" 

YB 70 ? "UZYSKAĆ EFEKT ZABRUDZONE 
GO 

TR 80 •> "OKNA. " = ? 

UH 90 ? “NACISNIJ KLAWISZ H DLA Z 
MIANY" 

Ery 95 ? "KOLORU I/LUB WYREGULUJ N 
ASYCENIE" = ? "KOLOROW. - = ? 

EG 100 ? "BOK KWADRATU?" 

GO 110 ? "(MAKSIMUM 4*47--TRY 4*4 
6 )" 

QQ 120 TRAP 150=? "4*"; ■ INPUT BOK 
= B0K=4*B0K 

YL 130 IF B0K<1 OR B0KM88 THEN 1 
50 

MN 140 TRAP 40000 GOTO 300 
DE 150 PRINT CHR*< 253) -GOTO 50 
YO 300 REM *** DEFINIOWANIE ROGOW 
KWADRATU 

HD 310 XD0»INT<159.5-B0K/'2)=XG0*X 
DO+BOK 

GK 320 YDO* I NT <95. 5-BOK/2) = YGO*YD 
0-*€0K 

RX 349 REM 

UQ 350 REM *** KREŚLENIE TLA *** 
RN 355 REM ' 

HN 360 GRAPHICS 24 -SETCOLOR 2,0,0 
SETCOLOR 1,0, 14 COLOR 1 
ES 410 FOR X*XD0 TO XGO 
IR 420 PLOT X,YDO= DRAWTO X,YGO=NE 
XT X 

RY 449 REM 

KU 450 REM *** KREŚLENIE KLEJNOTU 
*** 

RO 455 REM 

VJ 460 COLOR 0FOR K*0 TO BOK STE 
P 4 

DJ 470 PLOT XDO, YDO DRAWTO XG0,YG 
O-K 

GT 480 PLOT XD0, YDO DRAWTO XGO-K, 
YGO 

BU 490 PLOT XGO,YDO> DRAWTO XD0,YG 
O-K 

CH 500 PLOT XGO,YDO= DRAWTO XDO+K, 
YGO 

XA 510 PLOT XGO, YGO = DRAWTO XDO,YD 
O+K 

AM 520 PLOT XGO, YGO DRAWTO XDO+K, 
YDO 

YX 530 PLOT XDO, YGO DRAWTO XGO,YD 
O+K 

EN 540 PLOT XDO, YGO DRAWTO XGO-K, 
YDO 

GZ 550 NEXT K 
SJ 59'-i REM 

KG 600 REM *** ZMIANA KOLORU = NACI 
ŚNIJ KLAWISZ H *** 

RG 605 REM 

PH 610 OPEN #1,4,0, "K 1 " 

FS 620 GET #1 , X= IF X«72 THEN KOLO 
R*KOLOR+l 

RM 630 IF KOLOR* 16 THEN KOLOR=0 
HR 640 SETCOLOR 2, KOLOR, 8 = GOTO 62 
0 

MO 1000 GOTO .1000 


► 
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Program 4 ilustruje zmiany kolorów za 
pomocą gęstego wzoru ciemnych linii kreś- 
lonych na jasnym tle. Równoodległe pro- 
mienie kreślone są z każdego z czterech ro- 
gów kwadratu do dwóch przeciwległych bo- 
ków. Zapalone punkty, pozostające po za- 
kończeniu tego procesu tworzą figurę skła- 
dającą się z czterech seomentów w kształ- 
cie trąby. Obraz staie sięTnteresujący, jeżeli 
najpierw wyregulujemy telewizor na przyje- 
mną kombinację kolorów, a następnie zga- 
simy światło w pokoju. 

Uwaga: Litery z lewej strony numerów linii 
nie wchodzą w skład programu. Są to sumy 
kontrolne dla Edytora Basic U 

Atari Writer 
— edytor tekstów 

Szacuje się, że najbardziej uniwersalnym i 
najczęściej wykorzystywanym profesjonal- 
nym zastosowaniem mikrokomputerów jest 
ich używanie do pisania i redagowania tek- 
stów. Służące do tego programy noszą na- 
zwę edytorów tekstowych (ang. text editors) 
lub programów przetwarzania tekstów (ang. 
word processors). Do typowych zastosowań 
takich programów należą: pisanie artykułów, 
referatów, pism urzędowych, tłumaczeń, itp, 
Typowy program przetwarzania tekstów 
przekształca komputer w specyficzną ma- 
szynę do pisania. Tekst wprowadzamy do 
pamięci komputera za pomocą klawiatury, 
obserwując na ekranie czy nie ma w nim 
pomyłek. Gotowy tekst przeglądamy na ek- 
ranie, a po naniesieniu ewentualnych po- 
prawek oraz sprawdzeniu poprawności ukła- 
du (stronice, tytuły, wcięcia, odstępy itp.) 
przenosimy na papier za pomocą drukarki. 
Możemy go również przechowywać w pa- 
mięci zewnętrznej (głównie dyskowej) w ce- 
lu sporządzenia nowej wersji lub też jako 
część większej całości. 

Programy przetwarzania tekstów oferują 
dodatkowe możliwości, znacznie ułatwiają- 
ce pracę: 

— Program wykonuje za nas pewne czyn- 
ności redakcyjne — dotyczy to głównie 
decyzji o przejściu do nowego wiersza, 
wyrównanie lewego i prawego margine- 
su, itp. 

— Po wprowadzeniu zmian (poprawieniu 
błędów, zmianie układu zdań, przenie- 
sieniu fragmentów tekstu w inne miej- 
sca, itp.) nie przepisuje się całego tekstu 
od nowa. Wystarczy podać odpowiednie 
rozkazy oraz wpisać w określone miej- 
sca nowe fragmenty tekstu. 

— Ze zgromadzonych tekstów można two- 
rzyć różne kombinacje, na przykład 
przed wydrukowaniem zmienić "tę część, 
która dotyczy konkretnego adresata. 

— Wydruk kolejnej wersji tekstu uzyskuje 
się bardzo szybko — jest to niezwykle 
istotne przy projektowaniu wyglądu ze- 
wnętrznego poszczególnych stron. Do- 
datkowych możliwości dostarczają dru- 
karki mozaikowe: różne kroje czcionek, 
druk wytłuszczony, rozszerzony i inne. 

Do dobrego tonu należy, aby każdy kom- 
puter posiadał własny edytor tekstów (naj- 
częściej unikalny, niepodobny do innych). 
Dzięki temu również większość mikrokom- 
puterów domowych wyposażona jest w ta- 
kie programy, Są one zwykle mniej Wyrafi- 
nowane niż te do zastosowań profesjonal- 
nych, lecz realizują podobny zestaw pod- 

8 


stawowych funkcji. Dla komputerów Atari 
800 XL, 130 XE I 65 XE takie funkcje wyko- 
nuje Atari Writer. Nie jest on jedynym edyto- 
rem tekstów dla mikrokomputerów tej firmy. 
Jest jednym z prostszych. Dodatkową zale- 
tą, ważną dla większości posiadaczy tych 
popularnych komputerów, jest możliwość 
wykorzystania pamięci taśmowej do prze- 
chowywania programu oraz zbiorów tek- 
stowych. 

W dalszej części spróbujemy przedstawić 
funkcje realizowane przez program Atari 
Writer oraz sposoby ich wykorzystania. 

Podstawowym elementem na ekranie jest 
kursor, migająca pozioma kreska o szero- 
kości znaku, który wskazuje miejsce działa- 
nia programu: pisanie nowych liter, usuwa- 
nie lub zamianę już wprowadzonych, two- 
rzenie akapitu, itp. Położenie kursora okreś- 
lane 'jest przez jego współrzędne — numer 
wiersza ttiumer kolumny w wierszu (L i C w 
oknie komunikatu — w prawym dolnym rogu 
ekranu). Kursor może poruszać się po ca- 
łym tekście. Można przemieszczać go o 
wiersz (CTRL1 i CTRL!) lub całą stronę 
(OPTIONi lub OPTIONt). o jeden znak w 
prawo lub w lewo (CTRL~'lub CTRL~), na 
początek tekstu (SELECT T) lub jego ko- 
niec (SELECT B). 

Tekst pisze się jak na zwykłej maszynie 
do pisania, linia po linii. Nie używa się klawi- 
sza RETURN Podczas wprowadzania sło- 
wa, które przekracza prawy margines ekra- 
nu, program automatycznie przenosi to 
słowo na początek następnej linii. Klawisz 
RETURN ma specjalne znaczenie, używany 
jest do zakończenia akapitu (którego począ- 
tek oznaczamy poprzez CTRL P). Może być 
również używany do wstawiania do tekstu 
pustych linii, 

W każdej chwili wprowadzony tekst mo- 
żna zmienić lub poprawić.' Dopiero przy tym 
można docenić zalety redagowania tekstu 
za pomocą komputera. Podczas pisania 
na maszynie można poprawić tylko poje- 
dyncze litery w gotowym maszynopisie (za 
pomocą taśmy korektorskiej). Wstawienie 
dodatkowych wyrazów lub zdań wymaga 
przepisania tekstu. Za pomocą edytora 
tekstu można kasować, wstawiać, wymie- 
niać dowolne litery, wyrazy lub całe zdania. 
W celu poprawienia błędu lub wymiany sło- 
wa lub zdania, należy najpierw wykasować 
błędne. Używamy do tego klawiszy CTRL 
DELETE. Po wykasowaniu wprowadzamy 
poprawkę. Program automatycznie robi 
miejsce na tyle znaków, ile potrzebujemy 
dodać. Komputer odsuwa tekst napisany 
uprzednio, nie wymazując go i robiąc miej- 
sce dla wprowadzanych znaków. 

Kolejne funkcje odnoszą się do bloków 
tekstu. Za pomocą CTRL X oznaczamy po- 
czątek i koniec takiego bloku. Tak zazna- 
czony blok może zostać przeniesiony (OP- 
TION M) lub powtórzony (OPTION D) w 
innym miejscu, wskazanym przez kursor, lub 
wykasowany (OPTION DEL. BACK SP.) 
Interesującą właściwością programu jest 
przechowywanie przenoszonego, powta- 
rzanego lub kasowanego bloku tekstu w 
specjalnym buforze. Dzięki temu możliwe 
jest odtworzenie go (START INSERT) w 
przypadku błędnego wykasowania. Poje- 
mność tego buforu jest jednak ograniczona 
(maksymalnie 30 linii ekranu) — dlatego 
wybrane bloki nie powinny przekraczać tej 
wielkości. 

Przydatną funkcją jest wyszukiwanie po- 
danego ciągu (o długości nie większej niż 
25 znaków) i zastępowanie go innym. W ce- 


lu użycia tej funkcji należy ustawić kursor na 
początku tekstu i nacisnąć SELECT S 
Komputer pyta. jaki. ciąg ma znaleźć 
(SEARCH FOR:...), czy zastąpić go innym 
(REPLACE STRING, Y/N?) i czym go 
ewentualnie zastąpić (REPLACE WITH:...). 
Można wymieniać podany ciąg krolcpo kro- 
ku lub w całym zbiorze naraz (REPLACE 
GLOBAL, Y/N?). Do pracy krokowej należy 
nacisnąć N i RETURN, wtedy program 
podmieni tylko pierwsze wystąpienie cią- 
gu i zapyta, czy kontynuować poszukiwania 
(CONTINUE SEARCHING, Y/N?) Po na- 
ciśnięciu Y i RETURN program odnajduje 
następne wystąpienie podanego ciągu i da- 
je możliwość wyboru. Możemy przerwać lub 
kontynuować poszukiwanie i wymianę do 
końca tekstu Opisana funkcja może być 
używana do wyszukiwania i kasowania W 
tym celu po pytaniu o nowy ciąg naieży na- 
cisnąć RETURN Znaleziony ciąg zostanie 
zastąpiony odstępem (spacją). Wyszukiwa- 
nie i wymiana mogą być przerwane w do- 
wolnej chwili poprzez naciśnięcie klawisza 
BREAK. Należy pamiętać, że program roz- 
poczyna poszukiwania od aktualnej pozycji 
kursora. 


Długość tekstu, który możemy wprowa- 
dzić do komputera, zależy od ilości wolnej 
pamięci. Podczas wprowadzania lub po- 
prawiania tekstu dobrze jest sprawdzać od 
czasu do czasu, ile mamy jeszcze wolnego 
miejsca. W tyrn celu należy nacisnąć OP- 
TION F Program wyświetla odpowiedź wy- 
rażoną w bajtach. W celu oszacowania ile to 
stronic, możemy przyjąć, że każda strona z 
podwójnymi odstępami wymaga 1500 baj- 
tów. 

Kolejną grupą funkcji są operacje na 
zbiorach. Tekst wprowadzony do komputera 
może być zapisany w pamięci zewnętrznej 
(dyskowej lub taśmowej) w celu przecho- 
wania dla późniejszego poprawienia, albo 
jako część większej całości. W tym celu na- 
leży przejść do menu (klawisz ESC), wybrać 
opcję przechowania zbioru (Save File). Pro- 
gram poprosi nas o podanie nazwy urzą- 
dzenia i zbioru (SAVE DEVICE: FILENA- 
ME) Do stacji dysków trzeba włożyć sforma- 
towaną dysktótkę i napisać D: nazwa zbioru. 
Nazwa może mieć długość do ośmiu zna- 
ków. Jeśli dyskietka nie jest sformatowana, 
program dysponuje opcją Format Disk, któ- 
rą należy wywołać^rzed zapisaniem zbioru 
tekstowego. 

W celu przechowania zbioru na taśmie 
magnetycznej musimy podać C: w odpo- 
wiedzi na propozycję podania nazwy urzą- 
dzenia. Program zarząda włączenia magne- 
tofonu na zapis. Należy włożyć kasetę, 
przewinąć w odpowiednie miejsce (zanoto- 
wać stan licznika), wcisnąć klawisze RE- 
CORD I PLAY oraz RETURN 

Wprowadzanie zbioru tekstowego do pa- 
mięci komputera odbywa się podobnie. Z 
menu programu należy wybrać opcję 
wprowadzania (Load File). Po propozycji 
podania nazwy urządzenia i zbioru (LOAD 
DEVICE: FILENAME) musimy sprawdzić, 
czy odpowiednia dyskietka jest włożona do 
stacji dysków. Wtedy piszemy D: nazwa 
zbioru Jeśli zbiór tekstowy przechowywany, 
jest na taśmie magnetycznej, niezbędne jest 
ustawienie taśmy na początek zbioru (wed- 
ług stanu licznika) i zapisanie C.\ Po sygnale 
dźwiękowym należy nacisnąć klawisze 
PLAY oraz RETURN 

W przypadku posiadania stacji dysków 


przydatne mogą być dwie dodatkowe funk- 
cje programu wybierane z menu: katalog 
zbiorów i kasowanie zbioru. W celu otrzy- 
mania katalogu zbiorów należy włożyć dy- 
skietkę do stacji dysków i wybrać opcję 
..lndex of Disk Files" Program wyświetli 
katalog zbiorów w kolejności alfabetycznej 
nazw. Pokaże także, ile sektorów zajmuje 
każdy zbiór i ilość wolnych sektorów na dy- 
skietce. Jednocześnie może być wyświetlo- 
ne 21 nazw zbiorów. |eśli jest ich więcej na- 
stępuje przesuwanie tekstu do góry, można 
je zatrzymać przez naciśnięcie klawisza 
spacji. Ponowny przesuw uruchamiany jest 
również klawiszem spacji. Katalog zbiorów 
może być wydrukowany po naciśnięciu Y i 
RETURN w odpowiedzi na pytanie PRINT 
DIRECTORY, Y/N? 

W celu wykasowania zbioru musimy 
upewnić się. czy jest on na dyskietce wło- 
żonej do stacji dysków, przejść do menu 
programu i wybrać opcję kasowania zbioru 
Następnie trzeba podać nazwę urządzenia i 
nazwę zbioru (DELETE DEVICE: FILE- 
NAME) Program upewnia się. czy na pew- 
no chcemy wykasować ten zbiór (FILE 
DELETE - ARE YOU SURĘ, Y/N?) Po 
naciśnięciu Y i RETURN program wymazu- 
je określony zbiór z dyskietki 

Możliwe jest również łączenie zbiorów 
tekstowych zapamiętanych na dyskietce lub 
kasecie z tekstem przechowywanym ak- 
tualnie w pamięci komputera. W tym celu 
należy ustawić kursor w miejscu, gdzie 
chcemy dołączyć tekst ze zbioru i nacisnąć 
OPTION L Następnie trzeba podać nazwę 
urządzenia i zbioru Dalsze' postępowanie 
jest takie samo |ak podczas wprowadzania 
zbioru 

Trzecią grupę tworzą funkcje przygoto- 
wania wydruku. Za pomocą programu Atari 
Writer możemy wydrukować tekst w do- 
wolnej postaci, dzięki użyciu różnorodnych 
rozkazów formowania Pewne z nich. wpro- 
wadzane w bloku formowania wydruku u 
góry ekranu, sterują globalnym kształtowa 
mem tekstu. Inne, wprowadzane wewnątrz 
tekstu, podczas tworzenia go lub popra- 
wiania, używane są do określania odstępstw 
od ogólnego formatu. 

Każda litera w negatywie, występująca u 
góry ekranu, reprezentuje rozkaz, który 
zmienia formowanie całego tekstu. Liczba z 
prawej strony litery jest wartością redago- 
wania dla tego rozkazu. W celu ustawienia 
własnych wartości musimy przesunąć kur 
sor do bloku formowania wydruku, wykaso- 
wać liczbę, którą chcemy zmienić i wpro- 
wadzić nową. W ten sposób możemy usta- 
wić własne wartości dla marginesu dolnego 
(B) i górnego (T), odstępu między akapitami 
(D). wcięcie akapitu (I), wyrównanie do 
prawego marginesu (J). margines lewy (L) i 
prawy (R), odstęp między limami (S), dłu- 
gość stronicy (Y) oraz sposób wydruku (G) 

Powyższe rozkazy mogą być również 
wprowadzone bezpośrednio do tekstu, mo- 
żna je wprowadzać pojedynczo lub łącznie, 
podczas tworzenia lub poprawiania tekstu. 
Program wyświetla odpowiednią literę i licz- 
bę w negatywie (me występują one na wy- 
druku). 


Możliwe jest umieszczenie, na każdej 
stronicy wydruku, jedno- lub dwulimowego 
napłówka lub stopki. W szczególności mo- 
żna otrzymać numery drukowanych stronic. 
Dla określenia nagłówka musimy nacisnąć 


CTRL H, wprowadzić tekst i nacisnąć RE- 
TURN Definiowanie stopki odbywa się po- 
dobnie. tylko naciskamy CTRL F Domyśl- 
nie są one wyrównane do lewego margine- 
su drukowanej stronicy. Możemy jednak 
umieścić je na środku (po wprowadzeniu 
CTRL C) lub wyrównać do prawego margi- 
nesu (po wprowadzeniu CTRL C CTRL C) 

W celu numerowania drukowanych stro- 
nic musimy nacisnąć @ (Shift 8) w tym 
miejscu nagłówka lub stopki, w którym ma 
wystąpić numer stronicy Jeśli chcemy mieć 
tylko numery stronic, wprowadzamy @ jako 
cały tekst nagłówka lub stopki. 

Możliwe jest obejrzenie uformowanego 
tekstu, w takiej postaci, jaka będzie na wy- 
druku, bez drukowania Służy do tego funkcja 
przeglądania wydruku, do której przecho- 
dzimy po naciśnięciu OPTION P Najpierw 
musimy określić typ posiadanej drukarki 
Następnie program pyta. czy chcemy prze- 
glądać cały dokument, czy tylko wybrane stro- 
nice (PREVIEW WHOLE DOCUMENT, 
Y/N?) Naciskamy Y i RETURN, gdy 
chcemy przeglądać cały tekst lub N i RE- 
TURN aby obejrzeć wybrane stronice (mu- 
simy wprowadzić numery stronic początko- 
wej i końcowej). Po uformowaniu tekstu 
program wyświetla na ekranie lewy, górny 
róg pierwszej stronicy Używając klawiszy 
sterowania kursorem możemy obejrzeć cały 
tekst (wskaźniki L i C pokazują położenie 
kursora na zredagowanej stronie, nie ha ek- 
ranie). Należy pamiętać, że pewne tryby 
wydruku i odstępy między liniami i akapitami 
nie są dokładnie takie jak na wydruku. 

W czasie przeglądania wydruku nie mo- 
żna poprawiać tekstu. Można to zrobić do- 
piero po przejściu do trybu poprawiania 
(poprzez naciśnięcie START) 


Po wszechstronnym sprawdzeniu przygo- 
towanego tekstu możemy przystąpić do 
drukowania. W tym celu musimy przejść do 
menu programu i wybrać opcję Print File 
Podczas pierwszego wybrania tej pozycji 
musimy określić typ posiadanej drukarki. 
Następnie udzielamy odpowiedzi, czy 
chcemy drukować cały tekst (PRINT 
WHILE DOCUMENT, Y/N?i Po naciś- 
nięciu N i RETURN możemy drukować wy- 
brane stronice po podaniu numeru począt- 
kowego i końcowego Musimy podać je- 
szcze liczbę drukowanych egzemplarzy (od 
1 do 99). 

Z powyższego, dosyć pobieżnego, prze- 
glądu funkcji programu wynika, ze posiada on 
spore możliwości w zakresie redagowania 
tekstów Pewną niedogodnością jest konie- 
czność pamiętania wszystkich funkcji i od- 
powiadających im poleceń. Program w nie- 
wielkim tylko stopniu służy nam pomocą. 
Poważniejszymi wadami, zresztą pow- 
szechnymi wśród zachodnich edytorów 
tekstów są: brak polskich liter na ekranie 
oraz w repertuarze znaków firmowej drukar- 
ki (Atari 1 027) i poważne kłopoty w ich uzy- 
skaniu w tym programie. Pomijamy już takie 
drobiazgi, jak niezbyt ładny krój czcionki 
(tworzony w polu 7 X 7), podniesienie do 
góry małych liter z ogonkami, mała liczba 
znaków w linii ekranu (40), itp. Pomimo tych 
wad program może pomóc w poznawaniu 
możliwości edytorów tekstu oraz służyć do 
modyfikowania programów w języku BASIC 
(przechowanych za pomocą instrukcji 
LIST) 


Tomasz MROWIEĆ, 
Ludwik PIELA 


GRAFIKA NA SPECTRUM 

20 LET 2=8 

30 FOR i =0 TO £55 STEP Z 
40 PLOT i , 0 
50 DRRU £55-2*i,175 
60 NEXT i 

70 FOR i =© TO 175 STEP 2 
80 PLOT 0,i 
90 DRRU 255 ,175-2*i 
100 NEXT i 




MINI-DOS 

Każdy programista, wykorzystujący wbudowany w ROM 
mikrokomputera ATARI 800XL translator języka BASIC z dy- 
skowym systemem operacyjnym (DOS), styka się często z 
irytującą sytuacją. Dochodzi do niej wtedy, gdy po zakończe- 
niu pisania programu, programista chce zapisać go do zbioru 
na dyskietce, lecz nie wie, czy jest na niej wystarczająco dużo 
miejsca, lub musi użyć nowej dyskietki, lecz ta nie jest sfor- 
matowana. Mało tego, czasami powstaje problem, jaką nazwę 
nadać nowo tworzonemu zbiorowi, aby nie powtórzyć nazwy 
zbioru zapisanego już na dyskietce. W takiej sytuacji nie po- 
zostaje nic innego, jak „wejść pod DOS-a", składując naj- 
pierw zawartość pamięci do zbioru MEM.SAV, sformatować 
nową dyskietkę, bądź „obejrzeć" listę zbiorów na dyskietce, 
na której chcemy zapisać nowy program, następnie wrócić do 
BASIC-a, odtwarzając zawartość zbioru MEM.SAV. Wszystkie 
te operacje pochłaniają wiele cennego czasu. Analogicznie 
wygląda problem, gdy w opisanej sytuacji chcemy skasować 
zbiór, zmienić jego nazwę, zabezpieczyć zbiór przed przy- 
padkowym zniszczeniem (LOCK), lub zdjąć zabezpieczenie 
ze zbioru (UNLOCK). 

Bardzo pomocnym w takich sytuacjach jest prezentowany 
poniżej program o nazwie MINI — DOS. Umożliwia on wyko- 
nywanie z poziomu BASICa funkcji normalnie dostępnych 
w pakiecie DUP (Disc Utility Package) DOS-a. Zasada dzia- 
łania programu jest bardzo prosta. Gdy zostanie on urucho- 
miony (RUN) zapisuje na dyskietce pięć zbiorów o nazwach: 
„DIR”, „DELETE", „LOCK", „UNLOCK", „RENAME". Do każ- 
dego z wymienionych zbiorów program wprowadza po kilka 
linii programu w języku BASIC, realizujących odpowiednią 
funkcję. Wprowadzone do zbiorów linie programowe nie są 
numerowane. Efekt tego rozwiązania jest taki, że gdy zapi- 
szemy komendę np: 

ENTER „D:DIR" RETURN w negatywie to komputer zacznie 
wprowadzać do pamięci RAM linie programowe, zapisane w 
zbiorze „DIR", a że nie mają one numerów, komputer będzie 
je natychmiast wykonywał, nie niszcząc aktualnej zawartości 
RAM-u. 

MINI — DOS ma następujące opcje: 

E. „D.DIR" — listuje na ekranie wykaz zbiorów na dyskietce. 

E. „D:RENAME" — zmienia nazwę zbioru. 

E. „D:DELETE" — kasuje zbiór. 


ATARI 


E. „D:LOCK" — „nakłada zabezpieczenie" na zbiór. 

E. „D:UNLOCK” — „zdejmuje zabezpieczenie" ze zbioru. 

Nazwy opcji zostały specjalnie dobrane w języku angiel- 
skim, ponieważ najbardziej kojarzą się z odpowiednimi op- 
cjami z MENU DOS-a. 

Program bardzo łatwo można rozbudować, wprowadzając 
do niego dodatkowe funkcje. Np., gdy zastąpimy linię 130 li- 
nią poniższą: 

130 RESTORE 120.GOSUB 140GOTO 200 
i dodamy dodatkowe linie 200—240 
200 CLOSE tf1:OPEN<ł 1,8,0, „D:FORMAT" 

210 DATA ?:? „ WŁÓŻ DY SKIETKĘ DO FORMATOWANIA": 

? „I NACISNIJ icifjftl ! CZEKAM..." 

220 DATA FOR I 1 TO 3000:IF PEEK (532 
79) <> 6 THEN NEXT l:END 
230 DATA ?„FORMATUJE...";XIO 254&«1&0&0&"D: 
FORMATOWANIE ZAKOŃCZONE !„ , -1 
240 RESTORE 210:GOSUB 140 

to program zapisze na dyskietce sześć zbiorów (pięć wcześ- 
niej wymienion ych I szós ty o nazwie „FORMAT"), a komenda 
E. „D:FORMAT umożliwi formatowanie dyskietki. 

Ale UWAGA! zalecam szczególną uwagę przy wprowadzaniu 
linii 200—240 i ostrożność przy ich testowaniu. Jeden drob- 
ny błąd może spowodować zniszczenie cennych informacji 
zapisanych na dyskietce. Postępując podobnie, można dobu- 
dować do MINI— DOS-a funkcję kopiowania zbiorów na dy- 
skietce. 

Po uważnym wprowadzeniu do pamięci mikrokomputera 
wszystkich linii programu należy zapisać go/ia oddzielną dy- 
skietkę. Program najlepiej wykorzystywać według poniższej 
zasady. Zawsze po sformatowaniu nowej dyskietki, należy za- 
ładować MINI— DOS do pamięci i uruchomić go wkładając do 
stacji dysków nowo sformatowaną dyskietkę. MINI— DOS za- 
pisze na niej pięć lub sześć (gdy dopisane zostaną linie 
200—240) zbiorów o wcześniej wymienionych nazwach. Od 
tego momentu, gdy dyskietka ta będzie znajdowała się w na- 
pędzie dyskowym, będzie można używać opcji MINI— DOS-a 
z poziomu translatora BASIC-a. Wynika stąd wniosek, że 
chcąc mieć zawsze „pod ręką" powyższe opcje, zbiory two- 
rzone przez MINI— DOS powinny znajdować się na każdej 
dyskietce, której będziemy używać pracując z translatorem 
BASIC-a. Jest to wniosek słuszny. Nie należy z tego powodu 
martwić się o racjonalne gospodarowanie pojemnością dy- 
skietki. Zbiory zapisywane przez MINI— DOS zajmują razem 
10—12 sektorów (dla DOS 2.5 każdy zbiór zajmuje dwa sekto- 
ry), jest to naprawdę niewielka strata, zważywszy na wygodę 
programowania, jakiej dostarcza ten program. 

opracował H. KRASUSKI 


1 REM J 

2 REM MINI - DOS 

3 REM t*t*t*ttt*****t****t**ttt 
20 GRAPHICS 0‘? "PROSZĘ CHWILE P 
OCZEK AC. . . “ 

100 DIM A* <200) 

110 OPEN 41/8/0/ “D'DIR“ 

120 DATA CLR ' CL0SE41 = DIM A*<20)‘ 
OPEN #18.68.08."D<*.*" 

125 DATA ? CHR*<28) i "ZBIORY NA D 
YSKIETCE" >?‘F0R X-1 TO 64INPUT 
41;A*=? A* 

126 DATA ! IF A*<18,1>-" " OR R*<1 
8.1)-"*" THEN NEXT X,-l 

130 RESTORE 120'GOSUB 140= GOTO 2 
60 

140 RE AD A#=I-LEN<A4)'IF A*«"-l" 
THEN RETURN 
150 FOR X-1 TO I 

160 IF A*<X,X)-"8«" THEN A»<X,X>- 
170 NEXT X 

180 ? #1; A* -GOTO 140 
250 REM 

260 CLOSE 01 'OPEN 41/8/0/ "D=DELE 
TE" 

270 DATA CLR 'CL. 41= CL. 42= DIM A*< 
12)8<B*< 14) = 0. 41l4&0ti"E > " • 


271 DATA ? CHR»<29)/ "PODAJ NAZWĘ 
ZBIORU" =? "KTÓRY MA BYC SKA80WA 
NY!" 

280 DATA ?CHR*<28>; "NAZWA ZBIORU 

■ "> >I.41;A*’8*<18,2)-“D' M = X-LEN< 
A* ) = B* < 3*X+2 ) *A4 <1 &X ) 

281 DATA = X. 338.428.08,08,8* ' ? 1 Tfłti “ 
SKASOWANY!" 

285 DATA -1 

290 RESTORE 270 GOSUB 140 

310 CLOSE 41= OPEN 41,8,0, "D= LOCK 

320 DATA CLR > CL. 41= CL. 42= DIM A*< 
12>8<B*(14) = O.418,48<08."E' " =?CHR*<2 
9) i “PODAJ NAZWĘ ZBIORU" 

321 DATA =?"KT0RY MA BYC ZABEZPI 
ECZONY" 

330 DATA 7CHR4 < 28) J "NAZWA ZBIORU 

■ *> = I.41;A*>B*<18.2)- M D'"'X-LEN< 
A*) = B*<38J<+2)*A*<18.X) 

331 DATA 1 X. 358,428,08,08,6* = ? ' ?A4i " 
ZABEZPIECZONY 

340 DATA -1 

350 RESTORE 320GOSUB 140 

370 CLOSE 41 =0PEN 41,8,0, "D=UNLO 

CK" 

380 DATA CLR ■ CL. 41 ‘CL. 42 =DIM A*< 
12)8>Bf (14) = 0. 41 8.48,08. "E ■ " = ? *CHR*< 


29) > "PODAJ NAZWĘ ZBIORU" 

381 DATA =?"KT0RY MA BYC 0DBEZPI 
ECZONY" 

390 DATA ? CHR*<28> ) "NAZWA ZBIÓR 
U= " ; = 1 . 41 , AS ' B*< 112>""D 1 " ' X*LEN 
<A »)'B« 3t.Xł2)-R»atX) 

391 DATA ■ X . 368.428.0*08,13* = ? ' ?A* ; " 
ODBEZPIECZONY 

400 DATA -1 

410 RESTORE 380GOSUB 140 

430 CLOSE #1 = OPEN #1,8,0, "D‘ RENA 
ME" 

440 DATA CLR = CL. #1= CL. #2= DIM A*< 
25 ) 8.B* < 27 ) = OPEN# 1 8,48.08, " E ' " = B* < 1 8. 
2)«"D=" 

445 DATA ? CHR*<29); "P0DAJ8.0DDZI 
ELAJAC PRZECINKIEM*" =?"STARA I N 
OWA NAZWĘ ZBIORU!" 

450 DATA ? CHR*< 28); "STARA NAZ. , 
NOWA NAZ. ' ">=I.#1jA*=X«LEN<A*)= 
B*<38,X+2)»A*< 18,X> = X. 328,#28,08,0&B* 

431 DATA = ? = ?" NAZWA ZBIORU ZMIEŃ 
NA 

455 DATA -1 

460 RESTORE 440'GOSUB 140 
500 END 
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Program kopiujący 

Program umożliwia kopiowanie programów napisa- 
nych w języku wewnętrznym komputera. Po urucho- 
mieniu instrukcją RUN, program sygnalizuje poje- 
dynczym sygnałem (beep) gotowość do wczytywania 
oryginału z kasety. Naciśnięcie, np. klawisza RETURN, 
powoduje otwarcie kanału 1 w L.175 na czytanie. Gdy 


ATARI 


czytanie programu zostanie zakończone, komputer 
powiadomi podwójnym sygnałem dźwiękowym, że 
może rozpocząć wykonywanie kopii. Nastąpi to w 
momencie otwarcia kanału 1 jako wyjścia w L.260, 
przez naciśnięcie np. klawisza RETURN. Po wykona- 
niu kopii następuje powrót do sytuacji umożliwiającej 
wprowadzenie następnego programu. j. j. 


69 REM t*tt*tt*t*ttX*t*t*t 

70 REM * * 

75 REM *PRGGRAM KOPIUJĄCY* 

88 REM * * 

85 REM * KASETA-KASETA * 

98 REM * X 

95 REM ******************* 

100 DATA 104,174, 138/ 2<134<61<16 
0,0,162,0,185,0,4,129,203,200,23 
0 

105 DATA 203,208,2,230,204,196,6 

1.240.3.76.10.6.96 

110 DATA 184,169,128,133,61,160, 
0, 162,0, 161,203, 153,0,4,290,230 
115 DATA 293,208,2,230,204,196,6 

1.240.3.76.9.6. 198.61.96 
120 GRAPHICS 17 

125 P=PEEKC742>*256+PEEK<741>-PE 
EK< 1 45 ) *256+PEEK < 1 44 J - 1 500 
130 IF P> 32767 THEN P=32767 
135 DIM P*(P)=PS<1)«CHR*<0)=P*<P 
>»CHR*<0) PX<2)*P* 


140 POKE 203, ADR<PS)-< I NT (ADR (PS 
V2S6>*256> , P0KE 204, INT<ADR<P#> 
' 256 > 

145 FOR A-1536 TO 1365<READ D PO 
KE R,D’NEXT A 
150 TRAP 200 

153 ? §6;“ CZYTANIE PROGRAMU" 

160 ? #6;" Z KASETY" 

165 ? *6-? #6>" ucisniJ dowolny 

170 ? #6," kUwisz” 

173 OPEN #l,4,255,"C<"‘Bl-0 
180 FOR fl=Bl TO P STEP 128 
183 GET #1,U>B1-B14128'X-USR(153 
6 > 

190 NEXT A>? #6> "brsk Pamięci RA 
M do" 

193 ? #6; "skopiowania prosranu"' 
END 

200 IF PEEK(195)-138 THEN CLOSE 
205 GRAPHICS 17 


210 ? #6ł " WGRYWANIE PROGRAMU" 
215 ? #6 j" NA KASETE" 

220 ? *6»? #6 i " wciśnij dowolny" 
222 ? #6;" klawisz" 

225 GOTO 233 

230 ? “BLAD - "jPEEK<193> END 

233 RESTORE 110 

240 FOR A- 1336 TO 1566 

243 READ DPOKE A,D«NEXT A 

250 POKE 203, AO«<P»)-< INT<AC<R<PS 

V236>*236> 

253 POKE 204,INT<ADR<P#>/256> 

260 CLOSE #1 »OPEN #1,8,255, "C‘ 
263 FOR R-0 TO BI STEP 128 
270 X a USR< 1536) 

275 P-«SC<P$<A+128>> >PUT #1,P 
288 NEXT A 

283 CLOSE #1 ■GRAPHICS 17 
290 ? #6<? #6;" PROGRAM" 

293 ? #6;" SKOPIOWANY ! " 

300 FOR C-0 TO 1000 ■ NEXT C 
305 RUN 


Prawie trzy lata temu, wiosną 1984 roku wdarł się przebojem na 
europejski rynek mikrokomputerowy AMSTRAD CPC 464. Mało 
znana firma, która dotąd zajmowała się produkcją domowego 
sprzętu elektronicznego, zmieniła swoje zainteresowania i naty- 
chmiast odniosła ogromny sukces. AMSTRAD stał się popularny 
w Wielkiej Brytanii, Francji, w Hiszpanii, a nawet w Stanach Zjed- 
noczonych. A niemieckojęzyczną częścią Europy „zajął się” rów- 
nolegle jego RFN-owski bliźniak SCHNEIDER. 

POGWARKI 0 CPC 464 


Znakomicie pamiętam moje pier- 
wsze spotkanie z tymi urządzeniami. 
Odbyło się ono podczas Dni Kultury 
Mikroinformatycznej w klubie Abakus. 
Młodzi ludzie prezentujący owe kompu- 
tery budzili ogromne zainteresowanie 
oraz cichą zazdrość zarówno zaawan- 
sowanych „mikrofanów". jak i przyby- 
łych incognito informatyków. Te dwa- 
dzieścia kilka miesięcy, które minęły od 
tamtego czasu — prawie epoka w 
świecie mikrokomputerów — sprawiły, 
że poczciwa „464" mocno się zestarza- 
ła. zdążyła jednak zdobyć dużą popu- 
larność również w Polsce. Nic w tym 
dziwnego, gdyż maszyna to nie byle ja- 
ka. bez nadzwyczajnych, nie zawsze 
sprawdzonych nowinek technicznych, 
ale i bez większości błędów, jakie do- 
tąd popełniali konkurenci. Słowem — 
„licząca solidność”. W owym czasie 
parametry techniczne stawiały ją w 
czołówce mikrokomputerów domo- 
wych Bardzo dobry interpreter 
BASICa. niewygórowana cena oraz to. 
że był sprzedawany w zestawie z ma- 
gnetofonem i monitorem (co ogranicza 
do niezbędnego minimum nieporozu- 
mienia z domownikami i sprzętem) 
pozwalały sądzić, że długo jeszcze 
świat (a przynajmniej Europa) będzie 
stać przed nią otworem. Tym bardziej 
iż wspomniane zalety AMSTRADa oraz 


termin promocji sprzętu przyczyniły się 
w sporym stopniu do chłodnego przy- 
jęcia mikrokomputerów standard MSX. 
Zagrożenie nadeszło z najmniej ocze- 
kiwanej strony W kilka miesięcy pó- 
źniej AMSTRAD wypuścił kolejny mo- 
del - CPC 664. a po roku CPC 6128. 
„Chcąc wygrywać z innymi, musimy 
być konkurencyjni dla siebie samych" 
— usprawiedliwiał się w jednym z wy- 
wiadów Alan Sugar — naczelny anima- 
tor firmy... i w ciągu trzech lat przygo- 
tował do produkcji kolejne typy mikro- 
komputerów. PCW 8256. PCW 8512 
oraz „hit" ostatnich miesięcy IBM i po- 
dobny PC 1512. We wszystkich mode- 
lach. z wyjątkiem ostatniego, widać du- 
ży wpływ rozwiązań przyjętych w „czte- 


rysta sześćdziesiątce 'czwórce". 
Szczególnie zbliżone do niej są modele 
CPC 664 i CPC 6128. będące dla niej 
coraz mocniejszą konkurencją 
Nie będę pisał, jaka to porządna 
komputerowa rodzina — po prostu tro- 
chę się zżyliśmy. Sądzę zresztą, że nie 
tylko my... Pozwolę sobie zatem, zade- 
dykować wszystkim „wspaniałym męż- 
czyznom (i nie tylko ) na tych wspania- 
łych maszynach" kilka kolejnych po- 
gawędek poświęconych AMSTRADowi 
CPC 464. Ta niezobowiązująca forma 
umożliwia mi dosyć swobodne potrak- 
towanie tematu 

► 


ii 



► 

POGAWĘDKA PIERWSZA - COŚ 
NIECOŚ O „ŻELASTWIE” 

Na początku, zamiast cytować staro- 
żytnych, przytoczę wypowiedź Brucea 
Goddena z Locomotive Software, do- 
tyczącą założeń, jakie postawiono kon- 
struktorom pierwszego AMSTRADa. 
„Naszym celem było stworzenie wyrafi- 
nowanego komputera, łączącego dwie 
rzadko chodzące w parze cechy: jak 
najmniejszy koszt HARDWAREu i moż- 
liwie największą szybkość pracy. By- 
liśmy także zobowiązani udostępnić 
wszystkie możliwości maszyny pro- 
gramistom piszącym w BASICu". 

Przyjęto, że sercem (a może raczej 
mózgiem) komputera będzie tani, bar- 
dzo popularny i co istotne, dobrze zna- 
ny mikroprocesor Z80A. Wybór tego 
układu był podyktowany nie tylko jego 
zaletami technicznymi, chociaż znam 
kilku fachowców, którzy do dziś uważa- 
ją go za najlepszy, popularny procesor 
ośmiobitowy. Liczono przede wszyst- 
kim na szybkie pozyskanie oprogra- 
mowania. Już na etapie projektowania 
zakładano, że w zestawach z dołączo- 
ną pamięcią dyskową będzie pow- 
szechnie wykorzystywana jedna z 
wersji systemu operacyjnego CP/M. 
Konsekwentnie — dyskietka z CP/M 
2.2 była dodawana przy zakupie stacji 
dysków. Niestety, brak konsekwencji 
dał znać o sobie przy doborze standar- 
du nośnika. Zastosowano zupełnie 
nowy i drogi (co prawda dobrze zabez- 
pieczony) dysk 3-calowy, zamiast 
powszechnie używanej „piątki ", Muszę 
wyznać, że do dziś nie wybaczyłem te- 
go posunięcia Alanowi Sugarowi. 


Wróćmy jednak do środka, do „koś- 
ci" — ich powiązania funkcjonalne 
przedstawione zostały na zamieszczo- 
nym obok schemacie. 

Ponieważ Z80 jest układem pow- 
szechnie znanym i doczekał się odpo- 
wiedniej „literatury" w języku polskim, 
przypomnę tylko, że jego praca w 
AMSTRADzie jest synchronizowana 
sygnałem zegarowym o częstotliwości 
4 MHz (±0,1%). 

Najważniejszym, oczywiście po 
mikroprocesorze, układem komputera 
jest Video GATE ARRAY (często 
zdrobniale nazywany GATE ^RRAY). 
Można by przyrównać.g.o dólJLA w ZX 
SPECTRUM. Zawarte w nim układy 
wykonują elementarne działania logi- 
czne i realizują funkcję, od których 
bezpośrednio zależą niemal wszystkie 
operacje komputera. GATE ARRAY po 
prostu koordynuje pracę systemu. W 
szczególności zaś uaktywnia lub bloku- 
je pamięć ROM, nadzoruje pracę w 
określonym trybie graficznym, a co się 
z tym wiąże ponosi odpowiedzialność 
za „gospodarowanie". W powiązaniu z 
kontrolerem monitora ekranowego 
(układ HD 6845S CRTC) generuje 
sygnały video, synchronizuje i wymu^ 
sza zmiany obrazu, zgodnie z potrze^ 
bami aktualnie realizowanego progra- 
mu. Istotną funkcją GATE ARRAY jest 
także zerowanie odpowiednich rejes- 
trów i uaktywnianie procedur obsługi w 
razie wyłączenia zasilania lub zerowa- 
nia mikrokomputera przez jednoczesne 
naciśnięcie klawiszy CTRL, SHIFT i 
ESC. 

Problem generowania sygnałów 
akustycznych rozwiązano w AMS- 
TRADzie, stosując układ scalony 
AY— 3— 8912 firmy General Instru- 



ments, oznaczony na schematach li- 
terami PSG (Programable Sund Gene- 
rator). Ma on trzy niezależne kanały 
dźwięku oznaczone literami A, B i C 
oraz pseudolosowy generator szumu, 
dołączany do dowolnego z nich. Kana- 
ły A i C to dwa oddzielne tory stereofo- 
niczne. a dźwięk z kanału B jest mi- 
ksowany z sygnałami w obydwu to- 
rach. Efekt stereofonirmozna uzyskać 
jedynie przy użyciu zewnętrznego 
wzmacniacza. Sygnał wprowadzany 
jest wówczas przez łącze zawsze „ma- 
łym JACKiem". Wbudowany w kompu- 
ter głośnik współpracuje jednocześnie 
ze wszystkimi kanałami, a jego para- 
metry znacznie obniżają jakość gene- 
rowanego dźwięku. I jeszcze jedno, 
sygnały akustyczne, jakie powstają 
podczas wczytywania programów z 
taśmy kasetowej, nie są niestety wy- 
prowadzane na zewnątrz. 

W układzie scalonym programowa- 
nego generatora dźwięku znajduje się 
również 1/0 PORT — element wejścia- 
-wyjścia, przez który są wprowadzane 
informacje z klawiatury i JOYSTICKÓW. 
Port ten współpracuje z równoległym 
układem sprzęgającym PPI (Parallel 
Paripheral Interface — układ scalony 
8255). Nazwa równoległy oznacza, że 
pozwala on przekazywać dane po oś- 
miu liniach równocześnie. Za pośred- 
nictwem PPI komputer korzysta z pa- 
mięci na taśmie kasetowej, steruje 
pracą silnika magnetofonu, a przy uży- 
ciu połączonego z nim i mikroproceso- 
rem złącza równoległego CENTRO-, 
NICS może współpracować z więk- 
szością drukarek, przesyłając informa- 
cje w przyjętym jako standard między- 
narodowy amerykańskim kodzie ASCII. 

Konstruktorzy AMSTRADa przewi- 
dzieli także potrzebę rozbudowy sy- 
stemu komputerowego o różnego ro- 
dzaju urządzenia dodatkowe, jak np.: 
modem, łącze szeregowe, moduły pa- 
mięci, pióro świetlne, a przede wszyst- 
kim pamięć dyskowa. Do tego celu 
przeznaczona została łącząca się bez- 
pośrednio z układem mikroprocesora 
szyna 'Systemowa. Podłączyć dę. niej 
można równocześnie wiele różnych 
elementów, nakładając jedna na drugą 
łączówki kolejnych urządzeń. 

Niestety, kiedy wyobrażę sobie, co 
mógłbym połączyć do zaprzyjaźnione- 
go CPC i jaką to sprawiłoby nam 
obydwu radość, zaczynają drżeć mi 
ręce i zupełnie nie mogę się skupić. 
Nie pomagają proszki od bólu głowy. 
Dopiero wielokrotne powtarzanie pół- 
głosem, że: nawet najprostszy AMS- 
TRAD może dać mi wiele radości — 
tylko należy poświęcić mu trochę oza- 
su — przynosi pewną ulgę. 

Siadamy zatem do przygotowania 
POGAWĘDKI DRUGIEJ — FIRM- 
WARE, ALEŻ TO NIE TAKIE PRO- 
STE. 

ROM-man 
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Kompulei w medycynie 


Tomografia komputerowa 


W 1895 roku niemiecki fizyk Wilhelm Roentgen wykonał, przy 
użyciu promieniowania o nieznanej wówczas naturze, zdjęcie 
układu kostnego dłoni człowieka, otwierając tym samym drogę do 
bezpośredniej penetracji ludzkiego ciała bez konieczności użycia 
skalpela. Uzyskana w ten sposób fotografia, oczywiście czarno- 
-biała i nieostra, była efektem utrwalenia na kliszy fotograficznej 
zjawiska pochłaniania promieniowania X przez duże cząstki, 
w tym wypadku wapnia — efekt cienia na 1 części rysunku. 


Przy takiej technice prześwietleń 
obraz uzależniony jest od kąta widze- 
nia. czyli kierunku padania wiązki pro- 
mieniowania. Ponadto zdjęcie rentge- 
nowskie. przy bardziej złożonej struktu- 
rze wewnętrznej organizmu może być 
trudne do interpretacji, gdyż bliższe 
organy, pochłaniające promieniowa- 
nie. mogą zakrywać następne, głębiej 
położone. 

Kolejne dziesięciolecia badań na- 
ukowych przyniosły wyjaśnienie natury 
użytego promieniowania, poprawę ja- 
kości uzyskiwanej fotografii i coraz 
bliższą urzeczywistnienia myśl o nowej 
metodzie rentgenografii, nie obarczo- 
nej brakami metody klasycznej. Myśla- 
no zatem coraz śmielej o kolorowym 
obrazie trójwymiarowym ' badanego 
narządu wewnętrznego, przy czym już 
nie w formie zdjęcia, lecz na ekranie te- 


lewizora, Trzeba było jednak na to cze- 
kać aż do 1 972 roku, gdy geniusz ludz- 
ki połączył pozornie odległe techniki: 
badań rentgenowskich, otrzymywania 
obrazu video i komputerowego prze- 
twarzania danych. Rezultat, który przy- 
niósł autorowi nagrodę Nobla nazwano 
tomografem komputerowym. Centralną 
częścią tego urządzenia jest bęben 
obrotowy (na rysunku część 2) z trze- 
ma źródłami promieniowania rentge- 
nowskiego i setkami czujników tego 
promieniowania umieszczonymi syme- 
trycznie na jego obwodzie. Pacjent 
poddawany badanru umieszczany jest 
wewnątrz bębna, który powoli obraca- 
jąc się i przesuwając wzdłuż ciała 
człowieka umożliwia wykonanie serii 
zdjęć rejestrujących milimetr po mili- 
metrze organy ludzkiego ciała w prze- 
kroju poprzecznym. Wyniki kolejnych 


prześwietleń, zapisane w kodzie cyfro- 
wym wraz z dokładnym określeniem 
położenia urządzeń naświetlających 
względem pacjenta, są przechowywa- 
ne w pamięci komputera. Komputer 
dysponuje zatem setkami zdjęć bada- 
nego narządu wewnętrznego, widzia- 
nego z każdej możliwej strony. W tym 
momencie decydujący staje się kunszt 
programistów, którzy stworzyli opro- 
gramowanie komputera, będącego 
częścią składową tomografu. Zebrane 
dane, stanowiące ułamkowe obrazy 
anatomiczne w kodzie maszynowym, 
przetwarzane są bowiem w jeden trój- 
wymiarowy obraz widoczny na monito- 
rze operatora tomografu. Dla podnie- 
sienia czytelności obrazu jest on auto- 
matycznie nasycany kontrastującymi 
kolorami. Uwydatnia to subtelne różni- 
ce między narządami, doskonale wido- 
cznymi na przyciemnionym' tle. 

Efekt podróży do wnętrza ciała ludz- 
kiego przy użyciu tomografu kompute- 
rowego przypomina do złudzenia ba- 
danie przez płetwonurków dna mor- 
skiego z jego złozoną florą i fauną Bo- 
gata paleta grafiki komputerowej poz- 
wala przykładowo na eksplorację krę- 
gosłupa przypominającego na ekranie 
wielką rafę koralową, spękaną i pełną 
ubytków w przypadku ciężkich urazów. 

Lekarz śledząc obraz tomograficzny 
pacjenta bez trudu natrafi na ślad po- 
stępującego zniekształcenia organów, 
wywołanego nowotworem, co umożli- 
wia szybką diagnozę i bezbłędną akcję 
chirurgiczną. Niestety tą metodą nie 
można wykryć wczesnej fazy choroby 
nowotworowej, fazy. w której nie wy- 
stępują jeszcze zmiany kształtu zaata- 
kowanego narządu — choć i na to jest 
już metoda, której poświęcimy następ- 
ną relację ze skomputeryzowanego 
świata medycyny. Dla podkreślenia 
wagi tomografii komputerowej nie mo- 
żna nie wspomnieć o innym bardzo 
ważnym jej zastosowaniu. Dane prze- 
chowywane w pamięci komputera ze- 
brane przez tomograf podczas prze- 
świetlenia pacjenta mogą być bardzo 
przydatne w chirurgii, nie bez przyczy- 
ny nazywanej rekonstruującą. Sprzę- 
żenie precyzyjnej obrabiarki z kompu- 
terem pamiętającym wyniki badania 
tomograficznego umożliwiają stworze- 
nie plastycznej kopii dowolpej części 
kości. Chirurg planujący przykładowo 
operację miednicy dysponuje zatem na 
podstawie obrazu tomograficznego 
zdrowej części ciała precyzyjną kopią 
operowanego elementu, co niezmiernie 
ułatwia mu pracę 

I pomyśleć, że Roentgen opowiada- 
nie o tomografie komputerowym po- 
traktowałby jako powiastkę science- 
-fictión! 

AT 
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15—16 


Gra w oczko 

Proponujemy Wam grę hazardową. 
Hasło „hazard" pochodzi z francuskiego, 
gdzie oznacza: przypadek, traf, zdarzenie 
losowe. Tak więc formalnie: gra hazar- 
dowa gra przypadkowa. 

Rzetelną grą przypadkową powinien 
rządzić „ślepy los". Na tej zasadzie dzia- 
łają kolektury loteryjne i Toto-Lotek. Ale 
bywa, że ktoś świadomie ..pomaga loso- 
wi". W takim wypadku mamy do czynie- 
nia z oszustwem (wide: Kodeks karny). 

Gra w „oczko" wymaga talii z 24 kart 
(od asów do dziewiątek). Mają one na- 
stępujące wagi: as — 11 punktów („0 — 
oczek"), dziesiątka — 10 pkt., król — 4, 
dama — 3, walet — 2, zaś dziewiątka — 
zero punktów. Kolor nie gra roli. 

Jeden gracz (bankier) wydaje po jed- 
nej karcie, zaś drugi gracz starannie kal- 
kuluje: 

— jeśli ma 21 punktów (czyli „oczko”) 
to zawsze wygrywa, 

— jeśli ma ponad 21 punktów (czyli 
„furę”), to zawsze przegrywa. 

— jeśli ma poniżej 21 punktów (przy- 
kładowo 17) to „czeka” i wtedy losuje 
bankier. 

W tym pojedynku zwycięża ten, kto ma 
więcej punktów. 

W przypadku remisu (dwa razy po 17 
lub dwie „fury") wygrywa bankier. 

Jeśli bankier wylosuje kolejno dwa asy 
I ma 22 punkty to wygrywa („bankierskie 
oko"). 

Program wywołuje etykieta „X” (RUN 
10). 

Ludowe porzekadło głosi nie za to 

ojciec prał syna, że grał w karty, ale za to, 
że się ogrywał...". 

Zweryfikujcie: u nas nie ma ograniczeń 
stawek! Janusz MILLER 

SHARP ■ 1500-PC 


10: "X" i CLEAR : 
RANDOM : US1NG 
: LIAI T 0 

20: DI fi T<6, 4>, J<2 
4), P<24>, Hi<6> 
, Ki<4> 

30: DATA " 9 " W 

ALET ", " DAflA 
", " KRÓL ", " 1 
0 ", " AS " 

40: DATA "KIER", "K 
ARO", "TREFL", " 
PIK" 

50: RESTORE 30: FOR 
L=1 TO 6: READ H 
i<L>:NEXT L 

60: RESTORE 40: FOR 
L=1 TO 4: READ K 
$<L):NEXT L 


70: U=0: U=0: Fi="FU 
RA ! ":Pi=" PK 
T. ":Oi="*OKO* 

II 

80: INPUT "JAKA ST 
ALIKA ? ";S 
90: IF S<=0THEN 
BEEP 7, 100, 300 
: GOTO 80 

100: LIAI T 0:D=0: 
INPUT "DAC KAR 
TE ? T=1 N-0 "• 
ID 

110: IF D=0GOTO 150 

120: GOSUB "A":X=X+ 
1 : J<X)=Z:PRINT 
"TY ";h$<:h>;k* 
<K>; 

130: GOSUB "C":U=U+ 
Q: IF U=21 THEN 
CLS : PRINT Oi; 

■ GOTO 300 

140: WAI T 100: PRINT 

; U; Pi: CLS 

: LIAI T 0: GOTO 1 
00 

150: GOSUB "A":Y=Y+ 
I : P(Y)=Z: PRINT 
"ON ";Hi<H>;Ki 
<K>; 

160: GOSUB "C":U=U+ 
Q: IF U=21 THEN 
CLS : PRINT Oi: 
GOTO 310 

170: UAI T 100: PRINT 
" :"-;U;Pi:CLS 
: LIAIT 0: IF <U> 
UAND U< 171G0T0 
150 

180: IF Y=0GOTO 200 

190: IF CINT P<Y>+ 
INT P(Y-1 > >=12 
THEN PRINT Oi; 
: GOTO 310 

200: IF U>21THEN 

PRINT Fi; '.GOTO 
310 

210: IF U >21 THEN 
PRINT Fi;: GOTO 
300 

220: IF UHJGOTO 300 

230: IF U>=UG0T0 31 
0 


SHARP 


300: LIAI T 0: PRI NT ‘ " 
LI Y G R A L E 
S " : BEEP 20,25 
, 25: f1=I1+S: GOTO 
320 . 

310: UAI T 0: PRINT " 
PRZEGRA 
L E S " : BEEP 3 
, 100, 300: M=t1-S 
320: LIAIT , 100: PRINT 
"R E Z U L T A 
T" 

330: IF M<0THEN 

PRINT "S T R A 
T A : " j ABS M: 
GOTO 350 

340: PRINT "Z Y S 
K :";n 

350: IF X>230R Y>23 
GOTO 500 

360: D=0: INPUT "GRA 
MY ? T=1 N=0 " 
iD 

370: IF D=1G0T0 70 
380* END 

390: "B“ : H=INT Z:K= 
<Z-H>*10: 
RETURN 

400: "A":H=RND 6:K= 
RND 4: IF T(H, K 
>=1AND F< >24 
GOTO 400 

410:Z=(K/ , 10>+H:T(H 
, K>=1 : F=F+1 : IF 
F425RETURN 
420:LIAIT 0: PRINT " 
KONIEC TALII": 
BEEP 10,50,100 
: GOTO "D" 

430: "C": IF H=1LET 
Q=0 

440: IF <H=2>OR (H= 
3>0R <H=4 >LET 
Q=H 

450: IF H=5LET Q=10 
460: IF H=6LET Q=ll 
470: RETURN 
500: "D" : LIAI F 50: Ti 
=" TY ": Oi=" 0 
N " : PRINT "K 
A R T Y" 
510: FOR L=1T0 24 
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520: IF J<L)=0GOTO' 
540 

530: Z=J <L ) : GOSUB " 
B" : PRINT STR$ 
Li T$;H$<H>;K$< 
k> 

540: IF PCL)=0GOTO 
560 

550: Z=P<L ) : GOSUB " 
B" : PRI NT STRi 
l;0$;h*<h>;k$< 
K> 

560: NEXT L=GOTO 10 


Przykład 


KARTY 
1 TY WALET TREFL 

1 ON DANA KIER 

2 TY AS TREFL 

2 ON AS PIK 

3 TY 9 KIER 

3 ON DANA KARO 

4 TY KRÓL KIER 

4 ON KRÓL PIK 

5 TY AS KARO 
5 ON 9 PIK 


6 

TY 

10 PIK 

6 

ON 

10 KIER 

7 

TY 

WALET KARO 

7 

ON 

WALET PIK 

8 

TY 

10 TREFL 

8 

ON 

KRÓL TREFL 

9 

TY 

9 TREFL 

9 

ON 

AS KIER 

10 

TY 

WALET KIER 

10 

ON 

KRÓL KARO 

11 

TY 

10 KARO 

11 

ON 

DANA TREFL 

12 

TY 

DANA PIK 

13 

TY 

9 KARO 


GRA W OCZKO 

5 LET «-0 

1© DIM t <6»4> * DIM j <24> 

15 DIH p <24> I DIM hx<6r6> 

2© DIM kx<4»5> 

25 DATA "9 ", 'WALET " » “DAMA ' 

30 DATA “KRÓL "»"10 " t "AS ' • 

35 DATA 'KIER' t "KARO” » "TREFL" » "PIK" 

4© RESTORE 

45' FOR L-l TO 6« READ H* (L> * NEXT L 
5© FOR L-l TO 4* READ K*(L>» NEXT L 
55 LET f-©» LET k«0i LET y-0 
6© LET o-©« LET v»© 

65 LET fx-"FURAl "i LET Px-" PKT . ' 

70 LET ox-“*OKO*" 

80 INPUT 'Jaka stawka ? "I* 

9© IF *<-# THEN BEEP .2,-151 GO TO 80 
10© INPUT 'Dac karto? T/N "lax 
11© IF ax< >"t" AND ax<>'T" THEN GO TO 150 
12© GO 8UB 4001 LET k-k+ 1* LET j(x>-* 

125 PRINT "TY "» INWERSE 1 lhx <h) »kx (k> f 

130 GO 8UB 4301 LET u-u+q 

135 IF u-21 THEN PRINT ox» GO TO 300 

140 PRINT " »"lu»px* GO TO 100 

15© GO SUB 4001 LET y-y+H LET p<y)-« 

155 PRINT INUERSE ll"ON" » INUER8E 0lhx (h> »kx <k) I 
160 GO SUB 430» LET v-v+q 
165 IF v-21 THEN PRINT oxi GO TO 310 
7© PRINT INYER8E 1»" «"»v»px 
*75 IF u > v AND v<17 THEN GO TO 150 
18© IF y-0 THEN GO TO 200 
19© IF y> 1 THEN GO TO 250 
200 IF u>21 THEN PRINT fx»i GO TO 310 
210 IF v>21 THEN PRINT fx|i GO TO 300 
220 IF u> v THEN GO TO 300 
230 GO TO 310 

250 IF INT p <y> +INT p<y-l>-12 THEN PRINT qX» 


SPECTRUM 


260 GO TO 310 

299 REM 

300 PRINT 'WYGRAŁEŚ" 

305 BEEP • 1 r 101 BEEP .7,10 
307 LET M-M+St GO TO 320 

310 PRINT 'PRZEGRAŁEŚ" 

315 BEEP .2»-14« PAUSE Si BEEP *2,-14 
317 LET M-M-8 

320 PRINT "REZULTAT" 

330 IF m< 0 THEN PRINT "8 T R A T A «"»-*! GO TO 350 
340 PRINT "Z Y 8 K l"»« 

350 IF x>23 OR y>23 THEN GO TO 500 

360 INPUT "gramy ? T/N "»ax 

370 IF ax-'t“ OR a*-"T" THEN GO TO 60 , 

380 STOP 

390 LET h-INT H LET k-<*-h>»10i RETURN 

400 LET h-INT (RND«6)+li LET k-INT <RND«4>+1 

405 IF t<h»k)-l AND f<>24 THEN GO TO 400 

410 LET z-k/10+hi LET t(h»k)-l 

415 LET f-f + H IF f <25 THEN RETURN 

420 PRINT ' KONIEC TALII" 

425 BEEP .2r0i GO TO 500 

430 IF h-1 THEN LET q-0 

440 IF h-2 OR h-3 OR h-4 THEN LET q-h 

430 IF h-3 THEN LET q-10 

460 IF h-6 THEN LET q-ll 

470 RETURN 

300 LET tx—** TY "J LET 0«-" ON " 

303 PRINT "KARTY" 

510 FOR 1-1 TO 24 > 

520 IF j<l>-0 THEN GO TO 540 
530 LET *-j< 1>» GO 8UB 390 
535 PRINT BTRx 1 ltx|hx (h) lkx <k) 

540 IF p(l)-0 THEN GO TO 560 
550 LET z-p<l)i GO SUB 390 
555 PRINT 8TR* 1 l,oXlhx <h) lkx <k) 

560 NEXT li PAUSE 01 RUN 


AMSTRAD 

PROGRAM ZNOSI PROTEKCJĘ 
ODCZYTU 

Przedstawiony program znosi „protekcję odczytu". Czę- 
sto chcemy podejrzeć komendą LIST sposób, w jaki dany 
program został napisany w języku BASIC. Niestety nie za- 
wsze jest to możliwe. Prezentowany poniżej program poz- 
woli uporać się z tym problemem. Chcąc odczytać pro- 
gram napisany w języku Basic należy najpierw załadować i 
uruchomić komendą RUN poniższy program, a następnie 
załadować komendą LOAD interesujący nas program. Mo- 
żecie być pewni, że większość programów da się teraz 
przejrzeć komendą LIST. 


10 SYMBOL AFTER 256: MEMORY &A640: SYMBOL AFTER 240 
20 FOR x=0 TO 54: READ a:P0KE iA641+x,a:NE](T 
30 IF PEEK (IrACOl ) =0 THEN P0KE *A669,44 
40 CALL &A641 

50 CALL &BBBA: CALL «C02:M0DE 1 : PEN 1: PAPER 0 
60 M0DE 2: INK 0, 13: INK 1,1:B0RDER 1 3: PRINT“PR06RAM 
ZAŁADOWANY * : PRINT CHR$(164P POWODZENIA" : PRINT 
70 NEN 

80 DATA 58, 122, 188,50, 120, 166,62, 195,50, 122, 188,42 
, 123,188,34, 121,166,33,89, 166.34,123,188,201,245,2 
29,58, 120, 166,50, 122, 188,42, 121,166,34, 123, 188,175 
,50,69, 174,225,241,205, 122, 188,245,229,205,65, 166, 
225,241,201 
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Wielkie centrum sprzedaży komputerów 
pod San Francisco. Zabrakło tanich ja- 
pońskich cudów techniki. 

(Foto: — „Stern") 

ogromnych wydatków zbrojeniowych. 
Dolar był i jest międzynarodową walutą 
rezerwową, w której dokonuje się po- 
nad 60 proc. wszystkich rozliczeń mię- 
dzynarodowych. Ponadto powiedzmy 
zwyczajnie i wprost: nie stać już dziś 
gospodarkę amerykańską na wymien- 
ność dolara na złoto, ale stać ją na to, 
by „przełknęła" wprowadzenie kilku czy 
kilkunastu miliardów dolarów na rynek, 
za pomocą maszyn drukujących „zie- 
lone", bez komplikacji w postaci inflacji. 
Przy czym obecnie na skutek niepraw- 
dopodobnego zadłużenia wewnętrzne- 
go (deficyt budżetowy) pojawiły się 
oznaki niepokoju na rynku. Dziś w Bia- 
łym Domu zdają sobie sprawę, że USA 
muszą konkurować na rynkach zagra- 
nicznych i prezentować atrakcyjną 
ofertę eksportową. Także i w zakresie 
elektroniki. 

Japończycy obliczają, obserwują i 
wiedzą. Świadomi są tego, iż roczny 
wskaźnik wzrostu produkcji w USA w 
przeliczeniu na godzinę prący zmniej- 
szył się już od połowy lat sześćdziesią- 
tych. Realne koszty jednostki pracy są 
wyższe niż w Japonii. Wydajność pracy 
również wzrasta w tempie wolniejszym. 
Jakość wyrobów „madę in USA” jest 
gorsza niż japońskich. Występuje zja- 
wisko opóźnienia w inwestycjach 
technologicznych. W zakresie maszyn 
numerycznych USA utraciły przodują- 
cą pozycję na rzecz Japonii. Amery- 
kańscy producenci skoncentrowali się 
na osiąganiu szybkich zysków, co wy- 
paczyło ich politykę inwestycyjną w 
dziedzinie produkcji artykułów elektro- 
nicznych codziennego użytku. Ustą- 
pienie miejsca Japończykom, czyli re- 
zygnacja z rynku wewnętrznego, od- 
nośnie tych artykułów jest równozna- 
czna z osłabieniem eksportu. Teraz 
próbuje się cłami ochronnymi odwró- 
cić tę sytuację. 

Decyduje technologia 

Uwagę specjalistów zwraca problem 


Kaizen zen-ja — przed- 
dzień wojny. Takie słowa 
słyszy dziś Japończyk w te- 
lewizji, w radio. Czyta je 
także na łaniach gazet. 
Rozbrzmiewało ono przed 
laty, niedługo przed ata- 
kiem japońskiego lotnictwa 
na bazę amerykańską w 
Pearl Harbour, w grudniu 
1941 r. Hasło to zwiastowa- 
ło Japończykom początek 
„Wielkiej wojny o Pacyfik”. 
A co zwiastuje dziś? 

USA obłożyły wysokimi cłami wyroby 
japońskiego przemysłu elektroniczne- 
go. Od paru miesięcy wszyscy, i w Ja- 


Wojna o komputery 


ponii i W USA, studiują długą listę pro- 
duktów, które obciążono cłem, a jak 
mawiają Japończycy, „karhymi opła- 
tami”, w wysokości 1 00 proc. ich war- 
tości. Spis ten obejmuje m.in. stacje 
dysków elastycznych do komputerów, 
n«n procesory, odbiorniki telewizyjne, 
radiomagnetofony, lodówki, klimatyza- 
tory, satelity komunikacyjne, silniki 
elektryczne ' małej mocy, przyrządy 
pomiarowe, pompy, filmy światłoczułe, 
ręczne narzędzia o napędzie elektry- 
cznym. Natomiast cłem nie są obcią- 
żone półprzewodniki, których amery- 
kański przemysł komputerowy potrze- 
buje, a nie może zastąpić własną pro- 
dukcją. Tak więc zarządzenia ochron- 
ne dotyczą przede wszystkim urządzeń 
elektronicznych. Oblicza się, że Japo- 
nia straci na tym ok 300 min dolarów 
rocznie. 

Czy Japończycy musieli zgodzić się 
na te restrykcje? 

Obserwatorzy zagraniczni w Tokio 
relacjonują, że postępowanie Amery- 
kanów przypomina mieszkańcom Kraju 
Wschodzącego Słońca rok 1 853, kiedy, 
to amerykański admirał Matthew Perry 
pojawił się u wybrzeży japońskich ze 
swą flotą i bez większych ceregieli za- 
żądał przerwania ścisłej izolacji Japo- 
nii, którą kraj ten stosował wobec sie- 
bie. Władcy jego uznali bowiem, że le- 
piej nie wiedzieć, co dzieje się u in- 
nych, niż narażać się na kontakty z 
„barbarzyńcami". Tylko że admirał Per- 
ry rozporządzał ogniem swych dział i 
był gotów zrealizować groźby zawarte 
w ultimatum: otwieracie granice albo... 

W Waszyngtonie uznano wówczas, 
że rynek japoński jest tak nęcący, iż 
USA nie mogą czekać, aż konkurenci 
ich ubiegną. Skończyło się na prote- 
stach szogunów, ale wymowa straszli- 
wych dział była aż nadto przekonująca. 


Dziś jakby sytuacja się „odwróciła". 
To Amerykanie zamykają drzwi przed 
japońskim „nosem", przynajmniej, jeśli 
chodzi o elektronikę. Można powie- 
dzieć: jakże to, USA i Japonia są sojusz- 
nikami, współpraca militarna rozwija 
się doskonale. To wszystko prawda, 
ale jednocześnie USA mają 1 70 miliar- 
dów dolarów deficytu handlowego, a 
nadwyżka eksportu japońskiego do 
USA wynosi 52 mld dolarów. Potwier- 
dza się stare porzekadło: tam, gdzie 
chodzi o pieniądze, kończą się żarty, a 
zaczyna... cło! 

A czy „żartować" mogą tylko Amery- 
kanie, przecież w końcu, to nie poło- 
wa XIX wieku, ale koniec XX! 

Ustępliwość Japończyków tłumaczy 
się zależnością ich kraju od źródeł su- 
rowcowych. Wiemy, co potrafią produ- 
kować i jak, ale muszą mieć z czego. 
USA pozostają na razie czołowym pro- 
ducentem w świecie kapitalistycznym 
wielu rodzajów surowców i są potę- 
żnym eksporterem węgla, molibdenu, 
magnezu, fosfatów, materiałów z za- 
wartością boru. Dla prawie bezsurow- 
cowej Japonii amerykański partner jest 
tym, na którego przypada jedna trze- 
cia ogólnego importu paliw mineral- 
nych i jedna czwarta surowców nie- 
energetycznych. USA odgrywają de- 
cydującą rolę w zaopatrzeniu gospo- 
darki japońskiej w surowce. I taka jest 
prawda. I takie są konsekwencje. 

Japończycy protestują, ale na tym 
się skończy. Nie skończyły się nato- 
miast nadzieje Japończyków, że „za- 
łatwią” Amerykanów sposobem. 

Koniec rozrzutności 

Dotychczas USA mogły sobie poz- 
wolić na tolerowanie deficytu budżeto- 
wego i handlowego. Olbrzymi potencjał 
gospodarczy jeszcze znosi brzemię 
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technologiczny. W ostatnich latach 
przemysł elektroniczny w USA prze- 
znaczył 67 miliardów dolarów na bada- 
nia i opracowanie nowych technologii. 
Połowa tej kwoty pochodzi z kas rzą- 
dowych. Jest to akurat trzy razy tyle, ile 
mogą wydać na te cele japońscy kon- 
kurenci. A jednak ich wyroby elektroni- 
czne, a szczególnie komputery o poje- 
mności pamięciowej 1 megabita oraz 
mikroprocesory o pojemności 32 bitów 
skutecznie rywalizują z analogicznymi 
urządzeniami „madę in USA". Dlacze- 
go? 

Japończycy twierdzą, że ani Euro- 
pejczycy, ani Amerykanie nie potrafią 
handlować. Towar trzeba umieć nie 
tylko wyprodukować, ale i sprzedać. 
Mentalność ludzi Wschodu jest inna niż 
Zachodu. Na to Amerykanie powiada- 
ją: to co, mamy sprzedawać nasze 
komputery w kimonie? Kłaniać się 
klientom? Obie strony wiedzą doskona- 
le, że nie o to chodzi, lecz zwyczajnie o 
„szmal". Godzinę drogi na południe od 
San Francisco, w pobliżu wzgórz Santa 
Cruz znajduje się ogromne centrum 


sprzedaży urządzeń elektronicznych. 
Można tu nabyć komputery do koloru i 
wyboru, podzespoły, monitory mono- 
chromatyczne, drukarki mozaikowe, 
laserowe, plottery, digitizery, streame- 
ry, zespoły indywidualne v sieci kompu- 
terowe, zestawy specjalistyczne z wy- 
posażeniem, moduły do mikrokompu- 
terów, układy scalone itp. Na wieść o 
podniesionych cłach na wyroby japoń- 
skie rozległ się tu (gdzie indziej rów- 
nież) płacz i zgrzytanie zębów. Ceny 
japońskich produktów elektronicznych 
były do tej pory tańsze. Niektórzy klien- 
ci mówią, że amerykańskie nie są gor- 
sze. Inni, że japońskie lepsze, ale ceny, 
te ceny! 

Skorzysta klient 

USA bronią się przed japońską, i nie 
tylko, konkurencją, machinacjami na 
giełdach, które powodują kierowany 
spadek wartości dolara. Dziś za 1 „zie- 
lonego" otrzymuje się więc mniej je- 
nów, niż przed rokiem. Czyli że Amery- 
kanin musi wydać więcej dolarów, by 
kupić japońskie cuda elektroniczne. 
Zwyżka wartości jena japońskiego już 


daje o sobie znać w postaci jeszcze 
nieznacznego, ale wyraźnego spadku 
eksportu. A przecież Japonia żyje z te- 
go, co sprzeda. W Tokio złośliwie przy- 
pominają amerykańskim sprzymie- 
rzeńcom: jak w tym świetle wygląda 
wasze zachwalanie wolnej, nieskrępo- 
wanej gospodarki? Najpierw tyle się 
gada o liberalizmie, handlu wolnym od 
barier i restrykcji, a jak są lepsi od was, 
to sięgacie do metod, które obłężyliście 
klątwą! 

Tzw. wojna handlowa między USA a 
Japonią nie ogranicza się jedynie do 
niezadowolenia amerykańskich i ja- 
pońskich konkurentów „elektroni- 
cznych". Trudno sobie wyobrazić, aby 
jedna ze stron miała skapitulować. W 
trakcie tej niewątpliwej walki o rynki 
może dojść do taktycznych kompromi- 
sów, ale nic więcej. Z drugiej strony 
amatorzy domowej elektroniki zyskają 
na tym. Japończycy wymyślą kolejne 
nadzwyczajne rzeczy w elektronice. 
Amerykanie i Europejczycy nie zostaną 
w tyle. 

Henryk KAWKA 



MIKROKOMPUTERY IBM PC (3) 


następującą organizację ekranu: w modzie 
alfanumerycznym 40 lub 80 znaków w 25 li- 
niach w szesnastu kolorach: w modzie gra- 
ficznym: małej rozdzielczości 160x100 
punktów adresowanych bezpośrednio w 
szesnastu kolorach, średniej rozdzielczości 


W poprzednim odcinku przedstawiony został uproszczony 
schemat blokowy pakietu systemowego mikrokomputera IBM 
PC/XT, na którym znajdują się: mikroprocesor INTEL 8088 z ko- 
procesorem INTEL 8087 i ze współpracującymi układami m.in. 
8284, 8259A, 8237 A, 8253, 8255; pamięć zapisywalna RAM o po- 
jemności 256 KB; pamięć stała ROM. 


W mikrokomputerze do pakietu systemo- 
wego muszą być dołączone pakiety umo- 
żliwiające współpracę z monitorem, drukar- 
ką lub plotterem, stacją dysków elasty- 
cznych. dyskiem stałym (twardym, sztyw- 
nym — ang. hard disk, fixed disk). Nie wy- 
czerpuje to listy możliwych pakietów. Na fot. 
1 przedstawiono niektóre z nich. 

Karta graficzna służy do organizacji 
ekranu monitora. Możliwe są dwa mody 
pracy mod alfanumeryczny 40 lub 80 
znaków w 25 liniach oraz mod graficzny 
160x100, 320x200, 640x200, 640x350 lub 
720x348 punktów adresowych bezpośred- 
nio. odpowiednio w standardzie małej, śred- 
niej i dużej rozdzielczości. Możliwe mody 
pracy ekranu monitora zależą od karty gra- 
ficznej (kart graficznych) przyłączonej do 
pakietu systemowego. 

W mikrokomputerach IBM PC/XT (i kom- 
patybilnych) można spotkać następujące 
karty graficzne: Monochrome Display Adap- 
tor, Color Graphics Adaptor, Enhanced 
Graphics Adaptor, Hercules. 

Monochrome Display Adaptor (MDA) 
umożliwia pracę w modzie alfanumery- 
cznym 80 znaków w 25 liniach, w modzie 
graficznym 720x350 punktów adresowa- 
nych bezpośrednio. Podstawowym układem 
karty jest sterownik MOTOROLA 6845 CRT. 
karta ma pamięć ekranu 4 KB. MDA może 
zawierać złącze równoległe, do połączenia 
drukarki lub plottera. 

Color Graphics Adaptor (CGA) umożliwia 


320x200 punktów w czterech kolorach, du- 
żej rozdzielczości 640x200 punktów w 
dwóch kolorach. CGA ma pamięć ekranu 
16 KB, podstawowym jej układem jest ste- 
rownik 6845 CRT. Istnieje możliwość dolą-, 
czenia do karty pióra świetlnego, 

Enhanced Graphics Adaptor (EGA) w 
modzie alfanumerycznym organizuje ekran 
monitora identycznie jak CGA. W trybie gra- 
ficznym EGA umożliwia: średnią rozdziel- 
czość 320x200 punktów adresowanych 
bezpośrednio w szesnastu kolorach, dużą 
rozdzielczość 640x200 w szesnastu kolo- 
rach lub 640x350 w dwóch kolorach lub 
640x350 w sześćdziesięciu czterech kolo- 
rach. EGA ma w wersji firmy IBM pamięć 
ekranu 64 KB, niektóre wersje kompatybilne 
mają pamięć ekranu 256 KB oraz umożli- 
wiają jeszcze dodatkowo rozdzielczość 
720x348 punktów w dwóch kolorach. Insta- 
lacja karty EGA wymaga monitora o du- 
żej rozdzielczości i specjalnej wersji 
ROM— BIOS-u. 




► 

W mikrokomputerach kompatybilnych z 
IBM PC/XT można spotkać również Hercu- 
les Graphics Card o rozdzielczości w mo- 
dzie graficznym 720x348 punktów adreso- 
wych bezpośrednio w dwóch kolorach. 

Kolejnym pakietem, który może być dołą- 
czony do pakietu systemowego, jest karta 
wielofunkcyjna. Karta ta umożliwia rozsze- 
rzenie pamięci RAM do 640 KB. ma złącze 
szeregowe RS— 232 C i złącze równoległe 
CENTRONICS oraz zegar czasu rzeczywi- 
stego z bateryjką. 

Kolejny pakiet, który musi być w mikro- 
komputerze IBM PC/XT. służy do sterowa- 
nia stacjami dysków elastycznych, takimi 
jak np. na foto 2. Pakiet może równocześnie 
sterować dyskiem stałym. W pakiecie słu- 
żącym jedynie do sterowania stacjami dy- 
sków elastycznych głównym elementem 
jest sterownik NEC /u PD 764, mogący ob- 
służyć dwie stacje dysków. 


Foto. 2 Stacja dysków elastycznych 
5 cala 

Stacja dysków (ang. disk drive, diskette 
drive) może być jedno- lub dwustronna. 
Stacje dysków jednostronne umożliwiają 
formatowanie dyskietek (dysków elasty- 
cznych, ang. diskette) jednostronnie, w 
standardzie 8 lub 9 sektorów po 512 bajtów 
na ścieżce, przy 40 ścieżkach. Umożliwia to 
osiągnięcie pojemności 1 60 lub 1 80 KB. Dla 
stacji dysków dwustrpnnych pojemność 
wynosi odpowiednio 320 lub 360 KB. Wa- 
żniejsze parametry stacji: szybkość trans- 
misji danych 250 K bitów/s, czas dostępu 
między ścieżkami dyskietki 6 ms, czas nie- 


zawodnej pracy siauji zu uuu yuuzin, pi4y 
trwałości nośnika 3.1 0 e prze|ść po ścieżce. 
W zależności od typu stacji wykorzystywane 
są dyskietki jednostronne (single — side, 
dauble — density) lub dwustronne (double 
— ■ side, double — density). 

W mikrokomputerze IBM PC/AT dyskietki 
formatowane są wg standardu dwustronnie, 
9 sektorów na ścieżce, przy 80 ścieżkach 
na stronie, co umożliwia osiągnięcie poje- 
mności 720 KB łub wg standardu dwustron- 
nie, 1 5 sektorów na ścieżce, przy 80 ścież- 
kach na stronie, co pozwala osiągnąćpo- 
jemność 1200 KB 

Dysk stały, taki jak np. na fot. 3. z reguły 
ma pojemność 10 lub 20 MB. Dysk 10 MB 
formowany jest czterostronnie, po 1 7 sekto- 
rów 512-bajtowych na ścieżce, przy ma- 
ksymalnie 1226 ścieżkach i 306 cylindrach 
Jego najważniejsze parametry to: szybkość 
transmisji 5 M bitów/s, czas niezawodnej 
pracy 5 lat, czas dostępu między ścieżkami 
3 ms. Dysk o pojemności 20 MB formato- 
wany jest identycznie, ma 615 cylindrów. 

W mikrokomputerze można zainstalować 
pakiet umożliwiający pracę w sieci lokalnej, 

Kolejnym elementem mikrokomputera 
jest głośnik, z którym można pracować za 
pomocą układów 8253 lub 8255. 

Mikrokomputer może zawierać złączkę 
dla joystick'a. 

Następnym, bardzo ważnym elementem 
jest zasilacz o mocy minimum 130 watów. 


Obecnie w PC/XT wykorzystywane są zasi- 
lacze o mocach 135 watów, 1 50 watów. W 
mikrokomputerach PC/AT wykorzystywane 
są zasilacze o mocach 1 80 watów lub 200 
wbtów. 

Klawiatura umożliwia kontakt z syste- 
mem za pomocą 83 klawiszy, które można 
podzielić na trzy grupy: 1 0 klawiszy lunkcyj- 
nych, klawisze znakowe oraz klawisze ekra- 
nowe (numeryczne i specjalne), Obsługą 
klawiatury zajmuje się mikrokomputer jed- 
noukładowy INTEL 8084, który wykonuje 
również test po włączeniu zasilania. Obec- 
nie w mikrokomputerach kompatybilnych z 
IBM PC/XT stosowane są jeszcze dwa inne 
typy klawiatur: z 84 klawiszami i z 101 klawi- 
szami. 

Monitor jest bardzo ważnym elementem 
systemu, musi on być dopasowany do karty 
graficznej znajdującej się w komputerze. 

Charakterystykę budowy mikrokomputera 
PC/XT uzupełnia tab 1, przedstawiająca 
mapę adresową 


Tablica 1. 


adres 

pi zaznaczenie 

00000 

RAM 

10000 ' 

• RAM 

20000 

RAM 

30000 

RAM 

40000 

RAM 

50000 

RAM 

60000 

RAM 

70000 

- RAM 

80000 

RAM 

90000 

RAM 

A0000 

rozszerzenie pamięci 
ekranu dla EGA 

B0000 

pamięć ekranu 

coooo 

rozszerzenie ROM -- 
BIOS, sterownik 

D0000 

i 

E0000 

- — i — — 

F0000 

ROM — BIOS, interpreter 
BASIC, diagnostyka sys- 


temu. 

Następny odcinek dotyczyć będzie dysko- 
wego systemu operacyjnego, który zostanie 
omówiony na przykładzie MS DOS 310. 
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BASIC 2 


Na ekranie możemy rysować w kolorach. Kolo- 
ry odnoszą się do całej pozycji literowej (kwadra- 
cika 8x8 pixeli) i nie mogą być określone dla po- 
szczególnych pixeli. Gdy w danym pixelu sta- 
wiamy punkt, to jest on w kolorze atramentu, od- 
powiednim do całego kwadracika 8 na 8 zawiera- 
jącego ten punkt. 


Na ZX Spectrum dostępnych mamy osiem kolorów: 


Kolor 

Klawisz 


czarny 

0 

(BLACK) 

oiemnoniebieski 

1 

(BLUE) 

czerwony 

2 

(RED) 

purpurowy 

3 

(MGNTA) 

zielony 

4 

(GREENJ 

bladoniebieski 

5 

(CYAN) 

(lazurowy) 



żółty 

6 

(YELLOW) 

biały ^ 

7 

(WHITE) 

Kolejność, w jakiej są 

ustawione, odpowiada intensywności sza- 


rości na ekranie telewizora czarno-białego. 

Z pozycją każdego znaku związane są dwa kolory: 

— kolor atramentu (INK) odpowiadający czarnym kropkom, 

— kolor papieru (PAPER) czyli tło, odpowiadający kropkom bia- 
łym. 

W pisanych i wykonywanych przez nas programach każda po- 
zycja na ekranie miała kolor biały i czarny atrament (pismo czarne 
na białym papierze). Za pomocą instrukcji postaci 

PAPER n n = 0.1 7.(numery kolorów) 

ustawiamy kolory papieru kwadracików (mogą to być pojedyncze, 
lub ciąg kwadracików, lub cały ekran), a instrukcją postaci: 

INK n n = 0,1 7 (numery kolorów) 

nadajemy kolory pisma (całych kwadracików). 

Jasność obrazu zwiększamy za pomocą instrukcji: 

BRIGHT 0 lub 1 

gdzie: 0 — jasność normalna, 1 — jasność zwiększona. 

Przykład 6.9. 

Poniższy program pokazuje 8 kolorów (łącznie z białym i czar- 
nym) I dwa poziomy jasności, jakie można otrzymać na kolorowym 
odbiorniku. Na telewizorze czarno-białym otrzymamy różne odcie- 
nie szarości. 

Wprowadźmy i wykonajmy ten program. 


5 REM Pr2'J KI -ad 6.9 
lS FOR r» s0 TO 1: BRIGHT U 

20 FuR n = l TO 7 
30 FOR Ć =0 TO 7 
35 REM 4 barwne spacje 
40 PAPER C: PRINT " "i 

50 NEXT C : NEXT U : NEXT fti 

55 FOR i =1 TO 7 
60 FOR l»=0 TO 1: BRIGHT n : 
ER 7 

70 FOR C=0 TO 3 
80 INK C: PRINT Ci *' "i 

90 NEXT C : PAPER 0 
100 FOR C=4 TO 7 
110 INK C: PRINT Ci" i 

120 NEXT C : NEXT fii 
125 NEXT i 
130 PAPER 7: INK 


PAP 


BRIGHT O 


Oglądając obraz na ekranie, prześledźmy sami działanie instrukcji 

PAPER, INK, BRIGHT. 

Można także wprowadzić błyskanie (miganie) obrazu na ekranie 
za pomocą instrukcji. 

FLASH 0 lub 1 

gdzie: 0 — brak błyskania, 1 — błyskanie 

Przykład 6.10. 

Poniższy program pokazuje, jak działa instrukcja FLASH 1 
umieszczona w dwóch różnych miejscach programu 
Wprowadźmy i wykonajmy ten program. Prześledźmy sami „bły- 
skanie" obrazu na ekranie w zależności od miejsca w programie 
instrukcji FLASH 1. Kolory jasności i błyskanie w danym miejscu 


nazywamy atrybutami 

5 REM Przykład 6.10 
1© REM b Łyskanie całego ekranu 
20 BORDER 2: INK 1: PAPER 6: F 

LA5H 1: CLS 

30 DRAW 255 , 175 , 1 
40 DRAW -255,-175,1 
50 PAUSE 400: FLASH 0: CLS 
55 REM błyskanie rysunku 
60 BORDER 4: INK 3: PAPER / : C 


LS 


70 DRAU FLASH lj 255, 175,1 
80 DPAU FLASH 1 ; -255 , - 175 , 1 
90 PAUSE 400: CLS : FLASH 0 

W powyższych instrukcjach można napisać liczbę B Mb 0 ! ;rv 

ba 8 może być użyta we wszystkich instrukcjach: PAPER 8, INK 
8, BRiGHT 8, FLASH 8 i oznacza „przezroczysty", w znaczeniu 
takim, że nie zmienia poprzedniego atrybuty (pozostają poprzed- 
nie atrybuty). ; 

Liczba 9 może być użyta tylko z PAPER i INK i oznacza „kon- 
trast". tj. aktualny kolor (atramentu lub papieru) jest zmieniany na 
biaty, jeśli drugi jest ciemny (czarny, granatowy, czerwony lub pur- 
purowy) lub na czarny, jeśli drugi jest jasny (zielony, lazuro.Oy ół- 
ty. lub biały). Kolor atramentu jest dobierany tak, aby kontrastował 
ze starym kolorem papieru. 

Przykład 6.11. 

Poniższy przykład pokazuje nam, jak działa liczba 9 umieszczo- 
na w instrukcji INK („kontrast"). 

Wprowadźmy i wykonajmy ten program. 


10 

REM P 

r Z y K ł,d d 1 

15 

INK 9 

20 

FOR C 

*1 TO 7 

30 

PAPER 

c 

40 

FuR i 

=1 TO 15 

50 

PRINT 

c + i .; " 

60 

NEXT 

i 

70 

NEXT 

c 


Oglądając obraz na ekranie, prześledźmy sami działanie INK 9 
Kropkowy wzór wypisany na ekranie można „kontrolować" za 
pomocą dwóch instrukcji postaci: 

INVERSE 0 lub 1 oraz OVER0Jyb:? 

0 — wyłączenie, 1 — włączenie. 

Instrukcja INVERSE 1 powoduje, że rysunek staje się negaty- 
wem zwykłej formy, kropki w kolorze papieru zostaną zastąpione 
przez kropki w kolorze atramentu i vice versa. Np. jeżeli mamy bia- 
ły papier i czarny atrament, wówczas odpowiedni rysunek pojawi 
się jako biały na czarnym, ale kolor papieru i atramentu pożostają 
nie zmienione, zmieniają się tylko kropki. 

Instrukcja OVER 1 powoduje szczególny rodzaj nadrukowywa- 
nia, tzn. jeżeli coś jest napisane w danym, miejscu, to zawartość 
poprzednia zostaje całkowicie usunięta po wykonaniu OVER 1. 

Omówiliśmy dotychczas kolory górnej części ekranu. Dolna 
część ekranu ma jako kolor — kolor papieru, a dla atramentu 
obowiązuje kod 9, wyłączone jest błyskanie, jasność jest normal- 
na. Kolor ramki, otaczającej ekran, składający się z 24 linii i 32 ko- 
lumn, można zmienić instrukcją postaci: 

BORDER n (n=0.1 7). 

Przy wprowadzaniu danych przestrzegana jest reguła o użyciu 
kontrastującego atramentu dobieranego do papieru. 

Poniższy program ustala kontrastowe kolory ekranu: 

— część górna : PAPER n 

— część dolna — ramka, BORDER 7-n 

(n=0,1 ..... 7) 

20 FOR n = 0 TO 7 
30 BORDER n BORDER 7-n CSL 
40 PAUSE 100/ NEXT n 
sprawdzenie pozostawiamy czytelnikowi. 
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► 

Instrukcje PAPER, INK itd można stosować jako elementy ins- 
trukcji PRINT (stawiając po nich średniki) — ich efekt jest chwi- 
lowy (do pierwszego dwukropka lub do następnej instrukcji). Mo- 
żna je także stosować jako elementy instrukcji PLOT, ORAW, 
CIRCLE. 

Poniżej podajemy kilka możliwych kombinacji: 

PLOT — kropka w kolorze atramentu, tzn. ustawia pixel tak, 
aby pokazywał kolor atramentu, 

PLOT INVERSE / — daje pixel (kropka) w kolorze papieru 

PLOT OVER — pixel przechodzi z koloru papieru w kolor 
atramentu lub odwrotnie 

PLOT INVERSE /. OVER zostawia pixel w stanie, w ja- 

kim był. ale zmienia pozycję PLOT u 
(czyni to niezauważalnie) 

DRAW OVER 1 ... — pixele przechodzą z koloru papieru w kolor 
atramentu lub odwrotnie (jeśli coś było 
napisane, to poprzednia zawartość zos- 
taje usunięta) 

DRAW INVERSE — pixele (kropki) w kolorze atramentu 
przechodzą na pixele (kropki) w kolorze 
papieru i odwrotnie (otrzymujemy nega- 
tyw). 

Instrukcje OVER 1 i INVERSE i można stosować np. razem z 
DRAW do „wymazywania" rysunków. 

Przykład 6.12. 

Wprowadźmy i wykonajmy następujący program: 


5 REM Przykład 6.12 
10 FOR i=l TO £2 
£0 FOR jsl TG 16 

30 print '•UT”; 

40 HEXT j : NEXT i 
50 PLOT 0,0 

55 DRRU OUER 1,255,175 
60 PAUSE 200 
70 PLOT 0,0 

60 DR RU OUER 1; 255, 175 


Na ekranie otrzymamy czarno-białą kratkę, a następnie zosta- 
nie wykreślona linia prosta o pixelach koloru białego i czarnego 
(instr. 55 DRAW OVER 1 ; 255, 1 75) po chwilowej przerwie (PAUSE 
200) linia zniknie — została zamazana instrukcją 80 DRAW OVER 
1 ; 255, 1 75. Dlaczego? Odpowiedź zostawiamy czytelnikowi. Ry- 
sunek został nienaruszony 
Wprowadźmy instrukcję: 

80 DRAW INVERSE 1 255, 1 75 
i wykonajmy program. 

Zauważymy, ze instr. INN/ERSE 1. ..wymazuje" Imię, ale „narusza" 
rysunek Nie zaleca się wymazywać linii w odwrotną stronę, niż by- 
ła rysowana, np. w naszym programie me należałoby napisać: 

50 PLOT 0. 0 

55 DRAW OVER 1,255. 175 
60 PAUSE 200. 

70 PLOT 255, 1 75 v 

80 DRAW OVER 1 - 255, - 1 75 

Przykład 6.13. 

Dany |est program: 


po wykonaniu programu na poprzednim tle otrzymamy białe okię 
gi. Na zakończenie podajemy cztery programy do wprowadzenia i 
wykonania 

Przykład 6.14. 

Napisać program rysujący na ekranie ciąg prostokątów (od 
największego do najmniejszego), ale tak aby poprzedni prostokąt 
„znikał". 


10 BEM Przykład 6.14 
15 PAPER 2: INK 4: BORDER 0 

20 FOR A =0 TO 80 STEP 10 
30 LET x=255-2*n 
4© LET y =175-2*0 
50 PLOT n , r. 

60 DRRU x , 0 . DR RU 0,y 
70 DRRU -x,0. DRRU 0 , -y 
80 PRUSE 200 
100 DRRU INUERSE 1;X,0 
110 DRRU INUERSE l;0,y 
120 DRRU INUERSE 1; -x,0 
130 DRRU INUERSE l;0,-y 
135 PRUSE 50 
140 NEXT n 


Wprowadźmy i wykonajmy ten program. Jest on dobrą ilustracją 
działania instrukcji INVERSE 1 ; 

Przykład 6.15. 

Dany jpst pmrjrnm 


il 


£0 
30 

40 

50 
60 
80 
90 
100 
110 
ł-a z 
s t w 
120 
ISO 
140 
150 
o w e p 
160 
s e u d o 


REM Przykład 6.15 
PAPER 2: CLS 
LET a $ = "■" 

FOR i =1 TO 14 
LET stsalKi" 

NEXT i 

FOR i =1 TO 22 
PRINT a$ 

NEXT i 

REM lewa czesc ekranu zosła 

wałowana na czarno, prawa je 

kolorze papieru 

FOR x=l TO 500 

PLOT INK 7 ; RND*255 , RND#175 

NEXT i 

REM na ekranie wypisano los 
u n k t y w kolorze atramentu 
REM RND - generator liczb p 
losowych z przedziału <0,1) 


Wprowadźmy i wyKOnajmy ton pioyrau. o<jjis programu zamie- 
szczony jest w komentarzach (po słowie REM) Każde uruchomie- 
nie programu może dać inny wynik 

Przykład 6.16. 

Dany jpęt program' 


10 REM Przykład 6.16 
20 BORDER 0: PRPER 7: CLS : BR 
IGHT 1 

30 FOR i=l TO 400 

40 PRINT INK 7*RND; RT 21*RND,1 


5* RND j 
50 PLOT 


+ 125 *RND , 175*RND 
60 NEXT 


FLASH 1; INK 7*RND; 130 


10 

20 

30 

40 

50 

55 

60 

70 

60 

90 

100 


REM Przykład 6.13 
FOR i =1 TO 22 
FOR j = 1 TO 16 


PRINT "■ M ; 

NEXT j : NEXT i 
FOR i=l TO 81 STEP 6 
CIRCLE OUER 1,127,87, 
NEXT i 
PRUSE 200 

FOR i =1 TO 81 STEP 6 
CIRCLE OUER 1; 127,87, 
NEXT i 


Wprowadźmy i wykonajmy ten program. Ilustruje on rysowanie ok- 
ręgów instrukcją CIRCLE połączoną z instr OVER I , a następnie 
w identyczny sposób narysowanych okręgów Zauważamy, że tło. 
na którym rysowane byty okręgi, po ich wymazaniu jest takie samo 
jak przed rysowaniem. • 

Wymieniając instr. 90 na instr. postaci 
90 CIRCLE INYERSE 1 . 1 27. 87 i 


Wprowadźmy i wykonajmy ten program. Odpowiedź na pytanie 
dlaczego tak. a me inaczej wykonuje się ten program, pozosta- 
wiamy czytelnikowi 

Przykład 6.17. 

Dany jest program 


10 REM P r z y kład 6 . 1 
. £0 BORDER 0 : PAPER 
30 LET X = 1 
40 FOR 1=0 TO 21 
50 FOR C =1 TO 6 
60 PRINT INK C RT l 
70 NEX"T c 
80 LET x = X + 1 
90 NEXT ł 


CLS 


Wprowadźmy i wykonajmy ten program. Na telewizorze koloro- 
wym otrzymamy ładny rysunek, a na czarno-białym rysunek w ko- 
lorach biało-szaro-czarnych 
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GRAFIKA 131 
COMMODORE 64 

W poprzednim artykule z tego cyklu przedsta- 
wiony został znakowy tryb pracy mikrokompute- 
ra C-64. Grafika w tym trybie polega na tworze- 
niu określonych kompozycji ze znaków standar- 
dowych lub samodzielnie zaprojektowanych. 
Możliwości graficzne są jednak ograniczone. 
Trudności te znikają, gdy potrafimy korzystać z 
trybu graficznego o dużej rozdzielczości (nazy- 
wanego dalej trybem graficznym). Podstawowe 
wiadomości z tego zakresu zostaną przedstawio- 
ne w tym artykule. Tryb graficzny opisany zosta- 
nie na przykładzie programu FUNKCJA, służą- 
cego do kreślenia funkcji na ekranie. 

Mapa bitowa ekranu 

Jak pamiętamy z poprzedniej części, obraz w trybie znakowym 
VIC tworzy na podstawie zawartości PAMIĘCI EKRANU (i GE- 
NERATORA ZNAKÓW) W trybie graficznym wykorzystywany jest 
obszar pamięci zwany MAPA BITOWA EKRANU MBE) Każ- 
demu punktowi ekranu odpowiada określony bit pąmięc: MBE 
Slrukturę ekranu i jej odzwierciedlenie w pamięci przedstawia 
rys 1. 

Cafy ekran podzielony jest na 1000 sekcji rozmieszczonych w 
25 wierszach i w 40 kolumnach Każda sekcja składa się z 64 
punktów (8 x 8). W wyniku takiego podziału dysponujemy 320 
punktami w poziomie (40 x 8) oraz 200 punktami w pionie (25 x 8) 
Sekcje w pamięci mikrokomputera zajmuje 8 bajtów (64 bity). 
Rozmieszczenie sekcji w pamięci przedstawia rysunek Numery 
sekc|i na ekranie odpowiadają numerom w pamięci. Cała MBE zaj- 
muje 8000 oa|tów (1000 x 8). 

Istnieją dwie podstawowe metody programowania grafiki w try- 
bie graficznym: 

1 Projektujemy obraz na siatce odpowiadającej punktom ekranu. 

Wyznaczamy wartości liczbowe odpowiednich bajtów MBE 

Zapisujemy |e w MBE 

2 Dla dowolnego punktu ekranu wyznaczamy odpowiadający mu 

bit MBE i ustawiamy na określoną wartość (0 lub 1 ). 


Wykorzystanie drugiej metody wiąże się z interpretacją ekranu, 
lako ćwiartki układu współrzędnych kartezjańskich. W naszych 
rozważaniach przyjmiemy za środek układu lewy dolny róg. oś X 
jest pozioma i skierowana w prawo, oś Y jest pionowa i skierowana 
do góry Na osi Y wyróżniamy 200 punktów ponumerowanych od 0 
do 1 99. Na osi X wyróżniamy 320 punktów w trybie dwukolorowym 
lub 160 punktów w trybie wielobarwnym, ponumerowanych od 
0 do 319 lub 159. Dla przypomnienia: w trybie wielobarwnym jed- 
nemu punktowi na ekranie odpowiada para bitów w pamięci. 

Wyznaczając bit MBE, odpowiadający wybranemu punktowi ek- 
ranu o współrzędnych X i Y. stosujemy procedurę ( w trybie dwu- 
kolorowym) 

200 REM • PUNKT • 

210 YY 199 — Y 

220 SW INT ( Y Y/8): REM NR WIERSZA 0 ... 42 

230 SK = INT (X/8): REM NR KOLUMNY 0 ... 39 

240 S SW ' 40 ' SK: REM NR SEKCJI 0 ... 999 

250 SL YYAND7: REM NR LINII NR BAJTU W SEKCJI 0 ... 7 

260 BAJT S • 8 + SL + MAP: REM NR BAJTU PAMIĘCI 

270 SP XAND7: REM NR PUNKTU W LINII 0 ... 7 

280 BIT - 7 — SP: REM NR BITU W BAJCIE 7... 0 

300 RETURN 

Dla trybu wielobarwnego należy wprowadzić następujące zmiany: 

230 SK INT (X/4): REM NR KOLUMNY 0 ... 39 
270 SP XAND3: REM NR PUNKTU W LINII 0 ... 3 
280 BIT 3 — SP 

290 B2 2 BIT: BI - B2 + 1: REM NR BITÓW W BAJCIE 

Parametrami procedury PUNKT są 

— X. Y — współrzędne punktu 

— MAP — adres początkowy MBE w pamięci mikrokomputera 
Wykonując tę procedurę otrzymujemy adres ba|tu pamięci BAJT i 
numer (y) bitu (ów) BIT (BI i B2) odpowiadające punktowi na ekra- 
nie. Na wyznaczonym bicie możemy dokonać operacji: 

— ustawić wartość bilu na t 

POKE BAJT. PEEK (BAJT) OR (2tBIT) 

— ustawić wartość bitu na 0 

POKE BAJT. PEEK (BAJT) AND (255 - 21BIT) 

Dwukolorowy tryb graficzny 

Opis pracy w trybie graficznym przedstawiony jest na 
przykładzie programu FUNKCJA dlatego w instrukcjach zacho- 
wana jest numeracja wierszy programu. 

Tryb graficzny duzei rozdżielczości inicjujemy ustawiając piąty 
bit w 53265 bajcie na 1 
20 POKE 53265 PEEK (53265) OR 32 
Powrót do trybu znakowego otrzymujemy po wykonaniu 
120 POKE 33265. PEEK (53265) AND 223 
W trybie dwukolorowym definiujemy kolory w każdej sekcji 
osobno. Jako pamięć kolorów VIC wykorzystuje PAMIĘĆ EKRA- 

► 


nr. kolumny: 

0 1 ł t? >• M 



Ryt. 1 Struktura tkranu i jtj odzwierciedlenie w pamifci mikrokomputera 
( w trybie graficznym ) 
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► 

NU (PE). Każdej sekcji przyporządkowany jest bajt PE (kolejność 
występowania sekcji w MBE odpowiada kolejności bajtów PE). Ko- 
lor bitu o wartości 0 określają 4 najmłodsze bity w przyporządko- 
wanym mu bajcie PE. Kolor bitu o wartości 1 określają 4 najstar- 
sze bity. 

W programie FUNKCJA tło ma być jednolite na całym ekranie 
(bity zerowe w MBE) koloru białego — kod koloru 1. Funkcja ma 
być kreślona (bity o wartości 1 ) w kolorze czarnym — kod 0. Nale- 
ży zatem wykonać 

40 FOR I = MAP TO MAP + 7999: POKE l.0:NEXT 
50 FOR I. = KAP TO KAP + 999 POKE 1.1 : NEXT 
KAP jest adresem początkowym PE. 

Musimy obecnie wybrać obszary pamięci, w których rezydować 
będzie MAPA BITOWA EKRANU i PAMIĘĆ EKRANU. Na rys. 2 
przedstawiony jest zarys podstawowej konfiguracji pamięci C-64 
z podziałem na BANKi i ewentualne obszary, w których można 
umieścić MBE i PE. 



Ryt. 2 Ob* *ory pamięci C&i do wykoriytłania na lokoiiiocj« mapy 
bitów* j ekranu i paaiifci kolordw ( parni' ci ekranu t 


Jak wynika z rysunku, MBE może zajmować jedną z dwóch połó- 
wek BANK-u. PE p&winna być umieszczona w innej połowie niż 
MBE. Określając położenie MBE i PE, możemy skorzystać z tabe- 
lek zamieszczonych w I części artykułu („IKS" nr 2/87). Wyboru w 
BANK-u dokonujemy, ustawiając odpowiedną wartość w 56576 
bajcie. Lokalizację ustalamy wprowadzając do rejestru 53272 war- 
tość z kolumny wyznaczającej adres początkowy MBE i wiersza 
wyznaczającego adres początkowy PE. 

30 POKE 56572, 150: POKE 53272, 9: MAP = 24576: KAP ■= 16384 

Funkcję do wykreślenia definiować będziemy w postaci wyrażenia 
arytmetycznego: 

11 DEFFN FI (XX) = SIN (XX) 

Konieczne jest również podanie zakresu zmienności argumentu 
(XP, XK) i wartości funkcji (YP, YK): 

1 0 XP = 0: XK = 8: YP = - 2 : YK = 2 

Funkcję będziemy kreślić następującą sekwencją instrukcji: 

60 DX 320 |(XK - XP): DY 200 J (YK - YP) 

70 FOR I XP TO XK STEP ABS (1/DX) 

80 X INT (I - XP) DX 

90 Y INT |(FN FI (I) - YP) DY j: GOSUB200: POKE BAJT, 

2IBIT 

100 NEXT 

Dla otrzymania gotowego programu FUNKCJA dołączamy proce- 
durę PUNKT i jeszcze dwie linie programu: 

100 GETZS: IF Z$ = ”” THEN110 
140 END 

Możemy teraz uruchomić nasz program komendą RUN. Po za- 
kończeniu kreślenia funkcji program czeka na wciśnięcie dowol- 
nego klawisza, co spowoduje powrót do trybu znakowego i zakoń- 
czenie pracy. 

Wielobarwny tryb graficzny 


Tryb wielobarwny uzyskamy instrukcją: 

25 POKE 53270, PEEK (53270) OR 16 

Powrót do trybu dwukolorowego umożliwia nam: 

125 POKE 53270, PEEK (53270) AND 239 

Jak już wspomniałem wcześniej, jednemu punktowi na ekranie 
odpowiada para bitów wskazująca, skąd pobrać kod barwy tego 
punktu. Odbywa się to według zależności: 

PARA LOKALIZACJA KOLORU 
BITÓW 

00 rejestr 53281 

01 najstarsze 4 bity odpowiedniego bajtu PE 

1 0 najmłodsze 4 bity odpowiedniego bajtu PE 

1 1 najmłodsze 4 bity PAMIĘCI KOLORU 

Wprowadźmy do naszego programu definicje nowych funkcji: 

12 DEF FN F2 (XX) - COS (XX) 

13 DEF FN F3 (XX) = SIN (XX) f COS (XX) 

Każda z funkcji ma być w innym kolorze: FI — czarna; F2 — biała: 
F3 — zielona. Tło w kolorze niebieskim. W tym celu należy wyko- 
nać instrukcję 

55 POKE 53281, 6: FOR I 55296 TO 56295: POKE 1,5: NEXT 

Ponieważ w trybie wielobarwnym mamy w poziomie tylko 16C 
punktów, na ekranie należy zmienićjwiersz 

60 DX = 160/(XK — XP): DY = 200/(YK - YP) 

\ Do sekwencji instrukcji kreślących funkcję wprowadzamy nowe 
wiersze rysujące poszczególne krzywe: 

81 Y = INT | (FN FI (I) - YP)/DY|: GOSUB200: POKE BAJT, 
PEEK (BAJT OR (2tB2) AND (255 - 2TB1) 

82 Y “ INT j(FN F2 (I) — YP)/DY|: GOSUB200: POKE BAJT, 
PEEK (BAJT) OR (2tB1) AND (255 - 2fB2) 

83 Y = INT J(FN F3 (I) - YP)/DY|: GOSUB200: POKE BAJT, 
PEEK (BAJT) OR (2IB1 4- 2tB2) 

Musimy jeszcze tylko usunąć wiersz 90 i dokonać modyfikacji pro- 
cedury PUNKT i już mamy gotowy program FUNKCJA, pozwala- 
jący na wykreślenie trzech różnokolorowych krzywych. 

O innych ciekawych właściwościach VIC-a będzie .można 
przeczytać w kolejnym artykule. 

S. WASIELEWSKI 



Wykonanie dwóch lub trzech różnokolorowych wykresów funkcji 
na tym samym ekranie w trybie dwukolorowym jest niemożliwe. 
Możemy rozwiązać ten problem wykorzystując tryb wielobarwnej 
pracy VIC-a, który pozwala nam na zdefiniowanie czterech róż- 
nych kolorów w każej sekcji, 

24 


Pi/c lo:* fc 


S/ę //' 


Sztuki i sztuczki (8) 


finicji wybranego kanału. Po włączeniu systemu do STRMS zosta- 
je wysłane 1 4 bajtów identyfikujących 7 strumieni początkowych: 


Zmienne systemowe ROM-Spedrum 


Wejście-wyjście 

CHANS 23631/2 

CURCHL 23633/4 
STRMS 123568 605 
P-POSN 23679 
PRCC 23680/1 

ECHO-E 23682/3 

Interpretacja komend obsługujących urządzenia wejścia- 
-wyjścia opiera się na dwóch metodach komunikacji: przez porty i 
kanały Porty to w zasadzie dodatkowa przestrzeń adresowa, z 
którą wymiana informacji odbywa się rozkazami IN (odpowiednik 
PEEK) oraz OUT (odpowiednik POKE). Za pomocą tych instrukcji 
możemy kontrolować stan urządzenia zewnętrznego. I tak. drukar- 
ka korzysta z portu 254, joystick Kempstona z portu 31 . a Interface 
I pracuje na portach 254, 239 i 247. Głośnik i magnetofon są rów- 
nież obsługiwane przez 254. 

Kanały są formą określenia kierunku i sposobu prowadzenia ko- 
respondencji z urządzeniem zewnętrznym. Firmowo określono ich 
cztery K-klawiatura (keyboard), S-monitor (screen), P-drukarka 
(printer) oraz R-bufor edycyjny (editing buffer channel record). 
Dane kanałowe umieszczone są w ROM-ie. lecz podczas inicjali- 
zacji systemu następuje ich przerzucenie do RAM, a więc można 
je modyfikować. Obejmują 21 bajtów od adresu 23734, który 
zmienia CHANS. 

Dla przykładu definicja kanału S zawiera: 


adres 

zawartość 

znaczenie 

23739 

244 

2548 — adres procedury wyjścia — 

23740 

9 

wydruk znaku na ekranie; 

23741 

196 

5572 — adres wejścia — w tym wy- 

23742 

21 

padku jest to procedura powodująca 
raport lnvalid l'0 device; 

23743 

83 

„s" — identyfikator kanału; 


Kanał K jest jedynym, który akceptuje zarówno dane wejściowe 
(dekodowanie przyciśniętego klawisza), jak też dane wyjściowe 
(wydruk znaku ASCII), co wynika z |ego specyfiki Jeśli kanał me 
ma wejścia, to drukowany jest komunikat lnvalid l/O device 

Tajemniczy kanał R jest używany wewnętrznie przez interpreter 
do przesyłania danych do bufora edycyjnego, co odbywa się po 
naciśnięciu EDIT lub do przestrzeni roboczej (z reguły operacje z 
łańcuchami tekstowymi). Nie można się nim posługiwać, progra- 
mując w Basicu, natomiast można go tak zmodyfikować, aby 
edycja linii była niemożliwa: 

POKE 23744,124 
POKE 23745.0 

Dane kanałowe kończy bajt 1 28 będący jednocześnie sygnałem 
rozpoczęcia obszaru Basic. 

Jeśli nie manipulujemy obszarem danych kanałowych (a zwykle 
nie), można się go pozbyć zwiększając pamięć przeznaczoną dla 


Basica 1 

10 

POKE 

23635, 

PEEK 

23631 

20 

POKE 

23636, 

PEEK 

23632 

30 

POKE 

23631 , 

175 


40 

POKE 

23632, 

21 


50 

REM PR0G=23734, CHANS=! 


Zmienna CHANS wskazuje teraz obszar tych samych danych 
kanałowych, ale już w ROM-ie. 

W danym momencie można przesłać dane tylko jednym kana- 
łem, z którego korzystać można przez wybór skojarzonego z nim 
strumienia. Dane o strumieniach umieszczone są w zmiennej 
STRMS liczącej sobie 38 bajtów, co pozwala na zdefiniowanie 1 9 
sposobów przesłań. Dwa bajty dla każdego strumienia zawierają 
liczbę, która dodana do 23733 (CHANS- 1 ) wskazuje początek de- 


nr 

strumienia 

kanał 

skojarzony 

przesunięcie 

253 

K 

1 

254 

S 

6 

255 

R 

11 

0 

K 

1 

1 

K 

1 

2 

S 

6 

3 

P 

_ ’ 6 . . 


Pierwsze dwa są zarezerwowane dla procedur obsługujących 
magnetofon i jeszcze do nich wrócimy. Strumień 255 współpra- 
cuje z kanałem R, strumień 0 z edytorem, 1 z wprowadzaniem da- 
nych (INPUT), 2 wysyła dane na ekran, 3 na drukarkę Reszta 
4 .15 pozostaje do dyspozycji użytkownika. 

Przed przesłaniem danych strumień musi być otwarty, tzn. sko- 
jarzony z odpowiednim kanałem W chwili przesyłania kanał ten 
staje się dla systemu kanałem aktualnym i początek jego danych 
zostaje wpisany do zmiennej CURCHL Teraz przykład 


10 BORDER 4 
20 DREN #4, "K" 
30 LIST 
40 LIST #4 
50 CLOSE #4 
60 GOTO 60 


Otworzyliśmy (OPEN 4) strumień 4 wg parametrów kanału K, 
aby wysłać listing na ekran edycyjny. Fizycznie otwarcie to polega 
na wpisaniu wspomnianego już przesunięcia do odpowiednich 
bajtów STRMS Można to uczynić również komendami POKE 
Zamknięcie strumienia (CLOSE 4) polega na wpisaniu przesunię- 
cia równego zeru. Zabronione jest zamykanie strumieni standar- 
dowych (0 .3). 

Po otwarciu przesyłamy dane komendą PRINT, a odbieramy 
rozkazem INPUT Przy pracy w warunkach początkowych nie wy- 
szczególniamy numerów strumieni przy tych instrukcjach, gdyż 
maszyna robi to, automatycznie PRINT oznacza wifcc naprawdę 
PRINT 4 2. a INPUT posługuje się strumieniem 1 (INPUT # 1). 
LLIST znaczy to samo. co LIST 4 3. 

Wychodzić można na wszystkie standardowe kanały, lecz 
INPUT działa tylko w porozumieniu z kanałem K Próba zaburze- 
nia tego rozwiązania prostymi sposobami będzie nieudana 

10 POKE 23741 , 168 

20 POKE 23742,16 

30 INPUT '#2; AT l,Oj LINĘ d* 

Modyfikacja adresu wyjścia się udała, ale tylko na pierwszy rzut 
oka. Zwykle, jeśli użytkownik ma chęć na swoisty typ przesłania, 
wtedy definiuje własny kanał i pisze procedury wejścia i wyjścia. 
Dokładnie pokazuje to wybrany przykład PRINT 16 Program ten 
pozwala otrzymywać na monitorze znaki dwukrotnie szersze od 
firmowych przy zachowaniu możliwości korzystania ze wszystkich 
kodów kontrolnych. 

Opis programu: (str. 26i 

linie 1 60 240 — dołączenie danych kanału D na koniec danych 
kanałowych przez przesunięcie wskaźników RAM o 5 bajtów w gó- 
rę (PRÓG = 23760), 

linie 250 .260 — otwarcie strumienia 5 przez skojarzenie z kana- 
łem D; linie 280. 300 — dane kanału D 

linie 31 0..550 — obsługa kodów kontrolnych w procedurze wyjś- 
cia; 

linie 560. ..950 — obsługa kodów drukowanych w ASCII, (grafiki, 
słowa kluczowe); 

linia 970 — obszar tworzenia szerokiego znaku 
Po kompilacji (lub wczytaniu bajtów już skompilowanych) należy 
zainstalować kanał przez np RANDOMIZE USR 6000. a potem 
korzystać, stosując komendę wyjścia np.: ^ 

PRINT 4 5; AT 5.5: INVERSE 1 ; .prusakolep" W 


25 


► 

Kod nie jest relokowalny. Zmiana adresu początkowego może- 
odbyć się tylko po wczytaniu tekstu źródłowego do asemblera (li- 
nia 1 0) i ponownej kompilacji. Jeśli uda się Wam „podłączyć 1 ’ zna- 
ny program PRINT 64 do strumienia 4. to będziecie dysponować 
możliwością jednoczesnego drukowania na ekranie w trzech try- 
bach znakowych. 

W zasadzie metoda kanałowo-strumieniowa staje się użyteczna 
w programowaniu dopiero po dołączeniu INTERFACE 1 . Mamy tu 
rozszerzenie o cztery typy kanałów dających dużo większe możli- 
wości. Pierwszy dotyczy microdrive'u i pozwala zapisywać dane w 
postaci plików. 

10 OPEN #4, "m"; 1; "nazwa pliku" 
20 PRINT #4 , x 
30 CLOSE #4 


Zapisaliśmy na kasetę (cartridge) zmienną x, ale możemy też 
zapisać listing (LIST # 4), katalog (CAT # 4,1) lub dowolny zbiór 
liczb, czy znaków nawet bezpośrednio z klawiatury (INKEYS # 4). 

Następne dwa kanały dotyczą złącza szeregowego RS 232 
Pozwala ono przesyłać dane w transmisji szeregowej, tzn. bit po 
bicie. Kanał B akceptuje wszystkie kody, lecz kanał T tylko pod- 
stawowy zbiór drukowanych znaków ASCII ignorując 8 bit. Ich za- 
letą jest możliwość jednoczesnego otwarcia, co można wykorzy- 
stać np. do wysyłania na drukarkę znaków kontrolnych kanałem B, 
a znaków ASCII kanałem T 

Czwarty kanał N dotyczy pracy w sieci, a więc pozwala na ko- 
munikację między poszczególnymi jednostkami Spectrum. 

Powróćmy teraz do strumieni wykorzystywanych przez procedury 
kasetowe. Strumień 253 służy do wydruku napisu Start tape, then 
press any key, a więc używa wyjścia kanału K. W wypadku zapisu 
grafiki ekranowej napis ten niszczy dwie dolne linie obrazka. Jeśli 
chcemy zapisać cały ekran, postępujemy następująco:- 

10 POKE 23734,1241 POKE 23735,0 

20 PAUSE li PAUSE O 

30 SAVE "nazwaobrazka"SCREEN* 

40 POKE 23734,244: POKE 23735,9 

Zmieniono tu adres procedury wyjścia kanału K, który w kryty- 
cznym momencie wynosi 124 (pod tym adresem jest tylko instruk- 
cja RET). Strumień 254 jest używany do wydruku -typu i nazwy 
programu po przyjęciu nagłówka. Czasem informacje te nie są 
istotne, lecz niszczą wczytany wcześniej obrazek pilotujący. Przy- 
kładowy loader rozwiązujący tę kwestię: 

Tu dla odmiany nastąpiła modyfikacja wyjścia dla kanału s. Je- 
żeli program wczytywany przez linię 30 ma autostart, to linię 40 
trzeba zawrzeć wewnątrz niego, gdyż w przeciwnym razie nie bę- 
dzie wyjścia na ekran główny 

10 LOAD " n az wa " SCREEN* 

20 POKE 23739, 124: POKE 23740,0 
30 LOAD "program" 

40 POKE 23739,244: POKE 23740,9 
50 RUN 

; akończęr k g/zcii „Litości o trzech pozostałych zmiennych 
wyszczególnionych na początku. 

P-POSN i PR-CC dotyczą drukarki Pierwsza trzyma aktualną po- 
zycję znaku w buforze, który rezerwuje obszar od adresu 23296 do 
23551 włącznie. Po przesłaniu 32 znaków wysyłany jest kod nowej 
linii. 

Druga natomiast dla tejże pozycji przechowuje adres w buforze. 
Starszy bajt PR-CC (23681) figuruje w instrukcji firmowej jako 
wolny, co w razie korzystania z drukarki czyni to stwierdzenie nie- 
prawdziwym. 

Zmienna ECHO-E przechowuje kopię pozycji wydruku w ekra- 
nie edycyjnym, czyli zmiennej SPOSNL. W momencie operacji w 
liniach edycji uaktualniana jest jednak tylko ta ostatnia, więc in- 
terpreter otrzymuje informacje skąd i dokąd drukowano. Ma to 
znaczenie w wypadku dodrukowywania w każdej linii ekranu edy- 
cyjnego spacji uzupełniających w kolorach ATTR-P 
Kolejnym tematem będą zmienne stanu systemu... 


19 I •« PRINT16 

29 I GENS3M2 a«*emblar 
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49 BTR-5 
59 CHAR8 
40 UDO 
79 TUDATA 
09 KANALD 
99 GETPOS 
109 CTRL 
119 PRT? 
129 RAPORT 
139 EXKAN 
149 POCONT 
159 MAKERM 
149 

179 IN8TAL 

189 

199 

209 

219 

229 

239 

249 

259 

249 

279 

209 DEFKAN 

299 

309 

319 0UT_5 
32# 

339 

349 

359 

349 

379 

309 

399 

409 

419 

429 

439 

449 P08 
459 

449 KODPOB 
479 

489 KODKOL 
499 KANKOL 

599 

519 WYJ 
529 

539 KANP08 

549 

559 

549 ZNAKI 

579 

589 

599 

409 

419 

429 

439 

449 

459 

449 

479 

409 PĘTLA 
499 


709 

719 

729 

739 

749 

759 

749 

779 

789 

799 

009 

019 

029 

039 

049 

059 

049 

079 

089 TWZNAK 
099 

909 BITY4 

919 BIT1 

929 

939 

949 

959 

949 

979 OBSZAR 


ORO 

EQU 

EQU 

EQU 

EGU 

EGU 

EQU 

EGU 

EGU 

EGU 

EQU 

EGU 

EGU 


40009 

23584 

23404 

23475 

23544 

23754 

99B03 

90A04 

99A49 

915C4 

90A80 

90A87 

5717 


LD 


HL' KANALD 
PU8H HL 
LD BC»5 
CALL HAKERM 

HL. DEFKAN 


POP DE 


LD 


BC >5 


LDIR 


HLr 21 
LD (STR_5> 'HL 
RET 

DEFW 0UT_5 
DEFW RAPORT 
DEFB 


CP 32 


JR NCt ZNAKI 
CALL 0ETP08 


C»PRT? 

918 

NC»PRT? 


CP 
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C»CTRL 
LD HL.K0DP08 
CP 22 
JR NCrPOS 
LD HL' KODKOL 

PU8H HL 
JP OETPOS 
LD DE»KANPOS 
KANKOL 
DE *WYJ 
(TUDATA) » A 
£XKAN 
DE'OUT-5 
P0C0NT+3 
DE 'WYJ 
(TUDATA+l) 'A 
EXKAN 
DE' (CHAR8) 
H'9 
L'A 


LD 


LD 


ADD 

ADD 

ADD 

ADD 

EX 

LD 


HL»HL 


HL'I 
HL » HL 
HL»DE 
DE»HL 
HL' OBSZAR 
PU8H HL 
POP IX 
LD B'8 
LD A' (DE) 
PUSH BC 
CALL TWZNAK 
POP BC 
LD (IX+9) 'L 
LD <IX+8)'H 
INC IX 
INC DE 
DJNZ PĘTLA 
LD HL' (UDO) 
PUSH HL 

LD HL' OBSZAR 
LD (UDO) 'HL 
LD A' 145 
CALL 999F4 
LD A' 144 
CALL 009F4 
POP HI- 
LD (UDO) 'HL 
RET 

CALL BITY4 
LD L'H 
LD B'4 
RRCA 


RR 


SRA C 
DJNZ BIT1 
LD ^H»C 

d£fs Krzysztof MAMCARZ 
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PASCAL <6 > 


Ten i kolejny odcinek adresowane są do Czy- 
telników zainteresowanych głębiej możliwościa- 
mi języka PASCAL: algorytmami rekurencyjnymi, 
przetwarzaniem tekstów, grafiką. Przedmiotem 
prezentowanego odcinka są programy rekuren- 
cyjne. * 

Obiekt nazywamy rekurencyjnym, leżeli częściowo składa się z 
siebie samego lub / ego definicja odwolu/e się do mego samego. 
Rekurencję spotykamy me tylko w matematyce, ale także w życiu 
codziennym Wielu Czytelników pamięta jeszcze zapewne pier- 
wszy elementarz, na którego okładce znajdował się następujący 
obrazek (rekurencyjny): 


LITERY 

f 

m 


Rekurencja jest szczególnie przydatnym narzędziem w definicjach 
matematycznych. Pozwala ona na definiowanie funkcji przez 
określenie jej wartości w kroku pierwszym i wyznaczenie wartości 
funkcji dzięki określeniu jej wartości w kroku pierwszym i wyznacze- 
nie wartości funkcji w każdym kolejnym kroku na podstawie war- 
tości otrzymanej w kroku poprzednim. Klasycznym przykładem 
jest następująca definicja silni, ni a£n>o 

Opis taki można niemal automatycznie przekształcić na dekla- 
rację funkcji pascalowej Program wyznaczania wartości n! dla 
n < 7 został /arrwyw. przykładzie 19. 

Przykład 19 

Występujący w programie zapis |$a — } jest niezbędny dla pro- 
gramów rekurencyjnych, W praktyce wiele problemów można opi- 
sać za pomocą mechanizmu rekurencji. Weźmy pod uwagę na- 
stępujące zadanie „ należy wyznaczyć wszystkie możliwe rozmie- 
szczenia k obiektów w n pudelkach, tak aby w każdym pudelku 
znalazł się je Jt że k < n) n . 

PR06RAH progl8: 

{la-> 

VAR 

ruinteoer; 

FUNCTION silnia(n: integer) : integer ; 

BE6IN 

IF n=0 THEN 
silni a: S 1 
ELSE 

silnia:=ntsilnia(n-l) 

END; 

BEGIN 
READ(n) j 

NRITELN; / 

IF (n>*6) AND (n<=7) THEN 
NRITELN(n: 1,* !=\silnia(n)) 

ELSE 

NRITELNCza duża wartość n’) 

END. 

Metodę wyznaczano takf-h rozmieszczeń prześledzimy dla 
k = 2 i n = 3. Można przyjąć następujący sposob postępowania. 

a) spośród wszystkich pudełek wybieramy jedno pudełko (zwane 
dalej pierwszym) i wkładamy do mego pierwszy obiekt. 

b) spośród dwóch pozostałych pudełek wybieramy jedno pudełko 
(zwane drugim) i wkładamy do mego drugi obiekt. 

c) nie zmieniając pierwszego pudełka, przekładamy drugi obiekt 
do następnego pudełka. 

Wszystkie możliwe rozmieszczenia uzyskamy, powtarzając 
czynności a c dla każdego z możliwych sposobów wyboru 
pierwszego pudełka 


Jeżeli ponumerujemy pudełka od 1 do 3 i przyjmiemy zasadę, ze 
spośród wolnych pudełek wybieramy pudełko o najmniejszym 
numerze, to dla tego przypadku uzyskamy następujące kolejne 
rozmieszczenia obiektów 


obiekt 1 

obiekt 2 

• 

• 



1 3 1 

1 2 1 





1 1 1 

1 3 1 

1 2 1 



1 "i 1 

1 2 

1 3 1 


1 2 1 

1 i 1 

pierwsze 

drugi* 

wolne 

pudełko 

pudełko 

pudełko 


Jeżeli przez P oznaczymy zbiór numerów pudełek — 
FP = {1. 2, ,n} — to nasze zadanie sprowadza się do znalezienia 
wszystkich ciągów równowartościowych <P,. P 2 PO o wyra- 

zach ze zbioru P (są to tzw. k-elementowe wariacje bez powtórzeń 
ze zbioru n-elementowego). Wyraz P, takiego ciągu możemy wy- 
brać na n sposobów, wraz P 2 . na n-1 sposobów, ogólnie: przy usta- 
lonych wyrazach P 1f P 2 P . możemy jako pi wybrać dowolny 

spośród n-i + 1 elementów zbioru P \ |P ( P 2 P > j. 


Program wyznaczania k-elementowych wariacji bez powtórzeń 
ze zbioru n-elementowego zamieszczonego w przykładzie 20 

Przykład 20 


PR06RAH progl9: 

(fa-> 

CONST 

nn*9; 

kk*7; 

TYPE 

ele«=ARRAYtl..nn] OF char; 
kontr*ARRAY[l..nn] OF boolean; 
sukc=ARRAY[l,.kk] OF char; 

VAR 

dowybr : elea: 
praas kontr; 
ayniktsukc; 
i.n.k.liczM: integer; 

PROCEDURĘ ayproaaoz; 

VAR 

«: integer; 

BEGIN 

IF 1 i czm>20 THEN 
BE6IN 

REPEAT UNTIL keypressed; 
clrscrj 
liczw:=2 
END 
ELSE 

licz»i:=liczw*l; 

FOR «i=l TO k-1 DO 
WR I TE ( *»yn i k C a ] ) t 
WRITELN (wyni k Ck 3 > 

END: 


27 


PROCEDURĘ wybierz <i , n, k: integer ; dowybrielE., 
praw: kontr; VAR wyrukssukc); 

VAR 

' 1 s integer ; 

BEGIN 

IF i<k THEN 
BEGIN 

FOR 1:=1 TO n DO 
IF praw[l]=true THEN 
BEGIN . 

wyni kti 3: =dowybr El 3; 
praw[l]:=False; 

wybierz (i+l,n, k,dowybr,praw, wynik) ; 
pra»*tl3i s true 
\ END 
END 
ELSE 

FOR 1**1 TO n DO 
IF prawE13=true THEN 
.BEGIN 

wynikEkl: =dowybr Cl 3; 
wyprowadź; 

END 

END; 

BEGIN 
REPEAT 
READLN ( k, n) 

UNTIL (k<=n); 

FOR i : =1 TO n DO 
BEGIN 

prawCi 3:=true; 

READ(dowybrCil) 

END; 

clrsćrs 

WRITELN; 

MRITE < ’ ’,k,’ -elementowe wariacje z 
n. '-elementowego zbioru;’); 

FOR i;*l TO n DO 
WRITE1’ * , dowybr Ci 3 ) ; 

WRITELN; 

WRITELN; 

liczw:=l: 

wybierz (1, n, k, dowybr , praw, wyni k ) 

END. 

W programie wykorzystano: 

— tablice znaków dowybr (do przechowania nazw elementów 
zbioru n-elementowego) i wynik (do przechowania kolejnych wa- 
riacji); elementami tych tablic są pojedyncze znaki, 

— tablice wartbści logicznych praw (do określania, spośród któ- 
rych elementów zbioru można wybierać kolejny wyraz ciągu), 

— funkcję standardową keypressed przyjmującą wartość true , 
jeśli zostanie wciśnięty klawisz; w tym wypadku funkcja ta umożli- 
wia stronicowanie wyświetlanych wariacji (po 20 na stronie) — 
zmiana strony następuje po wciśnięciu klawisza. 

Za Wirthem (Algorytmy + Struktury danych = Programy, s. 142) 
przytoczymy jeszcze jeden, bardziej złożony przykład. Atrakcyjny 
układ graficzny pokazany na poniższym rysunku powstał ze złożenia 


Rys. 1 



pięciu krzywych. Regularny kształt tych krzywych sugeruje możli- 
wość kreślenia ich za pomocą pisaka sterowanego przez kompu- 
ter. Naszym celem jest określenie schematu rekurencji, zgodnie z 
którym mógłby być skonstruowany program kreślący. Trzy spo- 
śród pięcig nakładających się krzywych mają kształt przedstawio- 
ny na poniższym rysunku; oznaczamy je przez H, H 2 H 3 . 


cBi - 


Po bliższym przyjrzeniu okazuje się, że krzywą Hi + i otrzy- 
mano ze złożenia 4 krzywych H, dwukrotnie zmniejszonych, odpo- 
wiednio obróconych i powiązanych razem trzema liniami. Za- 
uważmy, że Hi może być traktowana jako złożenie 4 pustych 
krzywych H 0 , powiązanych że sobą trzema liniami prostymi. H jest 
zwana krzywą Hilberta rzędu i, od nazwiska wynalazcy D. Hilberta 
(1891). 

Załóżmy, że naszymi podstawowymi narzędziami do kreślenia 
są dwie zmienne współrzędne x i y, procedura ustaw pióro (usta- 
wiająca pióro pisaka w punkcie o współrzędnych x i y) i procedura 
kreśl (przesuwająca pióro z jego aktualnej pozycji do pozycji 
wskazanej przez x i y). 

Ponieważ każda krzywa H, składa się z 4 dwukrotnie zmniejszo- 
nych kopii krzywej H, - wydaje się naturalne podzielenie proce- 
dury rysującej H na cztery części, z których każda rysuje krzywą 
H, - 1 odpowiednio zmniejszoną i obróconą. 

Jeśli te cztery części oznaczamy przez A, B, C i D, a procedury 
kreślące linie łączące będziemy oznaczać strzałkami odpowiednio 
zorientowanymi, to uzyskamy następujący schemat rekurencji: 

A : D - — A ł A — *>B 


| J B : C f B — ► B Ł A 


C : B — C t C — D 


t | D : A ł D — D t C 

Program kreślący n krzywych Hilberta H,, H 2 H„ zamieszczono 

w przykładzie 21 . 

Przykład 21 

uGRAM prog20; 

{program kreśli krzywe Hilberta } 

(zadaneoo rzędu } 

{$a-} 

CONST 

h0=256; 

VAR 

i.h.x,y,xO,yO,n:inteqer; 

PROCEDURĘ b (i : inteoer ) ; FORNARD; 

PROCEDURĘ cli: integer); FORWARD;. 

PROCEDURĘ dli: inteoer): FORWARD; 

PROCEDURĘ InitGrafik; 

BEGIN 

MRITElHlbHOMflb.Y); 

END; 

PROCEDURĘ leaveGrafik; 

BEGIN 

NRITE(ł*lb,'l\Mlb,VJs 
• END; 

PROCEDURĘ ustawpioro: 

BEGIN 

INLINE($2A/x/$EB/$2A/v/$cd/ 

*5a/$fc/$EA/*BB); 

END: 
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PROCEDURĘ kreśl: 

BEGIN 

INLINE($2A/x/$EB/$2A/v/*cd/$5a/ 

$łc/$F6/$BB); 

END: 

PROCEDURĘ a (i : integer > ; 

BEGIN 

IF i>0 THEN 
BEGIN 

d(i-l); x:=x-h; kreśl: 
a(i-l); y:=y-h: kreśl; 
a(i-l): x:=x+h; kreśl: 
b(i-l) 

END 

END: 

PROCEDURĘ b; 

BEGIN 

IF i>0 THEN 
BEGIN 

c(i-l): y:=v*h; kreśl: 

•b łi -1) : x:=x*h; kreśl; 


b (i -1 ) : y:*y-h; kreśl: 
a(i-l) 

END 

END: 

PROCEDURĘ c: 

BEGIN 

IF i>0 THEN 
BEGIN 

b (i-1 ) ; x:=x+h; kreśl: 
c(i-l); y:=v+h: kreśl: 
c (i-i) : x:=x-h; kreśl: 
d(i-l) 

END 

END: 

'ROCEDURE d: 

BEGIN 

IF i>0 THEN 
BEGIN 

a(i-l); y : =y-h: kreśl: 
d(i-l): x:=x-h; kreśl; 


d(i-lł : y:=y+h: kreśl: 
c(i-l) 

END 


initorafik; 
i : =0 ; h:=hO: 
xO:=(h DI V 2) +75; 
y0:=x0+50t 
READ(n); 

REPEAT 

i:=i+l; h:=h DIV 2: 
xO:=xO+(h DI V 2); 
yO: =yO+ <h DIV 2); 
x : =xO: y:=yO; 
ustawpioro: 
a (i ) ; 

UNTIL i=n; 

REPEAT UNTIL kevpressed; 
leaveora(ik 
END. ‘ 


Procedura A jest wywoływana w programie głównym po je- 
dnym razie dla kafdej z nakładanych na siebie krzywych Hilberta 
Program główny określa również punki początkowy krzywe), t). po- 
czątkowe wartości zmiennych x i y oraz przyrost jednostkowy h. 
Przez ho oznaczono całą szerokość strony, na której będą kreślo- 
ne krzywe 

Ponieważ w PASCAL-u obowiązuje zasada, że pierwsze wystą- 
pienie obiektu powinno być jego defimqą. zastosowano tzw de- 
klaracje wyprzedzaiące procedur 8, C, i D 


W deklaracji takiej podaje się pełny nagłówek procedury n blok 
procedury zastępuje się słowem kluczowym FORWARD 
W dalszej części programu deklaruje się blok procedury, po- 
przedzony jej identyfikatorem (parametrów się nie podaje). 
Procedury graficzne omówimy w jednym z kolejnych odcinków 


s. ROZMUS 


Tym razem nie było sensacji — umiar- 
kowana frekwencja jest rzeczywistym 
obrazem zainteresowania informatyką 
w kraju. 


Infowideo’87 


Największą frajdę na tegorocznym 
Infowideo miały maluchy. Pierwszy 
kontakt z komputerem z pewnością na 
długo pozostanie w pamięci przedszko- 
lakom. 


Foto: Jan Zelman 
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Zrób to sam 

ZŁOŚLIWE ŁADUNKI 


Obwody scalone („mądre” kostki) 
zawierają coraz więcej coraz mniej- 
szych funktorów zerojedynkowych. 
Ta miniaturyzacja powoduje, ie te 
najnowocześniejsze, a więc MOS 
(Metal Oxide Semiconductor) wy- 
magają szczególnej ostroiności: są 
uczulone na ŁADUNKI ELEKTRO- 
STATYCZNE. 

Przypominamy: ładunki elektro- 
statyczne powstają nie tylko przy 
pocieraniu bursztynu o wełnę, ale 
również, gdy trzemy SYNTETYK o... 
WSZYSTKO! 

Kto nie wierzy, niechaj gwałtow- 
nie ściągnie sweter z anilany: może 
usłyszeć trzeszczenie iskierek, a jeś- 
li będzie ciemno, to je zobaczy. 

Ładunki elektrostatyczne skute- 
cznie BLOKUJĄ obwody scalone 
MOS. Efekt jest taki, że komputer 
(kalkulator) nagle... głupieje. Coś 
pokazuje, ale żle! 

Niektórzy „dowcipni” radzą w ta- 
kiej sytuacji... wyjazd do Japonii. 

Nie jest to konieczne, gdyż często 
możemy zreperować samodzielnie. 
Wymagana tu jest zręczność ra- 
dioamatora i jego narzędzia (wkręta- 
ki, pinceta, lutownica, lutowie...). 
Jeśli tego nie mamy, to radzimy po- 
szukać zaprzyjaźnionego radiomaj- 
sterkowicza. 


Dodatkowe wyposażenie to arku- 
sik blachy (duży talerz), 30 centyme- 
trów przewodu izolowanego (tzw. 
linka LY), lampa „kreślarska”, spo- 
deczek i ewentualnie lupka. 

Z przewodu usuwamy po 10 mili- 
metrów izolacji. Z jednego końca 
robimy „pędzelek”, a drugi bielimy 
cyną. 

Teraz strój: zdejmujemy SYNTE- 
TYCZNĄ odzież (sweter z anilany, 
nylonową koszulę...) i zakładamy 
bawełniane. Bardzo starannie my- 
jemy ręce i dokładnie suszymy. 

Uwaga: suche, czyste ręce bardzo 
często kładziemy na arkuszu blachy, 
aby usunąć ładunki. Lutownice małej 
mocy starannie uziemiamy (korpus). 
Wyjmujemy komputerowe bateryjki. 

Na blachę kładziemy „zwariowa- 
ny” komputer. Uważnie lokalizujemy 
wkręty (warto zrobić szkic rozmie- 
szczenia). Ostrożnie wykręcamy — 
niektóre są przyklejone lakierem. 
Wykręcone kładziemy na spode- 
czek. 

Gdy wszystkie wykręciliśmy, bar- 
dzo ostrożnie „otwieramy” kompu- 
ter: bez użycia noża, szczypiec — sa- 
mymi palcami. Jeśli napotkamy opór, 
to szukajmy zapomnianego wkrętu. 

Po „otwarciu” warto zrobić szkic 
wnętrza: wynotować symbole ob- 
wodów scalonych. 


Teraz często kładźmy ręce na bla- 
chę. Często róbmy przerwy i dużo, 
dużo oglądajmy: „połówki” kompu- 
tera są z reguły połączone cienkimi 
linkami lub kruchymi taśmami. 

Wyszukujemy „masę”: ma ona li- 
czne punkty lutownicze połączone 
zazwyczaj CZARNYM przewodem. 

Do masy lutujemy jeden koniec 
naszej linki. Rozładowujemy ręce i 
drugim końcem linki „pędzlujemy” 
po WSZYSTKICH METALOWYCH 
elementach: końcówkach obwodów 
scalonych, metalowych ścieżkach 
druku, wszystkich metalowych 
punktach (jeśli jest wygodny do- 
stęp, to również po drugiej stronie 
płytki drukowanej). 

Ten zabieg LIKWIDUJE ŁADUN- 
KI ELEKTROSTATYCZNE. Radzimy 
zrobić krótką przerwę, obejrzeć no- 
tatki i znów... rozładować ręce, kładąc 
je na blachę. 

Zabieg „pędzlowania” powtarza- 
my (może coś przeoczyliśmy). 

Znów przerwa i rozładowanie rąk. 
Przylutowany koniec odlutowujemy i 
bardzo uważnie oglądamy, czy 
„coś” nie odłączyliśmy. 

Powoli i co najmniej uważnie 
składamy „połówki”. Ze spodeczka 
pincetką bierzemy po jednym wkrę- 
cie i „dociągamy częściowo”. Gdy 
spodeczek pusty, to „z wyczuciem” 
dokręcamy wkręty. 

Bardzo uważnie oglądamy złożo- 
ny komputer: NIE POWINNO BYĆ 
ŚLADÓW! 

Zakładamy bateryjki (jeśli je ma). 

Jeszcze raz oglądamy i START. 

Życzymy „ożywienia komputera”. 

Janusz MILLER 


AM ST RAD 

GRA „VIA MAŁA” 

Jest to prosta gra zręcznościowa, polegająca na 
przejechaniu jak najdłuższego odcinka krętej drogi. Wy- 
grywa ten. kto zdobędzie większą liczbę punktów. Zetknięcie 
się w czasie jazdy z krawędzią drogi grozi katastrofą 
Życzymy udanej zabawy 


10 CIS 

20 REM 'V1A HALA' 

30 PRINT : PRINT: PRINT SPC ( 12) , "OPIS GRY* 

40 PRINT: PRINT: PRINT: PRINT 

50 PRINT SPC(8);CHft$(242);* - RUCH N LENO* 

60 PRINT: PRINT 

70 PRINT SPC (8) ; CHRŚ (243) ; * - RUCH N PRANO* 

80 FOR 1=1 TO 4000: NEXT 

90 ENV 1,1,15, 30,15,-1, 12:H0DE i: INK 0,0:PAPER 0:B 

ORDER 0: INK 1,6: INK 2,26: INK 3,21 

100 CLS: P=100: 2=50: X=15: PEN 2: FOR 1=1 T 


0 25: PRINT TAB ( X) ; CHR$ ( 1 43) ; SPACES ( 10) j CHR$ ( 1 43) :N 
EXT* I : WX=20i L0CATE HX,liPEN 1:PRINT CHR*(239) 

110 Z*Z-liIF Z<1 THEN Z=1 

120 FOR 1=1 TO Z:S0UN0 2, 500+ZI10, 1 , 15- (Z \8) , 0,0, 4 
:NEXT liSOUND 2, 200+Z*20, 1 7, 15-1Z/B) ,0,0, 4 
130 LOCATE WX , 1 1 PRINT" , sT*=INKEY*:IF T4=" THEN 1 
50 

140 IF T»=CHR*(243) THEN NK=NX*l ELSE IF T*=CHR»<2 

42) THEN NX=HX-1 

150 P=P+ (50-Z) : X=XtS6N (RND-RND) : IF *<1 THEN X=1 EL 
SE IF' X >29 THEN X=29 

160 IF NOK ANO HX<X«11 THEN PEN 2:10CATE 1, 1:PRIN 
T CHR* (11): L0CATE 1. 1:PRINT CHR* (30 ) ; TAB ( X ) ; CHR* ( 1 

43) ; SPACE4 ( 10) ;CHR4 ( 143) : PEN ls LOCATE NX,1:PRINT C 
HR*(239):60T0 110 

170 CLS: FOR 1=26 TO 0 STEP -1: INK 0,!:BORDER I:S0U 
ND 1,0,4,15,0,0,1:NEXT I:S0UND 1,0,100,0,1 

, 0, 26: PEN 3: PRINT-PUNKTY: • ; P: PRINT: INPUT ‘SRASZ DA 
LEJ? T/N‘,N0*:IF UPPERt (LEFT* <N0*. 1) )=T THEN 100 
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LIGA MYŚLĄCYCH 


Zadanie 1 

Z petnego naczynia zawierającego kwas o stężeniu 96 proc. od- 
lano 2,5 litra i dopełniono naczynie kwasem o stężeniu 80 proc., 
a następnie odlano 2,5 litra i znowu dopełniono naczynie kwasem 
o stężeniu 80 proc. W wyniku tych czynności otrzymano kwas 
89- procentowy 

Należy znaleźć pojemność naczynia. 

Zadanie 2 

Cyfry liczby trzycyfrowej tworzą postęp geometryczny. Suma 
cyfr jedności i setek stanowi -§- cyfry dziesiątek, Jeżeli od szuka- 
nej liczby odejmiemy liczbę ułożoną z tych samych cyfr, lecz na- 
pisanych w odwrotnym porządku, to otrzymamy 297. Należy zna- 
leźć tę liczbę. 

Zadanie 3 

Dziadek i babcia mają w sumie 1 54 lata. Dziadek ma 2 razy tyle 
lat. ile babcia miała wtedy, kiedy dziadek miał tyle. ile babcia ma 
obecnie 

Proszę podać, ile lat ma dziadek, a ile babcia? 

Zadanie 4 

Na szalki wagi postawiono dwa wiadra napełnione po brzegi 
wodą. W jednym z wiader pływa kawałek drewna. Które z wiader 
jest cięższe 7 Odpowiedź należy uzasadnić. 

Zadanie 5 

Marek jadąc autobusem zauważył Pawła, który szedł wzdłuż uli- 
cy po chodniku, ale w kierunku przeciwnym do ruchu autobusu 
Autobus niebawem zatrzymał się na przystanku, a Marek po wyjś- 
ciu z niego pobiegł w kierunku oddalającego się Pawła. Od mo- 
mentu zauważenia Pawia przez Marka do chwili wyjścia Marka z 
autobusu minęło 10 sekund. Przyjmując, że prędkość biegu Marka 
jest dwa razy większa od prędkości chodu Pawła i pięć razy mniej- 
sza od prędkości autobusu, obliczyć po upływie ilu sekund Marek 
dogoni Pawła 7 

Zadanie 6 

Pewien robotnik kopie dół. Na zapytanie przechodnia, jak głębol- ■ 
oędzie dół, odpowiedział: „mój wzrost wynosi 1 80 cm, gdy wykopię 
dół do końca, moja głowa będzie o tyle poniżej powierzchni ziemi, 
o ile teraz, gdy już wykopałem połowę głębokości dołu, jest powy- 
żej mej Jaka będzie głębokość wykopanego dołu? 


Rozwiązania zadań prosimy przesyłać do redakcji do końca 
września br.. z dopiskiem „Liga Myślących' Punktacja zalezy od 
liczby prawidłowych rozwiązań Wśród uczestników rozlosujemy 
książki, a na zwycięzców „Ligi" czekają dodatkowe cenne nagrody 
niespodzianki 


Uwaga! Do programu „Sumy kontrolne" (IKS nr 4) 
wkradł się błąd. Poniżej zamieszczamy prawidłowy wydruk: 

310 GOSUB 608 

345 NM$=STR$ < HOŁD ) -POSITION 
28-LEN < NM$ ) > 1 ‘ PR I NT 
NM* • NM$= " " > 3YNf=H 1 % ■ OQT=0 
i NUMRLL =8 '• GOTO 130 


Pocztowa giełda 


Rozwiązanie krzyżówki z ”IKS-a” nr 3/87 
Hasło brzmi: „IKS" - PISMO DLA CIEBIE 
Bony pieniężne (1000 zł) wylosowali: Maria Wa- 
wrzyniak — Konin, Dariusz Jankowski — Siedlce, 
Zdzisław Ziółkowski — Łódź, Piotr Nowak — 
Sosnowiec, Marek Zemfler — Gdańsk. 

Nagrody książkowe otrzymują: Ryszard Galiński 

— Warszawa, Sławomir Kossakowski — Wał- 
brzych, Mieczysław Cetnar — Czchów, Marek 
Oleszczuk — Lublin, Zbigniew Kaliszyk — Par- 
czew, Joanna Pasternak — Brzeg, Eugeniusz 
Wojciechowski — Poznań, Witold Chwiałkowski 

— Sandomierz, Jacek Piska — Płock, Tadeusz 
Hermandwski — Białogard. 


• Kupię nową klawiaturę do ZX-81. To- 
masz Sadzikowski, ul. Grzybowa 1/30 
32-503 Chrzanów 5. 

• Wymienię programy na Commodo- 
re 64 oraz zakupię. Wioletta Kryza, ul. 
Żeromskiego 36/11, 97-425 Zelów. 

• Kupię komputer Commodore 16 
+ magnetofon 1531. Adam Wojcieszyk, 
ul. Świerczewskiego 5 m 43, 86-200 
Chełmno. 

• Literatura na Atari, informacja — ko- 
perta zwrotna + znaczek. Adam Gawli- 
kowski, ul. Z. Wolskiego 5/1 m 6, 09-400 
Płock. 

• Pilnie poszukuję literatury, progra- 
mów do mikrokomputera ZX-81 (1K). Piotr 
Kempys, ul. Bociania 9, 43-316 Bielsko- 
-Biała. 



Rys. Michał Przybyłowski 
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W NUMERZE 


ICL — str. 4 

Innowacje • opinie • prognozy 

— str. 5 

Czy komputer może uczyć 

— str. 6 

Procesor obrazu 

— str. 7—14 

O zerowaniu zmiennych 

— str. 14 

Pogwarki o CPC 464 

— str. 15 

Od zabawy do nauki 

— str. 16 

Starty i lądowania bez sa- 
molotów — str. 17 

Sztuki i sztuczki (9) — str. 18 
Komputer w medycynie 

— str. 20 

Intel 8080 — str. 21 

Tajny zapis — str. 23 
Liga Myślących — str. 30 
Giełda pomysłów — str. 31 



Komputer w rękach zwycięzcy 


Szyfr juz ztamany Na ogłoszony w 
pierwszym numerze ..IKSa'. informaty- 
cznego dodatku .Żołnierza Wolności", kon- 
kurs wpłynęło kilkanaście tysięcy prawidło- 
wych rozwiązań Zwycięzcę wybrał los Pię- 
cioletnia Monika wylosowała trzy koperty 
Nadawcą pierwszej i zarazem triumfatorem 
naszego konkursu okazał się Bogdan Ol- 
szewski z Sosnowca Dwie drugie nagrody 
otrzymują Bożena Silezm-Budek i Michał 
Słaiszczak — oboje z Warszawy 
Z tej to okazji odbyła się w redakcji miła 
uroczystość wręczenia nagród Redaktor na- 
czelny ..Żołnierza Wolności' płk Zdzisław 
Janoś wręczył zwycięzcy zestaw kompute- 
rowy ufundowany przez znaną na naszym 
rynku iirmę ICL Sprzęt i kilkanaście pro- 
gramów narzędziowych służyć będą inży- 
nierowi z Sosnowca i jak zapowiedział pan 
Bogdan spróbuje na nim rozwiązać nawet 
niektóre zadania profesjonalne (oczywiście 
na miarę możliwości) 

Natomiast dwa radioodbiorniki Maria tra- 
fiły do rąk warszawiaków, którym przysło- 


wiowego łutu szczęścia zabrakło do wylo- 
sowania głównej nagrody 
A teraz jeszcze kilka słów o konkursie. 
Naszym zdaniem odczytanie kryptogramu 
nie było zadaniem prostym. Najważniejszą 
sprawą było oczywiście odnalezienie klu- 
cza. a potem krok po kroku należało odczy- 
tać niezrozumiały ciąg znaków, w którym 
znalazły się dodatkowe utrudnienia Zatem 
najważniejszy był klucz W kolejnych nume- 
rach staraliśmy się podać o nim blizsze in- 
formacje Ale ten trud okazał się niepo- 
trzebny. juz wkrótce bowiem po ogłoszeniu 
Konkursu zaczęły napływać rozwiązania — 
prawidłowe oczywiście!" 


Po odczytaniu nasz kryptooram miał postać: 
WSZYSTKIE BOJOWE 
OPERACJE MIAŁY 
JEDEN AZYMUT: 

-f WOLNA POLSKA + 



Redaktor naczelny „ŻW" płk Zdzisław Janoś przekazuje komputer zwycięzcy — 
Bogdanowi Olszewskiemu. 



A to już wszyscy laureaci w komplecie i ostatnie gratulacje. 
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######*########*#########*####*#**#######*##*####**#####**#*****###***#*#***#### 
NOWOŚCI *********** MOC DLPI BIUR ********** NOWOŚCI 
******************************************************************************** 


OFFICEPOWER - uznany został za najlepszy na świecie system komputerowy dla biur, 
którego autorem jeat brytyjska ICL - International Computer* Limited. System 
został stworzony dla amerykańskiego Ministerstwa Transportu w wyniku kilku- 
letniej pracy grupy fachowców z ICL. System - po dwóch łatach eksploatacji - 
okazał sif bardzo dobry. Obecnie sprzedaje sif go masowo dla dużych biur na 
całym świecie. OFFICEPOWER jest główny czfścią ICL-owskiej oferty w zakresie 
systemów biurowych (Office Systems), których sprzedaż w 1991 roku szacuje sif na 
10 miliardów dolarów rocznie. 

OFFICEPOWER jest kompletnym, zintegrowanym systemem służącym do automatyzacji 
prac biurowych. W przypadku pracy lokalnej obsługuje od 4 do l£fl użytkowników 
(lub wifcej w przypadku sieci). Software wykorzystuje system operacyjny UNIX V 
stający sif mifdzynarodowym standardem,- natomiast hardware stanowią 3E-bitowe 
komputery ICL-owskie CLAN3 i CLPN7 (od jesieni tego roku również DRS300). System 
wykorzystuje również jako terminale ICL-owskiei DRS300, PC OUATTRO i OPD, IBM- 
owskie PC (i kompatlbilne, w szczególności ITT-XTRA) . System komunikuje sif ze 
wszystkimi dużymi komputerami ICL i IBM. Słówną jego zaletą Jest bardzo wysoka 
jakość wszystkich jego aplikacji. 

Na S E ElSEESWEfl ikUdŁl* sin 

* dwupoziomowe przetwarzanie tekstów z wszystkimi znanymi obecnie możliwościami. 
Przetwarzanie dwupoziomowe oznacza, że pierwszy poziom przeznaczony jest dla 
osób, które usiadły po raz pierwszy do komputera, natomiast poziom drugi dla 
bardziej doświadczonych, 

* poczta elektroniczna o nieograni- 
czonej ilości "skrzynek pocztowych”, 

* notes i kalendarz na dowolną 
ilość lat, 

* "przyporninacz" pamiftający termi- 
ny zebrań i spotkań, 

* listy nazwisk i adresów układany- 
ch wg. dowolnych kluczy, 

* automatyczna adresacja pism i 
listów do wielu adresatów wyznacz- 
onych z listy, 

* arkusz elektroniczny zintegrowa- 
ny z edytorem tekstów i grafiką 
wykresową, 

* baza danych, raportowanie i 
kalkulator wielozadaniowy, 

* informator telefoniczny zawiadamiający, że podczas naBzej nieobecności ktoś, 
kto odebrał telefon ma dla nas wiadomość (lub wrfcz ta wiadomość), 

* możliwość zakładania folderów zawierających zbiory uszeregowanych plików, 

* możliwość przesyłania informacji drogą telekomunikacyjną oraz zabezpieczania 
ich według własnych kluczy, 

* możliwość definiowania własnych aplikacji dla tych, których pociąga ekspery- 
mentowanie z systemem. 

OFFICEPOWER okazał sif systemem na tyle "przyjaznym" w użyciu że, użytkujący go 
szybko pozbyli sif barier psychologicznych związanych z zastosowaniem komputerów 
w codziennej pracy biurowej. 



********************************************************************************* 

(sch) 
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W siedzibie firmy DRS 20 wykorzystywane są w prakty- 
ce. 


Elektroniczne kasy są jednym z elementów propono- 
wanych przez ICL systemów komputerowych. 


ICL 


ICL — tej firmy przedstawiać nie trzeba. Od lat 
znana jest na polskim rynku. Polscy informatycy je- 
szcze dziś często pracują na elwrowskiej Odrze — 
młodszej siostrze ICL 1900. Ale to już historia. 

Firma rozwija się dynamicznie, opanowuje nowe 
technologie i zdobywa nowe rynki zbytu. Warszawskie 
przedstawicielstwo oferuje DRS 20 i 30 — systemy 
przeznaczone do prac biurowych. ICL może też kom- 
pletnie wyposażyć placówki handlowe począwszy od kas, 
a na komputerach skończywszy. To oczywiście nie 
wszystko. Szlagierem jest DRS 300, którego już przed- 
stawialiśmy. Istotną zaletą tego urządzenia jest jego 
bardzo dobre oprogramowanie. Użytkownik pracuje w 
pełnym komforcie, komputer podpowiada komendy — 
zresztą wybór odpowiednich funkcji odbywa się za 
pomocą myszki, czyli jest bardzo prosty. Jedyna wada 
to wysoka cena — nawet bogate zakłady nie będą sobie 
mogły na niego pozwolić. 

ICL jest dobrym narzędziem nie tylko dla sekretarek 
i statystyków, ale także i dla inżynierów i zawodowców 
zajmujących się projektowaniem systemów informaty- 
cznych. 


DRS 300 należy do komputerów „łatwych 
mnych”. 


przyj e- 
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IBM Personal System / 2 

IBM PS /2 to prawdopodobnie kolejny milowy krok 
w historii mikrokomputerów , podobnie jak szeSd 
lat temu IBM PC . Firma IBM proponuje cztery 
modele: 30,50,60,80 .IBM PS /2 posiadają stacje 
dysków elastycznych 3 1/2 cala o pojemności 
720 KB lub 1,44 MB oraz dyski stałe 3 1/2 cala 
20,44,70 lub 115 MB .Mogą mieó dołączoną zew- 
nętrzna stacje dysków 5 iz4 cala oraz stacje 
z zapisem laserowym WORMCwrite-once read-manyl 
o pojemności 200 MB . 

Model 30 jest ewolucja IBM PC/XT , posiada : 

■ mikroprocesor 8086 o częstotliwości zegara 8 MHz; 

■ pamied zapisywalna 640 KB ; 

■ pamied stałą 64 KB z CBI0S Ckompatybilne z BIOS!; 

■ układ MCGA zapewniający grafikę o rozdzielczości 
320 x 200 pixeli w 256 kolorach . 

Modele 50,60 lepiej wykorzystujące możliwości mikropro - 
cesora 80286 wyposażono w : 

■ pamied zapisywalna 1 MB o czasie dostępu 150 ns ,roz - 
szerzalna do 7 lub 15 MB ; 

m pamied stała 128 KB z CBIOS i ABI0S ; 

■ układ VGA zapewniający grafikę o rozdzielczości 640 x 
480 pixeli w 256 kolorach ,a po kolejnej rozbudowie 
1024 x 768 pixeli. 

Model 80 różni sie od modeli 50 i 60 tym ,ze posiada mikroprocesor 
80386 <16 lub 20 MHz ) oraz pamied zapisywalną o czasie dostępu 80 
ns i pojemności do 16 MB . Modele 60,80 posiadają jednostkę cent - 
ralna w obudowie typu wieża , umieszczane j pionowo na podłodze. Ceny 
modeli w standardowej konfiguracji: i? 1106 , & 2658 ,£. 4464 7056. 



C 0 M P A Q PORTABLE III 

Jesl mi kromokput erem przenośnym , wyposażonym w mikroprocesor 80286 
C 12 lub 8 MHzI i koprocesor 80287 C 8 MHzI . Parnie/ standardowo 640 KB 
może by/ rozszerzona do 6,6 MB -Parnie/ zewnętrzna stanowią : dwie 
stacje dysk/w 5 1 x 4 cala o pojemności 360 KB lub 1 , 2 MB i dysk siały 
20 lub 40 MB .Mikrokomputer posiada kartę graficzna pozwalająca na 
ekranie ciekłokrystalicznym LCD na rozdzielczo// w trybie graficz- 
nym 640 x 400 pixeli C zgodna z IBM CG A J> lub kartę EGA . COMPAQ 
PORTABLE III posiada trzy porty we-wy :rdwnoległy CENTRONICS , sze- 
regowy RS 232 C oraz typu DIN do podłączenia kolorowego monitora 
zewnętrznego .Klawiatura posiada 84 klawisze . System operacyjny to 
MS DOS w. 3. 20 . 

□ □ ■ □□ MIK RODEPESZE PO ■ PP 

■ o W bieżącym 'toku należy spodziewa/ Sie prototyp u 

INTEL 80486 , w Zwlaźk u z tym firmy 5 "BA 1 4 , MlcroTofl pracują nad 

nowa wersja systemu operacyjnego DOS. Najnowsza propozycja firmy 
<B&R£AMD to kompilator jeżyka 6 o nazwie Turbo C. «p ©AS 1 4000 to 
ostatni model drukarki fermy AMtPTILAD kompatybilnej z drukarkami 
9<BM l S 9 T&N .bp Kolejnym modelem plotera firmy <m£AHT> jest DPX3300 
pozwalający wykonywać rysunki formatu, Ai na papierze l przeźroczy- 
stej folii, w ośmiu kolorach 00 ■ 00 ■ □□ ■ aa 

Nr 5 1 ^ 87 / 06/05 opracował : Jacek Woj tal a 
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Czy komputer 
może uczyć? 

(Rozmowa druga) 

Włodzimierz GOGOŁEK 

Kontynuując relację rozmowy z Robertem — jednym 
z absolwentów „skomputeryzowanej uczelni”, uwagę 
moją zwróciła kwestia doboru informacji wyświetla- 
nych uczącemu się przez komputer. Wykorzystywane 
są w tym celu elementy sztucznej inteligencji — kom- 
puter „rozmawia” z użytkownikiem, korzysta jednak z 
pewnych niezmiennych całości — umownych porcji. 
Porcje te zbudowane są zarówno z fragmentów treści 
nauczania, jak i innych komunikatów (np. aktywizują- 
cych pracę studenta — naukę). 


Podczas konwersacji (komputer 

— uczący się) mającej na celu na- 
uczenie umiejętnego wykorzystywa- 
nia zwrotów w języku niemieckim, 
kontrola aktywności emocjonalnej 
(np. czasy reakcji) studenta wskazu- 
ją, iż zbliża się on do stanu, który 
popularnie nazywamy nudą. Dowo- 
dzi tego znaczne wydłużenie się cza- 
sów odpowiedzi na zadawane przez 
maszynę pytania, a także treść i 
forma tych odpowiedzi. W tej sytua- 
cji komputer sprawdza (w dostęp- 
nym mu zbiorze) dokładnie, z kim 
ma do czynienia — wiek, płeć, zain- 
teresowania itp. Wartości tych da- 
nych to „drogowskazy” w wędrówce 
po podzbiorach „komunikatów ak- 
tywizujących”. Mężczyzna 21 lat, 
kibic sportowy — to dane z kartoteki 

— nudzi się — pozwala to na identy- 
fikację podzbioru, który zawiera 
komunikaty aktywizujące, w tym 
wypadku o treści łatwej do wyobra- 
żenia — np. wyniki ostatnich roz- 
grywek ligi wraz z komputerowymi 
przewidywaniami wyników następ- 
nej rundy. Podczas uzgadniania 
poglądów, między komputerem a 
uczącym się (na temat meczów), 
maszyna kontroluje zmianę aktyw- 
ności emocjonalnej i po przekrocze- 
niu pewnego progu (student już się 
nie nudzi) temat zostaje zmieniony z 
„ligi” na naukę języka. 

Oczywiście w praktyce „drogo- 
wskazami” drogi do tematu „pobu- 
dzającego rozmowę” są dziesiątki 
innych wartości między innymi: ilo- 
raz inteligencji, stan cywilny, wyni- 
ki w nauce, sprawność pamięci, 
oczu. 

Podobnie liczba zbiorów tematów 
„pobudzających rozmów” jest zna- 
czna, przewiduje bowiem wędkarzy, 
koneserów kuchni, kina, wielbicieli 
gwiazd (także śpiewających) itp. 


Są to przykłady prostej modyfi- 
kacji sprawności uczenia się, stoso- 
wane jako ostateczne. Wcześniej 
istnieje bogaty zestaw innych środ- 
ków „pobudzania”, jakie daje nie 
treść, lecz forma wyświetlanych na 
ekranie monitora komputera obra- 
zów (tekstów, rycin, cyfrowych 
odwzorowań np. fotografii). Okazu- 
je się bowiem, że niewielkie modyfi- 
kacje postaci obrazu dostarczają cały 
arsenał drobnych (nieustannie sto- 
sowanych, jak przysłowiowe krople 
wody spadające na kamień) bodź- 
ców, które mają na celu aktywizo- 
wanie pracy studentów. Wykorzy- 
stano tu udział kolorów, słów i zwro- 
tów na nasze samopoczucie. W' prak- 
tyce polega to na ciągłym „pozna- 
waniu przez komputer „swoich 
możliwości”. 

Na początku eksploatacji pro- 
gramu edukacyjnego (sterującego 
pracą komputera wspomagającego 
proces nauczania), wprowadzone 
zostały do niego między innymi 
ogólne prawidłowości oddziaływa- 
nia kolorów na człowieka, na przy- 
kład: czerwień pobudza, zieleń us- 
pokaja, niebieski z czernią drażni. 
Stosując te prawidłowości w prak- 
tyce (zmiana barw obrazu w pamię- 
ci komputera jest bardzo prostym 
zabiegiem) maszyna rejestruje 
reakcje uczących się — różnicę sta- 
nu aktywności przed i po zmianie 
kolorów — w odpowiednich „szuf- 
ladkach”. Przykładowe oznaczenie 
(identyfikator) takiej szufladki 
(podzbioru): 19 lat, niewiasta, nie 
lubi sportu, lubi książki — pamiątki. 
Mieszczą się w niej kolory: zielony z 
białym i czarny, jako najskuteczniej- 
szy podczas zwiększania aktywności 
emocjonalnej studentek mających 
19 lat, przedkładających książki nad 
sport — wniosek ten uzasadniają 


wyniki 634 prób stosowania tych i 
innych kolorów w podobnych okoli- 
cznościach. Innymi słowy komputer 
(centralny) kontrolując codziennie 
pracę 750 uczących się, prezentuje 
każdemu z nich co najmniej 20 kolo-' 
rowych obrazów — zdobywa zatem 
doświadczenie ze stosowania 15 000 
obrazów — „widzi”, jakie kolory i 
jak pobudzają użytkowników. Zwa- 
żywszy na różnice uczących się 
(płci, wieku itp.) kilka tygodni eksplo- 
atacji programu edukacyjnego 
wystarcza, by „maszyna wiedziała”, 
komu, kiedy i jak ubarwić obraz, by 
pozą treścią niósł określony bodziec 
(modyfikacji stanu aktywności emo- 
cjonalnej). 

Aby usprawnić nauczanie, w któ- 
rym komputer wyręcza pracę na- 
uczyciela, podobnie jak w wypadku 
kolorów, następuje klasyfikacja nie- 
których słów, zwrotów. Tworzą one 
komunikaty, „wtrącane” przez ma- 
szynę podczas nauki, modyfikujące 
aktywność emocjonalną studenta. 
Oto niektóre przykłady: „Osiągasz 
wyraźne postępy”, „Uczysz się 
bardzo efektywnie”, „Pośpiesz się!”, 
„Szybciej!”, „Skoncentruj się!” itp. 
Dziesiątki tego typu komunikatów 
komputer wykorzystuje, "pozna- 
jąc” ich skuteczność wobec określo- 
nych osób i sytuacji (szufladkuje 
komunikaty min. wg wieku, płci, 
zamiłowań). 

Przedstawione uwagi dowodzą, że 
podczas nauki wspomaganej przez 
komputer — na równi z treścią — 
forma i sposób przekazywania in- 
formacji przez komputer decyduje o 
efektach współpracy uczącego się z 
maszyną. Zadbano o to z wielką 
skrupulatnością — dając uczącym 
się swego rodzaju rekompensatę za 
brak „żywego słowa” wypowiadane- 
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go przez nauczyciela, który poza 
przekazywaniem wiedzy także się 
uśmiecha i gestykuluje... Doceniając 
ten problem część zajęć w uczelni 
Roberta prowadzą nauczyciele, któ- 
rzy „uzbrojeni” w komputery dy- 
sponują między innymi ekranami 
monitorów wielkości tablicy szkol- 
nej. Stworzyło to warunki do niemal 
nieograniczonych możliwości ilus- 
trowania wykładów. Tablica-ckran 


poza tradycyjnym przeznaczeniem 
(kredę zastępuje „kolorowe pióro”) 
jest pośrednikiem prezentacji tysię- 
cy obrazów zapisanych w pamięci 
komputera. Każdy z nich nauczyciel 
może odszukać i wyświetlić (oczy- 
wiście za pomocą maszyny) w 
czasie krótszym niż trwa wydanie 
poleceniu wykonania tej czynności. 
Temat ten wiąże się z budową i tak 
zwanym przetwarzaniem obrazów', 


które po przetwarzaniu danych i 
tekstów stało się znaczącym obsza- 
rem zastosowań komputerów w ogó- 
le, a w uczelniach w szczególności. 
Zważywszy na atrakcyjność tego za- 
gadnienia — poprawnej konstrukcji 
i modyfikacji obrazów w pamięci 
komputera — stało się ono przed- 
miotem naszej kolejnej rozmowy z 
absolwentem skomputeryzowanej 
szkoły. 


\N szponach Atari (6) 

Procesor obrazu 


Rastrowy system wyświetlania 

Dla zrozumienia możliwości graficznych komputera Ała- 
n. musimy przypomnieć sobie, jak wyświetlany jest obraz 
na ekranie telewizora. Z tyłu kmesKopu generowany jest 
strumień elektronów i wystrzeliwany w kierunku ekranu 
Wzdłuż swojej drogi przelatuje on między zespołem cewek 
odchylania poziomego i pionowego, które mogą odchylić 
strumień. DzięKi temu może on być sterowany do dowol- 
nego punktu ekranu. Elektronika zawarta wewnątrz odbior- 
nika powoduje, że strumień elektronów przemieszcza się 
po ekranie w sposób regularny. Startuje on w lewym gór- 
nym rogu i przesuwa się poziomo Zmiany intensywności 
strumienia, występujące w miarę jego ruchu, malują obraz 
na ekranie. Po osiągnięciu prawego brzegu jest wygaszany 
i przechodzi do lewego brzegu następnej linii (nie uwzględ- 
niamy w opisie wybierania międzyliniowego). Następnie 
jest włączany i znowu przesuwa się poziomo. Po wypełnie- 
niu całego ekranu i osiągnięciu jego dolnego brzegu stru- 
mień elektronów jest wygaszany i wraca do lewego górne- 
go rogu. Następnie cały cyki zaczyna się od nowa. Powta- 
rzany jest 50 razy na sekundę. Taki sposób tworzenia 
obrazu nazywamy rastrowym systemem wyświetlania 

Zdefiniujmy teraz pewne pojęcia. Pojedyncze przejście 
strumienia przez ekran nazywamy „poziomą linią ekranu 
Pozioma linia ekranu jest podstawową jednostką miary od- 
ległości pionowej na ekranie. Wysokość obrazu określamy 
przez podanie liczby poziomych linii ekranu, które go two- 
rzą. Okres, w którym strumień elektronów wraca od pra- 
wego do lewego brzegu, nazywamy ..powrotem pozio- 
mym”. OKres w którym strumień wraca na górę ekranu, 
nazywamy ..povzrotem pionowym Cały proces kreślenia 
obrazu na ekranie zajmuje 20 tysięcy mikrosekund. Powrót 
pionowy trwa około 1 500 ps, a powrót poziomy — około 
14 ps. 

Większość odbiorników telewizyjnych projektowana jest 
z nadmiarem linii; oznacza to. że Kreślą one obraz w taKi 
sposób, że brzegi obrazu wykraczają poza ekran. W efek- 
cie nie mamy ramki na ekranie. Jest to jednak niewygodne 
dla komputerów, ponieważ informacja, która jest poza 
brzegami ekranu, jest tracona. Z tego powodu obraz two- 
rzony przez komputer musi być trochę mniejszy, niż telewi- 
zor może teoretycznie wyświetlić. Atari wykorzystuje tylko 
1 92 poziome linie ekranu. Dlatego granicą rozdzielczości 
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pionowej odbiornika telewizyjnego, używanego z tym kom- 
puterem. są 1 92 punkty elementarne. 

Standardową jednostKą odległości poziomej jest „takt 
koloru”. Szerokość obrazu określamy przez podanie liczby 
taktów koloru, które zajmuje. W pojedynczej poziomej linii 
eKranu istnieje 228 taktów koloru, z których maKsymalnie 
1 76 jest widocznych. Dlatego granicą rozdzielczości po- 
ziomej standardowego odbiornika telewizyjnego jest 176 
punktów elementarnych. Możliwe jest także sterowanie 
półtaktami koloru, co daje rozdzielczość poziomą 352 
punktów elementarnych. 

Procesor obrazu — ANTIC 

Z tego krótkiego przypomnienia widać, jak skompliko- 
wane i czasochłonne jest tworzenie obrazu na ekranie te- 
lewizora lub monitora. Gdyby tym wszystkim zajmował się 
mikroprocesor, to miałby niewiele czasu' na realizację in- 
nych funkcji. Dlatego zaprojektowany został specjalizowa- 
ny układ scalony procesor obrazu o nazwie ANTIC 
(Alpha-Numeric Television Interface Controlfer). który zaj- 
muje się tworzeniem obrazu na ekranie i odciąża mikro- 
procesor. ANTIC jest prawdziwym mikroprocesorem; ma 
własny zestaw rozkazów. Wykorzystując je możemy napi- 
sać program, zwany programem wyświetlania (ang. dis- 
play list), który steruje wyjściem graficznym Komputera 
Dostarcza on następujących informacji; gdzie mogą być 
znalezione dane do wyświetlania, jakich trybów wyświetla- 
nia należy używać do interpretacji trybów ekranu i janie 
specjalne opcje wyświetlania powinny być używane. 

Normalnie program wyświtlama tworzony jest przez sy- 
stem operacyjny podczas realizacji instrukcji GRAPHICS 
ANTIC wykonje kolejne rozkazy programu wyświetlania. W 
zależności od kodu rozkazu zawartość pamięci ekranu in- 
terpretowana jest jako dane tekstowe lub graficzne. ANTIC 
wysyła informacje sterujące obrazem do innego procesora 
(układ GTIA — Graphics Television Interface Atiaptor). 
Jak każdy procesor, ANTIC wykonuje rozkazy programu 
wyświetlania w następujących etapach; 

t. Pobranie kodu rozkazu programu wyświetlania i za- 
pamiętanie go w rejestrze rozkazów 
2. Interpretacja zawartości pamięci jako danych grafi- 
cznych lub znakowych, na podstawie kodu rozkazu. 

*• 
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3. Jeśli rozkaz wsKazuje dane znakowe, ANTIC pobiera 
bajty z pamięci ekranu, przeszukuje zestaw wzorców 
znaków i przesyta wzory znaków do wyświetlenia. 

_4. Jeśli rozkaz wskazuje dane graficzne, ANTIC przesyła 
je bezpośrednio do wyświetlania. 

5. Zwiększenie licznika programu wyświetlania, który 
wskazuje następny rozKaz do wykonania. 

6. Zwiększenie licznika linii ekranu o liczbę bajtów 
przesłanych z pamięci ekranu do wyświetlania. 

7. Powtórzenie tych kroków od początku. 

W tym miejscu winni jesteśmy pewne wyjaśnienie. Roz- 
kazy programu wyświetlania określają sposób wyświetla- 
nia jednej linii. Lecz nie linii ekranu, ale tak zwanej linii 
obrazu, która w zależności od używanego trybu, składa się 
z kilku linii ekranu. Na przykład, w trybie graficznym 2 linia 
obrazu składa się z 1 6 linii ekranu, a w trybie 7 — z dwóch 
linii ekranu. Jak widać, każda linia obrazu może być różnie 
wyświetlana, w zależności od użytego rozkazu procesora 
ANTIC. Jednak w trybach graficznych, definiowanych w 
języku BASIC, wszystkie rozkazy programu wyświetlania 
określają zwykle ten sam tryb wyświetlania. W efekcie na 
ekranie otrzymujemy jednolite linie obrazu. Jednak nic nie 
stoi na przeszkodzie, aby utworzyć dowolny ciąg linii obra- 
zu na ekranie, możemy je zdefiniować za pomocą odpo- 
wiednich rozkazów programu wyświetlania. 

Program wyświetlania powinien być tak skonstruowany, 
aby zapewnić: 

— zrównoważenie linii obrazu me mieszczących się na 
ekranie, do tego przeznaczone są rozkazy wyświetlania 
pustych linii, 

— załadowanie licznika pamięci obrazu adresem począt- 
kowym obszaru pamięci, zawierającej aktualne dane 
graficzne lub tekstowe do wyświetlania, 

— posiadanie aktualnych instrukcji wyświetlania określa- 
jących. który tryb lub tryby graficzne są używane, 

— przejście na początek programu wyświetlania (rozkazy 
skoku) po wykonaniu całego: w pewnych wypadkach 
rozkazy skoku niezbędne są do kontynuowania pro- 
gramu wyświetlania lub pamięci ekranu poza adresy 
graniczne. 

Zestaw rozkazów procesora ANTIC 

Istnieją cztery klasy rozkazów, umożliwiające realizację 
wymienionych zadań: wyświetlanie grafiki, wyświetlanie 
znaków, wyświetlanie pustej linii i skoki. Dodatkowo, zgod- 
nie z tymi rozkazami możliwe są następujące opcje: łado- 
wanie licznika pamięci obrazu (LMS), przesuwanie obrazu i 
przerwania programu wyświetlania (DLI). 

Rozkazy wyświetlania grafiki powodują wyświetlanie 
przez ANTIC linii obrazu zawierającej punkty elementarne 
w jednolitym kolorze. Wyświetlany kolor pochodzi z rejestru 
koloru. Wybór tego rejestru określony jest przez wartość 
danych ekranu. W trybach kreślenia czteroKolorowych 
(tryby BASICa 3. 5. 7 i 1 5 oraz tryby ANTICa 8, A. D i E) do 
wybrania rejestru koloru potrzebna jest para bitów. 

Ze względu na to, że do określania jednego punktu ele- 
mentarnego potrzebne są dwa bity. z każdego bajtu da- 
nych ekranu dekodowane są cztery punkty. Na przykład, 
bajt danych ekranu zawierający wartość $1B (00011011) 
może wyświetlić 4 punkty; pierwszy będzie w kolorze tła. 
drugi w kolorze rejestru 0. trzeci w kolorze rejestru 1 i 
czwarty w kolorze rejestru 2. 

W dwukołorowych trybach kreślenia (tryby BASICa 4. 
6, 1 4 i 8 i tryby ANTICa 9, B, C i F) każdy bit określa jeden z 
dwóch rejestrów koloru. Wartość 0 wybiera kolor tła dla 
punktu, a wartość 1 wybiera rejestr koloru 0. W jednym 
bajcie ekranu może być zawarta informacja ó ośmiu punk- 
tach. 

Istnieje osiem różnych trybów wyświetlania grafiki. Róż- 
nią się one liczbą kolorów (2 lub 4), wysokością linii obrazu 
(1. 2, 4 lub 8 linii ekranu) i liczbą punktów elementarnych, 


JY 3 REM ************************ 
PG 4 REM * Pros ram. #1 ; umożliwia* 
JV 5 REM * utworzenie dowolnego * 
TP 6 REM * programu. wyświetlania* 
KC 7 REM ************************ 
WB 8 ? CHR* < 125) i " PODAJ IL08C 
SEGMENTOM EKRANU" = INPUT N=N=N+ 
1 

WP 10 DIM GEKR ( N > / NRGR < 2*N > 

PG 20 GRAPHICS 8 

XB 40 FOR 1=1 TO N-l ! ? CHR$<125>: 
? " SEGMENT nr= " ; I : ? " Po 
daj tryb ANTIC'u: ";:INPUT A : N 
RGR<1+CI-1>*2>=A 

PM 42 ? " Podaj ilosc linii: 
"i : INPUT R:NRGRC2*I?=A:NEXT I 
DP 43 NRGR < 2*N-1)=-1: NRGR <2*H)=0 
TJ 148 LST=1536 
TG 150 GOSUB 30000 
GC 160 ? "PROGRAM WYŚWIETLANIA GO 
T0WY" 

TO 428 STOP 

ZT 20008 REM ******************** 
EL 20801 REM * Podprogram nr 1 = * 
Al 20082 REM * układa Program * 
JD 20083 REM * wyświetlania * 
AN 20004 REM ******************** 
RO 30000 SEG=1 
IA 30010 L0K=LST 

OD 30028 GEKR< 0 > =PEEK < 88 > +PEEK <89 
>*256 

UX 30030 GR. AN=I NT (<LST/ 1024+1 >*18 
24 > 

UX 38040 GRAN2= I NT < GEKR < 8 > /4036+ 1 
>*4036 

DG 30050 FOR X=LOK TO LOK+2 
NB 30060 POKE X, 1 12 LOK=LOK+1 
RC 38070 NEXT X=I=1 
PM 30080 GEKR < SEG > =GEKR ( 8EG- 1 > 

UP 38100 TRYB=NRGR < 1 +2* < I -1 > > : POW 
T=NRGRC2*I>= 1=1+1 
YU 30118 IF TRYB<8 THEN 0P=65:ADD 
R=LST : GOSUB 30330 : RETURN 
CM 38120 PRZYR=40 
UM 30130 IF TRYB> =6 AND TRYB <=12 
THEN' PRZYR=20 

FM 38140 IF TRYB=8 OR TRYB=3 THEN 
PRZYR=10 

UY 30150 FOR. X=1 TO POWT 
VO 30160 IF LOKOGRAN-3 THEN 3020 
0 

QN 30170 0P=1 :ADDR=GRAN: GOSUB 303 
30 

TT 30180 LOK=LOK+l :GRAN=GRAN+1023 
YV 30138 GOTO 30200 
IV 30280 POKE LOK. TRYB . 

SR 30220 IF (SEG Ol OR X<>1> AND 
< GRAN2-GEKR < SEG » =PRZYR > THEN 
30280 
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SL 30240 0P=TRYB+64 
fiO 30250 flDDR=GEKR < SEG 5 
FT 30260 IF GRflN2-GEKR<SEG5<PRZYR 
THEH GRfiN2=GRfiN2+4096 = FlDDE-RD 
DR+PRZYR ■ 

PP 30270 GOSUB 30330 
CK 30280 LOK=LOK+ 1 
TR 30290 GEKR < SEG 5 =GEKR< SEG 5 +PRZ Y 
R 

MS 30300 NEXT X 

HH 30305 IF TRYB= 1 5 THEH GEKR < SEG 
5 =GEKR < SEG 5 +PRZYR 
VF 30310 SEG=SEG+1 

BN 30320 GOTO 30080 

ZE 30330 POKE LOK,OP 

BX 30340 LOK=LOK+ 1 

UW 30350 POKE LOK, flDDR-<INT(flDDR/ 
2565*256) 

CF 30360 LOK=LOK+ 1 

PW 30370 POKE LOK, INT<fiDBR/2565 

EO 30380 RETURN 

RV 30300 REM ******************** 
GN 30910 REM * Podprogram nr 2 = * 
KZ 30920 REM * ustala adres * 

TD 30338 REM * Pamięci ekranu * 

BL 30940 REM ******************** 
PT 31080 POKE 88 , GEKR C X > - < I NT ( GEK 
R<X 5/2565 *256 5 

RB 31010 POKE 89, I NT < GEKR <X 5/256 5 
••RETURN 


JX 2 REM ************************ 
UE 3 REM * Pros ram nr 2 należy * 
ED 4 REM *doa rac do po P rzedni es o* 
FV 5 REM *Prza Pomocy komendy * 

SJ 6 REM * ENTER "C>" * 

KC 7 REM ************************ 
HF 8 N=5 

WB 40 FOR 1=1 TO N- 1 : REflD fl , B ; NRG 
R < 1 + <1 - 1 5 *2 5 =fl = NRGR < 2* I 5 =B = NEX 
T I 

RD 42 DFlTfl 2,2,7,1,15,144,6,2 
QY 160 REM 
LE 200 POKE 559,0 
HN 210 POKE 560,0 
LH 220 POKE 561,6 
Rfi 230 POKE 559,34 
FlZ 240 X=B = GOSUB 31000 
ZM 250 POKE 87,0: POKE 752,1 
EN 260 POSITION 13,0/? #6; "Wykres 
fu.nkcJ i " 

FR 265 POSITION 13,1=? #6;" 


BM 270 X= 1 = GOSUB 3 1 000 
KY 280 POKE 87,2 

CZ 290 POSITION 6,0 = ? #6 = ' ĘjjTngg 
0 " 

BG 300 X=2= GOSUB 31000 
WL 310 POKE 87,8 = COLOR 1 
EU 320 PLOT 0,0 = DRflWTO 0,140 = PLOT 
0,70 = DRflWTO 319,70 


które mieszczą się w jednej poziomej linii obrazu (40, 80. 
160 lub 320). Dlatego pewne tryby dają lepszą rozdziel- 
czość; będą one oczywiście wymagać więcej pamięci 
RAM ekranu. W tablicy 1 prezentujemy zestawienie cha- 
raKterystyk poszczególnych trybów wyświetlania grafiki. 

Rozkazy wyświetlania znaków zmuszają ANTIC do wy- 
świetlania linii obrazu ze znakami. Każdy bajt pamięci ekra- 
nu OKreśla jeden znak. Istnieje sześć trybów wyświetlania 
znaków. W tablicy 2 prezentujemy zestawienie ich charak- 
terystyk. 

Rozkazy kreślenia pustych linii powodują wyświetlenie 
pewnej liczby poziomych linii ekranu w kolorze tła. ANTIC 
dysponuje ośmioma takimi rozkazami różniącymi się iloś- 
cią pustych linii ekranu. Najczęściej używany jest rozkaz 
wysłania ośmiu pustych linii (Kod 112 lub 70 szesnastko- 
wej) na ekran. Tablica 3 zawiera zestawienie charaktery - 
styk poszczególnych rozkazów. 

Tablica nr 1 


Kod rozkazu 

Tryb 
BASIC a 

Ilość 
punktów 
w po- 
ziomie 

Ilość 
bajtów 
na li- 
mę 

Ilość 

linii 

ekranu 

Ilość 

bitów 

na 

punkt 

Dzie- 

siętny 

Szes- 

nastkowy 

8 

08 

3 

40 

10 

8 

2 

9 

09 

4 

80 

10 

4 

1 

10 

OA 

5 

80 

20 

4 

2 

11 

OB 

6 

160 

20 

2 

1 

12 

OC 

14 

160 

20 

1 

1 

13 

OD 

7 

160 

40 

2 

2 

14 

OE 

15 

160 

40 

1 

2 

15 

OF 

8 

320 

40 

1 

1 


Tablica nr 2 


Kod rozKazu 

Tryb 
BASIC a 

Ilość 
punktów 
w po- 
ziomie 

Ilość 
bajtów 
na li- 
mę 

Ilość 

linii 

ekranu 

Ilość 

bitów 

na 

punkt 

Dzie- 

sięlny 

Szes- 

nastkowy 

2 

02 

0 

40 

40 

8 

8 

3 

03 

- 

40 

40 

10 

8 

4 

04 

12 

40 

40 

8 

8 

5 

05 

13 

40 

40 

16 

8 

6 

06 

1 

20 

20 

8 

8 

7 

07 

2 

20 

20 

16 

8 


Tablica nr 3 


Kod rozkazu 

Liczba 

Dzie- 


limi 

ekranu 

ssętny 

ko wy 

0 

00 

• 

16 

10 

2 

32 

2Q 

3 

48 

30 " 

4 

64 

40 

5 

80 

50 

6 

96 

60 

. 

112 

70 

6 
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MZ 330 DEG : PLOT 0,70 
GE 340 FOR 1=1 TO 313 
DM 350 DRAWTO I , 70-65*3 IN <2*1 > 

GF 360 NEXT I 

OB 370 X=3 : GOSUB 31000 

KM 380 POKE 87 , 1 

Rfl 390 POSITION 2,0 = ? #6 i "wykonał 
= TMSjLP" 

HF 395 POSIT ION 2,1=? #6; "WARSZAW 
fi fT§87j " 

MN 400 GOTO 400 


JU 1 REM **************) ********** 
JJ 2 REM * * 

KW 3 REM * PROGRAM NR 3 * 

JL 4 REM * * 

KA 5 REM ************************ 
HF 8 N=5 

fil 10 DIM GEKR<N),NRGR<2*N>,fi*a> 
CU 20 GRAPHICS 8 : STfiRT=0 
WB 40 FOR 1=1 TO N-l : R£flO fl,B=NRG 
R<1+<I-1 >*2>*fl ■ NRGR<2*I >=B ■ NEX 
T 1 

TM 42 DfiTfl 2,2,7,1,15,132,6,2 
DP 43 NRGR<2*N-1)=-1-NRGR(2*N>=0 
SG 90 GRRPHICS 0 = ? CHR*<125) = CLOS 
E #1 

ZF 100 POSITION 6, 1 : ? "WYKRESY FU 
NKCJI' BIEGUNOWYCH" 

DY 110 POSITION 3,3 = ? "MENU FUNKC 


RM 

JI = M =? 

115 ? " 

1> 

R=B*Q 

DC 

SPIRALA" 
120 ? “ 

2> 

R=fl*a+COS<Q)> 

XR 

CfiRDIOIDR* 1 
125 ? " 3> 

R=A*C1-SIN<Q)) M 

AR 

130 ? " 

4> 

R=A*SIN(B*Q> 

KL 

ROZETfi" 
135 ? “ 

5> 

R=A*C0S<B*Q>" 

OU 

140 ? “ 

S> 

R=C0S<fi*SIN<B*Q> 

OR 

145 ? M 

7> 

R=SIN<A*COS<B*Q> 

EH 

) ** 

150 ? “ 

CO 

V 

R=fl 


WIELOKĄT 

II 



fiS 155 ? = ? "WPROWRDZ = " • TRflP 90 
CV 160 ? M NUMER FUNKCJI = <" 

jN,">"; = POSITION 27,15=INPUT N 
= ? H PfiRRMETR fi < < " ; fi; 

=POSITION 27,16-INPlJ 
EM 162 ? " PARAMETR B = <" 

; -POSITION 27,17=INPUT B 
: ? " PRZYROST ■■ C " ; KR 

OK : POSITION 27,18=1 
fifl 163 ? " SKfiLfi = C” 

,‘SKi 11 >" j : POSITION 27,19= INPUT 
SK 

ML 165 N=N+1*<N=0> 

DI 170 IF N=1 THEN U=4 
RN 175 fi=fi+l*Cfi=0) 

RY 180 B=6+1*<B=0) 


ANTIC używa dwóch typów rozkazów skoku Pierwszy 
(JMP) jest prostym skokiem bezwarunkowym, który umie- 
szcza w liczniku programu nowy adres, występujący w 
dwóch bajtach bezpośrednio po kodzie rozkazu i kontynu- 
uje program wyświetlania od nowego adresu. Jego jedyną 
furwcją jest dostarczenie rozwiązania następującego prob- 
lemu: reiestr liczniKa programu ANTIC ma tylko 10 bitów, 
dlatego program wyświetlania me może przekroczyć 1 KB, 
Jeśii musi przekroczyć tę granicę, to musi używać rozkazu 
JMP dla jej przekroczenia Oznacza to. że program wy- 
świetlania nie jest w pełni przemieszczalny 

Drugi rozkaz skoku (JVB) jest częściej używany. Wpro- 
wadza on wartość argumentu do licznika programu ANTIC 
i czeka na sygnał synchronizacji pionowej, po zakończeniu 
powrotu pionowego, który wykonuje odbiornik telewizyjny 
po wykreśleniu ostatniej linii ekranu. Rozkaz ten jest nor- 
malnie używany na końcu programu wyświetlania i konty- 
nuuje od nowego adresu (najczęściej początku programu 
wyświetlania). Przejście na początek programu tworzy nie- 
skończoną pętlę: oczekiwanie na koniec powrotu piono- 
wego sprawia że pętia jest zsynchronizowana z cyklem 
wyświetlania obrazu odbiornika telewizyjnego. 

JMB i JVB są rozkazami 3-bajtowymi; pierwszy bajt jest 
kodem rozkazu, drugi i trzeci są adresem skoku 

Opcja LMS wymaga pewnego wyjaśnienia. Wybierana 
jest przez ustawienie 6 bitu bajtu rozkazu trybu wyświetla- 
nia grafiki lub znaków. Kiedy ANTIC spotyka taki rozkaz, 
wprowadza do licznika pamięci ekranu bajty argumentu. 
Licznik ten informuje procesor obrazu, gdzie zaczyna się 
RAM ekranu Następnie ANTIC rozpoczyna pobieranie z 
tego obszaru danych do wyświetlania. Rozkaz LMS jest 3- 
-bajtowy: jeden bajt kodu operacji i dwa bajty argumentu. 
W prostych programach wyświetlania rozkaz LMS używa- 
ny jest tylko raz. na początku programu wyświetlania. Cza- 
sami może Dyć konieczne użycie drugiego rozkazu LMS. 
Taka potrzeba występuje, kiedy obszar pamięci ekranu 
przekracza granicę 4 KB Rejestr licznika pamięci ekranu 
ma długość 1 2 bitów, dlatego dane do wyświetlania nie 
mogą przekroczyć granicy 4 KB. Jeśli przekroczą, musi 
być użyty dodatkowy rozkaz LMS. Oznacza to, że dane do 
wyświetlania nie są w pełni przemieszczalne (przynajmniej 
dia niektórych trybów wyświetlania). 

Tworzenie programu wyświetlania 

Każciy program wyświetlania powinien rozpoczynać się 
od trzech rozkazów pustych ośmiu linii”. Wykonuje się to 
w celu przesunięcia początku obrazu o 24 linie ekranu w 
dół Po tym powinna być określona pierwsza linia Jedno- 
cześnie powinno być użyte LMS do przekazania ANTIC. 
gdzie znajdzie on pamięć ekranu. Następnie zaczyna się 
właściwy program wyświetlania, który zawiera bajty dla linii 
obrazu na ekranie. Ogólna liczba poziomych linii ekranu 
wytworzonych przez program wyświetlania me powinna 
przekraczać 192 ANTIC me zachowuje wymagań czaso- 
wych ekranu telewizyjnego. Jeśli damy ANTIC zbyt wiele 
linii ekranu do wyświetlenia, zrobi to. lecz obraz prawdopo- 
dobnie będzie się przesuwał. Wyświetlanie mniej niz 192 li- 
nii ekranu nie spowoduje probtemów. Programista musi ob- 
liczyć sumę poziomych linii ekranu Wytworzonych przez 
program wyświetlania i zweryfikować ją. Program wyświet- 
lania kończy się rozkazem JVB. 

W ceiu utworzenia własnego programu wyświetlania mu- 
simy najpierw zaprojektować format obrazu. Wszystkie 
podręczniki zalecają zrobienie tego na papierze Na razie 
zróbmy tak samo. Naszkicujmy obraz ekranu i przetłu- 
maczmy go na ciąg linii obrazu. Przetłumaczmy ciąg linii 
obrazu na ciąg bajtów określających rozkazy ANTIC. 
Wstawmy trzy bajty ..pustycn 8 linii” na początku programu. 
Ustawmy 6 bit pierwszego bajtu programu Utworzy to roz- 
kaz ładowania licznika pamięci obrazu (LMS) Następne 
dwa bajty Określają adres RAM ekranu. Po nich występują 
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puzustaie bajty programu. Na końcu programu wyświetla- 
nia wstawimy rozkaz JVB i adres początku programu wy- 
świetlania. Teraz zapamiętujemy te bajty w RAM. Mogą 
one być w dowolnym miejscu; upewnijmy się tylko, że me 
pokrywają się z obszarem grafiki gracz— pocisk lub wzor- 
cami znaków i nasz JVB wskazuje początek programu wy- 
świetlania. Następnie musimy wyłączyć ANTlC na ułamek 
sekundy, na czas przepisania adresu programu wyświetla- 
nia. Zrobimy to przez wstawienie 0 do SDMCTL pod adre- 
sem 559 ($22F). Wtedy zapamiętamy adres nowego pro- 
gramu wyświetlania do komórek o adresach 560 i 561 
($230 i $231). W końcu włączymy ANTlC wstawiając 34 
($22) do SDMCTL W czasie powrotu pionowego, gdy AN- 
TlC jest nieaktywny, system operacyjny wprowadzi te no- 
we wartości do jego licznika programu 

Działanie z własnym 
programem wyświetlania 

Pamięć ekranu może być umieszczona gdziekolwiek w 
przestrzeni adresowej komputera. Normalnie program wy- 
świetlania określa początek pamięci ekranu w pierwszym 
rozkazie wyświetlania — rozkaz LMS Jednak ANTlC może 
wykonać nowy rozkaz LMS w każdej linii programu wy- 
świetlania. W ten sposób informacja z całej przestrzeni 
adresowej komputera może być wyświetlona na jednym 
ekranie. Może to być cenne przy ustawianiu niezależnych 
okien tekstowych. 

Istnieje kilka ograniczeń w umieszczaniu pamięci ekranu 
w RAM komputera. Po pierwsze, nie może ona przekraczać 
granicy adresu 4 KB. Jeśli nie możemy tego uniknąć (jak w 
trybie 8 BASICa. który używa 8 KB RAM), musimy ponow- 
nie załadować licznik pamięci ekranu zą pomocą nowego 
rozkazu LMS Po drugie, jeśli chcemy używać dowolnej 
procedury systemu operacyjnego (SO) obsługującej ek- 
ran. musimy dostosować się do konwencji używanych 
przez SO. Mozę to być dosyć trudne, gdy używamy zmody- 
fikowanego programu wyświetlania z BASIC a. Jeśli zmie- 
niliśmy standardowy program wyświetlania i próbujemy 
użyć instrukcji PRINT lub PLOT, system operacyjny wy- 
kona je tak, jakby program wyświetlania byl niezmieniony. 
Spowoduje to prawdopodobnie uszkodzenie obrazu. 

Istnieją trzy możliwe przyczyny zniknięcia obrazu pod- 
czas próby wyprowadzania informacji. Po pierwsze, BASIC 
może odmówić wykonania operacji na ekran, jeśli wybrany 
jest tryb graficzny, w którym taka operacja jest niemożliwa 
System operacyjny przechowuje wartość aktualnego trybu 
graficznego w komórce o adresie 87 ($57). Możemy ..prze- 
konać ' SO do współpracy przez wstawienie tam innej war- 
tości Pamiętajmy o wstawieniu liczby określającej tryb 
BASICu. me ANTICu. 

Drugi rodzaj uszkodzenia może wystąpić podczas mie- 
szania linii obrazu wymagających różnych ilości bajtów 
pamięci ekranu. Pewne linie obrazu wymagają 40 bajtów 
na linię, inne — 20 bajtów, a niektóre tylko 10 bajtów na li- 
nię. Powiedzmy, że wstawiamy 20-bajtową limę obrazu do 
programu wyświetlania z 40-bajtową limą obrazu. Podczas 
wyprowadzania tekstu na ekran wszystko powyżej tej linii 
jest wyświetlane bez zmian, poniżej mej znaki są przesunię- 
te o 20 pozycji w prawo. Jest tak. ponieważ system opera- 
cyjny przyjmuje, że każda lima wymaga 40 bajtów i odpo- 
wiednio pozycjonuje znaki. Lecz ANTlC, po napotkaniu ta- 
kiej linii, wysyła tylko 20 bajtów. System operacyjny uważa, 
że powinna być lima 40-bajtowa. ANTlC interpretuje pozo- 
stałe 20 bajtów jako należące do następnej linii i tam je wy- 
świetla. Powoduje to. ze linia następna i dalsze będą prze- 
sunięte o 20 pozycji w prawo 

Jedynym sposobem uniknięcia tego problemu jest od- 
stąpienie od używania instrukcji PRINT i PLOT do wypro- 
wadzania informacji na ekran podczas stosowania włas- 
nego programu wyświetlania. Szybkim i prostym rozwiąza- 
niem jest zorganizowanie ekranu w grupy linii, które zawie- 


XS 185 ? .■? "CZY CHCESZ MIEĆ U IDO 
CZNE OSIE X-Y" i = INPUT A*=IF FI* 
<1,1>=”T M THEN W=1 
TT 190 LST=1536 
UD 195 GOSUB 30008 
LE 208 POKE 559/0 
HN 210 POKE 560/0 
LH 220 POKE 561/6 
RA 230 POKE 559,34 
AZ 240 X=0= GOSUB 31000 
ZM 250 POKE 87/0= POKE 752,1 
|EN 260 POSITION 13,0 = ? #6, "Wykres 
•funkcji “ 

FR 265 POSITION 13,1=? #6," 


XU 268 X=1 = GOSUB 31000=POKE 87,2= 
POSITION 0,0 = ? #6;'* 

LH 270 ON N GOTO 1000/1100/1280,1 
300, 1400, 1500, 1600, 1780 
BG 360 X=2 = GOSUB 31000 
WL 310 POKE 87,8 = COLOR 1 
SR 380 IF WOl THEN 410 
KS 390 FOR 1=0' TO 319 STEP 4= PLOT 
I , 96 : NEXT I 

II 395 FOR 1=0 TO 191 STEP 3 : PLOT 
160,I=N£XT I 
HJ 400 REM WYKREŚLANIE 
GI 410 FOR T=0 TO 360*U STEP KROK 
JO 420 Q=T/57.3 

YT 430 ON N GOTO 510,520,530/540, 
550,560/570,580 
LL 500 REM RÓWNANIA DLA R 
FE 510 R=B*Q = GOTO 610 
UV 520 R=A*<l+COS<Q)>=GOTO 610 
XL 530 R=A*a-SIN<Q))=G0T0 610 
YC 540 R=A*SIN<B*Q>=GOTO 610 
XB 550 R=A*COS ( B*Gl ) = GOTO 610 
GJ 560 R=C0S<A*SIN<B*Q>>=GOTO 610 
FH 570 R=SIN<A*COS<B*Q> > = GOTO 610 
ZW 580 R=A=G0T0 610 
LC 600 REM WYKREŚLANIE X,Y 

ua 610 x=int«r*cos<q>>*sk:> 

WJ 620 Y=INK<R*3INCQmSK> 

TR 630 IF RBS(X)> 159 OR ABS<Y»95 
THEN 670 

IH 640 IF T=0 THEN PLOT 160+X,96- 
Y 

ON 650 DRAWT0 160+X,96-Y 
KO 660 NEXT T 
IN 670 W=0 

IH 680 X=3 ! GOSUB 31000= POKE 87,1 
KC 690 POSITION 6,0=? #6, “nacisni 
j POSIT ION 2,1=? #6; ' (DOWOLNY^ 

(klawisz! ” 

HJ 700 U= 1 = OPEN #1 ,4,0, "K= " =GET # 
1,X = POSITION 0,0 = PUT # 6, 125 
YJ 718 POSITION 8 , 0 = ? #6, ■ fcza kisi 
OM3.Ł ekran 7f '=GET #1,X = PUT #6, 
125 




NL 720 IF X084 THEN GOTO 90 
10 730 X=2 : GOSUB 31000 = POKE 87,0= 
RUT #6, 125= GOTO 90 
OM 900 X=1 : GOSUB 31000 = POKE 87,2= 
POSITION 0,0=PUT #6, 125= RETURN 
XI 1000 POSITION 0, 0 = ? #Sj ” 
R=";B;"*Q" 

NR 1010 GOTO 300 

ZL 1100 POSITION 0,0= ? #6j “ R=" 

;fl; ,, *<ł+C0S<0))' , 

NT 1110 GOTO 300 

JI 1200 POSITION 0,0=2 #6j" R= m 
;Aj "*a-SIN<Q>>" 

NV 1210 GOTO 300 

EK 1300 POSITION 0,0 = 2 #6; *' R= M 
jfl;"tSIN<* , ;B, n *0>" 

NX 1310 GOTO .300 

YE 1400 POSITION 0,0=2 #6; “ R=“ 

}f\> "*COS<";Bj ”*Q) h 
NZ 1410 GOTO 300 

AL 1500 POSITION 0,0=2 #6; " R=COS 
CU A; U *SINC*.;B; ,, *Q))’‘ 

OB 1510 GOTO 308 

YP 1600 POSITION 0,0=2 #6," R=SIN 
< B ,A;"*C0SC',B.; H '*Q>> M 
00 1610 GOTO 308 
KO 1700 POSITION 0,0=2 #6;“ 

R 22 ” i fi 

OF 1710 GOTO 300 

DH 20008 REM ******************* 
IW 20001 REM * Podprogram * 
DS 20002 REM * układa program * 
OC 20003 REM * wyświetlania * 
EB 28004 REM ******************* 
MK 30000 ON <STAf?T=l) GOTO 30380= 
S£G=1 =DIM S*< 12000) =S*a)=CHR* 
<0) = S* < 12000)=S* = S$<2)=S* = STRR 
T=T = 1=1 

IA 30810 LOK=LST 

30020 GEKR<0)=ADR<8*> 

UX 30030 GRAN=INT ( (LST/1024+1 )*10 
24) 

UX 30040 GRAN2=INT<GEKR<0V4096+1 
)*4036 

BY 30050 REM 
CC 30060 REM 
CG 30070 REM 

PM 30080 GEKR C SEG ) =GEKR < SEG- 1 ) 

NK 30100 TRYB==NRGR (. 1 +2* < I - 1 ) ) = REP 
EAT=NRGR(2*I) = 1=1+1 
YU 38110 IF TRY6<0 THEN 0P=65=ADD 
R=LST = GOSUB 30330 = RETURN 
CM 30120 PRZYR==40 
UM 30130 IF TRYB) =6 AND TRYB <=12 
THEN PRZYR=20 

FM 30140 IF TRYB=8 OR TRYB=9 THEN 
PRZYR=10 

WV 38150 FOR X=1 TO REPEAT 
V0 30160 IF LOKOGRAN-3 THEN 3028 
0 


rają całkowite wielokrotności standardowych wymagań 
bajtów. To zhaczy. nie wstawiamy 20-bajtowej linii do 40- 
-bajtowego obrazu; zamiast tego wstawiamy dwie linie 20- 
-bajtowe lub jedną 20-bajtową i dwie 10-bajtowe. Dopóki 
zachowujemy odpowiednie całkowite wielokrotności, uni- 
kamy przesuwania poziomego. 

Rozwiązanie to podkreśla trzeci problem związany z 
własnymi programami wyświetlania: przesunięcie piono- 
we. System operacyjny pozycjonuje dane ekranu w pionie 
przez obliczenie liczby bajtów do przeskoczenia w dół od 
góry ekranu. W standardowej. 40-bajtowej linii obrazu BA- 
SIC może wstawić znaki w 10 linii po przeskoczeniu 360 
bajtów. Jeśli mamy wstawić cztery linie 1 0-bajtowe. BASIC 
zakończy je trzy linie dalej w dół ekranu niż moglibyśmy 
oczekiwać. Ponadto różne linie obrazu zużywają różne 
ilości linii ekranu, zatem pozycja na ekranie nie będzie ta- 
ka. jak oczekiwaliśmy, jeśli nie weźmiemy pod uwagę kosz- 
tów linii ekranu. 

Jak możemy zobaczyć, mieszane tryby obrazu mogą 
być trudne do użycia. Często musimy oszukiwać system 
operacyjny, aby otrzymać żądane obrazy. W celu wydru- 
kowania lub wykreślenia w wybranym oknie, wstawiamy 
(POKE) numer trybu BASIC u tego okna do komórki o 
adresie 87, następnie wstawiamy adres lewego, górnego 
punktu elementarnego tego okna do komórek 88 i 89 ($58 i 
$59). W trybach znakowych wykonujemy POSITION 0,0 w 
celu ustawienia lewego górnego rogu Okna. W trybach 
kreślenia wszystkie instrukcje PLOT i DRAWTO będą 
wykonywane względem lewego górnego rogu okna jako 
początku układu współrzędnych. 

Własny program wyświetlania może być używany do 
wytworzen+a-intefesujących obrazów. Jego najbardziej 
oczywistym zastosowaniem jest mieszanie tekstu i grafiki. 
Na przykład, możemy przygotować ekran z wyraźnym tytu- 
łem w trybie 2 BASICa. średniej wielkości podtytułem w 
trybie 1 i małym napisem w trybie 0. Następnie możemy 
przejść do obrazu w trybie 8 BASICa w środku, z pewnym 
dłuższym tekstem u dołu ekranu. Dobry przykład tej techni- 
ki dostarczany jest przez obraz w programie Atari States 
and Capitals. 

Zastosowania programów wyświetlania 

Jednym z prostych zastosowań zmodyfikowanego pro- 
gramu wyświetlania jest pionowe odsunięcie linii na ekra- 
nie przez wstawienie pustych linii. Dzięki temu możemy 
uwypuklić krytyczne komunikaty i zwiększyć czytelność 
pewnych obrazów. 

Innym ważnym zastosowaniem manipulacji programem 
wyświetlania jest umożliwienie wykorzystania własności 
niedostępnych z BASIC a. Istnieje tryb tekstowy dostar- 
czany przez ANTIC. którego nie obsługuje BASIC. Tylko 
manipulowanie programem wyświetlania umożliwia nam 
dostęp do tego trybu. Istnieją także przerwania programu 
wyświetlania i możliwości płynnego przesuwania obrazu. 
Które są dostępne tylko po zmodyfikowaniu programu wy- 
świetlania. 

Manipulowanie rozkazem LMS i jego argumentami oferu- 
je wiele możliwości twórczemu programiście. Na przykład, 
przez zmianę LMS w czasie powrotu pionowego strumienia 
elektronów, programista może zmieniać obrazy wyświetla- 
ne na ekranie. Można to robić z małą szybkością, w celu 
wymiany wcześniej przygotowanych obrazów, bez konie- 
czności ponownego kreślenia każdego z nich. Dane obra- 
zu mogą przebywać w pamięci nawet wtedy, gdy nie są 
używane, lecz mogą być dostępne w każdej chwili. Tech- 
nika ta może być także używana do animacji. Przez wy- 
mianę ciągu obrazów możemy uzyskać cykliczną anima- 
cję. Program, który to będzie realizował, może manipulo- 
wać tylko dwoma bajtami adresu do wyświetlania wielu ty- 
sięcy bajtów RAM. 

Możliwe jest także nakładanie obrazów przez ich wymia- 
nę z dużą szybkością Ok o ludzkie ma czas rozdzielczości 
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QN 30170 OP=i=flDDR=GRflH-GOSUB 303 
36 

TT 30180 LGK.=LQK+1 : GRRN=GRRN+1023 
YV 30130 GOTO 30200 
IV 30200 POKE LOK , TRYB 
SR 30220 IF CSEGOl OR X<>1) AND 
< GR8N2-GEKR ( SEG ) > =PRZYR ) THEN 
30280 

SL 30240 0P=TRYB+64 
FlO 30250 RDDR=GEKR ( SEG ) 

FT 30260 IF GRflN2-GEKR<SEG) <PRZYR 
THEN GRfiN2=GRRN2+4036 • HDDR=flD 
OR+PRZYR 

PP 30270 GOSUB 30330 
CK 30280 LOK=LOK+l 
TR 30290 GEKR < SEG ) =GEKR < SEG ) +PRZY 
R 

MS 30300 NEXT X 

HH 30305 IF TRYB=15 THEN GEKR < SEG 
) =GEKR ( SEG >. +PRZ YR 
VF 30310 SEG=SEG+ 1 
BN 30320 GOTO 30080 
ZE 30330 POKE LOK,OP 
BX 30340 LOK=LOK+l 
UW 30350 POKE LOK , flDDR- ( I NT < HDDR/ 
256) *256 > 

CF 30360 LOK=LOK+l 

PW 30370 POKE LOK , I NT < flDDR/256 ) 

EO 30380 RETURN 

EJ 30300 REM ******************* 
JX 30310 REM * Pod Pr ca ram * 
TY 30320 REM * ustala adres * 
HZ 30330 REM * pamięci ekranu * 
EZ 30340 REM ******************* 
PT 31000 POKE 88 , GEKR < X > - < I NT < GEK 
R < X ) /256 ) *256 > 

RB 31010 POKE 89, I NT (GEKR <X) /256> 

•• RETURN 


okoio 1/16 sekundy, zatem program może krążyć między 
trzema obrazami, każdy co 1 750 s. tak że każdy powtarza 
się co 1/16 sekundy. W ten sposób jednocześnie może 
wystąpić na ekranie do trzech obrazów. Oczywiście istnie- 
ją pewne wady tej metody. Pierwsza, oddzielne obrazy mo- 
gą zajmować sporo RAM. Druga, każdy obraz będzie roz- 
myty, ponieważ pokazywany jest tylko jedną trzecią czasu. 
Oznacza to. że tlo wszystkich obrazów powinno być czar- 
ne. a każdy obraz — jasny Ponadto podczas używania tej 
techniki wystąpią pewne nieprzyjemne migotania ekranu 
Opisana technika może być także używana do zwiększenia 
rozdzielczości kolorów i jaskrawości. Dzięki wymianie 
trzech wersji tego samego obrazu, gdy każda wersja ak- 
centuje jeden kolor lub zakres jaskrawości, dostępny jest 
większy zakres kolorów i jaskrawości. 

Automatyczne tworzenie 
programu wyświetlania 

Dla tych czytelników, którym udało się dobrnąć do koń- 
ca poprzedniego artykułu oraz nie przestraszyli się trud- 
ności. jakie trzeba pokonać podczas tworzenia własnego 
programu wyświetlania, mamy niespodziankę. Pisaliśmy 
wcześniej, że na początku musimy zaplanować obraz za 
pomocą kartki papieru, opisaliśmy kolejno, krok po Kroku, 
jakie czynności należy wykonać, aby uzyskać własny pro- 


gram wyświetlania. Omówiliśmy trudności, jakie należy po- 
konać. aby uzyskać żąda"ne efenty na enranie. przedstaw- 
liśmy możliwe błędy i ich skutki. A teraz prezentujemy pro- 
■ gram. Który uwalnia nas od troszczenia się o wszelkie 
szczegóły tworzenia programu wyświetlania i wykonuje za 
nas wszystkie obliczenia. Musimy, oczywiście, dostarczyć 
niezbędnych danych, do których należą: liczba segmentów, 
na jakie chcemy podzielić ekran, numery trybów ANTiC a 
w poszczególnych segmentach oraz liczbę linii obrazu d ! a 
każdego segmentu. Informacje te podajemy w liniach 8 
(ilość segmentów) oraz 1 0—43 (numer trybu oraz ilość linii 
obrazu dla każdego segmentu) programu nr 1 Prograhn 
wyświetlania umieszczony będzie na stronie 6 pamięci 
RAM, od adresu 1536 (linia 140). . „ 

Linie 30000—30380 zawierają procedurę tworzenia 
■programu wyświetlenia na podstawie danych umieszczo- 
nych w tablicy NRGR. która w Każdym wierszu zawiera 
numer trybu i liczbę linii obrazu. Procedura ta uwzględnia 
ograniczenia maksymalnej długości programu wyświetla- 
nia i maksymalnej ilości danych ekranu. Celowo nadaliśmy 
jej tak wysokie numery wierszy, aoy każdy z zainteresowa- 
nych mógł go wykorzystać we własnych programach. 

Podprogram umieszczony w liniach 30900 — 31010 ak- 
tualnie me jest używany, lecz ułatwia rozwiązanie problemu 
adresowania ekranu dla poszczególnych segmentów. Ja- 
ko dane wejściowe wykorzystuje on numer segmentu 
(zmienna X) oraz tablicę GEKR. utworzoną przez pod- 
program nr i . która zawiera adresy początku pamięci ekra- 
nu dla każdego segmentu. 

Program nr 2 demonstruje wykorzystanie omówionych 
podprogramów. Ma już określone następujące dane: liczba 
segmentów (zmienna N) oraz numery trybów i liczba linii 
obrazu dla każdego segmentu (linia 42). Przygotówany 
został w taki sposób, aby uniknąć dwukrotnego wprowa- 
dzania podprogramów nr 1 i 2 z poprzedniego programu. 
Należy po prostu program numer 2 dołączyć do programu 
nr 1 (za pomocą ENTER "C ') w celu otrzymania gotowego 
programu. Utworzony przez niego program wyświetlania 
generuje obraz zawierający: 2 linie w trybie 0, jedną linię w 
trybie 2. 1 44 linie w trybie 8 oraz dwie linie w trybie 1 (są to 
tryby BASIC‘u). 

W liniach 200—300 następuje przekazanie systemowi 
operacyjnemu adresu programu wyświetlania. Linie 
240—265 umieszczają na ekranie napisy w trybie 0. linie 
270—290 umieszczają napis w trybie 2. linie 300—360 
powodują wyświetlenie rysunku w trybie 8, a linie 
370—395 umieszczają napisy w trybie 1 . 

Widoczne jest, ze umieszczenie tekstu lub grafiki w wy- 
branym segmencie wymaga: podania numeru segmentu, 
wywołania podprogramu nr 2. wstawienia do komórki o ad- 
resie 87 numeru trybu BASlCa używanego w tym seg- 
mencie oraz wyprowadzenia informacji właściwych dla 
danego trybu. W wybranym segmencie adresowanie linii 
obrazu odbywa się względem lewego górnego rogu seg- 
mentu. który aktualnie jest początkiem układu współrzęd- 
nych tego segmentu. 

Program nr 3 przygotowany został przez nas w celu za- 
demonstrowania. jakich możliwości dostarcza manipulo- 
wanie programem wyświetlania. Najciekawszą z nich jest 
uzyskanie obrazu o wysokości 240 linii ekranu. Dzięki temu 
uzyskaliśmy dodatkowe 48 linii na umieszczenie różnorod- 
nych napisów przy niezmienionej liczbie linii przeznaczo- 
nych na rysunek (192). Przyznajemy, jest to nieco rozbie- 
żne z informacjami zawartymi w poprzednim artykule, ale 
tamte dane pochodzą z wszelkiego rodzaju opisów i instruk- 
cji, a ten efekt wynikł z naszych poszukiwań i prób. Wyma- 
gało to wprowadzenia pewnych modyfiKacji do procedury 
tworzenia programu wyświetlania, dlatego zamieszczamy 
pełny wydruk gotowego programu. Innym ciekawym efek- 
tem jest wykorzystanie dwóch obrazów: jeden z nich po- 
siada standardowy program wyświetlania, a drugi — przy- 
gotowany przez nas. Dodatkową ciekawostką jest fakt, ze 
dane do wyświetlania drugiego obrazu umieszczone są 
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wewnątrz programu, w zmiennej tekstowej S. a nie jak zwy- 
kle w obszarze pamięci poza programem. 

Oprócz tego zadaniem programu nr 3 jest wyznaczenie i 
wyświetlenie wykresów takich jak spirala, kardioida. roze- 
ta. itp. Na początku prezentuje menu i prosi o wybranie 
funkcji, a następnie o jej parametry, przyrost i skalę. Przy- 
rost jest ilością stopni (krokiem), które komputer używa do 
zwiększenia kąta T od 0 do 360 stopni. Musimy określić, 
czy preferujemy szybkość działania, czy dokładność. Mały 
przyrost, np.: 0,1. będzie kreślił dokładny wykres bardzo 
wolno. Większy przyrost, np.: 5.0 wykreśli szybciej lecz 
mniej dokładnie. Dobrym kompromisem jest 1.0 Skala 
umożliwia dobranie wielkości rysunku na ekranie. Jej war- 
tość w zaKresie 10 do 100 powinna być wystarczająca dla 
większości funkcji. Linie 175—180 sprawdzają, czy nie 
wprowadziliśmy wartości zerowej, która mogłaby przerwać 
działanie programu i pojawienie się komunikatu błędu. Li- 
nia 182 to pytanie, czy mają być wyświetlone osie x— y 
układu współrzędnych, a linie 390—395 kreślą je. Linie 
400—690 zawierają procedury obliczania i kreślenia x i y 
W linii 410 występuje zmienna U dla funkcji nr 1. która 
określa ilość obrotów spirali, jej wartość może być zmie- 
niona w linii 170. Linia 430 kieruje program do obliczania 
wartości funkcji wybranej na początku. Linie 61 0—620 ob- 
liczają współrzędne x, y Lima 630 sprawdza, czy nie prze- 
kroczyliśmy granic ekranu. W przypadku przekroczenia za- 
trzymuje kreślenie i me dopuszcza do wystąpienia komuni- 
katu błędu. W liniach 680—690 program czeka na naciś- 
nięcie klawisza w celu przejścia do kreślenia innej funkcji i 
ewentualnego oczyszczenia ekranu. Jeśli wartości funkcji 
są zbyt duże do kreślenia, od razu pojawia się propozycja 
naciśnięcia klawisza (należy zmniejszyć wartość skali). 

Ze względu na to, że me każde wartości parametrów da- 
ją interesujące efekty na ekranie, proponujemy wykorzy- 
stać następujące wartości dla poszczególnych funkcji 


1) 

A-l . 

B— 1. 

KROK=60. 

SKALA=4 


A=1 . 

B=1. 

KROK=45. 

SKALA=5 


A— 1 . 

B=1. 

KROK=120, 

SKALA— 5 

2) 

A=2. 

B— 1. 

SKALA=20 


3) 

A—2. 

B=1. 

SKALA=20 


4) 

A=2. 

B=3. 

SKALA=80 


6) 

A=2. 

B=6. 

SKALA=90 


A=2. 

B=2, 

SKALA=90 



A=3. 

B=1, 

SKALA— 90 



A=1, 

B=100. 

SKALA=90 


7) 

A=1. 

B=1, 

SKALA=90 


A=4, 

.B=2. 

SKALA=90 



Mamy nadzieję, że przedstawione propozycje zachęcą 
dociekliwych czytelników do dalszych poszukiwań intere- 
sujących efektów graficznych. 

Do wprowadzania programów do pamięci komputera 
radzimy wykorzystać Edytor BASIC'u zamieszczony w nr. 4 
JKS-a" z bieżącego roku. Pamiętajmy: dwa znaki z lewej 
strony numeru linii nie są częścią programu, lecz sumą 
kontrolną danej linii, dlatego nie wprowadzamy ich do 
komputera. 

Programy należy przechować w pamięci zewnętrznej 
(taśmowej łub dyskowej) przed ich uruchomieniem albo za 
pomocą funkcji „L" Edytora BASICU u. albo za pomocą 
instrukcji LIST. w przypadku wprowadzania programu w 
sposób konwencjonalny 

NOWOŚCI 

Pomimo wprowadzenia na rynek rewelacyjnych 1 6-bito- 
wych komputerów domowych serii ST, Atari dba również o 
posiadaczy sprzętu ośmiobitowego (niesłusznie uważane- 
go u nas za przestarzały). Jednym z przejawów dbałości 
jest zestaw RAMBO XL. umożliwiający rozszerzenie pa- 
mięci RAM komputera 800 XL do 256 KB i uczynienia go 
zgodnym ze 130 XE. Dzięki temu możliwe jest efektywne 
wykorzystanie systemu operacyjnego DOS 2.5 ze standar- 
dowym RAM-dyskiem o pojemności 64 KB oraz najnowszej 
wersji języka BASIC XE. Nowy handler RD.COM dostar- 
czany ze Sparta DOS Construction Set, udostępnia RAM- 


-dysk o pojemności 192 KB. Jest to pamięć wystarczająca 
do skopiowania dyskietki o podwójnej gęstości zapisu w 
jednym przebiegu 1 

Powyższe rozszerzone możliwości „poczciwej 800'' do- 
stępne są również rodzimym posiadaczom tych kompute- 
rów i w dodatku za złotówki. KAREN. firma zajmująca się 
naprawami sprzętu ATARI, oprócz montowania BASIC’ u 
XL (za około 26 tysięcy złotych), oferuje również rozsze 
rżenie pamięci 800 XL do 256 KB za około 70 000 złotych 
oraz BASIC XE (najnowszy produkt Optimized System 
Software) za około 30 000 złotych. 

Tomasz MROWIEĆ, Ludwik PIELA 


ATARI 

O zerowaniu zmiennych 


W podręcznikach opisujących zasady 
programowania w języku Atari-Basic 
twierdzi się, że „po zatrzymaniu progra- 
mu klawiszem RESET lub zakończeniu 
działania programu, w którym użyto ins- 
trukcji END, wszystkie zmienne są wyze- 
rowane, tzn. zmienne liczbowe mają war- 
tość 0, a tekstowe zawierają łańcuch 
spacji”. 

Zobaczmy, ;ak to |est w rzeczywistości? Posłuży nam 
do tego krótki program: 

10 DIM ASO) 

20 INPUT AS.B.C 

30 PRINT' AS=": AS: RRINT "B=". B: PRINT "C=': C 
40 D = D + I 
50 PRINT' -D=": D 
60 END 

Po uruchomieniu programu instrukcją RUN i wpisaniu war- 
tości zmiennych 
AS = "ALA" 

B = 1 
C = 2 

otrzymujemy na ekranie wynik działania programu w po- 
staci 

AS = ALA 
B = 1 
C — 2 
D = 1 

Jeżeli teraz uruchomimy program instrukcją GOTO 30. 
otrzymamy ten sam wynik, przy czym D = 2. Po naciśnię- 
ciu klawisza RESET i uruchomieniu programu instrukcją 
GOTO 30, otrzymamy znów wynik (3) ale przyS0= 3. 

Przeprowadzone badania wskazują, że ani instrukcja 
END, ani klawisz RESET nie zerują zmiennych! Jaka zatem 
instrukcja powoduje ich zerowanie? Aby odpowiedzieć na 
to pytanie, wyeliminujemy z programu (1) instrukqę END. 
Po uruchomieniu programu instrukcją RUN i wprowadze- 
niu wartości zmiennych (2) otrzymujemy wynik (3). Jeżeli 
teraz wyeliminujemy linię 20 i uruchomimy program ins- 
trukcją RUN. otrzymamy wynik 
A$ = 

B = 0 
C = 0 
D= 1 

Z powyższego wynika niezbicie, że to właśnie instrukcja 
RUN a nie END czy RESET powoduje wyzerowanie 
zmiennych. Nieuwzględnienie tego faktu wszędzie tam. 
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Oczywiście zmienne zeruje również Instrukcja CLR. 
Używając jej należy jednak pamiętać, że zeruje ona 
wszystkie zmienne programu (co nie zawsze nam od- 
powiada), a po jej użyciu należy ponownie zadeklaro- 
wać zmienne indeksowane i tekstowe. 

Andrzej GRZESIAK 


gdzie wielokrotnie uruchamiamy program (podprogram) 
instrukcją inną niż RUN. może prowadzić do powstania 
różnego rodzaju błędów. Można ich uniknąć nadając 
zmiennym pożądane wartości (w tym również zero) ins- 
trukcją podstawienia przed rozpoczęciem podprogramu 
czy pętli. 

Pogwarki o CPC 464 

Pogawędka druga - firmware, 
czyli zdolności wrodzone 


Dawno, dawno temu, gdy nic było jeszcze 
komputerów osobistych, a z dużymi kompu- 
terami moje kontakty ograniczały się do prze- 
kazywania kart dziurkowanych i odbierania 
wyników, elektroniczną maszynę cyfrową 
traktowałem jak komplet bezdusznych, meta- 
lowych mebli, migocących kolorowymi lamp- 
kami i obracających bezustannie krążki taśm 
magnetycznych. Całkiem odmienne wrażenie 
wywarł na mnie pierwszy, „poznany” mikro- 
komputer. Początkowo do złudzenia przypo- 
minał wyrośnięty kalkulator, ale gdy tylko 
został uruchomiony, złudzenie prysło. Zupeł- 
nie, jakby zbudzona została żywa istota. Każde 
polecenie, każda instrukcja powodowała 
szybką reakcję, która przy szczątkowej nawet 
znajomości języka angielskiego mogła koja- 
rzyć się z prymitywnym dialogiem. Oczywiś- 
cie przyczyną takiego zachowania, martwego 
skądinąd, narzędzia jest program. Wiadomo 
również, że w każdym „szanującym się” mi- 
krokomputerze aktualnie realizowany program 
(lub jego część) musi znajdować się w' pamięci 
wewnętrznej maszyny. Zatem, aby natych- 
miast po włączeniu urządzenia wyświetlony 
został powitalny napis: 

Amstrad 64K Microcomputer (vl) 
© 1984 Amstrad Consumer 
Electronics pic and Locomotive 
Software Ltd. 

a następnie zgłosił się interpreter języka 
BASIC, producent musiał umieścić w pamięci 
odpowiednie zestawy instrukcji. Co ważne, 
nie mogą one ulec wyzerowaniu przy wyłą- 
czeniu komputera, ani tym bardziej przypad- 
kowemu uszkodzeniu. Pamięć maszyny po- 
dzielono więc na część przeznaczoną na pro- 
gramy użytkowników, zwaną RAM (Random 
Access Memory — pamięć o dostępie przy- 
padkowym) i część, którą zarezerwował dla 
siebie producent, czyli ROM (Read Only 
Memory — pamięć tylko do odczytu). Wbu- 
dowanie niewymazywainej pamięci ROM jest 
istotną cechą mikrokomputerów osobistych, 
ułatwiającą ich eksploatację użytkownikowi 
bez przygotowania informatycznego. Nie 
oznacza to jednak, że wszystkie mikrokompu- 
tery muszą mieć ROM. Gdy są go pozbawio- 
ne, jedną z pierwszych operacji po włączeniu 
zasilania jest wczytanie z pamięci zewnętrznej 
(dysku, taśmy, a w starych maszynach rów- 
nież z dziurkowanej taśmy papierowej) odpo- 
wiedniego programu zarządzającego, zwanego 
systemem operacyjnym. Dopiero wówczas 
można wprowadzić program użytkowy. Ana- 
logicznie postępujemy chcąc wczytać CP/M 
2.2, wtedy gdy do naszego AMSTRADa jest 


przyłączona stacja dysków. Różnica polega na 
tym, że CPC 464 jest wyposażony w ROM i w 
dodatku z bardzo interesującą zawartością, a 
zatem CP/M jest systemem alternatywnym, 
pozwalającym zwiększyć możliwości kompu- 
tera. O tym, jak istotną rotę odgrywa umie- 
szczone w pamięci stałej oprogramowanie, 
niech świadczy fakt, że wszyscy, decydujący 
się na samodzielne budowanie mikrokompu- 
terów, z tym elementem mają zazwyczaj naj- 
więcej kłopotów. Najczęściej radzą sobie, ko- 
piując produkt znanej firmy. W ten sposób 
unikają możliwości popełnienia wielu błędów, 
często niezwykle trudnych do wykrycia oraz 
zapewniają swojemu dziełu bibliotekę pro- 
gramów' użytkowych. Warto w tym miejscu 
zaznaczyć, żc różnice w programach zarządza- 
jących są jedną z ważnych przyczyn, iż np. 
ZX SPECTRUM i AMSTRAD CPC 464, 
pomimo zastosowania w nich mikroproceso- 
rów tego samego typu, nie są wymienne pro- 
gramowo. 

Przeglądając prospekty mikrokomputerów 
łatwo zauważyć, że wielkość pamięci stałej jest 
różna dla różnych typów maszyn. Jednak rozu- 
mowanie, że większa pojemność ROM, to 
większy program, a co za tym idzie większe 
możliwości komputera oraz komfort pracy 
może być złudne. Zbyt wiele zależy tu od 
przyjętej koncepcji i zawartości oprogramo- 
wania, a co bardzo ważne — również od jego 
poprawności. 

Czym zatem producent wypełnia stałą pa- 
mięć komputera? W przypadku AMSTRADa 
CPC 464 w 32 Kbajtach ROMu firma Lo- 
comotive Software Ltd. wpisała interpreter 
języka BASIC i rak zwany FIRMWARE, to 
znaczy zbiór niskopoziomowych, czyli napi- 
sanych w kodzie maszynowym podprogra- 
mów, które sterują pracą urządzeń zewnętrz- 
nych, synchronizują i nadzorują pracę ele- 
mentów komputera. Podprogramy te mogą 
być w pełni wykorzystane przez programistów 
piszących w asemblerze, a zdecydowana więk- 
szość z nich jest dostępna także w BASICu i 
innych językach. 

FIRMWARE został podzielony na pakiety 
dotyczące poszczególnych elementów syste- 
mu. Tak na przykład pakiet o wdzięcznej na- 
zwie KEY MANAGER (co nieodparcie koja- 
rzy mi się z „dyrektorem od klawiszy”) jest 
przeznaczony do obsługi klawiatury oraz joy- 
sticków i realizuje trzy poziomy operacji. 
Najniższy poziom, to badanie „czy?” i „któ- 
re?” klawisze zostały wciśnięte, poziom średni 
— przyporządkowanie tym klawiszom odpo- 
wiednich wartości liczbowych, a poziom naj- 


wyższy to zamiana wartości ticzbowych na 
właściwe znaki. KEY MANAGER zawiera 
także procedury obsługi przerwań realizowa- 
nych przez wciśnięcie klawiszy ESC łub 
SHIFT, CTRL i ESC. Kolejny pakiet — 
TEXT VDU jest programem pozwalającym 
zapisywać na ekranie monitora znaki tekstu 
oraz odczytywać je. Kontroluje osiem różnych 
„strumieni”, z których każdemu może od- 
powiadać wydzielony obszar ekranu, zwany 
oknem tekstowym (window). TEXT VDU 
traktuje ustalone znaki jako kody kontrolne, 
co umożliwia różnorodne efekty jak ruch kur- 
sora lub zmiana koloru znaków. Dostęp do 
pojedynczych punktów graficznych ekranu, to 
znaczy ich zapalanie lub określanie ich ak- 
tualnego stanu oraz rysowanie linii umożliwia 
pakiet zwany GRAPHICS VDU. W jego 
skład wchodzą między innymi podprogramy 
umożliwiające posługiwanie się układem 
współrzędnych, określające aktualną pozycję 
kursora graficznego, okreśtające kolory tzw. 
pióra i tła albo inaczej „papieru”. Układy 
elektroniczne związane bezpośrednio z two- 
rzeniem obrazu oraz pakiety TEXT VDU i 
GRAPHICS VDU dopasowuje do siebie pa- 
kiet pośredniczący — SCREEN PACK. 
Zawarte w nim procedury pozwalają wybrać 
tryb graficzny, otrzymać „mieniące się” bar- 
wy, uzyskać zamiast kolorów’ odpowiadające 
im odcienie szarości w razie posługiwania się 
monitorem monochromatycznym. Najważ- 
niejsza funkcja tego programu polega na za- 
mianie w spółrzędnych użytecznych w TEXT 
VDU i GRAPHICS VDU na adresy w pa- 
mięci ekranu. 

Również układ elektroniczny generujący 
dźwięk, czyli SOUND CHIP, ma swojego 
„dyrektora” w pamięci ROM. SOL’ND 
MANAGER, bo o nim mowa, pozwala zmie- 
niać wysokość i czas trwania dźwięku, kształ- 
tować jego obwiednię, a tym samym brzmie- 
nie oraz synchronizować ze sobą dźwięki 
wytwarzane w trzech kanałach. W AMS- 
TRADzie CPC 464 sterowanie dźwiękiem 
realizowane jest nieomal całkowicie progra- 
mowo. 

Problem, który w tym mikrokomputerze 
został rozwiązany chyba najlepiej ze wszyst- 
kich znanych mi urządzeń tej klasy, to zapi- 
sywanie zbiorów (w tym i programów) na 
taśmie kasetowej, oraz wczytywanie ich do 
pamięci komputera. Zbiory zapisywane są w 
oddzielonych od siebie blokach zawierających 
2K (2048) bajtów lub mniej, w wypadku gdy 
jest to ostatni blok w zbiorze. Zbiory i bloki 
mają odpowiednie nagłówki, czyli informacje 
umieszczone na początku danych oraz zakoń- 
czenia, które w pełni je charakteryzują. Takie 
rozwiązanie znacznie ułatwia kopiowanie i 
wczytywanie danych, a także organizację bi- 
bliotek programowych, gdyż w razie wystąpie- 
nia błędów czytania, wystarczy powtórzyć 
wprowadzanie zbioru od błoku, w którym 
błąd się pojawił. Poza tym poszczególne bloki 
zbioru mogą być kopiowane niezależnie jeden 
od drugiego. Sterowanie zapisem i odczytem 
informacji oraz mechanizmem magnetofonu 
kasetowego, wbudowanego w komputer od- 
bywa się w pełni programow '0 i jest realizo- 
wane przez pakiet FIRMWARE nazywany 
CASSETTE MANAGER. 
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Innym pakietem odpowiedzialnym za 
współpracę komputera z urządzeniami ze- 
wnętrznymi jest MACHINĘ PACK. Powo- 
duje on, że między innymi układy interfejsu 
równoległego (PPI — port A), odpowiedzial- 
nego za tryb wyprowadzania danych, a w tym 
za współpracę z generatorem dźwięku oraz 
układy sterujące monitorem ekranowym 
(Cathodc Ray Tubę Gontroller) i układy 
wyjścia CENTRONICS, służącego do pod- 
łączenia drukarki, przyjmują wymagane przez 
instrukcje programu stany fizyczne. A zatem 
MACHINĘ PACK synchronizuje pracę 
urządzeń zewnętrznych i podporządkowuje ją 
aktualnie realizowanemu programowi. Pakiet 
ten zawiera ponadto procedury w prowadzania 
i uruchamiania programu użytkowego. 

Jądrem systemu operacyjnego, umieszczo- 
nego przez producenta w pamięci stałej, jest 
KERNEL, który koordynuje realizację pro- 


gramów, zarządza wykorzystaniem pamięci i 
wyborem przyłączonych układów ROM, a 
także uczestniczy w obsłudze przerwań i zda- 
rzeń. Istnieje jeszcze jeden element FIRM- 
\\'AREu — JUMPER, tworzący w chwili 
włączenia komputera, w pamięci RAA1 • — 
JUMPBLOĆK, czyli blok instrukcji" skoko- 
wych umieszczonych pod określonymi, sta- 
łymi adresami. Procedury, które się tam znaj- 
dują, zapewniają mtfżliwość wywołania roz- 
maitych podprogramów FIRM\\'AREu, po- 
mimo że związane z tym parametry (np. adre- 
sy tub wartości pewnych zmiennych syste- 
mowych) mogą się zmieniać w trakcie realiza- 
cji programu. Wykorzystanie pośrednika, 
jakim jest JUMPBLOĆK, powoduje, że 
zmiany te są niezauważalne dla użytkownika. 
Elementy FIRMWAREu są dla niego do- 
stępne, podobnie jak inne podprogramy wyż- 
szego poziomu. Zatem, aby tworzyć bardziej 
zaawansowane „dzieła”, w których konieczne 


jest sterowanie HARDWAREm, nie musimy 
poznawać dogłębnie zasad działania poszcze- 
gólnych urządzeń i sposobu ich kontrolowania 
przez system operacyjny. W wielu wypadkach 
wystarczy znajomość tego pakietu. Oczywiś- 
cie, ponieważ JUMPBLOĆK znajduje się w 
pamięci RAM, bardziej zaawansowany użyt- 
kownik może dokonywać w nim zmian i w 
konsekwencji np. zastąpić pewne firmowa 
procedury własnymi. W tym celu niekonie- 
cznie zresztą trzeba się dobierać do tego pa- 
kietu, w ystarczy dobra znajomość asemblera i ' 
organizacji pamięci. Tak, tylko wykorzystanie 
JUMPBLOCKa pozwoli nam w dużej mierze 
uniknąć nieświadomego bałaganu, jaki może 
powstać przy takich operacjach. 

A zatem, jest sobie JUMPBLOĆK, a nawet 
cztery bloki instrukcji skokowych. Pierwszy i 
największy, zwany głównym... ale o tym w na- 
stępnej pogawędce. 

(ROMan) 


Od zabawy do nauki 


To urządzenie pozwala na szkolenie na- 
wigatorów w warunkach symulowanych 
sytuacji powietrznych. 


Rozmowa z kpt. Waldemarem Pająkiem, kierowni- 
kiem Ośrodka Obliczeniowego w Wyższej Oficerskiej 
Szkole Samochodowej im. gen. Aleksandra Waszkiewi- 
cza w Pile. 


— Oprócz funkcji zawodowych pełni 
Pan także funkcję opiekuna uczelnianego 
Klubu Mikrokomputerowego „Aneks”... 

— Owszem, od początków jego pow- 
stania, drugi rok. To chyba jeden z pier- 
wszych klubów mikrokomputerowych w 
kraju, a na pewno w uczelniach wojsko- 
wych. 

— Pytanie chyba zasadne w tym miejs- 
cu: jakie macie komputery? 

— Nie jest źle, chociaż mogłoby być le- 
piej i zanosi się na to, że będzie. Zaczyna- 
liśmy od sprzętu wypożyczonego. 
Wprawdzie kiedyś Rada Młodzieżowa 
Wojska Polskiego obiecywała, że wyposa- 
ży* nas w mikrokomputery, ale tej obietni- 
cy do tej pory nie dotrzymała. „Aneks” ma 
obecnie 14 mikrokomputerów. Siedem 
Spectrum należy do klubu, natomiast tyle 
samo Amstradów, przeznaczonych głów- 
nie do celów dydaktycznych, wypożyczyła 
nam uczelnia. W tym roku mamy nadzieję 
zwiększyć nasz stan posiadania o kolej- 
nych kilka Amstradów. Są one bardziej 
przydatne dla naszych celów. 

— A właściwie, jakie są to potrzeby? 

— Klub Mikrokomputerowy powstał 
przy Ośrodku Obliczeniowym i jego pra- 
cownicy są równocześnie nauczycielami i 
instruktorami. Właśnie oni przy pomocy 
podchorążych z Naukowego Koła Informa- 
tyki uczą języka, programowania i obsługi 
komputera. Przede wszystkim opieramy 
się na programach przydatnych do stu- 
diów i odpowiadających profilowi szkoły. 
Obejmują one przykładowo charaktery- 
styki poszczególnych elementów i podzes- 
połów samochodu. W ten sposób ucząc 
się czegoś nowego można lepiej 
zrozumieć rozpatrywane zagadnienia i 
znacznie wzbogacić wiedzę. 

Nie koniec na tym. Pracujemy nad róż- 
nymi programami użytkowymi, które 


przyczynią sią do poprawy administrowa- 
nia i dowodzenia szkołą. Na przykład, kpr. 
pchor. SPR Wojciech Karcz, zwolennik 
komputeryzacji, buduje program pomocny 
przy typowaniu na praktyki słuchaczy tu- 
tejszej Szkoły Podchorążych Rezerwy. 
Ofertę klubu dopełnia działalność typowo 
relaksowa, a więc wszelkiego rodzaju gry 
komputerowe. 

— Kto może być członkiem „Aneksu”? 

— liczba miejsc jest ograniczona bazą, 
którą dysponujemy, czyli ilością sprzętu i 
lokalem. W Ośrodku Obliczeniowym jest 
ciasno, ale wkrótce mamy dostać pomie- 
szczenia w remontowanym Klubie Pod- 
chorążych. Regułą jest, że należy ten, kto 
chce, ale też prawdą jest, że kto pierwszy, 
ten lepszy. W ubiegłym roku „Aneks" miał 
35 członków, wyłącznie podchorążych 
wyższej szkoły oficerskiej. Czasami z 
komputerów korzystają podchorążowie 
SPR. Prócz tego raz w tygodniu prowa- 
dzimy zajęcia dla dzieci kadry zawodowej 
uczelni. Cieszą się one dużym wzięciem, 
przychodzą i pociechy, i ich rodzice. 

— Z jakich korzystacie źródeł, z jakiej 
literatury? 

— Ze wszystkiego, co zdobędziemy. 
Mamy swoją biblioteczkę, do której 
członkowie i sympatycy „Aneksu" przy- 
noszą każdą pozycję, jaką uda im się zdo- 
być. Prenumerujemy czasopisma facho- 
we: „Iksa", „Bajtka" i „Komputer". Prze- 
grywamy ciekawsze programy. 

— A plany? 

— Rozwinąć działalność, zdobyć je- 
szcze lepszy sprzęt, zainteresować kom- 
puteryzacją kogo się da. No i pogłębiać 
swoje umiejętności, aby przyczyniły się 
one do opanowania tajników wiedzy wy- 
maganej od specjalistów samochodziarzy. 

Rozmawiał: J. RAJCH 



W tej kabinie-trenażera śmigłowca piloci doskonałą 
w zdobywaniu umiejętności działania na wypadeK r 
przewidzianych zdarzeń. Przy użyciu sprzętu bojowe 
byłoby to niemożliwe do osiągnięcia. 
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Starty i lądowania 
bez samolotów 

Marek SIENIAWSKI 

Na wskaźniku stacji radiolokacyjnej zaczyna pojawiać się coraz więcej 
celów powietrznych. Do odparcia ataku kierowane są siły obrony po- 
wietrznej kraju. Do akcji wkraczają samoloty bojowe, a więc piloci, kie- 
rownicy lotów, nawigatorzy. Uruchomiony zostaje cały system obrony. 
Alarm bojowy! Setki celów przeciwnika, a także własnych środków po- 
wietrznych znajdują się w akcji. W takiej sytuacji ludzie odpowiedzialni za 
kontrolę lotów jeszcze nigdy się nie znaleźli. Została ona tylko wymyś- 
lona. I byłoby najlepiej, gdyby do niej nie doszło. Gdyby jednak... Czy 
sobie poradzą? 


Aby sprawdzić zachowanie się obsługi 
naziemnej w wa runkach ekstremalnych, na- 
leżałoby je realnie stworzyć. Innymi słowy w 


powietrzu umieścić odpowiednio oznako- 
wane samoloty przeciwnika i własne. Taki 
sprawdzian jest jednak bardzo trudny do 


przeprowadzenia (nawet jednorazowo) i bar- 
dzo kosztowny A jak zaplanować strącenia 
samolotow? Choćby z tych powodów imita- 
cja jest trudna. 

Każdy samolot, który zna|duje się w po- 
wietrzu. jest ciągle obserwowany i kiero- 
wany z ziemi. Tak jest w lotnictwie cywil- 
nym i wojskowym. Zajmijmy się workowym,, 
wyposażonym w statki powietrzne. Zdolne 
do działania w krótkim czasie na duże odleg- 
łości. z dużą prędkością (ponad trzykrotnie 
większą od dźwięku — około 1 km na se- 
kundę). uzbrojone w precyzyjne rakiety róż- 
nego typu. I jeszcze jedno. Lotnictwo woj- 
skowe charakteryzuje się bardzo krótkimi 
czasami gotowości do masowego Użycia A 
to oznacza bardzo dużą odpowiedzialność 
obsługi naziemnej za podejmowane decyz- 
ie 

Jak szkolić ludzi do tej obsługi? Wygląda 
to mniej więcej tak. ze po przeszkoleniu w 
uczelni wojskowej, nawigatorzy odbywają 
praktyki na stanowiskach dowodzenia 
Okazuje się. iz najlepszą metodą nauczania 
jest praca indywidualna mistrza z uczniem. 
Trwa to dość długo, zanim .czeladnik” uzy- 
ska uprawnienia, zanim praktycznie będzie 
zdolny samodzielnie kierować lotem maszyny 
bojowej. Takie szkolenie, poza tym że jest 
bardzo pracochłonne, jest również kosz- 
towne. 

Obecnie technika komputerowa pozwala 
już na stworzenie urządzeń, w których mo- 
żna imitować dowolne sytuacje powietrz- 
ne. Ale sam pomysł nie wy starczy. Idea 
skonstruowania takiego imitatora była jed- 
nak na tyle kusząca, że zajęli się nią specja- 
liści z Instytutu Technicznego Wojsk Lotni- 
czych. 

Jak bardzo to trudne zadanie? Przyjrzyjmy 
się pracy ludzi z obsługi naziemnej lotnictwa 
wojskowego. Wróćmy zatem do sytuacji 
skrajnej, gdy ogłoszono alarm bojowy. Zło- 
żoność jej widać na ekranach stacji radiolo- 
kacyjnych. 

Kierownik lotów zarządza start samolotów 
dyżurnych. Gdy znajdują się one w powie- 
trzu. kieruje nimi nawigator-operator. Pro- 
wadzi maszyny tylko w obrębie kilkudzie- 
sięciokilometrowego lotniska. Ma za zadanie 
nie dopuścić do zagrożenia, gdy wzrośnie 
liczba samolotów. Dla współczesnego myś- 
liwca, tylko przy prędkości równej prędkości 
dźwięku, jedna minuta lotu oznacza przeby- 
cie około dwudziestu kilometrów. 

Za strefą lotniska następuje przekazanie 
maszyny nawigatorowi naprowadzania. Z 
ziemi kieruje on ..swój" samolot w rejon dzia- 
łania obcego celu. Kiedy pilot przechwyci 
cel — czyli widzi go na radarze pokłado- 
wym. wówczas samodzielnie wykonuje za- 
danie Odpala rakiety. Znajduje się wtedy 
setki kilometrów od macierzystego lotniska 

Wraca. I znowu zostaje po kolei przeka- 
zywany ..z rąk do rąk" osobom funkcyjnym 
na ziemi. Sytuacja spiętrza się, gdy w tym 
samym czasie w rejonie lotniska znajduje 
się dużo samolotów. Trzeba określić, który z 
nich ma lądować, i w jakiej kolejności. 
Maszyny są więc poukładane w przestrzeni 
powietrznej jakby w szufladkach. Nie mogą 
się tam znajdować długo. Mają za mały za- 
pas paliwa. A krążenie wokół lotniska jest 
kosztowne, niepotrzebne i ryzykowne. 

Decyzję kierownika lotów o lądowaniu 
wykonuje kierownik systemu lądowania. 
Doprowadza samolot precyzyjnie do pasa 
startowego. Najtrudniejsze są sytuacje 
awaryjne, np. gdy samolot jest uszkodzony i 
musi lądować w pierwszej kolejności. Wtedy 
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Instruktor może zaprogramować najbardziej skom- 
plikowaną sytuację, aby w ten sposób określić przy- 
datność ludzi do kierowania ruchem samolotów. 



Kabina trenażera nie różni się niczym od prawdzi- 
wego sprzętu latającego. 



>ią się 
k nie- 
>wego 


*• 

wszystkie inne trzeba szybko poszufladko- 
wać i wytyczyć pustą drogę temu jednemu. 
Tego manewru, choćby ze względu na bez- 
pieczeństwo lotów, nie uda się nigdy prze- 
prowadzić dla celów szkoleniowych. A wia- 
domo. że ludzie muszą być do tego przygo- 
towani. Potrzebny jest więc odpowiedni tre- 
nażer. 

Te i wiele innych barier udało się pokonać 
naukowcom z tTWL. Zespół kierowany 
przez pik. mgr. inż. Janusza Kucfira i płk. dr 
inż Henryka Gajewskiego opracował całą 
rodzinę imitatorów do kierowania lotami 
samolotów przy użyciu komputera. 

Ale przecież komputer nie rozumie ludz- 
kiej mowy. może ktoś zarzucić. Tymczasem 
trzeba zagwarantować naturalne warunki 
pracy kierownikowi lotów, nawigatorowi i pilo- 
tom. Funkcję pośrednika między ludźmi i 
komputerem zupełnie dobrze pełni operator 
lub operatorzy, gdy występuje więcej ćwi- 
czących lub kontrolowanych. 

Tak więc sposób kierowania samolotami 
przy użyciu imitatora IKS (Zbieżność z tytu- 
łem miesięcznika ;est przypadkowa), nie 
różni się niczym od kierowania lotami real- 
nymi. Szczególną cechą urządzenia jest 
modułowość w sensie technicznym l 
programowym. Można szkolić specjalistów 
indywidualnie, w różnych grupach, włącznie 
z pilotami i dowolnie dobranymi zespołami 
Maksymalnym wykorzystaniem wszystkich 


możliwości JKS-a (co już zrealizowano) jest 
prowadzenie walki powietrznej przez całą 
jednostkę lotniczą. Stwarzano różne skom- 
plikowane sytuacje W trakcie ćwiczenia in- 
gerowano w jego przebieg, co świadczy o 
tym. ze imltator nie uczy schematów dzia- 
łania, jest elastyczny w użyciu. Można 
zmienić liczbę celów powietrznych, imito- 
wać zestrzelenia, awarie, wypadki, katastro- 
fy. a zatem sprawdzać zachowanie się 
wszystkich uczestników w skrajnie trudnych 
warunkach. 

Obecnie więc bez startów, lotów i lądo- 
wań samolotów, bez narażania zdrowia lu- 
dzi, sprzętu na straty, a także wystawiania 
nerwów na poważne próby, wszystko może 
się odbywać w pomieszczeniach imitatora. 
Różnorodne sytuacje planuje dowóaca lub 
instruktor. Włącznie z zakłóceniami radio- 
wymi, atmosferycznymi, warunkami kryty- 
cznymi. Czyli takimi, jakie mogą realnie za- 
istnieć. Obsługa naziemna jesl juz do nich 
przygotowana 

Próby, w których uczestniczyli mistrzowie 
w specjalnościach kierowania lotami, ujaw- 
niły. ze me zawsze potrafili oni wyjść obron- 
ną ręką z trudnych zadań. Bo w takich wa- 
runkach dość często się nie znajdowali 

Jak wynika ze statystyk wypadków lotni- 
czych. aż połowa z nich spowodowana jest 
winą pilotów i ludzi z obsług naziemnych, 
czyli innymi słowy wynika z niedoszkolenia. 
Już te fakty wskazują, że zastosowanie 
IKS-a uzupełnia tę lukę znakomicie. 


Jak wielka jest to luka. świadczą tez opi- 
nie specjalistów lotnictwa wojskowego w 
całym święcie. Twierdzą oni, ze możliwości 
super nowoczesnych statków powietrznych 
w zestawieniu z wyszkoleniem obsług na- 
ziemnych. zgrania z pilotami, są niewyko- 
rzystane w dość dużym procencie 

imitatory kierowania samolotami stwarza- 
ją więc ogromne możliwości zgrywania 
systemów obrony powietrznej, prowa- 
dzenia walki i wykorzystania do końca 
wszystkich walorów sprzętu bojowego oraz 
umiejętności ludzi 

W państwach socjalistycznych jest to 
pierwszy tego typu imitator o tak uniwersal- 
nym zastosowaniu i dużych walorach użyt- 
kowych Nic dziwnego, ze zainteresowanie 
nim naszych sąsiadów i sojuszników jest 
bardzo duże. Ale nie tylko do celów lotnic- 
twa wojskowego IKS może być dostosowa- 
ny Dzięki swojej modułowej budowie może 
równie dobrze wykonywać zadania w szko- 
leniu kontrolerów ruchu powietrznego na 
każdym lotnisku. Jeszcze jedną właściwoś- 
cią jest bowiem dostosowanie komputera 
do warunków każdego lotniska i obszaru 
dowolnego państwa. 

Względy ekonomiczne (koszty paliwa, zu- 
życia sprzętu, pracy wielu urządzeń lotni- 
skowych). a także bezpieczeństwa lotów i 
tempa, w jakim można przygotować oraz 
kontrolować dokładność pracy obsługi na- 
ziemnej, zgrania z pilotami, są niewątpliwe. 

Marek SIENIAWSKI 


Sztuki i sztuczki (9) 

Zmienne systemowe ROM-SPECTRUM 


Wskaźniki stanu 

FRAMES 23672 „4 
FLAGS 2361 1 
FLAGS2 23658 
TYFLAG 23612 
FLAG-X 23665 
Seed 23670/1 

ULA (Uncommited Logic Array) jest modułem odpowie- 
dzialnym między innymi za przekazanie pamięci ekranu z 
RAM na monitor. Od momentu włączenia komputer wysyła 
informacje w ustalonym formacie 256x 1 92 punkty co 20 ms. 
Zrozumiałe, że ULA przerywa wtedy wszelkie operacje wy- 
konywane przez mikroprocesor. Jednocześnie wymusza 
na nim wykonanie procedury o adresie 56 (RST 8), o której 
wspomniałem w odcinku 1 Anglicy nazywają to zjawisko 
ogłupieniem procesora. Oprócz przeszukiwania klawiatury 


10 DEF FN zO-PEEK 23672+256FPEEK 23673 
+6S536FPEEK 23674 
20 PRINT FN z O 


dokonuje się wtedy zliczanie przerwań. Z bajtów FRAMES 
możemy dowiedzieć się, ile razy od momentu włączenia 
komputera ULA „ogłupiła" mikroprocesor. 

Ponieważ dokładność taktowania zegara jest wystarcza- 
jąco duża (błąd rzędu 0.01%) można zatozyć, że w jednej 
sekundzie przerwań będzie 50. Stąd prosta droga, aby 
liczba przerwań określała czas w sekundach od inicjaliza- 
c|i systemu. 

20 PRINT FN z ()/50; „s". 

Nasz sztuczny „mechanizm zegarowy” jest następujący: 
po 255 przerwaniach (5. 1 s.) zliczanych w 23672 następuje 
zerowanie tego bajtu i inkrementacja bajtu 23673. Po 
65535 przerwaniach nastąpi wyzerowanie obu i inkremen- 
tacja kolejnego bajtu. „Zegar" wróci do pozycji wyjściowej 
po 2124-1 (czyli 16777215) przerwaniach. Chcąc wyrazić 
to w jednostkach czasu, otrzymamy 3 dni, 21 godzin, 12 
minut, 24,32 sekundy. Mając taki argument w ręku, można 
praktycznie do każdego programu wprowadzić ten „czas”. 
Należy jednak pamiętać, że niektóre procedury wyłączają 
przerwania i czas „stoi w miejscu". Są to wszystkie komen- 
dy współpracujące z urządzeniami zewnętrznymi, a więc 
LOAD SAVE MERGE. VERIFY, COPY i BEEP 

Wykorzystamy zegar do sprawdzenia czasu reakcji 
wzrokowej i manualnej: 


18 


10 DIM t(10) 

20 DEF FN lO-PEEK 23672+236*PEEK 23673 
+63536*PEEK 23674 
30 LET b-li LET *-0l CLS 

40 PRINT "program sprawdza twój raf laka" 
30 PRINT " a start" 

60 IF PEEK 23S360B3 THEN GOTO 60 
70 CLBi PRINT AT 10, 0| 

BO FOR a-0 TO 9 

9Ó PRINT PAPER 4ja» PAPER 7|" "li NEXT a 

100 RA NDOW I ZE INT (R ND *65336) 

110 LET r- INT <RND*10> 

120 PRINT AT 1 ,0| "wciskaj odpowiadni klaw 
i sz numaryczny" 

130 POKE 23674,0i POKE 23673 » Ol POKE 2367 

2,0 

140 PRINT AT 10, r*3i FLASH l»r 

ISO IF INKEY*< >STR* r AND FN z(><-5 THEN 

GOTO. 130 

160 LET t(b>-FN z 0/30 

170 IF t (b) >5 THEN LET t(b>-5 

180 LET b-b+li IF b<ll THEN GOTO 70 

190 FOR a-l TO 10» LET s-s+t(a)i NEXT a 

200 LET b-s/lOi CLS 

210 PRINT "sradni czas ra akcji * ,ł,M " | 

b|" s.“ 

220 REM histogram 
230 DRAW 150,0 

240 FOR a-l TO tOi PLOT 10*a,0 
230 FOR b-0 TO 30*t(a)i PLOT 10*a,b 
260 DRAW 5, 2i NEXT bt NEXT a 
270 PLOT 10, 30*st DRAW OVER 1*150,0 


Flagi systemowe przechowują bardzo istotne informacje 
o stanie, w jakim znajduje się system operacyjny. Każda 
flaga zajmuje 1 bit, a więc może wynosić O lub 1 . Poniżej 
przedstawione są znaczenia poszczególnych flag: 


FLAGS 

stan 0 

stan 1 

bitO 

drukuj spację przed 

wydruk spacji zabro- 


znakiem 

mony 

bil 1 

wyjście na ekran 

wyjście na drukarkę 


(kanał S) 

(kanał P) 

bit 2 

drukuj kursor K 

drukuj Kursor L 

bit 3 

tryb K 

tryb L 

bit 5 

nie wykryto klawisza 

naciśnięto klawisz 

bit 6 

wynik ostatniej opera- 
cji jest łańcuchem 
tekstowym 

wynik jest liczbą 

bit 7 

sprawdzanie syntak- 
tyki linii 

egzekuqa linii 


FLAGS 2 

stan 0 

stan 1 

bitO 

czyszczenie ekranu 

ekran główny jest 


nie jest konieczne 

czysty 

bu t 

bufor drukarki jest 

oufor drukarki powi- 


pusty 

men być wyzerowany 

bit 2 

dwukropek rozdziela 

dwukropek jest zna- 


wyrażenia w linii 

kiem w łańcuchu 

bit 3 

tryb L (Iow letters) 

tryb C (capitals) 

bit 4 

aKtualnym kanałem 

aktualnym kanałem 


me jest K 

jest K 


TVFLAG 

stan 0 

stan t 

oitO 

wydruk na ekranie 
głównym 

wydruk na ekranie 
edycyjnym 

bit 3 

łryb pracy me może 
się zmienić (INJPUT) 

tryb pracy może się 
zmienić (edycja) 

bit 4 

zwykły listing (LIST) 

listing automatyczny 

bit 5 

ekran edycyjny nie 
wymaga czyszczenia 
po naciśnięciu klawi- 
sza 

wyczyścić ekran edy- 
cyjny po naciśnięciu 
klawisza 


flag-x 

stan 0 

stan 1 

bito 

operacja wycinania 
znaków (slicing) 

operacja na całym 
strmgu 

bit 1 

zmienna już istnieje 

nowa zmienna 

bit 5 

tryb edycji (EDIT) 

tryb wprowadzania 
(Input) 

bit 6 

łNPUT tekstowy 

INPUT NUMERYCZ- 
NY 

bit 7 

INPUT bez frazy Li NE 

INPUT LINĘ 


a 
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* 

Zastosowanie flag w BASIC u jest niewielkie i w zasa- 
dzie nie spotyka się-ich w programach. Najczęściej wyko- 
rzystuje się zmianę trybu wydruku liter na ekranie. 

POKE 23658,8 

os' -rwia tryb C (duże litery), a 

POKE 23658,0 

powoduje wydruk iiter małych w trybie L. 

Zatrzymanie egzekucji programu w dowolnym miejscu z 
raportem OK odbędzie się po instrukcji: 

POKE 23611, PEEK 23611-128 

Częściej używa się flag systemowych przy programo- 
waniu w języku wewnętrznym, lecz należy to robić ze 
szczególną ostrożnością. 

Na koniec zmienna SEED która znalazła się w tej grupie 
* dodatkowo. Jeśli używamy funkcji RND. która generuje 
liczby pseudolosówe, to jest ona obliczana właśnie na- 
podstawie zawartości SEED. Wniosek, że umieszczenie 
tam jakiejś liczby z zakresu. 1 ..65535 spowoduje narzuce- 
nie zawsze stałego ciągu wartości funkcji RND. jest więc 
prawidłowy. Można taki proces zainicjować instrukcją 
RANDOMIZE n. której jedynym efektem jest przeniesie- 
nie n do SEED. Stąd sekwencja rozkazów: 


10 RANDOMIZE 70 
20 PRINT INT <RND*6>+1 
30 GOTO 10. 

spowoduje zawsze wygenerowanie liczby 1. 

Zmienną SEED wykorzystuje się często do Konwersji liczby 
1 6-bitowei na postać dwubajtową np.: 

10 INPUT n * * 

20 IF n<> INT n THEN GOTO 10 
30 IF n<0 OR n>65535 THEN GOTO 10 
40 RANDOMIZE n 

50 PRINT n;” (" 5 PEEK 23670? 5 PEEK 
23671; ") " 

Ubieli.' ii a UZ^SO Uf-jZiu pUb.\ii^Uuria KalKUlBtOfGWI 

i arytmetyce zmiennoprzecinkowej w. Spectrum.. 

Krzysztof MAMCARZ 


Komputer w medycynie 

Tomograf jądrowego rezonansu magnetycznego 


W ostatnim dziesięcioleciu diagno- 
styka medyczna wzbogaciła się o li- 
czną rodzinę urządzeń zwanych tomo- 
grafami, umożliwiającymi za pomocą 
różnych metod fizyki, bezinwazyjne — 
a więc nie wymagające użycia skalpe- 
la. badanie dowolnego narządu wew- 
nętrznego pacjenta. Poznaliśmy już bli- 
żej tomograf komputerowy, w którym 
czynnikiem penetrującym organizm 
pacjenta jest promieniowanie Roent- 
gena. Charakter tego promieniowania 
niesie za sobą pewne ograniczenia w 
wykorzystaniu tomografu komputero- 
wego ze względu na szkodliwość czę- 
stych prześwietleń. Urządzenie to do- 
skonale nadaje się do obrazowania na 
monitorze telewizyjnym trójwymiaro- 
wych kształtów badanego narządu, 
głównie części kostnych, ale nie do- 
starcza wielu informacji o wewnętrznej 
budowie oglądanych struktur. Tomo- 
grafia komputerowa jako pierwsza i 
względnie tania metoda diagnostyki 
medycznej, wykorzystująca elementy 
wiedzy medycznej, fizyki 1 informatyki, 
jest jednak powoli wypierana przez in- 
ną. bardziej precyzyjną metodę tomo- 
grafii jądrowego rezonansu magnety- 
cznego. 

Nowa metoda obrazowania wew- 
nętrznych struktur organizmu na moni- 
torze telewizyjnym wkroczyła przebo- 
jem na scenę medyczną, dokonując 
przełomu w technice wykrywania cho- 
rób nowotworowych. Tomograf jądro- 
wego rezonansu magnetycznego, po- 
dobnie jak rentgenowski tomograf 
komputerowy, pozwala obserwować 
zmiany nowotworowe w organizmie. 


czyli ‘narastanie guzów niszczących 
tkanki i narządy: jest jednaK jedynym 
tego rodzaju urządzeniem wskazują- 
cym również miejsca zagrożone moż- 
liwością powstania raka. 

Aby zrozumieć zasadę działania tego 
rewelacyjnego urządzenia, musimy 
przypomnieć sobie kilka znanych z 
lekcji fizyki wiadomości o budowie 
atomu. Atom składa się z jądra atomo- 
wego, zbudowanego z protonów i neu- 
tronów oraz z elektronów krążących w 
dość dużej odległości wokół jądra. W 
interesującym nas zjawisku ograni- 
czmy się do pamiętania o jądrach 
atomowych, które możemy wyobrazić 
sobie jako bączki wirujące bezładnie w 
przestrzeni. Okazuje się. że w przypad- 
ku atomów wodoru, umieszczonych w 
polu działania dostatecznie dużego 
magnesu, jądra atomowe tych pier- 
wiastków, a więc nasze bączki. zaczy- 
nają ustawiać swoje osie obrotu równo- 
legle do kierunku linii pola magnety- 
cznego. Za pomocą dodatkowego, 
pulsującego pola elektromagnety- 
cznego możemy tak rozhuśtać wirują- 
ce bąc2ki, że zmieni się ich prędkość 
obrotowa i położenie osi obrotu. O jąd- 
rach znajdujących się w takim właśnie, 
wzbudzonym stanie mówimy, że zosta- 
ły wprowadzone w rezonans, a cale zja- 
wisko nazywa się jądrowym rezonan- 
sem magnetycznym. Po ustaniu pulsu- 
jącego pola magnetycznego jądra 
atomów wracają do poprzedniego sta- 
nu. zwracając przyjętą energię w po- 
staci fal radiowych — czyli wzbudzone 
jądra atomowe głośno sygnalizują 


powrót do normalności. Czas trwania 
tego zjawiska, zwany czasem relaksa- 
cji jądrowego rezonansu magnety- 
cznego. wskazuje czy narząd, którego 
atomy wodoru wprowadziliśmy w stan 
rezonansu magnetycznego, jest zdro- 
wy, czy odbiega od normy ną skutek 
zmian nowotworowych. Czas relaksacji 
u osób chorych lub zagrożonych no- 
wotworem jest dłuzszy niż u ludzi zdro- 
wych. Tyle należałoby powiedzieć, aby 
zrozumieć teoretyczną zasadę pracy 
tomografu jądrowego rezonansu mag- 
netycznego. możemy zatem przejść do 
samego urządzenia. 


Jest bardzo kosztowne. W jego skład 
wchodzi potężny, elektromagnes gene- 
rator pulsującego pola elektromagne- 
tycznego oraz komputer, sterujący 
urządzeniem 1 przechowujący zbierane 
parametry fizyczne badanego narządu. 
Pacjent umieszczany jest w specjalnej 
kapsule, wewnątrz której wytwarzane 
jest pole magnetyczne 60 000 razy 
przekraczające ziemskie, pola magne- 
tyczne. Pole to porządkuje jądra ato- 
mowe wodoru, ustawiając ich osie 
obrotu w kierunku linii pola magnety- 
cznego. Następnie do pracy wkracza 
generator pulsującego pola elektro- 
magnetycznego, wprowadzając kolej- 
no w rezonans magnetyczny jądra 
atomowe, leżące wzdłuż osi ustalone- 
go przez komputer przestrzennego 
układu współrzędnych. Dia stworzenia 
grafiki komputerowej wybranego na- 
rządu wewnętrznego obszar zawierają- 
cy ten narząd podzielony jest w parnię- 
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Elementy systemów mikrokomputerowych (5) 

Intel 8080 


Jacek WOJTALA 

Mikroprocesor INTEL 8080 jest przedstawicielem linii rozwojowej, któ- 
rej kolejnymi konstrukcjami są mikroprocesory: firmy INTEL 8008, 8080, 
8085; firmy ZILOG Z80 i Z8000 oraz rodzina firmy INTEL i APX 86, 88 czy- 
li 8086, 8088, 80188, 80186, 80286, 80386. 


ci komputera na cegiełki porównywal- 
ne rozmiarami z cząsteczkami chemi- 
cznymi. W pamięci komputera zarejes- 
trowane zostają czasy relaksacji jąder 
atomów każdej cegiełki budującej bada- 
ny obszar wraz z informacją o liczbie 
protonów i właściwościach magnety- 
cznych każdej z nich. Dane te podlega- 
ją obróbce komputerowej, a jej rezulta- 
tem jest kolorowy, przestrzenny obraz 
wideo badanego narządu. Próbkę moż- 
liwości tej metody diagnostycznej daje 
zamieszczone powyżej zdjęcie przed- 
stawiające grafikę komputerową głowy 
zdrowego człowieka. Na zdjęciu tym 
widoczne są wszystkie miękkie części 
głowy,. takie jak mózg czy jama ustna. 

0 ich kolorze i stopniu jego jaskrawoś- 
ci decyduje budowa i magnetyczne 
właściwości obrazowanych elementów 
anatomicznych. 

Tomograf jądrowego rezonansu 
magnetycznego, dzięki swojej nie- 
szkodliwej dla zdrowia pacjenta metodzie 
działania, staje się w rękach lekarzy 
narzędziem niezwykle pożytecznym i 
mimo swojej ceny, stosowanym w 
świecie na coraz większą skalę. Długą 
listę jego możliwości otwiera sztanda- 
rowy przykład diagnostyki chorób no- 
wotworowych, nie należy jednak za- 
pominać, że lista ta jest dużo dłuższa. 
Rozpoznawanie stanów przedzawało- 
wych. alergii czy wczesnych stadiów 
cukrzycy — to tylko kilka z jego dal- 
szych zastosowań. Dlatego też dobrze 
się stało, że kilka naszych rodzimych 
ośrodków medycznych podjęło inten- 
sywne starania, mające na celu zakup 

1 zainstalowanie w Polsce pierwszych 
egzemplarzy tego niezwykle potrzeb- 
nego urządzenia. 

(A.T.) 


INTEL 8080 jest układem wykonanym w 
technologii NMOS. Technologia ta umożli- 
wiła zwiększenie liczby elementów umie- 
szczonych na półprzewodnikowej strukturze 
układu oraz zdecydowany wzrost szybkości 
działania mikroprocesora, w stosunku do 
układów wykonanych we wcześniej wyko- 
rzystywanej technologu PMOS (np. INTEL 
8008). Mikroprocesor, wprowadzony na ry- 
nek w 1974 roku należy do najpopularniej- 
szych mikroprocesorów 8-bitowych. 

ARCHITEKTURA 

MIKROPROCESORA 

Mikroprocesor 8080, przedstawiony na 
rys. 10. zawiera m.in. jednostkę arytmety- 
czno-logiczną ALU. zespół rejestrów z ukła- 
dami adresowania, 8-bitowy rejestr rozka- 
zów IP oraz wewnętrzną magistralę danych. 

8-bitowa ALU przeznaczona jest do wy- 
konywania operacji arytmetycznych, logi- 
cznych. przesunięć. W jej skład wchodzą: 
blok do prowadzenia operacji arytmety- 
cznych i logicznych oraz rejestry — 8-bito- 
wy akumufator A, 8-bitowy rejestr bufo- 
rowy, 8-bitowy rejestr pomocniczy 
(przejściowy), 5-bitowy rejestr wskaźni- 
ków F. 

Zespół rejestrów z układami adresowa- 
nia składa się z 16-bitowego licznika roz- 
kazów PC; 16-bitowego wskaźnika stosu 
SP; sześciu 8-Pitowych rejestrów robo- 
czych, oznaczonych literami 8, C, D. E, H. L. 


tworzących trzy pary rejestrów oraz z dwóch 
rejestrów W, Z, niedostępnych programowo. 
Para rejestrów może tworzyć' 16- bitowy li- 
cznik danych DC, adresujący komórki 
pamięci w przestrzeni adresowej 0 65535 

DZIAŁANIE 

MIKROPROCESORA 

Każdy cykl rozkazów mikroprocesora 
8080. czyli czas konieczny na pobranie i 
wykonanie rozkazu, zawiera od 1 do 5 cykli 
maszynowych. Cykl maszynowy trwa od 3 
do 5 taktów zegarowych Pobranie rozkazu 
oznacza przesłanie go z pamięci do rejestru 
rozkazów. Wykonanie rozkazu oznacza zde- 
kodowanie go i przetłumaczenie na odpo- 
wiednie mikrorozkazy 

W zależności od tzw słowa statusu (sta- 
tus word) w mikroprocesorze 8080 wyróżnia 
się 10 następujących cykli maszynowych: 
pobranie rozkazu, odczyt z pamięci, zapis w 
pamięci, odczyt ze stosu, zapis na stos. od- 
czyt z układu wejścia-wyjścia, zapis w ukła- 
dzie wejścia-wyjścia, potwierdzenie przer- 
wania. potwierdzenie rozkazu HLT, potwier- 
dzenie przerwania podczas stanu HALT. 

Uproszczoną zasadę działania mikropro- 
cesora 8080 można przedstawić następu- 
jąco. Wykonanie każdego z rozkazów roz- 
poczyna się od pobrania kodu rozkazu i 
przekazania go do rejestru rozkazów, co na- 
stępuje w pierwszym cyklu maszynowym. 
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Intel 

8080 

Licznik rozkazów zwiększany jest o 1. w 
układzie sterowania dekodowany jesi kod 
rozkazu i mikroprocesor decyduje, czy ko- 
nieczne jest pobranie następnych bajtów 
Jeśli me jest konieczne pobieranie następ- 
nych bajtów, wówczas rozpoczyna się cykl. 
w którym następuje wykonanie rozkazu 

ZESPÓŁ JEDNOSTKI 
CENTRALNEJ 

W skład systemu 8080 wchodzą: mikro- 
procesor 8080, generator sygnałów zega- 
rowych 8224 i kontroler systemu 8228 
Układ 8224 przeznaczony jest do gene- 
rowania: sygnałów zegarowych, sterujących 
jednostką centralną: i sygnału sterującego 
kontrolerem systemu oraz do synchronizacji 
pracy jednostki centralnej 
Układ 8228 pełni funkcję kontrolera sy- 
stemu i dwukierunkowego bufora do magis- 
trali danych Wytwarza sygnały kontrolne 
niezbędne do bezpośredniej współpracy 


jednostki centralnej z pamięciami i układami 
obsługującymi urządzenia wejścia-wyjścia 
Zespół jednostki centralnej przedstawiono 
na rys 11 

UKŁADY 

WSPÓŁPRACUJĄCE 

System 8080 wymaga stosowania ukła- 
dów pomocniczych, ponizei przedstawiono 
niektóre z nich 

8205 dekoder binarny 1 z 8. Wykorzy- 
stywany jest do dekodowania struktur pa- 
mięci i układów wejścia-wyjścia Jedno z 
ośmiu wyjść przechodzi w stan zera logi- 
cznego. gdy zostaną odpowiednio ustawio- 
ne 3 wejścia zezwalające 

8212 8-bitowy rejestr buforowy. Wyko- 
rzystywany jest do wprowadzania i wypro- 
wadzania informacji z systemu oraz do 
zsynchronizowania przepfywu informacji 
wewnątrz systemu 

8214 kontroler priorytetu przerwań. 

Wykorzystywany do przejmowania maksy- 
malnie 8 sygnałów żądania przerwania i 
wybrania sygnału o najwyższym priorytecie. 

8216 4-bitowy dwukierunkowy wzmac- 
niacz. Wykorzystywany w celu zapew- 
nienia właściwej współpracy układów MOS 
i TTL, tzn. do wzmacniania sygnałów przesy- 
łanych magistralą danych i magistralą ad- 
resową. 

8251 programowany szeregowy układ 
wejścia-wyjścia (USART). Wykorzysty 
wany do transmisji szeregowej synchroni- 
cznej i asynchronicznej między systemem a 
innymi urządzeniami 



8255 programowany równoległy układ 
wejścia-wyjścia. Wykorzystany może być 
jako dwa 8-bitowe porty wejścia-wyjścia A i 
B. 8-bitowy port wejścia-wyjścia C w dwóch 
4-bitowych częściach i 8-bitowy dwukie- 
runkowy bufor magistrali danych. 

8253 układ programowanych liczni- 
ków. Zawiera trzy niezależne układy cza- 
sowe, każdy z łiczników programowany jest 
indywidualnie. 

8257 układ bezpośredniego dostępu 
do pamięci DMA. Jest specjalizowanym 
procesorem, sterującym bezpośrednim prze- 
syłaniem danych między pamięcią a urzą- 
dzeniami zewnętrznymi, z pominięciem jed- 
nostki centralnej. 

8259 programowany układ sterowania 
przerwań. Wykorzystywany do sterowania 
8 poziomami przerwań Umożliwia rozbu- 
dowę systemu przerwań do 64 poziomów 
oraz ma wiele dodatkowych możliwości w 
stosunku do 8214 

8271 kontroler stacji dysków elasty- 
cznych 

8275 kontroler monitora ekranowego 
8279 programowany układ współpracy 
z klawiaturą oraz wskaźnikami cyfrowy- 
mi. 

W systemie mogą być wykorzystywane 
m.in. następujące typy pamięci RAM: 

— statyczne 

2101 o pojemności 256X4 bity: 

21 02 o pojemności 1 024X4 bity. 

— dynamiczne: 

2107 o pojemności 4096X1 bit; 

21 16 o pojemności 16384X1 bit 
Jako pamięci stałe wykorzystuje się naj- 
częściej: 

— pamięci PROM 

3601 o pojemności 256X4 bity: 

3604 o pojemności 512X8 bitów; 

— pamięci EPROM 

2708 o pojemności 1 024X8 bitów, 

2716 o pojemności 2Q48X8 bitów 

PRZERWANIA 


W wielu systemach mikroprocesorowych 
musi istnieć możliwość zawieszenia wyko- 
nywania programu i zareagowania mikro- 
procesora na sygnał przychodzący z ze- 
wnątrz Mikroprocesor 8080 umożliwia włą- 
czenie lub wyłączenie układu przerwań 
(systemu przerwań) Po włączeniu łeoo 
układu do kontrolera 8228, mikroprocesor, 
kończąc każdy cykl rozkazowy; bada stan 
fonii zgłoszenia przerwania Jeśli przerwanie 
nastąpiło, mikroprocesor zawiesza wyko- 
nywanie programu i wykonywany jest skok 
do podprogramu, tzn programu obsługi 
przerwania Po zakończeniu obsiugi przer- 
wania następuje powrót do programu 

LISTA ROZKAZÓW 

Mikroprocesor 8080 charakteryzuje się li- 
stą 78 rozkazów, które można podzielić na 
pięć grup. 

— rozkazy przesyłania informacji; 

— rozkazy arytmetyczne; 

— rozkazy logiczne; 

— rozkazy skoków, wywoływania pod- 
programów; 

— rozkazy sterujące, obsługi wejścia- 
-wyjścia, stosu. 

Lista rozkazów mikroprocesora rozpo- 
cznie następny odcinek cyklu. 

Jacek WOJTALA 
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SHARP 


JANUSZ HI LLER 
SHARP I500-PC 
TAJNY ZAPIS 


13: "X" : PANDOH : 
CLEAR : CLS : 
USING : LIAI T 0 
20: INPUT "ILE LIT 
ER SZYFRU N="; 
N 

30: 1F N< 10R N>16 
THEN BEEP 10,2 
5, 50: PRINT "1< 
N< 16“: GOTO 20 
40: FOR K=17G \ 

50: A=CRND 26J+64: 
P$=p$+CHR$ A 
60: NEXT K:t1=N:Y$= 
P$:Y=ASC Y$:A$ 
="00 A DO Z": 
PRINT A$; 

70: 1F Q>10GOTO 18 
0 

80: INPUT ".TYPUJE 
: V ; X$ 

90: CLS : X=ASC X$ 
100: 1F X< YLET D$=" 
ZA LITERA " 
110: IF X>YLET D$=" 
PRZED LITERA " 
120: IF X=YLET L=L+ 
1 : GOTO 140 
130: PRINT 0$;X$;:Q 
=Q+ 1 : GOTO 70 
140: PRINT "ZGADŁEŚ 
"jL;" LITERE": 
BEEP 3, 100, 580 
150:Z$=Z$+X$:M=n-l 
s IF Z$=P$GOTO 
170 

160: Y$=RIGHT$ (Y$, 
N) : Y=ASC Y$:Q= 
0: PRINT A$; : 
GOTO 80 

170: WAI T : PRINT "S 
Z Y F R =";Z$ 
: GOTO 190 
180: CLS : WAIT 0: 
PRINT. "A . L A 
R n" : BEEP 7 
, 65, 1 000 

190: INPUT "OD NOWA 
p T=1 N=0 D 
200: IF D=1 GOTO 10 
210: END 


Tajny 

zapis 

Janusz MILLER 

Program wywołuje etykieta ,.X’ (RU 
’ 0). Podajemy liczbę liter tajnego zaf 

u. 

W tym momencie rusza generał, 
czb losowych, który sam — bez nr 
zej wiedzy i woli — Kolejno typuje ty 
ter. ile podaliśmy. 

Tak powstaje ta/ny zapis. Który z n 
:uty nie ma żadnej sensownej treści 
rzypomina kryptogram szyfru 
Tajny zapis odczytujemy następuj;, 
o; 

— najpierw typujemy literę z zann 
u od A do Z. 

ZX SPECTRUM 


— przypuśćmy, że wytypowaliśmy n- 
orę fv1 . 

— teraz Komputer udziela nam 
vskazówkt. iż tajna litera jest „przed //- 
erą M" lub „za literą M" . 

— tak Kolejno zawężamy pole po- 
•zukiwań. 

Gdy (po Którymś pyianiu-wSKazów- 
e) odgadniemy, to wtedy pojawia się 
ueldunek „zgadłeś 1 literę" 

W ten sposób, kolejno typując, od- 
:adujemy wszystkie litery tajnego do- 
jmentu. co potwierdza meldunek. 
>ZYFH i tu jest wymieniony ciąg 
sjnego zapisu" . 

Nasz program pozwala na zadanie 
0 pytań, aby odgadnąć jedną literę. 
Uwaga: nie znamy .metooy na szyfr' . 
•oponujemy zaś metodę podziału. Oto 
ta: 

— całość (od A do Z) podziel na po- 
uę i wytypuj literę krańcową podziału. 

— wskazaną przez komputer „po- 
• ,vkę znów podziel na połowę.. 

Teoria mówi iż vrystarczy tylko 5 py- 
ń„ 

Czy to prawrda? 


9 REM tajny zapis 
10 LET q=l: MN p* (16) 

12' DIM z* (16)! DIN yS(lć> 

15 LET 1=0 

20 INPUT "podaj liczbę liter szyPru n = "!n 

30 IE n< 1 OR n > 16 THEN GO TO 20 

40 FOR k=l TO n 

42 LET a=INT <RNI)*26)+64 

44 LET ptfO;)=CHR* a 

46 NEXT k 

60 LET y*(l TO 16)=d*C1 TO 16) 

61 LET k=l 

62 LET y=C0DE ytCk) 

64 LET a*=" od A do Z"= PRINT a$ 

70 IF q >10 THEN GO TO 180 
80 INPUT "Typuje "!><« 

90 LET x=C0DE x$ 

100 IF x< y THEN LET d$="za litera " 

102 FOR n = l TO 5! BEEP .1,7-n! N£XT n 
110 IF x>y THEN LET d*>="przed litera " 

112 FOR n=l TO 5: BEEP .i»n: NEXT n 
120 IF x=y THEN LET 1=1+1! GO TO 14© 

130 PRINT dt»x®: LET q=q+ł: GO TO 70 

140 PRINT "zgadłeś "51!" litere"! LET k=k+) 

141 FOR n=l TO 7: BEEP .2,n! NEXT n 
1.50 LET H*(k-l>=x¥ 

155 IF zS (1 TO 16)=p*<l TO 16) THEN 00 TO 17© 

160 LET y=C0BE y*<fc>: LET q=0 

161 PRINT a*: GÓ TO 80 

170 PRINT " szyfr = "fz*(l TC 16)5 50 TO 190 
180 PRINT " cilarn " 

185 BEEP 2,1! BEEP 2,2 

19© INPUT "od nowa (tak/r.ie) "5w$ 

192 IF w$="tak" THEN CLS s GO 70 10 
210 STOP 
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PUGOR^M 

ATARI 

Program kopiujący 


Program służy do kopiowania gier i innych programów 
o pojemności do 36 kB, nagranych na kasecie. 

Po uruchomieniu (RUN) naciskamy O (odczyt). Gdy 
usłyszymy pojedynczy sygnał dźwiękowy, przygoto- 
wujemy kasetę w magnetofonie oraz wciskamy RE- 
TURN. Jeśli kopiowany program składa się z kilku 
części, można wgrywać je kolejno, ale należy uważać, 
by nie przekroczyć zawartości wolnej pamięci. Po 
wgraniu programu otrzymuje się na ekranie wartość: 
pojemność kopiowanego programu oraz pozostałość 
wolnej pamięci RAM. Chcąc zapisać program na innej 
kasecie, należy przygotować magnetofon do nagry- 
wania, nacisnąć Z (zapis), a następnie numer kopiowa- 
nej części. 

Gdy wystąpi błąd w czasie wprowadzania, program 
zostaje zatrzymany, a na ekranie otrzymuje się po- 
twierdzenie o wystąpieniu błędu. 

Stanisław JANKOWSKI 

21 100 Din C$ ( 7 ) , D ( 9 ) = GP.fiPH I CS 0 = PO 
KE 709, 14= POKE 710,0= POKE 752.. 1 
UD 110 C$a, 1> =CHR$ ( i 04 > = C$ C 2 , 2 > =CH 
R$ < 1 04 > = C$ < 3 , 3 > =CHR$ d 04 1 = C$ <4 , 4 
> =CHR$ (1 70 > : C$ < 5 , 5 > =CHR$ < 76 > 

GE 111 C$<6,6)=CHR$<86> = C$<7, 7>=CHR 
$(228 i = C=RDR ( C$ > = D < 0 > =3334 
EU 120 RD=868 ■ C0=866 : LE=872 : D=33334 
=M=0=FOR 1 = 1 TO 9 = D< I )=0 = NEXT I 
ze 130 ROSI TI OH 1,0!? “ *** Kopiow 
3. nie prosramow i 9 i er "-FOS 

ITION 21,23 = ? "wolne. ba..jto 

W" i 

LU 140 POS ITION 27,23=? = OPE 

N #1,4,0, "K" 

HF 160 GET #1 , L 

MP 170 IF L=73 THEN FLRG=0 = H=H+1 = PO 
SITION 2,M*2+2=? H=POSITION 5,M* 
2+2 = ? "= ... " ; -POSI TI ON 17,2 = 7 
"Odczyt" = GOTO 200 
NE 180 IF L=90 THEN 500 
RU 181 IF L=77 THEN POKE 54018,52 
L2 182 IF L=32 THEN POKE 54018,0 
HE 184 IF L=75 THEN RUN 
OH 130 GOTO 160 

10 200 OPEN #2, 4+FLflG, 1 28, "C = " = ROSI 
TI ON 7+2*FLRG,2+2*M=? " “ 

R0 220 L=D(H-1 j+1 =H=INTCL/256) = L=L- 
H*256=P0KE RD,L = POKE RD+1,H 
JE 230 L= ( FLhG=0 ; *D+ ( FLRG=4 > *D ( M } -D 
CM-1 ) = H=INT< L/256) = L=L-H*256 = ROK 
E LE, L = POKE LE+1 , H 


VH 240 POKE CO, 7+FLfiG 

UL 250 L=USR<C,32> = E=PEEK(867> 

LW 260 CL08E #2 

ES 270 IF FLRG=4 THEN POSITION 17,2 
*M+2=? “ " =M=N= POSITION 17,2=? " 
"•GOTO 160 

KZ 280 IF E 0 1 36 THEN POSITION 2,2+ 
2£N = ? " "= POSITION 17,2= 

? "Pomyłka !" =H=H-1 =GOTO 160 
JK 230 D < M ) =D ( M- 1 ) +PEEK ( LE ) +256*PEE 
' KCLE+l) 

ZX 3 00 POSITION 7,2+2*M=? DCMi-DCH- 
1 ) = POSITION 27,23 = ? " " ; CHR 

$ < 30 > ; CHR$ ( 30) i CHR$ < 30 ) ; CHR$ ( 30 ) 
.= CHR$(30 ) ; 

EC 301 ? CHR$ ( 30 > ; D-D ( H ) ; 'GOTO 160 
EH 500 POSITION 17,2=? "Zapis " 

HU 505 GET #1 , L = IF L<43 OR L>48+H T 
HEN POSITION 17,2 = ? " " = GOT 

0 160 

PC 510 N=N = M=L-48 = FLRG=4 = POSITION 1 
7, 2+M*2 = ? "#" = GOTO 200 


Test stacji dysków 


Program DRIVETEST umożliwia sprawdzenie pręd- 
kości obrotowej stacji dysków ATAR1 1050 oraz sygna- 
lizuje ewentualne odchylenie tej prędkości od wartości 
uznawanej za poprawną. Pomiar dokonywany jest przy 
wykorzystaniu procedury w kodzie maszynowym (linie 
DATA). Procedura ta po wywołaniu z programu w ję- 
zyku BASIC zeruje na początku dwa najmniej znaczą- 
ce bajty zegara systemowego (bajty o adresie SI 3 i 
SI 4), a następnie odczytuje z dyskietki sto razy sektor o 
numerze jeden. W czasie trwania odczytu zegar syste- 
mowy jest zwiększany o jeden co 1/50 sekundy. Po za- 
kończeniu odczytu zawartość bajtów SI 3 i SI 4 (jest to 
czas trwania odczytu stu sektorów o tym samym nu- 
merze, inaczej stu obrotów, wyrażonych liczbą impul- 
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sów generowanych co 1/50 sekundy) przekazywana 
jest do programu wywołującego procedurę, gdzie na- 
stępuje obliczenie liczby obrotów stacji na minutę. Je- 
żeli obliczona liczba obrotów mieści się w przedziale 
284<LO<292, to wyświetlany jest komunikat „DRIVE 
OK”. Jeżeli nie, to w zależności od obliczonej wartości 
program informuje o „obrotach zbyt wolnych” lub 
„zbyt szybkich”. 

H. KRASUSKI 

>)0 1 REM **.****************X*X*.***i 

HG 2 REM DR I VE TEST 
:-U 3 REM CC) 1987 H. KRASUSKI 
jr 4 rem m*#:m**:m***;m****:m 

X 16 DIM SZYB$<66) 

HX 15 GOSUB 200 
CM 20 ? CHRZCI 25) 

DK 30 ? "TEST SZYBKOŚCI OBROTOM STF 
CJI" 

HB 40 ? " DYSKOM" 

2L 41 ? " CC) 1987 H. KRASUSKI" 

■U 50 ? >? ■? 

60 ? "Podaj numer drive'u C 1 —2 ) 

« INPUT ND 

r'Q 70 ? "Proszę chwile poczekać Cok 
. 1 min)..." 

<F 100 X=IJSR < ADR < SZ YB$ ) , ND ) 

3C 110 SZYB*X/'3600 = SZYB=INTCC100/SZ 
YB+0.5)*5'6) 

CH 120 ? "Drive ";NDj" "j SZYB;" d 
br./min" 

3N 130 IF SZYB <292 AND SZYB>284 TH£ 
N ? “drive OK" 

X 140 IF SZYB <=284 THEN ? "OBROTY 
ZBYT WOLNE" 

3Z 150 IF SZYB>=292 THEN ? "OBROTY 
ZBYT SZYBKIE" 

X 160 END 

HP 200 RESTORE 250 : FOR 1=1 TO 66 
=fU 210 RE AD H ; SZYB$ CI) =CHRf CR) 

-W 220 NEXT I 
ZE 230 RETURN 

JM 250 DATA 104, 104, 104, 141 , 1 , 3, 16S 

i 1 

,JP 251 DATA 141, 10,3, 169,0, 141, 11, 2| 
,.169,0 

ZW 252 DATA 141,4,3, 169,4-, 141,5,3, 1 
69,82 

JU 253 DATA 141,2,3, 169, 5, 32,83, 22£ 
, 198 

ZZ 254 DATA 203,208,249,169,100,1^ 
,203 

'■'Z 255 DATA 169,0,133,19,133,20,32, 
63.) 22?*! 

)D 256 DATA 198,203,208,249,165,20, 
164,19 

-B 257 DATA 133,212,132,213,96 



Golf 


Program jest formą zabawy, w której siłę uderzenia 
piłeczki golfowej należy potraktować jako liczbę. 
Wprowadza się ją w L. 65 w wartościach od 1 do 20. 
Uderzenie piłeczki jest sygnalizowane dźwiękiem L. 68 

L. 72, a trafienie do dołka krótką melodią L. 98 do 
L. 103.o(az L. MO -ż- L. 515. Aby ukończyć grę, należy pię- 
ciokrotnie traffć do dołka. Nie jest to proste, gdyż w za- 
leżności od podłoża, po jakim porusza się piłeczka 
oraz odległości do dołka, należy użyć różnej siły. Po 
trafieniu do ostatniego dołka, podawana jest suma 
uderzeń w całej grze. 

Fragmenty grafiki w kolejnych wierszach umiejsca- 
wia się najczęściej za pomocą instrukcji POSITION. 
Można (jeśli to ułatwi) wykonać ją w inny sposób, a 
mianowicie przez zmianę położenia kursora. Dokonuje 
się tego przez naciśnięcie klawisza ESC, a następnie 
jednocześnie CONTROL i klawisza ze strzałką skiero- 
waną w stronę, w którą ma być przesunięty kursor. 
Przesuwane są wszystkie znaki wprowadzone za 
strzałką do zamykającego je cudzysłowu. W niektó- 
rych sytuacjach (np. aby uzyskać czytelny wydruk) 
można znaki przyporządkować liczbie odpowiadającej 
im wg kodu ATASCII za pomocą instrukcji CHR$. 
Ilustracją obu przykładów jest L. 300. 

Janusz JANIEC 


8 QF'EN #1,4,8, "K : " 

9 rc=l00 

10 C=0 
15 Z=@ 

20 E=INT<END<l)*120+200) 

25 Z=Z+1 

27 ? CHR$< 125) 

30 POSITION 6 , 3 : ? "ODLEGLOSC DO 
DOŁKA Nr ";Z;"=";E 
35 C=C+1 

40 IF E<10 THEN 300 
45 FOR 1=1 TO E/10 
50 POSITION I,14=? 

55 NEXT I 

60 POSITION 4,5 : ? "WYBIERZ LICZB 
E W ZAKRESIE <1-20)" 

65 POSITION 32,14=? i ) INPUT S 
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66 IF S<1 OR S>20 THEN 65 

68 FOR 1-1=15 TO 0 STEP -1 

69 SOUND 0,250, 10, H 
?8 FOR W=1 TO 6 

?1 NEXT W 
72 NEXT H 
75 ? CHR*<125) 

80 E=E-INT<RND<0)*5*S+S) 

85 E=ABS<E) 

90 IF Dl THEN 30 

94 GRFfPHICS 2+16 

95 POSITION 5,4= ? #6; "TRAFIŁEŚ" 

97 RESTORE 

98 READ H1,H2,T 

99 SOUND 0,H1, 10, 15 

100 SOUND 1 ,H2, 10, 15 

101 FOR CZ*1 TO T 

102 NEXT CZ 

103 IF T<>2 THEN 98 

R*(30); 

301 ? CHR*<2);CHR*<32);CHR*<32>; 
CHR*<?);CHR*<29);CHR*(30);CHR*C3 
0);CHR*(30);CHR*<30); 

302 ? CHR*<2> ; CHR*< 13) ; CHR*< 13); 
CHR*C13);CHR*<29);CHR*<30);CHR*< 
30 > ; CHR* < 30 ) i CHR* < 30 ) ; 

303 ? CHR*<2) ;CHR*<29> ;CHR*<30) ; 
CHR* <2>;CHR*<29);CHR#<30) ;CHR*(2 
);CHR*<29);CHR*<30>; 

304 ? CHR*<2) ; CHR*<23) ; CHR*C31 ) ; 
CHR*< 13) 

306 POSITION 13,14 = ? CHR*<13);CH 
R*( 13) ;CHR*<?) ; CHR*<2) ; CHR*<13); 
CHR* O 3 ) ; CHR* Cl 3 ) ; CHR* < 1 3 > > CHR* ^ 
13); 

307 ? CHR*( 13) ; CHR*C 13) ; CHR*( 13) 
;CHR*<13) 

104 GRAPHICS 0 

310 POSITION E+16, 13 =? CHR* (20) 

105 IF Z<5 THEN 20 

315 GOSUB 400+Z 

110 POSITION 3,7=? "ZAKOŃCZYŁEŚ 

320 GOTO 60 

Z " ; C; " UDERZENIAMI PIŁKI." 

401 POSITION 15,8=? CHR*(148)=RE 

115 IF C<CC THEN CC=C 

TURN 

120 POSITION 5,5:? "NAJLEPSZY WY 

482 POSITION 15,8=? CHR* ( 1 44 ) = RE 

NIK : " ; CC ; 11 UDERZEŃ" 

TURN 

150 POSITION 10,16-? "Cza grasz 

403 POSITION 15, 8=? CHR*(224)=RE 

Jeszcze raz ?" 

TURN 

155 POSITION 22,18=? CHR*<212);" 

404 POSITION 15,8 = ? CHR*028)=RE 

ak z"; CHR* <206); "ie" 

TURN 

160 GET #1,P 

405 POSITION 15,8=? CHR*<251 > =RE 

165 IF P=84 THEN 10 

TURN 

170 IF PO 84 THEN ? CHR* (125) 

500 DATA 60,45,150,72,53,80 

175 END 

505 DATA 96,72,40,81,60,40 

300 POSITION 14,8=? CHR*<2);CHR* 

510 DATA 60,45,80,0,0,10,60,45,8 

060); CHR* (1 60) i CHR* <1 36 > ; CHR* < 2 

0 

3 > ; CHR$ < 30 > ; CHRS C 30 > ; CHR * < 30 > ; CH 

515 DATA 72,53,150,0,0,2 

®. A sFl 4V> 



AM ST RAD 

10 REM POJEDYNEK 
20 DEFINT a-z 

Pojedynek 

30 MODĘ 0 

40 gosue eoo 

50 GOSUB 1140 

60 GOSUB 190 

■ ■ ■ 

" 7 0 GOSUB 1270 
BO GOSUB 1 1 40 

Jest to prosta, kolorowa gra zręcznościowa dla 

90 GOSUB 1050 

dwóch osób. Można w nią grać, używając klawiatury 

100 PEM start 

bądź joysticka. Gra polega na trafieniu poruszającego 

110 IF koniec THEN GOTO SO 

się przeciwnika. 

120 GOSUB ISO 

Sposób poruszania się oraz oddawania strzałów 
znajdziecie w wyświetlonym na wstępie opisie gry. 

130 FPAME.-IF zmiel THEN GOSUB 480 
EL SE FRAME: FRAME 

140 FPAME.-IF zmle2 THEN GOSUE 510 

■ BI 

ELSE FRAME: FRAME 
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150 1F p 1 sa =- \ THEN GOSUB 540 

630 IF pisa THEN SOUND 132, 40, ^O, 0, Ś , 1 

160 IF p2sa=-l THEN GOSUB 570 

640 IF p2sa THEN SOUND 132,56,70,0,1,1 

170 GOTO 100 

650 plsa=0 

190 IF j THEN 330 EL SE 410 

660 p2sa=0 

190 CLSs PEN 6 

6^0 RETURN 

200 PRINT: PPINT" naci śnij klawisze" 

680 PEN 6 

210 PR INT i PRINT s PR INT 

690 LOCATE 6, 10: PRINT"KONIEC GRY" 

220 PPINT " joystick = ł 3 

700 IF p 1 sc~P THEN INK 1,2,20 

230 PRINT: PRINT 

710 INK 2,0 ELSE INK 2,6, 17: INK 1.0 

240 PPINT " klawiatura 

720 SOUND 129.1 000 .0,12,3 

250 PR I NT i PRINT: PR INT 

730 SOUND 1 30 , 900 ,0,12,3 

260 PPINT " oraz [RETURNU" 

"*40 WHILE INKEY*< >"":WEND 

270 LOCATE 4,10 

750 t ! =TI ME: WHILE t 1 +2000TIME: WEND 

280 LOCATE 12, 10: IF j THEN PRINT " * " s 

760 WHILE INKEY*-"": WEND 

ELSE PRINT " " 

770 CLE 

290 LOCATE 12, llaIF j THEN PPINT" “s 

780 koniec=-l 

ELS E PRINT 

790 RETURN 

300 I F NOT. ( I NKEY ( 45 ) ) THEN j *- 1 

800 a* (0) 1 1 1 101101 101111 " 

310 IF NOT ( INKEY (37) ) THEN j=0 

810 a* ( 1 >="001001 00 1 OO 1 00 1 " 

320 IF NOT ( INKEY ( 1S) ) THEN RETURN 

820 a* <2) =" t 1 1001 1 1 1 1001 1 1 " 

ELSE 280 

830 a* (?>»■• 1 1 1O01 3 1 1001 111" 

330 pl=JJ0Y<0> : p2= JOY ( 1 ) 

840 a* ( 4 > * " 1 00 1 00 1 0 1 1 1 1 00 1 " 

340 zmiel =(pl AND l)*-J+<pl AND 21*0.5 

950 a* <5'-"l 1 11001 1 1001111" 

350 zmi e2= <p2 AND l)*-l+(p2 AND 2) *0.5 

860 a* (6) *"11110011 1101 111" 1 

360 IF p 1 AND 16 THEN pl.ss= P lsa-l! 

870 a * < 7 > * " 1 1 1 00 1 OO 1 0 1 00 1 0 " 

IF plsa=-t THEN AFTEP 15 GOSUB 600 

880 a* (8)=" 111101111101111" 

370 IF p2 AND 16 THEN p2sa=p2sa-lt 

890 a* (9)* "111101111 00 1001 " 

IF p2sa=~t THEN AFTEP 15 GOSUB 600 

900 FOR n*0 TO 9 

380 IF pisa THEN zmiel=0 

910 d 1 ug=LEN ( a* ( n ) ) 

390 IF p2sa THEN zmie2=0 

920 FOR n2=l TO dług 

400 RETURN 

930 IF MID* (a* (n ) , n2, 1 ) -" 1 "THEN 

410 zmi e2= < ( INKEY (4) =0) *1 1 + 

MID* (a*(n) ,n2, 1 ) =CHR* (143) ELSE 

( (INKEY (5) *0) *-l > 

MID* (a* (n> ,n2, 1>=CHR4(32) 

420 zmi el= < ( INKEY (69) =0) *1 > + 

940 NEXT n2,n 

( ( INKEY CM >=0>*-l> 

950 b*="P 0 J E D Y N E K" 

430 IF I NKEY ( 63 ) =0 THEN plsa-plsa-ls 

960 c*=CHPf (32) +" "+CHR$ ( 1 64) + 

IF plsa=~l THEN AFTER 15 GOSUB 600 

" CJS" 

440 IF INKEY ( 10) =0 THEN p2ąa=p2sa-li 

970 ENV 1 , =9 , 2000: ENT -1, 6,3,1 

IF p2sa--"l THEN AFTER 15 GOSUB 600 

980 ENV 2, 127,0,0, 127,0,0, 127,0,0, 

450 IF pisa THEN zmiel=0 

127,0, 0, 127,0, 0 

460 IF p2sa THEN zmie2=0 

990 ENV 3, =9, 9000 

470 RETURN 

1000 BORDEP 0 

480 pt=plwp+zmi el z IF pt>25 OR pt<6 

1010 INK 0 , 12: PEN #4,1:PEN #6,2 

THEN RETURN ELSE plwp=pt 

1020 PEN #1, 1« PEN #2,2-: PAPER #1,3 

49Cr zmlel=0 

1030 PAPER #2, 3: PEN #0,6 

500 PEN li LOCATE 3,plwp:CLS #3 : PPINT 

1040 RETURN 

CHR* (209) ; : RETURN 

1050 INK 0, 12* INK 1,2: INK 2, 6: INK 3,13: 

510 pt=p2wp+zmi e2: IF pt >25 OR pt<6 

INK 4,20: INK 5, l" 7 : INK 6,20 

THEN RETURN ELSE P 2w P =pt 

1060 WINDOM #3,3,3. 6, 25: W INDÓW #5,18,18, 

520 zmie2-0 

6,25 

530 PEN 2: LOCATE 18.p2wp:CLS #5: PRINT 

1070 WINDOM #1,3,5, 1,5: W INDÓW #2,16,18, 

CHR* (211 > ; s RETURN 

1,5: W INDÓW #’ 7 , 1 , 20, 1 , 5i PAPER #7,3 

540 PAREP #4, 4: W INDÓW #4, 4, 17, plwp, plwp. 

1080 CL£:CL£#7:PRINT#l,a$<0> ; :PPINT#2, 

CLS#4 : FRAME: FRAME 

a£(0) ; :plsc=0:p2sc=0:plwp=5:p2wp-24: 

550 PAPER #4,0: CLE #4 

zmi e 1*1 : zmi e2=l 

560 GOTO 480 

1090 GOSUB 4S0: GOSUB 510 

570 PAPER #6, 5: W INDÓW #6, 4, 17, p2wp, p2wp: 

1100 SOUND 1, 1000,0, f2. 2 

CLS#6 : FRAME : FRAME 

1110 SOUND 2.900,0,12,2 

58 £ .PAPER #6. 0: CLE# 6 

1120 p 3 sa=0: p2sa=0: koni ec=0 

590 GOTO 510 

1130 RETURN 

600 pwpe* < plwp=p2wp) 

1140 CLS 

610 IF pisa AND N0T(p2sa> AND pwpe THEN 

1150 PEN 7 

plsc=płsc+l aSOUND 132, 120, 10,0. 1.0: 

1160 FOR n«l TO LEN(b$> 

PRINT#1 . a* (plsc) : : IF plsc=° THEN 630 

1170 LOCATE 2+n, 10 

620 IF p2sa AND NOT (pisa) AND pwpe THEN 

1180 FOR n2*LEN (b* ) TO n STEP -*1 

p 2sc -p2sc + 1 : SOLINO 132,1 00 ,10,0,1,0: 

1190 PRINT MID* (b*,n2, 1 ) 

F‘RINT#2, a$ (p2sc ) ; : IF p2sc=9 THEN 680 

1200 LOCATE 2+n, 10 
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1210 SOUND I35,20*n2,5, 12,2, 1 
1220 N£XT n2,n 

1230 SOUND 135,100,0, 13,3, 1,20 

1240 PEN 6 : PR I NT i PR I NT s PR I NT s PR I NT c* 

1250 FOR n=l TO 5000* NE XT 

1260 RETURN 

1270 IF j THEN RETURN 

1280 CLS 

1290 LOCATE 6,4 

1 300 PR I NT '' STEROWANI E " 

1310 PRINT: PRINT 


1320 PRIŃT'- GRACZ 1 GRACZ 2 

1330 PR I NT : PR I NT : PR I NT 

134Cr PRINT" A góra 6" . 

1350 PRINT: PRINT 

1360 PRINT" Z doi 3" 

1370 PRINT: PRINT 

1380 PRINT" X ognia 7" 

1390 t 1 =TIME: WHILE t ! +4000 >T I ME > WEND 
1400 LOCATE 7,5 
1410 RETURN 



ZX SPECTRUM 


5 REM OBRAZY U SOCZEWCE SKUPIAJĄCEJ I ROZPRASZAJĄCEJ * autor JAN GOLLA 
10 INPUT "Podaj ogniskowa soczewki (dla soczewki rozpraszającej przyjmij f<0)f 
="*f: INPUT "Podaj wysokosc przedmiotu (przyjmij h<60> h="*h= INPUT "Podaj odleg 
1 osc przedmiotu od soczewki (przyjmij takie wartości yby rysunek zmieścił sie na 
ekranie) x=" 5 x 

15 LET y~f #x/ (x-f > = LET h l=f *h/ (x-f > = REM y-odleglasc obrazu od soczewki *hł-wy 
sokosc obrazu 


20 PR I NT " r ~ " * r * " * " 5 " h “ " * h 5 " * " 5 " X 55 " 5 x 5 " » " » " y — "51 NT ( y ** 1 0 ) / 1 0 * " * " * " h I ~ * I NT (hl 
10) /10 

30 PLOT 0*80 = DRAW 255 >0 

40 PLOT 130*20= DRAW 0*120= CI. R CLE 130-f*80*ł= CIRCLE 130+f *80*1 

42 IF f<0 TREN GO TO 250 

43 PLOT 125*135= DRAW 5*5= DRAW 5,-5= PLOT 125*25= DRAW 5*-5: DRAW 5*5 
45 PRINT AT 12 * 32/255* (130-f )? "F" s PRINT AT 12*32/255* (130+f ) * "F " 

50 PLOT 130-X*B0s DRAW 0*h 

55 PLOT 128-x*76+h= DRAW 2*4= DRAW 2* -4 

60 PAUSE 100 

70 FOR u=130~x TO 130 

75 LET vi=-"80+h+h/x*Ci30-x--u> 

80 PLOT u*80+h : PLOT u*vl 
90 NEXT u 

100 FOR u=136 TO 250 

102 LET vl=80+h+h/x*(130--x--u> = LET v2*80+h+h/f * C130-U/ 

105 IF vl<=0 THEN GG TO 140 

106 IF v2< =0 THEN GO TO 125 

107 IF v2>=160 THEN GO TO 140 
110 PLOT u*vl = PLOT u * v2 

120 NEXT u 

121 IF f<0 CR x<f THEN GO TC 140 
125 PLOT 130+y >80; DRAW 0»~hi 


130 

135 

140 

145 

150 

160 

170 

175 

180 

190 

200 

201 

202 

210 

240 

250 

260 


PLOT 128+y *84-hl = DRAW 2* -4 = DRAW 2*4 
STOP f . h = 

FOR u=130-x TO 130+y STEP -3 
LET vl-80+h+h/x* <130-x-u> 

PLOT u* vł 
NEXT u 

FOR u=130 TO 130+y STEP -3 
LET v2=80+h+’-i/f* (130-u) 

PLOT u v v2 

NEXT u 

FOR t-80 TO 80- hl STEP 3 
PLOT 130+y* t 
NEXT t 

PLOT 128+y *76-hi = DRAW 2*4= 2* -4 

STOP 

PLOT 125*145= DRAW 5* -5= DRAW 5*3= PLOT 125*15= 
GG TO 45 


■5 '2? .. X =4-0 , y =4-0 , h 1=50 



7 ; 
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ZX SPECTRUM 


5 Rc.fi KUCH Jfc.LNub'i hoN‘i PO Ck.\c_uu A RUCH HARMONICZNY autor JAN COLLA 

10 PRINT AT l*3?"Ruch jednostajny po okregu"s PRINT AT 2y7y"a ruch harmoniczny 

15 PAUSE 150 

20 BIM x (300) = BIM y(300) 

30 CIRCLE 51 y 92 s> 42 
40 FOR n=0 TO 11 

50 PRINT AT 10-6*COS <-n/ó*PI + l/2*PI) y 6-ł Ć*SIK C-n/ó*PI-ł 1/2*F’I> 5n 

60 PAUSE 100 

61 FOR n--106 TC 255 

62 PLOT n r 92 

63 NEXT n 

70 PLOT 106 y 50 = BRAW 0?84 
80 FOR n=l 18 TO 255 
90 CIRCLE n f 927 1 

100 LET n=n+ll 

110 NEXT n 

111 PRINT AT 4 f 1 1 » "y=f (t) " 

112 PRINT AT 9y315"t~ 

115 PAUSE 100 

120 FOR t=0 TO 11 

130 LET CL=-t/6*PI + l/2*PI s REM a-kat promienia wodzącego w radianach 
140 LET sx~42*SIN a = LET sy=42*C0S a 

150 PLOT 51f92s DRAW OUER 15sxpsys REM wydruk promienia wodzącego 
160 LET u=12*t+106 ‘ 

170 LET x (u) =u = LET y (u) =92+42*SIN (0 «0439*u+33> 

180 CIRCLE x (u) » y (u) y 1 

185 PLOT 51-792= DRAW OUER lysxysy= REM kasowanie promienia wodzącego 
190 PAUSE 50 
200 NEXT t 

210 FOR t~106 TO 250 STEP 0.5 

690 LET x ( t ) — t = LET y (t ) =92+42*SIN (0 . 0439*t+33> 

700 PLOT x(t) yy (t) 

710 NEXT t 



3 u 
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Liga Myślących 


Zadanie 1 

W czasie eliminacji do konkursu należało odpowiedzieć na 
30 pytań. Za każdą poprawną odpowiedź przyznawano 7 
punktów, a za błędną odpowiedź lub jej brak odejmowano 12 
punktów. Na ile pytań odpowiedział prawidłowo uczestnik 
eliminacji, uzyskując 77 punktów? 

Zadanie 2 

Gdyby Aleksander Wielki umarł o 5 lat wcześniej, pano- 
wałby 1/4 swego życia, gdyby zaś żył o 9 lat dłużej panowałby 
połowę swego żvcia. Ile lat żył, a ile panował Aleksander 
Wielki? 

Zadanie 3 

Statek ładowano za pomocą 3 dźwigów o tej samej mocy. 
Po jednej godzimc pracy uruchomiono dodatkowo 3 jedna- 
kowe dźwigi o większej mocy i ukończono załadunek statku 
po 2 godzinach wspólnej pracy wszystkich dźwigów. Gdyby 
uruchomiono wszystkie dźwigi jednocześnie, to załadunek 
statku trwałby tylko 2 godziny 24 minuty. Należy obliczyć, w 
ciągu ilu godzin załadowałby statek jeden dźwig o mniejszej 
mocy, a w ciągu ilu godzin załadowałby statek jeden dźwig o 
większej mocy? 

Zadanie 4 

Dwa samochody wyruszyły jednocześnie z miejscowości A 
do B. Oba samochody jechały tą samą trasą, ale z różnymi, 
chociaż stałymi, średnimi prędkościami, które wyrażają się 
liczbami naturalnymi. Różnica prędkości samochodów jest 
liczbą pierwszą. Odległość między A i B wynosi 100 km. Po 
dwóch godzinach jazdy odległość wolniejszego samochodu, 
od miejscowości A była pięć razy większa od odległości szyb- 
szego samochodu, od miejscowości B. 

Z jaką średnią prędkością jechały oba samochody? 


Rozwiązania zadań prosimy przysyłać pod adresem redakcji 
do końca września br., z dopiskiem „I.iga Myślących". Punktacja 
zależy od liczby prawidłowych rozwiązań. Wśród uczestników 
rozlosujemy książki, a na zwycięzców „Ligi" czekają dodatkowe 
cenne nagrody — niespodzianki. 


Ogłoszenia 

Sprzedam grę telewizyjną z pistoletem (na gwarancji), stan bardzo 
dobry. Artur Borowiec, ul. Czachowskiego 19/40, 27 — 600 Sando- 
mierz. 

Wymienię programy na Commodorc 64. Sebastian Czartoryski, ul. 
Łomżyńska 7B 18 — 300 Zambrów . 

Commodorc 116, 16, Plus 4 — programy wymienię, kupię, sprzedam. 
Wtyczki do joystickc’a. Informacje — koperta zwrotna i znaczek. Grze- 
gorz Tesmer, 85 — 050 Solec Kujaw ski, skr. pocztowa 28. 

Basic ZX Spectrum (polskie tłumaczenie instrukcji). Sprzedaż wy- 
syłkowa. Informacje po nadesłaniu koperty zwrotnej. Jarosław Sup- 
łać/., ul. Szarych Szeregów 18 m 20, 09 — 408 Płock. 

Sprzedam Commodorc 16 \ 7 . pamięcią rozszerzoną do 64 KB), z fir- 
mowym magnetofonem, joystickiem i ponad 50 programami. Infor- 
macje po przesłaniu koperty zc znaczkiem. Jacek Witt, ul. Kicdr/yń- 
skiego 3/1, 82—300 Elbląg. 

Kupię rozszerzenie pamięci do ZX-8I na 64 KB lub ł6 KB. Woj- 
ciech Suchodolski, ul. Śniadeckich 1/2, 41—808 Zabrze. 

Sprzedam łub wymienię na inny Commodore VC-20 -r magnetofon 
+ 200 programów. Z. Petkowicz, ul. Jaworska 9 m 11, 58 — 575 Bol- 
ków 


REGULAMIN 

III konkursu 


na program gry edukacyjne 


1. Cel konkursu. 

Biorąc pod uwagę że: 

— głównym problemem rozwojowym w Polsce i na święcie 
jest bariera edukacyjna, 

— jednym z najważniejszych wskaźników rozwoju w roku 
2000 będzie ilość i jakość programów edukacyjnych. 
Stowarzyszenie Mikrokomputerowe „Abakus” proponuje 
wszystkim zainteresowanym współudział w tworzeniu takich 
programów. 


Celem konkursu jest tworzenie polskiej kultury mikroin- 
forinatycznej, pozyskanie sympatyków i członków Stowarzy- 
szenia na terenie Polski, wzbudzenie szerokiego, społecznego 
zainteresow ania zastosowaniem mikrokomputerów do eduka- 
cji oraz wzbogacenie klubowej biblioteki programów. 


2. Czym jest gra edukacyjna? 

Jest to program na mikrokomputer, który bawń i uczy. Wa- 
żniejsza jest jednak w naszym konkursie strona zabawowa gry 
edukacyjnej, gdyż uważamy, że motywacja ma podstawowe 
znaczenie w procesie nauczania. 

Z drugiej strony kontakt z komputerem powinien być rów- 
nież maksymalnie pożyteczny i kształcący, tzn.: doskonalić 
umysł człowieka, nauczyć go czegoś nowego, umożliwiać 
człowiekowi rozwój i doskonalenie się etc. 

3. Organizatorzy. 

Organizatorem konkursu jest Stowarzyszenie Mikrokom- 
puterowe „Abakus” przy współpracy z Centrum Kompute- 
rowym „System” oraz Redakcja miesięcznika „IKS” — do- 
datku „Żołnierza Wolności”. Patronat nad konkursem objęło 
Biuro ds. Młodzieży Urzędu Rady Ministrów. 

4. Uczestnicy. 

Uczestnikiem konkursu może być każda osoba fizyczna lub 
prawna oraz ich zespoły. 


5. Wymagania stawiane przesyłanym pracom. 

Program gry edukacyjnej może być przeznaczony dla osób 
w dowolnym wieku i materiał nauczania może być dowolny. 
Powinien być do niego dołączony opis zawierający krótką 
charakterystykę, instrukcje ładowania, uruchamiania i moż- 
liwości wykorzystania. 


Program powinien być przeznaczony na jeden z następują- 
cych mikrokomputerów: SPECTRUM 48, TIMEX 2048, 
ATARI 800 XL, ATARI I30XE. SPECTRAVIDEO 738, 
COMMODORE 64, AMSTRAD 6128, AMSTRAD 1512 i 
IBM XT. Prace (programy i opis) należy nadsyłać do 15 
września 1987 r. na adres Stowarzyszenia Mikrokomputero- 
wego „Abakus”, Warszawa, ul. Senatorska 12 
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Prezentowany program pozwala 
łączyć przyjemne z pożytecznym. 
Grający ma okazją dobrze poznać 
klawiaturą MERITUM, a przy okazji 
również sią zabawić. Część akcyjna 
gry została napisana w BASICII, a 
dźwięki wywoływane instrukcjami 
GET, PUT, OPEN w języku wew- 
nętrznym mikroprocesora Z-80. 

Ulepszenie gry nową grafiką i 
dźwiękami pozostawiam Czytelni- 
kom. 

ADAM CYGAN 

Uczeń Zasadniczej Szkoły Chemi- 
czno-Mechanicznej w Gliwicach 


W naszym 
komputerlandzie 

Kierowanie firmą, w której pracował 
Spektruś. to proces niezwykle skompli- 
kowany, zaistniała potrzeba powołania 
brakujących ciał. Spektrusiowi powie- 
rzono rolę doradcy naczelnego robota. 
Wprawdzie niechętnie brał on na siebie 
ten ciężar, me był jednak jednostką 
aspołeczną. Zresztą, gdy ogarnął gos- 
podarstwo wzrokiem, doszedł do wnio- 
sku. że faktycznie można wiele zrobić. 

Gdy doradził, by poprawić robotom 
warunki pracy — drgnęło — na razie 
leciutko Doradził więc, by podziałać 
motywacją. Naczelny był zdziwiony, że 
pieniądze mają dla sprawy aż takie 
znaczenie. — Popatrzcie, kolego, jak 
drgnęło* — mówił. 

Krzywa na tablicy w gabinecie szefa 
wznosiła się niemal pionowo, gdy za- 
brakło surowców: taśm i papieru. Spek- 
truś rozgrzany powodzeniem poradził, 
by programy drukować na odpadach. 

Najtrudniejszy moment jednak miał 
dopiero nastąpić. Roboty bowiem za- 
proponowały praktycznie wszystko i 
gwałtownie spadło zapotrzebowanie na 
ich pracę. Po jakimś czasie bank poin- 
formował. ze firma jest goła. 

Nie było wyjścia. Decydując się na 
gest szaleńca. Spektruś doradził ogło- 
szenie bankructwa. Dopiero zaczął się 
ruch w interesie. W największej kompu- 
terlandzkiej gazecie ukazał się wywiad 
z naczelnym, zaś w lokalnej — ze Spek- 
trusiem. Mówili o twardych regułach 
gry ekonomicznej. Stali się bohaterami. 
Gazety napisały, że firmie trzeba po- 
móc. bo bez niej życie byłoby nie do 
zniesienia. Znalazły się dotacje, były 
też gratulacje i odznaczenia Naczel- 
nego przeniesiono do jednostki nad- 
rzędnej. zaś zahartowany w bojach 
Spektruś awansował do rangi doradcy 
generalnego. 

Podglądał: 
Eugeniusz MLECZAK 


Giełda porpysłów 
MERITUM 


1 1 GRA ZRĘCZNOŚCIOWA "REFLEKS" . AUTOR ADAM CYGAN. 

5 * GRA POI A NA NISZCZENIU BOMB SYMBOLIZOWANYCH 
6 9 ZNAKAMI ZA P(' : 1CA ODPOWIEDNICH KLAWISZY. 

10 » GDY ZNISZCZONE ZOSTANĄ REAKTORY PRZEGRYWASZ 
20 CLE AR 1000 : CLS 8 GOSUB 1100SGOSUB 'M0 
25 FOR A=980 TO 992 STEP 4 : C=C+1 : K (C) =AŚNEXT 
30 FOR B=1 TO 4=POKE 15360+K (D) p 127 : NEXT 
35 V=U+1 JL.-0 

40 FOR M=148 TO 160 STEP 4#P0KE' 15360+Mp 1285NEXT 
45 FOR C=1 TO 4: GOSUB 500:NEXT 

70 DW=0*FOR R=212 TO 224 STEP 4 : DW=DW+1 :U <DW) =R+ 15360 : NEXT R 
80 FOR E=1 TO 4 

85 IF KE)=0 POKE U (E) +S (E> #64p A <E) sPOKE V (E) +S <E> #64-64? 32 

87 NEXT 

88 C$= " " : C$=CHR* (PEEK ( 16537) ) 

90 FOR C=i TO 4 

100 IF C*=A*<C) THEN A$ <C> =>" " sGOSUB 500 
110 NEXT 

130 FOR C=1 TO 4 

140 IF PEEK (V(Ć)+(S(C)+1) #64) C >32 GOSUB 400 
150 NEXT 

160 FOR F=1 TO 4sS(F)=S(F)+lsNEXT 
165 FOR A=1 TO AC(U)sNEXT 
1 GOTO 80 

400 T* PEEK(U<C)+<S<C)+1>#64>=127 GOTO 450 
410 PEEK(U<C) + 'n<o+l>#64>=--128 THEN S <C> «0 : RETURN 
420 POKE V<C)+<S<C)+1)« .4v32:G0SUB 500 
430 RETURN 

450 GET : PUT : OPEN s OPEN : PUT -GET 

460 POKF U(C)+<S<C)+l)#64p 128s T1“T1+1: T (0=1 

470 IF Tl =4 GOTO 1300 

475 S (C) -0 SGOSUB 500 --RETURN 

480 GOSUB 500 5 RETURN 

500 T.F L=VUU> GOTO 900 

510 RANDOM'. A (C) =RND (RL) +MMS A$ <C) =CHR$ (A (C) ) :L=l.+l 

518 POKE U (C) +S (C)*64p32sS (C) =0!PUT : RETURN 

800 FOR D=1 TO 10! RE AD GpPSFOR X=Q TO P 

810 POKE 1 536 0+X * 191 :NEXT XrD 

820 FOR D-l TO 16SREAD GpPpRsFDR X=Q TO P 

830 SET ( XtR ) :NFXT XpD 

840 FOR D=0 TO 61 : READ B : POKE 32000+D? B:NEXT 
845 POKE 16762 p 0 : POKE 16763? t25:PQKE 1 6732 p 1.1: POKE 16733»125 
850 POKE 16768 » 22 s POKE 16769 p 125 s POKE 16771 y 43 s POKE 16772 » 125 
855 RETURN 

900 Ip U=5 GOTO 1200 

910 RESTORESFOR D-l TO 20! READ M: NEX V 

920 FOR D=0 TO 2:PRTNT 0D#64r STRINGfc (64p32) p eNEXT 

930 FOR D=1 TO 16: READ RpPpRsFOR X=Q TO P 

940 SET<XpR) :NEXT X p D : OOTO 35 

1100 INPUT"POBA J STOPIEŃ TRUDNOŚCI <1?2 LUB 3) " *AD 
1110 IF AD< 1 OR AD )3 GOTO1100 
1120 CLS: AD-INT (AD) :0N AD GOTO 1 130 » 1140 p 1150 
1130 FOR K=1 TO 4sW CK) -30+K*10sAC <N> -250-~K*40:NEXr 
1135 RL— 26 : MM=64 : RETURN 

1140 FOR K=1 TO 4:WCK)=40ł-K#l5:AC(K)=200~K*50sNEXT 
1145 RL=-34 sMM-57 : RETURN 

1150 FOR K=1 TO 4:W<K)=50+K*20:AC(K>*=0:NEXT 
1155 RL C 59 3 MM-32 s RETURN 

1200 PRINT 0338 p "ZDOŁAŁEŚ SIE OBRONIĆ .BRAWO «" :E.ND 
i 300 PRINT 0333 p "WOBEC BRAKU ENERGII MUSISZ SIE PODDAĆ. END 
2000 DATA 770p78Sp798p819p832p837pS48p867p876p889p896 
2010 DATA 919 p 924 p 939 p 948 r 957 p960 p 975 p 994 p 1023 
2020 DATA 39p42p8»47p50p8p55p58p8,63p66p8p38p71p7p38p73 
2025 DATA 6 r 38p71 p 5 p41 p 50p 4»55»57p 4 p64 p64 p4 
2030 DATA 41p44»3p52p54p3p58pć3p3p40p44p2p40p43»1»40p42»0 
2040 DATA62p255p71»211*254p16p254p61p32p248p201 »62p0p71 
2050 DATA 211p254p16p254p60»32p248p201p6p255p14p253p71p211 
2060 DATA 254p16p254p152p71p211p254p16»254p1«9p254p128p32 
2070 DATA 240 p 20 1 r 229 r 14 p 225? 33? 153 p64p70p211p 254 p 61 p 16 
208© DATA 254 p 21 1 » 254 p 13 p32 p 245 p 225 r 201 
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Krzyżówka nr 7 



POZIOMO: j ncidHi'p- ziutuj znajUy.var y 
w ziemi, w stanie rodzimym, 8) dyscyplina 
sportu dla atlety. 1 1 ) cudowny napój poszu- 
kiwany przez alchemików, mający prze- 
dłużać życie. 12) .mózg armii", 13) tytuł 
znanego filmu Jerzego Passendorfera. 14) 
niewielki utwór epicki pisany prozą. 17) 
kraina historyczna w płd.-zach. Francji (do- 
rzecze Garonny). 20) do zmywania naczyń 
kuchennych. 24) kupon, kwit upoważniający 
do zakupu towarów reglamentowanych. 27) 
zakon krzyżacki, Krzyżacy. 32) słynne wzgó- 
rze w centrum Aten z muzealnym zespołem 
ruin. 3Q) żołnierz wojsk powietrznodesan- 
towych, 35) wskazówka. & członek załogi 
statku wodnego wyznaczający jego kurs, 
v0) roślina z rodziny pierwiosnkowatych o 
kwiatach białych lub różowych, rośnie na 
skałach w wyższych rejonach górskich. 41 ) 
uczeń przebywający samowolnie poza szko- 
łą podczas zaięć szkolnych. 42) zabójstwo. 
45) podłużne naczynie drewniane, używane 
do wyrabiania ciasta. 49) rodzaj opaski. 54) 
człowiek przebywający gdzieś stale albo 
czasowo. 55) meioda. 56) pręgowany padli- 
nozerny ssak drapieżny, 57) alkoholowy na- 
pój japoński z ryżu; sake. 58) akt prawny 
ustalany przez Sejm. 59) robotnik pracujący 
w tkalni przy krosnach. 

PIONOWO: \ długi okres bez deszczu. 
2) drewienko do mieszania substancji 
sypkich i płynów. ^ automat zastępu- 
jący pracę człowieka. 4) dzieło ludwisa- 
rza. 5) kraj afrykański z Nairobi. 6) erudycja. 
7) rzeka we Włoszech (w Jugosławii — So- 
cza) 8) ścięta część pędu drzewa liściaste- 
go, ^ modne niegdyś sportowe spodnie 


nięsKie o nłuiMci hugdWKacn zap>i .dtiych 
pod kolanami. 1Q!ydawne prymitywne na- 
rzędzie orne. t^irólewska rezydencja. 16) 
sztuczne włókno celulozowe, 1 8) sazan lub 
łustrzeńjrtgs^bardzo twardy metal szlachet- 
ny. 21) ekstrakt ze zmielonej kawy natural- 
nej palonej. 22) płn.-amer. gatunek jelenia. 
23) torowiec albo szosowiec, \ 1000 kg. 
2pf tropikalne pnącze. 26) miano. & gaz 
'szlachetny używany do wypełcama żaró- 
wek dużej mocy, ^"Górnik — aktualny 

mistrz kraju w piłce nożnej. 29) zołmerz do- 
puszczający się gwałtów, grabieży. 30) 
dawna świątynia pogańska. 31 ) ciężki ... — 
czyli deuter. 34) fason płaszcza lub sukni. 
37) rozkaz sułtana do wezyra (anagram wy- 
razu DIERA). 38) członek kocz. ludu turec- 
kiego lub mongolskiego; od VI — IX wieku 
osiadłego nad Dunajem. 39) hacel, 43) gos- 
poda. karczma. 44) palisander. 46) sytuacja, 
położenie bez wyjścia. 47) przelanie praw 
jednej osoby na drugą. 48) aromatyczna 
wydzielina z kaszalota. 49) tymczasowy bu- 
dynek. 50) firmament. 51) archit. dolna 
część głowicy doryckiej i toskańskiej. 52) 
np. ,.Aida : ' — G Verdiego, 53) paryski opry- 
szek 


Po prawidłowym rozwiązaniu krzyżówki 
litery z kratek ponumerowanych dodat- 
kowo w prawym dolnym rogu, czytane w 
kolejności odpowiadających im liczb od 
1 do 39, dadzą hasło, które wystarczy 
nadesłać jako rozwiązanie zadania, pod 
adresem redakcji do końca września 
1987 r. Wśród czytelników rozlosujemy 
bony pieniężne i nagrody książkowe. 


Mikrociekawostki 

Laserowa 
pamięć ROM 


HITACHI oferuje lśniący dysk o 
średnicy 12 centymetrów. Pamięta 
on 552 megabajty, czyli 270 000 
stron, które można przesłać w śred- 
niej kopercie. 

A oto kolejne zalety: precyzyjny 
odczyt laserowy z prędkością 
176 000 znaków na sekundę oraz ... 
praktyczna niezni szcza In ość. 

Jedną wadą jest ROM: raz zapi- 
sany dysk można TYLKO ODCZY- 
TYWAĆ (czy to na pewno wada?). 



biegał za nami po całym biurze? 
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Uwaga! Konkurs: 
„45 lat LWP” 
Atari dla zwycięzcy 
— str. 2 


CENA — 80 zł 





Uczniowie rozpoczęli kolejny rok 
trudnej pracy. Dla wielu jest to również 
kolejny rok nauki z komputerem. Nie- 
stety. w niewielu przypadkach mikro- 
komputer' jest w szkole rzeczy, wistą 
pomocą — najczęściej jedynie w pra- 
cowni informatycznej można spotkać 
to urządzenie. W najlepszej sytuacji są 
ci, którzy mają go w domu, ale czy ta- 
kich jest większość? 

Niestety, z informatyki uczynięno je- 
dynie przedmiot nauczania i to jak się 
okazuje, dla wielu bardzo trudny, jakby 
zapominając zupełnie, że nie chodzi o 
wychowanie pokolenia informatyków, a 
o wykształcenie ludzi potrafiących ten 
nowoczesny sprzęt wykorzystać. Dla- 
czego zatem mikrokomputer tak rzadko 
obecny jest na lekcjach fizyki, chemii 
czy matematyki? Dlaczego najczęściej 
ważniejsza jest zasada działania mik- 
roprocesora niż umiejętność posługi- 
wania się podstawowymi programami 
użytkowyrni? 

Ideałem byłaby sytuacja, kiedy każ- 
da specjalistyczna pracownia miałaby 
swój sprzęt informatyczny i odpowied- 
nie oprogramowanie. Tymczasem bra- 
kuje wszystkiego. Nie mamy nadal 
komputera szkolnego, brak jest odpo- 
wiedniego oprogramowania, nie ma 
również zbyt wielu chętnych nauczy- 
cieli do poznawania nowych przecież 
możliwości. 

Dla tych jednak, którzy nie. rezygnują, 
prezentować będziemy na łamach 
„IKS-a” nasze propozycje programów. 
Są to programy, których w wielu przy- 
padkach autorami są nauczyciele wy- 
korzystujący je na co dzień w swojej 
pracy pedagogicznej. Każda nasza 
propozycja może być wzbogacona do- 
datkowymi rozwiązaniami — liczą się 
jednak pomysły i tych będziemy dos- 
tarczać. 

Tymczasem w howym roku szkol- 
nym życzymy samych piątek i 
sukcesów. 


W NUMERZE: 
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Uwaga! Konkurs: „45 lat LWP” 

Wojsko w komputerze 


Czy historia, wydarzenia z przeszłości i współczesności dają się zapisać 
komputerowym kodem? Wiemy, że tak i dlatego proponujemy coś, czego 
jeszcze nie było! 

45 lat temu, w trudnych wojennych czasach powstało ludowe Wojsko 
Polskie. Powstało by walczyć o wyzwolenie kraju, powstało by w pokojo- 
wych warunkach jak najlepiej służyć pomyślności ojczyzny. Dziesiątki 
wojennych wydarzeń, tysiące dobrych i złych ludzkich losów, wiele dni 
zapisanych pracą i służbą — przebogata mozaika tworzy 45-letnią historię 
wojska. 

Książka, artykuł, film, opowieść — to źródła naszej wiedzy o niej. 
Chcemy je jednak wzbogacić. Niech także komputer uczy, zaciekawia 
i rozbudza historyczną pasję. 

Dlatego ogłaszamy nasz nowy konkurs dla miłośników historii i... kom- 
puterów. Niech ten — tyleż zaskakujący co interesujący — mariaż zaowo- 
cuje dorobkiem, z którego skorzystamy potem wszyscy — w szkole, w 
domu i w klubie komputerowym. 

Proponujemy: 

1 . Opracowanie scenariusza programu komputerowego, którego treścią 
będą tradycje i współczesność WP. Wyobraźnia plus wiedza niech wskażą 
co wybrać: czy epizod z bojowego szlaku, czy wybrany okres wojennych 
zmagań, czy też współczesny wątek związany z życiem lub działalnością 
wojska. 

Dla autorów najlepszych scenariuszy przeznaczone są nagrody: 

I miejsce — ATARI 130XE 

II miejsce — 25 tys. 

III miejsce — 20 tys. 

oraz trzy wyróżnienia po 10 tys. 

2. Opracowanie programu komputerowego na podstawie jednego z na- 
grodzonych scenariuszy lub na własnym, oryginalnym pomyśle. 

W tej konkurencji programów komputerowych pierwszą nagrodą jest 
również mikrokomputer ATARI 130XE, zaś autorzy wyróżniających się 
programów zostaną uhonorowani sprzętem elektronicznym. 

Regulamin konkursu 

1) Zgłoszone do konkursu prace muszą być oryginalne 

2) Termin nadsyłania scenariuszy programów (w trzech egzemplarzach 
ok. 5 stron maszynopisu) upływa 31.12.1987 roku. Ogłoszenie wyni- 
ków tego etapu nastąpi w lutym na łamach „Żołnierza Wolności” 
i „IKS-a”. 

3) Autorzy programów, którzy podejmą się udziału w konkursie będą mo- 
gli otrzymać nagrodzone scenariusze w redakcji od 15 lutego 1988 roku. 

4) Oceniane i klasyfikowane będą programy na Atari, Spectrum, Amst- 
rad 464 i 6128 oraz Commodore 64. 

5) Programy na kasetach magnetofonowych lub dyskietkach oraz scena- 
riusze programów należy przesyłać pod adresem redakcji 00—950 Warsza- 
wa ul. Grzybowska 77. 


M*I*K*R* 0 *S*E*R*H*I*S 


Dys ki et ki 


1/2 cala dla mikrokomputera 


IBM PC/XT v IBM PC/AT 

Użytkownicy komputerciw rodziny IBM PC mogą obecnie wykorzystywać! 
programy zapisane na dyskietkach 3 1/2 cala. Umozl iwia to większa 
elastyczność pracy z tymi komputerami . 

Napędy dyskowe 3 1/2 cala mogą być 

dołączone do mikrokomputera IBM PC / XT 
lub IBM PC/AT , pracującego pod kontrola 
systemu operacyjnego DOS 3 . 20 . Transmisja 
zbiorów i programów użytkowych miedzy 
stacjami dysków 5 1 /*, ’ •' i dołączoną , 
zewnętrzna stacją dysków 3 122 ’ ’ jest 
tak łatwa, jak wykonanie kopii zastępczej 
dyskietki (BACKUP! .Zastosowanie napędów 
3 1/2 cala daje możliwość łatwego przenoszenia oprogramowania, 
pomiędzy komputerami używającymi dyskietek 5 1/4 i 3 i/s cala . 
Dyskietki 3 1/2 ''posiadają dwukrotnie większa po jemnoSć , 720 KB 
pozwala na przechowywanie ponad 3 S 0 stron maszynopisu . 



Buli Micral <S 0 


M ikrokomupter firmy B U L L, 
jest kompatybilny z IBM PC/AT. 
Zastosowano w nim : 16-bitowy 
mi kroprocesor 80286 , koprocesor 
80287 , pracujące z f zegarowa 
6/8 MHz-Ma pZycie systemowej 
znajduje sio RAM o po jemnoóci 
Sie KB .która motsna rozszerzyć 
maksymalnie do 3 640 KB. Parni oć 
masowa stanowią .stacja dysków 
elastycznych o po jemnoóci 
1.2 MB i dysk staZy 40 MB . 
Firma proponuje cztery typy 
klawiatury .w tym QVERTY .Karty 
graficzne umozl iwiaja : • tryb 
al fanumeryczny es linii po 80 
znaków ■, • tryb graficzny : 
Z karta monochromatyczna 720 
puntków w 348 liniach ; órednia 
i wysoka rozdzielczoóć z karta 
kolorowa czyli 320 punktów 
w 2 00 liniach z paleta 16-tu 
kolorów lub dwoma paletami po 
4 kolory . Micral6o ws póZpracuje 
Z dukarkami PRTigio , igii , igie. 
,, 3. 10 lub CP/M .Jeżyki progra - 

mowama : BASIC (kompilator i interpreter J> ,C .COBOL .FORTRAN .PASCAL. 

□ □ ■ □□ MIKRODE.PESZE pa ■ PD 

klauna Vr)T tik O U zamienza v pienwozym kwaa-taZe -togo ao&u un. uchomić 
pnodukcje -typ u RISC , tkióny bodzie wyftonywaZ 20 

miZionów in -yt-iu kcji na oekunde - Nowy pnocoóon. oznaczony zoo-tanie 
óymboZem 78000 . ■ po ■ po ■ OSM Manke-ting wpnowadziZa na nynek 

Gorącą Kartę, k-tóna kon-tnoZuje -tempeaa-t usie wewna-tsiz kompu-teaa. AZanm 
te-am crzny wZaczany jeoi, gdy -tompena-tiwta pnzo&aacza so ó-topm-i G . 

"jaki. bodzie naa-tepny pnoduk .4 ? Zimna karta ? ■ pp ■ po ■ Ziarna 

NaxoŁZ pnacujo nad dyo&ami 5 i/* cala o pojemnoóci 100 MB . Dyski 
o nokondowej pojemności maja pojawić, óio na nynku juz w -tym noku . 

opracowali: Jacek Wojtala i Mariusz Jarzobow ski 
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Komputer w medycynie 


Tomografia a układ krwionośny 


W latach siedemdziesiątych nasze- 
go wieku obraz diagnostyki medycznej 
uległ, za pomocą elektronicznej tech- 
niki obliczeniowej, jakościowej zmia- 
nie. W oparciu o istniejące już metody 
bezinwazyjnego badania organizmu 
ludzkiego np. rentgenografię, jakvi o 
nowe rewelacyjne odkrycia fizyki nu- 
klearnej np zjawisko magnetycznego 
rezonansu jądrowego, zbudowano sze- 
reg urządzeń obrazujących na monito- 
rze telewizyjnym wnętrze ciała ludzkie- 
go. W poprzednich artykułach pozna- 
liśmy już rentgenowski tomograf kom- 
puterowy oraz tomograf magnetyczne- 
go rezonansu jądrowego. Pierwszy z 
nich w oparciu o przetworzone przez 
komputer dane. uzyskane podczas se- 
rii prześwietleń pacjenta promieniami 
X, umożliwia uzyskanie obrazu wideo 
dowolnego narządu wewnętrznego pa- 
bjenta. Gdy obraz zewnętrzny badane- 
go narządu, uzyskany techniką rentge- 
nowskiej tomografii komputerowej nie 
odbiega od normy, można zastosować 
drugi z wymienionych tomografów dla 
upewnienia się czy komórki budujące 
dany narząd nie podlegają wczesnym 
zmianom chorobowym. Badania tomo- 
graficzne dają więc dużą gwarancję 
prawidłowej diagnozy lekarskiej, a także 
ułatwiają śledzenie postępu choroby w 
każdym, nawet bardzo wczesnym jej 
stadium rozwojowym. W przypadku 
chorób nowotworowych, gdy od szyb- 
kości rozpoznania zmian chorobowych 
zależy pozytywny wynik leczenia, jedy- 
nie urządzenia tomograficzne dają 
szansę stłumienia choroby w zarodku. 
Zarówno rentgenowski tomograf kompu- 
terowy. jak i tomograf magnetycznego 
rezonansu jądrowego są urządzeniami 
niesłychanie kosztownymi, a przez to 
wciąż unikalnymi w normalnej praktyce 
diagnostycznej. 

Oto dwie powszechne dziś metody 
diagnostyki medycznej, których wspól- 
ną cechą jest to. że są prostymi reali- 
zacjami prostych pomysłów Celem 
ich twórców nie było uzyskanie do- 
kładnego, trójwymiarowego obrazu ba- 
danego narządu ani zbadanie właści- 
wości struktur atomowych narząd ten 
budujących. Chcieli oni uzyskać ma- 
ksimum informacji o systemie zasilają- 
cym każdą komórkę ciała ludzkiego, 
czyli układzie krwionośnym, odgrywa-, 
jącym kluczową rolę w prawidłowym 
funkcjonowaniu organizmu. Dla uzy- 
skania czytelnego obrazu telewizyjne- 
go naczyń kry/ionośnych w obu przy- 
padkach użyto znaczników kontrastu- 
jących, podawanych dożylnie pacjen- 


towi. Zadaniem ich jest — jak sama 
nazwa wskazuje, nadanie krwi włas- 
ności kontrastujących, a więc innych 
od własności otoczenia. Pierwszy po- 
mysł po ubraniu go w materialne kształ- 
ty, uzyskał nazwę tomografu emisji 
pozytronowej W tej metodzie jako 
znacznika kontrastującego, użyto sub- 
stancji radioaktywnej, której rozcho- 
dzenie się w naczyniach krwionośnych 
może być śledzone czujnikami promie- 
niowania gamma. Czujniki przekazują 
wyniki swojej pracy do pamięci kompu- 
tera, który zamyka cykl badania, po- 
rządkując uzyskane dane i dając w 
efekcie kolorowy obraz wideo naczyń 
krwionośnych badanego narządu. 

Dla dokładniejszej ilustracji tej tech- 
niki diagnostycznej opiszemy badanie 
serca przy użyciu tomografu emisji po- 
zytronowej. Pacjentowi podaje się 
wówczas dożylnie znacznik radioak- 
tywny w czasie połowicznego rozpadu 
10 minut Znaczy to. że przez pierwsze 
10 minut znacznik straci połowę swej 
aktywności, przez następne 10 minut 
połowę pozostałej radioaktywności itd 
Gwarantuje to pacjentowi bezpieczeń- 
stwo, a od lekarza natomiast wymaga 
szybkości i precyzji w działaniu. Naj- 
pierw serce badane jest w stanie nor- 
malnej pracy, po czym pobudzane jest 
do szybkich skurczów specjalnym, ła- 
godnym narkotykiem dozowanym pa- 
cjentowi dożylnie. Komputer zapamię- 
tujący informacje o stanie ukrwienia 
serca w czasie całego badania, jako 
rezultat obliczeń podaje dwa obrazy 
naczyń krwionośnych serca: w czasie 
normalnej pracy i w stanie jego pobu- 
dzenia. Porównanie tych obrazów poz- 
wala na wykrycie zaburzeń prac.y ser- 
ca lub zatorów w naczyniach krwio- 
nośnych, co jest symptomem zbliżają- 
cego się zawału. Dobre efekty daje 
użycie tomografu emisji pozytronowej 
do badania mózgu, umożliwiając wy- 
krycie i w konsekwencji leczenie chorób 
psychicznych. 

Drugi pomysł wizualizacji systemu 
krwionośnego człowieka zaowocował 
budową tomografu odejmującego 

Tomograf ten, mówiąc w dużym upro- 
szczeniu, to aparat rentgenowski 
sprzężony z komputerem. Badanie po- 
lega na wykonaniu serii prześwietleń 
rutynowych pacjenta, których wyniki 
rejestrowane są w pamięci komputera 
wraz z wynikami drugiej serii prześwie- 
tleń, lecz tym razem z podaną pacjen- 
towi dożylnie substancją kontrastującą, 
pochłaniającą promieniowanie X. 
Komputer porównuje, uzyskane w ten 


sposób dwa zbiory danych, z których 
oczywiście drugi jest bogatszy o wiel- 
kości charakterystyczne dla układu 
krwionośnego, uwydatnionego przez 
zawarty we krwi kontrast. Właśnie dane 
różniące pierwszy zbiór od drugiego 
dotyczą układu krwionośnego i są ma- 
teriałem obrabianym przez komputer, 
który daje na wyjściu graficzne przed- 
stawienie naczyń krwionośnych bada- 
nego narządu. Tomograf odejmujący 
utorował drogę nowoczesnej technice 
usuwania zatorów żylnych oraz tamo- 
wania krwotoków wewnętrznych. Za- 
biegi takie, wykonywane dotychczas 
operacyjnie przez chirurgów, przepro- 
wadzane są obecnie w sposób bezbo- 
lesny i nie wymagają długiej rekonwa- 
lescencji — przeprowadza się je za 
pomocą sondy wpuszczonej do tętnicy 
lub żyły wprawną ręką Jekarza. Na 
ekranie tomografu śledzony jest kompu- 
terowy obraz sondy przesuwającej się 
wzdłuż naczyń krwionośnych do miejs- 
ca zatoru lub krwotoku: Następnie — 
przez sondę podawane są środki roz- 
puszczające zator lub hamujące prze- 
pływ krwi. Zabiegi takie trwają około 90 
minut i zwykle kończą się pełnym suk- 
cesem Fotografia zamieszczona po- 
wyżej przedstawia jeden z bardziej 
wyspecjalizowanych tomografów odej- 
mujących. zapewniający obraz ba- 
danego narządu pod dwoma kątami 
widzenia Na 4 monitorach umieszczo- 
nych przy konsoli tomografu prezento- 
wane są równocześnie: naturalny 
obraz serca, dwa obrazy opracowane 
przez komputer oraz dokładna historia 
choroby. Wyniki te uzyskujemy za na- 
ciśnięciem jednego guzika, a lekarzom 
pozostaje już tylko leczenie 


AT 
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Niepowodzenia sztucznej inteligencji 


Od dawna, a ostatnio coraz częściej, 
informatyczna literatura profesjonalna 
zwraca uwagę na zagadnienia związa- 
ne ze sztuczną inteligencją (Al — Arti- 
ficial Inteligence). Rangę tego proble- 
mu podkreślają oczekiwania olbrzy- 
miego postępu wdrożeń tego typu sy- 
stemów. zarówno przez profesjonali- 
stów, jak i innych użytkowników mikro. 
Jednak rzeczywistość w dużej części 
nie dorównuje planom. Przykładem te- 
go jest ..interfejs naturalnego języka" 
do Lotusa 1 —2—3. Idzie o to. by móc 
sterować pracą programu, przekazywać 
do niego polecenia i pytania stosując 
codzienny język „mówiony". Omawiany 
interfejs umożliwia wykorzystanie 
wszystkich zalet Lotusa — poprzez 
konwersację. Producent — GNP Deve- 
lopment Hal — dopiero po roku od 
ogłoszenia gotowości dystrybucji „in- 
terfejsu" rzeczywiście rozpoczął jego 
sprzedaż. Opóźnienie to wynikało 
głównie ze względów na różnice po- 
między proponowanymi możliwościami 
programu, a oczekiwaniami użytkowni- 
ków w zakładach pracy, uczelniach i 
innych instytucjach Okazało się bo- 
wiem, że pierwotna uniwersalność 
programu musiała być zastąpiona 
oprogramowaniem o ściśle określonej 
specjalizacji. Praktyka jeszcze raz oka- 
zała się bezwzględnym sędzią założeń 
teoretycznych, dowiodła, że zwrot 
„sztuczna inteligencja" sam siebie 
„oskarża" — obiecuje bowiem coś ma- 
gicznego. co faktycznie nie jest możliwe 
do osiągnięcia. Wydaje się to typowym 
„problemem armat" — inteligencja nie 
jest dostatecznie poznana, rozumiana, 
by ją tworzyć. 

Użytkownicy komputerów w zasa- 
dzie nie oczekują tego. co rzeczywiście 
określone jest jako sztuczna inteligen- 
cja. Tak jak tłumaczą ją w takich dy- 
scyplinach nauki jak: psychologia, 
lingwistyka, a także informatyka. Prak- 
tycznie Al można opisać jako nieosią- 
galną zdolność urządzeń elektronicz- 
nych. 

Zazwyczaj dostęp do sprzętu o moż- 
liwościach, które wcześniej oceniane 
były jako sztuczna inteligencja, zmienia 
naszą ocenę zdolności tego sprzętu — 
staje się on nowym „normalnym" pro- 
duktem. Analizując to zagadnienie przy- 
taczany jest przykład samochodu, któ- 
ry „rozmawia" z kierowcą. Zgodnie z 
tradycyjnymi wyobrażeniami było to 
uznawane jako „sztuczna inteligencja”. 
Okazało się jednak, że w tym, jak i wie- 
lu innych przypadkach, liczy się nazwa, 
określenie, a nic ponadto — samochód 
pozostał samochodem, tyle że z je- 


szcze jednym urządzeniem stanowią- 
cym o komforcie jazdy. 

Zazwyczaj sztuczna inteligencja 
stanowi uzupełnienie (otoczenie prze- 
strzeni, „muszlę") systemów typu eks- 
pert „ekspert-systemów” Mamy z 
nią do czynienia pod postacią interfej- 
su komunikacji z użytkownikiem w na- 
turalnym języku. Użytkownik może ste- 
rować programami używając komend 
wyrażanych codziennym językiem an- 
gielskim. pisząc polecenia na klawia- 
turze. także wypowiadając je do mikro- 
fonu sprzężonego z komputerem. Co- 
raz częściej pojawiają się także systemy 
wzbogacone o „komputerowe widze- 
nie" — „okiem" jest odpowiednio 
sprzężona z maszyną kamera. 

Większość prac nad produktami typu 
Al dla personalnych komputerów doty- 
czy ekspert-systemów oraz naturalne- 
go języka. 

W przyszłym roku spodziewane są 
na światowym rynku systemy kompu- 
terowe, które z powodzeniem będą za- 
stępowały sekretarki — na razie w 
kwestii pisania pism dyktowanych 
przez szefa. . Natomiast wspomniane 
„widzenie maszynowe" obecnie prak- 
tycznie wykorzystywane jest masowo 
tylko w przemyśle m in. samochodo- 
wym. 

Ekspert-system jest to program 
komputerowy, który prezentuje wiedzę 
eksperta np.: lekarza, inżyniera, tłuma- 
cza. Okazuje się, że inwestowanie w 
tego typu oprogramowanie gwarantuje 
aktualnie najszybszy zwrot kosztów 
ponoszonych na badania nad sztuczną 
inteligencją. 

Gromadzenie wiedzy w bazach da- 
nych, dostępnych ekspert-systemom, 
manipulowanie nią, diagnozowanie 
problemów wraz z sugerowaniem 
czynności prowadzących do ich roz- 
wiązania, szacowanie ryzyka określo- 
nego przedsięwzięcia jest o wiele łat- 
wiejsze niż stworzenie programu rozu- 
miejącego naturalny, mówiony język. 

Przykładem wyspecjalizowanego 
ekspert-systemu jest „Analizator zbo- 
żowego rynku”, łączy on w sobie natu- 
ralny język oraz „wiedzę" niezbędną do 
wiarygodnej pomocy (rady) farmerom 
poszukującym najlepszej rynkowej 
strategii dla ich zboża (produkcji i han- 
dlu) — bazując na spodziewanych ce- 
nach i innych parametrach rynku. 

Podobne systemy budowane są dla 
potrzeb przetwarzania tekstów, baz da- 
nych, a także... produkcji i handlu wi- 
nem. 

Postęp w tworzeniu programów roz- 
poznających naturalny język jest 
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znacznie trudniejszy niż postęp budo- 
wy ekspert-systemów. Produkty bo- 
wiem „naturalnego języka" nie funk- 
cjonują samodzielnie. Mają na celu 
ułatwić używanie ściśle określonego 
programu i w rzeczywistości są tylko jego 
uzupełnieniem (otoczeniem, muszlą). 
Od czasu, gdy każdy pakiet programo- 
wy musi mieć swego rodzaju interfejs 
dla użytkownika — język naturalny jest 
oczywistym wyborem. Należy przy tym 
pamiętać, że technika „naturalnego ję- 
zyka" ma o wiele dłuższą historię niż 
ekspert-systemy. 

Pierwszym produktem wykorzystują- 
cym naturalny język była wprowadzona 
w połowie 1983 roku baza danych 
R:base 460. następnie także baza da- 
nych, tym razem firmy Q&A. Wydawa- 
nie komend sterujących pracą tych pro- 
gramów odbywa się za pośrednictwem 
zdań wypowiadanych w języku natu- 
ralnym (angielskim). Użytkownicy 
zmieniają, wprowadzają i wyszukują 
dane „rozmawiając" z maszyną. Pro- 
gram ten często nazywany jest „inteli- 
gentnym asystentem" — szybko „rozu- 
mie" wielokrotne warunki. Na przy- 
kład: „podaj mi nazwiska osób, których 
pensja łącznie z innymi dochodami jest 
.większa od 10 000$". 

Niektóre programy języków natural- 
nych, zamiast dokonywać analizy gra- 
matycznej rozpoznawanego zdania, 
wykorzystują analizę częstotliwościo- 
wą występowania liter w słowach, 
funkcjonując w efekcie, jak gdyby „rozu- 
miały" angielski. Pierwszym przykła- 
dem tego typu programu był MindRea- 
der. Następnie pod koniec ubiegłego 
roku pojawił się Write Now, który poza 
typowymi zdolnościami przetwarzania 
tekstów, pomaga użytkownikowi uni- 
knąć robienia błędów ortograficznych. 
Podczas pisania programu sprawdza 
każdy znak słowa (porównując z pa- 
miętanym słownikiem ortograficznym). 
Gdy napiszesz błędną literę — pro- 
gram wyświetla ją w negatywie, „bu- 
czy" i sugeruje poprawkę. 

Prawdopodobnie najbardziej wyró- 
żniającym się przykładem „wbudowa- 
nej" techniki języka naturalnego jest 
„Hal”. Jest to narzędzie wspomagające 
użytkowanie znanego od dawna pro- 
gramu Lotus 1-2-3. „Język naturalny” 
znacznie rozszerzył możliwości Lotusa. 
Użytkownik może np : wydać polecenie 
w postaci: „wyświetl nazwy i liczby pro- 
duktów typu X", wówczas Hal „samo- 
dzielnie" odnajdzie poszukiwane infor- 
macje i wyświetli lub wydrukuje na dru- 
karce. Można wydawać także bardziej 


5 


złożone polecenia — np.: „wymień na- 
zwy artykułów droższych od 1 00 $". Pro- 
ducent Lotusa zdając sobie sprawę z 
odpowiedzialności stosowania zwrotu 
„sztuczna inteligencja" — nie stosuje go 
w żadnym kontekście przy nazwie Hal. 

Przykładem ekspert-systemu jest 
Paradox. Posiada on tę samą moc 
obliczeniową jak programowana baza 
danych typu dBase lub R:base. Zasad- 
niczą techniką w Paradox'ie jest spo- 
sób pytania o wiedzę w nim zgroma- 
dzoną — poprzez przykłady. Także je- 
go „ekspertowa wiedza" gromadzona 
jest w podobny sposób — użytkownik 
podaje przykłady określonych sytuacji, 
które są odpowiednio analizowane i 
zapisywane do bazy. 

Jedną z istotnych przyczyn stosun- 
kowo wolnego „zdobywania” przez 
ekspert-systemy rynku jest kosztowne 
przygotowanie ich użytkowników (idzie 
tu o nauczenie zmian, dostosowania 
struktury systemu do specyficznych 
zastosowań). Na przykład systemy M.1 , 

S.1 firmy Teknowledge kosztują po 
5000 $. a nauka ich wykorzystania aż 
2500 $! 

Ekspert-systemy realizują polecenia 
wydawane zgodnie z określonymi za- 
sadami (od 40 do 500 zasad). Wyrażają 
one w ogólności zdania typu: czy (wów- 
czas in/then). Warto w tym miejscu 
wspomnieć pl^ny sprzed 10 lat, kiedy 
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Igraszki 
z duchami 

Ludwik PIELA, 
Tomasz MROWIEĆ 

Kłopoty z animacją 

Dowolny domowy system komputerowy byłby niewiele 
wart bez możliwości animacji. Czyż można wyobrazić sobie 
efektowną grę bez ruchu obiektów na ekranie? 

Konwencjonalnym sposobem uzyskania animacji jest prze- 
suwanie obrazu w obszarze pamięci ekranu. Odbywa się to w 
dwóch etapach. Po pierwsze, program musi wykasować stary 
obraz poprzez źapisanie wartości tła do RAM zawierającej ak- 
tualny obraz. Następnie trzeba zapisać dane obrazu w obsza- 
rze pamięci odpowiadającym nowej pozycji obrazu. Poprzez 
ciągłe powtarzanie tego procesu uzyskujemy przemieszczanie 
się obrazu po ekranie. 

Technika ta stwarza dwa problemy. Pierwszy, jeśli anima- 
cja wykonywana jest w trybie graficznym z dużymi punktami 
elementarnymi, ruch nie będzie płynny; obraz będzie prze- 
skakiwał przez ekran. Dla innych komputerów jedynym roz- 
wiązaniem jest użycie trybu graficznego o wysokiej rozdziel- 
czości. Drugi problem jest o wiele gorszy. Obraz na ekranie 
jest dwuwymiarowy, a obszar pamięci ekranu jest jednowy- 
miarowy. Oznacza to, że obraz, który jest ciągły na ekranie, 
nie będzie ciągły w RAM. 

Znaczenie tego stanie się oczywiste jeżeli spróbujemy napi- 
sać program do przesuwania takiego obrazu. Przyjrzyjmy się, 
jak rozproszone są w pamięci bajty tworzące obraz. W celu 
ich wykasowania program musi obliczyć ich adresy, co nie 


fach pięćdziesiątych. Struktury dzielą 
wiedzę na Części, które są następnie 
zapamiętane tak, że opisują tę wiedzę 
w hierarchicznych relacjach. Dla przy- 
kładu, silnik samochodu powinien być 
widziany jako struktura, która jest roz 
łożona na elementy takie jak: system 
elektryczny, system chłodzenia (każdy 
subsystem jest także strukturą) itp. 

Uporządkowana' w ten sposób wie- 
dza stwarza większe możliwości pro- 
gramowego manipulowania na niej — 
przeglądanie, wybieranie, łączenie itp. 

Podsumowując należy podkreślić, iż 
nie osiągnięto zamierzonego postępu 
w produktach sztucznej inteligencji 
Skoncentrowano się natomiast na sy 
Sternach specjalistycznych i uzyskano 
na tym polu pewne sukcesy. Podobnie 
systemy „naturalnego języka" stają się 
coraz mniej uniwersalne — rozwijane 
są specjalistyczne oprogramowania 
przeznaczone dla określonych grup 
użytkowników. 

Wydaje się, że zjawisko to — zwol- 
nienia — stanowić może symptom wy 
hamowania gwałtownego postępu 
oprogramowania profesjonalnego 
sprzętu mikrokomputerowego. 

W. GOGOŁEK 

Opracowane na podstawie: H Fersko 
Weiss, 1 986 łrits and misses Al UPDATE 
Personal Computing/December 1986. 

zawsze jest łatwe do zrobienia. Poza tym nawet w kodzie ma- 
szynowym obliczenia zajmą trochę czasu. Oznacza to, że ten 
typ pamięci (zwany „animacją pola gry”) jest zbyt wojny dla 
wielu celów. 

Rozwiązaniem tego problemu jest technika wykorzystująca 
„sprite’y” czyli „duchy”. W nomenklaturze Atari nosi ona 
nazwę grafiki gracz-pocisk (ang. player-missile graphics). 
Gracze (players) i pociski (missiles) są specjalnymi obiektami 
graficznymi przeznaczonymi do szybkiego przemieszczania 
się po ekranie. 

Udało się utworzyć obiekt graficzny, który jest jednowy- 
miarowy zarówno na ekranie jak i w RAM. Taki obiekt (zwa- 
ny graczem) występuje w pamięci jako tablica (ciąg bajtów) o 
długości 128 lub 256 bajtów. Pojawia się jako pionowy pasek 
rozciągający się od góry do dołu ekranu. Każdy bajt tablicy 
odwzorowywany jest w jednej lub dwóch poziomych liniach 
ekranu (wybór należy do nas). Obraz jest bezpośrednim od- 
wzorowaniem bitów danych w tablicy. Jeśli bit jes.t równy 1 ; 
wtedy zapalony jest odpowiadający mu punkt elementarny; 
jeśli bit jest równy 0, punkt jest zgaszony. 

Grafika gracz-pocisk jest niezależna od innych trybów gra- 
ficznych Atari, które nazywane są grafikami pola gry (ang. 
playfield). Instrukcje PRINT, PLOT, DRAWTO realizują 
grafikę pola gry. Technikę gracz-pocisk należy traktować jako 
drugi obraz na ekranie. Granice tego obrazu przekraczają 
wielkość pola gry i nie są związane z aktualnym trybem grafi- 
cznym. Ponadto obrazy te mogą występować jakby były 
przed lub za grafiką pola gry na ekranie. 

Dodatkowo grafika gracz-pocisk zwiększa ilość kolorów na 
ekranie. Każdy obiekt typu gracz ma swój własny rejestr ko- 
loru, rejestry te są niezależne od używanych dla grafiki pola 
gry. Bez względu na używany tryb zawsze będą dostępne 
cztery dodatkowe rejestry koloru dla obiektów graczy. Dzięki 
temu w trybie 0 (BASICu) można uzyskać na ekranie pięć 
kolorów. 

Początkowo nie jest łatwo zrozumieć grafikę gracz-pocisk 
(G-P), ponieważ Atari BASIC nie ma odpowiednich instruk- 


to zakładano, iż zasad tych będą.tysią- 

ce... 

W praktyce stosuje się obecnie 
względnie małe systemy, które szybko 
„się spłacają”. Niewielkie ekspert-sy- 
stemy są bardziej ekonomiczne dla 
obu stron — producenta i użytkownika. 
Dowodzą tego doświadczenia ze 
sprzedaży i eksploatacji tańszych, ale 
bardziej sprawdzonych („dopasowa- 
nych" do konkretnego zastosowania) 
narzędzi. Przykładami są wyproduko- 
wane w ostatnich 10 latach systemy: 1 
st Class, Insight 2 Plus, Personal Con- 
sultant Easy, the Arity Expert System 
Development Package i Wisdom XS. 
Systemy te mają moc podobną do na- 
rzędzi sprzed 10 lat, ale kosztują i/ 10 
ówczesnej ceny i generalnie są łat- 
wiejsze w wykorzystaniu. 

Przykładem „życzliwego", o dużej 
mocy, ekspert-systemu jest Personal 
Consultant Series (produkt Texas. Ins- 
truments), a także o dwa lata młodsze 
jego klony". Dołączone do nich po- 
prawki to między innymi „okna" (frag- 
menty ekranu informujące o stanie i 
realizacji programu) oraz znacznie do- 
kładniejsza dokumentacja. 

Nowy Personal Consultant Series 
reprezentuje wiedzę uporządkowaną w 
struktury. Termin ten został wprowa- 
dzony przez Marvin’a Minsky'ego — 
jednego z inicjatorów prac nad Al w la- 
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cji. Jej organizacja i wykorzystanie są przez to bardziej 
absorbujące, ponieważ muszą być realizowane na poziomie 
języka maszynowego. Czyni to tworzenie programów zna- 
cznie trudniejszym. 

Definiowanie gracza 

Każdy obiekt typu gracz ma szerokość ośmiu bitów. W ce- 
lu zdefiniowania obiektu musimy utworzyć jego odwzorowa- 
nie w pamięci. Najpierw kreślimy żądany rysunek na papie- 
rze milimetrowym. Następnie tłumaczymy go na kod binar- 
ny, wstawiając jedynki dla punktów zapalonych i zera dla 
zgaszonych. Odwzorowaniem gracza jest zatem ciąg liczb 
jednobajtowych, które wstawimy do tablicy grafiki G-P. 
Przed wpisaniem musimy je przetłumaczyć* na liczby dzie- 
siętne lub szesnastkowe. 

Lepszym rozwiązaniem jest wykorzystanie programu nr 1, 
który uwalnia nas od żmudnych obliczeń i umożliwia kreśle- 
nie kształtu obiektu bezpośrednio na ekranie za pomocą ma- 
nipulatora drążkowego. Zauważmy, że ramki ograniczają nas 
do definiowania ośmiu komórek obrazu w poziomie. Po za- 
kończeniu projektowania wyglądu gracza naciśnijmy klawisz 
(RETURN) i obraz gracza pojawi się w swojej naturalnej 
wielkości. Jeśli chcemy dokonać dodatkowych zmian w 
kształcie obiektu, musimy nacisnąć klawisz spacji. Po ponow- 
nym pojawieniu się migającego kursora, znowu możemy użyć 
manipulatora do zmiany obrazu gracza. Poprzez naciśnięcie 
(RETLTRN), po obejrzeniu kształtu gracza naturalnej wiel- 
kości, zobaczymy na ekranie odwzorowanie binarne obiektu 
wraz z innym spojrzeniem na utworzony obraz. 

Obiekt typu gracz może być zdefiniowany w 128 lub 256 
bajtach. Gdy zdefiniowany jest w 128 bajtach, każdy jego bajt 
zajmuje dwie linie ekranu. Gracze zdefiniowani w 256 baj- 
tach będą używać tylko jednej linii ekranu dla każdego bajtu 
obiektu. 

Zauważmy, że obiekty graczy różnią się swoimi wielkoś- 
ciami na obrazie. Gracze zdefiniowani w 256 bajtach mają 
rozdzielczość pionową dwa razy większą niż obiekty 128-baj- 
towe i są na ekranie mniej „zblokowane”. Powinniśmy zde- 
cydować, czy potrzebujemy tej dodatkowej rozdzielczości. 
Ponieważ wszyscy gracze muszą być zdefiniowani z taką samą 
długością, decyzja ta może nam zaoszczędzić trochę pamięci. 
Gracze zdefiniowani w 128 bajtach nazywani są graczami o 
rozdzielczości dwuwierszowej, a gracze zdefiniowani w 256 
bajtach są zwani graczami o rozdzielczości jednowierszowej. 

Tablica grafiki gracz-pocisk 

Tablica grafiki G-P musi rozpoczynać się od adresu po- 
dzielnego przez 1024, dla graczy o rozdzielczości dwuwier- 
szowej, lub 2048 dla graczy o rozdzielczości jednowierszowej. 
Instrukcja PRINT PEEK (106)*256 wyświetli ostatni uży- 
wany adres pamięci naszego komputera. W celu właściwego 
umieszczenia tablicy w pamięci, musi być znaleziony najbliż- 
szy adres na granicy 1024 lub 2048 bajtów. 

Zawartość tablicy 

Tablica grafiki G-P, bez względu na ilość zdefiniowanych 
graczy, zawsze będzie mieć wielkość 1024 lub 2048 bajtów dla 
umieszczenia czterech graczy i pocisków. Pierwsza część ta- 
blicy jest pusta; ten obszar dostępny jest dla innych celów, ta- 
kich jak przechowywanie alternatywnych definicji graczy lub 
programów wyświetlania. Po tym pustym obszarze jest pięć 
innych, w których zdefiniowani są gracze i pociski. 

Obszar definiowania pocisków będzie przechowywał cztery 
obiekty pocisków, każdy o szerokości dwóch bitów. Podobnie 
jak gracze, pociski także mogą być definiowane z rozdziel- 
czością jedno- lub dwuwierszową. 

Następne cztery obszary są jednakowej wielkości, każdy z 
nich przechowuje jeden obiekt gracza. Poniższy rysunek po- 


kazuje przesunięcie od początku tablicy grafiki G-P dla każ- 
dego gracza i pocisku. 


obszar 

pocisków 


+384 

+ 768 

+512 

+ 1024 

+640 

+ 1280 

+896 

+ 1792 

+ 1024 

+2048 


Nie używane 


gracz 0 


gracz 1 


gracz 2 


gracz 3 


Następnym krokiem jest ponowna zmiana zawartości ko- 
mórki 106, poprzez wpisanie adresu tablicy grafiki G-P. Ten 
krok jest konieczny, ponieważ system operacyjny będzie 
używał całej dostępnej pamięci, najwyższe dostępne adresy 
obszaru pamięci zawsze używane są do ustawienia grafiki po- 
la gry. Ten konflikt użycia pamięci może zmienić grafikę pola 
gry, grafikę G-P, lub obie. W najgorszym przypadku może 
dojść do zablokowania komputera. 

Obliczanie adresu początkowego 

Komputer nie rozwiązuje automatycznie konfliktu pamię- 
ci, musimy to zrobić za niego. Chociaż wiemy już, że tablica 
grafiki G-P musi rezydować na granicy 1K lub 2K, obraz 
pola gry także ma ograniczenia. Umieszczenie tablicy grafiki 
G-P w najwyższej części pamięci spowoduje problemy adre- 
sowania dla grafiki pola gry. Na przykład, pewne obszary 
obrazu mogą być nie do użycia, lub instrukcje PLOT nie 
umieszczą punktów graficznych w oczekiwanych wierszach i 
kolumnach. 

Jeśli pamięć ekranu grafiki pola gry przydzielona jest nor- 
malnie, możemy umieścić tablicę grafiki G-P tuż poniżej niej 
bez jakichkolwiek konfliktów pamięci. Jeśli jednak program 
zmienia tryby graficzne, wtedy możliwe jest powstanie inne- 
go konfliktu, który mógłby zniszczyć całkowicie tablicę gra- 
fiki G-P. Problem ten może wystąpić, jeśli program przełączy 
GRAPHICS 0 na GRAPHICS 7. W tym przypadku tabli- 
ca może być całkowicie wykasowana. Należy zatem przyjrzeć 
się instrukcjom GRAPHICS w naszym programie; znaleźć 
tę, która przydziela najwięcej RAM i odpowiednio zaplano- 
wać umieszczenie tablicy. Dla obliczenia adresu początkowe- 
go grafiki GtP, wykonajmy następujące kroki: 

1. Użyjmy funkcji PEEK dla określenia zawartości ko- 
mórki 560. 

2. Użyjmy funkcji PEEK dla określenia zawartości ko- 
mórki 561 i pomnóżmy wynik przez 256. 

3. Dodajmy wyniki kroków 1 i 2. 

4. Podzielmy wynik kroku 3 przez 1024, jeśli używamy 
grafiki o rozdzielczości dwuwierszowej lub przez 2048, jeśli 
używamy grafiki o rozdzielczości jednowierszowej. 

5. Odrzućmy resztę, odejmijmy 1 i pomnóżmy to przez 
1024 (rozdzielczość dwuwierszowa) lub 2048 (rozdzielczość 
jednowierszowa). 

Wynik kroku 5 jest adresem początkowym tablicy grafiki 
G-P. Programowo można to wykonać następująco: 

1000 REM JEDN=1 oznacza rozdzielczość jednowierszową 

1010 PMBASE=PEEK (560)+PEEK(561)*256 

1020 IF JEDN THEN DIV =2048 

1030 IF (NOT JEDN) THEN DIV=1024 

1040 PMBASE=INT (PMBASE/DIY — 1)*DIV 
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Ochrona tablicy grafiki G-P 

Po określeniu adresu końcowego tablicy grafiki G-P, 
użyjmy instrukcji POKE do wstawienia dwubajtowej wartoś- 
ci do adresów 14 i 15 (najpierw młodszy bajt). System opera- 
cyjny interpretuje adres zawarty w tych komórkach jako 
bezwzględną dolną granicę przydziału pamięci grafiki pola 
gry. Zatem -ustawienie tego adresu jest istotne dla ochrony 
tablicy grafiki G-P przed zniszczeniem kiedykolwiek realizo- 
wana jest nowa instrukcja GRAPHICS. 

Umieszczenie graczy i pocisków 
w tablicy 

Teraz możemy już wprowadzić bity graczy i pocisków do 
tablicy. Pierwszym krokiem jest oczyszczenie obszarów tabli- 
cy, które będą aktualnie przechowywać dane. Pierwszy ob- 
szar tablicy grafiki G-P nie jest używany. Nie ma potrzeby 
czyszczenia go, nie trzeba też czyścić obszarów tablicy, które 
nie będą zawierać aktywnych bitów. 

Sterowanie wyświetlaniem 

Istnieje kilka rejestrów sterujących, które jak wynika z ich 
nazwy, sterują bieżącym wyświetlaniem grafiki G-P: 


— rejestr bazowy, 

— rejestr sterujący grafiki i DMA, 

— rejestry szerokości, 

— rejestry kolorów, 

— rejestry pozycji poziomych, 

— rejestr sterowania priorytetami. 

Pewne z tych rejestrów ustawiane są tylko raz, podczas ini- 
cjowania grafiki G-P, inne wymagają stałego ustawiania w za- 
leżności od tego jak nasz program będzie manipulował gra- 
czami i pociskami. Podręczniki Atari używają skróconych 
nazw tych rejestrów, które są umieszczone w nagłówkach. 

Rejestr bazowy gracz-pocisk 
(PMBASE) 

Komórki pamięci o adresach 54279 i 54280 (D407 i D408 
szesnastkowo) będą zawierać adres początkowy tablicy grafiki 
gracz-pocisk. Ponieważ adres ma być na granicy 1K lub 2K, 
komórka 54279 zawsze musi zawierać 0. Znaczący jest tylko 
numer stronicy (starszy bajt adresu). 

Rejestr sterujący grafiki (GRACTL) 

Rejestr sterujący grafiki wraz z rejestrem DMACTL ze- 
zwala na bezpośredni dostęp do pamięci (DMA) dla grafiki 


DL 4 REM ****************** 

MC 5 REM * * 

DY 6 REM * Pro* ram nr 1 * 

ME 7 REM * * 

DP 8 REM ****************** 

NO 9 REM 

QJ 10 DIM KURSOR ( 2 >, GRACZ (23, 7) 

ND 26 GRAPHICS 3 

RY 30 SETC0L0R 2/ 0/0= REM CZARNE 0 
KNO TEKSTOWE 

LR 40 ? "WLACZ MANIPULATOR DO GNI 
AZDA 1":? "NACI ŚNIJ PRZYCISK" 
BO 50 GOSUB 610=7 
RH 60 PRINT "IJZYJ PRZYCISKU DO KR 
ESLENIA LUe KASOWANIA GR 

ACZA" 

DA 70 PRINT "NACI ŚNIJ <RETURN> PO 
ZAKOŃCZEŃ IU KREŚLENIA."; 

TH 80 GOSUB 670 

JK 90 IF PEEK<764)=12 THEN GOTO 2 
90 

WG 100 GOSUB 770 

DR 110 IF <G0RA AND ( KURSOR ( 2 > <=A 
>> OR (DOL AND ( KURSOR-; 2 » =23) 

> THEN GOTO 90 

GJ 120 IF (LEWO AND <KURSOR<1)<=0 
>> OR (PRAWO AND (KURS0R(1»=7 
>> THEN GOTO 90 
XP 130 COLOR 1 

ZU 140 IF GRACZ (KURSOR (2), KURSOR ( 
1>)=0 THEN COLOR 0 
IT 150 PLOT KURSOR ( 1 )+16, KURSOR (2 

) v 

SS 160 KURSOR ( 2 ) *KURSQR ( 2 ) -GÓRA 
PV 170 KURSOR ( 2 > “KURSOR ( 2 ) +D0L 
GQ 180 KURSOR ( 1 > -KURSOR ( 1 ) -LEWO 
RP 190 KURSOR (1>=KURS0R(1>+PRAW0 
XV 280 COLOR 2 

IM 210 PLOT KURSOR ( 1 ) + 1 6 , KURSOR ( 2 

> 

UF 220 X1=STRIG(0) 

GE 230 IF X 1 = 1 THEN 90 

XA 240 GRACZ ( KURSOR ( 2 > .• KURSOR ( 1 > ) 

= 1 -SGN ( GRACZ ( KURSOR ( 2 > , KURSOR < 

1))) 

YQ 250 COLOR 3 

ZZ 260 IF GRACZ ( KURSOR ( 2 ) , KURSOR ( 
1>>=0 THEN COLOR 0 
IY 270 PLOT KURS0R(1)+16,KURS0R(2 

> 

SV 280 GOTO 90 
WT 290 GRAPHICS 7 
KC 300 POKE 764,0 
WD 310 X2=2=X3=0 
EG 320 XI =76 = Yl=20 
UQ 330 GOSUB 910 

GW 350 PRINT " <RETURN> - KONIEC" « 

? " <SPACE> - POWROT DO GRACZA" 
BL 360 IF PEEK(764)=12 THEN GOTO 
440 


370 IF PEEK(764) 033 THEN 360 

380 GRAPHICS 3+16 

390 GOSUB 740 

400 X 1 = 1 6 = Y 1 =0 

410 X2=l = X3=0 

420 GOSUB 910 

430 GOTO 90 

440 GRAPHICS 0 

450 FOR Y=0 TO 23 

460 POSITION 0, Y 

470 PRINT "BAJT ";Y; 

480 X 1 =0 

490 FOR X=0 TO 7 
500 X2=GRACZ(Y,7-X) 

510 IF X2=0 THEN 530 

520 X1=X1+INT ( (X2*2) -/ 'X+0. 01 ) 

530 NEXT X 

540 POSITION 12, Y= PRINT XI; 

550 NEXT Y 

560 X 1 =24 = Y 1 =0 

570 X2=ASC("C]"> -X3=ASC<" "> 

■580 POKE 752,1 

590 GOSUB 910 

608 GOTO 590 

610 REM OCZEKIWANIE NA PRZYCIS 

K/GENERACJA DŹWIĘKU 

620 IF STRIG(0)=1 THEN 620 

630 SOUND 0,50,10,4 

640 FOR 0P=1 TO 10 = NEXT QP 

650 SOUND 0,0, 0,0 

660 RETURN 

669 REM USTAWIENIE ZMIENNYCH I 
EKRANU 

670 KURSOR< 0=0 
680 KURSOR-; 2 )=0 
690 FOR R=0 TO 23 
700 FOR C=0 TO 7 
710 GRACZ (R, 0=0 
720 NEXT C 

730 HEXT R 
740 COLOR 3 

750 PLOT 15,0 = DRAWTO 15, 23 = PLO 
T 24,0= DRAWTO 24,23 
760 GRAPHICS 3+48= RETURN 
770 REM ODCZYT MANIPULATORA 
780 S=STICK(0> 

790 GORA=0 
800 DOL=0 
810 LEWO=0 
820 PRAWO=0 

830 IF S=15 THEN RETURN 

840 IF S=14 THEN G0RA=1 

850 IF S=7 THEN PRAWO* 1 
860 IF S=13 THEN D0L=1 

870 IF S=ll THEN LEW0=1 

880 GOSUB 630 
890 RETURN 

900 REM WYŚWIETLANIE GRACZA 
910 FOR Y=0 TO 23 


TZ 920 FOR X*0 TO 7 
LM 930 COLOR X2 

ES 940 IF PLAYER ( Y, X)=0 THEN COLO > 
R X3 

CQ 950 PLOT X+X 1 , Y+Y 1 
MF 960 NEXT X 
MR 970 NEXT Y 
Z V 980 RETURN 


DM 5 REM ****************** 
MD 6 REM * * 
EU 7 REM * Pro* ram nr 2 * 


MF 8 REM * 
DQ I 


9 REM ****************** 

SG 50 GRAPHICS 0-SETCOLOR 2,0,0=P 
OKE 755,0 

NA 60 PMB*PEEK(106)-16 
SN 70 POKE 54279, PMB 
AB 80 PMBA8E=PMB*256 
LU 90 FOR J=0 TO 255 -POKE PMBASE+ 
1024+J,0=NEXT J 

YE 100 FOR J=0 TO 12 = READ A = POKE 
PMBASE+ 1 024+ 1 40+ J , A = NEXT J 
RH 110 POKE 559,62 
QK 120 POKE 704,204 
MV 130 POKE 712,34 
HU 140 POKE 53248,130 
VM 150 POKE 53277,3 
TA 160 POSITION 6,18 = ? "IJZYJ MANI 
PULATORA DO PRZESUWANIA 
GRACZA"-? 

XB 170 H=130 = V=140 
ZM 180 S=ST I CK ( 0 ) = RESTORE 
BR 190 IF S=ll THEN H=H-1 
HL 200 IF S=7 THEN H=H+1 
HE 210 POKE 53248, H 
XH 220 V1=0 

AR 230 IF S=14 THEN V=V-1=V1=1 
YS 240 IF S=13 THEN V»V+1=V1»1 
KW 250 IF Vl=l THEN FOR J=0 TO 12 
-READ A =POKE PMBASE+ 1 024+V+ J , A 
= NEXT J 

VT 260 POSITION 6,21=? "POZYCJA P 
OZ I OMA = " ; CHR$ ( 254 ) ; CHRf ( 25 

4 ) ; CHR$ ( 254 ) ; H 

JL 270 POSITION 6,22=? "POZYCJA P 
IONOWA = " ; CHR* ( 254 > ; CHRf ( 25 

4 ) ; CHR* ( 254 ) ; V 
PH 280 GOTO 180 

JS 290 DATA 0,40,146,214,254,238, 
254,238,186,170,56,16,0 
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gracz-pocisk. GRACTL umieszczony jest pod adresem 
53277 (D01D szesnastkowo) i możemy wybrać zezwolenie 
tylko dla gracza (POKE 53277,2), tylko dla pocisku (POKE 
53277,1) lub łącznie dla gracza i pocisku (POKE 53277,3). 

Rejestr sterujący DMA (DMACTL) 

Ustawienie rejestru sterującego DMA włącza lub wyłącza 
grafikę G-P. Jeśli rejestr GRACTL nie jest ustawiony na ze- 
zwolenie DMA, będziemy widzieć tylko grafikę pola gry. 
DMACTL i GRACTL muszą być ustawione jednocześnie 
w celu wyświetlania graczy i pocisków. DMA działa jak paso- 
żyt na mikroprocesorze 6502, któremu kradnie cykle maszy- 
nowe. Jeśli chcemy wstrzymać wyświetlanie obiektów grafiki 
G-P, musimy wyzerować rejestr DMACTL. Przyspieszy to 
trochę działanie mikroprocesora. 

Użyjmy instrukcji POKE do wstawienia jednej z poniż- 
szych wartości do komórki o adresie 559 (22F szesnastkowo) 
w celu ustawienia rejestru DMACTL. 


Wartość 

4 

8 

12 

+16 


Wynik działania 

włącza DMA tylko dla 

włącza DiMA tylko dla 

włącza DMA dla gracza 
rozdzielczość jednowierszowa 
(domyślnie dwuwierszowa) 


pocisku 

gracza 

pocisku 


Rejestry szerokości graczy 
(SIZEPO— SIZEP3) 


Cztery rejestry ośmiobitowe, o adresach 53256 do 53259 
(D008 do D00B szesnastkowo), sterują poziomą wielkością 
czterech graczy. Poprzez zmianę zawartości tych komórek 
możemy zwiększyć dwukrotnie lub czterokrotnie szerokości 
obiektów (lecz nie ich wysokości). Jeśli wielkość gracza nie 
będzie zmieniana w programie, pozostaje normalnej wielkoś- 
ci. 


Adres 53256 steruje szerokością pierwszego gracza, adres 
53257 — drugiego, i tak dalej. Podczas pisania programów do 
przesuwania poziomego obiektów ustawienie rejestru sze- 
rokości może zmienić zawartość rejestru pozycji poziomej 
gracza. W celu przełączenia gracza na podwójną szerokość 
musimy ustawić jego rejestr szerokości na 1; dla poczwórnej 
szerokości — na 3. Wartości 0 i 2 określają normalną szero- 
kość. Przykładem może być instrukcja ustawienia trzeciego 
gracza na podwójną szerokość: 

POKE 53258,1. 

Rejestr szerokości pocisku (SIZEM) 


Jeden rejestr, o adresie 53260 (D00C szesnastkowo), steru- 
je wielkością wszystkich pocisków. Takie same wartości, jak 
pokazane powyżej dla szerokości gracza, stosują się do rejes- 
tru szerokości pocisku: 0 lub 2 dla normalnej szerokości, 1 dla 
podwójnej i 3 dla poczwórnej. 


Rejestry kolorów gracz-pocisk 
(COLPMO — COLPM3) 


Cztery rejestry kolorów gracz-pocisk, o długości 1 bajta 
każdy, rozpoczynają się od adresu 704 (2C0 szesnastkowo) 
dla pierwszego gracza i kończą w 707 (2C3 szesnastkowo) dla 
czwartego. Zarówno gracz, jak i skojarzony z nim pocisk, ma- 
ją ten sam kolor. 

Rejestry pozycji poziomej graczy 
(HPOSPO — HPOSP3) 

Rejestry pozycji jpoziomej graczy używane są do przemie- 
szczania obiektów wzdłuż osi poziomej. Poprzez prostą zmia- 
nę zawartości rejestru instrukcją POKE, możemy przesunąć 
gracza do nowej pozycji poziomej. W zależności od ustawie- 
nia rejestru szerokości możemy ustawić gracza przy lewym 
brzegu ekranu, następnie ustawić nową wartość pozycji po- 
ziomej, która spowoduje, że obiekt ponownie pojawi się 


gdzieś na ekranie. Minimalną wartością każdego rejestru po- 
zycji jest 0, maksymalną — 227. W zależhości od wielkości 
gracza, określonej w DMACTL, ustawienia tych rejestrów 
będą zmieniać się od 40, jako widocznej pozycji najbar- 
dziej z lewej, do 190,' jako pozycji najbardziej z prawej. 

Rejestry te mogą być używane tylko w trybie zapisu, to 
znaczy nie będziemy mogli użyć instrukcji PEEK dla okreś- 
lenia pozycji gracza. Zatem nasz program musi mieć zmien- 
ne, które przechowują aktualne pozycje poziome graczy i po- 
cisków na ekranie. Rejestr pozycji poziomej gracza 0 mieści 
się pod adresem 53248 (D000 szesnastkowo); gracza 1 — pod 
53249; gracza 2 — pod 53250 i gracza 3 — pod 53251. 

Rejestry pozycji poziomej pocisków 
(HPOSMO— HPOSM3) 

Cztery rejestry, od adresu 53252 (D004 szesnastkowo), 
przechowują wartości używane do zmiany pozycji pocisków 
na osi poziomej. 

Manipulowanie duchami 

Po tym, nieco przydługim wprowadzeniu, niezbędnym z 
powodu trudności ze zdobyciem odpowiedniej literatury (a 
także jej giełdowej ceny), przejdziemy do omówienia prakty- 
cznego wykorzystania opisanej techniki. 

Jak wspomnieliśmy na wstępie, podstawowym przezna- 
czeniem grafiki gracz-pocisk jest uzyskanie efektu animacji 
poprzez przemieszczanie obiektów na ekranie. Ruch obiek- 
tów rozłożymy na poziomy i pionowy, nie tyle ze względów 
formalnych, ile z powodu różnych sposobów jego realizacji. 

Poziome przemieszczanie gracza jest bardźo proste. Po pro- 
stu zwiększamy lub zmniejszamy wartość przechowywaną w 
rejestrze pozycji poziomej odpowiadającym graczowi, które- 
go chcemy przemieszczać. Jedyny problem z rejestrami po- 
zycji poziomej polega na tym, że nie możemy pobrać ich za- 
wartości dla określenia aktualnej pozycji poziomej gracza lub 
pocisku. Jeśli wprowadzimy: 

POKE 53248, 140:PRINT PEEK(53248) 
moglibyśmy oczekiwać, że komputer wyprowadzi 140, war- 
tość, którą zapamiętaliśmy w komórce 53248. Zamiast tego 
otrzymujemy liczbę 0. Co zatem stało się ze 140? Układ 
ANTIC pobrał 140 do swoich wewnętrznych rejestrów, od- 
powiednio zmienił pozycję poziomą gracza i wyzerował za- 
wartość komórki 53248, zanim została wykonana instrukcja 
PRINT PEEK (53248). Jest to dosyć niewygodne, jeśli 
chcemy pamiętać kolejne współrzędne poziomego położenia 
gracza. 

Program nr 2 demonstruje podstawową metodę przemie- 
szczania graczy. Pierwsza sekcja, linie 50 do 150, zawiera 
standardowe procedury inicjowania. POKE 755,0 w linii 50 
wyłącza kursor, zatem jeśli zatrzymamy program i chcemy z 
powrotem włączyć kursor, musimy nacisnąć (RESET) lub 
wprowadzić POKE 755,2. 

Dla większości procedur animacji musimy przydzielić 
zmienną do przechowywania aktualnej pozycji paska gracza. 
Linia 170 używa zmiennej H do zapamiętania aktualnej war- 
tości położenia poziomego gracza 0, który początkowo umie- 
szczony jest w 1 30. 

Linia 180 przydziela inną zmienną, S, do przechowywania 
wartości STICK(O) — stanu manipulatora. Możliwymi war- 
tościami są: 11 — lewo, 7 — prawo, 14 — w górę, 13 — w dół i 
15 — środek. 

Linie 190 i 200 sprawdzają czy S jest równe 11, czy 7 — 
manipulator wskazuje lewo lub prawo i wartość H zmienia się 
o jeden, zgodnie z kierunkiem ruchu gracza. Linia 210 wsta- 
wia wartość przechowywaną w H do rejestru pozycji pozio- 
mej gracza 0, w celu przesunięcia go o jedną pozycję w pra- 
wo lub w lewo. Każde przemieszczenie gracza równe jest sze- 
rokości punktu elementarnego. 

L’ dołu ekranu wyświetlana jest aktualna wartość pozycji 
poziomej. Od wartości równej 48 gracz rozpoczyna opu- 
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szczanie niebieskiego obszaru i przechodzi przez tło, aż wyj- 
dzie poza ekran, jeśli kontynuujemy ruch manipulatora w le- 
wo. Dalsze zmniejszenie wartości poziomej nie daje żadnego 
efektu na ekranie. 

Jeśli wartość H stanie się.mnicjsza od 0 lub większa od 255, 
otrzymamy komunikat błędu, gdy program próbuje wstawić 
wartość H do rejestru pozycji poziomej 53248 (linia 210). 
Wynika to z faktu, że nie możemy wstawić, za pomocą 
PÓKE, liczby nie mieszczącej się na pozycji jednego bajtu, 
do pojedynczej komórki pamięci. Dla uniknięcia tego pro- 
blemu powszechnie stosuje się w takich programach procedury 
śledzenia błędów. Program nr 2 nie ma takiej procedury, dla- 
tego możemy sprawdzić co zdarzy się, kiedy spróbujemy 
przesunąć gracza zbyt daleko. 

Jak widać, uzyskanie ruchu poziomego jest bardzo łatwe. 
Kiedy przychodzi do ruchu pionowego, sprawa się kompliku- 
je. Nie jest możliwe przesuwanie paska gracza w pionie. Za- 
wsze będzie on rozciągał się od góry do dołu ekranu, bez 
względu na to, ile punktów elementarnych wewnątrz niego 
jest wyświetlanych. 

Pionowe położenie obiektu na ekranie określa odległość, od 
początku obszaru gracza do miejsca, w które ładujemy dane. 
Dlatego w linii 100 dane o kształcie gracza wprowadzane są o 
140 “bajtów od początku obszaru danych gracza 0 dla upew- 
nienia się, że obiekt wystąpi na ekranie. Jeśli zmienimy war- 
tość 140 na 141, gracz pojawi się o jedną linię ekranu niżej. 
Wartość 139 spowoduje wyświetlenie graeża o jedną linię wy- 
żej. 

Teraz powinno być oczywiste jak uzyskać iluzję ruchu w 
pionie. Potrzebna jest procedura do przesuwania wszystkich 
danych kształtu o jeden bajt w górę lub w dół pamięci. Funk- 
cje te wykonuje linia 250. 

Początkowo, w linii 170, zmienna V przydzielona jest do 
przechowania aktualnej wartości pozycji pionowej gracza, w 
taki sam sposób jak zmienna H. 

Linie 230 i 250 sprawdzają górną i dolną pozycję manipula- 
tora i zwiększają lub zmniejszają odpowiednio wartość V. Je- 
śli manipulator został przesunięty w górę lub w dół, wtedy 
zmienna VI ustawiana jest na 1. VI działa jak flaga. Kiedy VI 
jest jedynką, wtedy procedura przemieszczania pionowego w 
linii 250 jest aktywna. Kiedy VI równe jest zero, żaden ruch 
pionowy nie jest potrzebny, procedura w linii 250 jest igno- 
rowana. 

Procedura ta podobna jest do procedury ładowania danych 
kształtu w linii 100 i wprowadza informacje o kształcie do ob- 
szaru danych gracza 0. Zamiast dodawania stałej wartości, 
podobnej do 140 w linii 100, do adresu bazowego obszaru da- 
nych gracza 0 (PM BAS E+ 1024) dodawana jest wartość 
zmiennej V. Obiekt będzie przesuwany o odległość równą 
jednemu punktowi elementarnemu w górę lub w dół. 

Instrukcja DATA zawierająca informacje o kształcie gracza 
0, zawarta jest w linii 290. Zauważmy, że na początku i końcu 
tych danych występują zera, w celu wykasowania wcześniej 
wykreślonego punktu od góry lub dołu ostatniego kształtu 
gracza 

DM 5 REM ****************** 

MD 6 REM * * 

FP 7 REM * Proararo nr 3 * 

MF 8 REM * * 

DQ 9 REM ****************** 

RY 10 REM 

SG 50 GRAPHICS 0=SETCOLOR 2,0, 0=P 
0KE 755,0 

NR 60 PMB=PEEK < 1 06 ) -1 6 
SN 70 POKE 54279, PMB 
RB 80 PMBRSE=PMB*256 
LU 90 FOR J=0 TO 255 - POKE PMBRSE+ 

1 024+ J , 0 ! NEXT J 

YE 100 FOR J=0 TO 12 = RERD R : POKE 
PMBRSE+ 1 024+ 1 40+.J , R ‘ NEXT J 
RH 110 POKE 559,62 
QK 120 POKE 704,204 
MV 130 POKE 712,34 
HU 140 POKE 53248,130 
VM 150 POKE 53277,3 
RF 160 P0SITI0N 6,18=? "UŻYJ MRN I 


Aby zobaczyć co się zdarzy, kiedy pominiemy te zera, 
zmieńmy linie 290 poprzez wykasowanie obu zer i zmieńmy 
licznik pętli w liniach 100 i 250 z 12 na 10, aby czytana była 
poprawna ilość danych. Teraz, po uruchomieniu programu, 
zdarzą się straszne rzeczy! W miarę przesuwania manipulato- 
ra w górę lub w dół gracz pozostawia ślad. 

Z pewnością nie będziemy zbyt zadowoleni z otrzymanego 
ruchu pionowego obiektu. Procedura ponownego wyświetla- 
nia w linii 250 zajmuje sporo czasu i zawsze będzie zauważal- 
ne opóźnienie, gdy program dokonuje aktualizacji informacji 
przechowywanej w obszarze danych gracza. Jeśli chcemy 
poprawić jakość przemieszczania, musimy wprowadzić pro- 
cedurę w kodzie maszynowym. 

Program nr 3 jest ulepszoną wersją poprzedniego. Zawiera 
dwie procedury w kodzie maszynowym, jedną dla ruchu w 
górę, a drugą dla ruchu w dół. Nie martwmy się, jeśli nie 
mamy pojęcia o kodzie maszynowym. Obie procedury mogą 
być skopiowane i włączone do używania we własnych pro- 
gramach bez dokładnego rozumienia jak one działają. 

Po uruchomieniu tego programu zobaczymy, że działa on 
tak samo jak poprzedni. Dopiero podczas przesuwania w górę 
lub w dół zobaczymy, że animacja jest dużo płynniejsza. 

W linii 170 czytane są dane zawarte w liniach 300 do 370 — 
procedury w kodzie maszynowym — i przechowywane w 
nieużywanej części obszaru danych gracz-pocisk. Ten nie 
wykorzystany obszar ma długość 768 bajtów dla rozdziel- 
czości jednowierszowej graczy i 384 bajty dla rozdzielczości 
dwuwierszowej — wystarczająca ilość miejsca dla przecho- 
wania procedur w kodzie maszynowym. 

Pierwsza procedura — o długości 21 bajtów — umieszczo- 
na jest w nie używanym obszarze od PMBASE w górę, druga 
procedura rozpoczyna się od PMBASE+21. 

Procedury w takiej postaci będą sterować graczem lub po- 
ciskiem o wysokości do 20 punktów elementarnych. W celu 
użycia tej procedury dla wyższych graczy, musimy zmienić 
liczbę 22 w linii 340 na większą o 2 od wysokości gracza i licz- 
bę 21, w linii 360, na większą o 1. 

Przemieszczanie poziome obsługiwane jest w taki sam spo- 
sób jak w programie nr 2. W liniach 220 i 230 wstawiona zos- 
tała procedura śledzenia błędów, która zatrzymuje program, 
kiedy wartość zmiennej II stanie się mniejsza niż 48 lub więk- 
sza niż 202. To znaczy, że gracz nie może opuścić obszaru po- 
la gry i zapobiega pojawieniu się komunikatu błędu, który 
występuje, jeśli wartość H stanie się mniejsza od 0 lub więk- 
sza od 255. 

' Linie 250 i 260 sterują przemieszczaniem pionowym po- 
przez wywoływanie procedur w kodzie maszynowym. V, 
zmienna współrzędnej pionowej, sprawdzana jest najpierw 
dla upewnienia się, że nie jest większa niż 32 lub mniejsza niż 
212 — wtedy gracz jest na górnym lub dolnym brzegu po- 
la gry — przed przekazaniem sterowania do odpowiedniej 
procedury maszynowej. 

4>;CHR*(254>; V 
PU 290 GOTO' 190 

JD 310 DATA 0,40,146,214,254,238, 
254,238,186,170,56,16,0 
RM 330 DRTR 104,104,133,204,104,1 

33.203.160.1.177 

0R 340 DRTR 203,136,145,203,200,2 
00,192,22,208,245,96 
EE 360 DRTR 104,104,133,204,104,1 

33.203. 160.21. 177 
FR 370 DRTR 203,200,145,203,136,1 

36,192,255,208,245,96 


PULRTORR DO PRZESUWANI H 
GRACZA" 

BO 170 FOR 1=0 TO 41 -RERD A = POKE 
F'MBR3E+I,fi = NEXT I 
XD 180 H= 1 30 ; V= 1 40 
Z0 190 S=STICK(0> : RESTGRE 
BR 200 IF S=ll THEN H=H-1 
HN 210 IF S=7 THEN H=H+1 i 

FP 220 IF H<43 THEN H=48 
GN 238 IF H>202 THEN H=202 
HK 240 POKE 53248, H 
HW 250 IF 8=14 AND V>32 THEN A=IJS 
R< PMBASE, PMBRSE+1023+V> = V=V-1 
OJ 260 IF S=13 AND V<212 THEN R=U 
SR<PMBASE+21 , PMBR3E+1023+V) > V= 
V+1 

W 270 P0SITI0N 6,21'? "POZYCJA P 
OZ I 0MR = ",CHR*<254),CHR*025 

4 ) i CHR* ś 254 ) / H 

JN 280 P0SITIGN 6,22=? "POZYCJA P 
I ONOWfi = " i CHRf < 254 ) ; CHR* < 25 
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Wzór używania procedury jest następujący: 

A=USR (adres kodu maszyn., adres gracza plus pozycja pio- 
nowa) 

wykorzystując ten wzór, wywołanie procedury w linii 250 sta- 
je się następujące: 

A=USR(PMBASE, PMBASE+1023+V) 

Dla poprawnego działania procedury, V musi być zwię- 
kszane lub zmniejszane nie więcej niż o jeden naraz. 

Po wywołaniu procedury i ponownym wyświetleniu gra- 
cza, V jest zmienne o 1, aby było gotowe do następnej opera- 
cji. 

Inne własności 

Opisany mechanizm umożliwia tworzenie bardzo szybkiej 
animacji. Istnieją czterej niezależni gracze. Mają oni własne 
zawartości rejestrów sterujących i obszary RAM; zatem ich 
działanie jest całkowicie niezależne. Oznaczeni są PO do P3. 
Mogą być używani razem, jeden obok drugiego, dla otrzyma- 
nia rozdzielczości 32-bitowej, lub mogą być używani niezale- 
żnie dla otrzymania czterech ruchomych obiektów. 

Każdy gracz ma własny rejestr koloru, jest on całkowicie 
niezależny od rejestrów kolorów pola gry. Rejestry kolorów 
graczy nazywane są COLP(X). Umożliwia to otrzymanie 
większej ilości kolorów na ekranie. Jednak każdy gracz ma 
' tylko jeden kolor; bez wykorzystania przerwań programu wy- 
świetlania nie można uzyskać wielokolorowych graczy. 

Każdy gracz ma zmienną szerokość, możemy ją ustawić 
normalną, podwójną lub poczwórną za pomocą rejestrów 
SIZEP(X). Jest to przydatne dla nadawania graczom różnych 
rozmiarów. Mamy także opcję wybierania rozdzielczości pio- 
nowej graczy. Możemy używać rozdzielczości jednowierszo- 
wej, w której każdy bajt w tablicy gracza zajmuje jedną linię 
ekranu, lub rozdzielczości dwuwierszowej, w której każdy 
bajt zajmuje dwie linie ekranu. Jest to jedyny przypadek, kie- 
dy własności graczy nie są niezależne, wybór rozdzielczości 
pionowej dotyczy wszystkich graczy (steruje nią bit D4 rejes- 
tru DMACTL). 

Pociski 

Kolejną zaletą są pociski — obiekty graficzne o szerokości 
2 bitów, skojarzone z graczami. Jeden pocisk przydzielony 
jest do każdego gracza. Informacje o kształcie pocisku 
pochodzą z tablicy umieszczonej tuż przed tablicami graczy. 
Cztery pociski upakowane są w tej samej tablicy. Mogą one 
poruszać się niezależnie od graczy; mają własne rejestry po- 
zycji poziomej. Mają także własny rejestr wielkości, SIZEM, 
który określa ich szerokość, podobnie jak rejestry SIZEP(X) 
dla graczy. Jednak pociski nie mogą być ustawione na różne 
wielkości; są ustawiane razem. Na żądanie pociski mogą być 
połączone razem do postaci piątego gracza, w tym przypadku 
przyjmują one kolor rejestru 3 pola gry. Realizuje się to po- 
przez ustawienie bitu D4 rejestru sterowania priorytetem 
(PRIOR). W dalszym ciągu mogą one przemieszczać się nie- 
zależnie. Ustawienie tego bitu zmienia tylko kolor pocisków. 

Pociski przesuwamy pionowo podobnie jak graczy: po-- 
przez przemieszczenie danych obrazu w obszarze RAM poci- 
sku. Jest to dosyć trudne w realizacji, ponieważ pociski 
umieszczone są w jednej tablicy. 

Priorytety graczy i pola gry 

Ważną własnością grafiki G — P jest to, że utworzone 
obiekty są całkowicie niezależne od pola gry. Możemy uży- 
wać ich w dowolnym trybie graficznym. Powoduje to pow- 
stanie innego problemu: co się zdarzy, jeśli gracz zachodzi na 
obraz pola gry? Który obraz ma priorytet? Na szczęście ma- 
my możliwość zdefiniowania priorytetów używanych do wy- 
świetlania graczy. Jeśli zechcemy, wszyscy gracze mogą mieć 
priorytet nad rejestrami kolorów pola gry. Możemy ustalić, 
aby wszystkie rejestry pola gry (za wyjątkiem tła) miały prio- 
rytet nad wszystkimi graczami. Możemy również określić 


priorytety między poszczególnymi graczami i polem gry 
Priorytety wybierane są z rejestru sterowania priorytetem — 
PRIOR. Ta własność umożliwia obiektom przechodzenie 
przed frontem jednego obrazu i poza innym, dają złudzenie 
efektu trójwymiarowości. 

Układowe wykrywanie kolizji 

Jedną z podstawowych zalet grafiki G — P, używaną w 
grach, jest możliwość układowego wykrywania kolizji. Mo- 
żemy sprawdzić, czy jakiś obiekt graficzny (gracz lub pocisk) 
zderzył się z innym. Można wykryć następujące kolizje: po- 
cisk-gracz, pocisk-pole gry, gracz-gracz, gracz-pole gry. Łą- 
cznie istnieje 54 możliwych kolizji, każda z nich ma przydzie- 
lony jeden bit, który może być sprawdzany. Jeśli bit jest 
ustawiony, wystąpiła kolizja. Bity te są odwzorowane w 15 re- 
jestrach w GTIA (używane są tylko młodsze 4 bity). Rejestry 
te można tylko odczytywać, nie można ich oczyścić poprzez 
zapisanie zer. Aby je wyzerować (w celu dalszego wykrywania 
kolizji) musimy zapisać dowolną liczbę do rejestru HTCLR. 
Czyści to wszystkie rejestry kolizji. 

Kolizja występuje wtedy, gdy obraz gracza nakłada się z 
innym obrazem; zatem bit kolizji nie będzie ustawiony dopó- 
ki kreślona jest część ekranu pokazująca kolizję. To znaczy, że 
wykrycie kolizji może nastąpić po około 20 ms od chwili prze- 
sunięcia gracza. Zalecanym rozwiązaniem jest wykonanie ru- 
chu gracza i wykrywanie kolizji w czasie procedury przerwa- 
nia pionowego. W tym przypadku najpierw należy sprawdzić, 
czy nic wystąpiła kolizja, następnie oczyścić rejestr kolizji i 
wykonać ruch graczem. Innym rozwiązaniem jest odczekanie 
20 ms, po przesunięciu gracza, przed sprawdzeniem czy nie 
uległ on kolizji. 

Zastosowania grafiki gracz — pocisk 

Oprócz animacji, grafika G— P oferuje pewne dodatkowe 
możliwości. Gracze są wyjątkowym sposobem zwiększenia 
ilości kolorów obrazu. Cztery dodatkowe rejestry kolorów 
umożliwiają użycie czterech dodatkowych kolorów w każdej 
linii obrazu. Rozdzielczość 8-bitowa ogranicza oczywiście za- 
kres ich zastosowań. Istnieje sposób obejścia tego ogranicze- 
nia. Weźmy gracza o poczwórnej szerokości i wstawmy go na 
ekran. Ustawmy tak priorytety, aby gracz miał niższy priory- 
tet, niższy kolor pola gry. Następnie zamieńmy kolory pola 
gry i tła. Zatem widoczny kolor tła będzie w rzeczywistości 
kolorem pola gry. Gracz zniknie poza tym fałszywym tłem. 
Teraz wycinamy otwór poprzez wykreślenie prawdziwego ko- 
loru tła. Gracz pokaże się. przed kolorem prawdziwego tła, 
lecz tylko w obszarze, gdzje było wykreślone prawdziwe tlo. 
W ten sposób gracz może mieć więcej niż 8 bitów rozdziel- 
czości poziomej. 

Innym zastosowaniem grafiki G — P są znaki specjalne. 
Istnieje wiele znaków, które przekraczają pionowe granice w 
normalnych zestawach znaków. Jednym ze sposobów jest 
utworzenie zestawów znaków specjalnych, które rozwiążą ten 
problem. Innym sposobem jest użycie gracza. W ten sposób 
mogą być tworzone indeksy, znaki całek i inne symbole spe- 
cjalne. 

Szczególnie przydatnym zastosowaniem graczy jest wyko- 
rzystanie ich w charakteijze kursora. Ze swoją zdolnością 
płynnego przemieszczania pię po całym ekranie, bez narusza- 
nia jego zawartości, są oni idealnie dostosowani do takich za- 
stosowań. Taki kursor może zmieniać kolor w miarę przemie- 
szczania się po ekranie. 

Grafika gracz — pocisk dostarcza wielu możliwości. Wyko- 
rzystanie jej w grach jako ruchomych obiektów jest oczywi- 
ste. Ma również zastosowanie poważne. Może zwiększyć ilość 
kolorów lub rozdzielczość obrazu. "Może prezentować znaki 
specjalne. Może być używana w charakterze kursora. A zatem 
wykorzystujmy ją. 

Ludwik PIELA, 
Tomasz MROWIEĆ 
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Emulator BASIC 1.1 dla CPC 464 (1) 


W niedługim czasie po ukazaniu się 
na rynku mikrokomputera CPC 464, po- 
lawili się. jego „młodsi bracia" — 664 i 
6128. Do podstawowych różnic między 
CPC 464, a nowszymi modelami należy 
zaliczyć: 

— zamianę pamięci zewnętrznej z 
magnetofonu na stację dyskietek 

— powiększenie pamięci RAM z 
64K do 128K (w przypadku 6128) 

— rozszerzenie listy rozkazów in- 
terpretera BASIC o szereg ins- 
trukcji. głównie graficznych. 

O ile wyeliminowanie dwóch pier- 
wszych różnic, wymaga dosyć dużego 
wydatku, o tyle likwidację trzeciej mo- 
żemy dokonać dzięki emulatorowi 
opublikowanemu w piśmie Schneider 
International 10/86. Celem zainstalo- 
wania rozszerzonej wersji interpretera 
należy wprowadzić krótki program 
LOADER. Program ten' ładuje do pa- 
mięci RAM program maszynowy 
EMU.BIN, zawierający rozszerzenia. 
Nie są to RSX'y (tzn. komendy zewnę- 
trzne względem interpretera — po- 
przedzane każdorazowo znakiem), lecz 
instrukcje stosowane na tych samych 
zasadach co komendy BASIC 1 .0. 

Program EMULATOR, składuje w 
pamięci zewnętrznej (kaseta lub 
dyskietka) program maszynowy 
EMU.BIN, ładowany w następnej tazie 


LOADERem. Instrukcje BASIC 1.1 nie 
występujące w wersji 1 .0 to: 

- CURSOR 

- ON BREAK i ON BREAK STOP 

- MASK 

V GRAPHICS PEN 

- GRAPHICS PAPER 

- FRAME 

- FILL 

- COPYCHRS 

- CLEAR INPUT 

Dodatkowo komendy graficzne 
MOVE, MOVER. PLOT, PLOTR, DRAW. 
DRAWR zawierają dodatkowy para-; 
metr: tryb tuszu. Powyższe komendy 
zostaną omówione i zilustrowane przy- 
kładami w kolejnym numerze „IKS'a". 

J. R 

1® REH 

20 REK • 664/6128 - Enulator dla CPC 464 * 

30 REK »«#H»*****«»*»»##»#»MMM»*#»**#»*** 
40 REK * autor: N. Uphoff 1986 t 
50 REK * » 

68 REK »»»**»»»»*«##»«****«»***»*»*»•«*««« 
70 cdr=MlFF:HEK0RY adr 
80 FOR bl=l TO 9 
90 FOR i=l TO 128 

100 READ bytei:IF byte$=*E0F* THEN 150 

110 v=VAL('4'+byte0) :s=s+v 

120 adr=adr+l:POKE adr»v 

130 N£XT i 

140 NEXT bl 


150 SWE'eBU,bin'.MA200 t Ł439 
160 EKD 
170 » 

160 Błock 1 

190 DATA 3ErC3r32rl6rACr21r83rA2 
200 DATA 22il7iAC»32»19»AC»21»8E 
210 DATA A2r22rlArACr32r47.ACr21 
220 DATA 9ArA2r22r08rACr32r04rAC 
230 DATA 21.B4rA4r22r05FACr32.4D 
240 DATA AC«21>2AiA3>22r0E>At>32 
250 DATA 81»AC»21 fABiA 2»22»02»AC 
260 DATA 32r90rBBr21rB8rA2r22r91 
270 DATA BBr32rDErBB.21rllrA3t22 
280 DATA DF»BB»32iC«rBB*21tF5»A2 
298 DATA 22rClrBB.32rC3rBBr21.FA 
300 DATA A2»22»C4»BB»21»53»A3f22 
310 DATA E3rBDr21r62rA3.22rE9.BD 
320 DATA 3A>00FBCFFErC3rC8r32f36 
330 DATA A6t 2A»81 »BC»22»37> A6»3E 
140 DATA C3fl?ł80*E?«?t •B?»A2»2? 

360 DATA 81»BC»C9.11iEl»A5rCDr27 
370 DATA E3rD0rFlrC3r61rBFr21rEl 
380 DATA A5.CDrl3rE3rD4r7Er23rCl 
390 DATA ClrC9.FE.C5rD0rD6rBArDl 
400 DATA EB.4F.06r00r21rlCrA6r49 
410 DATA C3.BBrCDr21r91rB2r75rC3 
420 DATA 68iA2rE5>3A»36'A6'32»80 
430 DATA BCi2Ar37FA6i22.8lFBC.CD 
440 DATA 80fBCf21f80fBCf36fC3f21 
450 DATA B2.A2f22fB1fBCfE1fDBfC8 
460 DATA FEfIA»37f3FfC0»B7f37fC9 

i® "?»C8.Si.E3,C5,55,SD.30 
49? 2» r 4 aA.3EF*2.C3FFS.«»BFS5 
5W PAT 4 9?.8S.E1.E3."7.C9.PB?A5 
510 PATA 1 8 > * CD .DE ‘ *5 f F3 . 59 . f.B 


KRESKA (BASIC CPC 464) — zakończenie 


Przedstawione w poprzednim od- 
cinku komendy iSCREENCOPY i 
;SCREENSHOW posłużyły mi do za- 
pamiętania w dowolnym momencie 
rysunku tworzonego przy wykorzy- 
staniu programu KRESKA, a także 
umożliwiają one powrót do określo- 
nego etapu rysowania. 

Ostatnią funkcją, którą proponuję 
dołączyć do programu, jest wpro- 
wadzanie tekstu do grafiki. Lokali- 
zację tekstu na ekranie determinuje 
w tym wypadku bieżące położenie 
kursora graficznego. W programie 
umieściłem instrukcję TAG, która 
pozwala na mieszanie tekstu z grafi- 
ką. Rozkaz TAGOFF kasuje działa- 
nie rozkazu TAG (przywrócony jest 
druk tekstu na bieżącej pozycji kur- 
sora tekstowego). 

Na tym zakończyłbym rozszerza- 
nie programu KRESKA. Mam na- 
dzieję, że kontynuowany przez wiele 
wydań „IKS-a" cykl artykułów stał 
się dla wielu czytelników okazją do 
własnych przemyśleń i inspiracją do 
poszukiwań. 

Janek 


190 LOCATE #2, 2, 2: PRINT 12, " (Z) AK. PRACY 
(ODCZYT ODPISANIE"; 

231 RŁmnttnntmntmmtmttmt 

232 REK ODCZYT RYSUNKU Z ROK 

233 nmtunuuuttutumnutittni 

234 IF I NKEY ( 34 ) =0 THEN t SCREENSHOW: GOTO 
180 

235 REntmmttmmmtmmmtmt 

236 REN ZAPIS RYSUNKU DO ROM 

237 REnttmmtmmtmmmłttmtt 

238 IF INKEY (59) =0 THEN ISCREENCOPY: GOTO 
180 

715 IF I NKEY ( 2) =0 THEN 60T0 5000 

4997 ren mmmtttttmtttmmmt 

-4998 REN WPROWADZANIE TEKSTU 

4999 ren ttnmttmmttunutttnn 

5000 CLS #2: PRINT #2,'(T)EKST 

LUB <"+CHR*(2A0)+“) ■; 

5010 IF INKEY (0) =0 THEN GOTO 650 
5020 IF INKEY (51 >=0 THEN 5050 
5040 60T0 5010 

i 5050 rbX=0:CLS I2:PRINT #2, 'WPROWADŹ. TE 


KSTU WYŁĄCZONE LUB P"; 

5060 LOCATE 02, 1,2: PRINT #2, 'UŻYWAJ :'+C 
HR$ (240) +CHR$ (242)+CHR$ (243) +CHR$ (241 ) ♦" 
C0PY LUB JOYSTICK' 

5070 60SUB 1070: G0SUB 1210:60SUB 1120:60 

SUB 1010: 60SUB 1070 

5080 IF INKEY ( 27 >=0 THEN GOTO 5000 

5090 IF INKEY (Fit) =0 AND rbX=0 THEN rbX=l 
: FOR i=l TO 200:NEXT i:L0CATE .42,18, 1 : PR 
INT 12, 'WŁĄCZONE ":F0R i=l TO 1000:NEXT 
i : GOTO 5110 ELSE IF INKEY(FX)=0 AND rbX= 
1 THEN rbX=0: LOCATE *2, 18, lsPRINT #2, 'WY 
ŁĄCZONE" : FOR i=l TO 200:NEXT i:60T0 5070 

5100 GOTO 5070 

5110 CLS #2: PRINT #2, 'WCIŚNIJ klawisz - 
ENTER ! ' : PEN 43. kolor: INPUT 03,tekst$:CL 
S 03: PEN #3, 1 : PRINT #3, CHRt <21 1 ) +CHR* < 32 
) +CHR$ (211) +CHR$ ( 32) ; : CLS 02: INPUT 02, "P 
odaj tekst:', tekst* 

5120 TA6 01 

5125 PLOT XP0S,YP0S, kolor 
5130 PRINT #1 , tekst$; 

5140 rbX=0: TA60FF łl 
5150 GOTO 5050 
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=-2f •Nniwm<ł<'in»Hiiłł IIdc- 3 
531 :a’A 59/B9,FBfC*.El*F3.C!>.55 ' 

549 pata nę.sc.KfW.df^.cs.is 
551 PATA C2.CB.B8.A5.F3.S9.C8.S9 
56# DA’ A D9.FB*r#»CD»55.?D»T>#»3E 
579 »TA 04.CD.FB.C1.E5.CD.59.BC 

58) DATA El.C9.2B.7EiFE.29.28.FA 

59) DATA FE.2C.C9.2B.E5.2A.34,AE 
6)) DATA CD» 3“ .DD.21.28.A6.CD.AA 

61) DATA FF.El.38.98.Ft.5B.C9.CD 

62) DATA 93.Ht.18.03.CB.El.BB.Dl 

63) DATA C3 ł AT»D)»3A.y.A6»2F»32 
6A) DATA 33,A6,CB.3C.18.AF,32,33 
45) DATA A6.C9,3A»33»A6.87»20f0F 

66) DATA 3A,39,B3»B8,C2.CC.B1,3A 

67) DATA 30,A6,B7,CA,CC,B1,C9,3A 

68) DATA 46. B3,B7.3A»2F» A6.29.ll 

69) 'HHHmsHmiHUHłH Błock A 

7 ot 1-A - v7»3. .i>o.5A.5ó,53.4/ 

71) DATA DA.CC.B1.3A.39.83.47.18 
T2) DATA BE»E5,D5.C5*21.CF.B1,5F 

73) DATA 3A,07,52,ED,ł4,47,AF,CB 

74) DATA 91,30ł95>CB»93»35*91.B6 

75) DATA T!3łi#» p 4»AFf7Bf32»2Ff A6 
760 DATA 3A»38,A6»B7,20.5A,2A»38 

77) DATĄ B3.78.AC.A1.AC.C1. 18.91 

78) DATA Fl,47.Ci»El.C3,CC»81.CA 

79) DATA A3,FF,CD»96,9C»32»3A,53 
3)) DATA CD.1A.16.CS.FT, 16. D2.6S 
cl) WTA A4»t5iFD»Ei«C5ł?DfElfCD 
32) DA T A A9.98.3A.3A.B3.57.AE.A1 
63) DATA 28»7E»3A»38*B3»5F»AEfAl 

34) DATA 28 » 76 » 96 » » FD # 23 » CD » 2D 

35) DATA CC,3A,34,B3,FB*95,38,52 

36) Błock 5 ’ 

87) DATA 7A»AE»Al»28f*"f7B»AEłAl 

88) PATA 2)*EA.18iA4*AE»77»CB»28 


Mikrokomputery 
IBM PC (4) 

Jacek WOJTALA 

Każdy z mikrokomputerów osobistych wyposażony 
jest w system operacyjny czyli zespół programów 
umożliwiających wykorzystanie zasobów sprzętowych 
mikrokomputera, organizujących i kontrolujących je- 
go pracę. 

Mikrokomputery IBM PC/XT mogą pracować pod 
następującymi systemami operacyjnymi: DOS, 

CP/M-86, CONCURRENT DOS, CONCURRENT 
CP/M. Mikrokomputery IBM PC/AT ponadto mogą 
pracować pod systemem XENIX, wersją systemu 
UNIX. 

System operacyjny DOS (Disk Operating System) jest 
najpopularniejszym z systemów wykorzystywanych w mi- 
krokomputerach IBM PC. większość oprogramowania pra- 
cuje właśnie pod tym systemem. 

Polecenia DOS dzielą się na dwa typy: 

Polecenia wewnętrzne i polecenia zewnętrzne. Polece- 
nia wewnętrzne wykonywane są natychmiast ponieważ 
wbudowane są w DOS. Jeżeli system został wczytany do 
pamięci operacyjnej, wówczas dyskietka ze zbiorami DOS 
nie jest potrzebna do wykonania tych poleceń. 

Polecenia zewnętrzne umieszczone są na dyskietce jako 
zbiory programowe i przed ich wykonaniem muszą być 
przeczytane. 

Dowolne zbiory z rozszerzeniem nazwy zbioru BAT, 
.COM, EXE są traktowane jako polecenia zewnętrzne. 


126) DATA CD,60,H8,E5,CD,19,FA,E1 

127) DATA C9,3E,49,B9,C0,FI,C1,F5 
1289 DATA 3E,D0,B8,C0,3E,93,B9,C9 
129) DATA F1,E5,80,09.AF,CD,0A,FF 
13)9 DATA E1,C9,F1,C1,F5,3E,CB,B8 
1319 DATA C0.3E,D6,B9.C0.3E,8B,BE 
1329 DATA C9»F1» 11>61 > A5»1B»C3> DA 

133) DATA C8,06»0)»FF.FF,C9»90,CD 

134) DATA 55,DD,38,19,3E.02.CD,FB 

135) DATA C1.B7,CC,84,BB,C4,81,8B 

1369 DATA CD,55,DD,D0,3E,02.CD,FB 
1379 Błock 8 

138) DATA Cl , B7. CA, 7E ,BB *C3 , 7B, BB 

139) DATA 23.01,E4,BB»FE,BA,CA,18 
t --)0 Dr. TA C2. TE. BSiC2»C5'»D&tCIłt55 

141) DATA. BB,3B.0A,CD,4B.C2,CD,D8 

142) DA r A A5fCDr55.DDtD8r3E.92.CD 

143) DATA FB.Cl.32.39iA6.C9.CD.4B 
1449 DATA C2.E5.DF.C7.A3.El.C9.CD 
1459 DATA 55.DD.38.9A>CD.67.CEt32 
1469 DATA 2F,A6,CD,55,DD,D0,3E,02 
1479 DATA CD.FB.C1.32.31.A6.C9.CD 
1489 DATA 99.BB.38.FB.C9.CF.A9.92 
149) DATA CF.F6.97.CF.F4.95.CF.F1 

15) 0 DATA 95.46.49.4C.CC.DD.47.52 

151) DATA 41.59.48.49. 43.D3.DE. 4D 
1529 DATA 41.53.CB.CM6.52.41,4D 
1539 DATA C5.E9.43.55.52.53.4F.D2 
1549 Błock 9 

1559 DATA El. 43. 4C. 45. 41. 52. 29. 49 
1569 ATA 4E.59.55.D4.E2.43.4F.59 

157) DATA 59. 43.48.52. A4.7E.44. 45 

158) BATA 52.B2.49.)8,AE.A5.88.A5 
1590 DATA B7.A5.19.BD.67.A5.CF.A5 

16) 9 DATA 94.95.AE.AF.BC.BD.08.FF 
1619 DATA 99.FF.FF.99. )8.98.)8. 88 
162) PATA 90. EOF 


Pozwala to na tworzenie nowych, unikalnych poleceń i do- 
łączenie ich do systemu operacyjnego. 

Struktura systemu DOS 

BOOT STRAP jest to program ładowania, umieszczony 
na ścieżce 0. w sektorze 1 . na stronie 0 dyskietki, zajmuje 
51 2 bajtów (1 sektor). Powoduje odszukanie w katalogach i 
wczytanie do pamięci operacyjnej programów IBMBIO.- 
COM, IBMDOS.COM. 

IBMBIO.COM jest to program pośredniczący między pro- 
cedurami umieszczonymi w BIOS (Basic Input Output Sy- 
stem), a programem IBMDOS.COM. Program dokonuje 
również obróbki zbioru konfiguracyjnego CONFIG. SYS 
Zajmuje 9 sektorów. 

IBMDOS.COM jest. to program z rezydentem systemu 
operacyjnego, zarządza zbiorami na dyskach, wpisuje 
adresy procedur użytkowych, wczytuje do pamięci opera- 
cyjnej interpreter poleceń COMMAND.COM. Program 
zajmuje 34 sektory. 

COMMAND.COM służy do interpretacji i wykonywania 
poleceń wewnętrznych oraz do wczytywania do pamięci 
operacyjnej poleceń zewnętrznych (lub programów użyt- 
kowych) i ich wykonywania. Zajmuje 36 sektorów. 

PROGRAMY OBSŁUGI POLECEŃ ZEWNĘTRZNYCH 

umieszczone są na dyskietce systemowej DOS lub w kata- 
logu systemowym na dysku stałym. 

Praca systemu DOS 

Po włączeniu zasilania (start zimny) mikrokomputera w 
pierwszej kolejności wykonywane są testy sprawdzające 
procesor, pamięć, klawiaturę itp. Następnie jedna z proce- 

» 
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899 PATA E5.CB.)!.DC.95.3C.7A,AZ 

98) PATA Al.28.t2.7B»AE.Al,2WB 

91) DATA CB.C).CB.48.2).)7.BD.2B 

92) DA T A DF.8A.A4.DD.23.CB.A9.CB 

93) DATA 8?.E!.E5»CB.99.BC.F?,M 

94) DATA 7A.AE.A1.28.12.7B.AE.A! 

95) DATA 28.0D.CB.E8.CB. 68.28. )7 

96) DATA DB.23.BF.8A.A4.DB.23.CB 

97) DATA 91.E1.3A.36.B3.FD .93.39 
939 DA^A 9F.Fp,?B.CD.13/9C.78.AE 

99) DATA A1.23.95.7A.AE.A1.29.A4 
!«*) DATA 2A.34.A6.7D.B4.CS.2B.22 
181) DA T A 34.A6.PF.78.Ai.C3.D3.A3 
102) DATA 7B.A4.FD.2A.89.AE.2B.56 
1)3) ’»***«»*'<*x»ii*ł»*x***łx Błock 6 
•04) DATA 28.5E.2B. 22.89 .AE.6E. 26 
1*34 DA • A -i"? i£9.G.n - . TD.C v "Eii 
1869 DATA 89. AE. 01 .03. 90. CD. 18. F6 
1073 DATA 33.17.EB.22.89.AF.DD.E5 
1880 DATA B1.FD.E5.C1.2B.72.2B.73 
1093 DATA 2B.71.2A.34.A6.23.22.34 
1190 DATA A6.D1.C1.C9.FE.03.28.41 
1119 DATA F£,AB»28.57.FE.9F.CA.4A 

112) DATA A5.FE2C.28.03rFE.2B.C0 

113) DATA 3E.02.F9.20.64.F1.C1.F5 
1149 DATA 3E.F8.B8.C8. 79.FE.EE. 28 
1159 DATA 15.FE.F5.C0.7E.2B.FE.72 

1169 DATA 29.FA.7E.3C.20.F6.23. CD 

1170 DATA 3F.DD.CD.37.DD.28.fi, CD 
1189 DATA FB,C£.CD.37,DB.2C,C3,F5 
1199 DATA F8.3E.9D.DB.C9.2A.34.AE 
1299 ’*M»*«iHH.ł*xł»mxM#™ Błock 7 

1219 DATA CD,3F,DD.FE,7C,28,03,FE 

1220 DATA 83,C9.E1,2A.C2.B0,CD.21 
1239 DATA FB.37.C9,3E.05.BB,C0,3E 
1249 DATA 1A.91,C0,B8,C9.F1,CD,F5 
1259 DATA C1.CD.D3,C1,CB,37,DD,29 


* 

dur BIOS-u powoduje ściągnięcie BOOT STRAP-u, ten z 
kolei wczytuje do pamięci IBMBIO.COM i IBMDOS.COM. 
Ostatni z programów wczytuje interpreter poleceń COM- 
MAND.COM. 

W dowolnej chwili praca systemu może być przerwana, 
można dokonać tzw. startu gorącego czyli spowodować 
ponowną inicjację systemu operacyjnego. 

Zbiory wsadowe 

Polecenia zawarte w zbiorze wsadowym, który musi 
mieć rozszerzenie nazwy zbioru .BAT, wykonywane są tak 
samo, jak gdyby zostały wprowadzone bezpośrednio. Ist- 
nieje siedem poleceń: ECHO, FOR, GOTO, IF. SHIFT, 
PAUSE, REM, które pozwalają kontrolować wykonywanie 
zbioru wsadowego. Ostatnim poleceniem zbioru może być 
nazwa innego zbioru wsadowego. 

Przy każdej inicjacji systemu DOS poszukuje w katalogu 
systemowym dysku, z którego był inicjowany, specjalnego 
zbioru wsadowego o nazwie AUTOEXEC.BAT. Zbiór ten 
jest automatycznie wykonywany po uruchomieniu syste- 
mu. 

Zbiór wsadowy może zawierać parametry, które będą 
zastępowane argumentami w trakcie jego wykonywania. 

Konfiguracja systemu 

Zbiór CONFIG. SYS jest specjalnym zbiorem, zawierają- 
cym listę poleceń konfiguracyjnych pozwalających m.in.: 
podać liczbę buforów systemowych; podać format daty i 
czasu; instalować programy obsługi urządzeń; podać licz- 
bę zbiorów, które mogą być otwarfe przez blok kontroli 
zbiorów. 

Podczas każdego startu systemu, DOS szuka — w kata- 
logu systemowym dysku, z którego był inicjowany — zbioru 
CONFIG. SYS. Polecenie zawarte w tym zbiorze. BREAK,. 
BUFFERS, COUNTRY, DEVICE, FCBS, FILES, LASTDRIVE. 
SHELL powodują zmianę standardowych poleceń konfigu- 
racyjnych systemu. Przykładowo posiadając program obs- 
ługi urządzenia, które symuluje stację dysków i po umie- 
szczeniu odpowiedniego polecenia DEVICE w zbiorze 
CONFIG. SYS, można wykorzystując część pamięci opera- 
cyjnej komputera zainstalować dysk wirtualny 

Katalogi strukturalne 

Katalog systemowy dyskietki czy dysku stałego może 
zmieścić ograniczoną liczbę tzw katalogów wejścio- 
wych. Katalogiem wejściowym może być zbiór, katalog 
niższego poziomu lub etykieta. Katalog systemowy dy- 
skietki jednostronnej (160 lub 18Ó KB) może przechować 
64 wejścia; katalog dyskietki dwustronnej (320 lub 360 KB) 


1 1 2 wejść; katalog dyskietki dużej pojemności (1,2 MB) 222 
wejścia; natomiast katalog dysku stałego 512 wejść. Aby 
uniknąć tych ograniczeń oraz aby skrócić czas poszuki- 
wania konkretnego zbioru przez DOS, zbiory przechowy- 
wane są w grupach zwanych katalogami niższych po- 
ziomów. Katalogi te nie posiadają ograniczeń na ilość 
zbiorów w nich zapisanych, jedynym ograniczeniem jest 
wielkość dostępnego obszaru dyskowego. 

Polecenia DOS 

Wersja 3.10. DOS posiada, łącznie z poleceniami do 
kontroli wykonywania zbioru AUTOEXEC. BAT, a bez pole- 
ceń konfiguracyjnych zbioru CONFIG. SYS, 55 poleceń 
wewnętrznych i zewnętrznych. Polecenia mogą być wyko- 
rzystane, m.in. do następujących operacji: 

— porównywania, kopiowania, wyświetlania, usuwania i 
zmiany nazw zbiorów; 

— formatowania dysku stałego i dyskietek; 

— uruchamiania programów użytkowych i systemo- 
wych, takich jak EDLIN, DEBUG i LINK; 

— ustawiania różnych opcji pracy drukarki i monitora; 

— żądania przerwania; 

— skierowania wyjścia drukarki na urządzenie komuni- 
kacji asynchronicznej; 

— odzyskiwania konkretnego zbioru z uszkodzonego 
dysku; 

— przesłania zawartości ekranu graficznego na drukar- 
kę; 

— drukowania zbiorów na drukarce podczas wykony- 
wania przez system innego zadania; 

— wykonywania kopii zapasowych;. 

— definiowania konsoli pomocniczej; 

— sortowania danych tekstowych; 

— poszukiwania łańcuchów znaków w tekście; 

— ustawiania znaku gotowości systemu; 

— określania środowiska systemu; 

— zabezpieczania zbiorów przed skasowaniem; 

— zmiany etykiety dysku; 

— tworzenia, usuwania i zmieniania katalogów niższego 
poziomu; 

— wyświetlania struktury katalogu; 

— ustawiania daty i czasu oraz ich formatu; 

. — sprawdzania błędów; 

— przyłączania urządzeń do katalogu -innego urządzenia. 

Większość poleceń systemu DOS wersji 3.10 może być 

wykorzystana do pracy w sieci. 

Do systemu operacyjnego dołączone są program EDLIN 
(edytor tekstów), program LINK (do łączenia programów), 
program DEBUG (do uruchamiania i testowania progra- 
mów). 

Jacek WOJTALA 


Kompilator Hisoft — Pascal 


Programy ilustrujące, kurs języka Pascal 
prowadzonego w „IKS-ie" pisane są przy 
użyciu kompilatora TURBO PASCAL. Jest 
on bardzo wygodny w użyciu, lecz dostępny 
tylko dla komputerów pracujących pod 
ĆP/M. Nie jest więc dostępny na większoś- 
ci użytkowanych przez naszych Czytelników 
komputerach Znacznie bardziej rozpow- 
szechniony jest kompilator HISOFT-PAS- 
CAL. Trzeba przyznać, że kompilator ten 
jest mniej wygodny w użyciu, ale umożliwia 
uruchomienie tych programów na kompute- 
rach nie posiadających systemu CP/M. 
Omawiana poniżej wersja kompilatora do- 
tyczy P.C. „Spectrum’’, lecz różnice wystę- 
pujące w innych wersjach są nieznaczne. 
Poprawnie wczytany kompilator rozpoczyna 
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działanie od zadania pytań dotyczących lo- 
kalizacji poszczególnych bloków, dla więk- 
szości programów wystarczy odpowiedzieć 
wciskając klawisz ENTER, co powoduje 
standardową organizację pamięci. 

Po zakończeniu wczytywania możemy 
zacząć wpisywać nasz program. Linie pro- 
gramu należy ponumerować tak jak w języ- 
ku Basic Po wpisaniu każdej linii wci- 
skamy klawisz ENTER. 

W celu wprowadzenia poprawek w do- 
wolnej linii przywołujemy ją instrukcją En (n 
— numer edytowanej linii). 

Na dole ekranu ukazuje się zapis linii w 
wersji pierwotnej, a poniżej numer tej linii, od 
którego należy wpisać zapis poprawny, 


Istnieją trzy możliwości wprowadzania 
poprawek: 

— wprowadzić pełny nowy zapis z klawia- 
tury; 

— przesunąć kursor, za pomocą klawisza 
spacji do miejsca, w którym tekst ma być 
poprawiony, nacisnąć „I", w wyniku cze- 
go pojawi się znak kursora „x".- Wpisy- 
wanie nowych znaków spowoduje roz- 
sunięcie się pozostałych znaków; 

— po ustawieniu kursora we właściwe 
miejsce nacisnąć klawisz „C”, kursor sta- 
je się znakiem. ,+". Wprowadzany nowy 
tekst zapisywany jest na istniejącym. 

Naciśnięcie klawisza „X" powoduje 
przejście kursora na koniec linii ze spisa- 
niem pozostałych znaków linii poprawionej. 
Kursor zmienia się na znak „x". Pierwsze 
naciśnięcie ENTER powoduje powrót do 
normalnego kursora, drugie naciśnięcie — 
wprowadzenie skorygowanej linii programu. 



ATARI 


Maszyna 
do pisania 

Zadaniem programu jest wykorzystanie 
drukarki ATARI 1029 do druku tekstu z pol- 
skimi literami. Tekst nie może zawierać więcej 
niż 80 znaków w wierszu. 

Wprowadzony zestaw polskich znaków 
otrzymuje się wciskając klawisz CONTROL i 
”A” (uzyskuje się literę ą), „C” (ć), ”E” (ę), 
”L” (ł), ”N” (ń), "O? (6), ”S” (ś), ”Z” (ż), 

(ź). 

Przed przystąpieniem do pisania należy 
ustawić lewy i prawy margines. W czasie pi- 
sania istnieje możliwość (w dowolnym mo- 
mencie) zmiany marginesów, w tym celu na- 
leży nacisnąć klawisz CONTROL i ”Q”. Je-, 
żeli w trakcie pisania użytkownik pomyli się, 
powinien wtedy nacisnąć klawisz CONTROL 
i ”P”. Wpisany fragment wiersza jęst wtedy 
kasowany, a piszący może wprowadzić go po- 
nownie. 

Przy dochodzeniu pisanego wiersza do 
prawego marginesu, trzy ostatnie znaki są 
sygnalizowane dźwiękiem. Po wprowadzeniu 
ostatniego znaku wyłączana jest automaty- 
cznie klawiatura i następuje wydruk. Jeśli pi- 
szący decyduje się wydrukować krótszy wiersz 
niż przewiduje. to prawy margines, należy na- 
cisnąć RETURN. Po wykonaniu przez dru- 
karkę wydruku komputer oczekuje wprowa- 
dzenia następnego wiersza. Odstęp między 
wierszami wynosi cztery skoki wałka maszyny 
do pisania. Zwiększenie tego odstępu można 
uzyskać wciskając klawisz RETURN. 

W celu stworzenia wizualnej kontroli nad, 
wprowadzanym tekstem, w górnej części 
ekranu podane są kolejno: wartość lewego i 
prawego marginesu, zliczanie znaków w wier- 
szu, zliczanie wierszy. 

W programie nie zostały uwzględnione 
duże polskie znaki. 

J. JANIEC 


10 ? CHR* <125) 

400 REM ************************ 
410 REM Wykorzystanie drukarki 
420 REM ATARI 1029 Jako maszyny 
430 REM do pisania z zestawem 
440 REM polskich liter 
450 REM 

460 REM Janusz J. 

470 REM Warszawa 1986,12 


480 REM ************************ 

500 GRAPHICS 2 : COLOR 1 

510 POSITION 8,3-? #6; "MINI" 

520 POSITION 7,5-? #6; "EDYTOR" 

525 FOR A==0 TO 100-NEXT A 

530 POKE 656,1-POKE 752,1-? "START 

560 IF PEEK < 53279 ) =6 THEN 600 
570 POSITION 8,3-? #6j CHR*<205) ; CH 
R* < 20 1 ) ; CHR* < 206 ) ; CHR* <201) 

575 POSITION 7,5-? #6; CHR* < 197) > CH 
R* <196) , CHR$<217) ; CHR*<212) ; CHR*<2 
07) ; CHR*<210) 

580 FOR fl=0 TO 1 00 - NEXT A 
590 GOTO 510 
600 GRAPHICS 0 = ? 

620 ? " ** PROSZĘ CZEKAC ** 


1000 REM ************************ 

1010 N=57344-M=32768 

1020 FOR 1=0 TO 1023 -POKE M+I,PEEł 

<N+I ) - NEXT I 

1040 A=M+776 - B=M+520 

1059 FOR 1*0 TO 207 -POKE B+I,PEEK< 

A+I ) - NEXT I 

1070 A*M+976 - B=M+5 1 2 

1080 FOR 1=0 TO 7 -POKE B+I,PEEK<A+ 

I ) - NEXT I 

1100 FOR X=1 TO 21-READ MA, AA -POKE 
M+MA, AA - NEXT X 
1140 POKE 756,128 
1150 DATA 513,12,514,24,515,124 
1160 DATA 527,3,537, 12,538,24 
1170 DATA 539,60,559,6,611,28 
1180 DATA 612,56,625,12,626,24 
1190 DATA 627,124,633,12,634,24 
1200 DATA 635,60,664,6,665,12 
1210 DATA 721,24,722,0,723,124 

1230 DATA 0,9,11,45,73,1,0 

1231 DATA 4,42,42,30,3,1,0 
1233 DATA 0,6,9,41,73,9,0 
1235 DATA 28,42,42,42,19,1,0 
1242 DATA 0,0,4, 127, 17,0,0 


1244 DftTA 0,8,7,40,72,7,0 

1245 DATA 0,6,9,41,73,6,0 
1249 DATA 0,9,21,53,85,2,0 
1256 DATA 0, 17, 19,85,25, 17,0 
1320 C x 0 - DIM A*<80) - OPEN #3,4,0, "K 

OPEN #1, 8,0, "P-" -OPEN #2,8,0, "P 

1380 ? CHR*<125)-IF A*16 THEN 1448 
1400 POSITION 2,2-? "LEWY MARGINES 
- INPUT Y- IF Y<1 OR Y>80 THEN 14 

1420 POSITION 2,4-?- "PRAWY MARGINE 
S- "i -INPUT YY-IF YY<1 OR YY>80 THE 
N 1420 

1440 REM ************************ 
1442 W-5 

1450 FOR X*1 TO Y=A*<X,X)«CHR*<32> 
NEXT X 

1470 ? CHR*< 125) -POKE 752,1-B=Y-C» 
C+l -POSITION 29,1-? "WIERSZ- "iC 
1500 GOTO 1520 

1510 B=B+1 - POKE 730,5- IF B>YY-3 TH 
EH POKE 730,0 
1515 IF B-YY OR A=155 THEN A*<6,B) 
=CHR#< 155) -POKE 62 1,255 -GOTO 1630 
1520 POSITION 2,1-? "MARG.L - " ; Y; " 

P -"jYY) m ZNAK-" 

1525 K=B-Y - IF K<40 THEN 1538 
1527 K=K-40 - W* 7 

1530 POKE 621,0 -POSITION K,W-? CHR 
*< 160)1 -GET #3, A 

1540 IF A* 16 OR A=17 THEN A*= 

C-l 1 GÓto 1380 

1555 A*<B,B)=CHR*<A) -POSITION 24,1 
= ? B+l -POSITION K, W - ? CHR* <A) ; 

1580 IF B<YY-2 THEN 1510 
1590 FOR X*1 TO 5 - SOUND 0,50,10,15 
- NEXT 1 X - SOUND 0,0,0,0-GOTO 1510 
1620 REM ************************ 
1630 FpR BB=1 TO B - A=ASC<A*<BB, BB) 
) : ;[ 

1650 IF A=0 OR A=1 OR A=3 OR A=5 ( 
R A=12’ OR A=14 OR A=15 OR A=19 OR 
A=26 THEN 1780 
1660 ? #2;CHR*<A); 

1670 NEXT BB 

1675 IF A*<B-1,B-1)=CHR*<155) THEN 
1690 

1680 IF B=YY THEN LPRINT 
1690 A» 125 -GOTO 1442 
1700 RESTORE 1230+A 
1710 ? # 1 ; CHR* < 27 ) ; CHR* < 54 ) i CHR* < 2 
7) ; CHR* < 65) ; CHR*<0) ; CHR*<7) ; 

1720 FOR X=0 TO 6-READ A 
1740 ? #1 i CHR*<A) ; - NEXT X 
1760 GOTO 1670 


Dodatkowo w tej fazie można używać dyrek- 
tyw: 

Dn.m — kasuje linie między nam: 

O — zakończenie edycji z pominięciem 
zmian; 

L — wypisanie całej linii wraz z niewidoczną 
częścią za kursorem. 

Po wyjściu z trybu edycji możemy uzyskać: 
L n.m — listuje na ekranie linie od n do m; 
Mn.m — zastąpienie linii m tekstem z linii n 
(kopiowanie linii); 

Nn.m — przenumerowanie linii od linii n do 
końca programu, nr linii następnej jest o m 
większy od poprzedniej. 

Gotowy program należy wyprowadzić na 
taśmę. Radzę robić to stosunkowo często, 
gdyż kompilator ma tendencje do „zawie- 
szania się" (komputer przestaje reagować 
na naciskanie jakichkolwiek klawiszy). W 
tym przypadku jedyną radą jest wyłączenie 
go na moment i ponowne wczytanie kompi- 
latora i programu. 


Wyprowadzenia na taśmę lub dysk doko- 
nujemy instrukcją Pn.m.s, instrukcją tą wy- 
prowadzamy na taśmę linie o numerach od n 
do m w bloku o nazwie s. Ponowne wczyta- 
nie dokonujemy instrukcją G.s (s — nazwa 
bloku), 

Teraz możemy przejść do kompilacji i 
uruchomienia programu. Instrukcja C n po- 
woduje kompilacje programu od linii n do 
końca. W razie wykrycia błędu kompilacja 
jest przerywana i drukowana informacja o błę- 
dzie. 

Po pomyślnym zakończeniu kompilacji 
drukowane jest pytanie ”RUN?”. Naciśnię- 
cie klawisza ”Y” powoduje uruchomienie 
programu wynikowego. Ponowne urucho- 
mienie uzyskujemy naciskając klawisz ”R" 

W celu stworzenia kompletnego progra- 
mu wynikowego składa się go z podprogra- 
mów standardowych, podprogramów wspoma- 
gających i przetłumaczonego programu uży- 


wamy instrukcji TN (n-numer początkowej 
linii programu). 

Do podstawowych błędów wykrywanych 
w trakcie kompilacji należą: 

1 — zbyt duża liczba; 

2 — oczekiwano średnika; 

3 — wykryto niezadeklarowany identyfika- . 
tor; 

4 — oczekiwano identyfikatora; 

5—6 — oczekiwano "="; 

8—9 —i oczekiwano ")"; 

1 0 — niewłaściwy typ, 

11 — ączekiwano 

1 2 oczekiwano wskaźnika; 

13—14 — oczekiwano stałej; 

25—28 — oczekiwano "THEN", "DO", "TO", 

20— 23 — oczekiwano "OF", ". "; 
"PROGRAM" 

25 — oczekiwano "BEGIN" 

opracował CEZARY DOBROWOLSKI 
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— Zaczęło się to 5 lat temu — wspomina por. Mieczysław 
Skonieczny, opiekun KNP — szkoła dysponowała wó- 
wczas komputerem ze standardowym zestawem urządzeń 
zewnętrznych. Praca sekcji skupiała się na poznawaniu 
możliwości maszyny i podstaw informatyki. Dla nieprofe- 
sjonalistów były to sprawy chyba zbyt mało frapujące. Mie- 
liśmy bowiem problemy z naborem chętnych. 

Punktem zwrotnym w działalności koła stało się wyposa- 
żenie szkoły w zestawy mikrokomputerowe. Zaczęli od 
trzech mikrokomputerów ZX Spectrum +. Rok temu otrzy- 
mali 8 zestawów Amstrad CPC 61 28. Wówczas to zainte- 
resowanie pracą sekcji informatyki, wśród podchorążych i 
kadetów znacznie wzrosło. Po ścisłej selekcji zaszczytu 
bycia jej członkiem dostąpiło 40 chętnych. Autorzy kon- 
cepcji uaktywnienia sekcji zadali sobie wiele trudu, opra- 
cowali zasady działalności, wzór statutu oraz prawa i obo- 
wiązki członków Rozpisano również cele i zadania w 
szczegółach. Pierwsze tematy są łatwe: omówienie mikro- 
komputera Amstrad CPC 61 28. ogólne uwagi o programo- 
waniu, krótka charakterystyka języka BASIC czy omówie- 
nie zasad opracowania i edycji programu na mikrokompu- 
terze. Później wzrasta stopień trudności, realizacja instruk- 
cji w języku BASIC i instrukcje skoku, projekt rozwiązań 
graficznych ekranu, algorytm realizacji programu. Takie 
programowe zajęcia odbywają się 3—4 razy w miesiącu. 
Poza tym, członkowie sekcji uczestniczą w organizowaniu 
ważniejszych imprez na terenie uczelni. Ponad 4 miesiące 
trwał otwarty turniej szachowy, gdzie przeciwnikiem za- 
wodników był mikrokomputer. Startowało w nim 60 szachi- 
stów. W wyniku pucharowego systemu wyłoniono pięciu 
zwycięzców. I tak to zabawa edukacyjna wpleciona zosta- 
ła w proces nauczania. 

Sekcja informatyki KNP była również współorganizato- 
rem ogólnokrajowego sympozjum naukowego nt. wykorzy- 
stania mikrokomputerów w systemie dydaktycznym. 
Członkowie różnych sekcji prezentowali wybrane progra- 
my dydaktyczne wspomagające proces nauczania. Pięć z 
nich opracowała sekcja informatyki. Trzeba przyznać, że 
podchorążym i kadetom stworzono bardzo dobre warunki 
do pracy naukowej. Posiadają odpowiednią salę kompute- 
rową, bibliotekę. Dobrym duchem sekcji jest jej kierownik 
st. kpr. kdt Grzegorz Siankowski. — Moje zainteresowa- 
nia — mówi — zrodziły się w czasie mikrokomputerowych 
gier. Najpierw była fascynacja samą grą, a później docho- 
dzenie do tego, jak ona powstaje. Zaczęła się żmudna praca 
od podstaw: poznanie języka, komend, pisanie programu. 
Teraz najciekawsze jest oglądanie efektu programowania. 

Na przykład program „budowa i zasady działania mikro- 
komputera" tworzyli wspólnie z opiekunem sekcji prawie 
miesiąc. Bywało, że po ośmiu godzinach ślęczenia, oczy i 
głowa bolały, ale coś z tej pracy pozostało. I to cieszy, to 
wciąga bez reszty. Mieliśmy okazję obejrzenia kilku pro- 
gramów dydaktycznych i trzeba powiedzieć, że są to uda- 
ne dzieła i o to przecież chodzi. 

Jerzy RAUBE 




Czołgiści wśród 
mikrokomputerów 


Foto: Jan Zelman 
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Komputer 
u kierowców 

Ten program opracowano w Wyższej Szkole Oficerskiej 
Wojsk Pancernych im. S. Czarnieckiego w Poznaniu Prze- 
znaczony jest do badania kierowców, a zastąpić może nie- 
kiedy urządzenia wykorzystywane w Wojskowej Poradni 
Psychotechnicznej. 

W tym przypadku program symuluje pracę aparatu 
PIÓRKOWSKI służącego do oceny koordynacji wzroko- 
wo-ruchowej i stopnia koncentracji uwagi kierowców. 

Pakiet programów użytkowych obejmuje 4 segmenty: 

— menu główne, które informuje użytkownika o możli- 
wościach pakietu, 

— program badający czas reakcji prostej i z wyborem 
kierowców; 

— symblator aparatu PIÓRKOWSKI do badania koor- 
dynacji wzrokowo-ruchowej i stopnia koncentracji 
uwagi kierowców; 

— . program badający organizację przestrzenną i szyb- 
kość podejmowania decyzji przez kierowcę 

Kierowca poddawany jest testowi koordynacji wzroko- 
wo-ruchowej i stopnia koncentracji uwagi w 2 etapach; 

— etajD próbny: emisja dowolnej ilości prób (w zale- 
żności od czasu reakcji badanego (w czasie 30 se- 
kund); 

— etap właściwy, emisja 1 50 prób w jednakowych od- 
stępach czasu. 

Etap próbny ma na celu przygotowanie badanego kie- 
rowcy do właściwej części testu i oswojenia użytkownika 
za sprzętem mikrokomputerowym. Na tym etapie nie jest 
badany czas reakcji. Kolejne losowe wyświetlenie lampki 
jest uzależnione od reakcji kierowcy. 

Etap właściwy polega na losowym zapalaniu lampek w 
równych odstępach czasowych. Mikrokomputer zalicza 
ilość: 

— poprawnych reakęji (badany kierowca zdążył nacis- 
nąć właściwy klawisz); 

— błędnych reakcji (badany kierowca nie zdązył nacis- 
nąć właściwego klawisza lub nacisnął klawisz ze 
złym odpowiednikiem cyfrowym). 

Po zakończeniu etapu właściwego są wyświetlane wyni- 
ki badania, które zawierają: 

— sumaryczną ilość prób dobrych: 

— sumaryczną ilość prób złych, 

— ilość prób złych w 1 i 2 części etapu właściwego. 

Etap właściwy podzielono na dwie części (każda po 75 

prób), aoy obiektywniej ocenić użytkownika uwzględniając 
proces zmęczenia badaniem. W dolnej części ekranu 'wy- 
świetlana jest ocena słowna, określająca stopień przydat- 
ności do wykonywania zawodu kierowcy Poniżej pokazuje 
się ocena w skali czterostopniowej. 

Do segmentów menu głównego i programu właściwego 
dołączono podprogram, który umożliwia wypisywanie tek- 
stów na ekranie monitora z uwzględnieniem liter charakte- 
rystycznych dla pisowni w języku polskim (np. ą, ę, ń, I). 
Wpływa to na zwiększenie czytelności prezentowanych in- 
formacji przez użytkownika mikrokomputera. W programie 
wykorzystano duże możliwości kolorystyczne, dźwiękowe i 
graficzne mikrokomputera AMSTRAD CPC 6128. 

Danuta KWASIŻUR, Mieczysław SKONIECZNY, 
Robert ZUGEHÓR 

iO HOOE tsCLEAP INPiJT-INK 0,0: INK 1,6: INK 2. 24: BO 

PPER 0: PAPER 0:CLS:G0SL ! P 900: WINDO* #1.1,40,10,16:% 

PAPER fl,2:CLS #i 

20 PEN #1,0: L0CATE tl,2,4:PP!NTtl, 'APARATU ’PIGRKQ 

USKP DO BADANIA KOORDY-- : LOCATE 1 1 ,.2, 5: PRINT#1 , "N 

ACJI WZPCKOWO-PUCHOWEJ I STOPNIA KON- 8 

30 L0CATE tl,2,6: p RINT#1 ."CENTPACJI UWAGI KIER0WC6 


17 




WsSPEED INK 10.10 

40 GPAPHICS PAPEP 2: TftS: FQP v=550 TO -150 STEP -16 
50 GPAPHICS PEN 1 : PAPER 2: P RANE:N0VE *,210:PP!NT " 
SYMULATOR f IKPOKOMPUTEPOMY 
50 IF INKEY* S " 1 THEN 90 
70 NEXT 
30 GOTO 40 

90 TAG0FF:I1CDE ł : GOSUB 800: FEN 2: PAPER OsCLSsPPIN.T 
"Zadani es* prograsu jest syaulacja badani aki ®ro«c5 
w na aparacie typu ’ PIÓRKOWSKI ’ wykorzystuj !ca mik 
-okoaputer AHSTRAD CPC 6128. 

100 WINDOM 11,1, 40,6, 14: PAPER fl,2:CLS «1:PEN 41.0 
:LOCATE #1,2,1: PRINT II, "Na ekranie aonitóra «y 7 wi 
etli si t obraz": LOCATE #l,2,2:PRIN T il,"*0 ponuaerg 
wanych laapek.' Jadanie* ba-" 

110 LOCATE tl,2,3:PPINT #1, "danego jest nacrnitc 
;e pp zapaleniu":LOCATE fl,2,i:PPlNTtl, "dowolnej 1 
aapki klawisza nuaerycznego":LOCATE tl,2,5:PPINTtl 
,*? odpowiadaj !c! lampce cytr! w gfrnya": LOCATE łl 
,2,6:PRINTtl,"rztdzie klawiatury mikrokomputera. Ki 

i 20 LOCATE fl,2,7:PPINT ił,"rowca poddawany jest t 
estowi koordvna-":LOCATE 11 ,2,8: PRINT tl,*cji wzro 
kowo-ruchowej i stopnia koncen-": LOCATE #1,2,9:PPI 
NT#l,"tracji uwagi w dw5ch etapach:" 

130 LOCATE 1 , 16: PPINT"1 . Etap prSbny - eiisja dowo 
lnej ilo 7 ci pr5b .iw zale9no 7 ci od czasu reakcji 
badanego) w czasie 30 sek." 

140 LOCATE 1,19:PRINT"2. Etap wla 7 ciwy - emisja 15 
0 pr5b w je- dnakowych odsttpach czasowych" 

150 WINDOM 12, 1 , 40, 22, 24 : PAPER «2,^PEN #2,0:CLS * 
2: LOCATE #2,2, lsPPINT #2, "Na zako3cz1fcie badania k 
•ierowcy bCdzi e" : LOCATE #2,2,2:PRINT 12, "wyTwietlan 
a jego ocena w skali cztero-" : LOCATE 12, 2, 3: PPINT# 
2, "stopniowej" 

160 IF IHKEYf-" * THEN 160 

PO HODE 0: INK 1,26:WIND0H 11,4, 17,12, 14: PAPER II, 
2: CLS #1 : PEN I1,0:L0CATE #1 , 2, 2: PPINTI1 , "ETAP PP6B 
NY":INK 2,24,26 
180 IF INKEY*=" THEN 180 

PO INK 2, 24: MODĘ 1: INK 2, 14: INK 3,6:CLS:WIND0W 11 
,2,39, 2, 7: PAPEP fl,2:CLS fl:PEN łl,0:WIND0W 12,1,3 
6,10,13: PAPER «2,3:CLS I2:PEN I2,0:MIND0M 13,2,39, 
16, 20: PAPEP #3, 2: CLS 13: PEN 13,0 
200 LOCATE l!,2,2:PRINT 11, "Etap prSbny na na celu 
przygotowanie" :L0CATE #1, 2, 3: PPINTfl , "badanego ki 
erowcy do właściwej cz C7ci " : LOCATE #1 , 2, 4:PRINTI1 , 
"testu i oswojenie u9ytkownika ze" : LOCATE #1 , 2, 5: P 
RINTI1 , "sprzttei ii krokoaputerowya. " 

210 LOCATE #2. 2, 2: PPINTI2, "NA TYM ETAPIE NIE JEST 
BADANY CZAS " : LOCATE t?,2,?:PRI?!Tt2, "REAKCJI. MOC 
ATE 13, 2, 2:PPINTI3, "Kolejne, losowe wyświetlenie 1 
a»pki":LOCATE #3, 2, 3: PRINT#3, "jest uzale°nione od 
czasu reakcji " : LOCATE 13,2, 4:PRINTI3, "kierowcy." 
220 PEN 3: LOCATE 1 ,23:PPINT"Ten etap zako3czy si C 
po upływie 30 sek." 

230 IF INKEYf=""THEN 230 
240 GOSUB 1110 
250 GOSUB 7 10 

260 AFTEP 1500,1 60SUB 330 


270 FOR 9=1 TO 200: NETT: GOSUB 790 I 

280 a»=INKEY«:IF f=l GOTO 340 

290 IF a4=" THEN 280 

300 IF nr«=’10' THEN nr«= , 0* 

310 IF NOT <nr*=a*l THEN GOTO 280 

320 PAPEP 9: INK nr, 1«:GOTO 270 

330 F*l : s-RENAIN (21: RETURN 

340 MODĘ 0: INF 0,0:PAPER 0: BOEDER OiCLSiGOSUB 800: 

INK 2,24: WINDOM ł 1 , 3, 1 7, 12, 14: PAPER łl,2:CLS łl :PE 
N #1 ,‘0: LOCATE #t,2,2:PRINT # 1 , "ETAP W2A8CINY” : SPEE 
D INK 20,20: INK 2,24,26 
350 IF NOTIINKEY«= - ■) THEN 350 
360 INK 2, 24: MODĘ !:G0SUf 800: INK 0.0: INK 1.26: INK 
2, 14: INK 3, 6 : 44INDOH #1 , 1 , 40, 1 , 4:PAPEP łl,2:CL5 łl 
;REN #1,0: LOCATE 11, 1,2:PR1NI¥; , "Etap *la 7 ciwy poi 
ega na losowy* zapala-": LOCATE ti,l,3:PRINTIl,"niu 
laapek w rSwnych odstlpach czasowych" 

370 PAPEP 0: PEN l: LOCATE 1 p 6 :PPINT"Mi krokoiputer z 
liczą i 1 o 7 ':": LOCATE 1,8: PRINT"- poprawnvch reakcj 
i (badany kierowca zd ! Ryl nacisną właściwy kl 

awisz) - blfdnych reakcji (badany kierowca nie 
zd!9yl nacisn!' wla7ciwego klawisza" 

380 LOCATE 1 , 12: PRINT" lub nacisnll klawisz ze zl 
yi odpowie- dni kie* cyfrowy*)" 

3°0 LOCATE 4. 15:PEN 3:PRINT "UWAGA 1 WINDOM 12,1,4 
0, 17, 25: PAPEP #2,3:CLS I2:PEN #2.0:L0CATE #2, 1,2:P 
RINT#2,"Mikrokoaputer generuje nuaer wyświetla- ne 
j laipki losowo tzn badany kierowca nie *o9p prz 
ewidzie"’ kt5i»a lampka zapa-" 

400 LOCATE #2. 1,5:PPINT#2. ‘li sit w nastCpnej kole 
jności . Jest *o- °1 i we °e w nasttpnej pr5bie wyTwi 
etli sit ta sa*a la»pka. Efektem takiśj sy- tua 
cji na ekranie jest mignitcie tej samej cyfry." 

410 IF NOT dNKEY$=" ") THEN 410 

420 GOSUB 1110 

430 P=0: PEN 13: GOSUB 710 

440 FOR r=l TO 2:b=0 

450 FOR n=l TO 75: GOSUB 790 

460 AFTER 70. 1 GOSUB 700 

470 CLE AR INPUT 

480 a*=INKEY*: IF f=l 60TO 540 

490 IF al="" THEN 180 

500 IF nr*="10" THEN nrt="0" 

510 IF nr$=a< GOTO 530' 

520 b=b+l: GOSUB 690: GOTO 550 
530 GOSUB 6°0:P=P+1 
540 F=0 

550 NEYTsbl <r)=b:NE7T 

560 S=REMAIN(D : INK 1,26: INK 0,0: INK 2,24; INK 3,0: 

PAPEP 2: BOFDEP 24:MGDE 1:CLS:G0SUB 800:MIND0M #1,3 
, 17,3,5: PAPER #1,1:CL5 łl:PEN I1,0:L0CATE ll,2,2:P 
RINTIl/MYNIKI TESTU": INK 0.0,24 
570 PEN 3:L0CATE 3,7:PRINT "PRAMIDLOMO - ";:PRINT 
USING "###"; P: LOCATE 3.°:PPINT "BLEDNIE - ";:PP 
INT USING "łlf";BKl)+b](2); 

580 LOCATE 3, ll:PRINT"l CZ081 - ";USING "l##":BL(l 
) 5 sPRINT" PLEDOM": LOCATE 3, 12:PRINT"2 CZ08J - “;US 
ING "###" : BL ^ 2) ; : PPINT" BŁĘDOM" 

590 INK 1 , 6 : PEN 1:L0CATE °,15:PPINT"ltm OCENA it 
II*" : PEN 3 


SCO IF p>140 BOTO 640 
410 IF p'124 GOTO 650 
620 IF pMOO GOTO 640 

630 LOCATE 1,1T:PPINT"TH0JE WYNIKI ST BfiPDZO S2ABE 
.CZAS BODA- NIA KOORDYNACJI HZROKIWO-RUCHOHEJ I ST 
O-PNIA KONCENTRACJI UKĄSI DYSKNALIFIKUJE CIO JAKO 
KIEROWCO KOJSFOKE60. IDECYDOKA-NIE MUSISZ J44ICZY] 

. ’:PPINT : PEN 1:PRINT"UZYSKA2E8 OCENO 2":60T0 670 
610 LOCOTE 1 , 17:PRINT"TW0JE BYNIO SI S2ABE. CZAS 
BADANIA KOORDYNACJI WiPOKOKO-RUCHElKEJ I STOPNI 

A KONCENTRACJI UKĄSI KWALIFIKUJE CIO JAKO KIEROWCO 
WOJSKOKEGO. ALE KUSISZ ZDECYDO- KANIE IKICIYI.-iPP 
INT : PEN I : PR I NT "UZYSK A2E8 OCENO 3’:G0T0 670 
650 LOCATE 1.17:PPINT’TKQ.JE KYNIKI S> DOBPE. CZAS 
BADANIA KOORDYNACJI NZRDKONO-RUCHDKEJ I STOPNI 

A KONCENTRACJI UKĄSI KWALIFIKUJE CIO JAKO KIEPGKCO 
WOJSKOKEGO. NIE ZASZKODZI JEDNAKJAK BODZIESZ IKICZ 
Y2. PPINT: PEN 1 : PPINT"UZYSKA2E8 OCENO «”:GOTO 67 
O 

660 LOCATE 1,17: PR INT"TWOJE KYNIKI SI BARDZO DOBPE 
. CZAS BADA-NIA KOORDYNACJI KZROKOKMUCHOKEJ I ST 
O-PNIA KONCENTRACJI UWAGI KWALIFIKUJE CIO JAKO KIE 
ROWCO WOJSKOWEGO. NIE KUSISZ OWICZYJ. ■ : PRINT-.PE 
N liRPWUZYSKAZES OCENO 5‘iSOTO 470 
670 IF NOT Y INKEY*=“s“ DR INKEY*="S"t THEN 670 
680 GOTO 10 

690 s=PEHA 1 N 4 1 > : PAPER 0: INK nr.lłrPETUPN 
700 SOUND 1 , 2000: 8=8+1 :60SUB 6°0:F=1: RETURN 
710 KODĘ 0: INK 11,0:INK O.hSRAPHICS PEN II: INK 12 
.14: PEN 1I,0:B0RDER 1: PAPER 0:CLS 
720 FOR a=t TO 10 

730 INK a. 14:x=64»(a-l) :PLOT x,172:DPAW >+62,172:0 
LOT y , I 74 : DRAW >+62, 174:DRAK y+62, 238: DRAW >,238:D 
RAK x , 174: PLOT s,240:DRAN x+62, 240: MOCE x+4, 180:FI 
LL a 
740 NETT 

750 PEN ll:c=l:b=0:F0R a=l TO 19 STEP 2 

760 PAPER c: LOCATE a,12:PRINT CHR4<125+bl;CHR4ll26 

+bl 

770 LOCATE a,13:PRINT CHR* ( 127+b) ;CHR* ( 128+b) : b=b» 
4:c=c+l 

780 NEXT : f=0: RETURN 

790 nr=i+INT'10*RWDl :nrł=RIGHT*<STP*4nr) , 1):INK nr 
, 6: RETURN 

800 SYMBOL AFTER 170 
SIO SYMBOL 171,0,0,120,12,124,204,1)8,3 
820 SYNBOL 172,24,60,102,102,126,102,102,3 
330 SYMBOL 173,24,0,60,102,96,102,60,0 
840 SYKBOL 174.24,60, 102, 192. 1R2, 102,60,0 
350 SYKBOL 1’5, O, O, 60, 102, 126, 96, 60, 6 
860 SYKBOL 176,254,98,104,120,104,98,254,3 
870 SYKBOL 177,56,24,28,24,56.24,60,0 
880 SYKBOL 178,240,96,112,96,226,102,254,0 
990 SYKBOL 179,24,0,220. 102, 102, 102, 102,0 
900 SYKBOL 180,24,198,230,246,222,206,198,0 
910 SYKBOL 181,24,0,60,102,102,102,60,0 
920 SYNBOL 182,12,56,108,198,198,108,56,0 
930 SYKBOL 183,24,0,60,96,60,6,124,0 
940 SYKBOL 184,24,60,96,60,6,102,60,0 
950 SYKBOL 185,24,0,126,76,24,48,126,0 


960 SYKBOL 186,254,198,140,126,48,102,254,0 

970 SYKBOL 187, 12, 24. 126, 7 6, 24, 48, 126, O 

980 SYKBOL 188,48,254,172,24,50,102,254,0 

°°0 SYKBOL 189, O, O, O, O, O, 12, 12, 24 

1000 KEY DEF 10,1.55,171,172 

1010 KEY DEF U i l t 5i;173,174 

1020 KEY DEf a, 1,57, 175, 176 

1030 KEY DEF 20,1,52,177,178 

1040 KEY DEF 12,1,53,179,180 

1050 KEY DEF 4,1,54,181,182 

1060 KEY DEF 13,1,49,183,184 

1070 KEY DEF 14,1,50,185,186 

1080 KEY DEF 5,1,51,187,188 

1090 KEY DEF 15,1,189 

1100 RETURN 

1110 SYKBOL AFTER 125 

1120 SYKBOL 125,129,129,131.131,129,129,129,129 
1130 SYKBOL 126, 12«, 129, 129, 12»,129, 12°, 12", 129 
1140 SYKBOL 127,129,129,12»,129,131,131,128,128' 
1150 SYKBOL 128,129, 129,12°, 129, 193, 193, 1, 1 
1160 SYKBOL 129,131,131,134,134,128,128,131,131 
1170 SYKBOL 130, 193, 103,97, 97, 9+, ]03,193 
1160 SYKBOL 131 , 134.134, 134, 134, 135,115, 128, 128 
1I°0 SYKBOL 132,1,1,97,97,225,225,1,1 
1200 SYKBOL 133, 131, 131, 132, 132, 128, 128, 131, 131 
1210 SYKBOL 1 34, 1°3, 193, °7, ° 7 , 97, 97,193,193 
1220 SYKBOL 135,128,128,134,134,131,131,128,128 
1230 SYKBOL 136, 97, 97, 9’, 97, 103, 1»3, 1,1 
1240 SYKBOL 137,129,120,131,131,133,133,137,137 
1250 SYKBOL 138, 12°, 12», 12°, 129,120, 12°, 12°, 129 
1260 SYKBOL 139, 143, 143, 129, 129, 131, iii, 128, 129 
1270 SYKBOL 140, 225 , 225, 12°, 129, 193,103, 1,1 
1280 SYKBOL 141,135,135,134,134,134,134,135,135 
12»0 SYKBOL 142, 225, 225, 33,33, 1,1, 193, 193 
1300 SYKBOL 143,128,128,134,134,131,131,123,128 
1310 SYKBOL 144, °7, °7, =7, 97, 197,103, 1,1 
1320 SYKBOL 145, 131, 131, 134, 134, 134, 134, 135, 135 
1330 SYKBOL 146, 193,193, 97. 9’, 1,1, 193, 193 
1340 SYKBOL 147,134,134,134,134,131,131,128,129 
1350 SYKBOL 148, 97, 9?, 97,97,193, PI, 1,1 
1360 SYKBOL 149,135,135,132,132,128,128,128,128 
1370 SYKBOL 150,225,225,97,97,97,97,193,193 
1380 SYNBOL 151,129,129,129,129,129,129,128,128 
J3°0 SYNBOL 152, 129, 12°, 129, 12°, 129, 12°, 1,1 
1400 SYNBOL 153,131,131,134,134,134,134,131,131 
1410 SYNBOL 154,193,1°3,97,97,97,°7,1°3,193 
1420 SYNBOL 155,134,134,134,134,131,131,128,128 
1430 SYNBOL 156,97,97,97,97,193,193,1,1 
1440 SYNBOL 157,131,131,134,134,134.134,131,131 
1450 SYNBOL 159, l«3, 193, «7, 97, °7 t •+^25,225 
1460 SYNBOL 159,128.128,131,134,131,131,128,128 
1470 SYNBOL 160,97,97,97,97,193,193,1,1 
1480 SYNBOL 161,131,131,134,134,134,134,134,134 
14°0 SYNBOL 162, I 93, 197,97, o 7 , 97.77, 97, 97 
1500 ,SYNBOL 163, 134, 134, 134, 134, 131,131,128,128 
1510 SYNBOL 164,97,97,97,97,193,193,1,1 
1520 RETURN 
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G raf ika 
na ekranie (1> 

Grafika komputerowa fascynuje większość użytkowni- 
ków mikrokomputerów. Konstrukcja obrazu wymaga zna- 
jomości zasad jego definiowania i przekształcania. W pre- 
zentowanym cyklu przedstawimy programy przydatne do 
przedstawiania i przekształcania położenia punktów i linii. 
Konstrukcja tych programów oparta będzie na zastosowa- 
niu matematyki w dziedzinie grafiki komputerowej. Każdy 
program poprzedzony będzie krótkim opisem zastosowa- 
nej metody matematycznej. Wyboru metod matematy- 
cznych stosowanych w grafice komputerowej dokonano 
na podstawie pracy. D. F. Rogers a i I. A, Adams’a. 
„MATHEMATICAL ELEMENTS FOR COMPUTER 
GRAPHICS” (New York, McGraw-Hill Book Company). 

PRZEDSTAWIANIE PUNKTÓW 

Na płaszczyźnie punkt reprezentowany jest przez dwie 
współrzędne. Można je traktować jako elementy macierzy 
wierszowej [x y]. W przestrzeni trójwymiarowej każdy punkt 
przedstawia macierz wierszowa [x y z]. Można je również 
przedstawić w postaci macierzy kolumnowej [j] lub [?]. 

PRZEKSZTAŁCENIA I MACIERZE 


Macierzowy zapis współrzędnych punktu jest wygodny 
do: 

— reprezentacji maszynowej, 



* / 

P P 

'p 


— zastosowania algebry macierzowej, co umożliwia wy- 
konywanie transformacji obrazu. 

Wiele fizycznych zadań można sprowadzić do następu- 
jącej formuły. Niech będą dane macierze A i B oraz za- 
leżność AT - B. Łatwo znaleźć macierz transformacji 
T = A“ 1 B, 

gdzie A' 1 jest macierzą odwrotną do macierzy kwadratowej A. 

Interpretacja podanej formuły w grafice komputerowej: 

A — macierz zdefiniowanych współrzędnych punktów 
(współrzędne pierwotne), 

B — macierz przekształconych współrzędnych punktów 
(współrzędne po transformacji). 

T — macierz transformacji. 

Interpretacja mnożenia macierzy jako operatora geome- 
trycznego stanowi podstawę matematycznych przekształ- 
ceń wykorzystywanych w grafice komputerowej. 

PRZEKSZTAŁCENIA PUNKTÓW 

Rozważmy rezultat macierzowego pomnożenia macie- 
rzy [xy] odpowiadającej, punktowi p oraz macierzy trans- 
formacji [2 x 2). 

[xy] l? S] 4 L(ax + cy) (bx + dy)] = [x* y*] 

Ten matematyczny zapis oznacza, że współrzędne x i y 
przekształcone zostały w x* i y’, gdzie: x* = (ax 4- cy). 
y* = (bx + dy). Przeprowadźmy analizę otrzymanych wy- 
ników, rozpatrując x* i y* jako przekształcone (przetrans- 
portowane) współrzędne. Analiza ta pozwoli'wyłonić pod- 
stawowe przekształcenia obrazów (zbiorów punktów). 

PRZYPADEK 1 

Niech d =f 1 , b •= c = o. 

[xy][o ?] = [ax y] = [x*y*] 


y*y 





T "[oi] 

p‘_. 

p 
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Przekształcenie takie — przedstawione na rys. 1 — nosi 
nazwę powinowactwa prostokątnego. W wyniku następuje 
przesunięcie punktu wzdłuż osi x. ’ 

PRZYPADEK 2 

Niech b = c = 0 
[xy][ó S] = |ax dyl = (x-y*J 

Przekształcenie takie — przedstawione na rys. 2 — 
nazywamy skalowaniem w kierunku osi x i y. 

Jeśli a = d > 1 to następuje zwiększenie współrzę- 
dnych punktu p. 

Jeśli 0 < a = d < 1 to następuje zmniejszenie współrzę- 
dnych punktu p. 

Gdy a # b to skalowanie współrzędnych punktu p jest nie- 
równomierne wzdłuż osi x i y. 

PRZYPADEK 3 

Niech a = -1 . b = c = 0. d = 1 

[*y]['J ?] = [-xyj = [x-y] 

Przekształcenie takie — przedstawione na rys. 3 — nosi 
nazwę lustrzanego odbicia względem osi y. 

PRZYPADEK 4 

Niech a = d= -1,b = c =0. 

(xy]fo -i] = [— x— y] = [x‘y*] 


Przekształcenie takie — przedstawione na rys 4 — na- 
zywamy symetrią środkową. 

PRZYPADEK 5 

Niech a = d = 1, c = 0 

[xy][o ?] = (x (bx + y)] = lx*y*] 

Przekształcenie takie — przedstawione na rys. 5 — nosi 
nazwę skręcenia. Współrzędna y* zależy liniowo od współ- 
rzędnych pierwotnych punktu p. 

Analogiczne przekształcenie zachodzi, gdy a = d = 1 i 
b = 0. Ilustruje to rysunek 6. 

Przyjmując, że położenie dowolnego odcinka może być 
przekształcone w dowolne nowe położenie prostą trans- 
formacją |ego granicznych punktów, możemy wszystkie 
przedstawione powyżej transformacje wykorzystać do 
przekształcenia odcinków oraz figur z nich utworzonych. 

Definiowanie figury złożonej z odcinków umożliwia nam 
zapis macierzowy, w Kolejnych wierszach macierzy zapisu- 
jemy współrzędne punktów granicznych odcinków kreślą- 
cych figurę. 

UWAGA 

Wszystkie powyżej opisane przekształcenia z zastosowa- 
niem ogólnej macierzy transformacji 2x2 dokonywane by- 
ły względem początku układu współrzędnych określonego 
macierzą (0. 0] Jest to ograniczenie, które zostanie 
wyeliminowane w kolejnych odcinkach niniejszego cyklu. 
Przedstawiony na przykładzie punktu zbiór prostych 
przekształceń na płaszczyźnie obejmuje: 

— powinowactwo prostokątne, 

— skalowanie. 

— lustrzane odbicie. 

— symetrię środkową. 

— skręcenie. 


Zaprezentujemy teraz program umożliwiający wykona- 
nie podstawowego przekształcenia na płaszczyźnie jakim 
jest skalowanie równomierne wzdłuż osi x i y. Dodatkowo 
program umożliwia realizację symetrii środkowej. 

Program skalowania napisany został w języku Basic mi- 
krokomputera Amstrad 6128. Użyto Basica ze względu na 
powszechną jego znajomość. Konstrukcja programu poz- 
woli łatwo przetłumaczyć go na inny język programowania 
Pożądana jest jednak duża rozdzielczość ekranu z uwagi 
na zakres współrzędnych elementów obrazu. Program na- 
pisany został w sposób konwersacyjny. Jednakże ze 
względu na udostępnienie użytkującym jak największego za- 
kresu współrzędnych obrazu, komunikacja programu z 
użytkownikiem sprowadzona została do jednego 40-zna- 
kowego wiersza. Stąd kilka słów komentarza. Rysowanie 
(definiowanie) obrazu odbywa się poprzez podawanie 
współrzędnych kolejnych punktów obrazu. Punkty te łą- 
czone są odcinkami. Po wprowadzeniu każdej współrzęd- 
nej punktu wypisywany jest komunikat „koniec wprowa- 
dzania współ. —k. nie —n". Gdy chcemy zakończyć wpro- 
wadzanie współrzędnych naciskamy klawisz K oraz 
ENTER. W przeciwnym wypadku N oraz ENTER 
Komunikat „podaj skalę" wypisywany jest po zakończeniu 
definiowania obrazu. Gdy wprowadzimy liczbę z zakresu 
(0, 1 ) to uzyskamy zmniejszenie skali. Liczba większa od 1 
powoduje zwiększenie skali. Wprowadzając jako skalę 
liczbę ujemną uzyskujemy przekształcenie obrazu nazwa- 
ne SYMETRIĄ ŚRODKOWĄ Po wyskalowaniu obrazu, 
sygnalizowanym komunikatem „wyskalowano: ponownie 
—r. koniec —k", uzyskujemy na ekranie monitora dwie fi- 
gury. Jedną zdefiniowaną przez nas oraz drugą przekształ- 
coną operacją skalowania. Gdy chcemy kontynuować ska- 
lowanie naciskamy klawisz r Wciśnięcie klawisza K koń- 
czy działanie programu. Wybierając kontynuację zauwa- 
żymy komunikat ..kasowanie obrazu— k. rysowanie— r" 
Wybór rysowania powoduje definiowanie obcazu od po- 
czątku. Kasowanie obrazu oznacza, że będziemy mogli po 
zostawić na ekranie jedną z obrazowanych figur Wyboru 
dokonujemy po komunikacie „nowego obrazu— n, stare- 
go— s". Nowy obraz oznacza figurę uzyskaną po prze- 
kształceniu uprzednio zdefiniowanej (starej). Po wyborze 
figury do skasowania wyłania się nam kolejna możliwość 
sygnalizowana komunikatem „skalowanie— s. dorysowa- 
nie— d". Wybierając skalowanie dokonujemy ponownego 
skalowania obrazu. Dorysowanie umożliwia kontynuację 
definiowania kolejnych elementów obrazu. 


30 REH SKALA 


Andrzej CETERA 


60 Din MSp (101.2) ,iat (2.2) ,nwsp (101 y 2) 

70 nODE 1: INK 6, 13: INK 1.3: INK 2, 12: INK 3,0 
80 B0RDER 0:PEN 1: PAPER 2 
90 CLS 

100 PRINT "Skalowanie obrazu w układzie" 

110 PRINT "wspol rzędnych: -319<x<319,-191<y< 191" 

120 PRINT 

130 INPUT "Gdy jestes gotow to wciśnij t"; nk$ 

140 IF nk$="t fc THEN 160 
150 60T0 130 

160 6RAPHICS PAPER 1 : REM Tlo grafiki 
170 0RIEIN 320,208,0,640,8,400 
180 CLEAR INPUT 
190 WINDOM 1.40.25,25 

200 60SUB 1200:REH Rysowanie układu wspolrzed. " 
210 i=0 : REM Licznik punktów 
220 INPUT "Podaj wsp. punktu x,y';x,y 
230 i=i+l 

240 IF i >100 THEN GOTO 370 
250 wsp(i,l)=x 
260 wsp(i,2)=y 

270 60SUB 790: REH wykreślanie punktu lub odcinka 
280 INPUT "koniec wprowadzania wspol. -k,nie-n";nk4 
290 IF nk$=*n" THEN 220 
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*300 IF nk$='k' THEN 320 
310 60T0 280 

320 INPLTT "Podaj skale*;p 

330 80SU6 860 : REM Ustaw eacierz przeksz. 

340 60SUB 1000 : REM Mnożeni e lacierzy 
350 GOSUB 1110 -.REM Zobrazowanie 
360 GOTO 390 

370 INPUT 'Juz za dużo punktów: skal a* ; p 
3B0 GOTO 330 

390 INPUT 'wyskalowano:ponownie-r,koniec-k'ink* 
400 IF nk*='r' THEN 430 
410 IF nk$=*k” THEN 1400 
420 60T0 390 

430 INPUT 'kasowanie obrazu-k,rysowanie-r';nk$ 
440 IF nk$='k" THEN 470 
450 IF nk»=*r' THEN 680 
460 GOTO 430 

470 INPUT"nowego obrazu-n,starego-s';nkt 
480 IF nk*='n' THEN 630 
490 IF nk*='s' THEN 510 
500 60TD 470 

510 REM Kasowanie starego obrazu 

520 GOSUB 1200:REM Rys. układu współrzędnych 

530 FOR k=l TO i 

540 wsp ( k , 1 ) =nwsp < k , 1 ) 

550 wsp(k,2)=nwsp(k,2) 

560 NEXT k 

570 GRAPHICS PEN 3 

580 GOSUB 1300 

590 INPUT “skalowanie-5,dorysowanie-d*snk» 

600 IF nk$='s" THEN 320 
610 IF nk$="d" THEN 220 
620 GOTO 590 

630 REM Kasowanie nowego obrazu 

640 GOSUB 1200 

650 6RAPHICS PEN 3 

660 GOSUB 1300 

670 GOTO 590 

680 FOR n?l TO i : REM Rysowanie od początku 

690 FOR k=l TO 2 

700 wsp(n,k)=0 

710 nwsp(n,k)=0 

720 NETT k 

730 NETT n 

740 GOTO 200 

750 rem itmmimmmmtimtmmmt 
760 REM PODPROGRAMY 
770 rem mummmtmmmmmimiii 
780 REM 

790 REM Kreślenie punktu lub odcinka 
800 REM 

810 GRAPHICS PEN 3:REM Stare współrzędne 
820 IF i=l THEN PLOT wsp(i,l),wsp(i,2) 

830 IF i >1 THEN ORAN wsp ( i , 1 ) , wsp (i , 2) 

B40 RETURN 
850 REM 

860 REM Ustawianie aacierzy przekształcenia 


870 REM 

880 FOR k=l TO 2 
890 aat (k, k) =p 
900 NETT k 
910 aiat (1,2) =0 
920 aat (2,11=0 

930 FOR k=l TO iiREM Zerowanie nwsp 

940 FOR 1=1 TO 2 

950 nwsp (k, 1 ) =0 

960 NETT 1 

970 NETT k 

980 RETURN 

990 REM 

1000 REM Mnożenie aacierzy 
1010 REN 

1020 FOR n=l TO i 
1030 FOR k=l TO 2 
1040 FOR a=l TO 2 

1050 nwsp(n,k)=nwsp(n,k)rwspln,al>aat(a,k) 

1060 NETT a 

1070 NETT k 

1080 NETT n 

1090 RETURN 

1100 REM 

1110 REM Rysowanie nowej Figury 
1120 REM 

1130 GRAPHICS PEN 0:REM Nowe współrzędne 
1140 PLOT nwsp (1,1), nwsp (1,2) 

1150 FOR n=2 TO i 

1160 ORAN nwsp(n,l),nwsp(n,2) 

1170 NETT 
1180 RETURN 
1190 REM 

1200 REM Rysowanie układu współrzędnych 
1210 REM 
1220 CLG 1 

1230 GRAPHICS PEN 2: REM Pioro układu wspol. 

1240 PLOT 0,-208 

1250 ORAN 0.208 

1260 PLOT -320,0 

1270 DRAŃ 320,6 

1280 RETURN 

1290 REM 

1300 REM Rysowanie starej Figury 
1310 REM 

1320 PLOT wsp (1 , 1) , wsp (1,2) 

1330 FOR n=2 TO i 

1340 DRAŃ wsp (n, 1 ) , wsp (n, 2> 

1350 NETT n 
1360 RETURN 
1370 REM 
1380 REM Koniec 
1390 REN 

1400 NINOOM 1,40,1,25 
1410 CLS 
1420 CLG 1 
1430 END 


Speotru m 
t rwa nadal 

Po Spectrum +2 na rynek wypu- 
szczono kolejną wersję tego komputera 
Spectrum +3 Od poprzednika rózm się 
przede wszystkim stacją dysku, która 
podobnie, jak w Amstradzie CPC 6128 
jest integralną częścią klawiatury. Nowe 
Spectrum ma pamięć RAM 128 Kb 
ROM 64 Kb Oczywiście tak jak wszysi 
kie komputery posiada możliwość dołą 
czenia kolejnej stacji dysków, drukarki i 
dwóch joysticków. Tyle danych katalo- 
gowyph. Innych walorów użytkowych 
nie znamy. 
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Sztuki i sztuczki <10) 

Zmienne systemowe 
(ROM-SPECTRUM) 

Krzysztof MAMCARZ 

Kalkulator 

MEM 23656/7 

MEMBOT 23698..23727 

BREG 23655 

Kalkulator możemy uważać za odrębną część systemu 
operacyjnego wykonującą działania arytmetyczne i ope- 
racje na łańcuchach tekstowych. Jest swoistym „pań- 
stwem w państwie". Posługuje się własnym „językiem" 
(tżw. literały - ang, literals) i korzysta z własnego stosu. Li- 
terały to 8-bitowe rozkazy wskazujące odpowiednią proce- 
durę w ROM-ie. Umieszcza się je sekwencyjnie po instruk- 
cji RST 40, która inicjuje pracę kalkulatora, sygnałem koń- 
czącym listę jest literał 56. Wszystkie operacje kalkulatora 
są przeprowadzone na 5-bajtowych reprezentacjach liczb 
zwanych liczbami zmiennoprzecinkowymi (ang. floating- 
-point numbers). W dalszej części tak właśnie będzie rozu- 
miane pojęcie liczby. 

Operacje, wykonywane na liczbach nazywa się arytme- 
tyką zmiennoprzecinkową. Aby w skuteczny sposób po- 
sługiwać się nią, nie trzeba wcale umieć przekształcać licz- 
bę rzeczywistą na jej 5-bajtową postać. Poniższe przykłady 
wyjaśnią kilka podstawowych sztuczek z kalkulatorem. 

Najważniejsza sprawa to kontrola stosu. Jego dno wska- 
zuje zawsze zmienna STKBOT a szczyt STKEND. Po- 
szczególne operacje przeprowadza się zgodnie z notacją 
Łukasiewicza, co w praktyce sprowadza sią do tego, że 
wysłanie kodu operacji powinno być poprzedzone umie- 
szczeniem na stosie odpowiedniej ilości parametrów. 
Przykładowo, aby dodać dwie liczby do siebie należy wys- 
łać na stos pierwszą, potem drugą, a na końcu literał do- 
dawania. Można wyróżnić następujące typy operacji: 

1 ) pojedyncze, gdy liczba z wierzchołka stosu podlega 
obliczeniom i jest zastępowana przez wynik np. sin, abs, 
not, truncate: 

2) podwójne, gdy w obliczeniach uczestniczy para liczb 
z wierzchołka stosu i jest zastępowana przez wynik np. 
multiply, division lub przez dwie liczby będące wynikiem 
np. modulo, 

3) manipulacyjne, gdy liczba ze szczytu stosu jest prze- 
kazywana do obszaru pamięci kalkulatora lub dorzucana 
n,a stos np. st-mem-l, get-mem-1, stk-1\ 

4) wieloczynnościowe (ang. multi-purpose) — w przy- 
padku generowania ciągów liczbowych np. współczynni- 
ków wielomianów Czebyszewa. 

Pierwszym narzucającym się problemem jest przekaza- 
nie liczby z poziomu BASICA na stos kalkulatora. Można to 
zrobić przez zdefiniowanie funkcji użytkownika i odczyt 
DEFADD przez oznaczenie zmiennej (LET) i odczyt 
DEST Ten drugi sposób sprawia nieco kłopotów, lecz za- 
czniemy* właśnie od niego. Poniższy zestaw instrukcji 
asemblera GENS3M2 umieszcza na stosie kalkulatora 
liczbę rzeczywistą przekazaną ze zmiennej Basic’a. Litera- 
ły są podawane dziesiętnie. 


5 

r DEST 

'87 


1.0 


ORG 

62000 

20 

DEST 

EQU 

23629 

30 

CHADD 

EGU 

23645 

40 

MEMBOT 

EGU 

23698 

50 

MEM 

EGU 

23656 

60 

SEED 

EGU 

23670 

70 

LOOIWS 

EGU 

028B2 

80 


LD 

HL r (CHADD) 

90 


LD 

(SEED) r HL 

100 


LD 

HL r (DEST) 

11.0 


BIT 

lr (IY+55) 

120 


JR 

NZ r NEW 

1. 30 


BIT 

5 r (HL) 

140 


JR 

Z r NONS 

1.50 


BIT 

6 r (HL) 

1 60 


JR 

NZ r OLD ' 

170 

NEW 

LD 

(CHADD) rHL 

1. 80 


GALL 

LOOKUS 

190 


JR 

CrUARNOT 

200 

OLD 

INC 

HL. 

21.0 


LD 

(MEM) rHL 

240 


RST 

40 

250 

getmem 

DEFB 

224 

260 

end 

DEFB 

56 

270 


LD 

HLr MEMBOT 

280 


LD 

(MEM) rHL 

290 


POP 

BC 

300 


LD 

HLr (SEED) 

310 


LD 

(CHADD) rHL. 

320 


RET 


330 

NONS 

RST 

8 

340 


DEFB 

11 

350 

UARNOT 

RST 

8 

360 


DEFB 

1 


Po wczytaniu instrukcji np.: 

LET liczba = 9.81: PRINT USR 62000 
nastąpi uruchomienie procedury, która wykona następują- 
ce czynności: 

linie 80. .90 — przechowanie adresu interpretowane- 

go wyrażenia w SEED: 

linie 1 00 .1 1 0 — odczyt DEST i flagi charakteryzującej 
wczytaną po LET zmienną; 

linie 1 20.. 1 60 — test typu zmiennej BASICa. jeśli już ist- 

nieje; 

linie 1 70. .1 90 — odszukanie adresu zmiennej w pamię- 

ci, jeśli, jest nowa lub wieloliterowa 
oznaczona wcześniej; 

linia 210 — przełączenie obszaru pamięci kalkula- 

tora na początek liczby 

linie 240.. 260 — wejście do kalkulatora i przekazanie 

liczby z pamięci na stos; 

linie 270. 280 — odtworzenie oryginalnej wartości 

zmiennej MEM, 

linie 290..320 — odtworzenie adresu przerwanej inter- 

pretacji i powrót do BASICa, jeśli to po- 
trzebne; 

Zmienna systemowa MEM. która odgrywa tu główną ro- 
lę wskazuje obszar pamięci kalkulatora. Zajmuje on 30 baj- 
tów od MEMBOT w górę. co oznacza, że mieści 6 liczb. 
W pamięci mogą być składane liczby ze stosu, które będą 
potrzebne w innym momencie. Operacje tego typu wyko- 
nują literały st-mem i get-mem zaopatrzone w numer sek- 
tora. Sektorów jest 6 (gdyż tyle może zmieścić pamięć) po- 
numerowanych od 0 do 5. 
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* 

Korzystając z tego, że wśród literatów znajduje się pro- 
cedura modulo, spróbujmy zaimplementować funkcję 
m-modulo-n. Określmy zatem: 

1 0 DEF FN m (m.n) = USR 64000 

Chcąc obliczyć wartość 5 mod 2 należy przykładowo 
umieścić linie: 

20 LET mod=FN m (5.2) 

30 PRINT mod 

Tekst źródłowy asemblera wygląda następująco: 

1® 5 ** MODULO '87 

2® 5 GENS3M2 assembler 


3® 

ORG 64000 

4® DEFADD 

EQU 23563 

5® STK_NR 

EQU *3364 

6® 

LD HL» (DEFADD) 

7® 

INC HL 

8® 

INC HL 

9® 

CALL STK-NR 

10® 

GALL TEST 

11® 

LD HL» (DEFADD) 

12® 

LD BC » 10 

13® 

ADD HL f BC 

14® 

CALL STK-NR 

150 

CALL TEST 

160 

RST 40 

170 mod 

DEFB 50 

180 delete 

DEFB 2 

19® end 

DEFB 56 

200 

POP HL 

210 

RET 

220 TEST 

RST 40 

230 dupl ic 

DEFB 49 

240 less0 

DEFB 54 

250 jptrue 

DEFB 0 

260 

DEFB 8 7 do 340 

270 duplic 

DEFB 49 

280 duplic 

DEFB 49 

29® trunc 

DEFB 58 

300 subtr 

DEFB 3 

31® not 

DEFB 48 

320 jptrue 

DEFB 0 

330 

DEFB 4 5 do 370 

34® end 

DEFB 56 

350 

RST 8 

360 

DEFB 9 ?inv. arg. 

370 end 

DEFB 56 

380 

RET 

Opis: 

linie 60. .90 — 

przekazanie parametru m na stos 
kalkulatora (adres 5-bajtowej liczby 

l 

wskazuje para HL); 

linia 100 — 

sprawdzenie bezpośrednio na stosie, 
czy liczba jest dodatnia i całkowita; 

linie 110.150 - 

przekazanie parametru n na stos; 

linie 160.190 — 

operacje na stosie; mod odkłada dwie 
liczby, z których pierwsza to m-mod-n, 
a druga wykazuje ile razy n mieści się 
w m (stąd operacja delete); 

linie 200. 210 — 

powrót do BASICa z pominięciem pro- 
cedury umieszczającej na stosie za- 
wartość rejestrów BC 


Skompilowany kod nie jest relokowalny w przeciwień- 
stwie do poprzedniego. Etykiety składające się z małych li- 
ter są rozkazami kalkulatora i spełniają rolę poglądową. Nie 
trzeba ich wpisywać. 


Kolejny przykład również wymaga określenia funkcji 
użytkownika 

13 DEF FN s (a) = USR 60000 
Rzecz dotyczy procedury obliczającej silnię liczby cał- 
kowitej nieujemnej. Po instrukcji np. 

PRINT FN s (9) 

nastąpi umieszczenie parametru na stosie kalkulatora (li- 
nie 60. .90) oraz obliczenia (linie 100 .270). 


10 

5 ** SILNIA '86 


20 

5 GENS3M2 assembler 

30 


ORG 

60000 

40 

DEFADD 

EQU 

23563 

5® 

STK-NR 

EQU 

®33B4 

60 


LD 

HL r (DEFADD) 

70 


INC 

HL 

80 


INC 

HL 

90 


CALL 

STK-NR 

100 


RST 

40 

110 

dupl ic 

DEFB 

49 

120 

not 

DEFB 

48 

'l30 

jptrue 

DEFB 

0 

140 

DEFB 

13 5do 270 

150 

dupl ic 

DEFB 

49 

160 

stk 1 

DEFB 

161 

170 

subtr 

DEFB 

3 

18® 

stmem® 

DEFB 

192 

190 

not 

DEFB 

48 

200 

jptrue 

DEFB 

0 

210 


DEFB 

11 5do 300 

220 

gtitem® 

DEFB 

224 

230 

mul tip 

DEFB 

4 

240 

gtmem® 

DEFB 

224 

250 

jump 

DEFB 

51 

260 


DEFB 

-10 5 do 150 

270 

end 

DEFB 

56 

280 


LD 

BC » 1 

290 


RET 


300 

end 

DEFB 

56 

310 


POP 

BC 

320 


RET 



Na początku parametr jest sprawdzany. Jeśli jest zerem, 
następuje powrót do BASICa z jedynką na stosie. Jeśli nie 
jest zerem wykonuje się pętla w liniach 150. 260. Na dnie 
stosu zawsze znajduje się wynik kolejnych operacji mno- 
żenia go przez parametr pomniejszony o jeden. W chwili, 
gdy doszłoby do mnożenia przez zero procedura kończy 
pracę (linie 300..320). Ponieważ możliwości Spectrum 
w zakresie przechowywania liczb są ograniczone, więc 
najwyższa liczba, której silnię można poznać wynosi 33. 
Poruszając się tylko w języku wewnętrznym również można 
dokonywać operacji na liczbach rzeczywistych i to w spo- 
sób całkiem łatwy. Oto przykład podniesienia stałej e do 
potęgi pi 


10 f *>■ 

» E' 

•PI * 87 

20 


ORG 61200 

30 CHADD 

EQU 23665 

40 DEC. 

_FP 

ECiU i2CB8' 

50 


LD HL . E_CON 

60 


LD (CHADD). HL 

70 


LD A. (HL) 

80 


CALL BEC-FP 

90 


LD HL.PI-CON 

100 


L.D (CHADD) .HL. 
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110 

120 

130 

140 

130 

160 

170 

180 P I_CON 
190 

200 E-CON 
210 


LD A» (HL) 
GALL DEC~.FR 
40 
6 


RST 

DEFB 


DEFB 56 
POP HL 
RET 

DEFM "3.14159265" 
DEFB 13 

DEFM "2.71828183" 
DEFB 13 


Przekazanie obu stałych na stos odbywa się na zasadzie 
interpretacji kolejnych cytr umieszczonych w postaci zna- 
ków ASCII. Listę znaków kończy bajt 13 lub inny, różny od 
kodów cyfr, kropki lub litery e. Część interpretacyjną wyko- 
nuje procedura ROM umieszczając jednocześnie liczby na 
stosie. Po wejściu do kalkulatora wykonywana jest tylko 
operacja potęgowania (linia 140). Chcąc sprawdzić wynik 
należy wpisać. 

PRINT USR 61200 

Zmienna systemowa BREG pełni dość ciekawą rolę w 
działaniu kalkulatora. Analogia do rejestru B mikroproce- 
sora nie jest przypadkowa, gdyż BREG wspólnie z litera- 
łem dec-jr-nz stanowi symulację pętli. Wejście do kalkula- 
tora w czasie pętlowania powinno odbywać się przez 
CALL 3362 (hex .), a nie RST 40 
Na zakończenie wykaz użytych w programach rozkazów 
kalkulatora: 


literał 


znaczenie 


224 get-mem-0 przesyła na stos kalkulatora liczbę 

z obszaru pomięci (sektor 0); 

50 modulo oblicza m-moduło-n; 


2 

56 

49 

54 


delete 
end-calc 
duplicate 
less 0 


0 jptrue 


58 truncate 


3 

48 


161 

192 


4 

51 ' 


subtract 

not 


stk-1 

stk-mem-0 


multioly 
' lump 

to-power 


obniża wierzchołek stosu o 5 bajtów 
powodując pozbycie się liczby; 
wskaźnik końca listy literałów; 
wyjście z kalkulatora; 
zdublowanie liczby na szczycie sto- 
su; 

test znaku liczby; wynikiem operacji 
jest wartość logiczna 1 , jeśli liczba 
jest ujemna; 

skok, jeśli liczba na stosie nie jest 
zerem (fałszem); po literale umie-* 
szcza się adres względny, od które- 
go mają być kontynuowane opera- 
cje kalkulatora; 

powoduje pozbawienie liczby jej 
części ułamkowej (tzw. zaokrągle- 
nie w kierunku zera); 
odejmowanie dwu liczb na stosie; 
wynikiem tej operacji jest 0, jeśli 
liczba na stosie nie jest zerem lub 1 , 
jeśli jest; 

umieszczenie na stosie liczby 1 ; 
odłożenie do pamięci (sektor 0) 
liczby ze szczytu stosu (stos nie 
ulega obniżeniu); 
mnożenie dwu liczb na stosie; 
skok bezwarunkowy do adresu 
względnego podanego za literałem; 
podniesienie liczby pod wierzchoł- 
kiem stosu do potęgi liczby znajdu- 
jącej się na szczycie stosu. 


Oczywiście podane przykłady, ani wyjaśnienia nie wy- 
czerpują wszystkich możliwości kalkulatora, natomiast 
kończą listę opisywanych zmiennych systemowych ROM, - 
które były pretekstem do zagłębienia się we wnętrze Spec- 
trum... 

Krzysztof MAMCARZ 



ATARI 


Migający kursor 
w mikrokomputerze 

Przedstawiony program uruchamia pulsowanie kursora 
w mikrokomputerze ATARI 800 XL. Dodatkowo pulsują 
również napisy wykonane w technice INVERSE VIDEO, co 
może być przydatne w innych programach w celu zwróce- 
nia uwagi na pewne fragmenty tekstu. 

Program po wpisaniu i uruchomieniu można wykasować 
instrukcją NEW. W pamięci mikrokomputera pozostanie 
wtedy procedura w języku maszynowym i program nadal 
będzie działał. W przypadku użycia klawisza RESET pro- 
gram można ponownie wywołać instrukcją: 

I = USR (30 000). 

Drugi z przedstawionych programów jest napisany w 
asemblerze i analizując go można tatwo zrozumieć, ci po- 
woduje miganie kursora. 

Tomasz WOJTCZAK 


Df-1 

BI 

RS 

YH 

HU 

GH 

BP 

HM 

RT 

UN 

EC 

BK 

AP 

BU 

RT 


10 REM ... MIGAJĄCY KURSOR ... 

15 REM 

20 FOR R=30000 TO 30036 
25 RERD O 
30 POKE fi,D 
35 NEXT fi 

40 I ==U.SR< 30000 ): REM UAKTYWNIENIE 

45 REM PROCEDURY W JEŻYKU MASZYN 

OWYM 

90 DATA 104,169.59.141,40,2. 169, 
117 

91 DATA 141,41,2,169,18,141,26,2 

92 DATA 173,243,2,201,2, 240 , 7 , 23 
8 

93 DATA 243,2,238,243,2,96,206,2 
43 

94 DATA 2,206,243,2,96 

97 REM 

98 REM ... napisane w HACKER-STU 
DIG, 

99 REM . a działa '? 
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Grafika C-64" 

Sławomir WASIELEWSKI 


Opisane zostały już podstawowe tryby pracy mikrokom- 
putera Commodore 64: znakowy w części II („IKS” nr 3, 
1 987) i graficzny w części III („IKS" nr 6. 1 987) SPRITE. du- 
szek, MOB, blokowy obiekt ruchomy są to nazwy używane 
dla określenia kolejnego trybu pracy C-64. W trybie tym 
mamy możliwość niezależnego definiowania i prostego 
sterowania ośmioma obrazkami graficznymi. Możemy łą- 
czyć go z dwoma pozostałymi trybami pracy. Cecha ta sta- 
je się bardzo ważna przy programowaniu specjalnych efek- 
tów graficznych (szczególnie w grach). Blokowy obiekt ru- 
chomy należy traktować, jako pewnego rodzaju narzędzie 
graficzne wspomagające programistę. 

SPRITE 

SPRITE jest obiektem graficznym definiowalnym na po- 
wierzchni o wymiarach 24 x 21 punktów świetlnych ekranu. 
Nie wgłębiając się na razie w szczegóły wykonajmy nastę- 
pujące instrukcje (w trybie bezpośredniej pracy C-64) 
i zaobserwujmy ich efekt na ekranie: 

POKE 53248. 150: POKE 53249, 150: POKE 53269. 1 
Pokazał się nam obrazek o dziwacznych kształtach. Jest to 
jeden z ośmiu dostępnych ruchomych obiektów nie posia- 
dający na razie sensownej postaci. Zmieniając wartości 
bajtów 53248 i 53249 możemy go przemieszczać po ekra- 
nie. Wykonanie instrukcji 

POKE 53269, 0 
powoduje zniknięcie obiektu. 


Do konstrukcji obrazu SPRITE’a na ekranie VIC wyko- 
rzystuje: blok definicyjny wskazany przez wskaźnik bloku 
oraz rejestry sterujące. 

Blok definicyjny jest zapisanym w pamięci mikrokompu- 
tera obrazem SPRITE'a Sposób tworzenia bloku definicyj- 
nego ilustruje rys. 1 . 

Na siatce odpowiadającej jednemu obiektowi wrysowa- 
ny został czołg. Wyodrębnianie kolejnych bajtów pamięci 
i wyznaczanie ich wartości odbywa się na ogólnych zasa- 
dach opisanych w części II. Blok definicyjny powinien 
składać się z 63 bajtów. Przyjmuje się jednak wielkość 64 
bajtów, przy czym ostatni bajt nie jest brany pod uwagę 
przez VIC-a. Zapiszmy utworzony blok definicyjny w pro- 
gramie za pomocą instrukcji DATA: 


DATA 0, 0, 0, 0 


0,0 


DATA 0, 0, 0, 0, 0, 0 

3 DATA 0, 0, 0, 0, 0, 0 

4 DATA 0, 0. 0, 0. 0, 0 

5 DATA 0,0, 0.0. 126,0 

6 DATA 0,255, 255. 0, 255, 0 

7 DATA 0, 126,0, 7.255,224 

8 DATA 7. 255. 240, 127, 255. 254 

9 DATA 206. 102, 115, 127, 255, 254 

10 DATA 0.0, 0.0. 0.0 

11 DATA 0.0. 0.0 

Tworzenie bloku definicyjnego jest najbardziej żmudnym 
zajęciem podczas projektowania SPRITEa. Tym, których 
zniechęca ręczne przeliczanie i wprowadzanie do pa- 
mięci mikrokomputera wymaganych danych polecam 
Wykorzystanie do tego celu programu użytkowego 
„PROJEKTANT-SPRITES" zamieszczonego w „IKS-ie" 
nr 3, 1986. 



zopis cyfrowy 
obrazu 
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0 
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0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 
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0 

0 

255 

255 

0 

255 

0 

0 

126 

0 

7 

255 

224 

7 
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255 

254 

206 

102 

115 
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2 55 

254 

0 

0 

0 

0 

0 

0 

0 

0 
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BLOK DEFINICYJNY 
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VIC w każdym BANKU pozwala na 256 (266 x 64 =1 6 384) 
różnych lokalizacji bloków definicyjnych (od 0 do 
255). Umieśćmy nasz blok definicyjny jako ostatni w BAN- 
KU 0: 

20 FOR 1=0 TO 63: READ A: POKE 255*64+1, A: NEXT I 

W przypadku pracy VIC-a w BANKU innym niż zerowy 
musimy do adresu początkowego wybranego bloku 
(255*64) dodać adres początkowy użytego BANKU. 

Jak poinformować VIC-a, w którym bloku umieściliśmy 
postać SPRITE’a? Do tego celu służą wskaźniki bloków de- 
finicyjnych. W każdym BANKU jest ich ósiem, gdyż można 
wyświetlać jednocześnie do ośmiu ruchomych obiektów. 
Lokalizacja wskaźników. zależy od umiejscowienia PA- 
MIĘCI EKRANU wewnątrz BANKU. Zajmują one bowiem 
ostatnie osiem bajtów w 1K obszarze wyznaczonym adre- 
sem początkowym PAMIĘCI EKRANU (rys. 2). 


standardowe 
nr bajtów (BANK 0 ) 


1024 1 


• 





P/ 


8B 


NIE 

UŻYWANE 


SPRITEnr 

T 

2 WSKAŹNIKI 

3 

5 BLOKÓW 


Rys. 2 Lokalizacja wskaźników bloków 
definicyjnych w pamięci mikro- 
komputera 


Ponieważ nie zmienialiśmy standardowego położenia 
PAMIĘCI EKRANU, w naszym przypadku wskaźniki te mie- 
szczą się między bajtami 2040 — 2047. Wprowadzenie do 
odpowiedniego wskaźnika liczby z zakresu 0 — 255 wska- 
zuje VIC-owi, który blok definicyjny ma być interpretowany, 
Teraz już wiemy dlaczego uzyskany początkowo na ekra 
nie SPRITE miał nieokreślony kształt. Wykonajmy po*- 
nownie te same trzy instrukcje POKE oraz dodatkowo 

POKE 2040, 255 

SPRITE nadal ma tę samą postać. Wprowadźmy do 255 
bloku definicyjnego zaprojektowaną postać obiektu ru- 
chomego komendą RUN. Na ekranie uzyskaliśmy czołg. 

W celu przemieszczania obiektów ruchomych po ekra- 
nie i uzyskiwania pewnych ich cech służą niektóre z rejes- 
trów sterujących VIC-a. Wykaz interesujących nas rejes- 
trów wraz z krótkim opisem realizowanych funkcji zamie- 
szczony jest w tabeli. 


bajt 

pamięci 

realizowana funkcja 

53248 

SPRITE 0 współrzędna X 

53249 

SPRITE 0 współrzędna Y 

53250 

SPRITE 1 współrzędna X 

53251 

SPRITE 1 

— „ — Y 

53252 

SPRITE 2 

— ń - X 

53253 

— — 

- .. - Y 

53254 

SPRITE 3 

— .. - X 

53255 

— .. — 

- - Y 

53256 

SPRITE 4 

- — X 

53257 


— — Y 

53258 

SPRITE 5 

- .. - X 

53259 

— .. — 

— — Y 

53260 

SPRITE 6 

— M — X 

53261 

— .. — 

— — Y 

53262 

SPRITE 7 

- .. - X 

53263 

• — — 

— — Y 

53264 

znacznik pozycji X 

53269 

aktywność SPRITE’a (1 — aktywny) 

53271 

powiększenie w pionie (na wysokość) 

53275 

priorytet SPRITE — podłoże (0 — SPRITE ma 
wyższy) 

53276 

wprowadzenie trybu wielobarwnego 


(1 — wprowadzony) 

53277 

powiększenie w poziomie (na szerokość) 

53278 

sygnalizacja kolizji SPRITE — SPRITE 

53279 

— .. - 

- SPRITE — podłoże 

53281 

kolor punktu 0 (ekran, SPRITE) 


w t. dwukolorowym; 


kolęr punktu 00 w t. wielobarwnym 

53285 

kolor punktu 01 SPRITE w t. wielobarwnym 

53286 

kolor punktu 11 SPRITE — — 

53287 

SPRITE 0: kolor punktu 1 w t. dwukolo- 


rowym lub 


kolor punktu 10 w t. wielobarwnym 

53288 

SPRITE 1 

— .. — 

53289 

SPRITE 2 

— — 

53290 

SPRITE 3 


53291 

SPRITE 4 

— „ — 

53292 

SPRITE 5 


53293 

SPRITE 6 


53294 

SPRITE 7 

- „ - 


TABELA: 

Wykaz rejestrów sterujących obiektami ruchomymi. 


Niektóre z wymienionych rejestrów określają jakąś 
cechę SPRITE’a zawartością pojedynczego bitu odpowia- 
dającego jego numerowi. Bit nr 0 jest odpowiedzialny za 
zaistnienie tej cechy u SPRITE'a nr 0, bit nr 1 u SPRITE'a 
nr 1 , itd. aż do ostatniego bitu (nr 7). Ogólne postaciejns- 
trukcji zmieniających zawartość pojedynczych bitów w re- 
jestrze są następujące: 

— ustawienie bitu na 1 

POKE rejestr, PEEK (rejestr) OR 2Tbit 

— ustawienie bitu na 0 

POKE rejestr, PEEK (rejestr) AND (255-2tbit) 
gdzie: rejestr — adres rejestru (bajtu pamięci), 
bit — numer bitu odpowiadający wybranemu obiektowi. 

Zapoznamy się teraz bliżej z wymienionymi w tabeli 
funkcjami. Pozwolą one nam w sposób efektywny wyko- 
rzystać możliwości VIC-a do programowania obiektów ru- 
chomych. 

AKTYWNOŚĆ 

Każdy z ośmiu obiektów ruchomych może być niezale- 
żnie wprowadzany w stan aktywności. Jest to stan, w któ- 
rym VIC interpretuje wszystkie niezbędne informacje doty- 
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czące danego SPRITE'a i na ich podstawie wyświetla jego 
obraz na ekranie. 

Do określenia stanu aktywności poszczególnych obiek- 
tów służy rejestr sterujący ^IC-a umieszczony pod adre- 
sem 53269. Ustawienie jakiegoś bitu na „1 " w tym rejestrze 
oznacza stan aktywny odpowiadającego mu obiektu. Jeśli 
chcemy, na przykład uaktywnić tylko obiekty numer 0 i 1 
musimy wykonać instrukcję: 

POKE 53269, PEEK (53269) OR 3 

SPRITE może być widoczny na ekranie lub nie. zależnie 
od stanu pozostałych odpowiadających mu rejestrów 
VIC-a. Powrót do stanu nieaktywnego uzyskujemy zerując 
odpowiednie bity. W naszym przypadku: 

POKE 53269, PEEK (53269) AND 252 

POZYCJONOWANIE 

Do ustalenia pozycji ruchomych obiektów na ekranie 
służy grupa rejestrów o adresach od 53248 do 53264. Po- 
zycja obiektu wyznaczana jest na podstawie wartości 
współrzędnej X na osi poziomej i współrzędnej Y na osi 
pionowej (rys. 3). 



Ryt. 3 


Rys. 3 Pozycjonowanie SPRITE'a na ekranie. 

Współrzędne X i Y ustalają pozycję lewego górnego 
punktu SPRITE'a. Na rys. 1 jest to lewy górny kwadrat siatki 
projektowej. Każdy SPRITE ma przydzieloną parę rejestrów 
do wprowadzania wartości obu współrzędnych. Ponieważ 
największa liczba jaką można zapisać w jednym bajcie wy- 
nosi 255, do pozycjonowania na osi poziomej (X) wykorzy- 
stuje się dla każdego obiektu dodatkowy jeden bit w reje- 
strze o adresie 53264. Bit ten nazywany jest znacznikiem 
pozycji X. Ustawienie znacznika na 0 oznacza, że wartość 
współrzędnej X dotyczy, lewego odcinka osi poziomej. 
Znacznik równy 1 określa prawy odcinek osi poziomej X. 

Wykonajmy następujący przykład w trybie bezpośred- 
nim: , 

— utwórzmy blok definicyjny obiektu w kształcie prostoką- 
ta 

FOR 1=0 TO 63: POKE 254*64*1, 255: NEXT I 

— postać tę nadamy obiektowi nr 0 

POKE 2040, 254: POKE 53269, 1 

— wyświetlimy prostokąt w lewym górnym rogu ekranu 

POKE 53248, 24: POKE 53249, 50: POKE 53264, 0 

Zmieniając edytorem wartość ostatnich trzech rejestrów 
(współrzędne X, Y oraz znacznik pozycji X) możemy zba- 
dać położenie SPRITE’a w różnych punktach ekranu. 

Wiedząc już jak zmieniać położenie obiektu spróbujmy 
uruchomić nasz czołg w realizowanym programie i przeje- 
chać nim po ekranie. Wprowadźmy niezbędne instrukcje 
i wykonajmy komendę RUN. 

30 POKE 2040, 255: POKE 53269, 1: POKE 53249, 
100 

40 POKE 53264, 0: FOR X=0 TO 255: POKE 53248, X: 
NEXT X 

50 POKE 53264, 1 : FOR X=1 TO 88: POKE 53248, X: 
NEXT X 


POWIĘKSZANIE 

Normalnej wielkości SPRITE ma 24 punkty szerokości 
i 21 punktów wysokości. Istnieje możliwość dwukrotnego 
powiększenia SPRITE’a. Powiększenie na szerokość uzy- 
skujemy ustawiając odpowiedni bit na 1 w rejestrze o 
adresie 53277, a na wysokość w rejestrze 53271. Powrót 
do normalnych wymiarów uzyskamy po wyzerowaniu od- 
powiednich bitów. 

Ostatnio używaliśmy czołgu jako obiektu ruchomego , 

0 nr. 0. Wyświetlmy więc go ponownie w centralnej części 
ekranu: 

POKE 53248, 1 50: POKE 53249, 1 50: POKE 53264.0 
a teraz powiększymy go na szerokość 

POKE 53277,1 

1 na wysokość 

POKE.53271 ,1 

Powracamy do normalnych wymiarów: 

POKE 53277,0: POKE 53271,0 

PRIORYTET 

Przy użyciu większej liczby obiektów ruchomych mogą 
zaistnieć sytuacje, gdy obiekty będą nacho'dzić na siebie. 
Należy zatem wcześniej ;jad6ać o to, który SPRITE ma być 
widziany „przed" innym lub „za” innym. Do tego celu wyko- 
rzystuje się priorytety przyporządkowane -na. stałe wszyst- 
kim obiektom ruchomym. SPRITE 0 ma największy priory- 
tet i jest widziany zawsze „przed" wszystkimi pozostałymi. 
SPRITE 7 ma najmniejszy priorytet i jest widziany „za" 
wszystkimi pozostałymi. Inaczej mówiąc: SPRITE o nume- 
rze niższym ma zawrze wyższy priorytet. 

W trakcie łączenia różnych trybów graficznych należy 
ustalić priorytet każdego używanego SPRITE'a względem 
pozostałych elementów graficznych (podłoża). Do ustale- 
nia tego priorytetu służy rejestr o adresie 53275. Wartość 
zerowa bitu odpowiadającego wykorzystywanemu obiek- 
towi oznacza, że ma on wyższy priorytet względem podło- 
ża. Na ekranie widoczny będzie SPRITE, a za nim schowa- 
ne będą występujące w tym samym miejscu elementy gra- 
ficzne zrealizowane w innym trybie pracy VlC-a. 

Należy zaznaczyć, że przesłaniane są tylko szczegóły 
obrazu graficznego, które w reprezentacji bitowej są jedyn- 
kami (np. zaczernione kwadraty w siatce projektowej na 
rys. 1). 

Zmieniając priorytet czołgu (SPRITE 0) względem pod- 
łoża i przesuwając kursor w miejsce, gdzie znajduje się 
czołg na ekranie możemy zaobserwować opisane efekty. 
Zmianę priorytetu uzyskamy instrukcjami: 

— czołg ma niższy priorytet 

POKE 53275,1 

— czołg ma wyższy priorytet 

POKE 53275,0 

KOLIZJA 

Sytuacja kolizji występuje, gdy nastąpi zetknięcie się kil- 
ku niezerowych (w reprezentacji bitowej) elementów grafi- 
cznych. Do kolizji może dojść między obiektami ruchomy- 
mi oraz między podłożem a obiektem ruchomym. VIC sam 
wykrywa sytuacje kolizji i informuje nas o tym za pomocą 
rejestrów o adresach 53278 i 53279. Rejestr 53278 sygna- 
lizuje wystąpienie kolizji SPRITE — SPRITE ustawiając na 
1 bity odpowiadające obiektom ruchomym, między którymi 
wystąpiła kolizja. Rejestr 53279 sygnalizuje wystąpienie ko- 
lizji typu SPRITE — podłoże ustawiając na 1 bity odpowia- 
dające obiektom, które zetknęły się z jakimkolwiek elemen- 
tem graficznym podłoża. 

Sygnały o sytuacjach kolizyjnych są dostarczane ciągle 
przez VIC-a. Zerowanie rejestrów kolizji następuje automa- 
tycznie po odczytaniu ich zawartości instrukcją PEEK. Na-, 
leży pamiętać o tym, że SPRITE nieaktywny może również 
powodować kolizje. 
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KOLORY 

Podobnie, jak i w pozostałych trybach pracy VIC-a, mo- 
żna w obiektach ruchomych wykorzystywać grafikę dwu- 
Kolorową i wielobarwną. Za pomocą rejestru o adresie 
53276 możemy wybrać rodzaj grafiki dla każdego obiektu 
oddzielnie. Wartość zerowa bitu oznacza grafikę dwukolo- 
rową. Ustawienie na 1 jakiegoś bitu wprowadza odpowia- 
dający mu SPRITE w grafikę wielobarwną. 

W grafice dwukolorowej VIC pobiera kod kolorów (0 — 15) 
każdego z obiektów ruchomych z dwóch rejestrów. Re- 
jestr odpowiedzialny za kolor podłoża SPRITE'a (zera w 
reprezentacji bitowej, puste kwadraty w siatce projektowej) 
jest ten sam dla wszystkich obiektów i mieści się pod adre- 
sem 53281 Rejestr ten równocześnie określa kolor punk- 
tów o zerowej reprezentacji bitowej na ekranie Kolor grafi- 
ki SPRITEa (jedynki w reprezentacji bitowej) jest określany 
niezależnie dla każdego z nich za pomocą odpowiedniego 
rejestru od 53287 do 53294. 

W grafice wielobarwnej, podobnie jak w trybie tekstowym 
czy trybie wysokiej rozdzielczości jeden punkt w obrazie 


SPRITE'a na ekranie odpowiada dwóm bitom pamięci. Ko- 
lory są kodowane w następujący sposób: 

punkt rejestr zawierający kod koloru 
00 53281 'i wspólne dla wszystkich 

?1 53286 J obieklów ruchomych 

1 0 rejestr koloru odpowiedniego 

SPRITĘa (53287 - 53294) 

I to już wszystko. Przekazany zakres wiedzy na temat 
grafiki C-64 powinien wystarczyć aby samodzielnie pisać 
programy graficzne. Należy jednak zdawać sobie sprawę 
z tego. że uzyskanie wyrafinowanych efektów graficznych 
wiąże się z wykorzystaniem dodatkowych technik progra- 
mowania mikrokomputerów (np technika przerwań), 
a w szczególności programowania w języku wewnętrz- 
nym mikrokomputera Commodore 64 

Sławomir WASIELEWSKI 
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ZX SPECTRUM 


BOMBA 


Hasło „zagrajmy w bombę" kierujemy do adeptów języ- 
ka LOGO, którzy w wolnej chwili chcieliby zostać bohate- 
rami. Otrzymujecie informację (oczywiście pewną), że 
w jednym z 357 91 1 pokoi wieżowca podłożono bombę. 
Należy ją rozbroić. Zabieracie specjalny czujnik i wchodzi- 
cie do budynku w miejscu o umownych współrzędnych 
0,0,0. Budynek ma kształt sześcianu. Pokój na drugim 
końcu przekątnej ma współrzędne 70.70,70. 

Czujnik natychmiast podaje pewien sygnał, który należy 
wykorzystać. Jedyną wskazówką, jaką można podać jest 


zakres sygnału wynoszący 0...1000. Im wię>kszy wskaźnik, 
tym bliżej bomby. Macie 15 szans na wybranie takich 
trzech współrzędnych, które wskażą poszukiwany pokój 
Współrzędne należy wczytywać oddzielając je spacją. Ńa 
końcu. wprowadzania naciskamy ENTER. 

Gra nie wymaga intensywnego angażowania wielu sza- 
rych kómórek pod warunkiem, że szybko znajdziecie tro- 
chę reguł. 

Krzysztof MAMCARZ 


TO REKORD 

IF : numer < ITEM 2 :best Ctype : 
imię typ* char 32 pr '.numer ( ma 
ke "beat Ust umie inumar )J Ct 
ype i item 1 :best i type Char 3 
i pr (i tem 2 : b*st ) ] 

END 

TO UPROU 

SETCUR SE 22 i linę 
MAKE "dane RL 
MRKE "ilpar COUNT :dane 
IF (.par * 3 J3 Cyprom] 

MAKŻ "wył FIRST : dane 
IF : wył < 3 tpr " pr twpadies do 
piwnicy ! 1 ! ] T 0PLEUEL3 
IF :wys > 73 tpr " pr cspadlas z 
dachu ! ! 1 ] topleuel: 

MRKE "32 ITEM 2 rdant 
IF OR : 3 Z <3 :»x >73 Cp r " pr 
Cwypadies przez oknoil!] toplEUE 
l] 

MRKE "di LftST ;dan* 

IF OR : d t < 0 : d i >73 tpr " pr 
Cwypadies przez okno! I II TOPLEUE 
L3 

MRKE "czujnik ; SUM :wys / 13 :S 
Z : dl * 10 ) - ( SUM : a / 10 : b 

: C * 10 ) 

IF : czujnik < 3 Cmak* "czujnik - 
: czujnik] 

MRKE "myg 1003 - : czujnik 
IF : syg * 1033 cpr " pr CBRRUO! 
BOMBA ROZBROJONA!] REKORD TOPLEU 
EL] 

IF : numer = 15 Cpr " pr CNIEST et 
Y! 80MBR WYBUCHA!] TOPLEUEL] 

MRKE "Une : lina + 1 
END 

TO WYDRUK 
SETCUR SE 0 
TYPE : numer 
SETCUR SE 4 


TYPE :wys 
SETCUR SE 6 
TYPE :iZ 
SETCUR SE 12 
TYPE : d l 
SETCUR SE 16 


une 
une 
i i na 
: Une 
: lina 


TYPE : 3 y 9 

MRKE "numer : numer 
END 


+ 1 


U 


10 


TO IN IT 

HT TS CS SETBR 4 

SETCUR C0 33 

PR Cwpisz imię , . .3 

MRKE " imię RL 

MRKE "ilpar COUNT Umie 

IF : i ipir * i n ttopieuei] 

CS SETCUR C0 0] 

REPERT 32 Ctype char 42] 

PR cnr . .wył ,»z . ,d l . .ayana 
REPERT 32 Ctupe char 423 
MRKE "a RANDOM 71 
"" ~ "b RANDOM 71 
"C RANDOM 71 
"wył 3 
"łz 3 
"dl 3 

1000 - ( SUM :a 

MRKE "numer 0 
MRKE "Une 3 
WYDRUK 
END 


TO BOMBA 

IF l .EKRMINE 6553S ) = 0 [make 

"best CEMIL 63 .DEPOSIT 6563$ 1] 
INIT 

REPERT 1S Cwprow wydruk] 

END 


»***•*•»«*•***«•»»*»*** »*»****«• 

nr . .wyi . tz . .d i . .sygna i 

*» ** *a #**»♦*** *»*#***» £****»«»*• 

! h ?» gj 


MRKE 
MRKE 
MRKE 
MRKE 
MRKE 
MRKE 
b : C 



i ;s sf 

“ *0 


ll 



8AAU0! BOMBA ROZBROJONA! 
Krzysztof 8 
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GIEŁDA POMYSŁÓW 

Meritum umie generować 
ludzki głos 

Można się o tym przekonać wpisując pomzszy program, 
który koduie w pamięci dźwięk wprowadzany z magnetofo- 
nu 

Gtos do pamięci mikrokomputera wprowadza się tak jak 
przy wczytywaniu programów. Najlepszy efekt osiąga się 
stosując firmowy magnetofon dołączany do zestawu 

Najpierw należy przygotować okoto piętnastosekundowy 
fragment nagrania (ciągfej mowy, z dość wysokim pozio- 
mem zapisu), następnie połączyć magnetofon z mikro- 
komputerem, włączyć odtwarzanie i w chwili usłyszenia 
dźwięku nacisnąć klawisz „Z” Dźwięk będzie wpisywany 
do pamięci, a po jej wypełnieniu zostanie odtworzony Pro- 
stota wprowadzenia dźwięku okupiona jest zniekształce- 
niami. które powoduje interface magnetofonu. Odtwarzany 
dźwięk przypomina dźwięki z radiostacji krótkofalarskich. 
Na wydruku kodu maszynowego wyróżnione są bajty regu- 
lujące częstotliwość próbkowania sygnału wejściowego 
(pierwszy) i prędkość odtwarzania (dwa następne). Można 
zmieniać ich wartości (heksadecymalnie). 

Piotr BIEDRZYCKI 


18 FOR A=32528 TO 32622 

28 READ A* 

38 N=ASC ( LEFTw<As,l> >-48 

48 N-N-INT <N/12> *7 

58 M=ASC<RIGHTm<A*»1) >-48 

68 M-M- I NT <M/12> *7 

78 B=N*16+M: POKE A.B :W=W+B 

75 NEXT A 

88 ’ KOD MASZYNOWY PROGRAMU 

98 DATA CB,17,7F,CD,48,7F,C9,C5 
180 DATA D5,E5,11,FF,7E,21,00,7F 
110 DATA 36,00,01,01,38,ED,B8,21 
120 DATA 00,47,0E,FF,11,80,00,06 
130 DATA 08,ED, 78 , A3 ,66,07,77,16 
140 DATA 0B , 15, 20 »FD,ED, 51 , 10 , FI 
150 DATA 23, 7C, FE, 7F, 20, £9, 18,23 
160 DATA C5,D5,E5,21,00,47»0E,FE 
170 DATA 16,00, 7E»1E, 08,07, ED, 79 
180 DATA 06, 07, 10, FE, ED, 51, 06, 08 
190 DATA 10,FE,1B,20»F0,23,7C,FE 
200 DATA 7F,20,E7»E1,D1»C1»C9 
210 IF U< >10207 THEN PRINT 

"BLAD W ZBIORZE DANYCH " ! END 
230 CLS 5 POKE 16527,127 
240 PRINTfi 448, . 

"/Z/ - ZAPIS GŁOSU Z MAGNETOFONU 
/O/ - ODTWARZANIE DŹWIĘKU” SPRINT: 
PRINT" WYBIERZ OPCJE /Z,0/" 

250 AM=INKEYw:IF As="0" OR Aw="Z" 
THEN 260 ELSE GOTO 250 
260 IF A«="0" THEN POKE 16526,19 
270 IF A*="Z" THEN POKE 16526,16 
280 PRINTG 782,"-~;A*;"-">:A*="" 

290 U=USR (0) : PRINTO 782," "? 

400 GOTO 250 


LIGA MYŚLĄCYCH 


Zadanie 1 

Zapytano rybaka, ile tfaży złowiona przez niego ryba. 
Rybak odpowiedział: -f kg i jeszcze 2 razy po — swego 
ciężaru. Ile ważyła złowiona przez rybaka ryba? 

Zadanie 2 

Pamiętny w historii rok pewnego odkrycia wyraża się 
liczbą czterocyfrową. Należy znaleźć tę liczbę wiedząc, iż 
suma cyfr tej liczby wynosi 1 6, cyfra tysięcy jest cztery razy 
mniejsza od cyfry setek, cyfra setek jest dwa razy większa 
od cytry jedności, a liczba trzycyfrowa utworzona z szuka- 
nej liczby przez skreślenie w niej cyfry jedności jest o 1 00 
większa od liczby dwucyfrowej utworzonej z szukanej licz- 
by przez skreślenie w niej cyfry jedności i cyjry tysięcy. 

Zadanie 3 

Wieśniaczka sprzedała pierwszej osobie y całej ilości 
jajek i leszcze 2 jajka. Drugiej osobie sprzedała połowę 
reszty jajek i jeszcze jedno jajko. Po drugiej sprzedaży 
zostało wieśniaczce jeszcze 8 jajek. Ile wszystkich jajek 
przyniosła wieśniaczka na targ? Ile jajek kupiła pierwsza 
osoba, a ile druga? 

Zadanie 4 

Codziennie z miejscowości A, w której mieści się urząd 
pocztowy, wyjeżdża listonosz do miejscowości B, C, D, by 
dostarczyć listy. 

W jakiej kolejności powinien listonosz objeżdżać te 
miejscowości aby trasa objazdu z A przez pozostałe 
miejscowości i z powrotem do A była możliwie najkrótsza, 
jeśli długość drogi z A do B wynosi 5 km, od A do C — 7 
km, od A do D — 7 km, od B do D — 8 km, od B do C — 10 
km, od C do D — 6 km? 

Zadanie 5 

Gdy Jan zapytał Andrzeja ile ma lat, usłyszał odpowiedź: 
gdy ja byłem w twoim wieku byłeś ode mnie cztery razy 
młodszy, a gdy ty będziesz w moim wieku ja będę miał 40 
lat. Ile lat ma Jan, a ile Andrzej? 


Rozwiązania zadań prosimy przesyłać do redakcji do końca 
października br. z dopiskiem „Liga Myślących'. Punktacja za- 
leży od liczby prawidłowych rozwiązań. Wśród uczestników 
rozlosujemy książki, a na zwycięzców „Ligi” czekają do- 
datkowe cenne nagródy-niespodzianki. 
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POZIOMO: 5) profesja, II) triumfator, 12) ludae stanowiący ubezpiecze- 
nie, zapewniający ochronę kogoś lub czegoś, 13) środek kosmetyczny 
lub leczniczy, 14) wydłużony narząd kręgowców, stanowiący swego 
rodzaju magazyn krwi, 15) sknera, kutwa, 16) do prowadzenia psa, 

19) motyw działania; zamiar, zamysł, 20) broń sportowa używana w 
szermierce, 23) ruchomy zespół obrabiarki (np. tokarki, strugarki), 
25) składnik ćwikły, 29) ozdobny trawnik lub kwietnik, 30) meta- 
lowa sztaba umacniająca zamknięcie drzwi, bramy, 31) w logice; 
wnioskowanie przez analogię, 32) w USA urzędnik lokalny o 
uprawnieniach adm. -sądowych, 33) zwój o cylindrycznym kształcie, 
34) zmechanizowane urządzenie używane przy sporządzaniu róż- 
nych potraw, deserów i napojów cocktailowych, 38) samiec pszczoły 
miodnej, 40) rei-, grupa trzech bóstw występująca w wielu wierze- 
niach, 43) siewca kłamliwych pogłosek, 44) ... nieszczęść lub sukce- 
sów, 47) opasłe, olbrzymie ciało, 48) sprężarka, 49) popularny zi- 
mowy sprzęt sportowy, 50) ozdoba warkocza, 51) ktoś powolny, 
pozbawiony energii, 52) dłoń złożona w sposób umożliwiający za- 
czerpnięcie, uchwycenie czegoś. 

PIONOWO: 1) wg religii katolickiej: miejsce pozagrobowej okre- 
sowej pokuty dusz ludzi zmarłych, 2) stoi na czele instytucji, przed- 
siębiorstwa, 3) ślubna lub nagrobna, 4) kraj z Edynburgiem, 5) za- 
sób, rezerwa, 6) gable, 7) pospolita ryba morska, 8) duchowny kato- 
licki, 9) kajuta okrętowa, 10) suma pieniężna złożona jako zastaw, 

17) monumentalny grobowiec w formie wolno stojącej budowli, 

18) pisarz szkocko-angielski (1896 — 1981), autor „Cytadeli”, 

20) najwybitniejszy trener polskich pięściarzy, 21) brzdąc, smar- 
kacz, 22) dzielnica Szczecina lub jezioro, nad którym leży to miasto, 
23) uroczyste oddanie salw artyleryjskich, 24) klub sportowy ze 
Szczecina, 26) dawny żołnierz lekkiej jazdy, ubrany i uzbrojony na 
sposób węgierski, 27) źródło, 28) łatwo zapalpa ciecz, produkt desty- 
lacji ropy naftowej, 29) żegl. wiatr wiejący z boku, 35) bursa, 
36) dziecko z grupy starszych w przedszkolu, żłobku, 37) teren wy- 
łączony spod eksploatacji, znajdujący się pod specjalną ochroną, 
39) dawny zakład, w którym uczniowie otrzymywali darmo naukę i 
utrzymanie, 40) aktówka, 41) liczna osada wioślarska, 42) np. Na- 
poleon Bonaparte, 44) wiano, 45) cienki powróz, 46) śnieg na gałę- 
ziach drzew, zwieszający się w kształcie kiści. 

Po prawidłowym rozwiązaniu krzyżówki 'litery z kratek ponumero- 
wanych dodatkowo w prawym dolnym rogu, czytane w kolejności 
odpowiadających im liczb od 1 do 49, dadzą hasło, które wystarczy 
nadesłać jako rozwiązanie zadania pod adresem redakcji do końca 
października 1987 r. Wśród czytelników rozlosujemy bony pieniężne 
i nagrody książkowe. 


Ml KROCI EKAWOSTKI: 


Rysunek z kolekcji GEM wykonany na zestawie firmy ICL 
komputer — DRS 300 
drukarka — Ink Yet Coluor Printer 
(drukarka wykorzystuje miniaturowe działka z różnymi ko- 
lorami tuszu) 


W naszym komputerlandzie| 

Spektruś postanowił zwiększyć w swoim zespole mic/atywę w dziedzinie 
racjonalizacji. Zainspirował więc do działania swojego młodego i zdolnego 
dziełoroba Jaśka Atari. Jaśko przeszedł się po pracowni i rozejrzał po swo- 
jemu. Ujrzał, że jeden z półautomatów wyrabia 20 części na godzinę. — To 
stanowczo za mało — pomyślał. Zabrał się do roboty. 

Po tygodniu specjalna komisja stwierdziła, że pomysł jest dobry — doku- 
mentacja w porządku, a korzyści finansowe udowodnione. W maszynie wy- \ 
mieniono mechanizm napędowy. Półautomat wyrabiał teraz. 40 części na j 
godzinę, Jaśko zaś otrzymał grubą kopertę. 

Do Spektrusia przyszedł jednak brakarz, który stwierdził, że półautomat I 
wyrabia rzeczywiście dużo. ale z jakością jest gorzej. Tylko jedna trzecia 
część nadaje się do użytku. 

Jeszcze tego samego dnia Jaśko stanął przed półautomatem. Pomyślał 
i zabrał się do roboty. Po dwóch tygodniach komisja przyjęła projekt, 
wszyscy klaskali, a Jaśko otrzymał grubą kopertę. 

Po wymianie mechanizmu napędowego półautomat wyrabiał 20 części | 
na godzinę, brakarz nie mógł się nachwalić łych części, lecz roboty nie 
chciały pracować, bo urządzenie hałasować poczęło potwornie. 

Racjonalizator Jaśko znowu był na posterunku. Teraz przygotowywał pro- 
jekt rozwiązania z zakresu bhp. Zaproponowaną przez niego wymianę ukła- 
du napędowego komisja przyjęła bez uwag. Jaśko otrzymał grubą kopertę. 
Półautomat wyrabiał 20 dobrych części, a co najważniejsze, można było wy- 
jąć watę z uszu, bo pracował cicho. 

Zadowolony był też Spektruś. gdy od dyrektora generalnego otrzymał I 
grubą kopertę za wdrożenie w ostatnim czasie trzech wybitnych projektów. 

Podglądał: Eugeniusz MLECZAK 
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Każdy nadesłany do redakcji list 
jest uważnie przeczytany. Staramy 
się w redagowaniu pisma wykorzy- 
stywać pomysły naszych Czytelni- 
ków. Są listy, na które odpowiadamy 
również listami, są także takie, na 
które odpowiedzią jest artykuł czy 
program zamieszczony na naszych 
łamach. 

Czytelnicy zawsze towarzyszyli 
powstawaniu każdego numeru 
„IKS-a". Z waszych listów, a ostat- 
nio także z nadesłanych ankiet wie- 
my, czym powinniśmy się zajmo- 
wać. Dlatego też na naszych łamach 
przeważać będą informacje na temat 
możliwości posiadanego przez was 
sprzętu. Oczywiście pisać nadal bę- 
dziemy o Atari, Commodore, Spec- 
trum, ale także o Amstradzie, które- 
go liczba użytkowników stale wzra- 
sta i IBM czyli olbrzymiej już rodzi- 
nie komputerów od lat wyznaczają- 
cych światowy standard. Zatem po- 
siadacze ośmiobitowych mikro- 
komputerów nadal będą mogli zna- 
leźć u nas informacje o tym, co je- 
szcze potrafią ich komputery, a o 
czym fabryczne instrukcje często 
milczą. Czasami krótki, zawierający 
kilkanaście instrukcji program od- 
kryć może nieznane dotąd walory 
np. starego Spectrum. 

To oczywiście nie wszystko. Już 
od dzisiejszego numeru drukować 
będziemy co miesiąc angielsko-pol- 
ski słownik informatyczny. Mamy 
nadzieję, że ułatwi on studiowanie 
trudnej obcej literatury fachowej. Na 
łamy „IKS-a" trafiła również fanta- 
styka, której autorami są nasi Czy- 
telnicy — publikujemy bowiem 
opowiadania nagrodzone w naszym 
konkursie. 

Jeśli chcecie, aby „IKS" był na- 
prawdę waszą gazetą piszcie do nas. 
Zawartość „IKS-a" zależy od Czy- 
telników. 


W NUMERZE: 

Czy będziemy 
mieli polski 
mikrokomputer? 

W szponach 
Atari (7) 

Przystawka 
magnetofonowa 
do Atari 
Procedury Rom 
SPECTRUM (1) 
Opowiadanie SF 
„Finał” 

Basic (9) 

Badanie 
kierowców 


— str. 4 


— str. 5 — 8 


— str. 11—13 


str. 14 — 15 


— str. 20 
— str. 21—25 


— str. 25—27 


Emulator Basic 1.1 

dla CPC 464 (2) — str. 27 

Informatyczny 

słownik 

angielsko-polski — str. 29 — 30 


TMMT 


Ogólnopolska Federacja Klubów 
Komputerowych Młodych Mistrzów 
Techniki ZSMP powstała w styczniu 
1986 roku. Obecnie w jej skład wchodzą 
264 kluby, wśród których najwięcej jest 
placówek działających przy zakładach 
pracy i szkołach. Podstawowym celem 
Federacji, celem wspólnym dla wszyst- 
kich jej ogniw jest szeroko rozumiana 
edukacja informatyczna młodzieży. 

Oczywiście klub to nie szkoła. Wpra- 
wdzie uczestnicy zajęć — w większości 
zresztą uczniowie, zdobywają wiedzę, 
jednak proces ten ma niewiele wspólnego 
z lekcjami. Porównać go można raczej do 
nauki własnej, do samokształcenia, któ- 
rego kierunki i intensywność zależą od 
indywidualnych zainteresowań konkret- 
nego człowieka. Zadaniem klubu jest 
więc tworzenie optymalnych warunków 
do rozwoju pasji jego członków. Kto ma 
styczność z jakąkolwiek placówką KK 
MMT wie jak trudne jest to zadanie. 

Oczekiwania fanów informatyki, po- 
trzeby które zgłaszają w dziedzinie 
sprzętu (jego ilości czy jakości), literatu- 
ry, wydawnictw, dostępu do oprogra- 
mowania, niejednokrotnie przekraczają 
możliwości organizacyjne i finansowe 
klubu i jego sponsorów. Jednocześnie 
wiele problemów łatwiej pokonać, wiele 
spraw szybciej i taniej można załatwić 
występując grupowo. Stara to zasada i 
wielokrotnie już potwierdzona w prakty- 
ce. Ona też przesądza o sensowności ist- 
nienia Federacji KK .MMT, powołanej 
przecież przez organizatorów i działaczy 
klubów egzystujących wcześniej w poje- 
dynkę, zdanych tylko na własne siły przy 
pokonywaniu wspólnych przecież dla 
wszystkich problemów. 

Korzystając z gościnnych łamów 
„IKS-a” będziemy, od tego numeru na 
bieżąco, informowali o naszych propozy- 
cjach i przedsięwzięciach. Sądzę, że będą 
to sprawy w równej mierze interesujące 
dla klubów pracujących w formule KK 
MMT, nie związanych z Federacją, jak 
też dla indywidualnych posiadaczy mk. 
Chcemy jednocześnie zaproponować 
wszystkim chętnym współdziałanie. 
Więcej — liczymy bardzo na głosy oce- 
niające poszczególne elementy naszej 
oferty, na rady, opinie i podpowiedzi, na 
podzielenie się z nami waszymi przemyś- 
leniami i doświadczeniami. Im więcej 
będzie zabierających głos, im szersze 
kręgi obejmie rozmowa o naszych spra- 
wach, tym bardziej prawdopodobne jest 
wypracowanie najlepszych, najbardziej 
efektywnych metod działania. 

Czekając na wasze listy już teraz pro- 
ponujemy: 

1. Pomoc prawną i organizacyjną przy 
powoływaniu klubów komputerowych. 

2. Nieodpłatne pośrednictwo przy za- 
kupach sprzętu komputerowego dla klu- 
bów bądź ich sponsorów. Przykładowe 
ceny: Amstrad CPC 6128 z monitorem 


zielonym — 520 tys., IBM PC/XT 
(RAM 640, monitor firmowy, karta Her- 
cules, CGA, 1x360 kB — dysk firmy 
NEC) — 1280 tys. zł, hard-dysk 20 MB 
— 1200 tys. — gwarancje — od 12 do 18 
miesięcy. Upusty, które uzyskaliśmy 
wynoszą od 10 do 50 % od cen rynko- 
wych. 

3. Legitymacje, znaczki, plakietki, 
plakaty itp. elementy propagandowe (dla 
placówek KK MMT nieodpłatnie bądź 
w cenie równej kosztom produkcji). 

4. Wydawnictwa serii „Mikrokompu- 
terowe ABC” (nieodpłatnie dla placówek 
KK MMT). 

Jednocześnie jeszcze w tym roku bę- 
dziemy kompletowali i rozsyłali (również 
nieodpłatnie), klubom zrzeszonym w 
Federacji, pakiety książek, wydawnictw 
oraz programów uznanych za najlepsze z 
dostępnych w kraju. Listę zawierającą 
konkretne tytuły opublikujemy. 

A może, ...może zechcecie nam pod- 
powiedzieć, jakie waszym zdaniem 
książki i które programy (narzędziowe, 
użytkowe, dydaktyczne i zabawowe) po- 
winny znaleźć się w takim pakiecie? Jeże- 
li tak, kontaktujcie się z Sekretariatem 
Rady Ogólnopolskiej Federacji Klubów 
Komputerowych Młodych Mistrzów 
Techniki, Warszawa, ul. Smolna 40 pok. 
414 lub dzwońcie tel. 26-54-01 wew. 362 
lub 232. 

Jeżeli chcecie dowiedzieć się szczegó- 
łów czytajcie „IKS-a", słuchajcie też ko- 
lejnych emisji „Radiokomputera”, który 
będziemy dla was współredagować. Dla 
posiadaczy mk. kompatybilnych z ZX 
Spectrum wiadomość dodatkowa — w 
każdy czwarty piątek miesiąca „Radio- 
komputer” emitował będzie „Kompute- 
rowy Biuletyn Informacyjny” w postaci 
programów przyswajalnych przez popu- 
larnego „Spcktrusia”. 

I na razie to byłoby już wszystko. 
Pozdrawiam, zapraszam do współpracy. 


Krzysztof KRUPA 
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ATARI STAR TEKTER 


w iKS-ie nr e z bieżącego roku 
zaprezentowany został jeden z wielu 
opracowanych dla Mikrokohputerow ATARI 
edytorów tekstu - ATARI MRITER ( M szponach 
ATARI, str. 8— SI . Autorzy artykułu 
'stwierdzili, że poważna wada tego progrjHu 
Jest brak Możliwości uzyskiwania znakiw 
specyficznych dla polskiego alfabetu zarówno 
na ekranie Monitora jak i na drukarce. 
Rzeczywiście, dla polskiego użytkownika jest 
to bardzo istotna wada, eliMinuJaca 

praktycznie ten prograM jako narzędzie do 
redagowania i drukowania artykułów, piSM,itp. 


ChciałbyM przedstawić dzisiaj 
czytelników inny edytor tekstu - STAR TEKTER, 
wprowadzony na rynek oprograMowania w 1985 
roku przez firnę 5YBEK yerlag GMbH. AutorcM 
prograMu Jest Toni Schwaiger, a weręję 
prograMu na ATARI opracował Carsten 

Reinhardt. Najpoważniejsza zaleta tego 
edytora, w stosunku do takich jak atari 
MRITER, jest to, ie uMożliwia on w łatwy 
sposób definiować i wykorzystywać, 

praktycznie dowolny kształt liter.które sa 
wyświetlane na Monitorze i drukowane na 
drukarce, przy czyM wszystko to dzieje się 
bez jakiejkolwiek ingerencji w konstrukcje 
prograMu jak ' i współpracującej z niw 
drukark i . 

Na początek kilka inforwac ji 
ogólnych o tyM edytorze. STAR TEKTER do 
prawidłowego funkcjonowania wyMaga stacji dy- 
sków. Bufor paMięci, w któryM przeć howywu je 
on zredagowany teks t, pos i ada pojeMnoSć ok. ZO 
KB. Jest on zorganizowany w 250 linii po 80 
znaków każda, co UMożliwia obróbkę tekstu o 
objętości 7-8 stron Maszynopisu forwatu A- 4. 
Teksty o większej objętości muszo być 
dzielone na czeSci, zapisywane na dyskietce, 
które sa redagowane oraz drukowane 
oddzielnie. Edytor STAR TEKTER składa się z 
trzech zasadniczych prograMów użytkowych: 
progr-anu i nsta 1 ac y jnego o nazwie INSTALL . BAS, 
właściwego edytora oraz prograMu 

umoż 1 i wia jecego definiowanie potrzebnych 
użytkownikowi znaków. PrograM ten napisany 
jest w jeżyku BASIC i zapisany jest w zbiorze 
o nazwie STARFONT . BAS . Ponieważ dzięki te»u 
prograMowi STAR TEKTER posiada cecho tak 
istotnie, z punktu widzenia polskiego 
użytkownika, wyróżniająca go spoSród innych 


edytorów, warto chyba prezentacje całego 
edytora rozpocząć od niego. 

STARFONT. BAS jest prograMeM, 
dzięki któreMU użytkownik Może definiować 
własne zestawy znaków, bedż Modyfikować już 
istniejące. Mogę to być właśnie specyficzne 
znaki dla polskiego alfabetu lub inne. Na 
przykład: MateMatyk bez probleMU Może pisać 
takie wzory: 

108 b 

Ea Cni lub Jf(x) 
n=i a 


KtoS, kto bardzo lubi skróty. 
Może w redagowanyM piSMie podawać swój nuMcr 
telefonu poprzedzony znakieM » zaMi ast 
skróteM te 1 . •• , natoMi ast ten, kto Ma 

przyjaciela w Moskwie, Może. za pomoct tego 
edytora napisać do niego list zaczynający się 
tak: Aoporoń Bophc .... Prokycznie kształt 
definiowanych znaków zależy jedynie od 
wyobraźni użytkownika i oczywiście od 
Możliwości koMputera, tworzony znak mus* się 
Mieścić w Matrycy 8x0 pikseli co Może 

niezadowolić zwolenników kaligrafii, lecz 
proszę paMietać, że ATARI jest tylko 
Mikrokomputer cm donowyM. Na dyskietce 
zawierającej STAR TEKTER-a możno zdefiniować 
10 różnych zestawów znaków. Jeżeli liczba ta 
nie zaspokoi potrzeb użytkownika. Można na 
kolejnej dyskietce zdefini i zapisać 

kolejnych dziesięć zestawów. 

Druga cenna zaleta edytora STAR 
TEKTER jest Możliwość zaadoptowania go do 
współpracy z dowolnyM typcM drukarki, która 
Można podłączyć do MikrokoMputera ATARI. 
Standardowo. edytor zawarty na dyskietce 
UMożliwia wybranie jednej z czterech 
drukarek : 


1. ATARI 1029 

2. ATARI 1027 


3. EPSON (lub inna) z interfejsem 

4. EPSON (lub inna) z laczcM 

wykorzystu Jac yM gniazda dżojstików. 

Zadanie przystosowania edytora do 
współpracy z drukarkaMi innymi niż wyżej 
wyMienione realizuje prograM INSTALL . BAS-. Po 
jego uruchoMieniu wyświetlane sa cztery typy 
drukarek jak wyżej. Jeżeli użytkownik nie 
posiada jednej z czterech wymienionych 
drukarek, to w zależności od typu lacza, 
któryM dukarka połączoną Jest z koMputerem 
(interfejs lub Gamę Port), Musi on wybrać 
liczbę 3 lub 4. Następnie należy podać 
prograMowi INSTALL. BAS sekwencje kodów (liczb 
dziesiętnych) wywołujących określona funkcje 
drukarki . Na przykład: jeżeli drukarka 

użytkownika włączą podkreślenia, otrzyMUjoc 
sekwencje znaków ESC, CONTROL + Y, to w prograMi* 
install. bas odpowiednia funkcja właczajaca 
podkreślenia Musi być wywołana sekwenc j-a 
kodów 27,25. PrograM INSTALL . BAS UMożliwia 
/definiowanie, poprzez podanie sekwencji 
kodów, maksymalnie 10 funkcji ponumerowanych 
od o do 9. M redagowanyM tekście można używać 
funkcji przez podanie odpowiadających im 
liczb w celu wyróżnienia jego fragMentów. 
Mlasciwy edytor stwarza użytkownikowi 
Możliwości redagowania tekstu zbliżone do 
tych, które oferuje ATARI MRITER. Można w 
redagowanyM tekście wstawiać lub kasować 
znaki, wyrazy, zdania i całe paragrafy. Można 
kopiować cale fragmenty tekstu z jednego 
Miejsca w inne, wyrównywać Marginesy lub nie. 
Można zlecić edytorowi wyszukanie w napisanym 
tekście określ ;ch wyrazów i zastąpić je 
innymi. Mzal-.uoSci od Możliwości drukark* 
współpracującej z komputerem można fragmenty 
tekstu wyróżniać przez drukowanie ich innym 
krojem pisma. Na przykład: pracując z 

drukarka ATARI 1029 Można stosować 
P • s m o 

rozszerzone. Przy wykorzystaniu innych 
drukarek Można pj^,ać pisMen wysokim, niskim, 
podniesionym lub opuszczonym. Po napisaniu 
tekstu Można zlecić edytorowi jego 
sforMatowanie, wówczas zostanie on 
przedstawiony na ekranie dokładnie w takiej 
postaci, w jakiej trochę później zostanie 
wydrukowany . Do obejrzenia tekstu 
.formatowanego służy zawarta w edytorze opcja 
przedstaw, a jęca tekst w trybie 80 kolumnowym 
oznacza to, że w jednej linii ekranu 
wyświetlanych jest 80 znaków. Tryb ten jest 
bardzo wygodny dla użytkownika, ponieważ 
wiernie odzwiertiedla kształt tekstu, jaki 
bodzie on Miał po wydrukowaniu, cliMinujac 
jednocześnie żMudne przesuwanie kursora od 
lewego Marginesu do prawego i odwrotnie! 
Tekst przedstawiony w trybie 80 kolumnowyM 
jest trudniejszy do czytania, z tego Towodu, 
że normalnie znak (wyświetlany w trybie 
40 kolumnowym) składa sie z G4 pikseli, 
natomiast w tyM trybie jest on 
..przepołowiony" składa się z 32 pikseli 
(4x8) . 

Inna cenna zaleta edytora jest to, 
ie oferuje on użytkownikowi w trakcie pisania 
tekstu wykorzystanie, czasami bardzo 
potrzebnego narzędzia kalkulatora. Jeżeli w 
trakcie pisania użytkownik potrzebuje 
obliczyć wartoSć skomp l i ko wanego wyrażenia 
matematycznego,nic musi sięgać po kartkę, 
ołówek czy elektroniczny kalkulator. 
Wystarczy, ie,y jakimś wolnym wierszu wpisze 
to wyrażenie fak, jak się pisze wyrażenia 
matematyczne w języku BASIC, wywoła 
•.» .'.tor ...tutor » . 7.1 . | : ; r 1< 

wyświetlony na ekranie wynik. Kalkulator w 
STAR TEKTERZE dopuszcza używanie pięciu 
operacji, to jest: odejmowania, dodawania. 

Mnożenia, dzielenia i potęgowania. Oprócz 
tego dozwolone jest stosowanie nawiasów, 
funkcji matematycznych dostępnych w języku 
BASIC oraz operatorów logicznych. 

Przedstawia jac czytelnikom iKS-a 
jeszcze jeden edytor tekstów opracowany dla 
mikrokomputerów ATARi ; nie chce stwierdzić, że 
jest to narzędzie lepsze od innych. Napewno 
STAR TEKTER jest interesujący dla polskiego 
użytkownika ze względu na dostępność 
•■polskich" znaków zarówno na ekranie jak i 
drukarce. Próbkę Możliwości star tektera 
obrazuje niniejszy artykuł, napisany, 
zredagowany i wydrukowany na drukarce atari 
1029 przy Jego poMocy. 


Redakcja dziękuje Towarzystwu Wynalaz- 
ców Ratio za udostępnienie polskiej wersji 
edytora Star-Texter, którego możliwości 
zaprezentowaliśmy powyżej. 
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Czy będziemy mieli 
polski mikrokomputer? 


O historii polskich mikrokomputerów 
można by napisać poważną rozprawę. 
Być może wkrótce rozszaleje się dyskus- 
ja w poszukiwaniu odpowiedzi dlaczego 
nam się nie udało. Argumentów z pew- 
nością nie zabraknie. 

Po ciwrowskim Junior/e, po reklamowa- 
nym Kraku 86 i okrzyczanej Mazovi pojawił 
się na wybrzeżu BOSMAN-8. Mikrokompu- 
ter skonstruowano w ubiegłym roku; pierwsze 
prototypy pokazano na Targach Poznańskich 
zapowiadając możliwość rychłego urucho- 
mienia seryjnej produkcji w gdańskim 
UNIĄIORzć. 

Produkcji, ale czego? BOSMAN-8 jest 
mikrokomputerem ośmiobitowym zbudowa- 
nym w oparciu o procesor Z80 A. Posiada 
pamięć RAM o pojemności 512 KB i 16-kilo- 
wy EPROM. Standardowo ma dwa napędy 
dysków elastycznych 3, 3.5 lub 5 1/4 calo- 
wych. Pracuje pod nadzorem systemu opera- 
cyjnego CPM/R (zgodnym z CPM 2.2) rezy- 
dującym w ROM-ie, który umożliwia dołą- 
czenie dowolnych urządzeń zewnętrznych z 
interfejsem szeregowym V24 lub równoleg- 
łym (Centronics, DZM-180). 

Istotną zaletą tego komputera jest dysk 
krzemowy o pojemności 416 KB, który zna- 
cznie usprawnia pracę programów często od- 
wołujących się do pamięci dyskowej. Zwięk- 
szenie szybkości i niezawodności mikrokom- 
putera uzyskano również przez umieszczenie 
systemu operacyjnego w pamięci EPROM. 



To oczywiście nic wszystkie niespodzianki. 
W pamięci stałej rezyduje również program 
poprawiający sprawność komunikacji użyt- 
kownika z komputerem. Przede wszystkim 
pozwala on na przetwarzanie pliku komend 
zwanego plikiem wsadowym, umożliwia 
w prowadzenie informacji na drukarkę równo- 
legle z wykonywaniem innego programu czyli 
tzw. drukowanie w tle. 

Program D łączy w sobie możliwości sy- 
stemowych poleceń CP/M takich jak: DIR, 
ERA, REN, PIP, STAT, TYPE, DUMP, 
USER. 

BOSMAN-8 jest łatwy w obsłudze, dobre 
oprogramowanie sprawia, że nadaje się on 
szczególnie do przetwarzania danych w biu- 
rach i małych przedsiębiorstwach, przetwa- 
rzania tekstów, obliczeń inżynierskich, prac 
projektowych i programowych (kompilatory 
języków: Fortran, Basic, Cobol, C. Forth, 
Pascal), organizacji sieci lokalnych. 

Jeszcze jeden ważny szczegół, BOS- 
MAN-8 z odpowiednim oprogramowa- 
niem może pracować jako końcówka du- 
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żych komputerów z wiclodostępem np. 
R-32, IBM-360, VAX, ODRA. 

Inaczej mówiąc konstruktorzy włożyli wiele 
wysiłku, aby z poczciwego już przecież Z80 A 
wycisnąć wszystko co można. I tu kolejny już 
raz w historii polskiej myśli technicznej należy 
schylić czoła przed pomysłowością i odwagą 
naszego konstruktora. BOSMAN-8, pracow- 
nikom Instytutu Okrętowego Politechniki 
Gdańskiej (bo oni właśnie są konstruktorami 
tego mikrokomputera), udał się. 

Tu jednak wyraźnie podkreślić trzeba, żc 
BOSMAN IBM-em nie jest! Będzie nato- 
miast- sukcesem, jeśli uda się uruchomić jego 
masową produkcję. Konstruktorzy mają swoje 
racje. Sprzęt klasy IBM nie jest przecież 
wszystkim potrzebny, a jego obecność w wielu 
miejscach byłaby po prostu marnotrawstwem. 
Nasza rodzima informatyka opierać się będzie 
w najbliższej i chyba, niestety, dalszej przy- 
szłości o lokalne systemy informatyczne. Na 
budowę rozbudowanych sieci przy obecnym 
stanie łączności nas po prostu nie stać. Na 
przykład w wielu przedsiębiorstwach można 
by sieci konstruować w oparciu właśnie o 
BOSMAN-a, pozostawiając komputer lepszej 
klasy jako jednostkę centralną. Okazuje się, żc 
BOSMAN całkiem dobrze pracuje jako ter- 
minal szesnastobitowego IBM-a. Ale to są 
problemy techniczne. W wielu przypadkach 
drugorzędną sprawą jest czas uzyskania in- 
formacji. Zysk rzędu kilku nawet minut jest w 
przypadku naszej organizacji niezauważalny. 
Na przykład zestawienia statystyczne przygo- 
towane na nowoczesnym DRS300 w czasie 
paru minut (firma ICL) mogą zupełnie spo- 
kojnie przeleżeć na biurku referenta nawet 
kilka dni, zupełnie go nie drażniąc. 

Czy dzięki BOSMANOWI zmieni się in- 
formatyczny krajobraz naszego kraju? 

inż. Andrzej NOWAK 
z-ca dyr. Instytutu Okrętowego 
Politechniki Gdańskiej 

— BOSMAN powstał z konieczności. Oka- 
zało się, że zrobienie własnego komputera jest 
tańsze niż zakupienie takiego urządzenia np. 


w Zabrzu. Sądzę, żc udało się zrobić mikro- 
komputer mneoczestiy i niezawodny. Nasze 
prototypy nie wprawiły jeszcze twórców w 
zakłopotanie. 

Oczywiście nie jest to światowa nowość. 
Nasza propozycja jest optymalnym rozwią- 
zaniem na miarę możliwości materiałowych i 
technologicznych, a także rzeczywistych po- 
trzeb. 



inż. Mieczysław BARGIEL 

kierownik Zakładowego Ośrodka 
Opracowań i Produkcji Doświadczal- 
nego Sprzętu Informatycznego 
(UNIMOR) 

— Od prototypu do seryjnej produkcji dro- 
ga jeszcze daleka. UNIMOR jest w stanie 
BOSMAN-a robić. Oczywiście istnieje jesz- 
cze problem kosztów. U'' tej chwili podst awa- 
nsu konfiguracja tego mikrokomputera kosztowa- 
łaby w granicach 901) — / 100 tys. Przy uru- 
chomieniu produkcji seryjnej być może dałoby 
się ją obniżyć. Z pewnością taniej kosztowały- 
by nas dolarowe podzespoły (chociażby napę- 
dy). Dotychczas kupujemy je pojedynczo, a 
taki zakup jest z reguły droższy od hurtu. Po- 
za tym nie zawsze możemy liczyć na rodzi- 
mych kooperantów, nie wszyscy potrafią uru- 
chomić nowoczesną produkcję. 


biorstw 


UNIMOR są 

u polskiego przemysłu elektronicznego. 


utyro przcdsię- 


Zairudniają liczną kadrę fachowców dla potrzeb wiclkoseryjncj produkcji telewizorów 
oraz profesjonalnych urządzeń radiokomunikacji morskiej i lotniczej. 

przygotowania do produkcji sprzętu informatycznego, który, obok 
.Neptun’, slunnwić Mec oferty produkuj in» 

X»w odbiornik, ickwidyjne, zarówno rTKawuhrtun.tyi.rnc, jak i kolorowe, s Itak do- 
skonalone I dwmowywanc do wy mu guń klicmów. 

0|Wóa nowucacmych układów rlrktruniuniYch. odbiorniki tc pada** cslrtjv.UK 
kształty, dououowanc do gouda odbiorców i mody panuiwi na rynku. Maga byd 
(na podczerwień) oraz odbierać program, w >yMcmacłi 


[. i ....... ..... . 

niki turystyczne mogą byt młtat. z 
własną antenę. 

Produkcja małoseryjna to przede wszystkim radiostacje ratunkowe dl* statków, wyposa- 
: żenić radiokibiny okrętowej, radiostacje kutrowe itp. 

Dl* samolotów sanitarnych i rolniczych oraz szybowców produkujemy mak- radiostacje 




W szponach /\t&ri ( 7 ) 

Edytor gracz-pocisk 


Możemy wyrzucić papier milimetrowy i tablice konwersji dwójkowo- 
-dziesiętnej. Program nr 4 umożliwi projektowanie graczy i pocisków na 
ekranie za pomocą manipulatora. Dzięki jego odpowiedniej konstrukcji, łat- 
wo możemy przedstawić graczy dowolnej wielkości, włączając obiekty o 
podwójnej szerokości lub łączenie dwóch graczy w jednego. Po wykona- 
niu tego możemy obejrzeć gracza „w akcji", a nawet automatycznie wy- 
generować procedurę w języku BASIC do używania graczy i pocisków we 
własnych programach. Wszystkie możliwości programu opisane są w 
dalszej części. 


Używanie edytora 

Obejrzyjmy prosty przykład użycia 
programu. Wybierzmy gracza o roz- 
dzielczości dwuwierszowej, pojedyn- 
czej szerokości i długości ośmiu linii. 
Umieśćmy kursor w prawym, górnym 
rogu sztalugi, naciśnijmy „K” dla wy- 
brania kreślenia, przesuńmy kursor do 
lewego, dolnego rogu i naciśnijmy kla- 
wisz. Mamy gracza składającego się z 
przekątnej. Naciśnijmy „S” w celu za- 
trzymania, po wyświetleniu menu na- 
ciśnijmy „L” Komputer wyświetli teraz 
gracza w postaci danych numery- 
cznych. Zauważmy, źe każda liczba 
reprezentuje wartość bitową punktów 
elementarnych G-P w miarę przesu- 
wania się w dół gracza, linia po linii. 
Aby zobaczyć naszego gracza w trybie 
grafiki G-P. należy nacisnąć „0". po kil- 
ku sekundach pojawi się on na ekranie. 

A co będzie, gdy zechcemy zoba- 
czyć nasz obiekt w rozdzielczości jed- 
nowierszowej i o wielkości cztery? W 
oknie tekstowym pojawiają się odpo- 
wiednie instrukcje i bez trudu mogą 
być przeprowadzone * odpowiednie 
zmiany. Załóżmy, że chcemy dokonać 
zmiany obrazu. Po kilku naciśnięciach 
klawiszy znowu jesteśmy na sztaludze. 
Różni się ona teraz od oryginalnej, za- 
równo wielkością, jak i kształtem, 
odzwierciedlając zmiany. Program za- 
pewnia całkowitą swobodę przy prze- 
chodzeniu z jednego obszaru do drugie- 
go Umożliwia to wykonanie tylu zmian, 
ile potrzeba, przed zapisaniem ostate- 
cznych danych obrazu na taśmie. Mo- 
żemy dodać lub wykasować linie u gó- 
ry lub u dołu. a procedura wypełniania 
umożliwi wypełnienie obszaru. 

Poeksperymentujmy z łączeniem 
dwóch lub czterech graczy, zmianą pa- 
rametrów wielkości i rozdzielczości, a 
uzyskamy lepsze zrozumienie znacze- 
nia i wzajemnych relacji tych parame- 
trów. 


Jednym z unikalnych narzędzi uży- 
wanych w programie jest wykorzysta- 
nie funkcji SGN i operatorów logi- 
cznych do przekształcania odczyta- 
nych wartości STICK(O) na współrzęd- 
ne X. Y. Aktualne przykłady w progra- 
mie mogą być trochę niejasne. Proce- 
dura jest następująca: 

10 S=STICK(0) 

20 IF S<12 THEN X=X+SGN (8-S): 

: X = X + (X<XMIN) - (X>XMAX) . S = 
S + (X<8)*4 -I- 4 

30IFS<15THENY=Y+SGN(1 3.5— S): 

: Y = Y + (Y<YMIN)— (Y<YMAX) 

Możecie nie wierzyć, lecz te trzy linie 
odczytają dziewięć pozycji manipulato- 
ra. tłumacząc odczyty na nowe współ- 
rzędne X, Y i dopasują te współrzędne 
do granic wyrażonych przez wartości X 
i Y, maksymalne i minimalne. Dla nie- 
obytych z instrukcjami logicznymi, war- 
tość w nawiasach porównania lub 
równości staje się jedynką, jeśli waru- 
nek jest sp^iony i zerem, jeśli nie- 
spełniony. Takie instrukcje mpgą czę- 
sto zredukować dwie linie kodu, używa- 
jące instrukcji IF. do jednej linii. 

Zwróćmy uwagę na ostrzeżenie, jeśli 
planujemy wykorzystanie programu. 
Przeznaczony on jest do użycia z roz- 
dzielczością jednowierszową. Adresy 
dla graczy, w pamięci G-P. indeksowa- 
ne są przez numer strony. Jednak przy 
rozdzielczości dwuwierszowej pamięć 
dla graczy dwa i cztery rozpoczyna się 
w odstępie połowy strony i nie może 
być osiągnięta. Program kreślenia G-P 
obchodzi to ograniczenie poprzez roz- 
szerzerńedługości graczy jeden i trzy w 
celu włączenia graczy dwa i cztery od- 
powiednio. Działa to jednak tylko wte- 
dy, gdy sąsiedni gracze przesuwani są 
razem. 

Instrukcja programu 
A. Pytania początkowe 

1. Wprowadzenie rozdzielczości. 
Rozdzielczość wszystkich graczy i po- 


Tomasz MROWIEĆ 
Ludwik PIELA 

Cisków musi być taka sama w jednym 
programie. 

2. Wprowadzenie gracza lub poci- 
sku. Gracz ma szerokość ośmiu punk- 
tów elementarnych G-P; pocisk ma 
szerokość dwóch punktów. 

3. Wprowadzenie liczby graczy. 
Mamy do dyspozycji czterech graczy, 
każdy o szerokości ośmiu punktów 
G-P. Można podać dowolną ilość 
graczy umieszczonych obok siebie i 
przesuwanych razem. 

4 Wprowadzenie wielkości. Para- 
metr ten może być zmieniony później w 
programie. 

5. Wprowadzenie liczby linii piono- 
wych. Linie mogą być dodane lub wy- 
kasowane później w programie 

B. Sztaluga kreślenia 

Sztaluga kreślenia ma kolor zielony. 
Kreślony gracz pojawi się w kolorze 
pomarańczowym. Kursor wskazywany 
jest przez jaśniej zabarwiony obszar 
zielony lub pomarańczowy. W celu 
zmiany koloru należy nacisnąć przy- 
cisk manipulatora. Do przesuwania 
kursora używamy manipulatora. 

Opcje klawiatury: 

( 0 - 9 ) Steruje szybkością ruchu kur- 
sora. 0-szybko, 9-wolno, 2-szybkość 
początkowa 

(K) reślenie: kreśli linie od aktualnej 
pozycji kursora Przesuńmy kursor do 
nowej pozycji i naciśnijmy przycisk w 
celu wykreślenia linii między dwoma 
punktami. 

(W)ypełnianie: Używane do wypeł- 
nienia obszaru. Musi on być ograni- 
czony przez kolor pomarańczowy na 
wszystkich bokach Należy umieścić 
kursor poniżej najwyższej zielonej spa- 
cji i jeśli to możliwe, powyżej najniższej 
zielonej spacji oraz nacisnąć W. Dla 
obszarów o urozmaiconym kształcie 
procedura ta może wymagać powtó- 
rzenia. 

(L) inie: Dodaje lub kasuje- linie od 
góry lub dołu sztalugi. 

(S)top: Zatrzymuje kreślenie. Po 
wykreśleniu skomplikowanego rysunku 
może być zauważalne oczekiwanie 
podczas tłumaczenia diagramu na da- 
ne numeryczne. 

C. Menu opcji 

(O)bejrzeć: Obserwacja gracza w 
grafice G-P. Przesuwamy gracza przy 
użyciu manipulatora. W czasie realiza- 
cji tej opcji można nacisnąć: 

(W)ielkość — do zmiany wielkości 
gracza 


ZL 4 REM ********************* 

FG 3 REM * , * 

AR 6 REM * Proirjim nr H * 

FI 7 REM * * 

ZP 8 REM ********************* 

UE 10 DIM A$<1),P<3),PY<3),PX<3)' 
PA-2 ' LA* 1 390 ' CO-24 < PLX-53248 - P 
LY* 1780 PLL- 1784 

DX 13 IF PEEK< 1536) 0 162 THEM GOS 
U8 9000 

YV 20 PM-PEEK < 1 06 ) - 1 6 •' PMB=PM*256 1 
POKE 54279, PM FOR A-0 TO 3-P<A 
)-PMB+A*24 : NEXT A 
GW 30 GRAPHICS 0'? = ? "PODAJ R02D 
Z I ELCZOSC PIONOWA = "<? <? " <1 

) -DWUWIERSZOWA" <? «? " <2)«JE 

DNOWIERSZOWA" 1 ? 

TX 40 TRAP 30 'INPUT RE' IF RE>2 OR 
RE<1 THEN 30 

DI 50 ? «? "CZY CHCESZ DEFINIOWAĆ 
0?ACZA CZY"'? "DOCISK"; 'TRAP 
50'INPUT A* 1 IF AfO"G" AND A*< 
>“P" THEN 30 

OE 60 IF A*="P" THEN MI-1NP-1-GO 
TO 80 

BK 70 ? ■? "ILU GRACZY CHCESZ DEF 
INIOWAC <l-4)"; 'TRAP 70'INPUT 
NP ' IF NP<1 OR NP>4 THEN 70 
IG 80 NP-NP-1 ' ? >? "PODAJ ROZMIAR 
POZIOMY <1,2 LUB 4)" ; 'TRAP 80 
' INPUT SI 1 IF 81 <1 OR SI>4 OR S 
1-3 THEN 80 
RK 90 GOSUB 170 

DR 100 ? ■? "ILE LINII BEDZIE MIA 
L GRACZ <1-24)"; 'TRAP 100'INPU 
T VL'IF VL<1 OR VL>24 THEN 108 
NA 110 GOSUB 200 ' SETCOLOR 2,12,6' 
COLOR 3 < X-20*G ■ Y» 1 0*G- 1 = PLOT X 
, Y ' DRAWTO X+XD, Y 

KB 120 IF STRIG<0)*0 THEN POKE 71 
0, 42+<PEEK<710)-42)*156 1 PLOT X 
,Y 'DRAWTO X+XD, Y 

JL 130 S*STICK<0) 1 IF S<15 THEN GO 
SUB 250 

VZ 140 IF PEEK< 53773) <255 THEN 30 
0 

SW 150 FOR A-l TO 25*PA‘NEXT A 
MO 160 GOTO 120 

UG 170 IF RE*<NP+1 )*SI <17 THEN RE 
TURN 

BP 180 GRAPHICS 0'? '? "NIE MOGĘ 
ZDEFINIOWAĆ 4 GRACZY O ROZDZIE 
LCZOSCI JEDNOW I ERSZOWE J I ROZM 
IARZE >2." 

TP 190 ? " ROZMIAR BEDZIE ZMIENIO 
NY NA 2. "'81-2'? '? "NACISNIJ 
RETURN" < INPUT A* « RETURN 
BP 200 XD1-RE*SI -XD-XD1-1 H-<NP+1 
)*XD1 1 IF MI THEN H-H/4 

Al 210 G-l + < <H>5> OR <VL>20))+2*< 
<H> 10) OR <VL>40)> 'GRAPHICS 19 
+<G> 1 >*G 

Ul 220 YMIN*INT<10*G-VL/2) 'YMAX»I 
NT < 1 0*G+ VL/2- 1 ) • XM I N-20*G-4*H • 
XMAX»20*G+4*H- 1 -XD 
VA 230 SETCOLOR 0, 2, 8 ' SETCOLOR 1, 
12, 4 'COLOR 2 'FOR Y-YMIN TO YMA 
X 1 PLOT XMIN,Y' DRAWTO XMAX+XD,Y 
'NEXT Y= RETURN 
VM 250 GOSUB 290 

RO 268 IF S<12 THEN X«X+SGN<8-S)* 
XD1 ' X*X+<X<XMIN)*XD1-<X>XMAX)* 
XD1 S-S+<S<8)*4+4 
ZE 270 IF S<15 THEN Y«Y+SGN<13.5- 
S) ' Y-Y+<Y<YMIN)-<Y> YMAX) 

TQ 280 LOCATE X,Y,A POKE 710,PEEK 
< 707+A ) +2 ' COLOR 3 'PLOT X,Y = DRA 
WTO X+XD,Y‘ RETURN 
JB 290 COLOR 1+(PEEK<710)-198) PL 
OT X,Y' DRAWTO X+XD, Y « RETURN 
VW 300 GOSUB 480' IF A-ASC<"K") TH 
EN 450 

CJ 310 IF A=ASC< "W") THEN 600 
QU 320 IF A*ASC< "S" ) THEN GOSUB 7 
00 GOTO 900 

RN 330 IF A*ASC<"L" ) THEN GOSUB 7 
00 GOTO 750 

UX 340 IF A <58 AND A>47 THEN PA=A 
-47 

MO 350 GOTO 120 

IY 400 OPEN #1,4,0,"K'"'GET #1,A= 
CLOSE #1 


WX 410 IF PEEK< 53755) <255 THEN 41 
0 

ZE 420 RETURN 
BZ 450 X1«X ' Y1*Y 

ZO 460 S*STICK<0) ' IF S-15 THEN 46 
0 

Ul 470 GOSUB 260 
WV 480 IF STRIG<0)=0 THEN 510 
KA 490 S=STICK<0) •• IF S<15 THEN GO 
SUB 250 

PY 300 GOtO 480 

WS 510 COLOR 1 1 X2-X « Y2- Y ' Y3-Y 1 ; A* 
XD1*SGN<X2-X1 ) 1 6*SGN<Y2-Y1 ) 'C- 
X2-X 1 +A 1 D- Y2- Y 1 +B 
SW 520 IF C-0 OR D*0 THEN FOR A*0 
TO XD > PLOT X1+A,Y1 'DRAWTO X2+ 
R,Y2'NEXT A 'GOTO 570 
UU 530 FOR X-X1 TO X2 STEP A 'FOR 
Y-Y3 TO Y2 STEP B'PLOT X,Y'DRA 
WTO X+XD , Y 

HB 540 IF <X-X1+AVC-<Y-Y1+B)/D T 
HEN Y-Y+B = GOTO 560 
RS 550 IF <X-X1+A)/'CXY-Y1+B)/D T 
HEN NEXT Y 

BJ 560 Y3-Y ' NEXT X = X«X-A 1 Y-Y-B 

DU 570 GOSUB 280 'GOTO 120 

SH 600 Xl-X' COLOR 2 'PLOT X,Y'DRAW 

TO X+XD , Y ' B-670 


c Z 

NL 


FT 

CN 

EX 

KQ 

NN 

UF 

PG 

YO 

RS 


IB 

PB 


CD 

DI 

LQ 


RS 610 GOSUB B< LOCATE X,Y-1,A'IF AK 
A-2 THEN Y-Y-l = GOTO 610 
TG 620 GOSUB B' LOCATE X-1,Y,A'IF 

A-2 THEN X«X-1 'GOTO 620 JL 

IB 630 GOSUB B' COLOR l-PLOT X,Y 
US 640 GOSUB B= LOCATE X+1,Y,A'IF TT 
A-2 THEN X-X+l 'PLOT X,Y'GOTO 6 
40 

PB 650 X»X1 'Y-Y+l 'GOSUB B‘ LOCATE QA 
X, Y,A‘ IF A-2 THEN 620 
EO 660 GOSUB 280 'GOTO 130 ED 

UV 670 IF X=XMRX OR X=XMIN OR Y-Y PF 

MAX OR Y-YMIN THEN POP GOSUB 
280 GOTO 120 

ZS 680 RETURN RN 

FA 700 GOSUB 290 'FOR A-0 TO NPB- 
0'X1«XMIN+8*A*XD1 'FOR Y-YMIN T WI 
O YMIN+VL-1 

DO 710 C-128 1 D-0 1 FOR X-X1 TO Xl+7 BJ 
*XD1 STEP. XD1 : IF MI THEN FOR X 
=XMIN TO XHIN+XD1 STEP XD1 WI 

WN 720 LOCATE X,Y.E'IF E-T THEN D 
-D+C HY 

PB 730 C-C/2'NEXT XB=B+l'POKE P< 

A)+B,D'NEXT Y‘NEXT A 'RETURN KS 
LV 750 D-0 ' T-0 ' ? =? '10ODAJ LUB ZG 
KASUJ LINIE" 'INPUT R*'IF A*-"W FN 
" THEN D=1 'GOTO 770 
LR 760 IF A*<>"D" THEN 750 NU 

TP 770 ? ■? "U 0DRY CZY U [0OLU" I SB 
NPUT A* ; IF A*-"G" THEN T-1'GOT 
O 790 

NN 780 IF A*<>"D" THEN 770 
KZ 790 ? '? " ILE LINII" 'TRAP 790 
■INPUT C-IF D THEN C»C-<C-VL+1 
)*<C>»VL) 'GOTO 840 KC 

BB 800 IF VL+C>24 THEN C*24-VL ? 

■? "ZA DUŻO"? ? "MOZESZ DODA GI 
C TYLKO ";C; " LINII"'? =? " NA 
CIŚNIJ RETURN" ' INPUT A* YU 

MC 810 IF T THEN FOR R=0 TO NP'FO 
R B-VL TO 0 STEP -l-POKE P<A)+ 
B+C,PEEK<P<A)+B)'NEXT B > NEXT A EP 
'GOSUB 860 

LJ 820 VL-VL+C ' IF NOT D AND NOT 

T THEN GOSUB 870 ZL 

LL 830 GOTO 1400 

IR 840 IF T THEN FOR A=0 TO NPFO GZ 
R B-C TO VL 1 POKE P<A>+B-C, PEEK 
<P<A)+B) ' NEXT B ' NEXT A RB 

DR 850 FOR A-0 TO. NP FOR B«VL-C+1 IC- 
TO VL 1 POKE P<A)+B> 0 1 NEXT B'NE 
XT A ' VL»VL-C ' GOTO 1406 
GZ 860 FOR A-0 TO NP 'FOR B-l TO C EA 
■POKE P<A)+B, 0 ' NEXT B 1 NEXT AP 
ETURN 

VT 870 FOR A-0 TO NP FOR B»VL-C+1 HF 
TO VL ' POKE P<A)+B,0=NEXT BNE 
XT A 'RETURN IZ 


OV 900 GRAPHICS 0'? 
ZRO&I C ' " ' ? '? " 
ZA?"'? CHR*<29>; ' 
?" 


"CO CHCESZ 
EJRZEC GRAC 
IAPISAC DANE 


XN 

YI 

XD 


905 ? CHR$<29) ; " ^ŚWIETLIC DA 
NE?" 

910 ? CHR*<29); " 0OPRAWIC GRAC 
ZA?"-? CHR* < 29 ) ; "T0OZPOCZAC Z 
NOWYM GRACZEM?"'? CHR$<29);" 0 
TOP?" 

920 GOSUB 400 'IF A»ASC<"Q") TH 
EN 1000 

930 IF A*ASC<"Z") THEN 1500 

940 IF A-ASC<"W") THEN 1450 

950 IF A=ASC< "P" > THEN GOSUB 1 

70 'GOTO 1400 

960 IF A-ASC< "R") THEN RUN 

970 IF A-ASC<"S") THEN STOP 

980 GOTO 900 

1000 TRAP 40000 'GOSUB 1240 
1010 GRAPHICS 7 'GRAPHICS 3'POK 
E 559 , 46+ 1 6* < RE-2 ) 1 POKE 53277, 
3 « GOSUB 1 220 • Y-64*RE-VL/2 
1020 FOR A- 1774 TO 1787'POKE A 
, 0 ' NEXT A 

1030 IF RE-1 AND NP>0 THEN FOR 
A-0 TO 1 ' POKE PLL+A , VL+ 1 28 ' NE 
XT A 'GOTO 1030 

1040 FOR A-0 TO NP 'POKE PLL+A, 
VL 1 NEXT A 

1050 PXM-255-NP*8*S I 

1060 FOR A-0 TO 3 ■ PY<A)-PMB+31 

2*RE+128*RE*A'NEXT A 

1070 FOR A-0 TO NP 'FOR B-l TO 

VL 1 POKE PY(A)+B,PEEK<P<A)+B)'N 

EXT B'NEXT A 

1080 POKE 1788, PM+2*RE ' Z-USR < 1 
696) 

1090 ? •? "'RETURN' - PROGRAM 
GŁÓWNY "•? "'K' ZMIANA KOLORU" 
ZMIANA WIELKOŚCI" 

1100 ? " R ZMIANA ROZDZIELCZO 
SCI Z ";RE; " NA ";3-RE; 

1110 S-STICK<0) ' X-0 

1120 IF 8<12 THEN X-SGN<8-S)'S 

-S+<S<8)*4+4 ' X-X+<PX<0)+X<0)-< 

PX<0)+X>PXM) 

1130 FOR A-0 TO NP 1 PX<A)-PX<A> 
+XNEXT A 

1140 IF S<15 THEN Y-Y+SGN<13.5 
-8) - Y-Y+ < Y <0 ) - < Y> 255- VL ) 

1150 FOR A-0 TO NP -POKE PLY+A, 
Y i POKE PLX+A,PX<A)'NEXT A 
1160 IF PEEK <53775) -255 THEN 1 
110 

1170 GOSUB 400 'IF A- 153 THEN G 
OSUB 1230 -GOSUB 170 'GOTO 900 
1180 IF A-ASC< "W" ) THEN 1230 
1190 IF A»ASC<"K") THEN 1300 
1200 IF A-ASC< "R") THEN RE-3-R 
E' GOSUB 1230 'GOTO 1010 
1210 GOTO 1110 

1220 PX<0)»128-4*<NP+1)*SI'FOR 
A-0 TO NP 'PX<A)-PX<0)+8*SI*A 1 
POKE PLX+A , PX < A ) - POKE 33256+A, 
SI— 1 -NEXT A 'RETURN 


1230 FOR A-0 TO 3 'POKE PLX+A,0 
POKE PLY+A, 0'NEXT A RETURN 
1240 FOR A-704 TO 707 'POKE A,C 
0 1 NEXT A 'RETURN 
1250 ? "WIELKOŚĆ - ";SI'? "NAC 
ISNIJ 1, 2 LUB 4 DLA ZMIANY 

WIELKOŚCI" 

1255 ? "NACISNIJ [RETURRl ABY WY 
JSC Z PROCEDURY ZMIANY WIELKOS 
CI"; 

1260 GOSUB 400 -IF A- 155 THEN 1 
090 

1270 IF A-49 OR A-50 OR A-52 T 
HEN SI-A-48' GOSUB 1220 
1280 GOTO 1250 

1300 A»INT<C0/16)'B«C0-A*16‘? 
>? "KOLOR-"; A, "JASKRAWOŚĆ ■ "; 
B 

1310 ? "POZIOME RUCHY MANI PULA 
TORA 1 ZMIANA KOLORU; PIONOW 
E - ZMIANA JASKRAWOŚCI" 

1320 ? " <RETURN> WYJŚCIE Z PRO 
CEDURY"; 

1330 S-STICK<0) = IF PEEK (53775) 

<255 THEN 1380 

1340 IF S-J5 THEN 1330 

1350 IF S-7 OR S-ll THEN A-A+S 

GN<8-S)'A»A-<A)15)*16+<A<0)*16 

1360 IF S-13 OR S-14 THEN B*B- 


2*SGN<13.5-S> 'B»B-<B>14)*16+<B 
<0>*16 

QV 1370 C0»16*A+B> GOSUB 1240 'GOTO 
1300 

2T 1380 GOSUB 400 'IF fi- 155 THEN 1 
090 

PF 1390 GOTO 1300 

YC 1400 GOSUB 200 1 COLOR 1'FOR A=0 
TO NP i X«XM I N+A*XD 1 *8 ! FOR Y-l 
TO VL 

JY 1410 B=PEEK<P<A>+Y>'C=128FOR 
X1»0 TO 7'IF MI THEN FOR X1=0 
TO 1 

AQ 1420 IF B>=C THEN 6=B-C' GOSUB 
1440 

ZL 1430 C«02'NEXT X1'NEXT Y < NEXT 
A - X=20*G ■ Y* 1 0*G- 1 < GOSUB 280 » G 
OTO 120 

YZ 1440 PLOT X+X1*XD1 , YMIN+Y-1 : DR 
AWTO X+X 1 *XD 1 +XD , YM I N+Y- 1 1 RETU 
RN 

SH 1450 GRAPHICS 0'FOR A»0 TO NP' 
? 'IF MI THEN ? "POCISK" 'GOTO 
1470 

WM 1460 ? "GRACZ ";A 

QM 1470 FOR 6=1 TO VL - ? PEEK<P<A) 
+B); 'NEXT B=? CHR*(126>'NE 
XT A 

IS 1480 ? '? " NACI ŚNIJ <RETURN> 
ABY WRÓCI C DO PROGRAMU" -GOSUB 
400 -GOTO 900 


RACZA , POCISKU LUB 1-SZEJ GRUP 
Y GRACZY" 'TRAP 900'INPUT PN 
BM 1510 ? '? "UMIEŚĆ CZYSTA TASME 
U MAGNETOFONIE, NACI ŚNIJ PL 

AY, RECORD I RETURN" 

AG 1520 OPEN #1,8,0, "C ' " 1 FOR A-l 
TO 64-7 #1 J "R. =NEXT A 
ZE 1530 FOR A-0 TO NP'LI=31400+<P 
N+A>*100? #1 ' IF MI THEN 1600 
JX 1540 ? #1;LI;"REM** GRACZ "jPN 
♦Aj"' ROZDZ I ELCZOSC , DLUGOSC , W I E 
LKOSC , KOLOR. " ' GOSUB LA 
WT 1550 ? #1 i LI; "DATA "jREj",";VL 
j " , " j SI j " , " j CO 1 GOSUB LA 
El 1560 FOR B*1 TO VL'IF B-l OR B 
=26 THEN ? #1? #1 jLI>"DATA 
'GOSUB LA GOTO 1580 
AX 1570 ? #1J","J 
TT 1580 ? #1;PEEK<P<A)+B>> 'NEXT B 
' NEXT A 1 CLOSE #1‘TRAP 900'INPU 
7 A GOTO 900 
JY 1590 LI -LI +10' RETURN 
TM 1600 L I -3 1 000+ < PN+A >*100'? #1; 
LI, "REM** POCISK PN j " ROZDZ IE 
LCZOSC, DLUGOSC. WIELKOŚĆ. " ' GOSU 

JL 1620 ? #1 J LI j "DATA "jREj","jVL 
j " ;SI 'GOSUB LA 'GOTO 1560 
YQ 9000 FOR 1=1536 TO 1706'READ A 
•• POKE l,A NEXT I ' RETURN 
OS 9010 DATA 162,3,189,244,6,240, 
89,56,221,240,6,240,83,141,254 
,6, 106, 141 

DR 9020 DATA 255,6,142,253,6,24,1 

69.0. 109.253.6.24. 109.252.6.13 

3.204. 133 

FO 9030 DATA 206,189,240,6,133,20 
3, 173,254,6, 133,205, 189,248,6, 
170,232,46,255 

GN 9040 DATA 6, 144, 16, 168, 177, 203 
, 145,205, 169,0, 145,203, 136,202 
,208,244,76,87 

XO 9050 DATA 6, 160, 0, 177, 203, 145, 

205.169.0. 145. 203 . 200 . 202 . 208 , 

244.174.253.6 

GW 9060 DATA 173,254,6,157,240,6, 
189,236,6,240, 48, 133, 203,24, 13 

8. 141.253.6 

JY 9070 DATA 109,235,6,133,204,24 
, 173, 253,6, 109. 252,6, 133, 206, 1 

89.240.6. 133 

MC 9080 DATA 205,189,248,6,170,16 
0,0, 177,203, 145,205,200,202,20 

3.248. 174.253.6 

FQ 9090 DATA 163,0,157,236,6,202. 

48.3.76.2.6.76.98.226.0. 0. 104, 
163 

OC 9100 DATA 7,162,6,160,0,32,92, 
228,96 


(K)olor — do zmiany koloru gracza. 
Poziomy ruch manipulatora zmienia ko- 
lor. Pionowy ruch zmienia jaskrawość. 
Kody liczbowe koloru i jaskrawości są 
wyświetlane po dokonaniu zmiany. 

(R)ozdzielczość — do zmiany roz- 
dzielczości. 

(W)yświetlić: Wyprowadza dane 

obrazu gracza 

(P)oprawić: Powrót do sztalugi kreś- 
lenia. Jeśli wielkość lub rozdzielczość 
były zmieniane w czasie obserwacji, 
wtedy odpowiednio modyfikowana jest 
sztaluga. Jeśli ograniczenia wielkości 
zostały przekroczone, wtedy wielkość 
zredukowana jest do dwóch. 

(Z)apamiętać: Przechowuje dane 
numeryczne obrazu na taśmie. Włóż 
czystą taśmę do magnetofonu Naciś- 
nij. RECORD i PLAY Odpowiedz na py- 
tanie o numer gracza. Jeśli to pierwszy 
gracz, odpowiedz zero. Jeśli poprzedni 
gracze byli przechowani, wprowadź ko- 
lejny numer Na przykład: jeśli pierwsze 
kreślenie miało szerokość dwóch gra- 
czy, będą to gracze zero i jeden. Dlate- 
go wprowadź teraz numer dwa. Dane 
będą przesyłane na taśmę przy użyciu 
instrukcji PRINT 

(R)ozpocząć z nowym graczem: 
Używane do kasowania obrazu aktual- 
nego gracza i rozpoczęcia kreślenia 
nowego. 

D. Wykorzystanie zapisanych 
danych 

Zapisane na taśmie dane mogą być 
wprowadzone do komputera przez ins- 
trukcję ENTER. Mogą być one połą- 
czone z rezydującym w pamięci pro- 
gramem. Instrukcje DATA będą miały 
numery zaczynające się od 31 000, 

A. Jeśli program nie ma być łączony 
z rezydującym programem, wprowadź 
j NEW i naciśnij <RETURN>. 

J B. Umieść taśmę w magnetofonie, 

i C. Naciśnij PLAY. 

D Wprowadź ENTER, .C" i naciśnij 
| dwa razy <RETURN> 

E. Przed zakończeniem wprowa- 
dzania na ekranie wystąpi dwa razy 
READY 

F. Wyprowadź (za pomocą LIST) 
to. co wprowadziłeś. 

Efekty specjalne 

Każda próba przemieszczania punk- 
tów w trybie graficznym o dużej rozdziel- 
czości. pionowo lub ukośnie, z dużą 
szybkością, jest zwykle trudna, jeśli nie 
niemożliwa do wykonania w BASICu. 
Jest to dosyć trudne do uzyskania 
nawet w języku maszynowym 

Chcemy zademonstrować prostą 
technikę otrzymania skomplikowanych 
ruchów, dla uzyskania specjalnych 
efektów, wykonaną całkowicie w 
BASIC u Aby to zobaczyć, należy 
wprowadzić program nr 5 i urucho- 
mić go. Składa się on z dwóch części 


Druga działa w nieskończonej pętli i w 
celu jej przerwania należy nacisnąć 
klawisz RESET 

Jak widać, program napisany jest 
całkowicie w BASICu i nie ma tu 
skomplikowanych obliczeń. Aby się 
dowiedzieć, jak to działa, proszę 
uruchomić program przez napisanie 
GOTO 1200 

Idea tej techniki była krótko opisana 
w poprzednim odcinku. Opis dotyczył 
używania maski pola gry do zwiększe- 
nia rozdzielczości gracza. W tym pro- 
gramie po prostu rozwinięto tę ideę 
przez użycie maski jako matrycy, która 
tworzy iluzję ruchu w pionie i po prze- 
kątnej w czasie, gdy pionowy pasek 
gracza przesuwany jest poziomo po 
ekranie 

Poszczególne etapy uzyskiwania ta- 
kich efektów są następujące: 

1 ) Kreślenie maski poprzez wypełnie- 
nie ekranu lub wybranego obszaru ko- 
lorem pola gry: ustawienie koloru i jego 
jaskrawości do takich jak tło. 

2) Kreślenie matrycy w kolorze tła (aby 
była niewidoczna). 

3) Tworzenie pionowego paska o od- 
powiedniej wysokości i szerokości za 
pomocą grafiki gracz— pocisk. 

4) Ustawienie priorytetu pola gry nad 
graczem i przesuwanie paska poziomo 
poza maską. 

Aby lepiej zobaczyć, jak to jest zro- 
bione. prześledźmy pierwszą część 
programu: 

lima 160 — wybranie trybu graficzne- 
go; 

linia 790 — czyszczenie ekranu w pro- 
cesie kreślenia poprzez ustawienie je- 
go koloru na czarny: 
lima 490 — kreślenie maski w kolorze 3 
pola gry; 

linie 500—520 — kreślenie matrycy dla 
wystrżału w kolorze O (tła); 
linie 530—570 — kreślenie jabłka w ko- 
lorze 1 pola gry; 

linie 680—730 — kreślenie matrycy dla 
rozbryzgu jabłka w kolorze 0; 
linie 740—770 — kreślenie karabinu w 
kolorze 2 pola gry; 

linie 820—890 — przygotowanie grafiki 
gracz— pocisk; 

linia 850 tworzy gracza nr 2 w postaci 
paska o szerokości 5 bitów rozciągają- 
cego się od góry do dołu ekranu, 
linie 860—870 — tworzą gracza nr 1 
jako pocisk karabinowy, 
linia 830 ustala priorytet (za pomocą 
POKE 623,2), gracz nr 1 jest przed fron- 
tem maski, a gracz nr 2 jest poza ma- 
ską. 

linie 190 i 250 — ustawianie kolorów; 
linie 260 do 320 — gracz nr 2 przesuwa 
się poziomo przez ekran i jego kolor 
zmienia się od białego do czerwonego 
(gdy przechodzi poza jabłkiem). 

Ludwik PIELA 
Tomasz MROWIEĆ 
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FK 1 REM **************** 

FJ 2 REM * * 

LU 3 REM * PROGRAM nr S * 

FL 4 REM * * 

FO 5 REM **************** 

J1 10 N 1 -784 N2-862N3-0' GOTO 150 
REM SKOK DO PROGRAMU GLOWNEGO 
KT 20 REM OPÓŹNIENIE 
JO 30 FOR D-l TO DELAY2 1 NEXT D ; R£ 
TURN 

NL 40 REM DŹWIĘK 
MM 50 SOUND 0 • 17/ 10/ 10 
LR 60 FOR D=1 TO 4 : NEXT D 
MW 70 SOUND 0,0, 0,0: RETURN 
ZT 80 REM OSCYLOSKOP 
UY 90 FOR H-43 TO 200 STEP 2 
DG 100 POKE 53250, H 
GR 110 IF H=55 OR H-93 OR H-131 O 
R H=169 THEN GOSUB 50 
KP 120 FOR D=1 TO 1=NEXT D 
XI 130 NEXT HGOTO 90 
CG 140 REM USTAWIENIE PARAMETRÓW 
IC 150 DELAY2=500 : FLAG-0 > G-3 
DR 160 GRAPHICS 7 : GOSUB 790 POKE 
709, 10: POKE 752, 1: POKE 657,10: 
? "STRZAŁ W JABŁKO" 

ZW 170 POKE 656,1 POKE 657,12=? " 
(z* 14 sek.)“ 

SL 180 GOSUB 820 GOSUB 490 
HA 190- POKE 708,68 POKE 709,6:POK 
E 712,0 

AU 200 SOUND 0,30, 10, 14F0R D=1 T 
O 25 : NEXT D: SOUND- 0,0, 0,0 
YH 210 REM STRZAŁ W JABŁKO 
BF 220 POKE 657,17=? CHR*<199);CH 
Pt < 207 > > CHR* < 2 1 2 > ; CHR* < 207 > ; CH 
R*<215>)CHR*<217)' GOSUB 30 
TA 230 ? CHR* <125 ."POKE 657,18 = ? 
"CEL" GOSUB 30 

LS 248 ? CHR*< 125) POKE 657,18 ? 
CHR* < 208 > ; CHR* < 1 93 ) ; CHR* < 204 > « 
GOSUB 30 

L.B 250 POKE 706, 12 = POKE 705,79 
TY 260 FOR L=1 TO 35 SOUND 0,L,4. 

1 5 = NEXT L 

RN 270 FOR V»15 TO 0 STEP -G 
CF 280 POKE 705, 64+V SOUND 0,L,4, 

V 

CU 290 NEXT V = POKE 705,0 
GI 300 FOR H=60 TO 122 STEP G=POK 
E 53250, HNEXT H 
GD 310 POKE 708,0 POKE 706,68 
EE 320 FOR H=123 TO 200 STEP G=PO 
KE 53250, HNEXT H 
VF 330 POKE 706,0 POKE 53250, 0=FO 
R D=1 TO DELAY2 = NEXT D'IF FLAG 
THEN 430 

XI 340 POKE 752,1? CHR*< 125) = POK 
E 657,6=? "TO SAMO W WOLNI EJSZ 
YM TEMPIE." 


YB 350 FOR D-l TO DELAY2 1 NEXT D=G 

-1 

HP 360 POKE 706, 68 =FOR D-l TO DEL 
AY2 = NEXT D = ? CHR* <125) 

DL 370 FOR H-200 TO 123 STEP -3=P 
OKE 53250, H=NEXT H 
GB 380 POKE 708, 68 'POKE 706,12 
FR 390 FOR H-122 TO 60 STEP -3= PO 
KE 53250, H=NEXT H 
XI 400 FOR D-l TO DELAY • NEXT D 
DK 410 POKE 53250, 250= FLAG- 1 DELA 
Y2-800 = GOTO 220 

XW 420 REM USTAWIENIE PARAMETRÓW 
OSCYLOGRAMU 

GO 430 POKE 53249,0 'POKE 53250,0= 
GOSUB 790 

FT 440 POKE 709,6=? CHR* <1 25)= POK 
E 657,15? "OSCYLOSKOP" 

UV 450 GOSUB 910 

RG 460 FOR I-PMB+N1 TO PMB+N2 1 POK 
E 1,3= NEXT I 

DX 470 POKE 706,14=? CHR*< 125) = GO 
TO 90 

QZ 480 REM RYSOWANIE JABŁKA 
TY 490 COLOR 3 FOR Y-0 TO 79= PLOT 
0, Y = DRAWTO 159, Y = NEXT Y 
VR 500 COLOR 0 = FOR Y-38 TO 42 STE 
P 2 

LO 510 FOR X-14 TO 72 STEP 2 PLOT 
X , Y ' NEXT X ' NEXT Y 
VC 520 PLOT 74, 38 PLOT 74,42 
ML 530 COLOR 1 ' Yl-35 = X2»82 
LS 540 FOR XI -77 TO 74 STEP -1 
MJ 550 Yl-Yl+1 =X2-X2+1 
QT 560 PLOT XI , Y1 > DRAWTO X2,Y1 
GW 570 NEXT XI 
UY 580 FOR Y 1 =40 TO 41 
FO 590 PLOT 74, Yl= DRAWTO X2,Y1 
VQ 600 NEXT Y1'Y1-41 
FE 610 FOR XI -75 TO 78 
NO 620 Y 1 -Y 1 ♦ 1 = X2-X2- 1 
GO 630 PLOT XI, Y1 DRAWTO X2,Y1 
GR 640 NEXT XI 

UX 650 PLOT 80, 36 -DRAWTO 80,34'PL 
OT 81,34 

KY 660 PLOT 8 1,33 'PLOT 82, 33 PLOT 
82,32 

IZ 670 COLOR 3 -PLOT 79, 36 -PLOT 81 
,36 

XT 680 COLOR 0 

YJ 690 PLOT 83, 35 -DRAWTO 120.0-PL 
OT 84,36 = DRAWTO 140,0 
TP 700 PLOT 85, 37 DRAWTO 159, 4 'PL 
OT 86, 38 -DRAWTO 159,16 
TI 710 PLOT 87, 39 DRAWTO 159, 28 P 
LOT 87, 40 -DRAWTO 159,40 
PH 720 PLOT 87, 41 'DRAWTO 159, 52 P 
LOT 86,42 DRAWTO 159, 64 'PLOT 8 
5, 43 'DRAWTO 159,76 
QB 730 PLOT 84,44 DRAWTO 140,79-P 
LOT 83, 45 'DRAWTO 120,79 


GQ 740 POKE 709,0 COLOR 2 'FOR Y-3 
7 TO 43 

MB 750 PLOT 0,Y= DRAWTO 13, Y 
MN 760 NEXT Y 

ZU 770 PLOT 14, 37 ‘PLOT 14,43=? CH 
R*< 125) RETURN 

OS 780 REM CZYSZCZENIE EKRANU 
PR 790 FOR N-0 TO 4 'POKE 708+N,0 
NEXT N = POKE 710, N3 
ZE 800 RETURN 

EO 810 REM USTAWIENIE PARAMETRÓW 
P^M 

HU 820 POKE 705,0 POKE 706,0 A-PE 
EK<106)-24 : POKE 53249,0 POKE 5 
3250,0 

BI 830 POKE 54279, A ■ PMB-256CA = POK 
E 53277,2'POKE 623, 2 POKE 559, 
46 

WV 840 FOR I =PMB+640 TO PMB+895P 
OKE 1,0 = NEXT I 

ZS 850 FOR I-PMB+N1 TO PMB+N2 = POK 
E 1,31 NEXT I 

HY 860 RESTORE 870= FOR I-PMB+694 
TO PMB+698 = READ A 'POKE I,A NEX 
T I 

HT 870 DATA 192,240,254,240,192 
IW 880 POKE 53257,0 POKE 53258,0= 
POKE 53249,62 
ZW 898 RETURN 

AL 900 REM WYKREŚLANIE OSCYLOGRAM 
U 

IA 910 TRAP 1000 

TP 920 COLOR 3 FOR Y-0 TO 79 -PLOT 
0,Y= DRAWTO 159, Y - NEXT Y 
YU 930 COLOR 0X-0 
LZ 940 PLOT X, 32 -DRAWTO X,2 
QW 950 X-X+12 

ID 960 DRAWTO X, 2 DRAWTO X,32 
RA 970 X=X+12 

PB 980 DRAWTO X, 32 DRAWTO X,2 
RL 990 GOTO 950 

NU 1000 TRAP 40000 = Y-59'HT— 15 = SL 
—3 

QI 1010 FOR X— 0 TO 114 STEP 38 
XO 1020 PLOT X, Y 
LJ 1030 FOR XX«0 TO 19 STEP 19 
WL 1040 DRAWTO X+XX+10,Y 
WS 1050 DRAWTO X+XX+ 1 3 , Y+SL 
XO 1060 DRAWTO X+XX+ 1 4 , Y+SL 
QG 1070 DRAWTO X+XX+ 1 4 , Y+SL+HT 
XU 1080 DRAWTO X+XX+ 1 4 , Y+SL 
YQ 1090 DRAWTO X+XX+15, Y+SL 
BX 1100 DRAWTO X+XX+18, Y 
XA 1110 SL— SL'HT— HT 
VL 1120 NEXT XX ' NEXT X= DRAWTO 159 
, Y = RETURN 

CB 1200 N 1-780 = N2-882 1 N3-4 « GOTO 1 
58 



AMSTRAD 


3 punkty 

Program wymaga wczytania współ- 
rzędnych trzech punktów na płaszczy- 
źnie, po czym podaje komunikat o ich 
wzajemnym położeniu. Jeśli okaże się, że 
wszystkie leżą na jednej prostej, dodat- 
kowo pojawi się jej równanie w postaci 
y=f(x). Metoda zastosowana w progra- 
mie polega na porównaniu długości od- 
cinków łączących punkty. 

Program pozbawiony jest instrukcji 
skoków, lecz jego struktura nie dorównu- 
je Pascalowi. Problem tu przedstawiony 


nie daje się jednak uchwycić w Pascalu. 
Dlaczego? Spróbujcie odpowiedzi po- 
szukać sami... 


Krzysztof MAMCARZ 


10 ’ It 3 punkty '86 
20 DEF I NT 1 
30 DEFSTR M 
40 DEFREAL a-d.m.n,x,y 
30 ’ 

60 DEF FN dl ugodc <xl ,x2. y 1 , v2, -ROUND <SQR 
i Cxl-x2>*2*<yl-y2>~2> ,3» 

70 DEF FN hi ( x 1 , x2. yl . y2) - (y2-y 1 ) / (x2-x ł ) 
80 DEF FN n(xl,yt,a>-yl-m*xl 
90 DIN x (3) 

100 DIN y <3) 

110 ’ 

120 MODĘ 1 

130 wsp-~xayaxbybxcyc“ 

140 PRINT -RODAJ WSPÓŁRZĘDNE PUNKTÓW A. 8 


130 FOR ł-1 TO 3 

160 PRINT MID* (Msp . 4* i— 3. 2) I "1 

170 INPUT x(l> 

180 PRINT MID*<wsp,4*i-l,2>|“-"| 

190 INPUT y < i ) 

200 NEXT 
210 PRINT 
220 * 

230 ab— FN dl I.., ode <x < I > ,x (2> , y ( 1 > ,y (2> > 
240 bc-FN dluęode ' . > . x < 31 . y (2) . y (31 > 

230 ac-FN dlugodc (x ( 1 > .x (3) , y ( 1 > , y (3> > 
260 IF ab-0 AND bc-0 AND ac-0 THEN PRINT 
"A-B-C“iPRINT"przaz 1 punkt przechodzi 
pak prostych- >END 

270 IF ab-O OR bc-0 OR ac-O THEN PRINT - 
p rzaz dwa punkty przachodzl “iPRINT-ZAWSZ 
E Jadna prosta" ! END 
280 c-ROUND(A8S<ac-bc> .4) 

290 ab— ROUND (ab, 4) 

300 IF (ab-c) THEN ELSE PRINT “punkty A, 
B,C nla sa wspolUniowe. . . "lEND 
310 PRINT “punkty A.B.C sa wspolUniowe" 
320 IF x (1)> x (2) AND x(2>-x<3> THEN. PR IN 
T-prosta x-”|x(l)iEND 

330 IF y i 1 >— y (2) AND y(2>-y!3> THEN PRIN 
T“prosta y— “ • y < 1 > ■ END 

340 n-FN ai <x < 1 ) , x (2) . y ( 1 > . y (2) ł « n-FN n<x 

( 1 > ,y ( 1 > ,«) 

330 PRINT "prosta y-“| 

360 IF m < >0 AND ■<>! THEN PRINT M|CHR*(8 
)|“x“l ELSE IF m=l THEN PRINT“x-| 

370 IF nX> THEN PRINT-+“m ELSE IF n<>0 
THEN PRINT n 
380 END 
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Interpolacja 

Lagrange’a 

Zdarzają się sytuacje, gdy mając funk- 
cję w postaci dyskretnej, tzn. zbioru 
punktów Xi i Yi (i = 1,2,..., N); trzeba 
uzyskać jej przybliżony wzór. Jedną z 
metod otrzymania tego wzoru jest utwo- 
rzenie, a następnie przekształcenie ukła- 
du równań, z którego wyliczymy współ- 
czynniki wielomianu interpolującego 
funkcję daną tablicą. W poniższym 
przykładzie zawężono otrzymywane wie- 
lomiany do stopnia pierwszego i drugie- 
go, a więc do ich wyznaczenia potrzebne 
będą dwie lub trzy współrzędne punk- 
tów. Kolejność wprowadzania współ- 
rzędnych punktów jest dowolna przy 
czym jako pierwszy deklarujemy X a po 
nim Y. Jeżeli jeden z X-ów tablicy jest 
równy zero, wprowadzamy go w ostat- 
niej kolejności, gdyż ze względu na spo- 
sób wyprowadzenia wzorów zadanie mo- 
że okazać się niewykonalne. 

Janusz W. JANIEC 


50 REM fc****#*#***#**##*#**##*** 
K5 REM * * 


60 REM * INTERPOLACJA * 
65 REM * * 
70 REM * LAGRANGE ' A * 
75 REM * * 


80 rem 

100 OPEN #1/4/0/ "K'" 

110 ? CHRf < 125) 

120 ? = ? "Ile masz danych ounkto 
w w tablicy ?" 

150 ? GET *l,ST=P0»ST-49 
155 IF P0<1 OR P0>2 THEN 110 
160 ? CHR$<28) ; CHR#(28> ; "Uprowad 
za) kolejno dane z tablicy " 

170 ? <? "C Xn, Yn/Xn+1 > Yn*l / ... 3 
"•? 

175 TRAP 410 

180 ON PO GOTO 200.300 

200 INPUT X1,Y1/X2/Y2 

210 8«<Y2*X1-Y1*X2)/'<X1-X2> 

220 A*<Yl-0)/Xl 
230 ? CHR*< 125) 

240 POSITION 2/10'? "Y=";A/"*X+" 


250 IF B<0 THEN ? CHR$<30) . 8 GOT 
0 429 

260 ? B : GOTO 420 

300 INPUT X1,Y1/X2/Y2.X3/Y3 

310 XA«X 1 -X2 1 XB=X2/X 1 : XC*X 1 ^2 1 X0 

~XA#XB 

320 XE«XD*XC'XF=X3 A 2'XG»XB A 2 
330 C«<Y3*XE+XF*<Y2*X1-Y1*<XD+XG 
*X 1 > > +XC*X3* < XG*Y 1 -■ Y2 ) ) z f XE-XF*X 
D+<1-XG)*<XF*X1-X3*XC)> 

340 B* < Y2-C+XG* <C-Yl))zX0 
350 A«<Y1-B*X1-C)/XC 
360 ? CHR$< 125) 

380 POSITION 2.10-? "Y»"jAj"*X2+ 

385 IF B<0 THEN ? CHR$<30> ;B. 'GO 
, TO 395 
i 398 ? B; 

395 ? ,, *X+"ż=IF C<0 THEN ? CHR#< 
30) iC 'GOTO 420 
408 ? C 1 GOTO 420 

410 IF PEEK<195)»11 THEN ? ■? "M 
IANOWNIK JEST«0. TRZEBA ZMIENIĆ' 

X'" 

420 POSITION 2.15'? “C Wciśnij d 
; owolny klawisz 3“ 

' 430 ? 'GET #1 , P ' GOTO 118 

440 rem *m*mt***m*m«*m 


* SUMA KONTROLNA z ETYKIETA * 


LK 

5@l 

QW 

551 

CC 

601 

QX 

65 

VI 

701 

QY 

751 

LN 

801 

PA 

100 

AU 

1101 

RL 

1201 

FT 

1501 

HP 

155 

VT 

1601 

PI 

1701 

MI 

1751 

SK 

188 

JM 

2001 

UFJ 

2101 

BG 

2201 

AZ 

230 

QE 

2401 

FE 

250 1 

PA 

2601 

RY 

300 

GR 

3101 

FH 

320 1 

KP 

3301 

AY 

340 

HP 

3501 

BG 

360 1 

OJ 

380 1 

EZ 

^>85 

UG 

390uL-CB 

395 1 

U>< 

400 1 

ST 

410 

MN 

4201 

RN 

430 1 

PN 

440 1 
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ATARI 


Disasembler 

Analizowanie programów napisanych w kodzie maszynowym 
jest czynnością bardzo żmudną i pracochłonną, lecz niezbędną 
szczególnie wtedy, gdy chcemy dobrze poznać algorytm działania 
programu Najwięcej pracy w takiej sytuacji pochłania „przejście" 
z kodu maszynowego programu, zwanego również kodem wyni- 
kowym. na jego kod źródłowy, który jest czytelny dla programisty 
Kod źródłowy składa się z mnemonicznych nazw rozkazów mi- 
kroprocesora i przyporządkowanych im wartości argumentów (ope- 
randów). a jego uzyskiwanie z kodu wynikowego nazywa się disa 
semblacią Komputer może w tej operacji z powodzeniem zastąpić 
programistę — wystarczy mieć odpowiedni program zwany disa- 
semblerem 


Disasemblerem jest prezentowany program o nazwie DISASM. 
Wykonuje on disasemblację obszaru pamięci, którego początek i 
koniec określa użytkownik programu przez podanie odpowiednich 
adresów Program do disasemblacji musi być najpierw wprowa- 
dzony do pamięci komputera Program DISASM wczytuje do pa- 
mięci komputera programy, które mają być disasemblowane. za- 
równo z dysku, jak i z taśmy, Wyniki disasemblacii wyprowadzane 
są na monitor i jednocześnie na drukarkę, jeśli jest podłączona do 
komputera Mają one następującą postać adres pamięci, w któ- 
rym znajduje się rozkaz, nazwa mnemoniczna rozkazu i jogo 
argument w postaci liczby dziesiętnej, kod dziesiętny rozkazu i 
argumentu oraz kod heksadecymalny rozkazu i argumentu Adres 
pamięci na monitor wyprowadzany jest w postaci dziesiętnej, a na 
drukarkę dodatkowo w postaci liczby heksadecymalnej 
Wszystkie rozkazy skoków w programie disasemblowanym są 
wyróżnione przez wydrukowanie dodatkowego znaku przed ich 
nazwą mnemoniczną Znakiem tym jest 


*• 
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— gwiazdka, gdy rozkaz skoku jest skokiem bezwzględnym 
rozkazy JMP i JSR); 

— plus, gdy rozkaz skoku jest skokiem względnym do „przodu", 
to znaczy, gdy skok wykonywany jest do adresu większego^niż ad- 
res, w którym znajduje się rozkaz skoku; 

minus, gdy rozkaz skoku jest skokiem względnym do „tyłu", 
to znaczy, gdy skok wykonywany jest do adresu mniejszego niż 
adres, w którym znajduje się rozkaz skoku 

Rozkazarni skoku względnego są rozkazy BPL, BMI, BVC, BCC, 
BCS. BNE, BEQ. 

Miejsca, do których przekazywane jest sterowanie w disasem- 
blowanym programie po wykonaniu rozkazu skoku względnego, 
podawane są w postaci adresów bezwzględnych obliczonych 
przez dodanie (gdy skok do „przodu") lub odjęcie (gdy skok do „ty- 
lu") wartości adresu, w którym znajduje się roźkaz skoku i wartości 
jego argumentu. Takie rozwiązanie bardzo ułatwia analizowanie 
uzyskanego w wyniku disasemblacji kodu źródłowego. 


Dla tych czytelników, którzy wolą posługiwać się adresami pa- 
mięci w postaci liczb heksadecymalnych, lub będą chcieli wpro- 
wadzać wyniki, inaczej niż to zrobiono w programie DISASM. poda- 
ję dokładną zawartość 70-bajtowej zmiennej tekstowej o nazwie 
AS. Zawiera ona wynik disasemblacji jednego rozkazu, który na- 
stępnie jest wyprowadzani na monitor i drukarkę. Poszczególne 
bajty tej zmiennej zawierają 

A$( 1 ,5) — adres pamięci, w którym znajduje się disasemblowany 
rozkaz w postaci liczby dziesiętnej, 

AS( 7,11) — ten sam adres w postaci liczby heksadecymafnej, 

A$( 13.24) — nazwa mnemoniczna rozkazu oraz jego argument w 
postaci liczby dziesiętnej, 

AS(29.39) — kod dziesiętny rozkazu i argumentu, 

A$(46,53) — kod heksadecymalny rozkazu i argumentu. 

Pozostałe bajty tej zmienhej zawierają spacje. 


1 REM ************************** i 

2 REM 

3 REM DISflSSEMBLER 

4 REM 

5 REM ************************** 

10 ? CHR*< 125) 1 ? "Proszę chwilkę 

poczekać. . . " 

11 D'IM SPEC#< 16),CI0#<6) -CIG*< 1 , 

1 )=CHR#< 104) -CI0*<2, 2)*CHR*( 162) 
-CI0*<3,3)»CHR*<32> 

12 ClOf <4/5)*"LV" -CI0#(6, 6)*CHR* 
<228) -CBUF- 1000 

14 J0=0 - J1 * 1 = J2*2 1 J3*3 1 J4*4 

15 J18=3*J2 

16 J9*900 - DRNflG* 1100 

25 DIM ROZ*<4),fl*<70),C*<969),HE 
X*<16),MK*<76) 

2? RESTORE 30 

28 FOR 1*1 TO 76 1 REflD D-MK#<I)*C 
HR#<D) -NEXT I 

30 DATA 169,0,133,18,133,19,133, 

20. 104. 104. 133.204. 104. 133.203. 1 

60.0. 177.203. 153.206.0.200. 192.4 
,208,246 

32 DflTfl 165,207,201,63,208,1,96, 

24. 165.203. 105.4. 133.203. 144.2.2 

30.204. 160.0. 177.203. 197.205.240 
,19,200 

34 DflTfl 192,13,208,245,24,165,20 

3.105.13.133.203.144.2.230.204.2 
4,144,199,152,133,18,96 

40 RESTORE 45 

42 FOR 1*1 TO 969 : REflD D-C*<I)=C 
HR#<D) - NEXT I 

45 DflTfl 32,65,68,67,2,105,101,11 
7,2,109, 125,121,2,2,97,113,2,32, 

65.78.68.2.41.37.53.2.45.61.57.2 
,2,33,49 

47 DflTfl 2,32,65,83,76,10,2,6,22, 
2,14,30,2,2,2,2,2,2,43,66,67,67, 
2,2,2,2,2,2,2,2,2,144,2,2,2,43,6 
6,67,83 

49 DflTfl 2,2,2,2,2,2,2,2,2,176,2, 

2.2.43.66.69.81.2.2.2.2.2.2.2.2, 

2.240.2.2.2.32.66.73.84.2.2.36.2 
,2,44,2 

51 DflTfl 2,2,2,2,2,2,43,66,77,73, 
2,2,2,2,2,2,2,2,2,48,2,2,2,43,66 
,78,69,2,2,2,2,2,2,2,2,2,208,2,2 
,2,43 

53 DflTfl 66,80,76,2,2,2,2,2,2,2,2 
,2,16,2,2,2,32,66,82,75,2/2,2,2, 

2.2.2.2.0. 2.2.2.2.43.66.86.67.2, 

2 , 2 , 2 , 2 - 

55 DflTfl 2,2,2,2,80,2,2,2,43,66,8 

6.83.2.2.2.2.2.2.2.2.2.112.2.2.2 
,32,67,76,67,2,2,2,2,2,2,2,2,24, 

2 . 2 . 2.2 

57 DflTfl 32,67,76,68,2,2,2,2,2,2, 
2/2,216,2,2,2,2,32,67,76,73,2,2, 
2,2,2,2,2,2,88,2,2,2,2,32,67,76, 
86,2,2,2 

59 DflTfl 2,2,2,2,2,184,2,2,2,2,32 
,67,77,80,2,201,197,213,2,205,22 

1, 17,2,2, 193,209,2,32,67,80,88,2 
,224,228 

61 DflTfl 2,2,236,2,2,2,2,2,2,2,32 
, 68,69, 67,2,2, 198, 214, 2, 206, 222, 

2.2.2.2.2.2.32.68.69.88.2.2.2.2, 


2, 2, 2, 2 

63 DflTfl 202,2,2,2,2,32,68,69,89. 

2.2.2.2.2.2.2.2.136.2.2.2.2.32.6 ! 

9. 79. 82.2.73. 69. 85. 2. 77. 93. 89. 2, 

2.65.81.2 

65 DflTfl 32,73,78,67,2,2,230,246, 
2,238,254,2,2,2,2,2,2,32,73,78,8 

8.2.2.2.2.2.2.2.2.232.2.2.2.2.32 
,73,78,89 

67 DflTfl 2,2,2,2,2,2,2,2,200,2,2, 

2.2.42.74.77.80.2.2.2.2.2.76.2.2 
,2, 2, 2, 2, 108,42,74,83,82,2,2,2,2 
,2,32,2,2 

69 DflTfl 2,2,2,2,2,32,76,68,65,2, 
169, 165, 181,2, 173, 189, 185,2,2, 16 

1.177.2.32.76.68.88.2. 162. 166.2, 

182.174.2 

7.1 DflTfl 190,2,2,2,2,2,32,76,68,8 

9.2.160. 164.180.2. 172. 188.2.2.2, 

2. 2. 2. 32. 76. 83.82. 74. 2. 70. 86.2.7 

8.94.2.2.2 

73 DflTfl 2,2,2,32,78,79,80,2,2/2, 

2.2.2.2.2.234.2.2.2.2.32.79.82.6 

5.2.9.5.21.2. 13.29.25.2.2. 1.17.2 
,32,80,72 

75 DflTfl 65,2,2,2,2,2,2,2,2,72,2, 

2.2.2.32.80.72.80.2.2.2.2.2.2.2, 

2.8.2.2.2.2.32.80.76.65.2.2.2.2, 

2 . 2 . 2. 2 

77 DflTfl 104,2,2,2,2,32,80,76,80, 
2,2,2,2,2,2,2,2,40,2,2,2,2,32,82 
,79,76,42,2,38,54,2,46,62,2,2,2, 

2.2.2.32 

79 DflTfl 82,79,82,106,2,102,118,2 
,110,126,2,2,2,2,2,2,32,82,84,73 
,2,2,2,2,2,2,2,2,64,2,2,2,2,32,8 
2,84,83 

81 DflTfl 2,2,2,2,2,2,2,2,96,2,2,2 
,2,32,83,66,67,2,233,229,245,2,2 

37. 253.249. 2.2.225. 241 . 2. 32.83.6 

9.67.2.2 

83 DflTfl 2,2,2,2,2,2,8,2,2.2,2,32 
,83,69,68,2,2,2,2,2,2,2,2,248,2, 

2.2.2.32.83.69.73.2.2.2.2.2.2.2, 

2 . 120 . 2.2 

85 DflTfl 2,2,32,83,84,65,2,2,133, 

149.2. 141.157. 153.2.2. 129. 145.2, 

32.83.84.88.2.2. 134.2.150.142.2, 

2 , 2 , 2 , 2, 2 

87 DflTfl 2,32,83,84,89,2,2,132,14 

8.2.140.2.2.2.2.2.2.2.32.84.65.8 

8. 2. 2. 2. 2. 2. 2. 2. 2. 170.2.2.2.2.32 
, 84, 65, 89 

89 DflTfl 2,2,2,2,2,2,2,2,168,2,2, 

2.2.32.84.83.88.2.2.2.2.2.2.2.2, 

186.2.2.2.2.32.84.88.65.2.2.2.2, 

2 , 2 , 2,2 

98 DflTfl 138,2,2,2,2,32,84,88,83, 

2. 2. 2. 2. 2. 2. 2. 2. 154.2.2.2.2.32.8 

4.89.65.2.2.2.2.2.2.2.2.152.2.2, 

2.2.32 

91 DflTfl 67,80,89,2,192,196,2,2,2 
04,2,2,2,2,2,2,2,32,63,63,63,2,2 
, 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2, 2 

92 GOSUB CBUF'? "Adres początków 
y obszaru ";-INPUT fiP-flPl=fiP-LN= 

J1 

93 ? •? "Adres końcowy obszaru " 

; < INPUT AK 


H. KRASUSKI 

94 POKE 82 , J0 ■ HEX*= " 0 1 23456739AB 
CDEF" - DRU*J0 - ? ■? " 


95 ? "adres r-z w jez. "-? "dzi 
es.asseroblera kod dzies. kod h 
eks. " 

96 ? " 


97 TRAP 99-LPRINT •• DRU* J 1 - GOSUB 
DRNAG 

99 TRAP 40000 ■■ BRKF*J0 

100 BYTE*PEEK<flP) -POKE 205, BYTE- 
IF BYTE*2 THEN R0Z*=" ???"-Z=9-G 
OTO 400 

1 1 0 X*USR < ADR < MK* ) , ADR < C* ) ) - Z=PE 
EK<18)+J1 -FOR fl*Jl TO J2+J2-R0Z* 

< fl , fl ) =CHR# < PEEK < fl+205 ) ) - NEXT fl-G 
OTO 400 

390 fl=INT<fl/16) 

395 B*Jl+fl-INT<fl/16)*16 

397 ROZ# < C , C ) =HEX# <B,B) - RETURN 

400 IF ROZ**" BRK" AND AP<AK THE 
N flP=flP+Jl -BRKF=J1 -GOTO 100 

401 FOR fl-Jl TO 70 STEP 10-fl*<fl) 

" - NEXT fl 

402 IF ROZ**" ???" THEN Z“9 

405 fl* < J3+ J2- 1 NT < CLOG < flP ) ) ) =STR* 
<AP) - fl*< 13, 16)=R0Z* 

410 fl=flP-C*J2+J2- GOSUB 395 
420 FOR C-J3 TO J1 STEP -Jl-GOSIJ 
B 390 - NEXT C 
430 fl*<7, 1 1 )«R0Z* 

435 IF BYTE-J3 THEN BYTE-44 
438 IF BYTE-J0 THEN fl*<31,31)="0 
"-GOTO 450 

440 fl*<31-INT < CLOG (BYTE) ) )=STR*< 
BYTE) 

450 A=BYTE-OJ2- GOSUB 395 

460 Ol -GOSUB 390 - fl* < 46 , 47 ) =ROZ* 

<J1,J2>. 

470 GOTO 460+Z*30 

490 fl* < J 1 8 , J 1 8 ) * " fl " - AP*flP+ J 1 - FL* 

J3 > GOTO J9 

520 fl*<19)*STR*<PEEK<ftP+Jl))-fl*< 
J18, J18)*"#" -flP=flP+J2-FL=Jl -GOTO 
J9 

550 fl*< J18)=STR*<PEEK<flP+Jl ) ) - flp 

=flP+ J2 - FL* J 1 - GOTO J9 

580 fl*<J18)=STR*(PEEK<flP+Jl)) -fl* 

< 2 1 , 22 ) = " , X " - AP=flP+ J2 - FL* J 1 - GOTO 
J9 

610 fl*< J18)*STR*<PEEK<flP+Jl ) ) - fl* 
<21 , 22)*" , Y" - ftP=flP+J2 = FL* J 1 - GOTO 
J9 

640 fl* < J 1 8 ) =STR* < PEEK < flP+ J 1 ) +PEE 
K<flP+J2)*256) - flP=flP+J3 - FL*J2 - GOT 
O J9 

670 fl# < J 1 8 ) *STR* < PEEK < flP+ J 1 ) +PEE 

K<flP+J2)*256) > fl*<23, 24)=" , X" * AP* 

RP+J3 - FL=J2 - GOTO J9 

700 fl* < J 1 8 ) =STR* < PEEK < flP+ J 1 ) +PEE 

K(flP+J2)*256) - fl*<23, 24) = " , Y" - flP= 

flP+J3-FL=J2-G0T0 J9 

730 AP*flP+Jl -FL-J3-G0T0 J9 

760 fl=PEEK < flP+ J 1 ) - 1 F A>1 27 THEN 

fl=fl-256 - fl#< 13, 13)=CHR*<45) 

770 fl# < J 1 8 ) *STR# < fl+flP+ J2 ) - flP=flP+ 
J2-FL=J1 -GOTO J9 
790 fl*<J18, J18)*“<"-fl*<J18+Jl)*S 
TR* < PEEK < flP+ J 1 ) ) - fi*<22) = " , X) " - flP 
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*AP+ J2 1 FL*J 1 : GOTO J9 

820 A#< J18> J18>*"<" : A#< J18+J1 )=S 

TR#<PEEK<AP+J1 >) = A#<22)»" > , Y" « AP 

=AP+ J2 ; FL* J 1 : GOTO J9 

850 A#< J18)*" < " •' A#< J18+J1 )=STR#< 

PEEK < AP+ J 1 ) +PEEK < AP+ J2 ) *256 ) < A* < 

24)*")" : AP=AP+J3 » FL=J2 GOTO J9 

880 FL* J3 ! AP*AP+ J 1 

900 RESTORE 

910 IF RP>RKfJl THEN GOTO 92 
915 A=PEEK<AP-FL) 

91? IF fi=J0 AND FL<J3 THEN A* <35 
;35)*"0" : A# <49 >58) ="00" ‘GOTO 925 
920 IF FL<J3 THEN A#<35-INT<CLOG 
<A)),35)*STR#<A)‘OJ2‘GOSUB 395 
C« J 1 ' GOSUB 390 A* < 49 . 50 > =ROZ# < J 1 
,J2> 

925 A=PEEK<AP-J1) 

92? IF fl»J0 AND FL-J2 THEN A* <39 
, 39 > * " 0 ‘ A* < 52 , 53 > * ” 00 " GOTO 980 
930 IF FL*J2 THEN A#<39-INT<CL0G 
<A))/39)=STR#(A) = C=J2 < GOSUB 395 - 
C= J 1 ‘ GOSUB 390 : A#<52/ 53) =ROZ# < J 1 
/ J2) 

950 A#<56)»" " 

955 IF BRKF=J1 THEN ? '? CHR#<12 
7)iCHR#<30)> "BRK" ! ? BRKF»J0:IF 
DRU THEN LPRINT ‘LPRINT " %" 

RPK" 

1080 RETURN 

1090 REM 

1091 REM 

1092 REM MODUŁ DRUKU NAGŁÓWKA 

1093 REM 

1094 REM 

1100 LPRINT " 



1102 LPRINT " *dr#s rozk 

*z w jeżyku kod dzies. 

kod h*x. " 

1104 LPRINT "dzies.h*x. * 

ssemblern" 


1106 LPRINT "• 



960 ? A#< Jl/3) > A#<13;24) ; A#<28;3 
9) ; A#<45; 53) 

980 IF DRU THEN LPRINT A#<J1,11> 

>" "; A*< 12,28);" " >A#<2 

9) 

990 GOTO 100 

995 REM 

996 REM 

997 REM MODUŁ WCZYTYWANIA PRO- 

998 REM GRAMU DO PAMIĘCI 

999 REM 

1000 ? "Chcesz wprowadzić pros r a 
m do pamięci" 1 ? "który bedzie di 
sassemblowatw ? <T/'N>" 

1002 INPUT SPEC# 1 I F SPEC#<1,1)»" 
N" THEN 1080 1 IF SPEC#<1, 1)<>"T" 
THEN GOTO 1002 

1088 ? ■? "Wolny obszar pamięci" 

■ ? " od " i ■ WP=PEEK <144) +256*PEEK 
< 145) ■? WPi ■? " do "; 

1010 WP1 “PEEK <741 )+256*PEEK<742> 
>? WP1 

1020 ? "Podaj adres bufora ">IN 
PUT A6UF 

1030 IF ABUF>WP1 OR ABUF <WP THEN 
? "Zly adres "GOTO 1020 
1040 ? "Podaj nazwę zbioru "j>IN 
PUT SPEC# 

1050 GS-0-IF SPEC#< 1 • 1 )*"C" THEN 
GS* 128 

1060 TRAP 1040'CLOSE #2‘GPEN #2, 
4 , GS , SPEC# ■ BH* I NT < ABUF/256 ) : BL*A 
8UF-<BH*256) 'POKE 866, 7 'POKE 872 
,0 

1065 POKE 873,PEEK<742)-PEEK<145 
) ! POKE 868, BL' POKE 869 , BH ' X*IJSR < 
ADR<CIO#> ) 

1070 TRAP 40000 LZB«PEEK< 873) *25 
6+PEEK<872) ! ? "Załadowano ";L2B 
i " bajtów" 


* SUMR KONTROLNO / ETYKIETA * 


ma 

11 

UR 

21 

JI 

31 

UT 

4 

HU 

51 

YH 

101 

GK 

111 

VE 

12 

OJ 

141 

LN 

151 

EH 

161 

LR 

25 

JV 

271 

UG 

281 

VH 

301 

YO 

32 

os 

341 

MI 

401 

XU 

421 

L6 

45 

CB 

471 

GR 

491 

XV 

51 1 

ZN 

53 

NL 

551 

GO 

571 

IH 

591 

MU 

61 

PY 

631 

uz 

651 

VU 

671 

KV 

69 

0G 

711 

EG 

731 

FIC 

751 

CU 

77 

EB 

791 

IP 

811 

BI 

831 

KG 

85 

RU 

871 

SL 

891 

GJ 

901 

CG 

91 

IU 

921 

YN 

931 

ST 

941 

ST 

95 

PX 

961 

JE 

971 

ZV 

991 

ZV 

100 

GW 

1101 

XY 

3901 

FX 

3951 

HI 

397 

UL 

4001 

IX 

4011 

LR 

4021 

OS 

405 

us 

4101 

GT 

4201 

ZU 

4301 

CX 

435 

IL 

4381 

BG 

4401 

KM 

4501 

BX 

460 

Q0 

4701 

HO 

4901 

YS 

5201 

MV 

550 

MK 

5801 

NO 

6101 

OY 

6401 

NP 

670 

PJ 

7001 

PH 

7301 

NP 

7601 

OH 

770 

BV 

7901 

F0 

8201 

RL 

8501 

VY 

880 

RC 

9001 

FT 

9101 

HF 

9151 

UK 

917 

EM 

9201 

LZ 

9251 

BY 

9271 

EQ 

930 

SX 

9501 

Ul 

9551 

XZ 

9601 

OR 

980 

MG 

9901 

VL 

9951 

CR 

9961 

VS 

997 

Ufi 

9981 

VX 

9991 

xu 

10001 

TZ 

1002 

QF 

10081 

BS 

10101 

UD 

10201 

UJ 

1030 

FR 

10401 

EJ 

10501 

RD 

10601 

UD 

1065 

TS 

10701 

PR 

10801 

XY 

10901 

UD 

1091 

JR 

10921 

UL 

10931 

YO 

10941 

SM 

1100 

Ul 

11021 

LG 

11041 

TK 

11061 

OY 

1110 


Przystawka 
magnetofonowa 
dla Atari 

Jedną z najpopularniejszych pamięci ma- 
sowych. stosowanych w mikrokomputerach 
domowych. ,, jest magnetofon kasetowy 
Komputery Atari 130 XE, 800 XL wykorzy- 
stują w tym celu specjalizowany magneto- 
fon (np ; XC 12, XC 1 1). Zakup takiei pamię- 
ci związany jest ze stosunkowo dużym wy 
datkiem. 

W tym artykule znajdziecie opis przystaw- 
ki umożliwiającej wykorzystanie dowolnego 
magnetofonu kasetowego (mono lub- ste- 
reofonicznego) w roli pamięci masowej dla 
Atari Koszt przystawki wynosi ok 2+3 tys 
złotych 

Zasada działania 

Zapis informacji (programów) na taśmie 
magnetofonowej realizowany przez Atari 
oparty jest na zasadzie modulacji częstotli- 
wości. Oznacza to, ze jedynce logicznej od- 
powiada sygnał o częstotliwości 5.1 kHz. a 
zeru logicznemu przebieg o częstotliwości 

3.9 kHz Ciąg-bitów. który ma być zapisany 
w kasecie zamieniony jest w komputerze na 
sygnały o tych częstotliwościach. Zapis do- 
konywany jest z szybkością 600 bitów, se- 
kundę. 

Zapisanych w ten sposób informacji 
komputer me potrafi samodzielmeodczytać 
Potrzebny jest układ, który sygnały o czę- 
stotliwościach 5,1 kHz i 3,9 kHz (zapisane 
na taśmie magnetofonowej) zamieni po- 
nownie na sygnały zrozumiałe dla kompute- 
ra. Przystawka dokonuje tej zamiany i jed- 
nocześnie zapewnia, ze poziomy napięć 
tych sygnałów odpowiadają poziomem na- 
pięć TTL; tzn wysokiemu poziomowi napię- 
cia (+ 5 Vj odpowiada jedynka logiczna, a 
zeru logicznemu odpowiada niski poziom 
napięcia (0V). 

Schemat blokowy przystawki przedstawia 
rys 1 . Przystawka połączona jest z kompu- 
terem za pośrednictwem gniazda łącza sze- 
regowego Z magnetofonem przystawka po- 
łączona jest typową 5-stykową wtyczką 
magnetofonową Zasilana jest napięciem + 
5 V z komputera 

W czasie wczytywania programu (magne- 
tofon włączony na odtwarzanie) sygnał 
m.cz. z magnetofonu doprowadzony jest do 
wzmacniania m.cz. (wzmacniacz operacyj- 
ny A). Wzmocniony sygnał podawany jest 
na aktywne filtry pasmowoprzepustowe B 
C Filii B nastrojony jest na częstotliwość 

3.9 kHz. a filtr C na 5.1 kHz Gdy na wejściu 
filtra B poiawi się przebieg o częstotliwości 

3.9 KHz. to będzie on wzmocniony Jeżeli na 
wejściu tego filtra pojawi się przebieg o innej 
częstotliwości (np 5.1 kHz) to filtr me będzie 
tego sygnału wzmacniał 

Podobnie pracuje filtr C Ustawiony jest 
lednak na mną częstotliwość Jest to czę- 
stotliwość 5,1 kHz. Wyjścia filtrów dołączo- 
ne są do komputera napięcia zbudowanego 
na Wzmacniaczu D Ta część przystawki 
jest odpowiedzialna za właściwe dekodo- 
wanie informacji. Jeżeli na taśmie pojawi się 
przebieg o częstotliwości 5.1 kHz ( i logi- 
czna). poprzez magnetofon i wzmacniacz A 
* 
ii 


* 

podawany jest on na filtry B C W tym wy- 
padku zadziała jedynie filtr C Na jego wyjś- 
ciu pojawi się wzmocniony sygnał, który ste- 
ruje wejściem odwracającym komparatora 
Napięcie na wejście meodwracaiące w tym 
momencie jest nizsze W związku z tym na 
wyjściu komputera będzie niski poziom na- 
pięcia (prawie 0 V) Napięciem tym stero- 
wany jest końcowy stopień odwracający fa- 
zę napięcia. Na wyjściu tego stopnia (czyli 
jednocześnie na wejście komputera) będzie 
wysoki poziom napięcia (prawie + 5 V). czyli 
poziom odpowiadający jedynce logicznei 

Kiedy na taśmie pojawi się przebieg o 
częstotliwości 3.9 kHz. to zadziała filtr B na 
wyjście komputera będzie wysoki poziom 
napięcia (napięcie na wyjście ' wyższe 
od napięcia na wejście..- ') Po odwróceniu 
fazy w układzie końcowym na wejściu kom- 
putera będzie niski poziom napięcia, odpo- 
wiadający zeru logicznemu 

W czasie nagrywania programów na ka- 
secie (magnetofon w trybie zapis) sygnał z 
komputera podawany jest na dzielnik na- 
pięcia. Tak zmniejszony podawany^est na 
wejście magnetofonu i zapisany na taśmie 

Opis konstrukcji 

Schemat ideowy układu zamieszczonego 
na rysunku 2. Do budowy wykorzystano je- 
den układ scalony typu LM 324 Jest to po- 
czwórny wzmacniacz operacyjny Cena te- 
go układu na warszawskiej giełdzie wynosi 
od 400 do 600 złotych Należy w tym miejs- 
cu podkreślić, ze len układ nie może być 
zastąpiony polskimi wzmacniaczami opera- 
cyjnymi (pojedynczymi) typu ULY 7741, 
ULY 7701 ze względu na to, ze me pracują 
one poprawnie przy zasilaniu napięciem + 5 
V W opisywanej konstrukcji sygnały z filtrów 
B C podawane są na komparator poprzez 
mostek prostowniczy D3 i D6 Rolę kom- 
paratora odgrywa jeden ze wzmacniaczy 
operacyjnych Sygnał z komparatora steru - 
ie. poprzez filtr RC. tranzystorem Tl Prze- 
biegi z kolektora tranzystora podawane są 
do wejścia „IN komputera 

Przystawkę zmontowano na jednostron- 
nie drukowanej płytce o wymiarach 10x6 
cm (rys 3) Przystawka łączona jest z kom- 
puterem wtyczką dołączoną do gniazda in- 
terfejsu szeregowego *i 

Jeśli me mamy możliwości zakupienia 
firmowej wtyczki, to wykonać ją można we 
własnym zakresie według rysunku 5 Jako 
elementów stykowych użyto styków z 
gniazda szufladowego Eltra typu 881025. Po 
wykonaniu obu detali łącza i uzbrojeniu 
części A w styki sklejamy je kleiem (np. di- 
stalem). Połączenia Wtyczkę z przystawką 
łączymy tzw skrętkami (przewód sygnałowy 
okręcony przewodem masy). 

Wtyk magnetofonowy łączymy z układem 
dwuzyłowym przewodem ekranowym 

Uruchomienie 

Po zlutowaniu wszystkich elementów i 
sprawdzeniu poprawności montażu możemy 
przystąpić do strojenia Przed tym należy 
Zamiast rezystorów R7 i R8 wlutować po- 
tencjometry montażowe 470 kO. Przystaw- 
kę zasilamy napięciem -I- 5 V (me z kompu- 
tera), łączymy z magnetofonem, do którego 
wkładamy kasetę z nagranym dowolnym 
programem dla Atari. Do zestrojenia przy- 
stawki musimy użyć oscyloskopu (|est w 
pracowni fizycznej każdei szkoły średniej), w 
którym podstawę czasu ustawiamy na 5 + 
10 ms Włączamy magnetofon na odtwa- 



Rys. 1 Schemat blokowy 
przystawki > 



przystawki 



Rys. 3 Płytka montażowa 
— układ strony druku 
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Rys. 4 Rozmieszczenie elementów 



r — — i 


j \ 

li 

1 

— 


28 

J 



Mat*riar: t*k*tolit gr. 8 mm 
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Materiał tek&tolit gr. 1,5 4- 2 mm 

Rys. 5 Wtyk do komputera 

3,9 kHz 



Rys, 6. Osoyioyram sygnału na końcówce nr 7 
scalonego 

5,1kHz 


3.9 kHz 



Rys. 7 Oscylogram ^gnału na końcówce nr 1 4 
ukta^scalonego 


rzame i koleino dołączamy oscyloskop do 
końcówek 7 i 14 układu scalonego Kręcąc 
potencjometrem staramy się uzyskać na 
oscyloskopie przebiegi podobne do oscy- 
lognemów z rys 6 i 7 W danym momencie 
stroimy jeden filtr Podczas strojenia należy 
uzyskać iak największą amplitudę A przy jak 
najmniejszej jednocześnie amplitudzie B W 
najgorszym wypadku amplituda A powin- 
na być przynajmniej dwa razy większa od 
amplitudy B. 

■ Od tej regulacji zależy poprawna praca 
przystawki Po zestrojeniu' filtrów mierzymy 
rezystancję potencjometrów i zamiast nich 
wlutowujemy rezystory Możemy sprawdzić 
jeszcze przebieg na kolektorze tranzystora 
W czasie trwania sygnału „pilota" rozpoczy- 
nającego program (sygnał o Częstotliwości 

i kHz) na kolektorze powinno być napię- 
c.e wyższe od + 3.5 V Po pojawieniu się 
treści programu na kolektorze powinniśmy 
obserwować przebieg prostokątny, zmienia- 
jący .się w takt zapisanej na taśmie informa- 
cji. 

W czasie użytkowania musimy przestrze- 
gać następujących zasad: 

— w pierwszej kolejności tączymy przy- 
stawkę 2 komputerem i dopiero potem włą- 
czamy zasilanie komputera. 

— w czasie pracy komputera nie wolno 
odłączać wtyczki przystawki z komputera. 

— przystawkę możemy łączyć z magneto- 
fonem w dowolnej chwili, ' 

— obsługą magnetofonu musi zajmować 
się użytkownik tak samo jak mikrokompute- 
ra ZX Spectrum). 

Opisana przystawka współpracuje bezawa- 
ryjnie od ponad roku z komputerem Atari 
130 XE 


Spis części 


N arłosoi rezystorów R 7 i R 8 ustalamy w 
jsie uruchamiania przystawki w 
Ujsce lutujemy potencjometry montaż 
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Procedury 

Rom SPECTRUM (1) 

Krzysztof MAMCARZ 

Pojawia się coraz więcej konkursów na oprogramo- 
wanie. Wzrastają też wymagania dotyczące opracowa- 
nia graficznego programu, dźwięku, szybkości działa- 
nia, walorów edukacyjnych. Użytkownicy Spectrum są 
w gorszej sytuacji, ponieważ BASIC korzysta z niewie- 
lu możliwości systemowych i stąd tak częsta potrzeba 
sięgania do języka wewnętrznego. Proponujemy 
przedstawienie najciekawszych procedur znajdują- 
cych się w pamięci stałej ROM myśląc, że przydadzą 
się w programach pisanych przez Was. 

Procedury le mają dwa podstawowe atuty po pierwsze juz są 
w pamięci, a po drugie me zaburzają relokowalności programów 
w języku wewnętrznym. Każda z nich zostanie przedstawiona 
w postaci tabelki zawierającej numer porządkowy, nazwę (wg 
Complete ROM Dissassembiy). adres heksagonalny i dziesiętny, 
cel sprecyzowany w jednym zdaniu, parametry wejściowe oraz 
stan wyjściowy rejestrów i flag Dokładniejsze opisy, jeśli będzie to 
konieczne, znajdą się pod tabelką Pojawiające się nazwy zmien- 
nych systemowych me będą wyjaśniane. Zainteresowanych ich 
znaczeniem odsyłam do wcześniejszego cyklu „Sztuki i sztuczki". 
Brak uwag o stanie rejestrów oznacza, ze procedura zmienia ich 
zawartość. Rejestr IY będzie pominięty w rozważaniach, gdyż jego 
zawartość powinna być stała i wynosić 23610 Jeśli procedura 
zmienia stan rejestrów pomocniczych, to będzie to specjalnie 
podkreślone Przy powrocie do BASlC-a para HL. powinna zawsze 
zawierać adres 10072 


Zaczynamy od klawiatury 


1 KEYBOARD 02BFh 0703 

CEL 

przeszukanie klawiatury, odczyt jej stanu oraz zdekodo- 
wame przyciśniętego klawisza według tabel translacji: 

WE 

WY 

nieistotne: 

uaktualnienie zmiennych systemowych KSTATE, LAST i 
FLAGS (5 bit); IX przechowany: 

Procedura 1 jest osią systemu. To jedyny interfejs programowy 
umożliwiający komunikowanie się człowieka z komputerem Uru- 
chamiana jest po każdym sygnale przerwania w procedurze 38h 
(RST 56) 

2 

KEY-SCAN 028Eh 0654 

CEL 

przeszukanie klawiatury 

WE 

WY: 

nieistotne: 

D = 255 jeśli nie naciśnięto klawisza; 

39 jeśli naciśnięto CAPS SHIFT; 

24 jeśli naciśnięto SYMBOL SHIFT. 

E = 255 jeśli me naciśnięto klawisza w przeciwnym 
wypadku zawiera numer klawisza (0 — 39), 

Z — naciśnięto właściwą kombinację klawiszy; 

NZ — naciśnięto niewłaściwą kombinację klawiszy; 

IX przechowywany; 


Przez właściwą kombinację klawiszy procedura rozumie każdy 
klawisz pojedynczy z pominięciem CAPS i SYMBOL SHIFT oraz 
każde dwa klawisze. z których jeden to CAPS lub SYMBOL SHIFT 
Szczególna sytuacja zachodzi, gdy naciśnięto oba klawisze spec- 
jalne (SHIFT) Wtedy stan CAPS znajdzie się w rejestrze D, a stan 
SYMBOL w rejestrze E 


Numery klawiszy są na tym poziomie rozumiane następująco 


1 36 1 

28 1 20 1 12 1 4 13 1 

11 1 19 1 27 1 33 1 

1 37 
t 

1 29 1 21 1 13 1 B 12 

lilii 

1 10 1 18 1 26 1 34 1 

lilii 

1 38 1 30 1 22 1 14 1 6 11 

1 1 1 1 1 1 

! 9 1 17 1 23 1 33 1 

lilii 

1 39 

1 31 1 23 1 IB 1 7 10 

lilii 

18 1 16 1 24 1 32 1 

lilii 

Przykład przedstawia wykorzystanie procedury do testowania 
wybranego klawisza 

10 

: ** test ’87 


20 

s 6EN53M21 


30 

ORG 

60000 

40 

KEYSCN EGU 

028Eh 

50 

DI 


60 

PRACUJ CALL 

KEYSCN 

70 

LD 

A. 255 

80 

CP 

D 

90 

JR 

NZ. PRACUJ 

100 

LD 

A. 33 

1 10 

CP 

E 

120 

JR 

NZ. PRACUJ 

1 30 

et 


140 

RET 



Pierwszś część pętli (linie 70.. 90) sprawdza rejestr D. a druga 
rejestr E (limę 100 120). Wymagane wartości wprowadzamy do 
akumulatora W tym wypadku w programie testowany jest klawisz 
ENTER. 


2 BREAK-KEY 1F54h 8020 


CEL: testowanie kombinacji CAPS SHIFT + SPACE (8RF AK 


WE Nieistotne 

WY: NC — naciśnięto BREAK; 

CF — nie naciśnięto BREAK; 


Testowanie BREAK może się odbywać przy wyłączonych 
przerwaniach Program będzie wyglądał następująco 


10 

| ** 

break '85 


20 

I GENA3M21 


30 


ORG 

60000 

40 

BREAK 

EQU 

lF54h 

50 


DI 


60 

TEST 

CALL 

BREAK 

70 


JR 

C, TEST 


Dekodowanie przyciśniętego klawisza jest dostosowane do wa- 
runków pracy SPECTRUM. Algorytm musi uwzględniać klawisze 
specjalne, odgrywające dość istotną rolę. Nic nie stoi na przesz- 
kodzie. aby algorytm ten zastąpić i dostosować do własnych po- 
trzeb. Co prawda, me można zastąpić procedury 38h. ale można 
przełączyć tryb przerwań (IM 2) 

Oto przykład ijwego podejścia do zagadnienia przeszukiwania i 
dekodowania: 
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10 

: ** SCAN ” 87 


20 

: GENS 

3M21 


30 


ORG 

60000 

40 

U_UDG 

EQU 

65528 

50 


LD 

HL. U_UDG 

60 


UD 

BC.FEFEh 

70 

NEXT 

IN 

A. <C> 

80 


CPL 


90 


AND 

lFh 

1 00 


LD 

(HL) .A 

110 


INC 

HL 

120 


RLC 

B 

130 


JR 

C. NEXT 

140 


RET 



łów. których stan jest reakcją na nasze zachowanie przy klawiatu- 
rze 

Ta metoda odczytu nlś przewiduje traktowania wybranych kla- 
wiszy w jakiś specjalny sposób Stany 40 klawiszy zostają po pro- 
stu odwzorowane w pamięci RAM w postaci mapy bitowej Dalei 
można z mmi zrobić, co się komu podoba I nie ma znaczenia, ile 
klawiszy przyciśnięto 

Dla uwidocznienia tego mapa bitowa zostata umieszczona w 
obszarze grafiki użytkownika, aby można było ią oglądać Umożliwi 
to następujący program: 

10 REM mapa ”87 
20 RANDOMIZE USR 60000 
30 PR I NT AT 1,1: CHR$ (164) 

40 GOTO 20 


Odczyt stanu klawiatury następuje przez port o adresie FEh 
(254). który podaje się w rejestrze C Drugi bajt. który reprezentuje 
leden z ośmiu rzędów klawiatury, powinien być podany w rejestrze 
B Wtedy odczytujemy port dzięki instrukcji IN A. (C). Każdy z rzę- 
dów odpowiada więc za 5 klawiszy Akumulator przechwytuje 5 bi- 


W następnych odsłonach przedstawione będą procedury ' 
współpracujące z ekranem A może znacie ciekawe rozwiązania w 
Spectrum, które uzupełniałyby przekazywane wiadomości' 7 Jeśli 
tak. to napiszcie. 

Krzysztof MAMCARZ 


Tajemnice matematyki 

Dzielniki 
liczby całkowitej 


Problem znajdowania dzielników dowolnej liczby całkowi- 
tej intrygował wielu sławnych matematyków, a ich poszuki- 
wania wzoru opisującego liczby pierwsze długo były dare- 
mne. Kiedy wielki matematyk /Fermat, w roku 1640 podał 
swoją formułę ^ 2 » _j_ j 

łatwo pokazał, że początkowe liczby tego rodzaju, czyli 3, 5, 
17, 257, 65537 są liczbami pierwszymi. Nie potrafił jednak 
podać ogólnego dowodu swojej hipotezy. Trzeba było stu lat, 
aby inny matematyk — Euler udowodnił, że 2”+ 1 nie jest 
liczbą pierwszą. Program nasz nie sprosta liczbie 2’ 2 -f 1 = 
100895598169. Podaje jednak, dla każdej liczby mającej ma- 
ksymalnie 9 cyfr, dzielniki będące liczbami pierwszymi oraz 
sprawcfza czy dzielniki te dzielą wybraną liczbę w kolejnych 
swoich potęgach. 

Maksymalną potęgę, przy której dzielnik podniesiony do 
niej dzieli podaną liczbę, nazywamy krotnością tego dzielni- 
ka. Na podstawie krotności dzielników pierwszych program 
wylicza liczbę wszystkich dzielników wybranej liczby, w tym 
liczba 1 i podana liczba traktowane są jako dzielniki, zgodnie 
ze wzorem 

(a, 4- 1) * (a 2 + 1) *— * (a„+l) 

gdzie a,, a 2 , ... , a„ są krotnościami dzielników pierwszych. 
Przykładowo 12 = 2 2 *3‘, ma zatem (2-H)*(l+l) = 6 dzielni- 
ków, są to liczby: 1, 2, 3, 4, 6, 12. 

A. T. 


1® REh Ile dzielników wa liczę. 

15 CLS : BORDER 3 
19 PRINT AT 10,8; "Li czyny /n 
i BEEP .1,3 

3® IF INK.EY t*"n " THEN STOP 
25 IF INKEY $ < > " t " ThEN BEEP .2 
,4: GO TO 20 
28 LET Jta" " 

30 PRINT AT 10,6; "Podaj liCZbe 
ca Uow i ta" 

36 INPUT "a « " ; a 

3? CLS 

4® LET a bABS (a) 

45 PRINT " Dzielnik 1" 

47 LET C =a : LET 10«1 
50 LET bal-rlNT (a/2) 

55 FOR i *2 TO b 
6® LET liCZ*® 

65 LET r *a -i #INT (a/ii 


7® IF r<>® THEN GO TO 85 

75 LET l i CZ * l i CZ +1 

76 LET a $■" IZ" 

50 LET a*a/i: GO TC 63 

85 IF l i CZ s0 THEN GO TO 90 

86 PRINT ozie **; i ; M k 
rotnosc ";licz: BEEP .1,3 

87 LET I0«l0t ( li CZ+l) 

88 IF a *1 THEN LET i **b 

89 Ir i >a THEN LET i »b 

90 NEXT i 

95 PRINT " DZieir, ik " i C 
100 IF a«0"lz" THEN GO TG 110 
105 PRINT AT 16,6; "UCZba Z 10Z0 

n i06 PRINT «T A 18,6;"ilosc dziein 
i ko w - ";10: SEEP 2,3. PRINT hT 
20,3, FLASH 1;" (naci śnij dowolny 
klawisz I" PhUSE C: GO TO 15 
110 PRINT AT 18,6; "UCZba Pierw 

^115 PRINT AT 18,6; "liczba dziel 
n i K o w - 2" 8EEP 2,3: PRINT Hi ć 
0.3; FLASH i; " mactftni j dowomy 
klawisz)": PAUSE 0: GO TO 1S 



— A gdzie nasza, programistka? 

— Komputer dał jej zwolnienie. 
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Rozpoczęła już pracę. 
Łączności w Zegrzu pot 
muszą nikogo namawia! 
cowni zasiedli pierwsi ś 
mienił się w plac budonl 
doczne. 

Nowocześnie wyposar 
klub mikrokomputerów), 
teresuje informatyka mo£ 
Jest w tym zasługa kar 
równika Ośrodka Oblicae 
Wszystkim informatyk) 
„komputerowej" działalne 



pracownia komputerowa w Wyższej Szkole Oficerskiej Wojsk 
d Warszawą. Pracownicy ośrodka obliczeniowego uczelni nie 
ć do solidnej pracy. Zresztą sami dali przykład; zanim w pra- 
łuchacze przeprowadzono tu gruntowny remont. Ośrodek za- 
dany, a informatycy bywało, że w budowlańców. Etekty są wi- 

żona sala służyć będzie podchorążym; działać będzie również 
„Telebit”. Drzwi otwarte są dla każdego — wszyscy, których in- 
gą znaleźć tu swoje miejsce. 

imendanta WSOWŁ płk. dypl. Zbigniewa Chruścińskiego i kie- 
eniowego mjr. mgr. inż. Tadeusza Szuszkiewicza, 
om z Zegrza i sympatykom tej dyscypliny, życzymy sukcesów 
rości. 


TRnfinAT 

C64 



Tkanina 

170 PRINTA*(X) ; 


180 NEXT Y, X, M 

Krótki program graficzny, pozwalający na otrzymanie na 

210 GOTO 60 

ekranie różnorodnych wzorów w różnych kolorach. Może 

250 A=INT (RND (0) *16+1 ) 

to być nie tylko interesująca zabawa, ale także pomoc dla 

260 ON A GOSUB 300,310,320,330,340,350,3 

tych. którzy zajmują się projektowaniem odzieży. 

60, 370, 380, 390, 400, 410, 420, 430, 440, 450 

Tadeusz CISEK 

■ 


270 RETURN 


300 PRINTCHR* (5) RETURN 


310 PRINTCHR* (28) ; : RETURN 

1 REM TKANINA 

320 PRINTCHR* (30) RETURN 

5 PRINTCHR* ( 147) 

330 PRINTCHR* (31 ) ; : RETURN 

6 PRINT* TKANINA’ 

340 PRINTCHR* ( 129) j : RETURN 

-60 PRINT’ WYBÓR WZORU:’ 

350 PRINTCHR* ( 144) RETURN 

70 PRINT’ 1) PASEK SZEROKI’ 

360 PRINTCHR* ( 149) ; : RETURN 

75 PRINT’ 2) PASEK POJEDYNCZY* 

370 PRINTCHR* ( 150) RETURN 

80 INPUT’3) PASEK WIELOKOLOROWY* ;C 

380 PRINTCHR* (151) RETURN 

90 N= I NT ( RND ( 0 ) *9+ 1 ) 

390 PRINTCHR* ( 152) ; -.RETURN 

100 FOR X = 1 TO N 

400 PRINTCHR* (153) RETURN 

110 A* (X)=CHR*(INT (RND (0) *62+161) ) 

410 PRINTCHR* (154) j : RETURN 

120 NEXT X 

420 PRINTCHR* ( 155) t : RETURN 

130 PRINTCHR* ( 147) 

430 PRINTCHR* (156) i : RETURN 

140 FOR M=1T06: IFC=1THEN GOSUB 250 

440 PRINTCHR* ( 158) RETURN 

150 FOR X=1T0N:IFC*2 THEN GOSUB 250 

450 PRINTCHR* ( 158) f : RETURN 

160 FOR Y=1TO40:IF C=3 THEN GOSUB 250 

READY. 



READ, DATA i RESTORE 

W kilku listach powtarzały się prośby o programy na mikrokom- 
puter ZX-81 . który choć zapomniany, ma widać jeszcze zwolenni- 
ków Ponieważ możliwości ZX-81 są bardzo ograniczone, może 
przyda się sposób symulacji komend READ, DATA i RESTORE. 
które implementacja BASICa pomija 


10 

REM 5,-1001 

, 0, -3, 

20 

LET D»0 


30 

LET OO 


40 

LET E= 16427 


50 

GOSUB 200 


60 

IF D= 1 THEN 

LET C=-C 

70 

LET D=0 


80 

LET E=A+E+1 


90 

PRINT C 


100 

LET C»0 


110 

INPUT A* 


120 

GO TO 50 


200 

FOR A=0 TO 

50 

210 

LET B-PEEK 

(E+A) -28 


ZX 81 


220 IF B- 1 08 THEN RETURN 

230 IF B*90 THEN STOP 

240 IF NOT B-192 THEN GO ^0 270 

250 LET D«*t 

260 GO TO 280 

270 LET C=C*10+B 

280 NEXT A 

290 STOP 

Dane umieszczone są tu w postaci listy w linii 10 po instrukcji 
REM. Po każdej liczbie powinien nastąpić przecinek (również po 
ostatniej). Podprogram 200 odczytuje kolejne cyfry, a wartość 
liczby wkłada do zmiennej C. W ten sposób liczbę można prze- 
chwycić do własnych celów. 

Symulacja komendy RESTORE polega na przypisaniu zmiennej 
E adresu początkowego danych, czyli adresu pierwszego znaku 
po REM Dane można umieścić w dowolnej linii pod warunkiem, że 
znany będzie ów adres. Poniższy program wyszukuje linie z ko- 
mendą REM i podaje potrzebne adresy 
1000 LET A-PEEK < 16392) +256*PEEK (16393) 
1010 FOR B= 16424 TO A 
1020 IF PEEK ( B) “254 THEN PRINT B+l 
1030 NEXT B 

Jeśli REM znajduje się tylko w pierwszej limi, to wystarczy przy- 
pisać zmiennej E wartość 1 6427 (jak w linii 40) aby osiągnąć efekt 
czytania danych od początku 
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Z. WIŚNIEWSKI 


a hm 


. FOR x=L . _ . 

S RERO n. POKE USR "a“+x,0 

? NEXT x 

3 DRTR 0,126,126,186,188,186, 
186,0 

- 10 REM EOGD9HKIECBBD 

12 DIM p"(32iTT1m ra'11; DIM n 

il) 

13 PRINT RT 0,0; "Zawodnik 1";R 

T 0,21; “Zawodo i K 8" 

15 INPUT "ilu ęraciu (1 l.ub 8) 

S^IF i < 1 OR i >8 THEN 00 TO 16 
25 1F i»l THEN INPUT "podaj i# 
it LET bt«"KO#PU tt f " 

30 Ir i«2 THEN INPUT "podaj i# 
it *1" INPUT "POdtJ l»it * 

JktityRflk$iap 

Vi 0 unkł “ ! PRiN+ 

1*0 FÓR X »10Ś t6 130: PLOT X , 69 
1 •“-°It§'x»80 15 «S: PLOT 108, X: 

i 


ZX SPECTRUM 


Kostka 

To prosty program dla 1 lub dwóch graczy. Jeś- 
li będzie tylko jeden, jako drugi zawodnik wystąpi 
komputer. Obsługa programu ogranicza się do 
wyboru liczby graczy, podania imion lub imienia, 
podania maksymalnego wyniku, do jakiego ma 
toczyć się gra. O tym, kto pierwszy zaczyna, de- 
cyduje przypadek i sygnalizowane to jest przez 
migający napis. Uzyskana ilość oczek dodawana 
jest do punktacji danego zawodnika. Jeśli ktoś 
wyrzucił „6” ma prawo powtórzyć rzut. Start „lo- 
sowania" — dowolny klawisz. Komu uda się uzy- 
skać maksymalny wynik, otrzymuje 1 duży punkt 
i cała zabawa zaczyna się od nowa. Przy każdej 
następnej partii maksymalny wynik może (lecz 
nie musi) być zmieniony. Na koniec jedna uwaga, 
przy wpisywaniu programu należy literę „A" w li- 
niach 1520 — 1570 wpisać w trybie „graficznym”. 


575 IF 
re . 

1005 PPIN 
B&IGHT 1; 
04 * 8 


30 TO 8800 


odom i"; 
,81; "Zawód 


rinPWtWF: 

1; FLASH IjA' 
li09"ir i-l THEN LET d*."TEAAZ J 

1010 IF i -8 THEN LET d 
DOWOLNY KLAWISZ": PRI: 

ER 6; AT 1,5; dl PRU5E 
1,86: PRINT #0; AT 1,0; " 


4 i«“8TAR' 

X ST slfep 


ART - 
PAP 
0 . 


1015 30 SUB 1600 
1080 LET p.p+a 
1030 PRINT RT *, 86; P 
1040 IF a >6 THEN 00 TO 1000 
1050 IF P>-» THEN 00 TO 2500 
1060 PRINT RT 0,81; "Zawodoik 8" 

1070 00 Tff 

1508 REM _ 

1505 FOR Xi_ . - 
1510 LET a =INT iRND*6)+l 
1528 IF a=l THEN PRINT RT 10.1*; 
" " ; RT 11,1*;" ■ " ; RT 18,14;" 

1530 IF a =2 THEN PRINT RT 10,14; 
"■ u “ ; RT 11,1*;" " ; RT 18,1* ' 

1540 IF a =3 THEN PRINT RT 10,1*; 
"8 " ; AT 11,1*;" ■ " ; RT 12,1* 

■ " 

1558 IF a =4 THEN PRINT RT 10.1* 
-a a"; RT 11,14; ■' " 


' ; RT 12 , li 


1560 IF a =5 THEN PRINT RT 10,14; 

RT 11,14; '• “ •• ■ • 

IF a =6 THL. 

■ " ; RT 11,14; "I 


i*; 



; RT 0,8; “KLR5Y 


150 FOR " X w69 

PL0T_139. 

Ili 

50 


REM 



w 


6 LET TSTTnT (RNOłSl 
* 85 T O R 

0 REM raHSSBBBRł' 

6 ż ;r L 


506 PRINT 
8,0; "Zauodoi k 
"Zawodoil 8" 

510 PRINT #0; . _ 

TRRT - DOWOLNY KLAfl 
0.1,30: PRIN' 


SUB 1600 

teSlN)*^f*4,7; I 

IF a -8 THEN 30 



TO 600 


r“n JL Im l ni 4Vi 

■ " ; RT 18, li 

1578 IF a =6 THEN PRINT RT 10. 

0"; RT 18, li 

1580 BEEP 0.008 , X 
1590 N£XT 
1600 RETUR 
2580 REM S 
! 2505 PRUSE 
i 2510 PRINT 
FIKRCUR" 

2520 IF 1>P THEN LET ra ( 1) ■« ( 1) +1 
: PRINT RT 6,3; "1";" ",a*;AT 3, 

3; "2", " " ; b*; PAPER 6; RT 6,16;# 

(1) ; RT 3, 16; n (1) 

2530 IF l <p THEN LET 0(1) *0(11+1 
: PRINT RT 6,3; "1";" AT 3, 

3 ;"2" ;" " , b$; PAPER 6; AT 6,16;# 

li) ; AT s,: Ł 
2540 REM « 

2545 LET t*»p*+"JESZCZE RRZ 7 (T 
-TAK , N- NIE) "+p$ 

2558 00 SUB 2700 
2560 00 TO 2540 
2708 FOR 1*1 TO LEN tt-31 
2710 PRINT 38; PAPER 6; INK liflT 
1,0; t. lit TO 1+31): BEEP 0.006,1 
NT iRND*30) : PRUSE 3 
2728 IF INKEY4 =” t " THEN OLS : 00 
TO 131 

2730 IF INKEY$="n " THEN STOP , 
2740 NEXT 1 : RETURN 
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Opowiadaniem tym rozpoczynamy prezentację utworów, nagrodzonych i wyróżnio- 
nych w naszym konkursie „Przed nami XXI wiek”. „Finał”, jak Czytelnicy zapewne pa- 
miętają, uzyskał równorzędną, trzecią nagrodę. 

Korzystając ze sposobności, uprzejmie prosimy Autorów nagrodzonych i wyróżnionych 
prac o wyrozumiałość — i zgodę na redakcyjne opracowanie oraz skróty, dokonywane w 
Ich tekstach. Przyczyna — prosta: brak miejsca. W „IKS-ie” możemy publi- 
kować teksty o maksymalnej objętości do 6 stron znormalizowanego maszynopisu. Ze 
swej strony — dołożymy wszelkich starań, aby nic nie uronić z artystycznej wartości Wa- 
szych prac, Szanowni Autorzy. 


FINAŁ 


Sorg stał zadumany na płaskim 
brzegu metanowego morza, planety 
Yarr, jak ją sobie ochrzcił. Stąd mógł 
najlepiej obserwować zachód ogro- 
mnego czerwonego olbrzyma, gwiaz- 
dy tej planety. Był to widok pełen 
majestatu i jakiejś grozy. Być może 
nastroje te podtrzymywała świado- 
mość, że w tym kosmosie jest to 
ostatnia istniejąca gwiazda, ostatnia 
planeta. A sam Sorg? 

Ostatnia iskierka świadomej mate- 
rii. Wielkie wyzwanie rzucone śmier- 
ci przez dawno wymarłą cywilizację. 

Dawno wymarłą... jak dawno? Dla 
Sorga nic było to specjalnie istotne. 
Już teraz nie. W każdym razie były to 
miliardy lat. Lat ziemskich, liczo- 
nych czasem obiegu Ziemi, kolebki 
cywilizacji, wokół Słońca, niepozor- 
nej gwiazdy tej planety. Trzy, czte- 
ry... sześć miliardów lat? Rzecz bez 
znaczenia. 

Od chwili śmierci ostatnich ludzi 
czas Sorga liczył się miarą rozszerza- 
jącego się stale kosmosu, rozrzedzają- 
cej się materii. Zwiększały się odleg- 
łości między galaktykami, między 
gwiazdami, pękła iluzoryczna ho- 
meostaza systemów planetarnych. 
Knergia rozpraszała się w narastają- 
cym tempie. Dokonały żywota galak- 
tyki i gwiazdy, a ich materia rozpro- 
szyła się w przestrzeni, stale rosnącej 
przestrzeni... 

Teraz był już tylko Sorg i to ostat- 
nie wielkic|czerwone słońce, które 
także niebawem dokona żywota, wy- 
buchając supernową, rozproszy więk- 
szość swej materii, jeżeli niecałą i w 
ogniu tego ostatniego spektaklu przy- 
rody spali się też Yarr... 

Sorg przeklinałby swych twórców, 
gdyby mógł czuć cokolwiek. Jego 
świadomość była czysta, bez bioche- 
micznych wyznaczników osobowości. 
Kie miał temperamentu, nic odczu- 
wał gniewu, nienawiści czy miłości... 
Lecz przecież ciągle towarzyszyła mu 
jakaś nieuchwytna forma cierpienia. 


Wiedział, że to niemożliwe, a jed- 
nak... chwytał się też często na tym, 
że z pewną, hmm, tęsknotą (o ile to 
możliwe) myślał o śmierci, zgaśnię- 
ciu... absolutnym wyłączeniu się. To 
jednak było niemożliwe. Na razie. 
Nie spełnił jeszcze swego posłan- 
nictwa, którego sam się przecież zu- 
pełnie dobrowolnie podjął... Czy je 
spełni? I na co się to zda? 

Słońce zaszło. Niebo na zachodzie 
grało jeszcze blaskami czerwieni. 
Sorg ruszył w zamyśleniu wzdłuż 
brzegu. Jego osiem pajęczych nóg 
pracowało cierpliwie bez udziału wo- 
li. Czuł wielkie znużenie, choć i to 
było przecież niemożliwe. Był najdo- 
skonalszym chyba wytworem swej 
cywilizacji; wszystkie ogromne moż- 
liwości w okresie jej największego 
rozkwitu sprzęgły się, by mógł pow- 
stać. Od tego czasu istnieje: zwyczaj- 
ny człowiek, jakim był Sorg Alten- 
berg — stał się Tym, Który Prze- 
trwa. Był praktycznie wieczny, nieza- 
leżny od czasu, przestrzeni, energii. 

Pamiętał erę wielkości cywilizacji, 
jedynej (jak się okazało) rozumnej 
formy życia w kosmosie. Wspaniałe 
osiągnięcia myśli, cuda techniki; on 
sam zresztą był takim największym 
cudem. Był to czas rozkwitu, eks- 
pansji, adaptacji coraz to nowych 
światów, coraz to nowych galaktyk do 
potrzeb tyłowieka. 

Potem nieuchronnie nadszedł czas 
regresji starości i śmierci gatunku 
homo. Prawa biologii okazały się nie- 
ubłagane. „Cokolwiek rozkwita, nie- 
zawodnie sczeźnic...” — pamiętał 
słowa jakiegoś barbarzyńskiego poe- 
ty. Potem mógł już tylko oglądać, jak 
rozsypuje się w pył to, co cywilizacja 
stworzyła. 

Był jeszcze on sam. Rozpaczliwy 
protest Rozumu przeciwko przemi- 
janiu. Tylko po co, jaki może być 


sens w tym przedstawieniu, które za- 
inscenizowała Przyroda? Krzywizna 
przestrzeni wszechświata okazała się 
ujemna. Oznaczało to ciągłe, nie- 
skończone rozszerzanie się, rozpra- 
szanie się energii. Nie było sensu 
czekać tu dłużej. Sorg zdecydował się 
na opuszczenie Yarr. Czas był już 
najwyższy, niebawem nawet dla nie- 
go stałoby się tu nieprzyjemnie. Sko- 
czył na bezpieczną odległość kilkuna- 
stu lat świetlnych w pustą przestrzeń 
i stąd mógł obserwować ostatni akt 
tej sztuki. 

Czerwony olbrzym gwałtownie 
skurczył się, zmieniając w oślepiająco 
jasną kulę, która następnie gwałtow- 
nie zaczęła się rozszerzać. Sorg wi- 
dział nieskończenie wiele takich spek- 
takli, zawsze jednak chętnie je oglą- 
dał. A ten, ostatni, miał swój specyfi- 
czny nastrój. Rozpraszał)' się resztki 
skoncentrowanej energii, resztki 
światła... 

Teraz i zawsze już tylko pustka. 
Pustka i on, Sorg, już teraz w ostate- 
czny sposób absolutnie sam. Na za- 
wsze... Wtedy pojął, zrozumiał. Jak 
westchnienie ulgi spłynęło na niego 
zrozumienie. W tej chwili wypełnił 
swoje posłannictwo. Zrozumiał, że 
to, co usiłowali pojąć najwięksi mędr- 
cy, z czym biedziły się niezliczone 
pokolenia uczonych, filozofów, mi- 
styków wreszcie, poszukując sensu, 
najogólniejszych prawideł, budując 
modele, systemy praw, teorii mniej 
lub bardziej spójnych... Zrozumiał, 
że tu sensu po prostu nic ma i nie by- 
ło. Wszystko było bezsensowne! 

Sorg bez wahania uruchomił me- 
chanizm samozniszczenia. Dookólną 
ciemność rozdarł na krótką chwilę je- 
den jasny błysk. 

Andrzej DYRSZKA 




BASIC < 9 > 

W tym wykładzie podamy podstawowe wiadomości 
o tablicach zmiennych indeksowanych (numery- 
cznych) oraz o stałych w programach zapisywanych w 
instrukcji biernej DATA (wraz z instr. READ i RESTO- 
RE). 


70 PRINT X (i ) ; *' M ; 

80 NEXT i 
85 LET i s0 
90 POR i «l TO 10 
100 IF X (i ) >c THEN LET *es+x(i> 
110 NEXT 


115 PRINT 
120 PRINT 
rio&ciach 
J stałej 
" ; s 
130 STOP 

b) wyniki uia przykładowych danych 


'Suną elementów o ua 
większych od zadane 
c « c; " wynos i. : 


Wykład ósmy: tablice, zmienne indeksowane (numeryczne) 
instrukcje. DIM. DATA. READ. RESTORE 
W poprzednich wykładach wszystkie programy napisane były 
przy zastosowaniu zmiennych prostych (numerycznych łub alfa- 
numerycznych). Zmienne proste nie pozwalają na zapamiętanie w 
programie dużej liczby wartości, a następnie wykonanie tych sa- 
mych sekwencji instrukcji dla różnych zmiennych. Wprowadza się 
więc grupowanie ciągu zmiennych w tablice, które są identyfiko- 
wane przez swoje nazwy Dostęp do poszczególnych elementów 
tablicy .następuje przez podanie nazwy tablicy i indeksów określa- 
jących żądany element 


Tak więc poindeksowany zbiór danych tego samego typu na- 
zywa się tablicą. Wartościami indeksów mogą być pojedyncze 
liczby całkowite (tablica nazywa się wtedy jednowymiarową), pary 
liczb całkowitych (tablica dwuwymiarowa) itd Tablica jako całość 
jest identyfikowana przez swą nazwę 
Element tablicy, odpowiadający konkretnemu układowi war 
tości identyfikujących go indeksów, nazywa się zmienną inde- 
ksowaną. Zmienną taką oznacza się symbolem złożonym z napi 
sanych po sobie: nazwy tablicy i ujętych w nawiasy (bądź rozdzie- 
lonych przecinkami) indeksami. 


W ięzyku BASIC należy określić nazwę i rozmiar tablic, |akie będą 
używane w danym programie Do tego celu służy deklaracja tabli- 
cy. 

Deklaracją tablicy w BASlC-u ZX Spectrum jest instrukcja bier- 
na postaci 

n DIM nazwa tablicy (rozmiar) 

gdzie 

n — numer wiersza 
nazwa tablicy — składa się z 

— jednej litery dla tablic numerycznych 

— |ednej litery i znaku S dla tablic alfanumery- 
cznych 

rozmiar - zalezy od liczby wymiarów (i elementów) tablicy 

Tablice mogą być jednowymiarowe (nazywane wektorami), 
dwuwymiarowe (nazywane macierzami) lub trzywyrmarowe itd 
Instrukcja DIM może występować w dowolnym miejscu pro- 
gramu (ale przed odwołaniem się do tej tablicy). Jeżeli w progra- 
mie zadeklarowano kilka tablic o tej samei nazwie, to w chwili uru 
chomicnia aktualna jest deklaracja w linii o najwyższym numerze 
W tym samym programie może wystąpić zmienna prosta numery 
czna o tej samej nazwie co tablica W trakcie rezerwowania miej- 
sca dla danej tablicy numerycznej następuje nadawanie jej ele- 
mentom wartości początkowych zero 
W wykładzie tym omawiać będziemy tylko tablice numeryczne, 
a tym samym zmienne indeksowe numeryczne. A teraz zilustruje- 
my przykładami to. co zostało juz powiedziane 
Przykład 7.1 

Dany jest wektor x o 1 0-elementach. Wyznaczyć sumę elemen- 
tów o wartościach większych od zadanej stałej c 
a) program 


ł$ 8IR fieTjniujemy jako 

tablice Jednowumiaroua . 
10 elementowa 
20 DIM X (10) 

25 INPUT "stała c = ";c 
30 REM wczytanie wartości elew 
en tow tablicy x 

40 PRINT TRB (10) i "TRBLICR X" 
45 PRINT 

50 FOR i =1 TO 10 

60 INPUT "podaj wartość x(i) = 

" ; x ( i l 


trblicr x 

123456789 10 

Suma elementów o wartościach 
większych od zadanej stałej 
c = 5 wynosi : 40 

Instrukcja 

20 DIM x (10) 

deklaruje tablicą jednowymiarową o nazwie x i o 10 — elementach 
(liczba 10 deklaruje rozmiar, w tym wypadku liczbą elementów 
tablicy). 

Tablicę jednowymiarową (wektor) można przedstawić w postaci 
wiersza (lub kolumny), tak więc dla naszej tablicy x w postaci 


1 23466789 10 

liczby 1 -r 10 kolejne liczby naturalne będące indeksami elemen- 
tów (i — indeks; i = 1. 2,. ..10) 

x (i) — zmienna indeksowana numeryczna — i-ty element tab- 
licy. 

Instrukcja 

60 INPUT „podaj wartość x (i) =-., x(i) nadaje warlość 
i-temu elementowi tablicy 

Przykład 7.2 

Napisać program znajdujący wartość maksymalną w wektorze 
n-elementowym 
a) schemat blokowy 
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Oznaczenia: 

n - liczba elementów wektora 

x (i) — i-ty element wektora 

max — element o wartości maksymalnej 

b) prooram 


10 

15 


20 

25 


30 

35 

40 
45 
50 
60 
70 
80 
i ) 

90 

100 


REM Pr 
REM n 


i - 

: (i ) - 


»ax 

r 

INPUT 
REM li 
b l 
PO 

DIM X ( 
REM wc 
me 

FOR is 
INPUT 
NEXT i 
LET ma 
POR 
IF max 


ZUK la 
- lic 
KIO 
indeK 
i -tu 
<zmie 
wy br a 
tOfc C i 
"wpro 
czba 
i cy z 
wczy 
n) ' . 
zy tan 
ntow 
1 TO 
"wp ro 


d 7.2 
zba cle 
r a 
i 

t icmen t 
n n a ind 
nu e l«m 
maKsym 
wadź n 
c lament 
ostaje 
taniu w 


mentow wc 


wc Która 
cKsowana) 
ent o war 
a int j 
; n 

ow tej ta 
ustalona 
artosci n 


ic wart 
tabli ct 
n 

wadź x (i ) ; x (i ) 


ości e i>* - 
x 


x«x ( 1 ) 

2 TO n 

< x (ii THEN LET mix«x< 


NEXT i 

print trb (5) i "wcKtor dany 


105 PRINT 
110 FOR isl TO n 
120 PRINT X (i > i " 
130 NEXT i 
135 PRINT 
140 PRINT 
: * • ; rn a x 
150 STOP 


wartość ma Ksuma ma 


i przykładowych danych 

wcK‘or dany : 


10 REM Przyk lad 7.3 
20 DIM O ( 15 i S i 

25 REM wartości elementów ta- 
blicy wprowadzamy wier- 
szami 

30 FOR i =1 TO 15 
35 FOR j=l TO 5 

40 INPUT "wprowadź 0(i,j): “,Q 

-j) 


45 

NEXT j 


50 

NEXT i 


60 

FOR i*l TO 15 


65 

REM dla Każdego i oblicamy 


nowa sumę 

- S C «0 

70 

LET s r =0 


75 

PRINT “uczeń • 

• ; i ' "oceny : " 

80 

FOR j=l TO 5 


90 

LET sr=sr+o(i , 

. j ) 

95 

PRINT o (i , j) ; ‘ 

* " ; 

100 

NEXT j 


105 

LET S 1* ss r /5 


110 

PRINT '"ocena 

średnia : " ; s 

115 

PRINT 


120 

NEXT i 


130 

STOP 



yuzit i-iy wiersz — i-ty uczeń 
I-ta kolumna — j-ta ocena 
Og — oznacza j-tą ocenę i-tego ucznia (i = 1 2. , 1 5, 
j = 1 .2, 3.4,5) 

Jest to tablica dwuwymiarowa (macierz), którą deklarujemy w 
następujący sposób 
20 DIM o (15.5) 

Każdy element tej tablicy jest opisany dwójką liczb naturalnych 
będących jego indeksami i tak. 

o(1,2) — jest to element pierwszego wiersza i drugiej kolumny 
o(5,3) — jest to element piątego wiersza i trzeciej kolumny 
o(i.j) — jest to element i-tegd 1 wiersza i-j-tej kolumny 
Tak więc pierwszy indeks oznacza numer wiersza, a indeks drugi 
— numer kolumny 
Oceny średnie obliczamy wg wzoru 


8 5 W 6 9 11 3 22 

wertost maksymalne : 22 


i o,j 

sr = ‘‘V dla każdego i (dla każdego ucznia) i = 1 ,2 15 


d) uwaga. 

Jeżeli chcielibyśmy znaleźć wartość minimalną w wektorze n- 
-elementowym. wystarczy instrukcję o numerze 80 zapisać w po- 
staci 

80 IF max > x (i) THEN LET max.= x (i) 
oraz zamiast słowa maksymalnej (wartości) wpisać słowa 
minimalnej wartości 

Instrukcja 

30 DIM x (n) 

deklaruje tablicę jednowymiarową o nazwie x i o n-ele- 
mentaćh Zarezerwowanie odpowiedniego miejsca dla łęi tablicy 
w pamięci komputera następuje po nadaniu wartości zmiennej n 
Nadawanie lej wartości może nastąpić za pomocą instrukcji 
INPUT lub LET i musi nastąpić przed deklaracją tablicy 
Tablice jedno-, dwu- lub więcej wymiarowe zadeklarowane w 
powyższy sposób nazywa się często tablicami dynamicznymi 
Odpowiednie instrukcje 

INPUT ..wprowadź x (i): '. x (i) 

powodują nadanie aktualnej wartości elementom tych tablic War- 
tości te „pozostają 1 tak długo aż: 

a) nie nadamy im nowych wartości instrukcją INPl/T lub LET 

b) nie usuniemy programu z pamięci komputera, wykonując ko- 
mendę NEW lub LOAD, lub wyłączymy komputer 
Korzystając z pozostawania" tych wartości w tablicy, możemy 

odwoływać się do nich w różnych miejscach programu i lak np 
odwołujemy się dodatkowo: 

W instrukcji o nr 1 00 w przykładzie 7.1 oraz w instrukcjach o nr 
80 i 120 w przykładzie 7.2 

Przykład 7.3 

W ciągu pewnego czasu dla grupy 1 5 uczniów przeprowadzono 
5 sprawdzianów z wybranego przedmiotu. Obliczyć średnią ocenę 
otrzymaną przez każdego ucznia 
a) analiza zadania 

Oceny każdego ucznia możemy zapisać w sektorze jednowy- 
miarowym pięcioelementowym, ale tych wektorów mielibyśmy 15 
Zapiszemy oceny w postaci tablicy 


b) schemat blokowy 
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Oznaczenia: 

i -- indeks wiersza 
I - indeks kolumny 

o(i.j) — element i-lego wiersza i j tej kolumny 

sr zmienna robocza, a następnie średnia ocena i-tego ucznia 

C) program 

Przykład 7.4 

Znaleźć sumę oraz liczbę elementów dodatnich lezących po- 
wyżej głównej przekątnej macierzy Z (z,., i.| = 1.?. n) 


10 REM Pi- 
lS REM n 


Z (i , j) 
S 


20 

25 


30 

35 


40 
INT 
45 
50 
55 
( i , j ) 
50 
65 
70 
75 
80 
85 
90 
i , j ) 
95 
100 
105 
da tn i 
e ka tn 
a * 
110 


INPUT 
REM Li 
t 3 
LQ 

DIM Z ( 
REM w 3 
bl 
sz 

PR INT 

FOR i a 
FOR j = 
INPUT 

PR INT 
NEXT j 
NEXT i 
LET £ = 
FOR i = 
FOR j = 
IF Z ii 
LET L 
NEXT j 
NEXT i 
PR INT 

Ch 

ej 
1 , s 
STOP 

iiiza zauanid 


zyk L 

- Li 
Lu 

- in 

- i n 

- e L 

- su 
da 
i > 

- L i 

dO 

f y 

"wp r 
czba 
b L i C 
na p 
n ,n ) 
r tos 
i cy 
a fii i 
‘ ' fu a c 


ad 7 
cz ba 
ffin ma 
de ks 
de ks 
e m e n t 

fu a Si 

tn i ch 

j 

cz ba 
datni 
ch i > 
owadz 
e Lew 
y zos 
o w cz 


wierszy (ko- 
ci e rzy z 
wiersza 
k o l u w n y 
macierzy z 
ementow do- 
dia których 

e Lementow 
c h , d L a kto- 


e n t o w tej 
taje usta- 
ytaniu n 


ci elementów t a - 
wprowadzamy wier- 


ierz dana 


l TO n • 

1 TO n 

"wp rowadź z i i , j) : " ; z 

z (i , j) ; " ; 

: PRINT 

0; LET L fc 0 
1 TO n 
i +1 TO r. 

, .)') >0 THEN LET S*S+Z ( 

= L -f 1 


"Liczba elementów do 
powyżej słownej prz 
L = " ; i ; " ich suw 


Zapiszemy macierz Z w postaci: 


z z 
z z, 


Jeżeli liczba wierszy danei macierzy równa się liczbie jej ko- 
lumn. to macierz nazywa się kwadratową, jeżeli me — prostokątną 
Położenie elementu z(i.j) w macierzy Z można określi, ć w następu- 
jący sposób 

element z (i.j)j (i.j = 1,2... nj dla 
i >1 znajduie się powyżej głównei przekątnej 
i j znajduje się na głównej przekątnej 
i < j znaiduie się poniżej głównej przekątnej 

Badanie znaku i położenia elementów ż(i.j) będziemy przepro- 
wadzać w kolejnych wierszach macierzy. Macierz Z postanie za- 
deklarowana jako dynamiczna tablica dwuwymiarowa 
(nxnj -elementowa. 

Narysowanie schematu blokowego pozostawiamy czytelnikowi 
bi program 
Instrukcja 

20 DIM o(15.5) 

deklaruje tablicę dwuwymiarową o nazwie - 1 liczbie elementów 
równej 75 (15x5). 


■\Kolum- 

WierN?* 

sze \ 

1 

2 

3 

4 

5 

1 

o... 

0,2 

0,3 

0 ,.* 

0,5 

2 

o,, 

0,2 

02, 

o,, 

0 2.5 

• 

• 

• 

• 

• 

• 

• 

• 

• 





15 

0, 5 ., 

0|5,2 

0 15,3 

0|5,ł 

0,5,5 


natomiast instrukcja 

30 DIM z(n.n) ^ 

deklaruje dynamiczną tablicę dwuwymiarową o nazwie z i liczbie 
elementów równej nxn. liczba tych elementów jest znana w mo- 
mencie nadama wartości zmiennej n. 

Każda tablica jest przedstawiona w pamięci komputera jako 
wektor Tak więc kolejna tablica dwuwymiarowa jest przedstawio- 
na jako ciąg kolejnych kolumn tworzących wektor o liczbie ele- 
mentów równej liczbie elementów danej tablicy. A dostęp do tego 
wektora musi się odbywać zawsze tak |ak do tablicy dwuwymia- 
rowej 

Tablicą dwuwymiarową jest również tablica złozona z jednego 
wiersza (x) o 1 5 elementach lub kolumny ( 2 ) o 12 elementach, za- 
deklarowana w następujący sposób 
10 DIM x(1.15) 
lub 

20 DIM z(12,1 ) 

BASIC na ZX Spectrum nie dopuszcza napisania deklaracji tablic 
w następujący sposób 

10 DIM x(1.15), z( 1 2. 1 ) 

Przed każdą nazwą tablicy należy napisać słowo DIM Tak więc 
deklarację powyższych tablic możemy napisać też w postaci 
10 DIM x{1 .1 5) DIM z(12.1) 


Przykład 7.5. 

Dany jest n-elementowy wektor w (w,, i- 1,2, n) 
Odwrócić kolejność elementów wektora wg wzoru 


W, Wn ) 
Wn-,.1 - W. } 


1.2.. m 

t(X] — część całkowita x) 


i) 


10 

15 


20 

25 


30 

35 

40 

45 

> 

50 

55 

60 

65 


REM Przy* lad 7.5 
REM n - liczba elementów 
wektora 
i - indeks 

w(i) - i-ty element wfilUo/a 
INPUT "wprowadź n : ";n 
REM wtiLtor deklarujemy ja- 
ko tablice jdnowyaia- 
rowa, n-eicmentowa 

DIM w tn ) 

PRINT "wektor dany : : PRIN 

FOR i»ł TO n 

INPUT "wprowadź w (i) : ";w( 

PRINT w Ci ) ; " 

NEXT i : PRINT * 

LET k«INT <n/2) 

REM r - zmienna robocza, wy- 
korzystywana do 
"przechowywania " 
wartości w(i) przy 
przestawianiu 


70 FOR i wi TO k 
75 LET r«w (i ) 
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60 LET w (i) «w <n-i fi) 

85 LET w <n-i +1) =r 
90 NEXT i 

95 print '"nowy wator 
INT 

100 FOR i«l TO n 
105 print w (1) ; •• 

110 NEXT i 
115 5T0P 


b) wyniki dla przykładowych danych 


wektor dany 
2 4 6 8 

10 

12 

14 

16 

18 

nowy wektor 
18 16 14 

12 

10 

8 

6 4 

2 


Przykład 7.6. 

Zaprogramować w BASICU: 

1) wypełnienie lablicy A (a,, i = 1.2. .. n) liczbami naturalnymi tzn 
a, - 1. aj = 2. a„ = n 

2) obliczenie sumy 

s = a, 

gdzie C - 1 dla a, podzielnych przez 3 
C ~ + 1 dla pozostałych 

3) wpisanie Ijczb a, podzielnych przez 3 do tablicy o nazwie B 
a) analiza zadania. 

Elementom lablicy A będziemy nadawać wartości w trakcie ob 
liczeń za pomocą instrukcji podstawienia. Do sprawdzenia czy 
dana wartość dzieli się przez 3, używamy funkcji standardowei INT 
(część całkowita liczby, może być ujemna; podaie najbliższą licz- 
bę całkowitą mniejszą od argumentu). Jeżeli liczba dzieli się przez 
3. to sumujemy ze znakiem — oraz wpisujemy tę wartość do tabli- 
cy B, jeżeli me, to sumujemy ze znakiem + 


Narysowanie schematu blokowego pozostawiamy czytelnikowi 
b) program 


łl U 


20 

30 

35 


40 
50 
60 
65 
70 
75 
80 
85 
90 
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Lny ch 
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115 
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130 
a myc 


M Przy K lad 7.6 
M n - Liczba naturalna 
( l i cz ba elementów 
tablicy fi) 

- Kolejna liczba na- 
turalna (i nde ks ta- 
blicy fi) 

- e lament tabli cy fi 

- element tabli cy 8 

- indeks tablicy B 
(liczba elementów 
w tablicy 6) 

- suma elementów ta- 
cy fi (z odpowiednim 
znakiem) 

"wprowadź n : “;n 
n) : DIM 8 en) 
e znamy liczby elemen 
w tablicy wynikowej, 
ec deklarujemy ja ja- 
tablice o liczbie 
ementow = liczbie ele 
ntow tablicy wej&cio- 
j 

0 . LEJ j 
l TO n 
i ) * i 
1 

i /3 

INT (f) THEN GO TO 90 
j+1: LET E*-l 

j) = i 

S +E*fi (i ) 

"tabli ca liczb natura 
od l do M ;n 

1 TO n 

" M ;fiti); 

: PRINT 

'"tablica liczb natur 
podzielnych prze 


fi (i ) 
BU) 


INPUT 
DIM fi( 
REM ni 
to 

W i 

ko 
e L 
me 
we 

LET S * 
FOR i * 
LET fi i 
LET E = 
LET r » 
IF r < > 
LET j« 
LET Bi 
LET s « 
NEXT i 
PRINT 


PRINT 
FOR i* 
PRINT 
NEXT i 
PRINT 
h 


135 PRINT 

140 FOR k*l TO j 

146 PRINT " " ; B Ck) ; 

150 NEXT k; PRINT 

155 PRINT 'TfiB CS) ; "Suma = 

160 STOP 


W programach z przykładów 7.5 i 7.6 zastosowano instrukcje 
INPUT i LET do nadawania wartości elementom tablic (zmiennym 
indeksowanym) 

Ponadto w programach tych pokazano, iż na zmiennych indek- 
sowanych numerycznych możemy wykonywać te same działania 
jakie wykonujemy na zmiennych prostych numerycznych 
Z dotychczasowych wykładów wiemy, ze aby wpisać w formie 
konwersacyjnej pewną liczbę wartości zmiennych, używamy ins- 
trukcji INPUT Czasami zdarza się. ze znamy te wartości przed wy 
konaniem programu, wtedy możemy ie umieścić w programie 
dzięki instrukcji READ (czytaj) i DATA (dane). Wykonując program 
komputer sam je umieści w odpowiednim momencie w pamięci 
Instrukcje te można też zastosować do nadawania wartości ele- 
mentom tablic (zmiennych indeksowanych). 


Przykład 7.7 

Dany |est program 


ii BEN 


EM Przuk Ud 7.7 
EM wypełnianie tablic x 
i y tytki samymi wartos- 

20 DIM X ( 3 , 5 ) : DIM y (3.5) 

25 REM nadawanie wartości ele- 
mentom tablicy x - wier 
szami 

30 FOR i =1 TO 3 
40 FOR j=l TO 6 
50 REfiD X (i . j) 

60 NEXT j 
70 NEXT i 
^0 RESTORE 

90 REM nadawanie wartości ele- 
mentom tablicy y - ko- 
lumnami 

100 FOR j«l TO 6 
110 FOR i =1 TO 3 
120 REfiD y (i . j) 

130 NEXT i 
140 NEXT j 
160 PRINT TfiB (5) 

165 PRINT 
170 FOR i =1 TO 3 
180 FOR j»l TO 5 
190 PRINT " " ; X (i . j).; 

200 NEXT j 
205 PRINT 
210 NEXT i 
215 PRINT 
220 PRINT TfiB (5) i 
225 PRINT 
230 FOR i=l TO 3 
240 FOR j=l TO 3 
250 PRINT " y ii 
260 NEXT j ‘ 

265 PRINT 
270 NEXT i 
280 STOP 

290 DfiTfi 1.2.3.4,5,6.7,8,9.10 
300 DfiTfi 11,12,13,14,15 

W prugiam.e tym zuslosuWdiio instrukcje READ. DATA i 
RESTORE. W trakcie wprowadzania linii programu jest możliwe 
tworzenie zśslawu danych, którymi będzie operował program. Do 
lego celu służy instrukcja bierna DATA postaci: 
n DATA lista 


tablica x' 


tablica y " 


i) i 


gdzie: 

n — numer wiersza 

lista — dowolna liczba stałych numerycznych lub alfanu- 
merycznych oddzielonych od siebie przecinkami. 
Występujące w programie instrukcje DATA tworzą według ros- 
nących numerów wierszy. ieden zestaw danych. I tak w naszym 
programie instrukcje DATA o numerach wierszy 230 1 240 tworzą 
jeden zestaw danych postaci 

1,2,3.4.5,6,7.8,9.10,11,12,13.14.15 
Instrukcje DATA można napisać w dowolnym miejscu progra- 
mu Zaleca się. aby instrukcje te pisać na końcu programu, grupu- 
jąc wszystkie z danego programu obok siebie 


24 


Do przenoszenia wartości z zestawu DATA pod zmienne pro- 
gramu służy instrukcja czynna READ postaci 
n READ lista 

gdzie n — numer wiersza 

lista — nazwy zmiennych prostych numerycznych lub 
alfanumerycznych, zmiennych indeksowanych 
numerycznych lub alfanumerycznych oddzielone 
od siebie przecinkami. 

Wykonanie instrukcji READ powoduje pobieranie kolejnych war- 
tości stałych z zestawu danych (poczynając od najniższego nume- 
ru wiersza instrukcji DATA) i podstawianie ich pod kolejne nazwy 
zmiennych występujące na liście READ. Jeżeli zestaw danych z 
pierwszej instrukcji DATA zostanie wyczerpany, to pobieranie na- 
stępuje z zestawu danych następnej instrukcji DATA o wyższym 
numerze wiersza (pierwszym wyzszym). 

W tym programie wykonanie instrukcji READ w ciągu instrukcji 
postać 


30 FOR i «i TO 
40 FOR j=l TO 
50 RERD X (i * j) 
60 NEXT j 
70 NEXT i 


3 

5 


spowoduje .--y czerpanie wszystkich danych z zestawu danych ins- 
trukcji QATA, ..zabrakło" więc danych do wykonania ciągu ins- 
trukcji o numerach 100-140 (brak DATA o wyższych numerach 
wierszy). Wykonanie instrukcji RESTORE powoduje przydzielenie 
do aktualnego czytania zestawu danych numerycznych w instruk- 
cji DATA (230 i 240) poczynając od najniższego numeru wiersza 
instrukcji DATA (tego samego zestawu danych) 

Instrukcja RESTORE ma postać: 
n RESTORE 

gdzie: 

n — numer wiersza 

Instrukcji RESTORE używa się wtedy, gdy trzeba wykonać 
obliczenia na tym samym zestawie danych (umieszczonych w 
DATA) lub przyporządkowania tych samych wartości kilku zmien- 
nym w kilku miejscach tego samego programu Wykonanie tej ins- 
trukcji powoduje potraktowanie kolejnej instrukcji READ tak, jakby 
była pierwszą instrukcją READ w programie, tzn będzie ona 
pobierać wartości z pierwszej instrukcji DATA w danym programie 
(instrukcja o najniższym numerze wiersza). 


Przykład 7.8. 

Dane jest 8 wektorów 5-elementowych o znanych wartościach 
elementów. Znaleźć liczbę wektorów, których długość nie prze- 
kracza żadnej wielkości d 
a) analiza zadania 

Długość wektora x obliczamy według wzoru: 


i = v ^f: 


18 8IH ? r * u $ól2 ?jSdr»to« x u) 

l - dluaosc mentor* 
d - zadana uieinoic 
« - uczba wentorow 
o długości < »d 


BADANIE 

KIEROWCÓW 

Mieczysław SKONIECZNY 


Ten program służy do badania orientacji przestrzennej i szyb- 
kości podejmowania decyzji przez kierowcę Pierwowzorem pre- 
zentowanego symulatora mikrokomputerowego jest aparat krzy- 
żowy DUFOUR. 

Prezentowany program mikrokomputerowy, eksploatowany na 
mikrokomputerze typu AMSTRAD CPC 6128. składa się z dwóch 
etapów: 

— próbnego — złożonego z 4 impulsów Jego celem jest przygo- 
towanie kierowcy do badania właściwego oraz oswojenie go ze 
sprzętem mikrokomputerowym, 

— właściwego — złożonego z 10 impulsów, gdzie przy każdej 
emisji liczony jest przez komputer czas wykonania zadania. 


20 

INPUT “wprowadź d :";d 


30 

DIM X (5) 


35 

LET n s0 

~ 

40 

FOR i«l TO 8 

PRINT '“wektor da nu : " 


45 


80 

LET S *0 


85 

FOR J»1 TO 5 


60 

RERD X(j) 

PRINT " ";k CJ) i 


65 


70 

LET t»S+X ( J> *X U) 


75 

NEXT J 


80 

LET l«SQR <*) 


90 

IF l < «d THEN LET ft»m+ 1 


95 

PRINT 


100 

PRINT “dluoosc wektor* 

: " i 

105 

NEXT i 


110 

PRINT '“liczba wektorów 

* kto 

ruch 

długość nie przekracza 

zada 

ntj wielko*- ci d * “;d; M 
o* i s ";a 

wuh 


115 STOP 

iae brt r 
ias 

130 
135 


1,3.6,7,9.8.4.6.8.10 
DAT fi 1,8,5,8,9,3,4,6,7,10 
DAT fi 1,8,3,4,5,6,7,8,9,10 
DAT fi 10,1,9,2,8,3,7,4,6,5 


Wiiiiusi. i.n.-M,'. «v wektor o w ziiainy przed wykonaniom pio- 
gramu. więc możemy |e umieścić w programie stosując instrukcję 
DATA. Nadawać będziemy wartości elementów pierwszego wekto- 
ra. obliczać jego długość i porównywać z wielkością d, potem dru- 
giemu. trzeciemu wektorowi itd. 

Narysowanie schematu blokowego pozostawiamy czytelnikowi 
b) program 

Jeżeli chcielibyśmy programy z przykładów 7.7. i 7.8 wykonać 
dla innego zestawu danych, należałoby zmienić listę stałych (nu- 
merycznych) w instrukcji DATA Zmiany tej dokonujemy przed 
wykonaniem programu. 

Tak więc, jeżeli program ma wykonywać obliczenia dla różnych 
partu danych, należy zastosować instrukcje INPUT. 

W instrukcji DATA umieszcza się występujące zazwyczaj w 
programie stałe, z których korzystamy kilka razy w danym progra- 
mie 


Zadania: 

Napisać programy w BASIC-u realizujące następujące zadanie: 

1 . Dane są macierze prostokątne A.B.C (i = 1 ,2, ,m, j = 1 ,2,. n) 
Oblicz macierz D według wzoru 

D = p • (A + B) + C 
gdzie, p jest zadaną liczbą (skalarem) 

2. Dana jest macierz kwadratowa A(a,. i.j = 1.2 n) 

Obliczyć sumę tych elementów, które należą do zadanego 
przedziału (c.dj 

3. Dane jest n-wektorów k-elementowych. Znaleźć liczbę wektcu_ 
rów. których długość me przekracza żadnej wielkości d 
Uwaga: jest to uogólnione zadanie z przykładu 7 8. Wektory na- 
leży umieścić w tablicy dwuwymiarowej, w której 
wiersz reprezentuje wektor k-elementowyj porównaj 
przykład 7.3 ). 

zzw 


Jeden impuls polega na wyświetleniu na ekranie monitora 
dwóch obiektów 

— statycznego (kwadratowa ramka) 

— dynamicznego (sterowanego przez badanego) — wypełniony 
kwadrat 

Zadaniem badanego jest umieszczenie obiektu dynamicznego 
(kwadratu) w obiekcie statycznym (ramce) Sterowanie kwadra- 
tem odbywa się za pomocą czterech klawiszy funkcyjnych, roz- 
mieszczonych z prawej strony klawiatury: 

t — ruch do góry 

1 — ruch w dół 

— — ruch w prawo 

— — ruch w lewo - 

Rozmieszczenie obiektów na ekranie jest generowane losowo 
przez mikrokomputer. 

Aby zapewnić porównywalność impulsów, odległość obu obiek- 
tów w momencie startowym jest stała. Po pomyślnym zareagowa- 
niu na impuls badany kierowca słyszy efekt dźwiękowy i na dole 
ekranu wyświetlany jest czas jego reakcji. Na zakończenie pro- 
gramu podawany |est średni czas reakqi i ocena końcowa w skali 
czterostopniowej. Dodatkowo pojawia się ocena słowna, określa- 
jąca stopień przydatności do wykonywania zawodu kierowcy. 

» 
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Kryteria graniczne poszczególnych ocen w skali czterostopnio- 
we) wyznaczono metodami statystycznymi. Zbadano próbą loso- 
wą 1 50 kierowców wojskowych i uzyskane przez nich wyniki pod- 
dano analizie statystyczne), uwzględniającej charakterystyki roz- 
kładu normalnego 
UWAGI PROGRAMOWE 

1 Jeżeli użytkownik chciałby zmienić graficzną reprezentaqę 
obiektu dynamicznego i statycznego, może uczynić to w prosty 
sposób. W tym celu wystarczy usunąć podprogram z linii 640. 
który rysuje na ekranie kwadrat i ramkę Zamiast niego 
proponujemy wprowadzić ciąg instrukcji 

640 LOCATE y - 1 x - 1 PRINT CHRS (144>. CHRS (145). 
CHRS (146) 

642 LOCATE v - 1 . x PRINT CHRS (147), CHRS (148) 
644 LOCATE y - 1. x -ł 1: PRINT CHRS (149). CHRS (150); 
CHRS (151) 

646 RETURN 

Efektem działania tego podprogramu jest wrysowanie w okreś- 
lone (współrzędnymi x.y) miejsce ekranu obiektu statycznego. 
Dodatkowo należy zwiększyć zestaw symboli graficznych, de- 
finiowanych przez użytkownika, zastępując instrukcję 700 cią- 
giem instrukcji: 

'700 SYMBOL AFTER 143 

701 SYMBOL 143.60.126,255.255,255,255,126.60 

702 SYMBOL 1 44. 0. 0, 0. 1 . 7. 1 5. 30 

703 SYMBOL 145. 0. 0, 0. 255. 255, 255, 129 

704 SYMBOL 1 46. 0. 0. 0. 1 28. 224. 240. 240. 1 20 

705 SYMBOL 147 30, 28. 28. 28. 28. 28. 28. 30 

706 SYMBOL 148. 120. 56. 56. 56. 56 56. 56. 120 

707 SYMBOL 149. 30. 15. 15. 7. 1 

708 SYMBOL 150 0. 129. 255. 255. 255 

709 SYMBOL 15l 'l20. 240. 240. 224. 128 

Aby wprowadzone zmiany me kolidowały z dotychczasową 
konstrukcją programu, należy usunąć instrukcję 620 Gttyby 
użytkownik chciał stosować inne obiekty dynarmczrfo. musi do- 
konać analogicznych modyfikacji programu 

2 W etapie właściwym po każdej poprawnej reakcji na impuls 
w dowolnei części ekranu wyświetlana jest informacja o czasie 
reakcji baitanego kierowcy. Informację lę można uzupełnić po- 
dając dodatkowo dotychczasowy średni czas reakcji oraz ko- 
mentarz oceniający dotychczasową działalność badanego W 
tym celu należy instrukcję 660 zastąpić następującymi instruk- 
cjami: 


656 MODĘ 1 PEN 2:G1 = UMĘCZ ~ CZ h (G1 - G) , 300 
LOCATE, 8.1 

657 PRINT CZAS REAKCJI NA IMPULS NR. R 

658 PEN 3LOCATE 18.2 PRINT (G1 - G, 300; GEK 

659 PEN 2 LOCATE 5 4 PRINT' DOTYCHCZASOWY ŚREDNI 
CZAS REAKCJI. 

660 PEN 3: LOCATE 18.5 PRINT CZ R SEK 

661 IF R = 1 THEN GOTO 670 

662 IF (G1 - G) - 300<CZ, R THEN GOTO 665 

663 LOCATE 1.7 PRINT TEMPO SŁABNIE. POPRAW 
SZYBKOŚĆ REAKCJI 

664 GOTO 670 

665 LOCATE 4.7:PRINT' JESTEŚ DOBRY UTRZYMAJ TO 
TEMPO 

670 aS - INKEYS 

680 IF INKEYS = 7 THEN 680 

Dodatkowo należy usunąć instrukcję o etykiecie 220. 

3. Stosunkowo prostymi modyfikacjami programowymi można 
uzyskać sterowanie obiektem dynamicznym za pomocą innych 
klawiszy. W lyrh Celu należy dołączyć do programu źródłowego 
następujący podprogram: 

1002 MODĘ kLOCATE 1.24:INPUT „CZY CHCESZ ZDEFI- 
NIOWAĆ WŁASŃE KLAWISZE STERUJĄCE (T/N) 7KS 
1005 IF KS - ' T ' OR KS = T" THEN GOTO 1020 
1010 IF KS = - n 'ORKS = N THEN GOTO 
1015 LOCATE 1 7.25 PRINT GOTO 1000 
1020 LOCATE ITINPUT "RUCH DO G6RY - 7 BS (1) 

1025 LOCATE 1.3 INPUT RUCH NA D62 - 7 BS (2) 

1030 LOCATE 1.5 INPUT RUCH W PRAWO - 7 BS (3) 

1035 LOCATE 1.7 INPUT RUCH W LEWO - BS (4) 

1040 RETURN 

1050 BS (1 ) = CHRS (240) 

1052 BS (2) = CHRS (241) 

1054 BS (3) - CHRS (242) 

1056 BS (4) - CHRS (243) 

1058 GOTO 1040 

Dodatkowo należy wprowadzić instrukcję 39 GOSUB 1 002 oraz 

zmodyfikować instrukcje 410—440 w następujący sposób 

410 IF aS -BS (1) GOTO 450 

420 IF aS = BS (2) GOTO 490 

430 IF aS -BS (3) GOTO 530 

440 IF aS -BS (4) GOTO 570 

Mieczysław SKONIECZNY 


10 CLEAR INPUTiBORDER OiPAPEP OiCLSiHODE 1: INK 0,0 
: INK 2,24:60SU8 960 

20 MINDOU #1,6,32,5, I2:PAP£R ll,2iCLS IliPEN 11,0: 
LOCATE 1 1 , J 1 , 2 : PR I NT# 1 , * BADAN I E * j LOCATE »1,2,4:PRI 
NTI1,*0R6ANIZACJI PRZESTRZENNEJ * i LOCATE #1,2,5 iPRI 
NTtl,'I SZYBKOŚCI P0DEJR0HAN I A * : LOCATE #1,2,6:PRIN 
Tli, ‘DECYZJI PRZEZ KIER0NC0 a t INK 2,24,26 

30 IF IlKEYł*" THEN 60T0 30 
40 NODE 1: INK l,14tINK 2,24iINK 3,6:NINDOH #1,1,40 
,1,7:PAPER #1,2:CL8 IliPEN ll,0:L0CATE łl,2,2:PRIN 
Tll,*Proqrj« aa za zadanie zbada" organiza-':LOCAT 
E #l,2,3iPRINT#l,‘cjt przestrzenni i szybko7* pod* 
jnow-* 

50 LOCATE #l,2,4iPRINT»l,'ni* decyzji u badanego u 
9ytkownika-kie-'i LOCATE 1 1 , 2,5: PRINTtl , ‘rowcy wojs 
kowego. Składa on iii z tta-*iLOCATE łl,2,6:PRINTł 
1,'pu pr5bnego i wla7ciw*go. ’ 

60 N INDOR #2,2, 39,9,15:PAPJR #2,liCLS #2:PEN «2,0i 
LOCATE l2,2,2:PRJNT#2,'Etap pr5bny jest zlołony z 
4 pr5b ea-‘:L0CATE #2,2, 3s PPINTB2, ' j I cych na celu 
przygotowanie badanego' ilOCATE #2,2,4iPRINT#2,'do 
etapu wla7ciwego ł oswojenie ze* 

70 LOCATE #2,2,5iPRINTł2,'sprztt*n eikrokoeputeroH 
ya. Nie jest ‘iLOCATE #2,2,6:PRINT#2, -badany czas r 
•akcji.' 

80 HINDON #3,2,39, 17, 22:PAPER #3,3:PEN #3,0:CLS 13 
tLOCATE #3,2,2iPRINTI3,‘Etap wla7ciwy składa sil z 
10 pr5b, 'iLOCATE #3,2,JiPRINTI3,'gdzie u ka9dej z 
nich jest neliczany':LOCATE #3, 2, 4 j PRINT# 3, 'przez 
•i krokoeputer czas reakcji ba*' 

90 LOCATE #3,2,3iPRINT#3,'danego.'iPEN 2:L0CATE 1, 
25:PRINT'NACI8NIJ 'SPACJO” 

100 IF INKEYS**' THEN 100 

110 NODE liNINDON II, 1,40, 1,7: PAPER ll,2:CLS #1:PE 
N #1,0: LOCATE «1,2,2>PRINT#I, -Jedna pr5ba polega n 
a wy7wictleniu na': LOCATE II, 2, 3:PRINT#1, 'ekranie 
•onitora 2 obi *kt5n:'s LOCATE łl,3,4:PRINTłl,'- sta 
tycznego (kwadratowa ran kał* 

26 


120 LOCATE ll,3,5:PRINT#l,'- dynaeicznego (sterowa 
nego przez ba-':L0CATE #1, 5, 6:PRINTI1, 'danego) - m 
ypelniony kwadrat.* 

130 HINDON #2,1,40,9, 16:PAPEP «2,1:PEN #2,0:CLS #2 
ilOCATE #2,2,2:PRINTł2,‘Zadaniee kierowcy jest uei 
•szczanie' :L0CATE #2, 2, 3xPRINT#2, 'obiektu dynaaicz 
nego (kwadratu) w obie-': LOCATE #2,2,4:PRINT#2,*kc 
ie statyczny* (rance).* 

140 LOCATE #2, 2, 5:PRINT#2, 'Sterowanie kwadratea od 
bywa sil za po-':L0CATE <2,2,6:PR1NT#2 ,'mc: 4 kia 
wiszy funkcyjnych rożnie-': LOCATE I2,2,7:PRINTI2,' 
szczonych z prawej strony klawiatury:' 

150 PEN 3: LOCATE 4,18:PRINT CHR»(240)j' - ruch do 
gSry': LOCATE 4,20:PRINT CHRt(241)|* • ruch na d51' 
•.LOCATE 4,22:PRINT CHR»(243)j' - ruch w prawo':L0C 
ATE 4,24:PPINT CHRł(242);' - ruch w l*wo':PEN l:PR 
INT ' 'iPRINT 'NACI8NIJ 'SPACJO” 

160 IF INKEYI*" THEN 160 
170 NODE I : MINDOWtl ,1,40,2,12: PAPERłl, 1 : CLSłl i PEN# 
l,0:L0CATEłl,l,2:PRINTłl, 'Pomieszczanie obiekt5w 
na ekranie jest generowane losowo przez eikrokoepu 
ter. Jednak, 9eby zapewni" por5wnywalno7" prSbodle 
glo7* obu obiektSw w eoeencie star-' 

180 LOCATE łl,l,6iPRlNTłl,'towya jest stala.‘:LOCA 
TE #l,l,8:PRINT#l,'Po poey71nyi zako3czeniu pr5by 
badany słyszy efekt djwilkowy i u dołu ekranu j 
•st wy7wietlany czas reakcji.' 

190 NIND0N#2,2,40,15,20:PAPER#2,2:CLS#2:PENI2,0:L0 
CATE B2, 2,-2rRRINT#2, “łta z ato Jeżenie prograeu jest 
podawany':LOCATE #2,2,3:PRINT#2,*czas reakcji i oc 
en a badanego w skal i': LOCATE #2,2,4:PRINT«2,'czter 
ostopni owej.'; PEN 2:L0CATE 1,24:PRINT*NACI8NIJ 'SP 
ACJO’ 

200 IF INKEYS*" THEN 200 

210 HODE OilORDER I4:PAPER 1 : CLS: HINDON #1,3,18,12 

,16:PAP€R #l,3iCLS#l:PEN «1,0:L0CATE #1 , 3, 3: PRINT# 

1,'ETAP PR6BNY'z INK 0,0,24 

220 IF INKEYS*" THEN 220 

230 HODE lsIMC 0, 14: INK 1,0: INK 2,liINK 3,26:BORDE 


R UiPAPER 0:P1*0:CLS 

240 FOR r*l TO 5 

250 60SUI 520 

260 FOR z*l TO IOOOiNEIT 

270 NEIT 

280 PI*1 1 INK 1,6 

290 HODE 0x INK 1,14: INK 2,24:INK 3,6: INK O,O:BOR0E 
R 14: PAPER liCLStNINDOH #1,3, 18, 12, 16: PAPER ll,3:C 
LS* 1 : PEM 11,0: LOCATE ll,2,3;PRINT#l,'ETAP H2A6CIHY 
*: INK 0,0,24 

300 IF NOT (INKEYS** ') THEN 300 
310 FOR H*1 TO SOOrNEIT 
320 cz*0 

330 FOR R*1 TO 10 

340 60SUI 520 

350 CZ*CZ+((61-6)/300) 

360 NEIT 

370 FOR H*1 TO 2000: NEIT 

380 60SUB 960: HODE 1: INK 0,0: INK 1,0: INK 2,24: INK 
3,6:B0RDER 24:PAPER 2:CLS:HIND0N łl,3,17,2,4:PAPER 
•1,0: CLS II: PEN #l,2lL0CATE #l,2,2:PRINTtl, 'WYNIK ’ 
I TESTU* 

390 PEN 1: LOCATE 1,7:PRINT'8REDNI CZAS REAKCJI - ■ 
i : PRINT USIN6 ■•ll.»l'jCI/10|»PRINT' SEK' 

400 PEN 3: LOCATE 9,12iPPINT'llltt OCENA UllfiPEN 
I 

410 cz*cz/10 
420 IF cz<4.74 60T0 490 
430 IF cz<5.57 60T0 480 
440 IF cz<8 GOTO 470 
450 60T0 460 

460 LOCATE 1,14:PPINT'TM0JE NYNIKI S) BARDZO S2ABE 
. BADANIE ORGANIZACJI PRZESTRZENNEJ I SZY8K08CI 
PODEJHONANIA DECYZJI DYSKNALIFIKUJE CIO JAKO KIE 
ROHCO H0JSK0HES0. KUSISZ ZDECYDO-HANIE JNICZY].':PR 
INTiPEN 3:PPINT'UZYSKA2E8 OCENO 2':60TO 500 
470 LOCATE !,!4:PRINT'TN0JE NYNIKI S) S2ABE. BADAN 
IE 0P6ANIZA-CJI PRZESTRZENNEJ I SZYBK08CI PODEJHON 


A-NIA DECYZJI KWALIFIKUJE CIO JAKO KIE- ROWCO KO 
JSK0WE60. ALE KUSISZ ZDECYDOWAHIE1WICZY3. 'sPRIWTsPE 
N 3iPRINT*UZYSKA2E8 OCENO 3"sS0T0 500 
480 LOCATE l, 14iPRINT*TNQJE WYNIKI S) DOBRE. BADAN 
IE ORGAN IZA-CJI PRZESTRZENNEJ I SZYBK08CI PODEJHON 
A-NIA DECYZJI KWALIFIKUJE CIO JAKO KIE- ROWCO KO 
JSK0WE60. NIE ZASZKODZI JEDNAK JAK BODZIESZ 1KICZ 
Y2.*iPRINTiPEN 3iPRINT"UZYSKA2E8 OCENO 4M60T0 50 
O 

490 LOCATE l,14iPRINT*TK0JE KYNIKI S> BARDZO DOBRE 
. BADANIE ORGANIZACJI PRZESTRZENNEJ I SZYBKOŚCI 
PODEJMOWANIA DECYZJI KWALIFIKUJE CIO JAKO KIE 
ROHCO KOJSKOHEGO. NIE MUSISZ IWICZYJ. ‘:PRINT;PE 
N 3iPRINT'UZYSKA2E8 OCENO 5'sBOTO 500 
500 IF NOT(INKEY$*V OR INKEY**="S‘) THEN 500 
510 60T0 10 

520 MODĘ 1 : INK O, 14: INK 1,0: INK 2,1:INK 3,26:B0RDE 
R 14: PAPER 0:CLS 
530 PEN 1 

540 x*2+INT(22IRND) 

550 y*2łINT(37IRND) 

560 IF x >12 60T0 580 
570 xl*x+12:60T0 590 
5B0 xl«»-12 
590 IF y>20 GOTO 610 
600 yl»y+15:60T0 620 
610 yl*y-15 

620 CLEAR INPUT:PEN liGRAPHICS PEN 3:G0SUB B90:L0C 
ATE yl , x 1 SPRINT CHRN143); 

630 q*TIME 
640 at*lNKEY$ 

650 IF THEN GOTO 640 
660 IF «t»CHRt(240> 60T0 700 

670 IF a»=CHR*<241) 6DT0 740 

680 IF ał*CHR«(242) GOTO 780 

690 IF a*=CHR»<243) 60T0 820 


700 IF x 1*1 60T0 640 

710 FRAHE: LOCATE yl,xliPRINT CHR*( 128) LOCATE yl, 

x!-l:PRINT CHR* ( 143) | *x l»xl-l 

720 FRAME 

730 GOTO 860 

740 IF xl=25 GOTO 640 

750 FRAME:LOCATE yl,xl:PRINT CHR« ( 128) j sLOCATE yl, 

x 1+1 x PRINT CHR»(143);:xl*xl*l 

760 FRAME 

770 GOTO 860 

780 IF yl=l GOTO 640 

790 FRAHE: LOCATE yl-l,xl:PRINT CHR» ( 143) ; CHR* ( 128) 

;:yl=yl-l 

800 FRAHE 

810 GOTO 860 

820 IF ylMO GOTO 640 

830 FRAME:LOCATE yl,xl:PRINT CHR* (1 28) |: LOCATE yl+ 
l,xl:PRINT CHR* (143) ; i yl*yl+l 
840 FRAME 
850 GOTO 860 

960 IF 1=11 AND Y=Y1 GOTO 900 
870 GOSUB 890 
980 GOTO 640 

890 Z*t(Y-l)ll6)-2iV=((25-XH16)-2:L0CATE y,x:PRIN 
T CHR* ( 143) ; : PLOT Z,V:DRAN Z+18, V:DRAW Z+18, V+18:D 
RAK Z,V+18:DRAN Z,Viz»z-2iv«v- 2:PL0T z,v:DRAK z+22 
, vi DRAW z+22,v+22:DRAK z,v+22:DRAN z,v:RETURN 
900 SOUND 1 , 478: SOUND 1,358:G0SUB 890:SPEED INK 10 
,10: INK 1,4)26 
910 IF P1=0 GOTO 930 

920 PEN 2: LOCATE l,24:gl=TIHE:PRINT 'CZAS - 'jsPRI 
NT USIN6 '**.***; Igl-g)/300j:PRINT’ sak* 

930 a*=INKEY* 

940 FOR Z«1 TO 1000:NEIT 
950 RETURN 

960 SYMBOL AFTER 170 


970 SYMBOL 171,0,0,120,12,124,204,118,3 

980 SYMBOL 172,24,60,102,102,126,102,102,3 

990 SYMBOL 173,24,0,60,102,96,102,60,0 

1000 SYMBOL 174,24,60,102,192,192,102,60,0 

1010 SYMBOL 175,0,0,60,102,126,96,60,6 

1020 SYMBOL 176,254,98,104,120,104,98,254,3 

1030 SYMBOL 177,56,24,28,2- .56,24,60,0 

1040 SYMBOL 178,240,96,112,96,226,102,254,0 

1050 SYMBOL 179,24,0,220,102,102,102,102,0 

1060 SYMBOL 180,24,198,230,246,222,206,198,0 

1070 SYMBOL 181,24,0,60,102,102,102,60,0 

1080 SYMBOL 182,12,56,108,198,199,108,56,0 

1090 SYMBOL 183,24,0,60,96,60,6,124,0 

1100 SYMBOL 184,24,60,96,60,6,102,60,0 

1110 SYMBOL 185, 24, 0, 126, 76, 24, 48/126, 0 

1120 SYMBOL 186,254,198,140,126,48,102,254,0 

1130 SYMBOL 187,12,24,126,76,24,48,126,0 

1140 SYMBOL 188,48,254,172,24,50, 102,254,0 

1150 SYMBOL 189,0,0,0,0,0,12,12,24 

1160 KEY DEF 10,1,55,171,172 

1170 KEY DEF 11,1,56,173,174 

1180 KEY DEF 3,1,57,175,176 

1190 KEY DEF 20.1,52,177,178 

1200 KEY DEF 12,1,53,179,180 

1210 KEY DEF 4,1,54,181,182 

1220 KEY DEF 13,1,49,183,184 

1230 KEY DEF 14,1,50,185,186 

1240 KEY DEF 5,1,51,187,188 

1250 KEY DEF 15,1,189 

1260 RETURN 


M. Skoneczny 


Emulator Basic 1.1 dla CPC 464 <2> 


Zgoodnie z zapowiedzią z poprzedniego numeru przystąpię teraz 
do przedstawienia komend, o które wzbogacony został BASIC 1.0. 
CURSOR (przełącznik systemowy) (przełącznik użytkownika). 

Funkcja ustawia przełączniki następująco włączony (1 ) i wyłączony 
(0). Kursor jest wyświetlany, jeśli oba przełączniki są włączone. Musi 
wystąpić przynajmniej jeden parametr. Nie można pominąć obu. 

ON BRE AK CONT i ON BREAK STOP 
Pierwsza z tych funkcji likwiduje działanie klawisza ESC, którego 
wciśnięcie powoduje przerwanie programu. Działanie tego rozkazu 
jest znoszone przez drugą funkcję. 

Mask (wyrażenia całkowite), (początkowe ustawienie punktu). 

Rozkaz ustawia maskę i jest stosowany podczas kreślenia linii. Bi- 
narna wartość „wyrażenia całkowitego” z przedziału O — 255 ustawia 
bity w każdej przyległej grupie 8 punktów w stan włączony (1) lub 
wyłączony (O). Parametr (początkowe ustawienie punktu) określa, 
czy pierwszy punkt linii będzie wyświetlany (1), czy też nie (O). Musi 
wystąpić przynajmniej jeden z parametrów. 

GRAPHICS PEN (nr tuszu), (tryb tła) 

Rozkaz ustala kolor atramentu dla kreślonej grafiki (0—15). Try- 
by: O— tło nieprzezroczyste, 1— tło przezroczyste. Tryb tła wpływa 
na tło znaków wyświetlanych przy aktywnym TAG oraz na kolor 
przerw w liniach przy określonych parametrach instrukcji MASK. 
GRAPHICS PAPER (nr tuszu) 

Ustala kolor tła w trybie graficznym. Jest również kolorem tła przy 
czyszczeniu okna graficznego (CLG). 

FRAME 

Umożliwia poprawę jakości obrazu przy animacji. Dzięki tej funk- 
cji uzyskujemy płynny ruch na ekranie. 

FILL (nr INK) 

Wypełnia dowolny obszar okna graficznego kolorem wyspecyfiko- 
wanym w INK. 

COPYCHRS (#nr strumienia) 

Kopiuje znaki z bieżącej pozycji kursora znakowego z wyspecyfi- 
kowanego strumienia na pozycję instrukcją LOCATE. 

CLEAR INPUT 

Zeruje bufor klawiatury, usuwając z niego uprzednio wpisane zna- 
ki. 

Dodatkowo, funkcje graficzne (DRAW, DRAWR, MOVE, MO- 
VER, PLOT, PLOTR) występujące w' BASICu 1.0 zostały rozsze- 


rzone o dodatkowy parametr — tryb tuszu i mają następującą postać: 
funkcja graficzna (wsp. X), (wsp. Y), (kolor tuszu), (tryb tuszu). 
Tryb tuszu określa sposób wzajemnego oddziaływania na siebie kolo- 
ru tla (PAPER) i koloru tuszu (PEN). Parametr ten może przyjmo- 
wać następujące wartości: 

a. O — tryb normalny 

b. 1 — tryb XOR 

c. 2 — tryb AND 

d. 3 — tryb OR. 

Program demonstracyjny oraz przykład działania funkcji CLEAR 
INPUT ilustrują działania dodatkowych funkcji. Praca z emulatorem 
znacznie zwiększa możliwości tworzenia obrazów graficznych przy 
wykorzystaniu interpretera języka BASIC. 

J. R. 

10 REHtmmttimimmmttmtmt 
20 REM PROGRAM DEMONSTRACYJNY I 
30 REMiiimmmitiiiitiiiimimm 

40 M0DE 1 : INK 0,0: INK 1,9:INK 2, Ul INK 3,26 

50 KINDOK *1,25,40, 1,25:PAPER *1,2:PEN tl,3:CLS IliKINDON *2, l , 40, 23, 25: PAPER V. 
, 1: PEN *2,0: CLS *2 
60 KINDOK *3,1,24,1,24 
70 GOSUB 1690 

80 LOCATE «2,!0,1:PRINT *2, 'DOKONAJ KYB0RU OPCJI'; 

90 *»*INKEY»:IF ł»=" THEN 90 
100 IF INKEY (69)»0 THEN 1470 
110 IF INKEY <54)*0 THEN 1590 
120 IF INKEY (62) “0 THEN 1250 
130 IF INKEY (61 ) “0 THEN 990 
140 IF INKEY (58) *0 THEN 370 
150 IF INKEY (53) »0 THEN 690 
160 IF INKEY (52) *0 THEN 180 
170 60T0 90 

180 rem mimmit cursor iimiiiiin 

190 CLS «1:CLS *2:CLS *3:G0SUB 1830 

200 LOCATE łl,2,4:PRINT *1, 'JDEHONSTRACJAI': 

210 LOCATE łl,2,6:PRINT *1," CURSOR*; 

220 CURSOR 1: LOCATE *0,22,5 

230 LOCATE *3,5,5sPRINT *3, ‘napisz litera :' 

240 LOCATE *2,I7,1:PRINT *2, 'CURSOR 1*,; 
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250 10CATE 13,22,5 

260 al*INKEY»:IF lł>" THEN 260 

270 LOCATE IO,22,5:PRINT 10, • ‘sMUHT I3.a»; 

280 CURSOR 0:F0R i-l TO 2000:N£IT i 

290 LOCATE 12,24, liPRINT 12,'0'j 

300 LOCATE 13, 3, 5i PRIMT 13,'napUz liter* : * 

310 LOCATE 13,22,5 • 

320 *»■ IMKEYt: IF THEN 320 

330 WINT ł3,at| 

340 LOCATE 12,5, li MI NT 12,'DONOlNY KLANISZ - POWOI DO MENU*: 

350 al-IKEYlrlF a*-** THEN 350 

360 60T0 70 ' 

370 REN lltUUIIII ON BREAK 11111111111 

380 CLS IliCLS «2iCLS 43:60SUB 1830 

390 LOCATE «1,2,4iPRINT II, * IDEHOMSTRACJ A» * ; 

400 LOCATE I1,2,6:PR1NT II,* ON BREAK*! 

410 LOCATE ll,2,7tPRlNT II,' CONT STOP*; 

420 FOR i*l TO ISOOiNEIT i 

430 LOCATE 12, 10, 1 1 PRINT 12, 'BREAK Raczony* 

440 GRAPHICS PEN 1,0:6RAPH!CS PAPER O 

450 LOCATE 13,2, 12:PRINT 13, CHRI <1431: LOCATE 13,23, 12iPRINT I3,CHP*1!43> 

460 TA6:H0VE 33.224 

470 ON BREAK CONT 

480 FOR z*l TO 3 

490 FOR **33 TO 336 

500 FRAHE:HOVE * -1 , 224* PRINT * *; 

510 HOVE >,224 
520 PRINT CHRI (243); 

530 NEIT « 

540 HOVE 336,224 

550 FOR **336 TO 32 STEP -I 

560 FRAME:NOVE **I,224:PRINT ' •; 

570 HOVE *,224 
580 PRINT CHRt(242); 

590 NEIT * 

600 NEIT z 

610 GRAPHICS PEN 3:H0VE 384,200:DRAN 640, 200: GRAPHICS PEN 1 
620 LOCATE I2,16,I:PRINT 12, 'włączony '; 

630 LOCATE 11,2, 15:PRINT II, ‘po wyitapitniu*; 

640 LOCATE ll,3,16:PRINT II,' BREAK'; 

650 LOCATE ll,2,17:PRINT U, ‘wypucować RUN'; 

660 LOCATE I1,2,1I:PR1NT II,* Kimać ENTER* ; 

670 ON BREAK STOP 
680 GOTO 480 

690 REN llimnmi HASK 4111111111111 


700 CLS IliCLS 02 : CLS I3:60SUB 1830 

710 LOCATE tl,2,4:PRINT 11,'IDEHOWSTRACJAI'; 

720 LOCATE ll,2,6:P«INT II,* HASK'; 

730 GRAPHICS PAPER OiGRAPHICS PEN 3 

740 y*397 

750 lpl*0 

760 FOR i*l TO 10 

770 HASK III 

780 HOVE 3,y:DRAN 384, y 

790 y-y-I 

800 lpX»lpX*l 

810 IF lpX>350 THEN 950 

820 NEIT i 

830 y*y-l:HOVE 3,y:HASK limilllliORAN 384,y:y*y-l 

840 lpt*lpXM:IF lpl>350 THEN 950 

850 FOR 1*1 TO 10 

860 HASK 6110000 

870 NOVE 3 , y : DRAM 384, y 

880 y*y-l 

890 lpl*lpt+l 

900 IF lpl>350 THEN 950 

910 NEIT i 

920 y*y-i:HOVE 3,y:HASK tlllimiliORAN 384,y:y«y-l 
930 lpX*lpl*l:IF 1 pX >350 THEN 950 
940 60T0 760 

950 aS 12: LOCATE 12,3, liPRINT 12,'DONOLNY KLANISZ - POWOT DO HENU'; 
960 at*INKEY»;IF «•*** THEN 960 
970 HASK Ullllllll 
980 GOTO 70 

*990 PEN lilii GRAPHICS PAPER 6 PEN tttt 
1000 CLS llias I2i CLS 93: GOSUB 1830 
1010 LOCATE 91 , 2, 4: PRINT 1 1 , ' 1 5EH0NSTRAC J Al * ; 

1020 LOCATE 11,2,6: PRINT II,' GRAPHICS*; 

1030 LOCATE ll.2,7:PRINT II,' PAPER PEN*; 

1040 TAG: 6RAPH1CS PAPER 2 
1050 6RAPH1CS PEN 0,0 . 

1060 FOR 1*1 TO 2500: NEIT 1 
1070 HOVE 50, 250: PRINT 'Ala*; 

1080 GRAPHICS PEN 3,1 
1090 FOR 1*1 TO 2500:NEIT 1 
1100 HOVE 100, 1 00: PR I NT 'A*'; 

1110 GRAPHICS PEN 1,0 


1120 GRAPHICS PAPER 3 
1130 KOP 1*1 TO 2500: NEIT 1 
1140 HOV£ 300, 200: PRINT 'OLA'; 

1150 FOR 1*1 TO 2500:NEIT 1 
1160 6RAPHICS PAPER 1 
1170 6RAPHICS PEN 0,0 
1180 HOVE 250, 360: PRINT 'DOłł'; 

1190 FOR 1*1 TO 2S00:NEIT I:6RAPHICS PEN 2 

1200 TA60FF:N0VE I50,I50:DRAN 150,300:DRAH 230, 300: URAN 250 . 1 50 : DRAH 150,1SO:NOV 
E 220, 220:F 1LL 1 

1210 LOCATE I2,5,I:PR1NT 12,'DONOLNY KLANISZ - PONROT DO HENU'; 

1220 ał*lNKEYt:lF at*" THEN 1220 
1230 GOTO 70 

1240 REN Ittllltlltlll FRAHE lllllllllllt 

1250 CLS łl:aS I2:CLS I3:G0SUB 1830 
1260 LOCATE I1,2,4:PR1NT 11,'IDENONSTRACJAI‘i 
1270 LOCATE ll,2,6:PRINT II,' FRAHE'; 

1280 LOCATE 12, 10, 1 iPRINT 12, ‘Funkcja FRAHE aktywna'; 

1290 TAG:NOVE 200,50 
1300 FOR y*50 TO 300 
1310 FRAHE 
1320 HOV£ 200, y-1 
1330 PRINT * *; 

1340 HOVE 200, y 
1350 PRINT CHRI (239); 

1360 NEIT y 

1370 TA60FF:CLS I3:60SUB 1840 

1380 LOCATE 12, 24, 1 i PRINT 12, 'wyłączoną'; 

1390 TAG:HOVE 320,0 
1400 FOR y*50 TO 300 
.410 HuyE 2l~ tl -l 
1420 PRINT • *; 

1430 HOVE 200, y 
1440 PRINT CHRI (239); 

1450 NEIT y 
1460 60T0 70 

1470 REN Itllltltl COPYCHRI lltlllttlltl 

1480 CLS łl:aS 12: GOSUB 1840 

1490 LOCATE II, 2, 4: PRINT ll/IDEHONSTRACJAI': 

1500 LOCATE ll,2,6:PRINT II,' COPYCHRI'; 

1510 LOCATE I3,5,5:PR1NT 13,'IYZ': 

1520 FOR 1*1 TO 2S00:NEIT 1 
1530 LOCATE l3,5,5:bl*C0PYCHR4(ł3) 

1540 LOCATE 13, 10. IOjPRINT 13, Dl; 

1550 LOCATE 12,5, IzPRIHT 12,'DONOLNY KLANISZ - POWOT DO HENU'; 

1560 al*INKEY»:IF al*“ THEN 1560 
1570 60T0 70 

1580 REN Itltllttlt FILL UUlUtllUU 

1590 CLS ll:aS I2:60SUB 1840 

1600 LOCATE II , 2. 4: PRINT 11. 'IDEHONSTRAUAI'; 

1610 LOCATE 91 , 2, 6: PRIHT II.-' FILL"; 

1620 HOVE 50, 50: ORAN 150.300:DRAN 230, ISO: DRAM 50,50:H0V£ 150,200 
1630 FOR 1*1 TO 2500:NEIT z 
1640 FILL 2: NOVt 260,150:FILL I 

1650 LOCATE I2,5,!:PRINT 12,'DONOLNY KLANISZ - PONROT DO HENU’; 

1660 at*INKEYł:IF ał*" THEN 1660 
1670 GOTO 70 

1680 REN tttUUUI HENU Ullttltltllltl 

• 1690 CLS ll:CLS 12: CLS I3:G0SUB 1840 
1700 LOCATE II ,2, 2: PRINT U. 'Uli HENU Uli'; 

1710 LOCATE I1,2,5:PR1NT 91. "(A) COPYCHRI*; 

1720 LOCATE I1,2,6:PR1NT II, MB) FILL'; 

1730 LOCATE I1.2,7:PR1NT U, MO FRAHE'; 

1740 LOCATE II , 2, B: PRINT II, MD) GRAPHICS * 

1750 LOCATE I1,2,9:PR1NT II,' PAPER/PEN' 

17A0 LOCATE II . 2, 1 0: f RINT II, ME) ON BREAK ' 

1770 LOCATE II, 2,11 iPRINT U,* CONT' 

1780 LOCATE 11,2, 12;PRINT II,' ON BREAK' 

1790 LOCATE 11,2, 13:PRINT U.* STOP' 

J800 LOCATE ll.2,l*:PRINT II, MF) HASK.' 

1810 lOCATE I1,2,15:PR1NT ll.MG) CURSOR'; 

1820 RETjRN' 

.030 REN UIIIII RYS0NAN1E RANEK UIIIII 

1840 NOOE 0,I6:DRAN 640,16.3:H0VE 3B4,398:DRAN 638, 398, 3: DRAH 638, 16:DRAU 384,16 
:DRńk 384,398:DPAN 0. 398:0801 0,16 
1850 RE (URN 


10 REN Itltltttt CLEAR 1NPUT UIIIII! 
20 CLS 

30 PRINT "uprowadź znak z klawiatury* 
40 FOR i=l TO 5000 
50 NEXT i 
60 CLEAR INPUT 


Ten słownik może się przydać wszystkim tym, 
którzy samodzielnie przedzierają się przez litera- 
turę, Ci, którzy pierwsze trudności mają już za 
sobą wiedzą ile wysiłku wymaga zrozumienie ob- 
cych terminów technicznych i ich właściwe prze- 
tłumaczenie. Nasz słownik adresujemy do 
wszystkich tych, którzy odważyli się samodziel- 
nie poszukiwać wiedzy. W następnych numerach 
„IKS-a", zawsze na tych samych stronach, dru- 
kować będziemy kolejne hasła. Wytrwali Czytel- 
nicy będą mogli skompletować pokaźnych roz- 
miarów angielsko-polski słownik informatyczny. 



AB SOL UTE - absolutny, bezwzględny, 

ABSOLUTE ADDITION - dodawane bezwzględne, dodawane 
bez zwracania uwagi na znak algebraiczny, 

ABSOLUTE ADDRESS - adres bezwzględny, acres kompu- 
tera, 

ABSOLUTE ADDRESSING - adresowanie absolutne, adreso- 
wanie bezwzględne, 

ABSOLUTE CODĘ - kod komputera, kod wewnętrzny, 
ABSOLUTE COORDI HATES - współrzędne bezwzględne (od- 
niesione do początku określonego systemu współrzęd- 
nych) , 

ABSOLUTE INSTRUCTION - rozkaz pełny, 

ABSOLUTE LOADER - program ładujący absolutny, 
ABSOLUTE MAGNITUDE - wartość bezwzględna, moduł 
(liczby), 

ABSOLUTE NUMBER - liczba niemianowana, liczba bez- 
względna, 

ABSOLUTE PROGRAM - program o adresach rzeczywistych, 
ABSOLUTE PROGRAMMING - programowani e w adresach rze- 
czywistych, 

ABSOLUTE VALUE - wartość bezwzględna, moduł, 

ABSOLUTE VALUE OF A COMPLEX NUMBER - moduł liczby 
zespolonej, 

ABSOLUTE VALUE OF A REAL NUMBER - wartość bezwzglę- 
dna liczby rzeczywistej, 

ABSOLUTE VALUE OF A VECTOR - wartość bezwzględna we- 
ktora, miara bezwzględna wektora, 

ABSOLUTE VECTOR - wektor bezwzględny, (dot. grafiki) , 
ABSORBED POWER - moc pobierana, 

ABSTRACT - abstrakt, streszczenie, wyciąg, skrót, 
analiza dokumentacyjna, 

ABSTRACT CARD - karta dokumentacyjna., 

ABSTRACT NUMBER - liczba' niemianowana, liczba oder- 
wana, 

A. C. PLANT - urządzenie klimatyzacyjne, klimatyzator 
ACCELERATE - przyspieszać, 

ACCELERATION - przyspieszanie, 

ACCEPT - akceptować, przyjmować, takie: pobrać, 
ACCEPT INSTRUCTIONS - przyjmować, realizować rozkazy 
ACCEPTABLE RELI ABILITY LEVEL - dopuszczalny poziom 
niezawodności , 

ACCESS - dostęp, takie: współpraca, 

ACCESS ARM - ramię dostępu (mechanizm zapisu lub 
odczytu danych z dysku), 

ACCESS CYCLE - cykl dostępu (do pamięci), 

ACCESS METHOD - metoda dostępu, 

ACCESS MODĘ - tryb dostępu (sposób adresowania za- 
pisu w pliku), 

ACCESS SPEED - szybkość dostępu, 

ACCESS TIME — czas dostępu, 

ACCESSIBILITY - dostępność, 

ACCESSIBLE - dostępny, 

ACCESSING FILE - dostęp do pliku (zbioru), 

ACCESSORY - dodatkowy, pomocniczy, 

ACCLIMATIZE - akl i matyzować , 

ACCOMMODATE - ulokować, umieścić, zamieścić, 

ACCOMPLI SH - osiągać, realizować, uzyskiwać, wyko- 
nywać, 

ACCOUNT - faktura, rachunek, takie: konto, 

ACCOUNTING - księgowanie, 

ACCOUNT T N'i r-FTAIl f'APD * * • r*r P fw. 

ACCOUNTING PROGRAM - program księgujący, 

ACCUMULATE - gromadzić, zbierać <np. informacje), 
takie: sumować, kumulować, 

ACCUMULATED ERROR - błąd sumacyjny, 

ACCUMULATING COUNTER - licznik dodający, 

ACCUMULATION - dodawanie, gromadzenie (np. dokumen 
tów) , akumulacja. 


ACCU MULAT OR - akumulator, 

ACCUMUL AT OR REGISTER - akumulator, 

ACCURACY - dokładność, wierność (np. przeniesienia, 

, przepisania), precyzja, 

ACCURACY CONTROL CHARACTER - znak sprawdzenia dokła- 
dności , 

ACCURACY OF MEASUREMENT - dokładność pomiarów , 
ACCURACY OF READING - dokładność odczytu, 

ACCURACY OF RECORDING - wierność zapisu, 

ACCURATELY - wiernie , 

ACHI EVE - osiagać, 

AC (CNO WL EDGE - potwierdzać, 

ACKNOWLEDGE CHARACTER - znak potwierdzający, 
ACKNOWLEDGEMENT - potwierdzenie, 

ACOUSTIC COUPLER - akustyczne urządzenie WEJ/MYJ, 
ACOUSTIC INDICATOR - wskalnik akustyczny, 

ACOUSTIC MEMORY - pamięć akustyczna (na liniach 
opóźniających) , 

ACOUSTIC MODEM - modem akustyczny, 

ACOUSTIC OUTPUT - wyjście foniczne, wyjście akusty- 
czne, 

ACOUAINT - zapoznawać się (z czymś), 

ACOUIRE - nabywać (np. wiedzę), 

ACROSS - w poprzek (ńp. taśmy) , 

ACT - działać, spełniać funkcję, pełnić rolę, 

AC TI ON - działanie, takie: operacja, czynność, 
ACTIVATE - uruchamiać (np. system, urządzenie), 

ACTI VATE THE D£VICE - uruchamiać urządzenia, 

ACTIYE CURRENT - prąd czynny, 

ACTI VE PAGE - stronica dostępną (część bufora ekranu 
dostępna dla instrukcji zapisu), 

ACTI VE-TIME - czas (data) wal n ości pliku (zbioru), 
ACTI VITY - czynność (np. sumowania,' sortowania), 
takie: działalność, 

ACTUAL - faktyczny, rzeczywisty, 

ACTUAL PARAMETER - parametr aktualny, 

ACTUALLY - faktycznie, rzeczywiście, 

ACTUATE - uruchamiać, takie: pobudzać, 

ACTUATING ERROR - uchyb na wejściu członu wzmacnia- 
jącego, 

ACTUATING SIGNAL - sygnał uruchamiający, 

A CU - patrz: AUTOMATIC CALLING UNIT, 

A-D CONVENTER - patrz: ANALOG-TO-DI GI TAL CONVENTEk 
A/D CONVERSI ON - przetwarzani e analogowo-cyf rowe, 
ADAPT - dostosowywać, 

ADAPT ATI ON - adaptacja, dostosowania, 

! ADAPTER - urządzenie dopąsowywujące, 

ADAPTIMG - dostosowywanie się, przystosowywani e się, 
ADAPTI VE CONTROL - adaptacyjny układ sterowania, 

ADD - dodawać, sumować, 

ADD CARRY - przeni esi eni e przy dodawaniu, 

ADD INSTRUCTION - rozkaz dodania, 

ADD -ON DE VI CE - urządzenie dodatkowe, takie: element 
dyskretny wmontowany do hybrydowego ukł. scalonego 
I ADD-ON MEMORY parni?/ kumulowana, 

ADD-SUBTRACT TIME - czas oparacjl dodawania lub 
odejmowania, 

ADD UP - dodawać (liczby), 

ADDEND - dodajnik, składnik dodawania, 

ADDER - sumator, układ sumujący, 

ADDER-ACCUMULAT OR - akumulator przechowujący wynik 
dodawania, 

ADDER-SUBTRACTOR - układ sumująco-odejmujący, 

ADDING CIRCUIT - obwód sumujący, 

ADDITION - dodawanie, dodatek, uzupełnienie, 

ADDITION WITHOUT CARRY - dodawanie bez przeniesienia, 
ADDITION AL - dodatkowy, 

ADDI TIONAL CHARACTER - znak specjalny, tzn. me li- 
tera i nie cyfra, 

ADDI TIONAL INSTRUCTION - rozkaz dodatkowy, 

ADDRESABLE Ma TRI X - macierz adresowalna (określa 
wielkość obrazu), 

ADDRESING - adresowanie. 

ADDRESI MG CIRCUIT - układ wybierania adresu, 
ADDRESING SYSTEM - system adresowania, 
j ADDRESS - adres, pozycja w pamięci, 

( ADDRESS ADJUSTMENT — przesunięcie adresu, korekta 
adresu, 

ADDRESS ARITHMETIC - arytmetyka adresów. 

[ ADDRESS ASSIGNMENT - przydzielanie adresu, 

ADDRESS BUS - szyna adresowa, 

ADDRESS COMPUTATION - obliczanie adresu, 

| ADDRESS CONST ANT - stała adresowa, adres podstawowy, 
adres początkowy, 

ADDRESS CONVERSI ON - konwersja adresu, przekształ- 

ADDRESS COUNTER - rejestr (licznik) adresu, 

ADDRESS DECODER - dekoder adresu, 

ADDRESS INDICATOR - wskalnik adresu, 

ADDRESS LATCH EMABLE CAŁEJ - znacznik adresu (odróż- 
niający adres od danych), 

ADDRESS MODIFICATION - modyfikacja adresu, 

ADDRESS NUMBERING SYSTEM - system obliczania adresów 
1 ADDRESS PART - część adresowa (rozkazu), 

ADDRESS REGISTER - rejestr adresu, 

ADDRESS SELECTION OPERA TI ON - operacja selekcji 
adresu. 
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ADDRESS SORTING - sortowani* adresów, 

ADDRESS SUBSTITUTION - podstawieni* adresu, prze- 
adresowanie, 

ADDRESS SYSTEM - system adresowy, 

ADDRESS TABLE - lista adresów, tabela adresów, 
ADDRESS TRACfC - ścieżka adresowa, 

ADDRESS TRANSL ATI ON - przekształcenie adresu, kon- 
wersja adresu, 

ADDRESSABI LI TY - adresował ność, obszar adresowy, 
ADDRESSABLE - adresowalny, dający Si ę adresować, 
ADDRESSABLE POIMT — punkt adresowalny, 

ADDRESSING - adresowanie, 

ADDRESSI MG CIRCUIT - układ wybierania adresu, 
ADDRESSING METHOD - metoda adresowania, 

ADDRESSING MODĘ - tryb adresowania, 

ADDRESSING SYSTEM - system adresowania, 

ADDRESSING TECHNI QUE - metoda adresowania, 
ADDRESSLESS INSTRUCTION - rozkaz bezadresowy, 

ADEOATE ACCURACY *r- wymagana dokładność, wierność, 
ADEOUATE - adekwatny, odpowiedni, stosowny, 
wystarczający, 

ADEOUATE TOOL odpowiednie narządzie, 

ADJACENT - przyległy, 

ADJACEKT PITCH ERROR - błąd podzlałki pojedyńczej, 

AD JOINT - sprzężony, 

ADJUGATE - sprzężony, 

ADJUST - dobierać, korygować, regulować, 

AD J l/ST ME NT - poprawianie, poprawka, porządkbwanie, 
regulowanie, 

ADLC - patrz » ADWANCED DATA LINK CONTROLLER, 
ADMISSIBLE - dopuszczalny, 

ADKISSIBLE DĘCI SI ON - decyzja dopuszczalna, 
ADMISSIBLE ERROR - błąd dopuszczalny, 

ADMISSIBLE NUMBER - liczba dopuszczalna, 

ADOPTION - przyjęcie (np. metody), 

ADP - patrz 1 AUTOMATIC DATA PROCESSING 
ADRESS CONSTANT - adres podstawowy, adres początkowy 
ADVANCE - postęp, takżei przesuwanie sie papieru, 
karty <w maszynie), 

ADVANCED - rozwinięty, udoskonalony, zaawansowany 
(np. system), 

ADVANCING - przesuwając, 

ADVENTURE GAMĘ - gra przygodowa, 

AD VI CE - zawiadomienie, rada, takź*:| wiadomość, 
informacja, » 

ADWANCED DATA LINK CONTROLLER CADLC3 - rozwinięty 
sterownik łącza danych, 

ADWANCED FEATURE - także: wersja rozszerzona, 
AtlŁR-lMAOŁ PROTECTION - zabezpieczenie obrazu koń- 
cowego (dot. zabezpieczania danych), 

AFTERGLOW - poświata (ekranu lumi nescency jnego) , 
AGEING - starzenie sie <np. maszyny) , 

AGENT' S SET - stanowisko księgowania, 

AGGREGATE - agregować, gromadzić, zbierać, także: 
globalny, łączny, sumaryczny, 

AGGREGATE CHART - zestawienie, tabela (statystyczna) 
AIKEN CODĘ - kod AIKENA, 

Al MI NG CIRCLE - plamka kierunkowa (służy do dokład- 
nego ustawienia pióra świetlnego), 

Al MI NG FIELD - plamka kierunkowa (służy do dokładne- 
go ustawienia pióra świetlnego), 

Al MI NG SYMBOL - plamka kierunkowa (służy do dokład- 
nego ustawienia pióra świ et 1 neao) . 

AIR CONDITIONED - klimatyzowany, 

AIR CONDI TI ONI NG - klimatyzacja, 

AL - patrz: AUTOLOAD, 

ALARM SIGNAL DEVICE - urządzeni* alarmowe w kompu- 
terze, 

ALCOR-CODE - kod ALCOR, 

ALE - patrz: ADDRESS LATCH ENABLE, 

ALGEBRAIC ADDER - sumator al gebrai czny, 

ALGEBkAICAL ADDITION - dodawania algebraiczne, 
ALGORITHM - algorytm, 

ALGOR1THMI ZATION - al góry tmi zac ja, 

ALIAS - nazwa umowna, pseudonim, 

ALI ASI NG - utożsamianie, 

ALIGN - wyrównywać (np. papier w maszynie), także: 
wyrównywać w pionie w stosunku do przecinka, 

ALI GNMENT - wyrównanie, 

ALI GNMENT OF RADI X POINTS - wyrównanie przecinków 
zgodnie z podstawą liczenia, 

ALL-INSULATED - łącznik całkowicie izolowany, 

ALL POINTS ADDRESSABLE MODĘ CAP AJ - tryb adresacji 
z dokładnością do punktu, 

ALL-OR-NOTHI NG RELAY - przekaźnik dwupołożeniowy, 

ALL -OR -PART SWITęH — przełącznik dwugrupowy, 

ALLOCATE - przydzielać, przyporządkowywać , rezef — 
wować , 

ALLOCATION - przydział, przyporządkowanie, rezer- 
wowanie, 

ALLOCATION COUNTER - wskaźnik adresu, 

ALLOT - przydzielać, 

ALLOWABLE - dopuszczalny, 

ALLOWANCE - przydział, także: przydział dodatkowy, 
ALLOY JUNCTION - złącze stopowe, 

ALPHABET - alfabet. 


ALPHABETIC - alfabetyczny, 

ALPHABETIC SYMBOL - symbol literowy, 

ALPHANUMERIC - alfanumeryczny, 

ALPHANUMERIC CARD PUNCH - dziurkarka kart alfanume- 

ALPHANUMERIC CODĘ - kod al f anumer.yczny, 

ALPHANUMERIC DISPLAY - alfaskop, 

ALPHANUMERIC LITERAL - literał al f anumeryczny, 

ALTER - zmieniać, modyfikować (np. program) , 

ALTERING — dokonywanie zmian, 

ALTERNATE - zmieniać, 

ALTERNATE TRACK - ścieżka zapasowa, (zapisu w pamię- 
ci magnetycznej), 

ALTERNATING CURRENT - prąd przemienny, 

ALTERNATING OPERATION - transmisja naprzemienna, 
transmisja pół dupleksowa, 

ALTERNATI ON - suma logiczna, dysjunkcja, 

ALTERNATI ON OF THE LIST OF INSTUCTIONS - zmiana cią- 
gu rozkazów, 

ALTERNATI VE - alternatywa, możliwość, wariant, 

ALU - patrz: ARI THMETI C-LOGIC UNIT, 

A MB I GUI TY - dwuznaczność, możliwość wyboru dwóch 
rozwiązań, 

AMBIGUOUS FILE NaME - niejednoznaczna nazwa pliku 
(zbioru) , 

AMEND - poprawiać, wnosić poprawkę, poprawka, 
AMENDMENT - poprawa, naprawa (błędu), 

AMPERSAND - znak "AND" (handlowe 1), znak &, 
AMPLIFICATION - zwiększenie, wzmocnienie, 

AMPLI FI CATI ON FACTOR - współczynnik wzmocnienia, 
AMPLIFIER - wzmacniacz, wzmacniak, 

AMPLI FI ER ELEMENT - człon wzmacniający, 

AMPLIFIER GAIN - wzmocnienie wzmacniacza, współ- 
czynnik wzmocnienia, 

AMPLIFIER STAGE - stopień wzmacniacza, 

AMPLIFY - zwiększać, wzmacniać, 

AMPLI FYING WINDING - uzwojenie wzmacniające, 
AMPLITUDĘ ADDER - sumator amplitudowy, 

AMPLITUDĘ OF A COMPLEX NUMBER - argument liczby zes- 
polonej, 

AMSTRAD DI SC OPERATING SYSTEM - Dyskowy System 
Operacyjny firmy AMSTRAD, 

ANALOG - analogowy, 

ANALOG ADDER - sumator analogowy, 

ANALOG COMPUTER - komputer analogowy, 

ANALOG DATA - dane analogowe, 

ANALOG-DIGITAL COMPUTER - komputer hybrydowy, 

ANALOG -DI GITAL CONVERSION - konwersja analogowo- 
-cyf rowa, 

ANAI OG PI OTTFR - ploter analogowy. 

ANALOG SI MUL ATI ON - modelowani* analogowe, 

ANALOG TO DIGITAL CONVERSION - przetwarzanie analo- 
gowo-cyfrowe, 

ANALOG TO DIGTAL - przetwarzanie sygnału analogowe- 
go na cyfrowy, 

ANALOG-TO-DI GITAL COMVERTER - konwerter analogowo- 
-cyfrowy, przetwornik analogowo-cyfrowy, konwerter 
A/C, 

ANALOOUE - analogowy, 

ANALYSING FILE ROUTINES — programy drukowania rapor- 
tu o zawartości pliku (zbioru), 

AND - operacja logiczna "I", operator boolowski, 

AND CIRCUIT - układ "1", bramka "I", układ iloczynu 
logicznego, 

AMD— ELEMENT - element "I“, 

AND FUNCTION - funkcja "I", funkcja iloczynu logi- 
cznego, 

AND GATE - bramka "I", układ "I", układ iloczynu 
logicznego, 

AND OPERATION - iloczyn logiczny, koniunkcja, 

ANI MATION - animacja, 

ANNOT ATI ON - uwaga, notatka, 

ANSWERING - zgłoszenie, 

AŃTECEDENT - poprzednik, 

ANTECEDENT DRIYEN - także: wnioskowanie uprzedzając* 
(w systemach ekspertowych), 

ANTI -I NTERFERENCE DE VI CE - urządzenie przeciwzakłó- 
ceniowe, 

ANTICIPATING CONTROL - sterowanie wyprzedzające, 

ANTI VALENCE - różnica symetryczna, "LUB" wyklu- 
czające, 

APA - patrz: ALL POINTS ADDRESSABLE MODĘ, 

APERTURE CARD - karta okienkowa, karta aperturowa, 
mi krokarta, 

API - patrz: AUTOMATIC PROGRAM INTERRUPT , 

APL CA PROGRAMMING LANGU AGE 5 - skrót nazwy języka 
programowani a APL do zastosowań naukowych, 

APOSTROPHE - apostrof, 

APPARATUS - aparat, przyrząd, urządzenie, 

APPARENT ERROR - błąd pozorny, 

APPARENT V ARI ABLE - zmienna pozorna, 

APPENDI X - aneks, dodatek, 

APPLIAMCE - przyrząd, urządzenie. 
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Pocztowa giełda 

Rozwiązanie krzyżówki z nr. 4/87 „IKS-a”. 
Hasło brzmi: ELWAT, ZAM, ODRA, 
KRAK — komputery 
Bony pieniężne (1000 zł) wylosowali: 
Krzysztof Zieliński — Łódź, Zdzisław 
Ziółkowski — Łódź, Sławomir Sobczak 

— Częstochowa, Marian Śmigielski — 
Kęty, Adam Grodzki — Warszawa. 
Nagrody książkowe otrzymują: Ryszard 
Leś — Gdańsk, Wojciech Wierzbicki — 
Katowice, Stanisław Błoński — Hyżne, 
Joanna Pasternak — Brzeg, Leszek Pila- 
czyński — Laski Wielkie. 

Rozwiązanie krzyżówki z nr. 5/87 
.IKS-a” 

Hasło brzmi: „IKS” propagatorem w-ie- 
dzy i techniki mikrokomputerowej 
Bony pieniężne (1000 zł) wylosowali: 
Barbara Karłowska — Wrocław, Grze- 
gorz Kowalski — Sandomierz, Robert 
Grochala — Rzeszów, Maria Gajewska 

— Szczecin -r- Piotr Jakubiec — Hru- 
bieszów. 

Nagrody książkowe otrzymują: Maria 
Konieczna — Leszno, Leszek Jerzcwski 

— Łódź, Marek Olesz — Gdynia, Patry- 
cja Błaszak — Częstochowa, Sławomir 
Bukowski — Pruszków, Michał Paś- 
niewski — Stawiguda woj. olsztyńskie, 
Iwona Kostro — Białe Szczepanowice, 
Tomasz Tęcza — Jelenia Góra, Anna 
Wróbel — Sieradz, Elżbieta Pawelec — 
Przasnysz. 

Rozwiązanie krzyżówki z nr. 6/87 „IKS-a”. 
Hasło brzmi: W podróży z „IKS-cm” 
Bony pieniężne (1000 zł) wylosowali: 
Małgorzata Żylińska — Szczecin, Paweł 
Malarski — Warszawa, Piotr Hoppcl — 
Poznań, Karol Klepacz — Łódź, Graży- 
na Kijowska — Szczecin. 

Nagrody książkowe otrzymują: Marek 
Szymocha — Poręba, Wiesława Laskow- 
ska — Poznań, Elżbieta Marlcwska — 
Gdańsk, Ewa Tiahybok — Kraków- 
-N.Huta, Tomasz Smoleński — Szcze- 
cin, Andrzej Ryczkicwicz — Rawa Ma- 
zowiecka, Ireneusz Grzybek — Wał- 
brzych, Krzysztof Gajda — Kraków, 
Mariusz Gruszewski — Dębica, Tomasz 
Sobczak — Żyrardów. 


Sharp MZ-800: wymienię programy, li- 
teraturę. Zbigniew Zając, ul. 1 Maja 13 
37-500 Jarosław. 

Atari, Commodore, Spectrum — sprze- 
daż, wymiana literatury, także po pol- 
sku. Informacje — znaczki 30 zł Klub 
MIKROPOL, 86-300 Grudziądz 1 . skryt- 
ka 49 

Kupię układ scalony ROM 8 kB. 2364 
CT 2. 27-0 152-03-01 rok produkC|i 
1983. Piotr Elwart. 80-287 Gdańsk- 
-Wrzeszcz, ul. Migowska 18/2. 
Poszukuję zeszytów „Wszystko o kom- 
puterze'' nr 3, 4, 5, 6. Artur Żabecki 33- 
-300 Nowy Sącz, ul, Klasztorna 28/99. 
Wymienię programy na Commodore 
C-64. Bartosz Muszyński 75-519 Ko- 
szalin. ul. Hanki Sawickiej 166/3. tel. 
521-11 

Mikrokomputer Atari 800 XL — ponad 
1 00 programów, w tym bardzo ciekawe 
gry — wymienię lub tamo odstąpię 
Radosław Wojtowicz 55-035 Oborniki 
Śl ul F Dzierżyńskiego 3/2 


LIGA MYŚLĄCYCH 

Zadanie 1 

Nazwijmy liczbą symetryczną taką liczbę naturalną, której cyfry sto- 
jące na miejscach pierwszym i ostatnim; drugim i przedostatnim Ud. 
są takie same np. 3553, 474. Ile jest liczb symetrycznych trzycyfro- 
wych, a ile liczb symetrycznych czterocyfrowych? 

Zadanie 2 

Znajdź trzy kolejne liczby naturalne o tej własności, że jeżeli kwadrat 
największej z nich podzielimy przez liczbę najmniejszą i od otrzyma- 
nego ilorazu odejmiemy 6. to otrzymamy liczbę większą od pozosta- 
łej z szukanych liczb? 

Zadanie 3 

W jakim układzie liczenia prawdziwa jest równość: 

300 - 233=1 

Zadanie 4 

W jednej ze szkół podstawowych odbyły się zawody sportowe. W 
rywalizacji indywidualnej każdy uczestnik przeprowadził z każdym z 
pozostałych po 3 próby sprawności. Wszystkich prób było 135. Ilu 
uczniów brało udział w zawodach? 

Zadanie 5 

Grupa członków Warszawskiego Towarzystwa Cyklistów wybrała 
się na wielodniową wycieczkę rowerową » Zaplanowano przebycie 
na rowerach trasy 360 km, jadąc codziennie taką samą liczbę kilo- 
metrów. Faktycznie jednak grupa przejeżdżała każdego dnia o 4 km 
mniej i z tego powodu wycieczka przedłużyła się o 3 dni. Ile dni mia- 
ła trwać w ycieczka? _______ 

Rozwiązania zadań prosimy przesyłać do redakcji do końca listopada br. 
z dopiskiem „Liga Myślących". Punktacja zależy od liczby prawidłowych roz- 
wiązań. Wśród uczestników rozlosujemy książki, a na zwycięzców „Ligi" czeka- 
ją dodatkowe cenne nagrody-niespodzianki. 


ZX — GEODEZJA 


7 !»s ri lBT iu.s 


+ y ( i + 1) ) /2 

330 LET d«d+SOR < (ABS (X t i > -X Ci 

+ i) > ta) + <rbs (u (i) -y Ułintai t 


120 XF łnw<«ans THEN LET &kaia« 
S KW 

130 if stu>sns then let sxaia*s 

kft 

140 ZNPUT PAPER 7; BRIOHT 1." N 
AZUA OBIEKTU 1 - . LINĘ nS: PRINT 
TRB (32 -LEN n*i/2; BPIGHT l : n t 
160 FOR pola TO 250 STEP 10: PL 
OT P ,0 DRRU 0,2. NEXT P 
160 FOR r *10 TO 170 STEP 10 PL 
OT 0,r: DRRU 2,0 NEXT r 
170 DIM X 1 50.' • DIM y i 50 ) 

160 FOR n *1 TO 50 
190 INPUT PRPEP 7,-BRIGHT 1;"X 
<* ; INT (252/s lala) ; ";x(ni 

200 IP x in) tsnala>255 then BEEP 
1,-6: GO TO 190 

210 PRINT OUER l.TRB *i"X(“ini" 
) ■" ; OUER 1; x (ni ; 

. 220 INPUT PRPER 7, BRIOHT l;”Y 
<* " ; INT (172/ssa ta) ; " '' ■ y „ 

230 IF y (ni ł* Ka la >175 THEN BEEP 
1,-6: GO TO 220 

240 PRINT OUER i; TRB 20; "Ył" ; n ; 
•• ) S " ; OUER 1; u (ni , 

250 IF n *1 THEN PLOT lłStaia«x( 
ni , l+sxa la*y (n ) 

260 IF n>l THEN ORRU -SH4ia«(X( 
n-l) -x (n) i , -sna la* (y (n- 1 ) -y (ni i 
270 IF x (n i *x ( 1) AND y (ni «y ( 1) 
AND not THEN GO TO 290 
260 NEXT n 

290 LET (*0 LET d>0 

310 POR i-1 TO n-1 

320 LET f *f ♦ (x (i i -x (i ♦!) i * (y (i i 


360 BEEP .3,26: PRINT OUER 1; I 
nk 2''" Pole wynosi »R" 

370 PRINT OUER 1; INK 2;” Ob w 

od wynosi " ; d, " mb" 

380 FOR r*10 TO 170 STEP 10; PL 
OT 0 , r : DRRU 2.0: NEXT f 
390 INPUT PRPER 7; BRIOHT 1," D 
RUKOUAC T/N 7 ", LINĘ dS IF dS* 
"t" OR d«*"T" THEN COPY 
400 PRINT B0,RT 1,4; FLASH 1; B 
RIGHT l; "NACISNIJ DOUOLNY KLAUIS 
Z": PRUSE 0. CLS : _. OQ TO 0100 

410 REM BEnBlBHi 

411 CLS BEEP .2,14: BEEP .2,2 
: BORDER 6: PLOT 28,20: DRRU 0,6 
0: DRRU 130.-80 DRRU -130,0 

420 PRUSE 10: PLOT 240.165: DRA 

W -60,0. DRRU 60,-156 DRRU 0,15 
5 

430 PRUSE 10: PLOT 60.40: DRRU 
140.0: DRRU 0.75: DRAU -140,-75 

440 PRUSE 10: PLOT 15,165: DRRU 

60,0. DRRU -80,-50: DRRU 0,50 
450 PRUSE 20: PRINT AT 7,4; INK 
3; BRIGHT l; FLASH 1,” G E O D 
E Z J R " PRUSE 0: CLS 
460 FOR u *0 TO 7: READ V: POKE 
USR "ł"łU , V NEXT u 
470 DATA 56.6,16,32,56,0,0,0 
480 REH a -A 
490 POKE 23609.25 
500 GO T O 100 _ _ , , 

9000 reh HiHflnni 

9001 sruE "-Geodezja-" linę 410: 
print '"uerify -Geodezja-": u 

EPIFY "-Geodezji-" GO TO 410 
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KUPON* 

KRZYŻÓWKA NR 9 


POZIOMO: 1) piwo domowej roboty, 5) członek męskiego 
kwartetu wokalnego, 6) relacja, meldunek, 8) próżniak, wał- 
koń, 9) ogół pracowników zatrudnionych w jednostce pro- 
dukcyjnej, 11) do wbijania gwoździ, 12) zgromadzenie za- 
konne; zakon, 1 3) górzysta wyspa koło Australii, 

PIONOWO: 1) ogrodzenie z desek, 2) związek chemiczny 
lub ich mieszanina, przygotowane do jakiegoś specjalnego 
użytku, 3) wielokąt, 4) nakład pieniężny na określony cel, 6) 
fizyczne zjawisko związane z ruchem drgającym lub falowa- 
nym; wspóldrganic, 7) mała półka, 10) uszkodzenie, zepsucie 
się maszyny, urządzenia technicznego, 1 1 ) sportowa gra mie- 
szana w tenisie. 

Rozwiązania krzyżówki na kartach pocztowych należy 
nadsyłać pod adresem redakcji do końca listopada 1987 r., 
naklejając kupon „IKS-a”. Wśród czytelników rozlosuje- 
my bony pieniężne i nagrody książkowe. 


Ml KROCI EKAWOSTKI 


Kolejna wersja AMSTRADA 

Amstrada PC 1640 ECD zbudowano na mikroproceso- 
rze 8086. W porównaniu z poprzednikami ma znacznie 
zwiększone możliwości graficzne; dwa tryby rozdziel- 
czości 320 na 200 lub 640 na 200 linii w 4 kolorach za- 
pewniają dobrą jakość prac graficznych. Systemem 
operacyjnym PC 1640 jest MS DOS 3.2. 


Rysunek z kolekcji GEM-u wykonany na zestawie 
firmy ICL: 

komputer — DRS 300 
drukarka mozaikowa ML 192 


„IKS” — dodatek „Żołnierza Wolności”. Redagują: Wiesław Cetera (kierownik zespołu), Ryszard Rogoń. Stali 
współpracownicy: Włodzimierz Gogołek, Janusz Janiec, Krzysztof Mamcarz, Ireneusz Miernik, Janusz Miller, Ja- 
cek Szaniawski. Adres redakcji: 00-950 Warszawa ul. Grzybowska 77, telefon centrali 20-12-61 w. 486. Telex 
313664. Rękopisów nie zamówionych redakcja nie zwraca i zastrzega sobie prawo do skrótów. Nakładem Wy- 
dawnictwa „Czasopisma Wojskowe”, Warszawa ul. Grzybowska 77, Fotoskład i druk rotograwiurowy — Wojskowe 
Zakłady Graficzne im. gen. dyw. A. Zawadzkiego. Nr zam. 9296. Nr ind. 361682. K g7 
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UWAGA Brakujące numery ,,IKS-a' 
można jeszcze kupić w księgarniach 
Wydawnictwa MON. W-wa ul. Grzy- 
bowska 77. 


W kioskach jest już 3 zeszyt progra- 
mów. Tym razem przeznaczony jest dla 
wszystkich posiadaczy mikrokompute- 
rów. które zbudowane zostały na mik- 
roprocesorze Z80. Zeszyt zawiera 
konstrukcje programowe tego mikro- 
procesora i z pewnością przyda się tym. 
którzy chcą wykorzystać wszystkie 
właściwości swojego mikrokomputera. 


Kolejny 
błąd ROM-u 
ZX Spectrum 

Napiszemy program: 

1 CLEAR:REM kasowanie da- 
nych 

10 LET X$ = ..123" 

20 PRINT X$ 

30 SAVE , próba DATA x$ () 

50 LOAD „próba" DATA x$ () 

60 PRINT x$ 

W linii 60 wystąpi błąd. Spowo- 
dowany on jest pewnym przeocze- 
niem ROM-u ZX Spectrum 
Na taśmie została zapisana 
zmienna tekstowa x$ jako tablica 
x$. Odczyt był identyczny. Spec- 
trum potraktowało x$ jako tablicę. 
Ale przecież struktura zmiennej 
tekstowej różni się od struktury tab- 
licy. Dlatego interpreter, odwołując 
się w linii 60 do tablicy x$, napoty- 
ka dziwne wymiany tablicy i uru- 
chamia obsługę błędu. 

Krzysztof POŹNIAK 
Klub „HOBBYTE" 

2 


Czy przestajemy się interesować 
informatyką? Na ile stosunkowo 
łatwy dostęp do mikrokomputerów 
pozwolił na upowszechnienie dy- 
scypliny, przed którą bez wątpie- 
nia jest jeszcze przyszłość? 

Jestem gorącym zwolennikiem 
informatyki i wierzę, że dobrze op- 
rogramowany komputer może po- 
móc nie tylko tam, gdzie trzeba 
przetworzyć ogromne ilości infor- 
macji, ale i tam, gdzie szybkość i 
niezawodność decydują o popraw- 
ności podjętej decyzji. 

Nic łudźmy się jednak, że kom- 
puter pomoże na wszystko. To 
nieprawda. Komputer to urządze- 
nie, które nie zrobi niczego, czego 
nie nauczył go człowiek. A jeśli 
nawet dobrze zaprojektowany sy- 
stem informacyjny działać będzie 
w instytucji, w której panuje orga- 
nizacyjny bałagan, to efektem ta- 
kiego eksperymentu będzie po pro- 
stu jeszcze większy bałagan. 
Wszystkim menedżerom przypo- 
minam, że jeśli trudno im utrzy- 
mać równowagę na rowerze, to z 
pewnością daleko nic pojadą moto- 
cyklem. 


Niestety tego rodzaju próby już 
podejmowano, wydano bowiem 
kilka milionów, zaangażowano 
sporo pracowników do prac pro- 
jektowych i ...wkrótce okazało się, 
że jest to zmarnowany wysiłek. Po 
nadziejach na postęp pozostał je- 
dynie niesmak i pustka w kasie. 
Wielu młodych ludzi postąpiło po- 
dobnie (tylko Pewex sprzedał po- 
nad sto tysięcy mikrokomputerów 
ATARI). Wydali spore przecież 
pieniądze na sprzęt, zainwestowali 
w programy, tymczasem efekty 
bywają czasem nikłe. Po okresie 
zabawy komputer wędruje na sza- 
fę, pudełko pokrywa warstwa ku- 
rzu i tylko czasami wraca do łask. 
Wiadomo jednak, że komputer nie 
tylko zmusza do nauki, ale także 
wymaga jednoznacznego formuło- 
wania problemów i kształci to, cze- 
go tak bardzo będzie potrzeba w 
dojrzałym już twórczym życiu za- 
wodowym. I jeszcze raz powtórz- 
my: jeśli chcemy działać w przy- 
szłości sprawnie, to nic odkładajmy 
komputerów na półki, nie rezyg- 
nujmy z niczego, co pomoże w 
przyszłości lepiej organizować na- 
sze twórcze życie. 

Wiesław CETERA 


Trwa kolejna edycja Ligi Myślących. Miłośników zadań logi- 
cznych jest wielu — świadczą o tym nadchodzące odpowiedzi. 
Wiele z nich nosi znamię oryginalności, niektóre rozwiązywane 
są za pomocą komputerów. Najważniejszy jest jednak efekt. 

Tymczasem w redakcji odbyło się wręczenie nagród dla 
zwycięzców pierwszej edycji Ligi. Dyplomy i nagrody dla naj- 
lepszych wręczył redaktor naczelny „Żołnierza Wolności” płk 
Zdzisław Janoś. 

Zwycięzcą został Hubert Nowaczyk, kolejne miejsca zajęli 
Andrzej Erd, Antoni Goryl, Janusz Morbitzer i Andrzej 
Wrześniowski. 








Monitor 

zamiast bibliotekarki 


Według wielu specialistów. społeczeń- 
stwo techniczne zostanie zastąpione społe- 
czeństwem informatycznym Produkcja i 
przetwarzanie informacji może wysunąć się 
na pierwsze miejsce przed produkcją towa- 
rów W społeczeństwie amerykańskim bli- 
sko połowa czynnej zawodowo ludności 
pracuje w przemyśle informatycznym — 
wliczając w to ludzi produkujących kompu- 
tery. pracujących przy ..przenoszeniu dys- 
ków i oczywiście informatyków Powodem 
rozrostu przetwarzania danych stał się za- 
lew informacji. Dziś nikt me jest w stanie 
przeczytać samych tytułów artykułów uka- 
zujących się w wąskiej dziedzinie. Szacuje 
się, ze w samej medycynie rocznie ukazuje 
się ponad 20 tysięcy opracowań: pism spe- 
cjalistycznych. popularnonaukowych, popu- 
larnych, biuletynów instytutów naukowych, 
prac doktorskich, habilitacyjnych, raportów 
rządowych organizacji międzynarodowych 
itp Nie ma mocnych, którzy byliby w stanie 
zapoznać się z tymi publikacjami, a przecież 
drukuje się je po to. by dzielić się doświad- 
czeniami. Aby można było korzystać z już 
opublikowanego dorobku powstała nowa 
grupa zawodowa „przeżuwacze wiedzy" — 
czyli specjaliści zajmujący się lekturą pism. 
książek itp.. to co przeczytają (jeśli napisane 
jest na odpowiednim poziomie) opracowują 
pod kątem wprowadzenia do komputero- 
wego banku danych 

O każdej wprowadzonej do banku pozycji 
przechowuje się kilkanaście bądź kilkadzie- 
siąt informacji Oprócz podstawowych tytu- 
łu. autora, czasu, języka i miejsca publikacji, 
szczegółowo opisana jest jej tematyka. Tak. 
że użytkownik może najczęściej za pomocą 
odjjowiedniego języka wyszukiwania infor- 
macji przeszukiwać bazę danych korzysta- 
jąc ze zdań składających się z kombinacji 
pojedynczych pytań. Daje to kolosalne 
oszczędności czasu, me trzeba mozolnie 
przeszukiwać katalogu biblioteki. Na przy- 
kład przed napisaniem wypracowania o 
Mickiewiczu można sobie zażyczyć spisu 
opracowań o wieszczu (będzie składał się z 
kilkudziesięciu stron), z tego spisu (biblio- 
grafii) wybrać co lepszych autorów Można 
sobie tez zazyczyć bibliografię wypowiedzi 
Słowackiego o Mickiewiczu Najlepsze efek- 
ty uzyskuje się w trakcie przeszukiwania ba- 
zy danych w systemie on-line (bezpośred- 
nia konwersacja z komputerem). Użytkow- 
nik widzi na ekranie informacje przechowy- 
wane w bazie i może zmieniać kombinację 
pytań, dopóki nie otrzyma bibliografii, która 
go zadowoli Problem polega między innymi 
na tyiv ze projektanci baz danych nie są w 
stanie przewidzieć wszystkich potrzeb użyt- 
kowników. w związku z czym, przy skompli- 
kowanych i nietypowych kombinacjach py- 
tań mogą powstać rozbieżności między 
oczekrwaną bibliografią a wydrukowaną 
przez system 

W pierwszym etapie objęto zautomatyzo- 
wanymi bazami danych pojedyncze Diblio- 
teki Początkowo terminale' stały gdzieś w ho- 
lu. potem połączono je siecią transmisji da- 
nych z innymi bibliotekami, zaczęły pow- 
stawać specjalistyczne bazy danych Jedna 
z baz chemicznych obejmuje ponad półtora 


miliona związków chemicznych: nazw. wzo- 
rów i właściwości, baza uzupełniana jest co 
dwa tygodnie Czy wyobrażacie sobie po- 
dobne wydawnictwo robione w sposób tra- 
dycyjny? Aktualnie istniejące bazy danych 
dostępne są za pośrednictwem sieci tele- 
transmisji ze wszystkich kontynentów, W. 
Polsce pierwszą biblioteką korzystającą ze 
zautomatyzowanego systemu informacji 
bibliotecznej była Główna Biblioteka Lekar- 
ska (GBL) w Warszawie GBL podłączona 
jest do amerykańskiego systemu Medline 
przez europejski ośrodek systemu w Sztok- 
holmie. Lekarze mogą korzystać z sześciu 
baz danych między innymi o onkologii, to- 
ksykologii (danych toksykologicznych po- 
nad 55 tys. środków chemicznych) Z sy- 
stemu korzystają pracownicy służby zdro- 
wia — naukowcy i praktycy Początkowe lę- 
ki przed nową techniką szybko miiają. gdy 
pozna się korzyści. System może wydruko- 
wać np bibliografię wydawnictw w ięzy- 
kach: polskim, niemieckim, rosyjskim na 
temat leczenia odmrożeń oraz oparzeń osób 
w wieku 75—80 lat, których przyczyną jest 
benzyna lotnicza (np ofiar katastrofy lotni- 
czej w górach czy w terenie podbieguno- 
wym). Komputer odszuka wszystkie opra- 
cowania. w których wspomniano o podob- 
nych problemach Z tego spisu wybiera się 
następnie interesujące pozycje — książki 
można wypożyczyć, krótsze artykuły sko- 
piować. Lekarz w najmniejszej miejscowoś- 
ci może za pośrednictwem GBL korzystać z 
opracowań publikowanych na świecie Teo- 
retycznie me ma przeszkód w śledzeniu 
publikacji na całym globie, niestety korzysta 
się z systemu odpłatnie i to jest jedynym 
ograniczeniem 

Osoby, które miały kontakt z komputerem 
zdają sobie sprawę, ze przy zarządzaniu tak 
dużą bazą danych musi pracować komputer 
o dużej szybkości działania, z olbrzymią 
pamięcią masową, że muszą być zainstalo- 
wane sprawne łącza telekomunikacyjne W 
naszych warunkach są to rzeczy nieosią- 
galne. możemy jedynie stosować rozwiąza 
ma cząstkowe, wykorzystujące istniejący 
sprzęt i doświadczenie ludzi Duże biblioteki 
wprowadzają zautomatyzowane systemy in- 
formacji bibliotecznej W GBL dzięki auto- 
matyzacji szybciej opracowuje się Polską 
Bibliografię Lekarską, w Bibliotece Poli- 
techniki Warszawskiej opracowany został 
system przechowujący informację o mate- 
riałach z konferencji i sympozjów nauko- 
wych (dlatego, ze najnowsze odkrycia 
omawiane są na konferencjach, dopiero po- 
tem trafiają do pism specjalistycznych). Bi- 
blioteka Uniwersytetu Warszawskiego przy- 
gotowuje się do zautomatyzowania infor- 
macji o księgozbiorze dydaktycznym, kilka 
systemów uruchomiono w Bibliotece Poli- 
techniki Wrocławskiej, również Centralna 
Biblioteka Wojskowa zamierza objąć swoje 
zbiory systemem informatycznym 

Czytelnikom pozostaje nadzieja, ze me 
trzeba będzie długo czekać na terminale w 
bibliotekach, ze katalogi zostaną zastąpione 
przez monitory 

Dariusz OTTO 


Dysk optyczny 
do IBM PC 

Po latach badań nad stosowaniem nowych 
technologu w informatyce, na półkach skle- 
powych pojawiły się dyski optyczne Jak 
podaje lipcowy ..Byte" za 2795 dolarów 
użytkownik IBM PC i kompatybilnych z nim 
mikrokomputerów może kupić stację dy- 
sków optycznych WC 525 produkowanych 
przez Information Storage Inc wielkości 
pudełka do butów (męskich sandałów) O 
dwieście dolarów tańszy |est model monto- 
wany wewnątrz komputera o rozmiarach 
stacji miękkich dysków 

Obecnie produkowane dyski optyczne 
dzielą się na trzy rodzaje, jednokrotnego za- 
pisu. CD-ROM oraz dyski wielokrotnego 
zapisu Wszystkie one mają wspólną cechę 
— odczyt znaków czy wgłęb.eń dokonywa- 
ny jest przez laser tak precyzyjnie ustawio- 
ny. ze każde zgrubienie powierzchni, każdy 
pyłek utrudnia odczyt 

Jak do tej pory bariera cen powoduje, ze 
przeciętni użytkownicy muszą zadowolić się 
dyskami jednokrotnego zapisu, takim jest 
tez produkt ISl Ten typ dysków nazywany 
jest WORM (write once. read many — raz 
zapiszesz, odczytujesz wiele razy): meka- 
sowany, OPROM (optical programmable 
read only memory — pamięć optyczna za- 
pisana. wielokrotnie odczytywana 

Dyski jednokrotnego zapisu produkowane 
są w rozmiarach od 5,25 cala do 14 cali 
średnicy, przechowują od 100 megabajtów 
od 1.8 gigabajtów na strome. Ceny stacji 
dyskowych współpracujących z mikrokom- 
puterami wahają się od 3000 do 30 tysięcy 
dolarów WC 525 pracuje na dyskach o 
średnicy 5.25 cala. na |ednej stronie mieści 
1 15 megabajtów. Sprzedawane są również 
dyskietki 1 15-megabajtowe jednostronne za 
100 dolarów oraz dwustronne o dwukrotnie 
większej pojemności za 125 dolarów. Do- 
stęp do drugiej powierzchni uzyskuje się 
po odwróceniu dyskietki. 

Zapis informacji następuje w wyniku wy- 
palenia laserem otworów w powierzchni dy- 
skietki zawierającej tellur, jest to proces 
nieodwracalny Według ISl ten sposób 
przechowywania informacji zapewnia jej 
trwałość przez 20 lat' Inne firmy produkujące 
dyski optyczne przyjęły odmienne rozwią- 
zania. w wyniku tego me można stosować 
zamiennie dyskietek ISL IBM czy Oplotech 
Dziennikarz ..Byte a". który przez dwa mie- 
siące testował WC 525. stwierdził, ze jest to 
dobry produkt, nie miał jednak .możliwości 
sprawdzenia, czy dyskietki zapisywane w 
jednej stacji dysków mogą być odczyty wa 
ne w innej 

Przepisywanie zbiorów z dysków magnety- 
cznych na optyczne również wymaga 
wcześniejszej modyfikaqi. resztę wykonują ins- 
trukcje dostarczone przez ISl Producent 
zadbał o to. by użytkownik kupując WC 525 
mógł korzystać z najpopularniejszego sy- 
stemu operacyjnego na IBM PC — DOS. 

Na podstawie „Byte a" 

opracował D. O. 


3 


Mona Lisa 
i komputer 


Mówiąc najprościej, przetwarzanie obra- 
zów oznacza ..manipulowanie" na obrazie, 
czego przykładem jest np.: zmiana kontrastu 
na ekranie odbiornika telewizyjnego. Gdy 
dysponujemy cyfrowym odwzorowaniem 
postaci obrazu — komputery dostarczają 
nam niemalże nieograniczonych możliwości 
zmiany tej postaci informacji. Wykorzystanie 
do tego celu maszyn uwarunkowane jest 
dostępem do technologii pozwaiaiącej 
„zamienić" obraz na wspomniane „cyfrowe 
odwzorowanie" — szereg liczb reprezentu- 
jących stopień szarości, barwę, jej nasyce- 
nie w każdym wyróżnianym przez komputer 
umownym punkcie obrazu (pikselu). Mani- 
pulowanie na tych informacjach (w pamięci 
maszyny) pozwala „udoskonalać" obrazy, 
odkrywać w nich nowe informacje, a nawet 
wskazywać (sugerować) poprawną ich in- 
terpretację. 

Jest to pierwszy krok w rozwoju maszyn, 
by mogły „widzieć". Początkowo przetwa- 
rzanie obrazów było marginesem prakty- 
cznych zastosowań informatyki — dużych 
wówczas i drogich komputerów. Obecnie -- 
w dobie mikrokomputerów — okazało się to 
bardzo ciekawym przedmiotem zaintereso- 
wań twórców nowoczesnej informatyki. Po- 
dobnie jak przetwarzanie liczb i przetwa- 
rzanie tekstów -- przetwarzanie obrazów, to 
kolejny etap w upowszechnianiu zastoso- 
wań komputerów. Wielu uważa ten etap za 
najbardziej znaczący w historii elektroni- 
cznego przetwarzania informacji 

Bardzo ciekawym kierunkiem tych no- 
wych możliwości komputerów jest wspo- 
maganie pracy konserwatorów dzieł sztuki. 

Większość artystycznej spuścizny, którą 
ulokowano w muzeach, to „sztuka wizualna" 


typu: malowidła, rysunki, druki i pismo kli- 
nowe oraz trójwymiarowe obiekty. Niestety, 
bardzo mało z tych dziel wygląda dzisiaj tak 
jak wyglądało bezpośrednio po ich stworze- 
niu. Temperatura i światło spowodowały 
wyblaknięcie farb i ściemnienie lakierów. 
Swój niszczycielski wpływ ma także powie- 
trze, które na skutek reakcji chemicznych 
powoduje często nieodwracalne zmiany 
obrazów, rzeźb i innych dzieł sztuki — do- 
świadcza tego na co dzień nasz Kraków. 
Dzieła zniszczenia dopełnia przypadkowa, a 
czasem i rozmyślna działalność człowieka. 
Często na przykład artyści lub konserwato- 
rzy obrazów pokrywali istniejące obrazy 
„nowym dziełem" lub je „twórczo" poprawia- 
li. 

Rozwój techniki ostatnich kilku dekad 
zrewolucjonizował czynności związane z 
konserwacją dzieł sztuki, będących przed- 
miotem zainteresowań archeologów, histo- 
ryków sztuki i antropologów. Szczególnie 
przydatne okazały się, me niszczące bada- 
nego obiektu promienie Roentgena (x). Uzna- 
nie zdobyło także określanie wieku dzieła na 
podstawie okresu rozpadu węgla, zawarte- 
go w tworzących obiekt składnikach (np. w 
farbie). Techniki te szybko wzbogacono o 
wiele innych — między innymi ofotoakusty- 
czną spektroskopię, termoluminescencję, 
badania laserowe. W efekcie można uzy- 
skać bardzo dużą liczbę obiektywnych da- 
nych o konserwowanym bądź badanym 
obiekcie. 

W restauracji dzieł sztuki innowacje te 
pomogły między innymi odróżniać autenty- 
czne fragmenty przedmiotów artystycznych 
(by je zachować) od materiałów konserwa- 
torskich (by je usunąć). Metody te są źród- 



łem obiektywnyph danych, mówiących o 
postaci dzieła, o materiale, z jakiego jest 
stworzone, bez względu na jego formę i 
treść. Najczęściej jednak, właśnie forma i 
treść okazują się jedynym kluczem do po- 
prawnej analizy całego dzieła. Ocena i zro- 
zumienie tych bardzo „esencjonalnych" 
charakterystyk decyduje często o popraw- 
ności zabiegów konserwatorskich. 

Restauracja obrazów opiera się na ludz- 
kich oczach — wykorzystuje mikroskop 
optyczny, kamerę — częściej niż promienie 
X. Stąd też wizualna ocena konserwowane- 
go dzieła przesądza o powodzeniu tego typu 
prac. 

Wspomniany na wstępie dostęp do cy- 
frowej postaci obrazów znacznie rozszerzył 
zakres zastosowań sprzętu, informatyczne- 
go — od astronomii przez diagnostykę me- 
dyczną do konserwacji dzieł sztuki. 

‘ Niespodziewanym „pośrednikiem" mię- 
dzy nowoczesnymi technologiami kompute- 
rowymi a sztuką stał się Leonardo da Vinci. 
Wśród bardzo wielu ciekawych zdarzeń w 
jego bogatym życiu byty także takie, w któ- 
rych nieporozumienia i zatargi ze zlecenio- 
dawcą nie pozwalały mu kończyć swych 
prac. Działo się to w wypadku „Bitwy pod 
Anghiari". Giorgio Vasari zamiast tego obra- 
zu (nie dokończonego) stworzył własne 
dzieło o podobnej treści. Dzisiaj powstał 
problem, czy można odtworzyć to. czego/'' 
dokonał Mistrz Leonardo? 

W 1 975 roku temat len podjął J. F. Asmus 
— zdecydowały o tym wiarygodne przes- 
łanki o niezniszczeniu (tylko zamalowaniu) 
przez Vasariego fragmentów malowidła 
Leonardo da Vinci Sprawę komplikował 
olbrzymi wymiar dzieła, którego zaledwie 
kilka niewielkich fragmentów wykonał sam 
Mistrz. W pracach tych badacze wykorzy- 
stali termowizję, promienie Roentgena, ak- 
tywność neutronową, przewodnictwo elek- 
tryczne i mikrofale. Ostatecznie wybrano ul- 
tradźwiękową echolokację (urządzenie po- 
dobne do sonaru — hydrolokatora). Techni- 
ka ta spełniła oczekiwania badaczy i pozwo- 
liła wyróżnić fragmenty wykonane przez 
Leonarda da Vinci. 

Duża część zabiegów konserwatorskich 
polega na sprawdzaniu i interpretacji foto- 
grafii i radiografów. Często promienie X są 
wykorzystywane do odsłonięcia wcześniej- 
szych kompozycji ukrytych pod aktualną 
powłoką — innym obrazem. Generalnie 
obrazy widziane tą techniką bywają mie- 
szaniną powierzchniowego obrazu, „po- 
przedniego" obiazu oraz struktury nośnika 
(drewno lub płótno). Po wielu badaniach 
okazało się. że „czyszczenie" łak otrzyma- 
nych zdjęć jest możliwe dzięki pewnym ope- 
racjom matematycznym na cyfrowych od- 
'wzorowaniach obrazów (stosując „filtrowa- 
nie" danych o obrazie szybką transformatą 
Fouriera). Usunięto w ten sposób interfe- 
rencję tła. które daje nośnik obrazu -- płót- 
no lub drewno. Rezultaty okazały się bardzo 
dobre — szarość „zamazująca" obraz zosta- 
ła wyeliminowana. 

Przedstawione uwagi dotyczą rycin "kre- 
skówek" lub obrazów monochromatycznych. 

W konserwacji obrazów jdst to zaledwie 
szczyt góry lodowej, zdecydowana więk- 
szość dziel zgromadzonych w muzeach jest 
bowiem polichromatyczna. Obraz tworzą nie 
tylko trzy składowe (czerwień, zieleń i kolor 
niebieski), ale także ich nasycenie, odcień. 
Duże znaczenie ma również wizualna per- 
cepcja obrazu, której mechanizmy są nie- 
zmiernie złożone — decydują o tym, że za- 
uważamy piękno lub kiczowatość obrazu. 




Prawdopodobnie jedynym z najsłynniej- 
szych obrazów jest Mona Lisa (La Giocon 
da) Leonarda da Vmci (eksponowana w pa- 
ryskim Luwrze). Obecnie obraz ten jest led- 
wo cieniem swej oryginalnej postaci. Przy- 
czyna 7 Czas i... niestety, zabiegi wielu kon- 
serwatorów Przystępując do konserwacji 
obrazu |ego wysokiei jakości fotografia zos- 
tała „zamieniona" („digityzowana' ) na liczby 
(dla każdego z 6 milionów wyróżnionych" 
punktów i dla każdego z trzech podstawo- 
wych kolorów). 

Wstępne przetwarzanie danych odzwier- 
ciedlających postać obrazu zmieniło kolor 
nieba z brązowego na niebieski, skóry nie- 
wiasty z żółtego na alabastrowy, a z sukni 
bohaterki dzieła wydobyto odcień głębokiej, 
pięknej zieleni. 

Do dalszych, bardziej złożonych badań, 
wykorzystano zdjęcia ( 1 0 • 1 2.5 cm — pi- 
ksele o wymiarze 0,02 mm') fragmentów 
obrazu. W efekcie otrzymano trzy zbiory da- 
nych dla każdego z podstawowych kolorów 
(RGB). Każdy zbiór zawierał dane o 2600 li- 
niach, po 2200 pikseli w jednej linii. Każdy 
piksel opisywany był wartością od 0 do 255 
— w zależności od jasności każdego z 
trzech podstawowych kolorów Zero pre- 
zentowało czerń, a 255 maksymalną jas- 
ność koloru Przeprowadzone następnie 
obliczenia pozwoliły na dokonywanie korekt 
kolorów. W efekcie każdy niebieski piksel 
był „dzielony” przez 0.4, czerwony przez 0,2, 
a czerwony przez 1 ,0. 

Większość profesjonalnych artystów, 
oglądających wynik tej „korekty ', zgodziło 
się z jej rezultatami Uznali „poprawione" ko- 
lory za bardziej naturalne Wiek obrazu zos- 
tał „skompensowany". 

Zwrócono także uwagę na odblaski 
(„świecenie"), które zredukowano (stosując 
także szybką transformatę Fouriera). 

Po tych komputerowych zabiegach do- 
strzeżono wiele nowych detali obrazu Mony 
Lisy. na przykład fragmenty naszyjnika 7 
Nasunęło to wątpliwości, czy są one dzie- 
łem Leonarda, restauratorów, czy po prostu 
są to zniszczenia? 

Dokonano jeszcze wielu innych obliczeń 
eliminujących lub wskazujących krytyczne 
miejsca obrazu. Stanowiło to między innymi 
wskazówkę (naszyjnik) prawdopodobnego 
pierwowzoru Mony Lisy — La Muta Raphae- 
la. 

Coraz częściej w muzeach świata wyko- 
rzystywane są komputery do wspomagania 
zabiegów konserwatorskich, tym bardziej ze 
umożliwia to powszechnie dostępny sprzęt 
nawet już klasy IBM PC XT (rozdzielczość 
1024x1024). 

Kończąc warto podkreślić problemy psy- 
chologicznych oporów przy stosowaniu 
maszyn w procesach konserwatorskich. 
Dotyczy to zarówno profesjonalistów, jak i 
generalnie publiczności zwiedzającej mu- 
zea. 

Po przedstawieniu omawianych efektów 
„korekty" Mony Lisy, pewna mistrzyni „sztuki 
konserwatorskiej”, stwierdziła, że „nigdy 
mnie nie przekonacie, że Leonardo nama- 
lował te drzewa na błękitnym tle Malowid- 
ła są w rzeczywistości górami, zniekształ- 
cenia kolorów mylą bowiem nawet wybit- 
nych profesjonalistów w poprawnej interpre- 
tacji obrazów. 

W.G. 

Opracowano na podstawie: 

J. F. Asmus, Digital Image Processing in 
Art Conservation, BYTE, march 1987. 


W szponach Atariw 


Atari i dźwięk 

Tomasz MROWIEĆ 
Ludwik PIELA 

Komputery Atari serii XL i XE, jak wszystkie komputery domowe, 
mają możliwość generowania dźwięku. Dysponują czterema nieza- 
leżnie sterowanymi kanałami, które mogą być używane jednocześ- 
nie. Instrukcja SOUND języka BASIC, za pomocą której wybieramy 
numer kanału, wysokość dźwięku, brzmienie i głośność, w niewiel- 
kim tylko stopniu umożliwia wykorzystanie wszystkich zalet układu 
generowania dźwięku. Niezbędne jest dokładne poznanie tego 
układu i różnych sposobów jego wysterowania. 


W poniższym artykule spróbujemy zapoznać 
Czytelników z możliwościami układu generowania 
dźwięku oraz sposobami sterowania nim Zapre- 
zentujemy programy umożliwiające praktyczne 
zbadanie większości tych możliwości Należy jed- 
nak pamiętać, ze sterowanie dźwiękiem jest skom- 
plikowane. trudne do badania i wymaga konstruo- 
wania dosyć rozbudowanych programów 

Do generowania dźwięku przeznaczony jest 
układ scalony POKEY. klóry obsługuje także szynę 
szeregową wejścia/wyjścia oraz klawiaturę Ma 
on kilka rejestrów (w pamięci RAM), które są uży- 
wane podczas generowania dźwięku Ich nazwy, 
adresy oraz przeznaczenie są następujące: 

AUDF 1 (53760) — reiestr częstotliwości kana- 
łu 1 

AUDC1 (53761) — rejestr sterujący kanału 1 

AUDF2 (53762) — rejestr częstotliwości ka- 
nału 2 

AUDC2 (53763) — rejestr sterujący kanału 2 

AUDF3 (53764) — rejestr częstotliwości ka 
nału 3 

AUDC3 (53765) — rejestr sterujący kanału 3 

AUDF4 (53766) — rejestr częstotliwości ka- 
nału 4 

AUDC4 (53767) — rejeslr sleruiący kanału 4 

AUDCTL (53768) — reiestr sterujący trybem 
działania 

Aby poprawnie działał układ POKEY musi być 
zainicjowany Wymagane to jest po dowolnej ope 
racji na szynie szeregowej (współpraca*z magne- 
tofonem, stacją dysków lub drukarką) W celu za- 
inicjowania POKEY w BASlCu należy wykonać 
zerową instrukcję SOUND. to jest SOUND 0.0.0.0 
W ięzyku maszynowym należy zapamiętać 0 w 
AUDCTL (SD208 = 53768) i 3 w SKCTL 
(ID207 = 53775). 

Każdy kanał dźwiękowy ma odpowiadający mu 
rejestr częstotliwości AUDF 1 —4. który steruje wy- 
sokością generowanego dźwięku. Rejestr często- 
tliwości, o długości 1 bajta, zawiera liczbę N uży- 
waną do sterowania układami dzielników często- 
tliwości. w celu wytworzenia różnych częstotliwoś- 
ci wyjściowych Im większa jest wartość N. tym 
rzadsze są impulsy wyjściowe i tym niższa często- 
tliwość dźwięku, która może być określona nastę- 
pującym wzorem; 

lwy = fz/2 X (N +1) 

gdzie: fz — jest częstotliwością zegara, a N zawar- 
tością rejestru częstotliwości Normalną częstotli- 
wością zegara 64 kHz (a dokładmei 63921 Hz) dy- 
sponujemy zakresem częstotliwości od 1 25 Hz do 
32 kHz 

Każdy kanał ma także rejestr sterujący 
AUDC1— 4 umożliwiający ustawienie głośności 
(cztery młodsze bity) i brzmienia dźwięku (zawar- 
tości zniekształceń). 

Przydział bitów tego rejestru jest następujący 


nr bitu |7|6|5|4|3|2|l |~0~| 


L głośność 

bezpośrednie 
— ► sterowanie 
głośnikiem 


zniekształcenia 


Sterowanie głośnością każdego kanału dźwię- 
kowego jest proste. Młodsze bity rejestru sterują- 
cego zawierają liczbę czterobitową, która określa 
głośność dźwięku. Istnieje zatem 16 różnych 
ustawień głośności Zera na wszystkich bitach 
oznaczają głośność zerową, a 15 oznacza ma- 
ksymalną Suma głośności czterech kanałów me 
powinna przewyższać 32. ponieważ może spowo- 
dować przesterowame wyjścia dźwiękowego 

Każdy kanał dźwiękowy ma w swoim rejestrze 
sterującym wyróżnione trzy bity Służą one do ste- 
rowania zniekształceniem dźwięku używanym do 
tworzenia specjalnych efektów akustycznych, 
Dzięki tej możliwości łatwo jest uzyskać ogromną 
różnorodność dźwięków, od huków, szczęków i 
skrzeków do trzasków i szmerów 

Zniekształcenie me polega na zmianie kształtu 
fali (jest ona zawsze prostokątna), lecz na usuwa- 
niu z ciągu wybranych impulsów Aby w pełni wy- 
jaśnić na czym polega zniekształcenie dźwięku, 
musinjy zrozumieć działanie tak zwanych liczni- 
ków wielomianowych ( polynomial counters). Są 
one używane jako źródło impulsów losowych sto- 
nowanych w generowaniu zakłóceń. Liczniki te 
wykorzystują rejestry przesuwne pracujące z czę- 
stotliwością 1.79 MHz Zawartość rejestru jest 
przesuwana w prawo, każdy wychodzący bit pod- 
dawany jest pewnej obróbce i wprowadzany po- 
nownie do rejestru Wytwarza to niby- losowy ciąg 
bitów na wyjściu rejestru przesuwnego 

Liczniki te me są w pełni losowe, ponieważ po 
pewnym czasie powtarzają sekwencje bitów Jak 
można oczekiwać, okres powtarzania zależy od 
długości rejestru przesuwnego; to znaczy im dłuż- 
szy rejestr, tym dłuższy okres powtarzania. 

Zakłócenie dźwięku w komputerach Atari uzy- 
skuje się poprzez wprowadzenie impulsów z li- 
czników wielomianowych i impulsów podstawo- 
wych do układu yvyboru W rzeczywistości jest to 
komparator cyfrowy, który przepuszcza na wyiście 
tylko te sygnały, które są zgodne z impulsami lo- 
sowymi. Elekt końcowy polega na losowym elimi- 
nowaniu pewnych impulsów z układu dzielnika 
częstotliwości. 

Jak wspomnieliśmy, impulsy wyjściowe liczni- 
ków wielomianowych maią charakter cykliczny. W 





Nuta 

Oktawa 

1 

2 

3 

4 

5 
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9 

16-b 

8-b 

16-b 

8-b 

16-b 
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16-b 

8-b. 

16-b 

8-b. 

16-b. 

8-b. 

16-b 

8-b 

16-b 

8-b 

16-b. 

8-b. 

C 

27357 


13675 


6834 

243 

3414 

121 

1703 

60 

848 

30 

421 

14 

207 


100 


c 

25821 


12907 


6450 

230 

3222 

114 

1607 

•57 

800 

28 

397 


195 


94 


D 

24372 


12182 


6088 

217 

3040 

108 

1517 

53 

755 

26 

374 


183 


88 


D 

23003 


11498 


5746 

204 

2869 

102 

1431 

50 

712 

25 

353 


173 


83 


E 

21712 


10852 


5423 

193 

2708 

96 

1350 

47 

672 

23 

332 


163 


78 


F 

20493 


10243 


5118 

182 

2555 

91 

1274 

45 

634 

22 

313 


153 


73 


F 

19342 


9668 


4830 

172 

2412 

85 

1202 

42 

598 

21 

295 


-144 


69 


G 

18256 


9125 


4559 

162 

2276 

81 

1134 

40 

564 

19 

278 


136 


64 


G 

17231 


8612 


4303 

153 

2148 

76 

1070 

37 

532 

18 

262 


128 


60 


A 

16264 


8128 


4061 

144 

2027 

72 

1010 

35 

501 

17 

247 


120 


57 


A 

15351 


7672 


3832 

136 

1913 

68 

953 

33 

473 

16 

233 


113 


53 


H 

14489 


7241 


3617 

128 

1805 

64 

899 

31 

446 

15 

219 


106 


50 



Uwaga 1 — kontra; 2 — wielka; 3 — mata. 4 — rozkreślna 5 — dwukreślna. 6 — trzykreślna; 7 — czterokreślna. 8 — pięciokreślna; 
9 — sześciokreśina 


rezultacie zakłócony dźwięk także będzie miał taką 
samą postać powtarzan a. Umożliwia to układowe 
generowanie takich dźwięków, iak brzęczenie, 
■warkot silnika i podobnych, maiących charakter 
cykliczny 

Komputery Atati wyposażone są w trzy liczniki 
wielomianowe, o różnych dtugościacn. które mogą 
być łączone na wiele sposobów w celu wytworze 
ma mteresującycn elektów dźwiękowych Krótsze 
liczniki (o długości 4 i 5 bitów) powtarzają się wy 
starczaiąco często, aby wytworzyć dźwięk, naśia 
dujące warkot, które tak szybko narastają i opada- 
ją podczas gdy dłuzszy licznik (o długości 17 bi- 
tów) tak rzadko się powtarza, że żaden wzór zakłó- 
cenia nie może być wyraźnie rozpoznany Licznik 
17- bitowy może być używany do naśladowania 
dźwięków eksplozji i krzyku. Jest on na tyle nie- 
regularny, że może stuzyć do generowania białe 
go szumu 

Każdy kanał dźwiękowy oferuje sześć różnych 
kombmacii trzech liczników wielomianowych Ste- 
rują tym trzy bity rejestrów AUDC 1 -4 następują 

co: 


7 6 5 4 3 2 1 0 


m 


0 0 0 

5 -bitowy . 17- bitowy 

0 X 1 

5-bitowy 

0 1 0 

5-bitowy ' 4-bilowy 

1 0 0 

17 -bitowy 


bez liczników 

t 1 0 

4-bitowy 


Każda kombinacja liczników oferuje unikalny 
dźwięk Ponadto zniekształcone dźwięki mogą 
brzmieć różnie przy różnych częstotliwościach Z 
tego powodu mezDędne |est wykonanie wielu próo 
w ceiu znalezienia kombinacji zniekształceń . czę- 
stotliwości. które dadzą pożądany elekt dźwięko- 
wy Poniżej prezentujemy tablicę, która ułatwi nam 
rozpoczęcie prób 

Bit 4 rejestruje AUDC 1-4 określa specjalny 
tryb pracy Gdy jest on ustawiony wartość głoś 
ności (bity 0—3 AUDC 1—4) wysyłana |est bez- 
pośrednio do głośnika, me jest on modulowany 
częstotliwością w rejestratorach AUDF 1—4 
Dla pełnego zrozumienia użycia tego trybu dzia- 
łania musimy przypomnieć sobie jak pracuje 
głośnik i co się z nim azieie po odebraniu impulsu 
Każdy głośnik ma membranę, która przesuwa się 
Pożycia membrany w dowoinei chwili jest wprost 
proporcjonalna do napięcia, które przychodzi z 
komputera Jeśli wysytane napięcie jest zerowe, 
wtedy glośmk jest w pozycji spoczynkowej Kiedy 
membrana zmienia pozycię. wtedy przesuwa po- 
wietrze. co jest odbierane przez nasze ucho jako 
dźwięk 

2 definicji impulsu wiemy, że składa się on z 
narastającego napięcia a następnie opadające 
go Jeśli do głośnika wyślemy pojedynczy impuls, 
powstanie fata powietrza która może być wykryta 
przez ucho ia*o trzask Przykładem może być rea- 
lizacja następujących instrukcji: 

POKE 53761.3' POKE 53761 16 
Ciąg impulsów (tub łataj może wprawić mem- 
branę w staty ruch i słyszane będzie ciągle brzę- 
czenie lub dźwięk Im szybciej wysyłane są impul- 


sy tym wyzszy dźwięk W taki sposób komputer 
wytwarza dźwięk w głośniku 

Należy zaznaczyć, ze w trybie bezpośredniego 
sterowania głośnikiem, wysłana wartość głośności 
nie wraca automatycznie do zera, lecz pozostaje 
stała do czasu, az zmieni ją program Dia wytwo- 
rzef ia dźwięku głośność powinna być modulowa- 
na wystarczająco często Spróbujemy teraz wyko 
nać następujące instrukcje uważnie nasłuchując 
po każdej 

POKE 3761. 3 1 
POKE 53761.31 

Za pierwszym razem usłyszymy trzask, zgodnie 
z oczekiwaniem, Głośnik wysunie się i przesunie 
powietrze Lecz za drugim razem nic się nie stanie 
Membrana głośnika byta już w pozycji wysuniętej; 
kolejny rozkazu wysunięcia niczego me zmieni za 
lem mc me usłyszymy Spróbujmy teraz 
POKE 53761 16 
POKE 53761.16 

Tak jak poprzednio, za pierwszym razem usły- 
szymy trzask, gdy memorana przesuwa się do 
pozycji spoczynkowej, za drugim razem nic me us- 
łyszymy, ponieważ giosmk byt już w pozycji spo- 
czynkowej 

Jak widać, w tym trybie pracy program ma pełne 
sterowanie pozycją membrany głośnika w dowol- 
nym czasie Chociaż powyższe przykłady są tytko 
ogarnę (włączone lub wyłączone/ nie jesteśmy 
mczym ograniczeni do tylko tego typu modulacji 
głośnika Możemy ustawić membranę w dowolnej 
z 1 6 różnych pozycji 

Na przykład, prosta tata trójkątna (podobna ao 
fal wytwarzanych przez instrumenty dęte) może 
być utworzona poprzez wystanie wartości głoś- 
ności 8, a następnie 9. 10. 11. 1 0. 9 8. 7 6, 5, 6, £i 
znowu 8 i powtarzanie tego ciągu bardzo szybko 
Poprzez wystarczająco szyDką zmianę głośności 
może być utworzona dowolna postać tali. Przy 
pomocy tej techniki można łałwo uzyskać syntezę 
mowy Wymaga to uzyoa ięzyka asemoiera 

Oprócz rejestrów niezależnego sterowania ka- 
nałami (AUDC1 — 4|. istnieje bajt (AUDCTL) doty 
czący wszystkich czterech kanałów Każdy bit w 
AUDCTL przydzielony jest do określonej funkcji: 
AUDCTL (SD208 - 53768) 

Przed przystąpieniem do wyjaśniania opcji 
AUDCTL musimy wyjaśnić mne pojęcie taktowa 
me (ang clockmg) Do synchronizacji milionów 
operacji wewnętrznych, realizowanych w kazdei 
sekundzie w komputerze, używany |est ciąg im- 
pulsów Jest on generowany przez centralny zegar 
dziataiący z częstotliwością 1 79 MHz. Istnieje tak- 
że kilka zegarów pomocniczych o niższych czę- 
stotliwościach Reieśtr AUDCTL umozl.wia nam 
wybranie częstotliwości impulsów wejściowych 
układu dzielenia przez N Poprzez zmianę zegara 
drastycznie możemy zmienić częstotliwość wyiś- 
ciową Można ło łatwo zilustrować prostym wzo- 
rem podawanym w niektórych podręcznikach (r.p 
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gdzie, fwy częstotliwość wyjściowa 

•zeg częstoliwosć używanego zegara 
N - zawartość rejestru AUDF I -4 
W rzeczywistości zależność częslotliwośn wyjś 
ciowej od częstotliwości zegara . zawartości reies 
tru AUDF1 —4 ma nieco mną posiać 
fwy = fzeg/2 X łN + 1) 

Ustawienie bilu 1 rejestru AUDCTL przełącza 
zegar 64 KHz na 15 kHz Pooobme. poprzez usta 
wierne bitów 5 lub 6 możemy taktować, odpowied- 
nio kanały 3 lub 1, częstotliwością 1 79 MHz 
Otrzymamy wtedy dźwięk znacznie wyzszy. co 
można zilustrować następującym przykładem: 

SOUND 0.255.10.8 — włączenie kanału, niski 
ton 

POKE 53768.64 — ustawienie bitu 6 AUDCTL 

Osiem bitów w rejestrach sterujących częstotii 
wością wydaje się oferować więcei mz wystarcza 
iącą rozdzielczość dla wybrania dowolnej częstot- 
liwości. Jednak wprawne ucho może zauważyć, że 
generowane dźwięki, odpowiadające na przykład 
gamie muzycznej, me są zbyt dostrojone i me mo 
gą być Niech w rejestrze częstotliwości będzie 
liczba N = 72 (która według instrukcji daje nutę 
A), wtedy uzyskamy częstotliwość 437 8 Hz Dla 
N =• 71 otrzymamy 443.9 Hz A częstotliwość nuty 
A jes! 440 Hz i takiej częstotliwości me możemy 
uzyskać 

Istnieję również sytuacje w których każde ucho 
może usłyszeć, że ośmiobitowy rejestr częstotli- 
wości jest niewystarczający Spróbujmy wykonać 
następujące instrukcje 

FOR i = 255 TO 0 STEP l SOUND 0110 8 
NEXT i 

Dźwięk początkowo podnosi się łagodnie, lecz 
gdy zonza się do kohca swojego zakresu zauwa 
żalne są znaczne zmiany częstotliwości Nie może 
być inaczej jeśli dzielimy częstotliwość 'zegara 
przez coraz mniejsze liczby t5 kt^łz podzielone 
przez 255 ma zbliżoną wartość, iak 1 5 kHz podzie- 
lone przez 254; lecz 1 5 kHz podzielone przez 2. 
znacznie różni się od 1 5 kHz podzielonych przez 1 . 

Z tego powodu efektywny zakres dia muzyki 
ograniczony jest do niepełnych czterech oktaw 
pomewaz dokładność dostrojenia odtwarzanych 
nut staje się postępująco gorsza gdy częstotli- 
wość staie się wyzsza Przyczyną niedokładność 
dostrojenia jest ograniczona liczba wartość moż- 
liwych do użycia jako dzielniki (256 unikalnych 
wartości) 

Na szczęście Atari dostarcza rozwiązanie tego 
problemu: dzielniki 16-bitowe, które umożliwiają 
wybranie 65536 różnych częstotliwości wyjśclo 
wych Lecz dokładniejsze dostrojenie nie przy- 
chodzi za darmo Szesnastobitowe dzielniki uzy- 
skuje się poprzez połączenie rejestrów częstotii 
wości dwócn kanałów dźwiękowych (AUDF1 z 


Głos 

instrukcja SOUND 

Równoważne instrukcje POKE 

i 

SOUND 0. N. Z. G 

POKE 53760 N POKE 53761 . 16 • Z + G 

2 - 

SOUND 1. N Z. G 

POKE 53762. N: POKE 53763. 16 • Z + G 

3 

SOUND 2. N, Z. G 

POKE 53764, N: POKE 53765. 16 * Z + G 

4 

SOUND 3. N. Z. G 

POKE 53766. N: POKE 53767. 16 * 2 + G 


6 


FK 1 REM ************** ** 

WZ 2 REM * Proaram nr 1 * 

FM 3 REM **************** 

RE 4 GRAPHICS 0'? ■ ? •? ■? "OD JA 
KIEJ CZĘSTOTLIWOŚCI CHCESZ" « ? 
"ZACZAC « INPUT CZEST 
AG 3 AUDF3»INT<6392l/<2*CZEST)-l+ 
0.5) 

ZY 6 AUDF2- I NT < < 1 789790/ < 2*CZEST ) 
-7)/256) 

DG 7 AUDF 1 * I NT << 1 789790/ < 2*CZEST ) 
>-7-256*AUDF2+0.5> 

NO 8 IF CZEST> 125 AND CZEST <16000 
THEN 10 

XQ 9 ? "Doouazczalny zak raa 125 d 

0 16000." 1 ? "SprobuJ znowu. "i » 
INPUT CZEST -GOTO 5 

NJ 10 GRAPHICS 0'? "Manipulator # 

1 ataruJa czaatotl iwoa-" 

GZ 15 ? "cia o wyaokiaJ rozdziale 
zo*ci."'? "Nacisnij przycisk/ 
aby otrzymać" 1 ? "dzwiak." 

AZ 20 ? "Przasun w aora lub doi d 
la wolnaJ"'? "zmiany czaatotl i 
woaci lub w lawo/""'? "prawo dl 
a azybkiaJ zmiany." 

LA 30 ? "Manipulator #2 ataruJa n 
iaka roz-" 1 ? "dzialczoacia, Pr 
zyciak daJa dzwiak " 

00 40 ? "lub aora/dol dla zmiany. 

FH 53 SOUND 0,0, 0,0 'SOUND 1,0, 0,0 
'SOUND 2, 0,0,0 'SOUND 3, 0,0,0 
JF 100 POKE 752,1 
FZ 110 POKE 53768,80 
UQ 130 POKE 53763,10*16+15 
VU 140 POKE 53763,10*16+15 
BO 160 IF STICK<0)-13 THEN AUDF 1 ■ 
AUDF1+1 1 IF AUDF 1> 255 THEN AUDF 
2-AUDF2+1 'AUDF 1-0 
NY 170 IF STICK<0)«14 THEN AUDF 1 ■ 
AUDF 1-1 ' IF AUDF 1 <0 THEN AUDF2- 
AUDF2-1' AUDF 1-255 
PK 180 IF STICK<0)»1 1 THEN AUDF2- 
AUDF2+1 

UE 190 IF STICK<0)-7 THEN AUDF2-A 
UDF2-1 

TJ 220 IF STICK<1)-13 THEN AUDF3- 
AUDF3+1 

WX 230 IF STICKC 1 )-14 THEN AUDF3- 
AUDF3-1 

XD 240 IF STRIG<0)-0 THEN POKE 53 
760 , AUDF 1 ■ POKE 53762 , AUDF2 ' GOT 
0 260 

MY 250 POKE 53760,0 'POKE 53762,0 
XL 260 IF STRIG<1)»0 THEN POKE 53 
764, AUDF3' GOTO 280 
UA 270 POKE 53764,0 • 

UP 280 CZWY2-1 789790/ < 2* <AUDF2*25 
6+AUDF1+7)) 

VP 290 CZUY3-63921/<2*<AUDF3+1)> 

ML 300 POSITION 1,10 

ZO 310 ? '? “WYSOKA ROZDZIELCZOŚĆ 

OR 320 ? "CZEST • l 789790/ < 2* <"; A 
UDF2; "*256+";AUDFl; "+7>> "«? 

UG 325 ? " • " i CZWY2 

SE 330 ? '? '? "NISKA ROZDZIELCZO 

SC ■ " 1 ? 

VD 340 ? "CZEST - 63921 /<2* <" j AUD 
FS)"+1» 

" ; CZWY3 

LK 309 GOTO 100 

FL 2 REM **************** ■ 

XW 5 REM * Proaram nr 2 * 

FP 6 REM **************** 

HR 100 DATA 520,584,655,694,779,8 
74,982, 1040 

IF 110 DIM D2WIEK(8>, A*< 1 ) 

TL 120 FOR I-I TO 8'READ X' DŹWIĘK 
<I)-X'NEXT I 

AE 150 GRAPHICS 0'? '? " NORMAL 
NA WYSOKA ROZDZIEL."'? 


KY 160 ? " P HUTA PI 

P2 NUTA"'? " 

JT 170 POKE 752,1 
ZJ 200 REM GENEROWANIE * NORMALNEG 
O- 1 DŹWIĘKU ATARI 


PV 210 FOR J»1 TO 8 
GV 220 P= I NT <63921 /<2*DZWIEK<J))- 
1) 

ZT 230 SOUND 2, P, 10,8 
DT 240 DZWIEK»63921/(2*<P+1)> 

LW 250 POSITION 3,J+6'? Pi" "i DZ 
WIEK 

ZI 260 FOR W«1 TO 200'NEXT W-NEXT 
J 

TG 270 SOUND 2, 0,0,0 FOR W-l TO 5 
00 1 NEXT W 

YH 300 REM DŹWIĘK O WYSOKIEJ ROZD 
ZIELCZOSCI 

GO 305 POKE 33768,80 
PW 310 FOR J»1 TO 8 
AN 320 P2- 1 NT < < 1 789790/ < 2*DZ W I EK < 
J)>-7)/256) 

FL 330 Pl-INT < 1 789790/ <2*DZWIEK<J 
) ) -7-256*P2+0 . 5 ) 

RE 340 POKE 53760, PI -POKE 33762, P 
2 POKE 53763, <16*10)+8 
XD 350 DZW I EK* 1 789790/ < 2* < 256*P2+ 
Pl+7» 

ZU 360 POSITION 21,J+6«? P1P0SIT 
ION 25, J+6 1 ? P2> " "; DŹWIĘK 

CC 370 FOR W-l TO 150'NEXT W'NEXT 
J 

NF 380 POKE 53760,0 POKE 53762,0 
WK 408 POSITION 2,19'? " CZY ZNÓW 
U GRAC <T LUB N)"i - INPUT A*-IF 
A*»"T" THEN 150 

DJ 410 ? "WPROWADŹ 8 NOWYCH WARTO 
SCI DŹWIĘKU"? "POJEDYNCZO." 

08 420 FOR 1-1 TO 8 INPUT X'DZWIE 
K<I)-X'NEXT I ' GOTO 150 

XP 20000 REM **************** 

WJ 20010 REM * Proaram nr 3 * 

XX 20020 REM **************** 

BT 20040 REM 

KJ 20050 REM X-USR<ADR<HFI*),N1,G 
1 , N2, G2, N3, G3) 

CB 20060 REM 

FU 20100 SOUND 0,0,0,0'X»64+16‘PO 
KE 53768, X 

PY 20110 DIM HF 1 * < 56 ) ' RESTORE 201 
40 

QF 20120 FOR 1-1 TO 56 READ X'HF1 
*<I,I)-CHR*<X)'NEXT I 
DN 20130 RETURN 

XH 20140 DATA 104,170,104,141,2,2 

10. 104. 141.0. 210. 104. 104.41.15 
,9,160,141,3,210 

AH 20150 DATA 224,2,240,32,104,10 

4. 141.4.210. 104.104.41.15.9.16 
0,141,5,210 

DI 20160 DATA 224,4,240,14,104,10 

4.141.6.210. 104. 104.41.15.9.16 

0. 141.7.210.96 

XP 20080 REM **************** 

XH 20010 REM * Proaram nr 4 * 

XX 20020 REM **************** 

BT 20040 REM 

TP 20050 REM X«U6R<ADR<HF2*),N1,G 

1, N2,G2) 

CB 20060 REM 

X0 20100 SOUND 0,0,0,0-X-64+16+32 

i y 

MO 20110 DIM HF2*<41) -RESTORE 201 
40 

NA 20120 FOR I-I TO 41 'READ X'HF2 
*<I,I)«CHR*<X)'NEXT I 
DN 20130 RETURN 

XH 20140 DATA 104,170,104,141,2,2 

10.104.141.0. 210, 104,104,41,15 
,9,160,141,3,210 

SE 20150 DATA 224,2,240,17 
FM 20160 DATA 104,141,6,210,104,1 
41 .4.210,104,104,41 . 15,9,160,1 
41, 7,210,96 

FK 1 REM **************** 

AB 2 REM * Proaram nr 5 * 

FM 3 REM **************** 

NJ 4 REM 

LW 10 SOUND 0,0, 0,0 
QZ 80 DIM S(5, 8), IN* (50) 

EH 90 FOR 1-0 TO 8‘FOR J-0 TO 5'S 
<J,I)-0'NEXT J ' NEXT I 
HE 100 RE J=5000 1 ZN I "5 1 00 1 CZE-5200 
' WYW*5300 • WYL-5400 
NI 102 CLD-3900 CLX«6000'GLO»6100 


- POKAUD-6200 ' STA-6300 • START-64 
00 RE JWYS-6500 BUZZ-6600 
WN 104 PWYK-6700 ' SWYK-6800 ' EWYS-6 
980 

XA 1000 REM WYŚWIETLENIE 
OJ 1002 GRAPHICS 0 : POKE 752,1 
WW 1008 POSITION 2,0'? "<REJ)ESTR 
AUDCTL ' " 

CW 1010 POSITION 2,1'? 

ian 9 bitowy 1 <B 7) ' " 

PC 1028 POSITION 2,2'? 

z w kanala 0' <B6) « " 

RI 1030 POSITION 2,3’? 

z w kanala 2'<B5)'" 

CO 1040 POSITION 2,4’? 

1 + kanał 0'<B4>'" 

HG 1050 POSITION 2,5? 

3 + kanał 2'<83>'" 

LS 1860 POSITION 2,6? "filtr aor 
noprzat-.k0/2‘ <B2) = " 

NW 1070 POSITION 2,7'? "filtr aor 
noprzep.kl/3' <B1) 1 ” 

CR 1080 POSITION 2,8? " 

15 kHz ' <B0> = " 

VC 1090 POSITION 2,9? 

DŹWIĘKU ' " 

LS 1100 POSITION 2,10'? 

SZTALCENIE' " 

DC 1110 POSITION 2,11 '? 

STOTLIWOSC ' " 

YM 1120 POSITION 2,12'? 

NE WYJŚCIE" 

JJ 1126 POSITION 2,13'? 

<GLO)SNOSC ' " 

ED 1128 POSITION 2,14=? 

MA 1130 POSITION 2,15'? 

BO 1140 POSITION 2,16-? 

CZE WYW GLO" 

DS 1150 POSITION 2,17'? "WYL STA 
PWYK SWYK" 

GX 1580 GOSUB START 
NO 2000 REM TABLICA SKOKOW 
VR 2008 FOR ZZZ-1 TO 2 STEP 0 
HV 2010 POSITION 5, 15 'POKE 752,0' 
INPUT IN* 'POKE 752,1 
JK 2020 TRAP 2048 'A=VAL< IN*) 'TRAP 


wialom 
1.79 MH 


1.79 MH 
k ana l 


kanał 


" (REJ)ESTR 
<ZNI )EK 


<CZE) 

WYMUSZO 


"X'" 

" D ' " 

"REJ ZNI 


RI 2830 POSITION 5,14'? A* GOSUB C 
LD 

00 2040 IF IN*- "REJ" THEN GOSUB R 

OM 2042 IF IN*- "ZNI" THEN GOSUB Z 
NI 

RS 2044 IF IN*« "CZE" THEN GOSUB C 
ZE 

FI 2046 IF IN*- "WYW" THEN GOSUB W 
YW 

LI 2048 IF IN*- "WYL" THEN GOSUB W 
YL 

BO 2049 IF IN*- "STA" THEN GOSUB S 
TA 

SX 2058 IF IN*- "GLO" THEN GOSUB G 
LO 

QI 2060 IF IN*-"B7" THEN S<4,7>» 
NOT <S<4,7>> 'POSITION 30,1'? S 
<4, 7) -GOSUB CLD 

NA 2061 IF IN*-"B6" THEN S<4,6)- 
NOT <S<4, 6)) 'POSITION 30,2’? S 
<4, 6) -GOSUB CLD 

JS 2062 IF IN*-"B5" THEN S<4,5)« 
NOT <S<4, 5)) 'POSITION 30,3'? S 
<4, 5) 'GOSUB CLD 

GK 2063 IF IN*-"B4" THEN 8(4, 4>- 
NOT <S<4, 4)) -POSITION 30,4-? S 
<4, 4) 'GOSUB CLD 

DC 2064 IF IN*-"B3" THEN S<4,3)« 
NOT <S<4,3>) -POSITION 30,5'? S 
<4, 3) 'GOSUB CLD 

ZU 2065 IF IN*«"B2" THEN S<4,2)- 
NOT <S<4, 2)) -POSITION 30,6'? S 
<4, 2) -GOSUB CLD 

WM 2066 IF IN*«"B1" THEN S<4,1>- 
NOT <S<4,1>) POSITION 30,7'? S 
<4, 1) -GOSUB CLD 

TE 2067 IF IN*«"B0" THEN S<4,0)« 
NOT <S<4,0)> -POSITION 30,8-? S 
<4, 0) GOSUB CLD 

ZL 2070 IF IN*- "PWYK" THEN GOSUB 
PWYK 

EY 2072 IF IN*- "SWYK" THEN GOSUB 
SWYK 


RE 2980 IF BLflD® 1 THEN GOSUB BUZZ 
US 2989 BLflD=0 
WC 2990 NEXT ZZZ 
HC 5080 REM REG REGISTER SET 
KY 5010 IF fl <0 OR fi>3 THEN BLflD* 1 
II 5020 IF R>0 OR R<4 THEN POSITI 
ON 24,9:? fl 
GV 5030 C*fl : REM S(C,B> 

MG 5040 GOSUB REJWYS 
OF 5088 GOSUB CLD' GOSUB CLX 
BE 5090 RETURN 

LV 5100 REM ZNI POZIOM ZNIEKSZTRL 
CEN 

KZ 5110 IF fl<0 OR fi> 14 THEN BLflD* 
0:GOTO 5180 

IK 5112 IF INT(fl/2)-fl/2<>0 THEN B 
LflD=l ; GOTO 5180 

BC 5120 D1*A*16 

GS 5130 POSITION 21,10'? " 

LH 5135 POSITION 21,10'? fl 
QC 5140 SCC,l)"Dl'S(C,5>*fl 
Jft 5170 S(C,8)-A 
NB 5180 GOSUB CLD' GOSUB CLX 
BG 5190 RETURN 

RG 5200 IF fl<0 OR fl>255 THEN BLflD 

-1 

LN 5218 POSITION 21,11'? " 

LF 5220 POSITION 21,11'? fl 
GI 5230 S(C, 2)=fl 
ND 5280 GOSUB CLD 'GOSUB CLX 
BI 5290 RETURN 

EE 5300 REM FRC SET FORCE BIT 
XU 5310 fl=INT(fl) 

FB 5315 IF fl<0 OR fl>3 THEN BLflD® 1 
'GOTO 5380 


LK 5320 S(fl,3>* NOT S(fl,3) 

KT 5350 POSITION 21,12'? S(C,3) 

DB 5380 GOSUB CLD 
BK 5390 RETURN 

YV 5400 REM WYL WYŁĄCZENIE DŹWIĘK 
U 

PS 5410 POKE 53761,0'POKE 53763,0 
'POKE 53 .55,0 'POKE 53767,0 
DD 5480 GOSUB CLC 
BM 5490 RETURN 

MC 5900 REM CLD KASOWANIE POZYCJI 
D 

WD 5910 POSITION 5,15'? " 

BW 5990 RETURN 

TH 6000 REM CLX KASOWANIE POZYCJI 
X 

VH 6010 POSITION 5, 14'? " 

" , R=0 

BF 6090 RETURN 

MX 6100 REM GLO USTAWIENIE GŁOŚNO 
SCI 

OK 6110 IF fl<0 OR fl> 15 THEN BLflD® 
1 ■ GOTO 6180 

ZZ 6120 POSITION 21,13'? " 

MY 6122 POSITION 21,13'? fl 

HB 6130 S(C, 4)=A 

NC 6180 GOSUB CLD 'GOSUB CLX 


JG 6326 IF fl«3 THEN POKE 53767,S( 
3,1) +8 <3, 4)' POKE 53766,3(3,2) 
MP 6380 G^SUB CLX' GOSUB CLD 'GOSUB 
pc TLJY^i 

BL 6390 RETURN 
VD 6400 REM START 
AG 6410 FOR 1*1 TO 8 'POSITION 30, 
I'? "0" ‘NEXT I 
BN 6490 RETURN 

ZC 6500 REM REJWYS WYŚWIETLENIE R 
EJESTRU 


IY 

6505 

POSITION 

21,12 

? 

u n 

LH 

6506 

POSITION 

21,12 

? 

S(C, 3) 

KW 

6510 

POSITION 

21,11 

? 

u u 

IW 

6511 

POSITION 

21,11 

? 

S(C,2) 

KG 

6520 

POSITION 

21,10 

? 

u u 

MV 

6521 

POSITION 

21,10 



CG 

6522 

? S(C, 1 )/16 



MO 

6530 

POSITION 

21,13 

? 

u u 

MG 

6531 

POSITION 

21,13 

? 

S(C, 4) 

BP 

6590 

RETURN 




LM 

6600 

REM BUZZ 




HO 

6610 

? CHR*(253) 



BR 

6690 

RETURN 




IT 

6700 

REM PWYS 

WYŚWIETLENIE DAN 


YCH POKE 

QW 6705 GOSUB EWYS 
RN 6710 POSITION 20,18'? "POKE 53 
768, " ; SUM 

XC 6720 POSITION 2,19'? "POKE 537 
61, ">S(0, 1 )+S<0, 4) 'POSITION 2 
0,19'? "POKE 53760, ";S(0,2) 

MX 6730 POSITION 2,20'? "POKE 537 
63, ", SCI, 1)+S<1, 4) 'POSITION 2 
0,20'? "POKE 53762, "jS(l,2) 

FE 6740 POSITION 2,21'? "POKE 537 
65, "JS<2, 1)+S<2,4) 'POSITION 2 
0,21'? "POKE 53764, ";S(2,2) 

XL 6750 POSITION 2,22'? "POKE 537 
67, ";S<3, 1)+S<3, 4) 'POSITION 2 
0,22'? "POKE 53766, ";SC3,2) 

DK 6780 GOSUB CLD 
BT 6790 RETURN 

NK 6800 REM SWYS WYŚWIETLENIE DAN 
YCH SOUND 

QY 6805 G0SU8 EWYS 
XF 6810 FOR 1*0 TO 3 
NS 6820 POSITION 2,19+1'? "SOUND 
"iii", "iS<I,2)i", " , S< I , 8) , " , 
";S(I,4) 

FT 6830 NEXT I 
DM 6880 GOSUB CLD 
BV 6890 RETURN 

WG 6 fwYS REM EWVS KRS0WflNIE PWYS 4 

XY 6910 FOR 1*0 TO 4 

MR 6920 POSITION 0,18'? CHR*<156) 

FY. 6940 NEXT I 

BX 6990 RETURN 

ET 7000 END 


AUDF24ub AUDF3 z AUDF4). Umożliwia lo wybór 
jednego gtosu 16-bitowego i dwóch ośmiobito- 
wych, lub dwóch głosów szesnastobitowych. Za to 
możliwe jest uzyskanie częstotliwości wyjściowej 
mniejszej niż 1 Hz. 


BH 6190 RETURN 

BW 6200 REM POKAUD POKE"~WARTO$C A 
UDCTL 

BO 6208 SUM*0 
ZJ 6210 FOR 1=0 TO 7 
UC 6220 IF S<4, I )=1 THEN SUM=SUM+ 
2 y 'I 

FH 6230 NEXT I 
NU 6240 POKE 53768, SUM 
BJ 6290 RETURN 

ZW 6300 REM STA WŁĄCZENIE KANAŁU 
DŹWIĘKOWEGO 


ev 6310 GOSUB POKAUD 
RU 6320 IF A=0 THEN POKE 5376 1,S< 
0, 1 )+S<0, 4) ' POKE 53760, S<0, 2) 
MK 6322 IF A*1 THEN POKE 53763, S< 

1 . 1 ) +S< 1,4)' POKE 53762, S< 1,2) 
Yfl 6324 IF A=2 THEN POKE 53765, S< 

2. 1 ) +S<2, 4) ' POKE 53764,8(2,2) 


W takim przypadku nie możemy już używać ins- 
trukcji SOUND, która niszczy ustawienia dla dźwię- 
ku 16-bitowego. Musimy zatem poznać inny spo- 
sób sterowania dźwiękiem. Trzeba używać ins- 
trukcji POKE zamiast SOUND. Nie jest to żadnym 
próbtemem, ponieważ możemy zdefiniować do- 
kładną równoważność do SOUND następująco; 

Do łączenia rejestrów częstotliwości wykorzy- 
stujemy odpowiednie ustawienia bitów rejestru 
AUDCTL, w szczególności bitów 3 i 4. Ustawienie 
bitu 4 (POKE 53768,16) łączy rejestry częstotli- 
wości AUDF1 i AUDF2, a ustawienie bitu 3 (POKE 
53768.8) — rejestry AUDF3 i AUDF4. Dodatkowo, 
dla uzyskania pełnego zakresu częstotliwości wyj- 
ściowych. niezbędne jest włączenie zegara o czę- 
stotliwości 1.79 MHz (a dokładniej 1.78979 MHz), 
a zatem POKE 53768,80 dla połączenia kanałów 1 
i 2 oraz POKE 5376%! 20 dla połączenia kanałów 
1 i 2 oraz 3 i 4. 

Zmienia się również nieco wzór dla określenia 
częstotliwości wyjściowej: 
fwy = (zeg/(2 X (256 X N2 + NI + 7)) 


gdzie: N2 i NI są zawartościami rejestrów często- 
tliwości, drugi rejestr pary jest młodszym bajtem, 
AUDF2 łub AUDF4 

Nowymi głosami Wiożemy sterować następują- 
co: 

Głos 1 + 2; 

POKE 53760, NI POKE 53762, N2 POKE 
53763, 16 * Z + G 
Glos 3 + 4: 

POKE 53764. NI’: POKE 53766.N2 POKE 
53767, 16 * Z + G 

Odwrotnie, jeżeli chcemy określić, jakie wartoś- 
ci należy wstawić do rejestrów częstotliwości w 
celu wygenerowania dźwięku o wybranej często- 
tliwości, możemy rozwiązać (lub zlecić kompute- 
rowi) następujące równania: 

N2=INT((lzeg/(2Xtwy)— 7J/256) 

N2--INT((lzeg/(2Xfwy)— 7)— 256XN2+0.5) 

W celu wygenerowania nuty O częstotliwości 
440 Hz otrzymujemy N2 = 7 i NI = 235 i wsta 
wiamy je do rejestrów W rezultacie uzyskujemy 
częstotliwość 439,97 Hz — bardzo dobre dostro- 
jenie. 

Rejestr sterujący niższego kanału nie jest uży- 
wany i powinien być ustawiony na zero. Głośność 
sterowana jest zawartością drugiego rejestru ste- 
rującego (AUDC2 lub AUDC4). 

Program nr 1 demonstruje uzyc-ie dwóch mani- 
pulatorów do sterowania częstotliwością jednego 
głosu o wysokiej rozdzielczości i jednego „normal- 
nego" Wyświetla on na ekranie odpowiednie rów- 
nania i aktualizuje na bieżąco zmieniane w nich 
parametry. Można zaobserwować, jakim zakresem 
sterowania dźwiękiem dysponujemy w każdym 
przypadku. 

Program nr 2 umożliwia nam eksperymentowa- 
nie z różnymi skalami nut — używając najlepszej 
normalnej aproksymacji, a następnie wykorzystu- 
jąc sterowanie dźwiękiem o wysokiej rozdziel- 
czości. 

— 4»st*ukGje obsługi programów wyświetlane są 
na ekranie. 

Programy nr 3 i 4 są procedurami w języku ma- 
szynowym, które ułatwiają korzystanie z dźwięku o 
wysokiej rozdzielczości z BASICu. Pierwszy z nich 
wykorzystuje jeden głos 16-bitowy i dwa ośmiobi- 
towe, a drugi dwa głosy szesnastobitowe. 
SOUND 0,0, 0,0 na początku każ k dej procedury 
inicjuje układ POKEY dla dźwięku POKE 53768. X 
ustawia zawartość rejestru AUDCTL dla dźwięku 
1 6-bitowego, jednego lub dwóch głosów. Pamię- 
tajmy, że dowolna instrukcja SOUND. wykonana 
później, wyzeruje ten rejestr. 

W celu użycia tych procedur, należy skopiować 
jedną z nich dla własnego programu i wykonać 
GOSUB 20100 (raz, na początku programu) Pó- 
źniej, dla uzyskania dźwięku, należy wywołać pro- 
cedurę w języku maszynowym: 

X — USR(ADR(HF1$),N1,G1,N2,G2,N3,G3) 
lub 

X-USR(ADR(HF2$),N1 ,G1 ,N2.G2) 

Nx jest określeniem częstotliwości dźwięku, a Gx 
— głośnością. NI jest głosem 16-bitowym w pro- 
cedurze trzygłosowej. Nie musimy przekazywać 
parametrów dla nieużywanych głosów. Na przy- 
kład, jeśli chcemy usłyszeć tylko dźwięk 1 6-bitowy 
w procedurze trzygłosowej, możemy użyć X = 
USR(ADR(HF1 $),N1 ,G1 ), lecz dla użycia tylko 
głosu ośmiobitowego musimy dać: X = USR 
(ADR(HF1 $),0,0,N2.G2). 

Zamieszczona poniżej tablica prezentuje naj- 
bardziej dokładne wartości nut dla czterech oktaw 
ośmiobitowych i dziewięciu oktaw 1 6-bitowych. 

Praktycznie pierwsza oktawa nut 1 6-bitowych 
nie nadaje się do wykorzystania, ponieważ pow- 
stają pewne dźwięki harmoniczne, które maskują 
odtwarzaną aktualnie nutę. 

Bity 1 i 2 AUDCTL sterują filtrami górnoprzepu- 
stowymi w kanałach 2 i 1 odpowiednio.' Filtr gór- 
noprzepustowy umożliwia przejście tylko wyższym 
częstotliwościom. W przypadku tych filtrów wyższe 
częstotliwości zdefiniowane są jako będące nieco 
wyższe niż wyjście innego kanału wybranego 
przez kombinację bitów AUDCTL. Na przykład, jeś- 
li dźwięk w kanale 3 naśladuje ryk krowy i usta- 
wiony jest drugi bit AUDCTL, wtedy tylko dźwięki o 
częstotliwościach wyższych od tego ryku będą 
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słyszane w Kanale 1 (niższe częstotliwości będą 
odfiltrowane). 

Filtr może być programowany na bieżąco, po- 
nieważ kanał filtrujący może być zmieniany „w lo- 
cie" Daje to programiście duże możliwości. Filtry 
używane są głównie do tworzenia efektów spe- 
cjalnych. Dla przykładu sprawdźmy następujące 
instrukcje: 

SOUND 0,0, 0,0 
POKE 53768,4 

POKE 53761.168: POKE 53765.168 
POKE 53760,254 POKE 53764,127 
Bit 7 AUDCTL przełącza licznik 1 7-bitowy na 9- 
-bitowy, Im krótszy licznik, tym częściej powtarza 
się jego wzór zakłóceń lub jest bardziej dostrze- 
galny. Żalem zmieniając licznik 1 7-bitowy uczy- 
nimy wzór zniekształceń bardziej powtarzalnym 
lub bardziej dostrzegalnym. Spróbujmy wykonać 
następujące instrukcje, słuchając uważnie, kiedy 
wykonywana jest instrukcja POKE: 

SOUND 0,80,8,8 użycie licznika 1 7-bitowego 
POKE 53768,128 zmiana na licznik 9-bitowy 
Podsumowanie 

Dźwięk jest jedną z najciekawszych i jedno- 
cześnie najtrudniejszych do poznania możliwości 
komputera Atari. Istnieją cztery niezależne kanały 
dźwiękowe, których częstotliwość, zniekształcenie 
i głośność mogą być sterowane niezależnie. Są 
one adresowane przez instrukcję SOUND za po- 
mocą liczb 0 do 3. Dane o dźwięku mogą być nie- 
zależnie wstawiane (POKE) do rejestrów o adre- 
sach 53760 do 53767. Komórki nieparzyste steru- 


ją głośnością i zniekształceniem, a parzyste steru- 
ią częstotliwością Rejestr 53768 (AUDCTL) steru- 
je wszystkimi kanałami dźwiękowymi w określony 
sposób. Jeśli użyjemy instrukcji SOUND. dowolne 
zmiany, które zostały zrobione w AUDCTL. są ze- 
rowane — AUDCTL ustawiany jest na zero. Zatem 
instrukcja SOUND nie zapewnia pełnego wyko- 
rzystania możliwości dźwiękowych komputera 

Program nr 5 przeznaczony jest do demonstracji 
przedstawionych powyżej możliwości. Próbuje dać 
łatwe sterowanie wszystkimi parametrami. Wyma- 
ga nieco wprawy w obsłudze, lecz pozwala na to- 
talne sterowanie wszystkimi rejestrami plus 
AUDCTL, włącza kanały indywidualnie i wyłącza 
je wszystkie naraz. Kiedy otrzymane dźwięki od- 
powiadają nam, możemy wyświetlić odpowiednie 
instrukcje BASICu w postaci POKE albo SOUND. 

Po uruchomieniu programu na ekranie pojawia 
się szereg linii Pierwsze osiem z nich, oznaczone 
B7 do BO, reprezentują zawartości bitów rejestru 
AUDCTL. W celu zmiany siódmego bitu na 1 , na- 
leży wprowadzić B7 i RETURN. Dla zmiany z pow- 
rotem na zero, wprowadzamy B7 i RETURN. Są to 
zmiany techniczne, które me dają wskazań, jak 
będzie brzmiał nowy dźwięk. Najlepiej ekspery- 
mentować 

■ Dla omówienia następnych pięciu linii musimy 
przejść w dół, do linii oznaczonych D i X. Program 
przyjmuje dwa typy danych: komendy i liczby. Jeśli 
chcemy mieć liczbę, wprowadzamy ją i naciskamy 
RETURN. Jeśli komendę, to postępujemy podob- 
nie. W celu wybrania zerowego kanału dźwięko- 
wego wprowadzamy następujący ciąg: 0. RE- 


TURN, REJ. RETURN. Zero |X)jawi się na ekranie 
po REJ ESTR DŹWIĘKU. Dla uzyskania czystego 
tonu wprowadźmy: 1 0.RETURN, ZNI, RETURN 10 
pojawi się po ZNI EKSZTALCENIE. Podobnie: 
100. RETURN, CZE. RETURN, 8, RETURN. GLO. 
RETURN, wypełni pSłóstałe linie 
Dla usłyszenia dźwięku musimy wprowadzić. 
0, RETURN, STA, RETURN a dla wyłączenia WYL, 
RETURN. Aby zobaczyć wartości POKE dla tego 
dźwięku, należy wprowadzić PWYK. RETURN i na 
ekranie pojawi się wykaz dziewięciu instrukcji 
POKE. Możemy skopiować je do naszego progra- 
mu, aby odtworzyć dźwięk, który usłyszeliśmy. 
Prawy górny POKE dotyczy rejestru AUDCTL Na- 
stępne cztery wiersze są kanałami 0 do 3 — lewa 
kolumna dotyczy zniekształcenia i głośności, a 
prawa — częstotliwości każdego kanału. 

Jeśli zawartość rejestru AUDCTL jest zerowa - 
zerowe wartości bitów BO do B7 - wtedy mogą 
być używane instrukcje SOUND. Aby je zobaczyć 
wprowadźmy SWYK. RETURN 
Wyjście „wymuszone występuje w rejestrach 
nieparzystych i wytwarza „trzask" w głośniku. Jest 
on włączany i wyłączany za pomocą WYW, RE- 
TURN. Kanały dźwiękowe muszą być włączane 
Indywidualnie za pomocą komendy STA. WYL wy- 
łącza wszystkie kanały. Jeśli dokonamy zmiany i 
chcemy ją usłyszeć, wprowadzamy numer kanału 
i STA. 

Tomasz MROWIEĆ 
Ludwik PIELA 


Oszczędzajmy czas - „ZX Spectrum” 


Zadanie było proste: ułożyć z dwudziestu znaków graficznych 
UDG komputera Spectrum wzór kobierca W celu uzyskania sy- 
metrii należało podzielić zasoby znaków UDG na 4 grupy po 5 zna- 
ków, symetrycznych względem osi poziomej i pionowej. Wystar- 
czyło zdefiniować tylko 5 znaków po 8 bajtów (64 punkty), a na- 
stępnie powtórzyć je w odbiciach zwierciadlanych względem obu 
osi symetrii. 

ABCDE I JIHGF 
ONMLK I PORST 

Odwrócenie w stosunku do osi poziomej nie było trudne — wy- 
starczyło wpisać 40 bajtów odpowiadających znakom ABCDE w 
odwrotnej kolejności. Trudniej było z odwróceniem w stosunku do 
osi pionowej — tu należało rozbić bajty na poszczególne bity, a 
następnie złożyć z nich odwrócone „antybajty". Przypominam, że 
wartość liczbowa bitów w bajcie odpowiada kolejnym potęgom 
liczby 2. 

W pierwszej próbie (wiersze 1000—1020) rozbito generowa- 
ne przez generator liczb losowych RND bajty o wartości 0—255 
na poszczególne bity metodą rachunkową dzieląc je przez kolejne 
potęgi liczby 2, a następnie złożono w odwrotnej kolejności, mno- 
żąc przez kolejne potęgi dwójki. W końcu wprowadzono obliczone 
antybajty przez POKE w odpowiednie komórki pamięci UDG. Po- 
zostało tylko wydrukowanie (wiersz 800). 

Program jest napisany poprawnie, ale wskutek użycia pętli 
FOR— NEXT i podnoszenia dwójki do kolejnych potęg trwał nie- 
znośnie długo — ponad dwie minuty, 

W drugiej próbie (w. 2000 — 2020) wygenerowano od razu bity 
(zera lub jedynki) i złożono z nich kolejne bajty i antybajty. Przys- 
pieszyło to działanie programu o 28 sekund, ale tak pozostały le- 
szcze 92 sekundy — o wiele za długo, jak na tak krótki program. 

W trzeciej próbie (wiersze 3000—3020) ułożono na początku 
tabelę kolejnych potęg dwójki. Dało to od razu 4-krotne przyspie- 
szenie programu. Program wraz z generacją tabeli trwał 23 sekun 
dy, powtórzenia o sekundę krócej. 

Skoro tabela potęg dała lak dobre wyniki, należało spróbować 
stworzyć tabelę antybajtów (wersja trzecia). Obliczanie takiej tabe- 
li trwało ponad dwie minuty, ale potem kolejne mutacje kobierca 
powstawały po prawie 3 sekundach. W ten sposób (wiersze 
4000—4030) wyczerpaliśmy możliwości metod rachunkowych 
BASIC-a. Szybciej można by w asemblerze, ale to już zupełnie in 
na historia 

W piątej wersji (wiersze 5000—5020) zastosowano trick grafi- 
czny: kolejne bajty wprowadzono do pamięci ekranu pod adresem 


22432 (lewe dolne naroże ekranu), a następnie odczytywano 
punkt po punkcie przez POINT (x, y) i sumowano w antybajty 
wprost bez użycia pętli. Dzięki temu skrócono generację zestawu 
znaków do 4 sekund. 

Ale to jeszcze nie koniec. 

Dzięki omawianemu .już trickowi graficznemu w ciągu 17 se- 
kund stworzono tablicę antybajtów i zapisano w pamięci pod 
adresem 60000—60255. Ta wersja programu (szósta — wiersze 
6000—6030) Iworzy kolejne mutacje kobierca co 2,65 sek. Chyba 
nieźle? A może uda się jeszcze komuś urwać kawałek sekundy? 
Czekamy na pomysły Czytelników. 

W wierszach 9000—9020 znajduje się prosty program „wyplata- 
jący" wzór kobierca. Wzór ten składa się z dziewięciu pasów po 64 
znaki (a/$) i z dwóch pasów skrajnych (c/$). Przez kombinację tych 
pasów uzyskuje się 704-znakowy wzór d/$ Oczywiście zawartość 
a/$ i c/$ wprowadza się w trybie graficznym (kursor "G"). Wzór 
ten w postaci pierwotnej-literowej można zobaczyć tylko raz. 
bezpośrednio po wygraniu programu z kasety. Potem znaki UDG 
zamieniają się w mozaikę punktów. Na wszelki wypadek jest w 
programie wiersz 400, przywracający w razie potrzeby pierwotną 
postać znaków UDG. Uruchamia się go przez GO TO 400 

Pozostaje jeszcze wiersz 9999 zapisujący program na taśmę i 
sprawdzający poprawność zapisu. 

Jeszcze jedna propozycja dla Czytelników: Kto wymyśli prosty 
sposób, jak każdej czwórce znaków UDG (np. AFOT lub EJKP) 
przyporządkować jeden z pięciu kolorów? 

Jan RUBINOWICZ 
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230 LET' we 

~3 : GO 

SUB 
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GUB 8O0 
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£40 LET' we 

“4 ; G u 

SUB 

500 : 

GO SU 
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B 4.000: GO SUB 300 
245 BEEP .02,14.. FOR rai TO 5. 
GO 5U8 4-020 : GO SUB 800 Gu 5UB 
600 : NEXT r 

-250 LET we=5: GO SUB 500: GO SU 
e 5000. GO SUB 300 
255 BEEP .02.14: FOR rai TO 5: 
GO SUB 5000. GO SU8 300: Gu 5UB 

600. NEXT r 

260 LET w-S =6: GO SUB 500 GO SU 

B 6000 ■ GO SUB 300 
26S BEEP .02,14: FOR fal TO 5: 

GO SUB 6020: GO SUB 800: GO SUB 

600 : NEXT r 

270 GO TO 210 

400 FOR r,a0 TO 167: POKE 65363+ 
n , PEEK i 15880 +n ) : NEXT r. : GO TO 

800 

500 BEEP .02,14- PRINT hT 5,10; 
BRIGHT i, FLASH 1," UERSJR ** , W 
e ; ’* : RETURN 

60O PRINT BRIGHT 1;RT 21,0; f : R 
ETURN 

30O PRINT RT 0,0. BRIGHT l;d»: 
RETURN 
999 REM 

wersja l - odwracanie bajtów 
1000 FuR ii s0 TO 39: LET bt=INT ( 
RND 42-56) : LET .ibt=0 
1010 FOR bM TO % LET P«(bt/2tb 
- IHT (bt/Stb) ) > .5: LET abt=abt+2 
*P*2t(7-b): NEXT b 

1020 POKE (65363+tt ) , bt . POKE (65 
403+w.j ,abt . POKE (65437 -ni ) , bt . P 
OKE (65527 -tt) , abt : NEXT tt 
1030 RETURN 

1999 REM 

wersja 2 - składanie z bitów 

2000 FOR TO 39: LET bt=0: LE 

T a b t a0 : 

2010 FOR ba0 TO 7: LET a = INT (RN 
0*2): LET bi t ■ (2t b> *a : LET btabt 

+ bi t : LET a bi t a (2t (7- b) ) *a . LET 
a bt aa bt +a bi t : NEXT b 
2020 POKE ( 65363 4tt ) , b t POKE (65 


, bt : P 


LET 


tabe<.a an ty baj to w 

=1 TO 8: LET 


408+ft)ł,abt: POKE (65487-m), 

OKE (65527-tt) ,abt : NEXT W 

2030 RETURN 

2999 REM 

wersja 3 - tabela potęg 

3000 DIM k ( 8 ) : FOR nsl TO 8 : 

k (n) »2t (n- 1 ) : NEXT n 

3010 FOR fti=0 TO 39: LET bt=0: LE 
T abt =0 : FOR bal TO 8: LET a«INT 
(RND *2) : LET bi t «#. ( b) *a : LET bt 
= b t + b i t : LET a b i t a K (9 - b) *a : LET 

abt a«bt +abi t : NEXT b 
3020 POKE (65363+tt) , bt : POKE (65 
403+fli ) , a bt : POKE ( 65437 -HU , bt : P 

OKE (65527-tt) , abt : NEXT tt 
3030 RETURN 

3999 REM 
wersja x - 

4000 DIM K. ( 6 ) : FOR 

K (n) a2t (n) : NEXT n 

4010 DIM t (256) : DIM P (3) : FOR a 
=1 TO 256: LET t(a)=0: FOR b=l T 

O 8 : LET P (b) * ( (a-l) /K (b) -INT (( 

a-l) /k (b) ) ) >.5: LET t(a)at(a)+(. 
5*P (b) *K (9-b) ) : NEXT b: NEXT a 

4020 FOR #i=0 TO 39: LET btaINT ( 
RND *256) : LET abt*t(bt + l) 

4030 POKE (65366411) ) , bt : POKE (65 

4 0 S + Ki ) .abt: POKE (65487-m ), bt : P 
OKE i 65527 -ft) ) , a bt *. NEXT tt 
4040 RETURN 

4999 REM 

wersja 5 graf. odwraca nie bajtów 

5000 FOR ft) =0 Tu 39. LET btsINT ( 
RND *256) : POKE 22432, bt 

5010 LET abt =P0 INT (0,0) +2 *P0 INT 
(1 ,0) +4*P0INT (2,0) *3 *POINT (3, 
0) 4l6*PuINT (4 ,0) 432*P0INT (5,0) 
+64 *POINT (6,0) +1£3*P0INT (7,0) 
5020 POKE (65368+0.) , bt : POKE (65 

408 +tt ) , a b t : POKE (65487-tt > , u t : P 
OKE (65527-tt) , abt : NEXT tt 
5030 RETURN 

5999. REM—- - - - . . . 

wersja 6 graf. Ta bel a anty baj to w 
6000 FOR n »0 TO 255 POKE 22432, 
n 

6010 LET taPOINT (0 . 0.1 +2*POINT ( 
1 , 0 ) +4* PO INT (2,0) +8*P0INT (3,0) 

+ 16 fcPOINT (4,0) +32*PQINT (5,0) +6 
4*P0INT ( 6 . 0) +1284P0INT (7.0)- P 


OKE D 0000 +n , t : NtX I n 

8020 FOR ft) a 0 TO 39 : LET bt»INT ( 

RND *256 ) : LET abtaPEEK (60000 + bt 

) 

6030 POKE (65363+tt) , bt : POKE (65 
408+tt ) , a bt : POKE ( 65487 -tt ), bt P 

OKE (65527-tt) , abt • NEXT tt 
6040 RETURN 

8999 REM 

wyplatanie wzoru 

9000 LET a*= 

FRBCDEJ IHGFRBCDE J IHGF RBCDEJ IHGFh 
T C N M L K P O R 5T O N MLKPORST O N MLKPGRSTO 

9010 LET b4a““ FOR tt=l TO 9 LE 
T bS = b$ + a $ : NEXT ft) 

9020 LET c*a 

FRFRFRFhFRFRFRFRFRFhFRFRFRFRFhF R 
T OT OT OT OT OT OT OT OT OTOT OT OT OT OT OT O 
LET dS = .;S + b* + C$ 

9030 RETURN 

9999 CL 5 : SRUE “KOBIERZEC*’ LINĘ 
100. BEEP 1 , 2 : PRINT “Uerify: 

KOBIERZEC* : UERIFY “KOBIERZEC** 
GCł TO 100 
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Tajemnice matematyki 

Arytmetyka modulo 
liczba całkowita (1) 


Mówiąc o arytmetyce mamy zwykle na myśli umie- 
jętność wykonywania podstawowych działań doda 
wania i mnożenia na dowolnych liczbach. Arytmety- 
ka modulo liczba całkowita zajmuje się działaniami 
na pewnej skończonej grupie liczb. Przykładowo 
arytmetyka modulo 7 dotyczy liczb 0, 1 , 2. 3, 4, 5, 6, a 

arytmetyka modulo 1 1 liczb 0,1 .2 1 0. Łatwo zauwa 

żyć, że są to wszystkie możliwe reszty otrzymane z 
dzielenia dowolnej liczby całkowitej przez liczbę wy 
braną jako moduł. Wynikiem dodawania bądź mno 
żenią liczb modulo liczba całkowita np. 7, jest reszta z 
dzielenia sumy bądź iloczynu przez 7, np. (2 4- 8) 
mod 7 = 3, (2 ** 4) mod 7 = 1 . Z arytmetyką mo- 
dulo 24 mamy do czynienia przy odczytywaniu go- 
dzin, gdzie dopuszczalne są wyniki z przedziału 
[0,23 J. Dni liczymy modulo 7, gdzie zerowym dniem 
jest niedziela, pierwszym poniedziałek, a szóstym 
sobota. 

Program nasz podaje przykłady dodawania i mno- 
żenia modulo liczba całkowita, sprawdza umiejęt- 
ność' operatora programu i ocenia, czy może on 
przej >ć do programu matematycznie bardziej skom- 
plikowanego, tj. do twierdzenia Fermata. 

A.T. 

10 PEN arytmetyka modulo 
20 INPUT ‘liczymy (t/n>";x$ 

30 IF x$="t" THEN GOTO 60 
40 IF «|<>V THEN GOTO 20 
50 GOTO 420 

60 PRINT ‘podać pr-zykłady obliczeń (t/n) ?' 

70 DEF FN «ip(x)=x-INT(x/nl >lnl 
80 DEF FN los(n)=INT<RNDU)«?)+n 
90 INPUT x$ 

100 IF x*=‘t n THEN GOTO 130 
110 IF x*OV THEN GOTO 60 
120 GOTO 220 
130 nl=FN3cs(2) 

140 PRINT ‘arytmetyka modulo ‘;nt 
150 n2=FNlos(l) 

160 n3=FNlos(l) 

170 x=n2+n3 
180 y=n2tn3 

190 PRINT n2;‘ + "j n3; " mod "jnlj ‘ = ";FN«p(x) 

200 PRINT n2;‘ I “:n3;" mod *;nl;‘ * 'jFNiply) 

210 GOTO 60 

220 PRINT 'sprawdzę czy tez potraf i sz " 

230 licz»0 
240 FOR i=l TO 5 
250 nl=FNlos(2) 

260 n2=FNlosd) 

270 n3=FNlosłl) 

280 PRINT "liczymy modulo ";nl 
290 PRINT n2|* + ‘;n3;‘ mod , ;nl;‘ = * 

300 x=n2+n3 
310 v=n2ln3 


320 INPUT a 

330 IF a=FNmp(x) THEN licz=licz+l:PRINT "dobrze* 

340 IF a<>FNmp(x> THEN PRINT ‘zle - spróbuj to :* 

350 PRINT n2j " t ";n3;‘ mod “:nl; ‘ = ?■ 

360 INPUT a 

370 IF a=FNmpfy) THEN lic:=licz+l: PRINT "dobrze' 

380 IF aOFNmp(y) THEN PRINT ‘zle‘ 

390 NEXT i 

400 IF licz<6 THEN PRINT "musisz jeszcze potrenować"; GOTO 20 
410 PRINT"mozesz przejść do programu : TWIERDZENIE FERMATA" 
420 END 
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Nasz pan profesor ma komputerową głowę. 
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Fortran w OR/IN/I 


Mimo że od wielu lat PASCAL wypiera z użytkowania język 
FORTRAN, to jednak w wielu centrach obliczeniowych wyposażo- 
nych w komputery ODRA, RIAD itp. ze względu na bogate 
oprogramowanie w tym języku, wiele programów pisze się nadal 
w języku FORTRAN. 

Przy dużym obciążeniu tych maszyn i wysokim koszcie użytkowa- 
nia, dostępność do nich jest ograniczona. Warto więc sprawdzić po- 
prawność działania opracowywanego programu na bardziej dostęp- 
nym Personal Computerze. 

Istnieje kompilator tego języka na komputery pracujące w systemie 
CP/M o nazwie FORTRAN-80. Jak wiele innych programów tak 
i ten dostępny jest na giełdach jednakże najczęściej bez opisu. Oto 
w skrócie podstawowe informacje o sposobie uruchamiania i użyt- 
kowania tego kompilatora. 

Pakiet oprogramowania FORTRAN-80 zawiera bloki o nazwach: 
F80 .COM L80 .COM 

FORLIB .REL 


Przykładowym zleceniem dla kompilatora jest: 

F80 -= PRÓG. FOR 

gdzie: PRÓG oznacza nazwę kompilowanego programu. 

Nakazuje ono: wczytaj kompilator F80, następnie program zawarty 
w bloku PRÓG. FOR, po czym skompiluj ten program, wypisz znale- 
zione błędy składniowe i zapisz postać wynikową na dysku w blok o 
nazwie PRÓG. REL. 

Znalezione błędy opisywane są komunikatami w języku angielskim 
podającym określenie błędu, numer linii, w której wystąpił oraz część 
tej linii. 

Jeśli w pierwszej części kompilacji nie wykryto błędów, można 
przystąpić do drugiego etapu. 

Teraz będziemy używać programu L80. Ma on za zadanie wyszu- 
kać wszystkie funkcje i podprogramy zewnętrzne, jakie zostały użyte 
w programie (należą do nich funkcje standardowe FORTRAN-u 
procedury drukowania itp.), dołączyć je do kompilowanego bloku, a 
następnie całość zapisać na dysku w bloku typu .COM. Przykłado- 
wym zleceniem jest: 

L80 PROG.PROG/N.PROG/S/E 


Pakiet ten porównywalny jest z kompilatorami tego języka na du- 
żych maszynach cyfrowych i minikomputerach. Posiada on pewne 
ograniczenia np. brak typu COMPLEX, ograniczenia w stosowaniu 
tablic itd. Mimo to wydaje się być pomocny w uruchamianiu nawet 
dużych programów. 

Pisanie i kompilowanie programów: 

Przystępując do pracy z kompilatorem radzę zrobić jego dodatko- 
wą kopię roboczą na innym dysku. Wszystkie powstające w kolejnych 
etapach kompilacji zbiory należy zapisać na ten dysk, gdyż kompila- 
tor musi komunikować się z podprogramami zawartymi w pliku. Ko- 
pia zabezpieczy Cię przed przypadkowym skasowaniem któregoś ze 
zbiorów kompilatora, i co się z tym wiąże, z jego utratą. 

Program yv języku FORTRAN piszemy w dowolnym wordproce- 
sorze dającym na dysku blok znaków kodu ASCII (znakomicie do 
tego celu nadaje się edytor języka TURBO PASCAL. Edytor tek- 
stów TASWORD lub inne). 

W stosowaniu musisz pamiętać, aby nazwę programu podać z roz- 
szerzeniem .FOR. oraz zachować właściwy FORTRAN-owi format 
wiersza. 

Kompilator pracuje w systemie CP/M., dlatego przed dalszymi 
czynnościami należy wprowadzić ten system do komputera. 


które nakazuje: 

wczytaj z dysku program L80, następnie blok PRÓG. REL., potrzebne 
procedury, utwórz w systemie CP/M blok o pazwic PROG.COM i 
zapamiętaj go na dysku. 

Czas przetwarzania pliku programem L80 jest stosunkowo długi, 
dlatego nic należy się zrażać faktem długiej pracy disc drive’u. 

W trakcie tej części kompilacji mogą pojawić się informacje o nie- 
zdefiniowanych zmiennych globalnych. Oznacza to, że na dysku nie 
znaleziono funkcji lub podprogramu, do którego odwoływano się w 
kompilowanym programie. Tak skompilowany program uruchamia 
się w systemie CP/M zleceniem: 

PRÓG. 

Podane tutaj zlecenia są zleceniami przykładowymi. Dokładniejsze 
informacje zarówno o kompilatorze, jego ograniczeniach i rozszerze- 
niach w stosunku do standardu AhfSI FORTRAN X3.9 — 1966, jak i 
różnych postaciach zleceń, można znaleźć w DOKUMENTACJI 
UŻYTKOWEJ KOMPILATORA FORTRANU I MAKRO- 
ASEMBLERA MACRO-80 DLA SYSTEMU CP/M dostarczanej 
wraz z kompilatorem przy zakupie od firmy zajmującej się sprzedażą 
oprogramowania. 

Ceny giełdowe kompilatora są w granicach 1000 — 2000 zł (bez do- 
kumentacji użytkowej). 

(Opracowano na podstawie „Dokumentacji użytkowej kompilatora 


Kompilacja przebiega dwuetapowo 

W pierwszym etapie przy użyciu kompilatora F80 tekst programu 
.irzckształcany jest w blok typu .REL, 

FORTRAN dla systemu CP/M.) 

Cezary DOBROWOLSKI 

Pojazd kosmiczny — CPC 61 28 

Helikopter -CPC 61 28 

10 ’ Pojazd kosmiczny 


20 INPUT-ILE RAZY POWTÓRZYĆ GLOS POJAZDU KOSKI- CZNE60" : 

10 ’ Helikopter 

30 FOR L?1 TO I 

20 INPUT 'ILE RAZY POWTÓRZYĆ GLOS HELIKOPTERA"! I 

40 ENV 1,1, 5, 1,1, -5,1 

30 FOR L=1 TO I 

50 FOR k = 7 Td 0. STEP -1 

40 ENV 1,5, 1,0.5, 1,-5, 0.5, 5, 3, 0.5, 1,-15, 0.5 

60 ENT -1,10, -i, 1,9, 1,0.5 

50 ' ENT -1,1,20,50 

70 SOUND 1,100, -100, k, 1,1 

60 ENU 2,5,1,100,1,0,255,5,-1,100 

80 NEXT 

70 ENT -2,10,1,0,5,10,-1,0.5 

90 NEXT 

80 g=l 

10 ’ Kukułka ' 

90 SOUND 10,758,-3,7,2,2,1 

20 I NPUT" ILE PAZY POWTÓRZYĆ GLOS KUKUŁKI'! I 

100 SOUND 17,50,-7,9,1,0,1 

30 FOR L=t TO' I 

110 FOR k:=i TO 50 

40 FOR k = 1 TO 2 

120 IF K15 AND 5<!5 THEN 9 = 9*1 

50 ENV 1,20,1,2 

130 IF k >35 AND g>0 THEN g=g-l 

60 SOUND 1,63,0,2,1 

140 SOUND 1,50, -7, 9 , 1,0,1 

70 SOUND 1,75,0,2,1 

150 NEXT 

00 SOUND 1,0,70 

160 NETT 

90 NEXT 


100 IfElT 



Mikrokomputery IBM PC ( J 

IBM Personal System 

Sześć lat temu firma IBM wprowadziła na rynek komputerowy model 
Personal Computer, wyposażony w mikroprocesor INTEL 8088 i pamięć 
zapisywalną RAM 64 KB — mikrokomputer, który stał się standardem 
światowym, powielanym przez setki firm zachodnioeuropejskich i azjatyc- 
kich. W ciągu kolejnych lat pojawiły się modele XT, AT, RT oraz klony tych 
modeli (kompatybilne z nimi), wyposażone w: 'mikroprocesory rodziny 
iAPX 86 (8088, 8086, 80186, 80286, 80386) i koprocesory; pamięć zapisywalną 
od 640 KB do 16 MB; dyski stałe o pojemności od 10 do 210 MB; stacje dy- 
sków elastycznych 5 1/4 cala jednostronne 160/180 KB, dwustronne 320/360 
KB i dużej pojemności 1,2 MB; karty graficzne Color Graphics Card (CGA) 
o rozdzielczości 320 X 200/640 X 200 punktów adresowalnych bezpośrednio 
(pixeli) przy 4 kolorach, Monochrotne Graphics Card (MA) o rozdzielczości 
720 X 348 pixeli, Enhanced Graphics Card (EGA) o rozdzielczości 640 X 350 
pixeli przy 16 kolorach, Enhanced Graphics Card Plus (EGA Plus) o roz- 
dzielczości 1280 X 1024 pixcli przy 256 kolorach; moduły i porty wejścia/- 
-wyjścia umożliwiające współpracę z różnego typu urządzeniami wejścia/- 
-wyjścia m.in. drukarkami, plotterami, digitizerami oraz pracę w sieci lokal- 
nej (LAN — Local Area NetWork). 


Rok 1987 i modele IBM Personal System/2, 
to prawdopodobnie kolejny krok w historii 
mikrokomputerów. Oto opis modeli 30, 50, 60 
i 80. 

Wymienione cztery modele mają kilka 
wspólnych cech. Firma IBM zdecydowała się 
na w prowadzenie mniejszych i trwalszych dy- 
skietek 3 1/2 cala, umożliwiających zapisywa- 
nie większej ilości informacji niż na dyskiet- 
kach 5 1/4 cala. Zapis może mieć pojemność 
720 KB lub 1,44 MB. 

Mikrokomputery wyposażono w pięć por- 
tów wejścia/wyjścia: dla klawiatury (typu mi- 
ni-DIN), dla myszki (typu ditto), dla monito- 
ra kolorowego (typu DIN) oraz równoległy 
CENTRONICS 'i szeregowy RS-232 C. 

Klawiatura mikrokomputerów posiada 102 
— klawisze. 

Modele 50, 60 i 80 wyposażone są w nowe 
układy scalone b. dużej skali integracji VLSI, 
wśród nich: VGA (Video Graphics Array) z 
pamięcią 256 KB; 16-kanałowy sterownik 
bezpośredniego dostępu do pamięci (DMA). 
Układ VGA umożliwia grafikę z rozdzielczoś- 
cią 320 X 200/640 X 480 pixeli w 256 kolo- 
rach lub monochromatycznie. Po kolejnym 
rozwiązaniu sprzętowym można będzie uzy- 
skać rozdzielczość 1024 X 768 pixcli w 256 
kolorach. 

Modele te wyposażone są w pamięć stałą o 
pojemności 128 KB, zawierającą CBIOS i 
ABIOS (w nich m.in. procedury BIOS-u Ba- 
sic Input Output System). Dla wymienionych 
modeli zostanie opracowany OS/2 (Operating 
System/2), przystosowany specjalnie do moż- 
liwości mikroprocesora 80286. 

Wszystkie modele mają możliwość dołą- 
czenia zewnętrznej stacji dysków elastycznych 
5 1/4 cala i stacji z zapisem laserowym 
WORM (Write-Oncc Read-Many) o poje- 
mności 200 MB. 

Kolejną wspólną cechą począwszy od mo- 
delu 30 to zastosowanie dysków stałych 3 1/2 
cala. W mikrokomputerach IBM PS/2 wyko- 
rzystano PC DOS 3.30. 

Model 30 wyposażono w mikroprocesor 
8086 pracujący z częstotliwością zegara 8 
MHz. Pamięć zapisywalna standardowo ma 
pojemność 640 KB. W pamięci stałej 64 KB 


zapisane są procedury CBIOS (kompatybilne 
z BIOS). Model 30 ma dwie wersje: 30 — 002 z 
dwiema stacjami dysków elastycznych 3 1/2 
cala o pojemności 720 KB oraz 30—021 z jed- 
ną stacją dysków elustycznych i dyskiem sta- 
łym 3 1/2 cala o poicmności 20 MB. Posiada 
on układ MCGA (Multi-Colour Graphics 
Array) umożliwiający pracę w trybie grafi- 
cznym z rozdzielczością 640 X 480 pixeli 
monochromatycznie i 320 X 200 pixcli w 256 
kolorach. 

Konfigurację systemu można rozbudować 
wykorzystując trzy łączówki 8-bitowcj magis- 
trali, zamontowane w płycie systemowej. 
Model 30 jest krokiem w ewolucji IBM 
PC/XT Ona wersji 30 — 002 L\ 106. 

Model 50 wyposażony jest w mikroprocesor 
80286 pracujący z częstotliwością zegara 10 
MHz. Pojemność pamięci zapisywalnej o cza- 
sie dostępu 150 ns standardowo 1 MB może 
być rozszerzona do 7 MB. Pamięć stała 128 
KB zawiera CBIOS i ABIOS. Model może 
posiadać jedną lub dwie stacje dysków elasty- 
cznych 3 1/2 cala o pojemności 1,44 MB oraz 
dysk stały 20 MB. Model 50 posiada układ 
VGA. System może być rozbudowany o trzy 


moduły dołączone do łączówek 16-bitowej 
magistrali mikrokomputera. Cena modelu z 1 
stacją dysków elastycznych i dyskiem stałym 
20 MB/. 2658. Model 50 pozwoli na pewno le- 
piej wykorzystać możliwości mikroprocesora 
80286 niż w IBM PC/ AT. 

Model 60 różni się od modelu 50 tym, że 
posiada większą pojemność pamięci zapisy- 
walnej i masowej oraz lepszą możliwość roz- 
budowy. 

Pojemność pamięci zapisywalnej może 
wynosić 15 MB, mikrokomputer może posia- 
dać dysk stały 44 MB (wersja 60-041) lub 70 
MB (wersja 60-071) oraz konfiguracja może 
być rozszerzona o siedem modułów. Jednost- 
ka centralna modelu 60 umieszczona jest w 
obudowie typu „wieża”, stawianej pionowo na 
podłodze. Cena wersji 60-071 1. 4464. 

Model 80 posiada trzy wersje: 80-041 i 80- 
-071 z mikroprocesorem 80386 pracującym z 
częstotliwością zegara 16 MHz oraz 80-1 1 1 z 
mikroprocesorem 80386 pracującym z czę- 
stotliwością 20 MHz. Pamięć zapisywalna o 
czasie dostępu 80 ns, standardowo o poje- 
mności 2 MB, może być rozszerzona do 16 
MB. Mikrokomputer w wersji 80-041 posiada 
dysk stały 44 MB, w wersji 80-071 dysk 70 
MB, a w wersji 80-111 dysk o pojemności 1 1 5 
MB. Konfiguracja systemu może być rozbu- 
dowana o trzy moduły — dołączone do 32-bi- 
towej magistrali i cz.tąiy — dołączone do 16- 
-bitowej magistrali, poprzez łączówki umie- 
szczone w płycie systemowej. Cena wersji 80- 
-041 L 4916, wersji 80-111 /. 7056. 

Z przedstawionymi wyżej modelami mogą 
pracować monitory kolorowe CD 8513 o 
przekątnej 12 cali lub CD 8512 o przekątnej 
14 cali. 

Wśród nowych drukarek, przeznaczonych 
do współpracy z IBM PS/2, można wymie- 
nić: IBM Proprinter II, X24, XI.241ub'lBM 
Quictwritcr III Printcr. 

Mikrokomputery IBM PS/2 to kolejna, nie 
ostatnia propozycja firmy. Rozwiązania mo- 
deli z uwagi na parametry są atrakcyjne i na 
pewno zadowolą użytkowników profesjonal- 
nych, którym wystarczy proponowana roz- 
dzielczość 1024 X 768 pixeli, pojemność pa- 
mięci operacyjnej i masowej oraz szybkość 
procesora i niezbyt długi czas dostępu do in- 
formacji. 

Mikrokomputery będą chyba z powodze- 
niem wykorzystywane do prac inżynierskich 
w małych i średnich systemach CAD, CAE i 
CAM, do prac biurowych i innych, których 
wymienić nic jest łatwo. 

Jacek WOJTALA 
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Procedury ROM SPECTRUM (2) 


Podstawową procedurą wydruku znaków na ekranie (drukarce) 
jest 16 Można ią wywoływać przez CALL 16. lecz warto pamię- 
tać. że specyfika mikroprocesora Z80 pozwala na stosowanie 
krótszych. 1 -bajtowych rozkazów RST 


4 PRINT 16 410 

CEL: wydruk znaku na ekranie, drukarce: 

WE A — kod znaku 

0 31 — kody kontrolne 

32 127 — kody znaków drukowalnych ASCII: 

128 143 — sermgrafika. 

144 164 — znaki użytkownika; 

165 .255 — słowa kluczowe (tokens); 

WY BC, DE HL. IX przechowane; używane rejestry pomoc- 
nicze (HL przechowane); 

Procedura 4 uwzględnia aktualny kanał (odczyt CURCHL), atry- 
buty ekranu (ATTR-T MASK-T). tryby ekranowe (PFLAG). bada 
zmienne CHARS i UDG Semigrafiki tworzone są w obszarze pa- 
mięci kalkulatora ..na gorąco Znaki o kodach 0.5. 7, 9.12. 
14 15, 24. .31 są drukowane jako znak zapytania 

5 PRINT OUT 2548 409F4 

CEL: jak w proc. 4; 

WE: jak w proc. 4; 

WY IX przechowane: używane AF . 

Procedura 5 może zastępować procedurę 4 wszędzie tam. 
gdzie me jest wskazane używanie rejestrów pomocniczych Nie 
odczytuje również zmiennej CURCHL 

6 POSITION FETCH 2819 #0B03 

CEL odczyt współrzędnych pozycji wydruku znaku na ekra- 
nie/ drukarce; 

WE: nieistotne; 

WY dla ekranu głównego lub edycyjnego: 

B — rząd fizyczny; 

C — kolumna fizyczna. 

HL — adres pola wydruku w pamięci ekranu (górny z 
ośmiu bajtów): 
dla drukarki 

C — pozycja w buforze drukarki wskazująca ilość znaków 
pozostałych do wydruku. 

HL — adres w buforze zawierający bajt do wydruku; 

flaga Z = 1 dla ekranu głównego: 

flaga Z = 0 dla ekranu edycyjnego i drukarki. 

A. DE. IX przechowane 

Procedura 6 dokonuje odczytu odpowiednich dla używanego 
kanału zmiennych systemowych 

— dla ekranu głównego S-POSN i DF-CC: 

— dla ekranu edycyjnego: S-POSNL i DF-CCL: 

— dla drukarki: P-POSN i PR-CC. 

7 POSITION STORĘ 2780 40ADC 

CEL; ustawienie pozycji wydruku znaku na ekranie lub 
drukarce; 

WE dla ekranu 
B — rząd fizyczny; 

C— kolumna fizyczna; 

HL — adres górnego pola bajtu w pamięci ekranu; 
dla drukarki 

C — pozycja fizyczna w buforze; 

HL — adres w buforze; 

WY: A, BC, DE, HL. IX przechowane; 


Procedury 6 I 7 stosują nieco mną konwencję współrzędnych 
ekranu niż użytkownik w BASICu. Przechodzenie jest stosunko- 
wo proste: 

rząd fizyczny = 24 — rząd logiczny (użytkownika) 
kolumna fizyczna = 33 — kolumna logiczna 
Przykład rozwieje ewentualne nieporozumienia: chcąc ustawić 
kursor w pozycji logicznej 4.5 (rząd. kolumna) dokonuje się na- 
stępujących operacji 


LD 

B.4 

LD 

C.5 

LD 

A, 24 

SUB 

B 

LD 

B.A 

LD 

A.33 

SUB 

C 

LD 

C.A 


;WY B.C — współrzędne fizyczne 


Ustawiając pozycję należy podać również adres, co może być 
czasem dużym utrudnieniem, które pomoże pokonać Procedu- 
ra 6 


8 C — ADDR 3739 «0E9B 

CEL obliczenie adresu pola znakowego dla podanego rzędu 

fizycznego 

WE B — rząd fizyczny 

WY HL — adres najwyższego z ośmiu bajtów pola wydruku 
flaga C = 0. BC. E. IX przechowane. 


Obliczenie adresu dla współrzędnych logicznych 4.5 wygląda 
następująco 


LD 

B.4 

LD 

C.5 

PUSH 

BC 

LD 

A.24 

SUB 

B 

LD 

B.A 

CALL 

CL ADDR 

LD 

B.O ’ 

ADD 

HL.BC 

POP 

BC 

CALL 

POS STORĘ 


Ostatnia lima ustawia pozycję kursora według zawartości rejes- 
trów BC (współrzędne) i HL (adres). Jeśli chcemy posługiwać się 
procedurą 8 podając współrzędną logiczną, to należy ią wywoły- 
wać pod adresem 40E9E i wprowadzać rząd w akumulatorze 


9 AT 8202 K200A 

CEL. ustawienie pozycji wydruku znaku: 

WE: B — kolumna logiczna (brak konsekwencji); 

C — rząd logiczny; 

WY jak w proc 4 


10 TAB 8220 »201C 

CEL ustawienie kolumny wydruku znaku. 

WE B — kolumna logiczna 

WY |ak w proc 4 
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Procedury 8 i 9 pozwalaj przesuwać kursor ekranu teksto- 
wego wedle zasad przyjętych w BASlCu Obie ubywają procedu- 
ry 4, więc są nieco wolniejsze od 7 TAB wydrukuje spacje od ko- 
lumny ostatniej pozycji do podanej 


11. PRINTCR 2639 W0A4F 

CEL: wysianie kodu 13 (KOD) na aktualny kanał; 

WE nieistotne: 

WY iak w proc 4. 

Na ekranie będzie to nowa lima. a w drukarce powrót głowicy i 
przesunięcie papieru o jedną linię (linę feed) Jeśli bufor byt 
częściowo zapełniony, nastąpi |ego wydruk. 


12 PRINT OUEST 2665 »0A69 

CEL wydruk znaku zapylania 

WE n.ęistotno 

WY jak w proc 4 

13 PRINT COMWA aQA5F 

CEL przeniesienie kolumny wydruku do następnej strefy 
(czyli do kolumny 0 lub 16) połączone z dodrukiem spacji. 

WE nieistotne, 

WY E, IX przechowane: używane rejestry pomocnicze 
IHL przechowane; 


Zamiennikiem instrukcji BASICa 


PRINT PAPER 4 INK 1 AT 5.2. A B 

będzie następująca sekwencia instrukcji w języku wewnętrznym 


LD 

A.33 

LD 

(ATTR T). A 

LD 

B.2 

LD 

C.5 

CALL 

AT 

LD 

A. „A" 

RST 

16 

CALL 

PR COMMA 

LD 

A. „B 

RST 

16 

CALL 

PRINT CR 


14 CL-SET 3545 « 0DD9 

CEL obliczenie adresu ekranu dla fizycznych wartości rzędu i 
kolumny oraz uaktualnienie pozycji wydruku: 


WE dla ekranu głównego: 
bit 1. (FLAGS) = 0: 
bit 0, (TVFLAG = 0: 

B— rząd fizyczny; C— kolumna fizyczna; 
dla ekranu edycyjnego; 
bit 0. (TVFLAG)= 1; 

B i C — |w. 
dla drukarki 
bit 1. (FLAGS) = 1: 

C— pożycia fiz w buforze drukarki; 

WY przez proc 7. BC. HL. IX przechowane. 

15 PRINTBACK 2595 # 0A23 


CEL: przesunięcie pozycji wydruku na ekranie/drukarce o 
jedną pozycję w lewo; 

WE B— rząd fizyczny; C— kolumna fizyczna; 

WY przez proc 14 


Procedura 15 powodująca cofnięcie pozycji, wydaie się pun ą. 
.gdy^rudno maczei wytłumaczyć szkolne błędy, jakie zawiera 
Brakuje możliwości cofania z pozyqi (1,0) do (0.31). przeo- 
czony został także szczególny przypadek cofnięcia w pozycji (0.0) 
Po uruchomieniu programu 

10 CLS: PRINT CHR$ B; 

20 PRINT PEEK 23688 

pozycja wydruku znaiduje się w obszarze atrybutów 1 
Pomzszy program rozwiązuje ten problem 


10 ; ** BACKSPACE 86 


20 ; GENS 

3M21 

assembler 

30 FETCH 

EQU 

« 0B03 

40 CL SET 

EQU 

# 0DD9 

45 ; 



50 

ORG 

60000 

60 START 

CALL 

FETCH 

70 

LD 

A. 33 

80 

CP 

C 

90 

JR 

NZ. NZERO 

100 

LD 

A. 24 

110 

CP 

B 

120 

RET 

Z 

130 NZERO 

INC 

c 

140 

LD 

A. 34 

150 

CP 

C 

160 

JR 

NZ. WYJ 

170 

BIT 

1 . (IY + 1 ) 

180. (IY -ł- 1) = (FLAGS) 

190 

JR 

NZ. NLINIA 

200 

INC 

B 

210 

LD 

C, 2 

220 

LD 

A. 25 

230 

CP 

B 

240 

JR 

NZ. WYJ 

250 

DEC 

B 

260 NLINIA 

LD 

C. 33 

270 WYJ 

JP 

CL. SET 


Linie 70.120 eliminują cofnięcie z pozycji (0.0) Program można 
uruchamiać z poziomu BASI Ca. zastępując instrukcję: 

PRINT CHR$ 8 


K. MAMCARZ 



Dasz radę wykołować go, tak jak kołujemy majstra? 
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Grafika na ekranie (2> 


OBRÓT 


Istotnym przekształceniem, wykorzysty- 
wanym w grafice komputerowej, jest obrót 
względem wybranego punktu o żądany kąt. 
Przekształcenie to może być wykorzysty- 
wane do obrotu zdefiniowanych figur lub ca- 
łych obrazów. Jednym z punktów, wokół któ- 
rego wykonywany jest obrót, może być po- 
czątek układu współrzędnych 
W numerze tym omówimy obrót na pła- 
szczyźnie względem początku układu 
współrzędnych z wykorzystaniem rachunku 
macierzowego. Uogólnioną macierz 2X2. 
która pozwala realizować omawianą funkcję 
można wyznaczyć, rozpatrując obrót jed- 
nostkowego kwadratu (rys. 1.) w kierunku 
dodatnim, tzn. przeciwnym do kierunku 
obrotu wskazówek zeqara 



kąt o 

Jak widać na rysunku, punkt B. mający 
przed obrotem współrzędne (1.0) prze- 
kształcił się w punkt B' o współrzędnych 
(x’ = (1 ) cos a. y' = (1 ) sin er), a punkt D 
o współrzędnych (0.1 ) w punkt D’ o współ- 
rzędnych (x' = -(1) sm er, y’ = (1) cos a). 
Po zastosowaniu ogólnego przekształć jma 
na kwadracie jednostkowym ABCD otrzy- 
mujemy: 


A - 

00 


0 

0 

B - 

1 0 

fa bl 

a 

b 

C~ 
D - 

1 1 
0 1 

x U dj - 

a + c 
c 

b + d 
d 


Z powyższego wynika, że współrzędne 
punktu B' określa się pierwszym wierszem 
macierzy transformacji, a współrzędne 
punktu D' drugim. 

Z zestawienia powyższych wyników otrzy- 
mujemy postać poszukiwanej macierzy 
transformacji. 


[ cos sini 
[- sin cosj 

Otrzymana macierz transformacji me po- 
woduje zmiany skali i kształtu figury, lecz 
zmienia położenie na płaszczyźnie Dla 
zilustrowania problemu rozpatrzymy trójkąt 
ABC, pokazany na rys. 2. 

Obrót trójkąta ABC o 90° względem po- 
czątku układu współrzędnych w kierunku 



przeciwnym do kierunku obrotu wskazówek 
zegara otrzymujemy poprzez transformację 
wierzchołków macierzą 



Otrzymujemy nowe współrzędne wierzchoł- 



ków trójkąta ABC. które tworzą trójkąt 
A'B’C' Obrót o 180° w kierunku dodatnim 
uzyskujemy dzięki macierzy 


[“ó -?] a o 270” macewy [° 


Przedstawiona tematyka została zasto- 
sowana w prezentowanym programie reali- 




Rys. 3 Postać zdefiniowanej figury 


Rys 4. Obraz powstały w wyniku obrotu, fi- 
gury o kąt 1 80" 



Rys 5 Obraz powstały w wyniku obrotu fi- 
gury w 3 krokach o M 90 - 



Rys 6 Obraz powstały w wyniku obrotu fi- 
gury w 50 krokach o kąt 43‘ 


żującym obroty figur płaskich wokół począt- 
ku układu współrzędnych Program realizuje 
obroty jednokrotne o zadany kąt oraz wie- 
lokrotne w określony przyrost kąta. 

Gdy zadana wartość kąta jest dodatnia 
mamy obrót przeciwny do kierunku obrotu 
wskazówek zegara i zgodny, gdy wartość ką- 
ta jest ujemna 

Otoczenie i sposób obsługi programu zostały 
ustalone w podobny sposób, jak w prezen- 
towanym poprzednio, w ramach tego cyklu 
programie skalowania 

Obraz jest definiowany poprzez wprowa- 
dzenie współrzędnych (x.y) punktów wy- 
znaczających kolejno kreślone odcinki. 
Współrzędne wprowadza się na zaproszenie 
„poda^wsp punktu (x.y)". W celu zakończe- 
nia definiowania figury należy wprowadzić 
punkt o współrzędnej x > 998 oraz dowol- 
nej wartości o współrzędnej y 

Po zakończeniu definiowania figury poiawia 
się komunikat ..pojedynczy — j, wielo — w", 
pozwalający wybrać rodzaj obrotu. Wpro- 
wadzenie litery „j" oznacza obrót jednokrot- 
ny o kąt. który należy wprowadzić po komu- 
nikacie ..podaj kąt" Wprowadzenie litery 
„w" powoduje obrót figury w określonej 
ilości kroków o zadany przyrost kąta w jed- 
nym kroku 

Wartości te wprowadzamy po ukazaniu się 
komunikatów „podaj krok", „podaj ilość 
kroków". 

Po wykonaniu przez program obrotu poja- 
wiają się następne komunikaty określające 
operacje, które możemy wykonać na otrzy- 
manym obrazie 

Wyboru operacji dokonujemy przez wpro- 
wadzenie określonej litery, podane 1 w treści 
komunikatu. 

Dla zilustrowania działania programu za- 
mieszczamy przykładowe wyniki uzyskane 
na figurze zdefiniowanej punktami: (0.0); 
(20.120); (40.90); (60.150); (150,30): (0.0). 
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30 REN Obroty 

f>0 DIN Hsp(101.2) ,iat(2,2),nwsp(101,2) 

70 HODE 1 : INK 0,6: INK 1,13: INK 2,1: INK 3,24 
80 BORDER 0:PEN 1: PAPER 2 
90 CLS 

100 PRINT ‘Rysowanie figur-poligonow* 

110 PRINT'Obrot w jednyw kroku lub* 

120 PRINT*obrot w dowolnej ilości krokow* 
130 INPUT ‘Start ody wcisniesz t'j nk$ 

140 IF nk$=‘t" THEN 160 
150 GOTO 130 

160 GRAPHICS PAPER 1:REH Tlo grafiki 
170 ORIGIN 320,208,0,640,16,400 
180 CLEAR INPUT 
190 WINDOM 1,40.25,25 

200 GDSUB 1220: REM Rysowanie układu wspol. 
210 i=0 :REN licznik punktów 
220 INPUT "podaj wsp. punktu x,y‘j*,y 
230 IF x >998 THEN 300 
240 i=i+l 

250 IF i >100 THEN GOTO 300 


260 wsp (i , l)=x 
270 wsp (i ,2)=y 

280 GOSUB 830:REH Rysowanie odcinka 
290 GOTO 220 

300 INPUT ‘pojedynczy-j,wielo-w‘; jk$ 

310 IF jk»=‘j‘ THEN 340 
320 IF jk*=V THEN 650 
330 GOTO 300 

340 INPUT 'podaj kat’;ak 
350 ak=akłPI/180 

360 60SUB 900 :REN Ustaw eacierz przeksztal. 
370 GOSUB 1020: GOSUB 1130:G0T0 380 
380 INPUT ’poczatek-r,koniec-k‘;nk$ 

390 IF nk$- r‘ THEN 420 
400 IF nk*=‘k‘ THEN 1420 
410 GOTO 380 

420 INPUT "kasowanie obrazu-k,rysowanie-r";nk$ 
430 IF nk»=‘k‘ THEN 460 
440 IF nk$=*r‘ THEN 730 
450 GOTO 420 ' 

460 INPUT‘noweqo obrazu-n,starego-s";nk» 

470 IF nk»=V THEN 610 
480 IF nk$=‘s‘ THEN 500 
490 GOTO 460 

500 REN Kasowanie starego obrazu 

510 GOSUB 1220:REN Rys. układu współrzędnych 

520 FOR k=l TO i 

530 wsp (k, 1 ) =nwsp (k, 1 ) : wsp (k, 2) =nwsp (k, 2) 

540 NETT k 

550 GRAPHICS PEN 3 

560 GOSUB 1320 

570 INPUT ‘obrot-o,dorysowanie-d‘;nk$ 

580 IF nk*=‘o‘ THEN 300 
590 IF nk$=‘d* THEN 220 
600 GOTO 570 

610 REN Kasowanie nowego obrazu 

620 GOSUB 1220 

630 GRAPHICS PEN 3 

640 GOSUB 1320: GOTO 570 

650 INPUT ‘podaj krok‘;kr 

660 INPUT ‘padaj ilosc krokow‘;nk 

670 kr=krtPl/180 

6B0 FOR i i =1 TO nk 

690 ak=iilkr 

700 GOSUB 900: GOSUB 1020: GOSUB 1130 
710 NEXT ii 
720 GOTO 380 

730 FOR n=l TO i: REN Rysowanie od początku 


740 FOR k=l TO 2 

750 wsp(n.k)=0:nwsp(n,k)=0 

760 NEXT k 

770 NE1T n 

780 GOTO 200 

800 REN PDDPROGRANY 

820 REN 

830 REN Rysowanie punktu lub odcinka 
840 REN 

850 GRAPHICS PEN 3 

860 IF i=l THEN PLOT wsp(i,l),wsp(i,2) 
870 IF i >1 THEN DRAŃ wsp <i , 1 > , wsp (i , 2) 


900 REN Ustawianie mierzy 
910 REN 

920 sk=SIN(ak) :ck=C0S(ak) 

930 •at(l,l)=ck:eatll.2)=sk 

940 •at(2,l)=-sk:*at(2,2)=ck 

950 FOR k-1 TO i : REM Zerowanie nwsp 

960 FOR 1=1 TO 2 

970 nwsp (k , 1 ) =0 

980 NEXT 1 

990 NETT k 

1000 RETURN 

1010 REN 

1020 REN Nnozenie mierzy 
1030 REN 

1040 FOR n=l TO i 
1050 FOR k=l TO 2 
1060 FOR e=l TO 2 

1070 nwsp(n,k)=nwsp(n,k)+wsp(n,e)l«at(»,k) 
1080 NEXT • 

1090 NEXT k 
1100 NEXT n 
1110 RETURN 
1120 REN 

1130 REN Rysowanie nowej Figury 
1140 REN 

1150 GRAPHICS PEN 0:REN nowe współrzędne 
1160 PLOT nwsp (1,1), nwsp (1,2) 

1170 FOR n=2 TO i . 

1180 DRAŃ nwsp (n, 1 ) ,nwsp (n,2) 

1190 NEXT 
1200 RETURN 
1210 REN 

1220 REN Rysowanie układu współrzędnych 
1230 REN 
1240 CLG 1 

1250 GRAPHICS PEN 2: REM Pioro współrzędnych 

1260 PLOT 0,-208 

1270 DRAŃ 0.208 

1280 PLOT -320,0 

1290 DRAŃ 320,0 

1300 RETURN 

1310 REN 

1320 REN Rysowanie starej figury 
1330 REN 

1340 PLOT wsp (-1,1), wsp (1,2) 

1350 FOR n=2 TO i 

1360 DRAŃ wsp <n, 1 > , wsp (n, 2) 

1370 NEXT n 
1380 RETURN 
1390 REN 

1400 REN Zakończenie 
1410 REN 

1420 NINDON 1,40,1,25 
1430 CLS 
1440 CLG 1 
1450 END 


MICHAŁ URSUS 


Gdy wyłączą prąd... 


— Rozpoczynamy przesłuchanie Edgara Ouaill. po- 
dejrzanego o zamordowanie swojej żony. Głos ma 
oskarżony! 

— Wysoki sądzie! W dobie postępującej komputery- 
zacji i automatyzacji życia nasze dotychczasowe po- 
włoki zaczynają być bezużyteczne, często hamując po- 
stęp naszej wspaniałej cywilizacji. Nasze ciało ma takie 
wygórowane wymagania, jak określona temperatura 
otoczenia, oddychanie tlenem, zapotrzebowanie na 
znaczną w skali globalnej ilość materii organicznej jako 
pokarmu; że nie wspomnę o takich utrudnieniach, jak 
golenie czy mycie. Już kilkanaście lat temu odkryłem 
możliwość przeniesienia informacji z mózgu żyjącego 
organizmu do pamięci dowolnego komputera. Jest to 
wspaniała szansa dla naszego świata!!! Wyobraźmy 
sobie... 

— Niech oskarżony powie jeszcze sądowi o 
skutkach ubocznych... 

— Hm, no tak... Podczas kopiowania w organiźmie 
dawcy następują nieodwracalne zmiany, spowodowa- 
ne przez... zresztą, nieważne.. W każdym razie zmiany te 
mogą doprowadzić do śmierci, ale jedynie w biolo- 
gicznym tego słowa znaczeniu! Umysł nadal żyje, a 


w dodatku obdarzony jest nowymi, wspaniałymi możli- 
wościami! Wyobraźmy sobie, że zamiast tego zlepku 
białek mamy poprzez nasz elektroniczny mózg dostęp, i 
to bezpośredni, do wszystkich wynalazków techniki. 
Możemy na przykład sterować sondami, badającymi 
przestrzeń kosmiczną, i czuć się częścią ich orga... 
przepraszam, mechanizmu. W ten sposób każdy będzie 
mógł zrealizować swoje dziecięce marzenia o podró- 
żach kosmicznych, nie narażając przy tym swojego ist- 
nienia na żadne ryzyko, zostawiwszy-duplikat swojego 
mózgu na przykład w Banku Pamięci. 

Każdy wie, że jednym z odwiecznych marzeń czło- 
wieka było przedłużenie swojego życia. Dobrze funk- 
cjonujące mechanizmy dadzą nam tę możliwość — 
mamy szansę stać się nieśmiertelni! 

— Czyżby żona oskarżonego stała się rzeczywiście 
nieśmiertelna? 

— To nie była moja wina! Skąd mogłem wiedzieć, że 
akurat wtedy elektrownia wyłączy mi dopływ prądu?! To 
był tylko tragiczny wypadek, że cała zawartość mózgu 
mojej żony została skasowana, zanim zapisałem ją na 
dyskietkę. Mój komputer jest modelem starszego typu i 
nie ma własnego, awaryjnego źródła napięcia... 


Charakterystyka zestawu 
podstawowego 

I. Jednostka centralna: 

— mikroprocesor: Intel 8088- 
2/NEC V20 



— zegar procesora 4.77/8 MHz 

— koprocesor arytmetyczny 8087 
(opcjonalnie) 

— pamięć operacyjna 256KB do 
1024KB 

— pamięć stała BOM 8KB do 
64KB (BIOS i Basic) 

— pamięć masowa: 2 jednostki 
dysków elastycznych 360KB, 
do 2 jednostek dysków typu 
Winchester 20MB, szybka 
pamięć taśmowa 20 do 60 
MB 

— pakiet wizyjny: O tryb teksto- 
wy — max 80 znaków w 25 
wierszach, O tryb graficzny — 
rozdzielczość 640 x 200 
(czarno-biały). 320 x 200 (ko- 
lor), O wyjścia: RGB i sygnał 
zespolony 

— interfejsy: O równoległy Cen- 
tronics (drukarka), O szere- 
gowy RS232 

— zegar czasu rzeczywistego z 
podtrzymaniem bateryjnym 

— 8 gniazd do podłączenia do- 
datkowych pakietów (grafika, 
specjalizowane kontrolery, 
karty prototypowe itp.) 

— zasilacz 150 W o wysokiej 
sprawności 





Sumy kontrolne 


W numerze czwartym "X" (1987) opublikowano program pt. 
„Edytor Basic-a". Celem jego było ułatwienie bezbłędnego wpro- 
wadzenia wydrukowanych programów, a w razie wystąpienia błę 
du łatwe jego odszukanie. Ten sam cel przyświecał opracowaniu 
poniższego programu. Otrzymywane za jego pomocą sumy kon- 
trolne są identyczne jak sumy uzyskane dzięki powyżej wspo- 
mnianemu programowi. 

Po uruchomieniu programu (RUN), ukazuje się nam menu. Ma - 
my do wyboru cztery możliwości: wyświetlanie sum kontrolnych 
na ekranie, drukowanie ich na drukarce, powrót programu do Ba- 
sic-a i dla posiadaczy stacji dysków — wywołanie zawartości dy- 
skietki, W przypadku wybrania opcji drukowanie lub wyświetlanie 
należy: gdy wprowadzamy program z dyskietki, wpisać nazwę 
programu, a gdy z magnetofonu, po poleceniu wpisania nazwy 
programu, trzeba wcisnąć klawisz RETURN. Program kolejno wy- 
pisuje etykiety oraz przyporządkowane im sumy kontrolne w spo- 
sób, jak na załączonym przykładzie. 

Na koniec jeszcze jedna uwaga. Przed przystąpieniem do 
sprawdzania, powinniśmy dany program zapisać na taśmie lub 
dyskietce instrukcją LIST. 


Janusz W. JANIEC 


100 REM ************************ 
105 REM * * 

110 REM * SUMY KONTROLNE * 
115 REM * * 

120 REM ************************ 
125 DIM A$a30),6$<130),C$<S),D* 
< 10) , A<5) , N$< 15) , AN$< T4> , SUM$<2) 
130 DIM ME*<18>-N*= ,, D‘“>B=1‘E«0 
135 OPEN #3,8,0, "£'" 'SETCOLOR 2, 


0,0 'SETCOLOR 1,0,10' POKE 752,1 
140 REM **** OPCJE PROGRRMU **** 
•POKE 82,4'? CHR$< 125) ! POKE 752, 


1 ' SETCOLOR 2,0,0 
145 POSITION 2,1 
NE" ; POSITION 2,4 


SETCOLOR 1,0,10 
? "SUMY KONTROL 
? CHR$< 177 ) > " W 


YSWIETLANIE SUMY KONTROLNEJ" 

150 POSITION 2,6'? CHR*<178); " D 
ROKOWANIE SUMY KONTROLNEJ" ■ POSIT 
ION 2,8'? CHR* < 179) ; " POWROT DO 


BASIC-a" 

155 POSITION 2,10'? CHR$< 180) ; " 
MENU DYSKIETKI "'POSITION 9,13'? 

" >?<"; 

160 CLOSE #1 'OPEN #1 , 4, 0, "K ‘ ' GE 
T # 1 , K ' ? CHRT ( 30 > j CHR$ ( 30 ) i CHR$ < 
K+128) ' IF K <49 OR K>52 THEN 160 


165 IF K=49 THEN 190 
170 IF K=51 THEN 490 
172 IF K=52 THEN 500 


ATARI 


175 REM ** WYDRUK NR DRUKARCE ** 
180 TRAF' 450 'CLOSE #3 'OPEN #3,8, 
0, “P* " 

185 REM *** OTWARCIE ZBIORU *** 

190 POSITION 2,15'? "Podaj nazwę 
zbioru do sprawdzenia" 

191 POSITION 7,16'? CHR$< 17) j > FO 
R Ll=l TO 15'? CHR$< 18) ; ' NEXT LI 
'? CHR$ < 5 ) 

195 POSITION 7,17'? "ID' 

I" 'POSITION 7,18'? CHR*<26) 
i ■ FOR L 1 = 1 TO 15'? CHR$< 18) ; = NEN 
T LI'? CHR$<3) 

200 POSITION 10,17'? ) 1 NPUT ANT 
205 POKE 752,1 

210 IF RN$( 1 , 1)=" " THEN N*="C' " 
'POSITION 8,17'? "C'" 'GOTO 225 
2 1 5 3K=LEN < RN* ) ' N* < 3 , SK+2 ) ==AN$ 
220 TRAP 235 

225 CLOSE # 1 ' OPEN #1,4,0,N$ 

230 GOTO 240 

235 ? '? "Nie ma tak ieso zbioru 
na dyskietce !"'GOSUB 460 'RUN 
240 POKE 82,0'P=0'B=1 'E=0'? CHR$ 
<125) i " TWORZENIE SUM KONTROLNYC 
H. ,," '? 

265 REM ********* OPIS ********* 
270 fi$=" * SUMA KONTROLNA 2 

ETYKIETA *"'? #3żA$ 

275 R*=" 

" i ? #3;A$ 

280 REM ** POBRANIE ETYKIETY ** 
285 C=1 ' TRAP 335 
290 GET #1,Z 

295 IF Z=32 THEN C$<X, OCHR* <32 
) ' GOTO 310 

300 C$<C,C)=CHR$<Z) 'C=C+1 'GOTO 2 
90 

310 IF E=1 THEN 435 

315 REM **** POBRANIE LINII **** 

320 T=C+1 ' C=0 

325 GET #1 , Z ' IF Z=155 THEN 340 
330 < T+C , T+C ) =CHR$ < Z ) ' C=C+ 1 ' GO 

TO 325 

335 E=1 'GOTO 310 '-REM * KONIEC * 
340 REM ****** SUMA LINII ****** 
345 C=0 ' ANS=0 
350 FOR A=1 TO LEN<B$) 

355 C=C+ 1 ' ANS=ANS+ < C*HSC < B$ < A , A ) 
) ) ' NEXT A 

360 K0D=INT< ANS/676) ' KOD=ANS-<KO 
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D*6 76) 

365 HKOD= 1 NT < KOD/26 > > LKGD=KdD~ C H 

K0D*26>+65 

370 HKGD=HK0D+65 

375 SUM* 0, 1>«CHR$< HKOD ) < SUM# < 2 , 

2:>=CHR*<LK0D> 

380 REM *** FORMAT ETYKIETY *** 
385 D$=" " > L=VfiL <C$) ■■ A=LEN < ST 

R$(L> > ' D* <6-fl)«=STR$<L) • GOTO 410 
335 ? CHR* < 1 25 > ; " BLEDNE DANE !!! 
CHR* <125) -END 

400 REM ** DRUKOWANIE WYNIKU ** 
405 REM ****** NA EKRANIE ****** 
410 IF P=0 THEN CC=1 'X=2'P=1 -A$= 
" " 1 R$<38)=»" " 'A*<2)=A*'G0T0 425 
415 X=X+10'IF X>«=33 THEN X=2=Y=Y 
+1-? #3;A* ' Af“" " 'A*<38>=" "'R*< 
2>=A* 

425 A* < X / 38 ) =SUM* > A* < X*2 .. 38 > *CHR 
*<32> 'A*<X+3/39)=D* 

430 FOR LI“=10 TO 30 STEP 10'A*<L 
I/LI)=" I" :NEXT LI 'GOTO 280 

435 ? #3j AT 

440 A*=" 

" #3 i 

445 CLUSE #1 ! GOSUB 460 'RUN 
450 ? ■ ? i? "Drukarka nie działa 
!"■? "? 'GOSUB 460 'RUN 
455 REM *** WCIŚNIJ KLAWISZ *** 
460 CLOSE #1 ' OPEN #1/4/0. "K' M 
465 ? " " jCHR*< 17); 'FOR Ll=l 

TO 23'? CHR*<18)i 'NEXT LI'? CHR 
*<5> 

470 ? " I Wciśnij dowolny kia 


Wisz I" 

475 ? " "iCHR*<26)/ 'FOR Ll=l 

TO 23'? CHR*< 18) / 'NEXT LI'? CHR 
*<3> 

480 GET #1, Z 'CLOSE #1 'RETURN 
485 REM ** POWROT DO BRSIC-a ** 
430 GRAPHICS 0'END 'REM ******** 
500 REM **** MENU DYSKIETKI **** 
S05 TRAP 525 
510 CLOSE #3 'OPEN #3/ 6/ 0/ "D ' *. **' 
'FOR KO=0 TO 64'INPUT #3, ME* 

520 ? ME* ' NEXT KO 
525 CLOSE #3 
530 GOSUB 455 'GOTO 135 'REM ***** 
* SUMA KONTROLNA / ETYKIETA * 


PC 

1001 

YF 

1051 

XS 

1101 

YH 

115 

PG 

1201 

YB ‘ 

1251 

Ol 

1301 

YM 

135 

TS 

1401 

LV 

1451 

UJ 

1501 

RB 

155 

ND 

160 1 

S2 

1651 

RO 

1701 

MI 

172 

TF 

1751 

EM 

1801 

HJ 

1851 

RY 

1 90 

KF 

191 1 

UE 

1951 

HK 

2001 

JV 

205 

UF 

2101 

BN 

2151 

NU 

2201 

ES 

225 

NP 

2301 

LJ 

2351 

YJ 

2401 

MK 

265 

VD 

2701 

JY 

2751. 

KY 

2801 

TV 

285 

NY 

2901 

ML 

2951 

WG 

3001 

YK 

310 

GS 

3151 

TK 

3201 

SP 

3251 

XI 

330 

CK 

3351 

WJ 

3401 

GN 

3451 

IG 

350 

JJ 

3551 

WD 

3601 

GE 

3651 

PY 

370 

OZ 

3751 

YC 

3801 

DS 

3851 

nn 

395 

SV 

4001 

FP 

4051 

LQ 

4101 

OH 

415 

IF 

4251 

XI 

4301 

SG 

4351 

GY 

440 

QQ 

4451 

IR 

4501 

PW 

4551 

XK 

460 

PZ 

4651 

SK 

4701 

KW 

4751 

JI 

480 

AV 

4851 

TO 

4901 

NJ 

5001 

PB 

505 

YJ 

5101 

SY 

5201 

MS 

5251 

KJ 

530 


Mapa dysku 


Program DYSKMAP tworzy I wyświetla na ekranie monitora ma- 
pę dysku. Pod pojęciem tym kryje się wykaz wszystkich sektorów 
dysku z zaznaczeniem, który z nich jest wolny (niezapisany), a któ- 
ry zajęty (zapisany). Program umożliwia tworzenie mapy dysku 
sformatowanego z pojedynczą gęstością zapisu (DOS 2.0—720 
sektorów) oraz z podwójną gęstością (DOS 2.5—1040 sektorów) 

Program po uruchomieniu żąda podania liczby sektorów zawar- 
tych na dyskietce. Jeżeli nie jesteśmy pewni, z jaką gęstością za- 
pisana jest dyskietka, to podaiemy 1040 Program jest tak skons- 
truowany. że gdy wprowadzimy liczbę sektorów równą 1040, to 
sprawdza, z jaką gęstością jest rzeczywiście sformatowana dyskiet- 
ka. Informacja o tym zapisana jest w sektorze o numerze 360, w 
bajcie pierwszym i drugim (licząc od zera), zwanym tabelą zawar- 
tości wolumenu (dyskietki) — ang. Volume Table of Contents. Je- 
żeli w wyniku sprawdzenia okaże się. że na dyskietce jest 720 sek- 
torów, to program sam poprawi wprowadzoną przez nas liczbę 
Wprowadzenie liczby, na przykład 100. spowoduje, ze program 
utworzy i wyświetli mapę zawierającą informacje o pierwszych stu 
sektorach dyskietki 

Mapa dysku zawierającego 720 sektorów wyświetlana jest na 
ekranie w postaci 20-wierszowej tablicy zawierającej po 36 zna- 
ków w każdym wierszu. Każdy element (znak) z tej tablicy opisuje 
stan jednego sektora. Numer sektora, któremu odpowiada znak z 
tablicy, odczytuje się przez dodanie liczby zapisanej na początku 
wiersza do liczby zapisanej na dole kolumny, zawierających dany 
znak Znaczenie znaków z tablicy jest następujące: 

Gwiazdka — oznacza sektor zapisany, kropka — oznacza sek- 


tor wolny, wykrzyknik — oznacza sektor uszkodzony, tzn. taki, któ- 
ry przy próbkie odczytu generuje błąd 

Tę ostatnią cechę programu można wykorzyslać do wykrywa- 
nia i oznaczania tak zwanych bad sektorów, stosowanych przez 
producentów oprogramowania do jego zabezpieczenia przed 
kopiowaniem. 

Mapa dysku sformatowanego z podwójną gęstością zapisu 
( 1 040 sektorów) składa się z dwóch części Część pierwsza opisu- 
je sektory od 1 do 520. a część druga sektory od 521 do 1040. 
Każda z części jest również tablicą, analogiczną do opisanej po- 
przednio. zawierającą 20 wierszy 26-znakowych Klawisz OPTION 
przełącza wyświetlanie części pierwszej na drugą i odwrotnie. Po 
przeanalizowaniu utworzonej mapy można program uruchomić 
ponownie, wciskając klawisz START. 

Program DYSKMAP zawiera kilka procedur napisanych w ko- 
dzie maszynowym (linie DATA programu). Szczególną uwagę 
proponuję zwrócić na procedurę umieszczoną w 40-bajtowej sta- 
łej tekstowej o nazwie S — linie 802, 806 Jej funkcją jest odczyt 
lub zapis sektora o dowolnym numerze. Zwracam uwagę na tę 
procedurę, ponieważ odczyt i zapis sektora za pomocą instrukcji 
języka BASIC (NOTĘ, POINT, PUT, GET) jest dosyć kłopotliwy 
(wymaga skonstruowania pętli) i trwa znacznie dłużej. Procedurę 
tę można wykorzystać w każdym programie w języku BASIC. Spo- 
sób jej wywołania jest następujący 

X = USR(PAR1 ,PAR2,PAR3,PAR4,PAR5) 

gdzie: 

PAR1 — adres pamięci RAM. od którego umieszczona |est pro- 
cedura, 

PAR2 — numer napędu dyskowego (1—4), 

PAR3 — numer sektora do odczytu lub zapisu, 

PAR4 — adres 1 28 -bajtowego bufora, do którego mają być 
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wczytane informacje z sektora, a przy zapisie informacje zawarte 
w tym buforze zostaną zapisane do sektora 
PAR5 — kod funkc|i do wykonania. 82 — odczyt sektora. 87 — 
zapis sektora 

Przykładowo, jeżeli procedurę umieściliśmy w tablicy PROCS i 
chcemy wczytać sektor o numerze 360 do tablicy BUFS. to proce- 


X - USR(ADR( PROCS). 1 .360. ADR( BUFS J.82) 

Odczyt nastąpi ze stacji dysków o numerze 1 
Po wykonaniu procedury zmienna X zawierać będzie informacje 
o tym. czy operacja odczytu bądź zapisu zakończyła się pomyśl 
me. Wartość zmiennej X różna od jedności oznacza, ze przy od- 
czycie lub zapisie wystąpił błąd. 


5 ? CHP#C 125) = ? “Proszę chwile p 
oczek ac. . . " 

6 GOTO 180 

10 ? CHR# C 1 25 > ; " *** DYSKMA 

P <C> 1987 ***" 

20 ? = ? = ? "Wloz dyskietkę do st 
acji dysków" 

30 ? "Nacisnij CRETURND " 

31 ? " CSPACJA) Wyjście z Proararo 
u" 

34 CLOSE #1 : OPEN #1,4,0, "K 1 " 

35 GET #1,K 

39 IF K*32 THEN POKE ?52,0=END 

40 IF KO 155 THEN 35 
45 RETURN 

100 0IH L0*C 19) , DMAP#C 1 17) , MAP#C 
1041 ) , 0KN0*C 107) , L#CS0) , L2*C60) , 
L3*C80) , SE* < 128) , SS<40> 

110 RESTORE 200 

120 FOR 1*1 TO 1 9 » READ A=L0*CI)* 

CHRf <fl) = NEXT 1 1 GOTO 300 

200 DATA 104^104, 133,204, 104,133 

,203, 160,0, 169,0, 145,203,200, 192 

,240,208,249,96 

300 RESTORE 350 

310 FOR 1 = 1 TO 117 = RERD ft=DMAP*C 

I)=CHR*Cfl)=NEXT I 1 GOTO 400 

350 DRTfl 104,104,133,204,104,133 

, 203, 104, 104,141,1,3,104, 133, 207 

,104,133,206,169,4 

352 0ATA 141,5,3, 169, 0141, 4, 3,1 

69.82. 141.2.3. 160.1. 162.0. 169.1, 
141,10,3, 142,11,3, 133,72, 152,72, 

32 

354 DATA 83,228, 160.0, 173,3,3,20 

1.1.208.24.190.0. 4.208.12.200. 19 
2, 128,208,246, 104, 168, 169, 14,56 
356 DATA 176,11,104,168,169,10,5 
6,176,4,104,168,169,1,145 

358 DATA 203,104,170,200,208,3,2 
32 , 230 , 204 , 228 , 207 ,208,4, 1 96 , 206 
,240,9, 140, 10,3, 142,11,3,56, 176, 
185,36 

400 RESTORE 450 

410 FOR 1=1 TO 107 READ A < OKNO* 

I ) =CHRS C A ) = NEXT IGOTO 500 
450 DATA 104,104,133,206,104,133 
, 205, 104, 133, 1 18, 184, 133, 117, 10J 
, 133,208, 104, 133,207, 104, 104 
452 DATA 133,209,104,133,120,104 
, 133,119, 165,88, 133,203, 165,89,1 

33. 204. 165.203. 101 .117. 133.203. 1 
65,204 

454 DATA 101,118,133,204,160,0,1 

77. 203. 170. 177. 205. 145. 203. 138. 1 

45.285.200. 196.209.208.241.169.0 
,198,207 

456 DATA 197,207,208,6, 197,208,2 
40, 28, 198, 208,24, 152, 101 , 205, 133 
,205,144,3,230,206 

458 DATA 24,165,203,101,119,133, 

203. 165. 284. 101 . 120. 133. 204. 24. 1 
44, 199,96 

500 RESTORE 550 

510 FOR 1=1 TO 60 'READ AL*CI)=l 

HR*CA)=NEXT I=GOTO 600 

550 DATA 0,0,16,0,19,22,0,23,18. 

17, 16,24, 17,20,20, 17,24, 16, 18,1. 

,22,18,21,18,18,24,24,19,18,20, 1 

9,22,16,19 

552 DATA 25,22,20,19,18,20,22,24 
,21,16,20,21, 19,16,21,23,22,22,1 
7,18,22,20,24,22,24,20 
608 RESTORE 658 

610 FOR 1*1 TO 60 READ A L2#< I > 

CHR*CA)=NEXT I GOTO 700 

650 DATA 0,0,16,0,18,22,8,21,18 


0,23,24, 17, 16,20, 17, 19, 16, 17,21, 
22, 17,24, 18, 18, 16,24, 18, 19,20, 18 
22,16,18 

652 DATA 24,22,19,17,18,19,19,24 
19, 22, 20, 19,25, 16, 20, 17, 22, 20, 2 
0,18,20,22,24,20,25,20 
.'00 RESTORE 750 

■’10 FOR 1*1 TO 80 READ A=L3#CI>= 
HR#Cfl) = NEXT I ' GOTO 800 
50 DATA 8, 21, 18, 16, 0,21, 20,22, f 
•21,23, 18,0,21,25,24,0,22, 18,20, 
J, 22, 21, 16, 0,22, 23, 22, 0,23, 16, 18 
0,23,18,24 

52 DATA 0,23,21,20,0,23,24,16,0 

24,16.22,0,24,19,18,0,24,21,24, 
0,24,24,20,0,25,17,16,0,25,19,22 
0,25,22,18 

'54 DATA 0,25,24,24,17, 16,17,20 
ee SE# < 1 ) -CHR# (0) =SE#C128) *SES ■ 
:E#(2)=SE* 

302 RESTORE 805 FOR 1*1 TO 48 RE 
AD A 1 S$< I )=CHR*< A) : NEXT I=GOTO 8 
10 

305 DATA 104,104,104,141,1,3,104 
141,11,3, 104, 141,10,3,104, 141,5 
3, 104, 141,4,3, 104, 104, 141,2,3,3 

806 DATA 173,3,3,133,212,169,0,1 
33,213,96 

810 GOSUB 10-? '? "Podaj liczbę 
sektorów C726J lub C1040D " 

320 INPIJT DO 

830 IF DO* 1040 THEN GOTO 900 
840 X*USR C ADR < LO* ) , 40000+ 1 7*40 ) • 
GOTO 5510 

300 SEK=360 ■ X=USR < ADR < S* ) , 1 , SEK , 
ADR < SE* ) , 82 ) ALA*ADR < SE* ) ■ L I CZS* 
PEEK<ALR+1 )+256*PEEK<ALA+2) 

901 IF LICZS-1010 THEN GOTO 840 

902 ? '? "Dyskietka o pojedyncze 
j sestosci" 1 ? "Liczba sektorów w 
■* nosi 720" DO=720< GOTO 840 

ssja "Czytani* dysku " 

5520 ? «? "Czekaj..." i 

5530 MAP#=" " : MAP*CDQ,DO)*CHR#<0) 
5540 X*USR < ADR C DMAP# ) . ADR < MAP* ) - 
1 , 1 ,DO+l ) 

5550 IF 00=1040 THEN 5706 
5568 POKE 752, 1 = ? CHR*< 125) ■ POSI 


I10N 0,20'? CHR#C30) ; CHR#C31 ); 
5570 X*USR < ADR < OKNO* ) , ADR C MAP# ) , 

4 . 20 . 36 . 40 ) ■■ X*USR < ADR < OKNO# ) , ADR 
(L*), 0,20, 3, 40) 

5580 POSITION 4,20=? "0000000001 
111111111 22222222223333333 1 234 
567890 1 23456 7890 1 234567890 1 23456 

5590 POSITION 15,23=? " CSTARTD * 
NOWA MAPA" i 

5600 IF PEEK(53279>=6 THEN 5620 
5610 GOTO 5600 

5620 X=USR < ADR C OKNO* ) , ADR < L# ) , 0 , 

20. 3. 40) . GOTO 810 

5700 POKE 752,1=? CHR* < 125) = POSI 
TI ON 0,20=? CHR*(30);CHR*<31); 
5710 POSITION 9,20=? "0000000001 
1111111112222222 1234 
567890 1 234567890 1 23456 " 

5715 X*IJSR ( ADR < OKNO* ) , ADR C L2# ) , 5 
,20,3,40) 

5720 X=USR < ADR < OKNO* ) , ADR < MAP* ) , 

9.20.26.40) 

5730 POSITION 3,23=? "CSTART3- N 
OWA MAPA C0PTI0N3* 2 CZESC"; 
5740 IF PEEKC 53279 )*6 THEN 5770 
5750 IF PEEKC 53279) =3 THEN 5800 
5760 GOTO 5740 
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5770 X=USR C ADR < OKNO* ) , ADR < L2# ) , 5 

,26,3,40) =GOTO 310 

5800 X=USR < ADR < OKNO* ) , ADR C MAP* > , 

9.20.26.40) 

5802 X=USR < ADR < OKNO* ) , ADR < L2* ) , 5 
,20,3,40) 

5805 X*USR C ADR < OKNO# ) , ADR < L3* ) , 4 
,20,4,40) 

5810 X-USR < ADR (OKNO*), ADR (MAP*)+ 

520.9.28.26.40) 

5820 POSITION 3,23=? "CSTARTD* N 
OWA MAPA C0PTI0N3* 1 CZESC" J 
5830 IF PEEKC 53279) *6 THEN 5860 
5840 IF PEEKC 53279 ) 03 THEN 5830 
5845 X=USR C ADR C OKNO* ) , ADR C L3* ) , 4 
,20,4,40) 

5850 X=USR C ADR C OKNO* ) , ADR C MAP# > + 

520. 9. 20. 26. 40) = GOTO 5715 

5860 X=USR C ADR C OKNO* ) , ADR C L3* > , 4 
,20,4,40)= GOTO 810 


* SUMA KONTROLNA ✓ ETYKIETA * 


CK 

51 

08 

61 

EA 

101 

M7 

20 

bB 

301 

SS 

311 

OM 

341 

11 

35 

YX 

391 

VT 

401 

Mfl 

451 

PR 

100 

RK 

1101 

WG 

1201 

OL 

2001 

UP 

300 

PP 

3101 

H.ł 

3501 

oe 

3521 

XV 

354 

XY 

3561 

bl 

3581 

VD 

40*1 

NI 

410 

DI 

4501 

C» 

4521 

YA 

4541 

RJ 

456 

Mb 

4581 

VR 

5001 

JA 

5101 

b2 

550 

JC 

5521 

WF 

6001 

XZ 

6101 

bl 

650 

UP 

6521 

W 1 

7001 

Cl 

7101 

DB 

750 

xo 

7521 

JQ 

7541 

JN 

8001 

NI 

902 

Ml 

8051 

IF 

8061 

IJU 

8101 

UV 

820 

TF 

8301 

rt 

8401 

CO 

9001 

sw 

901 

SI 

9021 

VH 

55101 

1H 

55201 

JW 

5530 

r.F 

55401 

WR 

55501 

HE 

55601 

DM 

5570 

IH 

55801 

YD 

55901 

bb 

56001 

R 1 

5610 

BE 

56201 

ZR 

57001 

Hi 

57101 

Ob 

5715 

AP 

57201 

U 

57301 

MP 

5740I 

bl 

5750 

UW 

57601 

BY 

57781 

AL 

58001 

NR 

5802 

PK 

58051 

BJ 

58101 

Jb 

58201 

MN 

5838 



JANUSZ ni LLER 


SHARP PC- 1500 

R E' F L E K S 

500: "A'' '.RANDOn ; 
P AUSE ‘POMIAR 
REFLEKSU" 

510: N=0: uJAIT 0: p OR 
K=1 TO 30 

520: A$=CHR$ <64+ i 
RND 26) : BEEP 1 

530: B$-l NKEY$ . N=N 
+ 1 

540: CLS : PRINT " X 
" j N; * ";A$ 

550: IF A*OB$GOTO 
530 

560: NEXT K:CLS : 
kJAIT 

570: PRINT "CZAS-".? 
STR$ N, - JEDNO 
STEK" 

580: INPUT "JESZCZE 
RAZ ? T =1 N=0 
T : IF T=1 
GOTO 510 

590: END 
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Pascal (7) 


Grafika komputerowa jest bardzo ważną dziedziną informatyki, roz- 
wijaną w wielu liczących się ośrodkach. Jej celem jest wypracowanie 
efektywnych pakietów programowych (standardów) umożliwiających 
łatwe i szybkie generowanie obrazów figur i brył z uwzględnieniem 
punktu widzenia i napotykanych przeszkód. 

W tym kursie nie jest możliwe przedstawienie żadnego znanego stan- 
dardu graficznego. Ograniczymy się wyłącznie do zaprezentowania kon- 
cepcji kreślenia kolorowych obrazów w komputerze AMSTRAD CPC 
6128 na podstawie pakietu graficznego CPC 6128 — Grafik Version 1.0 
firmy Heimsoeth Software Munich. 

Aby włączyć pakiet do poszczególnych programów, wykorzystano specjalną dy- 
rektywę komputera 

{$ 1 hazwa zbioru ) 

Umożliwia ona włączenie do tekstu programu, w miejsce wskazane dyrekty- 
wą, przygotowanego wcześniej tekstu programu przechowywanego w zbiorze 
o nazwie podanej w dyrektywie. Należy pamiętać, że tekst całego programu 
(tzn. z włączonymi zbiorami) musi mieć strukturę akceptowaną przez kompi- 
lator. 

Ekran monitora dzieli się na dwie odrębnie wysterowywane i niezależne od sie- 
bie części: 

— obszar główny, wykorzystywany do zapisu tekstów i kreśleń obrazów, zwany 
kartką, — pobocze. 

Pobocze nie jest wykorzystywane do zapisu tekstów i kreślenia obrazów, można 
natomiast zmieniać jego kolor. Kolor pobocza jest tłem dla kartki. Do zmiany ko- 
loru pobocza wykorzystywana jest procedura 

border (i, j) 

której parametrami są identyfikatory kolorów. Programista dysponuje dwudzic- 
stomasiedmioma kolorami, oznaczonymi numerami od 0 do 26. Kolory przyporząd- 
kowane poszczególnym numerom zamieszczono w tabeli 1. 


TABELA 1 


numer 

kała- 

marza 

kolor 

numer 

kała- 

marza 

kolor 

numer 

kała- 

marza 

kolor 

0 

czarny 

9 

zielony 

18 

lasnoziel. 

1 

niebieski 

10 

cyianowy 

19 

morski ziel 

2 

lasnonieb 

11 

kolor nieba 

20 

jasnocyjan 

3 

czerwony 

12 

żółty 

21 

zieleń wapna 

4 

karmazynowy 

13 

biały 

22 

zieleń pastel 

5 

lila-róż 

14 

nieb. pastel 

23 

cyjan pastel 

6 

lasnoczerw 

15 

pomarańcz 

24 

jasnożółty 

7 

purpurowy 

16 

różowy 

25 

żółty pastel 

8 

jasnopurp. 

17 

purp pastel 

26 

jasnobialy 


Przykład 23 

Bardziej skomplikowane są zasady wyko- 
rzystywania kartki. Na kartce można zapisać 
teksty piórem tekstowym oraz kreślić obra- 
zy piórem graficznym. Przed użyciem pió- 
ra należy wskazać kałamarz, z którego czcf- 

PR06RAH proo22> * 

VAR 

kl.k2:integ*rj 

cht chart 

(ti graf ik3. inc) 

BEGIN 

REPEAT 

HRITELNPziiana koloru raaki (T/N) ?* ł : 
REAO (kbd . ch) i 

IF (ch»’T’) OR (ch*’t’l THEN 
BEGIN 

NR ITELNI’ podaj nr pierwszego koloru' ) j 
READLN (k 1 ) ; 

NRITELNP podaj nr drugiego koloru’ )j 
READLN (k2): 

border (kl , k2) t * 

ENDz 

UNTIL (ch=’N’> OR (ch«V)t 
border (1, i) i 
END. 

pany będzie tusz. W każdym kałamarzu mo- 
żna umieścić jednocześnie — w dwóch od- 
rębnych jego częściach — dwa tusze (różno- 
kolorowe lub tego samego koloru). Jeżeli’ 
tusz będzie czerpany z kałamarza, w którym 
umieszczono różnokolorowe tusze, uzyskamy 
efekt migotania, jak w przypadku pobocza. 
Liczba dostępnych kałamarzy uzależniona jest 
od trybu wykorzystania ekranu: 

— 16, w trybie 0 (numerowanych od 0 do 
15), 

— 4, w trybie I (numerowanych od 0 do 
3), 

— 2, w trybie 2 (numerowanych od 0 do 

1). 

W miarę wzrostu numeru trybu wykorzy- 
stania ekranu poprawia się jakość kreślonego 
obrazu (rozdzielczość) kosztem zmniejszającej 
się liczby równocześnie możliwych do wyko- 
rzystania kałamarzy, a tym samym — liczby 
kolorów. 

Do napełniania kałamarzy wykorzystuje się 
procedurę 

ink (nrk, i, j) 

gdzie: 

nrk — numer kałamarza (który powinien 
uwzględnić tryb wykorzystania ekranu), 
i, j — numery kolorów tuszu (wg tabeli 1). 
W przykładzie 24 zamieszczono procedurę 
napełniania kałamarzy wg żądań użytkownika. 
Procedura ta wypełnia tylko tyle kałamarzy, 
ile wynika z trybu wykorzystania ekranu. 


W procedurze border podaje się numery dwóch kolorów zmienianych naprze- 
miennie kilka razy w ciągu sekundy. Jeśli oba numery są jednakowe, to efekt mi- 
gotania nic jest dostrzegalny. Program umożliwiający zmianę koloru pobocza (bez 
migotania) zamieszczono w przykładzie 22. 


Przykład 22 

Program ten /mienia kolor pobocza na odpowia- 
dający kolejnemu numerowi, po każdorazowym na- 
ciśnięciu dowolnego klawisza. Do sprawdzenia, czy 
wciśnięto klawisz, wykorzystano funkcję standardo- 
wą kcypressed przyjmującą wartość irue po wciś- 
nięciu klawisza i false po odczytaniu kodu wciśnię- 
tego klawisza (READ (kbd...) Po wyczerpaniu 
wszystkich możliwych kolorów, kolor pobocza jest 
zmieniany na niebieski (przyjmowany standardowo 
przez system). Efekt migotaniu można uzyskać reali- 
zując program z przykładu 23, w którym kolejne pa- 
ry kolorów pobocza są ustalone przez użytkownika. 


PR06RAN proo21 : 

VAR 

i Jinteaer: 
ch: chart 

(li grafik3.inc) 

BEGIN 

FOR i:*0 TO 26 DO 
BEGIN 

border (i . i ) i 

REPEAT UNTIL keypressed; 
READ ( kbd. ch); 

END; 

borderU.l); 

END. 


Przykład 24 

Jak już podano, do zapisu tekstów oraz 
kreślenia obrazów wykorzystywane są dwa 
różne pióra: tekstowe i graficzne. Z każdym z 
nich związane są oddzielne procedury. Ich 
omawianie rozpoczniemy od procedur zwią- 
zanych z piórem tekstowym. 

Użycie pióra tekstowego powinno być po- 
przedzone wyborem kałamarza, którego tusze 
będą wykorzystywane do zapisu tekstu. Służy 
do tego procedura. 

pen (nrk) 

gdzie: nrk — numer kałamarza. 

Wszystkie litery zapisywane są na tle, którego 


24 


PROCEDURĘ napełni j (tryb: integer) ; 

il.ki,k2, 
innteger; 
clii chart 
BEGIN 

IF tryb*0 THEN ili«16 
ELSE 

1F trybM THEN ili«4 
ELSE il:*2; 
ii*Oi 
REPEAT 

NRITELN(’z,iana tuszu u 'li 
NRITELNfkalaaarzu nr’, i); 
NRITELNC (T/N)?’); 

READIkbd.ch); 

IF (ch=’T"> OR (ch»’t’> THEN 
BEGIN 

NRlTELNCnr piereszego koloru’)) 
READLN(kll) 

NRlTELNCnr drugi ego koloru’ > i 

READLN(k2); 

inkli.kl.kz); 

END; 

ii*iłl| 

UNTIL i ‘ii; 

END; 


kolor wybierany jest przez wykonanie proce- 
dury. 

paper (nrk) 

gdzie: nrk — numer kałamarza. 

Jeżeli procedury te nie zostaną użyte przed 
wykorzystaniem pióra, to dla tła przydzielany 
jest standardowo kałamarz O, a dla pióra — 
kałamarz I. 

Dla ilustracji działania procedur paper i 
pen w przykładzie 25 po ustaleniu trybu wy- 
korzystariia ekranu i napełnieniu kałamarzy 
dla tła, a w przykładzie 26 — po czynnościach 
wstępnych — następuje wybieranie kolejnych 
kałamarzy dla pióra (przyjęto, że procedura 
uzupełniania kałamarzy znajduje się w zbiorze 
PROC '.NAP. PAS). 

Przykład 25 


PR06RAM prog23; 

VAR 

tryb, i 1 osc, nr ki integer; 
ch: char : 

(ii grafik3.inc> 

(fi procmp.pas) 

BEGIN 

NRITELNC podaj tryb*); 

READLNItryb) i 
napełni j (tryb); 

IF trvb s 0 THEN ilosc:«16 
ELSE 

IF trvb s l THEN ilości *4 
ELSE ilosc: s 2; 

■ode (tryb); 

FOR nrk:«0 TO ilosc-1 DO 
BEGIN 

paper (nrk); 

NR1TELN; 

HRITELHC012345678901234567B9’); 
REPEAT UNTIL keypressed; 
READ(kbd,ch); 

END; 

■ode (2); 
ink (0.1.1); 
paper (0); 
inni. 26, 26); 

E en(l); 

D. 


PROGRAM prog24; 

VAR 

tryb, ilosc,nrk: integer ; 
chschar: 

(Si grat i k3. inc) 

($i procnap.pas) 

BEGIN 

NRITELN(’podaj tryb’); 

READLN (tryb) : 
napełni j(tryo); 

IF tryb s 0 THEN ilosc:=16 
ELSE 

IF tryb*l THEN ilosciM 
ELSE ilosc: s 2; 

■ode(tryb); 

FOR nrk:«0 TO ilosc-1 DO 
BEGIN 
pen (nrk) : 

NRITELN* 

NRITELNC 01234567890123456789’ ) ; 
REPEAT UNTIL keypressed; 
READ(kbd,ch); 

END; 

■ode(2); 
ink(0,l.l); 
paper (0); 
ink (1,26,26); 
p«n(lh 

Przykład 26 

W obu podanych przykładach do ustalenia 
żądanego trybu wykorzystania ekranu zasto- 
sowano procedurę. 


f 


modele (nrtryb) 

gdzie: 

nrtryb — przyjmuje wartość 0,1,2. 

Należy tutaj wyjaśnić, że z trybem wykorzy- 
stania ekranu wiąże się również liczba znaków 
tekstu, które mogą być wyświetlone w jednym 
wierszu. 

Wynosi ona: 

— 20, dla trybu O, 

-» 40, dla trybu l, 

— 80, dla trybu 2. 

Przed zakończeniem każdego z programów 
przywracany jest standardowy tryb wykorzy- 
stania ekranu (2), standardowe numery kała- 
marzy tła (0) i pióra (1) oraz standardowe 
numery tuszów w tych kałamarzach. 


i® .i 
30 I 


4® DBŃU 24+X.0 
60 DRRU ®.24*x 
6® DRRU - 1 24 +x ) ,0 
70 DRRU 0,-<246X) 

1?8 P5S T xi0 TO 70 STEP 8 

Kg ml 

140 DRRU - (24+X> .0 
150 DRRU 0 , - (24»x ) 

160 DRRU 24 6X . 0 
170 NEXT X 



Program z przykładu 27 umożliwia prze- 
śledzenie wszystkich przedstawionych właści- 
wości pióra tekstowego 


i'rzyKiau * 


PROGRAM proo25; 

VAR 

tryb.nrlt: integer; 
chicnar: 

(li qr ał ik3. inc> 

(li procnap.pas) 

BEGIN 

NRITELN ( ’ podaj tryb’); 
READLNItryb); 

■odeltryb); 

NRITELN; 

REPEAT 

NRITELN ( ’ zaiana tuszu u ’); 
HRITELNCkalaiarzach (T/N)?’ ) ; 
READIkbd.ch); 

IF leh*’T’) DR (ch=’t’I THEN 
napełni j(tryb); 
NRITELNCziiana tla (T/NI?’I; 
READIkbd.ch); 

IF (ch=’T’I OR lch*’t’) THEN 
BEGIN 

NRITELNCpodaj nr kalaiarza’1; 
READLNInrk); 

^jjapertnrk); 

WtlTELNCtiiana piorą (T/N)?’); 
READIkbd.ch); 

IF lch=’T’) OR (ch=’t’I THEN 
BEGIN 

NRITELNC podaj nr kalaaarza’); 

READLNInrk); 

pen (nrk); 

END; 

UNTIL ch=’ ’; 

■ode<2) ; 
inklO.1,1); 
paper ID); 
ink (1 ,26,26) ; 
pen(l); 

END. 


W kolejnym odcinku zajmiemy się piórem 
graficznym. 

Stefan ROZMUS 



5 PRPER 4: INK 0 

10 PLOT 0,85 
20 DRRU 240,0 
50 LET X -70 

55 LET U >85 

56 FOR j-1 TO 6 

60 FOR i -10 TO 70 STEP 10 


1 % 


X .u , i 




25 



Komputerowy test dla kierowców 


Ten program może się przydać wszy 
stkim, którzy swój refleks i manualną spra- 
wność muszą utrzymywać w stałej kondycji. 
Dokładny opis działania znajduje się w pro- 
gramie. 

Program powstał w Wyższej Szkole Ofi- 
cerskiej Wojsk Pancernych w Poznaniu 


10 INPUT *Czy wynik testu na drukarce ? ( t - tak/ 1 
n -nie )'|druk4:IF drukOOT AND druk9<>*t* AND 
druk9<>'N* AND druk»OV THEN 10 
20 ilbl (D s 2t i lbl (2>*2:ilbl <3>=4rilbl (4l*5:oceprl= 
TEST NIE ZALICZ0NY*:ocezw**ocepr9 
30 kt*0:IF druk»*'t' OR druk»*'T' THEN PRINT IB.CH 
R* (27) CHR9(64) 

40 DIN tt(l0),c*n0),t(20),blad(10) 

S0 60SUB 2630: CIS: M0DE 1 : B0RDER 26: INF 0, 26: INK 1, 
6: INK 2,2: INK 3,0:PAPER 0:PEN 1 
60 NA*10: ZLY=6:CZAS*11: ZA»13:60T0 90 
70 L0AD "ser* 

BO IF INKEY4*" THEN 80 
90 czesc*l:cz*sct*stu*l 
100 ’ 

110 ’ ekran 1 
120 ’ 

130 CLSiHODE l:B0RDER 4: INK 0,26: INK 1,6: INK 2,9:1 
NK 3,11: PAPER 2:C19:PEN 0 

140 FOR e*l TO 4:blad(*)=0:NEYT e:czesc*t:czesctes 
tu*l:IF drukl*'T' 0R druk«*'t' THEN INPUT 'Podaj i 
•i ( i nazHisko';ieicł 

150 ON czesctestu 60T0 160,400,480,380,730 

160 CLS:H0DE 1 : B0RDER 4: INK 0,26: INK 1,6: INK 2,9:1 
NK 3,11: PAPER 2:CIS:PEN 0:PRINT 'Prograe jest prze 
znaczony do sprawdzaniarefleksu kierowc5w wojskowy 
ch pojazd5w aechanicznych.Czas reakcji jest zlicz 
a-' 

170 PRINT *ny przy 2 rodzajach bodjc5w:' 

180 PRINT * - dla oczu (zaysl wzroku!' 

190 PRINT ' - dla uszu (zaysl słuchu)' 

200 PRINT 'Prograe składa sit z 4 czt7ci, sekwency- 
jnie sprawdzaj Icych czas reakcji testo- wanego ki 
erowcy:' 

210 PRINT ' l.Test oczu - reakcja sygnalizowana do 

- wolni rtk I . " 

220 PRINT * 2. Test uszu - reakcja sygnalizowana do 

- wolni rtk!. 

230 PRINT * 3. Test oczu - reakcja lew! lub prawi 
rtkl w zale9no7ci od koloru.* 

240 PRINT ' 4. Losowa koebinacja 3 wy9ej wymienio- 
nych testSw.' y 

250 PRINT 'Ka9da ezt7* składa sit z 10 pr5b i jest 
zako3czona przedstawieniee 7 redńiego czasu rea 
kcji.’ 

260 PRINT 'Po czt7ci 4 testu nasttpuje podsueowani 
ei ocena badanego kierowcy wojskowego.* 

270 PRINT ' ' 

280 PEN liPPINT * klawisz COPY dla uruchomienia 
testu* 

290 IF INKEY'9)<X> THEN 290 
300 PEN 1 
310 CLS 

320 PRINT * 'SPRINT • CZ081 1 - TEST OCZU' 

.-PRINT ' ':PEN 0 

330 PRINT * Istot! tej czt7ci testu jest zbadanie 
czasu reakcji na bodźce odbierane przez ze 
ysl wzroku. Po odebraniu bodźca prawidłowa reakcja 
oolega na naci 7 nit- ciu klawisza SPACJA. Bodziec 
polega na* 

340 PRINT ’ wyTwietleniu 931tego kola na 
niebisskia polu roboczye,w dowolnym sitjscu 
ekranu. N dolnej czt?ci ekranu ukazuje sit czas r 


a-:,, r-. :os :.t:. Zt,t wczesr^ *ea-;ja ipr:»d 

ukazanie* sit kota! powoduje oowtSrnl prSbt. ' 

350 50SUP 25R0 

360 IF !NKEY(°!<>0 THEN 360 

370 FOR i*! TO lOsGOSUB lOlOit <I'*tb:NEXT i 

380 GOSUB 1310 

3°0 czf5ctestu*2:c:*sc*2:G0T0 150 

400 CLSiHODE UBOPCEP 4: INK 0.26: INK 1,6: INK 2. 7 :I 

NK 3,11: PAPER 2: CLS: PEN 0 ' 

410 PRINT * *: PEN liPPINT * CZ08I 2 - TE 

?T US.ZL'':PRIN7 • '.ren 0 


420 PRINT • Istot! tej czt 7 ci testu jest zbadani* 
::asu reakcji na bodice odbierane przez ze 
ysl słuchu. Po odebraniu bodźca prawidłowa reakcja 
oolega na n*ri’nit- ciu klawisza SPACJA. Bodziec 
polega na" 

430 PRINT * wygenerowaniu orzez eikrokoecutsr sy- 
gnału djwitkowego.H dolnej czt7ci ekranu u 
kazuje sil czas reakcji na bo- dziać. Zbyt wczesna 
'eakcja (przed ususzenie* sygnału diwitkow 
ego) powo- duje powtSrni pr5bt.' 

440 5CSUB 25*0 

450 IF INKEY f«!O0 THEN 450 

160 C 0R :*1 TC 10 : GOSUB 1 420 : t fi ' *tbz NE>T i : GOSUB 

1310 

470 cz*scte§tu*3:c:isc»3:S0T0 150 
480 GOTO 4**0 

490 CLSiHODE HB0PDEP 4: INK 0.26: INK 1,6: INK 2,9:1 
NK 7,1!: PAPER 2:CLS:?EN 0 
500 CLS: PEN liPPINT • CZ08I 3 - TEST OCZU* 

: PRIN 7 * *:PEN 0 

510 epiNT "Istot ' tej czC7ci testu jest zbadanie 
czasu reakcji na bodje* odbierane prze? zsysl wzr 
oku. Bodziec polega na wv7wie- tleniu czerwonego 1 
ub zielonego kola na niebieskie polu roboczy* w 
dowo- lny* *i*jscu ekranu. Prawidłowa reakcja* 
520 PRINT 'polega na: 

-naci7ni£ciu lew! rtk! klawisza l po poka 
zaniu sit koloru czerwonego -naci 7 nitciu praw! 
rtk! klawisza 0 po pokazaniu sit koloru zie 
lonego* 


530. PRINT *N dolnej czC7ci ekranu ukazuje sit 
czas reakcji na bodziec. Zbyt wczesna reakcja ( 
przed ukazanie* sit kola) lub niewla7ciwa (naci7n 
itci* meodpowiednie-go do koloru klawisza! powodu 

540 PRINT 'powtSrn! prSbt.' 

550 GOSUB 2590 

560 IF INKEY(9)<> 0 THEN 560 

5 7 0 FOR i*l TO 10: GOSUB lOlójt 4i '*tb:NE*T i:G0SUB 

1310:CZMCtMtU»4lCZMC*4 

580 CLS: WPE liBORDER 4: INK 0,26: INK 1,6: INK 2,9:1 

NK 3, 1 1 j PAPER 2: CLS: PEN 0 

5«0 CLS: REN liPRINT ■ ':PRINT * CZO 

BI 4 KOMBINACJA TEST6N 1,2 

,3*: PEN OiPRINT * * 

600 PRINT 'Istot! tej czt7ci jeet zbadanie czasu 
reakcji na dowolny z prredte* przedsta- wionych b 
od: cSw. Obowi !zuj! dotychczaiowezasady:* 

610 PRINT '1. Prawidłowe reakcje: 

sygnał djwitkowy - klawisz SPACJA 95tta 
Dlaaka - klawisz SPACJA czerwona plaaka 
- klawisz *r zielona plaaka - klawi 

sz ’0’* 

620 PRINT *2.Zbyt wczesna reakcja powoduje powt5rn 
' prSbt. J.Bodjce 

s! generowane losowo, a wite ni* *o°es; przewi 
dzi*',jaki bidzie prezentowany, przez aikrokoa 
puter." 

630 60SUB 2590 

640 IF INKEY (9)0 0 THEN 640 

650 FOR 1*1 TO 10 


660 *«*INT(RND , l)i: c . « , .--łht FNDd)tt5>d 

6 7 0 wx»*xv HOD 2:yyy*yy NOD 2 

680 IF m*0 AND yyy«0 THEN czesctestu*!: GOSUB 101 

0:t(:)*tb 


690 IF m«0 ANO yyy*l THEN czesct*stu*2:60SU8 142 
Oit(i **tb 


700 IF **X *1 THEN czesctestu*!: GOSUB I010:t(i!*tb 
7 10 NEYT 1 
720 GOSUB 1310 

750 CLSiHODE 1 : BORDER 4: INK 0,26: INK 1,6: INK 2,9:1 
NK 3,11: PAPER 2:CLS:PEN 0 
740 CLS: PEN liPPINT • ':PP1NT ■ *:PPINT • 
°CDSUHQHANIE TE8TU':PEN OiPRINT * *:PRINT ' W pos 


zc:eg51nych cz£7ciach 
cujlce 7 redn:e czasy 
750 pr*(ttd!+tt(21)/t 
7 60 pr*(ROUND(prtlOO' ' 
770 IF bladd!*l THEN 
7 80 PRINT * CZOBJ 1 
•jttdłłSOTO 800 
790 PRINT * CZ08I l • 
900 IF blad(2>*l THEN 
810 PRINT • CZ081 2 • 
*ltt(2':G0T0 830 
820 PRINT • CZ081 2 • 
930 IF blad(Ji*i THEN 
840 PRINT * CZ08I 3 • 
•;tt(I!:60T0 860 
850 PPINT ■ CZ08I 3 • 
960 IF blad(4'*l THEN 
870 PPINT * CZ08I 4 • 
■jtt(4):60T0 890 


testu uzyskaleT nastt 
reakcji :’:PRINT * * 
::zw*itt(3)*tt(4łł/2 
'100:zws|R0UND(:wll00! 1/100 
790 

- TEST OCZU - *:USIN6 '•».»» 

- TEST OCZU - NIE ZALICZONA' 
820 

■ TEST USZU - 'iUSING *ł#.M 

• TEST USZU - NIE ZALICZONA' 
850 

■ TEST OCZU - ';USIN6 '80.89 

TEST OF . NIE ZALICZONA* 
980 

KOMBINACJA - 'jUSINfi 'Ił.łl 


880 PPINT * CZ08I 4 - KOMBINACJA - NIE ZALICZONA' 
890 IF blad(l)*l OR blad(2>*l THEN 010 ELSE 930 
900 IF blad(3ł*l OP blad<4!*l THEN 920 ELSE 94* 

910 PRINT * *:PRINT * BADANIE REAKCJI PROSTEJ - NI 
E ZALICZONE*:60TO 900 

920 PRINT ' BADANIE REAKCJI Z NYBOREH - NIE ZALI- 
CZONE' :60T0 950 

930 PRINT ' 'zPPINT * 8R. CZAS REAKCJI PROSTEJ: 
'jUSING *lf.»t'|pr 

940 PPINT * 8R. CZAS REAKCJI Z NYBOPEH: *;USIN6 *1 

8.88'jzw 

950 IF druk***T* OR druk»**t* THEN GOSUB 2060 
960 LOCATE 1,20:PRINT • J*9*!i chcesz uzyska* ocen 
t testu naci- 7ni j klawisz C0RY,j*7!i nie - ENTER' 
z IF INKEY(9X>0 AND INKEY(6K>0 THEN 960 
970 IF INKEY (9) *0 THEN 1660 


9B0 LOCATE 1,20:PRINT * Jt9*li chcesz powt5rzy* te 
st - naci7nij klawisz C0PY,j*71i nie - ENTEP 
" Z IF INKEYtf »<>0 AND INKEY (9) <>0‘ THEN 980 
990 IF INKEY/9ł*0 THEN 90 
1000 END 

1010 CLS tOs CLS »l:BOPDEP 9: INK 0,U:INK 1,24:INK 
2,6: INK 3,9:PAPER »0,2tPEN «0,1:PAPEP tl.OiPEN łl, 
1 

1020 NINDON #0, 1,40, 20, 25: NINDOW 91,1,40,1,19 
1030 ’ plaaka 

1 040 a»*CHP4 ( 1 43 ) +CHR9 d 44! +CHRI dO ) +CHRI f 8 ) »CHR9 ( 
9'*CHRId45!*CHR*d46) 

1050 CLS 

1060 'randcaiz* - czas od i do 11 sak, 

1070 g*JNT(RND(l'»10>d:9l*TINE 
1080 g2*TIME: jl«INKEY4 

1090 IF INKEY (4 7 '«0 OR INKEY(32>»0 OR INKEY(64l*0 
THEN LOCATE #0, ZA, 2: PPINT 90, 'Za wcz*7nie '('"iFO 
R ii*l TO 1000: NEYT: CLS 90:bl*dy*bl*dvd:CLEAR INP 
UT:IF biedy > ilbKczesc) THEN 1610 ELSE 1070 
1100 IF <(g2-gl!/300)<g THEN 1000 
1110 **INT(RNDd)l35)diy*JNT(RNDd)ll5>d 
1120 IF cz*sct#stu<3 THEN 1170 


26 


1130 *t«rl« KOD 2 

1140 IF «t»rl * O THEN 1130 ELSE 1160 
1150 PEN ll,3:GOTO 1170 
1160 PEN 11,2 

1170 LOCATE V 1 , x , y: CLEAP INPUTiPPINTtl, i t*TIHE 

1180 IF cmctHtK3 THEN 1230 

1190 IF INKEYI*" THEN 1190 

1200 IF INKEY(32>«0 AND tt»rl*0 THEN 1230 

1210 IF INXEY<64)«0 AND it*rl»l THEN 1230 

1220 LOCATE I0,NA,2:PR1NT 40,'NlclM!l»7 Uy kllNi 

tz '"":FOR il«t TO tOOO:NEIT:CLS IO:CLS llsblfd 

■blłdyMiCLEAR INPUT: IF blady > HbMcinc) THEN : 


610 ELSE 1070 

1230 IF INKEY4*" THEN 1230 
12<0 IF INKEY<47) <>0 THEN 1220 
1250 tb*ITINE-t''300 

1260 LOCATE I0,CZAS,2:PRINT 'CZAS REAKCJI:': USInG 

1270 LOCATE I0,NA,6:PRINT IO,'Naci7nij kiami: COP 
Y* 

1280 IF I*EY(9)<>0 THEN 1280 
1290 CLS41 

1300 CLEAP INPUTtRETURN 


1310 CLS:REN ODLICZANIE ŚREDNIEGO CZASU REA. ZJ 
I 

1320 tl jd*0 

1330 FOP »*1 TO 10ltljd«t(*J*tijdłNEXT * 

1340 tt(cmc> z ti Jd/IOiON CZESC GOTO 1330,1360,137 
0,1380 

1350 LOCATE łO,l,2:PRINT * 8REDNI CZAS REAKCJI TNO 
ICH OCZUi 60T0 1390 

1360 LOCATE tO,l,2:PRINT ' BREDNI CZAS REAKCJI THO 
ICH USZU:':60T0 1390 

1370 LOCATE #0,1,2:PRINT • BREDNI CZAS REAKCJI TNC 
ICH OCZUt a : 60T0 1390 

1380 LOCATE IO,l,2iPRINT ' 8REDNI CZAS REAKCJI OC: 
U I USZU:' 

1390 LOCATE #0, 35,2:PRINT USIN6 'M.M';tt<cz>sc>: 
LOCATE łO,NA,6:PRINT »0,'Naci7nlJ kiami: COPY' 
1400 IF INKEY (9> < >0 THEN 1400 
1410 RETURN 

1420 CLE 10: CLE «1:B0RDE» 9: INK 0,U:INK 1,24: IN» 
2,6: INK 3,9: PAPER I0,2:PEN tO.UPAPER «1,0:PEN 11. 
1 

1430 WINDOM 10, 1 , 40, 20, 25: WINDOM 11,1,40,1,19 
1440 CIS 

1450 g*INTiRNDU)llO>M:gl=TIHE 
1460 g?=TIH£;IF INKEY(4?>*0 THEN LOCATE 80,ZA,2:PR 
INT *Zi «z»7niB" 1 !':FOR ii*l TO IOOOiNEKT: CLS » 
ibledy*blidy»l:CLEAR INPUT: IF biedy > ilbl (czeto 
THEN 1610 ELSE 1450 

1470 IFUg2-gl>/300Kg THEN 1460 

1480 CLEAR INPUT:PRINT»l,CHRt(7llt*TIHE 

1490 :»*INKEY4:IF 1$*" THEN 1490 

1500 IF INKEY *471*0 THEN 1530 

1510 LOCATE I0,NA,2:PRINT 40,'Nac:»n!lt7 zly klik. 


tz ' 1 ! !':FOR ii*l TO 1000:NEIT:CLS 40: CLS II: biedy 

*bledy*li CLEAR INPUT: IF biedy > llbl(czetc) THEN 1 

610 ELSE 1450 

1520 CLS IliGOTO 1450 

1530 tb*(TIHE-t)/300 

1540 LOCATE 40, CZAS, 2i PPINT 'CZAS REAKCJI:'; USING 
'44, .44*; tb 

1530 LOCATE I0,NA,6:PRINT 40,'N«i7nij klams: COP 
Y* 

1560 IF INKEYtflOO THEN 1560 
1370 CLS 

1580 CLEAR INPUT: RETURN 

1590 PRINT 'JESZCZE RAZ ? ...TO NACISKAJ KLUCZ* 

1600 IF INKEYt*" THEN 1600 ELSE RUN 

1610 ’ 0BS2U6A 8LED0W BADANEGO 

1620 bl ad (czesc 1 *1 : tt ( czetc ) *0: czetctei tu*czetctei 

tu»l:c:isc=c:»sc*l 

1630 CLS: KODĘ 1: BOR DER 4: INK 0,26: INK 1,6: INK 2,9: 
INK 3, 1 1 1 PAPER 2: CLS: PEN O 
1640 LOCATE 2,U:PR1NT • P0PE2NI2E8 ZA DU:0 B20 
D6N »! 

PP6BA NIEZALICZONA' : FOR 1*1 TO 1700: 

NEIT 

1650 bledy*0:lF czesc > 4 THEN 730 ELSE 150 

1660 REK OCENA NYNIKON TESTU 

1670 IF blid'l)*l OR bladi2)*l THEN ocpr>0:G0T0 17 

30 

1680 IF pr >« 0.27 THEN ocenipr*2 
1690 IF pr < 0.27 THEN ocenipr«3 
1700 IF pr > 0.32 THEN oceiupr*! 

1710 IF pr < 0.23 THEN ocempr>4 
1720 ocpr»l 

1730 IF bl«d(3)M OR blatf (4>>1 THEN kzm*O:60T0 17 
90 

1740 IF zm >■ 0.52 THEN ocenazirf 
1750 IF zm < 0.52 THEN oceft«r»«3 
1760 IF zm > 0.59 THEN ocetiiZM*l 
1770 IF zm < 0.47 THEN ocenazM«4 
1780 oczm*1 

1790 CLS: KODĘ 1 : BORDER 4:INK O, 26: INK 1,6: INK 2,9: 
INK 3, 1 1 1 PAPER 2: CLS: PEN I 
1800 PRINT ' \PRINT ' tttt OCENA REAKCJI PROST 
EJ lltl':PRINT ' *:PEN Ol IF ocpr*0 THEN PRINT ocep 
rf:60T0 1930 

1810 PEN 0:0N ocenapr GOSUB 1830,1860,1880,1910 
1820 GOTO 1930 

1830 PRINT ' TWOJE WYNIKI 8) BARDZO S2AIE. 

CZAS REAKCJI PROSTEJ DYSKWALIFIKUJE CIO JAK 

0 KIEROWCO WOJSKOWEGO. ZDECYDOMA- NIE KUSISZ 1NICZ 

Y] CZAS REAKCJI PROSTEJ NA BODICE WZROKOWE 

1 S2UCH0NE. * 

1840 PRINT * UZYSKA2E8 OCENO : 2' 

1850 RETURN 

1860 PRINT ' TWOJE NYNIKI S) S2ABE.CZAS REAKCJI 
PROSTEJ KWALIFIKUJE CIO JAKO KIEROWCO MOJ SKON 

E60.AU KUSISZ ZDECYOOMANIE JNICZYJ CZAS REAK 
CJI PROSTEJ NA 80D<C£ WZROKOWE I •S2UCH0NE. 
UZYSKA2E8 OCENO : 3* 

1870 RETURN 

1880 PRINT ' TWOJE NYNIKI S) DOBRE. 

CZAS REAKCJI PROSTEJ KWALIFIKUJE CIO JAKO KI 


ERONCO W0J5K0WE60.NIE ZASZKODZI JEDNAK JAK BODZIE 
iZ 1NICZY2 CZAS REA- KCJI PROSTEJ NA 80D<CE HZRO 
^OWE I S2UCH0WE. " 

:8*0 PRINT ' UZYSKA2E8 OCENO : 4* 

1900 RETURN 

1910 PRINT * TWOJE NYNIKI S) BARDZO DOBRE. 

CZAS REAKCJI PROSTEJ KWALIFIKUJE CIO JAKO KI 
ERONCO WOJSKOWEGO. NIE KUSISZ JNICZYJ CZASU REA 
KWI PROSTEJ NA BOD < CE WZROKOWE I S2UCM0NE. 

1920 RETURN 

1930 PEN 1 zPRIHT ■ 'iPRINT • 4444 OCENA REAKCJI 

Z NYBOREK lllfiRRINT * *:PEN Oz IF ocz-*0 THEN *>RI 
NT oceprt:60T0 1950 

1940 ON KCAiZM GOSUB 1«60,1®90, 2010,2040 
1930 IF druk»*'T' OR druk4«*t' THEN 2310 ELSE 980 
1960 PRINT ‘ TWOJE NYNIKI 8) BARDZO S2ABE. 

CZAS REAKCJI Z NYBOREK DYSKWALIFIKUJE CIO JAK 
O KIEROWCO WOJSKOWEGO. ZDCCYDOWA- NIE HUSIS! JNICZ 
YJ CZAS REAKCJI Z NYBOREK NA BOD<CE WZROKON 

r ] ę: irWIHf* 

1970 PRINT ' UZ YSKA2E8 OCENO : 2' 

1980 RETURN 

1990 PRINT ' TWOJE NYNIKI S) S2ABE.CZAS REAKCJI 
1 NYBOREK KWALIFIKUJE CIO JAKO KIERONCO NOJSKON 
E60.ALE KUSISZ ZDECYDONANIE JNICZYJ CZAS REAK 
Wl' Z NYBOREK NA BOD<CE WZROKOWE I S2UCH0NE 
UZYSK A2E8 OCENO : 3' 

2000 RETURN 

2010 PRINT * TWOJE NYNIKI 8J DOBRE. 

CZAS REAKCJI Z NYBOREK KWALIFIKUJE CIO JAKO KI 
ERONCO W0JSK0WE60. NIE ZASZKODZI JEDNAK JAK BODZIE 
SZ JWICZY2 CZAS REA- KC-»I Z NYBOREK NA BOD<CE HZ 
ROKONE I S2UCH0NE.' 

2020 PRINT ' UZYSKA2E8 OCENO : 4' 

2030 RETURN 

2040 PRINT ' TWOJE NYNIKI S) BAROZO DOBRE. 

CZAS REAKCJI Z NYBOREK KWALIFIKUJE CIO JAKO KI 
ERONCO WOJSKOWEGO.NIE KUSISZ JNICZYJ CZASU REA 
KCJI Z NYBOREK NA BOIKCE WZROKOWE I S2UCH0HE. 
UZYSKA2E8 OCENO : 3* 

2050 RETURN 

2060 ’ Myjtcle na drukarkę 
2070 kt»kt*l:PRINT 48,' ':PRINT 48,' ':PRINT 18, CH 
M(27) CHR*(B7) CHR4I1) CNN (27) CHR4(71):IF kt»I 
THEN PRINT 18,' NYNIKI TESTOWANIA REAKWI* 

2080 IF kt«l THEN PRINT 48,' PROSTEJ I Z 

NYBOREK’: PRINT I8.CHRK27) CHRK72) 

2090 PRINT !8,kt;'.*|initl 

2100 PRINT 48, CHR4 (27) CHRII87) CHRI(O) 

2110 IF biad(l)«l THEN 2130 

2120 PRINT 08,' CZESC I - TEST OCZU - *;US 

ING '••.#•' ;tt(l):60T0 2140 

2130 PRINT 48,' CZESC 1 - TEST OCZU - NIE 

ZALICZONA* 

2140 IF blad(2»l THEN 2160 

2150 PRINT 48,' CZESC 2 - TEST USZU - ';US 

ING ‘II. 44'ttt (2> (60T0 2170 

2160 PRINT 48,' CZESC 2 - TEST USZU - NIE 

ZALICZONA* 
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Uwaga Atari! 


niskie częstotliwości średnie częstotliwości 


AUDC1-4 

wysokie częstotliwości 


0 0 0 


licznik Geigera szalejący ogień prąd powietrza wrzenie 

0 X 1 


karabin maszynowy stojący samochód silnik elektryczny transformator 

0 1 0 


spokojny ogień jadący samochód mocy 

1 0 0 


zawalenie budynku dudnienie radiowe wodospad 

1 X 1 


czyste tony 

1 0 0 


samolot strzyżenie trawnika elektryczna maszynka do golenia 


Odpowiednio programując rejestry niezależnego sterowania Kanałami AUDC 1—4 otrzymać można takie oto efekty 
dźwiękowe. 
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2170 IF blad(3)-l THEN 1190 

2180 PR1NT 98,- CftSC 3 - TEST OCZU - *»US 

1 NB *!•. (3> tGOTO 2200 

2190 PRINT «8, a CZESC 3 - TEST OCZU - NIE 

ZALICZONA* 

2200 IF bl id (41=1 THEN 2220 

2210 PRINT *8,* CZESC 4 - KOMBINACJA - *{US 

ING *»MI*itt(4):60T0 2230 

2220 PRINT 18,* CZESC 4 - KOMBINACJA - NIE 

ZALICZONA* 

2230 IF blad(l)»l OR bl*d<2)*l THEN 2250 ELSE 2280 

2240 IF blad(3)*l Ofi blad(4)*l THEN 2270 ELSE 2290 

225u PRINT »8," ‘ 

2260 PRINT IB,* BADANIE REAKCJI PROSTEJ - 
NIE ZALICZ9NE‘:60TD 2240 

2270 PRINT 18,* BADANIE REAKCJI Z NY80REM - 
NIE ZALICZONE*:60TO 2300 

2280 PRINT 18.* *:PRINT 18.* SR. CZAS REAKCJ 
I PROSTEJ: *:USIN6 *U.lf;(tt(l)*tt(2))/2:6OT0 

2240 

2290 PRINT 18,* SR. CZAS REAKCJI Z WYBOREM: 
*:USIN6 *«ł.#l*j(tt(3)*tt(4ł)/2 
2300 RETURN 

2310 PRINT 18,* ":PRINT 18,* ***** OC 

ENA REAKCJI PROSTEJ *****':PRINT IB,* *:IF ocpr«0 
THEN PRINT l8,ocem«:60T0 2450 
2320 ON ocwwr SOSUB 2340,2370,2390,2420 
2330 GOTO 2450 

2340 PRINT 18.* TWOJE NYNIKI SA BARDZO SLAB 
E . CZAS REAKCJI PROSTEJ DYSKWALIF IKUJE*:PRINT 18,* 
CIE JAKO KIEROWCĘ W0JSK0WE60. ZDECYDOWANIE 
MUSISZ CNICZYC CZAS*:PRINT 18,* REAKCJI PRO. 
STEJ NA BOOZCE NZROKONE I SŁUCHOWE." 

2350 PRINT 18,' UZYSKAŁEŚ OCENE : 2* 

2360 RETURN 

2370 PRINT 18,' TWOJE NYNIKI SA SLABE.CZAS 
REAKCJI PROSTEJ KWALIFIKUJE CIE*:PRINT 18,* 

JAKO KIERONCE WOJSKOWE&O, ALE MUSISZ ZDECYDOWANIE 
CNICZYC CZAS* 

2380 PRINT 18,* REAKCJI PROSTEJ NA BODŹCE N 
ZROKONE I SLUCHONE':PRINT 18,* UZYSKAŁEŚ OC 
ENE i 3*: RETURN 

2390 PRINT 18,' TWOJE NYNIKI SA OOBRE.CZAS 

REAKCJI PROSTEJ KWALIFIKUJE CIE JAKO*:PRINT 18,* 
KIERONCE N0JSK0WE60.NIE ZASZKODZI JEDNAK JA 
K BĘDZIESZ CNICZYl*:PRINT 18,* CZAS REAKCJI 
PROSTEJ NA BODŹCE NZROKONE I SLUCHONE.* 

2400 PRINT 18,* UZYSKAŁEŚ OCENE .- 4* 

2410 RETURN 

2420 PRINT 18,' TNOJE NYNIKI SA BARDZO DÓBR 
E.CZAS REAKCJI PROSTEJ KWALIFIKUJE CIE':PRINT 18,' 
JAKO KIERONCE N0JSK0NE80.NIE MUSISZ CNICIY 
C CZASU REAKCJI PROSTE J *: PRINT 18,' NA BOOZ 
CE NZROKONE I SLUCHONE.' 

2430 PRINT 18,* UZYSKA2ES OCENE j 5* 

2440 RETURN 

2450 PRINT 18,* *:PPINT 18,* Ittll OCE 

NA REAKCJI Z NYBOREU *»II**:PRINT 18,* *:IF oc:**0 
THEN PRINT *6. ocezMS: GOTO 980 
2460 ON ocena:* 60SUB 2480,2510,2530,2560 
2470 60T0 980 

2480 PPINT 18,* TNOJE NYNIKI SA BARDZO SLAB 

E.CZAS REAKCJI Z WYBOREM DYSKWAL IFIKUJE' :PRINT 18, 

* CIE JAKO KIERONCE W0JSK0WE60. ZDECYDOWANIE 
MUSISZ CNICZYC CZAS':PRINT 18,* REAKCJI Z 
WYBOREM N t. BODŹCE NZROKONE I SLUCHONE.* 

2490 PRINT 18,* UZYSKAŁEŚ OCENE : 2* 

2500 RETURN 

2510 PRINT 18,* TNOJE NYNIKI SA SLABE.CZAS 

REAKCJI Z WYBOREM KWALIFIKUJE CIE*:PRINT 18,* 

JAKO KIERONCE N0JSK0NE60, ALE HUSISZ ZDECYDONANI 
E CNICZYC CZAS*:PRINT 18, * REAKCJI Z NYBORE 
H NA BODŹCE NZROKONE I SLUCHONE.* 

2520 PRINT 18,* UZYSKAŁEŚ OCENE : 3*:RETURN 

2530 PRINT 16,' TNCJE NnilK! SA OOBRE.CZAS 

REAKCJI Z NYBOREN KNALIFIKUJE CIE':PRINT 18,' 

JAKO KIERONCE N0JSK0NE60. NIE ZASZKODZI JEDNAK J 
AK BEDZIESZ':PRINT 18,* CNICZYL CZAS REAKCJ 


I Z NYBOREN NA BODŹCE NZROKONE I SLUCHONE.' 

2540 PRINT 18,' UfYSKALES OCENE : 4* 

2550 RETURN 

2560 PRINT 18,' TNOJE NYNIKI SA BARDZO DÓBR 

E.CZAS REAKCJI Z NYBOREN KNALIFIKUJ£*:PRINT 18,* 
CIE JAKO KIERONCE NOJSKONEGO. NIE HUSISZ CNIC 
ZYC CZASU «AK£Jf:PRiNT #8, Ł Z NYBOREN NA 
BODŹCE NZROKONE I SLUCHONE. ' 

2570 PRINT 18,* UZYSKAŁEŚ OCENE : 5* 

2580 RETURN 

2590 PRINT * Ta cz[7' testu składa sit : 10 pr5b, 
na jej iako3czenie *y7*ietli sil 7re- dni cza 
s reakcji. U*aga: 

Gdy jeste7 got5* nacl7nij k 

lamii COPY* 

2600' RETURN 

2610 IF INKEY**** THEN 2610 

2620 6CT0 130 

2630 SYMBOL AFTER 142 

2640 SYMBOL 171,0,0,120,12,124,204,118,3 

2650 SYMBOL 172,24,60,102,102,126,102,102,3 

2660 SYMBOL 173,24,0,60,102,96,102,60,0 

2670 SYMBOL 174,24,60,102,192,192,102,60,0 

2680 SYMBOL 175,0,0,60,102,126,96,60,6 

2690 SYMBOL 176,254,98,104,120,104,98,254,3 


2700 SYMBOL 177,56,24,28,24,56,24,60,0 
2710 SYMBOL 178,240,96,112,96,226,102,254,0 
2720 SYMBOL 179,24,0,220,102,102,102,102,0 
2730 SYMBOL 180,24,198,230,246,222,206,198,0 
2740 SYMBOL 181,24,0,60,102,102,102,60,0 
2750 SYMBOL 182,12,56,108,198,198,108,56,0 
2760 SYMBOL 183,24,0,60,96,60,6,124,0 
2770 SYMBOL 184,24,60,96,60,6,102,60,0 
2780 SYMBOL 185,24,0,126,76,24,48,126,0 
2790 SYMBOL 186,254,198,140,126,48,102,254,0 
2800 SYMBOL 187,12,24,126,76,24,48,126,0 
2810 SYMBOL 188,48,254,172,24,50,102,254,0 
2820 KEY DEF 10,1,55,171,172 
2830 KEY DEF 11,1,56,173,174 
2840 KEY DEF 3,1,57,175,176 
2850 KEY DEF 20,1,52,177,178 
2860 KEY DEF 12,1,53,179,180 
2870 KEY DEF 4,1,54,181,182 
2880 KEY DEF 13,1,49,183,184 
2890 KEY DEF 14,1,50,185,186 
2900 KEY DEF 5,1,51,187,188 
2910 SYMBOL 1 43, 3, 31 , G3, 127, 127, 127,255, 255: SYMBOL 
144, 192, 248, 252, 254, 254,254,255, 255: SYMBOL 1 45, 25 
5,255, 127, 127, 127, 63, 31, 3: SYMBOL 146,255,255,254,2 
54,254,252,248,192 
2920 RETURN 



APPLICATION - wersja użytkowa, zastosowanie, także: 
sposób użycia, 

APPLICATION LAYER - warstwa aplikacyjna, * 
APPLICATION PROGRAM - program aplikacyjny (realizu- 
jący określone zadanie), program użytkowy, 
APPLICATION SOFTWARE - oprogramowanie użytkowe, 
APPLICATION SYSTEM ADMINISTRATOR - admini strator 

zastosowań, 

APPLICATIONS ENGINEERING - projektowanie zastoso- 
wania, projektowanie systemu informatycznego, 

APPLY - zastosować, 

APPROACH - metoda, podejście, rozwiązanie, sposób, 
APPROPRI ATE - odpowiedni, stosowny, 

APPROXI MATĘ - przybliżony, 

APPROXI MATĘ COMPUTATION - rachunek przybliżony, 
APPROXI MATELY - w przybliżeniu, 

APPROXI MATI ON - aproksymac ja, przybliżenie, 

APPROXI MATI ON ERROR - błąd przybliżenia, 

APT - patrz: AUTOMATIC PROGRAMMING FOR TOOLS, 

ARABIC NOTATIONS - cvfry arabskie, 

ARABIC NUMBERS - cyfry arabskie. 

ARABIC NUMERALS - cyfry arabskie. 

ARBITRARY ACCESS - dostęp dowclny, 

ARBITRARY FORMAT - fermat dowolny, 

ARBITRARY SEOUENCE COMPUTER - komputar sekwencyjny 
z dowolnym wykonywaniem rozkazów, 

ARCADE GAMĘ - gra rozrywkowa, 

ARCTANGENT - arcus tangens, 

AREA - obszar, 

AREA DEFIN1TION - definiowanie obszaru, 

AREA SEARCH - przeszukiwanie obszaru (pamięci), 

ARGUMENT - argument, parametr, zmienna niezależna, 
ARITHMETIC CHECK - kontrola arytmetyczna, 

ARITHMETIC INSTRUCTION - rozkaz arytmetyczny, 

ARITHMETIC -LOGIC UNIT CALU) - Jednostka arytme- 
tyczno-logiczna, 

ARITHMETIC REGISTER - rejestr arytmometru, 

ARITHMETIC SECTION - moduł arytmometr J, 

ARITHMETIC SHIFT - przesuniecie arytmetyczne, 

ARITHMETIC UNIT - arytmometr, jednostka arytme- 
tyczno- logiczna, 

ARITHMETICAL COMPUTATION - działania arytmetyczne, 
ARITHMETICAL PROGRESSION - postęp arytmetyczny, 

ARQ - patrz: AUTOMATIC REQUEST FOR REPEATS, 

ARRANGE IN ORDER OF. . . - uszeregować w kolejności... , 
ARRANGEMENT - rozmieszczenie, układ, także: pro- 
jektowanie, 

ARRAY - tablica (zbiór zmiennych o wspólnej nazwie), 
ARRAY ELEMENT - element tablicy, 

ARRAY OF CORES - matryca rdzeni, 

ARRAY PROCESSOR - procesor macierzowy, 

ARROW - patrz: ARROWHEAD, 

ARROWHEAD - strzałka wskazująca (np. na wykresie), 
ARTIFICAL INTELLIGENCE - sztuczna inteligencja, 
ARTIFICIAL DATA - dane sztuczne, dane zmyślone, 

ASA FONT - pismo ASA (pismo stylizowane dostosowane 
do odczytywania optycznego), 

ASCENDING - rosnący, wstępujący, wzrastający, 

ASCERTAIN - ustalić, upewnić Sie, stwierdzić dokładnie, 
ASPECT RATIO - współczynnik kształtu obrazu (sto- 
sunek długości osi pionowej do poziomej obrazu), 
ASSEMBLER - program assembler, translator Jeżyka 
symbolicznego, 

ASSEMBLER LANGUAGE - Jeżyk typu assembler. Jeżyk 
assembler owy, 

ASSEMBLY - tłumaczenie Jeżyka symbolicznego, 

ASSEMBLY INSTRUCTION - instrukcja assemblera, 

ASSEMBLY LANGUAGE - jeżyk symboliczny, jeżyk adresów 
symbolicznych, 

ASSEMBLY LINĘ ROBOTS - rdboty montażowe, 

ASSEMBLY PROGRAM - translator Jeżyka symbolicznego, 
ASSEMBLY ROUTIME - translator jeżyka symbolicznego, 
ASSESS - oceniać, szacować, 

ASSESSMENT - ocena, oszacowanie, 

ASSIGN - przyporządkować, przydzielić, także: okre- 
ślić, 

ASSIGN PRIORI TI ES - wyznaczyć pierwszeństwo, okre- 
ślić priorytet. 

ASSIGNMENT - przydział, wyznaczenie, przyporządko- 
wał i e, 

ASSIGNMENT PROBLEM - zagadnienie przydziału, problem 
przyporządkowani a, 

ASSIGNMENT SrATFMFNT • r • ału, 

ASSOCIATE - dołączony, sprzężony, stowarzyszony, 
ASSOCIATED DESCRIPTOR - deskryptor skojarzeniowy, 
ASSOCIATED GROUP - grupa stowarzyszona, 

ASSOCIATED MATRI X OF LINEAR MAP - macierz odpowia- 
dająca odwzorowaniu liniowemu, 

ASSOCI ATIVE MEMORY - pamięć asocjacyjna, pamięć sko- 
jarzeniowa, 

ASSOCI ATI VE STORAGE - pamięć asocjacyjna, 

ASSOCI ATOR - urządzenie kojarząc* (elementy podo- 
bne) 

ASSORT - sortować, segregować, dobierać, 

ASSORTNENT - dobór, zestaw, także: sortowanie, se- 
gregowanie, 

ASSUMED DECIMAL POINT - przecinak obliczeniowy, 
ASSUMED MEAN - średnia dowolnie przyjęta, 

ASSUMPTION - założenie, przypuszczenie, 

ASSURANCE - pewność, 

ASTERISK - gwiazdka jako znak graficzny, odsyłacz, 
ASYNCKRONOUS - asynchroniczny. 


ASYNCHRONOUS COMPUTER - komputer asynchroniczny, 
ASYNCHRONOUS METHOD OF OPERATION - praca w trybie 
asynchronicznym, praca asynchroniczna, 

ASYNCHRONOUS OPERATION - praca w trybie asynchro- 
nicznym, praca asynchroniczna, 

ASYNCHRONOUS SERIAL PROTOCOL - asynchroniczny pro- 
tokół szeregowy, 

ASYNCHRONOUS TRANSMISSION - transmisja asynchro- 
niczna (każdy znak poprzedza bit startu a po znaku 
występuję bit stopu) , 

AT DIFFERENT LEVELS - na różnych poziomach, 
ATTACHAMENT - urządzenie dodatkowe (dołączane), 
uzupełnienie, 

ATTACHMENT UNIT INTERFACE — sprzężenie z jednostką 
połączeniową tj. kabel, złącza i odpowiednia ele- 
ktron! ka, 

ATTENTI ON - uwaga, 

ATTENUATI ON - tłumienie, osłabienie, 

ATTENUATI ON BAND - pasmo tłumienia, 

ATTENUATI ON COEFFICIENT - współczynnik tłumienia, 
ATTENUATI ON COMSTAMT — stała tłumienia, tłumienność 
jednostkowa, 

ATTENUATION DIAGRAM - charakterystyka tłumienia, 
także: charakterystyka amplitudowa, 

ATTEMUATION DI ST ORT I ON - zniekształcenie tłumieniowe 

ATTENUATION EOUALIZER - korektor tłumi eniowy, 
ATTENUATION RATĘ - współczynnik tłumienia, 

ATT RI BUTĘ - artrybut, cecha, także: cecha elementu 
obrazu, np. wykrywalność, poziom intensywności świe- 
cenia, itd., 

AU - patrz: ARITHMETIC UNIT, 

AUDIBLE ALARM - wskaźnik akustyczny, 

AUDIBLE SI GNAŁ - wskaźnik akustyczny, 

AUDIO RESPONSE DEYICE - wyjście foniczne, wyjście 
akustyczne, 

AUGMENT- zwiększać, 

AUGMENTER - wartość dodawana, 

AUTO-SHUTDOWN - automatyczne wyłączanie systemu, 
AUTOCODE - autokod, jeżyk autokodowy. Jeżyk automa- 
tycznego programowania, 

AUTOIND£XING - indeksowani* automatyczne, 

AUT OL O AD - ładowani* automatyczne, 

AUTOMATA THFORY teor i a automatów, 

AUTOMATE - zautomatyzować, 

AUTOMATIC - automatyczny, 

AUTOMATIC AMPLITUDĘ CONTROL - automatyczna regulacja 
amplitudy, ’ 

AUTOMATIC ASSEMBLY RECORDING SYSTEM - systae zapisu 
z automatycznym łączeniem, 

AUTOMATIC CALLING UNIT - autowzywak, 

AUTOMATIC CARD PUNCH - automatyczna dziurkarka kart, 
AUTOMATIC CARRIAGE - przesuw automatyczny, karetka 
automatyczna, 

AUTOMATIC CHARACTER RECOGNI TI ON - automatyczne czy- 
tanie pisma, 

AUTOMATIC CODING SYSTEM - system automatycznego ko- 
dowania, 

'AUTOMATIC CONTROL - sterowanie automatyczne, 
AUTOMATIC CONTROL SYSTEM - układ automatycznej regu- 
lacji, 

AUTOMATIC DATA PROCESSING - automatyczne przetwarza- 
nie danych, 

AUTOMATIC NEED-TO— REPAIR INDICATOR - automatyczny 
wskaźnik konieczności wykonania naprawy, 

AUTOMATIC PROCESSING - przetwarzani e automatyczne, 
AUTOMATIC PROGRAM INTERRUPT - automatyczne przerwa- 
nie realizacji programu, 

AUT (MATI C PROGRAMMING - programowanie automatyczne, 
AUTOMATIC PROGRAMMING FOR TOOLS - język programowa- 
nia do sterowania numerycznego obrabiarek, 

AUTOMATIC REOUEST FOR REPEATS - system z odpowiedzią 
zwrotną (umożliwia ochronę przed błędami), 

AUTOMATIC RESPONSE FILE - plik (zbiór) przygotowa- 
nych odpowiedzi, , 

AUTOMATIC SCAN - przeglądanie automatyczne, 

AUTOMATIC STORAGE ALLOCATION - automatyczny przy- 
dział pamięci, 

AUTOMATIC STROBĘ PULSE - bramka śledząca, 

AUTOMATIC TYPEWRITER - automat piszący, 

AUT OMATI CS - automatyka (nauka) , 

AUTONATION — automatyzacja, 

AUTOMATI ZATION - automatyzacja, 

AUTOMATOM - automat, także: komputer z oprogramo- 
waniem, 

AUTONOMOUS WORKING - działanie niezależne, 
AUTOPLOTTER - pisak X-Y, 

AUTOPOLLING - samoczynne zbieranie danych (poprzez 
przeglądanie) , 

AUXILlARY CARRY - przeniesienie pomocnicze, 

AUXILI ARY CONTROL AREA - obszar zapisów zniekształ- 
conych, także: obszar dodatkowy, 

AUXILI ARY MEMORY - pomocnicza pamięć wewnętrzna, 
AUXILIARY STORAGE - pamięć uzupełniająca, pamięć 
pomocnicza, pamięć wspomagająca, 

AUXILI ARY STORĘ - pamięć pomocnicza, 

AVAI L ABI LITY - dyspozycyjność, dostępność, zapas, 
AVERAGE - wartość przeciętna, wartość średnia, 
AVERAG£ DEYIATION - odchylenie średnie, I 
A VERAGI MG DEVICE - układ uśredniający, 

AYERAGING TIME - czas uśredniania. 
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AVOIDAMCE - unikani* <np. zbędnych danycn), 
AX C ACCUMULATORJ - akumulator , 

AXIS - ot, 

AXIS OF ABSCISSAE - Ot odciętych, 

AXIS OF ORDINATES - ot rzędnych. 



BACK BONĘ - wspólna o*. 

BACK CIRCUIT - układ sprzężenia z wrót nago, 

BACK SLASH - odwrócony ukośnik, 

BACK-UP MEMORY - pamięć rezerwowa, 

BACKGROUND - tło, 

BACK6ROUND COLOR - kolor tła (obszaru otaczającego 
przedmiot) , 

BACKGROUND IMAGE - tło (podstawa) obrazu, 

BACKGROUND PROGRAM - program drugoplanowy, 

BACKING ST ORA GE - pamięć uzupełniająca, pamięć 
pomocnicza, pamięć wspomagająca, 

BACKSPACE - cofacz, 

BACKSPACE CHARAKTER - znak cofania, cofacz, 

BACKSPACE KEY - klawisz cofający, cofacz, 

BACKSPACING - cofania (np. tatmy), 

BACKTALK - przekazywania informacji z komputera re- 
zerwowego do komputera czynnego, 

BACKUP - składowania, żelazna rezerwa, 

BACKUS NORMAL FORM - notacja BACKUSA-NAURA, 

BaCKWaRD CHAIMING - wnioskowania wsteczne (w syste- 
mach ekspertowych) , 

BACKWARD COUNTER - licznik odejmujący, 

BAL ANCE - bilans, pozostałość, równowaga, saldo, 
także: uzgadniać, zestawiać, równoważyć, 

BALANCED ERROR - błąd zrównoważony , 

BALAMCING - uzgadniania (np. wyników uzyskanych 
na maszynie), także: sprowadzanie do stanu zerowego, 
BALL PRINTING HE AD - głowica pisząca, głowica 
czcionkowa, głowica kulista, 

BALLOT BOX - kratka na formularzu dla zamieszczenia 
w niej np. krzyżyka lub kreski, 

BAND - pasmo (np. częstotliwości), strefa, zakres, 
BANDWIDTH - szerokość pasma, 

BANK - bank, takżs: górna lub dolna połowa karty 
90-kol umnowe J , 

BAR - cecha, także: kreska, linia, 

BAR CODĘ - kod kreskowy, kod paskowy, 

BAR-CODE READER - pióro Świetlne do odczytywania ko- ; 
du kreskowego, 

BAR-CODE SCANNER - pióro Świetlne do odczytywania 
kodu kreskowego, 

BAR CODING - kodowanie kreskowe (wyrobów), 

BAR DISPLAY - wskaźnik słupkowy, wskaźnik kolumnowy, 

BAR PRIMTER - drukarka dźwigniowa, 

BARREL DI ST ORSI ON - zniekształcenia beczkowate (nie- 
doskonałość kineskopu), 

BASE - baza, także: podstawa liczenia, 

BASE ADDRESS - aores bazowy, adres początkowy, adres 
podstawowy, 

BASE ADDRESS REGISTER - rejestr* adresu oaz swego, 

BASE NOTaTION - oznaczanie podstawy liczenia, 

BASE NUMBER - podstawa systemu liczenia, 

BASE OF FLOAT1NG POINT NUMBER - poostAwa liczby 
zmiennoprzecinkowej, 

BASE OF THE COUNTING SYSTEM - poc stawa systemu li- 
czenia, 

BASE PAGE - strona oazowa. 

BASE POINT - punkt Pazowy, 

BASE SPACE - crzeEtrzen bazowa, 
basfpanp roA*» At *y rrw 

BASIC - Język instrukcji symbolicznych ogólnego zas- 
tosowania dla początkujących (wysokopozl omowy Język 
programowania) , 

BASIC CIRCUIT - układ podstawowy, 

BASIC CISC OPERAT ING SYSTEM CBDOSJ - podstawowy dys- 
kowy system operacyjny, 

BASIC ELEMENT - element podstawowy, 

BASIC I MDI SSOUBLE INFORMATION UNIT CBITJ - Jednostka 
miary określająca zawartość informacyjną wiadomości, 
BASIC I MPUT rOUTPl/T SYSTEM CBIOSJ - podstawowy system 
HEJśCIA/MYJśCIA, 

BASIC MACHINĘ CYCLE - cykl podstawowy, 

BASIC OPERATI MG SYSTEM CBOS> - podstawowy system 
operacyjny, 

BASIC SET - zbiór bazowy, 

BATCH - grupa, partia, seria, wsad, także: grupować, 
gromadzić, paczkować (np. dokum e nty) , 

BATCH DATA PROCESSING - wsadowe (partiowe) przetwa- 
rzanie danych, 

BATCH OF DATA - partia danych, 

BATCH PROCESSING - przetwarzania wsadowe (partiowe) , 
BATCH ST ATI ON - stacja przetwarzani a wsadowego (par- 
ti owego) , 

BATCHING - grupowanie programów we wsady (w partie), 
BAUD - bod, jednostka miary szybkości transmisji da- 


nych cyfrowych, 

BAUD RATĘ - szybkość transmisji danych cyfrowych 
(bitów/sakundę) , 

B-BOX - rejestr B, rejestr modyfikacji, 

BCD - patrz: BI NARY CODED DĘCI HAL, 

BCD - patrz: BLANK COLUMN DETECTION, 

BEAM - promień światła, pęczek promieni, 

BEAM ACCF.SSI BLE MEMORY - pamięć z dostępem strumie- 
niowym, 

BEAM » fai> - wyprowadzenie belkowe (w układach sca- 
lonych) , 

BEAM-LEAD BONDING - aikroeontaż metodą wyprowadzeń 
belkowych, 

BEEP - sygnał akustyczny modulowany, 

BEFORE-I MAGE PROTECTION - zabezpieczania obrazu 
pierwotnego, 

BEGINING FLAG - znacznik początku, 

BEGINING OF THE TAPE CBOTJ - znacznik początku taśmy, 
BEGINNERS ALL-PURPOSE SYMBOLI C INSTRUCTIOM CODĘ - 
patrz: BASIC, 

BEGI NNING OF THE FILE - początak zbioru, 

BEGINNING OF THE FILE AREA - początek obszaru pliku 
(zbioru) , 

BEGINNING OF THE SEEK AREA - początak obszaru prze- 
szukiwania, 

BELIEVED CORRECT NESS - “wiarygodność poprawności ", 
BELL CHARACTER - znak wywołujący sygnał akustyczny, 
BENCHMARK - standardowe zadanie rozwiązywane przez 
komputer w celach porównawczych, 

BENCHMARK PROBLEM - problem wzorcowy (dot. porówny- 
wania wydajności różnych typów komputerów), 
BEMCHMARKING - komp ar aty styka, 

BEMD - wygięcie (np. karty), 

BER - patrz: BIT ERROR RATĘ, 

BI AS - polaryzacja stałą liczbą, zwiększyć o stałą 
wartość, wartość odchylenia, obciążenie (estymato- 
ra), podkład, 

BIASED BY - zwieł-sror* r, wartość ... 

BIASED NUMBER - liczba nieskalowana ^przesunięta) , 

BI AX - biaks, tak źa: element ferrytowy pamięciowy 
lub logiczny, 

BIDIRECTIONAL - dwukierunkowy, 

BIDIRECTIONAL BUS - magistrala dwukierunkowa. 

BI FURCATI ON - rozgałęzienie, rozwidlenie, 

BILATERAL - dwustronny , 

BILLI - przedrostek oznaczający miliard (w nomenkla- 
turze amerykańskiej), 

BILLIBIT - miliard bitów (kilomegabit) , 

BILLI CYCLE - miliard cykli, gigacykl, 

BILLI ON - bilion (w Miałkiej Brytanii) także: 
miliard (w USA), 

BIMAG CORE - pamięciowy rdzeń magnetyczny mający dwa 
stany namagnesowani a, 

BIN - zbiornik (dla kart), pojemnik na taśmę, 

BINARY -.binarny, także: system dwójkowy, 

BINARY ARITHMETIC - arytmetyka binarna. 

BINARY CARRY - przeniesienie dwójkowe, 

BINARY CELL - komórka awójkowa (dla arzechowywania 
Jednego znaku w zapisie dwójkowym), także: urzecze- 
nie dwustanowe, 

BINARY CODĘ - kod binarny, koo dwójkowy, 

BINARY CODED DECIMAL C BCD) - system czlesiętny kodo- 
wany dwójkowo, koo ćwójHowo— dziesiętny , 

BINARY COMPLEMENT - uzupełnienie dc dwóch, uzupeł- 
nienie binarne, 

BINARY COUNTER - licznik binarny, licznik dwójkowy, 
BINARY DATA - dane binarne, 

BINARY DIGIT - cyfra binarna. 

BINARY DIGITAL VARIABL£ - zmienna binarna, 

BINARY ELEMENT - element dwójkowy, 

BINARY ERROR CORRECTING CODĘ - dwójkowy koo popra- 
wiania błędów, 

BINARY ERROR DETECTING CODĘ - Dwójkowy koc wykrywa- 
jący błąd, 

BINARY LOGIC - logika dwójkowa, logika owuwarto- 
ści owa, 

BINARY LOGICAL FUNCTION - funkcja logiczna (dwuwar- 
tościowa) , 

BINARY NOTATION - zapis dwójkowy, 

BINARY NUMBER - liczba dwójkowa, 

BINARY NUMBER SYSTEM - układ zerc- jedyn«owv . 

BINARY POINT - przecinek dwójkowy, 

BINARY PROGRAM - program binarny, 

BINARY REPRESEMTATION - reprezertac ja dwójkowa, 

BINARY SC AL ER - przelicznik dwójkowy, 

BINARY SEARCH - przeszukiwanie mstodą połowienia, 

BI NARY -DECIMAL - dwó jkowo-dz i esiętny, 

B I NARY -HEX ADECI MAL - dwó j kowo-sz sstnast xowy, 

BINARY— OCTAL - dwó j kowo-ósemKOwy , 

BINARY-GUATERNARY - dwój kowo-cz workowy, 

BI NARY -TO-DECI MAL CONVERSION - konwersja dwój k owo - 
-dziesiętna, 

BINDER - urządzenie do oprawiania (np. tabulogramów;, 
BINMING - sortowanie struktur pói przewodr i kowych, 

BI NOKI AL - dwuczłonowy, dwumienny, 

BIOS - moduł zawierający podstawowa procedury obsłu- 
gi urządzeń zewnętrznych-, 

BI POLAR - dwubiegunowy, 

BIPOLAR JUNCTION TRAMSISTOR - tranzystor bipolarny, 

BI Qm NARY - dwupiątkowy. 
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GIEŁDA POMYSŁÓW 


Tylko dla szczęściarzy 

Przysłowia są mądrością narodów Jedno z nich mówi, że na- 
dzieja jest matką głupich Jest jednak drugie, które zapewnia, ze 
matka swoich dzieci me opuszcza W tym drugim należy chyba 
upatrywać tak dużej popularności gry w „Toto Lotka'' 

Z grą tą związane są co tydzień emocje dwojakiego rodzaju 
Najpierw osoba, która zdecydowała się w nią zagrać przeżywa roz- 
terkę związaną z wyborem liczb. Później gracz doprowadza się do 
stanów przedzawałowych, tkwiąc przed ekranem telewizora w 
niecierpliwym oczekiwaniu na wyniki losowania. 

Prezentowany tu program pozbawia graczy pierwszego z tych 
stresów Wystarczy tylko, zgodnie z poleceniem wyświetlonym na 
ekranie, wybrać |akiś wariant „lotka", chwilkę poczekać, po czym 
przepisać słupki liczb na kupon 

Na wszelki wypadek, radzę przygotować sobie odpowiedź na 
pytSme „Co zrobić z tak dużą ilością wygranych pieniędzy 9 " Ży- 
rze wwsłkim rozbicia banku Toto l ntka" 



„...Jestem stałym czytelnikiem „IKS-a” i bardzo sobie cenię Wa- 
sze pismo, w szczególności za umieszczanie w nim programów kom- 
puterowych. 

Obecnie jestem użytkownikiem mikrokomputera COMMODORE 
128, lecz kilka lat temu miałem SHARP-a... 

...Gdyby Państwo byli zainteresowani moimi programami, bardzo 
proszę o odpowiedź!...” 

Rafał PLUTECKI 


CZEKAMY! „ 1 K S " J E S T WASZ! 


Nadesłany program REFLEKS ma dwie cenne zalety: jest krótki 
oraz użyteczny (pomaga w opanowaniu „ślepego zapisu"). 

Po wywołaniu RUN 500 ukazuje się napis POMIAR REFLE- 
KSU, a zaraz potem generator liczb losowych rozpoczyna „zręcznoś- 
ciówkę": wyświetla jedną z liter (od A do Ż) — wybraną przypadko- 
wo. Należy S/YBKO nacisnąć WŁAŚCIWY klawisz. Wtedy pokaże 
się kolejna. Tak •palcujemy" trzydzieści liter. 


YR 502 REM * * 
HX 504 REM * POMIAR REFLEKSU * 
QC 506 REM t t fiUri * * 
YS 508 REM * * 


PI 510 REM tt*t****t*ttt**tt******* 
PI 520 OPEN #1 z 4z 0> "K ! " 

JL 522 DIM fl*a>,e*<i> 

UY 526 PRINT CHR$C125) 

IL 528 ? »? "POMIAR REFLEKSU" 

GB 530 GOSUB 556=M=N 
TQ 532 FOR K*=l TO 31 
CQ 533 6=INT<RND<0>*2?> 

IX 534 A$«CHR$<64+B> J B=B+64 


LIGA MYŚLĄC YCH 

Zadanie 1 

Kierowca samochodu przebył drogę w ciągu 5 godzin przy 
przeciętnej prędkości p Dwie piąte drogi przejechał z prędkością 
o 8 km/h mniejszą, a resztę z prędkością o 5 km/h większą Do 
celu podróży dolarl z opóźnieniem 1 0 min Z jaką przeciętną pręd- 
kością P przebył drogę kierowca samochodu 9 

Zadanie 2 

Podczas trwania I wojny światowej wojska oblegały stary zamek 
Podczas oblężenia kula z armaty uszkodziła posąg, stojący na 
dziedzińcu zamkowym. Dzień ataku był ostatnim dniem miesiąca, 
a liczba lat stojącego na dziedzińcu posągu i liczba lat dowódcy 
wojsk oblegających zamek były liczbami parzystymi Liczba, wyra- 
żająca dzień miesiąca, w którym nastąpił atak, pomnożona przez 
numer miesiąca ataku, pomnożona przez podaną w stopach dłu- 
gość piki posągu, pomnożona przez połowę wieku dowódcy wojsk 
oblegających zamek, pomnożona przez połowę czasu stania po 
sągu daje w iloczynie 451 066 Należy podać rok, w klórym wznie- 
siono posąg na placu zamkowym, Odpowiedź proszę uzasadnić 

Zadanie 3 

Połowa pasażerów, wchodząca na przystanku początkowym do 
autobusu zajęła miejsca siedzące Na kolejnym przystanku do au- 
tobusu wsiadło 8 proc. dotychczasowej liczby pasażerów Ile osób 
usiadło na początkowym przystanku, jeżeli wiadomo, ze autobus 
pomieści nie więcej niż 70 osób? 

Zadanie 4 

Ile zer na końcu ma liczba, którą otrzymamy mnożąc 1000 ko 
lejnych liczb naturalnych tzri 1 *2*3* * 998 • 999#1000? Od- 
powiedź proszę uzasadnić f 

Zadanie 5 

Mamy nierzetelną wagę dwuramienną (tzn ramiona wagi nie są 
równe) Chcąc odważyć 2 kg cukru postępujemy w następujący 
sposób Kładziemy kilogramowy odważnik na lewej szalce, a na 
prawą sypiemy cukier aż do zrównoważenia. Opróżniwszy obie 
szalki wagi, kładziemy kilogramowy odważnik na prawej szalce, a 
na lewą sypiemy cukier az do zrównoważenia Czy łączny ciężar 
odważonego w ten sposób cukru jest równy 2 kg 9 


Rozwiązania zadań prosimy przesyłać do redakcji do końca 
grudnia br. z dopiskiem „Liga Myślących”. Punktacja zależy 
od liczby prawidłowych rozwiązań. Wśród uczestników rozlo- 
sujemy książki, a na zwycięzców „Ligi" czekają dodatkowe 
cenne nagrody-niespodzianki. 


YX 536 FOR C=0 TO 10-SOUND 0.100.10 
. 10 : NEXT C 1 SOUND 0.0. 0.0 
CU 540 PRINT CHR* < 1 25 1 : ROKE 752.1 
fiT 541 ? ■? “ * “ ) N-M. " * ">R$ 

UB 542 IF K>30 THEN 548 
HL 543 GET #1 , Z ■ Z=PEEK<763> 

YK 544 GOSUB 556 
EH 545 IF Z OB THEN 540 
HP 546 NEXT K 

MR 548 ? '? "CZHS=" J N-Mj " JEDNOSTEK 

DJ 550 ? ■? “JESZCZE RHZ ";CHR*(212 
1) "/"'iCHR*(206>J 1 INPUT H* 

CI 552 IF fl*=CHR*<841 THEN 530 
GB 554 END -REM ******************* 
* 

FQ 556 N=PEEK<1 81 *65536+PEEK< 191*25 
6+PEEK<20) ■ N=INT<N/101 
HJ 558 RETURN 
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KUPON ► 


KRZYŻÓWKA NR 10 



1K) instrukcja pozwalająca na sprawdzenie, czy określony punkt ek- 
ranu świeci się, czy nie lub... próba, rodzaj sprawdzianu, 4B) rzadkie 
imię męskie, 41) asysta, orszak, 6E) stolica Irlandii Pn., 7B) Bolesław 
Chrobry lub .Stefan Batory, 7K) samochód, 8E) ślad pamięciowy. 
9A) półprodukt do wyrobu papieru, otrzymany w wyniku mechani- 
cznego rozwłókniania drewna, 9K) urodzinowe ciasto, 12 A) lantano- 
wiec o liczbie atomowej 70, I3D) przepływa przez Cieszyn, 14A) 0 
lub 1, 141) urządzenie wejściowe komputera do przyjmowania in- 
formacji z taśm lub kart dziurkowanych, 15D) miłośnik psów, 161) 
saletra potasowa, saletra indyjska, 17A) pomocnicza lunetka, uży- 
wana zwłaszcza przy fotografowaniu 
PIONOWO: 

C2) np. MPS 801, Seikosha GP500, Star Gemini 10X, D9) polski 
mikrokomputer z Wrocławia, Dl 5) programowana pamięć tylko do 
odczytu lub... na trasie Ystad — Świnoujście, El) język programowa- 
nia, El 1) diabeł, zły duch w wierzeniach muzułmanów, G2) brak jej 
niestety komputerom, G15) operowa pieśń solowa, KI) tyczka lek- 
koatlety, 1.9) pracownik obsługujący komputer, ł.l) średnik, spacja, 
dwukropek jako oddzielacz, Ml 3) instrukcja wyświetlenia tekstu 
programu lub... korespondencja 

Oznaczone pola (od 2C i 11D poziomo oraz B9 i 12 pionowo) 
— rodzaje pamięci zewnętrznych mikrokomputerów. 

Jako rozwiązanie należy podać cztery nazwy pamięci wpisane 
w oznaczone pola diagramu krzyżówki oraz część nazw urzą- 
dzeń we-wy, które otrzymamy po uszeregowaniu liter z pól 
oznaczonych w prawym dolnym rogu liczbami od 1 do 50. 

Rozwiązania krzyżówki na kartach pocztowych należy 
nadsyłać pod adresem redakcji do końca grudnia 1987 r., 
naklejając kupon „IKS-a”. Wśród czytelników rozlosuje- 
my bony pieniężne i nagrody książkowe. 



MIKROCIEKAWOSTKI 


IBM 

Personal System/2 



projektowani* systenów mrorn. (ytz- 
n ych, prace konstrukcyjne, ekspertyzy 
tec hn i c zne , ekonomi c znr prawne 

00 [H] El© El S umownie w or * z ‘ 

Mikrokomputerów 

AM5TRAD C0M0D0RE ZX SPECTRUM 
ATARI IBM 

- i ns tr ukc Je, opisy, programy użytkowe 
-programy naPzędz i owe , d 1 a rz^Miosta 
-gry 

-tworzymy opr ogr amowan i e według zle- 
c en i a kii ent a 

Dowolny nośnik (również dostarczony 
przez Klienta) .ProwadziMy sprzedaż 
wysyłkowi . 

Informacji żądajcie za pośrednie- 
twem poczty pod adresem: 

"RATIO"T OHARZYSTHO WYNALAZCOM 
01-31* NARSZANA Ul. OGlAsKIt GO 1 


„IKS” — dodatek „Żołnierza Wolności”. Redaguje: Wiesław Cetera (kierownik zespołu); stali współpracownicy: 
Włodzimierz Gogołek, Janusz Janiec, Krzysztof Mamcarz, Ireneusz Miernik, Janusz Miller, Jacek Szaniawski. 
Adres redakcji: 00-950 Warszawa ul. Grzybowska 77, telefon centrali 20-12-61 w. 486. Telex 313664. Rękopisów nie 
zamówionych redakcja nie zwraca i zastrzega sobie prawo do skrótów. Nakładem Wydawnictwa „Czasopisma 
Wojskowe”, Warszawa ul. Grzybowska 77, Fotoskład i druk — Wojskowe Zakłady Graficzne im. gen. dyw. A. Za- 
wadzkiego. Nr zam. 9332. Nr ind. 361682. K-96 
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Za sobą mamy już drugi rocznik naszego 
miesiącznlka. Czas szybko mija. Po okresie 
ogromnego zainteresowania mikrokompu- 
terami przyszedł czas na „chudszy rok”. 
Miejmy nadzieją, że jest on już za nami. Po 
kilku latach dyskusji ruszyła wreszcie pro- 
dukcja komputera dla szkbł. Z wrocławskiej 
ELWRO do klas trafi zapowiadany od daw- 
na Junior, I choć nie zaspokoi on sprzęto- 
wego „głodu”, to jednak zapowiada popra- 
wę. 

Bez wątpienia jesteśmy świadkami infor- 
matycznej rewolucji. O tym, co daje kompu- 
teryzacja już się nie dyskutuje, choć jeszcze 
często komputer wzbudza obawy, a co bar- 
dziej wrażliwych straszy utratą dotychcza- 
sowych kompetencji. Komputery po prostu 
są i basta. Sprawą informatyków, projektan- 
tów i programistów jest ich właściwe zasto- 
sowanie. To kolejny krok. Jakże często w 
tym właśnie momencie przeżywa się pier- 
wsze rozczarowanie. Bo przecież wydano 
miliony na sprzęt ł... nic. Otóż komputer, 
nawet ten najlepszy, to przecież dopiero 
początek drogi. I to nie on będzie najkosz- 
towniejszy — najdroższa była i pozostanie 
ludzka myśl. To właśnie człowiek decyduje 
o sprawności tego urządzenia, to właśnie 
twórcza praca szarych komórek decyduje o 
pracy elektronicznych układów. 

To wszystko przed nami. Czeka nas wiele 
pracy. I wierzmy, że przyniesie ona sukce- 
sy. Porażki, bo I takie się przecież zdarzają 
w twórczym działaniu, nie mogą nas znie- 
chęcać. 

Zatem w nowym roku życzymy Czy- 
telnikom wielu sukcesów, uśmiechu i 
radości na co dzień, odwagi w działa- 
niu w którym pragniemy Wam zawsze 
towarzyszyć 

REDAKCJA 


W NUMERZE: 


Kosmos, medycyna i komputerowe obra- 


zy — str. 4 

W szponach Atari <10) — str. 5 

Rozkład Gaussa w Asemblerze — str. 1 1 

Labirynt — str. 14 

Wyścig po energię — str. 16 

Procedury ROM Spectrum 1 * 1 — str. 18 

Edytor kodu maszynowego — str. 23 

Mikrokomputery IBM PC — str. 26 

Giełda pomysłów — str. 28 

Tajemnice matematyki 121 — str. 31 

Na skróty — str. 31 


DEEP BLUE C 
Kompilator języka C 
dla mikrokomputera ATARI 


Jednym z kompilatorów jeżyka C opracowanych dla 
mikrokomputerów ATARI serii xl/XE jest kompilator PEEP BLUE C. 
Umożliwia on tworzenie programów w Jeżyku C o rożnej wielkości, w 
tym programów dużych - na które składa sie wiecej niz too wierszy 


Programy napisane w Jeżyku C dla tych mikrokomputerów, mimo 
iZ działaj* nieco wojniej niZ napisane w assemblerze, sa dużo 
łatwiejsze w pisaniu i analizowaniu. Takie elementy jeżyka C jak 
wskaźniki, funkcje rekurencyjne i wysokopoziomowe struktury 
sterujące czynią skomplikowane oprogramowani* łatwym w 
projektowaniu, implementowaniu i testowaniu. Co wiecej, C jest 
faktycznie jeżykiem oprogramowani* systemowego nowej generacji 
komputerów. M przeciwieństwie do programów napisanycn w jeżykach 
assembi arowych, programy napisane w c 0*0* mogły zostać 
przeniesione na inne komputery < również na te ni* oparte na 
mikroprocesorze 6502 > kosztem nieznacznych modyfikacji. 

Po poprawnej pracy kompilatora 6ECP BLUE c wymagane s« 
następując* akcesoria sprzętowo - programowe. 

- 48 kB RAM) 

- stacja dysków atari, 

- Edytor tekstowy niezorientowany wierszowo. 

Ponadto dla pełnego wykorzystani* możliwości oferowanych 
przez kompilator peep BLUE C < włączanie do programu tworzonego w 
jeżyku c procedur w jeżyku assemoiera > może okazać si* przydatnym 
atari Macro Assembier < MAC65 ) lub ATARI Assemoier Editor. 

z oczywistych powodów peep blue C ni* posiada 
zaimplementowanej pełnej wersji jeżyka C zdefiniowanej przez 
Kernighana i Ritchi*'*. 

U szczególności PEEP blue C ni* zapewnił realizacji' 

1 ) struktur, unilj 

2) tablic wielowymiarowych, 

3) liczb zmiennoprzecinkowych, 

4) funkcji zwracających inne wartości niZ int, 

5) operatora jednoargumentowego "sizeof", 

6 > operatora konwersji typów "typecasting". 

Ponadto PEEP blue C posiada następu j*c* niestandardowe 
cechy. 

i > Ostatni punkt instrukcji "switch”, "case" lub 
"defauit” musi byc zakohczony instrukcja “break", "continue” lub 
“return". O 

2) Usunięto star* konstrukcje »<op>. Zamiast niej 
nal*2y używać <op>». 

3) znaki f zmienne typu char) ni* maj* znaku. Przyjmuj* 
on* wartości od O do 268. 

4) Łańcuchy ni* mog* byó wydłużone do następnej linii 

logicznej. 
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znaków. 


5) Linie kodu zrOdłowego mogą zewi erae maksymalnie 79 

6> funkcje mogą mieć maksymalnie 126 argumentów. 

DEEP bluz c zapewnie realizacja następujących elementów 
standardowego jtzyka C> 

1 > typy danych. char. int, pointer, 

2 > tablica jednowymiarowe; 

3) operatory unarne. 

•», *, Ł. ♦♦, i. *- < tylda ); 

4) operatory binarna 

*, *, /. *, I, *, t. — . I«, <» >. <». >■; «. »; «*>>■, 

U. Ił. T, przecinek; 

5) instrukcja /słowa kluczowa jtzyka C/ • 

if, alsa, umit, break, continua, raturn, for, do, switcn, 
casa, dafault; 

6 > dyrektywy kompilatora. 

« define, Sinciude, 

7 i linkar relokacyjny; 

6 > stała i szasnastkowa, ósemkowe, "backslash". 

standardowy j*zvk *C” wykorzystują kilka znaków ASCII 
niedostępnych w komputerach ATARI. I tak nawiasy klamrowa 
zastąpiono kombinacjami *( i t ). a znak tyldy zastąpiono para 
znakOw PoniawaZ znak » nia jast w standardowym "C" używany, 

to można przy pomocy funkcji adytora "znajd* i podmian" programy 
napisana w standardowym 'C* zamianie na format akcaptowalny p rzaz 
DUP BU* C. 

Pisania programu jast "przakazywaniam" komputarowi sposobu 
(algorytmu ) postapowania niazbgdnago do rozwiązania okrasionago 
probltmu, przy czym forma przakazu jast SciSla okrailona przaz 
jazyk programowania. Jtzyk C, podobnia jak każdy inny jgzyk 
programowania, posiada sciila okrasiona raguły syntaktyczna 
< gramatyczna ) i semantyczna ( znaczeniowa ) - zbliZone do ragyl 
rządzących naturalnym jazykiam, którym porozumiewają si« ludzie. 
Program w jtzyku C nia mo2a byC "zrozumiały" przez komputer w 
formie takiej, w jakiej został napisany - postać ta nazywana 
badzie dalej kodem źródłowym programu. Musi on byc przetłumaczony 
przez odpowiedni program tłumaczący do postaci, którą komputer 
"zrozumie" i wykona. Taki program tłumaczący nazywa sit 
kompilatorem. Kompilator jtzyka C tłumaczy kod zrOdłowy programu 
na postać przejściową < jaszcza niawykonywalną przaz komputer, a 
potrzebną tylko do przeprowadzania pełnego procesu kompilacji ), 
zwaną kodem poi skompilowanym. Aby kod po ł skompilowany był 
wykonywalny przaz komputer, musi być najpierw połączony z kodami 
po ł skompilowanym i procedur użytkowych, stanowiących cztic 
kompilatora, zwaną biblioteką jtzyka C lub biblioteką komoiiatora 
C. Dopiero w wyniku konsolidacji powstaje program, który może byC 
wykonany przaz mi krokomputer. Taka postać programu nazywana jast 
kodem wynikowym. Proces konsolidacji < łączenia > wykonywany jest 
również o rzez odpowiedni program zwany konsol idatoram lub, z 
angielskiego - linkerem, Proces konsolidacji dla programisty 
przyzwyczajonego do jeżyków takich jak Pascal czy BASIC może 
początkowo wydaC sit niepotrzebnym i niezrozumiałym. I chociaż 
jest on dodatkowym przebiegiem w procesie kompilacji programu u 
jtzyku C. to właśni# dzitki niemu itzyk tan ma wiała zalet w 
porównaniu z innymi jeżykami. Praktyką stosowaną powszechnie 
przaz programistów w jtzyku C jest pisania programu "po kawałku", 


oddzielna kompilowania i testowania ka2dago fragmentu programu i 
na końcu łączenia takich kawałków w jeden cały program. KaZdy 
napisany, przetestowany i skompilowany fragment jakiegoś progrsmu 
może Dyc w postaci po ł skompilowanej dołączony do biblioteki 
jtzyka i wykorzystany u innym programie baz konieczności 
tworzenia go od nowa. Dzitki takiej technice proces tworzenia 
programów w jtzyku C jest znacznie szybszy niZ w innych jeżykach 
woso kopoz i omowych . 

Proces kompilacji możne zobrazować schematem przedstawionym 
na rys. l. 



Reasumując, aby przekształcić program napisany w jtzyku C na 
papierze na realizowalny program w jtzyku maszynowym, należy 
wykonać cztery kroki . 

1. Z wykorzystaniem edytora przygotować program jako jeden 
lub wiecej zbiorów z tekstem źródłowym. 

2. Przekształcić zbiory źródłowe w zbiory pól skompilowane 
poprzez skompilowanie ich pfzy pomocy kompilatora C*eCP BLUZ C. 

3. Stworzyć zbiór linku jący. Zbiór linku Jacy powinien 
zawierać nazwy wszystkich zbiorów pół skompilowanych, które są 
cztsciemi programu i jest wykorzystywany przez linker (w kroku 4) 
do Dołączenia razem wszystkich cztsci programu. 

4. Przy pomocy lmkera DZZP BLUZ C nasttouje Dołączenie 
wszystkich poszczególnych zbiorów po I skompilowanych w kod 
wynikowy kompletnego programu. 
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KOSMOS, MEDYCYNA 
I KOMPUTEROWE OBRAZY 


Jako początek ery kosmicznej przyjmuje 
się rok 1957, gdy radziecki Sputnik 1 — pier- 
wszy zbudowany przez człowieka obiekt stał 
się satelitą Ziemi. Krótko potem Sputnik II 
wzniósł w kosmos pierwszą żywą istotę — 
pieska Łajkę. Luna I okrążyła Księżyc, a Lu- 
na II dotknęła jego powierzchni. Dzięki Lu- 
nie III człowiek mógł zobaczyć drugą stronę 
Księżyca. Statek ten przesłał na Ziemię, drogą 
radiową, informacje odzwierciedlające obraz 
wiecznie odwróconej od nas części Księżyca. 

W tym czasie Amerykanie mieli wielkie 
kłopoty ze zbudowaniem rakiety zdolnej po- 
konać grawitację ziemską. Dwa Rangery — 
zbudowane, by powtórzyć sukces Luny 1 1 — 
przekazanie obrazu Księżyca na Ziemię — nic 
mogły jej niestety opuścić, trzeci rozbił się o 
Księżyc, a dwa kolejne minęły go o tysiące ki- 
lometrów. Dopiero Rangcr 6 zdołał przesłać 
na Ziemię jeden obraz Księżyca. Rangcr 7 był 
źródłem już 4300 obrazów — pełnych sygna- 
łów wideo 

Jednym z głównych celów wspomnianych 
„eksperymentów kosmicznych” były zdjęcia 
naszego Księżyca. Stąd też bardzo ubolewano 
nad kiepską jakością uzyskiwanych w ten spo- 
sób zdjęć W najlepszym wypadku oceniane 
były one jako dostateczne. Brak ostrości, od- 
powiedniego kontrastu oraz wiele innych 
zniekształceń zdecydowały o gorączkowych 
poszukiwaniach nowych metod i technik mo- 
gących udoskonalić tworzenie, transmisję oraz 
ewentualną korektę obrazów uzyskiwanych z 
kosmosu. 

Dr Robert Nathap uznał, żc przyczyny 
kiepskiej jakości odbieranych obrazów należy 
głównie upatrywać w technice przesyłania 
obrazów ze statków kosmicznych. Dotychczas 
stosowano bowiem wyłącznic technikę analo- 
gową. Oznacza to, że informacje o obrazie wy- 
syłane i odbierano były w postaci ciągłego 
sygnału elektrycznego (oczywiście za pośred- 
nictwem fal radiowych), którego amplituda 


mówiła o tym, czy określony „kawałek” obra- 
zu jest mniej lub bardziej czarny. Sygnał taki 
jest w dużym stopniu podatny na zakłócenia 
— stąd wspomniane narzekania na słabą ja- 
kość zdjęć z kosmosu. Pan Nathan zapropo- 
nował rewolucyjne, jak na owe czasy, rozwią- 
zanie — zamieniać analogowy sygnał wideo, 
otrzymany z kamer sputnika, na postać cyf- 
rową i dopiero w takiej formie przesyłać go na 
Ziemię. Innymi słowy, każdy wyróżniony 
punkt obrazu zamieniano na liczbę (np.: od 0 
do 255). Odbiorem tak uformowanych infor- 
macji obciążono komputer, który gromadził je 
nie tylko w celu ich odtworzenia w postaci 
obrazu na monitorze, ale także w celu ewen- 
tualnej korekty zniekształceń, Zabieg ten po- 
lega na usuwaniu zniekształceń geometry- 
cznych, których źródłem jest sama kamera, 
braku fotometryczncj lincarności kamery 
(różne fragmenty tej samej szarości obrazu 
kamera zamienia na różne wartości sygnału 
elektrycznego) i szeregu innych zakłóceń. 
Wspomniany brak lincarności usuwano przez 
„odejmowanie" od uzyskanego z kosmosu 
obrazu — zakłóceń wprowadzanych przez 
kamerę, które komputer wcześniej zmierzył 
na Ziemi. Na przykład kamera zwiększa czerń 
obrazów w lewym górnym rogu — komputer 
„wiedząc" o tym, odejmuje od liczb odzwier- 
ciedlających tę część obrazu $z kosmosu) war- 
tość 17. Powoduje to „rozjaśnianie" tego za- 
ciemnionego (przez kamerę) obrazu -- czy- 
nienie go bliższym oryginałowi. Podobnie do- 
konano wielu innych korekt obrazów z kos- 
mosu. Efekty przerosły oczekiwania twórców 
metody. Cyfrowa reprezentacja obrazu stała 
się standardem. 

Po raz pierwszy „cyfrowe obrazy” wyko- 
rzystano w przesyłaniu danych o obrazach zc 
statku Mariner 4, wędrującego do Marsa i 
Wenus. Informacje te przebył)- niemal 80 min 
kilometrów. Dane o każdym pikselu (wyró- 


żnianym elemencie obrazu) — 8 bitów — 
przesyłane były aż jedną sekundę! Odebranie 
pierwszego obrazu z Marsa trwało osiem go- 
dzin. Niestety, okazało się, żc jedna połowa te- 
go obra/u jest czarna, a druga „sterylnie” bia- 
ła. Przyczyną okazała się kiepska pogoda na 
Marsie — było pochmurnie... Następne zdję- 
cia, dziękfpoprawic pogody nu Marsie, okaza- 
ły się lepsze — Mariner 4 przesłał pierwsze 
„bliskie" zdjęcie Czerwonej Planety. 

Dzięki cyfrowej reprezentacji zdjęć przesy- 
łanych przez kolejne Marmery — nawet zna- 
czne zakłócenia okazały się łatwo (dzięki kom- 
puterom) do usunięcia. Wykorzystano do tego 
celu między innymi dwuwymiarową transfor- 
matę Fouriera. 

Podczas „wędrówek” Marincrów i Voyagc- 
rów, zaczęto stosować wykorzystaną tam 
technikę cyfrowej „obróbki” obrazów w ba- 
daniach biomedycznych. 

Wydaje się, żc warto w tym miejscu przy- 
pomnieć, iż już w 1895 roku Wilhelm Roent- 
gen odkrył promienie X — elektromagnety- 
czne promieniowanie o bardzo dużej często- 
tliwości, które tworzyło obraz wnętrza prze- 
świetlanego ciała. Promienie te, przechodząc 
przez ciało, są różnie absorbowane przez 
tkankę, kości i organy wewnętrzne. „Wycho- 
dząc" z ciała tworzą na błonie fotograficznej 
obraz jego wnętrza — mocniej lub słabiej na- 
świetlając różne fragmenty kliszy. Zważywszy 
jednak na zamazania uzyskiwanych w ten spo- 
sób obrazów — wynikające z ruchu pacjenta, 
nakładania się konturów prześwietlanych 
organów — poprawne odczytanie tak uzyska- 
nego zdjęcia wymaga odpowiednich kwalifi- 
kacji. 

Późniejsze odkrycia pozwoliły wykorzystać 
inne formy energii, by tworzyć obraz wnętrza 
ludzkiego ciała. Ultrasonografia wykorzystuje 
falc dźwiękowe, które odbijając się od orga- 
nów, są odbierane przez, specjalne urządzenia 
i prezentowane na monitorze TV. Medycyna 
nuklearna natomiast wykorzystuje takie ka- 
mery, które wykrywają emisję promieni 
gamma z szybko rozpadającycjt się radioak- 
tywnych substancji wprowadzonych do ciała. 
Technika ta pozwala na zobrazowanie orga- 
nów, dróg przepływu cieczy przez narządy 
wewnętrzne i obserwację wiciu różnych pro- 
cesów metabolicznych. 

Rewolucja komputerowa przyczyniła się do 
tego, że badacze zaadaptowali technikę „cyf- 
rowych obrazów" do potrzeb medycyny. 





AGPOL ma dobrą 
rękę. Po mikro- 
komputerach 
przyszła kolej 
na video. 

W Viktorii pełna 
gala. Zaintere- 
sowanie duże, 
klientów nieco 
mniej. 

(Folo: J. Zelman) 
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Wc wspomnianych technikach wykorzy- 
stywania „cyfrowych obrazów” w medycynie 
jednym z podstawowych elementów elektro- 
nicznych jest szybki konwerter, zamieniający 
analogowe sygnały — odzwierciedlające obraz 
(promienie X, dźwięk, promienie gamma) na 
wartości cyfrowe. Pozwala to wykorzystywać tę 
samą co w obrazach t kosmosu technikę, by 
obrazy „poprawiać", eliminować zakłócenia, 
nawet wynikające z ruchu pacjenta. 

Powszechnie znanym już przykładem sto- 
sowania techniki komputerowej w oglądaniu 
wnętrza organizmu jest tomografia kompute- 
rowa (pisaliśmy o niej w poprzednim nume- 
rze). Umożliwia ona obserwowanie trójwy- 
miarowych obrazów wnętrza ciała pacjenta. 
Wykorzystywany do tego celu specjalny 
sprzęt pozwala „obracać” trójwymiarowy 
obraz tak, że lekarz może np.: oglądać nasze 
serce z każdej strony. Uzyskano to dzięki za- 
pamiętywaniu wielu „warstw" prześwietleń w 
pamięci komputera. Obecnie komputery te są 
bardzo szybkie — 10 min instrukcji/sek. Bu- 
for takiego obrazu zapamiętuje 48 bitów na 
każdy piksel. 12 bitów na każdy z 3 kolorów 

— czerwony, zielony i niebieski oraz 12 bitów 
odzwierciedlających stopień przezroczystości 
prześwietlanego obiektu. 

W omawianych pracach — komputerowe 
przetwarzanie obrazów — wąskim gardłem 
okazała się szybkość komputerów. Wykorzy- 
stano do tego celu równoległą pracę bardzo 
szybkich układów scalonych (VLSI). W efek- 
cie uzyskano od 50- do 1000-krotnie większą 
szybkość działania komputerów. Układy te po 
raz pierwszy zamontowano w statku Voyager 
2, który przesłał w 1986 roku między innymi 
obrazy z Mirandy — najmniejszego księżyca 
Urana. 

Kończąc należy zwrócić uwagę, że przetwa- 
rzanie obrazów jeszcze „ręcznie” wykonywa- 
no już podczas II wojny światowej do „czy- 
szczenia” obrazów uzyskiwanych ze stacji ra- 
diolokacyjnych. Obecnie dzięki udoskonale- 
niu technik przetwarzania informacji w ogóle 

— poprze^ wykorzystanie komputerów — z 

powodzeniem oglądamy zarówno wnętrze na- 
szego ciała, jak i odległe obiekty Systemu Sło- 
necznego. W. GOGOŁEK 

Opracowane na podstawie: K. Sheldon, 
PROBING SPACE BY CAMERA, Byte, 

marzec’87 


CPC6128 
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30 SOLINO ,10, 7 5B. 500, 5,3. 3,3 
40 sbuNO 17.20.-1,1 
50 EN'.' 2. 10,-!, 100 
60 SOlINS 10, 758. 1000, 11. 2.2.3 
7 0 SOLINO I 7 , 20, -1,1 
80 NE* 7 


W szponach A tari ( 1 0) 

Programowe techniki 
generowania dźwięku 

Po zapoznaniu się z możliwościami układów generowania dźwięku 
(przedstawionymi w poprzednim odcinku) wypada przystąpić do na- 
stępnych prób, których celem będzie uzyskanie interesujących efektów 
dźwiękowych, służących jako „przerywniki” w opracowywanych przez 
nas programach. 


Najprostszym sposobem, tzw. statycznym, 
jest włączenie jednego lub więcej generatorów 
dźwięku, przejście do innej działalności, a na- 
stępnie wyłączenie ich. Tworzone w taki spo- 
sób efekty akustyczne ograniczają się do poje- 
dynczych tonów, trzasków i brzęczeń. Możli- 
we jest jednak uzyskanie interesujących efek- 
tów, na przykład przez wykorzystanie interfe- 
rencji fal dźwiękowych. Wprowadźmy nastę- 
pujące instrukcje: 

SOUND 0,255,10,8 
SOUND 1,254,10,8 

W wyniku nakładania się fal dźwiękowych 
otrzymujemy w pewnych momentach zwięk- 
szenie głośności, a w innych — zmniejszenie 
(do całkowitego zaniku włącznie). Efekt ten 
można zobaczyć na wykresie sumy funkcji 
opisujących fale. Można zauważyć, że im 
mniejsza różnica częstotliwości obu fal, tym 
dłuższy okres powtarzania wzoru dźwięku 
wynikowego. W miarę wzrostu różnicy czę- 
stotliwości krótszy staje się okres powtarzania. 

Równie ciekawe efekty można uzyskać, na- 
kładając dźwięki z trzech i czterech kanałów. 
Jako przykład zbadajmy wynik działania- na- 
stępujących instrukcji: 

SOUND 0,255,10,8 
SOUND 1,254,10,8 
SOUND 2,253,10,8 
SOUND 3,252,10,8 

W prosty sposób można uzyskać inny efekt, 
zmieniając częstotliwość zegara z 64 kHz na 
15 kHz za pomocą instrukcji: 

POKE 53768,1 

Interesującym pomysłem może być napisa- 
nie programu kreślącego na ekranie wzór wza- 
jemnego oddziaływania dwóch, trzech i czte- 
rech kanałów. 

Uzyskanie bardziej skomplikowanych efek- 
tów akustycznych wymaga użycia dynami- 
cznego sposobu generowania dźwięku. Naj- 
wygodniej byłoby wykorzystać do tego język 
BASIC. Ma on ograniczone możliwości two- 
rzenia dźwięku (instrukcja SOUND niszczy 
specjalne ustawienia rejestru AUDCTL) oraz 
małą szybkość. Jeśli program nie jest całkowi- 
cie przeznaczony do generowania dźwięku, 
rzadko kiedy mamy wystarczającą ilość czasu 
procesora na uzyskanie czegoś więcej niż 
dźwięk statyczny lub wątpliwej jakości dźwięk 
dynamiczny. Jedynym rozwiązaniem jest 
chwilowe zatrzymanie przetwarzania podczas 
tworzenia dźwięku. Ponadto mogą wystąpić 
zauważalne opóźnienia włączania poszczegól- 
nych generatorów podczas używania kilku 
kanałów do tworzenia muzyki. 

Najlepszym sposobem wyeliminowania 
tych wad byłoby użycie do generowania 
dźwięku języka asemblera. Jak wiemy, nie jest 
to takie proste. Dlatego lepsze jest rozwią- 
zanie kompromisowe: dostarczenie go- 
towych procedur w języku maszynowym, 


możliwych do wykorzystania z poziomu 
BASIC-a, które pomogą wyeliminować 
chociaż część wad tego języka. 

W celu zademonstrowania możliwości ge- 
nerowania dźwięku w BASIC-u, proponuje- 
my wprowadzić i uruchomić program nr 1. 
Jest on przeznaczony do posżukiwania cieka- 
wych efektów akustycznych dzięki odpowied- 
nio dobranym parametrom zmian głośności i 
częstotliwości dźwięku oraz zniekształceń. 
Wykorzystuje dwie pętle FOR-NEXT. 
Użytkownik musi podać szczegółowe dane 
dotyczące wartości początkowych, końcowych 
i kroków w obu pętlach oraz początkowej wy- 
sokości dźwięku i zniekształcenia. Aby „po- 
czuć”, jakie wartości należy podawać, proszę 
wprowadzić na próbę następujące wartości: 
ZNIEKSZT = 10, DŹWIĘK = 20, LI od 
15, LI do 0,L1 krok — 0.5, L2 od 3,L2 do 
0,L2 krok — 1 . Zauważmy, że dźwięk wydaje 
się wibrować w miarę zanikania. Jeśli chcemy 
usłyszeć go ponownie, musimy nacisnąć kla- 
wisz OPTION. Możemy eksperymentować 
dowolnie. 

Może się zdarzyć, że podczas prób 
uzyskamy dźwięk, który zechcemy użyć 
w którymś z naszych programów. W tym 
celu u góry ekranu wyświetlany jest 
podprogram, który umożliwia uzyskanie 
takiego efektu. Wystarczy go zanoto- 
wać. Gdy jesteśmy gotowi do dalszych 
poszukiwań, możemy nacisnąć klawisz 
START. 

Kolejny program, (nr 2) umożliwia szybkie 
ustawianie parametrów dla czterech kanałów 
dźwiękowych. Służy do tego krótki podpro- 
gram w języku maszynowym, przechowywany 
w zmiennej SIMULS. Dzięki tej procedurze 
program w BASIC-u może bardzo szybko 
manipulować wszystkimi kanałami. Wystarczy 
wywołać podprogram, wraz z odpowiednimi 
parametrami określającymi wartości rejestrów 
dźwiękowych, za pomocą funkcji USR — 
jak w linii 50 programu nr 2. Parametry po- 
winny być uporządkowane jak w przykładzie, 
najpierw zawartość rejestru częstotliwości, a 
następnie zawartość rejestru sterującego, i tak 
dla każdego kanału, który chcemy używać. 
Prezentowana procedura umożliwia także ma- 
nipulowanie mniejszą liczbą kanałów: to jest 
1,2 i 3 lub 1 i 2 lub tylko 1. Po prostu nie 
wprowadzamy parametrów dla nieużywanych 
kanałów do wnętrza funkcji USR. 

Procedura SIMULS ma jeszcze jedną zale- 
tę dla programisty; używanie jej nie zmienia 
zawartości rejestru AUDCTL — jest zatem 
lepsza i wygodniejsza w użyciu od instrukcji 
SOUND. 

Początkujący programiści pytają nas często 
o sposób napisania sekwencji instrukcji umoż- 
liwiających wygenerowanie kilkudziesięciu 
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taktów melodii, które mogłyby służyć do ilu- 
stracji dźwiękowej programu^ Rozwiązanie jest 
bardzo proste, jak widać na wydruku progra- 
mu nr 3. Kłopoty zaczynają się dopiero wte- 
dy, gdy musimy wprowadzić dane o poszcze- 
gólnych dźwiękach: wysokości nuty i czasie jej 
trwania. Podając czas trwania dźwięku, nale- 
ży pamiętać tylko o zachowaniu właściwych 
proporcji między poszczególnymi nutami. 
Czas trwania całej nuty (i odpowiednio pozo- 
stałych) możemy dobrać eksperymentalnie, 
przez wybranie właściwego tempa. 

Podanie wysokości dźwięku wymaga nieco 
trudu. Z zapisu na pięciolinii musimy odczy- 
tać wartość nuty, a następnie korzystając z 
odpowiedniej tabeli (na przykład tej, która 
została zamieszczona w poprzednim odcinku) 
zamienić ją na liczbę. Przy dłuższych frag- 
mentach muzycznych jest to czynność żmud- 
na i czasochłonna, łatwo wtedy o pomyłkę. 

Dane o dźwięku umieszcza się w programie 
w liniach DATA. Dzięki temu tę samą sek- 
wencję instrukcji można wykorzystać do wy- 
grywania różnych melodii, zmieniając zawar- 
tość linii DATA albo numer linii, od której 
rozpoczyna się pobieranie danych. 

Prezentowany program generuje dźwięk 
tylko w jednym kanale. W celu użycia większej 
ilości kanałów należy go nieco zmodyfikować, 
ponieważ dźwięki w różnych kanałach mogą 
mieć różne długości. W tym celu musimy 
przyjąć pewne założenie: najkrótszą używaną 
przez nas nutą będzie szesnastka. Długość 
dowolnej nuty podajemy przez kilkakrotne 
umieszczenie jej wysokości w linii DATA, 
tzn. dla ósemki — 2 razy, dla ćwiartki — 4 ra- 
zy, a dla półnuty — 8 razy. Jest to dosyć 
żmudne, lecz umożliwia zmianę częstotliwości 
generatorów (w zasadzie dowolnej liczby) po 
każdej szesnastce. Ten sposób prezentowany 
jest w programie nr 4, gdzie jeden z kanałów 
udaje dźwięk perkusji. 

Kolejny program, „Muzykant”, przezna- 
czony jest do tworzenia przerywników muzy- 
cznych w różnorodnych grach pisanych w 
BASIC-u. Tym się różni od poprzednich, że 
dane o nutach możemy wpisywać bezpośred- 
nio z zapisu nutowego (instrukcją działania 
jest program nr 6). 

Na przykład, dla odegrania nut C, D, E , F, 
G, A, B — w takiej kolejności — musimy za- 
pisać ciąg „CDEFGAB” w zmiennej PLAYS. 
Resztę wykona „Muzykant”. 

Postać instrukcji USR (330 w programie 6) 
służącej do wywołania procedury, jest nastę- 
pująca: 

X=USR (ADR (MUSICS), ADR (PLAYS), 
ADR (NTS), ADR (TIMES), GLOS) 

Zmienna MUSICS przechowuje rozkazy 
procedury „Muzykant” i ma długość 159 baj- 
tów. NTS zawiera wartości dziesiętne wszyst- 
kich nut, a TIMES przechowuje różne czasy 
trwania nut (MUSICS, NTS i TIMES do- 
starczane są wraz z procedurą, zatem nie po- 
trzebujemy martwić się o nie). 

GLOS ma takie samo znaczenie, jak czwar- 
ty parametr instrukcji SOUND i musi być 
między 0 a 15. 

Zmienna PLAYS zawiera aktualne nuty, 
które będą grane i może zawierać opcjonalnie 
informację o oktawie, tempie i czasie trwania 
nut. Poniżej podane są dopuszczalne znaki, 
jakie mogą wystąpić w ciągu PLAYS. 

Nuty A do G wykonują dokładnie to, co na 
standardowej skali muzycznej. Krzyżyki re- 
prezentowane są przez #, jak w A#. Bemole 
oznaczane są przez — , tak jak A—. 

On określa, która oktawa będzie używana, 
O jest wielką literą „O”, nie zerem, a n jest 
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Owa znak i z lewej strony 
nume r u l i rn i n i e sa czesc i a 
Pioarawu, lecz suma kontrolna 
linii dla Edytora BAS 1 C ' u. < I KS 
nr 4 z Nie, wprowadzamy 

ich do komputera. 

Występując® w pros ramach 
podk re s 1 one znak i na l ez.y 

wprowadzić w negatywie. 


FK 1 REM **************** 

W2 2 REM * Pros ram nr 1 * 

FM 3 REM **************** 

NJ 4 REM 

FW 10 GRAPHICS 0'DIM X$<l),BLS<30 
> < BLS=" " ^ BLS<30)=6LS > BLS<2)*B 

LS 

JE 20 ? >? "DŹWIĘK = dowolna Ucz 
ba od 0 do 255/"'? "wstawimy J 
a do P2. " 

Zfl 30 ? '? "Pt = pętla <zewnetrzn 
a) alosnosci." 

RE 40 ? "Wprowadź dowolna, liczb* 
od 0 do 15," 1 ? "odpowiednio dl 
3 od , do i k rok . " 

UZ 50 ? '? "P2 * Pętla 2 śwewnetr 
zna) dźwięku." 1 ? "Wprowadź dow 
o Ina liczbę od 0 do 255 •" 

NR 30 ? "odpowiednio dla od/ do i’ 
k rok . " 

YT 70 ? •? "Naci śnij <RETURN> " i • I 
NPUT XS 

DE 80 GRAPHICS 0'? '? *? '? " TES 
T DŹWIĘKU " 

W 90 POKE 752/ t 'C=RND(0)*13 POWT 
*0 

GM 100 SETC0L0R l /C/ 2 SETC0L0R 2/ 
C/ 8 : SETC0L0R 4/C/2 

XC 110 P0SITI0N 2/3'? "WPROWADŹ Z 
NIEKSZT ",'TRAP 130 < INPUT- D ' TR 
AP 40000 

BI. 120 IF D=0 0R D=2 OR D*4 0R D= 
6 OR D«8 OR D*10 OR D*12 OR D= 
14 THEN 140 

MG 130 P0SITI0N 2,3'? BLS 'GOTO 11 

• 0 

NF 140 P0SITI0N 2/5'? "WPROWADŹ D 
ZW I EK ■ " / ■ TRAP 1 60 ' I NPUT . P ' TRAP 
40000 

IM 150 IF P<256 THEN 170 

RE 160 P0SITI0N 2/5'? BLS ' GOTO 14 


IZ 

ZI 

WC 

CM 

FL 

PW 

FS 

HR 

CC! 

DD 

BP 

HT 

XI 

AM 

MD 


170 P0SITI0N 2/7'? "WPROWADŹ L 
1 OD"/ 'TRAP 190' INPUT FI TRAP 
40000 

180 IF FI <16 THEN 200 

190 POS 17 I ON 2 ,7'? BLS ' GOTO 17 

e 

200 POS I T I ON 2/9'? "WPROWADŹ L 
1 DO"/ 'TRAP 220 ' I NPUT Tl 'TRAP 
40000 

210 IF Tl <16 THEN 230 

220 POS I T I ON 2.9'? BI..S 'GOTO 20 

0 

230 POS I T I ON 2/11'? "WPROWADŹ 
LI KROK"/ 'TRAP 250- INPUT 81'TR 
AP 40000 

240 IF SI <16 THEN 260 

250 ROSI TI ON 2/11'? BLS 'GOTO 2 

30 


260 POS I T I ON 2.13'? "WPROWADŹ 
Li OD"/* TRAP 280- INPUT F 2 ' TRAP 
40000 

270 IF F2<256 THEN 290 

280 POS I T I ON 2/13'? BLS • GOTO 2 


30 

740 POS 111 ON 2..15'? "WPROWADŹ 


L 2 DO" , ' T KHP 5 1 u ' 1 NPU I T2 ' TRAP 


40M00 


300 IF 12 <256 I HEN 320 

31U POS 111 ON 2- 15'? BLS 'GOTO 2 


H2 52Ó POS1I 10N 2/17'? "WPROWADŹ 
I 2 KRUK". * TRHP 340 1 INPUT S2'TR 
HP 40000 

CM 3*/0 IF, S'2<256 I HEN 350 

IjM 3.40 POSITIUN 2.17' '' Bl-S 'GOTO 3 


Ml 


EV 

W( 

MA 

YN 

LR 


UN 

UL 


WL- 

GM 


TH 

F'H 

SA 

Oli 

Ot 

II 


FK 

XT 

FM 

NJ 

NF 

RK 

CE 


J'I 

GM 


W. 

Wfc 


tt 


JB 

KJ 

HD 

FN 


WJ 

AK 

YR 

1E 

IH 

LI 

MB 


RM 


F I 
YN 
FM 
NJ 
WS 
OD 
AG 
PU 
DO 
HO 
PI 


350 Jt HJWI >0 I HI; N OUSUB 530 'O 
OIM 40»i 

36M 1.1OSUP 53W ; Soi JNI • 0.0/U/0' f 
IHPS' 125' 

370 ' ' " RoDPRuGRAM GENEROWA 

N1H ILWIFKU " 

' “100 FOR U - "jFli" 10 
"/Ili" SlhP ";S1 
340 > "UH FOR L.2 e " - f 2. " TO "i 
12." STEP " ; S? 

400 "120 SOUND O - "/Pi "~l. 2/ " / 

10 " .1 I " 

410 •' "130 I lir X I 17" V "140 ME.:-: 
I U" ' "|f;.0 RH URN" 

4 20 FOR MPO- I 10 500 NE XI OPIJ 
• l IM Y 1 IR C7 -- 1 70 5 POS 1 T I ON 2 . 2 
u " SIHRI • RE.';. I HP I " ' 

" MI IION POW UJRZEN IE " 
440 F OR OPO-1 Ili 70' NI: XI OPO 
•450 POS J 1 1 1. H I 2 . 70 ■ '? " ■ S I AR 1 ) 

RESTART" " MPTJOID 
POWTÓRZĘ NIE. " 

46M FOR 0P0---1 10 20 = Nb XI OPO 
4,’0 NEXT 1.2 
480 SOI JNI' 0,0. 0. 0 
490 fF F'E F.K 1 53279 "*6 THEN W 
50ii IE PEEKU 3279) =3 THEN 520 
610 GOTO 490 
520 POW T ssPOW 14 1 GOTO 350 
6>0 FOR L 1 =F 1 To II STEP SI 
540 FOR l..2=F2 TO T2 STEP S2 
5.50 TRHP 570 -SOI IND 0/P-L2/D/L1 
IPHP 40000 

st.0 Ni-xr 1. 7 ne:x i i. 1 ' return 
670 > " ZI.E PARAMETRY. SPR 

OBU. I II:$ZCZI RAZ " • SOUND 0.0.0. 

580 FOR 0P0*1 TO 250 ■' NE XT OPO 


1 REM **************** 

2 REM * P roi ram nr 2 * 

3 REM **************** 

4 RtM 

ló SOUND 0.0/0. 0DIM S1MULSŚ 1 6 
) 

20 RESIORE' 9999 X-1 

26 RE.H0 O ' IF 0<>- 1 THEN SlHUl. i 
< X ) •CHR* t.Q) • X-X+ 1 • GOTO 25 

27 RE STORĘ 100 

30 Rb AD F 1 . C 1 / E 2 . C2 . F 3 / 1. 5 , E 4 . 1 , 

4 

40 IF FI — l THEN F ND 
50 X»USR ( ADR '8 1 IH Ji. * ) 4 F I . C 1 , E Z 
L2/F3/C3/I 4.C4) 

56 FOR X»M 10 160 ■ NEX f X 

60 DO 10 30 

100 DATA 187.168/0,0/0.0,0/0 
110 DA1A 167, 168, 182, 166,0,0,0 

i 70 [)H r A I 44 . J E/8 , 1 62 , 1 66 ,35 ,16 
6,0, 0 

1 30 DA TA 1 28 , 1 68 , 1 44 , J 66 , 40 , 1 k 
6,35/166 

140 DATA J2J / J68. 128. 166,46/ 16 
6.40/ 166 

150 DA I A 108, 168, 12J , 166.47. 16 
6,45.166 

1 60 DAT A 96 ,160.108/1 66 , 53 , 1 66 
,47, 166 

1 70 DAT A 91/168, 96 ,166. 60 . 1 66 , 


999 DA I A -1 ,0,0/0. 0,0, 0,0 
90W0 REM 
9010 REM 

9020 REM te instrukcje DATA za 
w 1 e ra j a 

9030 RE M Pros ram w jeżyku ma.z 
a nowym 

9999 DA T H 104.1 3 ź , 203,3 62 ,0,10 
4. 104, 157/0/210/ 337/7/8.20 670 
8/246/96.-1 

1 rem mowmmu 
7 REM * Pro t ram nr 3 * 

3 REM **************** 

4 REM 

10 PRINT "PODAJ TEMPU. " 

70 INPUT I 
30 RE STOPĘ 
46 REHD A . B 
50 JF A=-l THEN JO 
60 SOUND 0.A/J0/10 
70 FOR J-l TO B*T 
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JM «n NEX7 r 
■ y 90 GOTO 4 U 

HU ź'in’1 DfiTfi 247. 16,0.. 9 ,. 43, Jg, 0,* 
. Ib.*-, 16.0. l*2,e.f). 1% 

PI . l łr» f/H F h 247 . Ir .0,8,243.8.0,5 
] . J 6 . i: . O ■ J ►:.? , 6 . ó , ] 6 . - J , - ! 


FK t REM ********4:******* 

.:h i REM * Pro* ram r.r 4 4. 

FM 5 REM **************** ' 

NJ 4 REM 

HE 10 RE STORĘ 

KC 20 FOR' Ja 1 rO 16 

PT 30 REfil* H . B 

FH 40 SGUND 0.8.10.8 

WG 50 FOR I*fi TO 0 STEP -fi/ 14 

GP 60 SOUNO 1. 1,6,1 

IV 70 HEXT I 

GC 80 FOR D»0 TO 20 NEXT D 
JG 30 N£XT J 
PC 100 GOTO 10 

UX 110 DATA 8/243,4,243,4,0,8,243 
.4, 162/4, 162,8,0,4, 162,8,0,1,0 
, 8 , 0 , 1 , 0 , 8 , 0 , 1 , 0 , 8 , 0 , 1,0 


FK 1 REM ***** ******* **** 

RB 7 REM * Pro* ram nr 5 * 

FM 3 REM a*************** 

NJ 4 REM 

WJ 30 REM Pro* r Am tworzy linie 
CG 35 REM 10-16 dla pro* ram" 

GO 40 REM MUZYKANT 

HU 50 DIM PN* v 2), TEMP* (28), AR* <33 

HO 60 DFL*PEEK< 10592 > POKE 10592- 
:5 5 

Zfi ?0 FN#» "C " REM Nazw* tworzone 
*o zbioru 

DO 60 GRfiPH I CS O POSITION 8,3 ? “ 
Pro* ram z czasooisw* ANTIC" 

XG 90 POSITION 10, 4>? "naPiia 1 = M 
fiTT LOVELESS" 

PW 100 POKE 10592, DPL TRAP 170 
JO 110 ? = ? = ? "Tworztni# ";FN#>? 

"... prósz* czekac. " 

LQ 120 RESTORE 1 REfiD LN = LM«LN DIM 
fif«,LN)'C»l 

BK 130 APS«" " = REfiD AR* 

XW 140 FOR X»1 TC* LEN (fiRf) STEP 3 
POKE 752,255 

DT 150 LM-LM-1 POSITION 10,10=? " 
«.Odl iczame. . .T-"; INT<LM/10); " 

) 

UY 160 R*<C,C>«CHR*<VfiL'.AR*<X,X*2 
>>>'OC+l'NEXT X = GOTO 130 
ZB 170 IF PEEK<193)«=5 THEN ? =? = 
? CHR* (125);" ZBYT DUŻO LINII D 
fiTfi 1 " = ? "NIE MOGĘ UTWORZYĆ ZBI 
ORU'" END 

WP 180 IF CCLN+l THEN ? = ? CHR#<1 
25);" ZBYT DUŻO LINII DfiTfi'" ••? 
"NIE MOGĘ UTWORZYĆ ZBIORU"' > EN 
D 

AL 200 OPEN #1,8,0. FNt 
PP 210 POKE 766,1=? #1 ; fi#; = POKE 7 
66,0 

OT 220 CLOSE #1= GRAPHICS 0=? " KO 
NIEĆ " 

LM 1000 DfiTfi 378 

HN 1010 DfiTfi 04904803206807307703 
2078O8403604005305404 1 05607808 
403606 1 034 1 44072035000 1 5307603 
7800128064031 

FF 1020 DATA 00013606803300024312 
1 060O290000000000002 1 7 1 0805300 
02301 1405700019309604700007710 
2050000182091 

FS 1030 DATA 0450O000000000000016 
208 1 040000 1 73085042000034 1 5504 
904903206807307703208407307706 
9036040049050 

RR 1040 DfiTfi 04105808407307706903 
606 1 0340020040080 1 60050 1 062004 
00 1 5030060 1 20834 1 5504905 1 03206 
8073077032080 



•J 1 . 1 I f .H i H U.'* 1 11. *>0390 lt 04UU4 905 
. t.H 'i u 1 04407 . ;.hk . 03604 

1 » -4 •."5405 1 "4 1 1 5S04905203.-U.V06 

6Ub.'U/ 

F T 1 ‘-bij L'H I h 0610 34 j b9M0H 1 3 y 1413 
.161 3 .. 3 1 7 1 69' '02 1 3 32 1 3 1 0-r 1 04 I 3 

.'•/ 1 9 ! 04 1 332 1 6 I W4 1 3322 1 1 U4 1 3322 
U1041 ,322 3 1 04 

" 10, 0 DHiH J ? :.; fc . 1 04 1 04 009 16.014 
1U01210164: 1 7. -0.1 7 17; 218! 7U20 
01 772 i 9168056; 3049224094 i'08UÓ 
4U1OO101 33214 

J N 1050 l.*i 1 1 1-1 2. 40762u8».«.'/l 3,32 I 67. 
4 o 79209005056; 3 3002 1 332 1 52.740:3 
4 1 5504 90530320 7 7U8508 30 7 306 7'"' : 
• : .i l-Jljń, bU': 90 ’ 

EH 1090 DHTH 04007 , 70350Ó307306703 
b04 1 04 304904 1 U»> 1 034 04620000 1 09 
►.224044206005 1 65214024 1 4405. 27 
4O59208Ó04 169 

Hł li O'.' l-firH (1052O8U5/224065C.'4819 
3.:/4 O 72 1 76 i 89 J 360562330650 1 0 1 9 
70 *52060o 30 34 1 550490*34 u32u 7*708 
508 3073OG 7036 

r T 13 10 Doi O 0480 7606907804007 700 
506 307 30b , 03664 1 04 304904 1 Ob 1 0.3 
4024 1 O50U3 1 920452O8003024 1 U500 
12O10151440O2 

F F 1 1 20 DATA 1 6900 1 0 1 00 1 0024 10121 
5 1 68 1 77220 1 4 1 0002 J 0 1 652 1 4Ó24 J O 
1 2 1 6 1 68 1 77222 1 60000 1 32020 1 9702 
0 1 76232 1 4OO0O 

Ul 1 1 30 DAT fi 2 1 0024 144131 034 1 55 


H 1 PEI1 **************** 

MV 2 REM * Pro* ram r.r 6 * 

Fil 3 REN **************** 

NJ 4 REM 

RO 9 DIM BL#<30 > BLt=" " BL#^30>* 
" " BL#<2>«BL* 
fi 1 ) 10 REM 
BH 11 REM 
BC 12 REM 

GO 13 REM Lim# 10-16 utworzone 
UM 14 REM be da przez pro* ram nr 5 
BI 15 REM 
BK 16 REM 

BZ 1? PLflY$a"T3 04 L2 G ; H , K ; 03 F 
. 04 L3 C,,." 

fiF 16 GRfiPH J CS 0 = POKE 82,2 = ? FOK 
E 752.1 SETCOLOP 2,5, 6 SET COLO 
R 1,0,0 

V£> 19 POSITION 13,2=? "MUZYKANT " 
GM 20 POSITION 13-3 = ? "====*=««" 
Ml 200 POSITION 0,20= ? BLi 
PH 205 POSITION 2,5 ? "DOSTĘPNE P 


ux 

OLECENIH 
210 ? " 

Tx 

TEMPO x*( 1-3)" 

WG 

2 £ 0 

? " 

Lx 

DLUGOSC x»(l-4 

YB 

230 

? " 

Ox 

OKTAWĘ x*<3-6> 

UW 

240 

? " 

fl-G 

NUTA" 

02 

250 

? " 

# 

KR2YZYK" 

NG 

260 

? " 

- 

BEMOL" 

MF 

278 

? " 

, 

PAUZA LI" 

6D 

280 

? " 

j 

1712 S PRZERWA 

TH 

PO 

290 

300 

? ■ ? 

POKE 

752.0 

=? "WPROWADŹ NUT 


Y I POLECENIA" 


RA 310 INPUT PLAY*PLAY*<LEN<PLAY 
*)+l>*"."=? =IF PLfiYf =" . " THEN 
END 

NK 328 TRAP 320=? "GLOSNOSC" ,= INP 
IJT GLO TRAP 4O00O 
AJ 330 X*USR ( ADR ( MUS I C* ) , ADR < PLfi V 
* > , ADR < NT* > , ADR < T I ME* , GLO )- 
YF 335 POSITION 0,18=? BL* POSITI 
ON 0,17=? BL# 

SB 340 POKE 752, 1 POSITION 2,20' ? 
"INNY DŹWIĘK"; = INPUT PLAY#=IF 
LEN(PLAY#)*0 THEN 360 
TP 350 IF PLAY#( 1 , 1 )*"T " THEN 200 
KU 360 GRAPHICS 0 = END 



liczbą między 3 a 6. Środkową oktawą może 
być 03. 

Th określa tempo, n jest między 1 a 3. Nie 
jest to aktualne tempo, lecz liczba, która od- 
powiada innej znalezionej w tablicy wcześniej 
przechowywanych wartości tempa (patrz po- 
niższa tablica). 

I.h określa, jak długo brzmi nuta, n jest 
między I a 4. 1.1 reprezentuje ósemkę, L2 
ćwierćnutę, L3 półnutę, a L4 nutę. 

Poniższa tablica pokazuje aktualne czasy 
trwania nut podane w jednostkach równych 
l/50s (0.02s) w zależności od Lh i Th. 



LI 

L2 

1.3 

L4 

Tl 

2 

4 

8 

16 

T2 

5 

10 

20 

40 

T3 

15 

30 

60 

120 


Przecinek [,) wstawia przerwę lub pauzę do 
muzyki powodując, że „Muzykant” odczckuje 
najkrótszy czas dopuszczalny w tym tempie — 
dwie jednostki w Tl, pięć w T2 i 15 w T3. 

Średnia (;) wstawia opóźnienie jednej, dzie- 
siątej sekundy między nutami — wystarczają- 
co długie dla rozdzielenia nut, podobne do 
zwolnienia klawisza fortepianu. 

Kropka [.] kończy działanie .Muzykanta” i 
zwraca sterowanie do programu w BASIC-u. 

„Muzykant” ignoruje wszystkie inne znaki, 
lecz zakłada, że jakiekolwiek wartości przez 
nas podane są popraw ne i mieszczą się w po- 
danych granicach. Jeśli popełnimy błąd, mo- 
żemy usłyszeć fałszywe dźwięki. 

Program nr 5 przeznaczony jest do utwo- 
rzenia procedury „Muzykant”, zawierającej 
niezbędne stałe i zmienne, i prżcchowania jej 
na taśmie magnetycznej jako linii programu 
BASIC-u o numerach 10 do 16. W tym celu na- 
leży wprowadzić ten program do pamięci 
komputera, najlepiej za pomocą Edytora 
BASIC-u (patrz „IKS” nr 4) i przechować 
jego kopię w pamięci zewnętrznej. Po komen- 
dzie RUN utworzy on linie procedury „Mu- 
zykant” i przechowa je na taśmie magnety- 
cznej. 

Program nr 6 jest krótkim programem de- 
monstrującym wykorzystanie procedury 
„Muzykant". Można go uruchomić po 
uprzednim wprowadzeniu do komputera, 
utworzeniu kopii w pamięci zewnętrznej i dołą- 
czeniu procedury „Muzykant" (za pomocą 
ENTER). Jak już wspomnieliśmy, w po- 
przednim odcinku, fala tworzona przez gene- 
ratory dźwięku Atari ma kształt 'prostokątny. 
Oznacza to, żc głośność prawic natychmiast 
osiąga wartość maksymalną, która trwa przez 
pół okresu, a następnie szybko spada do zera. 
Dla takiego impulsu charakterystyczne są: 
wartość maksymalna i czas trwania. Taki 
kształt fali dźwiękowej można uzyskać tylko za 
pomocą urządzeń elektronicznych. Dźwięki 
wytwarzane przez tradycyjne instrumenty 
muzyczne mają impulsy o innym kształcie. 
Można w nich wyróżnić trzy fazy: 

— nabrzmiewanie, czyli narastanie dźwięku; 

— trwanie, czyli faza ustalona, nazywana 
również podtrzymywaniem, w której dźwięk 
nic ulega zmianom lub zmienia się niezna- 
cznie; 

— wybrzmiewanie, czyli opadanie dźwięku, 
w której następuje spadek natężenia dźwięku 
aż do całkowitego jego zaniku. 

W odróżnieniu od dźwięków generowanych 
przez komputer, dźwięki instrumentów mogą 
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FK 1 REM **************** 

BP 2 REM * Proiram nr 7 * 

FM 3 REM **************** 

NJ 4 REM 

EF IB POKE 731,0 

RH 100 DATA 104,104,104,141,0,210 
, 104, 104, 133,204, 184, 104,133,2 
05, 104, 104, 133,206 
MF 110 DATA 169,160,141,1,210,166 
,204,32,65,6,24, 105,1,201,176, 
208,241,169, 14, 166,205,32,65,6 
,56,233,1,208,246 
CZ 120 DATA 169,175,141,1,210,166 
,206,32,65,6,56,233, 1,201, 159, 
208,241,96,160,76, 136,208,253, 
202,208,248,96 

AT 130 FOR 1*1536 TO 1609 : READ A 
POKE I , A NEXT I 

NO 140 GRAPHICS 8 SETCOLOR 2,0,0 
JA 150 Z88=PEEK(88> Z89=PEEK<89) 
N«100 T® 100 ! 0*100 
CX 155 PK»0 

BM 160 POKE 88 , PEEK ( 660 ) ' POKE 89, 
PEEKC661) POKE 87,0 POKE 752,1 
PK 170 POSITION 9,0 : ? #6; "Narasta 
nie " ;N*5;" ms. " 

CB 188 POSITION 9,1'? #6> "Trwar.it 
" > T*5i " fttł. 

WR 190 POSITION 9,2'? #6; "Opadam 
e ";0*5; " m*. " 

HS 210 S=STICK<0> 

FA 212 NS=N 0S*0 TS*T 
KU 215 IF S=7 OR S=ll THEN GOSUB 
1000 

QS 220 IF S*14 THEN PK*PK-1*<PK>6 
> 

OR 230 IF S*13 THEN PK-PK+1*<PK<2 
) 

00 240 FOR 1=0 TO 2'P0SITI0N 5,1 
? #6iCHR*(31 + l*UOPK>> 

GC 250 NEXT I 

ZY 260 POKE 88,288 'POKE 89,Z89'PC 
KE 87,8 
XY 270 COLOR 1 

XL 280 PLOT 32, 100 ' DRAWTO 32+N/3, 
0 ' DRAWTO 32+T/3+N/3,0- DRAWTO 7 
2+T/3+N/3+0/3, 100 
Q0 290 ON <S<>7 AND S <> 1 1 > GOTO 3 
10 

YG 295 COLOR 0 

JV 300 PLOT 32, 100 'DRAWTO 32+NS/; 
, 0 ' DRAWTO 32+TS/3+NS/3 , 0 = DRAWT 
O 32+TS/3+NS/3+0S/'3, 100 
DY 310 IF PEEK >'764) *255 THEN 168 
El 320 A=USR< 1536, 120,N, T, O) 

WP 330 POKE 764,255 
OE 340 GOTO 160 

Q0 1000 ON PK+1 GOTO 1100- 1200, 13 

00 A 

AF 1020 RETURN 

S Q 1100 X*N' GOSUB 2000 N=X 

AE 1119 RETURN 

ZK 1200 X*T' GOSUB 2000 T=X 

AG 1210 RETURN 

TX 1300 X*0' GOSUB 2000 = 0-X 

Al 1310 RETURN 

KT 2000 X*X+< 1 *<S*7)-1*<S=1 1 )>*<" 1 
+ 10*< NOT STRIG<0>>) 

YC 2010 IF X<1 THEN X*1 
IM 2020 IF X>255 THEN X*255 
AJ 2030 RETURN 


'K 1 REM **************** 

;j 2 REM * Pr 09 ram nr 8 * 

-M 3 REM **************** 

NJ 4 REM 

ES 1,0 POKE 731,1 

DO 16 GRAPHICS 0 ' ? "Wybierz rodzą 
j dźwięku'"'? '? "1 STRZAŁ" 

BG 18 ? "2 WYBUCH"? "3 SYRENA"'? 

"4 KARETKA POGOTOWIA" 

LA 20 ? "5 BOMBA"'? "6 PIŁOWANIE 
DRZEWA" ' ? "7 URUCHAMIANIE SAMO 
CHODU"'? "8 MORZE" 

WN 25 ? "9 PTAKI"'? "Ą MŁOT PNEUM 
ATYCZNY" 

SZ 30 POKE 752,0 POKE 77,0'POSITI 
ON 0,15’? "Co wybierasz" INPU 
T A 

MD 35 POKE 752,1? 'POKE 77,128 
HB 40 ON A GOSUB 100,300,500,700, 
A00 , 1 000 , 1 200 ,1400,1 600 
0X 45 IF R=0 THEN GOSUB 1700 
SE 50 GOTO 30 
DA 100 REM STRZAŁ 
YH 110 DLG=3 
WK 120 DZW=20 ' GOSUB 160 
EW 130 SOUND 1,0,0,0'SOUND 2,0,0, 
0 

RF 140 SOUND 0,0, 0,0 'RETURN 
CF 160 SOUND 2,75,8,15 
OL 170 PRZ=0.62+DLG^100 
CW 180 G 1 * 1 5 ' G2= 1 5 ' G3= 1 5 
WR 190 SOUND 0 , DZW , 8 , G 1 
OE 200 SOUND 1 , D2W+20,8,G2 
TN 210 SOUND 2 , DZW+50 , 8 , G3 
VH 220 G1=G1*PPZ 
CM 230 G2=G2* < PRZ+0 . 05 ) 

FI 240 G3=G3*< PRZ+0. 08; 

OD 250 IF G3> 1 THEN 190 
RK 260 SOUND 0,0, 0,0 'RETURN 
WE 300 REM WYBUCH 
ZT 310 DLG=7 
YX 320 DZW=50' GOSUB 360 
EY 330 SOUND 1,0,0,0'SOUND 2,0,0, 
0 

RH 3.40 SOUND 0,0, 0,0 'RETURN 
CH 360 SOUND 2,75,8,15 
AZ 370 PRZ=0. 8+DLG/100 
CY 380 G 1 * 1 5 ' G2= 1 5 ' G3* 15 
WT 390 SOUND 0,DZW,8,G1 
QG 4O0 SOUND 1 ,DZW+20,8,G2 
TP 410 SOUND 2, DZW+50, 8, G3 
VJ 420 G 1 *G 1 *PRZ 
CO 430 G2=G2*< PRZ+0. 85) 

FK 440 G3»G3*< PRZ+0. 08) 

PP 450 IF G3> 1 THEN 390 
RM 460 SOUND 0,0,0, 0 > RETURN 
V2 500 REM SMteNA 
QF 510 DLG= 1 0 

JX 520 DOL=50 ' G0R=35 : KROK=-0. 5 
YA 530 FOR CZftS=l TO DLG 

XD 540 FOR DZW=D0L TO GOR STEP KR 
OK 

QZ 550 SOUND 0,DZW,10,14 
SJ 560 FOR CZE=1 TO 5'NEXT CZE 
ER 570 NEXT DZW 

PF 580 XX=DOL ' DOL=GOR ' GOR=XX ' KROK 
—KROK 

JU 590 NEXT CZAS 

RC 600 SOUND 0,0, 0,0 RETURN 

MV 700 REM KARETKA POGOTOWIA 


Prezentujemy krótkV ale ciekawy program graficzny, który 
można wykorzystać przy tworzeniu stron tytułowych innych, 
większych programów. Program został napisany na komputerze ZX 
Spectrum, ale może być po niewielkich przeróbkach uruchomiony na 
dowolnym komputerze. 


10 LET a= I NT (RND*4) *3 
20 INK a 

30 BORDER O: PAPER O: CLS 
40 FOR frO TO 255 STEP 5 
50 PLOT 0,10: DRAW f,165 
60 NEXT f 

70 FOR frO TO 255 STEP 5 

80 PLOT 255,175: DRAW -f,-165 Sekcja NKP Informatyki 

90 NEXT f przy SPR WSOWRiArt. w Toruniu 


ZF 710 DLG=5 

GV 720 D0L»57 ' G0R=45 ' DZW=GOR 

ZI 730 FOR CZAS®0 TO DLG*2 

QZ 740 SOUND 0,DZW, 10,14 

GL 750 FOR CZE=1 TO 100'NEXT CZE 

BZ 760 DZW=DOL'DOL=GOR'GOR-DZW 

JS 770 NEXT CZAS 

RT 780 SOUND 0,0, 0,0 'RETURN 

IJ 800 KtM BUMBH 
ZG 810 DLG*5 

W 820 G 1=4 'FOR DZW=30 TO 75 
FL 830 SOUND 0,DZW,10,G1 
RG 840 SOUND 1 ,DZW+3, 10,G1*0.7 
BS 850 FOR CZE=1 TO DLG*3 = NEXT CZ 
E 

MC 860 G1=G1*1 . 03 ' NEXT DZW 

YJ 870 SOUND 2,35,8,12 

DD 880 Gl*15 ' G2=15 ' G3=15 

QX 890 DZW»DLG+5'PRZ=0.8+DLG/100 

WH 900 SOUND 0,DZW,8,G1 

QN 910 SOUND 1 , DZW+20, 8, G2 

TW 920 SOUND 2, DZW+50, 8, G3 

VQ 930 G1 = G1*PRZ 

CV 940 G2=G2*< PRZ+0. 05) 

FR 950 G3=G3*< PRZ+0. 08) 

NL 360 IF G3> 1 THEN 900 
JI 970 SOUND 0,0, 0,0 'SOUND 1,0,0, 
0' SOUND 2, 0,0,0 'RETURN 
YY 1000 REM PIŁOWANIE DRZEWA 
VL 1010 DLG=8 
X0 1020 FOR CZAS* 1 TO DLG 
GU 1030 KR=16'GL*12= GOSUB 1060 
HB 1040 KR=18'GL=8' GOSUB 1060 
CT 1050 NEXT CZAS 'RETURN 
OD 1060 FOR DZW*KR+5 TO KR STEP - 
1 

LZ 1070 GOSUB 1130' NEXT DZW 
FU 1080 FOR DZW=KR TO KR+5 
MT 1098 GOSUB 1 140 'NEXT DZW 
TV 1100 SOUND 0,0, 0,0 'SOUND 1,0,0 
,0 

RU 1110 FOR CZE*1 TO 25'NEXT CZE 
HH 1120 RETURN 
LN 1130 SOUND 0, DZW, 4, GL 
GF 1140 SOUND 1,DZW,8,GL*0.7 
UW 1150 FOR CZE*1 TO 3'NEXT CZE'R 
ETIJRN 

ZB 1200 REM URUCHAMIANIE SAMOCHÓD 
U 

WY 1210 FOR CZS»1 TO 3 


VK 1220 FOR CYKL-1 TO 5 
BL 1230 SOUND 0, 200-CYKL*20, 0, 14- 
CYKL 

BF 1240 FOR W=1 TO 25'NEXT W'NEXT 
CYKL 

XH 1250 FOR CYKL-1 TO 7 
0V 1260 SOUND 0>CYKL*20,0, 14-CYKL 
BO 1270 FOR W*1 TO 25'NEXT W'NEXT 
CYKL 

BA 1288 SOUND 0,0,0,0'FOR W=1 TO 
100 ' NEXT W 
IH 1290 NEXT CZS 
JY 1300 SOUND 0,100,4,8 
TH 1310 FOR W=1 TO 2000 NEXT W 
JE 1320 FOR W»200 TO 50 STEP -1 

8T 1330 SOUND 0,W,2, 10'FOIjf WA*1 T 
O 1 0 ' NEXT WA 

XK 1340 NEXT W -SOUND 0,50,2,8 
DG 1350 FOR WA* 1 TO 2000 -NEXT WA 
XY 1360 SOUND 0,8, 0,0 -RETURN 
JY 1400 DLG=5 - REM MORZE 
JY 1410 FOR L“1 TO DLG 
10 1420 FOR J*0 TO 45 
DF 1430 SOUND 0,J,6,4 
MH 1440 FOR K*1 TO 20+RND<0)*10‘N 
EXT K 

FX 1450 NEXT J 

YR 1460 FOR J=45 TO 0 STEP -1 
DR 1470 SOUND 0,J,8,4 
OS 1480 FOR K=1 TO 50+RND<0)*10 ' N 
EXT K 

FK 1490 NEXT J-FOR K=1 TO 300+RND 
<0)*300 - NEXT K 

IW 1508 NEXT L- SOUND 0,0, 0,0 

AM 1510 RETURN 

KN 1608 REM PTAKI 

NN 1610 DLG= 1 0 

GO 1628 FOR J=1 TO DLG*5 

FE 1630 FOR K-3 TO 10 


LS 164i3 SOUND 0/K,10,8 
Yrt 1650 NEXT K ■ NEXT J 
YE 1660 SOUND 0,0, 0,0 RETURN 
C-S 170O REM MŁOT 
UV 1710 DLG=5 
JN 1720 FOR J= 1 TO DLG 
BP 1 730 SOUND 0 , 1 30+RND < 0 ) *2 , 2 , i 5 
JF 1740 FOR f.= l TO 140+RND<0)*300 
: NEXT K 

IQ 1 745 , SOUND 0,0, 0,0 
HE 1750 FOR K=1 TO 1404RND <0)*100 
»NEXT K 

GG 1760 NEXT J 
BI 1770 RETURN 


nie mieć fazy ustalonej. Dźwięki strunowych 
instrumentów szarpanych i młoteczkowych 
mają krótkie fazy nabrzmiewania i dość długic 
fazy wybrzmię wania. A akordeon ma długie 
nabrzmiewanie i krótkie wybrzmicwanie. 

Czas trwania nabrzmiewania zależy od spo- 
sobu pobudzenia i elementu drgającego. Naj- 
krótszy czas nabrzmiewania (poniżej 20 ms 
mają instrumenty strunowe szarpane oraz dę- 
te blaszane. Instrumenty dęte stroikowe na- 
brzmiewają w ciągu 35—70 ms, a smyczkowe 
w ciągu 40—120 ms. Czas nabrzmiewania fle- 
tów wynosi 100 — 500 ms, a piszczałek orga- 
’ nowych, w najniższych rejestrach — 1 sekun- 
dę i dłużej. 


Czas trwania wybrzmiewania bywa zna- 
cznie dłuższy. Dla instrumentów dętych 
drewnianych wynosi około 100 ms, dla bla- 
szanych — 200 ms, a dla smyczkowych aż 
2 — 4 sekundy. 

Z tego krótkiego przeglądu wynika, że w ce- 
lu naśladowania dźwięków wytwarzanych 
przez instrumenty muzyczne, konieczne jest 
dobranie odpowiednich czasów nabrzmiewa- 
nia, trwania i wybrzmiewania dźwięku. Czyn- 
ność tę nazywamy kształtowaniem obwiedni 
dźwięku. Niektóre komputery, np. Amstrad 
CPC 464 lub CPC6128 mają do tego specjal- 
ne instrukcje języka BASIC'. Dla Atari musi- 
my to robić sami (albo w języku BASIC, lecz 
trwa to zbyt długo i nic daje pożądanych efek- 
tów, albo w języku maszynowym, jak demon- 
strujemy w programie nr 7). Jest on przezna- 
czony do prezentowania różnic w brzmieniu 
dźwięków o różnym kształcie obwiedni. Aby 
uniknąć nadmiernego rozbudowania progra- 
mu oraz lepiej pokazać różnice, generowany 
jest jeden dźwięk o wysokości środkowego ('. 
Z a pomocą ruchów manipulatora w przód i w 
tył wybieramy odpowiednią fazę, a ruchy" W 
lewo lub w prawo zmieniają czasy trwania 
wybranej fazy. W celu przyspieszenia zmiany 
długości fazy należy nacisnąć czerwony kla- 
wisz manipulatora. Można sprawdzić 
brzmienie dźwięków o różnym kształcie obwied- 
ni, wykorzystując podane wcześniej przybli- 
żone czasy poszczególnych faz. 

Uznaliśmy, że w artykule traktującym o 
dźwięku nic może zabraknąć gotowego pro- 
gramu dla tych czytelników, którzy nic mają 
ochoty lub czasu na eksperymentowanie. W 
tym celu przygotowaliśmy program nr 8, któ- 
ry demonstruje dziesięć interesujących efek- 
tów dźwiękowych. Pewne z nich są dosyć 
skomplikowane i zadziwiająco realistyczne. 
Uzyskaliśmy je przez szybkie zmiany często- 
tliwości, zniekształceń i głośności w instruk- 
cjach SOUND. 


Tomasz MROWIEĆ 
Ludwik PIELA 



Oto lista "poprawek" 
telnosci w niektórych grach 
lista dotyczy starszych 
jeszcze dziS mogą wie 


zainteresować 
prawdopodobnie pubii 
naszej sekcji, podajem 


i uzyskanie meSmier- 
ZX spectrum. Poniższa 
ia tyle atrakcyjne, Ze 
lektóre pozycje z tej 
swarie, chcąc jednak 
wszystkie, które udało 


ALCHEMIST 

ARCAD I A 
AT I C ATAC 
BRUCE LEE 
COOK I E 
HERO 

JACK ANO THE 
BEANSTALK 
JET PACK 
KOKOTONI Wi 
MANIĆ HINEf 
MONTY MOLE 


PYRAMID 
TRANS AM 
DEFENOA 
HUNCHBACK 
MOON ALERT 
ZAXXON 
MR.WIMPY 
ALI EN 8 
CHUCKIE EGG 
THE WAY OF THE EXPLOD 

10 LOAD 
POKE 


POKE 47340,0 
POKE 49745, I 95 
POKE 25776,0 
POKE 35519,0 
POKE 31795.0 
POKE 28698,0 
POKE 44322, 182 

PO».E 42404,255 
POKE 25020,0 
POKE 43742,0 
POKE 35136,0 
POKE 37512,0 
POKE 47640.0 
POKE 24984,0 
POKE 28625.0 
POKE 41099,32 
POKE 44685,0 
POKE 25446,0 
POKE 35730,52 
POKE 26888,0 
POKE 39754,0 
POKE 48825,265 
POKE 33693,0 
POKE 51736.0 
POKE 42508,3 


FI ST 
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ZX SPECTRUM 


RUCHOMY TEKST 


Ten program umożliwia przesuwanie w dolnej części 
ekranu tekstu o dowolne) długości. Szybkość przesu- 
wania reguluje instrukcja PAUSE. Przerywanie przesu- 
wania następuje po wciśnięciu spacji. 

i REM .ucho tu* tikit 
10 INFJT douc Uv* Ut.il 

'• LINĘ r.i 

£0 LIM KŁ(64*(LEN r. $ ; 32 / +* *LEN 
r.i» ni' s 3 i) ) 

3 O 1F LEN ri%sZZ THEN i- ET k$=r.t 


, LET TO ) *n . 

40 IT LEii r. ThEf. >-ET ». *=n 

* T 50 TOR Ul TO LEM > *. 2 

t_, 2 PRINT 31, RT 0,0, H U Tu 144 

11 70 IF INKEY*=" ” TUSU TO 14 
SO PRU5E 10 
3.' ms, 7 k 
10 C 00 TO 50 



ZX SPECTRUM 


BASIC PRZYSPIESZA BASIC 


Szybkość programu napisanego w Basicu jest piętą 
achillesową każdego komputera, a na pewno już ZX 
Spectrum. Znawcy doradzają, aby pisać jak najwięcej 
instrukcji w jednej linii, a podprogramy trwające najdłu- 
żej wprowadzać na początek programu. Nie ulega wąt- 
pliwości. że pierwsze linie pojawiają się szybciej niż 
ostatnie (a ściślej mówiąc czas ich odszukania jest 
znacznie krótszy). Kłopot dla programisty zaczyna się 
wtedy, kiedy tych ważnych i długich podprogramów jest 
kilka. * 

Mechanizm szukania linii jest następujący: program 
zaczyna się od komórki pamięci adresowanej przez 
zmienną systemową (PRÓG = 256 • PEEK 23636 + 
PEEK 23635). Od tego miejsca interpreter ..przeskakuje 
z linii na linię”, az znajdzie szukaną. Odbywa się tak dla 
każdej instrukcji programu. Jest to konieczność zwią- 
zana z konwersacyjnym trybem obsługi ZX Spectrum: 
przecież użytkownik "w każdej chwili może wprowadzić 
zmiany w programie. 

Nasze „oszustwo" polega na tym. że zmieniamy ad- 
res początku programu. Po uruchomieniu procedury 
należy podać numer linii i wstawić wypisane POKE. Od 
tej chwili program zaczyna się od tej linii (nawet pod- 
czas listowania). Dlaczego konieczne jest zapamiętanie 
rzeczywistej wartości PRÓG: podajemy procedurze 
numer pierwszej linii programu. Tę wartość . należy 
przywrócić, gdy chcemy mieć dostęp do całego pro- 
gramu. 

Przeprowadziłem eksperyment licząc czas wykony- 
wania najprostszej pętli. Trwało to 2,5. razy wolniej, jeśli 


poprzedzała ją setka innych linii, niż przy tej samej pętli 
na początku programu. 

Zastosowanie tej procedury zapewni w obu wypad- 
kach ten sam czas. 

Działanie procedury polega na tym. że znajdzie ona w 
pamięci adres początku podanej linii (pod warunkiem 
że ta linia istnieje). Możemy w ten sposób dowolnie 
przenumerowywać linie. np. wprowadzić nr 0 — takiej linii 
me można edytować. Zamieńmy naszą limę na zerową 
Po wywołaniu procedury należy podać J" (numer na- 
szej linii). Otrzymamy adres 23755 (ten adres jest naj- 
częściej początkiem programu). Wykonajmy POKE 
23755 + 1 . 0. Od tej chwili edycja procedury jest nie- 
możliwa. 

Krzysztof POŹNIAK 


.‘i r , y i h . 
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procedura o su u a z nie 
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INFUT 'uprowadź nr l 
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ROZKŁAD GAUSSA 
W ASEMBLERZE 


Proponowany program, choć na pierwszy rzut oka wydaje 
się bardzo długi, jest znacznie szybszy od jego odpowiednika 
w Basicu. 

Umożliwia obliczanie dowolnego układu równań liniowych. 
Korzysta z „kalkulatora” Spectrum, dzięki czemu zachowuje 
pełną kompatybilność z pozostałą częścią programu oraz za- 
pewnia identyczną dokładność numeryczną. Program jest 
całkowicie rclokowalny i całkowicie zabezpiecza przed błę- 
dami. Napotkany błąd sygnalizowany jest odpowiednim komu- 
nikatem i awaryjnym przerwaniem programu. Procedurę 
uruchamia się przez FN (funkcja użytkownika). Przesyła się 
w niej trzy parametry (FN znajduje się w linii 2000). Tablica 
tekstowa nS zawiera kod maszynowy procedury. Wyjaśnienia 
na ten temat zamieszczone są na końcu artykułu. Tekst „n() M 
określa nazwę tablicy numerycznej przeznaczonej do rozkła- 
du (nawiasy po literze są konieczne). Zmienna sterująca „s” 
może zmieniać się od 0 do 255 włącznie, czyli można ją trak- 
tować jako zestaw ośmiu niezależnych bitów, wprowadza- 
nych np. przez instrukcję BIN. Bity te mają następujące zna- 
czenie: 

bit 7 = 0 — ustawianie elementu głównego wg wektorów 
przemieszczeń podanych z poziomu Basica. 

= 1 — automatyczne ustawianie elementu głównego, 
bit 6 = 0 — kolumny nie są przestawiane. 

= 1 — przestawianie kolumn. 

k' 1 ^ __ ^ | jak bit 6, ale dotyczy wierszy. 

bit 4 = 0 — macierz L nie jest obliczana. 

= 1 — macierz L jest obliczana. 

k' 1 ^ ~ ® | ‘jak bit 4, ale dotyczy macierzy U. 

jak bit 4, ale dotyczy macierzy B. 

jak bit 4, ale dotyczy macierzy X. 

bit 0 — 0 — liczenie odbywa się na stosie kalkulatora, zostają 
zachowane macierze A i B. 

= 1 — liczenie jawne, odbywa się na przesłanej tablicy 
numerycznej. 

Struktura tablicy przesyłanej do procedury jest następująca: 


an» . . . , ai n , 

bi. | xi, | ki, | wi 

[A] : 

. i . i . i . 

. i . i . i . 

i . i . i , 

»"’■ , fen. 

bn. , Xn» | k„, | W n 


[B] [X] [YwJ [Xwl 


Ukrywa ona taki oto układ równań: 
aiiXi + + amXn = bi 

; ; [A] • [X] = [B] 

a„iXi * ... - a„nXn = bn 

gdzie: Y» — wektor przestawień kolumn 
X w — wektor przestawień wierszy 
A — macierz współczynników 
B — wektor wyrazów wolnych 
X — wektor niewiadomych, wektor szukanych 


bit 2 = 0 
= 1 
bit 1 = 0 


Podczas wprowadzania danych do tablicy xi,...,x n mogą 
przyjąć dowolne wartości, podobnie kt,..., k n i Wi,..., w n , ale 
pod warunkiem, że bit 7=1. Gdy bit 7 = 0, muszą one 
przyjąć ściśle określone wartości, o czym będzie, mowa w dal- 
szej części artykułu. 

Osoby bliżej zainteresowane teorią odsyłam do pozycji (1, 

2 , 3 ). 

Macicrz_A rozkłada się na macierz górnotrójkątną IJ i dolno- 
trójkątną L, zostaje odpowiednio przekształcony wektor JJ, a na- 
stępnie za pomocą utworzonej macierzy LJ i przekształconego 
wektora Ji obliczony zostaje wektor niewiadomych X. Bity nr 
4, 3, 2, 1 , decydują o obliczaniu odpowiednio macierzy L, U, 
_B, X. Bit 0 decyduje o zachowaniu macierzy A i wektora B, 
tzn, że można otrzymać rozwiązanie, zachowując te dwie ma- 
cierze (są one dodatkowo zapamiętywane, co niestety zajmuje 
pewną część pamięci). 


I ważne wyjaśnienie dotyczące bitów 7, 6, 5. Okazuje się, 
że największą dokładność w obliczeniach uzyskuje się, gdy 
tzw. element główny ma wartość bezwzględnie maksymalną. 
Dokładne wyjaśnienie tego problemu zawierają pozycje (2, 
3). Element główny ustawiany jest przez odpowiednie prze- 
stawienie kolumn i wierszy. Wyszukiwanie elementu główne- 
go zapewnia bit 7 + 1 . O tym, czy mają być przestawiane ko- 
lumny, wiersze, czy kolumny i wiersze jednocześnie decydują 
odpowiednio bity 6 i 5. Wektory Ywi Opamiętają te przesta- 
wienia i jeśli bit 7 ustawimy na wartość 0, to przestawienia 
będą się odbywać wg tych wektorów. Dzięki temu w czasie 
ciągu obliczeń itcracyjnych, kiedy wartości zmieniają się w 
niewielkim stopniu, przeszukiwanie macierzy A odbywa się 
tylko podczas pierwszego rozwiązania, co znakomicie przys- 
piesza obliczenia. 

Proponuję przeprowadzić kilka testów. Utwórzmy tablicę 
10 stopnia (n = 10). Lepiej wykonać podstawienie automaty- 
czne macierzy — podstawiają się wtedy wartości generowane 
przez RND. Podajmy s + 11101110. W tym wypadku ele- 
ment główny będzie automatycznie ustawiany przez przesta- 
wianie kolumn i wierszy. Zostaną obliczone macierze JC przy 
zachowaniu macierzy A i B . Naciśnięcie klawisza „3", spo- 
woduje wykonanie procedury, a odczyt wyników nastąpi 
przez naciśnięcie klawisza „4”. Warto zwrócić uwagę na czas i 
na błędy obliczeniowe. Po naciśnięciu dowolnego 'klawisza 
pojawi się ekran główny. Wektory X & Y* pamiętają przesta- 
wienia. Podstawmy s = 01 101 1 10. Wynik będzie identyczny, 
ale czas krótszy. Przestawienia były narzucone i dzięki temu 
nie trzeba było w ielokrotnie przeszukiwać macierzy Pod- 
stawmy s = 10001 10. Czas będzie krótki, ale dokładność po- 
winna być mniejsza. Jednak dobór elementu głównego ma 
znaczenie. Nie obliczaliśmy macierzy L ale i ona się przydaje, 
zwłaszcza wtedy, gdy rozwiązywanie przeprowadzamy wie- 
lokrotnie i zmieniamy tylko wektor wyrazów wolnych B. Na 
początku należy rozłożyć macierz na macierz _L i IJ 
(s = 11111001). Rozłożenie musi być jawne (bit 0 = 1). O 
zamianie kolumn i wierszy decydujemy sami (w tym wypad- 
ku są przestawiane kolumny i wiersze), ale bity 6 i 5 nic mogą 
być potem zmieniane. Podstawmy s — 01 1001 11. Teraz mo- 
żemy wielokrotnie wprowadzać wektor B i wywoływać proces 
obliczeniowy. Sam proces rozkładu wektora J1 i obliczania 
wektora JX trwa krótko, co można stwierdzić oglądając wy- 
niki. 
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Przykładowa tabela czasów 
wykonania : 

1.S-BIN11111111- obliczenie L,U,B,X 

z pfiłbym przestawieniem; 

2. s” BIN10011111 - obliczenie L, U, B,X 

bez przestawiania; 
czas w sekundach : 


n= 


3 

5 

7 

10 

15 

20 

i. 

Ef,12 

0,24 

0,68 

4,68 

4,24 

13,28 

29,68 

2. 

8,12 

0,2 

0,52 

1,08 

2,72 

8,4 

18,6 


W razie stwierdzenia błędu program uruchamia procedurę 
obsługi błędu Spectrum i emituje odpowiedni komunikat: 

3 Subscript wrong — podczas zewnętrznego sterowania prze- 

stawieniami (bit^ 7 = 0) numerem 
wiersza lub kolumny jest liczba rze- 
czywista łub naturalna nie należąca do 
przedziału l,...,n * 

4 Out of memory — gdy zabraknie miejsca w pamięci RAM 
A Invalid argument — podczas zewnętrznego sterowania 

przestawieniami, gdy wektor Y« lub 
Xw ma powtarzające się numery 
Q Parametr error — wywołany przez interpreter Spectrum, 
gdy przesyłane parametry nie zgadzają 
się ilościowo, składniowo, lub nie istnie- 
ją w obszarze zmiennych wywoływany 
przez procedurę, gdy nie istnieje tablica 
numeryczna o podanej nazwie, gdy za- 
, braknie nawiasu za literą bądź zostanie 

przesłana nazwa wieloliterowa, gdy 
rozmiar tablicy nie wyniesie (n,n + 4), 
gdy zmienna sterująca „s” nic zawiera 
się w przedziale (0 — 255) 


Funkcja użytkownika FN po powrocie z procedury przyjmu- 
je dwie wartości: 

0 — gdy wszystkie narzucone przez zmienną sterującą roz- 

kłady i przekształcenia zostały wykonane 

1 — gdy element główny ma wartość zero. Oznacza to, że na- 

leży wprowadzić .zamianę kolumn i wierszy, gdyż na 
głównej przekątnej znajdują się zera, a jeśli zamiana 
automatyczna kolumn i wierszy jest uruchomiona, 
świadczy to o niejednoznaczności układu równań. 

Kod maszynowy jest trzymany w tablicy tekstowej nS. Takie 
ulokowanie procedury ma wiele zalet: 

1) nie trzeba zmieniać rantropu i rezerwować miejsca dla ko- 
du maszynowego 

2) można w każdym momencie wykasować procedurę (np. 
DIM n$ (0) 

3) można zapisać procedurę przez SAVE „nazwa” DATA nS 
(), odczytać przez LOAD „nazwa” DATA n$ (), zweryfi- 
kować przez VERYFI „nazwa” DATA nS (), czyli trakto- 
wać ją jak zwykłą tablicę tekstową 

4) jeśli wczytujemy program przez LOAD, to procedura 
wczytuje się jednocześnie z programem i pozostałymi 
zmiennymi. 

5) w jednej tablicy tekstowej można przechowywać wiele pro- 
cedur, a do FN przesyłać wyćinek tablicy z daną procedu- 
rą. Proponuję zrobić eksperyment, ale najpierw lepiej utr- 

' walić program na taśmie. 

Utwórzmy tablicę DIM m$ (4774) 
podstawmy LET m$ () = n$ () + n$ () 
teraz w linii 2 000 wymieńmy n$ na mS (2388 TO). W ten 
sposób można przepisywać i porządkować procedury wg 
własnych potrzeb, tak jak zwykłe tablice tekstowe.' Można 
nawet wpisać m$ (2388), co i tak uruchomi procedurę. Od- 
naleziony zostanie adres tego elementu tablicy, czyli adres 
początku procedury. Podczas tych operacji należy zacho- 
wać ostrożność, aby nie doprowadzić do uruchomienia 
programu od przypadkowego bajtu. Najczęściej w takich 
wypadkach system się resetuje. 

Krzysztof POŹNIAK 
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1 REM 

2 REM . • r, - - 

3 REM K.-ZYifUi P 

4 REM Klub Mi UOkGftf- 
E REM HOEBYTE 
| REM 


REM - 

DEF FN i (r,f , 
- 


u itrowy 
© 1957 


„ r.-łx‘ )ł y 5R (PCCK 

iPEEK 23563>25Ć*PfEK 23664+4) +2 
6+PEEK (PEEK 23563+266łPEEK 245 


10* INK 7. PAPER 0. BORDEF. 0 : 
LS : PRINT RT 10,8,.FLRSH 1; 


_ DIM n$ (2387) 
kl*0: LET k£ «B: LET S«1 
f 0 — — 


. RES 

. FOR L yIl’'f5''2e'"”RERD x : LET ń|7 
U-CHRI X; LET kl»kl+X. LET 
2 + Ł *x : LET S«-l 1F 1=2387 TMEN 
GO TO 13 

12 LET 1*1+1: NEXT u 
•13 RERD k®l; RERD k®2; IF k01ł 
>kl OR t.02 ( >12 THEN BEEP 0.2,2® 
PRINT " b lad w linii "id: STÓP 
14 LET d=d+10 IF l <2387 TMEN 
GO TO 11 

2® LET dano®. LET n«l; LET s- 
255. LET tlwo®. LET n»l: DIM n( 
n,n+4ł: DIM & $ (6 > . LET S*»"lllll 
lil- 
ie® CLS : PRINT RT 0 , 0 j "rozkazy 

11® PRINT RT 2,0, "1 - nowa tabl 
i ca" 

12® PRINT "2 - zftitnna sterując 

13® PRINT "3 - wytonar.it" 

140 PRINT "4 - wydruk" 

20® PRINT RT 10,®, "r.*" , r, 

£1® PRINT RT 12,©, "7-", S* (11 i" » 
>zatu i ans ", "sterowana" RND not U 
AL s| (l) , "automatyczna" rno ual 

^tll* PRINT TRB 0 , "6- ", S $ (2 i J " * > k 
oluar.y " , "r. itzaft. i tr.i ant " And NOT 
URL s $ (2) ; "zaiu i er. i ar.a " RND url 
s* (21 


212 PRINT TRE C , "6- " , 1 * Cg> i ' "•>« 
itrsze ", "niezawitniant R^D NOT 

URL s* i3i , "zar»ienian« RND UAL 

s i (3) 

213 PRINT TRB 0, "4 - " ; i * U> i ** •> 1 
, "n i t " hND NOT URL ą|U)i" RND 
URL s$(4) ; "obliczanie aacitrzy L 

214 PRINT TRB © , "3- " , i I <6> i " » > " 
, "r. i« " RND NOT URu S*(5),' RND 
URL s| (5, , "Obli czanifc ».ac»erzw U 

216 PRINT TRE 0, "2- " ,.S I (6) , " ■ J " 
, "r. ii' RND NOT URL S*.t. , " RND 
URu s* (Ci , "ot li czar. i* tnautrzy E 

216 FRINT TAC C. " 1- " i S I (7) 

, "r. i t " RNC NOT URL i* (7 i,"" RND 
URL s* (7) , "obu czar.it macierzy X 


; "zachowani*" PND NOT UPl s|(8l; 
('niszczenia" RND URL s|(5>; aac 

* 308^ PRINT BT 0 , 0 ; PRINT »1;AT 0 
,8;. InOERSE 1, BRIGł^ ii”PÓdaJ 
roźiaz , INUER5E 0; BRIGMT 0, 

310 IF INKEY $»" " THEN GO TO 31® 
32® LET lf. INKEY*. IF OR 

l#>"4 n THEN GO TO 31® _ , . „ 

330 LET if-lNKEYl. IF i|="l" TH 
EN GO sUB 1000: GO To 10® 

340 I? ?*.*£" THEN GO SUB 1100; 

5§e T iF THEN PRINT Ul jflT 

8ii0S OI Ł8 ! TŚ : ab su 

360 Ir THEN 80 SUB 1800 

PAUSE O. GO TO *00 
1000 lNPUT "podaj 

- .. . n+ J) ; PRINT #1, 


Airi-i-Sfe, LS 

VłT T S,2:,VR0 


. PRXN 
u....*ant a 

LET.R.H.ajIlCii^to"! LEt 
NEXT y RETUR 


n(y ,x + U =10®+RND. 


1013 IF INKEY $< >"" THEN GO TO 1® 

1015 PRINT 8 1 , AT 0 . 0, "0 ~P0». i r, i e C 
ie wei.torow Xw ,Yw " " 1-us taw i an » e 

lSl^LET^i *»tŃKEY|. IF ito"©" R 
NC i *0"1" THEN GO TO 10 1C 

1§20 FOR y=l fi Vo‘n. FOR x*l TO„n: 

'•wsp o i czynni k b (", (u) ; " l r. (y ,x 
1 . IF k THEN INPUT "dana wektora 
X«, 7", (yl , "1 =",n (y ,n+3) ' "dana we 
kto ri, Yw ('• , (y l j" ) *" ; n (y , n +4) 

1030 TIEYT y PŚrrUPN 
1100 INPUT "76543210" • LINĘ S| 
1110 FOR k = l TO 6. IF s I i k ) .>"1" 
RND Stal O ”0" THEN GO TO 110® 

1 12C NEXT k. LET S =URL ("BIN "+s 
I) . RET JRh 

12C0 IF i |*"4" THEN CLE PRINT 
”r. = ", n ' "czas ="; ti»e, " s " 

1210 FOP k=l TO n PRINT TRB 0," 
x , k, "=",r (k,r. + 2) , . IF dane ThErJ 

PRINT " b = " , n (k , r. +2' -k 

1211 NEVT k 

1212 PRINT 81, RT 0,0, "czy dalej 
listować? tak-i" 

1213 LET i |= INKEY | IF i|="" THE 
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12^4 IF TMEN RETURN 

1215 INPUT FOR y*l TO n FOR 

x-l TO n PR1NT T AE i, "»łPOUIy 

nfiik fi (" , u, •" , " ; x ; ") »" ; ft <9 .x» . NE 
XT x NEXT * 

1216 PRINT . PRINT "KłUOf Pflłl 

Uuitn koturn . : FOR y»l TO n. 
PRINT r»iv,n+3j," ", NE>T V 
121? PRINT TA6 ©."wektor prztstjk 
w»*n wiirszy FOR y«l TO r. P 

fil NT r. (y ,r.+ł) . " ", NtXT * 

1220 PfiuŚE O RETURN 

WINT OT £0/,®'p OKE s , e72 c 

POKE 23673,0 POKE £3672,0 LET 
Z =FN f Cr. $ , "f. O " .* ) 

LET i256 łPEEf 23673+PEEl- 2 


2100 


2101 LET y -2Sć *P EEK 23673+PEEK 

3672 

- • — ' -RB* (x-u) » /50 

FL F " ’ 

_ .... IOT 

i l e i., t r. t q łowny zerowy! 

2120 RETURN 

** 5 - dBt* 


2110 LET tiki- (x +U-ABS ( x -y ) > 
2115 PRINT RT 20.®, FLRSH I," 
’ rozwiązany" AND NOT 


3,50,33,82,221,126, 14. ( 
05, 178 z 40, 193,2151, - IB! 


- DO , c'dV , cc. 1 , i. , 1 

126,14,50,84,92,2 


*06 , , ,06, *0,621,126,4, 19e, 4 ,221, 

klW&M , 46*25^ 195,65 , 0,197,2 
OS. 176,22, 1,57,0 .4©5 ,5,31,203,42 
.lól.fti, lc-89, -9* 

42,88,92 ,21ŚC ,4t2 

60t0 ĆfiTfi 221.114,30,221,118,0,2 

21,119.1 196,3 71,55 C.C.l- 5 . 6 

: r * i : i - 


ŚOEÓ DRTH iil.łł. ,»J.ł«i,iłO,»», 

235 .225 .25. 17 .5.0 . 23V 82 ,221 , 117 

fP‘ep^i>‘iyMh,s?Sł? 7 i 

17.44.421,116,45, 2465. 144 

aióe ĆfiTR 23-, 62, 221. 117.6, 221,1 

22l , 116, 34. 22 i, 126,2754 .556 
8126 DRTR 6© , £03 , 7 1 , 32 , 68 . 22 1 , 12 
6,33,221 . 119 .45. Ś21. 126,34,221 ,1 
l4.46.221 , 126, 3i ,2314. -154 
8130 DRTR 221,119,43,421,126,: 

221. 119.44 .25. 235. 33. 0. 0.221, ‘ 

O , 2Ś , 16,253,2024^230 


, 24 1, 437, 83, l6ł, 94,621, 24l,llł,£ 

.221 , 116,3,2190 , -82 

Ś16C DRTR 221, 117, le, 221. 116, 19. 

221,117.53,221,116,54,221,94,33, 

221.66,64,25,221,2429,-209 

317® DRTR 117.4,421,116,6,881,11 

Wih^ ja ' 6jc ' 5 ' e21,7i 

6180 ÓRTR 0,45.16,853.821,117.55 

.821.116,56,221.126.36.33,0,0,82 

.0 ,2Ź1 .94 . 1627 , -23 

6l9C DńTR 0.206,119.40,23,85.229 

.42,101.92.421 117 49.621,116.50 


620® l 06? A ł 3? 12*l6?25 1.34,101. 92 

:!r6ii^ii7^i°4lli a -628 

Ś21Ó DR+fi 221,116.52,67,14,1,113 
,35.12,16,251 ,34 , Ir 1,92 ,225,229, 
42 , lei, 92 , 221 , 2065.211 
?4tC dAta 117, 12, 221,116. 13, 17.5 
,0,3? O, 0, £21, 70. e, 4 ,25, 16,253,6 

, 2 , 1131 . -ie 1 

62:7 Cfi+fi 221 . 126.30.203,119,40, 
17,20“ ..111,4013 Ce, 1.221, 19® ,C , 
40 .6,22'i .~®,1Ś?4 .-5 

8240 DR T R C ,1S: .237,82,222,209,3 
3. C, 0.25 , 16 ,25: ,20 3,25 .229, 183,2 
05,t 6l ,421. 2:f6 -7 
S25£ : . A 221 , 126, 3^203 

i?» Ł ii: ' ió' i§c: '. -24-: Łi * 

* r ' **'■ *.,221,112. 

:, 39, 621, i 

17 5,0,25 
lit, 36, 22 

■ ,c, 2 i, ie 

1: :?• i 


40,2?:. 118 , 4 
26^2^ i£: ,4e 

"l£ .453 .411, 

,5 


't ATfi 




'1.32 


Ł 2rf 1 


,70,40,33.0 
41 t ®3! lit 


1,54,234.1633, -S79 

afc«AdSB-=“**= 

5330 CmTR i02 x l6, 175, 17,5,0.237, 
62,235,221, 11® ,8,221, 102, 9, £21 ,7 
0.0, l-t, 184,2168,469 
5640 DRTR 35. 182.35,35. 182,35.16 
2.33. 162,35. iS2 .65.65. 132,65, 152 
. 65 . 6 t.it . 265 . 1800 .- 6 ® 

625® dAtR 32.405.6.2.221.186,8.2 

21 . 113.35.421.. 126.4.421. 119.6t , 1 
97,221,110,55,2270,-166 

5360 DRTR 221,102.66.35,35,221.7 
0,0 ,72 l£ £21 9* ,12.421,86,13,12 

6 , 16 , 14 . 213 , 1627 ,- 3 ! 

8670 DRTR 254.0,40,163.185.46,16 

0,221.84,14,241.86,15.45.463,16, 

565. 2i, 9,24 .2046,801 

8386 dAtA 211.24,86.46,9,195,65, 

0,221,115,28.421,114.29,413,425, 

19.54.0. 841.8116, -14i 

S=l“ g | 7 S %|6 i ? if §T iJT»i!= łóS 

Śjoi g*TB 4 j|,5ss,S21,lia 
||ao óSjA*|g ;g|i^faiji!?fci 119 , 

liłt if L 3 ® • ■ ® 4 



, C , , 1 

13 , £C r . 


Najmłodsze dziecko Oliyetti 



Jest to pierwszy 
komputer typu por- 
table tej firmy 
Zbudowany zostać 
na mikroprocesorze 
INTEL 80C88 (4.77 
MHz). ROM Ml 5 ma 
16 Kb zaś RAM 512 
Kb. Komputer pra- 
cuje pod nadzorem 
systemu operacyj- 
nego MS-DOS (3 ,2). 
Na 10 5-calowym 
ciekłokrystalicznym 
ekranie, mieści się 
25 wierszy tekstu w 
80 lub 40 kolum- 
nach (rozdziel- 
czość 640x200 lub 
320x200 punktów). 

i jeszcze kilka 
szczegółów- rozmia- 
ry 350x70x280 mm: 


,17,6,0, 176,81 

5, 16 , 250 , 1658,64 

eśao drtA 13 , 62 , 844 , 4 . 12 , 881 , 94 , 

' mm 

Miteai*'!*: 1 !: 


i,!' 


'*4 3E? Z 3 “ł Be 1,78.40 

,70,69,190,40,6,8 


660® 1 Dfif % ' lli‘ęi . §21 ! 1^2,58,229, 
£09,190,40.4,35,4,24,249,79,175, 



0,403,67.4®, lf74. -£?6 
etSC DRTA 447,221, 110,20.241, 10; 
,21,229,221 .94 .43,421,66,44 ,25, : 
6 , 2*3.245 , 2®5 .6. 2t 40 .464 
?|60 DRTR 5 .76 .26 . 119 . 121 . IR .SE 



f72® DATR*la;i:§ 0:437,176,241 j 


ZX-Spectrum 

TEKST 


i by ŁUB ^00 INPUT RT 0.0. £• 
PIGKT l, "TEKST: ", LINĘ t* GO SU 
6 30C LET *i=i0 LET exł+l IF t, 
*34 ThEr; lET ».*© 

3 IF t*«"" THEłJ LET t,**"*;- 

5 FOP: r. *1 TO LEN t* 

6 IF y=0 THEN LET w =2e LET k. 
*»»1 IF r *38 T MEN LET > *0 

7 PRINT RT «,*. BfiIGHT 1 . t. Kn 
' BEEP .01,16 

6 LET w*w-l. NEXT n IF w ; 0 T 
MEN FOR P=mi TO 1 STEP -1 PRINT 
RT p,k, 6RIGMT 1." " NEXT p 

9 GO TO £ 

100' CLERR 65615. BORDER 6 CLS 
PRINT RT 6.7: "CZEKAJ 54 SEKUND 
i ! GO SUE 500 • LET w=20 LET 
k=0 LET t. * = ■ * TEKST i . GO SU 

B 300 . CLS . GO TO 5 
200 POKE 23606,0 POKE 23607,60 
RETURN REM prosto 
300 POKE 23606.64 POKE 23607,2 
16 RETURN REM w lewo 
500 FOP q*32 TO 127 GO SUE 200 
PRINT RT £1.0. BPIGMT l.CMR* q 
FOR #i*0 TO 7 POKE 155360+ < 8*9 
■ -«.+?) , ( 126 < AMD POINT u. .71) +<64 
AND POINT ifc.6i)+C3£ AND POINT 
i fc . 5 j i ♦ ' 16 AND POINT i k . 4 .< ' + 1 6 A 
ND POINT im.3.11+,4 AND POINT . I„ . 
£ » ♦ i£ AND POINT 1 1>, , 1 i ' +POINT i. lu 
,0' NE>T r«, GO SUE 300 PRINT A 
T 21.1. 6RIC-HT l.CHRB <5 BEEP .0 
1.16 NE »T q RET URN 
930 SA‘.£ "PIONOUO' LINĘ 100 
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tai , ? 4 i is^aai^||, 13, aźi.iie,©, s 



.il.zii, uó, i4,aS6i. -i7 

4i64 OfiTfi ai i , loą , li , aa i , 117 , 35 

Igi, 116, 36. 881,110.44. 88 i .10&.4 

aai Z* 14,881,2451. -? 

lli|WW«:ł«:łTiR 



Labirynt 


Jak odnaleźć drogę w gmatwaninie korytarzy? Czy kompu- 
ter potrafi to zrobić szybko? Oto dwa przykłady. Program 
pierwszy to przykład jednego z wielu rozwiązań. Początkowe 
instrukcje (l(K-530) wyświetlają listę funkcji programu, defi- 
niują labirynt, w którym kręte ścieżki przebija „świder” ste- 
rowany z klawiatury (opis klawiszy znajduje się w progra- 
mie). Najistotniejszą dla działania programu sekwencją ins- 
trukcji jest zapis algorytmu (5404-780). Pomimo że program 
został napisany w amstradowskim dialekcie Basica łatwo go 
przeanalizować. Wyjaśnienia wymaga jedynie instrukcja 
CHR$ (248) — (w wierszu 550), która jest kodem znaku gra- 
ficznego występującego tylko w CPC 6128 oraz TIME — ins- 
trukcja pozwalająca korzystać z zegara mikroprocesora. Jej 
sens łatwo odgadnąć w wierszu 860 — to właśnie tu obliczany 
korzystając ze zmiennej „czas” jest czas (w sekundach), jaki 
potrzebuje komputer na wyznaczenie drogi wyjścia z labiryn- 
tu i jej graficzne przedstawienie. 

A teraz uwaga! Czas odnajdywania wyjścia z plątaniny 
przejść nie zależy od jakości komputera, ale od sprawności 
szarych komórek! Oto przykład: 


*530 1 ab (x, y )=0 
540 k»2 

550 INPUT li, 'podaj aspolrzedne punktu startu x,y*;x,y 
560 LOCATE x,y:PRINT CHR41248) 

570 lablx,y)*k 
580 i *2 
590 j*2 

600 IF labli, j)«k THEN 60T0 660 
610 j«j*l 


620 

IF j<*n THEN 60T0 600 


630 

i=i+l 


640 

IF i<=n THEN GOTO 390 


650 

k*k+l:60T0 580 


660 

IF labli, j*l)<>0 THEN GOTO 

690 

670 

labli, j+l)*k+l 


680 

IF jtl*n THEN GOTO 730 


690 

IF labli+ljjJOO THEN 720 


70C 

lablUl, j)=k+l 


710 

IF i+l*n THEN GOTO 780 


720 

IF labli, j-lł<>0 THEN GOTO 

750 

730 

labli, j-l)=k+l 


740 

IF j-l*l THEN GOTO 780 


750 

IF lab(i-l,j)<>0 THEN GOTO 

610 

760 

labli-l,j)*kM 


770 

IF i-l<>l THEN GOTO 610 


780 

PRINT ' koniec' 


790 

FOR n=l TO 23 


800 

PRINT 


810 

FOR a=l TO 23 


820 

IF lab(s,n))l THEN LOCATE i 

i,n:PRINT CHR* 1240): GOTO 340 

830 

LOCATE i,n:PRINT CHR4U43) 


840 

NEKT »: NEXT n 



Powyższe instrukcje wstawmy do programu zamiast ins- 
trukcji 540 — 780. Efekt? Droga jest również wyznaczona, ale 
można się po niej poruszać jedynie od strony zewnętrznej la- 
biryntu, a i czas jej wyznaczenia nie jest rewelacyjny. Szkoda 
jedynie, że opis takiej właśnie metody znaleźć można w pod- 
ręczniku. 

A. C. 

Od redakcji. Program jest przykładem jednego z wielu roz- 
wiązań. Czekamy zatem na propozycję efektywniejszych 
rozwiązań. 
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10 REH definiowanie labiryntu 
20 Din lab 124,24) :DIH rob (24,24) 
30 n*23 

40 WINDOM 41,26,60, 1, I 61 CLS 

30 WINDOM 42,26,60,17,17 

60 WINDOM 43,26,60,19,19 

70 REN stan zerowy labiryntu 

80 FOR i *1 TO 23 

90 FOR k*l TO 23 

100 LOCATE i,k:PRINT CHR4(255) 

110 lab(i,k)*l 

120 NEIT k:NEXT i 

130 x*lsy*l 

140 PRINT 41, 'wytyczenie tuneli* 
130 PRINT 41,' drążenie tunelu 


160 PRINT 41,* 
170 PRINT 41,* 
180 PRINT 41," 
190 PRINT II,* 
200 PRINT 41,* 
210 PRINT 


powrot świdra 
prawo 
lewo 
góra 
doi 


- r 

- s' 

- P ł 

- 1 * 


220 

230 

240 

250 

250 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 


PRINT 41, * zeiana trybu pracy - z* 

PRINT II,* obliczenia - k' 

IF INKEY$*'k" THEN PRINT 42, 'trwaja obliczenia , :60T0 540 
THEN rMiPRINT 42,'drazysz tunel *:60T0 290 
THEN PRINT42,'nie drazysz': r*0: 60T0 290 


IF INKEYfr 
IF INKEYS*'s 
60T0 240 
IF INK£Y$*'z 
IF INKEYtO*l 
PRINT 42, 'przesuwasz w prawo' 
IF x+l >23 THEN x»23:GOTO 330 
x*xU 

LOCATE x,yiIF r<>0 THEN PRINT 
60T0 290 

IF INKEY4<>*1* THEN 60T0 410 
PRINT 42, 'przesuwasz w lewo* 
IF x-l<l THEN x*ls60T0 390 

X*X‘l 

LOCATE x,y:IF r<>0 THEN PRINT 


THEN PRINT 42, 'zeiana trybu': GOTO 240 
THEN 60T0 350 


•:PRINT 4I,x,y:labłx,y)*0 


400 GOTO 350 

410 IF INKEYSO'g' THEN GOTO 470 
420 PRINT 42, 'przesuwasz w gore* 
430 IF y-l<l THEN y*l;GOTO 450 
440 y«y-l 

450 LOCATE x,y:IF r<>0 THEN PRINT ' 
460 GOTO 410 

470 IF INKEY4<>'d* THEN GOTO 280 


'SPRINT 43,x,y:lab(x,y)*0 


'SPRINT 43,x,y:lab(x,y)*0 


480 PRINT 42, 'przesuwasz w doi* 

490 IF y>l)23 THEN y*23:THEN 60T0 510 
500 y»y+I 

510 LOCATE x,ysIF r<>0 THEN PRINT • "sPRIMT 43, x, y: lab (x,y)*0 
320 60T0 280 
530 lab(x,y)*0 

540 INPUT 41, ‘podaj współrzędne punktu startu x,y"jx,y 
550 LOCATE x,y sPRINT CHRK248) 

560 FOR 1*1 TO 23 
570 FOR j*l TO 23 
580 rob(l,j)*lab(i,j) 

590 NEIT jsNEJT i 


600 czas*TIHE 

610 *r**yp s t 

620 k*2 
630 x*xpsy*yp 
640 lab (x,y)*k 

650 IF x*l OR y*l OR x*23 OR y-23 THEN GOTO 780 
660 IF lab(x*l,y)<>0 THEN GOTO 690 
670 k*k+lsx»x*l:lab(x,y)*k 
680 60T0 650 

690 IF lab(x-l,y)<>0 THEN 6OT0 720 
700 k*k*lsx*x-ljiab(x,y)*k 
710 60T0 650 

720 IF lab(x,y+l)<>0 THEN GOTO 750 
730 k*kłlsy«y*lslab(x,y)*k 
740 GOTO 650 

750 IF lab(x,y-l)<>0 THEN GOSUB 890: GOTO 620 
760 k*k*l:y*y-l:lab(x,y)*k 
770 GOTO 650 

780 PRINT 42, 'koniec obliczeń" 

790 PRINT 
800 FOR n«l TO 23 
810 FOR e*t TO 23 

820 IF labie, n)>l THEN LOCATE e,n:PRINT CHRf (240): GOTO 840 
830 LOCATE e,n sPRINT CHR4I143) 

840 NEIT es NEIT n 

850 PRINT 'droga wyznaczona przez Twój koeputer' 

860 czas s (TIME-czas) /300 

870 PRINT 42, 'czas obliczeń * ';czas 

880 STOP 

890 rob(x,y)*l 

900 FOR i*l TO 23 

910 FOR j*l TO 23 

920 lab(i,j)*rob(i,j) 

930 NEIT jsNEIT i 
940 RETURN 
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1 Lasei CO., daje impuls o bardzo dużej energii i krótkim czasie trwania, 
pomocą uzyskuje się plazmę i mmi syntezy termojądrowe 


badawc 


RZYMSKI 


według obliczeń naukowców za około 200 lat wy- 
czerpią się kopalnio źródła pozyskiwania energii 
na ś wierno I co wtedy? Nadzieię stanowią reaklo- 

skićn. ciepio wnętrza Ziemi Aie bodaj mewyczer- 
palnym źródłem jest energia syntezy lermojądro 
wej Cechuje się ona tym. że nie pozosiaw-a od- 
padów promieniotwórczych 


Termojądrowa reakcja (według Ency- 
klopedii Powszechnej) zachodząca w 
bardzo wysokich temperaturach rzędu 
10’ K reakcja łączenia się lekkich jąder 
atomowych w jądro ciężkie (np. jąder 
wodoru w jądro helu), z wydzieleniem 
ogromnych ilości energii; wykorzystywa- 
na w bombach wodorowych: źródło ener- 
gii gwiazd). 


Tak mówi toona i praktyka sprowadzona do 
skrajnej postaci, czyli niszczenia W bombie wodo- 
rowej do uzyskania wielkich temperatur paliwo 
syntezowego służy zapalnik w postaci bomby 
atomowej Takie ładunki me mogą być wykorzy 
stywane do celów pokojowych, gdyż wydzielają 
zbyt duże porcie energii i są zrćdtem skażenia 
promieniotwórczego. Do celów pokojowych po- 
trzebny jest odbiór energii syntezy bądź w sposób 
ciągły, bądź przez częste wyzwalanie bardzo ma- 
łych porc|i energii w tzw. mimwybuchach. Stąd też 
wzięta się nazwa imkrosyntezy Ponieważ konieczne 
iesi zachowanie pełnej kontroli nad tym p» ócesem 
stąd określenie - kontrolowana synteza termo- 


LASER -DHIIII 


ihemiii 


O/ 
-Cr- 

't x 


WYŚCK 


materia nie mogła stanowić ścin 
czynią, gdyż najbardziej zhroodpbrr 


Pierwsze prace eksperymentalno w loj dzic 

dzirne podjęto w lalach pięćdziesiątych. Zasadni 
czym dylematem byle osiągnięcie odpowiednich 
gęstości i wielkich temperatur pahwa Materia (w 
tym przypadku douter i tryt — izciopy wodoru) na- 
grzana do gigantycznych temperatur rzęou milio 
nów stopm musi być uLzymanrj w stame skupienia 
tak. aby zdązyla przereagov,ać jądrowo i oddać 
enegię na zewnątrz W takim, stame staje się plaz- 
mą, czyli czwartym stanem skupienia A więc poza 
sianem ciekłym, stałym i (-jazowym. 


Prot. SYLWESTER KALISKI: „Można chy- 
ba bez ryzyka powiedzieć, że gdyby udało się 
zrealizować pokojową syntezę termojądro- 
wą, wówczas oznaczałoby to dia ludzkości 
nie mniejszy skc.k rozwojowy niż ten, jaki 
przyniosło odkrycie elektryczności. Człowiek 
byłby wtedy uwolniony nie tylko od kryzy- 
sów energetycznych, lecz pojawiłyby się 
przed nim możliwości regulowania klimatu 
na Ziemi, sztucznego podgrzewania pót 
uprawnych, r.owe perspektywy komunikacyjne, 
nieograniczone praktycznie możliwości pod- 
róży kosmicznych, nowe szanse przeobrażeń 
materii, badań naukowych i wiele, wiele In- 
nych. Sie wem — nowa era w rozwoju ludz- 
kości." 


Należ ,10 stworzyć coś w rodzaiu naczynia, w 
którym ,ożna było Dy utrzymać przez pewien czas 
nagrzaną do wielkich temperatur plazmę 2adna 


( wpadli na pomysł, aby 
>:c pole magnetyaj. 
cząstki plazmy tak. l>- 


pułapkę magnetyczną 


6 wtyir 
irudhe 


Tak pisał byty komendant Wojik 
Technicznej w książce Lasery - 
ewa ' która ukazała się w roku 1 i 
pio jego tragicznej śmie 
cą i tym. Który dążyi do tego trud 
dając Instytut Fizyki Plazmy I Las, 
syntezy, nazwany obecnie jogc , 
fesor miał wiasno oryginalne konwi 

posazone zaplecze, aczkolwiek* 
towycb osiągnięć 


a polskich (Bi 
zrajduienf 
organizatorów międzymn 
dotyczących mikrosynwy 


Niemniej osiągnięci 
tyle znaczące 
krajów, 


waią się ono co dwa lala w innyiwr 
Pradze Następna, co stanowi w * 
Hiszpanii, co świadczy o znaczn 
prac i konieczności wyi 
dczeń. Choć nie miejmy zludzei 
się mówi podczas łych spotkał 
przykład wiele badań objęli 
uwagi na realizowany pro 
gwiezdnych. 



O ostatnich osiągnięciach z dzidziny laserowej 
m - rosyntezy mów. 

Prot. Oleg Krochin — instytut Fizyki Akademii Nauk ĆŚHti 

- W warunkach ziemskich plazma /es.' wytwarzana sztucznie. I stąd trudności Ą 
zjdwska. Naturalnie zachodzi ono np. na Słońcu, gdzie panuje temperatura 2 min si 
laboratorium musimy wytwarzać plazmę o 100 min stopni. Jak badać takie v 
temperaturę plazmy w /e/ różnych warstwach ? To niektóre Z trudności, które piaktyi 
wiązać. aPy ruszyć da/e/. 

Podobnych detali, typu technologicznego czy uzyskania nowych bardzo o 
rę i działanie silnego pola magnetycznego materiałów, /es; więcej. Nie znam 
się plazmy, która sprawia ciągle niespodzianki. Dlatego do badań i 
zwanych u nas lokamakami podchodzimy bardzo ostrożnie. Masz 
rubli i w końcu trzeba będzie ją rozmontować, aby uczynić koleiny krok. Dlatego » 
cyzja o budowie, musi być ona poparta bardzo dokładnymi badaniami, p 
ługi wyposażeniem w superdokladną aparaturę pomiarową Pol 
tworzeniu m m. aparatury do pomiaru lozktadu temperatur plazmy. Mają 
Censmyie. 

Obecnie tylko tokamaki są urządzeniami, z których uzysku/e srę n 
jest to tytko 10 procent energii włożonej. Ostateczny uzysk powinien przewyższat 


dziesięciokrotnie Ponieważ są to prace bardzo kosztowne nasz k. 
dzy narodowej Agencji Atomowej w ~ L ' — **-" 


1 juz osiem ti 


N COMPRESSION OF PLASMA 

Hf m MMEMFUr FUM 


1/ 

l\ 


tlme - 10 » 

POWBf- 10" W 
11 enemy- i MJ 

✓ jJfF* 


\ls 

'I' 


\ 




THf EłPEBIMfldAL RfSUirS 


Gł 


& 

U 


- f 


o»> Jki 

zy termojądrowej. zachodzącego w czterech etapach. Tak mówi teoria. 



G PO ENERGIĘ 


lek takiego na- 
rtę materiały to- 
!>■' 

y takim „naczy- 
i, działające na 
>y je skierować 
sposób tworzyć 


<owej Akademii 
synteza jądro- 
czyli cztery lata 
.nie on byt twór- 
Bgo Celu, zakla- 
serowej Mikro- 
iiTiieniem, Pro- 
jpcje dojścia oo 
ić. Pozostał na- 
trą. dobrze wy- 
; na miarę śwła- 


tukowców są na 
się , w gronie 
rodowych kon- 
y plazmy. Odby- 
fraju Ostatnia w 
jtek już za rok w 
i przyspieszeniu 
irmacji, doświa- 
— nie wszystko 
Amerykanie na 
lią tajemnicą, z 
m izw. wojen 



i Natomiast w 
'.i, jak mierzyć 
nie trzeba roz- 

natemperatu- 
;a zachowania 
'owy urządzeń 
{ oto 1 miliarda 
i zapadnie de- 
nludzidoobs- 
jjąz nami przy 
e osiągnięcia. 

jrjj/p. Na razie 
X w łożoną aż 
intmncji Mię- 
eńiu. Obecnie 
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Właśnie dzięki zachodzącej na słońcu syntezie 
termojądrowej otrzymujemy ciepło i życiodajną 
energię. Podstawowym problemem w realizacji 
tzw mirttstońca na Ziemi, jest stworzenie warun 
ków podobnych najpierw w laboratorium, a potem 
na skalę przemysłową. 

Obecnie realizuje się ten cel trzema drogami. W 
urządzeniu o nazwie Jocus" powstaie zjawisko 
„pinczu" (pinch eftect). Powoduje się skompry 
mowanie plazmy szybko narastaiącym polem 
magnetycznym. Przy jednoczesnym podgrzewa 
'mu plazmy pizyjmuje ona postać tzw. sznura plaz- 
mowego. Gdyby zjawisko to trwało dostateczni* 
dtugo, mogłoby dojść, do powstania syntezy termo 
jądrowej. Jednak pojawia się niestabilność lego 
sznura, który się defortnuje i rozlatuje. Wszystko 
odbywa się w czasie niezwykle małym, wyno 
szącym milionową część sekundy. Jednak nie 
rezygnuje się całkowicie z tej metody. Jak na ra- 
zie przydatna jest ona do testowania i produkcji 
urządzeń pomiarowych i badania zachowania się 
plazmy, poznawania jej właściwości, nie do końca 
jeszcze odkrytych. 


Podczas „spalania" 1 g mieszaniny deuteru 
i trylu wyzwoli się energia około 20 MWh. Ina- 
czej, jeśli zamienić deuter zawarty w ciężkiej 
wodzie w energię syntezy, to jeden litr cięż- 
kiej wody odpowiada pod względem energe- 
tycznym 250 litrom benzyny. Czyżby pojazdy 
na wodę? Czemu nie... 


Druga metoda pułapki magnetycznej to tzw to- 
kamaki Są to bardzo kosztowne urządzenia skta 
.dające się (oczywiście upraszczając) z eliptycznej 
rury. na której znajduje się uzwojenie. Pole magne- 
tyczne pozwala na utrzymanie plazmy stosunkowo 
długo, ale i tu nie udało się doprowadzić do sytua- 
cji. w której ilość wydatkowanej energii byłaby 
równa uzyskanej. Wówczas to bowiem zachodził 
by tzw eksperyment przełomowy Tokamag, z 
rosyjskiego akronimu nazwy Toroidalnaja KAmie- 
ra z MAGnitnym poliem, jest jednak nadzieją wielu 
instytutów na świecie. Powstają urządzenia o co- 
raz większych wymiarach i według zapowiedzi, 
prawdopodobnie jeszcze pod koniec lego stule- 
cia uda się doprowadzić do powstania ekspery- 
mentu przełomowego. Do wiodących należą ośrod- 
ki w Moskwie. Leningradzie (ZSRR). Osace (Ja- 
ponia), Uwermore, Los Alarnos (Stany Zjednoczo- 
ne) Prekursorem metody tokamakowej byt ra- 
dziecki uczony prof Lew Arcymowicz 


Z informacji podczas wystawy: „Osiągnię- 
cia nauki I techniki radzieckiej" w Warszawie 
1987 roku: „Czy można stworzyć termojąd- 
rowy reaktor dla elektrowni? Odpowiedzią 
na to pytanie może być urządzenie „Toka- 
mak-10", które pokazujemy na wystawie. Je- 
go parametry maksymalnie zbliżone są do 
przyszłego reaktora termojądrowego nowego 
typu siłowni. Zastosowano tu magnetyczny 
materiał nadprzewodzący". 



4. W komorze próżniowej wykonuje się praktyczne eksperymenty laserowej mikrosyntezy. 
N/z. Henryk PEDERÓWICZ. 


Jedną z licznych barier jest budowa potężnych 
urządzeń, ale też sposób odbioru olbrzymich ilości 
energii, chłodzenia itd. Potrzebne są nowe materia- 
ły, w tym nadprzewodzące, aby zmniejszyć zuży- 
cie dostarczanej energii i wielkość urządzeń. 

Jest jeszcze trzecia droga osiągnięcia ostate- 
cznego celu „mikrosynteza laserowa" Której 
prekursorami byli radziecki prof. Basów i amery- 
kański Dawson Zwrócili oni uwagę na możliwość 
zastosowania laserów do nagrzewania plazmy w 
ca rdzo krótkich czasach. W Polsce właśnie zespói 
Korowany przez prof. Kaliskiego doprowadził do 
uzyskania plazmy, a naslępnie mikrosyntezy, 


— Zjawisko jest znane i możliwe do prze- 
prowadzenia w małej skali — mówi dr inż. JÓ- 
ZEF FARNY z IFPfLM w Warszawie. — 
Natomiast układ, który da energię musi mieć 
duże rozmiary. Po prostu w tej dziedzinie nie 
można efektu końcowego wykonać na małą 
skalę. Aby się posunąć naprzód, trzeba rozwi- 
jać technikę laserową, posiadać bardzo pre- 
cyzyjną aparaturę pomiarową, aby na przy- 
kład badać zjawiska trwające dwie miliardo- 
we części sekundy. 


Przebieg mikrosyntezy ukazuje rysunek Mamy 
do czynienia jakby z czterema etapami 
postępowania, podobnie jak w pracy silnika czte- 
rosuwowego. Najpierw formowanie plazmy po- 
przez jei oświetlenie laserom dużej mocy. Potem 


Wystarczy połączyć z sobą dwa jądra deu- 
teru, aby otrzymać tryt i wyzwolić sporą ilo- 
ści energii. Co to jest deuter? To gaz-izotop 
wodoru. Uzyskiwany z tzw. ciężkiej wody. 
Gdyby zaś połączyć jądra deuteru i trytu, 
otrzyma się czterokrotnie więcej energii. Za- 
pasy paliwa są niewyczerpalne. Starczyłyby 
ludzkości na około miliard lal. 


kompresja, dalej inicjacja (czyli zapłon) i wreszcie 
spalanie. Upraszczając, wygląda to lak, że mikro- 
balon z deuterem. o średnicy 0,1 mm, umieszcza 
'się bardzo precyzyjnie w odpowiednim, dokładnie 
określonym miejscu komory próżniowej Jego 
sprężanie i podgrzewanie odbywa się przy użyciu 
wielowiązkowego lasera neodymowego, Wiązki 
lasera śą precyzyjnie ogniskowane na deuterze. 
Następuje strzał laserowy. W IFPiLM co godzina. 

Ileż musi być precyzji, przygotowań, aby dopro- 
wadzić do finatu. A jak potwierdzić wyniki bada- 
nia? Jak przejść do etapu, w Którym strzały — kilka 
na sekundę — będą się odbywać na większych 
ilościach deuteru? Do tego potrzeba odpowiednio 
większych laserów. Jak na razie największy laser 
na świecie ma moc dziesięciokrotnie mniejszą od 
potrzebnej do uzyskania eksperymentu przeło- 
mowego. 

A może jest jeszcze mna oroga dojścia do celu? 
Niektórzy sądzą, że być może o wiele prostsza i 
bardziej skuteczna. Czas pokaże jak będzie. Jak 
na razie wyścig po energię trwa, 

Marek SIENIAWSKI 


5- A tak wygląda ten eksperyment na schemacie 
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PROCEDURY ROM SPECTRUM ® 


Drugi zestaw procedur drukujących znaki zawiera bardziej wy- 
rafinowane prepozycie. 


16. PRINTUDG 2904 40B58 


CEL wydruk znaku z puli grafik użytkownika 


WE: A — numer znaku (0...225) 

BC — fizyczna pozycja wydruku; 
HL -- adres pozycji wydruku; 


WY: BC — nowa pozycja wydruku; 
HL — adres nowej pozycji; 

IX przechowane; używane AF ; 


Procedura 16 pozwala stosować znacznie większy zbiór gra- 
fik użytkownika, niż w BASICu, mianowicie 256. Jeśli to za ma- 
to. to można przygotować więcei takich obszarów. Ważne, aby 
przed wywołaniem procedury 16 zmienna systemowa UDG 
zawierała adres początku właściwego obszaru. Przykład: 


10 

«* | 

UDG ’ B7 


BO 

FETCH 

EOU 

#0B03 

30 

STORĘ 

EOU 

#OADC 

40 

P. UDG 

EOU 

#OBSB 

50 


ORG 

BOOOO 

BO 


CALL. 

FETCH 

70 


LD 

A.BOO 

80 


CALL 

P UDG 

80 


CALL 

STORĘ 

100 


RET 



Chcąc zachować ciągłość wydruków, należy modyfikować 
pozycję. 


17. PRINT ALL 

2943 #0B7F 

CEL: wydruk znaku z matrycy 8X8 przechowywanej jako ciąg 

ośmiu kolejnych bajtów w pamięci; 


WE: DE — adres matrycy; 


BC — fizyczna pozycja wydruku; 


HL — adres pozycji; 


WY: jak w proc. 16; 


Jak wiadomo definicja znaku polega na określeniu matrycy 
8X8 bitów (punktów). Poszczególne linie matrycy zbierane są 
w bajty. Procedura 17 wydrukuje każdy znak, jedli tylko 
podamy jej adres definicji. Przykładem niech będzie program 
drukujący grecką literę BETA. 


10 

: ** BETA ’B7 


BO 

PO ALL 

EOU 

#0B7F 

40 

FETCH 

EOU 

#0B03 

50 

STORĘ 

EQU 

#0A0C 

BO 


ORG 

BOOOO 

70 


CALL 

FETCH 


BO 

LD 

DE, ZNAK 

30 

CALL 

PO ALL 

100 

CALL 

STORĘ 

110 

RET 


1BO ; 

130 ZNAK 

DEFB 

0, SB, BB, BE 

140 

DEFB 

5B, 85, 64, 54 


19. PRINT STRING 

8252 #203C 

CEL: wydruk łańcucha znaków 

WE: DE — adres łańcucha; 


BC — długość łańcucha; 



WY: DE — następny adres za łańcuchem; 

BC = 65535; flaga Z = 1; 

HL przechowane; używane rejestry pomocnicze (HL' 
przechowane); 


Łańcuch znaków ASCII może zawierać kody kontrolne, co 
pokazuje przykład: 


• 10 

; **■ NAPIS ’ 87 


BO 

PR STR EOU 

#B03C 

30 

ORG 

BOOOO 

• 40 

LD 

DE, NAPIS 

50 

LD 

BC, IB 

60 

CALL 

PR STR 

70 

RET 


80 

NAPIS DEFB 

18, 1 

30 

DEFB 

BO, 1 

100 

DEFI1 

”COCA” 

110 

DEFB 

BO , 0 

ISO 

DEFN 

"COLA" 

130 

DEFB 

18,0 


Linia 80 zawiera kody dla FLASH 1 , a następna dla INN/ERSE 
1. Kody wyłączające znajdują się w liniach 110 i 130. Znacznie 
wygodniejsza do drukowania tekstów jest procedura 20 


20. PRINT MESSAGE 3082 40C0A 

CEL: wydruk łańcucha znaków; 


WE: DE — adres listy łańcuchów znakowych; 

A — numer kolejny łańcucha (pierwszy ma numer 0); 


WY: IX przechowane; używane rejestry pomocnicze (HL' 
przechowane); 


Jeśli program zawiera pewną ilość stałych tekstów, to wygodnie 
ułożyć je w listę. Pierwszy bajt traktujemy jako początek listy i za- 
palamy bit 7. Następnie umieszczamy kolejne teksty, zapalając 7 


18 


bit w ostatnim bajcie każdego łańcucha. Przykład takiej listy znaj- 
duje się w programie zamieszczonym w drugim zeszycie progra- 
mów komputerowych „IKS-a". 

Ciekawostką może być fakt, że przy innym wejściu do procedu- 
ry 20 (#0C13) łańcuchy z listy o numerach od trzeciego w górę 
będą otrzymywać spaqę kończącą. Istnieje również możliwość 
wydruku firmowych komunikatów o błędach systemowych. Należy 
wtedy wejść do procedury z wartością w DE równą #1391. 


21 . PRINT SPACES 2768 #0AD0 


CEL: wydruk łańcucha spacji; 


WE: D — liczba spacji do wydruku; 


WY. E, IX przechowane: D=0. flaga Z=1 : 


Następne 4 procedury wiążą się z atrybutami. 


22. BORDER 8859 #229B 


CEL: ustawienie koloru ramki i jednocześnie atrybutów ekranu 
edycyjnegó; 


WE: A - kolor tła (0..7); 


WY: A — atrybut ekranu edycyjnego (dodany kontrastowy INK; 
wszystkie rejestry przechowane; 

x 


23. OUT FLASH 6337 #18C1 


CEL: wydruk znaku z atrybutami: FLASH 1; INN/ERSE 0; 
OVER 0: \ 


WE: A — kod znaku; 


WY: BC, DE, HL, IX przechowane; 

używane rejestry pomocnicze (HL' nie przechowane); 


Stosując procedurę 23 należy pamiętać, że przy przejściu do 
BASICa trzeba ustawić HL na wartość 10072. Zawartości 
zmiennych systemowych ATTR—T i P— FLAG są ochraniane. 


24. TEMPS 3405 #0D4D 


CEL: przeniesienie wartości atrybutów głównych do 
zmiennych systemowych przechowujących atrybuty 
tymczasowe (dotyczy ATTR— P, MASK— P, P— FLAG); 


WE: nieistotne; 


WY: BC, DE, IX przechowane; 

A — aktualny atrybut tymczasowy; 
HL — wskazuje P— FLAG; 


Znaki drukowane są na ekranie na podstawie atrybutów 
tymczasowych. Jeśli komenda tego wymaga, następuje wydruk 
według atrybutów głównych i wtedy stosuje się procedurę 24. 


25. SET ATTRIBUTE 3035 #0BDB 

CEL: ustawienie wartości bajtu w obszarze atrybutów; 


WE: HL — adres w obszarze ekranu; 

odpowiednie atrybuty w zmiennych ATTR—T, MASK—T 
i P-FLAG; 


WY: HL — odpowiadający wejściowemu adres w obszarze 
atrybutów; 

A — atrybut w danym polu znakowym; 

D — wartość ATTR—T; 

E — wartość MASK—T; 

BC, IX przechowane; 


Ostatni przykład dotyczy sposobu nadrukowywania znaku na 
znak tak, aby nie stracić żadnego bitu, jak to dzieje się w trybie 
OVER 1 (1 XOR 1=0). 


10 

; »• OR ’ 86 


20 

ATTR .T EDU 

23635 

30 

AT EDU 

#200A 

40 

CLADDR EDU 

#0E3E 

50 

ORB 

60000 

BO 

; ustawienie 

atrybutftw 

70 

LD 

A, 57 

BO 

LD 

CATTR jn 

BO 

j wydruk 1-ego znaku 

100 

LD 

B , 5 

110 

LD 

C , 5 

150 

CALL 

AT 

130 

LD 

A, ”0” 

140 

RST 

16 

150 

; adres pola 


160 

LD 

A, 5 

170 

• CALL 

CLADDR 

1B0 

LD 

BC , 5 

130 

ADD 

HL , BC 

50.0 

: wydruk w trybie OR 

510 

LD 

DE.ZNAK2 

220 

LD 

B,B 

230 

PĘTLA LD 

A, CDE3 

240 

OR 

CHL1 

250 

LD 

CHL) , A ■ 

260 

INC 

DE 

270 

INC 

H 

2B0 

DJNZ 

PĘTLA 

230 

RET 


300 

; definicja znaku 2 

310 

ZNAK2 DEFB 

1,5, 4,0 

320 

DEFB 

16,32,64 


Ustawienie atrybutu nastąpiło w linii 1 40. Przedstawiony sposób 
nadruku jest pierwszym krokiem do opanowania grafiki tzw. 
duszków. 


Krzysztof MAMCARZ 
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Przyjdą 
do nas 

najzdolniejsi... 

Rozmowa z dyr. naukowym 
Januszem CHODZEWICZEM 

• Kio u was robi dobre interesy? 

— Obie strony czyli klienci i my. Mamy satysfak- 
cję jeśli nasz kontrahent wyjdzie od nas zadowolony. 

• Z tego trudno żyć? 

— Ale zaufanie do firmy to gwarancje zysków 

• Czyich? 

— Jesteśmy jednostką gospodarki uspołecznio- 
nej. a głównym udziałowcem AlmaCompu jest Rada 
Naczelna Zrzeszenia Studentów Polskich. Do kasy 
ZSP wpływają więc zyski, zaś w kieszeniach pra- 
cowników powinna pozostawać godziwa zapłata, ale 
tylko za uczciwie wykonaną pracę 

• Jest to jedyny wasz związek ze studentami? 

— Nie. Wśród naszych współpracowników, wy- 
konujących zresztą bardzo różnorodne prace, jest 
wielu studentów, do nich też kierujemy naszą dydak- 
tyczną ofertę. Naturalnie pragniemy opierać naszą 
działalność na możliwościach i warunkach nauko- 
wo-technicznych studenckich kół naukowych i mło- 
dych pracowników nauki. Współpracujemy z oś- 
rodkami naukowo-badawczymi PAN-u. 

• Właśnie, oferujecie bardzo zróżnicowany 
wachlarz usług — czy w ten sposób nie rozprasza- 
cie swych możliwości? 

— Jesteśmy na początku działalności. Pracujemy 
dopiero od połowy tego roku. Dlatego staramy się 
zdobyć jak najwięcej klientów. W perspektywie sku- 
pimy się na kompleksowej obsłudze użytkowników 
sprzętu komputerowego. To znaczy rozpoznajemy 
potrzeby, dostarczamy i instalujemy sprzęt, udziela- 
jąc na niego gwarancji rocznej, dostarczamy litera- 
turę i oprogramowanie, wykonujemy prace projek- 
towe i i programowe, a także prowadzić będziemy 
kursy przygotowujące nie tylko do obsługi sprzętu, 
ale także uczące oprogramowania. 

• Będziecie mieli na nie chętnych? Przecież 
konkurencja jest duża 

— Przyjmujemy zgłoszenia od zakładów pracy. 
Na przykład dla pracowników LOT-u prowadzić bę- 
dziemy kurs programowania w Pascalu. Indywidual- 



nych zgłoszeń mamy bardzo wiole. Mamy też w tym 
swój interes. 


• Jaki? 

-- Najzdolniejszym zaoferujemy pracę, 

• Prawdę powiedziawszy jest to dość konwen- 
cjonalna oferta 

— Ale niekompletna. 

• Macie jeszcze jakąś niespodziankę? 

— Raczej konkretne plany. Otóż chcemy specja- 
lizować się w systemach wielodostępnych. Jako 
rozwiązanie profesjonalne proponujemy Atari 520 
ST z motorolą 68 020 z systemem wielodostępnym 
OS-9, co na naszym rynku jest raczej nowością 

• Mamy zaufanie do IBM, nie mamy natomiast 
do sieci 

-- Bo ich nie ma. 

• Co zatem proponujecie? 

— Właśnie sieci. Nasze modemy uzyskały już 
homologacje przeprowadziliśmy też pierwsze uda- 
ne próby łączności 

• To tylko pierwszy krok, a bazy danych? 

— Tych niestety nie ma. Będziemy jednak two- 
rzyć swoje. 

• Przyznaję, że to bardzo pracochłonne zajęcie 

— To inwestycja. Proszę sobie wyobrazić pra- 
cowników naukowych prowadzących swoje bada- 
nia. którzy właśnie za pośrednictwem naszego kom- 
putera, z którym mogliby połączyć się nawet z domu, 
mogliby otrzymać informacje bibliograficzne o naj- 
nowszych publikacjach. 

• Dotychczas nikt tego nie proponował, a poza 
tym, czy to będzie się opłacało 9 

— Musi. Mamy nadzieję, że znajdziemy klientów. 
Wykupiony abonament umożliwi dostęp do naszego 
banku. Usprawni to dostęp do najnowszych infor- 
macji. Jesteśmy przecież Centrum Edukacji Infor 
matycznej i właśnie na dostarczaniu wiedzy zalezy 
nam najbardziej. 

• Szczególr 1 '- ■ Izinie życzymy sukcesów 

Dziękuję 2 a rozmowę: W. Cetera 




MIKOŁAJ 


MIKOŁAJ jest grą zręcznościową. Zadaniem gracza (Miko- . 
łaja) jest doręczenie dzieciom jak rlajwiększej liczby prezen- 
tów. Szczegółowe zasady gry zawiera program. Do gry po- 
trzebny jest joystick, który podłączamy do portu drugiego. 
Przed uruchomieniem programu należy stworzyć jego kopię. 

S. Wasilewski 

READY. 


0 REM MIKOŁAJ «»■ 

10 PRINT"PROSZE CZEKAC " SK-0 FOR I -0TO343 READA P0KE49 1 32+ I . A SK-SK+A NEXT 
20 IFSK063195THENPRINT"BŁAD W LINIACH ; 1000 - 1033" END 
30 SK-0 FOR I -0TO327 READA POKE l 4080* I . A SK-SK+A NEXT 
40 IFSKO20134THENPR1NT"BLAD U LINIACH: 2000 - 1040" END 

30 ZB-CHRB<147) YB-CHRB<3) XB-CHRB<18) WB-CHRB<13I) V6*CHRB<129) IJ6-CHRB<1S2> 

3 1 TB-CHRf <133): SB-CHRB <111) RB-CHRB (183): NB-CHRB (160) MB-CHRB < 1 7 ) ■ LB-CHRB< 29 ) 

32 JB-CHRB < 32 ) ■ I B-CHRB (149) HB-CHRB (167) OB-CHRB (19) OB-CHRB <112) PB-CHRB <109' 

33 OB-CHRB< 127) CB«XB+WB+SB+VB+RB+SB+RB+GB+RB BB-XB+WB+JB+UB+JB+TB+JB 
54 DB-LB+XB+IB+SB+VB+RB+QB+RB+OB : A-53248 

60 PRINTZBYBMBMB"JE6TES MIKOŁAJEM. TWOIM ZADANIEM JEST" 

61 PRINT"ROZDAC JAK NAJWIĘCEJ PREZENTÓW. DZIECI" 

62 PRINT "OCZEKUJĄCE W MIESZKANIACH SA BARDZO" 

63 PRINT "NIECIERPLIWE. KOLOR ŚWIATŁA U OKNACH" 

64 PRINT "OKREŚLA CZAS OCZEKIWANIA NA PREZENTY." 

63 PRINT "ODY JEDNO Z DZIECI STRACI NADZIEJE" 

66 PRINT "NA OTRZYMANIE PREZENTU, TO W JEOO OKNIE" 

67 PRINT" R0ZBLY6N I E ŚWIATŁO U KOLORZE ZOLTYM. " 

68 PRINT "NASTĘPUJĘ KONIEC GRY. PREZENTY MIKOŁAJ" 

69 PRINT "WRZUCA PRZEZ KOMIN, PRZY ZETKNIĘCIU SIE" 

70 PRINT“Z PŁATKIEM 8NIE0U. " PRINT : PRINT 

80 I NPU T " SZ YBK08C <1-4)",LE^: IFLEXC1ORLEX>4THEN80 
90 POKE830 , I NT < 1 2/LEK ) 

100 INPUT“POZIOM ORY < 1-4) " , LEK : IFLEK<1ORLEX>4THEN10« 

110 P0KE49437- I NT < 8/LEK) 

130 POKEA+33 , 0 POKER+32 , 0 ; PR 1NT YBZB : SC-0 : P0KE34296 , 13 
140 PR I N TOBMBMBMBMBMBMBMBMBMBMBMB : FOR I - 1 TOZ 

130 PRIMTXBLBLBBBCHRB<144)" BBLBLSLBBBLBLBLBBBLBLBLSBB NEXT 

160 PRINTDBDBDBDSDB PRINTWBCBCBCBCBCB 

170 AB-"" F0RI-1T013 AB-AB+PB+JB NEXT 

1 80 PR I NTWBKB JBABOB PR I NT VBXBABPB JBOB 

190 AB-WB+XB : F0RI-1T033 : AB-AB+NB NEXT : PRINTWBXBAB 

200 FOR I - 1 T03 : PR I NTTAB < 3 1 ) I BHB NEXT : PR I NT TAB < 3 1 ) I BHB , 

2 1 0 POKEA+23 , 248 : P0KER+27 , 233 POKEA , 230 FOR I -0TO1 6 : POKEA+ 1,0 NEXT 

220 POKER , 230 POKER* 1,100 POKE2040 , 220 POKEA+2 1,253 POKEA+28 , 233 POKE A+39 , 4 

230 POKEA+38 , 1 1 : POKEA+37 , 1 : POKE832 , 0 : POKE2042 , 223 

240 PQKEA+v , 235 : POKEA+3 ,100 POKE204 1,221 

230 PRINTGBMBMBMBMBMBMBTAB<31)WB"MAX" PRINTMBWBTAB<31)MX 

260 POKEA+40 , 8 FOR I -6 TO 1 4STEP2 : POKE A+ 1 , - 1 03+ < I B24 ) 

270 POKER* 1+1,208 :NEXT 

280 FOR I -3T07 : POKE2040+ 1,224: POKER+39+ 1,0: NEXT 
300 PR I NT YBOBMBMB TAB < 30 ) "WYNIK " 

310 FOR I -0TO 1 0STEP2 : B-4B236+ < 8 1 • I) P0KE834+ 1 , B/236 
320 P0KE833+ 1 , B- < PEEK < 834+ 1 ) >236 > NEKT 
330 P0KE83 1,1 POKE832, 0 
340 SYS49388 IFPEEK<829)-0THEN40»* 

330 PRINTOBMBMBLBLBLBLBLBLBLBLBL»LBlB"KONIEC ORY" 

360 POKE 34276.0 P0KE34277-233 P0KE34273, 10 P0KE34276, 129 
370 OETFB: IFF4— " "THEN370 
380 IFSC>MXTHENMX-SC 
390 GOTO 130 

400 SC-6C+1 00 PRINT GBMBMBMBMB YB T AB ( 30 ) SC 

4 1 0 P0KE34276 - 0 POKE34277 , 7 P0KE34273 ,100 POKE34276 ,17: GOTO340 


1000 DATA162, 0, 189,63,3, 133,230, 189 

1001 DATA66,3, 133,251, 163,231,201,4 

1002 DATA 144, 48, 201,6, 176,44,76,89 

1003 DATA 192, 234, 143,230, 189,65,3,24 

1004 DATA105, 40, 137,63,3, 189-66,3 

1005 DATA105-0, 137,66,3, 189,63,3 

1006 DATA 133, 230, 189,66,3,76, 102, 192 

1007 DATA234, 143,230,232,232,224, 10, 144 

1008 DATA193, 96, 169,4, 137,66,3, 138 

1009 DATA10, 137,63,3, 134,233,24, 101 

1010 DATA233 . 1 A5.T . 1 N7 . SM . . 76 . 43 > 


1011 DATA192, 160,0, 177,230,201,42,208 

1012 DATA187, 169,32,76,26, 192,133,231 

1013 DATA1 77 , 230,201 , 32, 208 , 203, 169,42 

1014 DRTA76,37, 192, 173,0,220,41,1 

1015 DATA208, 1 3, 1 73, 1 , 208, 201 , 30, 144 

1 0 1 6 DATA6 , 206 , 1 , 208 - 206 , 1 , 208 , 1 73 

1017 DRTR0, 220, 41 ,2,208, 13, 173, 1 

1018 DATA208-201, 130, 176,6,238,1,208 

1019 DATA238, 1,208, 1 73, 0, 220, 41 , 4 

1020 DATA20S, 13, 1 73, 0, 208, 201 , 20, 144 

1021 DATA6, 206, 0,208, 206, 0.208, 173 

1022 DATA0, 220, 41, 8, 208- 13,173,0 


C-64 


1023 DHIH208, 20 1,230, 176,6,238,0,208 

1024 DATA233, 0,208, 173,1,208,141,3 
1023 DRTA208. 173,0,208.24. 103.24,141 

1026 DATR2, 208, 173-64-3,201,0,208 

1027 DATA18. 173,0,208,24, 103,2,141 

1028 DATA4.208, 173, 1,208,24, 103.1 

1029 DATAMI, 3, 208, 96, 173.18,208,201 

1030 DATA160. 208, 249, 238,63. 3. 173,63 

1031 DATA3 , 203 - 62 . 3, 1 44 , *38 . 32 - 1 1 3 

1032 DATA192-32, 113, 192,32,0, 192,169 

1033 DATA0, 141,63,3,32,42. 193,32 

1034 DATA6. 194, 76,61 , 193- 174,3,220 

1 033 DAT A224 ,5,176,12,189.42.200,201 

1 036 DATA240 , 208 , 0 , 1 69 , 7 , 254 , 42 , 208 

1 037 DAT A96 , 0 . 238 , 4 1 - 1 93 . 1 73 , 4 1 , 1 93 

1038 DATA201 , 2, 144,8,169,0,141,41 

1039 DATA193, 76, 21, 193,96, 162,0, 189 

1040 DATA42. 203, 201 , 247,208,6, 169, 1 

1041 DATAMI, 61, 3, 96, 232, 224, 3, 208 

1 042 DRTA238 , 234 , 234 , 234 , 1 73 , 0 , 208 ,74 

1043 DATA74, 74, 133,232, 169,3, 133,233 

1044 DATA173, 1.208.74,74,74, 170,163 

1045 DATA232.24, 105,40, 133,232, 163. 23i 

1046 DATR103, 0, 133.253.202,224,233,208 

1047 DATA238. 160, 13. 177.232,201,42,208 

1048 DATA10, 173,64,3,201,0,208,3 

1049 DATA238, 64. 3, 76, 220- 193-208.46 
1030 DATA173, 5, 208. 24, 103,8. 141,3 
1051 DATA288, 201 . 130, 144,33. 160,0. 173 
1032 DAT A4, 208, 20 1,70, 144, 16,200,201 
1053 DATA1 10, 144,11,200,201,160, 144,6 

1034 DATA200.201, 190, 144- 1,200,169,2 
1055 DATAMI, 64, 3, 76, 193, 193,76.228 
1036 DATA193, 183.42, 208.201 . 240, 240,9 
105, DA lnltf5' 42, 208.lt., 233, 1. 133,42 

1058 DATA206, 169.60,141,4,208, 141.5 

1059 DRTA208, 76,0, 194- 173,64,3.201 

1060 DATAl, 76, 142, 193, 173,64,3.201 

1061 DATA2,208, 15, 173,30,208,201,5 

1062 DATA208 • 3, 169,0, 141,64,3.76 

1 063 DRTA236 .192,173,30.208, 76 ,236,1 92 

1064 DATA169.0, 141,61,3,96. 173,63 

1 065 DATA3 , 208 . I 3 . 238, 249 , 7 , 1 73 , 249 

1066 DAT A7, 201, 223, 144,3. 169.221,141 

1067 DATH249, 7. 96. 0,0,0. 0,0 

1999 REM SPRITE DATA 

2000 DATA0, 0.0. 0.0. 0-64,0 

2001 DATA0, 32.0.0,40,0,0,20 

2002 DATA0 ,0,20.0,0.60,0.0 

2003 DATA40,0,0,42. 144,0,42, 149 

2004 DATA0. 42, 0,0, 85-64,8, 233 

2005 DATA160, 0,233, 160.0,253, 160,4 

2006 DATA233. 252, 4, 85, 85,80,0,0 

2007 DATH0, 0,0, 0.0, 0,0,0 

2008 DATA0, 0,0, 0,0. 0-0-0 

2009 DATA0, 0,0, 0.0, 0-0,0 

2010 DATA0, 0,0, 0,0, 0,0,0 

2011 DATR0, 0,0, 0,2, 0,0,0 

2012 DATA128, 0,0, 40, 32,0, 170,40 

2013 DATA42, 162.2, 170, 160, 10, 170, 160 

2014 DATH40-0, 160,32,0,40, 128,0 

2015 DATA8, 0,0, 0,0. 0,0.0 

2016 DATA0. 0,0, 0,0, 0,0.0 

2017 DATA0. 0,0. 0-0. 0,0,0 

2018 DRTA0, 0,0, 0,0. 0,0.0 

2019 DATA0, 0,0, 0,2, 0,0,0 

2020 DATA128. 0,0, 40, 32. 0,170,40 

2021 DATR40, 162.2.1 70. 160. 10. 170. 160 

2022 DATA10.0, 160.2. 130. 128,0.138 

2023 DATA0. 0,0, 0,0. 0.0.0 

2024 DATA0,0,0,0>2> 128-0,10 

2025 DATA160. 0.26, 172.0, 166. 184,2 

2026 DATA169.232. 14. 169. 100.11, 174,88 

2027 DATA6.230, 104,9, 185.96. t0, 118 

2028 DATA64.2, 134.0.0, 184,0.0 

2029 DATA48, 0.0, 0,0. 0.0,0 

2030 DRTA0, 0.0,0, 0,0. 0.0 

2031 DATA0, 0.0, 0.8, 0,0,0 

2032 DATA170, 186. 171,170, 186, 171, 170, 186 

2033 DATA171 ,170, 186,171 , 170- 186, 171 , 170 

2034 DATA186, 1 71 , 170. 186, 171 ,178, 186, 171 

2035 DAT A 1 70 , 1 22 , 1 67 , 85 , 1 1 7', 8 7 , 233 . 235 

2036 DATA253, 170, 186, 171 ,170, 186, 171 , 170 

2037 DATA 186, 1 71, 170, 186, 171 . 170, 186,171 

2038 DATAl 70, 186, 171 , 170, 186, 171 *170, 186 

2039 DATA171, 170, 122, 167, 83. 1 17, «. 8 

2040 DATR0.0, 0,0,0. 0,0,0 V* 

3000 RETURN 

RE ADY. 
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ATARI 


W RZĘDZIE 


W tej grle dysponujesz tablicą o wymiarze 10 x 12. Aby 
wygrać, musisz mieć w wierszu dziesięć swoich znaków, które 
wstawiasz w dane miejsce tablicy, tzn. w najniżej położone 
wolne miejsce, w wybranej przez ciebie kolumnie, klawiszami 
od 0 do 9. 

Komputerowi, aby wygrał z tobą, wystarczy ustawienie w 
kolejności pięciu znaków w dowolnym wierszu. W wypadku, 
gdy znaki zostały wstawione w ostatni wiersz tablicy, a nie 
nastąpiło rozstrzygnięcie gry, komputer sygnalizuje fakt oraz 
proponuje powtórną partię. Jako znaki przyporządkowano: 
tobie — C, komputerowi — K. 

Janusz JANIEC 


610 IF S<BC+7>»67 AND S<BC->8)»67 
AND S<BC+9)»67 AND S<BC+10>»67 
THEN 1780 
620 GOTO 140 

1100 REM KREŚLENIE TABLICY 
1105 POSITION 9/7>? CHRf<160);CH 
Rf < 168) ;CHRf < 160) ; CHRt< 160) > CHR# 
< 160) ; CHR*< 160) ; CHR*< 160) 


1106 POSITION 16,7'? CHR#<160);C 
HRf < 160) ; CHRf< 160) ; CHR#< 160) > CHR 
f< 160) 

1110 FOR Y-12 TO 2 STEP -1 
1120 POSITION 9,28-Y'? CHR#<160) 


1130 FOR X-1 TO 10 
1140 ? CHR#<S<Y*10+X))l 
1130 NEXT X 

1170 POSITION 20. 20-Y 1 ? CHRf<160 

); 

1160 NEXT Y 


6 OPEN #1,4/0. "K' " 

7 POKE 732, 1 

8 POKE 718,3 

10 DIM S<160),H<11), W<4),Z#<16) 

12 Z#-" 

13 ? CHR# ( 125) 

17 POSITION 14,10'? CHRf<9);CHRf 
<25>;CHR#<32);CHR#<140);CHR#< 143 
);CHRf< 13) ; CHR# <32 > > CHR#<32) 

18 POSITION 22,10'? CHR#<153);CH 
Rf <32) ; CHRf <133) > CHRf < 149) ; CHRf < 
149) 

19 POSITION 14,11'? CHRf<12);CHR 
f<23);CHRf<32);CHRf<23>;CHR#<32> 
;CHRf<23);CHRf<32);CHRf<32) 

20 POSITION 22,11'? CHRf <25 ); CHR 
f <32) i CHRf < 153) ; CHRf< 149) ; CHRf < 1 
39) 

21 POSITION 14,12'? CHRf <32 >; CHR 
f<25) ; CHRf <32>; CHRf <25) ; CHRf <32> 
; CHRf < 23 ) j CHR f < 32 ) ; CHRf <153) 

22 POSITION 22,12'? CHRf<32);CHR 
f <32> i CHRf < 13) i CHRf <32> ; CHRf < 133 
) 

23 POSITION 14,13'? CHRt<9);CHRf 
<139) J CHRf (32) ; CHRf (143) J CHRf <14 
0) ;CHRf <12) jCHRf <32) ; CHRf <25) 

24 POSITION 22,13'? CHRf<32);CHR 
f (32) ; CHRf < 143) ; CHRf <21 ) i CHRf < 13 
7) 

25 PO8ITI0N 8,22-? "WcitniJ dowo 
In* kUwitz" 

27 GET #1 , A 
29 ? CHRf <123) 

93 POSITION 8,2'? Zf'POSlTION 12 

,4'? Zf 'POSITION 22,11'? Zf 

98 POKE 704,255 

100 FOR H-0 TO 9 'H<H)-1 >NEXT H 

103 FOR Y-2 TO 13 

110 FOR X-1 TO 10 

115 S<Yfl0+X)-46 

120 NEXT X'NEXT Y 

123 W<1)-2'W<2)-9'W<3)»10'W<4)-1 

130 G-8'T-B 
135 GOSUB 1100 


140 POSITION 22,9'? "TWOJE POSUŃ 
IEC1E" 

143 RESTORE 

130 FOR AA-0 TO 9 

133 READ A 

154 SOUND 0,8, 0,0 

137 IF PEEK<764)-A THEN 188 

139 80UND 0,250,13,3 

160 NEXT AA 

163 P08ITION 22,9'? Zf 
167 FOR B-0 TO 50NEXT B 
170 GOTO 148 
188 POKE 764,233 
200 POSITION 22,9'? Zf 
205 IF 0130 THEN 1900 
210 R-67 

220 C-H<AA)*10+AA+11 

230 H<RA)*H<AA)+1 

240 8<C)-R 

300 R-73 

310 AA-0 

315 AA-AA+l 

323 C«H<AA)*10t-AA+ll 

327 IF S<C)<>46 THEN 450 

360 R-73 

370 C-C+10 

388 IF S<C) 046 THEN 450 
430 IF AR O 9 THEN 313 
500 AA-INT <RND<0)f 10) 

310 C-H<AA)*10+AA-fll 

330 8(0-73 

340 H<AA^-H<AA)+1 

368 R-73 

580 GOSUB 1100 

590 FOR B-2 TO 12 

592 BC-BX10 

594 IF 8<BC+1 )-67 AND S<BC+2)-67 
AND 8<BC+3)*67 AND S<BCM)-67 A 
ND 8<BC+3>-67 AND S<BC+6)«67 THE 
N 610 

393 FOR BD-0 TO 5 
596 BE-BD^BC 

397 IF S<BE+1 )-73 AND S<8E+2>-75 
AND 8<BE+3)-75 AND S<BE+4)-75 A 

ND S<BE+5)-75 THEN 1800 

398 NEXT BD 

599 NEXT B 

600 GOTO 140 


1190 POSITION 9,19'? CHRf<160>;“ 
0 1 23456789 " ; CHRf <160) 

1290 POSITION 9,20'? CHR*<160);C 
HRf < 160) ; CHRf < 168) > CHRf < 160) ; CHR 
f< 160) ; CHRf <160); CHRf <160) 

1201 POSITION 16,20'? CHR$<160); 
CHRf < 1 60 ) i CHRf <160); CHRf < 1 60 > ; CH 
Rf < 160) 

1210 RETURN 

1500 DATA 50,31,30,26,24,29,27,3 
1,53,48 

1600 POSITION 8,2'? "CZY GRASZ D 
ALEJ?" 

1618 POSITION 12,4'? CHRf <34> » 
k/";CHRf<78);"i«" 


1620 IF PEEK<764)«45 THEN 95 

1630 IF pEEK<764)-35 THEN 2800 

1640 FOR 8B=0 TO 40=NEXT BB 

1650 RETURN 

1790 FOR B8*0 TO 9 

1710 POSITION 10+BB,20-B'? "c" 

1715 NEXT BB 

1720 GOSUB 1600 

1722 POSITION 22,9'? "BRAWO!! WY 
GRAŁEŚ" 

1738 FOR BB-0 TO 9 

1740 POSITION 10+BB,20-8'? "C" 

1750 NEXT BB 

1755 FOR 6B=0 TO 20NEXT BB 

1760 GOTO 1700 

1800 FOR BB-BD TO 4+BD 

1818 POSITION 10+BB,20-B? "h" 

1815 NEXT BB 

1820 GOSUB 1600 


1822 POSITION 22,9'? "WYGRAŁ KOM 
PUTER!" 

1830 FOR BB=BD TO 4+BD 

1840 POSITION 10+BB/20-B'? "H" 

1850 NEXT BB 

1855 FOR BB-0 TO 20NEXT BB 
1860 GOTO 1800 
1900 G0SU8 1600 

1910 POSITION 22,9'? "KOMPUTER D 
OSZEDL" 

1920 POSITION 22,11'? "DO KOŃCA 
TABLICY" 

1930 GOTO 1900 

2000 ? CHRf< 125) 'POKE 752,0 'NEW 
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EDYTOR KODU If 
MASZYNOWEGO £ 


Każdy użytkownik komputera 
wprowadzał zapewne niejedno- 
krotnie kod maszynowy zapisany w 
liniach DATA programu. Wie za- 
tem, jak żmudna jest to praca i jak 
łatwo przy niej o popełnienie błę- 
dów, których wykrycie jest również 
kłopotliwe. Narzędziem pomoc- 
nym do wprowadzenia kodu ma- 
szynowego z dowolnego listingu do 
pamięci mikrokomputera jest pro- 
gram MCEDYTOR — edytor kodu 
maszynowego. Sądzę, że po przeczy- 
taniu opisu jego funkcji, każdy z 
czytelników podejmie trud włącze- 
nia go do swojej biblioteki progra- 
mów. Program napisany jest w ję- 
zyku BASIC i zajmuje ok. 10KB pa- 
mięci. 

Edytor po uruchomieniu żąda podania kil- 
ku parametrów sterujących jego pracą. Są to: 

1) Liczbą danych w wierszu (zmienna I.W) 
— jest to liczba danych oddzielonych 
przecinkiem, zawartych w jednej linii DA- 
TA. Jedyne ograniczenie wartości tej liczby 
występuje wówczas, gdy z wprowadzonego 
kodu edytor będzie tworzył również linie 
DATA programu BASIC — długość takiej 
linii nic może przekroczyć 116 znaków. 
Odliczając pięć znaków na numer linii, 
cztery znaki „DATA” oraz odstępy — w 
tym wypadku liczba danych w wierszu nic 
może przekroczyć 26. 

2) Nośnik, na którym należy utworzyć zbiór z 
wprowadzonym kodem maszynowym 
(zmienna NOS) — T-taśma, D — dysk. 

3) Rodzaj zbioru, który należy utworzyć 
(zmienna R/B) — użytkownik edytora ma 
do wyboru następujące opcje 

B — zbiór z programem binarnym: — typu 
„load and go” 

D - zbiór typu BOOT TAPE lub BOOT 
DI SC 

L — zbiór zawierający linie DATA z wpro- 
wadzonym kodem maszynowym. Zbiór ten 
może być dołączany instrukcją ENTER 
„C:” lub ENTER „D: nazwa" do tworzo- 
nego programu w języku BASIC jako 
podprogram w kodzie maszynowym. Wy- 
bierając opcję L, użytkownik edytora, po 
zakończeniu wprowadzania kodu maszy- 
nowego, określa również numer pierwszej 
linii oraz krok numeracji. 

4) Wskaźnik występowania sum kontrol- 
nych podczas wprowadzania kodu maszy- 
nowego. Jeżeli sumy kontrolne będą 
wprowadzane — T, jeżeli nie będą — N. 
Każdy programista, przygotowując listing 
długiego programu napisanego w kodzie 
maszynowym, aby zmniejszyć prawdopo- 
dobieństwo popełnienia błędu przy wpro- 
wadzaniu kodu do komputera, oblicza su- 
my kontrolne na końcu każdego wiersza 
(linii DATA) listingu. Najczęściej sumą 
kontrolną jest suma wszystkich danych w 


jednej linii, lecz sumy kontrolne mogą być 
obliczane również w inny sposób. W razie 
wybrania opcji T, edytor „zapyta się” o 
sposób obliczania sum kontrolnych. W 
edytorze zakodowane są dwa sposoby: 
pierwszy — suma kontrolna jest sumą 
danych w wierszu .(linii), drugi — suma 
kontrolna jest resztą z dzielenia sumy da- 
nych w linii przez 256. W sytuacji, gdy su- 
my kontrolne nic są obliczane żadnym z 
wymienionych sposobów, można zakodo- 
wać sposób ich obliczania w liniach 
502 — 506 edytora. 

Edytor żąda ponadto podania trzech dodat- 
kowych parametrów: adresu startowego dla 
wprowadzanego programu (zmienna STA) 
oraz adresu początkowego (zmienna AP) i 
końcowego (zmienna AK) obszaru pamięci, 
którą wprowadzany program zajmuje. Kilka 
słów wyjaśniających znaczenie tych parame- 
trów. 


50 DIM SEK*a28>,SIQV#<4:>,ClOV$' 
6) 

52 SI0V*="hLS " 'SI0V*<4,4)«CMR*' 
228) 

54 CZSEK*2000 

56 CI0S'*="h" * CI0V*<2)=CHR*< 162) 

C 1 0V* < 3 ) =CHR* < 32 ) » C 1 0V* (4,5)=*" L V 
" 'CI0V*(6)=CHR*<228) 

58 CZ2B=2108 
60 WPRD-2200 

100 GRAPHICS 0'DL«PEEK<560>+256* 
PEEK < 56 1 > +4 : POKE DL- 1,71 POKE OL 
+ 2,6 

110 POSITION 6,0'? "MCedy tor" : PO 
KE 710,0 

120 OPEN #1,4,0, "K • " ■ GOSUB WPRD 
130 DIM BUF * (. AK-AP+ 1 27 ) , W I ER < LW > 
,T*<20),F*<20> 

148 8UF**CHR* < 0 ) 1 BUF* < RK-AP+30 ) * 
BUF* ' BUF*(2)=BUF* • SEK*=BUF* « ADDR 
=AP 

142 DIM LINIA*( 1 14) ,K0D*<3) 

160 IF RZB=76 THEM 360 

170 IF NOS O 84 THEN BUF**"" GOTO 
250 

171 REM ssaEc::s:sz:3:as23:sa:s: 

172 REM 

173 REM TWORZENIE ŁADOWACZA DLA 

174 REM ZBIORU TYPU BOOT TAPE 

175 REM 

176 REM *======================== 

1 30 flP*AP-24 ' BUF*»CHR* < 0 > = BUF* < 2 
> =CHR* (I NT < < AK-AP+ 1 27 ) / 1 28 ) > 

200 H= I NT ( AP- 256 > « L=AP-H*256 ' BUF 
$ < 3 ) =CHR* <L> 1 BUF* < 4 > =CHR* < H ) 

210 AINIt*AP+8 1 H*INT <AINI T/256) : 
L=A I N I T-H*256 ' BUF* ( 5 > -CHR* <L ) < BU 
F* ( 6 ) =CHR* ( H > 

220 FOR 1=7 TO 24 » READ A'BUF*(I) 
=CHR*<A) ‘ NEXT 1 

225 DATA 24,36,163,60,141,2,211, 
169,0, 133, 10, 163,0, 133,11,76,0,0 
230 H* I NT < STA/256) « L=STA-H*256 ' B 
UF* < 1 5 >*CHR* <L> 1 BUF* < 1 3 ) *CHR* < H ) 
240 BUF* ( 23 > *CHR* < L ) = BUF* < 24 > *CH 
Rt(H) 

250 IF NOS O 68 THEN 360 
260 IF RZB=66 THEN 360 


W wypadku, gdy rodzaj zbioru, który edy- 
tor będzie tworzył z wprowadzanego kodu, 
został określony opcją B lub D parametry 
STA, AP i AK są zwykłymi parametrami 
uruchamiania, wymaganymi przez DOS lub 
system operacyjny komputera. Gdy została 
wybrana opcja L, znaczenie tych parametrów 
jest inne. Adres startowy jest w tej sytuacji 
niepotrzebny i edytor „nic pyta się” o niego. 
Parametry AP i AK określają wielkość obsza- 
ru pamięci (początek, koniec) w którym edy- 
tor będzie przechowywał wprowadzany kod 
maszynowy przed zapisaniem go na taśmę lub 
dysk. Na przykład: chcemy wprowadzić 30 li- 
nii kodu po 20 danych w każdej linii — razem 
600 bajtów kodu. Jako adres startowy poda- 
jemy 1 , a adres końcowy 600. Adresów AP i 
AK w żadnym wypadku nie należy utożsa- 
miać z bezwzględnymi adresami obszaru 
RAM, w którym przechowywany jest wpro- 
wadzany kod — stąd nic należy obawiać się, 
że ich nieprzemyślane dobranie zniszczy ak- 
tualnie pracujący w pamięci edytor. 

Po wprowadzeniu wszystkich wymienio- 
nych wyżej parametrów, edytor wyświetli po- 
dany adres początkowy i w tym momencie 
możemy przystąpić do wprowadzania kodu 
maszynowego. Edytor będzie kontrolował: 

— czy każdy znak wprowadzanego kodu jest 
cyfrą?, 

— czy każda wprowadzona liczba jest mniej- 
sza od 256?, 


261 REM s«=s=aa=x=s=»==ss3s= B =B 

262 REM 

263 REM TWORZENIE ŁADOWACZA DLA 

264 REM ZBIORU TYPU BOOT DI SC 

265 REM' 

266 REM =*sn=a!S==:=s:a3!at*=!s==a*=3ar3 


230 AP=AP-30 BUF*»CHR*<0) : 6UF*<2 
> =CHR* (I NT ( < AK- AP+ 1 27 ) / 1 28 > > 

300 H*=INT (AP/256) ' L»AP-H*256 : BUF 

* < 3 > =CHR* <L> 1 BUF* < 4 > -CHR* ( H ) 

310 AINIT=STA H=INT (Al NI T/256) ' L 
*A I N IT~H*256 * BUF* < 5 ) *CHR* ( L ) « BUF 

* < 6 ) «CHR* ( H ) 

320 RESTORE 330 = FOR 1*7 TO 30 = RE 

AD A BUF*(I)=CHR*(A) -NEXT I 

330 DATA 169,0,141,231,2,133,14, 

169,0, 141 ,232,2, 133, 15, 169,0, 133 

,10,169,0,133,11,24,96 

340 H= I NT < AP/256 ) =L=AP-H*256= BUF 

* < 8 ) =CHR* <L ) ' BUF* <1 5 ) -CHR* < H ) 

350 H=INT(STA/256) ' L=STA-H*256 ' B 
UF* < 22 > »CHR* < L > • BUF* < 26 > =CHR* < H ) 
360 GRAPHICS 0 •• POKE 712,10 = POKE 
710,10 POKE 709,2 

370 ? ADDR;"'"; =F0R J*1 TO LW 

380 HK2=255 ' HK 1 *3 = G0SUB 570 I F N 

*-l THEN J»J-1 •• GOTO 380 

390 IF N=-19 THEN 720 

400 IF N*-12 THEN CZYT-1 -GOTO 72 

0 

410 TRAP 410= IF N— 14 THEN ? <? 
"Podaj nowy adres Początkowy 
INPUT ADDR'? 'GOTO 370 
420 TRAP 40000 = I F NO -4 THEN 480 
430 TRAP 430? •? "Wyświetl w pro 
wadzone dane"'? "od adresu "i 
'INPUT F : ? " do adresu "; INPUT 
T i TRAP 40000 

440 IF F <AP 0R F>AK 0R T<AP 0R T 
>AK 0R T<F THEN ? CHR*<253)> AP; " 

<* adres <* "; AK 'GOTO 430 
450 FOR I=F TO T STEP LW'? =? I; 
" ' " ; FOR K=0 TO LW-1 =N«PEEK<ADR< 
BUF*)+I+K-AP) . T**"000" 

452 T*(4-LEN(STR*(N) > )»STR*(N) 
460 IF PEEK < 764 ) <255 THEN GET #1 
, A 1 POP =P0P ; 'GOTO 370 
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470 ? Ti > " NEKT K ' ? CHRi C 1 26 ) 

i s NEXT I • ? ? GOTO 370 

480 IF H<0 THEN ? 'GOTO 370 

490 WIER< J)=N ' NEXT J 

50O IF SUMK=0 THEN ? CHRi C 126) 'G 

OTO 530 

502 SK=8 

504 FOR 1 = 1 TO LW ' SK*SK+MIER< I > ; 
IF RSK= 1 THEN SK=SK-256*£ SK> 255 ) 
506 NEXT I 

5 1 0 RF= 1 28 ' SOUND 0 , 200 .■ 12.8 ■ HK2* 
9999 > HK 1 =4 = GOSUB 570 - SOUND 0,0,0 
.. 0 : RF=0 : ? CHRi Cl 26 > 

520 IF NOSK THEN ? «? "Biedna s 
uma k ont ro l na " i CHRi < 253 > ; ? GOT 
O 370 

530 FOR U=15 TO O STEP -1 'SOUND 

0.50. 10..W'HEXT W 

540 FOR 1=1 TO LW : POKE ADR<BUFi> 

+RDDR-AP+ 1 - 1 , W I ER < 1 > NEXT I 

550 ADDR=ADDR+LW ' IF RD0R<=AK THE 

N 370 

560 GOTO 710 
570 N=0 ' Z=0 

580 GET # 1 , A ' I F A=155 OR H=44 OR 
H=32 THEN 670 

590 IF fl <32 THEN N=-A = RETURN 
600 IF A 0 126 THEN 630 
610 GOSUB 690= IF 1=1 AND T=44 TH 
EN N=- 1 = ? CHR$< 126); 'GOTO 698 
620 GOTO 570 

630 IF A <48 OR fi>57, THEN 580 
640 ? CHRi < A+RF ) ; ' N=N* 1 0+R-48 
650 IF N>HK2 THEN ? CHRi < 253 ) ; A 
=126 -GOTO bOO 

660 2=Z+1 ' IF Z <HK 1 THEN 580 
670 IF Z=0 THEN ? CHRi < 253); - GOT' 
O 570 

680 ? " . " i = RETURN 

690 POKE 752.1 'FOR 1=1 TO Hk 1 ' ? 

CHR$<30>. GET #6.T IF TO 44 AND 

TO 58 THEN ? CHRT < A O -NEXT I 

700 POKE 752 . 0 • ? " " ,i CHRT < 1 26 > . ' 

RETURN 

710 GRAPHICS 0 = POKE 710/26 'POKE 
71 2. 26 'POKE 709.2 
720 IF RZB= 76 THEN 1580 
725 IF N0S=84 THEN 890 ' REM TAŚMA 
740 IFCZYT THEN ? '? "Ładowanie 
zbioru daskowe 3 o "■? 

750 IF RZB=S8 THEN 1050 'REM BOOT 
DYSK 

760 ? '? "Podaj nazwę zbioru " • : 
INPUT TT 

770 FT=TT ' IF LEN < T T T> 2 THEN IF T 
T Cl , 2 > O " D = " THEN F$= " D " = FT • 3 ) - 
TT 

780 TRAP 870 ' CLOSt #2 'OPEN #2,3- 

4TCZYT.0.FT 

790 IF CZYI THEN FOR 1=1 TO 6 GE 
T #2, A 'NEKT I ' GOTO 820 
800 PU r #2 . 255 ' PUT #2 255 
8 1 0 H= I NT ( AP 256 > !..=AP -HT256 . PU f 


42 • L PUT #. H H-- IN! ■ ul z > 

I -Hi 256 PUT 42. L MU tt.-.H 
820 i.iUSUB CZZ6 
830 IF ; .Th= 0 OR CZYT THEN 
840 PUT 4. 204 PU I 4 Z... PU 
25 PUT 47.2 H= INT ■ In V‘A- • 

H4256 FU I 42. L PUl 42 .m 
: 2-.it TRmF' 40001.1 i l\' d: »: II 
THEN CZYT-0 • ? '.GOTO 360- 

860 "EMO 

870 ? " 8 l ad n r " > PEEK < I 95 i 
. zas dostępu do zbioru" • T Fi • ' I-O 
SE #2 GIUO .7.11 

890 IF CZYT THEN ? =? "Czytanie 
taśmy " 

900 ? '? ••? "Wloz i ustaw taśmo 1 
•? "naci śnij PLAY ".'IF NOT CZY 
T THEN ? " 5 PECORD" 

920 TRAP 960, 'CLOSE #2 OPEN 42.8- 
4TCZYT . 128. "C' " 

938 GOSUB CZZBIF PEEK<195>;1 TH 
EN 960 

940 CLGSE #2 TRAP 40000= IF CZYT 
THEN CZYT =0 ' GOTO 360 
950 END 

960 ? "BI ad nr " > PEEK < 1 95 > " prz 


y czy tan i u/ za Pisie taśmy " ' CLOSE 

#2 'GOTO 890 

1050 IF CZYT THEN 1100 

1060 ? =? "Formatować dyskietkę 

' <T/NV' 

1070 GET #1,A IF A O 84 AND A O 78 
THEN 1070 

1080 ? CHRiCA) ' IF A=78 THEN 1100 
1090 ? =? "Formatowanie ..."KI O 
254. #2. 0.0. "D " 

1 1 00 NR* I NT < CAK-AP+ 1 27 > 1 28 > ' BUF 
»<AK-AP+2)*CHR$C0) ' IF CZYT THEN 
? "Czytanie dysku. . . " : GOTO 1 120 
1110 ? "Zapis zbioru, na dysk..." 
1120 FOR 1 = 1 TO NR > NS= I 
1130 IF CZYT THEN GOSUB C2SEKPU 
Fi <1*1 28- 1 27 > =3EPi = GOTO 1 1 60 
1140 SEK * =BUF$ < I * 1 28- 1 27 > 

1150 GOSUB CZSEK 

1160 IF PEEK7 DCB+3.J O 1 THEN 1200 
1170 NEKT I 

1180 IF NOT CZYT THEN END 
1190 ? =? ' CZY T=0 GOTO 360 
1200 ? "BI ad Przy dostęp le do zb 
ioru typu BOOT DISC"? "Mozę nie 
sformatowana dyskietka ? "'GOTO 
1050 

1490 REM ======================= 


1491 PEM 

1492 REM MODUŁ TWORZY Z WPROWADŹ 
ONYCH 

1493 REM DANYCH LINIE DATA PR. B 
ASIC 

1494 PEM I ZAPISUJE JE NA I ASME 
LUB 

1495 REM DYSK 

1496 REM 


1497 PEM 


1500 IF CZYT = 1 THEN ? "> "Zbiór 

ty pu DATA wprowadź lnstr. ENTER" 
FOR J*1 TO 300 NEKT J-CZYT*0 GO 
TO 370 

1505 ? '? "Podaj Początkowy nume 
r li ni DATA "INPUT NRL 
1510 ? "Podai krok numeracji ' 
INPUT KROK 

1520 IF N0S=68 THEN 1608 REM DYS 
K 

1525 REM TAŚMA 'TRAP 1800 
1 530 CLOSE #2 ' OPEN #2 , 8 . O . " C ' " ' G 
OTO 1650 

1600 ? "Podaj nazwę zbioru ".IN 

PUT Fi 

1610 I F Fi <1 . 2 > O " D ' " THEN Ti < 1 . 
2> = "D ' " ' Ti < 3 > =Fi ' GOTO 1 630 
1620 T$=Fi ' TRAP 1800 
1630 CLOSE #2 OPEN #2,8.0. Ti 
1650 FOR I =AP TO AK STEP LW 
1655 FOR J*1 TO 114 = LINIAiC J>*CH 
RiC32)'NEXT J 

1660 J =LEN < STRi c NRL > > 

1 665 LINIAiC 1, J > =STRi < NRL > = - J* J+2 
LINIAiC J > * " DATA " ■ J* J +6 
1670 FOR K=0 TO LW-1 
'1675 N=PEEK c ADR c BUF i > + 1 +K-AP > ' KO 
Di* "BOO" KODiC 4-LENcST RicM) > >*ST 
RtCN> 

1 680 LINIAiC J .) =KODi ' J * J+3 
1685 IF J.--112 THEN ? "Przekroczę 
na do p . d l . li n i i DAT A - 11 4zn " : E 
ND 

1690 IF KO LW-1 THEN LlNlAicJ >=C 
HR1C44) ' J=J+1 
1695 NEKT K 

1 700 LIN! Hi C J ;• =CHRi < 1 55 > ■ PR I NT # 
2 , L IN I Ai • NRL-'NRL+KROI< 

1705 NEXT i 
1710 END 

1 800 ? • ? " BI ad n r " 'j PEEK. C 1 95 > • 
" Podczas zapisywania linii DA 
TA" 'GOTO 1520 

1993 REM ======================= 

1994 REM«MQDUL ZAPISU/ ODCZYTU Sb* 
KT. 

1995 REM NR SEK TORA W ZM. N8 


1996 REM SKOK DO SIOV $E453 

1997 REM DIM SI0ViC4> 

1998 REM 

1999 REM ======================= 

2000 DCB=3*256 ' POKE DCB+1,1 
2004 A=ADR < SEKi ) > H= I NT < H/256 > ' L* 
A-H*256 

2006 POKE DCB+5.H POKE DCB+4,L'P 
OKE DCB+2 , 87-5*CZYT 
2008 H= I NT < NS/256 > = L-NS--H*256 
2010 POKE DCB+ 1 1 . H - POKE DCB+10 .L 
20 1 2 A*USR C ADR < S I OVi > > 

2014 RETURN 

2090 REM =========:-==*=<====*==== 


2091 REM 

2092 REM MODUŁ ODCZYTUJE/ZAPISUJ 
E 

2093 REM ZBIÓR Z TAŚMY LUB DYSKU 

2094 REM SKOK DO CIOV * łE456 10 
CB #2 

2095 REM 

2096 REM ======================= 

2100 I0CB*864 

2102 H* I NT < ADR < BUFi ) /256 ) 1 L=ADR < 
BUFi>-H*256 

2104 POKE IOCB+4. L 'POKE I0CB+5.H 
2 1 06 L»RK- AP+ 1 > H- 1 NT < L/256 ) = L=L- 
H*256 

2108 POKE IGCB+8,L‘P0KE I0CB+9.H 
2110 POKE IOCB+2, 1 1-4*CZYT 
2112 A=USR < ADR < C 1 0V$ ) > 

2114 RETURN 


2158 REM ====================== 

2151 REM 

2152 REM MODUŁ WPROWADZA DANE ST 
ERU-J. 

2153 REM PRZEBIEGIEM PROGRAMU 

2154 REM LW liczba danych w wier 
szu 

2155 REM AP adres początkowy 

2156 REM HK adres końcowy 

2157 REM NOS nośnik , T- taśma, D-dy 
sk 

2158 REM RZB rodzaj zbioru, B-bin 
arny, 

2159 REM D-boot dysk.L-linie dat 
a 

2160 REM STA adres startowy 

2161 REM =============== 


2280 ? "Liczba danych w wierszu' 

' INPUT LW 

2201 DIM Kli<7>,K2i<6>,K3f<9>.K4 
i< 1 1 > , K5t< 17) , K6$<5>, K7i<29) , K8i 
<31 ) > K9i<26) 

2282 K 1 9- " T- taśma " • K2i* " D-dy sk " 

2203 K3i*"B-binarny " = K4i="D-ty pu 
boot" 'K5i*"L-zaw. linie DATR"=K 

6i=" <T/N) " 

2204 K7i*"0 - sk.*suma danych w 
wierszu" 'K8i*"l - sk.= reszta z d 
zielenią sumy" 

2205 K9i*" danych w wierszu przez 
256" 

2210 POSITION 2,2'? "Rodzaj nosn 
ika <";Kli;",";K2$;">" 

2220 GET # 1 . NOS ! I F NOS O 84 AND N 
OS O 68 THEN 2220 
2222 IF NOS-84 THEN FOR 1=1 TO L 
ENCKli) =Kli<I, I )=CHRi<RSC<Kli< I , 
I))+128)'NEXT I 

2224 IF N0S*68 THEN FOR 1*1 TO L 
EN < K2i ) ■ K2i < I , I ) =CHRi < ASC < K2i <1 , 

I ) )+128> 1 NEXT I 

2226 POSITION 2.2'? "Rodzaj nosn 
ika <" jKI* ; ", ";K 2i; 

2230 POSITION 2,4>? "Rodzaj zbio 
u ?" 'POSITION 10.5 <? K3t ! POSITI 
iN 10.6 1 ? K4S' POSITION 18,7'? K5 
t 

2240 GET #1,RZB=IF RZB O 66 AND R 
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26068 AND RZB076 THEN 2240 

2245 PGSITION 2,9 

2250 IF RZ6=66 AND N0S=84 THEN ? 

"N-s. taśmie można zapisać tylko 
zbiór"'? "typu boot tape lub lin 
ie data" 

2255 IF RZB=6S AND N0S*84 THEN G 
OSUB 2500 

2260 IF RZB=66 AND N0S=84 THEN 2 
230 

2262 IF RZ6=66 THEN FOR 1=1 TO L 
EN < K3$ ) * K3* < M > =CHR* < ASC t K3f < I , 
I ))+l28) = NEXT I : FOS I T I ON 10,5? 
K3* 

2264 IF RZB=68 THEN FOR 1=1 TO L 
EN < K4$ ) > K4$ < I , I > =CHR* < ASC < K4$ < I , 
D)+128)<NEXT I 'PGSITION 10,6 = ? 
K4* 

2266 IF RZ6=?6 THEN FOR 1=1 TO L 
EN < K5* > = K5$ < I ; I ) =CHRf < ASC < K5* < I , 
I))+128) : NEXT I 'POSITION 10,7=? 
K5$ 

2270 IF RZ6=76 THEN 2310 

2280 POSITION 2,9= ? "Adres start 

owy % = INPUT STA 

2310 ? "Adres początkowy ";=INPU 
T AP 

2328 ? "Adres końcowy " ; = INPU 

T AK 

2330 POSITION 2,15=? "Czy beda s 
urny kontrolne ? "= POSITION 30,15 
■? K6*=SUMK=0 

2340 GET #1 , A = IF A O 84 AND A O 78 
THEN 2340 

2350 IF A=84 THEN SUHK=1 = K6*<2>= 
CHR$<212) = POSITION 30,15 = ? K6* 
2352 IF A=78 THEN K6*<4>»CHR*<20 
6) 'POSITION 30,15 = ? K6f = GOTO 242 

0 

2360 ? "Sposob obliczania sum ko 

nt rolnych" =RSK=0 

2370 POSITION 2,17=? K7* 

2380 POSITION 2,18? K8S 
2390 POSITION 6,19? K$$ 

2409 GET # 1 , A = I F A<>48 AND R<>49 
THEN 2400 

2410 IF A=49 THEN FOR 1=1 TO LEN 
<K8$) = K8f< I , I >“CHR$<ASC<K8$< 1,1) 
)+128)=NEXT I 'POSITION 2,18=? K8 

$ 


2412 IF A ==49 THEN FOR 1 = 1 TO LEN 
<K9*> = K9$< I , I > =CHR$ < ASC < K9$ < I , I ) 
>+123) =NEXT I 'POSITION 6,19=? K9 

$ 

2414 IF A=48 THEN FOR 1=1 TO LEN 
<K7*> = K?*<. I , I ) =CHR$ < ASC < K7t < 1,1) 

) + 1 28 ) = NEXT I 'POSITION 2,17 ? K7 

$ 

2416 IF A=49 THEN RSK=l 
2418 FOR 1=1 TO 300=NEXT I 
2420 RETURN 

2580 FOR 1 = 1 TO 350 = NEXT I ROSI T 
10N 2,9= ? " 

2502 ? " 

2504 RETURN 

Gdy wprowadzany kod składa się z liczb 
trzycyfrowych (można używać zer prowadzą- 
cych tzn. zamiast 1 wprowadzać 001) edytor 
sam drukuje oddzielające je przecinki. Gdy 
wprowadzane są liczby jedno- lub dwucyfro- 
we, to po wciśnięciu jednego z trzech klawi- 
szy: spacji, przecinka lub RETURN, edytor 
wyprowadzi przecinek i jest gotowy do przy- 
jęcia następnej liczby. Po wprowadzeniu 
wszystkich danych z jednej linii edytor emitu- 
je dźwięk (buczenie) sygnalizujące wprowa- 
dzanie sumy kontrolnej. Suma kontrolna mo- 
że się składać maksymalnie z czterech cyfr. Po 
jej wprowadzeniu edytor wyświetla ją auto- 
matycznie w inwcrsic wideo i porównuje ją z 
sumą kontrolną obliczoną na podstawie 
wprowadzanych w linii danych. Jeżeli obie są 
równe, edytor emituje krótki dźwięk i jest go- 
towy do wprowadzenia następnej linii kodu. 
Gdy sumy kontrolne, obliczona przez edytor i 
wprowadzona, nie są równe, edytor sygnalizu- 
je konieczność ponownego wprowadzenia li- 
nii. Korektę wprowadzonego kodu, przed po- 
daniem surny kontrolnej, można dokonać, ka- 
sując określone liczby kodu klawiszem 
DELETE/BACK/ SPACE i wpisując je po- 
nownie. 

Edytor wykonuje cztery komendy, prze- 
znaczone do zapisu i odczytu wprowadzonego 


kodu na taśmę lub dysk oraz przydatne przy 
wprowadzaniu kodu z długiego listingu. Ko- 
mendy te można wydać w dowolnym momencie 
pracy z edytorem, wciskając jednocześnie na- 
stępujące klawisze: 

CONTROL — S — zapisuje wprowadzony 
kod maszynowy na taśmę lub dysk, tworząc 
zbiór określony opcją B, D lub L, 
CONTROL — L — wprowadza do pamięci 
mikrokomputera kod maszynowy z taśmy lub 
dysku, 

CONTROL — D — wyświetla na ekranie 
monitora kod maszynowy, aktualnie wprowa- 
dzany lub wczytany z urządzenia zewnętrzne- 
go. 

CONTROL — N — komenda ta jest przy- 
datna do wprow*4» ania kodu maszynowego w 
kilku etapach. Na przykład, chcemy wprowa- 
dzić program w kodzie maszynowym, o adre- 
sie początkowym równym 20000 i adres koń- 
cowy równy 30000. Rozpoczynamy pracę z 
edytorem i po wprowadzeniu 1000 bajtów ko- 
du chcemy ją przerwać. W tej sytuacji ko- 
mendą CONTROL-— S zapisujemy wprowa- 
dzony kod na taśmę lub dysk i zapamiętujemy 
adres, na którym przerwaliśmy wprowadza- 
nie. Po pewnym czasie, gdy będziemy chcieli 
kontynuować wprowadzanie, komendą 
CONTROL — L wczytujemy wcześniej wpro- 
wadzony, zapisany na taśmie lub dysku, kod 
do pamięci i komendą CONTROL — N poda- 
jemy edytorowi adres, od którego chcemy 
kontynuować wprowadzanie — w tym przy- 
kładzie jest to adres 21000. 

Program MCEDYTOR znacznie uspraw- 
nia wprowadzanie kodu maszynowego z do- 
wolnych listingów do pamięci mikrokompute- 
ra. Kontrolując wprowadzanie liczby kodu, 
odciąża użytkownika, skracając przez to czas 
wprowadzania. Ponadto gwarantuje, że 
wprowadzony kod będzie pozbawiony błę- 
dów. 

H. KRASUSKI 
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HS 
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BB 
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Liga Myślących 


Zadanie 1 

W koszyku znajduje się 30 j ajek w trzech gatunkach. Jatek drugiego 
gatunku jest dwa razy więcej niż pierwszego, a jajek trzeciego gatunku 
test trzy razy mmei mz pierwszego gatunku. Jakie jest prawdopodo- 
bieństwo, że losowo wyciągnięte z koszyka tajko będzie drugiego ga- 
tunku? 

Zadanie 2 

1 V gospodarstwie rolnym w i 983 roku zebrano pszenicę z 36 ha. Na 
rok 1984 zaplanowano wzrost wydajności plonów z 1 ha o 8 proc... 
wzrost całego zbioru pszenicy o 20 proc. w stosunku do roku 1983. O ile 
hektarów trzeba zwiększyć obszar uprawy pszenicy, aby wykonać ten 
plan? 

Zadanie 3 

Należy znaleźć taką liczbę dwucyfrową, żeby je/ suma cytr wynosiła 9 
i żeby po przestawieniu je / cytr otrzymać: 

1 ) liczbę mniejszą od połowy szukanej liczby, 

2) liczbę większą od potowy szukanej liczby. 


Rozwiązując zadanie znajdźcie wszystkie liczby w każdym z przypad- 
ków. 

Zadanie 4 

Dwie maszyny pracujące z dwóch stron tunelu powinny zakończyć 
przekop w ciągu 60 dni . Jeżeli pierwsza maszyna wykona 30 proc. swej 
pracy, a druga 26$ proc. swej pracy, lo obie wykopią 66 m tunelu. Gdy- 
by zaś pierwsza maszyna wykonała całej pracy drugiej maszyny, a 
druga 0.3 całej pracy pierwsze / maszyny, to pierwsza maszyna praco- 
wałaby o 6 dni dłużej niż druga. Wyznaczyć o ile metrów dziennie prze- 
suwa się każda maszyna? 

Zadanie 5 

Przy badaniu ekonomiczności dwóch silników spalinowych o jedna- 
kowej mocy stwierdzono, że jeden z nich zużył 600 g benzyny, a drugi, 
pracując o 2 godziny krócej, zużył 384 g benzyny Gdyby pierwszy silnik 
zużywał na godzinę tyle benzyny, ile drugi, a drugi tyle ile pierwszy, to, 
przy tym samym czasie pracy każdego z nich, co poprzednio, zużycie 
benzyny w ohu silnikach byłoby jednakowe. 

Ile benzyny na godzinę zużywa każdy silnik? 


Rozwiązania zadań prosimy przesyłać do redakcji do końca stycznia 1988 r. z dopiskiem „Liga Myślących”. Punktacja zale- 
ży od liczby prawidłowych rozwiązań. Wśród uczestników rozlosujemy książki, a na zwycięzców „Ligi” czekają dodatko- 
we cenne nagrody-niespodzianki. 


Mikrokomputery IBM PC (cz. 6) 

Charakterystyka 

oprogramowania 

Szybkość mikroprocesorów INTEL 8088 i 80286 oraz współpracu- 
jących z nimi koprocesorów arytmetycznych, pojemność i czas do- 
stępu do pamięci zapisywalnej oraz pamięci zewnętrznych (dyskietki, 
dyski stałe), a także rozdzielczość kart graficznych (CGA, EGA, 
HERCULES, MA) pozwalają wykorzystywać mikrokomputery 
IBM PC i kompatybilne do różnych celów. Wśród zastosowań mo- 
żna wymienić: 

— małe i średnic systemy wspomagania projektowania (CAD/- 

CAE); 

— stacje graficzne systemów komputerowych; 

— systemy pomiarowe, sterowania i uruchamiania; 

— systemy biurowe, a wśród nich: programy gromadzenia danych, 
programy analizy statystycznej, programy finansowe, edytory 
(procesory) tekstów; 

— systemy medyczne np. intensywnej terapii; 

— systemy edukacyjne. 

Mikrokomputery wykorzystywane są przez dyrektorów i sekretar- 
ki, urzędników i nauczycieli, artystów i lekarzy, inżynierów mechani- 
ków, elektroników i architektów. Niedoskonałości rozwiązań kons- 
trukcyjnych mikrokomputerów PC rekompensowane są przez opro- 
gramowanie, którego wybór zadowolić może większość użytkowni- 
ków. 

Przypomnijmy, wśród systemów operacyjnych podstawowym 
jest DOS, popularnie wykorzystywany. Użytkownik mający dysk sta- 
ły może założyć na nim kilka partycji, każda z innym systemem ope- 
racyjnym. Mogą to być: 

— CONCURRENT DOS, wielozadaniowy okienkowy system ope- 
racyjny, umożliwiający równoczesne wykonywanie do czterech 
zadań, każde w oddzielnym oknie: 

— CP/M-8Ó, system, który powstał w wyniku rozwinięcia proceso- 
rów 8-bitowych; 

— CONCURRENT CP/M-86, wielozadaniowy i wielostanowi- 
skowy system, umożliwiający wprowadzenie do 16 terminali logi- 
cznych i obsługę do 16 stacji dysków; 

— XENIX-286, system umożliwiający pracę wieloprogramową i , 
wielodostępną, wzorowany na systemie UNIX, a przeznaczony 

dla IM B PC/ AT. 


Olbrzymia gruj/ oprogramowania to języki programowania, 
im kompilatory, interpretery, biblioteki z różnymi procedurami, np. 
graficznymi, translatory itp. 

Język ADA reprezentowany jest przez Artek ADA Compiter fir- 
my Artck Co. i Janusz ADA D-Pack, pakiet m.in. z kompilatorem 
asemblerem, programem łączącym, optymalizującym firmy RR Soft- 
ware. Ta ostatnia firma oferuje również translator z języka Pascal na 
język ADA. 

Dla użytkowników piszących programy w kodzie maszynowym 
przygotowano wiele propozycji, wśród których najciekawszą jest 
chyba MACRO ASSEMBLER-86 firmy MicroSoft w.4.0, umożli- 
wiający translację programów w kodzie maszynowym procesorów 
INTEL 8088 lub 8086 na relokowalny kod maszynowy oraz dopu- 
szczający używanie makroinstrukcji i pscudoinstrukcji. 

Język BASIC, bardzo popularny, zwłaszcza wśród początkują- 
cych, chyba najlepiej reprezentowany jest przez: 

— BASIC Ćompiler firmy MicroSoft, odznaczający się podwójną 
precyzją, wyposażony w łańcuchy i bloki „common”, tworzący 

po dołączeniu biblioteki programy przeznaczone do bezpośredniego 
wykonywania (typu. EXE); 

— Turbo BASIC firmy Borland, tworzący programy typu EXE, z 
własnym edytorem, programem łączącym i bibliotekę, umożliwia- 
jący obsługę karty EGA i koprocesorów 8087/80287; 

— Better BASIC-, kompilator firmy Summit Software. 

Język C na mikrokomputerach PC, obecnie najpopularniejszy, zc 
względu na swoje cechy, język programowania, dostępny jest: 

— kompilatorem MS C w 4.00 firmy MicroSoft, który ma pięć mo- 
deli pamięci, możliwość łączenia różnych modeli w pojedynczym 
programie, bogatą bibliotekę (200 funkcji), kompatybilny jest z 
XENIX 286 oraz możliwość łączenia programów napisanych w MSC 
z napisanymi w MS FORTRAN-ic, MS Pascalu, MS MACRO 
ASSEMBLER-ze; 

— kompilatorem Aztec C86-c firmy Manx, będącym standardem w 
systemie operacyjnym UNIX i uważanym za najlepszy kompilator 
języka C; 

— najnowszą propozycją firmy Borland Turbo C, będącym najszyb- 
szym chyba kompilatorcfti; 

— innymi popularnymi kompilatorami: Lattice C, Mark Williams 
C, Wizard C; 

— interpreterem Run/C, realizującym całkowicie standard języka i 
będącym wprowadzeniem do programowania. 

Wielu projektantów systemów mikroprocesorowych wykorzystuje 
cross — assetnblery, które na mikrokomputerach PC dostępne są 
dla mikroprocesorów: 

— ZILOG: Z8, Z80, Ż8000; 

— MOTOROLA: 6809, 6804, 68000; 

— INTEL: 8080, 8085, 8089, 8049/41/51, 8096; 


- MOS TECHNOLOGY: 6501, 6502. 

Dla użytkowników języka COBOL dostępne są kompilatory: 
MBP Cobol firmy MBP Software, MS COBOL-86 firmy Micro- 
soft, RM/COBOL-86 firmy Ryan McFarland pracujący pod 
CM/M-86. 

Język FORTH ma dwóch ciekawych reprezentantów, są to: HS/- * 
FORTH firmy Harvard Softworks i PC/FORTH + firmy Lah. Mic- 
ro. 

Do dziś bardzo popularnym językiem programowania jest FOR- 
TRAN, wśród jego kompilatorów na uwagę zasługują: MS FORTRAN 
w.4.00, RM/FORTRAN oraz FORTRAN-77 firmy Softech Micro- 
systems. 

Język LIST najlepiej reprezentowany jest przez pakiet GC LIST 
firmy Gold Hill Computcrs, a język LOGO — przez PC LOGO, 
firmowany przez Harvard Assoc. 

MODULA-2 , język do programowania strukturalnego, z możli- 
wością tworzenia niezależnych modułów programowych i własnych 
typów danych, dostępny pakietami: LOGITECH MODULA-2/86 
PLUS, MODULA II BY YOLITION SYSTEMS i M2SDS firmy 
Interfacc Tech. Corp. 

Język PASCAL reprezentowany jest przez: kompilator firmy 
MicroSoft, kompilujący moduły do 64 kB i łączący programy o dłu- 
gości do 1 MB; pakiet Pascal MT+, zawierający m.in.: kompilator, 
asembler, konsolidator, program uruchamiania (debugger) i biblio- 
tekę procedur pomocniczych oraz kompilator firmy Borland Turbo 
Pascal, łącznic z biblioteką procedur graficznych Turbo Graphix, 
najpopularniejszy i powszechnie wykorzystywany. Kompilator Tur- 
bo Pascal ma możliwość swobodnego dostępu do pamięci operacyjnej 
i portów we/wy i może współpracować z koprocesorem arytmety- 
cznym. Zbiór procedur graficznych Turbo Graphix może być wyko- 
rzystywany przez użytkowników do tworzenia własnych programów 
graficznych i obsługuje zarówno kolorową kartę graficzną, jak i mo- 
nochromatyczną. Początkujący użytkownicy mogą korzystać z pro- 
gramu ALICE. 

Najlepszym reprezentantem języka PROLOG jest również pakiet 
firmy Borland o nazwie Turbo Prolog. 

Wśród języków symulacyjnych dotychczas jedynym reprezentan- 
tem jest GPSS. 

Kolejną grupą programów są pakiety zintegrowane i programy 
finansowe, wśród których najpopularniejszymi są FRAMEWORK, 
LOTUS 1-2-3, SYMPHONY, OPENACCESS, MULTIPLAN, 
SUPERCALC, VISICALC. 

FRAMEWORK jest pakietem zawierającym arkusz elektroniczny, 
bazę danych, edytor tekstowy, graficzne zobrazowanie danych oraz 
program komunikacyjny. 

LOTUS 1-2-3 zawiera arkusz elektroniczny o wymiarach 2048 
wierszy i 256 kolumn, do 240 znaków w komórce, umożliwiający gra- 
ficzne zobrazowanie danych, automatyczną rekalkulację, makroins- 
trukcje i różnorodne operacje na tabelach. 

S Y MPHON Y jest pakietem zintegrowanym zawierającym arkusz 
elektroniczny (8192 wiersze i 256 kolumn), bazę danych, graficzne 
zobrazowanie danych, edytor tekstów i moduł służący do komunika- 
cji. 

OPENACCESS to pakiet oparty na relacyjnej bazie danych, za- 
wierającej do 30 000 rekordów, arkusz elektroniczny, edytor tekstów, 
trójwymiarowe zobrazowanie danych oraz moduł komunikacyjny. 

MULTIPLAN to program zawierający arkusz elektroniczny 

0 wymiarze 255 wierszy i 63 kolumny, umożliwiający przechowywa- 
nie danych oraz automatyczną rekalkulację i prognozowanie. 

SUPERCALC zawiera arkusz elektroniczny o wymiarze 254 wier- 
sze i 63 kolumny. Ekran monitora może być dzielony na 2 okienka 
do przeglądania 2 tabel. Program umożliwia wykonywanie operacji 
na tabelach i automatyczną rekalkulację. Podobne możliwości ma 
program VISICALC. 

W grupie programów bazy danych można wymienić: DBASE III, 

1 DBASE III Plus, RBASE 4000 i 5000, dB VISTA. 

DBASE III jest systemem zarządzania relacyjną bazą danych, 
umożliwiającym pisanie programów do zautomatyzowanej obsługi 
danych. Baza może zawierać 1 miliard rekordów, a rekord do 128 pól 
pięciu typów. System umożliwia pracę z 15 zbiorami jednocześnie. 
Do kompilacji komend wykonywanych w trybie interpretacyjnym 
może być wykorzystany CLIPPER dB III Compiler. 

RBASE 4000 jest to system obsługi relacyjnych baz danych zawie- 
rających do 100 miliardów rekordów, przy 2,5 miliardzie rekordów 
w zbiorze. Umożliwia wykonywanie wszelkich operacji na zbiorach 
i rekordach. 

Wśród edytorów dużą popularnością cieszą się SPF/PC i IBM 
Professional EDIT. A wśród edytorów (procesorów) tekstów 
WORDSTAR, WORDSTAR 2000, MS WORD, CHI WRITER. 


WORDSTAR 2000 umożliwia redakcję i korektę tekstów, zapa- 
miętywanie zdań, definiowanie formatu drukowanego tekstu, spraw- 
dzanie poprawności pisowni, automatyczną obsługę korespondencji 
i przesyłanie zbiorów. 

CHI WRITER jest edytorem pracującym na stronic graficznej, 
ma 18 typów klawiatur (wersja 2.04), m.in. z literami polskimi. 
Umożliwia definiowanie własnych znaków. 

Kolejna grupa programów to programy komunikacyjne, transmitu- 
jące i konwersji. Wśród nich można wymienić CROSSTALK XVI, 
pakiet komunikacyjny do emulowania terminali; programy konwersji 
dBASE II/III to C, PASCAL — to — MODULA-2, 

Następna grupa programów to programy narzędziowe systemowe, 
umożliwiające wszelkie operacje na zbiorach, np.: kopiowanie, usu- 
wanie, porządkowanie, zmiana atrybutów; odzyskiwanie utraconych 
zbiorów itp. Można tu w^njienić: XTREE, PC TOOLS, NORTON 
UTILITIES, NORTON COMMANDER, NORTON INTE- 
GRATOR, EXPLORER. 

Dodatkiem do kompilatorów są biblioteki z procedurami matema- 
tycznymi i graficznymi. Wśród bibliotek matematycznych do języka 
FORTRAN popularne są: SSP, SANDIA i IMSL. Inną powszech- 
nie wykorzystywaną, wymienioną wcześniej biblioteką jest Turbo 
GRAPHIX, zawierająca procedury graficzne do kompilatora firmy 
Borland Turbo PASCAL. Umożliwiają one rysowanie podstawo- 
wych elementów geometrycznych (linie, punkty, okręgi, elipsy), 
umieszczenie ich w przesuwalnych oknach, rysowanie obiektów zło- 
żonych, np. histogramów. Procedury umożliwiają łatwą manipulację 
obiektami, oknami. Innym przykładem jest pakiet STATGRA- 
PHICS (Statistical Graphics System), uzupełniający działanie pro- 
gramów dBASE III, LOTUS 1-2-3, SYMPHONY. Pakiet zawiera 
255 procedur z zakresu analizy wariancji, analizy regresji, analizy 
danych eksperymentalnych oraz analizy szeregów czasowych. Istotną 
cechą pakietu jest zobrazowanie wyników analizy, w formie atrakcyj- 
nych dwu- lub trójwymiarowych kolorowych wykresów. W układzie 
współrzędnych (X, Y) można przedstawić punkty, linie, histogramy, 
krzywe. W układzie współrzędnych (X, Y, Z) można przedstawić 
punkty, linie, krzywe, powierzchnie. Pakiet współrzędnych z 5 typa- 
mi ploterów, umożliwia wykonanie rysunku w 8 kolorach. 

Projektowanie wspomagane komputerem, czyli zastosowanie 
komputera do prac projektowych, wykorzystywane przez mechani- 
ków, elektroników, architektów i artystów obejmuje także przetwa- 
rzanie danych geometrycznych (graficznych). 

Możliwości oprogramowania z grupy CAD (ang. Computer Aided 
Desing — projektowanie wspomagane komputerem) i C.AE (ang. 
Computer Aided Enginnering — inżynieria wspomagana kompute- 
rem) zależą od budowy programu oraz struktury danych. 

Projektant używając np. edytora rysunków systemu dwuwymiaro- 
wego, wykorzystując podstawowe elementy geometryczne (punkt, 
prosta, łuk, okrąg) lub figury (obiekty) zdefiniowane i wcześniej 
umieszczone w bibliotece graficznej, edytuje i kopiuje rysunki, zmie- 
nia skale i wymiaruje, nasuwa fragmenty rysunku, łączy rysunki wy- 
woływane z biblioteki. Efektywność działania z programem zależy od 
wielkości zbioru poleceń edytora rysunku. 

Kolejnym ważnym składnikiem systemu jest sprzęt. Korzystanie 
z systemu wspomagania projektowania na minikomputerze jest bar- 
dzo kosztowne, a wykorzystywanie całego ośrodka obliczeniowego 
wiąże się z ograniczeniem dostępu projektantów do systemu. Nato- 
miast system mikrokomputerowy w następującej konfiguracji sprzę- 
towej: mikroprocesor 80 286, koprocesor arytmetyczny 80 287, dysk 
stały 40 MB, stacje dysków elastycznych 1,2 MB, karta graficzna 
EGA, pamięć operacyjna 4 MB, monitor jednostki centralnej oraz 
monitor graficzny wysokiej rozdzielczości, digitizer z myszką, ploter 
o formacie A3 (B) niejednokrotnie wystarcza. Plotery o większych 
formatach zapewniają lepszą rozdzielczość, ale są drogie. 

Najbardziej popularnym systemem grafiki dwuwymiarowej jest 
program AutoCAD, umożliwiający narysowanie praktycznie każdego 
obiektu i opisanie go. 

Rozdzielczość systemu zależy od wykorzystywanego sprzętu, tzn. 
od digitizerów wprowadzających dane i ploterów, na które wyprowa- 
dzane są rysunki, nie jest wewnętrzną rozdzielczością AutoCAD-a. 
Wpływ na rozdzielczość mają również karta graficzna komputera 
oraz zastosowanie monitora wysokiej rozdzielczości. Program nic 
narzuca formatu rysunku, może być to A0. 

Rysunek wykonywany za pomocą AutoCAD-u to zbiór informacji, 
które opisują obraz graficzny. Może mieć dowolny wymiar, może być 
narysowany w dowolnych jednostkach miary: calach, stopach, mili- 
metrach, angstrcmach. 

Praca systemu może być prowadzona w trybie konwersacyjnym 
lub w trybie wyboru komendy z zestawu komend (menu). 
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Ekran monitora, w razie wykorzystywania go również do edycji ry- 
sunków, dzieli się na trzy obszary: komunikatów, zestawu komend, 
edycji rysunku. 

Edytowany rysunek tworzony jest z podstawowych elementów 
graficznych: punktów, linii, łuków, okręgów, tekstów. Z elementów 
tych można budować obiekty złożone i manipulować nimi, powięk- 
szyć fragment lub szczegół edytowanego rysunku. Każdemu punk- 
towi na ekranie odpowiada punkt w układzie współrzędnych (X, Y). 

Program umożliwia definiowanie warstw rysunku, przypisanie do 
warstwy koloru i typu linii, powiększenie lub zmniejszenie rysunku 
(fragmentu). Możliwe jest tworzenie własnego zestawu komend 
z przygotowanych rysunków. 

Do pakietu podstawowego ACAD dołączone są moduły zapewnia- 
jące: półautomatyczne wymiarowanie, szkicowanie odręczne, trój- 
wymiarowy układ współrzędnych. 

Podczas edytowania rysunków można wykorzystać bibliotekę z ele- 
mentami (np. elektronicznymi, mechanicznymi). 

RoboCAD jest systemem,' który może pracować na wielu typach 
mikrokomputerów, między innymi IBM PC, APPLE. 

System ma w porównaniu z AutoCAD-em wiele zalet. Oto niektó- 
re z nich: edytor rysunków zaopatrzony jest w dużo większy zbiór po- 
leceń, jest efektywniejszy w użyciu. Biblioteką graficzną łatwo się pos- 
ługiwać, do wywołania lub zapisania do niej elementu czy rysunku 
wystarczy jeden ruch. Zmiana jednostek miary obiektu zapisanego 
wcześniej w bibliotece i wstawienie go w inny obiekt, usuwanie frag- 
mentów rysunku, czyli czynności decydujące o szybkości systemu 
graficznego — są w programie RoboCAD rozwiązane bardzo efek- 
tywnie. Program ma automatyczne wymiarowanie oraz podręczny 
edytor tekstów i bazę danych. 

Grafika komputerowa jest integralną częścią programów z grupy 
CAE. Programy te umożliwiają np. konstruowanie, analizę i symula- 
cję działania układów elektronicznych oraz wykonanie płytek druko- 
wanych układów. Powyższe czynności można wykonać za pomocą 
specjalizowanych pakietów lub współpracujących ze sobą progra- 
mów. 

PCAD jest systemem komputerowego wspomagania projektowa- 
nia płytek drukowanych wielowarstwowych i tworzenia dokumenta- 
cji technicznej. 

System PCAD przeznaczony jest do: wprowadzania schematów 
ideowych układów elektronicznych, analizy i symulacji układów elek- 
tronicznych, automatycznego lub półautomatycznego projektowania 
płytek drukowanych oraz sporządzania dokumentacji technicznej, 
obejmującej kliszę ścieżek, rysunku montażowego, schematu ideowe- 
go układu, maski lutowniczej, wykazu użytych elementów. 


W skład biblioteki programu wchodzi około 400 układów TTL, 
około 100 elementów dyskretnych, około 200 układów liniowych, 
około 160 układów CMOS, około 160 układów dużej skali integracji 
firmy INTEL. 

Istnieje wiele mniejszych programów przeznaczonych do projek- 
towania analizy i symulacji działania układów analogowych i cyfro- 
wych, do projektowania płytek drukowanych i sporządzania schema- 
tów ideowych itp. 

Oto niektóre z nich: 

MICRO CAP — przeznaczony jest do projektowania, analizy i sy- 
mulacji działania układów analogowych. Zawiera 
bibliotekę, w której znajdują się następujące ele- 
menty: rozmieszczenie operacyjne, tranzystory 
bipolarne i unipolarne, źródła prądowe i napię- 
ciowe, przełączniki, diody i inne elementy dys- 
kretne. Po zaprojektowaniu układu — prowadzona 
jest symulacja, której wynikiem są charakterysty- 
ki częstotliwościowe i amplitudowe. Program 
umożliwia prowadzenie analizy Fouriera,. Duże 
znaczenie ma zobrazowanie wyników analizy, 
rozdzielczość optymalnych przebiegów. 

MICRO LOGIC — jest programem przeznaczonym do projekto- 
wania, analizy i symulacji działania układów 
cyfrowych. Program uzupełnia działanie 
MICRO CAP-a. 

ANALOP — analizuje i optymalizuje dwukrotne układy liniowe 
w dziedzinie częstotliwości. Pozwala analizować sze- 
regowe, równoległe, kaskadowe oraz rozgałęzienia 
i ich kombinacje, uwzględniając nawet układy z ze- 
spolonym sprzężeniem zwrotnym. Maksymalnie mo- 
żna wprowadzić 200 elementów. Optymalizacja może 
być prowadzona dla 15 zmiennych na 15 częstotli- 
wościach. Macierzą rozproszenia można opisać do 10 
układów jednowrotnych lub dwuwrotnych. Specyfi- 
kacja optymalizacji może być prowadzona w sposób 
elastyczny, zarówno dla fazy, jak i magnitudy. Pro- 
gram ANALOP analizuje niesymetryczne linie pa- 
skowe. 

NODAL — przeznaczony jest do analizy symetrycznych i niesyme- 
trycznych linii paskowych. Jako wynik analizy otrzy- 
mywany jest wykres Smithca. 

Jacek WÓJT ALA 


Giełda pomysłów 

ZEGAR — ZX Spectrum 

Po uruchomieniu programu w prawym 
górnym rogu ukazuje się zegar 
(GG:MM:SS). Ponieważ jego obsługa jest 
wykonana na przerwaniach, sprawia to wra- 
żenie nieabsorbowania komputera, który 
może w tym samym czasie wykonywać inne 
zadania (np. wykonywanie programu inter- 
pretera języka BASIC). 

URUCHOMIENIE 

1 ) wpisać program nr 2 i nagrać go na mag- 
netofon 

SAVE „ZEGAR" LINĘ 10 

2) wykonać komendę NEW 

3) wpisać i wykonać program nr 1 . Program 
ten będzie zgrywał dwie części kodu ma- 
szynowego, który należy nagrać za nagra- 
nym wcześniej programem nr 2. 

4) cofnąć taśmę przed programem numer 2 
i wykonać: 

LOAD „ZEGAR" 

5) wykonać polecenia zawarte w programie. 

UWAGA: Zegar zatrzymuje się przy pracy 
komputera z magnetofonem, Obszar pa- 
mięci od adresu 64700 nie może być zmie- 
niany. 

R. FOLTYNIEWICZ 


10 REM ( 
SC SLFB 


50 NEXT . 
e-0 READ I : IF ; < 

?T itót" ZLE DfiNE u 

70 R fiN DO 

100 REM lł ~-- r 

110 LET a=l^TS LET Ur, i a =310 
„120 LET t=0 FOR f = l TO 10 REPi 
0 i.: LET S =£ + !.■ POP E a,l. IF a =6 
5475 THEN CO TO 600 
130 LET ar.a + 1. NEXT f 
140 READ l. : IF £ < > i THEN RRINT 

RT 6,7, "POPRAWIĆ LINIE ",Unia 
STOP 

150 let t i ni a *t in i a + l© if a <65 
4^THEN 

50,33,0 , 253 , Ś“o;Ś4, 254 , ÓS 16 25 i 
. 54 ,554 , 201 .2120 


30Ó REM 

310 ORTR 24T7T. 
9, £2 lj 229, 33, £ 19 


i,253,2£ 


213.229 
:06S 

75,190.32,82,5 


320 ÓfiTfi 

4, 1,43,53,931 
330 DATA 175,190.32,64,54 
.££0.255.205,1298 
340 DfiTP 96, 256, 32, 63, 54, 46,3' 
205 , 102 R** 


— - , 1147 
350 DATA 32.55,54 .43,38,35,205, 
" 32,649 

— .. __ ,102,25 


VO , a “6 , . 52 , 04 V 

360 DPT fi 46,54,46,35 
5.32.36. 54, £69 
370 DAT fi 43,35,35. 
32.10,43.540 
360 DATA 62,5 


24 


,43 ,' 


390 OfiTA 205,96. 
,35.62.50,551 
400 DAT P 190,32, 
~ '• .77 ,555 


4i0 DATA ._ 

0 201 .14.0. 10.. 

42C DATA £53,33.31 
0 . 255 , 9 , 904 
4 30 DATA 12t,197.£i 
3,253 .43 , 12 ,62 , 1450 
440 DATA 6 . 165 . 32 . 236 
-2.937 


0,190, 

190,32,22,54,45, , 
5.32, 12 .54,46 
54,45 ,24,80,5 
57 , 190,201 , 62 , 53 , 19 

4,6,0,33,22 
,134,255,19 
'4 .41,221 


470 DATA 119, £21, 35, £5, 16,247,3 
3,24,86,6,614 

460 DATA 6,54,71,35,16,251,201, 
221,225,252,1335 

490 DATA £25.225,209,193,241,19 

5,56,0.62,253,1659 

600 DAT A 237.71 , 237 , 94 , 201 , 237 , 

600 W REM |^Eg|^maBEligBu 65 B 8 i 

610 PRINT AT 0,5: PrzrfjotUj BiS9 
neto fon" 

62C SAUE "dane . l“CODE 64768,257 
.630 SAUE "dane .2"C0DE 65276 195 

71C FiPIllT AT 10,10. 


zewidujesz urzycie ziacza krawed 
ziowego podczas działania progra 
nu i 1 /n 1 '• , 

20 input ac 

30 IF a$»"n" OR a*="N" THEN CO 
T 0 50 

40 CLEAR 64767: LOAD ""CODĘ 64 
768 LOAD '•"CODĘ 65278: 00 TO 10 

50 CLEAR 65022 LOAD ""CODĘ 65 
023: LOAD ""CODĘ 65278 

105 REM atrybuty 

110 CLS PRINT AT 10 , 0 ; "PODAJ : 

120 PRINT AT 11,0; "KOLOR TLH CY 
FR 0-7": INPUT a 

130 PRINT AT 11,0; "KOLOR ATRAME 
NTU CYFR" : INPUT b 

140 PRINT AT 11 . 0; "PODWYŻSZONA 
JASKRAWOŚĆ t(l*/nl0l": INPUT C 

150 POKE 65450 ,a*8 + b + C*64 
200 REM godzina 

210 CLS : PRINT AT 10,0; FLASH 
1; "Podaj czas: gg-»i»:ss" 

220 INPUT CC 

230 IF LEN CC 08 THEN CO TO 220 
240 LET ad =65503 FOR n*l TO 8 
250 POKE ad -n, CODĘ cem) 

260 NEXT r> 

270 CLS : PRINT AT 0,24; CC 
280 PRINT RT 10,0, "ABY URUCHOMI 
C ZECAR SKASUJ TERAZTEN PROGRAM 
KOMENDA SgU. MASTEPNIĘ . IJP 

poufipz : aaiiiwniirmiri 

i£9Ó PRINT RT 15.0; " ZATPZ ,'HhN IE . 

z|£ara wmmamoB 
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IKS — Informatyczny słownik angielsko-polski 


BIQUINARY NOTATIOM - zapis dwupiątkowy, notacja dwu- 
piątkowa, 

0ISECTOR - dwusieczna. 

BISTABLE - bistabilny. dwustabilny, dwustanowy, 
BISTABLE CIRCUIT - przerzutnik bistabilny. 

BISTABLE ELEMENT - element bl stabilny. 

BISTABLE LATCH - zatrzask <typ przer zutni ka> , 
BISTABLE TRI GOFR ELEMENT - przerzutnik bi stabilny. 
BIT - bit, jednostka miary określająca zawartość 
informacyjną wiadomości, 

BIT CONF1 GURATI ON - wzorzec dwuwartoSc i owy . wzorzec 
binarny, szablon binarny, 

BIT DENSITY - gęstość zapisu binarnego. 

BIT ERROR PROBABILITY - stopa błędów bitowa. 

BIT ERROR RATĘ - elementarna (bitowa! stop; błędu, 
stosunek bitów błędnych do całkowitej liczby bitów 
transn.1 towanych. 

BIT MAPPING DISPLAY - grafika punktowa. 

BIT PACKING DENSITY - gęstość zapisu binarnego. 

8-BIT PARALLEL PERIPHERIAL I NTERFACE ADAPTER - 
równoległy fi- bitowy adapter. 

BIT PATTERN - w.orzec dwuwar toSci owy , wzorzec binar- 
ny. szablon binarny, 

BIT PER SEC ONI) - bitów na sei.undę ł szybkość zapisu), 
BIT POSITION - pozycja bitu, 

BIT RATĘ - szybkość transmisji bitów, 

BIT SIGNIFICANT pozycja znacząca bitowo, 

BIT-BY-BIT ORGANIZATION - organizacja pamięci z dos- 
tępem bitowym.. 

BIT-SLICE MI CRoPROCESSOR - mi kr oprocesor segmentowy. 
BIT-SLICED ARCHI TECTURE - architektura segmentowa. 
BITS PER INCH liczba bitów na cal. 

BI U - patrz: BUS I NTERFACE UNIT, 

BLACK BOX - "czarna skrzynia - , urządzenie lup proce; 
o nie znanej zasaszie. takie: układ gezie znane są 
jedynie wejścia i wyjścia, 

BLANK - znal pusty, tai że: przerwa, odstęp mięjzy- 
1 mpulsowy, 

BLANK BIT - bit pusty. 

BLANK CHARAC I ER - znal odstępu, spacja, 

BLANK COIL - » rążel r.ie wyi: luri owa .i ej ue.r,,-. 

BLANK CYCLE - cykl pust . , 

BLANK FORM - fo' ».uiarz, or ul . 

BLANK INSTRUCTION - rozi.az ousty. rcziaz ‘n:c me 
rób" , 

BLANK POSITION - pozycja pusta. 

BLANK TAPE - taśma czysta. 

BLANKED ELEMENT element niewidzialny (me poja- 
wia się na urządzeniu graficznym, zmienia tylko po- 
zycje elementu kreślącego obraz). 

BLANKI NG - wygaszanie, wymaz ywar.i e wybiórcze, 

BLEED - takie: wyciek kapilarny farby drukar sklej 
pcza kontury znaku, 

BLINKING,- migotanie (służy do wyróżr.i ar. i a fragmentu 
obrazu) , 

BŁOCK - blok fizyczny, blok (część programu), 

BŁOCK ADDRESS - adres bloku. 

BŁOCK CANCEL CHARACTER - znal pominięcia bloku. 

BŁOCK CHECK - sprawdzanie bloku. 

BŁOCK COUNT - liczenie blolow, 

BŁOCK COUNTER - licznik fclolów, 

BŁOCK END PROTEl TI ON CHARACTER - znal zabezpiecza- 


BLOCK FACTOR - współczynnik blokowania, 

BŁOCK FORMAT - format bloku, 

BŁOCK GAP - przerwa międzybl okowa, przerwa bloiowa, 
BŁOCK HANDWRITING RE A DER - czytnik pisma ręcznego 
bl ok owego, 

BŁOCK IGNORE CHARACTER - znal pominięcia bloku, 

BŁOCK LENGHT - długość bloku, 

BŁOCK OF WORDS - blok słów (komputerowyer.) . 

BŁOCK PROTECTI ON - zabezpieczanie blokowe. 

BŁOCK SELECTION TIME - czas znalezienia blolu (fizy- 

Bl.OCK SI ZE - długość bloku, 

BŁOCK TRANSFER - przesyłanie (informacji) blokowe. 
BŁOCK WR1TING - pisanie bloku, 

BLOCK-ORJ ENT ED RAM - parni ec RAM o strukturze tło- 
kowej , 

BLOCKED RECORD - zapis zblokowany. 

BLOCKING - tworzerie bloków, łączenie zapisów-tre 
kordów) w bloki. 

BLOCKING FACTOR - współczynnik zblokowania. 

BLOWFR - dmuchawa, wentylator (np. w przewijaczu 
taśmy) , 

BLUEPRI NT - swi atl ol opi a, także: odLitka na swiatło- 
kop ii, 

BLUNDER - poważna pomyłka, znaczna pomyłka, 

BLUR - zaciera:, zamazywać, 

BOARD - płyta, tablica, tablica połączeń, tablica 
(deska) rozdzielcza, 

BODY-PUNCHED ASPF.CT CARD - karta przezierna. 

BOLDFACE - tłusty druk. 


BOND - złącze, łącznik, 

BOND1NG PAD - pole kontaktowe (w strukturze układu 
scal onego) . 

BOOKKEEPING MACHINĘ - maszyna do księgowania, 
BUOKKEEPI NG OPERATION - operacje pomocnicze (przy 
porządkowaniu danych', 

BOOLEAN ALGEBRA - aigebra BOOLEa. 

BOOLEAN VaLUE - wa- cość typu BOOLEAN. 

BOOT - inicjować, ładowanie system., operacyjnego 
au panięc.i, 

BOOI RECORD - rei ord wpr owaoza jąc y łśCież)* u. se- 
ktor 1, strona O), 

BOOTING - wciąganie, wpr owadzam e, 

BOOTSTRAP program, ładujący, ładowacz. 

BOOT STRAP INPUT PROGRAM program, wprowadzania pier- 
wctnegc, 

BOOTSTRAP LOADER - program ładujący, procedura ładu- 
jąca, 

BOOTSTRAP PROGRAM program wprowadzający , 
BOOTSTRAPING - wciąganie, wprowadzani e. ładowanie 
początkowe. 

BORAM patrz: BLOCK-ORI ENTED RAM. 

BORkOW - pożyczka, także: zanegowane przeniesienie. 
BOI MARKER znaczni I początku taśmy, 

BOT TOM DISC - dolny dysk (w pakiecie). 

BOITOM OF THE PAGE - dolna część strony larkutza), 
BOTTOM-UP wmosl owarie uprzedzające (w systemach 
et sper towych ) , 

BOUND - granica obszaru. 

BoUNDARY - brzeg, granica (obszaru) , 

BoUNDARY SET - zbiór brzegowy.’ 

BoUNDARY VALUE - wartość brzegowa, 

BOUNDED - odgraniczony, ograniczony, 

BOUNDED FROM ABOVE - ograniczony z góry, 

BOUNDEDNESS - ograniczoność. 

BOX - kratka do wypełnienia na formularzu, kratka 
na wykresie, także: figura geometryczna na schemacie 
blokowym, sl rzynk a, 

BPI patrz: Bil S FER INCH. 

BPS patrz: BITS PER SECOND, 

BRACE - nawi as-k 1 amr a. nawias klamrowy (lub wężyko- 
waty) . 

BRACKET - nawias kwadratowy, 

BRA1N - mrzg. tar że: w żargonie oznacza komputer, 
mózg elektronowy. 

BRANCH - skok krótki, rozgałęzienie programowe, 
odgałęź i eni e, 

BRANCH CIRCUIT - obwóo odgałęziony, 

BRANCH INSTRUCTION - rozkaz roz gał ęz i eni a , 

BRANCH OPERATION - operacja r oz gał ęz l er i a , 

BRiANCH POINT - miejsce, puni t odge) ęz i er.i a (przewo- 
du). także: zwrotnice, przełącznik. 

BRANCH PROGkAM - program, uboczny. 

BRANCHING BOX - mufa rozdzielcza. 

BRANCHING POINT - miejsce oogsłęzie .a. 

BRANCHING PROCESS - proces oaiizliw/. 

BkEADBOARDI NG OF IC - maiietows-ie ul i aau scalonego, 
BREAK - przerwanie, rozerwanie, urwanie się, 

BREAK DOWN - ulegać awarii, 

BREAK KEY - klucz przerwania, klawisz zatr z /n.an, a. 
BREAK SIGNAL DETECTI ON detei cja sygnału wstrzyma- 

BRFAK THE PROGRAM INTO ... - dzielić program, r.a .... 

BREAK THE SEOUENCE r.ai usra iclejność, 

BREAKlKJWN-TI ME - czas awarii maszyny. 

BREAKPOINT - punk t ‘przerwań : a. m.ejsce wstrzymania 
izetriyiiiaiy a) . 

BREAKTHROUGH IN TECHNOLOGY slolowy postęp w dzie- 
dzinie techni i i . 

B-REGISIER - re.isfct m.od , - f i i ac j i . P re.isr.r. 
BRIGHINESS jaci.raw:"_. . i -um z - a . a. 

BR1GHTNESS CONTROL reę.iaz «. o - • rtwrca, ' 

BR1GHTNESS OF TONI .iŁsmzc to . . jaenc-y t *- z .t : eni a. 

BR ING INTO STEP ivnzr,r(n :o»ł- , 

BK1NO UP To DA II - . aituai :::« . 

BRI USB STANDARD INTEPEACE ( BS1 ) złącza aia : .--z 
wc- t: 1 «C-*-vt s urząd. a . £ zę- 

gająca u o i a»;..'v er o w , 

BROAD-BAND LINĘ łącze s: er okopa strawa. 

BROADCAST I NG SYSTEM system r cigł it: ar i a . 

BROKEN NUMBER - ul amel , 

BRUSH BŁOCK - blok ze szczotkami odczytującymi. 

BRUSH SCANNER - szczotka odczytu. 

BRUSH SHIFT - przesunięcie szczotek , 

BRUSH -ROCKER (RING) - trzymacie szczctlows. 

BRUST MODĘ praca uderzeniowa (dct. k ar.a> u multi- 
plekser owego) , 

B/S (BITS PER SECOND) bitów na sekundę, 

B STORĘ - rejestr mod/f nacji, rejestr t. rejestr 
i r.del sowy , 

BUBBLE DOMAINS STORĘ - parnie: m.agnct yczr.a pęcherz y- 

BIIBBLE NEHoRY - pamięć domenowa, 

BUCKET t-lok prog-amow/. blok. porcja, 

BUCKET HFADER - etykieta porcji (biciu). 

BUCKIM PACKING DENsT IY - gęstość bici u pr ogram, awego. 
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BUCKET-BRIGADE DE VI CE - łlmnt łańcuchowy, analogo- 
wy rajaatr przesuwający, 

BUFFER - bufor, 

BUFFER CAPACITY - pojemność pamięci buforowej, 

BUFFER MEMORY - pamięć buforowa, bufor, 

BUFFER REGISTER - rajastr podradniczący, rajaatr 
buforowy, 

BUFFER STORĘ - pamięć buforowa, 

BUFFERED - zbuforowany, 

BUFFERI MG - buforowania, 

BUG - dafakt w prograir.ia, błąd w programia, 

BUGGED PROGRAM - program z błędami, 

BUILD-IN COMMANDS - polacania (rozkazy) wbudowana 
(razydantna) , 

BUILDING BŁOCK - układ, alamant raalizacyjny, 
BUILT-IN COMTROL - starowanie układowa, 

BUILT-ZN FUNCTION - funkcja wewnętrzna, funkcja wbu- 
dowana, 

BUILT-IN LOGIC - wbudowany układ logiczny, 

BUILT-IN NICROCOMPUTER - ai krokoaputer wbudowany, 
BUILT-IN-CHECK - kontrola automatyczna istniejąca 
w sprzęci a, 

BULK STORAGE - pamięć o wielkiej pojemności, 

BULK STORĘ - paaięć aasowa, 

BULK-EFFECT IMTEGRATED CIRCUIT - układ scalony dzia- 
łający z wykorzystaniem zjawisk objętościowych, 

BURN IM - w teorii niezawodności oznacza wstępne 
starzenia obiektu, 

BURN -IN PERIOD - w teorii niezawodności oznacza 
okras wstępnego starzenia obiektu, 

BURST - sekwencja sygnałów, 

BURSTER - przyrząd do cięcia tabulogramu, takiej 
przerywacz, 

BUS - magistrala, 

BUS AYAILABLE - dostęp do szyny systemu, 

BUS COMTROL REQUEST - wajScla sygnałów procedury 
dostępu mi kroprocesora do magistrali, 

BUS ERROR - błąd magistrali, 

BUS IMTERFACE UNIT CBIU) - jednostka sprzęgająca 
z magistralą, 

BUS MASTER - moduł roztrzygający o dostępie do szyny 
BUS REOUEST^GRANT LOGIC - układ 2ądania 1 przyznania 
magistrali , 

BUS REOUESTER - sterownik zgłoszeń, 

BUSINESS DATA PROCESSING - przetwarzań e danych gos- 
podarczych, 

BUSY-rREADY SI GNAŁ - sygnał zajętosci /gctowoSci , 

B/W - monochromatyczny (dot. monitora), 

BYTE - bajt, takie: grupa 8-miu bitów, 

BYTE -SERIAL TRANSMISSION - przesyłania szeregowe 
bajtów, przesyłanie kolejnych bajtów, 



CABLE - kabel, 

CACHE MEMORY - pamięć podręczna, 

CAI - patrz i COMPUTER- Al DED INSTRUCTION, 

CALCULATE - obliczać, 

CALCULATING MACHINĘ - maszyna licząca, kalkulator, 
CALCULATING OPERATIOM - operacja arytmetyczna, 

CAL CUL ATI OM - obliczanie, 

CALCULATION PROCEDURĘ - tok obliczania, procedura 
obliczania, 

CALCULATOR - maszyna licząca, kalkulator, 

CALCULUS - rachunek, 

CALCULUS OF FI NI TE DIFFERENCES - rachunek różnicowy 
CALCULUS OF PROBABI LI TY — rachunek prawdopodobień- 
stwa, probabilistyka, 

CALCULUS OF VARI ATIONS - rachunek wariacyjny, 
CALCULUS OF YECTORS - rachunek wektorowy, 

CALL - wywołanie, przekazanie kontroli do podpro- 
gramu, 

CALL SLIP - rewers biblioteczny, 

CALLI GRAPW C DISPLAY DE VI CE - konturowe urządzenie 
graficzne, 

CALLI NG INDICATOR - wskaźnik zgłoszeniowy, 

CALLI NG SEOUENCE - sekwencja wywołująca, 

CAM - patrz i COMPUTER Al DED MANUFACTURE, 

CAMAC - patrz i COMPUTER Al DED MEASUREMENT AND CON- 
TROL, 

CAM - patrz l CANCEL CHARACTER, 

CANCEL - anulować, kasować, przekreślać, takźet 
skracać, 

CANCEL CHARACTER - znak kasowania, 

CANCEL MODĘ - tryb anulowania, 

CAMCELATION - anulowania, kasowanie, takźei skra- 
canie. 


CANCELLI NG — kasowanie, 

CAPABILITY - zdolnodć, 

CAPACI TANCE - pojemność, 

CAPACITIVE - pojemnościowy, 

CAPACI TY - pojemność, zdolnoSć przepustowa, wydaj- 
ność, 

CAPACITY COUPLING - sprzężenie pojemnościowe, 

CAPITAL - duża litera alfabetu, 

CAPSTAN - oS w przewijaczu taSmy magnetycznej, 
CAPTION - nagłówek (np. formularza), 

CAPTURE - utrwalać (np. dane na taSmie), zapisywać, 

C ARBOM - kopia spod kalki, takża: kalka maszynowa, 
CARBON PAPIER - kalka maszynowa, 

CARD - karta, 

CARD BED - łoże karty (w maszynie), 

CARD COUNTER - licznik kart, 

CARD FACE - przednia strona karty (dziurkowanej), 

CARD FEED - podajnik kart, 

CARD FILE - kartoteka, 

CARD FI LING CABINET - skrzynka kartotekowa, 

CARD HOPPER - zasobnik kart (dziurkowanych), 

CARD IND£X - kartoteka. 

CARD I NPUT - wejScie na kartach (dziurkowanych) , 

CARD LAYOUT - wzór karty dz i ur kowana j , 

CARD LOADER - program wprowadzający do pamięci dane 
zawarte w pliku kart, 

CARD PUNCH - dziurkarka kart, 

CARD RANDOM ACCESS MEMORY - pamięć na kartach magne- 
tycznych z bezpośrednim dostępem do danych, 

CARD READER - czytnik kart, 

CARD PFAnFP^PHNCH rl.- , ,irkr»r l I.ir*. 

CARD REPRODUCER - reproducer kart (dziurkowanych), 
CARD STACKER - zasobnik kart (dziurkowanych), 

CARD YERIFIER - aprawdzarka kart (dziurkowanych) , 
CARD VERIFYIMG - sprawdzanie kart, 

CARD-TO-CARD TRANSCEI VI NG - teledacyjne powielanie 
kert dziurkowanych, 

CARD-TO-TAPE COMVERSION - przenoszenie zapisu z kart 
dz i ur kowanych na taSmę magnetyczną, 

CARDCAOE - kaseta (do wkładania modułów sprzętowych) , 
CARRIAGE - karetka, wózek (np. maszyny do pisania), 
CARRIAGE LENGTH - długoSć przesuwu (np. papieru), 
CARRIAGE RETURN CHARACTER CCR) - znak powodujący 
powrót karetki, 

CARRIAGE TAPE COMTROL - sterowanie przesuwu papieru, 
CARRIER - noSnlk danych, 

CARRIER-SENSE MUL TI PLE -ACCESS WITH COLISI OM-DETE- 
CTIOM CCSMA-CD) - sieć lokalna o dostępie wspólnym 
z wykrywaniem kolizji, 

CARRY - przeniesienie, 

CARRY BIT - bit przeniesienia, 

CARRY CIRCUIT - układ przenoszeni a, 

CARRY COUNT - liczenie przeniesień, 

CARRY DELAY - opóźnienie przeniesienia, 

CARRY DIGIT - cyfra przeniesienia, 

CARRY GATE - bramka przeniesienia, 

CARRY LOOKAHEAD - układ przeniesienia na bardziaj 
znaczące pozycje, 

CARRY OVER - przenosić na drugą stronę równości, 

CARRY PROPAGATI OM - propagacja przeniesienia, 

CARRY PROPAGATI ON DELAY - czas propagacji (impulsu 
wejściowego) , 

CARRY SI GNAŁ - sygnał nadmiaru, 

CARRY STORĘ - pamięć przeniesień, 

CARRY -OVER - przeniesienie, 

CARRYING CAPACITY - noSnoSĆ, łedownoSć, 

CARTESI AM COORDI NATES C SYSTEM) - układ współrzędnych 
prostokątnych , 

CARTRIDGE - ładunek, takżei kaseta z taSmą o obiegu 
zamkniętym, 

CARTRIDGE TAPE - taSma kasetowa, 

CASCADE SORTING - sortowanie kaskadowe, 

CASCADED CARRY — przeniesienie pozycyjne, przenie- 
sienie kaskadowe, 

CASE - przykład, przypadek, 

CASE-SENSITI VE - posiadający moźliwoSć rozróżniania 
liter małych od dużych, 

CA SSETT E - kaseta, 

CASSETTE RECORDER - magnetofon kasetowy, 

CASSETTE TAPE - taśma kasetowa, 

CASTING OUT NINES - próba dzlewiątkowa, 

CATALOG - katalog, 

CATCH UP - takźet nadążać, 

CATCHWORD - słowo kluczowe, 

CATEGORY - dział, grupa, 

CATENATE - łączyć, 

CATHODE-RAY TUBĘ CCRT) - laepa elektronopromieniowa, 
kineskop, 

CATHODE-RAY TUBĘ DISPLAY - zobrazowanie oscylosko- 
powe, 

CAUSAL - przypadkowy, obojętny, 

CAUSE - powód, przyczynę, 

CCD-TECHMOLOGY - technologia CCD (Charge Coupled De- 
vice Technology), 


I 


Tajemnice informatyki (*) 

Twierdzenie Fermata 

Program „Twierdzenie Fermata" ilustruje dobrze znaną 
w teorii liczb następującą zasadę: dowolnie wybrana liczba 
pierwsza p wraz z dowolnie wybraną liczbą całkowitą x spełnia- 
ją następującą równość: 

(X** 1 = i ) mod p, 

przy czym liczba x nie może być podzielna przez p. 
Przykładowo: 

(2* = 1 ) mod 3 
(3 4 = 1 ) mod 5 
(9 4 = 1 ) mod 5 itd. 

Program nasz sprawdza, czy spełnione są założenia twier- 
dzenia Fermata, tj p — liczba pierwsza, x me jest podzielny 
przez p oraz — w wypadku gdy x ł-ł > 999999999 
podaje odpowiedni komunikat, zapraszając do wyboru innych 

licz0 10 PPINT , podaj liczbę pierwsza* AT 

15 INPUT p 

20 PPINT'podaj liczbę naturalna' 

25 INPUT x 
30 r=x-INT<x/p>lp 
35 IF r<>9 THEN 45 

40 PRINT*liC 2 ba , pp ) "diiłli 'jxs60T0 20 
45 xpxx:pl«p-l!xp«x'ifobrre‘ 

30 FOS 1*2 TO pl 
33 xp«xplx 

60 IF xp<999999999 THEN 60T0 72 
63 SSINT ‘liczb* '|«r * 'ipl|' prztkriczi 
dopuizcilny zikrii 1 1-9999999991' 

67 xp|a'nidliir a 
70 i«pl 

72 NETT i 

73 IF xpM ' Mdlili" THEN 10 
73 k»INT(xp/p> 

80 r»xp-klp 

85 IF rOI THEN PSINT'nii podałeś 
liczby pitr»łzij':60T0 10 
90 PSJNT 'Uitrdunit Firuti* 

93 PSINT k|' A ‘ iplj * iod 'ipi ‘ * '|r 
97 PSINT »|' * *ipl(* * '|ip 
100 PSINT 'koniic lt/nl ■ 

103 INPUT x» 

110 IF x«.'t' THEN 6OT0 1000 
115 IF x*»V THEN GOTO 10 
120 GOTO 100 
1000 END 


Na skróty 

Przedstawiamy zaktualizowaną listę (por. X nr 1/87) 
skrótów, które związane są z mikrokomputerem, łącznie z 
ich oryginalną interpretacją. Nadal czekamy na inne, wa- 
szym zdaniem, ważne skróty, może z ich polską interpre- 
tacją? 

AAAI — American Association ot Artificial Intelligence 

ADA — Ali — points -- addressable 

ALU — Arithmetic and Logic Unit 

ASCII — American Standard Codę tor Intormation Inter- 

change 

AT — for Advanced Technology 

BASIC — Beginner s All-purpose Symbolic Inślruction 

Codę 

BDOS - Basic DOS 

BIOS — Basic Input-Output System 

bps — bits per second 

CAD — Computer-Aided Design 

CAM - Computer-Aided Manufacturing 

CAMAC — Computer Application ot Measurments 

CCP — Console Command Processor 

CD ROM — Compact Disc ROM 

CGA — Color Graphics Adapter 

CIA — Complex Interface Adapter 

CMOS - Complementary Meta!-Oxide Semiconductor 

CPI — Characters Per Inch 

CPM — Control Program for Microcomputers (CP/ Mo- 

nitor) 

CPS — Characters per Second 

CPU — Central Processing Unit 

CRT — Cathode-ray tubę 

CT — Computer Tomograph 

DCE — Data Communicalion Eąuipment 

DIP — Dual In-line Pacage 

DMA — Direct Memory Access 

DOS — Disc Operating System 

DRAW — Digital Read and Write. 

DTE - Data Terminal Equipment 

EARS — Electronic Audio Recogmtion System 

ECD — Enhanced Console Driver 

EDRAW — Erasable Optical Disc Technology 

EGA — Enhanced Graphics Adapter 

ELD — Electrolummescenł Display 

EPROM - Erasable PROM 

FF — Form Feed 

FPU — Floatmg Point Processing Unit 

GEM — Graphics Environment Manager 

GSX — Graphics System Extension 

IBM — International Business Machines 

IC — Integrated Circuit 

ICL — International Computers LTD 

IFF — Interchango File Format 

ILBM — lnterleave Bit Map . 

1/0 — Input/Output 

LAN — Local Area Network 

LCD — Liquid-Crystal Display 

LF — Linę Feed 

LUT — LookupTable 

MDA — Monochrome Display Adapter 

MNU — Memory Management Unit 

MS DOS - Microsoft DOS 

PGS — Professional Graphics System 

PIF — Program Information File 

PIPS - Pan Information Processing System 

POST — Power-On Self Test 

PROM — Programmable Sound Generator 

RAM — Random Access Read/Write Memory 

ROM - Read Only Memory 

RGB — Red — Green — Blue 

RISC — Reduced Instruction Set Computer 

SCCS — Source Codę Control System 

SID — Sound Interface Device 

SIMPP — Simpie Image — Processing Package 

SLAM — Scan — Lme Access Memory 

SPRS — Signal Processing Router/ Scheduler 

TUNIS — Toronto Umversity System 

VDU — Visual Display Unit 

VIC — Video Interface Chip 

WIMPS — Windows, Icons, Mice and Puli — Down Menus 
WORM — Write Once, Read Many 

YHP — Yokogawa Hewlett — Packard 

Opracował: 
W. GOGOŁEK 
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POZIOMO: la. niejeden w „IKS-ic” II. przednia część budyn- 
ku 2g. kościelna klątwa 3a. cichy głos 3n. gęsty smar 4c. nieuza- 
sadniona, podświadoma niechęć 5a. imię słynnego francuskiego 
aktora filmowego 5n. zniedołężniały staruszek 7a. rodzaj hydro- 
lokatora 7n. siły zbrojne 9a. jelonek — bohater kreskówki Dis- 
neya 9n. popularny język komputerowy 1 la. czczona w religiach 
pierwotnych roślina lub zwierzę lin. tablica informacyjna 13a. 
miasto w woj. olsztyńskim_13n. typ mikrokomputera 15a. czaple 
pióro przy kapeluszu I5n. brazylijski taniec 16c. niedostępne 
miejsce w lesic 16k. stały wiatr w strefie międzyzwrotnikowej 
I7a. miasto we Włoszech 17n. część walki w ringu 18g. miasto w 
woj. słupskim I9a. ozdobna plecionka ze sznurka 19ł. w worku 
Mikołaja 

PIONOWO: al. może być zasadnicza a9. jednostka ilości infor- 
macji a 13. typ mikrokomputera cl. dramat muzyczny c7. popu- 
larny poranny program telewizyjny cl 5. jego czaszkę nosi Hamlet 
el. pomoc w nagłym wypadku c9. firma produkująca sprzęt 


komputerowy cl 3. rzeka we Francji gl. dawny muzułmański 
mieszkaniec Płw. Iberyjskiego g 16. zapora il. paragwajska herba- 
ta i 16. projekt ki. rosyjski fizyk, autor reguły dotyczącej kierunku 
przebiegu prądu elektrycznego kl6. angielski mąż stanu z prze- 
łomu XVIII i XIX w. 11. mitologiczny leśny bożek 116. zwierzę 
myjące pożywienie przed spożyciem nl. słynny aktor i reżyser 
polski (1885—1947) n9. niski glos męski nl3. typ komputera pl. 
autor „Kwiatów polskich” p7. elektryczna lub parowa pl5. orga- 
nizacja walcząca z narkomanią sl. imię żeńskie s9. niewytłuma- 
czalne zjawisko sl 3. duża rzeka azjatycka 

Rozwiązanie stanowi hasło utworzone z liter przeniesionych 
z następujących pól: I6i I8ł 7b 18c lf I5c (7e 1 lb 9c la 17b 4a 2k 
lm) — (3b lip I9j 101 5o 15n llo) 16k7o4h 7d I5c 5a9s 7r4i 5s 
9o) 

Rozwiązania (tylko hasło) należy przesyłać pod adresem redakcji, 

na kartkach pocztowych naklejając kupon „IKS-a”. 


„IKS" — dodatek „Żołnierza Wolności". Redaguje Wiesław Cetera (kierownik zespołu); stali współpracownicy: 
Włodzimierz Gogołek, Krzysztof Mamcarz, Ireneusz Miernik, Jacek Szaniawski. Adres redakcji: 00-950 Warszawa 
ul. Grzybowska 77, telefon centrali 20-12-61 w. 486. Telex 313664. Rękopisów nie zamówionych redakcja nie zw- 
raca i zastrzega sobie prawo do skrótów. Nakładem: Wydawnictwa „Czasopisma Wojskowe", Warszawa ul. Grzy- 
bowska 77, Fotoskład 1 druk — Wojskowe Zakłady Graficzne im. gen. dyw. A. Zawadzkiego. Nr zam. 8884. Nr. 
Ind. 361682. K-69 
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Odmienny podział komputerów zaproponował inny z uczestni- 
ków konferencji 


Konferencja 

Informatyków 

V Krajowa Konferencja Informatyków odbyła się 8— 10 grudnia 
1987 roku w Poznaniu (hotel Poznań). Zaplanowanym tematem 
spotkania (262 uczestników) był Rozwój Metod i Zastosowań In- 
formatyki. Na konferencję nadesłano 1 08 referatów Zostały one 
opublikowane w 534 stronicowym tomie Organizatorów Konfe- 
rencji wspomagali: Komitet Wspomagający oraz Rada Programo- 
wa, w sumie 48-osobowy zespół fachowców 
Tyle spraw formalnych, jeśli idzie o merytoryczne to warto pod- 
kreślić, iż posiedzenia odbywały się z udziałem wszystkich uczest- 
ników piewszego dnia (około 30—50% drugiego, trzeciego bywało 
różnie...). 

Każdemu z posiedzeń przewodniczyło kilku Panów Profesorów 
lub Panów Docentów. Wygłaszali oni słowo wstępne, a następnie 
zachęcali do dyskusji (referaty nie były wygłaszane). 

Pier wszego dnia zwrócono między innymi uwagę na rangę sieci 
komputerowych, które są obecnie powszechną formą wykorzy- 
stania informatyki niemal we wszystkich dziedzinach życia wyso- 
korozwiniętych krajów Wiąże się z tym konieczność dysponowa- 
nia dużymi komputerami — superkomputerami Tworzą one tak 
zwane węzły sieci. Krajowe wysiłki w tej kwestii reprezentowały 
wypowiedzi na temat doświadczeń i persoektyw sieci komputero- 
wych w Polsce Najbardziej zaawansowane są prace nad Mię- 
dzyuczelnianą Siecią Komputerową (MSK) realizowana od 1985 
roku oraz nad Krajową Akademicką Siecią Komputerową (KASK) 
która budowana jest w ramach CPBR nr 8.13. Warto w tym miejs- 
cu podkreślić, że już od kilku lat pracuje z powodzeniem u nas 
w kraju komputerowa sieć GABRIEL LOT-u. Obsługujący ją kom- 
puter jest w Nowym Jorku 

Poza kwestiami technicznymi budowy sieci, zwrócono uwagę 
na bardzo istotny problem zachowania standaryzacji sprzętu 
i oprogramowania. Podkreślono także, ze w naszych warunkach, 
posiadanie nawet doskonałej sieci, to dopiero początek długiej, 
bardzo długiej drogi do jej efektywnego wykorzystania — bowiem 
sieć tę trzeba „wypełnić odpowiednimi informacjami" i chcieć 
(umieć) z nich korzystać. Jest to problem ogromny, tym bardziej 
że nasze doświadczenia w tym względzie są ciągle pomijalne 
Drugiego dnia konferencji zwrócono między innymi uwagę na 
centralne komputery — stanowiące serce (mózg?) sieci. Jeden z 
prowadzących posiedzenie przedstawił bardzo ciekawe zestawie- 
nie czasu liczenia problemu XYZ 
Typ komputera Czas liczenia problemu XYZ w latach 
VAX 11/780 30 000 

Cosmic cube 3 000 

Cray I 100 

Columbia 1 0 

GF 11 1 

Ostatni z wymienionych - GF 1 1 — w chwilach „dobrych" (tak 
zwanych pikach) liczy około 1 1 gigaoperacji w czasie jednej se- 
kundy (11 miliardów operacji/sek.) Innymi słowy w czasie, gdy 
komputer wykonuje jedną operację (złożoną) np.: mnożenie 
dwóch wielocyfrowych liczb — światło przebędzie zaledwie nieco 
ponad 2 cm (dwa)! Jak to możliwe? — zadanie to (operację) wy- 
konuje jednocześnie setki procesorów. 

Cena superkomputera wynosi aż 5—20 min dolarów. Reprezen- 
tantami tego sprzętu są np.: Cyber 205, Cray I, Cray II. a w Japonii 
urządzenia tego typu produkuje NEC i parę innych firm. Cieka- 
wym osiągnięciem naukowców Kraju Kwitnącej Wiśni jest mi- 
kroprocesor (liczy szeregowo), który rachuje z szybkością prze- 
kraczającą 1 gigaoperację na sekundę (światło, w czasie wyko- 
nywania przez ten procesor jednej operacji, przebiega 30 cm). 

Dostęp do superkomputerów np. w Holandii (są to Cyber 205 
i Cray) realizowany jest poprzez sieci połączone komputerami VAX 
Ciekawymi spostrzeżeniami jednego z uczestników konferencji 
jest to, że Fortran jest obecnie podstawowym językiem programo- 
wania superkomputerów. 

Aby nie popadać w kompleksy zauważono, że odpowiednie „uz- 
brojenie" IBMa PC (których mamy w kraju sporo) w „przyspiesza- 
cze" tworzy nam komputery o tempie liczenia tylko 50—100 razy 
mniejszym od Cray'a 


Mikrokomputery — IBM, PS/2 

Superminikomputery — VAX, SCS-40 

Superkomputery — Cray. CD6, NEC 

Hiperkomputery — ETA 10 

Architektura superkomputerów została zaprezentowana przez 
najmłodszych uczestników konferencji — członków studenckie- 
go Koła Zainteresowań Cybernetycznych z WATu. 

Warto w tym miejscu podkreślić wątpliwość, którą wywołała wy- 
powiedź jednego z Panów Profesorów — „Potrzebujemy w kraju 
superkomputera, a jest to jedyny nakład techniczny — sprzęt ten 
nie wymaga konserwacji"... czyżby? 

Na świecie pracuje obecnie około 260 superkomputerów, w 
tym, ponad 50 eksploatowanych jest w Japonii 

Powstało zatem pytanie — co robić w naszych warunkach? Py- 
tanie to stało się retorycznym, a nas zaproszono do Ośrodka Kra- 
jowej Państwowej Komunikacji Samochodowej w Poznaniu Tyle 
sprzętu informatycznego w jednym niewielkim budynku jeszcze 
nie widziałem: kilkadziesiąt klonów IBMa PC, w tym ELWRO 801 At 
(dwie sztuki) oraz RIAD 34 we wspaniałym zestawie: dwie drukarki 
wierszowe, pięć napędów dyskowych ze sterownikami (2X100 
Mb plus 3X21 7 Mb z możliwością dołączenia innych napędów, 
także 600 Mb), cztery przewijaki („samoladujące się") i adapter do 
wielu, bardzo wielu terminali (także JSG) Najwięcej zaintereso- 
wania budziła jednostka centralna — zbudowana u nas w kraju — 
wygląda niepozornie — solidny „słup" trochę wyższy od piszącego 
te słowa. Jednostka mieści w sobie 8 Mb RAM. Wykonuje około 
0,5 min operacji na sekundę. Sprzęt ten jest w trakcie uruchamia- 
nia. 

Kończąc spisane na gorąco niektóre wrażenia, chciałbym pod- 
kreślić nieprzypadkowe wyliczanie we wstępie: 262 uczestników, 
48 organizatorów! Wydaje się, że gdyby uzupełniono tytuł konfe- 
rencji o magiczne słowo „naukowa", mniej było by osób zawie- 
dzionych, które oczekiwały informacji bliższych naszej rzeczywi- 
stości i przyszłości — tej najbliższej. 



Laser 
za złotówki 



Rozmowa z Zygmuntem Klukiem — kierownikiem sklepu 
Centralnej Składnicy Harcerskiej Oddział Warszawa na ulicy 
Mokotowskiej 26. Jednym z 7 sklepów CSH specjalizujących 
się w sprzedaży sprzętu komputerowego i wideo. 

Czego mogą spodziewać się kliena CSH w tym roku? 

— Utrzymania dotychczasowych zasad. Będziemy nadal sprowadzać sprzęt 
komputerowy firm Spectra Video, Timex i Bondwell W spizedaży będą mo- 
dele Spectra video SV 738, Timex, klony IBM z Dalekiego Wschodu — 
Bondwell 38-2-XT, Bondwell Portable (przenośny). Zamierzamy sprowadzić 
Bondwell 63 AT, uzupełnieniem do modeli XT i AT będą karty (pakiety) pro- 
gramowe. Nowością na polskim rynku będzie Spectra video X-PRESS 16 
kompatybilny z IBM PC. Oczywiście nadal będziemy oferować urządzenia ze- 
wnętrzne i różne drobiazgi komputerowe: interfejsy, joystiki, dyskietki. 

Od pewnego czasu poszerzyliśmy ofertę o sprzęt wideo — magnetowidy 
VHS, kamwidy, kasety, telewizory. Melomanów z pewnością ucieszy wiado- 
mość, że w tym roku zamierzamy sprowadzić kompact dyski i odtwarzacze la- 
serowe. 

Jednym słowem klient będzie mógł kupić to CSH nowoczesny sprzęt. Czy nie boi 
sif Pan konkurencji? W tym roku z pewnością powstaną liczne firmy ze zbliżonej 
branży. 

— Jak do tej pory, to konkurencja boi się CSH. Bondwell XT sprzedawany 
był po cenach znacznie niższych niż w innych firmach, w związku z czym mu- 
siały je obniżyć. Jesteśmy na tyle solidną firmą, że „dorobiliśmy” się własnych 
klientów przyjeżdżających z odległych miast, nawet takich, gdzie są podobne 
sklepy. Z pewnością w jakimś stopniu przyciągają ich dwie literki w nazwie 
„PP” — przedsiębiorstwo państwowe. 

Kto najczęściej korzysta z pańskiego sklepu? 

— Blisko 50 procent sprzętu zakupił resort oświaty. Na drugim miejscu są 
kluby osiedlowe, miejskie, zakładowe, wiejskie. Z pewnością proporcje wyglą- 
dałyby inaczej gdybyśmy mieli więcej towaru, klienci prywatni kupują tylko 
„nadwyżki”. 

Jakie wymagania stawia Pan pracotonikom? 

— Muszą być uczciwi, znać się na komputerach, lubić handel. Tu przerzuca 
się tony sprzętu. 

Ile zarabiają? 

— W naszym oddziale jesteśmy w czołówce, powyżej średniej krajowej. Za- 
robki są ważne, bo mobilizują pracowników i przywiązują do firmy. 

Kto wybiera dostawców sprzętu? 

— Zarząd przedsiębiorstwa. Oceniamy ofertę potencjalnych kooperantów, 
ich wyroby, programy. Coraz więcej polskich firm z nami współpracuje — 
rzemieślnicy, spółdzielnie, zakłady państwowe. Firmy zagraniczne nie dostar- 
czą nam polskich programów użytkowych, edukacyjnych czy gier. 

Pańskie życzenia? 

— Od początku uruchomienia sklepu to samo. Chciałbym sprzedawać pol- 
ski komputer. 

Czego Panu w imieniu redakcji życzę. 

Dziękuję za rozmowę. 

Dariusz OTTO 


NAUKA. TECHNIKA . 

Naukowcom amerykańskim z laboratorium fizycznego 
w Waltham Cstan Massachusetts 2 udało sią opracować 
technologią produkcji tranzystorów. która niemal w 
całości wytwarza . - . natura. Proces budowy 
tranzystorów rozpoczyna sią od stopienia krzemu 1 
tantalu powodując Ich całkowite wymieszanie 3dy 
tak przygotowaną mi mazaniną powoli ochłodzić, to w 
kryształkach krzemu zaczynają powatawać wtrącenia 
tantalu. Wyatąpu.lą one Jednak tylko w tych 

punktach. w których uprzednio zanurzone były 
cienkie krzemowa pałeczki pełniące rolą zarodników. 
W trakcie krzepnlącia pałeczki te są stopniowo 
usuwane, a na Ich miejscu rosną nitki tantalu o 
Średnicy około 1 *i«. Każda z tantalowych nici, 

zamieniana zostaje w tranzystor w wyniku nalośanla 
wokół niej dwóch koncentr ycznych warstw przewodnika 
prądu, fen nowy sposób budowy tranzystorów pozwala 
na unlknlącia podstawowych trudności wiążących sią 
z produkcją układów scalonych rozmieszczanych na 
płytkach krzemowych. Jak również umożliwia 

obciąśanle układów prądem o wyśazym natążenlu bez 
możliwości uszkodzenia elementu elektronicznego. 

■ ■ ■ 

W ZSRR prowadzone są ostatnio próby 
aparatury. fcróra w lipcu br. . w ramach 
ml e? dzynaroaowe J ekspedycji "rMosos" poleci w 

kierunku Marsa. W odstąpię kilku dni wystarują 
dwa aparaty kosmiczne zawierające ponad 20 
róśnych urządzeń naukowych przeznaczonych do 
badania "Czerwonej Planety". Jego satelity 
Phobosa. a takie Słońca i przestrzeni 

miądzyplanetarnej. W ekspedycji tej po raz 
pierwszy w praktyce koamonautykl zostanie 
przeprowadzone badanie składu gruntu ciała 
iii ebiesk lego przy pomocy promienia laserowego. 


W roku 1088 pianuje sią w Wielkiej Brytanii 
założenia banku Informacji o zwierzętach 
znajdujących sią w ogrodach zoologicznych. 
Centralny bank zlokalizowany ma być w Londynie 
Przewiduje alą zainstalowani* terminali 
komputerowych w 15 ogrodach umożliwiających 
dostąp do danych o 40000 różnych zwierząt 
należących do ponad 1500 gatunków. Pozwoli to na 
opracowywanie nowych programów hodowli rzadkich 1 
ginących zwierząt Jak również wydawanie zaleceń 
dotyczących hodowli zwierząt obecnie żyjących w 
sztucznych warunkach. Należy oczekiwać, że do 
1004 .roku powstanie mlądzynarodowy bank 
informacji, oparty na systemie opracowanym w 
Wielkiej Brytanii. z którego będą mogły 

korzystać ogrody zoologiczne w Ameryce. Australii 
i Europie. • 

■ ■ ■ 

Znana amerykańska firma elektroniczna t xx« 
Instruments opracowała nowy specjalizowany moduł 
mikroprocesorowy VKSIC oznaczony symbolem 17S0A. 

Bądzle on. od 1988 r. . podstawowym układem 
sterowania 1 kontroli w wojskowych samolotach 
firmy lockmud. 


IKS -3 



Jednym z praktycznych rezultatów badań 
w dziedzinie sztucznej inteligencji jest powsta- 
nie tzw. systemó|W doradczych, zwanych rów- 
nież systeiriami eksperckimi (ang. expert Sys- 
tems). 

System doradczy to program symulujący 
pracę grupy ekspertów rozwiązującej problem 
z zakresu jednoznacznie sprecyzowanej dzie- 
dziny. System taki jest bardzo wąsko specjali- 
zowany. 

Jaki jest cel stosowania systemów dorad 
czych? Otóż praca eksperta-czło wieka jest 
zwykle bardzo droga. Nie zawsze możliwe jest 
szybkie przybycie eksperta na miejsce, gdzie 
trzeba postawić diagnozę. Ponadto zdania po 
szczególnych ekspertów rozwiązujących ten 
sam problem mogą być różne. Opłacalne ie ; 
więc kilkakrotne zorganizowanie spotkań eks- 
pertów w celu „wydobycia” od nich wiedzy / 
zakresu wybranej dziedziny. Wiedza ta jest 
podstawą budowy systemu doradczego. Za- 
kłada się, że suma wiedzy uzyskanej od eks- 
pertów jest większa od wiedzy każdego z nich 
z osobna. Raz zbudowany system można po- 
wielać w dowolnej liczbie egzemplarzy i do- 
starczać tam, gdzie jego stosowanie jest celo- 
we i opłacalne. 

Dla jakich problemów tworzy się systemy 
doradcze? Ogólnie istnieją dwie grupy takich 
problemów. Pierwsza, to problemy, dla któ- 
rych nie jest znany algorytm rozwiązania. 
Drugą grupą są problemy, dla^ których 
algorytm rozwiązania jest wprawdzie znany, 
ale czas jego realizacji znacznie przekracza 
rozsądne, dopuszczalne granice. Przykładem 
takiego problemu jest gra w szachy. 

Algorytm rozwiązania jest tutaj znany. 
Wszystkie możliwe warianty gry można 
przedstawić w postaci drzewa (rys. 1 ), przypi- 
sując końcowym węzłom atrybuty: partia wy- 
grana, przegrana i remis. Wystarczy teraz tyl- 
ko wybierać te ruchy, które prowadzą do wy- 
granej lub w najgorszym wypadku (gdy prze- 
ciwnik również realizuje tę samą strategię) do 
remisu. ’ 

sytuacja startowa 

20 możliwych ruchów białych 

20 możliwych odpowiedzi czar- 
nych na każdy ruch białych 
Wyczerpująca analiza takiego drzewa nie 
jest jednak., możliwa. Liczba wszystkich dróg 


do przebadania wynosi około 10 120 . Zakłada- 
jąc, że analiza każdego ruchu trwa 1 ns i wie- 
dząc, że 1 rok = 3.15 x 10 lł (ns), łatwo można 
obliczyć, że analiza całego drzewa trwałaby 
około 10 <>v lat. Warto podkreślić, że istotne 
ograniczenia, dyskwalifikujące przedstawiony 
algorytm, nie tkwią w sprzęcie, gdyż nawet 
przyjęcie większej o kilka rzędów prędkości 
obliczeń nie prowadzi do zadowalających re- 
zultatów. W jaki sposób można więc rozwią- 
zać problem gry w szachy? Problem ten moż- 
na rozwiązać stosując tzw. programowanie 
heurystyczne. Heurystyka to ogólna zasada, 
wskazówka lub taktyka oparta na doświadcze- 
niu, drastycznie ograniczająca poszukiwanie 
rozwiązań w dużych obszarach problemo- 
wych. 

Heurystyka prawie zawsze daje wystarcza- 
jąco dobre rozwiązanie. Oznacza to, że czasa- 
mi na skutek drastycznego ograniczania po- 
szukiwań, najlepsze rozwiązanie (a nawet 
wszystkie rozwiązania) mogą zostać pominię- 
te. Programowanie heurystyczne odgrywa do- 
minującą rolę w systemach doradczych. Sys- 
temy te nie działają bowiem na podstawie al- 
gorytmów, lecz wiedzy empirycznej, a więc 
heurystyki. 

System doradczy składa się z następujących 
modułów funkcjonalnych: 

— bazy danych, 

— bazy reguł, 

— układu kontroli. 

Baza danych zawiera fakty z danej dziedzi- 
ny. Relacje pomiędzy faktami przechowywane 
są w bazie reguł. Są to najczęściej reguły typu 

IF warunek THEN akcja — 1 

ELSE akcja — 2 

przy czym warunek nic musi mieć określonej 
wartości logicznej lub wartość ta może być 
określona z pewnym prawdopodobieństwem. 

Układ kontroli określa sposób korzystania z 
relacji. Służy on do: 

— selekcjonowania reguł. 

— dopasowywania reguł 

— kolejkowania reguł (gdy kilka z nich rokuje 
sukces) 

— wykonywania reguł. 

Jakość systemu doradczego zależy głównie 
od jakości wiedzy. Wiedza obejmuje fakty, 
związki między faktami oraz metody korzy- 
stania z tych związków. Istotnym zagadnie- 
niem jest również zupełność wiedzy, tj. obję- 
cie wszystkich możliwych problemów z danej 
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dziedziny. Jeżeli wiedza jest niezupełna, to 
część problemów nic może być rozwiązana, 
gdyż brak jest powiązań z wiedzą zawartą w 
systemie. 

, W jaki sposób buduje się system doradczy? 
Proces ten przebiega w kilku po sobie nastę- 
pujących etapach: 

•1 — pozyskanie wiedzy (ang. knowledge 
acąuisition process) — np. 2 

2 — identyfikacja (określenie problemów i 
zakresu działania systemu) 

3 — konceptualizacja (określenie sposobu 
reprezentowania wiedzy i przepływu infor- 
macji) 

4 — formalizacja (wyborów języka, opis) 

5 — implementacja systemu (programowa- 
nie) 


6 — testowanie. 



Rys. 2. Etap pozyskiwania wiedzy 


Systemy doraJc/c tworzone są zwykle w ję- 
zyku LISP, PROLOG, C, PASCAL lub in- 
nym zorientowanym na przetwarzanie logicz- 
ne. Systemy te nie tylko powinny dostar- 
czyć rozwiązania problemu, ale również od- 
tworzyć na żądanie sposób dojścia do tego 
rozwiązania. Jest to tzw. odpowiedź na pyta- 
nie WHY? (dlaczego system zrobił to, co zro- 
bił). 

Systemy doradcze są systemami otwartymi 

— mogą przyjmować nowe reguły wzbogaca- 
jąc tym samym bazę wiedzy. System automa- 
tycznie sprawdza, czy nowa reguła nie jest 
sprzeczna z istniejącymi lub czy z nich w 
oczywisty sposób nie wynika. 

Systemy doradcze znajdują obecnie zasto- 
sowanie w wielu dziedzinach: 

— w medycynie (np. MYCYN, ARAMIS, 
INTERNIST) 

— w rozpoznawaniu struktur chemicznych 
(np. DENDRAL) 

— w diagnozowaniu chorób roślin 

— w klasyfikowaniu roślin i zwierząt 

— w diagnozowaniu uszkodzeń elektrycz- 
nych i mechanicznych (np. silników) 

— w ocenie strat wynikłych z trzęsienia ziemi 
(system SPERILL) 

— w systemach biurowych. 

Jednym z najbardziej znanych systemów 
jest MYCYN. Służy on do diagnozowania 
chorób zakaźnych krwi. System ten składa się 
z 450 reguł. 

Zbudowane dotychczas systemy są stosun- 
kowo prymitywne. Zawarta w nich wiedza jest 
dużym uproszczeniem rzeczywistości. Pod- 
stawowymi problemami są sposoby reprezen- 
towania wiedzy oraz sekwencyjność pracy 
komputerów (człowiek myśli równolegle). O 
ile drugi problem może być rozwiązany na 
drodze sprzętowej (wieloproccsowość, trans- 
putery), o tyle rozwiązanie pierwszego wyma- 
ga opracowania nowych metod reprezentacji 
wiedzy — jej rozumienia i organizacji, tj. po- 
wiązań między poszczególnymi informacjami, 
Jest to podstawowy kierunek badań sztucznej 
inteligencji. Duże nadzieje na postęp w tej 
dziedzinie związane są z komputerami piątej 
generacji. 


W szponach Ata.ri (11> 

„Przewijanie” obrazu 


Często zdarza się, że chcemy wyświetlić 
taką ilość informacji, która przekracza po- 
jemność ekranu. Jednym ze sposobów roz- 
wiązania tego problemu jest przesuwanie in- 
formacji po ekranie. Przykładem takiego 
rozwiązania jest przeglądanie programu po 
podaniu polecenia LIST Poszczególne linie 
programu przesuwają się po ekranie od dołu 
do góry. Ten rodzaj przesuwania stosowany 
jest we wszystkich mikrokomputerach. Kom- 
putery Atari dysponują dwoma dodatkowy- 
mi sposobami przesuwania, oferującymi 
niezwykłe możliwości: zgrubnym i płynnym. 

W większości komputerów używane jest 
przesuwanie zgrubne: pola przechowujące 
znaki mają ustalone położenie na ekranie i 
przesuwanie tekstu polega na przemie- 
szczaniu bajtów w obszarze pamięci ekranu. 
Takie przesuwanie odbywa się skokowo, o 
jeden wiersz lub kolumnę. Rozdzielczością 
przesuwania jest wysokość lub szerokość 
znaku. Ruch jest szarpany i dosyć nieprzy- 
jemny Poza tym uzyskiwany jest przez 
przemieszczanie w pamięci tysięcy bajtów, 
co odbywa się stosunkowo wolno. 

W pewnych mikrokomputerach można 
uzyskać nieco płynniejszy ruch przez kreś- 
lenie obrazów w trybie graficznym o wyzszej 
rozdzielczości. Podczas przesuwania uzy- 
skuje się większą rozdzielczość, jednak 
kosztem znacznego spowolnienia działania 
programu. Cała trudność polega na tym, że 
przesuwanie informacji na ekranie realizo- 
wane jest przez przemieszczanie danych w 
obszarze pamięci ekranu. 

W komputerach Atari przesuwanie zgrub- 
ne można uzyskać w nieco inny sposób: 
przesuwając ekran nad danymi, które mają 
być wyświetlone. Umożliwia to rozkaz LMS. 
który występuje w programie wyświetlania i 
informuje ANTIC, skąd mają być brane da- 
ne do wyświetlania. Normalnie występuje 
jeden rozkaz LMS na początku programu 
wyświetlania. Wskazuje on początek obsza- 
ru RAM zawierającego dane, które mają być 
wyświetlone na ekranie. A zatem zgrubne 
przesuwanie możemy uzyskać przez mam 
pulowanie bajtami argumentu rozkazu LMS. 
Przez zmianę zawartości dwóch bajtów ad- 
resu możemy osiągnąć efekt podobny do 
przemieszczania setek bajtów w ooszarze 
pamięci ekranu. Program nr 1 demonstruje 
wykorzystanie tego sposobu. Przesuwa on 

FK 1 REM **************** 

FJ 2 REM * * . 

XA 3 REM * Pro* ra« nr 1 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

ST 10 DL»PEEK(560)+256*PEEK(561) 

HE 20 LMSL=DL+4 

GP 30 LMSH=DL+5 

KS 33 ? CHR$(125) 'LIST 

JU 40 FOR I=PEEK(89) TO 235 . 

IG 50 POKE LMSH, I 

JO 60 FOR J»PEEK(88) TO 255 

KS 70 POKE LMSL, J 

ES 80 FOR W-l TO 160'NEXT 14 

JG 90 NEXT J 

FR 100 NEXT I 

NS 110 END 
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ekran nad obszarem pamięci zawierającym 
wydruk programu oraz procedury systemu 
operacyjnego. W rezultacie otrzymujemy 
przesuwanie poziome i pionowe. Czyste 
przesuwanie pionowe możemy uzyskać 
przez dodawanie lub odejmowanie długości 
linii w bajtach do argumentu rozkazu LMS, 
Wykonuje to program nr 2. 


FK 1 REM **************** 

FJ 2 REM * * 

XU 3 REM * Prot rum nr 2 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

HG 10 LIST 1,140 

SU 20 DL=PEEK < 560 ) +256*PEEK (561) 

HF 30 LMSL-DL+4 

GQ 40 LMSH-DL+5 

ZR 50 EL-24-EH»PEEK(561) 

PY 60 Ell-EL+40 

HO 70 IF EL <256 THEN 110 

QZ 80 EL=EL-256 

SP 90 EH-EH+1 

FF 100 IF EH-256 THEN END 

MQ 110 POKE LMSL , EL 

IG 120 POKE LMSH, EH 

LF 125 FOR 14** 1 TO 250<NEXT W 

RG 130 GOTO 60 

NY 140 END 

Czyste przesuwanie poziome nie jest tak 
łatwe do uzyskania jak pionowe. Powodem 
jest szeregowa organizacja pamięci ekra- 
nu. Bajty danych umieszczone są kolejno, 
bajty jednej linii występują bezpośrednio za 
bajtami poprzedniej linii. Możemy przesu- 
wać linie poziomo w lewo przez zwiększanie 
argumentu LMS. W tym wypadku jednak, 
skrbjne lewe bajty każdej linii będą przesu- 
wane do skrajnej prawej pozycji następnej, 
wyższej linii. Było to widoczne po urucho- 
mieniu programu nr 1. 

Rozwiązaniem może być rozszerzenie 
obszaru danych ekranu i rozbicie go na ciąg 
niezależnych obszarów poziomych linii da- 
nych. 

Musimy pamiętać, że RAM jest jednowy- 
miarowa i bajty umieszczone są kolejno, 
lecz teraz używana jest inaczej. Dla każdej 
linii poziomej rozszerza się obszar RAM du- 
żo dalej niż może być pokazane na ekranie. 
Nie jest to przypadek, wszak chcemy wy- 
świetlić większą ilość danych niż możemy 
zmieścić na ekranie. Aby pokazać tę dodat- 
kową informację, musimy ją wpierw prze- 
chować w pamięci. Przy takim uporządkowa- 
niu możemy stosować prawdziwe przesu- 
wanie poziome. Możemy przesuwać ekran 
nad danymi bez niepożądanego przesuwa- 
nia pionowego. 

Pierwszym krokiem w uzyskaniu czystego 
przesuwania poziomego jest określenie cał- 
kowitej długości linii poziomej i przydzielenie 
odpowiedniego obszaru RAM. Następnie 
musimy napisać całkowicie nowy program 
wyświetlania z rozkazami LMS w każdej linii 
obrazu. Program wyświetlania będzie oczy- 
wiście dłuższy niż zwykle. Jako argumentu 
LMS najwygodniej jest użyć adresu pier- 


wszego bajtu każdej poziomej linii danych 
ekranu. Dla każdej linii obrazu będzie jeden 
taki adres. 

W celu uzyskania przesuwania każdy 
argument rozkazu LMS w programie wy- 
świetlania musi być zwiększony, aby uzy- 
skać ruch w lewo, albo zmniejszony dla ru- 
chu w prawo. Program musi być tak skons- 
truowany, aby obraz nie przesunął się poza 
granice przydzielonych obszarów RAM; w 
przeciwnym przypadku mogą być wyświet- 
lone „śmieci". Podczas tworzenia programu 
należy pamiętać, że argument LMS wskazu- 
je pierwszy bajt danych ekranu w wyświet- 
lanej linii. Maksymalna wartość argumentu 
równa jest adresowi ostatniego bajtu w dłu- 
giej linii poziomej zmniejszonemu o liczbę 
bajtów w wyświetlanej linii. Pamiętajmy tak- 
że, że wartość argumentu LMS nie powinna, 
wewnątrz jednej długości linii ekranu (w baj- 
tach), przekraczać granicy adresu 4KB 
Opisany proces jest dosyć skomplikowa- 
ny, dlatego przedstawimy go na przykładzie. 
Najpierw wybieramy długość linii poziomej. 
Najwygodniej będzie użyć linii o długości 
256B, uprości to nam obliczanie adresu. 
Każda linia będzie zatem wymagać jednej 
strony pamięci. Używając trybu 2 BASIC-a 
zmieścimy na ekranie 12 linii obrazu; zatem 
potrzebne będzie 12 stron (3KB) RAM. Dla 
uproszczenia i zagwarantowania, ze pamięć 
ekranu nie będzie zawierać samych zer, 
użyjemy dolnych 3KB RAM. Obszar ten jest 
używany przez OS i DOS, dlatego powinien 
zawierać interesujące dane. Dla uczynienia 
eksperymentu bardziej interesującym, 
umieścimy program wyświetlania na stronie 
6, dzięki temu możemy wyświetlić go na ek- 
ranie podczas przesuwania. Początkowe 
wartości argumentów LMS będą zatem łat- 
we do obliczenia: wszystkie mniej znaczące 
bajty będą zerami, a bardziej znaczące będą 
miały kolejno wartości 0,1.2, ild Program 
nr 3 wykonuje opisane operacje i przesuwa 
program poziomo. Przegląda on dane z 

FK 1 REM **************** 

FJ 2 REM * * 

YO 3 REM * Program nr 3 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

QY 10 REM ZAPIS PROGRAMU WYŚWIETL 
ANIA 

WO 20 FOR 1=1536 TO 1538 
LD 30 POKE 1,112 
IS 40 NEXT I 
HL 50 FOR 1=1 TO 12 
XI 60 POKE 1536+3*1,71 
ZV 70 POKE 1536+3*1+1,0 
TU 80 POKE 1536+3*1+2,1 
IX 90 NEXT I 
WIJ 100 POKE 1575,65 
NH 110 POKE 1576,0 
RI 120 POKE 1577,6 
IT 130 REM PODANIE ADRESU PROGRAM 
U WYŚWIETLANIA 
HS 140 POKE 560,0 
LM 150 POKE 561,6 
ZB 160 REM PRZESUWANIE POZIOME 
DV 170 FOR 1=0 TO 235 
SS 180 FOR J»1 TO 12 
LW 190 POKE 1 536+3* J+ 1,1 

GC 200 NEXT J 

JJ 205 TOR W=1 TO 50 ' NEXT W 
FU 210 NEXT I 

OK 220 GOTO 170 

NX 230 END 

prawa na lewo. Po osiągnięciu końca strony 
zaczyna przeglądanie od początku. Program 
wyświetlania można znaleźć w szóstej linii 
od dołu (tj. na stronie 6). 

Następnym krokiem jest połączenie prze- 
suwania pionowego i poziomego dla uzy- 
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Skania ruchu ukośnego. Przesuwanie po- 
ziome otrzymujemy przez dodanie lub odję- 
cie 1 od argumentu LMS. Przesuwanie pio- 
nowe — przez dodanie lub odjęcie długości 
linii od argumentu. Wykonanie obu operacji 
daje w efekcie ruch ukośny. 

Poprzez różnorodne manipulowanie baj- 
tami argumentu LMS możemy uzyskać róż- 
ne rodzaje uporządkowań. Linie mogą prze- 
suwać się względem siebie lub wzajemnie 
przeskakiwać. Część z tych efektów można 
uzyskać za pomocą konwencjonalnego 
manipulowania obrazem, lecz dla ich osiąg- 
nięcia musi być przemieszczonych więcej 
danych. Zaletą przesuwania za pomocą 
argumentów LMS jest jego szybkość. Za 
miast manipulowania całym ekranem danych, 
o wielkości wielu tysięcy bajtów, wystarcza 
manipulowanie dwoma lub kilkoma tuzinami 
bajtów. 

Drugą interesującą zaletą komputerów 
Atari jest możliwość płynnego przesuwania, 
tj. przesuwania w odstępach mniejszych niż 
wielkość znaku. Odbywa się ono w krokach 
jednej linii ekranu pionowo oraz jednego 
taktu koloru poziomo. Ten typ przesuwania 
nie może iść zbyt daleko; dla otrzymania w 
pełni płynnego przesuwania na dużych od- 
ległościach, musimy połączyć płynne prze- 
suwanie ze zgrubnym. 

Istnieją dwa kroki dla implementacji płyn- 
nego przesuwania. Pierwszy, ustawiamy bity 
zezwolenia na płynne przesuwanie w baj- 
tach rozkazów programu wyświetlania dla 
linii obrazu, w których chcemy mieć taki 
ruch. W większości przypadków interesuje 
nas cały ekran, zatem ustawiamy odpo- 
wiednie bity we wszystkich rozkazach pro- 
gramu wyświetlania. Bit D5 rozkazu zezwala 
na przesuwanie pionowe, a bit D4 — na po- 
ziome. Następnie zapamiętujemy żądaną 
odległość przesuwania w odpowiednim re- 
jestrze. Istnieją dwa, jeden dla przesuwania 
poziomego, drugi dla pionowego. Rejestr 
przesuwania poziomego (HSCROL) jest pod 
adresem $D404(54276), rejestr przesuwa- 
nia pionowego (VSCROL) — pod adresem 
$D405(54277). Dla ruchu poziomego mu- 
simy zapamiętać w HSCROL liczbę taktów 
koloru, o którą chcemy przesunąć linie 
obrazu Dla ruchu pionowego zapamiętuje- 
my w VSCROL liczbę linii ekranu, o którą 
chcemy przesunąć linie ot*azu Zapamię- 
tane wartości przesuwania będą używane 
dla każdej linii, dla której dozwolone jest 
płynne przesuwanie. 

Podczas używania płynnego przesuwania 
możemy napotkać dwa problemy. Oba wy- 
nikają z faktu, ze częściowo przesunięty 
obraz pokaże więcej informacji niż normal 
ny. Rozważmy, na przykład, co się zdarzy, 
kiedy przesuniemy poziomo linię o pół znaku 
w lewo. W linii jest 40 znaków Połowa pier- 
wszego znaku zniknie za lewym brzegiem 
ekranu. Czterdziesty znak przesunie się w 
lewo. Co zajmie jego miejsce? Powinna 
przesunąć się połowa nowego znaku i zająć 
miejsce przesuniętego teraz czterdziestego 
znaku. Mógłby to być 41 znak Lecz co się 
zdarzy, jeśli w normalnej linii jest tylko 40 
znaków? 

Jeśli zastosujemy przesuwanie zgrubne, 
wtedy 41 znak nieoczekiwanie pojawi się na 
ekranie po zniknięciu pierwszego znaku za 
lewym brzegiem. Rozwiązanie tego proble- 
mu zostało wbudowane w sprzęt Istnieją 
trzy możliwe szerokości ekranu; wąski (o 
szerokości 128 taktów koloru), normalny (o 
szerokości 160 taktów koloru) i szeroki (o 


szerokości 1 92 taktów koloru). Opcje te wy- 
bierane są przez ustawienie odpowiednich 
bitów w rejestrze DMACTL. Podczas uży- 
wania płynnego przesuwania poziomego 
ANTIC automatycznie pobiera więcej da- 
nych z RAM niż wyświetla. Jeśli, na przykład, 
DMACTL ustawiony jest dla normalnej sze- 
rokości ekranu, który w trybie 0 BASIC-u ma 
40 bajtów na linię, to ANTIC będzie pobierał 
ilość danych odpowiednią dla szerokiego 
ekranu - - 48 bajtów na limę. Jeśli nie będzie 
to brane pod uwagę, to spowoduje przesu- 
nięcie linii w poziomie Problem ten nie wy- 
stąpi, jeśli zorganizowaliśmy już RAM w dłu- 
gie linie poziome. 

Podobny problem dla przesuwania pio- 
nowego może być oosługiwany jednym z 
dwóch sposobów Pierwszym, niezbyt sta- 
rannym, jest zignorowanie go. Wtedy nie 
otrzymamy półobrazów na obu końcach 
obrazu Zamiast tego obrazy u dołu ekranu 
me będą przesuwać się właściwie; będą 
one pojawiać się nieoczekiwanie. Dla uzy- 
skania właściwego płynnego przesuwania 
do i z rejonu ekranu musimy przeznaczyć 
jedną linię obrazu do działania jako bufor. 
Wykonamy to przez nieustawianie bitu prze- 
suwania pionowego w rozkazie programu 
wyświetlania ostatniej linii strefy obrazu 
przesuwanej pionowo. Okno przesunie się 
teraz bez nieprzyjemnego szarpnięcia. 
Obraz ekranu będzie skrócony o jedną linię. 
Zaleta przesuwania obrazów staje się teraz 
widoczna. Możliwe jest tworzenie obrazów, 
które mają więcej niż 1 92 linie ekranu. 

Płynne przesuwanie ma ograniczony za- 
sięg. Pionowym ograniczeniem jest 15 linii 
ekranu, poziomym — 16 taktów koloru. Je- 
żeli spróbujemy przesunąć poza te granice, 
ANTIC zignoruje starsze bity rejestrów 
przesuwania. Dla uzyskania pełnego płyn- 
nego przesuwania, w którym cały ekran 
płynnie przesuwa się tak daleko, jak chce- 
my, musimy połączyć płynne przesuwanie 
ze zgrubnym. W tym celu najpierw płynnie 
przesuwamy obraz, śledząc jak daleko się 
przemieścił. Kiedy długość przesunięcia 
równa się wielkości znaku, zerujemy rejestr 
płynnego przesuwania i wykonujemy prze- 
suwanie zgrubne 

Program nr 4 ilustruje proste płynne 
przesuwanie realizowane z małą szybkoś- 

FK 1 REM **************** 

FJ 2 REM * * 

ZI 3 REM * Pro* ram nr 4 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

TR 8 HSCR-54276 

VU 9 YSCR-54277 

BS 10 GRAPHICS 0 'LIST 1,200 

SU 20 DL»PEEKC560>+256*PEEK<561) 

XZ 30 POKE DL+10,50 

YN 40 POKE DL+ 11,50 

KR 50 FOR Y-0 TO 7 

UN 60 POKE VSCR, Y 

OT 70 GOSUB 200 

OK 80 NEXT Y 

WO 110 FOR X-15 TO 0 STEP -1 
ZN 120 POKE HSCR , X 
RD 130 GOSUB 200 
LT 140 NEXT X 
QG 150 GOTO 30 

VG 208 FOR J*1 TO 200«NEXT J'RETU 
RN 

JJ 205 FOR U-l TO 50'NEXT U 
NT 210 END 
OK 220 GOTO 170 
NX 238 END 

cią. Demonstruje on kilka problemów, które 
wystąpią podczas przesuwania. Pierwszy, 
linie obrazu poniżej przesuwanego okna są 


przesunięte w prawo. Jest to zgodne z 
wcześniejszym opisem, że ANTIC automa- 
tycznie pobiera 48 bajtów zamiast 40. Prob- 
lem ten występuje tylko w nierealistycznych 
programach demonstracyjnych, takich jak 
ten. W rzeczywistych zastosowaniach upo- 
rządkowanie danych ekranu wyklucza ten 
problem. Drugi, bardziej poważny, występu- 
je, kiedy rejestry przesuwania są modyfiko- 
wane w czasie, gdy ANTIC jest w środku 
procesu wyświetlania. Wprowadza to pewne 
zamieszanie i powoduje, że obraz na ekra- 
nie drży. Rozwiązaniem jest zmiana rejes- 
trów przesuwania tylko w czasie okresów 
przerwy pionowej. Może to być wykonywane 
tylko za pomocą procedur języka asemb- 
lera. 

Zastosowania pełnego płynnego przesu- 
wania są niezliczone Oczywistym jest, na 
przykład, wykorzystanie go do przeglądania 
dużych map, utworzonych za pomocą gra- 
fiki znakowej. Używając trybu 2 BASIC-u 
można utworzyć dużą mapę, która zawiera 
np.: 10 pełnoekranowych obrazów. Ekran 
staje się oknem dla mapy. Użytkownik może 
przesuwać całą mapę za pomocą manipu- 
latora. Taki system jest bardzo efektywny 
pod względem zajętości pamięci. 

W ten sposób mogą być również prezen- 
towane duże schematy elektroniczne. Ma- 
nipulator może być używany zarówno do 
poruszania się po schemacie, jak i wskazy- 
wania określonych składników, które użyt- 
kownik chce wybrać. Za pomocą tej techni- 
ki może być prezentowany dowolny duży 
obraz, który nie musi być oglądany w całoś- 
ci. 

W podobny sposób mogą być przeglądane 
duże bloki tekstu. Wprawdzie czytanie ciąg- 
łych bloków tekstu przez przesuwanie obra- 
zu nie jest zbyt wygodne, jednak może być 
używane, na przykad, do sprawdzenia, czy 
tekst został właściwie zredagowany. Wyko- 
rzystano to w programie ATARI WRITER. Na 
ekranie dysponującym 40 znakami w linii 
możemy obejrzeć zredagowaną stronę (ta- 
ką, jak otrzymamy po wydrukowaniu) zawie- 
rającą np.: 80 znaków w linii. Technika ta 
bardziej przydaje się do prezentowania od- 
dzielnych bloków tekstu. Szczególnie inte- 
resujące może być zastosowanie jej do two- 
rzenia rozwijających się menu. 

Program nr 5 prezentuje jeden z możli- 
wych do uzyskania efektów. Ma on zmodyfi- 

FK 1 REM **************** 

FJ 2 REM * * 

AC 3 REM * Pro* ram nr 5 * 

FL 4 REM * * 

F0 5 REM **************** 

NL 6 REM 

BO 8 DIM SC*< 17) 'FOR 1*1 TO 17'RE 
AD A'SC*<I,I)»CHR*<A>'NEXT I 
MW 9 GRAPHICS 0'POKE 752,1 'POKE 6 
22,255 

NU 10 POKE 1536,112 

BF 20 POKE 1537, 66 -POKE 1538, 64 'P 

fllćF 1 ■TM . 1 

KM 25 FOR 1-0 TO 23 'POKE 1540+1,2 
■NEXT I- POKE 1564,112 
BD 30 POKE 1565, 82 -POKE 1566,0 'PO 
KE 1567, 100 'POKE 1568,65'POKE 
1569, 0'POKE 1570,6 
KD 40 POKE 560, 0'POKE 561,6'POKE 
54276, 7 'LIST 0,70 
HR 58 FOR 1-0 TO 920 'POKE 25640+1 
,.PEEK < 40000+ 1 ) ' NEXT I 
MV 55 X-0'Y- 100 'POKE 1 567, Y' POKE 
1566, X 

OK 56 FOR J-0 TO 230 
VG 60 FOR 1-7 TO 0 STEP -1 'POKE 5 
4276, I 'G08UB 100-NEXT I 
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PL €2 X-X+2'IF X>255 TMEH X-0'Y«Y 
♦1 

JU 63 fl«4J8R<ADR<8C#)/7/X/Y> 

YL 64 REM POKE 54276/7 1 POKE 1566/ 
K-POKE 1567/Y 
JP 66 NEXT J 
UW 76 GOTO 55 

VU 166 FOR T-6 TO 5-HEXT T 1 RETURN 
OU 266 DATA 164/164/164/141/4/212 
,164,184,141,38/6/164,104/141/ 

31,6,96 

JJ 265 FOR Wal TO 50'NEXT W 
OK 226 GOTO 176 
NX 238 END 

kowany program- wyświetlania, dzięki czemu 
została wyraźnie wydzielona jedna linia u 
dołu ekranu. Otrzymujemy w niej LIST pro- 
gramu z przesuwaniem w poziomie, a nie w 
pionie. Podprogram w języku maszynowym 
(umieszczony w zmienne) SC$) umożliwia 
zrealizowanie płynnego przesuwania po- 
ziomego na dużej odległości 
Program nr 6 zamienia ekran naszego te- 
lewizora w przesuwający się papier, na któ- 
rym dwa pisaki kreślą Imię. Jeden pisak stoi 
w miejscu w celu oznaczenia linii środkowej, 


FK 1 REM **************** 

FJ 2 REM * * 

RU 3 REM * Pro* ram nr 6 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 
OZ 56 GOSUB 860 
RK 66 GOSUB 960 
SX 70 POKE X2,80 

OS 00 POKE 1675/0 -REM USTAWIENIE 
SZYBKOŚCI 
BU 96 START - 1 00 

VU 108 ? <? •? •? *7 "NACI8NI J <3 
TART> DLA NOWEGO PRZEBIEGU ri 
RW 116 1F PEEK<532?9)OS THEN 110 
TE 120 GOSUB 700 

HP 130 U-INT<PEEK<53770)^32> 

AG 140 WYNIK-W>PHI-T<W) 

UK 150 0--16' PRÓBA- 100 

IK 160 FOR PR-1 TO PR08A-1 > 0— fl ' 8 

-0+16 

ON 170 R-PEEK<53770> 

VT 180 IF PEEK<33279)«3 THEN R-25 
6-R 

FU 190 IF R>127 THEN 228 
ZN 200 M-W+1'IF U»8 THEN U*7 
NA 216 GOTO 236 
OM 220 W-W-l • IF W— 1 THEN W*0 
TT 230 MYNIK-WYNIK+W - PHI-T<W) 

BC 240 FOR Z-32+S TO 63+S 
TG 256 POKE XI ,PEEK<8B+Z-PMI )+PEE 
K<88+Z+PHI~1> 

UJ 260 NEXT Z'NEXT PR 
FN 270 GOSUB 780-7 >? • ? <? 

ES 280 ? * WARTOŚĆ JE8T DODATNI 
A LUB UJEMNA" 

UA 290 ? ■ JEŚLI ŚREDNIA AMPLIT 
UDA BYŁA" 

NG 300 ? * POWYŻEJ LUB PONIŻEJ 
OCZEKIWANEJ. " 

GE 310 ? '? •? " WART08C - M ;W 
YNIK-PR0Bfl*7/2 
OJ 320 7 '7 >? 'GOTO START 
XL 700 GRAPHICS 7+16 'POKE 559,0 
DI 718 8ETC0L0R 4,0/0'SETCOLOR 2, 
1 , 8 < 6ETC0L0R 0,8,4 
KP 726 PG-PEEKC 106) 

TT 736 POKE 203,56 - POKE 284,PG-1 
CJ 746 POKE 205, PEEK<560) 'POKE 26 
6,PEEK<561> 

LF 750 KEEPŁ-PEEK < 546 ) 1 KEEPH-PEEK 
<547) 

NZ 766 POKE 546, 135 'POKE 547,6 
XP 770 POKE 559 / 34 ' RETURN 
CO 700 POKE 559/0 'GRAPHICS 7+16 «P 
OKE 546/ KEEPL' POKE 547/KEEPH 
EO 790 GRAPHICS 0- RETURN 
VZ 880 Xl"1664 1 M2-1663 
VX 810 DATA 200/200,40/192,48/12/ 
3,216, 165,26,41,0,24,208 66,16 
S 


YO 811 DATA 203,109/130/6/133,203 
, 144,26, 163,204, 105,0/41, 15, 72 
,13 

AC 812 DATA 175/6/133/204,104,208 
,11,174, 130/6, 169,0,202, 157,0, 
112 

OR 813 DATA 208,250,172,130,6,169 
. 0, 136, 145/203.-208/251, 160,4, 1 
77,205 

RP 814 DATA 109,130,6,145,205,200 
, 177,205, 105/0,41/15, 109, 175,6 
,145 

1 815 DATA 205,169,255,141,250,6 
, 173, 128,6,32,234,6, 169,85, 141 
,250 

GU 816 DATA 6,173,129,6,32,234,6, 
76, 95, 228, 201 , 180, 176, 17, 72/ 74 
HM 817 DATA 74,168,104/41/3,170/1 
89/ 131/6/41.255,17,203,145,203 
,96 

HF 820 DATA 359/0 

UW 830 FOR N-1664 TO 1791 

FM 840 READ DAT POKE N.DAT >NEXT N 

DS 050 POKE 17ll/P£EK<106)-16 

X0 860 POKE 559, 34 -RETURN 

HY 900 DIM T<8) 

LN 910 POKE 559,0 
MG 920 DEG SB- 1336 
FR 930 FOR N-0 TO 127 
QV 940 POKE SB+N , 40*S I N < N*45« / 8 ) +4 
0'NEXT N 

AP 950 T<0)-16'T<1)-15'T<2)-14'T< 
3>«13 

VG 966 T<4)-11'T<5)-9'T<6)-6'T<7) 

-0 

RP 970 POKE 539, 34 
ZV 960 RETURN 


a drugi wykonuje ruch sinusoidalny ze 
zmieniającą się losowo amplitudą. Przy 
każdym przekraczaniu linii środkowej po- 
dejmowana jest losowo decyzja o zwięk- 
szeniu lub zmniejszeniu amplitudy dla na- 
stępnego półokresu (z uwzględnieniem dol- 
nego i górnego ograniczenia amplitudy) 

Każda binarna decyzja (zwiększenie lub 
zmniejszenie) wynika 2 kombinacji decyzji 
człowieka i komputera. W komórce o adre- 
sie 537 70( RANDOM) występuje szybko 
zmieniający się ciąg liczb pseudolosowych 
z przedziału 0—255. Podczas każdego 
przecinania linii środkowej komputer decy- 
duje o zwiększeniu lub zmniejszeniu ampli- 
tudy pisaka w zależności od tego. czy ak- 
tualna liczba losowa jest większa, czy 
mniejsza od 127. Określa to przebieg zda- 
rzeń do czasu naciśnięcia przez użytkowni- 
ka klawisza OPTION Jeśli jest on naciśnięty 
w czasie przecinania linii środkowej, wtedy 
decyzja komputera, o zwiększeniu lub 
zmniejszeniu, jest odwracana. 

Po pewnej liczbie okresów program koń- 
czy działanie i wyświetlany jest wynik, War- 
tość dodatnia lub ujemna wskazuje, że 
średnia amplituda ruchomego pisaka byta 
większa lub mniejsza od oczekiwanej w tym 
przebiegu. 

Opisując manipulowanie obrazem za 
pomocą rozkazów LMS programu wyświet- 
lania nie można pominąć przesuwania 
„bardzo zgrubnego", czyli wymiany całych 
obrazów na ekranie. 

Konwencjonalny sposób, stosowany w 
większości komputerów, polega na kopio- 
waniu zawartości wybranego obszaru RAM 
do obszaru pamięci wyświetlanego na 
ekranie Czynność taka może być czaso- 
chłonna, dlatego musi być realizowana przez 
procedurę w języku maszynowym. Pomimo 
tego, podczas przesyłania kilku tysięcy baj- 
tów, może być zauważalne opóźnienie zmia- 
ny obrazu. 

Zamiast przesyłania setek i tysięcy bał- 
tów. w Atari wystarczy zmienić zawartość 
dwóch (lub czterech) bajtów, aby uzyskać 


taki sam efekt w znacznie krótszym czasie 
Możliwe jest również przygotowanie kilku 
obrazów i szybkie wyświetlanie ich na ekra 
nach w określonej kolejności 
Opisany sposób demonstruje program 
nr 7. Po uruchomieniu następuje krótka 
przerwa, w czasie której komputer zapisuje 
ekran nr 2. Następnie widoczne jest zapisy- 


FK 1 REM **************** 

FJ 2 REM * * 

BO 3 REM * Pro«mn nr 7 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

FL 180 DL-PEEK < 560 > +256*PEEK < 56 1 ) 
ZW 110 MEMTOP-PEEK C 742 ) 

TO 120 EKRAN 1 -PEEK < 39 ) ' EKRAN2-MEM 
TOP-5 

PT 130 POKE 89 , EKRAN2 1 POKE 106, EK 
RAN2+4 • ? CHR*< 125) 

WB 140 FOR X-1 TO 22? "********* 
EKRAN 2 *********" -NE 

XT X 

NX 150 POKE 89, EKRAN 1 ■ POKE 106, EK 
RAN 1+4 ' ? CHR*< 125) 

XI 160 FOR X-1 TO 22'? " 

tkran 1 — -"'NE 

XT X 

WG 1B0 OPEN #1/4/0/ "K' " GET #1,X- 
CLOSE #l-X-X-48 IF X<1 THEN 18 
0 

TO 190 ON X GOTO 210,220 
OR 200 GOTO 180 

UA 210 GOSUB 250 -POKE DL+5, EKRAN 1 
'GOTO 180 

kj 220 GOSUB 250 'POKE DL+5,EKRAN2 
-GOTO 180 

IX 230 END 

M 250 SOUND 0, 100, 10, 15 'FOR X-1 
TO 20 ' NEXT X 

X 260 SOUND 0,0, 0,0 'RETURN 


wanie informacji na ekranie nr 1 . Naciskając 
klawisze 1 lub 2 otrzymujemy na ekranie je 
den z dwóch obrazów. 

Proszę zwrócić uwagę na linie 130 1 150 
Pierwsza z nich umożliwia zapisanie obrazu 
w obszarze pamięci, który nie jest wyświet- 
lany, tak jakby to był obszar pamięci ekranu. 
W taki sposób możemy oszukać system 
operacyjny i przygotować jeden lub więcej 
obrazów, które później wyświetlimy na 
ekranie. 


Przygotowując ten artykut korzystaliśmy z 
opisów i programów zamieszczonych w De 

Re Atari, Second book of Atari oraz Se- 
cond book ot Atari graphics. 

Tomasz MROWIEĆ 
Ludwik PIELA 


Uwaga! 

Dwa znaki z lewej 
strony numeru linii nie 
są częścią programu, 
lecz sumą kontrolną linii 
dla Edytora BASIC-u 
(„IKS" nr 4 z 1987 r.). 
Nie wprowadzamy ich 
do komputera 
Występujące w pro- 
gramach podkreślone 
znaki należy wprowa- 
dzić w negatywie. 


Czy komputery 
lubią kolejki? 

Kolejki już od dawna wrosły w naszą rzeczywistość. Nie można 
wyobrazić sobie pracy jakiejkolwiek kasy bez kolejek. 

Postawmy nasz komputer np. w budce, w której sprzedają lody. 
Przychodząc wrzucasz do automatu pieniądze i wtedy możesz 
wpisać się do kolejki. Ponieważ w kolejce nie ma wielu klientów 
wystarczą tylko inicjały i np. wiek. Komputer musi wiedzieć, ile mo- 
żna danej osobie sprzedać kulek lodów. 

Gdy przyjdzie pora, automat zawoła cię i wyda lody. Oczywiście 
natychmiast zapomina o tym, że kupowałeś lody. Nawet komputer 
„nie ma głowy" do zapamiętania wszystkich klientów. 

Dla zainteresowanych opowiem, jak tworzymy taką kolejkę. Sto- 
jąc w kolejce, musimy pamiętać, za kim stoimy. Warto również za- 
pamiętać, kto stoi z tyłu. W zasadzie inne wiadomości nie są wa- 
żne. Komputer również tak czyni. Pozostaje jeszcze problem przed 
kim stoi pierwszy klient i za kim ostatni. W tym celu tworzymy do- 
datkowego sztucznego klienta (tzw. głowę kolejki), który stoi przed 
pierwszym, a za ostatnim klientem. Przy tak zorganizowanej kolej- 
ce można pozwolić sobie np. na wejście w środek kolejki, choć nie 
staliśmy w niej od początku. Wystarczy wmówić panu, za którym 
chcemy stanąć, że staliśmy za nim f a panu, przed którym stajemy, 
że staliśmy przed nim. Oczywiście nasza kolejka nie przewiduje 
takich możliwości, lecz możecie w ramach treningu dopisać taką 
procedurę. 

Prezentowany program napisany w języku Pascal operuje na 
strukturze nie występującej w Basicu. Jest nią REKORD. Rekord 
jest podobny do wektora (tablicy o jednym wierszu), lecz o ile w 
wektorze każdy jego element jest jednego typu, np. liczby rzeczy- 
wiste, o tyle w rekordzie kolejne jego elementy mogą być różnych 
typów. W naszym programie inicjały są typu znakowego (char), 
zaś wiek i liczba kulek typu całkowitego. 


( HHHHHłHłHłłHHłHHH 

• PROGRAM, KOLEJKA » 

» aytor: t 

* Cezary Dobrowolski ♦ 



Prograa kolejka; 
tabel 10,40; 
type 

tl«record nazw, im e: char; ' 

lat, il: integer; _ 
and; 

t2“arrayll..l00] oł tl; . 
var 

i , iki integer; 
kol: t2; 
a: char; 

procedurę wejscie(var ile integer; var kol : t2 ) i 
label 13,20; 
var * 

atchari 

cena, wartość, i losc, reszta: integer; 
begin 
13: 

ił ik«100 than ' / 

begin 

writelnCbrak.aiejsc w kolejce'); 
writelnt nacisnlj ENTER ' ) : readln (a) ; 
goto 20; 
and; 

cena:«15; 

writeCpodaj wpłatę? ');readln (wartość); 
writeCile chcesz kupie? ')|readln(ilosc); 
reszta: «wartosc-cena*i losc; 
writelnt wyplata reszty', reszta); 

ił reszta<0 than begin writeln Cza ealo wplaciles');reedln(a); goto 20|snd; 
lki-ik+1; 

kotlik]. il:»tlosci , 

writeCpodaj pierwsza litere nazwiska klienta: hreadlntkollikl.nazw); 

writeCpodaj pierwsza litere iaienia klienta: lireadlntkoltikl.iaie); 

-writeCilosc lat: ')ireadln<kollik3.1at)i 

8- IKS 


writet czy jeszcze ktoś chce kupie lody (T/N) ’);readln<a)i 
ił a* t' than goto 15: 

20: 

and; 

procedura obsługa <var Iks integer; var kol: t2) ; 
label 30: 
var i: integer; 
begin 

ił ik«0 then 
begin . 

writelnCnie aa klientów do obsługi ); 
writelnl.'nacisni j ENTER ): 
goto 30; 
and; 

writelni obsługa klienta: .kol tli. nazw. .koili). iaie, ' .koili]. lat): 

łor ii»2 to lk do 

begin 

kolli-l). nazw: *kolli}. nazw: 

kolli-13.iaieiwkoim.iaie; 

kolli-ll.latiwkoim.lat: 

end; 

ik:»ik-li 

writelnt naci snu anter iireadlnuit 
30: 
end: 

procedura wydruk i ik : integer: kol: t2)i 
var 

i: integer; 
begin 

for i;»l to ik do 
begin 

wntelnu, .koili]. nazw, .koili). ieie. lat .koili). lat); 
end; 

writei nacismj ENTER ); readln tan 
end; 

begin (prograeu glownego) 
ik:*0; 

10: 

łor i:«l to 23 do begin writeln: end: 
writeln Cwybiez opcje: ): 
writeln Cl-wejscie klienta ); 
writelnt 2-obsluga klienta ); 
writelnt' 3-1 1 sta klientów w kolejce); 
writelni 4-koniec oracv ); 
readln ( i) i 

ił i*l then wejscietik.kol); 
ił i»2 then obslugatik.koDi 
ił i»3 then wydruk ( i k. kol): 

ił i«4 then begin writelnCKoniec pracy przeeraszaay ); goto 40: end; 
goto 10; 

40: 

end. 
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„Lilayati” — Okopy (1) 

Mieczysław SKONIECZNY 


Większości Czytelników nie trzeba tłumaczyć czym jest „Lilaya- 
ti". Są to interesujące rozrywki matematyczne zebrane w ciekawą 
całość przez Szczepana Jeleńskiego. Jak zaznacza autor 
w przedmowie, celem tej publikacji jest „...służyć przez dłuższy czas 
i wielokrotnie za podręcznik dostarczający Czytelnikowi okazji do 
pożytecznej rozrywki w chwilach wolnych, spędzanych czy to sa- 
motnie, czy też w gronie przyjaciół i znajomych". Chcę zapropo- 
nować, aby w tej zabawie wziął udział także mikrokomputer. Arty- 
kuł ten rozpocznie cykl poświęcony rozwiązywaniu anegdot ma- 
tematycznych zaczerpniętych w „Lilavati" z wykorzystaniem mik- 
rokomputera. 

Ze wżględu na charakter czasopisma na początku proponuję 
anegdotę prezentowaną przez S. Jeleńskiego pod numerem 55 
o nazwie „W okopach". 

Do okopu na froncie weszło 8 żołnierzy i oficer, który zajął sta- 
nowisko na lewym skrzydle. Z pewnych względów oficer musi zna- 
leźć się na prawym skrzydle, co nie jest proste, gdyż okop jest 
ciasny, co uniemożliwia przesuwanie się poza żołnierzami. Na ze- 
wnątrz nie można nawet wysunąć głowy, bo nieprzyjaciel prowadzi 
ciągły ogień na nasze pozycje. Ale w okopie są trzy wgłębienia, 
w których może chwilowo stanąć jeden żołnierz. Problem do rozwią- 
zania jest następujący: jak powinni poruszać się żołnierze, aby ofi- 
cer przeszedł wzdłuż całego okopu i stanął na prawym skrzydle? 

Charakterystyka programu 

Wersja źródłowa programu, opracowanego w BASIC-u, jest na- 
stępująca. 

W instrukcjach 12—16 są wypełniane wartościami początko- 
wymi 2 pomocnicze tablice 1 3-elementowe: 

a) td — zajętość określonej pozycji 

td(i)=0 — i-ta pozycja wolna 
td(i)=j — żołnierz nr j stoi na pozycji i. 

b) w — współrzędne znakowe x dla rysowania głowy żołnierza 

w i-tej pozycji. 

Program pracuje w 2 wariantach: 

1 ) Samodzielne poszukiwanie rozwiązania problemu. 

2) Prezentacja rozwiązania modelowego (75 przesunięć). 
Program w instrukcjach 20—1 80 zapoznaje użytkownika z prob- 
lemem i wybiera żądany wariant pracy. 

Instrukcje 300—499 to realizacja wariantu 1. Po zapoznaniu 
z zasadami gry, użytkownik samodzielnie rozwiązuje anegdotę, wpro- 
wadzając przed każdym posunięciem numer przesuwanego 
żołnierza (1 —9) oraz numer pozycji, na której ma stanąć żołnierz 
(1-3). 

Instrukcje 460—480 badają czy ruch jest możliwy. Informacje 
o każdym przesunięciu są wyświetlane w górnym okienku ekranu. 

Instrukcja 500—550 to realizacja wariantu 2. Parametry przesu- 
nięcia są pobierane z DATA i automatycznie wykonuje się ruch. 
W ten sposób odbywa się 75 przesunięć. 

9 om tdiniiom misi 

10 kod>Ql KODĘ IlINK 0.26iINK I. Ol INN 2,9iINN J. 61 PAPEA 2iBOROER 9|PEN 1 
1! R INDOR £1,1, 40,1. ii WER tl.OlCLI Cl 

12 CLSiREITORE 12iF0R 1'1 TO IJiRfM nllliNEIT 1 
U MTR J, 7, II, 19, lł, 23, 27, 31, 33.39, 19, 25,51 

19 tdlUMltdllOIMiFOR 1*2 TO łiUltlMiREIT 1 
14 FOR I>11 TO l3ltd(l)*0lNERT I 

20 60SUB WOOiPRIWOo okoou ni frmelt, » ityc:no7el z Mt-urzyjiclilM, kmiIo 0 Polnlirzy Ikolbr 
ziilony, miRtry 2-91 1 itictr Ik 

elor cztrupny, mutr ll.MSOSUB 1000 

90 PAPER 2 ilOCRTE l.SlPRINHMIctr Mil « ownych wzglldSit znilti* lit ni prwyR ikrzyRll. Oto It 
it euinynii tołt MCc orzttunl* 
lit pozt ToInlrriitl.Nł ztwiltri nlt »o9ni nwit RYłU-* 

łO PRlNT*nl* glony, to Mwrzyjicltl orsutdzl cl Igły ogl*3. Ali » okopu il trzy mlt-bltnli, ■ k 

t5rvch io9t cOnIIono itinl' Iłol 

nltrz.’ 

100 PER OiLOCATE I,23tPRINT'NACI8NIJ 00*01 NY KLARISZ* 

110 IF INNEYt*" S0T0 110 

120 LKATE 10,121 FOR IM TO 34HPRINT* MNEII I 

130 PEN 1 IlOCRTE 1.I3 iPRINT'JiI ootlnnl ooruiil* ilC łflnlirzt, Aby Ołlctr grznztdl *zdlu9 ciltg# o 
kotu i itmll ni orinyi ikrzydl 

1(0 L0CATE l,19iPRIRT*Rybiprz Itdtn z NirlintSut t.8*« tzukitz rozullzinto protllM. 

2 . Chctiz obljrzt* rozMIZMi 
o oodtlott (79 prztiiinll*)." 

190 LOCATE 1.23l IRPUT*Podlj kod Mrlontu U lob 2li*,kod 
160 IF MM 6070 300 
170 If 1 od*: SOTO 900 


180 LOCATE 1. 23iPRIMT*Bl Id - zly kod mriintu 'iFOA !■! TO lOOOlNEIT IzEOTO 150 

300 ClSiP*INT*Przt 6 uMtcli dokonujtiz nodijlcł -nr grztiunintgo łolnltrzn -nr p 

ozycjl, no kt9ro) m it«MV 

310 PRIRT-Po o od zolu kzPdtgo nuotru ntltły uclMl-Hlull! ENTER. R biłlyo oknlt ni gSrzt ikronu pi 
Rv7ilttlui Inłorticjt doty- cz 
lei kifdtgo prztiunllcli.' 

320 PflINTiPRIRT' 6 ri ko3czy Ht lukciwo po prztiunlttlu do«5dcy (kolor czirnony - nrll ni pozy- ejt 
nr Ulny ikru okopu) 1 uitiNlł 

nlu Rolni trzy > potzltkotyo izyku tzn. ?ol- nltrz nr2 n« pozycji nr2 TolMorz nrł ni pozycji n 

rł. 

330 PRINTiPRINT'iolnltrZi iojl wójt nuttry uypUmt ni pltril, nitoolut nuotry pozycji ll * 1 - docz 
nt ni zowiltrz okopu. ‘iPRIRT 

340 PRINT'iyczyoy potodztnii ■ llo7d ruchS* iMtjizij Mł 75 IroZRlIZkMl oodłloRtl. 

350 PER OiLOCATE 1.25 iPR1I4T'HACI8KIJ DOROLHY ICLARI 8 Z" 

360 IF INNEYI*" GOTO 360 
370 CLS 16 OSUI lOOOirucbM 

380 PAPER 2i LOCATE l.BiIRPUT 'Podli nr prznuuinigo Polnierzpi ',nr2 
300 IF nr2>0 ANO nr2<10 6DT0 420 

400 LOCATE l, 8 iPRIRT'Blld - podino zly nuotr Oolnltrzo ' 

410 FOR tM TO lOOOlNEIT tiBOTO 380 

420 LOCATE l.OiIRPUT 'Podij nr pozycji nn.ktSrij u itinl*i'.nrl 

430 IF nr 1>0 ARO nrl<14 6OT0 455 

440 LOCATE l.TiPRINPBlId - podino zly nuttr pozycji. 

450 FOR tM TO lOOOlNEIT ti60T0 420 

455 CLS ElllF td(nrl)*0 GOTO 460 

456 LOCATE £1.13.4|PER CI.JlPRINT £1. "POZYCJA ZAJ0TĄ* 

457 FOR tM TO lOOOlNEIT tiCLS £1 

459 LKATE I. 81 FOR iM TO BOlPRIRT' 'nRElT I 16 OTO 380 

460 FOR 1*1 TO 13llF tdll)*nrl 60T0 462 

461 NERT i 

(62 IF nr 1*1 ANO i *2 6010 490 

463 FOR J*2 70 9 

464 IF nrl*j AND i*)-l 6070 490 

465 IF nrl*j ANO l*JM 60T0 490 

466 NERT j 

467 IF nrlMO ANO i*9 GOTO 490 

468 IF nr 1*4 AND 1*11 GOTO 490 

469 IF nr 1*11 AND 1*4 60T0 490 

470 IF nrl*12 AND |=6 6070 490 

471 IF nr 1*6 ANO i *12 60T0 490 

472 IF nr 1*8 ANO 1*13 60T0 490 

473 IF nrlM3 AND 1*8 60T0 490 

480 LOCATE £l,!l,4lPEN Cl,3lPRINT £I.'RUCH HIEDOZROLONY * 1 GOTO 457 
490 608UB SOOOiPAPER 2 iruch*rucHM 

495 IF tdtllOI 60T0 459 

496 FOR p*2 TO 9lIF tdlplOp GOTO 459 

497 NERT p 

499 LKATE l.BlFOR p*l TO BOlPRIRT' "ziRERT piGOTO 600 

500 CLS 16 OSUB IOOOiFOR rucb»l TO 75 

505 PEN Ol PAPER 2zLKATE 14.8lPRINT'GRA PORAŻONA' 

SIO READ trl.nrZ 

520 DATA 1,2,2,3,3,4,4,5.11.5.5,6,4,6,6,7,5,7,7,8,6,8,8,9,7.9,9,1,8.1,13,1,8,9,9,9.10,9,7,8.8,8,9.8, 
8,1,7,1,6,1,12.1.6,7,7,7,8,7.13, 

7, 5, 6 , 6 . 6 , 7, 6 , 8 , 6 , 4, 5, 5, 5, 6 , 5, 7, 5 

530 DATA 6,1,3,1,4,1,11,1,4,4,3,4,6,4,12,4,3,3,4,3,5,3,6,3,2,2,3,2,4,2,3.2.4,1.3,1,2,1.1.1.4,2.3,2,2 

,2.3, 3, 4, 3, 3, 3, 6,4, 3, 4.4, 4, 6.3.3 

,3, 7.6, 6 , 6 , 8 , 7, 7, 7, 8 , 8 , 9, 9 

540 60SUB 5000 

*30 NERT ruch 

600 PEN Ol LKATE 12,BiPRINT'0SI>GN)2E8 SURCES' 

610 FOR 1*0 70 26! FOR t*l TO lOOsNERT tiBORDER 1 1 NERT i 
620 GOTO 10 


Charakterystyka podprogramów 

Poszczególne czynności wykonywane w trakcie realizacji pro- 
gramu są zorganizowane w postaci następujących podprogra- 
mów: 

1 ) rysowanie okopu na ekranie i początkowego rozmieszczenia 
żołnierzy (instrukcje 1000—1170). 

1000 PEN li PAPER 2iF0R IM TO (OiLOCATE i,24lPRINT CHR* ( 131 ) l NERT 1 
1020 PAPER Ol FOR 1*1 TO 37 STEP 4 

1030 LKATE t.lBiPRINT CHR* (133)1 CHR* ( 1 31 ) | CHR* ( 1 3 1 ' l CHR* ( 1 3 1 1 1 
1040 FOR JM9 TO 23 

1050 LOCATE l.jlPRINT CHR«I133)|‘ "INERT jiNERT 1 
1060 FOR 1*13 TO 29 STEP 8 

1070 PAPER Ol LKATE !,!2lPRlNT CHRII135)|CHRt(131l|CNRI(131llCHRt(131l|lPAPER 2lPRlNT CHR9I133) 
1080 FOR JMI TO 17 

1090 PAPER Ol LKATE l.jlPRINT CHRIllOSIl* 'iiPAPER 2iPRINT CHR* (133) |NEXT jiNERT i 

1100 i*2ivM9iF0R **39 TO 7 STEP -4 

1105 FOR tM TO lOOOlNEIT t 

1110 606UB 2000 1 NE U i 

1120 **3i **39i G0SUB 2000 

1130 PEN li FOR 1*2 TO TiPAPER 2l LOCATE 4ll-l,20iPRINT US ING *£‘|liNEXT I 
1140 PAPER 3 1 LOCATE 39.20:PRINT*l' 

1143 IF kod*0 GOTO 1170 

1150 PAPER 2iPEN liFOR IM TO 10) LKATE 4*l-2,25i PRINT U8IN6 '£C'|liNERT i 
1160 FOR 1*0 TO 2 1 LOCATE KMIB.IliPRINT USING 'EfillMiNERT 1 
1170 RETURN 

2) Rysowanie jednego żołnierza w wybranej pozycji okopu (ins- 
trukcje 2000-2100). 


IKS -9 


Przed wywołaniem podprogramu należy nadać wartość naslę- 
'puoćyrtt parametrom: 

a — kolor żołnierza (a~2 kolor zielony. a=3 kolor czerwony — 
dowódca) 

x. y — współrzędne znakowe głowy żołnierza. 

»oo wet cim «:locate i.yinrar cmutoi 

201« LOCATC CHM(lłlliCHMll«)|CMItl(lł2t 

»J0 LX*Tf i-l.p&MtnT CMM(l?3)iOWłtl4JI|CHSI(]“«) 

2030 LOCATE «-t,rł3iHlttT CHM(lł51|CHMtmilO(Wt!ł7l 
ww locate «-i.y*4ipm CMnim) t cHM(in)iCM«(?oo) 

2030 HOT Ix-1>II6*3,(U-y>IU-IPiMM* 2.-2iDMM o.OiMAW 2,2tOMW 0.4 

2040 HOT (i-DIU'1. (2t*Y)ll6->0!0MMt 24, OiORMW <l.-2iOH»m -14.0 

2070 PLOT (>-2)114*1, t24-y)llt-34iDMM O.-feiDMMt O.lOiDRMfl 0.-20:DMWl 2,0i0RMR 0.12! 

plota o. -o ' 

2100 wrum 

3) Wpisanie w okno informacji o przesunięciu (instrukcje 
3000-3030) 

Parametry: 

ruch — numer kolejnego przesunięcia; 

nr 1 — numer pozyqi, na której ma stanąć żołnierz, 

nr 2 — numer przesuwanego żołnierza. 

3000 CIS tura EUiLOCATJ « { 2.2 jPRIIIT fl.-PriMMlCcio !»ri'iruch 

3020 L0CATE rł.2.4iPEM Cl.teMtlUT (l.*Prio«unM łolntorn #rt*inr2iPM«T «,* m pozycji Aft' 

«*ł«rl 

3030 MTUM 

4) Opróżnienie pozycji zajmowanej do tej pory przez żołnierza 
(instrukcje 4000—4020). 

Parametry: 

par. py — współrzędne znakowe pola, w którym była głowa żoł- 
nierza 


9130 SYMBOL 18f.,2* f 0,126, 76, 24, 48,126.0 

9M SYMBOL lBt,-54,i^,l'W,!?A,4*!. te2.23r,0 I ^ 

9170 SYMBOL 187, 12,24, 131,74, 24, 48,124,0 

9180 SYftBOL 188/8, 234, 172,24, 30, 102, 254, 0 

9190 KET DEF 16,1,53,171,172 

9200 KEYDEf 11,1,34,173,174 

9210 KEY DEF 3,1,37,173,174 

9220 KET DEf 20,1,32,177,178 

9230 KEY DEF 12,1,33,179,180 

9240 KEY DEF 4,1,54,181,182 

9250 KEY DEF 13,1,49,183,184 

9260 KEY OEF i4, 1,30, 183,186 

9270 KEY DEF 3,1,31,187,188 

9289 SYMBOL 190,60,126,126,233 

9290 SYMBOL 191,0, 3, 7, 15, 13, 14, 14, 14 

°300 SYMBOL 192,0,192,224,240,240,112,112,112 

9310 SYMBOL 193,14,14,14,30,62,60,120,112 

9320 SYMBOL 194,112,112,112,112,112,112,112,112 

9330 SYMBOL 193, 112, 96ł SYMBOL 194,233,233,231,231,211,211,231,231 

•340 SYMBOL 197, 112, 112, 112: SYMBOL 198,0,0,0,0,0,1,7,7 

9330 SYMBOL 199, 231. 231,231, 231, 231, 231, 231, 23USYHML 200,0,0,0,0,0,128,224,224 

9980 RETURN 

Symbole o numerach 171 — 1 88 to definicje znaków charaktery- 
stycznych dla języka polskiego (ą. ę, ć. ś). 

Litery małe otrzymujemy przytrzymując klawisz SHIFT i wciska- 
jąc jeden z klawiszy funkcyjnych (<0— f9) 

Litery duże otrzymujemy analogicznie przytrzymując klawisz 
CONTROL. 

Symbole 1 90—200 to części składowe rysunku postaci żołnie- 
rza. 


4000 PAPER 0: L0CATE par , pys PRIHT" * 

4005 FOR *=1 TO 4 

4010 L0CATE par-1 , py-t-is: PRINT’ *lNEXT s 
4020 RETURN 

5) Realizacja i przesunięcie na ekranie (instrukcje 5000—51 1 0) 

5000 FOR i=l TO 13 
5010 IF td(i)-nr2 60T0 5030 
5020 NEXT i 
5030 60SUB 3000 

5040 parali) :py*19:IF i>10 THEN py=13 

5050 S0SUB 4000 

5060 a=2: IF nr2=l THEN a=3 

5070 y=19s IF nrlMO THEN y=13 

5080 :j=w<nrl) sGOSUB 2000 

5085 PAPER 2: IF nr2=l THEN PAPER 3 

5086 PEN liLDCATE *,y+l :PRINT U5IN6 “£"inr2 
5090 IF kod=2 THEN POR t=l TO 1500:NEXT t 
5100 td(nrl)=nr2std(i 

5110 RETURN 

6) Definicje własnych symboli graficznych (instrukcje 
9000-9980) 

9000 SYMBOL AFTER 170 
9010 SYMBOL 171,0,0,120,12,124,204,118,3 
9020 SYMBOL 172.24,60,102,102,124.102,102,3 
9030 SYMBOL 173,24,0,60, 102,96, 102,40,0 
9040 SYMBOL 174,24,60,102,192.192,102,60,0 
9050 SYMBOL 173,0,0,60,102,124,96,60,6 
9040 SYMBOL 176,254, 9B, 104, 120, 104, 98, 254, 3 
9070 SYMBOL 177,36,24.28,24,36,24,60,0 
90M SYMBOL 178,240,96,112,96,226,102,254,0 
9090 SYMBOL 179,24,0,220,102,102,102,102,0 
9100 SYMBOL 180,24,198,230,246,222,206,198,0 
9110 SYMBOL 181,24,0,60,102,102,102,60,0 
9120 SYMBOL 182,12,36,108,198,198,108,56,0 
9130 SYMBOL 183,24,0,60,96,60,6,124,0 
9t40 SYMBOL 184,24,60,96,60,6,102,60,0 



W trakcie samodzielnego szukania rozwiązania (wariant 1 ) na- 
leży unikać 2 sytuacji sygnalizowanych przez program: 

POŻYCIA ZAJĘTA — nie należy pró- 
bować przesuwać 
żołnierza na po- 
zycję, na której stoi 

RUCH NIEDOZWOLONY — dopuszczalne są 
tylko ruchy na po- 
zycje sąsiadujące z 
pozycją zajmowaną 
przez żołnierza. 

Na zakończenie życzę Czytelnikom udanych poszukiwań w 
liczbie ruchów mniejszych niż 75 (rozwiązanie modelowe propo- 
nowane przez autora „LILAYATI"). 




C»mm<*dk*r*s 
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Komputer kontra miś 


iks — 11 


nowym osiedlu potrzebne przedszkole, Ro- 
dzice sami wnosili meble, zbijali sza lecz ki, 
zawieszali firanki. Również nawiązałam 
współpracę z kotem ZSMP działającym przy 
Spółdzielni Mieszkaniowej Godaw-Lotni- 
sko. Zetesempowcy wraz z pracownikami 
administracji , w ramach czynu społecznego 
wykonali m.in. uchwyty przy balustradzie, 
skrzynki do kwiatów. Pojawiają się w każdej 
wolnej chwili, na każde moje wezwanie, bo 
niestety drobnych, ale uciążliwych awarii, 
tzw. niedoróbek nie brakuje. 

Dobrze, że chociaż dzieci tymi przyzie- 
mnymi sprawami nie muszą się intereso- 
wać. Od czasu, gdy jeden z rodziców raz w 
tygodniu właśnie we wtorek przynosi kom- 
puter, w grupach pięcio- i sześciolatków ni- 
kogo nie brakuje 

— W programie nauczania starszych 
grup przedszkolnych jeszcze nie uwzględ- 


niono zaięć z komputerem. Program je?t 
stary sugerowały wychowawczynie, nie na- 
sjawion^ na żadne nowinki. A przecież dzie- 
ci są tak chłonne i podatne na nową wiedzę. 
W mig chwytają wszelkie zawiłości związa- 
ne z obsługą komputera. Wystarczy im po- 


kazać, wytłumaczyć, by bezbłędnie powtó- 
rzyły podpatrzone czynności Co tydzień 
włączają inną dyskietkę, z inną grą. 

— Co prawda, wolałybyśmy na ekranie 
monitora obserwować wraz z dziećmi pro- 
gramy ułatwiające m.in. poznanie cyferek 
czy liter niż gry komputerowe — dodała 
pani dyrektor. — Właściwie, to nie mam co 
narzekać. Przynajmniej dzieci od podstaw 
zagłębiają się w abecadło i tajniki kompute- 
ra... 

— Czy komputer zastąpi misia Puchatka 
— głośno zastanawia się wychowawczyni 
pani Jolanta Szewczyk. — Uważam, że ra- 
czej nie. Przecież nie można go ani przytulić, 
ani z nim się utożsamiać. Na pewno znajdzie 
swe miejsce obok misia, a nie zamiast me- 
go Zaobserwowałam, że niektóre gry wywo- 
łują u dzieci agresję. Tak nie powinno być. 
Może jestem w błędzie, może się nie znam, 
ale takie mam odczucie. Gdy nadejdzie taki 
dzień, że komputery zadomowią się na stałe 
w naszych mieszkaniach, to nie powinny 
być traktowane, jako wypełniacz czasu. 

Dla mnie przerażający jest fakt, iż przez 
telewizory emitowane programy tak bardzo 
absorbują naszych podopiecznych. Przed- 
szkolaki w poniedziałki nic nie robią tylko 
komentują poszczególne pozycje telewizyj- 
ne, nawet filmy wyświetlane późnym wie- 
czorem... 

Jednak co by się powiedziało, to wto- 
rek w przedszkolu jest wielkim świętem. Po- 
stępu nie da się zatrzymać. Dobrze się dzie- 
je, że dzieci nie zostają w tyle za nowinkami 
techniki, że zaczarowana skrzynka traci 
magię, a staje się wspaniałym towarzyszem 
intelektualnej zabawy. / a j 


— Mamusiu, dzisiaj / est wtorek — pyta 
po przebudzeniu się pięcioletni Karol 

— Tak syneczku. Dlaczego się ubierasz, 
przecież jesteś chory i nie idziesz do 
przedszkola. 

- Ale ja muszę? Dzisiaj są zajęcia z 
komputerami. 

Gdy „zaczarowana skrzynka" pojawia się 
w przedszkolu, takie sceny mają miejsce w 
niejednym domu. Dzieci momentalnie prze- 
stają się ociągać, ba nawet ponaglają ro- 
dziców, byleby szybciej znaieźć się wśród 
rówieśników 

Wanda Kostrzyńska, dyrektorka Przed- 
szkola nr 407 na osiedlu Gocław Lotnisko 
nie kryje swojego zadowolenia 

— Dzięki pomocy i uprzejmości rodziców 
mogliśmy szybciej uruchomić tak bardzo na 


Giełda pomys łów 


MERITUM 

„Nietoperze” 

Program „Nietoperze" to prosta gra zręcznościowa. Zaba- 
wa polega na zestrzeleniu jak największej ilości latających 
obiektów przypominających nietoperze. Czas gry jest ograni- 
czony, a najlepsze wyniki przedstawia lista rekordów. Na wy- 
druku kody programu maszynowego podzielone są na bloki, 
co pozwala na stopniowe wpisywanie programu. Każdy blok 
posiada swoją sumę kontrolną, która wyklucza możliwość 
uruchomienia programu z błędnie wprowadzonymi wartościa- 
mi. Linie 6 i 7 należy wpisać dopiero po uruchomieniu pro- 
gramu, gdyż blokują one klawisze BREAK i NMI. 

Piotr BIEDRZYCKI 

3 CLEAR 280 : 80SU8 3 000 

4 ^OKE 16396,175: “OKI 44397.201 

5 DIN R!5), 9»(5)5 4=3*809 

4 OUT 258. e 'ZABUKOWANIE NMI 

7 POKE 14524.0: POKE 14527,140 

9 , 

10 G03UB 1080: 30SUB 2000 

20 U=USR<0) 

25 NW=PEEK (A)+!08#PEEK (A+lł 

30 GOSUB 420 : GOTO 10 

35 , , 

419 'SPRAaBZANIE WYNIKU 

420 FOR H=1 TO 5 

425 IF NU > R(H> THEN 455 

430 NEXT H 

435 RETURN 

454 ’ WYNIK JEDEN 2 PIĘCIU NAJLEPSZYCH 

455 FOR J=5 TO H STEP -1 

440 R(JI=R(J-1): R*(J)=R*(J-1) 

445 NEXT J 

448 CLS: PRINT CHR»(23) 

478 PRINT3 512,' TWOJE INIE'1 

472 INPUT I# 

473 !*=!*+• 

475 R(H)=NW : RxCH)=LEFT*(I*,6) 

480 RETURN 

999 'PIERWSZY KRAN 

1000 CLS: PRINT CHRa<23) 

1805 PRINT: PRINT" NIETOPERZE" 

1810 PRINT: PRINT 

1015 PRINT' ’1’-LEW0", "PRAWO-’:’" 

1028 PRINT" ’SHIF T ’-STRZAL" 

1025 “RINT: PRINT" LISTA REKORDÓW' 

1024 PRINT: FOR R=1 TO 5 

1030 PRINT' "Hi" - "IRalHIiRfHl 

1035 NEXT H 

1034 As=INKEY* 'KASOWANIE KODU OSTATNIEGO KL. 

1037 IF INKEY*=" ' THEN 1037 

1040 RETURN 
1999 'PLANSZA GRY 
2080 CLS: PRINT CHR«t23) 


2005 PRINT3 948,CHR«(143);" " 

2010 PRINT CHRx(143) ." "!CHR*(143)i 

2015 PRINT " CZAS: 0000 WYNIK: 8088"; 

2020 FOS H=0 TO 127: SET(H,43) :NEXT 

2825 RETURN 

2888 'KOD WEWNĘTRZNY ZAJHUJE OBSZAR 

2889 'OD 4400H 125400) DO 477FH (24495) 

390 'ADRES STARTOWY 4400H 125480) 

2999 'ŁADOWANIE KODU HASZYSOWEGO 

3000 S=0:A=25400:P=7:GOSUB 4080 'BLOK 1 

3085 BATA E5, D5. C5, 21, 00, 00, 22, 30, 75, 21, 44.75, 22. 3A, 75, 21 
3010 DATA 38, 05, 22.32, 75, 21, 03, 00, 22, 36, 75, 21, 04,04, 22,30 
3015 DATA 75, 21, 48, 3F, 22, 34, 75, CD, 21, 44, Cl, Dl, El, C9, Et, 73 
3020 BATA 3E,75,3E,02,32,AF,40,3A,33,75,F5,21,7F,02,CD,9A 
3025 DATA «A, CD, C9, 14, CD, 37,0B,2 Af21, *1>11,00>3C, CE, 85, A7 
3030 DATA 19,EB,2A,3A,75,73,23,72»23,22,3A,75,F1,3D,20>3A 
3035 DATA 21,44,75,22,3A,75,CD,DD,44,CD,04,45,3A,40,38,CB 
3040 IF SOI 8139 THEN PRINT "BLAD U BLOKU SR 1":E® 
3050 3=0: A=Z :P=8: GOSUB 4006 'BLOK 2 

3955 DATA 57, 28, F9,CD,FB>44, 21, 38,75,34, 39, 75,94, 3C,84,A0 
3*40 DATA 10,FE,3D,20,F9,CD.94,45,CD,Dc,43,84,4ń,10, r E,10 
3045 DATA FE,3Di20,r7,CD,A4,47,CD,45,45,lS,CD,3A,38,75, r 3 
3070 DATA 3E, 02, 32, AF>40, 21,00,80, CD»?A,0A,CD>C9,1A, CD, 37 
3075 DATA 0B,11,3A,00,2A,21,41,A7,!9,CB,G5,EB,2A,3A,75,4E 
3080 DATA 23,44,C5,E1,3E,20,02,03,03,82,19,11,7C,3F,3E,82 
3085 DATA 32, AF,40,CD>3?,8A, FE, 01, 28,22, EB,2A,3A>75, 73,23 
3090 DATA 72,23,22,3A,75,3E,AC,D3,FE»12,13,13,3E,9C,12,D3 
3095 IF 8012355 THEN PRINT "BLAD W BLOKU SS 2":ESD 
3100 3=0: A=Z : p =B:G03UB 4890 'BLOK 3 

3105 BATA FE,F1,3D,20,AA,21,4A,75,22,3A,75,C9,11,7C,03,A7 
3110 DATA GB»52,18,D6,2A,34,75,3A,10,38»CB,4F,2B,0E,2B,2B 
3115 DATA 11, 42?3F, CD, 39, 0A, FE, FE, 28, 17, 18,13,39,20,38, CD 
3120 DATA 57, 20, 0E, 23, 23, U, 78, 3F, CD, 39, 0A, FE, 81,28, 02, 18 
3125 DATA 03,2A,34,75,U,40,00,22,34,75,36,B9,A7,ED,52,34 
3130 DATA B4,23,23,34,BC,23,23,34,D8,19,34,24,2B,2B,36,3F 
3135 DATA 2A>34, 75,01, 08, 80, 2B,2B>34, 20, ED, 52,34, 20,09, 36 
3140 DATA 20,19,36,20,C9,2A,34,75,01,04,08,11,40,30,3E,B9 
3145 IF S09777 THEN PRINT "BLAD W BLOKU SR 3":END 
3150 S=0: A=Z :P=8:G0SUB 4880 'BLOK 4 

3155 BATA BE,20,14,ED,52,3E,B4,BE,20,0D,09,3E,B8,BE,20,07 
3140 DATA 19, 3E, 86, 8E, 20, 01, 09, E5, CD, 33, 66, El, CD, 04, 65,21 
3165 DATA 00,00, 01, FE, C0> 05, ED,B3,C1,10,FA,3A, 36, 75,30,32 
3170 DATA 36, 75, FE, 02, 20, 09, 3E.20, 32, CO, 3F, Dl, 03,49,64, FE 
3175 DATA 01,20,09,3E,28,32,C4,3r7Dl,C3,49,64,FE,00,20,89 
3180 DATA 3E,20,32,CB,3F,Dl,C3,49,64,14,C8,CD,ED,66iCDiED 
3185 DATA 64,14,14,CD,ED,64,CD,ED,44,ED,7D,3E,75,C9,3A,00 
3190 DATA 3B, CD, 47,20, 03, 3E, 32, C9.3E, 0C, 24,34,75,11, 40, 00 
3195 IF 5013734 THEN PRINT "BLAD W BLOKU NR 4":END 
3200 S=0: A=Z :P=8:G0SUB 4000 'BLOK 5 

3205 DATA ED, 52, 22, 3C> 75, F5, 24,30, 75, 11, 40, 00, ED, 52, 11, 04 
3210 DATA 00, 22,3C, 75, 3E, 20, BE, 04,33,66, 34, 95, 19, BE, CA, 33 
3215 DATA 64,36>AA,F1,F5,07,0E,5A,D3,FE,47,10,FE,3D,D3,FE 
3220 DATA 30, 0D, 20, FA, 24,30, 75, 36, 20, 19, 34, 28, FI, 30, 20, C5 
3225 BATA 3E,03,C9,3E,9C,E5,D5,K,20,02,2B,2B,EB,3A,3B,75 
3230 DATA F5,2A,3A,75,4E,23,44,23,22,3A,75,C5,E1,CD,39,0A 
3235 DATA A7, 20, 0D, FI, 3D, 20, E9, 21, 44, 75, 22,34,75,01, El, C9 
3240 DATA 36, 20, 23, 23, 34, 20, 2A,3A. 75, E5, Dl, IB, IB, 01, 00, 03 
3245 IF S012564 THEN PRINT "BLAD W BLOKU NR 5":END 
3250 S=0: A=Z :/=8:G0SUB 4000 'BLOK 4 

3255 DATA EB,B0,CD>8B, 46, 2A,3C, 75,34, 20, 11, 48,40, 19,34,20 
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,3248 BATA 38, 38, 75, 30,28, ID, 32.38, 75.38,48,21, 88, 11, 0E.FE 
3245 DATA 57,5F,ED,49.43,10.FE,ED,41,13,20,F5,D4,09,20,F8 
3278 DATA FI, 18, 84, 3A, 39, 75, 3C, 30,32,38,75.21.44, 75, 22,38 
3275 DATA 75,32,39,75,ED,7B,3E,75,C3,2E,44,3A,30,75,C4,05 
3288 DATA 32, 38, 75, FE,44,CB,AF, 32, 38, 75,38, 31,75.30, 32.31 
3285 DATA 75,FE,14,C0,3D.32,31,75,ED,7B,3E,75,C9,16.14,CD 
3298 DATA ED,46,14,B4.CD,ED,64,14,14,CD,ED,44,C9,0E,CB,D3 
3295 IF S013883 THEM PRINT 'BLAD U BLOKU KR 4'!END 
3388 S=8: A=Z :P=9:G0SUB 4886 'BLOK 7 

3385 DATA FE.42>1B,FE,18,FE,3C,D3,FE,0D,28,F3,C9>OD,33,47 
3318 DATA 11.32,75,21,ED,3F.CD,0F,47,11,30,75,21,FC,3F,84 
3315 DATA 82,CD.1A,47.13.2B.2B.!8,FB,C9,1A,8E.FF.CD.2A.47 
3328 DATA F6,38,77.2B,2B,79,F4.3ł,77,C9,8C,D4,8A,F2.2A,47 
3325 DATA C4,8A,C9.21,32,75.35,C9,34,43,23,35.3E.FF,BE.C9 
3338 DATA CD, DD.44.C3.C9.65.C3, 74.47, 3A, 41, 75.FE, 81.28, 13 
3335 DATA 3E,81,32.48,75,3E,AD,32,E4,44,3E,9E,32,ED,44.32 
3348 DATA 34,44,C9,3E,82,32,48,75,3E,AC,32,E6,44,3E,9C,32 
3345 DATA ED,44,32,34,44.C9,CD,49,47,CD.9C,44,C9,88,88,88 
3358 IF S< >15475 THEN PRIHT 'SLAB U BLOKU *8 7":F.ND 
3880 RETURN 'KONIEC BAN V CH 
3999 'PODPROGRAM L»BUJACY 


4000 

FOR TO\AiE»U^ 

* y — >, 

mz 

READ A«:PfHftTA»r 


4110 

N=ASC( LEFT*(A»ii))-4B 


4115 

M=ASC(RI3H7x(Ax»l>)-48 


4020 

N S N-INT (N/12)#7 


4125 

i1=H-TN7(M/I2)*7 


4030 

B=M«16+HS S=S+B 


4035 

POXE Z»B : N£XT Z 


4040 

RETURN 


V 


W 


f ' 

V W 

. 1 

W 


W 


3 11 

CZAS! 0096 

U V NIK: 0790 


✓A MS T~ D 

„Generator” 


Ten krótki program umożliwia wyświetlenie na ekranie kolejnych bajtów zadanego 
obszaru pamięci (np. kodu maszynowego własnego podprogramu) w postaci kolej- 
nych (o ustalonej przez siebie numeracji i odstępie) wierszy DATA oraz zeskładowa- 
nie go na dyskietce (kasecie) w określonym, również przez siebie, zbiorze. 
Otrzymany przez siebie zbiór można załadować do pamięci komendę LOAD i doko- 
nywać poprawek używając edytora. Można go również dołączać do własnego prog- 
ramu w BASIC-u komendą MERGE. 

Bajty przedstawione są w postaci heksadecymalnej (linia 230), a chcąc przedstawić 
je np. dziesiętnie, należy linię tę zmienić na: a$ - PEEK (x). 

Ilość liczb w jednym wierszu DATA ustalona jest na 10 (zmienna c) i chcąc ją zmie- 
nić należy poprawić linię 260. 

Cezary SOBCZAK 


10 REM %%%%%%%%%**%%%% 
20 REM Generator 
30 REM wierszy 'DATA' 

40 REM %%%%%%%%%%%%%%% 
50 MEMORY &2FFF 
60 MODĘ 2 

70 LOCATE 20, 1 : W INDÓW # 
1,40,80,25,25 
80 PRINT CHR$ (24) "G E N 
E R A T O R WIERSZY 
' DAT A ' " CHR$ ( 24 ) 

90 PRINT: PRINT SPRINT 
100 CLEAR INPUT 
110 LOCATE 1,5: INPUT " 
Podaj początkowy adres 
pamięci ( > 8<2f-f-f ) ",x 


120 IF x<&2FFF THEN PRI 
NT #l,VMusi byc WIĘKSZY 
ni z 8c2-f-f-f ":FOR i=l TO 
4000: NEXT s CLS #1: LOCATE 
1,5: PRINT SPACE* (79) :G 
OTO 110 

130 LOCATE 1,6: INPUT "P 
odaj końcowy adres parni 
eci " , y 

140 IF y<x THEN PRINT 
#1, "Musi byc WIĘKSZY n 
i z początkowy ": FOR i = l 
TO 4000: NEXT: CLS #1:L0C 
ATE 1,6 SPRINT SPACER (79 
) .-GOTO 130 

150 LOCATE 1,7: INPUT "N 


umerowac linie 'DATA' o 
d " ,2 

160 IF z<l OR z >=65536 
THEN PR I NT# 1, "Numery mo 
ga byc od 1 do 65535" :F 
OR i =1 TO 4000: NEXT: CLS 
#1: LOCATE 1,7: PRINT SP 
ACE$ (79) : GOTO 150 
170 LOCATE 1,8: INPUT "O 
dstep miedzy liniami 

" , dz 

180 LOCATE 1,9: INPUT’ "N 
azwa zbioru na kopie li 
ni i 'DATA' " , n* 

190 CLS 

200 W INDÓW #1,2,77,4,22 
: PRINT " 

GENERATOR 
WIERSZY 'DATA'" 

210 OPENOUT n$ 

220 FOR x«x TO y 
230 a*>=HEX* ( PEEK ( x > , 2 > 
240 c=c+l 

250 IF LEN (z*) =0 THEN z 
$=MID*(STR*(z) ,2>+" DAT 
A "+a* ELSE z *=z $+","+ 
a$ 

260 IF c = 1 0 OR x*y THEN 
PRINT W, z*: PRINT #9, 
z$: z$=" " : c=0: z=z+dz 
27.0 NEXT 
280 CLOSEOUT 
290 LOCATE 10, 25: PRINT" 
KONIEC 

kontynuacja 

SPACJA" 

300 WHILE INKEY (47) =-l s 
WEND: GOTO 60 


7 
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Sprzęg, 

łącznia, 

interfejs 

Układ elektroniczny łączący urządzenia systemu cyfrowego 
i umożliwiający współpracę wg określonych zasad nazywany jest 
interfejsem. Jest to pewien standard techniczny rozwiązania prob- 
lemu połączenia komunikacyjnego (do przesyłania informacji jed- 
no- lub dwukierunkowo) między np. procesorem a monitorem ek- 
ranowym, lub monitorem ekranowym a drukarką 

W celu uniknięcia sytuacji wieży Babel w połączeniach dokona- 
no pewnych światowych ustaleń w zakresie połączeń zwanych 
popularnie interfejsami. Najczęściej interfejs to wiązka przewo- 
dów o określonych parametrach elektrycznych, zakończona 
dwustronnie łączówkami, umożliwiającymi dołączenie go do dwu 
urządzeń. 

Kilka słów dygresji na temat nazwy „interfejs". Jest to spol- 
szczenie angielskiego słowa Interface, co oznacza dosłownie po- 
łączenie między twarzami (urządzeń), a w potocznym żartobliwym 
przekładzie — interfejs to „międzymordzfe” W lingwistycznych 
zapędach posunęliśmy się tak daleko, że w zamian mamy: sprzęg, 
łącznia, złącze, łącze, układ pośredniczący, układ sprzęgający, 
sprzężenie, styk. 

Niezależnie od nadmiaru polskich „ersatzów” fachowcy uparcie 
używaią obcego słowa interfejs, które się tak utrwaliło w informa- 
tyce, że nawet końmi go nie wyrwie. 

Rodzaje interfejsów 

W zależności od sygnału przesyłanego liniami między urządze- 
niami interfejsy dzieli się na prądowe (przesyłane są impulsy prą- 
du elektrycznego) i napięciowe (przesyłane są impulsy napięcia 
elektrycznego). Interfejsy prądowe są mniej popularne, 
najbardziej rozpowszechnione są interfejsy napięciowe, wśród 
których z kolei rozróżnia się szeregowe i równoległe przesyłanie 
informacji Interfejsem szeregowym informacje są przesyłane bit 
po bicie w jedną i w drugą stronę, a równoległym przesyłanych jest 
8 bitów naraz, tworzących jeden znak. 

Rysunek przedstawia podział interfejsów i nazwy najpopular- 
niejszych ich przedstawicieli. 



Najczęściej stosowane są standardy interfejsów napięciowych 
równoległych typu DZM-180, Centronics i szeregowych typu V 24 
i RS 232C. 

W tabelach połączeń tych interfejsów używane będą zapisy, do 
których odnoszą się następujące uwagi: 

a) używane jest słownictwo i skróty pochodzące od określeń z ję- 
zyka angielskiego. 

b) kreseczka nad nazwą sygnału oznacza jego negację, to zna- 
czy, że działanie tego sygnału zaczyna się w chwili, gdy jego 
wartość spada do poziomu zera logicznego (0) — tak pisane, w 
odróżnieniu od literki „O" — duże. 

c) pin oznacza element łączówki o określonym numerze, do któ- 
rego dolutowujemy przewód. 

T abelka przedstawia standard interfejsów szeregowych V 24 
i Rs 232C, które zasadniczo me różnią się między sobą, jednakże 
zostały powołane do życia przez różne organizacje międzynaro- 
dowe. 


30 IM ORTU 30 bisbnsie 

interfejs. VL24.pwezCaTt4fr.-Comit'e Consułtatif International Te- 
legrafiąue et Telephonique / Międzynarodowy Doradczy Komitet 
Telegraficzny i Telefoniczny) natomiast RS 232C przez EIA (Elec- 
tronic Industries Association). 


Sygnały i wyprowadzenia interfejsów RS 232C i V 24 


RS 232C 

V 24 

Pin = wy- 
prowa- 
dzenie 

Oznaczenie 

-rtinemonicz- 

ne 

Nazwa linii 

AA 

101 

1 

— 

ekran 

AB 

102 

7 

GND 

masa sygnałowa 

BA 

103 

2 

TxD 

dane nadawane 

BB 

104 

3 

RxD 

dane odbierane 

CA 

105 

4 

RTS 

żądanie nadawania 

CB 

106 

5 

CTS 

gotowość nadawania 

CC 

107 

6 

DSR 

gotowość modemu 

CD 

108.2 

20 

DTR 

żądanie dołącz, mo- 
demu do linii 

CE 

125 

22 

Rl 

dzwonek 

CF 

109 

8 

DCD 

nośna odbierana 

CG 

110 

21 

SOD 

poziom sygnału odb 

CH 

111 

23 

— 

wybór prędk. trans. 

DA 

113 

24 

— 

zegar transm. nad. 

DB 

114 

15 

— 

zegar transm. nad. 

DD 

115 

17 


zegar transm. odb 

SBA 

118 

15 

_ 

dane nad. — kanał. 2 

SBB 

119 

14 

— 

dane odb. — kanał. 2 

SCA 

120 

19 

_ 

żąd. nad. — kanał 2 

SCB 

121 

13 

— 

got nad. — kanał 2 

SCF 

122 

12 

— 

nośna odb. — kan. 2 


Standard dopuszcza możliwość zredukowania niektórych linii 
kontrolnych i linii synchronizacji. W minimalnej postaci wystarczą 
trzy przewody: 1 — linia masy, 2 — dane nadawane, 3 — dane od- 
bierane. Linie sterowane są sygnałami napięciowymi zmieniają- 
cymi się w zakresie od — 12V do +12V. 

Pozostały nam do omówienia dwa interfejsy równoległe. Są to 
DZM-180 (używa się również nazwy LOGABAX) i CENTRICS 
(używa się nazwy EPSON). Warto je znać, ponieważ większość 
mikrokomputerów ma wyjścia umożliwiające podłączenie drukarki 
przez jeden z tych standardów. 


STANDARD DZM-180 


Nr pinu 

Nr pinu 
masy 

Nazwa sygnału 

Opis sygnałów 

1 

19 

ŚE 

Impuls powodujący wpisanie 
danych do bufora drukarki 

2 

20 

EŃT1 

osiem linii danych, sygnały le 

3 

21 

ENT2 

reprezentują informację wej- 

4 

22 

ENT3 

ściową w postaci 8-bitowej 

5 

23 

ENT4 

danej równoległej 

6 

24 

ENT5 


7 

25 

ENT6 


8 

26 

ENT7 


9 

27 

ENT8 


10 

28 

AĆK 

Potwierdzenie przyjęcia infor- 
macji wejściowej 

11 

29 

Nie używany 


12 

30 

FIN PAP 

Brak lub koniec papieru 

13 


RELSEL 

Gotowość drukarki do przyj- 
mowania danych 

14 

— 

Nie używany 


15 

— 

Nie używany 


16 

— 

0 V 

0 V logiczne 

17 

— ' 

GND 

Masa obudowy drukarki 

18 

— 

Nie używany 


31 

— 

Nie używany 


32 

— 

Nie używany 


33 

— 

Nie używany 


34 

— 

Nie używany 


35 


FIN 

Sygnalizacja pustego bufora 
drukarki 

36 

— 

Nie używany 


37 

— 

CPLX 

Zegar 2,5 /us 
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Standard CENTRONICS 


Nr pinu 

Nr pinu 
rnasy 

Nazwa sygnału 

Opis sygnałów 

1 

19 

STROBĘ 

mpuls powodujący wpisanie 




danych do bufora drukarki 

2 

20 

DATA 1 

Osiem linii danych 

3 

21 

DATA 2 

Reprezentują 8-bitową 

4 

22 

DATA 3 

równoległą informację 

5 

23 

DATA 4 

wejściową 

6 

24 

DATA 5 


7 

25 

DATA 6 


8 

26 

DATA 7 


9 

27 

DATA 8 


10 

28 

ACK 

Potwierdza przyjęcia mform. 

11 

29 

BUSY 

Drukarka zajęta 

12 

30 

PAPER END 

Brak lub koniec papieru 

13 


SELECTED 

Gotowość drukarki do pracy 

14 


Nie używany 


15 


Nie używany 


16 


SIGNAL GNO 

Masa sygnałowa 

17 


CHASSIS GND 

Uziemienie 

18 


+5V Dc 

Nap zasil. +5V (ok. 50 mA) 

31 


INPUT PRIMPE 

Zerowanie układów drukarki 

32 


ERROR 

Sygnalizacja nieprawidłowości 




w przesyłanej informacji 

33 


EXT GND 

Masa zewnętrzna 

34 


Nie używany 


35 


Nie używany 


36 


— 

Poziom niski 


Uwaga praktyczna: w celu zmniejszenia podatności na 
zakłócenia proponuje się, aby każdy przewód sygnałowy został 
skręcony z przewodem masy sygnałowej oznaczonej numerem pinu 
masy, który jest połączony elektrycznie z pozostałymi masami. 

opr. Ini. Edward WRZEŚNIEWSKI 


Program stosuje procedurg-przentosreiua blokuwuyo dla żapot-' 
niania rysunkiem całego ekranu (24 wiersze!). 

W linii 999 wykorzystano możliwości CHR$ 0 — CHR$ 23 dla 
uzyskania nietypowego wydruku nazwy programu. 


1 REM 


Progr*m 
BEEP 


.08,1+ 

6+000 TO " 


_ . . CLEA 
_ _ 6+011: R 
NEXT n 


10 BORDER 5: 

R 63909: FOR n 
ERD bt: POKE n,bt: 

15 D IM a*(64) 

80 FOR n-7 TO 127 STEP 15: PLO 
T 187,1++: DRRU -n , -97 : PLOT 128 
, 1++ : DRRU n,-97: NEXT N 

85 PLOT 0,1+3: DRRU 0,-95. DRfl 
U 255,0: DRRU 0,95 

30 PRINT #0;RT 0,0; PRPER 7; a* 

+0 RRNDOMIZE USR 6+000 

50 FOR n*l TO 8: PRINT a$: NEX 

T 55 PLOT 0,+S DRRU 0,127: DRRU 
255,0: DRRU 0,-127 
60 FOR n »7 TÓ 187 STEP 15: PLO 
T 127,30' DRRU -n,95; PLOT 188,8 
0: DRRU n,95: NEX+ N 

70 FOR n«? TO 187 STEP 
T 127,80: DRRU -n/3,-32: 

8,80: DRRU n/3,-32: NEXT 

80 FOR n =0 TO 175 STEP . 

T 127,30: ORRU -187 , In -30) ; PLOT 
128,80: DRRU 127 , (n -80) : NEXT n 
90 PRUSE 100: RUN = 

100 DRTR 33,0,72,17,0,80,1,0,8, 

“m^CLĆRR 1 ; LET bf=CHR* 82+CMR* 
11+CMR* 1++CHR* 19+CHRl 1+"2 +x 5 
8"; PRINT b*: SAUE b* LINĘ 1 


15: PLO 
PLOT 12 
n 

18: PLO 



Spadająca piłka 

(Gra zręcznościowa) 


Gra polega na złapaniu maksymalnej liczby piłek do po- 
jemnika (litera U), Gracz może poruszać wózkiem za po- 
mocą kursorów w lewo bądi w prawo. Piłka zmienia kieru- 
nek losowo, gdy natrafi na przeszkodę (litera O). Jest to 
możliwe dzięki kontroli ekranu przez SCREENS. 

Nie zalecam zwalniać pitki za pomocą PAUSE, gdyż ta 
instrukcja nie jest wykonywana, jeżeli jest wciśnięty do- 
wolny klawisz. Można natomiast wprowadzić jałową pętlę 
FOR-NEXT 

Krzysztof POŹNIAK 

„Hobbyte" 


l REM 

****** ******** ****** ****** ****** 
* * 

* Krzw+ziof Pozniik * 

* * 

* Klub Mt krokd»pu t* r owy * 

* HOBBYTE - © 19E7 i 

******************************** 

10 PRPER 0: INK 7 BORDER 0 : C 
L5 : FOR k«l TO S STEP 2: FOR l- 

0 TO 1. PRINT RT 2*U + l)., 1,: FOR 
«*i TO 15: PRINT "O : NEXJ a. 
NEXT L: NEXT k 

15 LET psi; LET zp= 0 
20 PRINT SI: RT 0,0; "pi U* :";p 
."Złapanych : ,ZP: LET k»8+INT ( 
10*RND) : LET w=StINT (10łRND> 

30 FOR 1=0 TO 20: LET zsSCREEN 
$ ( U+l , k i < > " LET kl = k+Z#SGN ( 
.5-RND) * ( i %20i 

35 LET +=CODE INKEY $ . LET «ss« 

1 (d =9) AND (83-uii ) - ( (d>8) RND tu 
-2)). PRINT RT 21, u;" _U_ " 

+0 PRINT RT t + l,ki, "o",RT l,k, 
" LET k=kl: NfXT ł t 

+5 LET p=p + l. IF kl=u+2 TMEN L 
ET zpazp+1 

50 BEEP 0.05,20. BEEP .05,30: 
PRINT RT 21, w;” " ; RT 21, ki;" 

" : 00 TO 20 
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W tym.' roku szholnym MChęć poftief-ama 
nauki w Liceum Lotniczym im Żwirki i Wigu- 
ry w Dęblinie wyraziło prawic dwa tysiące 
kandydatów. Po badaniach lekarskich do 
egzaminu wstępnego przystąpiło tylko 30 
procent chętnych. 

Dyrektor istniejącej już piętnaście lat szko- 
ły, mjr dr Janusz Ziółkowski twierdzi, że Li- 
ceum Lotnicze, to zwykłe liceum zawodowe, 
a wyróżnia je się jedynie tym, ze mieści się 
przy Wyższej Oficerskiej Szkole Lotniczej i 
od momentu powstania doskonale wywiązu- 
je się z zadania zapewnienia stałego dopły- 
wu maturzystów do WOSL 

Na czym więc ta odrębność polega? Li- 
ceum kształci w specjalności „mechanik 
osprzętu lotniczego" W rzeczywistości jed- 
nak dęblińskie „orlęta" nie poprzestają na 
zdobywaniu tylko tych kwalifikacji Są pilo- 
tami szybowców, skoczkami spadochronu- 



wym znakomity mt^modetlaraasrii -Właśnie' 
od tego roku funkcjonuje supernOwoczesha 
modelarnia. A w ubiegłym roku uruchomio- 
no nowoczesne, zautomatyzowane gabine- 
ty: elektroniki, osprzętu lotniczego i informa- 
tyki. W tym ostatnim gabinecie zatrzymajmy 
się na chwilę. Oddajmy głos uczniom, Oto 
kilka charakterystycznych wypowiedzi: 

— Od kilku lat interesuję się komputera- 
mi. Mam w domu nawet A tan i chyba sporo 
już umiem. Nie na tyle jednak, by nie na- 
uczyć się więcej. Tutaj mam fachową opie- 
kę, poznałem nowy typ komputera. . 

[ — Dla mnie komputery to nowość. Na 

| początku nie bytem do nich przekonany. 

| Myślałem, że będzie to przemijająca moda. 
I, Okazało się. że me. Najpierw zaciekawiły 
■ mnie gry komputerowe, teraz uczę się sam 
układać programy... 

Chcę być pilotem i temu podporząd- 
kowuję wszystko. Czy możliwe jest, żeby bez 



rzowane „orlęta” 

■ 1 — J. RAJCH 


odpowiedniego przygotowania pilotować 
tak skomplikowane maszyny nafaszerowa- 
ne elektroniką? Na pewno nie. Dlatego cie- 
szę się, że tak wcześnie mamy okazję po- 
znać komputery i pracować na nich Zresztą 
jest to bardzo zajmujące i wciąga... 

Obecnie Liceum Lotnicze dysponuie 10 
mikrokomputerami typu Amstrad 

— Są one dla nas najbardziej przydatne 
— mówi zastępca dyrektora szkoły, mjr Ze- 
non Ziemkiewicz — Wykorzystywane są 
przede wszystkim na lekcjach Informatyki. 
Prócz tego używamy ich podczas za t ęć in- 
formatycznego kola naukowego. Może w 
nich uczestniczyć każdy uczeń liceum. Wy- 
starczą dobre wyniki w nauce i także chęci 
Zajęcia prowadzą fachowcy, oficerowie z 
tutejszego Ośrodka Obliczeniowego 


Plany są u- gstsże Kadra liceum stara 
się o zdobycie nowycn mikrokomputerów 
Będą one sukcesywnie wykorzystywane do 
nauki innych przedmiotów, pozwolą na 
zwiększenie oferty kół zainteresowań 
• Obecnie do pracy i nauki z komputerami 
i przygotowywani są na kursach nauczyciele 
■ różnych zawodów. Mozę będzie można 
I skomputeryzować i uatrakcyjnić na przykład 
lekcje języka polskiego? 

A na razie uczą się języków, tych kompu- 
terowych, i programowania, Programy sto- 
sują coraz trudniejsze, o większym stopniu 
skompiikowama . Przystosowują je do 
swoich potrzeb. Zbierają fachową literaturę i 
wiadomości z komputerowego m-kroświat- 
ka. 


Na lekcjach Informatyki i zajęciach kola 
zainteresowań uczniów dęblińskiego Li- 
ceum Lotniczego korzystających z kompu- 
terów podglądał Jan Zelman 




Komputer w dydaktyce 

Komputer jest cennym narzędziem ułatwiającym uczniom pozna- 
wanie rzeczywistości. W dydaktyce szczególnie dużą wartość mają 
takie metody przekazu wiedzy, które wymagają od ucznia jego ak- 
tywnej, a nawet twórczej postawy. Dysponując odpowiednim pro- 
gramem komputerowym, uczeń może przeprowadzać różnorodne 
eksperymenty. Są one tanie, w pełni bezpieczne, niedestrukcyjne, 
umożliwiają dowolną zmianę skali czasu (przyspieszenie lub zwalnia- 
nie procesu) i zmianę nawet tych parametrów, którymi w realnym 
świecie nie można swobodnie manipulować (np pogoda, gęstość za- 
ludnienia, popyt na określone towary itp.). Zmieniając w dużym za- 
kresie parametry symulowanego procesu i obserwując uzyskiwane 
rezultaty, uczeń może sam formułować pewne wnioski dotyczące ba- 
danego fragmentu rzeczywistości. Uczeń może też formułować hipo- 
tezy i sprawdzać je korzystając z odpowiedniego programu kompute- 
rowego. Uzyskana w ten sposób wiedza jest dużo głębsza i trwalsza 
niż wiedza przekazana metodami podawczymi. Jest ona wynikiem 
własnych dociekań ucznia i jego aktywnej postawy, stąd też zorien- 
towana jest bardziej problemowo. Nie sposób także pominąć radości i 
satysfakcji ucznia z samodzielnego odkrywania nowych dla niego re- 
guł, praw czy związków. 

Prostym przykładem programu umożliwiającego samodzielne 
formułowanie wniosków o wybranym fragmencie rzeczywistości jest 
prezentowany RZUTUKOS (dla ZX Spectrum). 

Program ten symuluje rzut ukośny. Zastosowany algorytm, oparty 
na równaniach rzutu ukośnego, jest bardzo prosty i nie wymaga ko- 
mentarza. Uczeń podaje dwa parametry: * 

— kąt wyrzutu, 

— prędkość początkową rzutu, 

a program kreśli trajektorię lotu pocisku. Na ekranie można uzyskać 
całą rodzinę trajektorii dla różnych kątów i prędkości początkowych. 
Trajektorie kreślone są w dyskretnych momentach czasu, a stopień 
zagęszczenia punktów trajektorii jest odwrotnie proporcjonalny do 
prędkości chwilowej pocisku (najlepiej jest to widoczne przy rzucie 
pionowym — kąt = 90°). 

Na podstawie uzyskiwanych trajektorii uczeń może samodzielnie od- 
powiedzieć na pytania: 

— od jakich parametrów i w jaki sposób zależy zasięg w rzucie 
ukośnym, 

— dla jakiego kąta wyrzutu zasięg jest maksymalny, 

— jaki jest związek między dwoma różnymi kątami, dla których 
zasięg jest taki sam. 

Program może być również wykorzystany (po prostej modyfikacji) do 
prowadzenia gry, polegającej na trafieniu w określony punkt, przy jak 
najmniejszej liczbie rzutów Przedstawiony program ma na celu za- 
inspirowanie zainteresowanych Czytelników do własnych poszuki- 
wań metod unowocześnienia i uatrakcyjnienia procesu dydaktyczne- 
go przez sensowne wdrażanie nowego technicznego środka naucza- 
nia, jakim jest mikrokomputer. Szczególnie duże pole do popisu ist- 
nieje w naukach matematyczno-przyrodniczych, ale ciekawe pro- 
gramy można napisać dla każdego przedmiotu. 


ZX — Spectrum 


i 


/ 




k. : 




30 


INPUT "kąt rzutu ( 0 - 90 ) i 
|F. OR £ >90 THEN GO TO W 


i n p ur p P "ę““T 7 I 



4® INPUT "pff 

tó v 2® v4<4 

60 LET VX 

SIN k : REM I 

7® LET dtTT 
8*9/2; 

REM 

80 FOR r 
8® LET i 
REM 

100 IF w 

REM 

110 LET x»vxł. 

130 SfeST 
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Symulacja EDIT 

Prezentowany program pozwala wprowadzać dowolne 
zmiany w zbiorze tekstowym, symulując swoim działaniem 
edycją linii Mniej wtajemniczonym zwracam uwagę na 
kontrolę klawiszy DELETE. EDIT, ENTER i kursorów za 
pomocą INKEYS oraz na uzyskanie wydruku na dole ekra- 
nu. 

Można obejrzeć kody klawiszy wprowadzane przez IN- 
KEYS dzięki linii 1000: 

Krzysztof POŹNIAK 

„Hobbyle" 

10 REM syffiulacja laMm 

80 LET t**"ten tekst, nłlezy ag 
edytować i w dowolny sposób popr 

a w i c " 

30 PRINT t$ 

40 IF INKEYSoCHR* 7 THEN 00 T 
0 40 


SO GO 5UB 100. (CL3 : GO TO 33 
100 LET k*0: LET d=® 

110 DEEP ,05,20: PRINT 81; RT 0, 
5' i, T y £>« . FLASH 1; "L" ; FLASH 
0, tSik + 1 TO - ANO d. LET d =0 

430 infceyeCOOE INKEYS 
14.0 IF ir,key = 13 THEN RETURN 
440 »nkey*12 AND k AND LEN t 
S THEN LET d=l; LET t* = t*( TO It - 

1 iio * u+1 T0 ; LET G0 T0 

-fc5S: *5o*łS*Xl8 flND * THeN LET K 

_l 7 P_.fF inkay=S^AND kOLEN t$ TM 
EN LET k=k+l: GO TO 110 
Ig® IF inkę u <*31 THEN GO TO 120 


1000 PRINT AT 0,0; CODĘ INKEYS," 
GO TO 1000 
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Długość życia 


Program oparty na badaniach naukowych 
pozwala na obliczenie przewidywanej długoś- 
ci życia osób dorosłych w wieku 20—65 lat. 

To jak długo będziemy żyć, zależy jak się oka- 
zuje od... wielu czynników, o które będziemy 
pytani w programie. Sprawdźmy, o ile dłużej 
możemy żyć, jeżeli w Nowym Roku 1988 rzu- 
cimy na przykład palenie, zaczniemy się gi- 
mnastykować i stracimy nieco na wadze. Róż- 
nica może być zaskakująca. Może zatem warto 
spróbować? 

Tadeusz CISEK 


1 REM DLUGOSC ŻYCIA 

2 PRINT CHR*<147) 

3 PRINT’ DLUGOSC ŻYCIA* 

5 PRINT 

40 PRINT’ OKREŚLENIE PRZEWIDYWANEJ DLUGOS 
CI ŻYCIA DLA OSOB W WIEKU 20-65 LAT’ 

45 PRINT 

50 PRINT’ 1=TAK, 2=NIE’ SPRINT 
60 A=72 

70 INPUT’ CZY JESTES MEZCZYZNA ?’;B:PRINT 

80 IF B=»l THEN A=A-3:G0T0 90 
85 A=A+4 

90 PRINT’ CZY MIESZKASZ W MIEŚCIE O LICZB 
IE’ 

95 INPUT’ MIESZKAŃCÓW > 1 MILIONA ?’ ;BsPR 
INT 

100 IF B=1 THEN A=A-2 : GOTO 110 

105 PRINT’ CZY MIESZKASZ W MIEŚCIE O LICZ 

BIE ’ 

107 INPUT’ MIESZKAŃCÓW <10000) ?’;B:IF B= 
1 THEN A^A+2 : PRINT 

110 PRINT* JEŻELI PRACUJESZ ZA BIURKIEM W 
PISZ ’ 1’ * SPRINT 

120 PRINT’ JEŻELI TWOJA PRACA WYMAGA REGU 
LARNEGO, CIĘŻKIEGO’ 

125 INPUT’ FIZYCZNEGO WYSIŁKU WPISZ ’ 2” ? 
B SPRINT 

130 IF B-l THEN A=A-3:G0T0 140 

135 IF B*2 THEN A=A+3 

140 PRINT’ JEŻELI ĆWICZYSZ INTENSYWNIE WI 
ECEJ NI Z’ 

145 PRINT’ 5 RAZY PO POL GODZ W TYGODNIU’ 

150 PRINT* WPISZ *1’. JEŻELI ĆWICZYSZ 2- 
3 RAZY’ 

155 PRINT’ W TYGODNIU, WPISZ ’ 2’ , JEŻELI 
NIE’ 

157 INPUT* WPISZ ’ 3* * ;B:PRINT 
160 IF B=1 THEN A=A+4:G0T0 170 

165 IF B=2 THEN A=A+2 

170 INPUT ’ CZY JESTES ŻONATY (ZAMEZNA) ? 
» jBtPRINT 

180 IF B=*l THEN A»A+5:G0T0 190 

185 PRINT’ ILE DZIESIĘCIOLECI MIESZKAŁEŚ 

SAMOTNIE ’ 

187 INPUT ’ (LICZĄC OD 25 ROKU ŻYCIA)?* ;B 
:A=A-B:PRINT 

190 PRINT’ CZY SPISZ WIECEJ NIZ 10 GODZI 
N ’ 

195 INPUT’ NA DOBĘ ?’ ;B:PRINT 
200 IF B=1 THEN A=A-4 

210 PRINT’ JEŻELI JESTES OSOBA AGRESYWNA 
, ZYJACA INTENSYWNIE ’ 

215 PRINT’ WPISZ ’!’ , JEŻELI JESTES OSOB 


22<& INPUT '»¥p>OKOJNA, POGODNA WPISZ ’ 2 | 

; B : PRINT 

230 IF B=» 1 THEN A=A-3sG0T0 240 « 

235 IF B=2 THEN A“A+3 

240 PRINT* JEŻELI JESTES SZCZĘŚLIWY WPISZ 
’ 1* ; NIESZCZĘŚLIWY, ’ 

245 INPUT ’ WPISZ ’2”;B:PRINT 
250 IF B=1 THEN A=*A+lsGQTO 260 
255 IF B=2 THEN A«A-2 

260 PRINT’ CZY DOSTALES MANDAT ZA PRZEKRO 
CZENIE PRĘDKOŚCI* 

265 INPUT ’W MINIONYM ROKU ?’ ;B iPRINT 
270 IF B=1 THEN A«A-1 

280 PRINT * CZY TWÓJ DOCHOD W CIĄGU ROKU’ 

: INPUT’ PRZEKRACZA MILION ?’?B : PRINT 
290 IF B= 1 THEN A=A-2 

300 PRINT’ JEŻELI SKOŃCZYŁEŚ SZKOLE SREDN 
IA WPISZ » 1* ;’ 

305 INPUT * SZKOLE WYZSZA, WPISZ ’2’s’;B 
SPRINT 

310 IF B-“l THEN A=A+1:60T0 320 
315 IF B=2 THEN A--A+2 

320 PRINT’ JEŻELI MASZ WIECEJ NIZ 65 LAT 
I NADAL PRACUJESZ, ’ 

325 INPUT’ WPISZ ’1”?B sPRINT 
330 IF B=1 THEN A=A+3 

340 PRINT* JEŻELI KTÓREŚ Z TWOICH DZIADKO 
W ZYLO* 

345 INPUT’ 85 LAT WPISZ ’ 1’ ’;B:PRINT 
350 IF B=1 THEN A=A+2i INPUT ’ CZY WSZYSCY 
4 ŻYLI 80 LAT' ;B: IF B=1 THEN A=A+6 

360 PRINT SPRINT’ CZY KTÓREŚ Z TWOICH RODŹ 

ICOW ZMARŁO’ 

365 PRINT ’ NA ZAWAL LUB ATAK SERCA PRZED 
’ s INPUT ’ UKOŃCZENIEM 50 LAT’ ;B SPRINT 
370 IF B=1 THEN A=A-4 

380 PRINT’ CZY KTÓREŚ Z TWOICH RODZICÓW L 
UB RODZEŃSTWA PRZED 50’ 

385 PRINT’ MIAŁO CHOROBĘ SERCA LUB RAKA, 
LUB’ 

390 INPUT ’ CUKRZYCE* $BsPRINT 
400 IF B= 1 THEN A=A-3 

410 PRINT’ JEŻELI PALISZ: >2 PACZKI/DZ1EN 
WPISZ ’ 1’ ;’ 

415 PRINT ’ 1-2 PACZKI /DZIEŃ, WPISZ ’ 2’ ? 

420 PRINT ’ 1/2-1 PACZKI /DZ IEN WPISZ ’ 3” 
s INPUT’ JEŻELI MNIEJ WPISZ ’4’*;B:PRINT 
430 IF B=1 THEN A=A-8tG0T0 440 
432 IF B=2 THEN A“A-6:G0T0 440 

434 IF B=3 THEN A«A-3 

440 PRINT’ CZY PIJESZ CODZIENNIE CO NAJMN 
IEJ’ 

445 INPUT ’ 100 G ALKOHOLU ’ fBiPRINT 
450 IF B= 1 THEN A=A-1 

460 PRINT’ JEŻELI MASZ NADWAGĘ POWYŻEJ 25 
KG, WPISZ *1’, 15-25 KG WPISZ ’ 2” 

470 PRINT ’ , 5-15 KG , WPISZ ’ 3” : INPUT ’ 
W INNYM PRZYPADKU WPISZ ’ 4’ 'jBsPRINT 
480 IF B=1 THEN A=A-8:GQT0 490 
482 IF B=2 THEN A*=A-4sG0T0 490 

484 IF B=3 THEN A=A-2 

490 PRINT’ CZY PRZECHODZISZ RAZ W ROKU OG 
OLNE BADANIA’ 

495 INPUT’ LEKARSKIE ?’;B:PRINT 
510 IF B=1 THEN A=A-*-2 

520 PRINT’ JEŻELI MASZ 30-40 LAT WPISZ ’1 
’; 40-50, WPISZ* 2’ ; 50 -60, WPISZ’ 

530 INPUT ”3’; > 70 WPISZ’ 4” ; B s PRINT 
540 A=A+B+ 1 
550 PRINT ’ » 

560 PRINT : PRINT’ PRZEWIDYWANA DLUGOSC TW 
OJEGO ŻYCIA WYNOSI ’;A;’ LAT !!!’ 
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Sami piszemy "gry 

Cezary SOBCZAK 

Zanim przystąpimy do pisania kolejnej gry, przedstawię Wam 
prosty program pozwalający uzyskać na ekranie efekt ruchu pitki 
bilardowej podstawę do dalszej zabawy. 

10 REM ruch piłeczki 

20 MODĘ 1 : INK 0,9: INK 1,26: INK 2,7 

30 PAPER 2: BORDER 9:WIND0W #1,2,39,2,24 

40 PAPER #1,0: CLS : CLS #1 

50 x=20: y=12: dx = l : dy=-l 

60 WHILE INKEY (47 ) =— 1 

70 LOCATE #1, x , y s PRINT #1, CHR*(231); 

80 LOCATE #l,x,y: PRINT #1, " 

90 x=x+dx : y=y+dy 

100 IF x01 OR x >*38 THEN dx=-dx 
110 IF y< = l OR y >=23 THEN dy=-dy 
120 LOCATE #l,x,y: PRINT #1, CHR*(231>; 

130 WEND 

140 WHILE I NKE Y ( 60 )=-l: WEND: GOTO 60 

Po uruchomieniu programu komendą RUN. naciśnięcie spacji 
spowoduje zatrzymanie piłeczki, a klawisza „S" wprowadzenie jej 
znowu w ruch. Możemy teraz przystąpić do budowy gry Zaczy- 
namy, jak zwykle, od wymyślnego scenariusza. Na początek pro- 
ponuję coś takiego: po ekranie poruszają się dwie piłeczki. Na- 
szym zadaniem będzie sterowanie ruchem ludzika, tak aby w usta- 
lonym czasie (np. 100 sekund) złapać jak najwięcej piłeczek. Za 
każde złapanie piłeczki otrzymujemy jeden punkt. 

Wprowadźmy oznaczenia na zmienne 
n - liczba piłeczek (n~2) 

z, v — współrzędne ludzika (wart. początkowe z=20, v=12) 
x(i), y(i) — współrzędne i-tej piłeczki, i— 1 ,n 
dx(i), dy(i) — przyrosty współrzędnych i-tej piłeczki 
cg — łączny czas gry (cg=1 00) 
t — bieżący czas 
ta — czas początkowy 
pt — liczba uzyskanych punktów 
lewo 
prawo 
góra 
dół 

Wykorzystując przedstawioną wcześniej zasadę, piszemy: 

10 REM złap piłkę 

20 REM 

30 MODĘ 1: INK 0,0: INK 1,26: INK 2, 7: INK 3 
, 11 

40 BORDER O: CLS 

50 REM określenie tablic 

60 n=2 

70 DIM x ( n ) : D I M y(n):DIM dx(n):DIM dy(n) 

80 REM ramka 

90 MOVE 12, 12: DRAWR O, 360: DRAWR 615,0 

100 DRAWR O, -360: DRAWR -615,0 

101 FOR y=370 TO 383:M0VE 12, y: DRAWR 61 
5,0: NEXT 

110 M0VE 12,399:FILL 2 

140 REM nadanie wart. pocs. zmiennym 

142 ENV 1,15,-1,10,15,1,10 

150 t a= I NT ( T I ME/300 ) : p t =0 : t =0 : cg = i 00 

160 z =20: v=12 

170 1 ewo=71 : prawo=63: gora=19: doi =22 
180 x < 1 ) =4: x (2) =30: y < 1 ) =4: y (2) =20 
190 FOR i =1 TO n 
200 dx <i ) =1 : dy (i ) =-l : NEXT 

210 REM 

220 WHILE t<cg 

230 t=INT(TIME/300) -ta: LOCATE 3,1 
240 PEN 1: PRINT t : LOCATE 36,1: PRINT pt; 

250 REM druk ludzika 

260 LOCATE z,v:PEN 3: PRINT CHR$(248) 

270 REM ruch piłeczek 
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29o IF x ( i ) <=2 OR x ( i ) >=39 THEN dx<i)=-d 
x (i ) 

300 IF y ( i ) <=3 OR y(i)>=24 THEN dy (i ) =-d 
y ( i ) 

310 IF x ( i ) =z AND y(i)=v THEN 460 

320 LOCATE x (i > , y <i ) : PRINT " ":x(i)=x(i) 

+dx ( i ) 

330 y < i ) =y ( i ) +dy ( i ) : LOCATE x ( i ) , y ( i ) : PEN 
1: PRINT CHR*(23l> 

340 NEXT 

350 REM ruch ludzika 

360 IF INKEY (lewo)=0 AND z >2 THEN GOSUB 
1000: z=z— 1 

370 IF INKEY (prawo) =0 AND z <39 THEN GOSU 
B 1000: z=z+l 

380 IF INKEY (góra) =0 AND v>3 THEN GOSUB 
1000: v=v— 1 

390 IF INKEY (doi ) =0 AND v<24 THEN GOSUB 
1000: v=v+l 
400 WEND 

410 REM koniec gry 

420 INK 3,26, 18: LOCATE 12,1: PEN 3: PRINT" 
GRASZ JESZCZE (T/N)"; 

430 IF INKEY (51 ) =0 THEN RUN 

440 IF INKEY (46) =0 THEN PEN 1 : CLE AR INPU 

T: CLS: END ELSE 430 

460 REM złapanie piłki 

470 pt=pt+l :SOUND 3,340,50,15,1 

472 FOR i =1 TO 150: BORDER 7,26:NEXT 

473 BORDER O 

480 z =20 : v= 1 2 : GOTO 230 

1000 LOCATE z, v: PRINT " ": RETURN 

Uruchom program i zagraj. Po pewnym czasie zapewne zauwa- 
żysz, że piłeczki poruszają się po stałych torach i wystarczy usta- 
wić ludzika w jednym miejscu, by piłeczka sama w niego trafiała. 
Zmodyfikuj program, generując początkowe współrzędne piłeczek 
w sposób losowy. Napisz: 

145 randomize time 
180 gosub 2000 
475 gosub 2000 
2000 for i=1 to n 

201 0 if x(i)O0 then locate x(i), y(i): print " " 

2100 x(i)=int (RND*23+7) 

2200 y(i)=int (RND*12+4): NEXT 
2300 return 

i uruchom program. Aby grę nieco uatrakcyjnić, wprowadzimy je- 
szcze niewidoczne dla nas przeszkody, od których piłeczki będą 
się odbijały, zmieniając niespodziewanie kierunek swojego ruchu. 
Proponuję ustawienie dwóch przeszkód (rys 1 ). 



Uzupełnij program pisząc 

285 if x(i)=16 ąnd (y(i)<=16 and y(i)>=5) then dx(i)=— dx(i) 

286 if x(i)=25 and (y(i)<=12 and y(i)>=8) then dx(i)=— dx(i) 


■\ przechowują numery klawiszy sterujących ruchem 
I ludzika Przyjęto następujące klawisze: lewo=71(z), 
| prawo=63(x), góra=19(l), dół=22(/), 
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Będzie nam na pewno przyjemniej grać słiifch&j^c rtiuzykrtJźMęfcr 
(ich okresy drgań) wprowadzone będą w wierszach DATA (od linii 
5000) i chcąc zmienić melodię (czyli wprowadzić nowe liczby i 
nową ich ilość) trzeba pamiętać o uaktualnieniu zmiennej „mel" na 
bieżącą liczbę dźwięków, (wiersz 1 55). 

Jako melodyjkę proponują fragment Partity h-moll na skrzypce so- 
lo J. S. Bacha. 

Ostatecznie program ma postać: 

10 REM złap pil ke j. 

20 REM ‘ . 

30 MODĘ 1 : INK O, O: INK 1,26: INK 2, 7: INK 3 
, 16 

40 BORDER OsCLS 

50 REM określenie tablic 

60 n=2 

70 DIM x ( n ) : D I M y(n):DIM dx(n):DIM dy(n) 
BO REM ramka 

90 MOYE 12, 12: DRAWR 0,360:DRAWR 615,0 

100 DRAWR O, -360: DRAWR -615,0 

101 FOR y=370 TO 3B3:M0VE 12, y: DRAWR 61 
5,0: NEXT 

110 MOVE 12, 399: FILL 2 

140 REM nadanie wart. pocz . zmiennym 

142 ENV 1,15,-1,10,15,1,10 

145 RANDOMIZE TIME 

150 ta=INT (TIME/300) : pt=0: t=0: cg=100 
155 RESTORE 5000: nt= 1 : mel =*72 
160 z =20: v= 1 2 

170 lewo=71 : prawo=63: gora=19: dol=22 

180 GOSUB 2000 

190 FOR i =1 TO n 

200 dx (i)=l:dy(i)=-l:NEXT 

210 REM gra 

220 WHILE t<cg 

230 t=INT (TIME/300) -ta: LOCATE 3,1 

240 PEN 1 : PRINT t : LOCATE 36,1:PRINT pt; 

250 REM druk ludzika 

260 LOCATE z,v:PEN 3: PRINT CHR*(248> 

270 REM ruch piłeczek 
280 FOR i =1 TO n 

285 IF x ( i > = 1 6 AND y(i)<16 AND y(i>>5 TH 
EN dx (i ) =-dx (i ) 

286 IF x (i ) =25 AND y(i><12 AND y<i)>8 TH 
EN dx (i ) =-dx (i ) 

290 IF x ( i ) <=2 OR x<i>>-39 THEN dx(i)=-d 
x ( i ) 

300 IF y (i X“3 OR y(i)>=24 THEN dy(i)=-d 
y (i ) 

310 IF x (i )=z AND y(i)=v THEN 460 

320 LOCATE x ( i ) , y ( i ) : PRINT " ":x(i)=x(i) 

+dx (i ) 

330 y ( i ) =y ( i ) +dy ( i ) : LOCATE x ( i ) , y ( i ) : PEN 
1: PRINT CHR$ (231 ) 

340 NEXT 

350 REM ruch ludzika 

360 IF INKEY(lewo) =0 AND z >2 THEN GOSUB 

1000: z=z-l 

370 IF INKEY (prawo) =0 AND z <39 THEN GOSU 
B 1000: z=z+l 

380 IF INKEY (góra) =0 AND v>3 THEN GOSUB 
1000: v=v-l 

390 IF INKEY (doi ) =0 AND v<24 THEN GOSUB 
1000: v=v+l 

391 READ nuta 

392 SOUND 135, nuta, 18, 12, 1 

393 nt=nt+l 

394 IF nt=mel THEN RESTORE 5000: nt=l 
400 WEND 

410 REM koniec gry 

420 INK 3,26, 18: LOCATE 12,1: PEN 3: PRINT" 
GRASZ JESZCZE (T/N)"; 

430 IF INKEY (51 ) =0 THEN RUN 

440 IF INKEY (46) =0 THEN PEN 1 : CLEAR INPU 

T: CLS: END ELSE 430 


46.0 REM , z 1 apanie-.pi^l Ki :**«*'!} 

470 pt=pt+l : SOUND 3,340,50,15,1 

472 FOR i =1 TO 150: BORDER 7,26:NEXT 

473 BORDER O 
475 GOSUB 2000 

480 z =20 : v= 1 2 : GOTO 230 

1000 LOCATE z, v: PRINT " ": RETURN 

2000 FOR i =1 TO n 

2010 IF x ( i X >0 THEN LOCATE x(i),y(i):PR 
INT" " 


2100 
2200 
2300 
2350 
5000 
5100 
, 113 
5200 
, 127 
5300 
, 225 


x (i >=INT(RND*23+7) 
y (i >= INT (RND* 12+4) : NEXT 
RETURN 
REM nuty 

DATA 127, 106,84,80,95, 106, 113,71,80 
DATA 84, 106, 113, 106, 142, 169,213, 106 

DATA 127, 159, 169, 190,95, 106, 179, 113 

DATA 134,84, 113, 134, 159, 169, 190,213 


5400 DATA 213,169,127,225,127,142,253,14 


2,159 

5500 DATA 284,225,190,159,113,95,134,84, 
95 

5600 DATA 106,127,142,159,95,106.113,134 
, 127 

5700 DATA 169,134,113,84,80,84,95,106,11 
3 


Innym niemal już klasycznym przykładem wykorzystania efektu 
ruchu piłki bilardowej, jest „flipper". W grze tej wystrzelona piłecz- 
ka. trafiając w różnorodne przeszkody, zdobywa dla naspunkty do 
czasu, aż wypadnie poza pole gry. Sterując odpowiednio „flippe- 
rami", od których piłeczka się odbija, staramy się jak najdłużej 
utrzymać ją w ruchu na polu gry. 

W naszej grze rolę dwóch „flipperów" przejmie poruszająca się 
poziomo kreska (rys. 2). 



Ry*. 2 


Na początku piłeczka, wisząc na cienkiej nitce, mruga do nas za- 
chęcająco. Po wystartowaniu (naciskając spację) piłka spada i 
krążąc po polu gry, odbija się od przeszkód. Za każdorazowe trafie- 
nie w przeszkodę otrzymujemy 1 0 punktów. Jeżeli nie uda nam się, 
poruszając „kreską" odbić piłeczki, wówczas wpada ona do jednej 
z czterech komór, „zdobywając" dla nas punkty ujemne. 


9 SYMBOL AFTER 256 

10 MEMORY 20000: SYMBOL AFTER 38: CLS 

15 ENT 1,89, 37, 238: ENV 1,84,7,5 

16 ENT -2, 13,-9, 1, 1, 121, 1 : ENV 2,1,14,1,1 
4,-1, 11 

20 MODĘ 1 : INK 0,0: INK 1,26: INK 2, 24: INK 
3, 17: BORDER O 

30 FOR i =16000 TO 16028: READ a*:v=VAL("& 
"+a*):POKE i,v:NEXT 
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14 0. pt"0 I 0002f 

45 SYMBOL 38,60,66, 153, 189, 189, 153,66,60 
50 LOCATE 1,1: PEN 2:PRINT STRING* (39, 143 
) ; : LOCATE 1,2: PEN 2:PRINT STRING* (39, 143 
) ; : LOCATE 19,1: PEN 1:PRINT pt; 

60 FOR.y=l TO 25: LOCATE l,y:PEN 2:PRINT 
CHR* ( 143) i LOCATE 39, y: PEN 2:PRINT CHR* ( 1 
43) : NEXT 

70 LOCATE 3, 25: PEN 3: PRINT"-1 00" ; 

80 LOCATE 14, 25: PEN 3: PR I NT" -50" ;: LOCATE 
24, 25: PEN 3: PR I NT" -50" LOCATE 32, 25: RE 
N 3: PRINT"-100" ; 

85 FOR i =10 TO 30 STEP 10: LOCATE i,25:PE 
N 2: PR I NT CHR* ( 1 49) LOCATE i, 24: PEN 2:P 
RINT CHR* (149) ;:NEXT 
87 MOVE 0,0: DRAWR 620,0,2 

90 MOVE 313, 370: DRAWR O, -45, 2: LOCATE 20, 
5: PEN 1 : PRINT CHR* (231) 

91 IF xOO THEN LOCATE x , 24: PRINT" " : LOC 
ATE 2, 23: PRINT SRACE* (37); 

100 2=20: y»23: x-20: y=5: dx=SGN ( I NT ( RND*5- 
3) ) s dy=l 

105 LOCATE z , v: PEN 1: PRINT STRING* ( 3, 154 
) ? 

110 WHILE INKEY (47) =-l': LOCATE 20, 5: PEN 1 
: PRINT CHR* (231 ): LOCATE 20, 5: PRINT" " : WE 
ND: MQVE 313, 365: DRAWR O, -45, 2, 1 : LOCATE 2 
O, 5: PRINT" " 

120 RESTORE 2000: FOR i =0 TO n-1 : READ x,y 
: LOCATE x,y:PEN 2: PRINT "S<":POKE i5000+i 
, x:POKE 15100+i ,y:NEXT 
125 x=20:y=5 
130 WHILE y<24 

140 LOCATE x,y: PRINT" " : x=x+dx : y=y+dy : LO 
CATE x,y: PRINT CHR* (231) 

160 IF INKEY ( 1 ) =0 AND z <36 THEN LOCATE z 
,23: PRINT SPACE* (2) ; : z=z+2 
170 IF INKEY (8) =0 AND z >=3 THEN LOCATE z 
,23: PRINT SPACE* (3) ; : z=z-2 
175 IF y=22 AND (x>=z-l AND x<>z+3) THEN 
dy=-dy 

180 LOCATE z , v: PEN 1: PRINT STRING* (3, 154 

> ; 

190 IF x<>3 OR x >«=38 THEN dx=-dx 

200 IF y< =3 OR y>=25 THEN dy=-dy 

210 POKE 14990, x : POKE 14991,y:P0KE 14992 

, n : POKE 14995, O: CALL 16000 

220 IF PEEK( 14995) =1 THEN 250 EL.SE 310 

250 SOUND 129,142,50,1,1 

300 IF ABS (dx ) = ABS(dy) THEN 301 ELSE 30 
4 

301 dx=SGN ( INT (RND*7-3) ) : IF dy=l THEN GO 
SUB 3000: GOTO 309 

302 IF dy=-l THEN GOSUB 4000: GOTO 309 

304 IF ABS (dx > =1 THEN dx=-dx : dy=SGN ( INT ( 
RND*7-3) ) 

305 IF ABS (dy ) =1 THEN dy=~dy : dx=SGN ( INT < 
RND#7-3) ) 

309 LOCATE x,y:PEN 2: PRINT : x=x+dx : y= 
y+dy:pt=pt+10: LOCATE 19,1: PEN 1: PRINT pt 

310 WEND 

312 SOUND 129,250,0,0,2,2 
315 FOR a=l TO 1000: NEXT 

320 IF (x>=l AND x<=10> OR (x>=31 AND x< 
=40) THEN pt=pt-100: LOCATE 19,1: PRINT pt 
; : GOTO 90 

330 pt=pt-50: LOCATE 19,1: PRINT pt;:GOTO 

90 

340 GOTO 90 

1000 DATA 3a, 8e,3a, 21, 98, 3a 

1100 DATA ed, 4b, 90, 3a,ed,bl,c0, 1,63,0,9 

1200 DATA 3a, 8-f , 3a, be, cO, 1 , 93, 3a, 3e, 1,2, 

c9 

2000 DATA 6,13,11,14,12,7,14,21,20,15,26 


rioynn9imx slrmosniO 
,9,31,16,34,19,35,12,25,6, l&yi7721 .i'8, 13,' 
10,20, 15,36,5 

3000 IF RND>0. 5 THEN dy=-l: RETURN 
3100 dy=0: RETURN 

‘4000 IF RND>0. 5 THEN dy=l: RETURN 
4100 dy=0: RETURN 


Podprogram umieszczony w liniach 1 000—1200 wczytywany jest 
w linii 30, pary współrzędnych (xp, yp) rozmieszczenia przeszkód 
podane w linii 2000 wczytujemy w linii 120. 

Znak, który ma być drukowany jako przeszkoda jest zdefiniowa- 
ny w wierszu 45. 

Po wywołaniu podprogramu (linia 210) następuje badanie wska- 
źnika (linia 230). W razie trafienia piłeczki w przeszkodę następuje 
(w liniach 300—305) losowa zmiana kierunku ruchu piłeczki. 

Efekty dźwiękowe występują tylko w wypadku trafienia w 
przeszkodę lub wyjścia z pola gry. Spróbuj rozszerzyć program, tak 
aby np. w czasie całej gry przygrywała muzyczka. 

Podprogram wygląda następująco: 


Kod mne- 
moniczny 

Opis Liczba Odpowied- 

baitów nik rozka- 
rozkazu zu w ko- 
dzie ma- 
szynowym 
(ósem- ’ 
kowo) 

LD A, 
(14990) 

Podstaw do akumulatora współrzęd- 
ną x piłeczki 

3 

3A, 8E, J3A 

LD HL, 
15000 

Podstaw do pary rejestrów HL adres 
początku tablicy współrzędnych xp 
przeszkód 

3 

21 , 98. 3A 

LD BC, 

Podstaw do pary rejestrów BC ilość 


ED, 4B, 

(14992) 

przeszkód (wartość n). 

4 

90, 3A 

CPIR 

Porównaj wartość współrzędnej x pi- 
łeczki (w akumulatorze) z kolejnymi 
elementami tablicy xp przeszkód 

4 

ED, BI 

RET NZ 

Powrót do programu BASICA, jeżeli 
nie znaleziono odpowiednika w tab- 
licy 

1 

CO 

LD BC, 99 Znaleziono Współrzędna x=xp 
Podstaw do pary rejestrów BC war- 
tość 99 

3 

1 . 63, 0 

ADD HL. 
BC 

Zmodyfikuj adres tablicy wsp. 
przeszkód w celu porównania wsp. y 
piłeczki z odpowiadającą jej współ- 
rzędną yp przeszkody. 

Do pary rejestrów HL dodaj zawar- 
tość pary rejestrów BC. Wynik w HL 

1 

9 

LD A, 
(14991) 

Podstaw do akumulatora współrzęd- 
ną y piłeczki 

3 

3A, 8F, 3A 

CP (HL) 

Porównai wartość współrzędnej y pi- 
łeczki (w akumulatorze) z zawartoś- 
cią komórki o adresie umieszczo- 
nym w HL-element tablicy yp odpo- 
wiadający znalezionej wartości 

1 

BE 

RET NZ 

Powrót programu BASICA, jeżeli nie 
znaleziono odpowiednika 

1 

CO 

LD BC. 

Znaleziono, czyli x=xp i y=yp 

3 

1, 93. 3A 

14995 

Ustawienie wskaźnika (komórki 

2 

3E, 1 

LD A, 1 

14995) na jeden 

1 

2 

LD. BC. A 




RET 

Powrót do programu BASICA 

1 

C9 
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Oznaczenia zmiennych 

n T — liczba przeszkód 
x. y — aktualne współrzędne piłki 
xp, yp — współrzędne przeszkód 
z. v — współrzędne „kreski" (v=23) 
pt — punkty 

lewo ) numery klawiszy sterujących ruchem „kreski. Przyjęto 
> lewo = 8 (*■•) 
prawo ) prawo = 1 (-) 


Współrzędne kolumn (xp) i linii (yp) przeszkód umieszczone zos- 
taną w tablicach, które będziemy przeglądać po każdorazowej 
zmianie współrzędnych piłki. W tym celu napiszemy prosty pod- 
program w kodzie maszynowym, który będzie wywoływany w BA- 
SIC-u. 

Przyjmijmy, że tablica współrzędnych xp zajmować będzie obszar 
pamięci od adresu 15000 (dziesiętnie) do 15099, a tablica odpo- 
wiadających im współrzędnych yp obszar od adresu 15100 do 
151 99 (rys. 3). 

Ustalmy ponadto, ze: 

-- komórka o adresie 1 4990 zawierać będzie bieżącą wartość x 
piłeczki 

— komórka o adresie 14991 zawierać będzie bieżącą wartość y 
piłeczki 

— komórka o adresie 14992 zawierać będzie ilość przeszkód 
(wartość n) 

— komórka o adresie 14995 będzie wskaźnikiem przyjmującym 
wartość 0 (zero), gdy współrzędne (x, y) piłeczki nie pokrywają 
się ze współrzędnymi (xp. yp) przeszkody, i wartość 1 (jeden) w 
przeciwnym wypadku. 

Przed wywołaniem podprogramu wskaźnik ustawimy na zero. 


Rys. 3 


15000 


15099 

15100 


15199 



Kontynuując rozważania na temat grafiki 
komputerowej, w kolejnej części przedsta- 
wiamy zasady wykorzystania pióra graficzne- 


go; 

Z piórem graficznym związanych jest zna- 
cznie więcej procedur, niż z piórem teksto- 
wym. Przed użyciem pióra graficznego nie- 
zbędne jest wywołanie bezparametrowej pro- 
cedury 


initgrafik 


ustalającej początkowe warunki pracy. Po za- 
kończeniu wykorzystywania pióra graficznego 
należy wywołać bezparametrową procedurę 

leavegrafik 

Odpowiednikiem procedury pen dla pióra 
graficznego jest procedura 

grafpen (nrk) 

a odpowiednikiem procedury paper — pro- 
cedura 

grafpaper (nrk) 


gdzie nrk oznacza numer kałamarza. 

Zasady wykorzystania kałamarzy przez pióro 
graficzne są identyczne, jak dla pióra teksto- 
wego. 

Z punktu widzenia pióra graficznego kartka 
podzielona jest na 400x600 punktów, (nieza- 
leżnie od trybu wykorzystania ekranu) tj 400 
wierszy (numerowanych od 0 do 399) po 640 
punktów (numerowanych od 0 do 639) w każ- 
dym z nich. Punkt można zakreślić kolorem 
tuszu za pomocą procedury 

plot (x,y) 


gdzie: 

x — nr wiersza, 
y — nr kolumny 



Od ostatnio ustalonego położenia pióra można 
wykreślić odcinek do punktu wskazanego w 
procedurze 

draw (x,y) 


gdzie: 

x,y — współrzędne punktu, do którego będzie 
kreślony odcinek. 

Dodajmy, że punkt wskazany w draw staje 
się ostatnio ustalonym położeniem pióra gra- 
ficznego. 

Przedstawione procedury wykorzystano w 
programach kreślenia prostokątów: 

— wyznaczającego ramy kartki (próg. 26), 

— o współrzędnych wierzchołków (100, 
100), (100,250), (550-250), (550—100) wraz 
z przekątnymi (próg. 27). 


PROGRAM prog26; 

{$i orafiko. inc) 

BEGIfl 

ink (0,0.0) ; 
inkd, 19,19)1 
initgrafik: 
grafpaper (0) ; 
grafpen (1)} 
plot (0,0) : 
dratt (0,399): 
draw (639, 39v) ; 
draw(639,0) ; 
draw (0, Oz s 

REPEAT UNtIL keypressed; 
leavegrafik; 
ink (0,1,1): 
ink (1,26.26) ; 

END. 


PROGRAM prog27; 
(»i grafiki. inc) 


initoraf ik; 


•odelO); 
ink (2,0.0) : 
ink (3,12, 26); 
ink (4.16. 16) ; 
ink(5i 11,11); 

oraf pen (5) ; 
plot (100, 100); 
draw ( 100, 250) s 
draw(550,250> s 
draw (550, 100) ; 
dr aw ( 100, 100) ; 
orał pen (3) : 
dr*w(550,2$0); 
grafpen (4): 
plot (100,250) ; 
draw (550. 100) ; 

REPEAT UŃTIL keypressed; 
leavegrafik: 

END. 

W programie próg 27 wykorzystano ponadto 
procedurę 


clg (nrk) 

„czyszczącą” kartkę w kolorze ustalonym w 
ostatnio wykonanej procedurze grafpaper i 
ustanawiającą nowy numer kałamarza (nrk) 
dla tła pióra graficznego. 

W kolejnych przykładach zilustrowaliśmy 
sposoby kreślenia figur graficznych oraz nie- 
które problemy związane z projektowaniem 
bardziej złożonych obrazów, ograniczając się 
do płaszczyzny. 

W przykładzie 29 znajdziecie, program 
kreślenia okręgu o zadanym promieniu i 
współrzędnych środka. Wykorzystano w nim 


PROGRAM prog28; 

(li oraf ik3. inc> 

PROlEDURE okrag(xs,ys,r : integer) ; 
VAR 

x,y, i : integer; 
wsp:real) 
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BESIN 

wsp:=pi/180; 

FOR i:=0 TO 359 DO 
BE6IN 

x : *round (rłsin (i twsp) ) ; 
y:=round(rtco5(ilwsp)); 
plot (x5+x,ys+y) ; 

END; 

END; 

BEGIN 

inltorat ik; 
ink (O,0,0) s 
graf paper (0) ; 
clg(O) ; 
grafpend); 
okrąg (320,200, 100) ; 

REPEAT UNTIL keypressed; 

leavegrafik; 

ink (0, 1,1); 

END. 

znaną z geometrii metodę wyznaczania punk 
tów leżących w jednakowej odległości od za- 
danego punktu, przy czym uzyskiwane war- 
tości współrzędnych są zaokrąglane do części 
całkowitych (funkcja round), a przyjęta odlcg 
łość kątowa między kolejnymi kolorowanymi 
punktami wynosi 1 stopień, 

PROGRAM proq29; 

{$i gra-f i k3. inć> 

VAK 

i, jsmteger; 
chschsr; 
wsp: real ; 

PROCEDURĘ okrag(xs,ys,r:integer); 

VAR 

x , y, i : integer ; 
rtspireal: 

BEGIN 

wsp: =pi /ISO: 

FOR i:=0 TO 359 DO 

BEGIN 

x : =round ( rlsi n (i Iwsp) > ; 
y:=round (rłcos (i twsp) ) ; 
c j)lotlxs+x v y5+y); 

END; ’ 

BEGIN 

iri tgrafi k; , 

nodsU) ; 

/ inkl2.0,0ł: . 

ora-fpaper (2) ; 
ćlg(2) ; 
ink (0,12,12); 
ink (3, 10, 10) ; 
ora-f pen (0) : 
ókrag (200, 200, 150); 
wsp : -pi / 180 ; 
j:=0i 

FOR i:=0 TO 29 DO 
BEGIN 

grat pen (3) : 

piet (200,200) ; 

draw (200+round ( 149*sin (6* jlwsp) ) . 
200+round(149lcos(iljlw5p)* . 

gra-f pen ( 1 ) 5 
plot (200,200); 

draw (200+round ( 149tsin (6* jfwspi ) . 

200+roand (149lcos (61 jtwsp) i 

j:*M; 

END; 

WHILE NOT keypressed DO 
EEGIN 

ink ( 1 , 10, 10; ; 
ink (3,26.26) : 

FOR i : =1 TO 4000 DO; 
ink (3, 10. 10) ; 
ink (1,26.26) s 


Wrażenie obracania się koła uzyskano w pro- 
gramie z przykładu 30 przez zmianę kolorów 
szprych koła. Efekt ten jest namiastką bardzo 
dynamicznie rozwijającej się animacji obra- 
zów. 

PROGRAM proo30; 

($i grafiko. inc) 

VAR 

i.nr:integer; 
cn : char : 

BEGIN 

initorafik; 
modę t0) ; 
ink (0,0,0) : 
graf paper (0) ; 
clg(0) ; 
grafpend): 
plot (100,100) ; 
draw ( 100, 250) ; 
draw (550,250) ; 
draw (550, 100) ; 
draw ( 100, 100) ; 

REPEAT 

gotoxy (0, 23) ; 

iJRITErpodaj nr kalanarza ’); 

8eK>, ’’ 

grafpeninr HDD 16); 

FOR i : =100 TO 250 DO 
BE6IN 

pl ot (100, i ) , 

draw I 550, i > ; 

END; 

REPEAT UNTIL keypressed; 
READ(kbd.ch); 

UNTIL ch= J ’; 
ink (0,1,1); 

>ode(2) ; 
leayegrafik; 

END. 


Inny problem to kolorowanie figur. W pro- 
gramie próg 30 zilustrowano jeden ze sposo- 
bów kolorowania pola prostokąta. 


PR06RAM prog31; 

(Si grafika. inc) 

VAR 

»ll,yll,<12,yl2, 

x21.y21,*22,y22:integer; 

BEGIN 

NRITELNCpodaj współrzędne dolnego ’ 
'prostokąta'); 
READLN(xll,yll,xl2,yl2); 

WR I TELN ( ’ podaj nspolrzedne gornego ’ 
'prostokąta'): 
READLNtx2i,y21,x22,y22) ; 
initorafik; 

•odelO); 

inklO.0,0); 

clglO); 

grafwindow(xll,yll,xl2.yl2); 
graf paper (4) ; 
clg(ł) ; 

graf window <x21 , y21 f x22, y22> ; 
grafgaperd" 

REPEAT' UNTIL keypressed: 

•ode (2); 
ink (0, 1, 1) : 
leaveórafili| 

END. 

Występująca w programie instrukcja gotoxy 
(x,y) umóżliwia ustawienie położenia pióra 
tekstowego w określonym miejscu ekranu (ek- 


ran jest tu widziany jako tablica znaków o 
wymiarach 25 wierszy i liczbie kolumn zale- 
żnej od trybu wykorzystania ekranu. 

Wszędzie tam, gdzie zamieszcza się obrazy 
obiektów rozlokowanych w przestrzeni trój- 
wymiarowej, pojawia się kwestia likwidowania 
rysunków niewidocznych części obiektów, 
ścian i krawędzi. Najprostszym przykładem 
może tu być kreślenie nakładających się częś- 
ciowo prostokątów, zilustrowane w przykła- 
dzie 32. 

W programie wykorzystano właściwości tzw. 
okien graficznych wyznaczonych za pomocą 
procedury 

grafwindow (x L , y L , x p , y p ) 

gdzie: 

x,,y, — współrzędne lewego dolnego wierz- 
chołka okna 

x ,y — współrzędne prawego górnego wierz- 
cnołka okna. 

Okno graficzne jest prostokątem. Przyjmuje 
się, że dla pióra graficznego kartka jest po- 
czątkowym, standardowym oknem grafi- 
cznym. 

W podanym przykładzie każdy prostokąt 
reprezentowany jest przez okno graficzne, a 
do ich kolorowania wykorzystano znaną już 
procedurę clg (dotyczy ona faktycznie ostat- 
nio określonego okna). Efekt przesłaniania 
uzyskano sterując kolejnością kolorowania 
prostokątów. W praktycznie spotykanych za- 
daniach uzyskanie tego efektu wymaga 
skomplikowanych obliczeń i należy do naj- 
trudniejszych operacji w grafice komputero- 
wej. 

Okna graficzne wykorzystane są w progra- 
mie wyświetlania kolorów tuszów, którymi 
standardowo napełniane są poszczególne ka- 
łamarze. 

PROGRAM proo32; 

($i grafiki. inc) 

VAR 

xl,x2,yl.y2, 
i, j , k: integer ; 

BEGIN 
xl:=I0; 
x2: =60; 
yl:=50: 
y2: =150; 
initorafik; 
modę (0) ; 
ink (0,0,0) : 
graf paper (ó) ; 
clg (0) ; 

FOR !:=0 TC 1 DO 
FOR j:=0 TO 7 DO 
BEGIN 

grafviindoH(xl+j»B0,yl+iłl25, 
x2+ jł80, y2+i I 125) ; 

clg(k) ; 

k:=k+l; 

END; 

REPEAT UNTIL keypressed; 
ink (0, 1.1); 
ink (1,26,26) ; 

■ode 12) ; 
leayegrafik: 

END. 

y Podane przykłady na pewno nie oddają w pei- 
ni stopnia trudności grafiki komputerowej. 
Ilustrują jedynie wybrane, często spotykane 
problemy. 

Stefan ROZMUS 
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Grafika na ekranie (3) 

Przesunięcie 

oraz współrzędne jednorodne 


Dotychczas w prezentowanym cyklu nie 
omawialiśmy przesunięcia punktów i linii na 
płaszczyźnie, a także figur składających się 
z punktów i linii. Spowodowane to było nie- 
możliwością wprowadzenia stałych przesu- 
nięcia wewnątrz struktury ogólnej macierzy 
transformacji 2X2. Trudność tę można omi- 
nąć przez wprowadzenie trzeciego składni- 
ka do wektorów [ x y ] i [ x y], przedstawia- 
jąc je w postaci [xy7 ]i[x*/*1). Macierz 
transformacji po tej operacji staje się ma- 
cierzą o rozmiarach 3X2: 


[ii] 


Jest to konieczne, gdyż w celu wykonania 
mnożenia macierzy liczba kolumn w macie- 
rzy definiującej punkt winna równać się 
liczbie wierszy w macierzy transformacji. W 
ten sposób 


[xy1] 


[] 


= [ x+ m y + m ] = [ x*y* ] 


Wynika z tego, że stałe m i n powodują 
przesunięcie x* i y* w stosunku do x i y. Aby 
istniała możliwość wyznaczenia macierzy 
odwrotnej (patrz część 1 ) do macierzy trans- 
formacji uzupełniamy tę macierz do kwadra- 
towej o rozmiarach 3X3. 

Na przykład: 


[ 1 ool 


Trzeci składnik wektorów położenia punk- 
tów nie zmienia się po dodaniu trzeciej ko- 
lumny do macierzy transformacji. Wykorzy- 
stując tę macierz oraz uwzględniając (1 ) otrzy- 
mujemy przekształcony wektor [ x* y* 1], 
Dołożenie trzeciego elementu do wekto- 
ra położenia i trzeciej kolumny do macierzy 
transformacji pozwala wykonać przesunię- 
cie wektora położenia. Tak więc, wektor po- 
łożenia [x y 1 ] po pomnożeniu przez macierz 
transformacji 3X3 staje się wektorem poło- 
żenia w ogólnym przypadku postaci [X Y H\ 
Przedstawione przekształcenie było wyko- 
nane tak, że [X Y H] = [x y 1 ]. 
Przekształcenie zachodzące w przestrzeni 
trójwymiarowej w rozpatrywanym wypadku 
jest ograniczone do płaszczyzny gdyż H = 1 . 
Jeżeli jednak trzecia kolumna 

[ 1 ] 

macierzy transformacji T rozmiaru 3X3 nie 
jest równa 

' 0 


to w rezultacie przekształcenia otrzymamy 
[x y 1 ] = [X Y H], gdzie H/1. Płaszczyzna, 
na której obecnie znajduje się przekształco- 
ny wektor położenia, znajduje się w prze- 
strzeni trójwymiarowej 

Zastąpienie dwuwymiarowego wektora 
trójwymiarowym lub w ogólnym przypadku 
n-wymiarowego (n + f ) wymiarowym nazy- 
wa się wprowadzeniem tzw. współrzędnych 
jednorodnych. Opisane zostanie teraz dość 
obszernie zagadnienie współrzędnych jed- 
norodnych. Współrzędne te mają duże za- 
stosowanie. zwłaszcza w przestrzeni trój- 
wymiarowej. Należy więc potraktować po- 
niższy opis jako wprowadzenie do grafiki 
trójwymiarowej. 

Idea tworzenia współrzędnych jednorod- 
nych jest następująca. Punkt p przestrzeni 
n-wymiarowej charakteryzowany jest ukła- 
dem n liczb p = ( Pi, p 2 Pn) będących je- 

go współrzędnymi. Przedstawia się ten 
punkt za pomocą układu liczb n+1 w posta- 
ci: 

P = ( Pi. Pz Pn. 1 ) 

lub w ogólnym przypadku 

p = (Ap,,Ap 2 Ap n , A) gdzie A 1*0. 

Liczby Ap u Ap 2 Ap n , A nazywa się współ- 

rzędnymi jednorodnymi punktu p określo- 
nego w przestrzeni n-wymiarowej. 

Współrzędne jednorodne wykorzystuje 
się do wykonywania przekształceń w prze- 
strzeni o jednym wymiarze większym niż ta, 
w której działamy. W ten sposób dwuwymia- 
rowy wektor [x y] przedstawia się trój- 
składnikowym wektorem [ńx hy ń], Związek 
pomiędzy współrzędnymi punktu na pła- 
szczyźnie a jego współrzędnymi jednorod- 
nymi wyraża zależność: 


. ńx 


hy 


K "-h y -~h 
Nie ma jednorodnego przekształcenia 
współrzędnych punktu w przestrzeni dwu- 
wymiarowej. Na przykład jednorodne współ- 
rzędne (1 2, 3, 3), (8, 2. 2), (4, 1 , 1 ) przedsta- 
wiają wyjściowy punkt (4, 1). Dla upro- 
szczenia wyliczeń ustalamy, że [x y 1 ] 
przedstawia nieprzeksztalcony punkt w 
dwuwymiarowych współrzędnych jedno- 
rodnych. 

Przekształcenie 


(«• y*] = [x y] 


[::] 


we współrzędnych jednorodnych ma postać 
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[X Y H] = [x y -1] I c d 0\ 
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rzędnych. 

. X 

X 


pX+qY+1 

Wykonanie przedstawionego powyżej 
przekształcenia współrzędnych wykazuje, 

W* Y 

Y 

że X = x\ Y = y\ H = 1. Jeżeli dodatkowa 

*~H~ 

pX+qY+1 



IKS 


współrzędna jest równa jedynce, to przeksz- 
tałcone współrzędne jednorazowe są równe 
przekształconym współrzędnym (zwykłym). 
W ogólnym przypadku H¥=1 \ przekształcone 
zwykłe współrzędne otrzymuje się poprzez 
normalizację przekształconych współrzęd- 
nych jednorodnych, to jest 

. X ._Y 


H 


H 


Geometrycznie wszystkie przekształcenia 
x i y realizowane są — po normalizacji 
przekształconych współrzędnych jednorod- 
nych — na płaszczyźnie h = 1 
Wykorzystanie współrzędnych jednorod- 
nych do operacji wykonywanych na pła- 
szczyźnie dwuwymiarowej pozwala rozsze- 
rzyć zakres wykonywanych przekształceń, 
poprzez wprowadzenie macierzy transfor- 
macji o wymiarach 3X3. 

Ogólna postać macierzy transformacji jest 
następująca: 


[ a b p""l 
c d q I 
m n sj 


Wykorzystując tę macierz można dołączyć 
do już przedstawionych przekształceń inne, 
np. przesunięcie, zmianę skali i przesunię- 
cie. Pokażemy teraz wpływ trzeciej kolumny 
macierzy transformacji 3X3 na wynik 
przekształceń na płaszczyźnie. 

Prześledźmy wyniki następującej opera- 
cji: 


[x YH) = [xy1) 


[ 10 pl 

o ’ Q = 

00 ' J 


— [xy (px -t- qx + 1)] 

Teraz X = x, Y = y, H = c/ + q/~ 1. Zmień- 
na H określa płaszczyznę przekształcenia 
punktu (przedstawionego we współrzęd- 
nych jednorodnych) w przestrzeni trójwy- 
miarowej. 

Przekształcenie to pokazano na rys. 1 . 



Rys. 1 Przekształcenie we współrzędnych 
jednorodnych. Linia AS leżąca na płaszczy- 
źnie xy jest rzutowana jako linia CD na pła- 
szczyznę pX+qY-H+ 1 =0 
Na rys. 1 p=q=1 . Wykonamy teraz nor- 


Przyjmując p=q=1 oraz współrzędne 
punktów A i B odpowiednio (1.3) i (4.1) 
otrzymujemy: 

1 1 . 3 

* 1+3+1 5. y 6 

po przekształceniu A w C* oraz 

y . = i- 

x 1+4+1 3. y 6 

po przekształceniu 8 w D* 

Jednorodne współrzędne dla punktów C* i 
O* pokazanych na rys. 1 odpowiednio wy- 
noszą < g- 1. 1 ) M g. ' ) 

W rezultacie normalizacji uzyskano przejś- 
cie trójwymiarowej linii CD w jej rzut C* D* 

|| m tmtttttttttttttttttttmtimimitt 

30 REN Przesuniecie 
40 REN 

so ren itmmmmumtmmtitmmtit 

60 DIN Msp ( 101.3) ,aat (3.3) , niesp (101,3) 

70 H0DE 1 : INK 6,13:1NK 1,3: INK 2, 12: IHK 3,0 
80 B0RDER 0 : PEN 1: PAPER 2 
90 CLS 

100 PRINT ‘Przesuwnie obrazu h układzie*; 

110 PRINT "współrzędnych: -319<x<319,-191<y<191" 
120 PRINT 

130 PRINT ‘Siatka współrzędnych (t/n)* 

140 z»=INKEYI 

150 IF zl=‘ * THEN 140 

160 1F z*=‘t‘ THEN fl=l:60T0 190 

170 IF z*=V THEN fl»0:GOT0 190 

180 6OT0 140 

190 6RAPHICS PAPER 1:REH Tlo grafiki 

200 0R1GIN 320,208,0,640,16,400 

210 CLEAR INPUT 

220 H IND0U 1.40.25,25 

230 G0SUB 1230: REN Rys. układu xspol. 

240 i=0 :REN Licznik punktów 
250 INPUT 'Podaj md. p 1 - 
260 IF x >998 THEN 330 
270 i=i*l 
280 wspli,l) s x 
290 wsp<i,2)*y 
300 wsp(i,3)*l 

310 60SUB 780: REN Nykresl. punkt lub odcinek 
320 60T0 250 

330 INPUT "Podaj przesuniecie:*, y"jp,q 
340 G0SUB 850 :REN Ustaw eacierz przeksz. 

350 G0SUB 1030 iREN Mnożenie 

360 50SUB 1140 : REN Zobrazowanie 

370 INPUT *Przesunieto:ponownie-r,koniec-k* 5 nkl 

380 IF nkt=*r‘ THEN 410 

390 IF nk$=*k* THEN 1730 

400 GOTO 370 

410 INPUT ‘kasowanie obrazu-k,rysowanie-r‘;nk* 
420 IF nk|s‘k* THEN 450 
430 IF nkł=‘r* THEN 670 
440 GOTO 410 

430 INPUT‘nowego obrazu-n,starego-s‘;nk$ 

460 IF nk»=‘n‘ THEN 620 
470 IF nk»=‘s‘ THEN 490 
480 GOTO 450 

490 REN Kasowanie starego obrazu 
500 G0SUB 1 230: REN Rys. układu wspolrz. 

510 FOR k=l TO i 
520 wsp ( k , 1 > =nwsp ( k , 1 ) 

330 wsp(k,2) = nwsp(k,2) 

540 wsp(k,3)=nwsp(k,3) 

550 NEXT k 

560 GRAPHICS PEN 3 

570 G0SUB 1630 

580 INPUT ‘przesuniecie-p,dorysowanie-d*;nk» 
590 IF nk$- p‘ THEN 330 
600 IF nk»=‘d‘ THEN 250 
610 GOTO 580 

620 REN Kasowanie nowego obrazu 

630 GOSUB 1230 

640 GRAPHICS PEN 3 

650 GOSUB 1630 

660 GOTO 580 

670 FOR n*l TO iiREH Rysowanie od początku 

680 FOR k=l TO 3 

690 wsp(n,k) s 0 

700 nwsptn,k)*0 

710 NEXT k 

720 NEIT n 

730 GOTO 230 

740 ren tmttttmmtttttmmttmmmi 

750 REM PODPROGRAMY 

760 ren imHttimimimtttttmmtiim 

770 REN 

780 REN Rysowanie punktu lub odcinka 
790 REN 

800 GRAPHICS PEN 3: REN stare współrzędne 
810 IF i=l THEN PLOT wsp(i,ll,wsp(i,2) 

820 IF i>l THEN DRAM wspli,i),wsp(i,2) 


830 KfcIUKN 
840 REN 

850 REN Ustawianie uderzy 
B60 REN 

870 FOR k=l TO 3 
880 ut(k,k)*l 
890 NETT k 
900 eat(l,2)*0 
910 aat (2, 1 ) =0 
920 eat <1,31*0 
930 aat (2, 3) =0 
940 eat <3, 11 =p 
950 aat(3,2)*g 

960 FOR k=l TO i:REN Zerowanie nwsp 

970 FOR 1=1 TO 3 

980 nwsp(k,l)*0 

990 NEIT 1 

1000 NETT k 

1010 RETURN 

1020 REM 

1030 REN Mnożenie ucierzy 
1040 REN 

1050 FOR n«l TO i 
1060 FOR k*l TO 3 
1070 FOR e=l TO 3 

1080 nwsptn, k)snwsp(n,k)^«sp(n t a)taat (a f kl 
1090 NEIT ■ 

1100 NEIT k 
1110 NEIT n 
1120 RETURN 
1130 REN 

1140 REN Rysowanie nowej figury 
1150 REN 

1160 6RAPHICS PEN OiRCN PIORO nowych wspol. 

1170 PLOT nwsp (1.1), nwsp (1 , 2 > 

1180 FOR n=2 TO i 

1190 DRAŃ nwsp(n,l),nwsp(n,2> 

1200 NEIT 
1210 RETURN 
1220 REN 

1230 REN Rysowanie układu współrzędnych 
1240 REN 
1250 CLG 1 

1260 GRAPHICS PEN 2: REN Pioro układu wspol. 

1270 FOR a*-200 TO 200 STEP 20 

1280 PLOT -2, a 

1290 DR AMR 4,0 

1300 NEIT a 

1310 PLOT 0,-208 

1320 DRAŃ 0,208 

1330 TAG 

1340 H0VER -16,-20 
1350 PRINT ‘Y‘: 

1360 N0VER -310,0 
1370 PRINT "20‘; 

1380 TA60FF 

1390 PLOT -307,170 : REN Kreślenie podzialki 

1400 DR AMR 0,-4 

1410 DRANR 0.2 

1420 DRANR 20.0 

1430 DRANR 0,2 

1440 DRANR 0,-4 

1450 IF f 1=1 THEN 1460 ELSE 1510 
1460 FOR b=-200 TO 200 STEP 20 
1470 FOR a—320 TO 320 STEP 20 
1480 PLOT a,b 
1490 NEIT a 
1500 NEIT b 

1510 FOR a*-320 TO 320 STEP 20 

1520 PLOT a, -2 

1530 DRANR 6.4 

1540 NEIT a 

1550 PLOT -320.0 

1560 DRAŃ 320,0 

1570 TA6 

1580 N0VER -16,-4 
1590 PRINT Tj 
1600 TA60FF 
1610 RETURN 
1620 REN 

1630 RENzRysowanie starej figury 
1640 REN 

1650 PLOT wsp (1,1), wsp (1,2) 

1660 FOR n=2 TO i 

1670 DRAM wsp (n, 1 ) , wsp (n,2) 

1680 NEIT n 
1690 RETURN 
1700 REN 
1710 REN Koniec 
1720 REN 

1730 HINDON 1,40,1,25 
1740 CLS 
1750 CLG 1 
17*0 END 

na płaszczyznę H=1. Jak pokazano na ry- 
sunku punktem centralnym rzutowania jest 
środek układu współrzędnych. 

Podstawowa macierz transformacji roz- 
miaru 3X3 dla dwuwymiarowych jednorod- 
nych współrzędnych może być podzielona 
na cztery części 


fa b \ pi 

LJll.L 

Im n| s I 


Jak uprzednio wykazano elementy a, b, c, d 
wpływają na szalowanie, obrót i skręcenie. 
Elementy m.in. umożliwiają przesunięcie, 
zaś p i q wpływają na rzutowanie. Pozostała 
część macierzy, element s powoduje ogólne 
skalowanie. Aby pokazać efekt ogólnego 
skalowania wykonamy następujące prze- 
kształcenie. 


[X Y H] = [x y 1] 


r°° °1 

I O O s J 


(x y s] 


Teraz X=x, Y=y, H-s. Współrzędne punktu 
po przekształceniu wynoszą. x*=-f.y* = 
= -£ . W wyniku przekształcenia [x y 1] — 
-»[y -jf i) ma miejsce ogólna zmiana 
skali wektora położenia. Gdy s<l zachodzi 
powiększenie, a przy s>1 pomniejszenie 
skali. 

Przykład programu realizującego przesu- 
nięcie figury na płaszczyźnie 
Po uruchomieniu programu „Przesunięcie" 
następuje przedstawienie zakresu umow- 
nych współrzędnych figur obrazowanych 
na ekranie monitora oraz pytanie o siatkę 
współrzędnych. 

Na układzie współrzędnych przyjęto po- 
działkę wynoszącą 20 jednostek. W celu 
ułatwienia identyfikacji współrzędnych kreś- 
lonych figur wprowadza się siatkę współ- 
rzędnych. która pokrywa cały układ współ- 
rzędnych kropkami tworzącymi kwadraty o 
boku równym wielkości przyjętej podziałki. 
Wciskając klawisz „ł” siatka współrzędnych 
będzie wyświetlana do końca działania pro- 
gramu. Naciśnięcie klawisza „n" powoduje 
efekt przeciwny Algorytm działania pro- 
gramu jest następujący: 

1 ) Definiowanie figury 

2) Określenie wartości przesunięcia. 

3) Obrazowanie figury podstawowej oraz po 
przesunięciu. 

4) Wykonanie spacji umożliwiających: 

a) definiowanie figury od początku. 

b) kasowanie jednej z otrzymanych figur. 

c) dorysowanie nowych elementów figu- 
ry. 

d) wykonywanie przesunięcia. 

e) zakończenie działania programu 
Identyfikację poszczególnych części pro- 
gramu źródłowego z przedstawionym algo- 
rytmem umożliwiają komentarze zawarte w 
programie. 

Uwaga eksploatacyjna 

Koniec definiowania figury uzyskuje się 
wpisując wartość współrzędnej x>998 oraz 
dowolną wartość współrzędnej y. 

Modyfikacje 

Zmianę wielkości podziałki uzyskamy 
modyfikując linie 1 270 oraz 1 51 0 programu. 
Konsekwencją zmiany podziałki jest konie- 
czność modyfikacji opisu podziałki (linia 
1 370 i 1 420) oraz siatki współrzędnych (linie 
1460 i 1470). 

Uwaga praktyczna 

Wpisując tekst instrukcją PRINT na pozy- 
cję kursora graficznego należy umieścić 
średnik na końcu instrukcji, gdyż jego pomi- 
nięcie powoduje uzyskanie nieoczekiwane- 
go efektu — Sprawdź Jest to rezultat 
przeniesienia tekstu do nowej linii. 

Andrzej CETERA 


Biblioteka C 64 


„Biblioteka" W naszej domowej bibliotece zapanował ogromny 
bałagan. Pora zatem na zrobienie porządków. Pomoże nam w tym 
prezentowany płogram Wszystkie zbiory książkowe możemy 
umieścić na kasecie magnetofonowej (wg obliczeń autora 
ok. 2000 pozycji na 100 obrotów licznika magnetofonu). Nasz zbiór 
zostanie uporządkowany według haseł (nazwisk autorów) o dłu- 
gości do 20 znaków Pod każdym hasłem (nazwiskiem) możemy 
umieścić różne dane, jak np. liczbę tomów, rok wydania, liczbę 
stron, na której półce znajduje się pozycja itp. Dane te jednak nie 


mogą zawierać więoej niż 75 znaków. Może przepływ informacji w 
naszej skomputeryzowanej bibliotece nie będzie zbyt szybki 
(to tylko przecież magnetofon), niemniej program umożliwia 
wykorzystanie mikrokomputera do bardzo poważnych celów Pro- 
gram można łatwo dostosować do wielkości naszej biblioteki, a 
także, wykorzystać go do innych celów. 


4040 IF LEFT#<B»<Q),LEN<B*>> OB* THEN 40 
80 

4030 PRINT’ AUTOR:’ ;B»(Q) tPRINT 

4060 PRINTTAB <3) Ct <Q> iPRINT 

4070 N-N+llTF INT<N/3)«N/3 THEN INPUT'WI 

ECEJ— NACISNIJ RETURN’ |A* 

4080 NEXT O 
4090 GOTO 40 

3000 PRINTCHR# (147) i PRINT 

3010 INPUT’ PODAJ AUTORA ’ ;B*:PRINT 

3020 FOR O>0 TO A 

5030 IF LEFT*(B*(Q>,LEN(B*) ) OB* THEN 50 
90 

5040 PRINTCHR# (147) ' AUTOR i ' |B#<Q) iPRINT 
3050 PRINTC#<CI) jPRINT 

3060 INPUT’ CZY CHCESZ USUNĄĆ TEN ZAPIS < 

T/N)’ | A# :PRINT 

5070 IF A* O ' T* THEN 3090 

3080 B# <Q) — ' ' : C* <Q> ' i D— D+l 

5090 NEXT Q 

5100 GOTO 40 

6000 INPUT’ COFNIJ KASETE, NACI ŚNIJ RETUR 
N’ |A# 

6010 OPEN 1, 1,2, 'BIBLIOTEKA’ 

6020 PRINT# 1, <A— D) 

6030 FOR Q-0TOAi IF Bł <Q) -’’ THEN 6050 
6040 PRINT# I, B*<0) |CHR*<32> 

6045 PRINT# l.C*(Cl) 

6050 NEXT Qi PRINT# 1,’END’ 

6060 CLOSE 1 i GOTO 40 

7000 PRINT’ SORTOWANIE. iFORO-1 TO A 
7005 D*<Q)»B#<Q> jE#<0)-C*(Q> 

7010 A*<Q)-D*«J> 

7020 NEXT □ 

7030 K— 0 
7040 Q-1 

7050 FOR J»2 TO A 

7060 IF A# <Q) <A*<J) THEN 7080 

7070 Q-J 

7080 NEXT J 

7090 A*(0)-’ ZZZ’ 

7100 K-K+l 

7110 B*<K)-D#<0> «C#(K)-E#(Q) 

7120 IF K-A+l THEN 7140 
7130 GOTO 7040 
7140 GOTO 40 

8000 REM PROCEDURA INICJUJĄCĄ 
8002 A*— 1 

8005 OPEN 1 , 1 ■ 2, * BIBLIOTEKA’ 

8010 PRINT# 1,0|A«(A* 

8020 CLOSE li RETURN _ , 

1060 IF A*-’N' THEN 1080 

1070 A-A+l 

1071 IF A-D <300 THEN 1000 

1072 IF A-D-300 THEN PRINT’ OSTATNI ZAPIS 
U PLIKU’ 

1074 IF A-D> *300 THEN PRINT’ BLAD, PLIK P 
ELNV :PR!NT’ KONIEC PLIKU' 


1076 PRINT’ URUCHOM PONOWNIE PROGRAM, I NIC 
JUJAC NOWA SEKCJE NA TAŚMIE’ 

1078 GOTO 1000 
1080 GOTO 40 

2000 PRINT’ PODAJ AUTORA DLA KTOREGO NAST 
API ZMIANA ' 

2010 INPUT’ REDAKCJI’ |B* iPRINT 
2020 FOR 0-0 TOA 

2030 IF LEFT# <8# <Q> , LEN (B#) I <)W THEN 21 
10 

2040 PR 1 NTCHR* <147) 

2030 PRINT’ BIBLIOTEKA’ iPRINT 
2060 PRINTC#<0) iPRINT 

2070 INPUT’ CZY CHCESZ REDAGOWAĆ TEN ZAPI 

S<T/N) ’ |A*iPRINT 

2080 IF A#-’N’ THEN 2110IPRINT 

2090 INPUT' PONOWNIE WPROWADŹ WSZYSTKIE D 

ANE’ |C*<Q) ■ INPUT A# i PRINT 

2100 PRINT’ CZY POPRAWNIE <T/N> ?' |C# <□> 1 1 

NPUT A# iPRINT 

2)05 IF A# O ’T’ THEN PRINT’ NIE MOZĘ BYC D 
LUZSZY NIZ 73 LITER’ iGOTO 2090IPRINT 
8107 I NPUT ’ PODAŃ I E INNEGO <T/N) • | A# i IF A# 
<)’T’ THEN 2120 
2110 NEXT Q 

2120 PRINT' KONIEC PLIKU’ iGOTO 40 
3000 PRINT' WYBIERZ iDWYLISTOWANIE 

KATALOGU ZAPISÓW’ 

3005 PRINT’ 2) WYL ISTOWANIE ZAPISO 

W WEDŁUG AUTOROW’ 

3007 INPUT Y 

3010 ON Y GOTO 3300,3020 

3020 INPUT’ PODAJ AUTORA ' |H* l PRINT 

3040 PRINT’ NUMER’ , 'AUTOR ’|N-1|PRINT 

3050 FOR 0-0 TO A 

3060 IF LEFT# <B*<Q>, LEN <H#> > OH* THEN 30 
90 

3070 PRINT N, b* (Q> 

3080 N-N+liIF INT (N/l 1> -N/11 THEN INPUT’ 
W I ECEJ — NACI SN IJ RETURN’ jA* 

3090 NEXT O 

3100 PRINT’ ’ iPRINT iGOTO 

40 

3300 PRINT CHR# < 147> iPRINT 
3310 PRINT’ NUMER’ , 'AUTOR ’|N-1|PRINT 
3320 FOR R-63 TO 90 
3330 FOR 0-0 TO A 

3340 IF LEFT*<B*<Q), 1) OCHRKR) THEN 336 

0 

3350 PRINTN, B#<0) iN-N+lilF INT <N/ 1 1 ) -N/ 1 
1THEN INPUT’ WIECEJ — NACISNIJ RETURN’ j A# 
3360 NEXT O, R 
3370 GOTO 40 

4000 PRINTCHR# < 147) iPRINT 

4010 INPUT’ PODAJ AUTORA ’»B#|PRINT 

4020 N— 1 

4030 FOR 0-1T0A 


Opracował: 

Tadeusz CISEK, Warszawa 

5 PRINT’ BIBLIOTEKA' 

10 PRINTCHR# < 147) TAB < 53) 'BIBLIOTEKA’ 

20 CLRlPRINT iDIM A* <300) , B* (300) , C# <300) 
, D# <300) , E# < 300) : FL-0 : D-0 
23 PRINT’ WPROWADŹ ODDZIELNA KASETE NA PL 
IK DANYCH’ iPRINT 

27 PR I NT' COFN I J KASETE i NACI ŚNIJ RETURN ’ 

I i INPUT’ GDY JESTES GOTOW’ |A*iPRINT 

30 PRINT’ TEN PROGRAM MUSI BYC ZAINICJOWA 

NY' 

32 PRINT’ KIEDY STOSOWANY JEST PO ROZ PIE 
RWSZY , CZY CHCESZ GO • 

33 INPUT’ ZAINICJOWAĆ <r/N)’|A*iIF O* O • T 
’ THEN 33 

34 GOSUB 8000iPRINTi INPUT’ PRZEWIN TASME, 
NACISNIJ RETURN ’ |P# 

35 OPEN 1 , 1 1 INPUT# l.ZlIF Z-0 THEN FL-1 1 
GOTO 40 

36 IF Z) -295 THEN PRINT' PIEC REKORDÓW DO 
KOŃCA PLIKU’ 

37 FOR A-0TOZI INPUT# 1,B#<A)|IF B#<A)-’E 
ND’ THEN GOTO 40 

38 INPUT# 1 , C* <A) i.IF C# <A> =• END’ THEN GOT 
O 40 

39 NEXT 

40 PRINT’ WYBÓR ROZKAZÓW’ i PR INT 
42 CLOSE l, 1 

50 PRINT’ ROZKAZ’, 'FUNKCJO’ iPRINTlPRINT 
60 PRINT’ 1 ’ , ’ WPROWADZENIE NOWEJ POZYCJI’ 

: PR INT 

70 PRINT’ 2', 'DRUKOWANIE LISTY POZYCJI’ iP 
R1NT 

80 PRINT’ 3’ , 'SZUKANIE POZYCJI’ iPRINT 
90 PRINT’ 4’ ,’ ZMIANA REDAKCJI POZYCJI* iPR 
INT 

100 PR INT’ 3’, 'KASOWANIE POZYCJI* iPRINT 
110 PRINT’ 6’, 'SORTOWANIE' iPRINT 
113 PRINT' 7’, 'NAGRANIE PLIKU’ iPRINT 
120 INPUT A* 

130 IF A*—’ 1 ' THEN 1000 
140 IF A*-’ 2* THEN 3000 
150 IF A#-’ 3’ THEN 4000 
160 IF A*-* 4' THEN 2000 
170 IF A#-’ 3’ THEN 5000 
180 IF A*-’ 6’ THEN 7000 
183 IF A#-’ 7' THEN 6080 
190 PRINT' ZLY ROZKAZ— PODAJ JEDEN Z * 

195 PRINT’ NASTĘPUJĄCYCH:' 

280 GOTO 50 

1000 PRINT’ PODAJ AUTORA <DLUGOSC DO 20 
’ i INPUT' LITER)’ i B* < A) 

1010 IF LEN < B* < A ) ) > 20 THEN 1000 

1020 PRINT’ PODAJ TYTUŁ LUB INNE DANE INA 

J WYŻEJ ’ ) 

1025 PRINT’ 73 ZNAKÓW) ’ i INPUT C*<A> 

1030 PRINT’ CZY POPRAWNIE <T/N> 7’ |C# <A> : I 

NPUT 0*1 IF A* < ) ' T* THEN 1020 

1050 INPUT’ WPROWADZENIE NASTĘPNEGO < T/N ) ’ 


Jak narysować CPC 6128 


Ten program na AMSTRAD-a może służyć jako pomoc w nauce 
początków geometrii. Pokazuje, jak narysować symetralną odcin- 
ka, dwusieczną kąta i trójkąt w trzech wersjach, gdy mamy dane: 
trzy boki, dwa boki i kąt, bok i dwa kąty, posługując się cyrklem 
i linijką bez podziałki. Program wykorzystuje tryb wysokie) roz- 
dzielczości — MODĘ 2 — 560x400 punktów 

W programie można wyróżnić 1 0 rozdzielnych modułów. Pierwszy 
z nich to moduł sterujący (linie 10—180), 5 następnych realizuje 
kolejno funkcje. Moduły te nie wymagają dodatkowych opisów — 
teksty w nich zawarte dokładnie opisują wykonywane czynności. 
Następne trzy moduły to podprogramy realizujące funkcje wyko- 
rzystywane przez 5 modułów podstawowych i im należy poświęcić 
więcej uwagi, tym bardziej że mogą być one wykorzystane w in- 
nych programach 

Podprogram „PRZESUWANIE ODCINKA” — linie 
1890—2000. Podprogram przesuwa odcinek w 30 krokach z jed- 
nego miejsca na ekranie- w drugie, pokazując jego ruch. Należy 
podać mu współrzędne odcinka wyjściowego (zmienne x1 1 , yl 1 ; 
x1 2, yl 2) i końcowego (zmienne x21 , y21 ; x22, y22). 

Podprogram „RYSOWANIE ŁUKU" - linie 2000-2050. Ry- 


suje na ekranie łuk o zadanych parametrach, pokazując jedno 
cześnie ruch promienia łuku. Wykorzystuje zmienne: x, y — współ- 
rzędne środka, r — promień, k, I — współrzędne kątowe początku i 
końca łuku, w stopniach, liczone zgodnie z ruchem wskazówek 
zegara, przyjęto, że 0 stopnie odpowiada goaz. 12. 

Podprogram „RYSOWANIE ODCINKA” - linie 2060-2100 
Podprogram rysuje na ekranie odcinek o zadanych współrzęd- 
nych (x1 1, yl 1, x12, yl 2) dzieląc go na 400 części, dużo wolniej 
niż instrukcja DRAW. 

Ostatni podprogram to definicje polskich liter nie występujących 
na klawiaturze AMSTRADA. Wykorzystano klawiaturę numery- 
czną (fi — f9). Małe litery otrzymujemy naciskając SHIFT i wybra- 
ny klawisz FI — f9, duże KONTROL i fi— f9 — patrz rysunek. Jest 
to system w tej chwili znany wśród wielu użytkowników AMSTRA- 
DA i wygodny. 

Wpisywanie programu najwygodniej rozpocząć od wpisania 
podprogramu „POLSKIE LITERY'' — litery 21 1 0—2390. Po wpisa- 
niu należy podprogram uruchomić (tak jak każdy program w BA- 
SIC-u) i od tej chwili posługujemy się polskim alfabetem, co ułat- 
wia wpisywanie tekstów zawartych w programie k. P. 
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10 HODE l:DE6:CLS:FRAHE 
20 60SUB 2110 

30 LOCATE 9, IsPRINT "JAK NARYSONAĆ" 


40 PRINT: PRINTs PRINT 

50 PRINTsPRINT • SYHETRALNA ODCINKA 1* 

60 PRINT:PRINT ■ DWUSIECZNA K$TA 2* 

70 PRINT: PRINT • TRÓJKJT (3 boki) 3" 

BO PRINTtPRINT * TRflJKęT (2 boki.kęt) 4* 

90 PRINTsPRINT ■ TRÓJKĄT (bok, 2 kęty) 5' 

100 LOCATE 1,20 


110 PRINT "Do rysowania używaey linijki i cyrkla' 

120 LOCATE 6,24:PRINT 'Powrot do eenu-dowolny znak* 

130 a*=INKEYi: IF a*=*l* GOTO 190 

140 IF a»='2' 60T0 380 

150 IF a*='3* GOTO 560 

160 IF a*=*4* GOTO 900 

170 IF ał«*5* GOTO 1330 

180 60T0 130 

190 ’re» 'llllll SYHETRALNA llllll* 

200 HODE 2: PRINT CHR«(22>;CHR«<1) 

210 LOCATE 30,1 SPRINT 'SYHETRALNA ODCINKA' 

220 LOCATE 30,lsPRINT * * 

230 a=200:LET b=400:c*17Ó:PLÓT a,c 
240 DRAŃ b,cik*30:l»60:x*a:y=c:r*155 
250 PRINT : PRINTsPRINT 
260 PRINT '1-Rysujeey 2 Tuki z* 

270 PRINT ' lewego końca odcinka* 

280 GOSUB 2000: k = 1 20: 1 = 1 50: x =a: y=c 
290 60SUB 2000: PRINT :PRINT:PRINT 
300 LOCATE 53,7:PRINT '2-Rysujeey 2 luki z* 

310 LOCATE 55,8: PRINT ‘prawego końca odcinka* 

320 k=210: l=240:x=bsy=c:G0SUB 2000 
330 k=300: 1 =330: x*b : y=c: 60SUB 2000 
340 LOCATE 2,22:PRINT '3-Przez punkty przecięcia* 

350 LOCATE 4,23: PRINT 'przechodzi syeetralna odcinka* 

360 xl 1=300: yll=30:xl2=300:yl2*300 

370 GOSUB 2060: CLEAR INPUT:60T0 540 

380 ’ *ltm DWUSIECZNA K $ T A tttlt' 

390 HODE 2: PRINT CHR4(22);CHR*<1) 

400 LOCATE 30, IsPRINT 'DWUSIECZNA K0TA* 

410 LOCATE 30, IsPRINT ■ * 

420 PLOT 200, 150: DRAW 400,105 ’ 

430 HOVE 200, 150: DRAW 400,200 

440 LOCATE I,14:PRINT *1-Z wierzchołka kęta* 

450 LOCATE 5,15:PRINT 'wykrellaey Puk' 

460 x*200: v=l 50: 1 =1 20: k=70: r= 150: GOSUB 2000 

470 LOCATE 30.8:PRINT *2-Z punktów przecięcia wykreil 

aey dwa luki* 

480 x=346:y=187:k=90:l=130:r=150:60SUB 2000 
490 x=346:y=114:k*60:l=100:r=150:60SUB 2000 
500 LOCATE 3,23:PRINT "3-Przez wierzchołek kęta i pun 
kt przecięcia* 

510 LOCATE 46,23:P9INT * łukdw przechodzi dwusieczna 
kęta' 

520 xll=170:yll=150:xl2=510 
530 yl2=150:60SUB 2060:CLEAR INPUT 
540 IF INKEY$>=' ' GOTO 10 
550 60T0 540 

560 'rei *111111 TRÓJKĄT 13 boki) llllll* 

570 HODE 2: DEG: PRINT CHRf (22) ; CHR* ( 1 ) 

580 LOCATE 30, 1:PRINT 'T R 6 J K T* 

590 LOCATE 30. IsPRINT ' * 

600 LOCATE 40,5: PRINT 'Haey dane trzv boki trojkęta" 
610 LOCATE 3,3:PR!NT 'a' 

620 PLOT 50, 356: DRAW 200,356 
630 LOCATE 3,5sPRINT *b“ 

640 PLOT 50, 324: DRAW 150,324 
650 LOCATE 3, 7s PRINT 'c' 

660 PLOT 50, 296: DRAW 250,296 

670 LOCATE 1 , 21 s PRINT. *1-Rysujeey odcinek np.’c’* 

680 x 1 1 =50: x 1 2=250: y 1 1 =296 : y 1 2=296 
690 x 2 1 =200 : x 22=400 s y 2 1 = 1 00: y22= 1 00 
700 60SU8 1890: LOCATE 39,20:PRINT 'c* 

710 LOCATE 3, 15: PRINT '2-Z kodca ’c’ rysujeey' 

720 LOCATE 3, 16: PRINT 'luk o proeieniu ’a’* 

730 x 1 1 =50: x 12*200: yl 1 *356: yl2*356 
740 x21=200:x22=314:y21=100:y22=l96 
750 GOSUB 1 890: LOCATE 35,16:PRINT 'a* 

760 x = 200 : y = 1 00 : r = 1 50 : k=55 : 1 =70: 60SUB 2000 
770 LOCATE 50, 14: PRINT *3-Z drugiego końca 'c’“ 

780 LOCATE 52, 15: PRINT ‘rysujeey tuk o proeieniu 'b" 

790 xll=50:x 12=150: yll*324:yl2*324 

800 x22=400:y22=100:x21=310:y21=142 

810 GOSUB 1890:x=400:y=100:r=100 

B20 LOCATE 46, 16:PRINT *b' 

830 k=300: 1 =325: 60SUB 2000:L0CATE 15,24 


840 PLOT 200, 100: DRAW 314,196,1,1 

850 PLOT 400, 100: DRAW 310,142,1,1 

860 PRINT '4-tęczay punkt przecięcia luków z końcaei 

odcinka ’c" 

870 x 1 1 =200: yll=100:x 12=331 x yl2=172: 80SUB 2060 
880 x 1 l=400:yl 1=100: x 12=331 :yl2=172: 60SUB 2060 
890 CLEAR INPUT: GOTO 540 

900 'Umil T R Ó J K $ T ( 2 boki.kęt) tttttm 
910 HODE 2: DEG: PRINT CHRt(22))CHR$(l) 

920 LOCATE 30,1: PRINT *T R 0 1 K 4 T* 

930 LOCATE 30,1: PRINT * ' 

940 LOCATE 40,3:PRINT 'Haey dane dwa boki trójkęta* 
950 LOCATE 40,5:PRINT 'i kęt^eiedzy niei zawarty' 

960 LOCATE 3,3:PRINT 'a' 

970 PLOT 50, 356: DRAW 250,356 
980 LOCATE 3,5:PRINT *b* 

990 PLOT 50, 324: DRAW 200,324 
1000 LOCATE 1, 10: PRINT *kęt* 

1010 PLOT 50, 244: DRAW 200,244 
1020 PLOT 50, 244: DRAW 161,308 
1030 LOCATE' 1,21 :PRINT *1-Rysujeey odcinek np.’a’* 

1 040 x 1 1 =50 : x 1 2*250: y 1 1 =356 : y 1 2=356 
1050 x2i=200:x22*400:y2l*100:y22*100 
1060 GOSUB 1890: LOCATE 39,20:PR1NT V 
1070 LOCATE 1,15:PRINT '2-Przenosiey kęt* 

1080 x =50: y=244:r=100:k=55: 1=95: GOSUB 2000 
1090 xl 1=50: yl 1*244: x 12=149: y 12=2361x21=200 
1100 y21*100:x22*276:y22=164: GOSUB 1890 
1110 H0VE 200, 100: DRAW 276,164,1,1 
1120 x =200: y * 1 00: r = 1 00 : k=50: 1 = 1 00 : GOSUB 2000 
1130 x 1 l=150:yl 1=244: x 12=1 36: y 12=294: GOSUB 2060 
1140 xl 1=136: yll*294:xl2*150:yI2=244:x21=264 
1150 y21=I36:x22=300:y22=100: GOSUB 1890 
1160 HOVE 300, 100: DRAW 264,136,1,1 
• 1170 x =300 : y = 1 00 : r =52 : k *320 : 1 =360 : 60SUB 2000 
1180 LOCATE 48,12:PRINT *3-Rysujeey poeocniczę pótpro 
stę' 

1190 LOCATE 50,13:PRINT *i odkladaey na niej odcinek 
’b” 

1200 x 1 1 =200 1 y 1 1 * 1 00 : x 1 2*373 : y 1 2*200 : GOSUB 2060 
1210 H0VE 200, 100: DRAW 373,200,1,1 
1220 x 1 1=50: x 12=200: y 1 1 =324: y 12=324: x21=200 
1230 y21*100:x22*306:y22*206:60SUB 1890 
1240 x=200:y*100:r*150ik*50:l*70:60SUB 2000 


1250 H0VE 200, 100: DRAW 306,206,1,1 
1260 LOCATE 31. 16:PRINT 'b' 

1270 x 11=200: yll =100: xl 2=329: y 12=1 75: 60SUB 2060 
1280 LOCATE 57,16:PRINT '4-tęczyey końce odcinków' 
1290 LOCATE 59,17:PRINT '-rysujeey bok V 
1300 x 1 1=400: yl 1*100: x 12=329: y 12=1 75: GOSUB 2060 
1310 LOCATE 47, 16: PRINT *c* 

1320 CLEAR INPUT: GOTO 540 

1330 'limit TRÓJKĄT ( bok, 2 kęty) llllllll 
1340 HODE 2:DEG:PRINT CHRt ( 22) ; CHP* ( 1 ) 

1350 LOCATE 30,1: PRINT 'TRÓJKĄT' 

1360 LOCATE 30, IsPRINT * • 

1370 LOCATE 40, 3: PRINT 'Haey dane bok trójkąta* 

1380 LOCATE 40,5:PRINT 'i 2 kęty do niego przylegle” 
!?«0 LOCATE 3, 3: PRINT 'a' 


1400 PLOT 50, 356 1 DRAW 250,356 
1410 LOCATE 3, 6: PRINT 'kąt 1* 

1420 PLOT 50, 276: DRAW 200,276 
1430 PLOT 50, 276: DRAW 161,340 
1440 LOCATE 3,14:PRINT 'kąt 2' 

1450 PLOT 50, 140: DRAW 200,140 

1460 PLOT 50, 140: DRAW 156,246 

1470 LOCATE 20,22:PRINT '1-Rysujeey odcinek 'a' 

1 480 x 1 1=50: x 12=250: y 1 1 *356: y 1 2=356 

1490 x 21 =200: 1 22=400: y21 =100: y22= 1 00 

1500 605UB 1890: LOCATE 39.20:PRINT 'a' 

1510 LOCATE 1 , 18: PRINT '2-Przenosiey kęty' 

1520 x=50:y*276:r=100:k=55:l=95:60SUB 2000 
1530 x 11=50: yll *276:x 12=149: y!2=264:x21=200 
1540 y21 =100: x22=276: y22=164: GOSUB 1890 

1550 HOVE 200, 100: DRAW 276,164,1,1 
1560 x=200: y=!00:r=100: k=50: 1 =100: GOSUB 2000 
1570 xl 1=150: yl 1=276: x 12=136: y!2=326 
1580 GOSUB 2060 

1590 x ll=150:yll=276:x 12=156: yl2=326 
1600 x22=264:v22=136:x21*300:y2l=100 
1610 GOSUB 1890 

1620 HOVE 300, 100: DRAW 264,136,1,1 


1630 x=300:y=100:r=52:k=320:l=360:60SUB 2000 

1640 'IttttttDRUGl K$Tttlitltti:il 

1650 «*50:y=140:r=90:k=40:l=95:60SUB 2000 

1660 xll=50:yl 1=140: xl2=139:yl2=133:x22=400 

1670 y22=100: x21=3l 1 : y2l =93: GOSUB 1890 

1680 H0VE 400, 100:DRAW 311,93,1,1 

1690 x=400: y=100: r=90: k=270: 1 =330: GOSUB 2000 

1700 x 1 1=140: y 11= 140: x 12=1 13: yl’’=203: GOSUB 2060 

1710 xl 1=140: yl 1=140: x 12=1 13: y 12=203: x21*310 

1720 /2l=100:x22=333:y22=164: GOSUB 1890 

1730 HOVE 310, 100: DRAW 333,164,1,1 

1740 x=3l0:y=100:r=68:k=15sl=35:60SUB 2000 

1750 LOCATE 48, 12:PRINT ‘3-Rysujeey 2 poeocnicze pólp 

roste" 

1760 x 1 1 =200: yl 1=100: x 12=373: y 12=200: GOSUB 2060 

1770 HOVE 200, 100: DRAW 373,200,1,1 

1780 x 1 1 =400: y 1 I = 1 00: x 1 2=300: y 1 2=200: GOSUB 2060 

1790 HOVE 400, 100: DRAW 300,200,1,1 

1800 LOCATE 54,16:PRINT "4-tączyey końce odcinka ’a" 

1810 LOCATE 57, 17: PRINT 'z punktee przecięcia' 

1820 LOCATE 57,1B:PRINT 'pólprostych - rysujeey" 

1830 LOCATE 57,19:PRINT 'boki 'b' i *c" 

1840 xl 1=200: yll=100:xl2=328:yl2=174:60SUB 2060 
1850 LOCATE 34,16:PRINT 'b' 

1860 xl 1=400: yl 1=100: x 12=328: yl2*!74: GOSUB 2060 
1870 LOCATE 47, 16:PRINT 'c* 

1880 CLEAR INPUT :60T0 540 

1890 'ree 'llllll PRZESUWANIE ODCINKA llllll* 


1900 dxl=(xZl-xll)/30:dx2*(x22-xl2)/30 

1°10 dyl=(y21-yll)/30:dy2=(y22-yl2)/30 

1920 FPAHEiFOR i=l TO 30 

1930 xll=xll*dxl:xl2=xl2*dx2 

1940 yll=yll*dyl:yl2=yl2łdy2 

1950 HOVE x 1 1 , y 1 1 : DRAW xl2,yl2,l,l 

1960 FOR p=0 TO 50:NEXT 

1970 HOWE x 1 1 , y 1 1 : DRAW xl2,yl2,l,l 

1980 NEIT:HOVE xll,yll 

1990 DRAW xl2,yl2:RETURN 

2000 'ree “llllllll RYSOWANIE tUKU lllllltll” 
2010 FOR i=k TO I STEP 5 
2020 HOVE x , y: DRAM x+r *SIN ( i > , y+r ICOS < i ) , 1 , 1 
2030 HOVE x , y : DRAW x+r *SIN ( i > , y+rlCOS ( i ) ,1,1 
2040 DRAŃ x+rlSIN(i-5l,y*rlC0S(i-5),l,3 
2050 NEIT: RETURN 


2060 * MII RYSOWANIE ODCINKA III* 

2070 dx=(xl2-xil)/400:dy=ly"l2-yll)/400 

2080 HOVE x 1 I , y 1 1 : FOR i=l TO 400 

2090 xll=xllłdx:yll=yll+dy 

2100 DRAW xll,yll,l,3:NEXT: RETURN 

2110 'ree 'llllll POLSKIE LITERY llllll" 

2120 SYHBOL AFTER 170 


2130 SYHBOL 171,0,0,120,12,124,204,118,3 
2140 SYHBOL 172,24,60,102,102,126,102,102,3 
2150 SYHBOL 173,24,0,60, 102,96,102,60,0 
2160 SYHBOL 174.24.60,102,192,192,102,60,0 
2170 SYHBOL 175,0,0,60,102,126,96,60,6 
2180 SYHBOL T6, 254, 98, 104, 120, 104, 98, 254, 3 
2190 SYHBOL 177,56,24,28,24,56,24,60,0 
2200 SYHBOL 178,240,96,112,96,226,102,254,0 
2210 SYHBOL 179.24,0,220,102,102,102,102,0 
-2220 SYHBOL 180,24,198,230,246,222,206,198,0 
2230 SYHBOL 181,24,0,60,102,102,102,60,0 
2240 SYHBOL 182,12,56,108,198,198,108,56,0 
2250 SYHBOL 183,24,0,60,96,60,6,124,0 
2260 SYHBOL 184,24,60,96,60,6,102,60,0 
2270 SYHBOL 185,24,0,126,76,24,48,126,0 
2280 SYHBOL 186,254,198,140,126,48,102,254,0 
2290 SYHBOL 187,12,24,126,76,24,48,126,0 
2300 SYHBOL 188,48,254, 172,24,50, 102,254,0 
2310 KEY DEF 10,1,55,171,172 
2320 KEY DEF 11.1,56,173,174 
2330 KEY DEF 3,1,57,175,176 
2340 KEY DEF 20,1,52,177,178 
2350 KEY DEF 12,1,53,179,180 
2360 KEY DEF 4,1,54,181,182 
2370 KEY DEF 13,1,49,183,184 
2380 KEY DEF 14,1,50,185,186 
2390 KEY DEF 5,1,51,187,188 
2400 RETURN , 


28 — IKS 


IKS — Informatyczny słownik angielsko-polski 


CELL - komórka, adres, 

CELLAR - stos < w pamięci), 

CELLULAR ARRAY - układ komórkowy, 

CENTER - ośrodek, 

CENTER FREOUENCY - częstotl i mość nośna, 

CENTRAL COMPUTER - komputer centralny, 

CENTRAL PROCESSING UNIT CCPID - jednostka centralna, 
CENTRAL PROCESSOR - Jednostka centralna, 

CENTRAL STORAGE - pamięć operacyjna, pamięć central - 


CERTIFIER - maszyna do regeneracji taAm magnetycz- 
nych, 

CHADC DEDJ TAPE - taśma dziurkowana całkowicie, 
CHAOLESS TAPE - taśma dziurkowana niecałkowicie, 
CHAOS - ścinki papierowe (powstałe przy dziurkowaniu 
taimy lub karty), 

CHAFF - konfetti, wycinki (kart lub taśm dziurkowa- 
nych) , 

CHAIN - łańcuch, szereg, zbiór liniowo uporządkowany , 
CHAIN CODĘ - kod łańcuchowy, 

CHAIN PRI NT ER - drukarka łańcuchowa, 

CHAINED - także: doładowywany, dopinana (procedura) , 
CHAINED PROGRAM - program dołączany, 

CHAINING - łączenie dotyczące adresowania pamięci 
masowych, łączenie (np. rozkazów), także: dzielenie 
programu na części, tworzenie łańcucha, wiązanie 
łańcuchowe, 

CHANCHANGE - zmiana kanału, 

CHANGE - zmiana, zmieniać, 

CHANGE FILE - kartoteka zmian, kartoteka aktualizu- 
jąca, 

CHANGE OVER - przełączać, 

CHANGE RECORD - zapis (rekord) zmian, 

CHANGE TYPE - taśma zmian (dot. organizacji taśmy 
magnetycznej ) , 

CHANGELABLE STORAGE - pamięć wymienna, 

CHANGEOVER ONE-FOR-ONE - wprowadzenie nowego systemu 
pracy z Jednoczesnym usunięciem starego, 

C HANNĘ L - kanał, 

CHANNEL ADDRESS WORD - słowo adresowe kanału, 

CHANNEL CAPACITY - pojemność (zdolność przepustowa) 
kanału, 

CHANNEL CONTROLLER - urządzenie sterujące kanałem, 
CHANNEL INSTRUCTION - rozkaz kanałowy, 

CHANNEL JUMP INSTRUCTION - rozkaz skoku kanałowy, 
CHANNEL LOAD - zajętość kanału, 

CHANNEL PROGRAM - program kanałowy, 

CHAPTER - rozdział (programu) , 

CHARACTER - znak, 

CHARACTER ADDRESSING - adresowanie pozycji, adreso- 
wanie znaku, 

CHARACTER ADJUSTMENT - także: przesunięcie adresu, 
CHARACTER ARITHMETIC - arytmetyka znakowa, 

CHARACTER CODĘ MATRIX - matryca kodów znaków, 
CHARACTER COMPUTER - komputer pozycyjny, komputer 
znakowy, 

CHARACTER CONCENTRATOR - konwerter znaków, 

CHARACTER CONYERTER - konwerter znaków, 

CHARACTER DEFINITION TAG - znak definicji typu (na 
końcu nazwy zmiennej), 

CHARACTER DENSITY - gęstość zapisu znaków, 

CHARACTER ERROR PROBABILITY - stopa błędów znakowa, 
CHARACTER ERROR RATĘ - wskaźnik błędów w znakach, 
CHARACTER GENERATOR - generator znaków, 

CHARACTER MACHINĘ - komputer pozycyjny, komputer 
znakowy, 

CHARACTER PRINTER - drukarka znakowa, drukarka sze- 


regowa, 

CHARACTER READER - czytnik znaków, 

CHARACTER RECOGNI TI ON - rozpoznawanie znaków, 
CHARACTER SET - zestaw znaków, także: zestaw prze- 
bi tkowy, 

CHARACTER STRING - ciąg znaków, 

CHARACTER SUBSET - podzbiór znaków, 

CHARACTER TRANSLATOR - konwerter znaków, 
CHARACTER-AT-A-TIME PRINTER - drukarka znakowa, 
CHARACTER -ORGANIZED STORAGE - pamięć o organizacji 
znakowej , 

CHARACTERISTIC - cecha, cecha charakterystyczna, 
charakterystyka, 

CHARGE-COUPLED DE VI CE CCCD) - element ze sprzężeniem 
ł adunkowym, 

CHART - schemat, rysunek (techniczny), tabela (sta- 
tystyczna), wykres, 

CHARTING LA Y OUT - wykres zamierzonej koncepcji 
(dział ania) , 

CHECK - także: analiza, 

CHECK BIT - bit kontrolny, 

CHECK CHARACTER - znak kontrolny, 

CHECK COLUMN - kolumna kontrolna, 

CHECK COMMAND 7 rozkaz weryfikacji, 

CHECK DIGIT - cyfra kontrolna. 


CHECK IN - wpisać się na listę, nawiązać łączność, 
CHECK LIST - zestawienie (spis) kontrolne, 

CHECK METER - przyrząd pomiarowy kontrolny, 

CHECK NU MB ER - numer kontrolny, 

CHECK OUT - sprawdzać, kontrolować, test sprawdzają- 
cy, także: wypisać się, zakończyć seans łączności, 
CHECK POINT - punkt kontrolny, 

CHECK READING - czytanie kontrolne, czytanie spra- 
wdzające, 

CHECK SUM - suma kontrolna, 

CHECK TIME - czas sprawdzania, 

CHECK TRACK - ścieżka kontrolna, 

CHECKING CIRCUIT - układ kontrolny, układ sprawdza- 
jący, 

CHECKING PROGRAM - program sprawdzający, 

CHECKPOINT LABEL - etykieta punktu wznowienia, 

CHIEF PROGRAMMER TEAM - zespół programisty wiodącego 
(zespół głównego programisty), 

CHILD PROCESS - przebieg potomka (dot. ciągu pro- 
gramów) , 

CHIP - struktura półprzewodnikowa, moduł, kość (pół- 
przewodnika) , 

CHIP BONDING - mikromontaż struktury, 

CHIP BOX - pojemnik na ścinki (np. w dziurkarce kart, 
dziurkarce taśmy papierowej), 

CHIP CIRCUIT - układ scalony pastylkowy, 

CHIP ENABLE CCE) - sygnał wyboru struktury pamięci, 
uaktywnienie modułu, 

CHIP ENABLEk INPUT - wejście uaktywnienia, 

CHIP SELECT - wybór modułu, 

CHIP SELEKT INPUT - wejście wyboru, 

CHIPPINGS - ścinki papierowe (powstałe przy dziurko- 
waniu taśmy lub karty), 

CHOICE - wybór, dobór (np. maszyny), 

CHROMA KEY - kluczowanie kolorem (TV>, 

CIM - patrz: COMPUTER INPUT MICROFILM, 

CIPHER - cyfra, także: szyfr, szyfrować, kodować, 
CIRCUIT - układ, obwód elektryczny, 

CIRCUIT ALGEBRA - algebra schematów, 

CIRCUIT ELEMENT - element przełączający, 

CIRCULAR SHIFT - przesunięcie cykliczne, 

CIRCULATING DĘCI MAI, - ułamek dziesiętny okresowy. 
CIRCULAITNC MEMORY parnię' na liniach opóźniających. 
CIRCULATING STORĘ - pamięć na liniach opóźniających , 
CISC - patrz: COMPLEX INSTRUCTION SET COMPUTER, 

CIU - patrz: COMPUTER INTERFACE UNIT, 

CLAMPING - obcinanie, zakończenie wykreślania wekto- 
rów na brzegu ekranu, 

CLASS - rodzaj, 

CLASSIFIED INFORMATION - informacja zastrzeżona, 
CLAUSE - klauzula, warunek, 

CLEANER - filtr, 

CLEAR - kasować, wyzerować (np. licznik, stan reje- 
stru) , wymazać (np. pamięć maszyny), 

CLEAR BAND - miejsce na dokumencie, które nie może 
być pokryte drukiem, 

CLEAR STATE - start czysty, 

CLEAR THE REGISTER - wyzerować rejestr, 

CLEARANCE - kasowanie, wymazywanie, przywracanie 
do położenia wyjściowego, 

CLEARING - kasowanie, wymazywanie, przywracanie 
do położenia wyjściowego, 

CLEARING ROUTINES - programy wymazywania danych, 
CLIPPING - obcinanie, zakończenie wykreślania wek- 
torów na brzegu ekranu, 

CLOCK - zegar, licznik, czujnik zegarowy, 

CLOCK CIRCUIT - układ generacji sygnałów zegarowych, 
CLOCK DRI VER - zasilacz zegarowy, 

CLOCK FREOUENCY - częstotliwość cyklu zegarowego, 
CLOCK GENERATOR - generator zegarowy, 

CLOCK PERIOD - takt zegarowy. 

CLOCK RATĘ - częstotliwość cyklu zegarowego, 

CLOCK SI GNAŁ - sygnał zegarowy, 

CLOCK TRACK - ścieżka synchronizująca (zegarowa) , 
CLOCKING - synchronizowanie, taktowanie (impulsów, 
sygnałów) , 

CLOSED LOOP - pętla zamknięta (rozkazów), 

CLOSED SHOP - w żargonie: niedostępny (zamknięty) 
ośrodek obliczeniowy, 

CLOSED SUBROUTINE - podprogram zamknięty, 

CLOSED— LOOP SYSTEM - praca sprzężona z procesem 
w układzie zamkniętym, 

CLOSELY COUPLED MICROCOMPUTER SYSTEMS - systemy mi- 
krokomputerowe silnie powiązane (komunikacja przez 
wspólną pamięć operacyjną), 

CLOSING A FILE - zamykanie pliku (zbioru), 

CLUSTER - niepodzielna jednostka al lokacji (porcja), 
fragment pliku (zbioru), klaster, 

CLUSTER SET - pochodna zbioru, zbiór punktów sku- 
pieni a, 

CMC— 7 FONT - pismo CMC -7, 

CMC - patrz: COMPUTER NUMERI CAL CONTROL, 

CO-PROCESOR - procesor dodatkowy (wykonuje tylko ro- 
zkazy przeznaczone dla siebie, resztę pomija), 

COAKIAL CABLE - kabel koncentryczny, kabel współ- 
osiowy, 

COAXI AL TRANSCEI VER INTERFACE CCTI) - sprzężenie 
nadajnika-odbiornika z kablem, 

CODASYL - patrz: CONFERENCE ON DATA LANGU AGF . 
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CODĘ - kod źródł owy, kod, także: program, kod pro- 
gramu, 

CODĘ CHECK - kontrola kodu, 

CODĘ COMBI NATI OH - ciąg kodowy, 

CGDfc CONYERTER - przetwornik kodu, 

CODĘ NUMBEK - liczba zakodowana, 

COl^E SEGMENT - segment programu, 

CODĘ SET - Usta kodu, 

CODĘ SWI TCHOVER - przełączanie kodu, 

CODĘ SYMBOL - -symbol kodowy, 

CODĘ SYMBOL POST TI ON - pozycja kodowa, rząd kodowy, 
-ODE TRAMSLATION - przekodowanie, 

CCOE TREE - drzewo kodowe, schemat kodowy, 

CODED GRAPHIC - grafika konturowa, 

CODED IMAGE - obraz konturowy (rysunek liniowy), 

COOER koder, urządzenie kodujące, 

CODER NETWORK - tablica kodowania, matryca kodowania, 

CODKWORD - słowo kodu, 

CODIFY - kodować, 

CODING - kodowanie. 

CODING FORM - formularz programowy, formularz kodowy, 
CODING ..ANGUAGE - język kodowania, 

CODING Ma TRI X - tablica kodowania, matryca kodowania, 
COOiMG SHEET - formularz programowy, formularz kodowy, 
COEFFICIENT - współczynnik, 

COEKFICI ENT FIELD - ciało współczynników, 

COINCIDE - pokrywać się z . ... zbiegać się z .... 
COINCIOENT-CURRENT MEMORY CCCM) - pamięć koincyden- 
cyjna, 

COLD START - zimny start także: proces ładowania 
i inicjacji systemu operacyjnego, 

COLLECT gromadzić, zbierać <np. dane), 

COLLECTiNG gromadzenie, zbieranie (np. danych), 
COLLECTION - zbiór, także: zbieranie, gromadzenie, 
COLLECTION OF INFORMATION - zbidr informacji, 

COLON - dwukropek, 

COLO* SUPRESSED MODĘ - tryb z wygaszonym kolorem, 
COLUNN - l alumna (np. karty dziurkowanej), także: 
rubryka pionowa w tabeli, 

COLUMNAL LAYOUT - rozmieszczenie rubryk (np. na ze- 
stawieniu), 

COM - patrz i COMPUTER OUTPUT MICROFILN, 

COM DE VI CE - rejestrator mikrofilmowy (rejestruje 
obraz z komputera na mikrofilmie lub mikrofiszy), 

CONB ACCESS - dostęp grzebieniowy, 

COMBI NABI LITY - zdolność tworzenia połączeń, łącze- 
nia się w kombinacje, 

COMBI NATI ON - łączenie, wiązanie, kombinacja, 

COMBI NATI ONAL CIRCUIT - sieć przełączająca, 

COMBTNED CREAD^WRITE) HE AD - głowica uniwersalna, 

CCIMMA - przecinek, 

COMMAND - rozkaz, także: instrukcja programu, 

CGMMAND CHAIMING - wiązanie łańcuchowe rozkazów, 
COMMAND CYCLE - cykl rozkazu, 

COMMAND 1 .ANGUAGE - Język rozkazów, 

COMMAND LEVEL - poziom procesora, 

COMMENCE - zacząć, rozpocząć, 

< ONMENSURABILITY - współ mi erność , 

COMMENT - komentarz, 

COMMENT FIELD - pole komentarza, 

COMMERCIAL DATA PROCESSING - przetwarzanie danych 

gospodarczych, 

COMMON BUSINESS ORTENTED l. ANGUAGE C COBOL) - wysoko- 
p 02 i omowy język programowani a (proceduralny) , 

COMMON DENOMI N ATOL - wspólny mianownik, 

COMMON NODE - punkt wspólny, 

COMMON-COLLECTOR CONNECTION - układ (tranzystorowy) 
o wspólnym kolektorze, 

COMMON-EMITTER CONNECTION - układ (tranzystorowy > 
o wspólnym emiterze, 

COMMONLY-USED - zwykle używany, 

COMMUNICATION INSTRUCTIOM - rozkaz komunikacyjny, 
C.OMMUNI CATI ON LAYOUT - rozmieszczenie przewodów, 

plan połączeń, 

COMMUNICATION SESSION - seans łączności, 

COMMUNICATIONS - komunikacja, przesyłanie, 
COMMUNICATIONS CONNECTOR - łącze komunikacyjne, 
COMPACT - gęsty, zbity, zwarty, małych rozmiarów, 
takżet zagęszczać, zbijać, 

COMPACT I ON - upakowanie, 

CCMPARAB1JE - porównywalny, ' 

COFPARATI VE - porównawczy, 

CONPARATI VELY - porównawczo, w porównaniu z . ... 
COKPARF - porównywać, 

COKPARE-AND-SWAP - porównaj i zamień, 

COMPARFM - układ porównywania, 

OOMPARIMG - porównywanie, 

COMPARIN6 BRUSH - szczotka porównująca, 

CONTARINO INSTRUCTION - rozkaz porównania, 

COMPARING OPERATION - operacja porównania, 

CGMPARISON - porównanie, 

COMPASS - granica, skala, zasięg, 

COHPA7I3I LITY - wymienność, kompatybilność, zgodność, 
COMPAT1BLE - kompatybilny, wymienny, 

COMPENSATE - kompensować, wyrównywać, 

C.OMPILATION — tłumaczenie (programu źródłowego 
na język wynikowy), 

COMPILE - kompilować (tłumaczyć) czyli przekształcać 


program ujęty w Języku problemowym na język maszyny 
(wynikowy), takżea opracowywać, zestawiać, 

CONPtLER - program kompilujący, kompilator, 

COMPILER CONPTLER - kompilator kompi latorów, 
COMPILING - tłumaczenie (programu źródłowego 
na Język wynikowy), 

COMPILING STATEMENT - instrukcja translacji, 
COMPLEMENT - uzupełnienie, dopełnienie, 

COMPLENENT ATI ON - dopełnienie, uzupełnienie, 

COMPLETE - kończyć, zakończyć wykonywanie czynności, 
COMPLETF CARRY - przeniesienie natychmiastowe w do- 
dawaniu równoległym, 

COMPLETION - zakończenie (np. czynności, pracy), 
COMPLEX - liczba zespolona także: skomplikowany, za- 
wiły, złożony, kompleksowy, 

COMPLEX INSTRUCTION SET COMPUTER - komputer o złożo- 
nej liście rozkazów, 

COMPLEX NUNBERS - liczby zespolone, 

COMPLEXI TY - złożoność, 

COMPONENT - część składowa, element, składnik, 
COMPONENT PART - część składowa, 

COMPOSITE COLOR MONITOR - zespolony monitor kolorowy 
COMPOSITE NUMBER - liczba złożona, 

COMPOSITE VI DE O — zespolone wyjście video, 

COMPOST T I ON OF A RECORD - budowa zapisu (rekordu), 
COMPOUND - złożony, także: łączyć ze sobą, 

COMPOUND COMPUTERS - komputery sprzężone, 

COMPOUND CONDITION - warunek złażony, 

COMPREHEND - zrozumieć, 

COMPREHEKSI VE - obszerny, wszechstronny, wyczerpu- 
jący, 

COMPRESSED FORMAT - format zmniejszony, format za- 
gęszczony, 

COMPRESSION - ścieśnianie, 

COHPRISE - zawierać, 

COMPROKISING EMANATIONS - przypadkowe przekazywanie 
sygnałów odnoszących się do tajnych’ informacji, 
COHPUMI CATI ON - skomputeryzowane systemy łączności 
(Computer communication) , 

GOMPUT ATI ON - liczenie, obliczanie, 

COMPUT ATI OM CENTER - centrum obliczeniowe, 

COMPUT ATI ONAL - obliczeniowe, 

COMPUYaTIONAL LINGUTSTICS - lingwistyka komputerowa, 
COMPUT ATI ONAL SC HE ME - schemat obliczeń. 


COMPUT ATI OMS AIDS - środki obliczeniowe, 

COMPUTE - liczyć, obliczać, 

COMPUTED EMTRY TABLE - tablica wpisów o adresach 
obliczanych, 

COMPUTER - komputer, maszyna matematyczna, maszyna 
licząca, elektroniczna maszyna cyfrowa, 
COMPUTER-AIDED - skomputeryzowany, - 

COMPUTER AIDED DESIGN CC AD) - projektowanie układów 
wspomagane komputerem, 

COMPUTER AIDED EDUCATION - nauczanie wspomagane 
komputerem, 

COMPUTER AIDED INSTRUCTIOM - szkolenie wspomagane 
komputerowo, 

COMPUTER AIDED LEARNING - nauczanie wspomagane kom- 
puterem, 

COMPUTER AIDED MAMUFACTURE - wytwarzanie wspomagane 
komputerowo, 

COMPUTER AIDED ME ASURE KENT AND CONTORL - komputerowo 
wspomagane pomiary i sterowanie, 

COMPUTER ANALYST - analityk informatyk, 

COMPUTER APPLICATION FOR ME ASURE MENT AND CONTR OL 
CCAMAC) - międzynarodowy skomputeryzowany system 
modułowy pomiarów i sterowania, 

COMPUTER BULLETIN BOARD - komputerowa tablica infor- 
macyjna, 

COMPUTER BUREAU - usługowe biuro obliczeniowe, 
COMPUTER CENTRE - ośrodek obliczeniowy, 

COMPUTER CODĘ - lista rozkazów komputera, 

COMPUTER COMPATIBILITY - kompatybilność komputerów, 
wymienność komputerów, 

COMPUTER COMFI GURATI ON - zestaw komputera, 

COMPUTER CONTR OL - sterowanie komputerowe, 

COMPUTER CONTROLLED SYSTEM - układ automatyczny ste- 
rowany komputerem, 

COMPUTER DESIGN L ANGUAGE CCDL) - język do opisywania 
komputerów cyfrowych, 

COMPUTER DIAGNOSTICS - diagnostyka komputerowa, 
COMPUTER DISPLAY - monitor ekranowy, 

COMPUTER EVALUATION - ocena komputerów, 

COMPUTER FAMILY - rodzina komputerów, 

COMPUTER GENERATIONS - generacje komputerów, 

COMPUTER GRAPHICS - grafika komputerowa, 

COMPUTER HARDWARE - sprzęt komputerowy, 

COMPUTER INDEPENDENT L ANGUAGE - Język niezależny 
od komputera, 

COMPUTER INPUT MICROFILM - urządzenie wejściowe mi - 
krof i Idiom, 

COMPUTER INSTRUCTION - rozkaz komputera, 

COMPUTER INSTRUCTION CODĘ - kod wewnętrzny maszyny, 
kod Instrukcji wewnętrznych, 

COMPUTER LANGUAGE - Język komputera, język wewnę- 
trzny, 

COMPUTER LITERACY - znajomość komputerowego abecadła 
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Generowanie liczb pierwszych 
— sito Eratostenesa 


Generowanie liczb pierwszych nie jest zagadnieniem 
banalnym. Do dnia dzisiejszego brak jest równania reku- 
rencyjnego lub jakiejkolwiek funkcji generującej, która 
pozwoliłaby na otrzymanie liczb pierwszych wg jednolitego 
przepisu. Jedyną znaną metodą generowania liczb pier- 
wszych jest słynne sito Eratostenesa. wymyślone już w II 
w. p.n.e. Metodę tę można stosować tylko wówczas, gdy 
problem sformułowany jest następująco: 

Znaleźć wszystkie liczby pierwsze ŚN, gdzie N jest z gó- 
ry zadaną liczbą. 

Jeżeli problem sformułowany jest w postaci: 
znaleźć N kolejnych liczb pierwszych, 
trzeba stosować inny algorytm polegający na sprawdzaniu 
podzielności kolejnych liczb naturalnych nieparzystych 
i = 3, 5, 7, 9. .. przez wiele podzielników ś >/ i. Wymaga to 
dużego nakładu obliczeń i jest bardzo czasochłonne (funk- 
cja pierwiastkowania występująca wielokrotnie w algoryt- 
mie jest jedną z najdłużej obliczanych funkcji). Nie jest to 
właściwie metoda generowania liczb pierwszych, lecz me- 
toda sprawdzenia, czy dana liczba jest liczbą pierwszą 
Algorytm sita Eratostenesa jest następujący. 

1 ) tworzymy tablicę liczb naturalnych 1 , 2, 3,..., N, 

2) wiadomo, że 2 jest najmniejszą liczbą pierwszą, w 
związku z czym usuwamy z tablicy wszystkie 
wielokrotności liczby 2, 

3) pierwsza po prawej niewykreślona liczba jest liczbą 
pierwszą, 

4) usuwamy z tablicy wszystkie wielokrotności tej liczby 

5) powtarzamy czynności (3) i (4) do chwili, gdy niewy- 
kreślona liczba jest nie mniejsza od N/2, 

6) wszystkie niewykreślone z tablicy liczby są liczbami 
pierwszymi. 

Poniższy program napisany w języku BASIC na ZX 
Spectrum generuje liczby pierwsze metodą sita Eratoste- 
nesa. 

399| 


4-00 BEEP .2,10: LET v=3: CLS : 
PRINT RT v ,4; "Pr ogram znajduje 
Liczby", RT v +3 , 4 ; pierwsze zawar- 
te w prze-",RT v +6, 4., "dziale <1, 
K> metod* s i t a RT v +9 , 9, "Era tos 
tenęsa." : PRINT BRIGHT 1;RT v+13 
,4., 

401 INPUT " POdaj k: 

; LINĘ k$: IF LEN k$=0 THEN GO 

TO 400 

402 FOR i=l TO LEN IF k$(i) 

> *'‘®" *ND K$ (i ) <*"9" THEN NEXT i 
: LET K =URL k. $ GO TO 405 

403 GO TO 400 

IF K<=1 THEN CLS PRINT BR 
IghT 1 ; RT 10,3; "Brak Liczb pierw 
szych w tym": PRINT BRIGHT 1;RT 
12,11; "przedziale" : GO SUB 475: 

bO TO 400 

49 ? * F THEN CLS : PRINT 

p,T e.i®' 5; " Za d*Jża liczba 
! (>7000) . BEEP .4,0: GO SUB 475 

GO TO 400 

410 DIM b U ) 

411 GO SUB 485 

^412 FOR isl TO K : LET b(i)xi: N 
4 15 1 LET !=0: LET p =2 


417 BEEP .5,10: BORDER 7: PRPER 
7: INK 0: CLS : PRINT BRIGHT 1; 

RT 0,8, "LICZBY PIERWSZE: PRINT 
BT 1,8; — 1 — PR IN 

420 FOR Jx2*p TO |t, STEP p 
425 LET b( j) =0 
430 NEXT j 

432 LET lt*STR* P: LET d l *LEN i 

* 

433 LET PP=i+l-INT (ii +11 ,2) *2 
435 IF pp=l THEN PRINT TflB S-dl 

i P ; : GO TO 43S 

437 PRINT TSB 2S-dl;p 

438 LET i =i +1 
440 LET p=p+l 

443 IF p > fc THEN GO TO 460 
445 IF b(p) <>0 THEN GO TO 420 
450 GO TO 440 

460 PRINT GO SUB 475. CLS : P 
RINT BRIGHT 1 , RT 9,6; "U przedzia 
le < 1 , " k ; " > " ; RT 11 , 8; "zna jdu je 
aie " , i .; RT 13 , 3, Liczb pier wszyć 
h": GO SUB 475 

470 GO TO 400 

4 8 0 PRWTbTIbW HT 1, FLRSH 1 
, RT 0 , 4 ; "Na ci śnij dowolny kiawis 
z ^ i- 5 

LS : PRINT RT 8,9, FLRSH "^l^ " PROS 
ZE CZEKRCł" . PRINT RT 12 , 7 , " < t r 
w aj* obliczenia)": return 


Czas, jaki upływa od podania komputerowi wartości pa- 
rametru N do pojawienia się na ekranie komunikatu LICZ- 
BY PIERWSZE jest niezbędny do inicjalizacji tablicy A/N/ i 
wypełnienia jej elementów kolejnymi liczbami naturalnymi 
/A/l/ = I dla 1 = 1,2, ...N/ Na ekranie obserwujemy po- 
jawienie się kolejnych liczb pierwszych Jest rzeczą cha- 
rakterystyczną, że zaczynają się one pojawiać coraz szyb- 
ciej. Wynika to z faktu, że rozmieszczenie liczb pierwszych 
w zbiorze liczb naturalnych jest nierównomierne: począt- 
kowo jest ich stosunkowo dużo, a następnie coraz mniej 
(np. w przedziale /I, 1000/ jest 168 liczb pierwszych, w 
przedziale /1 001 ,2000/ jest ich 135, a w przedziale /2001, 
3000/ tylko 127). Większa ilość liczb pierwszych w począt- 
kowej fazie implikuje większy nakład obliczeń (większą 
liczbę wykreśleń, które w programie zostały zastąpione ze- 
rowaniem elementów tablicy A), a co za tym idzie dłuższy 
czas pomiędzy pojawieniem się na ekranie monitora kolej- 
nych liczb pierwszych. 

Największą dotychczas znaną liczbą pierwszą jest 
2 1 1213 — 1 . Odkryta została w roku 1 963 przez D.B. Gillie- 
sa, oczywiście przy użyciu maszyny cyfrowej. Znane są 
również tzw. liczby bliźniacze, tj. liczby pierwsze różniące 
się od siebie o 2, np. 5 i 7 czy 881 i 883. Oczywiście im 
większe liczby, tym trudniej znaleźć parę liczb bliźniaczych. 
Czytelnikom proponuję zmodyfikowanie przedstawionego 
algorytmu, tak aby program znajdował liczby bliźniacze. 

Janusz MORBITZER 
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Litery z kratek ponumerowanych od 1 do 35 utworzę nazwy 7 producentów sprzętu komputerowego, 
które wystarczy nadesłać jako rozwięzanie zadania pod adresem redakcji na kartkach pocztowych 
w terminie do końca lutego naklejając kupon „IKS-a”. Wśród autorów prawidłowych odpowiedzi rozlo- 
sujemy bony pieniężne i nagrody książkowe. 
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„IKS" — dodatek „Żołnierza Wolności”. Redaguje Wiesław Cetera (kierownik zespołu); Rada programowa: Krzysz- 
tof Chmarra. Romuald Głąb, Włodzimierz Gogotek, Janusz Janiec. Henryk Krasuski, Ireneusz Miernik, Ludwik Pie- 
la, Jacek Szaniawski. Adres redakcji: 00-950 Warszawa ul. Grzybowska 77, telefon centrali 20-12-61 w. 486. Tełez 
313664. Rękopisów nie zamówionych redakcja nie zwraca i zastrzega sobie prawo do skrótów. Nakładem: Wydaw- 
nictwa „Czasopisma Wo|skowe”, Warszawa ul. Grzybowska 77, Fotoskład i druk offsetowy — Wojskowe Zakłady 
Graficzne Im. gen. dyw. A. Zawadzkiego. Nr zam. 9564. Nr. ind. 361 662. 









W dniach 9— 12 lutego br. odbyła się ko- 
lejna konferencja informatyczna. Tym ra- 
zem aż pod dziewięcioma niezależnymi tytu- 
łami, Między innymi omawiane były takie 
tematy, jak: sieci, wielodostęp, wspomaganie 
pomiarów, prac wydawniczych, zarządzania 
i edukacji. 

Zważywszy na to. że konferencja była 
imprezą towarzyszącą wystawie pod tym 
samym tytułem, jej uczestnicy mogli zoba- • 
czyć wiele ciekawego sprzętu i oprogramo- 
wania (stanowić to będzie przedmiot samo- 
dzielnych publikacji, zapewne nie tylko w 
„IKS-ie") 

Miałem opłacone dwie konferencje 
(a' 13 000 zł): „Sieci lokalne i wielodostęp” oraz 
„Zastosowania edukacyjne mikrokompute- 
rów". 

„Sieci" odbywały się już od świtu pier- 
wszego dnia. Konkretnie zgodnie z planem 
konferencja ta miała się rozpocząć o godz. 
10.30. Niestety rozdawanie materiałów i 
„przepustek" na salę konferencyjną („wizy- 
tówki na pierś") zmieniło nieco ten plan. Bia- 
da tym co me pobrali „wizytówek" i chcieli 
wejść na salę — Cerber w postaci uroczej 
dziewczyny delikatnie, acz stanowczo za- 
gradzał przejście na salę nie mającym 
„przepustki" Natomiast na sali prowadzący 
co kilka minut szacował, jaka część uczest- 
ników jest obecna. Siedemdziesięciopię- 
cioprocentowa frekwencja miała być „pro- 
giem" rozpoczęcia, pozostali uczestnicy 
nadal czekali po ..wiżvtówki". 

O godzinie 11.10 konfererfcja rozpoczęła 
się. Na scenie sali konferencyjnej zgroma- 
dzono około 10 monitorów (w tym jeden 
ciekłokrystaliczny) oraz dwa ekrany — je- 
den do powielania obrazu LCD oraz wy- 
świetlania slajdów, długi — wideoskop uka- 
zujący to, co „widziała" kamera — ekrany 
monitorów. Potem okazało się, że monitory te 
stanowiły wyposażenie kilku komputerów z 
terminalami połączonymi w sieć. 

Wykład rozpoczął pan doktor (nazwisko 
me zostało podane). Było to autentyczne 
wprowadzenie na poziomie przeliczania bo- 
dów na bajty i odwrotnie, definiowania sieci i 
wielodostępu. Mój sąsiad zdrzemnął się 
nieco. Osobiście umknąłem tego nietaktu, 
wobec prelegenta, za przyczyną super- 
mocnych lamp panów z Teleexpressu. 

Ożywiło nieco atmosferę wystąpienie Ry- 
szarda Kajkowskiego. Dyrektor (właściciel) 
CSK z Gdyni zwrócił 1 uwagę na pochopne 
wyrzucanie pieniędzy na sprzęt i oprogra- 
mowanie kupowane w celu budowy sieci 
lub wielodostępu. Okazuje się bowiem, że 
znaczna część transakcji nie jest przemy- 
ślana (nie konsultowana w CSK?). Firmy ku- 
pują sprzęt lub oprogramowanie bez sy- 
stemowej analizy problemu. Pan Kajkowski 
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niemal apelował o kompleksowe podejście 
do kupowania tego typu systemów. Należy 
mieć na uwadze całość: odpowiedni sprzęt, 
oprogramowanie użytkowe oraz system 
operacyjny. Egzemplifikacją tego problemu 
jest XENIX, który może pracować tylko przy 
instalacji niektórych kart interfejsu szere- 
gowego. 

Dwa terminale podłączone do XT, a czte- 
ry do AT to maksimum znacznie przekracza- 
jące moce obliczeniowe tych mikrokompu- 
terów. Są one substytutami minikom- 
puterów. Niestety nie mamy doświad- 
czeń w eksploatacji tego typu sprzętu. Poz- 
wala on na uzasadnione dzielenie swego 
potencjału na wiele, bardzo wiele terminali 

Interesującą propozycję (handlową) 
przedstawił gość z Holandii — zwartą sieć 
lokalną MINSTREL. Idea tego systemu po- 
lega na zgromadzeniu całej „ważnej" elek- 
troniki w komputerze centralnym (po jednym 
procesorze dla każdego terminala). Wątpli- 
wą atrakcją wystąpienia była fatalna jakość 
obrazów na dużych ekranach. Miały one 
ukazywać to. co się dzieje na ekranach mo- 
nitorów sieci, 

Potem świadkami kampanii reklamowej 
sieci (konferencja?) w atrakcyjnej formie py- 
tań. np.: „dlaczego ta sieć jest taka wspania- 
ła?", odpowiedź: „bo ...". itp. 

Następnie były inne firmy, inne coraz 
mniej ciekawe wysiłki kolejnych prelegen- 
tów. wybrałem oglądanie wystawy. 

Najbardziej utkwiła mi w pamięci wizyta 
na stoisku prezentującym efekty cyfrowej 
syntezy obrazów. Jeden z wystawców (oka- 
zał się artystą-kreatorem komputero- 
wych obrazów) opowiadał mi wrażenia z 
pracy na sprzęcie, który odtwarza obrazy na 
monitorze w postaci mozaiki 8000X8000 pi- 
kseli. przy czym każdy piksel opisywany jest 
24 bitami, ale to już inna historia. 

Nie sposób było nie zauważyć wszech- 
1 obecnych drukarek firmy STAR. Niemal każ- 
dy komputer (były ich setki) dysponował tym 
sprzętem. Przebojem stają się obecnie dru- 
karki 24-igłowe o doskonałej jakości wydru- 
ków. Firma ABC DATA proponowała ponad- 
to między innymi nowość LC1 0 — drukarkę, 
która zastępuje o 20 proc. wolniejszą NL10. 

Druga konferencja, w której mogłem 
uczestniczyć („Zastosowanie edukacyjne 
techniki mikrokomputerowej") odbyła się w 
pięknej sali Rudmewa na IV piętrze PKiN. 
Gospodarze — Władysław Majewski, znany 
także jako redaktor naszej konkurencji 
(„Komputera") wygłosił słowo wstępne, do- 
konując pewnych uogólnień i klasyfikacji. 
Wystąpienie to potwierdziło, iż jesteśmy na 
początku długiej drogi efektywnego wyko- 
rzystania sprzętu informatycznego w szko- 
łach wszystkich szczebli. Według prele- 
genta proces ten uwarunkowany jest po- 
prawnością przyjętej koncepcji dydaktycznej, 
poniesionych nakładów oraz odpowiednich 
przygotowań. Przygotowania dotyczą 
szczególnie kadry dydaktycznej (jej szkole- 
nia), którą wg głosu z sali pana z minister- 
stwa, dokształca w tej materii aż 12 wyż- 
szych uczelni na podyplomowych kursach. 


Redaktor Majewski zwrócił ponadto uwa- 
gę na: brak kryteriów oceny komputerowych 
programów dydaktycznych oraz na uciecz- 
kę autorów programów dydaktycznych do 
firm zagranicznych i spółek z o.o. Prelegent 
wyraził zadowolenie z „pluralizmu" rynku 
sprzętu komputerowego, wytykając jedno- 
cześnie szereg uchybień naszemu byłemu 
monopoliście — ELWRO (mając na uwadze 
komputer marki „Junior"). Co mamy obecnie? 
Co mogą kupować szkoły? Komputer 
ACORN wymieniony został jako pierwszy 
(alfabetycznie). Ten brytyjski komputer, fir- 
mowany przez BBC, jest obecnie, wg red, 
Majewskiego, najlepiej edukacyjnie opro- 
gramowanym komputerem na świecie. Nie 
zmienia to faktu, że komputer ten z całą 
pewnością nie jest dostępny — o czym pre- 
legent nie wspomniał — zbyt wysoka cena 
tego sprzętu doprowadziła niemal do ban- 
kructwa jego producenta (niezbędna była 
pomoc firmy OLIVETTl, zob, Byte 85/10/9 
s. 386). Kolejna propozycja to AMSTRAD. 
Zasadniczy argument jego stosowania to 
niska cena. Podobnie rzecz się ma z ATARI, 
który jednak jest już starym („moralnie") 
komputerem. Następnie wymieniony był 
BOSMAN — jeszcze mało znany nasz kom- 
puter rodem z Wybrzeża. MERITUM III zos- 
tał wymieniony jako ostatni komputer szkol- 
ny. Podobno od 01 .03.88 rozpoczęta będzie 
masowa produkcja tego komputera (powie- 
dział o tym pan z ministerstwa). Jeśli idzie o 
klany IBM PC są one po prostu dla szkół za 
drogie. 

Następnie dwie niewiasty, reprezentują- 
ce British Council, uzupełniły nieco słowo 
wstępne red. Majewskiego, podkreślając 
między inńymi, że człowiek w nowoczesnym 
społeczeństwie powinien dysponować mi- 
nimalną wiedzą i kulturą informatyczną 
Edukacja informatyczna w Wielkiej Brytanii 
uzyskuje bardzo wymierną pomoc od władz, 
czego efektem jest (był) komputer BBC oraz 
jego wspaniałe oprogramowanie. Stwier- 
dzenia te poparte zostały przykładami pro- 
gramów do nauki „ekonomicznego myśle- 
nia” oraz poDrawności wytapiania stali. 

Wśród uogólnień, ciekawy wydaje się 
podział programów edukacyjnych na pro- 
gramy: z treścią, narzędziowe i symulacyj- 
ne. Oddzielne zagadnienie to programy „za- 
stępujące nauczyciela”. Doświadczenia 
brytyjskie dowodzą, że najpopularniejsze w 
szkołach podstawowych są proste progra- 
my narzędziowe np.: edytory tekstów i bazy 
danych. 

Następnie został „wywołany do tablicy" 
doradca ministra (niestety nie był przedsta- 
wiony) ds. edukacji informatycznej (wspo- 
mniany wcześniej pan z ministerstwa. 
Stwierdził, iż Meritum III jest szansą dla 
szkół, bowiem produkcja (planowana) 400 
sztuk miesięcznie niemal bilansuje, w skali 2 
lat, potrzeby szkolnictwa. Komputer ten ma 
mieć możliwość pracy pod CPM, a nawet pod 
DOS-em! 

Podnoszona była także kwestia praw au- 
torskich dla twórców oprogramowania. Brak 



znan. 

tych praw zniechęca ambitnych programi- 
stów. Podobno PTI podjęło w tej kwestii od- 
powiednie kroki. Ponadto, w tym kontekście, 
wspomniano, że na Zachodzie kupujący na- 
sze oprogramowanie żądają dowodów le- 
galnego zakupienia programów narzędzio- 
wych. które służyły do budowy przedmiotu 
transakcji. Na dodatek nasi informatycy ma- 
ją coraz więcej kłopotów z otrzymywaniem 
wizy do krajów dysponujących atrakcyjnymi 
programami. 

Pan dr O. Gajl wygłosił ciekawy wykład, 
zgodny z tytułem konferencji, dokonując 
między innymi wielu uogólnień oraz klasyfi- 
kacji (bariery, co robić, dlaczego, formy 
działania, warunki realizacji, standardy itp.). 

Następnie wystąpił pan profesor, który co 
kilka lat jeździ za granicę — najczęściej do 
Kalifornii, Dostrzegł, że kiedyś informatyka 
(tam) była zajęciem elitarnym, a teraz kom- 
putery stoją (tam) na korytarzach. Osobiście 
sądzę, że proces ten można dostrzec także 
dużo bliżej — nad Wisłą. 

Następnie pan profesor uzasadnił auten- 
tyczność komputerowego wspomagania 
zdolności intelektualnych człowieka. Kom- 
puter ma wyraźny wpływ na mentalność 
współczesnego człowieka — zmusza do 
większej precyzji myślenia, ułatwia zobra- 
zowanie (dotychczas tylko werbalnych) in- 
formacji. Pytań nie było, tylko jeden z 
uczestników wyraził w sposób bardzo kate- 
goryczny swoje zdziwienie nad przerostem 
treści nad formą wystąpienia pana profeso- 
ra. Większość informacji wyświetlanych na 
ekranie oraz na monitorach była nieczytel- 
na, przeczyło to zamierzeniu, które wcześ- 
nie) pan profesor sprecyzował, a także wy- 
kazało brak przydatności nowoczesnej 
techniki w procesie nauczania — wszak to 
był wykład! Adwersarz pana profesora wi- 
dział w tym (wystąpieniu) nieświadome ods- 
traszanie potencjalnych użytkowników in- 
formatyki. Potwierdzało to (ilościowo) ciągłe 
ubywanie początkowo licznego audytorium. 

Konferencję zakończyła oferta Zakładu 
Edukacji Komputerowej. Jednak i ona, po- 
dobnie jak wstęp wygłoszony przez red. Ma- 
jewskiego nie tylko nie zmieniła, ale utwier- 
dziła garstkę słuchaczy (około 5 proc. począt- 
kowej frekwencji) w przekonaniu, że infor- 
matyka w naszych szkołach jest przed dłu- 
gą. bardzo długą i wyboistą drogą. 
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Od kilku lat nasa planuje wysłanie specjalnej 
sondy międzyplanetarnej o nazwie oalileusz w 
kierunku Jowisza. Nie posiadając wystarczająco 
silnej rakiety nośnej przewidywano wstępnie 
wykorzystanie wahadłowca kosmicznego, lecz 
katastrofa challehoer* odsunęła realizację tego 
pomysłu. Ostatnio Jednak w labolatorium nasa w 
P asadenie (Kai 1 f orni a>. za pomocą komputera, 

wytyczono bardzo złożoną 1 oryginalną trasę lotu, 
na której w celu rozpędzenia aparatu do 
niezbędnej prędkości. po wprowadzeniu go w 
kosmos, wykorzysta się pola grawitacyjne Wenus 1 
Ziemi. Podróż na Jowisza zajmie 6 lat, z czego 
połowę - nabieranie prędkości. Aparat ma krążyć 
wokół Jowisza przez około 22 miesiące przesyłając 
na Ziemię Informacje naukowe i zdjęcia planety 
oraz jej czterech satelitów. Zdaniem specjalistów 
lot oalileusza zapoczątkuje nowy "złoty wiek" 
badania planet. 


Na amerykańskim rynku samochodowym pojawił się 
ostatnio najmniejszy model z rodziny Fordów - 
festiya. Został on opracowany we współpracy z 
Japońską firmą mazda. a produkoWany Jest w 
zakładach Kia Motors w Korei Płd. Samochód 
napędzany Jest 4-cylindrowym silnikiem o 
pojemności 1,3 1 1 mocy 43 kW. festiva jest kilka 
centymetrów krótsza od znanej, także na polskim 
rynku, fiesty, ma taki sam rozstaw osi i Jest 
nieco szersza. 


W Stanach Zjednoczonych, po ponad 30 lat 
trwających pracach badawczych, udało się zbudować 
maszynę, która łączy w sobie zalety helikoptera i 
normalnego, napędzanego silnikami turbośmigłowymi 
samolotu. Ten nowy statek powietrzny. który 
nazwano osprey ma być produkowany w dużych 
seriach najpierw na potrzeby amerykańskiego 
lotnictwa wojskowego. a później, co się Już 
rozważa - cywilnego. Jego realizacja była możliwa 
przede wszystkim dzięki postępowi w technice 
obliczeniowej C stosowano cad J, w dziedzinie 
materiałów a zwłaszcza kompozytów. Konstrukcja 
ospREY-a składa się w 60 % z kompozytu włókna 
węglowe - żywica epoksydowa, w 20 % z żywicy 
wzmacnianej włóknem szklanym i tylko 20% stanowią 
detale metalowe, co znacznie obniża Jego masę i 
zwiększa wytrzymałość . W nowej maszynie nie 
zrezygnowano oczywiście z hydraulicznych 
elementów poruszających stery, klapy itp. , ale 
komendy pilota docierają do nich w postaci 
sygnałów cyfrowych za pośrednictwem pokładowych 
komputerów. Dostawy ponad 900 maszyn tego typu 
mają się rozpocząć od 1991 roku. 
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KOMPUTERY NA~ START 

Czyli głos mają Czytelnicy. Pod tym hasłem publikować będziemy opinie i poglądy 
naszych Czytelników. Nie muszą one być zgodne ? poglądami redakcji, ważne Jest to, 
że ich oryginalność zmusza do refleksji, a może nawet pobudzać do twórczego dzia- 


łania. 


Porównanie sportu do piramidy jest bardzo trafne: jej podstawa 
to sport masowy, a wierzchołek — wyczynowy. Nawet nie stosując 
wzorów matematycznych, łatwo przewidzieć, że im podstawa 
większa, tym wyżej można wznieść wierzchołek, nie naruszając 
stabilności układu. Niestety, w naszym sporcie proporcje nie zo- 
stały zachowane, nic więc dziwnego, że w większości dyscyplin 
piramida runęła lub' chyli się ku upadkowi. Jest to widoczne gołym 
okiem nie tylko dla fachowców i kibiców, błędem jednak jest upa- 
trywanie źródeł słabości w wierzchołku, czyli w sporcie wyczyno- 
wym. Bez solidnego zaplecza młodzików i juniorów nie można śnić 
o potędze opartej na wąskiej grupie zawodników wyczynowych. 

Do osiągnięcia sukcesów nie wystarczy też tylko młodzież, na- 
wet najbardziej utalentowana. Niezbędne są jeszcze rzesze solid- 
nie przygotowanych trenerów i instruktorów oraz odpowiednie wa- 
runki materialne. Jeśli realnie myślimy o przezwyciężeniu sporto- 
wego kryzysu, to zarówno trenerom, jak i warunkom materialnym 
musimy poświęcić dużo uwagi. Ną pograniczu tych dwóch ele- 
mentów znajduje się moim zdaniem, komputer. Na pograniczu, bo 
chociaż komputer jako taki jest wytworem technicznym, to jednak 
może, (i w wielu krajach już odgrywa rolę „prawej ręki" trenera. Nie 
chcę tu gloryfikować techniki komputerowej, uważam, że nawet 
najlepsza maszyna w pewnych dziedzinach nie dorówna nawet 
gorszemu wydaniu homo sapiens. Dlatego też komputer jeszcze 
długo pozostanie tylko technicznym środkiem, wspomagającym 
pracę trenera, zawodnika i działacza. W czym to wspomaganie się 
przejawia? 



Informatykę w sporcie można wykorzystać w procesie szkole- 
niowym, pracy naukowo-badawczej, przy organizacji imprez spor- 
towych oraz w zarządzaniu działalnością organizacji sportowych. 


Proces szkoleniowy 

Mówiąc o procesie szkoleniowym, mam na myśli przygotowania 
trenerów w Akademiach Wychowania Fizycznego I szkolenie za- 
wodników w klubach. Panuje przy tym opinia, że po pierwsze, bez 
informatyki trening staje się coraz mniej efektywny, zatem trzeba 
uczyć studentów pracy z komputerem, po drugie, uważa się, że 
obecne pokolenie szkoleniowców jest dla informatyki stracone. 
Tym samym istnieje potrzeba kształcenia studentów AWF z udzia- 
łem komputerów i wytworzenia u nich nawyku i umiejętności ko- 
rzystania z nich w procesie treningowym. Umiejętność tę powinni 
również zdobyć lekarze, naukowcy i w pewnym stopniu zawodni- 
cy. Do czego może być przydatny komputer w procesie treningo- 
wym? 

Przede wszystkim do jego doskonalenia oraz do doskonalenia 
techniki. Komputer umożliwia stworzenie na podstawie istniejącej 


wiedzy optymalnego procesu treningowego dla każdej dyscypliny 
sportowej. Porównanie go z treningiem wybitnych sportowców 
pozwoli wyciągnąć stosowne wnioski. Więcej, znając psychofizy- 
czne parametry swoich zawodników można opracować dla nich 
trening zmierzający do osiągnięcia określonych wyników. Prowa- 
dzenie ciągłej analizy obciążenia treningowego i uzyskiwanych 
rezultatów (też za pomocą komputera) pozwala szybko korygo- 
wać trening, eliminować błędy (przeciążenia, lenistwo itp.) i prog- 
nozować wyniki. W zakresie techniki komputer umożliwia jej wzor- 
cowe określenie, porównanie z nią technik poszczególnych za- 
wodników, dokonanie stosownych korekt i określenie odpowied- 
niego treningu. 

Komputer umożliwia również zgromadzenie informacji o zawod- 
nikach. uzyskiwanych przez nich rezultatach, wynikach badań 
wydolnościowych, testowych i lekarskich. Taki zbiór informacji 
jest niezbędny do doskonalenia procesu treningowego. 

Praca naukowo-badawcza 

Konieczność nadążania za postępem w sporcie jest oczywista. 
Wymaga to stworzenia systemu informatycznego zapewniającego 
ciągłą aktualizację informacji o stanie nauki, metodach treningu, 
ewolucji sprzętu sportowego itp. Również prowadzenie własnych 
badań i doświadczeń bez tej wiedzy jest mało efektywne, a opra- 
cowanie ich wyników bez komputera pracochłonne i niekiedy de- 
zaktualizujące je. Niestety, u nas taki system jeszcze nie istnieje. 

Organizacja imprez sportowych 

Trudno dziś wyobrazić sobie zorganizowanie zawodów sporto- 
wych dużej rangi bez wykorzystania komputera. Jego zastosowa- 
nie nie tylko ułatwia, ale i przyśpiesza Ich organizację i prowadze- 
nie. Przyjmowanie zgłoszeń zawodników, tworzenie list starto- 
wych, protokołów konkurencji, ustalanie kolejności startów, rejes- 
tracja wyników, ustalanie miejsc, wyświetlanie wyników na tablicy, 
drukowanie końcowych komunikatów, to jedynie niewielki wyci- 
nek pracy związanej bezpośrednio z zawodami. Akredytacja 
dziennikarzy, dysponowanie bazą hotelową, środkami transportu 
itp., to inne formy działania, w których komputer odgrywa nieoce- 
nioną rolę. 

Zarządzanie działalnością 
organizacji sportowych 

Zastosowanie informatyki w zarządzaniu związkami sportowymi, 
klubami, to klasyczne już dziś wykorzystanie komputera. 

Przedstawione możliwości zastosowania informatyki w sporcie 
są rozległe i wymagają wielu przedsięwzięć organizacyjnych. Ist- 
niejąca w stosunku do komputerów bariera psychologiczna jest 
trudna do pokonania. Opory te wynikają głównie z niewiary w moż- 
liwość przyswojenia sobie wiedzy i umiejętności posługiwania się 
komputerem Bez pokonania tej bariery trudno jest przekonać ko- 
gokolwiek o potrzebie stosowania komputerów w procesie trenin- 
gowym, czy zarządzaniu. Nie mniej istotne są problemy natury 
organizacyjnej. Wydanie ogólnoresortowych wytycznych w zakre- 
sie tworzenia stosownych komórek informatycznych, ujednolice- 
nie sprzętu, szkolenie kadr, to tylko niektóre aspekty, bez których 
opracowania jednolity system informatyczny jest niemożliwy do 
wdrożenia. 

Jednak komputer nie jest panaceum na nasze bolączki. Pod- 
miotem działania w sporcie jest, i mam nadzieję, że pozostanie 
człowiek. Jesteśmy w stanie dokonać komputerowej symulacji nie 
tylko wybranych fragmentów treningu, ale i czynności psychi- 
cznych. Nie oddadzą one jednak atmosfery zawodów, swoistości 
treningu, a więc tych nieuchwytnych, ale jakże ważnych dla koń- 
cowego wyniku czynników. Przeżycia emocjonalne towarzyszą 
nam na każdym kroku, odzwierciedlają nasz stosunek do otacza- 
jącego nas świata i nie pozostają bez wpływu na to, co robimy, i 
jak robimy. Te procesy psychiczne trudno przedstawić w postaci 
algorytmu, jeszcze trudniej je przewidzieć i zaprogramować. I do- 
póki ten stan rzeczy będzie istniał, dopóty walka sportowa będzie 
miała swój sens i urok. 

Ryszard RADZIEJEWSKI 



Programowanie 

strukturalne 

Janusz MORBITZER 

Koncepcja programowania strukturalnego 
po raz pierwszy pojawiła się w 1968 r. w arty- 
kule holenderskiego informatyka E. W. Dijks- 
try, pt. „Szkodliwe GOTO” (2). Rozwinięciem 
idei Dijkstry były późniejsze prace N. Wirtha 
(5k (6), (7). 

Znajomość zasad programowania strukturalnego jest niezbędna 
każdemu, kto pragnie samodzielnie rozwiązywać problemy i pisać 
dobre programy. 

Programowanie strukturalne często utożsamiane jest z jednym 
z jego elementów — kodowaniem strukturalnym. Jest to podstawo- 
wy błąd, programowanie strukturalne oznacza bowiem pewną filozo- 
fię, podstawę przy rozwiązywaniu problemów i zapisywaniu tych 
rozwiązań w postaci programów. Podstawowymi założeniami są: 

a) programy mają być w pełni zrozumiałe przede wszystkim dla 

człowieka, a następnie dopiero dla maszyny, 

b) struktura programu powinna być odzwierciedleniem struktury 

problemu, który jest przez ten program rozwiązywany, 

c) program ma się dać czytać „z góry na dół” (unikanie instrukcji 

skoku). 

Stosowanie zasad programowania strukturalnego przyczynia się 
w znacznym stopniu do tworzenia przejrzystych i czytelnych pro- 
gramów o mniejszej liczbie i łatwiej wykrywalnych w porównaniu 
z innymi metodami błędów logicznych. Zasady te mogą być stoso- 
wane w odniesieniu do każdego języka wyższego poziomu, także do 
języka „niestrukturalnego”, jakim jest np. BASIC. 

Programowanie strukturalne obejmuje trzy elementy: 

— projektowanie zstępujące (ang. top-down), 

— programowanie modularne, 

— kodowanie strukturalne. 

Projektowanie zstępujące — zwane również projektowaniem 
metodą kolejnych uściśleń (ang. step-wise refinement) — polega na 
tworzeniu programu w najogólniejszym zarysie, a następnie stopnio- 
wym uściśleniu struktury w celu wypełnienia jej szczegółami. Pracę 
rozpoczyna się od spisania celu i założeń projektu. 

Jednym zdaniem określa się, co program ma robić. W każdym na- 
stępnym kroku zadanie rozkładane jest na szereg podzadań, aż do 
momentu, gdy prostota podzadania pozwala na łatwe napisanie go 
w postaci fragmentu programu — odrębnego modułu. Każdy moduł 
powinien zawierać opis wykonywanej funkcji i użytych struktur da- 
nych oraz opis danych służących do testowania modułu. Zaletą takie- 
go podejścia jest wczesne tworzenie dokumentacji programu. Bardzo 
ważne jest również stworzenie projektu przed rozpoczęciem kodowa- 
nia. Napisanie fragmentu programu stwarza bowiem barierę psycho- 
logiczną uniemożliwiającą ulepszenie projektu; łatwiej jest zmienić 
projekt niż napisany już fragment programu. Wykonując projekt sy- 
stemu metodą zstępującą mamy pewność, że oprogramowanie będzie 
odpowiadać celom oraz że popełnione błędy logiczne zostaną wcześ- 
nie wykryte. Równoległe sporządzenie dokumentacji zmusza do sta- 
rannego przemyślenia struktury programu i danych. 

Programowanie modularne polega na podzieleniu programu 
na niezależne części zwane modułami lub segmentami. Podział na 
moduły staje się widoczny już w fazie projektowania zstępującego — 
poszczególne podzadania wyznaczają kolejne moduły. Podział duże- 
go programu na mniejsze jednostki służy do ograniczenia złożoności 
programu, ułatwia jego analizę i zrozumienie. 

Poszczególne moduły to „cegiełki”, z których budowany jest pro- 
gram. Najważniejszymi cechami modułów są: 

— wielkość modułu, 

— niezależność. 

Nie istnieją ścisłe wytyczne, określające wielkość modułu, panuje 
jednak zgodne przekonanie, że moduły mniejsze są lepsze od dużych. 
Wielkość modułu powinna być taka, aby łatwo można było jego treść 
pojąć i zapamiętać. Ola mikrokomputerów rozsądne jest zało- 
żenie, że moduł powinien mieścić się w całości na ekranie. 
Ułatwia to znacznie analizę i wyszukiwanie błędów. • 


Przez niezależność modułu twfcty rozumieć brak ubocznego wpły- 
wu na inne części programu, tj. jego niezależność od pochodzenia 
danych, od przeznaczenia wyników i od wcześniejszego wykorzysta- 
nia modułu. 

Nieprzestrzeganie postulatu modułów prowadzi do tzw. efektu fa- 
lowego (ang. ripple effect): zmiana w jednym module pociąga za sobą 
konieczność dokonania zmian w innych częściach programu. Pro- 
stym sposobem ograniczenia efektu falowego jest unikanie zmien- 
nych globalnych i używanie małych modułów. W języku BASIC 
wszystkie zmienne są zmiennymi globalnymi. W celu uniknięcia ko- 
lizji warto założyć katalog używanych w programie nazw, a w razie 
potrzeby stosować nazwy dłuższe, mnemoniczne (tj. kojarzące się 
z pełnioną funkcją, np. zmienna o nazwie LICZ używana jest jako li- 
cznik itp.), 

Dobry moduł powinien mieć cechy podobne do standardowych 
funkcji matematycznych, takich jak EXP, SQR czy SIN. Są to na- 
stępujące cechy: 

— ■ algorytm rozwiązania zadania, 

— zakres dopuszczalnych wartości wejściowych (dziedzina), 

— zakres dopuszczalnych wartości wyjściowych (przeciwdziedzina), 

— efekty uboczne (komunikaty o błędzie, gdy argument nie należy 
do dziedziny). 

Dobry moduł powinien sprawdzać, czy przekazane mu dane wejś- 
ciowe należą do dziedziny. W razie rozpoznania błędu moduł nie po- 
winien przerywać wykonywania programu, lecz przekazać odpor 
wiednią informację do modułu bezpośrednio go wywołującego. Każ- 
dy moduł powinien mieć jeden punkt wejścia i jeden punkt wyjścia. 
Należy pamiętać, że czytelność poszczególnych modułów decyduje 
o czytelności i przejrzystości całości programu. 

Kodowanie strukturalne oznacza technikę pisania programów 
opartą na podstawowych strukturach programowania. Zgodnie z po- 
stulatem programowania strukturalnego o pisaniu programów dla 
ludzi, a nie dla maszyn, wśród podstawowych struktur nie ma ins- 
trukcji skoku. Człowiek przetwarza bowiem informacje sekwencyj- 
nie. Im większa liczba odstępstw od sekwencyjności, tym trudniej 
jest śledzić kompozycję programu. Szczególnym utrudnieniem ze 
względu na różnorodność możliwych dróg, są skoki warunkowe. 

Matematyczną podstawą kodowania strukturalnego jest następują- 
ce twierdzenie o strukturze: 

każdy program mający jedno wejście i jedno wyjście, nie zawierający 
nieskończonych pętli i nieosiągalnych fragmentów, można zapisać przy 
użyciu tylko trzech podstawowych struktur : 

— sekwencji, 

— selekcji (IF THEN ELSE), 

— iteracji (WHILE DO). 

Zwykle w celu ułatwienia programowania dopuszcza się dwie dodat- 
kowe struktury: 

— iteracji REPEAT UNTIL 

— operacji selektywnego wyboru (CASE). 

Wprowadzone tu instrukcje strukturalne przedstawione zostały na 
poniższym rysunku. 



IF B THEN Si ELSE S 2 
(jeżeli B lo S, w przeciwnym razie S 2 ) 
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Poprawność programu zostaje zachowana, gdy dowolny prostokąt 
symbolizujący operację zostanie zastąpiony inną strukturą podsta- 
wową. Pętle WHILE DO i REPEAT UNTIL są podobne do siebie. 
Różnica polega na tym, że w pętli WHILE DO warunek badany jest 
przed wykonaniem instrukcji, a w pętli REPEAT UNTIL po jej wy- 
konaniu oraz że inny jest warunek wyjścia z pętli — pętla WHILE 
DO kończy się, gdy warunek staje się fałszywy, natomiast pętla RE- 
PEAT UNTIL, kiedy warunek staje się prawdziwy. Wynika z tego, 
że pętla REPEAT UNTIL wykonana będzie — niezależnie od wa- 
runku — przynajmniej jeden raz, podczas gdy pętla WHILE DO 
może nie zostać wykonana ani razu. 

Instrukcja selektywnego wyboru CASE służy do wykonania jednej 
z operacji S,, S 2 ... S n w zależności od wartości (całkowitej) wyrażenia 
zwanego selektorem. 

Wszystkie przedstawione konstrukcje programowania struktural- 
nego występują jedynie w języku PASCAL. W innych językach mo- 
żna — jeśli dana konstrukcja nie występuje — symulować ją. W arty- 
kule przedstawione zostaną sposoby zapisywania konstrukcji struktu- 
ralnych w języku BASIC dla mikrokomputera ZX Spectrum. Nie- 
zbędne tu będzie użycie instrukcji skoku — ale wyłącznie skoku w 
przód. Nie narusza to postulatu czytelności programu z „góry na 
dół”. 

Konstrukcję strukturalną IF THEN ELSE można symulować w 
BASIC-u za pomocą instrukcji IF THEN: 


aa f6r - ;Vi T TT ~ ~g Tg _ 

30 •••tu instrukcja (ciąg) 6 * 
4.0 if warunek THEN GO TO 60 
50 NEXT 
60 


W wypadku, gdy po THEN i ELSE wykonywane są pojedyncze 
instrukcje (lub sekwencje pisane po dwukropku), konstrukcję IF 
THEN ELSE można zapisać przy użyciu dwóch instrukcji IF 
THEN: 
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IF w a runę 
IF NOT w a 


k THEN 
runek 
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THEN 52 


10 

20 FOF: i =1 TO _ _ . ... 

30 IF NOT warunek THEN GO TO 60 
4.0 ■ * • t u instrukcja (ciąg) 5 • 

50 NEXT i 
60 


W konstrukcji REPEAT UNTIL test znajduje się na końcu, a wa- 
runek jest prosty (nie zanegowany): 


Jo iF^waruneK 

‘wykonywane, gdy f afisz CS2) 

4-0 

60 GO TO 60 

60 ‘wykonywane, gdy prawda (Si ) 1 

30 


Do zapisania ostatniej z konstrukcji strukturalnych (CASE) można 
wykorzystać instrukcję GOTO (w niektórych wersjach języka BA- 
SIC znajduje się bardzo wygodna instrukcja ON GOTO). Istotne 
jest sprawdzenie, czy wartość selektora S, nie wykracza poza dopu- 
szczalny zakres. 
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Konstrukcje strukturalne WHILE DO i REPEAT UNTIL mo- 
żna symulować przy użyciu pętli FOR z bardzo dużą wartością koń- 
cową lub — lepiej — z krokiem 0 (zapewnia to nieskończone wyko- 
nywanie pętli). 

Test opuszczenia pętli dla konstrukcji WHILE DO umieszczony 
jest na początku, a warunek jest zanegowany: 



— Panno Ziutko, proszę zakodować moje uczucie do pani. 


Konsekwentne stosowanie zasad programowania strukturalnego 
prowadzi do tworzenia czytelnych, dobrze przemyślanych progra- 
mów. Daje możliwość tzw. strukturalnej przechadzki (ang. structu- 
red walkthrough), tj. czytanie kodu z góry na dół, bez konieczności 
skakania po tekście. Program podzielony jest na mniejsze jednostki 
(moduły), podobnie jak książka podzielona jest na rozdziały. Stoso- 
wanie wcięć w tekście programu (akapitowanie) w celu uwidocznie- 
nia struktur sterowania dodatkowo zwiększa czytelność. Dopuszczal- 
ne jest (oszczędne!) używanie instrukcji skoku — tylko do przodu. 
Skok w tył oznacza pętlę — należy wówczas użyć konstrukcji pętli. 
Należy pamiętać, że najwięcej skoków pojawia się w programie przy 
nanoszeniu poprawek i uzupełnień. Zapobiega temu konieczność 
sporządżenia szczegółowego projektu (uwzględniającego wszystkie 
możliwe sytuacje) przed przystąpieniem do kodowania. 

Jak wynika z przedstawionych rozważań, programowanie struktu- 
ralne składa się z trzech elementów, z których dwa (projektowanie 
zstępujące i programowanie modularne) są mało zależne od języka 
programowania. Trzeci element — kodowanie strukturalne — może 
być, jak pokazano w artykule, symulowane w innych językach. 

Programowanie strukturalne koncentruje się na kompozycji pro- 
gramu. Warto znać i stosować przedstawione zasady. Unikniemy 
wówczas mozolnej analizy własnego programu, kiedy po miesiącu od 
napisania go, tracimy w nim orientację (któż z nas robi porządny pro- 
jekt i dokumentację?!), a nasze programy staną się lepsze, bardziej 
czytelne i zrozumiałe dla nas i dla innych. 

Janusz MORBITZER 
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W szponach Atari (12) 

Jak wykorzystać przerwania? 

Tomasz MROWIEĆ, Ludwik PIELA 


Elastyczność działania współczesnych 
komputerów, również domowych, wynika 
z ich zdolności selektywnego reagowania 
na specjalne zdarzenia układowe i pro- 
gramowe, zwane przerwaniami. Spośród 
kilku rodzajów przerwań występujących w 
Atari, dwa z nich są szczególnie interesu- 
jące: VBI — czyli przerwanie powrotu 
pionowego oraz DLI — przerwanie pro- 
gramu wyświetlania. Pierwsze z nich służy 
głównie do zsynchronizowania działania 
układów komputera z sygnałem telewi- 
zyjnym wysyłanym do monitora (telewizo- 
ra) i pojawia się regularnie 50 razy na se- 
kundę. Występuje ono niezależnie od wo- 
li użytkownika. Drugie, DLI, jest przerwa- 
niem pochodzącym od specjalizowanego 
procesora graficznego — ANTlCu. O jego 
pojawieniu się i momencie wystąpienia 
decyduje użytkownik. 

Przerwanie powrotu pionowego 

W celu uzyskania czystego i wyraźnego 
obrazu na ekranie monitora lub telewizo- 
ra niezbędne jest stałe jego odnawianie. 
Dlatego w pamięci RAM znajduje się ob- 
szar, zwany pamięcią ekranu, w którym 
przechowywane są informacje aktualnie 
wyświetlane na ekranie. Samo wyświetla- 
nie realizowane jest przez procesor AN- 
TIC, zgodnie z dostarczonym progamem 
wyświetlania, niezależnie od mikroproce- 
sora 6502. 

Dla jednoznaczności opisu przypo- 
mnijmy definicje pewnych pojęć. Poje- 
dyncze przejście strumienia elektronów 
przez ekran nazywamy ^toporną linią ek- 
ranu". Okres, w którym strumień wraca od 
prawego do lewego brzegu, nazywamy 
, powrotem poziomym". Okres, w którym 
strumień elektronów wraca na górę ekra- 
nu (bez kreślenia), nazywamy powrotem 
pionowym". Rozkazy programu wyświet- 
lania określają sposób wyświetlania jednej 
linii. Nie jest to linia ekranu, ale tak zwana 
linia obrazu, która w zależności od uży- 
wanego trybu składa się z kilku linii ekra- 
nu (w trybie 8 BASIC'u z jednej). 

Proces kreślenia obrazu (wykonywany 
50 razy na sekundę) zajmuje około 20 000 
mikrosekund. W tym czasie następuje 
wykreślenie 312 linii, od góry do dołu ek- 
ranu, tworzących półobraz oraz przemie- 
szczenie strumienia elektronów (po jego 
uprzednim wygaszeniu) na górę ekranu. 
Bezpośrednio po wykreśleniu ostatniej li- 
nii ekranu i wygaszeniu strumienia elek- 
tronów powstaje przerwanie. 

Po rozpoznaniu przyczyny przerwania 
system operacyjny umieszcza na stosie 
zawartość rejestrów A, X i Y oraz przecho- 
dzi do odpowiedniej procedury według 
adreśu umieszczonego w komórce WBL- 
Kl (546,547). Procedura obsługi przerwa- 
nia, rozpoczynająca się od adresu $E45F, 
zwiększa stan zegara (komórka o adresie 
20), zmniejsza zawartości liczników (zega- 


rów systemowych), dokonuje zmiany ko- 
lorów, kopiuje zawartości rejestrów „cie- 
ni” do rejestrów układowych i aktualizuje 
wartości na wyjściach jednostek sterują- 
cych. Jej działanie kończy się przejściem 
do wektora WBLKD, umieszczonego w 
komórkach o adresach 548,549. Wskazuje 
on adres procedury zakończenia przer- 
wania. 

, Adresy komórek WBLKI oraz WBLKD 
umożliwiają nam śledzenie procedury 
obsługi przerwania powrotu pionowego 
oraz wykorzystanie przerwania do włas- 
nych celów. W tych dwóch miejscach 
możliwe jest dołączenie własnej procedu- 
ry. Będzie ona wtedy realizowana albo 
przed (natychmiastowa) albo po (opó- 
źniona) wykonaniu systemowej procedury 
obsługi przerwania. W pewnych przypad- 
kach nie jest obojętne miejsce podłącze- 
nia własnej procedury obsługi przerwania. 
Pierwszy z nich ma miejsce, kiedy nasza 
procedura odczytuje lub zmienia zawar- 
tości rejestrów, które mają swoje „cienie" 
w pamięci. Może być konieczna zmiana 
ich zawartości po wykonaniu tego przez 
procedurę GO. O zawartości decyduje 
ostatni zapis. 

Drugi przypadek występuje, gdy nasza 
procedura zużywa zbyt dużo czasu proce- 
sora. Realizacja procedury obsługi przer- 
wania VBI może być opóźniona poza ko- 
niec okresu powrotu pionowego. Lecz 
wtedy może się zdarzyć, że pewne rejestry 
związane z grafiką będą zmieniane pod- 
czas kreślenia obrazu na ekranie. Można 
uyskać nieoczekiwane wyniki. W. takim 
przypadku musi być realizowana po wy- 
konaniu systemowej procedury obsługi, 
jako tak zwana opóźniona. Limit czasowy 
dla natychmiastowej procedury obsługi 
VBI wynosi około 2000 cykli maszyno- 
wych, dla opóźnionej — około 20 000 cy- 
kli. Jbdnak wiele z nich realizowanych jest 
w czasie, gdy strumień elektronów kreśli 
obraz na ekranie. Dlatego procedury obs- 
ługi VBI, związane ze zmianą parametrów 
obrazu nie powinny być zbyt długie. Po- 
nadto musimy pamiętać, że czas obsługi 
przerwań skraca czas procesora dostępny 
dia realizacji podstawowego programu. 

Po zadecydowaniu, czy procedura VBI 
ma być natychmiastowa, czy opóźniona, 
musimy umieścić ją w pamięci (dobrym 
miejscem jest strona 6 RAM), połączyć z 
odpowiednią procedurą systemową i 
zmodyfikować zawartość pewnych komó- 
rek pamięci w celu jej wywołania. Naty- 
chmiastową procedurę VBI kończymy 
rozkazem JMP $E45F, a opóźnioną JMP 
$E462. Może się zdarzyć, że chcemy cał- 
kowicie ominąć systemową procedurę 
obsługi VBI (na przykład w celu połącze- 
nia czasów przetwarzania), wtedy proce- 
durę natychmiastową kończymy rozka- 
zem JMP $E462. 

Podczas dołączania własnej procedury 
obsługi przerwania konieczna jest zmiana 


zawartości wektora przerwania. Jest to 
wielkość dwubajtowa, zatem potrzebne są 
dwa rozkazy przechowania. Mogłoby się 
zdarzyć wystąpienie przerwania po zmia- 
nie pierwszego bajtu, przed aktualizacją 
drugiego. Może to spowodować upadek 
systemu. Dlatego należy zabezpieczyć się 
przed taką sytuacją poprzez wykorzysta- 
nie procedury SO SETVBV od adresu 
SE45C. W tym celu wprowadzamy do re- 
jestru Y młodszy bajt adresu, do rejestru X 
— starszy bajt, a do akumulatora 6 dla na- 
tychmiastowej procedury VBI lub 7 dla 
opóźnionej. Następnie wykonujemy JSR 
SETVBV. Nowa procedura VBI rozpocznie 
działanie w ciągu 0,02 s. 

Własna procedura obsługi przerwania 
VBI umożliwia wykonanie różnorodnych 
operacji: 

1. W czasie powrotu pionowego stru- 
mienia elektronów mogą być wykonywa- 
ne tóżnorodne manipulacje ekranem. 
Mamy pewność, że nie wystąpią one w 
trakcie kreślenia obrazu, lecz dotyczyć 
będą całego ekranu. W szczególności 
możliwa jest rytmiczna animacja, w której 
zmiany muszą występować w tempie 
niezależnym od innego przetwarzania. 

2. Przerwania powrotu pionowego 
umożliwiają efektywne sterowanie czę- 
stotliwością, głośnością i zniekształcenia- 
mi dźwięku. Dzięki temu możemy dodać 
do dźwięku fazy nabrzmiewania i wybrz- 
miewania. 

3. Wykorzystanie VBI umożliwia stałe 
kontrolowanie wejść użytkownika (50 razy 
na sekundę) bez zakłócania realizacji pro- 
gramu. Wejścia te wymagają zwykle mało 
przetwarzania, lecz stałej uwagi, jest to 
idealne rozwiązanie problemu zachowa- 
nia . ciągłości obliczeń bez ignorowania 
użytkownika. 

4. Wykorzystanie VBI umożliwia uzy- 
skanie wielozadaniowości w najczystszej 
postaci. Program pierwszoplanowy może 
działać pod VBI, podczas gdy program 
drugoplanowy działa w głównej linii kodu. 

Program nr 1 jest przykładem prakty- 
cznego wykorzystania przerwań. Umożli- 
wia on uzyskanie dziesięciu kolorów w 
drugim trybie graficznym (zamiast stan- 
dardowych czterech). Uzyskane kolory, 
podobnie jak wszystko na ekranie, są w 
rzeczywistości ilpzją. Następuje mieszanie 
się kolorów ponieważ obrazy zmieniane 
są tak szybko, że nasze oczy nie mogą za- 
uważyć zmian. Dlatego widzimy tylko je- 
den kolor, który jest mieszaniną kolorów 
we wszystkich obrazach. Możemy mieszać 
więcej niż dwa kolory jednocześnie, lecz 
w miarę wzrostu liczby obrazów, wzrasta 
także ilość migotań ekranu. Praktyczną 
granicą jest mieszanie czterech kolorów. 

Efekt ten uzyskujemy poprzez użycie 
kilku obszarów RAM ekranu i zmianę baj- 
tów LMS w programie wyświetlania w cza- 
sie obsługi przerwania powrotu pionowe- 
go. 

Szybka zmiana bajtów adresu rozkazu 
LMS umożliwia przełączenie z jednego 
obrazu na drugi i z powrotem. Nie można 
tego zrobić w języku BASIC — jest zbyt 
wolny. Bajty LMS zmieniane są przez 
krótką procedurę w języku maszynowym, 
która działa 50 razy na sekundę, w czasie 
przejścia strumienia elektronów na górę 
ekranu. 
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► FK 
FJ 
XA 
FL 
FO 
NL 
KI 


BI 

IE 


LI 


XE 
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SX 

BM 

ZC 
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IY 

ZR 
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EE 

ZK 
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OZ 
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QR 

OC 

TO 

10 

vc 

PM 

LP 
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ID 

ZF 
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ZF 

PY 
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PC 

SN 
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AF 


1 REM XXXXXXXXXXXXXXXX 

2 REM X X 

3 REM X Pro* ram nr 1 X 

4 REM X X 

5 REM XXXXXXXXXXXXXXXX 

6 REM 

10 ? CHR*< 125) 'GRAPHICS 2+16=8 

REAK-1000 

15 REM 

20 FOR 1*0 TO 39 'READ A -POKE 1 
536+1 , A 1 NEXT I 

30 DATA 173/51/6,73/ 1/ 141/51/6 
/ 240/ 15/173/40/6/ 141/49/6/ 173/ 
41/6/ 141/50/6/76/96/228 
40 DATA 173/42/6/141,49,6/173/ 
43,6/141/50/6/76/98,228 
45 REM 

50 DL »PEEK ( 560 ) +256XPEEK (561) 
55 REM 

60 BYTE-DL+4-G0SUB BREAK 
70 POKE 1550/LOU'POKE 1565/LOW 
80 POKE 1531/HIGH=P0KE 1566/HI 


GH 

90 BYTE*DL+5 » GOSUB BREAK 

100 POKE 1556, LOW 'POKE 1571/LO 

U 

110 POKE 1557/ HIGH -POKE 1572, H 
IGH 

120 BYTE-DL+20 • GOSUB BREAK 
130 POKE 1577/HIGH'POKE 1576, L 
OU 

140 BYTE-DL-250 ■ GOSUB BREAK 
150 POKE 1579, HIGH= POKE 1570, L 
OW 

155 REM 

160 FOR 1-0 TO 10 = READ A 'POKE 
1600+1, A 'NEXT I 

170 DATA 104,162/6/160/0/169/7 

,32/92/220,96 

180 X*U8R ( 1 600 ) 

220 REM 

230 BYTE-DL+20 'GOSUB BREAK 
235 POKE 08 /LOW 'POKE 89, HIGH 
240 POSITION 0,4 
250 ? #6; " INfor maTY ka 

260 ? #6>" KOMpu TEtm 

270 ? #6< M iixTEmv 

280 BYTE*DL-250= GOSUB BREAK 
290 POKE 88, LOW 'POKE 89, HIGH 
305 REM 

312 SETGOLOR 0/12,6 

313 SETCOLOR 1,4,6 

314 SETCOLOR 2,15,8 

315 SETCOLOR 3,8,6 

320 POSITION 0,4 

330 ? #6;" IN forMA TYka 

340 ? #6; " KOMPu TEr* 

350 ? #6j" SYSt# 

359 REM X-USR(160T 

360 GOTO 360 

999 REM 

1000 H I GH-I NT < BYTE/256) 

1010 LOW-BYTE-H I GHX256 
1020 RETURN 


Program nr 2 umożliwia zainstalowanie i 
wykorzystanie procedury, która wygrywa 
melodię bez naruszania ciągłości działania 
programu. Generatory dźwięku wystero- 
wywane są w czasie obsługi przerwania 
VBI na podstawie informacji zawartych w 
zmiennych tekstowych. Każda ze zmien- 
nych zawiera dane, sterujące jednym ge- 
neratorem, w postaci par znaków. Kod 
pierwszego znaku określa wysokość 
dźwięku, a drugiego — czas trwania w 
jednostkach równych 0,02 s. Na przykład 
para: CHR$(121) i CHR$(25) zdefiniuje 
nutę C o czasie trwania 0,5 s. Każdy z cią- 
gów par musi być zakończony dwoma 
znakami o kodzie 0(CHR$(O)). 

W celu uzyskania dźwięku musimy użyć 
następującej instrukcji; 
x = USR (1536, ADR (M1$), ADR (M2S), 
ADR (M3$), ADR (M4$)) ► 

gdzie 1536 jest adresem początku proce- 
dury (umieszczonej na stronie 6), a MIS, 
M2S, M3S i M4$. są nazwami zmiennych 


tekstowych zawierających dane sterujące 
poszczególnymi generatorami. W instruk- 
cji wywołania używamy tylu nazw zmien- 
nych, ilu generatorów dźwięku chcemy 
używać. Na przykład, dla dwóch genera- 
torów instrukcja wywołania ma następują- 
cą postać: 

x = USR (1536, ADR(MIS), ADR (M2$)) 
Sposób użycia opisywanej procedury 
dźwiękowej stanie się oczywisty po 
przeanalizowaniu tekstu programu. 

W celu uzyskania pauzy należy podać 
wysokość tonu i (nie może byćO) i żądany 
czas trwania. 

Przerwania programu wyświetlania 

Przerwania programu wyświetlania są 
jedną z bardziej przydatnych własności 
komputera Atari. Wprawdzie same nie 
dostarczają dodatkowych możliwości, lecz 
używane łącznie z innymi własnościami 
systemu, jak: grafika- gracz— pocisk, wy- 
miana zestawów znaków lub zmiana za- 
wartości rejestrów kolorów, umożliwiają 
pełne ich wykorzystanie. 


FK 1 REM XX*XXXXXXXXXXXXX 
FJ 2 REM X * 

,XU 3 REM X Pro* ram nr 2 X 
FL 4 REM X x 

FO 5 REM XXXXXXXXXXXXXXXX 
NL 6 REM 

QC 10 GRAPHICS 9 

TU 15 GOTO 70 

JO 20 C-INT<RND<0)X16) 

FT 30 COLOR C 

OL 40 PLOT INT(RND<0)X80) , INT (RND 
< 0 ) X 1 92 > 

RV 50 GOTO 20 
NV 70 GOSUB 32080 
RY 75 REM SPOSOB WYWOŁANIA 
FU 77 REM X=USR( 1536, (ADRcMlf), AD f 
R(M2t),ADR<M3»)/ADR<M4»>> 

KN 80 DIM M 1 $ < 255 ) , M2X < 255 > ' I =0 
JJ 85 RESTORE 110 
LL 90 READ D' 1*1+1 
OB 95 IF D*-l THEN 100 
QR 97 Ml$< I , I )*CHR$<D) 

VC 99 GOTO 90 

FC 100 1=0 

UG 102 READ D' 1*1+1 

JT 104 IF D—l THEN 108 

GA 105 M2*a,I)-CHR*<D) 

MW 106 GOTO 102 

TR 108 X=USR< 1536, ADR<M1X) , ADR<M2 

*>> 

KF 109 GOTO 20 REM GLOS PIERWSZY 
JG 110 DATA 96/25,108/25,121,25/1 
28,25,144,25,128,25,1-21,25,128 
,25,' 144, 25, 128,25 
SL 111 DATA 121/25/128/25/144,25/ 
128,25/121/25/ 108,25,96,25/ 108 
/ 25 

DN 112 DATA 121,25/128,25/144,25/ 
128/25/121/25,128,25,144/25/12 

8.25 

SR 113 DATA 121/25/128,25/144/25/ 
128,25/ 121,25/ 108,25,96/25, 108 
-25 

DT 114 DATA 121,25/128,25,144/25/ 
128/25, 121,25/128,25/ 144,25,12 

8.25 

ID 115 DATA 121/25/128,25/144,25, 

1 28,25, 121 , 25, 108, 25,96, 25,91 , 
25 

NL 116 DATA 96,25/108/25/121,25/1 
28,25/ 144,25, 153,25,144/50/ 193 
, 150,96/25/91,25 

IU 117 DATA 96,50/108/50/121/50,1 
28,50/ 121,50,144,25/ 128,25,121 
,25, 108/25/96/25,91,25 
KU 118 DATA 81,50,91,50/96/50/108 
,50/96/50, 121,25/ 108,25,96/25, 
85/25/81,25,72/25 
LS 119 DATA 64,50/72,50/81/50/85/ 
50, 81 , 50, 96,50/60/ 50, 72, 50, 72, 

25.81.25 


EA 


MG 

NA 


MG 


KN 

FX 

ZD 

YH 

YJ 

WN 

IH 

PW 

HI 

BB 


120 DATA 85,25/96/25,64,50/128 
,50/96/50/128,50/ 193,50/1,300, 
Ó / 0/-1 

129 REM GLOS DRUGI 

130 DATA 60,25/53/25/47,50/45, 
50,47/50,53,50,47/50/72,100,76 
,50/72/50/45,50,47,50/53/50 

131 DATA 47/50/72/100/76/50,72 
,50/45,50/47.50/53/50/35/50/40 
,25/45/25/47/50/53,50 

132 DATA 60,50/64/25/60/25/53/ 
25/64,25/60/25/72/25 

133 DATA 64,25,72/25/76/25,72/ 
25/64/25/60,25/53/25/64/25 

134 DATA 60/25/53/25/47,25/45, 
25/47,25,53,25/60,25/53/25 

135 DATA 47,25/53/25,60/25/64, 
25, 72, 25,64, 25,60, 25,53, 25 

136 DATA 47/25/45,25/40,25/35/ 
25/40,25/45,25/47,25,45/25 

137 DATA 40/25,45,25,47/25,53/ 
25,60/ 25,53/25/47/25,42,25 

138 DATA 40,25/35,25/31,25/29/ 
25,31 , 25.35/25, 40, 25,35, 25 


139 DATA 31/23/35/25/40,25,42/ 
25, 47, 25/50,25/47, 25, 42, 25 

140 DATA 64/50/40,50/40/25/42/ 
25,47,25/50/25 

141 DATA 47,150/1,300/0,0,-1 


Wprawdzie obraz kreślony jest na ekra- 
nie 50 razy na sekundę, niebywale szybko 
jak na nasze możliwości, jednak komputer 
ma mnóstwo czasu na zmianę parametrów 
wyświetlania. Istotne jest, aby dokonywać 
zmiany w czasie każdego kreślenia obra- 
zu, to znacży 50 razy na sekundę oraz 
zmieniać interesujący nas parametr do- 
kładnie w tym samym momencie kreślenia 
obrazu. Oznacza to, że cykl modyfikowa- 
nia parametrów musi być zsynchronizo- 
wany z cyklem kreślenia. Doskonałym 
sposobem rozwiązania tego problemu 
może być pojawienie się sygnału przer- 
wania tuż przed momentem zmiany pa- 
rametrów obrazu. Mikroprocesor rozpo- 
znaje przerwanie, zmienia odpowiednie 
parametry i wraca do swojej normalnej 
pracy. Moment pojawienia się przerwania 
musi być precyzyjnie odmierzany, aby wy- 
stępowało ono dokładnie w tej samej 
chwili w czasie kreślenia obrazu. Takie 
specjalnie taktowane przerwanie dostar- 
czane jest przez ANTIC i nazywa się przer- 
waniem programu wyświetlania (DLI). 

Jak wiadomo, ANTIC posiada własny 
program wyświetlania, którego rozkazy 
kolejno pobiera i realizuje. Pod koniec 
wyświetlania linii obrazu pobiera następny 
rozkaz wyświetlania. Jeśli stwierdzi, że jest 
w nim ustawiony bit przerwania (D7), to 
po rozpoczęciu wyświetlania ostatniej linii 
ekranu aktualnej linii obrazu sprawdza, 
czy w rejestrze NMIEN (o adresie 54286) 
dozwolone jest przerwanie programu wy- 
świetlania. Jeśli bit zezwolenia (D7) jest 
wyzerowany, ANTIC ignoruje żądanie 
przerwania i kontynuuje swoje normalne 
zadania. Jeśli bit zezwolenia jest ustawio- 
ny, ANTIC wysterowuje linię NMI mikro- 
procesora 6502, który przechodzi do pro- 
cedury obsługi przerwania według wekto- 
ra NMI. Po określeniu przyczyny przer- 
wania przechodzi do procedury obsługi 
DLI (na podstawie zawartości komórek 
$200, $201 tj. 512 i 513), która może zmie- 
nić zawartość jednego lub kilku rejestrów 
graficznych sterujących wyświetlaniem. 
Następnie 6502 wraca do realizacji pro- 
gramu głównego. 

jak widać z tego krótkiego opisu, przed 
wykonaniem procedury obsługi przerwa- 
nia DLI należy wykonać następujące 
czynności: 
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1. Wprowadzić procedurę obsługi 
przerwania do bezpiecznego obszaru 
pamięci (idealnym miejscem jest 
strona 6 RAM). 

2. Zmodyfikować pewne bajty progra- 
mu wyświetlania w celu wykonania 
przerwań. 

3. Do komórek o adresach 512 i 513 
wstawić adres pierwszego rozkazu 
procedury obsługi przerwania pro- 
gramu wyświetlania. 

4. Zezwolić na pojawienie się przerwań 
za pomocą POKE 54286. 192. 

Z kolei procedura obsługi przerwania 
powinna wykonywać następujące czyn- 
ności: 

1. Przechować zawartości rejestrów, 
które będą używane, poprzez umie- 
szczenie ich na stosie 6 502. 

2. Wykonać odpowiednie działania. 

3. Odtworzyć zawartości przechowy- 
wanych rejestrów poprzez zdjęcie 
ich ze stosu i umieszczenie w odpo- 
wiednich rejestrach. 

4. Wykonać rozkaz RTI (powrót z 
przerwania). 

Powyższe czynności muszą być wyko- 
nywane podczas każdej realizacji proce- 
dury obsługi przerwania. W przeciwnym 
przypadku mogą być zniszczone zawar- 
tości rejestrów mikroprocesora (i praw- 
dopodobnie nasz program także). 

Podobnie, jak w każdej procedurze 
obsługi przerwania musimy uwzględnić 
zależności czasowe. ANTIC nie wysyła 
sygnału przerwania do 6502 bezpośrednio 
po napotkaniu odpowiedniego rozkazuj 
opóźnia to do chwili rozpoczęcia kreśle-* 
nia ostatniej linii ekranu aktualnej linii 
obrazu, która ma być przerwana. Dalsze 
opóźnienia wynikają z czasów działania 
procedury rozpoznawania przyczyny 
przerwania oraz przejścia do naszej pro- 
cedury. Rozpocznie ona zatem działanie, 
gdy strumień elektronów przebył już 
część drogi po ekranie. Jeśli procedura 
DLI zmienia zawartość rejestru koloru, to 
stary kolor będzie wyświetlony w lewej 
połowie ekranu, a nowy kolor pojawi się 
w prawej połowie ekranu w tej samej linii. 
Z powodu niezbyt precyzyjnego odmie- 
rzania czasu odpowiedzi na przerwanie, 
granica między nimi nie będzie ostra, lecz 
denerwująco drgająca. 

W celu rozwiązania tego problemu mu- 
simy wykorzystać rejestr WSYNC (czeka- 
nie na synchronizację poziomą). Jeśli 
wstawimy rozkaz STA WSYNC tuż przed 
rozkazem, który zmienia zawartość rejes- 
tru koloru, to kolor ulegnie zmianie wte- 
dy, gdy strumień elektronów jest wyłą- 
czony (powrót poziomy). Zmiana koloru 
wystąpi o jedną linię ekranu niżej, lecz 
będzie czysta i ostra. 

Właściwym użyciem programu wyświet- 
lania jest ustawienie bitu D7 w rozkazie 
programu wyświetlania poprzedzającym 
linię obrazu, w której chcemy dokonać 
zmiany. 

Prosty przykład procedury obsługi 
przerwania programu wyświetlania pre- 
zentujemy poniżej: 

PHA przechowanie zawartości 

akumulatora 

TXA 

PHA przechowanie zawartości 

rejestru X 


LDA #$50 

ciemny kolor dla znaków 

LDX #$58 

różowy kolor dla tła 

STA WSYNC 

czekanie 

STA COLPF1 

zmiana zawartości re- 
jestrów kolorów 

STX COLPF2 

PLA 

TAX 

odtworzenie zawartości 
rejestrów X i A 

PLA 


RTI 

powrót z obsługi przer- 
wania 


Powyższa procedura, zrealizowana w 
programie nr 3, zmienia kolor tła z niebie- 
skiego na różowy. Zmienia także kolor 
znaków. Okazuje się, że po jej wykonaniu 
górna część ekranu pozostaje niebieska, 
pomimo tego, że procedura ustawia kolor 
różowy w odpowiednim rejestrze. Dzieje 
się tak dlatego, że procedura obsługi 
przerwania powrotu pionowego (VBI) 
wstawia do tego rejestru kod koloru nie- 
bieskiego. Pochodzi on z rejestru „ cienia " 
tego rejestru koloru, Każdy z układowych 
rejestrów koloru ma swój „cień" w komór- 
kach RAM o adresach 708 do 712. W więk- 
szości przypadków wygodnie jest zmie- 
niać kolory poprzez zmianę zawartości re- 
jestrów „cieni". Jeśli zmienimy zawartości 
rejestrów układowych, to w ciągu 1/50 s 
ustawione kolory zostaną zmienione 
przez system operacyjny. Jednak w pro- 
cedurze obsługi DLI musimy zmieniać za- 
wartości rejestrów układowych. Zauważ"- 
my również, że nie możemy zmieniać ko- 
loru pierwszej wyświetlanej linii obrazu. 

fk i rem mam**#**##*# 

FJ 2 REM * * 

YO 3 REM * Program nr 3 * 

FL 4 REM * * 

fo 5 rem m####*#*#***** 

ML 6 REM 

ST 10 Dl-PEEK<560>+256*PEEK<561> 
FJ 20 POKE DL+15, 130 
LH 30 FOR 1=0 TO 19 
Ul 40 REflD fl ' POKE 1536+1 , A ■ NEXT I 
Mfl 50 DRTfl 72, 138,72, 169,80. 162.8 
9 

W 60 DRTfl 141,10,212,141,23,208 
FM 70 DRTfl 142,24,208,104,170,104 
,64 

TX 80 POKE 512, 0 ; POKE 513,6 
CX 90 POKE 54286,192 
Wstawianie kodów kolorów bezpoś- 
rednio do rejestrów układowych powodu- 
je pojawienie się innego problemu: kasu- 
jemy automatyczny tryb zwracania uwagi 
(attract modę), który jest własnością do- 
starczaną przez system operacyjny. Po 
dziewięciu minutach bez naciśnięcia ja- 
kiegokolwiek klawisza, kolory na ekranie 
zaczynają się zmieniać, przyjmując przy- 
padkowe barwy przy obniżonej jaskra- 
wości. Gwarantuje to, że komputer pozo- 
stawiony bez kontroli na kilka godzin nie 
wypali obrazu na ekranie telewizora. Mu- 
simy zatem rozważyć możliwość utrzyma- 
nia tej własności. Można to zrobić po- 
przez wstawienie do procedury obsługi 
przerwania pfogramu wyświetlania dwóch 
dodatkowych rozkazów: 

stare nowe 


LDA NEWCOL 
STA WSYNC 
STA COLPF2 


LDA NEWCOL 
EOR COLRSH 
AND DRKMSK 
STA WSYNC 
STA COLPF2 


DRKMSK i COLRSH są komórkami pa- 
mięci na stronie zerowej (78 i 79) ustawia- 


nymi i aktualizowanymi przez system ope- 
racyjny w czasie obsługi przerwania pow- 
rotu pionowego. Gdy nie ma trybu zwra- 
cania uwagi, COLRSH przyjmuje wartość 
003 DRKMSK — $FF. Po wymuszeniu te- 
go trybu, co 4 sekundy do COLRSH wsta- 
wiana jest nowa wartość losowa, a 
DRKMSK przechowuje wartość $F6. Za- 
tem COLRSH, zmienia kolor, a DRKMSK 
obcina najstarszy bit jaskrawości. 

Wprowadzenie trybu zwracania uwagi 
do procedury obsługi DLI zaostrza istnie- 
jący już problem czasu działania procedu- 
ry. Szczegółowe rozważania czasowe 
uczynią go bardziej oczywistym. W reali- 
zacji przerwania programu wyświetlania 
można wyróżnić trzy fazy. Faza 1 obejmu- 
je okres od pojawienia się przerwania do 
rozkazu STA WSYNC. W czasie jej trwania 
strumień elektronów kreśli ostatnią linię 
ekranu przerywanej linii obrazu. Faza 2 
obejmuje okres od rozkazu STA WSYNC 
do momentu pojawienia się strumienia 
elektronów na ekranie. Odpowiada to 
przerwie poziomej; wszystkie zmiany 
obrazu powinny być robione w tym cza- 
sie. Faza 3 obejmuje okres od pojawienia 
się strumienia na ekranie do zakończenia 
procedury obsługi DLI. 

Kreślenie jednej linii ekranu trwa 114 
cykli zegara procesora. Przerywanie do- 
chodzi do mikroprocesora w cyklu numer 
2. Zużywa on od 8 do 14 cykli na rozpo- 
znanie przyczyny przerwania. Procedury: 
obsługi przerwania SO i skierowania go do 
procedury obsługi DLI zużywa 11 cykli 
maszynowych. W tym czasie od 1 do 3 cy- 
kli zostanie zabranych na odświeżenie 
pamięci DMA. Zatem procedura obsługi 
DLI nie jest osiągana przed upływem 
28—36 cyklu zegara. Dla celów planowa- 
nia musimy przyjąć najgorszy przypadek i 
programować tak, jakby procedura obsłu- 
gi DLI osiągana była w 36 cyklu. Dodatko- 
wo rozkaz STA WSYNC musi być osiągnię- 
ty w cyklu numer 100; redukuje to czas 
dostępny w fazie 1 o 14 cykli. Ponadto 
DMA ANTIC'u będzie zabierał pewne cy- 
kle maszynowe. Dziewięć cykli będzie 
straconych na odświeżanie pamięci DMA. 
Pozostawia to maksymalnie 55 cykli do- 
stępnych dla fazy 1. To maksimum uzyski- 
wane jest tylko w przypadku pustej linii 
obrazu. Rozkazy trybu znakowego i grafi- 
cznego powodują utratę jednego cyklu 
dla każdego bajtu wyświetlanych danych. 
Najgorszy .przypadek występuje dla try- 
bów BASIC’u 0, 7, 8, 14 i 15, które wymaga- 
ją 40 bajtów na linię. Zatem procedura fa- 
zy 1 będzie miała na realizację od 15 do 55 
cykli maszynowych. 

Faza 2, krytyczna, rozszerza się ponad 27 
cykli zegara. Jak w fazie 1, pewne z nich są 
tracone na rzecz DMA. Jeśli używana jest 
grafika P-M, tracimy dodatkowe 5 cykli. 
Rozkaz wyświetlania zużywa jeden cykl, 
jeśli używana jest opcja LMS, to tracimy 
dwa dodatkowe cykle. W końcu, jeden 
lub dwa cykle mogą być stracone na od- 
świeżenie pamięci lub wyszukiwanie wy- 
świetlanych danych. Zątem dla fazy 2 do- 
stępnych jest od 17 do 26 cykli maszyno- 
wych. 

Problemy czasowe obsługi przerwania 
programu wyświetlania stają się teraz 
oczywiste. Pobranie, zmiana i przechowa-d 
nie pojedynczego koloru zużywa 4 cykle. 
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Przechowanie na stosie zawartości rejes- 
trów A, X i Y, a następnie wprowadzenie, 
zmiana i przechowanie trzech kolorów w 
A, X i Y zużywają 47 cykli, to jest więk- 
szość, jeśli nie wszystkie, fazy 1. Programi- 
sta, który chce używać DLI dla rozbudo- 
wanych zmian graficznych, zużywa sporo 
czasu na kalkulacje czasowe. Na szczęście 
początkujący programista nie musi kon- 
centrować się na obliczeniach czasowych, 
jeśli zmienia się tylko jeden kolor lub wy- 
konywane są proste operacje graficzne, 
zliczanie cykli i optymalizacja procedury 
nie są konieczne. 

Nie ma żadnych prostych opcji dla pro- 
gramisty, który potrzebuje zmienić więcej 
niż trzy rejestry koloru w pojedynczym 
przerwaniu. Może być możliwa zmiana 
czwartego koloru na początku fazy 3, jeśli 
nie jest on wyświetlany na lewym brzegu 
ekranu. Podobnie, kolor, który nie wystę- 
puje przy prawym brzegu ekranu, może 
być zmieniony w fazie 1. Innym sposobem 
podejścia jest rozdzielenie jednej proce- 
dury obsługi DLI o nadmiernej aktywność ■ 
na dwie mniej ambitne, z których każda 
wykonuje połowę pracy oryginału. Drugie 
DLI można uzyskać przez wstawienie po- 
jedynczego rozkazu pustej linii elcranu (z 
ustawionym bitem DLI) do programu wy- 
świetlania tuż poniżej przerywanej linii 
obrazu. Zajmuje to jednak pewien obszar 
ekranu. 

Innym częściowym rozwiązaniem jest 
dokonanie zmiany kolorów, w czasie 
przerwy pionowej. W tym celu w RAM 
muszą być przechowywane dwie tablice 
kolorów. Pierwsza z nich zawiera kody ko- 
lorów, które mają być wyświetlane przez 
procedury obsługi DLI, druga zawiera 
wartości umożliwiające zmianę kolorów. 
W czasie powrotu pionowego dostarczo- 
na przez nas procedura obsługi przerwania 
pobiera kod koloru z pierwszej tablicy, 
zmienia go i przechowuje w drugiej tabli- 
cy. Procedura obsługi DLI pobiera wtedy 
wartości bezpośrednio z drugiej tablicy, 
bez straty dodatkowego czasu na zmianę. 

Często pożądane jest posiadanie kilku 
procedur obsługi przerwań programu wy- 
świetlania występujących w kilku miejs- 
cach ekranu. Niestety, istnieje tylko jeden 
wektor DLI. jeśli chcemy zastosować kilka 
procedur obsługi przerwania, to w samej 
procedurze musimy umieścić kierowanie 
do odpowiedniej obsługi. Można to zro- 
bić na kilka sposobów. Jeśli procedura 
obsługi DLI wykonuje taki sam prbces z 
różnymi wartościami, wtedy może być ste- 
rowana tablica. Po każdej realizacji pro- 
cedury zwiększany jest licznik i używany 
jako indeks tablicy wartości. Poniższy 
przykład prezentuje ten sposób. 


PHA 

TXA 

PHA 

INC LICZ 
LDX UCZ 
LDA TABCKOL, X 

STA WSYNC 
STA COLBAK 
CPX #$4F 
BNE KON 
LDA *$00 


przechowanie za- 
wartości rejestrów 

zwiększenie licznika 

użycie strony 2 dla 
tablicy kolorów 
oczekiwanie 

czy ostatnia linia? 
nie, wyjście 
tak, wyzerowanie 
licznika 


STA LICZ 
KON PLA 

TAX odtworzenie zawar- 

tości rejestrów 

PLA 

RTI 


W celu wykorzystania powyższej zasady 
należy wprowadzić program nr 4, który 
umieszcza na ekranie 80 kolorów jedno- 
cześnie. 


Innym sposobem zastosowania wielo- 
krotnych DLI jest użycie licznika przerwań 
jako testu dla przejścia do odpowiedniej 
procedury obsługi, jednak lepszym będzie 
rozwiązanie, w którym każda procedura 
obsługi DLI wpisuje adres następnej do 
komórek $200, $201. Może to być wyko- 
nywane w fazie 3. jest to najbardziej uni- 
wersalne rozwiązanie problemu wielo- 
krotnych DLI. Ma tę dodatkową zaletę, że 
rozkazy sterowania wyborem wykonywa- 
ne są po części krytycznej obsługi, a nie 
przed. 


FK 

F.J 

ZI 

FL 

PO 

HI- 

PO 

su 

OM 

KH 

JC 

HI 

MK 

GM 


1 REM **************** 

2 REM * * 

3 REM * Proiram nr 4 * 

4 REM * * 

5 REM **************** 

6 REM 

10 GRAPHICS 7 

20 DL-PEEK<560>+256*PEEK<561> 

30 FOR J*6 TO 84 

40 P0KE DŁ+J, 141 

50 NEXT J 

60 FOR J*0 TO 30 

70 READ A ' P0KE 1 536+J , A ' NEXT J 

80 DATA 72,138,72,238,32,6,175 


,32,6 

90 DATA 189,0,240,141,10,212, 


41,26,208 

IJ 100 DATA 224.79,208,5,169,0 
UM 110 DATA 141,32,6,104,170,104, 


VP 120 POKE 512,0'POKE 313,6 
OJ 130 POKE 54286,192 


Procedura systemowa trzasku (klekotu) 
klawiatury interferuje z procedurą obsługi 
DLI. Po naciśnięciu i rozpoznaniu klawisza 
tworzony jest trzask. Jego czas trwania 
odmierzany jest przez kilka rozkazów STA 
WSYNC. Może to naruszyć taktowanie 
procedury obsługi DLI i spowodować, że 
kolory przeskoczą w dół (o jedną linię ek- 
ranu) na ułamek sekundy. Rozwiązanie 
tego problemu nie jest łatwe. Jeden ze 
sposobów wykorzystuje rejestr VCOUNT, 
który informuje, która linia ekranu jest ak- 
tualnie wyświetlana przez ANTIC. Proce- 
dura obsługi DLI może badać jego zawar- 
tość w celu podjęcia decyzji kiedy zmienić 
kolor. Innym rozwiązaniem może być wy- 
łączenie systemowej procedury obsługi 
klawiatury i dostarczenie własnej, lecz 
wymaga to sporo pracy. Ostatecznym 
rozwiązaniem jest brak akceptacji wejść z 
klawiatury. Jeśli naciśnięty klawisz nie jest 
rozpoznany, wstrząsy ekranu nie wysłępu- 
Zaslosowania 


Dopiero teraz staje się oczywista ogro- 
mna wartość grafiki pośredniej i rejestrów 
układowych, których zawartość możemy 
zmieniać. Za pomocą przerwań programu 
wyświetlania każdy z tych rejestrów może 
być zmieniany „w locie”. Najbardziej 
oczywistym zastosowaniem DLI jest umie- 
szczenie na ekranie większej liczby kolo- 
rów. Każdy rejestr koloru może być zmie- 
niany po wystąpieniu przerwania. Dotyczy 
to zarówno rejestrów koloru pola gry, jak i 
rejestrów koloru graczy. Mamy zatem 


dziewięć rejestrów, z których każdy może 
wyświetlać jeden z 256 różnych kolorów. 
Oczywiście normalny program nie będzie 
używał wszystkich kolorów. Z kolei zbyt 
wiele przerwań spowalnia cały program. 
W praktyce tuzin kolorów jest łatwy do 
uzyskania, dwa tuziny wymagają uważne- 
go planowania, a więcej — wymaga wy- 
myślonej sytuacji. 

Przerwania programu wyświetlania mo- 
gą także zwiększyć możliwości grafiki 
P-M. Pozycja pozioma gracza może być 
zmieniana podczas DLI. W ten sposób 
gracz może mieć kilka wcieleń (różnych 
kształtów) na ekranie. 

Innym sposobem wykorzystania DLI jet 
zmiana szerokości lub priorytetu gracza. 
Ostatnim zastosowaniem przerwań pro- 
gramu wyświetlania jest zmiana zestawu 
znaków w dolnej części ekranu. Umożli- 
wia to używanie grafiki znakowej w du- 
żym oknie i zwykłego tekstu w oknie tek- 
stowym. Możliwe są wielokrotne zmiany 
zestawu znaków; program może używać 
jednego zestawu znaków u góry ekranu, 
ipnego w środku i normalnego zestawu na 
dole. 

Właściwe wykorzystanie przerwań pro- 
gramu wyświetlania wymaga uważnego 
zaprojektowania obrazu. Musimy pamię- 
tać, że obraz ma „bardziej” pionową 
strukturę niż poziomą. Wynika to z syste- 
mu tworzenia obrazu, w którym tempo 
kreślenia w poziomie jest 262 razy szybsze 
od tempa kreślenia w pionie. Kompute- 
rowy obraz nie jest czystą kartką papieru, 
na-której kreślimy, jest to stos cienkich pa- 
sków, z których każdy może być inny. I 
musi to być brane pod uwagę podczas 
projektowania obrazu. 

Prezentowane pogramy demonstrują 
kilka z możliwych zastosowań przerwań 
programu wyświetlania. 

Program nr 5 umożliwia dokonanie 
zmiany koloru tła w dowolnej części ekra- 
nu. Ze względu na to, że zmieniamy za- 
wartość rejestru układowego, zmienia się 
kolor części ekranu poniżej miejsca 
przerwania. Górna część ekranu pozostaje 
bez zmian, ponieważ rejestr układowy ak- 
tualizowany jest zawartością rejestru „cie- 
nia” podczas realizacji procedury obsługi 
VBI. 

Dla dolnej części ekranu możemy wy- 
brać dowolny kolor. W tym celu określa- 
my kod koloru i umieszczamy jako trzecią 
liczbę w instrukcji DATA (linia 150). Mo- 
żemy również zmieniać ten kolor bezpoś- 
rednio, za pomocą POKE z adresem 1538. 

Możemy również zmienić kolor tła w 
górnej części ekranu, poprzez wstawienie 
odpowiedniej wartości do rejestru „cie- 
nia" o adresie 712. 

Możliwa jest również zmiana koloru 
dowolnego z kreślonych prostokątów. W 
tym celu musimy wstawić żądaną wartość 
koloru do odpowiedniego rejestru „cie- 
nia” (dla górnej części prostokąta) lub 
zmienić zawartość odpowiedniego rejes- 
tru układowego (dla dolnej części prosto- 
kąta). Lewy prostokąt kreślony jest przy 
użyciu COLOR 1, środkowy — przy użyciu 
COLOR 2, a prawy — COLOR 3. 

Jeśli chcemy dokonać tych zmian w sa- 
mym programie musimy zmienić ósmą 
liczbę w instrukcji DATA w linii 150 dla 
młodszego bajtu adresu odpowiedniego 
rejestru układowego. Dla prostokąta uży- 
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wającego COLOR 1 wstawimy 22, dla CO- 
LOR 2 — 23 i dla COLOR 3 — 24. 

W celu wybrania różnych pozycji pio- 
nowych dla zmiany koloru, dodajmy’128 
do różnych rozkazów programu wyświet- 
lania. Wykorzystamy do tego linię 240, 
która umieszcza żądanie przerwania pro- 
gramu wyświetlania w odpowiedniej linii. 
W używanym trybie 5 BASIC’u otrzymu- 
jemy 40 linii obrazu, możemy zatem umie- 
szczać żądania przerwania w komórkach 
od START + 6 do START + 44. 

fk i rem 

FJ 2 REM * * 

AC 3 REM * Protrtm nr 5 * 

FL 4 REM X X 

fo 5 rem mm********** 

ML 6 REM 

GM 100 REM 

QC 110 FOR 1-0 TO 10 

SK 120 RERD fl 

RB 130 POKE 1536+1 < A 

FZ 140 NEXT I 

ZY 150 DRTfi 72,169,6,141,10,212,1 
41,26,208-104,64 
QY 160 REM 

VZ 170 POKE 512,0 -POKE 513,6 
VB 210 GRAPHICS 5 
FI. 220 START =PEEK < 560 ) +256#PEEK < 5 
61) 

BC 240 POKE STRRT+24, 10+128 
RQ 310 FOR X*1 TO 3 
0C 320 COLOR X 

LF 330 PLOT 20*X+5, 30 ' DRRWTO 20*X 
+5,10 

NY 340 DRRWTO 20*X-5, 10 'POSITION 
20*X-5, 30 
GM 350 POKE 765, X 
SJ 360 XI0 18, #6, 0,0, "8' " 

MB 370 NEXT X 
RE 380 REM 

JT 390 FOR D*1 TO 300-NEXT D 
QP 400 REM 

01 410 POKE 54286,192 
NX 420 EMD 

Program nr 6 umożliwia zademonstro- 
wanie reklamowanych możliwości kom- 
putera Atari, to znaczy uzyskanie na ekra- 
nie 128 kolorów jednocześnie. Oprócz 
dostarczenia procedury obsługi przerwa- 
nia, wymagało to także zmodyfikowania 
programu wyświetlania w celu otrzymania 
odpowiedniej liczby wyświetlanych linii. 

Procedura obsługi przerwania tak zosta- 
ła napisana, że za każdym jej użyciem war- 
tość kolor/jaskrawość zwiększana jest 0 2. 
Na końcu obrazu otrzymamy 128 kolorów 

FK 1 REM **************** 

FJ 2 REM * * 

RW 3 REM * Pro«r* n nr 6 * 

FL 4 REM * * 

FO 5 REM **************** 

ML 6 REM 

LIR 118 FOR 1=8 TO 17 
SU 120 RERD 8 
RS 130 POKE 1536+1,8 
FZ 140 MEKT I 

VX 168 POKE 512,0 'POKE 513,6 
WR 210 GRAPHICS 8 
FQ 220 DL=P£EK<560)+256*PEEK<561 > 
XQ 230 COLOR 1 
MW 240 FOR 1=1 TO 5 
TH 250 RERD X1,Y1,X2,Y2,X3, Y3,X4, 
Y4 

FD 260 PLOT XI, Y1 'DRRWTO X2,Y2‘DR 
RWTO X3, Y3 = P0SITI0N X4,Y4 
LP 270 POKE 765,1 
SM 280 XI0 18, #6, 0, 0, "S 1 " 

GK 290 NEXT. I 
JW 310 POKE DL+3,78 
WK 320 FOR 1=6 TO 33 'POKE DL+I,14 
' NEXT I 

CM 330 FOR 1=34 TO 98 'POKE DL+1,1 
4+128'NEXT I 

RR 340 POKE DL+99, 78+123 


CT 350 FOR 1=102 TO 164 -POKE DL+I 
, 14+128 'MEXT I 

FC 360 FOR 1 = 1.65 TO 198 < POKE DL+J 
,14'NEXT I 

EC 370 POKE DL.+ 199, 65 
SM 380 POKE DL+200,80 
EW 390 POKE DL+20 1,128 
Ol 418 POKE 54286,192 
01 800 REM 

HJ 810 DRTR 72, 173, 198,2,24, 105, 1 . 
KM 820 DRTR 141,10,212,141,198,2, 
141,24,208,104,64 
OZ 830 REM 

CD 840 DRTR 139, 155, 1 16,27,77,27* 
100,155 

GR 850 DRTR 219, 155,242,27,203,27 
,173,155 

L0 860 DRTR 189,99,160,35,158,35, 
129,99 

TZ 870 DRTR 140,155,159,99,130,99 
,139,155 

GU 880 DRTR 179,155,189,99,159,93 
. 178, 155 

Program nr 7 demonstruje sposób wy- 
drukowania komunikatu, w trybie GR. 1 
lub 2, zawierającego wielokolorowe znaki 
(do siedmiu kolorów jednocześnie). Każdy 
kolor występuje w jednej linii ekranu. 

FK 1 REM **************** 

FJ 2 REM * „ * 

BO 3 REM * Proaram nr 7 * 

FL 4 REM * * 

FO 5 REM **************** 

ML 6 REM 

WR 40 DIM MSS$< 120) 

GK 50 TRAP 1000 

0P 60 ? "PODAJ TRYB 1 LUB 2") ' IMF 
UT A'IF ROI AND fl<>2 THEN 60 
SJ 70 GOSUB 100 'GRAPHICS A+16 
DR 80 DL=PEEK<560)+25S*PEEK<561 )+ 
6 

FJ 90 FOR 1=0 TO 6 'POKE DL+ 1,133+ 
R ' NEXT I' GOTO 200 
OM 100 REM 

WP 110 POKE 82, 10 'POKE 83,29=? 

00 120 REM 

GP 130 ? >? "PODAJ TEKST" 

UO 140 INPUT MSS* ' RETURN 
ON 200 REM 

FF 210 FOR 1=0 TO 42 'RERD B=PQKE 
1553+1, B'NEXT I 

OE 220 DRTR 72, 138, 72, 152, 72, 162, 
0,141,10,212 

MO 230 DRTR 189,1,6,188,9,6,141,2 
4,298,140,25,208 

CE 240 DRTR 232,173,0,6,201,1,144 
,3,141,10,212 

XZ 250 DRTR 224,6,144,226,104,168 
,104,170,104,64 
00 300 REM 

NP 310 FOR 1=0 TO 73 'RERD C'P0KE 
1599+1, C=NEXT I'PQKE 1596,0 
IX 320 DRTR 72,138,72,173,60,6,20 
1,4,144,55,162,7 

KO 330 DRTR 173, 8, 6, 141 , 61 , 6, 173, 
9,6,141,62,6 

DU 340 DRTR 202,189,1,6,157,2,6 
TZ 350 DRTR 224,0,208,245,173,61, 
6 

00 360 DRTR 141,1,6,162,0,189,10, 
6,157,9,6,232,224,7,208,245, 17 
3,62,6,141,16,6,169,0 
BD 370 DRTR 141,60,6,238,60,6,104 
,170,104,76,98,228 
OP 400 REM 

WW 410 FOR 1=0 TO 7 'POKE 1537+1, ( 
8+I)*16+I*2'NEXT I 
MO 420 FOR 1=0 TO 7 'POKE 1545+I,< 
1+1 )*16+I*2'NEXT I 
VN 430 POKE 1536, R 
MI 490 POSITION 0,0>? #6;" " 

00 500 REM 

MS 510 POKE 512, 17 'POKE 513,6-POK 
E 54286,192. 

ZK 520 POKE 548, 63 'POKE 549,6'POK 
E 54286,192 

Z8 600 POSITION 1,2'? #6;MSS* 

MW 610 GOTO 610 

VY 1000 TRAP 40000 'GOTO 50 


Po wprowadzeniu programu i urucho- 
mieniu go będziemy proszeni o wybranie 
trybu (1 lub 2). Następnie musimy podać 
komunikat, który chcemy wyświetlać. 
Wielkie i małe litery będą miały swoje 
normalne kolory: pomarańczowy i jasno- 
zielony. Negatywy wielkich i małych liter 
będą wielokolorowe. Poszczególne kolory 
będą przesuwać się w przeciwnych kie- 
runkach. Maksymalna długość komunika- 
tu wynosi 120 znaków, lecz może być 
zmieniona (zmienna MSS$). Podczas wpro- 
wadzania marginesy są tak ustawione, 
symulują szerokość obrazu w trybie 1 lub 
2, aby łatwo było rozmieścić komunikat. 

Spójrzmy na linię 400. Dwie pętle 
FOR...NEXT przechowują różne wartości 
kolorów w tablicy, umieszczonej na stro- 
nie szóstej, dla użycia ich przez procedury 
obsługi DLI i VBI. Zauważmy, zawartości 
koloru i jaskrawości wzrastają dla każdej 
komórki, w rezultacie kolor i jaskrawość 
zmieniają się dla każdej linii ekranu. 

Jeśli chcemy, łatwo możemy zmienić te 
wartości dla otrzymania innych efektów. 
Na przykład, zachowując tę samą wartość 
jaskrawości, uzyskamy ostry kontrast mię- 
dzy kolorami. A dla otrzymania większćgo 
zakresu kolorów należy zmieniać numer 
koloru o więcej niż jeden dla każdej linii 
ekranu (np.: 1*16*1.2). Jest duża liczba 
możliwości, które możemy brać pod uwa- 
gę dla otrzymania pożądanego efektu, 

Procedura obsługi VBI zawarta jest w 
instrukcjach Data od linii 300. Jej funkcją 
jest cykliczna zmiana dwóch tablic kolo- 
rów, w różnych kierunkach, dla otrzyma- 
nia efektu ruchomej kurtyny. Jeśli chcemy 
mieć obraz z nieruchomymi kolorami, 
możemy wyeliminować procedurę obsłu- 
gi VBI przez usunięcie linii 520 i dodanie 
POKE 54286, 192 do linii 510. 

Inną łatwą modyfikacją jest zmiana 
szybkości rotacji kolorów. Liczba 4 po 
liczbie 201 w linii 320 steruje szybkością 
zmian. Zmniejszenie tej liczby zwiększa 
szybkość rotacji; zwiększenie jej — 
zmniejsza. Zauważmy, że maksymalną 
liczbą jet 255. Jeśli przekroczymy tę wiel- 
kość, zostanie zarejestrowany błąd, który 
zostanie przechwycony przez TRAP (linia 
50); spowoduje to rozpoczęcie działania 
programu od początku. I tak będzie do 
chwili poprawienia błędnej wartości dla 
POKE. 

Podczas przygotowywania tego artykułu 
korzystaliśmy z opisów i przykładów za- 
wartych w „De Re Atari”, „Second book 
of Atari graphics” oraz „Second bpok of 
Atari”. 


UWAGA! 

Dwa znaki z lewej strony numeru li- 
nii nie są częścią programu, lecz sumą 
kontrolną linii dla Edytora BASICu 
(„IKS” nr 4 z 87 r.). Nie wprowadzamy 
ich do komputera. 

Występujące w programach pod- 
kreślone znaki należy wprowadzić 
w negatywie. 

Tomasz MROWIEĆ 
Ludwik PIELA 
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AMSTRAD 



Grafika trójwymiarowa 


40 REM ******************************* 

45 REM grafika tro j wymi arowa 

47 REM ******************************* 

50 BORDER Os INK 0,1: INK 1.26: INK 2, 21 s IN 
K 3, 17: MODĘ 1 : DEG 

60 sc-18: ti 1 t=0. 45: mag=400/sc : da=43: hl r- 
7: vex-10 

70 DIM z <sc + l , sc + 1 ) , scrd (sc + 1 , sc + 1 , 2) 

80 PRINT" obliczanie współrzędnych baz 
owych" 

90 FOR x=sc TO 0 STEP -IsLOCATE 19,12:PE 
N 1 : PR I NT x i LOCATE 15,25;PEN 2:PRINT "PR 
OSZE CZEKAC" i FOR y-0 TO sc 
100 a-ATN ( <x+l ) / (y+1 ) ) : IF SGN(a>— 1 THEN 
a=180-a 

).10 r«SQR< (x + l) A 2+(y+l)'''2) 

120 scrd (x , y, 1 ) =mag*r*C0S (da+a) 

130 scrd (x , y, 2) =mag*r*SIN (da+a) *tilt 
140 NEXT y,x 
150 REM 

160 WHILE 1 : MODĘ 1 : BORDER 0 
170 ERASE ziDIM z (sc+1 , sc+ 1 ) 

180 PEN 2: LOCATE 9,2: PRINT CHRS(24)j" GR 
AFIKA TRÓJWYMIAROWA "»CHR*<24) 

190 INK 1,0: W INDÓW 1 1 , 30, 4, 21 1 PAPER 1 : CL 
SiWINDOW 12,29,5,20: PAPER OiCLSiINK 1,26 
200 PRINT: PEN 3 
210 PRINT" WYBIERZ FUNKCJE" 

220 PRINT 

230 PRINT 

240 PRINT: PEN 1 

250 PRINT" 1-czarna dziura" 

260 PRINT" 2-biala dziura" 

270 PRINT" 3-falowanie" 

280 PRINT” 4-uderzenia" 

290 PRINT" 5-plusk" 

300 PRINT" 6-zalamania" 

310 PRINT" 7-wzgorze" 

320 PRINT" 8-falda" 

330 INK 1,26: WHILE INKEY*< >" " i WEND 

340 j-0: WHILE j<l OR j >8 : j-VAL ( INKEY4) : 

WEND 

3S0 PEN 3: PRINT: PRINT" obi i cz eni a , . . " : PE 
N 1 

360 ÓN j GOSUB 610,670.710,760,810,870,1 
080, 1130 
370 REM 

380 MODĘ 2 x DRAW 639, O, 1 : DRAWR O, 399: DRAW 
O, 399: DRAW 0,0 

390 BORDER 10 :ORIGIN 320,4,1,638,2,396 
400 REM 

410 FOR x=sc TO O STEP -1:F0R y-sc TO O 
STEP -1 

420 sxO— scrd <x , y, 1 > : syO-scrd (x , y, 2) +vex * 
z (x , y ) 

430 sx l»scrd (x + l , y, 1 ) : syl=scrd (x + l , y, 2) + 
vex #x (x+l , y> 

440 sx2-scrd (x , y+1 , 1 ) : sy2=scrd <x , y+1 , 2) + 
vex *z (x , y+1 ) 

450 IF x < > sc THEN GOSUB 520 
460 IF y<> sc THEN GOSUB 560 
.470 NEXT y,x 


480 WINDOW 1, 1, 1,25: PRINT CHR* (24) ; "naci 
śnij dowolny klawisz "{CHR*(24>j 
490 WHILE INKEY* <> " " : WEND: CALL &BB18 
500 WEND 
510 REM 

520 PLOT 1000,1000,0 

530 FOR n-1 TO hlr:MOVE sxO, syO-n*2: DRAW 
sxl,syl-n*2:NEXT 
540 MOVE sx0, syO: DRAW sx 1 . sy 1 , 1 
550 RETURN 

560 PLOT 1000,1000,0 

570 FOR n»l TO hlr:MOVE sxO, sy0-2*n : DRAW 
sx2,sy2-n*2:NEXT 
580 MOOE sxO, syO: DRAW sx2,sy2,l 
590 RETURN 
600 REM 
610 REM 

620 FOR x»0 TO scłFOR y-0 TO sc 

630 z <x,y> — ( (20/ < (x-sc/2+0. 25) ^2+ (y-sc/ 

2+0. 25) ^2) ł > 

640 NEXT y , x 
650 RETURN 
660 REM 

670 FOR x«0 TO scsFOR y-0 TO sc 

680 z (x , y ) - ( 15/ ( <x-»c/2+0. 25) ^2+ <y-sc/2+ 

0.23) A 2) ) 

690 NEXT y , x 
700 RETURN 
710 REM 

720 FOR x=0 TO sc:FOR y-0 TO sc 
730 z <x,y) -COS < (x+y) *600/sc) 

740 NEXT y , x 
750 RETURN 
760 REM 

770 FOR x»0 TO sc:FOR y-0 TO sc 

780 z (x, y > -COS (x *1000/sc) +SIN(y*1000/sc) 

/VO NEXT y , x 

800 RETURN 

810 REM 

820 FOR x-0 TO sc:FOR y-0 TO sc 

830 q= <x-sc/2) ^2+ (y-sc/2) A 2 

840 z <x,y)-COS(q#B) / (0.01* <q+0. 1) ) 

850 NEXT y,x 
860 RETURN 
870 REM 

880 RANDOMIZE TI ME: FOR i=l TO 35 
890 sl=RND*3+l : s2=RND*3+l 
900 IF s2-sl THEN 890 
910 d l-RND4sc : d2=RND*sc 

920 dO-d 1 : ON sl GOSUB 1040,1050,1060,107 
O: ec 1 (O) -a : ec 1 ( 1 ) =b 

930 d0-d2: ON s2 GOSUB 1040,1050,1060,107 
O: ec2 (O) -a: ec2 ( 1 ) -b 

940 IF ec 1 (O) -ec2 (O) AND ec 1 ( 1 ) =ec2 ( 1 ) T 
HEN 910 

950 IF ec 1 (O) >ec2 (O) THEN t0=ec 1 (O) l t 1-e 
cl (1) :ecl (O) =ec2 (O) :ecl (l)*ec2(l) :ec2(0) 
-tO: ec2 ( 1 ) -t 1 

960 xd-ec2(0) -ecl (O) : IF xd-0 THEN m-0:G0 
TO 980 

970 m= (ec2 < 1 ) -ec 1 ( 1 ) ) /xd 
980 c=ecl <1 >-m4 (ecl (O) ) 




SPECTRUM 

Spectrum pomoże dobrze 
gospodarować materiałem 

Jan RUBINOWICZ 

DfiTS 0 , 72 , 83 , S6 , 64 , 19£ , 1S6 .0,0, 
120,66,66,66,66,126,0: REM »b»AB 
110 OLS : INPUT "DflUGOSC MfiTERI 

RRU (3 do 32) ",dU 
120 IF dl»>3S OR dt»<3 OR dlmo 
INT dl» THEN 6EEP 1,-10; GO TO 1 
10 

130 INPUT "SZTUK MRTERIRRU <3 d 
O 22 ) ";sztKi 

140 IF m»)S2 OR SZUi<3 OR szt' 
NO INT SZU THEN BEEP 1,-10: GO 

TO 130 

1S0 DIM lt(5Zt«i,iil«) : DIM r <sz t 

fil ) 

16C PRINT AT 5.11; FLASH 1; 6RI 
GHT 1; " CZEKAJ ! : FOR n = l TO S 

Z Ul: BEEP .03. £6: FOR «*1 TO dl. W 
: LET MS (n ,M) *"6" : NEXT M : NEXT 
n : CLS 

170 FOR n=l TO tzt»: LET r(n)=d 
U..; NEXT n 
180 LET K=1 

190 INPUT "DAUGOSC ELEMENTU ” ; < 
CHRs (64- + *) ) ; " (HflX. Cd In) ; ") 

; d le 

£00 IF d l e > d Ui OR d >. € < 1 OR d le < 

> INT dte THEN BEEP .5.2: GO TO 1 
90 

210 INPUT "SZTUK ELEMENTU " ; (Ch 
RS (64+K) ) ; " sz te 
220 IF sz te <1 OR szteoIMT szte 
THEN BEEP .5,2: GO TO 21© 

230 DIM e sidle) 

240 FOR n=2 TO dlt-1: LET es(n) 
=CMRS (64+K): NEXT n : LET.eS(l) = 
LET eS(dle)r">" 

250 FOR n = 1 TO szt»: IF r<n)>sd 
te AND SZ te >0 THEN LET tt.S(n,l+dl 
w-f(n) TO d le*d iw-r <n) ) =eS: LET 
r (n) *r (n) -d le : LET szteaszte-1; 

GO TO 250 
260 NEXT n 

270 IF SZ te >0 THEN BEEP 1,-10: 
PRINT AT 3,5, BRIGHT 1; FLASH 1; 

" ZRBRRKRO MATERIAAU ! " : LET £Z 
tra=£Ztra+l: GO TO 140 
260 PRINT RT 0,0; : FOR n=l TO £ 

Z t Ki : BEEP .01,n: PRINT TRB (16-d 
tra/2); PRPER 6; BRIGHT l;ras<n): 
NEXT n 

290 LET reszta=0 
300 FOR nsl TO sztm: LET reszta 
=reszta+r ( n > : NEXT n: PRINT tt0;A 
T 0,0;- RESZTA = ", reszta; RT 1,0 
WYKORZYSTANIE MATERIAAU "; .01 
* INT ( 10000 * (dlra*sztm-reszta) /(d 
Uitsztii) ) ;" X" 

305 IF reszta s0 THEN PAUSE 0: G 
O TO 100 

310 PAUSE 300: LET KsK+l: GO TO 
190 

600 CLS : PRINT 

Niniejszy program pozwala na 
optymalny r o z K r o j materiałów 
o długości do 32 jednosteK 
n-a Krótsze odcinKi z wyKorzy- 
staniem pozostałych odpadow." 
810 PAUSE 0 . GO TO 10O 
900 SAUE "ROZ KTOj" LINĘ 600 : BE 
ER .2,6: CLS : PRINT '"Uerify: 

P.OZ Krój": UERIFY GO TO 100 


990 d=ROUND(RND) *2-1 

1000 FOR x»0 TO sc : FOR y=0 TO sc 

1010 IF y>m*x+c THEN z <x , y) =z <x , y) +d 

1020 NEXT y , x , i 

1030 RETURN 

1040 a=d0:b=0: RETURN 

1050 a-dOib*sc: RETURN 

1060 a«0:b*d0s RETURN 

1070 a»scsb*=d 0 5 RETURN 

1080 REM 

1090 FOR x=»0 TO scsFOR y=0 TO sc 

1100 z <x,y)=MAX( <0.4*sc-SQR( (x-sc/2)^2+( 

y-sc/2)-2) ) ,0> 

1110 NEXT y,x 
1120 RETURN 
1130 REM 

1140 FOR x«0 TO sci FOR y=0 TO sc 
1 150 q- <x-sc/2) '■'3- (y-sc/2) -"3- (sc/6) A 3 
1160 z <x,y)=MAX ( ABS <q ) 1 /3) *SGN(q) ,0) 
1170 NEXT y,x 
1180 RETURN 


Informatyka 
w wojsku 


Wciśnięcie właściwych cyfr zamka szy- 
frowego sprawia, że ciężkie, obite blachę 
drzwi, otwierają się automatycznie. Do 
środka, mogą dostać się tylko ci. którzy zna- 
ją ten szyfr • obowiązujący tu język Od- 
mienny od tych. których nauczają w szko- 
łach. rzec można wyjątkowy — język kom- 
puterów. 

To prawda już dziś banalna. Współczesna 
nauka i technika odmieniły nasze życie. 
Nigdy jeszcze w historii człowiek nie wymyś- 
lił tak wiele, w tak krótkim czasie Dziś każdy 
dzień nadaje tym słowom szczególny sens 
Nie można sobie wyobrazić obecnie żadnej 
dziedziny ludzkiej aktywności bez najnowo- 
cześniejszych osiągnięć współczesnej 
techniki czy elektroniki. Dlatego trzeba, na 
co dzień, być z nią za pan brat. 

Ba, ale czy w naszych warunkach jest to 
obecnie możliwe? Zwłaszcza, jeśli na te no- 
wości elektroniki patrzy się przez pryzmat 
cen komputerów i oprzyrządowania do nich. 
To prawda W cywilu wciąż jeszcze nie dla 
wszystkich jest ten sprzęt dostępny A jak 
jest w wojsku’ 

Utechniczmenie, komputeryzacja, postęp 
racjonalizacja. W armii ich znaczenie jest 
trudne do przecenienia. Nie jest dziś dla ni- 
kogo tajemnicą, że każda nowinka techni- 
czna. zanim zostanie wprzęgnięta na usługi 
ludności, trafia najpierw pod wojskowy ka- 
pelusz Poza tym współczesne uzbrojenie, 
którym posługują się codziennie żołnierze, 
to skomplikowany, nafaszerowany elektro- 
niką. jak dobry placek rodzynkami, sprzęt 

Pizykład pierwszy z brzegu. We współ- 
czesnym czołgu, albo armato-haubicy, naj- 
trudniejsze. najbardziej czasochłonne pra- 
ce, wykonuje elektronika. Komputer, na 
spółkę z laserem, w kilka sekund ustalą od- 
ległości do celów i podadzą właściwe na- 
stawy do prowadzenia celnego ognia Spe- 
cjalne urządzenia samoczynnie załaduj 
działo i -wyrzucą łuskę po wystrzale, potrafią 


ostrzegać o zagrożeniu bronią masowego 
rażenia, same — jeśli zajdzie taka potrzeba 
— uruchomią system gaszenia ognia w wo- 
zie bojowym 

Dlatego właśnie technika nie może mieć 
dla żadnego żołnierza tajemnic. Podczas 
służby wojskowej młodzi ludzie poznają jej 
tajniki i uczą innych posługiwania się nią Bo 
nawet najnowocześniejszy sprzęt pozosta- 
nie jedynie kupą żelastwa, jeśli nie będą go 
obsługiwać specjaliści najwyższej klasy. 
Rozumieć i znać technikę, to w wojsku wy- 
maganie dotyczące wszystkich — żołnierzy 
i dowódców. 

Właśnie tu. za obitymi żelazem drzwiami, 
w ośrodku przetwarzania danych Pomor- 
skiego Okręgu Wojskowego, widać to najle- 
piej. Wszystko, co się dzieje w środku, ma 
ściśle tajny charakter. Dlatego tak bardzo 
dba się tutaj o ochronę tajemnicy wojsko- 
wej. Wszędzie elektroniczne zamki oraz 
przeróżne zabezpieczenia, które uniemożli- 
wiają praktycznie dostanie się do środka 
komuś niepowołanemu 

I czystość. Niewiarygodna czystość. Płó- 
cienne ochraniacze na buty. klimatyzacja 
zapewniająca stałą temperaturę w pomie- 
szczeniach. Kurz i pył są bowiem wrogami 
komputerów. Zwłaszcza że pracują bardzo 
długo. W ośrodku komputerowym mają za- 
trudnienie przez cały, dopuszczalny instruk- 
cją. czas Wystarczy zobaczyć, jak ogromna 
ilość dysków magnetycznych składa się na 
tutejszy bank informacji, aby mieć wyobra- 
żenie o rozmachu działalności wojskowych 
elektroników, głównie absolwentów wydzia- 
łu cybernetyki Wojskowej Akademii Techni- 
cznej. 

Na tych dyskach zapisane zostały dane 
do wszystkich systemów informatycznych 
Chor. Andrzej Rohuka twierdzi, ze mają tutaj 
nieograniczoną możliwość przesyłania da- 
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i n =97 TO 

112 : PRINT HO; BRIOMT 1;«T 0,2* 

in-97);CHR$ (31*n ) ; : NEXT n 

6 FOR n =97 TO 112: PRINT 80; R 
T 1 .2* (n-97) ;ckr$ ln>;: NEKT n 
10 PRUSE 0. LET a=COOE 1NKEY*: 
1F 1 >95 RND a <113 TMEN BEEP .01 
,26: PRINT 8RIGHT 1;CHR$ (31*1); 

15 IF a =12 OR a =4-8 THEN BEEP . 
02,-10: PRINT RT 24-PEEK 23689,3 
2-PEEK 23688;" " ; RT 24.-PEEK 2363 
9,32-PEEK 23688; _ 

17 IF PEEK 23688=33 RND PEEK 2 
3689 <24 THEN POKE 23689, PEEK (23 
689) +1: POKE 23638,1 

20 IF 1=115 THEN PRINT 80;RT 0 
, 0 ; " 

SRVE "semi 9 ra f i K-SCREEN* 
2S 50 TO 10 

30 SROE "SEMIGRRFIK" LINĘ 1 


nych za pomocą urządzeń transmisji da- 
nych do bardzo wielu abonentów. I to z każ- 
dej dziedziny życia i pracy żołnierzy okręgu 
Od racjonalnego gospodarowania poczyna- 
jąc, a na kontroli podzespołów i części za- 
miennych kończąc. 

Bo komputery mogą dosłownie wszystko. 
W ich pamięci zapisano dane umożliwiające 
efektywne kierowanie i dowodzenie woj- 
skami w koszarach i w polu Wystarczy .na- 
cisnąć guzik", a komputer równie łatwo 
wydrukuje plakat zespołu młodzieżowego, 
jak udzieli aktualnych informacji o wyposa- 
żeniu i uzbrojeniu pododdziału z najdalej po- 
łożonego garnizonu Ba, jeśli jest taka po- 
trzeba, może być ona wydrukowana z szyb- 
kością np, tysiąca wierszy na minutę i do- 
starczona w te| formie adresatowi 

W ośrodku obsługujący komputery spec- 
jaliści i specjalistki twierdzą, ze jedynej rze- 
czy. której jeszcze nie potrafią robić. to... go- 
tować. Ale za książkę kucharską mogą słu- 
żyć znakomicie. Ale poważnie. 

— Komputery u nas ciężko pracują — 
mówi operator systemu informatycznego — 
Oprócz dostarczania danych, dokonują tak- 
że analizy różnych zagadnień taktycznych, 
wskazują najbardziej efektywne sposoby 
przemieszczania wojsk w terenie, obliczają 
siły i środki niezbędne do wykonania okreś- 
lonego zadania, wskazuią ilość i jakość za- 
pasów 

Dlatego też oprócz stacjonarnego, jest 
także połowy zestaw komputerowy, nie- 
zbędny. jak się okazuje, podczas działania 
wojsk w polu Bez komputerów praca do- 
wódców oraz oficerów sztabu byłaby żmud- 
na i uciążliwa. A tak? Życzy sobie szef służ- 
by jakieś dane — proszę bardzo! Komputer 
się nie męczy, jest na każde polecenie 

— Nie ma praktycznie w naszych jed- 
nostkach dziedziny służby i pracy — tłuma- 
czył oficer kierujący ośrodkiem — w której 
komputer nie miałby zastosowania. Nawet 
jadłospisy układa. Posiłek żołnierza zawie- 
rać przecież musi określoną ilość kalorii, 
odpowiednio muszą być użyte — i we właś- 
ciwych ilościach — najróżniejsze składniki 
Dla człowieka to kawał roboty, a dla kompu- 
tera — fraszka. 

One programują trasy przejazdów samo- 
chodów. aby nie przewoziły powietrza, liczą 
pieniądze i kontrolują konta, pomagają gos- 
podarować mieszkaniami oraz kierować 
zaopatrzeniem, a nawet... kontrolować 
obecność i efektywność pracy kadry i żoł- 
nierzy w jednostkach i instytucjach wojsko- 
wych 

Specjalny system informacyjny pozwala 
służbie dyżurnej na wyjątkowo szybkie 
otrzymanie informacji na ten temat. Wystar- 
czy tylko podnieść słuchawkę. Komputero- 
wy system kontroli gotowość i' bojowej i nad- 
zoru pracy potrafi także rozliczyć każdego z 
wykonanych przez niego zadań dziennych, 
a także tygodniowych i miesięcznych 

Nowoczesna technika mocno zakorzeniła 
się w wojsku. Dziś. bez pomocy elektroniki, 
'trudno byłoby skutecznie dowodzić i efek- 
tywnie się szkolić. I będzie ona zmieniać 
obraz naszego życia w dalszym ciągu. W 
zespole informatyków POW zainstalowano 
znowu mikrokomjwtery nowszej generacji. 
Opracowuje się oprogramowanie dla kolej- 
nych systemów informacyjnych Elektronika 
w żołnierskiej rogatywce czuje się dobrze i 
służy armii skuteczną pomocą 

Włodzimierz KALETA 
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Funkcja i jej pochodna 


Niejednokrotnie każdy z Czytelników „IKS-a" rozwiązywał 
bądź też będzie rozwiązywał w przyszłości zadania z ma- 
tematyki, które zaczynają się od słów: zbadaj przebieg 
funkcji. Prezentowany poniżej program, napisany w języku 
BASIC na mikrokomputer AMSTRAD pomoże w rozwiąza- 
niu tego typu zadań. Program ten umożliwia wykreślenie 
funkcji pierwotnej i jej pierwszej pochodnej. Aby otrzymać 
te wykresy należy przed uruchomieniem programu w linię 
o numerze 80 wpisać postać funkcji pierwotnej. Daną 
wejściową jest liczba m, która ze względu na przyjętą me- 
todę wyznaczania, wartości pochodnej funkcji jest liczbą 
naturalną. Należy w tym miejscu zaznaczyć, że dokładność 
wyznaczenia wartości pochodnej zadanej funkcji rośnie 
wraz ze wzrostem liczby m. Przykładowo dla m = 2 uzy- 
skamy n = 2t m = 4, a dla m = 5 n -■ 32 wartości funkcji i jej 
pochodnej, trzeba o tym pamiętać przy skalowaniu wykre- 
su. W programie wartości funkcji pierwotnej zawiera tabli- 
ca a(i), zaś wartości jej pochodnej tablica c(i). Do progra- 
mu dołączony jest podprogram WYKRES. Daje on możli- 
wość wykonania na ekranie monitora wykresu funkcji 
pierwotnej i jej pierwszej pochodnej. Jest on mato wygodny 
w użyciu, gdyż nie zawiera automatycznego skalowania, 
bardziej wybrednym polecam programy wykonywania 
wykresów prezentowane na łamach ogólnodostępnych 
pism informatycznych. przytoczonym podprogramie 
zmienne do skalowania mają następujące znaczenie — sk 
- skala współrzędnej Y, sx - skala współrzędnej X, sp i sy 
określają rozmiar punktu, którym wykonywany jest wykres, 
co ma znaczenie ze względu na nakładanie się dwóch 
wykresów. 

S=:S=:S=:ljl:4 M:!;! 

V 


X 


W celu zilustrowania efektu, jaki można uzyskać posłu- 
gując się prezentowanym programem, na rysunku poka- 
zano wykres funkcji F(x) = PI * x + COS (Pi • x) dla m = 5. 

Metoda wyznaczania wartości pochodnej funkcji, którą 
posłużyłem się przy opracowywaniu przedstawionego pro- 
gramu, oparta jest na teorii szeregów ortogonalnych. 

Życzę przyjemnej zabawy. 

10 MOCE 2 

20 INPUT , «= , ;i 

30 n=2 A * 

40 om a (n+1 ) , c <n+l ) ,b(nłl) 

50 FOR i=t 70 ntl 

60 x=(i-ll/n 

70 tmtmt n unii so 


Zdzisław ŁUKASZEWICZ 

apisz postać funkcji lltiimi' 

30 a<i)=PI«*łC0S,tPI«xl 
30 NEXT i 

100 FOR i=l 10 ntPRINT a(i);:NEXT i 

110 FOR 1=1 TO n 

120 b(i)=((a!i)*a(i+l))/2)-a(l) 

130 NEXT i 
140 z=2 A !i*l) 

150 g=2 A (i+21 

160 FOR i=l TO n 

170 FOR j=l TO n 

100 IF j>i THEN 60T0 240 

130 1F i=j THEN 220 

200 c(i)=cfi)ł((-l) A (i*jnig»b!j> 

210 GOTO 230 

220 c(U=c(i)M(-l) A (iłjl)lztb(j) 

230 NEKT j 
240 NEXT i ' 

230 FOR i=l TO n 
260 PRINT clii; 

270 NEKT i 

280 FOR k=l TO 5000 

230 NETT k 

300 G0SUB 500 
310 S0SUB 700 
320 60S11B 570 
330 GOTO 330 

430 ’««»«« PODPROGRAM WYKRES lltttM’ 
500 CLS 

301 d=! 

510 FOR i =20 TO 580 
320 PLOT i,175 
530 NETT i 
340 FOR i =20 TO 350 
530 PLOT 20, i 
560 NETT i 

570 INPUT’sk=,5x=,5p=,sy=‘isk,5X,5p.5Y 
580 FOR i=0 TO n-1 
530 FOR j=l TO sp 
600 FOR k=l TO sy 

610 PLOT sxlił20tj,sk»a!i*l)łl60kk 

620 NETT k 

630 NETT j 

640 NETT i 

650 RETURN 

700 FOR i=l TO n 

710 a(il=c(i.) 

720 NETT i 
730 RETURN 



Jak jest pogoda? Przeważnie widzimy 
sami. Jednak chyba najbardziej interesuje 
nas. jaka będzie pogoda? A ponieważ jest 
ona bardzo zmienna i nie mamy na jej zmia- 
nę żadnego wpływu, przeto staramy się 
przewidywać — prognozować. Dawniej zaj- 
mowali się tym wróżbici. Gdy udało się im 
przewidzieć stan pogody — potwierdzali tym 
samym swoją moc magiczną. Jeśli nie, wte- 
dy zrzucali winę na moce nadprzyrodzone 
A dzisiaj 7 Niekiedy odwołujemy się je- 
szcze do wróżb. np. górali, albo „czujemy" 
pogodę w kościach. Najczęściej jednak 
słuchamy radia, patrzymy w telewizor, ufa- 
jąc, że nazajutrz nie musimy brać parasola 
do pracy, bądź wyjmować akumulatora z 
samochodu. Coraz bardziej ufamy progno- 
zom naukowym i jest już niewielu ludzi, któ- 
rzy na podstawie zjawisk zachodzących w 
atmosferze starają się na własny użytek 
przewidzieć pogodę. Ale też obrywa się sy- 
noptykom za niesprawdzone prognozy, bo 
takie się zdarzają — niestety. Mimo bardzo 
dokładnych i skomplikowanych metod po- 
miaru i określania pogody. Przyjrzyjmy się 
zatem, jak się to robi w świecie i u nas w kra- 
ju. Komu i czemu służą systemy meteorolo- 
giczne? 


METEOROLOGIA — część geo- 
fizyki. Nauka o atmosferze, jej 
budowie, właściwościach i prze- 
biegających w niej procesach fi- 
zycznych. Dużą część meteoro- 
logii, poświęconą klimatowi, wy- 
dziela się w samodzielną dyscy- 
plinę nauki — klimatologię. 


Z prognoz pogody najczęściej korzystają: 
lotnictwo, żegluga morska, rolnictwo oraz 
wiele przedsiębiorstw takich jak: stocznie, 
porty, bazy przeładunkowe, oczyszczania 
miast. Przykładów, gdy zlekceważono os- 
trzeżenia synoptyków o zbliżających się bu- 
rzach. opadach, mrozach, wiatrach, mgłach 
lub innych zjawiskach atmosferycznych 
można podać bardzo dużo. Z naszych, pol- 
skich doświadczeń, najbardziej pamiętnym 
będzie tzw. zima stulecia {chociaż wcale nią 
nie była, ale z uwagi na straty, tak ją okreś- 
lono) w roku 1978/79. Ściślej biorąc noc 
sylwestrowa z 31 na 1 stycznia, gdy nagły 
powiew chłodu sparaliżował większość kra- 
ju. Albo ostatnie zaskoczenie huraganem w 
Wielkiej Brytanii. Mimo ostrzeżeń francu- 
skich służb meteorologicznych i wskutek 
zlekceważenia własnej informacji z wybrze- 
ża, kataklizm pokonał wszystkie systemy 
zabezpieczeń A właśnie Wielka Brytania 
należy do państw szczycących się posia- 
daniem bardzo nowoczesnych systemów 
meteorologicznych. Jeśli jesteśmy już przy 
kraju wyspiarzy, przypomnijmy przykład 
właściwego wykorzystania pogody podczas 
inwazji w Normandii. Pewien major ze służby 
meteo przewidział niewielką poprawę pogo- 
dy. co spowodowało zupełne zaskoczenie u 
Niemców. Prognoza ta bowiem, choć bar- 
dzo ryzykowna, sprawdziła się wtedy. 

To tylko znane i głośne przykłady, kiedy 
człowiekowi udało się lub też nie, zapobiec 
skutkom żywiołów spowodowanych warun- 
kami atmosferycznymi. Niezaprzeczalne 
jest jednak to, że bardzo dobra znajomość 
stanu pogody i coraz doskonalsze opraco- 


wywanie prognoz po prostu się opłaca, Już 
dziś informacje meteorologiczne są towa- 
rem. W Polsce jeszcze daleko do stanu, jaki 
jest na Zachodzie, ale wszystko wskazuje 
na nieuchronność tego zjawiska. Przyjrzyj- 
my się zatem technicznym aspektom opra- 
cowywania informacji o pogodzie. 

Instytut Meteorologii i Gospodarki 
Wodnej w Warszawie. Placówka naukowa, 
a zarazem instytucja zajmująca się spra- 
wami pogody, o której codziennie słyszymy 
w komunikatach prasowych, radiowych i te- 
lewizyjnych. W pomieszczeniu synoptyków 
bezustannie trwa opracowywanie danych. 
Pochodzą one z trzech źródeł: pomiarów 
naziemnych, satelitarnych, radarów meteo- 
rologicznych. A więc informacje punktowe, 
globalne i przestrzenne w. zasięgu radaru. 

— Podstawą do prognozy jest zebranie 
materiału obserwacyjnego — wyjaśnia mgr 
inż Ryszard Klejnowski, zastępca dyrekto- 
ra IMiGW do spraw Prognoz. — / to co naj- 
mniej z całej półkuli północnej w czasie rze- 
czywistym. Jest właśnie godzina dziewiąta. 


O tej porze na całym świecie dokonuje ob- 
serwacji w klatkach pomiarowych około 8 
tysięcy ludzi jednocześnie. 


SŁUŻBA POGODY. Organizacja, 
której zadaniem jest zapewnienie 
informacji o bieżących i progno- 
zowanych warunkach atmosfe- 
rycznych całej gospodarce naro- 
dowej i obronie kraju. Służba po- 
gody IMGW liczy w Polsc 62 sta- 
cje meteorologiczne oraz 8 biur: 
Białystok, Gdynia, Kraków, Po- 
znań, Szczecin, Wrocław, War- 
szawa. 


W ciągu 1 0 minut wszystkie dane z Polski 
przekazuje się natychmiast drogą teleksową 
do GTS (Globalny System Telekomunika- 
cyjny) przez regionalne centrum meteorolo- *! 
giczne w Pradze. Przesyła się je także do Ja! 
sąsiadów w Moskwie i Berlinie. Praktycznie j a , 


POGODA Z KOI 

Marek 



Uzyskaliśmy atoaunkowo wysoką, bo 86 procont, sprawdzalność 
codziennych prognoz meteorologicznych — podkreśla mgr Inż. 
Ryszard Klejnowski. 



Na razie mapy pogody kreślą u nas jeszcze ludzie. Ale niedługo 
bądą to robiły komputery. 

(Foto: Jan Zelman) 


już w 1 5 minut po pomiarze znane s 
pomiarów z całego świata. Co goc 
konuje się tych pomiarów. Infor 
Europy otrzymujemy co godzinę, a 2 
co 3 godziny regularnie przez całą i 

Na stole głównego synoptyka, 
przypadku był to Jerzy Bednarek, 
się wszystkie potrzebne dane, w tyn 
satelitarne. Z satelity geostacjo 
METEOSAT-2 oraz orbitującego 
Oprócz tego liczne komunikaty ze s 
darowych, od sąsiadów, poprzez it 
noptyczne, tj. sprzed kilku godzin t 
przednich dni. Ale okazuje się to jes 
wystarczające. Im więcej bowien - 
godnych informacji w zasięgu ręki s 
ka, tym lepiej. Bo tym lepiej można 
dzieć pogodę. Jednak natłok inform 
obecnie tak duży, że trudno je prz 
opracować metodą ręczną. Niezbęd 
się wprzęgnięcie techniki komputer? 
prawdę znają wszyscy meteorolog 
nak względy czysto finansowe powl 
nie stać nas na najnowszy sprzęt, i 

Cały świat przechodzi już na zali 
zowane systemy gromadzenia i opi 
wania danych, ich selekcję, anali 
prognozowanie, a następnie dystryt 
formacji. Dziś mówi się już o fabryc 
macji dotyczących stanu atmosfer 
kto potrafi je wszystkie wykorzystał 
mieć trafniejsze prognozy, 

Zostańmy więc jeszcze przez c 
sali głównego synoptyka kraju w IM 
opracowanie mapy synoptycznej po 
on około dwóch godzin Wykreśla 
na podstawie danych nanoszonych 
pę przez innych ludzi z nim współ| 
cych. Obszar obejmuje całą Euro 
nocną część Afryki, Azję i Atlantyk p 
landię. 





k »ię robi mapę pogody dla prasy? Pokazał nam to Michał 
sforski, który tego dnia pełnił dyżur. 

UIPUTERA 


SIENIAWSKI, Tadeusz BERLIŃSKI 


Dane te koreluje na podstawie zdjęć sateli- 
tarnych. I natychmiast przesyła odbiorcom. 

Rola synoptyka ogranicza się do znajo- 
mości sytuacji i zgodnie z tym ostrzegania, 
podawania prognoz natychmiastowych oraz 
średnio- i długoterminowych. Zapotrzebo- 
wanie na informacje meteorologiczne wzra- 
sta. Głównie zaś na informacje dla lotnictwa 
i sił zbrojnych. To właśnie względy militarne, 
a na drugim miejscu potrzeby meteorologi- 
czne tworzą siłę napędową do budowy su- 
perszybkich komputerów. Obecnie docho- 
dzi jeszcze fizyka jądrowa, 

Najszybszy komputer CRAY-1 pracuje w 
Światowym Centrum Meteorologicznych 
Prognoz w Waszyngtonie oraz Regionalnym 
Europejskim Centrum Prognoz Średnioter- 
minowych w BRACKNEL (Wielka Brytania). 
Jest to wspólna inwestycja EWG CRAY-1 
musi wykonać 500 miliardów operacji aryt- 
metycznych, aby postawić prognozę na 1 0 
dni. Przy szybkości 80 min operacji na se- 
kundę trwa to 1 godzinę i 45 sekund. ODRA- 
-1305 robiłaby to 2 miesiące. 

Światowa Organizacja Meteorologiczna 
(WMO), której członkiem jest także Polska, 
składa się z 3 podsystemów: 

— Obserwacja. 8 tys. stacji synoptycznych, 
1500 stacji aerologicznych, 350 radiolinio- 
wych, 4 satelity geostacjonarne, 3—5 sate- 
litów orbitujących, 6500 stacji morskich. 
Przekazuje na dobę 40 min bajtów informa- 
cji. 
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Obecnie już niewiele państw na świacie 
zajmuje się ręcznym wykreślaniem map sy- 
noptycznych. Właściwie wszystko robią za 
człowieka komputery. Potrafią one bardzo 
szybko 


— Telekomunikacja. Przesyła informacje 
przetworzone do centrów narodowych, re- 
gionalnych i światowych. 

— Przetwarzanie. Analiza, diagnozowanie i 
prognozowanie pogody na podstawie na- 


Wyże, niże, zjawiska I elementy meteorologiczne, to wszystko widać na mapie pogody. Kpt. 
Andrzej Waloryszak, synoptyk wojskowy z CBH wyjaśnia, jaka będzie nazajutrz pogoda. 


ne dane bez pomocy człowieka, Synoptyk 
otrzymuje już gotowe przetworzone infor- 
macje. I na tej podstawie oraz opierając się 
na swoim doświadczeniu, znanych zjawi- 
skach, mając dzięki temu przestrzenne 
wyobrażenie o stanie atmosfery — progno- 
zuje. Najczęściej piórem świetlnym na ek- 
ranie monitora. Określa kierunki, przemie- 
szczania mas powietrza i rozwoju sytuacji. 


W WMO główną rolę odgrywają centra 
światowe połączone telekomunikacyjną 
magistralą światową. Zasadniczą prędkoś- 
cią jest obecnie 2400 bodów, a na niektó- 
rych kierunkach stosuje się już 9600 dzięki 
światłowodom i łączności satelitarnej. Do 
Warszawy na dobę docierać może 14 min 
bajtów. Cóż z tego, skoro nie jesteśmy w 
stanie przetworzyć tej ilości informacji. 


ŚWIATOWA SŁUŻBA POGODY. 
Sieć stacji meteorologicznych i 
aerologicznych oraz innych 
środków obserwacji (satelity, 
sondy) działających według glo- 
balnego programu oraz centra 
meteorologiczne. Sieć łączności 
do wymiany i przetwarzania da- 
nych., Program badań nauko- 
wych. . 

światowe centra meteorologicz- 
ne: Moskwa, Waszyngton, Mel- 
bourne. IMGW jest krajowym 
centrum meteorologicznym. Po- 
łączone z centrami w: Moskwie. 
Pradze, Poczdamie. Przez Re- 
gionalną Zbiornicę Telekomuni- 
kacyjną w Pradze połączone z 
Regionalnym Centrum Meteoro- 
logicznym w Offenbach. 


W IMGW wkracza, powoli co prawda, ale 
jednak, najnowsza technika komputerowa 
do wspomagania pracy synoptyka. W gabi- 
necie dyrektora Klejnowskiego możemy zo- 
baczyć. na razie program próbny, kompute- 
rowego zobrazowania danych, przetworzo- 
nych na podstawie napływających informa- 
cji ze świata i kraju. Natomiast w sali głów- 
nego synoptyka już pracuje rejestrator 
obrazów satelitarnych na barwnym monito- 
rze telewizyjnym. Dzięki współpracy z Poli- 
techniką Wrocławską zbudowano i zainsta- 
lowano w 1985 roku w Krakowie pierwszy 
uniwersalny zestaw do odbioru satelitar- 
nych danych meteorologicznych o podwyż- 
szonej zdolności rozdzielczej z satelitów 
TIROS, NOAA wraz z procesorem obrazów 
pogody. W ten sposób uzyskano możliwości 
odbioru obrazu satelitarnego, pozwalające- 
go na precyzyjniejsze określenie temperatu- 
ry powierzchni lądów, mórz i chmur. 

Jarosław Mojzych na monitorze kompu- 
tera IBM AT prezentuje możliwości barwne- 
go przedstawiania sytuacji meteorologi- 
cznej pochodzącej z satelity geostacjonar- 
nego METEOSAT. Są to obrazy temperatu- 
rowe, wykonane techniką podczerwieni, a 
więc bez względu na porę dnia. Obrazy do- 
cierają co 1 godzinę systemem fotografii, a 
na komputerze co 30 minut. Komputer ani- 
muje te zmiany, co pozwala zobrazować 
ruch mas powietrza. 

Obok Michał Jaworski pokazuje, jak się 
robi na komputerze mapki pogody dla pras^ 
codziennej. Mapa taka powstaje w niespeł 
na godzinę. Jedną z nich, aktualną w dnii 
oddawania „IKS-a" prezentujemy na pier 
wszej stronie pisma. 

PROGNOZA POGODY. Sporzą- 
dzanie naukowo uzasadnionych 
przewidywań o przyszłym stanie 
pogody. Sporządza się metodą 
analizy i prognozy makroproce- 
sorów w atmosferze oraz warun- 
ków pogody na dużych obsza- 
rach za pomocą map synopty- 
cznych i dodatkowych środków 
(diagramy aerologiczne, przekro- 
je pionowe itd.). 


Mgr Inż, Ryszard Klejnow 

IMGW: Mimo nietypowego w ubiegłym ro 


♦ FRONT ATMOSFERYCZNY. Stre- 

fa przejściowa lub teoretyczna 
powierzchnia rozdziału między 
dwiema masami powietrza w at- 
mosferze. 

NiŻ (cyklon) zaburzenie w at- 
mosferze o obniżonym ciśnieniu 
atmosferycznym (minimalne ciś- 
nienie w centrum) i cyrkulacji 
powietrza dokoła centrum. W le- 
wo na półkuli północnej i w pra- 
wo na półkuli południowej. 

WYŻ (antycyklon) wyż baryczny 
— obszar podwyższonego ciś- 
nienia atmosferycznego, który na 
przyziemnych (dolnych) mapach 
synoptycznych ma kształt ukła- 
dów zamkniętych, w przybliżeniu 
koncentrycznych izobar o kształ- 
tach nieregularnych, lecz na ogół 
kolistych lub owalnych. 


na początku bieżącego — przebiegu pogo- 
dy. uzyskaliśmy stosunkowo wysoką spraw- 
dzalność codziennych prognoz meteorolo- 
gicznych — około 86 proc. W pełni wywiąza- 
liśmy się z funkcji ostrzegania gospodarki 
narodowej Nie zanotowano żadnej katas- 
trofy komunikacyjnej, czy też strat gospo- 
darczych związanych z brakiem ostrzeżenia 
prognostycznego. 

Rek 1 987 był przełomowym w zakresie 
modernizacji służby prognoz IMGW Wpro- 
wadzano technikę mikrokomputerową. 
Pozwoliła na to samodzielność finansowa 
instytutu. Uzyskaliśmy 5 mid zł ze sprzedaży 
naszych usług. Pracuiemy nad syste- 
mami przetwarzania i odoioru danych sateli- 
tarnych oraz metodyki ich wykorzystania w 
służbie prognoz. Przełomem stało się zasto- 
sowanie komputerów IBM PC. Dysponujemy 
unikatową aparaturą, wykonaną w kraju, 
pozwalającą na zastosowanie danych sate- 
litarnych nie tylko w meteorologii, ale rów- 
nież w hydro- i oceanografii, ochronie śro- 
dowiska rolnictwie i leśnictwie. 

— Zespół w składzie: Marek i Ludmiła 
Kozłowscy (małżeństwo), Przemysław Igna- 
towicz oraz Stanisław Kozłowski od kwietnia 
1987 roku zajmuje się opracowaniem sy- 
stemu odbioru i opracowania informacji me- 
teorologicznych zawartych w depeszach 
SYNOP, TEMP, GRID przy użyciu mikro- 
komputeróvr kompatybilnych z IBM 
*C/AT/XT — mówi dr Anna Olszowicz 



kierownik Centralnego Biura Prognoz w 
Warszawie. 

Efekty już widać na monitorach. Kompu- 
ter sam kreśli izobary, nanosi dane odbiera- 
ne ze stacji pomiarowych Barwy pozwalają 
na rozróżnianie istotnych elementów pogo- 
dy. 

— Najsłabszym elementem systemu są 
sieci do transmisji danych między kompute- 
rami — dodaje dr Olszowicz — Próbowa- 
liśmy sieć TRANS-NET i się nie sprawdziła. 
Obecnie robimy eksperymenty z siecią 
D-LINK. także amerykańską. 

Zajrzyjmy jeszcze do meteorologów z 
Wojsk Obrony Powietrznej Kraju 

— Bardzo istotne jest przekazywanie in- 
formacji meteorologicznych odbiorcom, 
czyli na lotniska wojskowe — mówi mjr dr 
mż Leonard Kaczanowski i dowództwa 
WOPK. — Sytuacje pogodowe zmieniają się 
z godziny na godzinę. Piloci wojskowi muszą 
mieć bardzo aktualne i wiarygodne infor- 
macje. Dlatego komputeryzu/emy służbę. 
Warunkują to także prace międzynarodo- 
we, skąd również czerpiemy informacje i 
dane. 

Na przykład tuż po wojnie obowiązywał 
system przekazywania informacji alłabetem 
Morsea i operatorzy wprost z radia nanosili 
dane na mapy, O błąd nietrudno, a dane nie 
były już powtarzane Potem przeszło się na 
łączność dalekopisową I w 1981 roku 
Europa zrezygnowała z łączności dalekopi- 
sowej na korzyść teletransmisji. Mówi się juZ 
poważnie o przejściu na łączność w syste- 
mie cyfrowym. 

W wojsku przeważnie sporządza się 
prognozy krótkoterminowe. Gdy zbliża się 
termin lotów lub ćwiczeń, wówczas rozpo- 
czyna się gorączka w służbie meteo. Zresz- 
tą tu pracuje się bez przerwy. Prognozy dla 
lotnictwa wojskowego muszą być aktualne 
w każdej chwili. 


Elementy meteorologiczne. Cha- 
rakterystyki stanu powietrza i 
niektórych procesów atmosfery- 
cznych: ciśnienie, temperatura, 
wilgotność, wiatr, zachmurzenie 
(ilość, rodzaj), widzialność, ro- 
dzaj I ilość, opadów. 

Zjawiska meteorologiczne. Są to: 
opady i mgły różnych typów, 
zamiecie, zjawiska natury elek- 
trycznej takie jak: burze, błyska- 
wice, zorze polarne, szkwały, bu- 
rze pyłowe, wiry, trąby powietrz- 
ne, igły lodowe, gołoiedż, po- 
krywa śnieżna. 


Bywa i tak niekiedy, że za złą pogodę wini 
się meteorologów. Sypią się też gromy, gdy 
nad poligonem się przejaśni i mogłoby dzia- 
łać lotnictwo, ale służba meteo nie zezwala. 
Tylko że nikt nie rozumie, iż na odległych 
lotniskach pogoda jest zła zarówno do star- 
tu, jak i przede wszystkim do lądowania. No 
cóż, bywa i tak. że meteorologów dowódcy 
oceniają nie tyle za prognozę, ile za pogodę. 
Najczęściej też widzi się tych 1 0 proc. nie- 
sprawdzonych prognoz — stwierdza jeden z 
meteorologów wojskowych. — Na zasadzie 
czarnej owcy w stadzie. 

A praca ta nie jest łatwa. Zajmuje się nią 
Służba Meteorologiczna WOPK Informacje 


odbierane są różeywM systemami i przeka- 
zywane do komputera MERA-60. Również z 
IMGW, Pragi. Moskwy. Komputer ten przyj- 
muje i rozsyła informacje do wszystkich lot- 
nisk wojskowych w Polsce i sojuszniczych. 
Kiedyś wszystkie prace wykonywało 5 osób. 
Teraz komputer pracuje sam. Ppłk mgr inż. 
Maciej Ostrowski blokuje na chwilę kom- 
puter i ten po minucie emituje sygnał alar- 
mowy. Natychmiast zgłasza się technik 
chor. Zbigniew Paćkowskl, który usuwa 
przyczynę awarii. Możemy spytać o pogodę 
na dowolnym lotnisku w Europie. Wybieram 
z mapy kod lotniska w Neapolu — IY LIRN. 
Podpułkownik wypisuje daną na klawiaturze 
mikrokomputera sprzężonego z MERA-60. 
W niespełna minutę mamy dane za pośred- 
nictwem biura regionalnego w Pradze: wiatr 
zachodni 7 węzłów, widzialność 8 km, zam- 
glenie. zachmurzenie %, stratocumulus 750 
metrów. I dalej dane o przewidywanych 
zmianach. 

— Ten komputer załatwia sprawy zwią- 
zane z telekomunikacją — mówi kierownik 
biura. — Obecnie pracujemy nad wdroże- 
niem do pracy plotera przy użyciu kompute- 
ra IBM Będzie on wpisywać na mapę te 
wszystkie dane. które dotąd zapisywali lu- 
dzie. 

Także tutaj wykorzystuje się faksymilowe 
zdjęcia satelitarne i wiele innych informacji 
ze źródeł zagranicznych. Dyżurny synoptyk, 
ppłk Klemens Bartysiewicz. zaznajamia z 
wykreśloną mapą synoptyczną Wiemy więc 
o wiele więcej o stanie pogody i prognozie 
na najbliższych 10 godzin, aniżeli z telewizji. 
Możemy potwierdzić, że prognoza na na- 
stępny dzień się sprawdziła. 

Służba meteo opracowała i uruchomiła 
system NIMBUS, obsługujący wejścia i 
wyjścia: dalekopisowe, transmisji danych i 
urządzeń zewnętrznych. Zapewniło to roz- 
poznanie typu informacji (wg światowego 
standardu służby meteo), czasu nadawania, 
numeru stacji i następnie przesyłanie infor- 
macji do urządzeń zewnętrznych oraz mik- 
rokomputerów. Zastosowano przy tym 15 
wniosków racjonalizatorskich i nowator- 
skich. Szybko też wdrożono obsługi biur lot- 
niskowych, nadające depesze do kompute- 
ra. Ten bowiem bezlitośnie traktuje wszyst- 
kie niedokładności, a błędne informacje 
zwraca nadawcy, do czasu ich poprawienia. 
NIMBUS zastąpił pracę 10 ludzi, zmniejszył 
opóźnienie zobrazowania stanu pogody na 
lotniskach do zera. Dotąd opóźnienie wyno- 
siło 15—20 minut. Pracuje się jednak nad 
tym, aby wspomagać proces opracowywa- 
nia prognoz pogody bez udziału ludzi, formu- 
łować komunikaty na przeloty, ostrzeżenia o 
niebezpiecznych zjawiskach pogodowych. 

Biuro Prognoz Lotniczych w Kansas City 
(USA) zastąpiło 9 biur regionalnych, daje 
prognozy na obszar 30 razy większy od Pol- 
ski i pracuje z częstotliwością 3—4 razy 
większą Zatrudnia połowę jego stanu oso- 
bowego Jest więc 200 razy wydajniejszy. 
Zastosowano w nim 4 systemy komputero- 
we 2 zewnętrzne (łączność i prognozy tor- 
nad) oraz do wspomagania synoptyka i re- 
dagowania prognozy pogody. 

A jaką pogodę będziemy mieli jeszcze tej 
kapryśnej zimy, jaka będzie wiosna? Wierz- 
cie, to naprawdę nie zalezy od meteorolo- 

0<Sw ' Marek SIENIAWSKI 
Tadeusz BERLIŃSKI 


Lila vati (cz. II) 


Rozstawienie żołnierzy na warcie 


W drugim odcinku cyklu poświę- 
conego anegdotom matematycznym, 
chciałbym przedstawić rozstawianie 
żołnierzy na warcie („LILAVATI” 
— anegdota nr 16). Treść historyjki 
jest następująca: 

„Na kwadratowe podwórze zbro- 
jowni wszedł porucznik z oddziałem 
żołnierzy w celu rozstawienia warty. 
Postawił wzdłuż każdej ściany 4 żoł- 
nierzy i się oddalił. Po chwili przybył 
kapitan i uważając, że warta nie jest 
dostateczna, umieścił wzdłuż każdej 
ściany 5 wartowników. Wreszcie na 
podwórzu zbrojowni zjawił się major 
i wzdłuż ściany umieścił 6 żołnierzy. 
Jakie było rozstawienie żołnierzy w 
1, 2 i 3 przypadku, jeśli wszyscy trzej 
oficerowie rozporządzali tym samym 
oddziałem”. 

Na ekranie mikrokomputera po- 
dwórze to zielony prostokąt, a budy- 
nek zbrojowni, to czarna ramka. Na 
podwórzu rozstawionych jest 8 po- 
numerowanych posterunków (budki 
wartownicze). Zasady gry są nastę- 
pujące: 

1. Gra składa się z 3, kolejno po 

sobie następujących, etapów: 

I — rozprowadzający : 

porucznik ,* 

II — rozprowadzający : 

kapitan ; 

III — rozprowadzający: 

major; 


— podaniu numeru posterunku; 

— podaniu kodu literowego żoł- 
nierza , którego chcemy roz- 
stawić. 

— Po podaniu numeru poste- 
runku na pierwszym wolnym 
miejscu w tej budce wartow- 
niczej pojawia się czerwony 
kwadrat. 

5. Rozstawiać można wartownika 
z dwuszeregu, dopuszczalne jest 
przestawienie go z posterunku na 
inny posterunek. 


Mieczysław SKONIECZNY 


6. Kolejjiy etap gry kończy się suk- 
cesem, gdy grający rozmieści na 
posterunkach wszystkich war- 
towników z dwuszeregu, a liczba 
żołnierzy chroniących każdą 
ścianę będzie zgodna z wymaga- 
niami tego etapu. 

7. Użytkownik wygrywa grę, gdy 
zakończy sukcesem wszystkie 
3 etapy ( koniec pracy progra- 
mu). 

Wersja źródłowa programu jest następująca: 


1 rwigłł(l)** Poruczmk"zran9a*(2)*“ Kapitan , :ran9a*t3)=* Major' 

5 DIM szereg (12) :D!M budka(8,3):DIN suca(B) 

10 BORDER t»: INK 0, IB: INK 1,0:INK 2,26:INK 3,6:PAPER 0:CLS:60SUB 9000 
50 DATA 3,3,20,3,14,1.3,11,36,11,3,19,20,19,34,19 
70 PAPER 0: CIS: BORDER 18:PEN 1 

80 PRINT'Na podwórzu zbrojowni wszedł porucznik z oddziale* 12 żołnierzy. Rozstawił wzdluz każdej ściany 

4 żołnierzy i odd 

al 11 sle po wykonaniu zadania.* 

90 PRINT:PRlNT*Po chwili przybył kapitan i uwazajac, zewarta nie jest dostateczna, rozstawił oddział w ten s 
posob, ze wzdluz każde 
j ściany stało 5 żołnierzy.* 

100 PRINI:PRINT'Nreszcie na podwórzu zjawił sie major i wzdluz każdej ściany ueiescil 6 żołnie- rzy.* 

110 PRINT:PRINT*Jakie było rozstawienie żołnierzy w 1,2 i 3 przypadku ? 

130 PEN ?:10CATE 1 , 25: PRINT "NACISNI J DOWOLNY KlANIS7'ic*="iIF INKEY»=cl THEN SOTO 130 
300 etapM 

310 BORDER 0:RE5T0RE SOsPAPER 0: CLSi POR c«I TO 8:REA0 a,b:60SUB »000:MEXT c 
313 PAPER IsLOCATE 1,1:F0R 1=1 TO 80tPRINT‘ *|:NEIT l 

320 L0CATI 1 , 1 : PEN 2:PRINT*Etap: ';U8IN6 "f ; etap; :L0CflTE 8,t:PRINfRozprowadzajicy:'|ranęiit(etapl 

330 60SUB 2000 

360 FOR t=l TO 2000:NEXT t 

370 FAPER 1:PEN 2:L0CATE l,l:PRINT'Kazda ścianę *a chronic *iUSIN6 ’t*jetapt3j:PRINT* wartowników* 

380 ruch*l:F0R i=l TO 12iszere<j(i)=64U:N£IT i 

390 FOR i*l TO 8:F0R j*l TO Sibudkali , j)*0:NEXT jsNEKT i 

<00 PAPER 0:PEN 2:LQCATE 9,4iPR]NT*Ruch: 'sruch 

410 10CATE 2 1 , 2 1 PWER liPRINT* 'iLOCATE l,2itNPUT 'Podaj nr posterunku: ",nrb 

420 IF nrb<! 0R nrb>8 60TQ 470 

430 blad*0:FOR i*l TO 5 

440 IF budkalnrb,i)>0 THEN blad=l 

450 NE1T i 

460 IF biadol 60T0 490 

470 L0CATE l,2:PRINT'Blad. Hprewadz poprawny parasetr. *:F0R T*1 TO I500:NEKT T 
480 60T0 410 

490 60SU8 3000: L0CATE Il,Yl:PEN 3:PRINT CHRS1143) 

300 PEN 2:L0CATE 21,2:PRINT* 'iLOCATE 1,2:INPUT 'Podaj kod wartownika: *,kod« 

SIO kodw=ASC(kodt):lF kodw<65 0R kodw>77 6010 560 

520 blad*0:F0R i*l TO 5 

530 IF budka(nrb,i)*kodw THEN blad=l 

340 NEXT i 

550 IF blad-0 60T0 5B0 

560 L0CATE 1,2zFR 1HT'B: ad. Uprowadź poprawny parasetr. *:F0R T«ł TO lSOOiNEKT T 
370 60T0 500 

580 IF SZERE6(kodw-64)=0 60T0 700 
590 y2=ll:F0R i =66 TO 76 STEP 2 
600 IF kodw=i THEN y2*13 
610 NEIT i 
620 FOR i=ł TO 6 

630 IF kodw=63+2ti 0R kodw=64+2*i 60T0 650 
640 NEST i 

650 PAPER 0u2=12*3ll:F0fi i»0 TO 2:L0CATE «2,y2*i:PRINT* *:N£XT i 
660 szereę(kodw-64)=0 

670 PEN 1 iLOCATE »l,y!:PRINT kod»:budka(nrb,h)=kodw:G0TD 800 


2. Posterunki są ponumerowane od 
I do 8, a wartownicy mają na- 
dane kody literowe od A do L (12 
żołnierzy). 

3. Maksymalnie na jednym poste- 
runku można postawić 5 war- 
towników, a minimalnie dopu- 
szcza się, że posterunek jest pu- 
sty. 

4. Umieszczenie wartownika na 
wybranym posterunku polega 
na: 



??: IF *1**2 ANS *2**3 AND *3**4 ANS *4*4 AND SUM THEN GOSIA 4000r.tip*,tiRM:60TO 310 

3*4 GOTO 400 

•00 IF etłp02 GOTO 020 

010 IF SUM AND *1**2 ANS *2**3 AND *3**4 AND *4*5 THEN GOSUB 4000iłt*p*»t*p«l:GOTO ISO 
•15 GOTO 400 

020 IF SUM AND *1**2 AND *2**3 AND sX**4 AND *4*6 THEN GOSUS 40O0(CLS»ST0P 
030 GOTO 400 


Do programu dołączono kilka podprogramów, które spełniają 
następujące funkcje: 

1 . Rysowanie jednego posterunku w obszarze zadanym para- 
metrami a, b (współrzędne znakowe szczytu daszku). 


1000 PAPER Ol POI tilOCAT! i.biPRINT CNRI(I89)|CMMU43)|CNR*U9«) 

1010 10CATE Ct.ktliNINT CMM(l(0l|CMItl|t}l|CMMll04l|CNMI103)[CMl«lt00) 

1020 lOCATt 4-2,8*21 PRI«t CIMl 101) |OMI 1431 |QM(102ir •|CHR*<l46J|CHN*U4:i|CMR9U47l 
1030 PAPER 3ilOCATC |-I,b*3:PRINT CHAIMR4I ilOCATf n3,b*3tPRI*T CMMIlOOlllOCATE rl,8*Sl 
POINT CHRłl 189li LOCATE 4*J,b‘3:PRINT CHRłl 

1001 

10*0 PAPER 2lPEN 3t LOCATt l-l,*»2iPRlNT CHRKI 801 ilKATE *ł3,b*2iP*II4T CHRIU40):L0CATC »- 
:.b*4:PRWT C**M80)ilOCATE A*3,bMiP*l*T 
DNMM001 

'■) lOCATt 1 -l.NHiPRir 0011 110) iLOCATE ł*3,b*6:PRIRT 0*011001 
1080 10CATE i«l,b:PRINT USINK *f*;ctPAPER 0 
MOO RETURN 


2. Wyrysowanie na ekranie oddziału 12 żołnierzy z kodami litero- 
wymi oraz rozprowadzającego (ranga rozprowadzającego jest 
uzależniona od etapu gry). 

2000 PAPER Oi PEN lm«63 

2010 NESTORE IOOOiFOR 4*13 TO 30 STEP IiFOR 8*11 TO 13 STEP » 

.'OSO GOSUI 2100I10CATE Hl,»*liRIPtR liPtN 2:PRINT CNRIiMiiwiMiPAPER OiPW lilSIł NiNElT 

2D30 ł*l(tb*l3:G09UR 21 OC 1 GOSUS 2200 
2040 RETURN 

. 2100 LOCATE i.biPRINT CHR*tl48>|CNRłM44)|CHR»(20«) 

1 2110 LOCATE l.bMiPRINT CHRII20ll|CHRb(l431|CHR«(202l 
' 2120 LOCATE i, b*2i P4UHT CHRO ( 203) 1 CMR* U 4 3 ) | CHR* ( 204 ) 

1 21TO RETURN 

2» 6RAPHICS PEN 2iON tt« GOTO 2210,2300,2400 
2210 POR «t*I48 TO 170 STEP -14 

2220 PLOT ltb.nriDRANR 2,0i8RANR 2,-2l0RANR -b,0i ORANA 0,-2l8RA«R A.OiCRANR -2,-2:tRAM) -2 

■OiNCIT »y 
• 2230 GOTO 2300 

2200 FOR «y*l9S TO IM STEP -10 

.22 1 0 PLOT Ub,*r:DRANR 2.0iłAAN* 2,-2i0RANR -b.OilRMA 0,-2:RRA« 0,0: RWA -2,-2ilRANR -2. 

. iKlt •» 
y.y> GOTO 7300 

2*00 PLOT IbA.IBRiDRANR 2,0iMANR 2,-2iDRANR -G.OłORANR 0,-2: ORAN* b.OlORAM -2,-2:DRANR • 

•flo PLOT 1S4, 1 Mi ORANA 26,0lDRANR 0,-2iDRANR -26,OiPLOT 132, liAiORANR TO.oiORANR 0,-2iORA 

• -30.0 

■ PETUPN 


3. Ustalenie współrzędnych znakowych pierwszego wolnego 
miejsca w budce wartowniczej (xl, yl). 

3000 11*4: IF NR0*2 0* *8*7 TH|N i|<| 

3010 IF NR8*3 OR NR8*5 OR NR8*i THEN 11*37 

3020 FOR H*l TO 3 

3030 IF RUDKA (NR8,H)*0 GOTO 3030 

3040 REIT H 

3030 YI»4*H: IF NRI-4 OR M8*3 TKR T1-T1»B 
3060 IF NR8*6 OR *»*’ OR NP 0*8 THE* TI*TI«IG 

3070 RETURN _ 

4. Zakończenie sukcesem dowolnego etapu gry. 

4000 PAPER CiPEN lilOCATE 13, !2:PR!NT a 0S!AGNAL£S SUKCES’ ILKATE 18, l4:f*INT’N ’| USTNE ’tt 
f|8UOM|iP«lNf RU044CH 

4010 PAPER tiPEN 21LOCATI l.lsPRINT* 8NAI0 

4030 FOR 1*0 TO 26l80RDER I 
4040 FOR T»1 TO IOOiNEKT TiNEIT I 
4050 RETURN 

5. Definiowanie własnych symboli graficznych wykorzystanych 
do rysowania budki i oddziału żołnierzy. 

4000 STARCI AFTER !9» 

4400 STH80L 143, 233, 233,233, 235,253, 254, 232, 248 

9410 SYHNl 144,233,233,233,233 

4420 SYNKU 143,233,233,253,233,235,127,63,31 

9430 SYH80L 194,13,7,3,1 

4440 STN801 ir, 0,128,142,24,240 

4450 SYR801 184,0,1.3,7, 13,31, 63, 127 

4460 5YN8CL 190,0,128,142,224,244,248,2*2,234 

4470 SYH801 141,8,1.3,7,13 

4480 SYHROC 142,240,224,142.128 

4440 SYH80L 198, 0,0, 0,0,1, ,1,1,1 

9500 SYMBOL 199,24,40,126.253,233,233,233,233 

9310 STH80L 200,0,8,0,0,128,128,128,128 

9320 JYH80L 281,1,3,3,3,3,3,7,7 

9330 SYN80L 202,128,142,192,142,192,192,224,224 

9340 SYR80L 203,7,7.7,13,13,13,13,13 

9330 SYMBOL 204,224,224,224,240,240,240,240,240 

9600 RETURN 

Życzę Czytelnikom sukcesów w kolejnych etapach gry. 

Bardziej dociekliwym proponuję rozwinięcie gry o 
etap 4. Łatwo bowiem zauważyć, że istnieje jeszcze 
jedno możliwe rozstawienie wartowników, w którym 
każdej ściany chroni 3 żołnierzy. Jakie? Poszukajcie 
sami. Rozprowadzającym w tym etapie mógłby być po- 
rucznik. 

Jożeli modyfikacja programu zakończy się powodze- 
niem, będzie to dodatkowa satysfakcja. 

Mieczysław SKONIECZNY 
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BASIC 


Powróćmy jeszcze do „poczciwego" Basica. 

W wykładzie tym omówimy operacje na tekstach oraz związane 
z tym odpowiednie instrukcje i funkcje. Zajmować będziemy się 
także tablicami alfanumerycznymi. 

Wykład ósmy: 

stałe, i zmienne proste alfanumeryczne, nadawanie „war- 
tości" zmiennej alfanumerycznej, łączenie tekstów (konka- 
tenacja), wybieranie tekstów (za pomocą TO), funkcje 
standardowe. i 

LEN, STR$, VAL, VAL$, CHR$, CODĘ, porównywani^ 
znaków (operatory relacji, instr. IF) tablice alfanumery- 
czne. 

Istnieje grupa problemów, których rozwiązanie opiera się na 
przetwarzaniu tekstów. Dla tych problemów tworzone są specjalne 
języki programowania zorientowane tylko na przekształcenie tek- 
stów, natomiast pozostałe języki są wzbogacane o różne operacje 
tekstowe. I tak jak w innych reprezentacjach języka BASIC, w BA- 
SIC-u na ZX-Spectrum wprowadzono zmienne alfanumeryczne 
proste i indeksowane, rozszerzono działania funkcjonalne instruk- 
cji podstawienia i warunkowej, wprowadzono funkcje standardo- 
we wykonujące operacje na tekstach. 

Tekstem w języku BASIC jest ciąg znaków. W wykładzie 2 i 3 
omawialiśmy stałe i zmienne proste alfanumeryczne, powtórzmy 
wybrane definicje, 

Stała alfanumeryczna (tekstowa) ma postać: 

„ciąg znaków" 

— ciąg znaków: dowolny ciąg znaków. 

— znaki cudzysłowu ograniczają stałą tekstową, nie należą do 
stałej, lecz jedynie wyznaczają jej początek i koniec, 

— tekst " " bez żadnego znaku zwany jest tekstem pustym. 

— tekst " " nie jest tekstem pustym, oznacza jedną spację; spa- 
cje wewnątrz cudzysłowu są znakami tekstu. 

Długością tekstu jest liczba znaków (ze znakami spacji włą- 
cznie) znajdujących się w ciągu. Maksymalna długość tekstu wy- 
nosi 255 znaków. 

Poniższe teksty mają następujące liczby znaków: 

„ZX SPECTRUM" — 1 1 znaków 

„WYNIK = a+b* c-d" —15 znaków 


wprowadzania (INPUT, READ, DATA) i wyprowadzania (PRINT) 
tekstów są już opanowane przez czytelnika. A więc włączamy 
komputer i zaczynamy. 


Przykład 8.1. 

a) Dany jest program: 



5 REM Pr 
10 INPUT 

z układ 0.1 
"as Ł";a«: 

RPINT 

"a* 

- 

as 

20 INPUT 

"bS 

PRINT 

•• bS 

= ’ 

•; bs 

30 INPUT 

‘CS -* i ci? 

PRINT 

"c* 


•;.ct 

4.0 INPUT 

’*d $ ='• ; dS ; 

PRINT 

"dl 

= ' 

* ; d * 

50 PRINT 

ai, bt. c $ ; 

dS 



60 LET eS = 3SV’ 

70 PRINT 
30 PRINT 
ów 1 4 < 3 t u 
90 PRINT 
O 12.' 

10® PRINT 
TO ) 

110 PRINT 
15) 

120 PRINT 
130 3T0P 


"♦b*V ••-ł-CS-f" 

"e$ s ";e$ 
"Wybierania fragment 
przy użyciu TO" 

£1 TO 5) . " : *•; es i T 

es (3 TO 10) , M : " ; e i (3 

e $ £ TO ) , " : “ ; e « ( l TO 

es o V": ";es ( 9 ) 


b) wyniki dla przykładowych danych 

a 3 

b £ = t o 

cs =Jest 

di -sp i e s 

fis to jest pies 

es == Rs to jest pies 


Analogicznie do pojęcia zmiennej prostej numerycznej istnieje 
pojęcie zmiennej prostej alfanumerycznej, której „wartością" jest 
tekst. Nazwa takiej zmiennej składa się z litery (tylko jednej), po 
której musi nastąpić znak dolara ($), np. a$, p$, r$ są nazwami 
zmiennych prostych alfanumerycznych. 

Z dotychczasowych wykładów wynika, że. 

— tekst może być zapamiętany pod nazwą zmiennej alfanume- 
rycznej. 

Nazwom zmiennych numerycznych można nadawać „wartoś- 
ci", używając instrukcji LET lub INPUT lub ze zbioru DATA instruk- 
cją READ np. 

20 LET m $ — "mały" 
lub 

10 INPUT m$ 

(z klawiatury wprowadzamy: „mały") 
lub 

30 READ mS 
100 DATA "mały" 

— tekst może być wydrukowany instrukcją PRINT: „bezpoś- 
rednio" np.: 

40 PRINT "mały” 

można też wydrukować tekst zapamiętany pod zmienną alfanume- 
ryczną np.: 

20 LET m $ = "mały” 

40 PRINT m $ 

Do tekstów można stosować wszystkie operatory relacji, a tym 
samym instrukcję IF. 

Kolejne operacje na tekstach wraz z dotychczas poznanymi 
zostaną omówione na przykładach. Zakładamy, że instrukcje 


,J 'J b i s r a o i £ ' f r a q m « n t o w » * k. s t u 
przy użyciu TO 

fis to ; Rs to P 

to jest : to jest 

Rs to j e s t p i e *i : Rs to jest Pies 
fi s to Jest Pies •. s 

Do przenoszenia tekstów między zmiennymi alfanumerycznymi 
oraz do przypisywania zmiennym „wartości" stałych alfanumery- 
cznych służy instrukcja podstawienia postaci: 
n LET V =e 

n — nr wiersza, 

V — nazwa zmiennej alfanumerycznej. 

e — wyrażenie tekstowe 

Wyrażenie tekstowe może być stałą lub zmienną alfanumery- 
czną — prostą lub indeksowaną, standardową lub definiowaną 
funkcję alfanumeryczną. Elementy wyrażenia tekstowego można 
łączyć operatorem konkatenacji. oznaczanym symbolicznie zna- 
kiem plus (+) tworząc jeden tekst, Postać i wykonanie tej instrukcji 
jest analogiczne do arytmetycznej instrukcji podstawieni? (por j 
wykład 2) 

I tak wykonanie instrukcji: 

60 LET e$ = a$ + b$ 4- c$ + d$ 
spowoduje przypisanie (nadanie) zmiennej alfanumerycznej ef 
wartości będącej tekstem utworzonym z 4 tekstów (przez sumo 
wanie). 
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t Mając dany tekst można wyróżnić jako jego fragment dowolny 
" iekst składający się z części jego kolejnych znaków ustawionych 
w tym samym porządku. 

Instrukcja zwana wybieraniem służąca do określenia Iragmentu 
dowolnego tekstu (w BASIC-u na ZX Spectrum) ma postać: 
wyrażenie tekstowe (p TO k) 

— wyrażenie tekstowe; jak wyżej. 

— P, k — stałe lub zmienne numeryczne całkowite), określają- 
ce odpowiednio: początek (p), koniec (k), wybieranego tekstu i 
muszą odnosić się do istniejących części tekstu. 

bp.; 

"abcdet" (2 TO 5) — "bodę" 

Obowiązuje tu kilka reguł: 

— jeżeli pominiemy początek (TO k), to zakłada się, że jest on 
równy 1 i wybrane zostaną znaki od 1 do k — tego — danego wy- 

. rażenia tekstowego, 

— jeżeli pominiemy koniec (p TO), to zakłada się, że jest on 
równy ostatniemu znakowi i wybrane zostaną znaki od p — tego 
do ostatniego danego wyrażenia tekstowego, 

— napisanie (TO) lub () powoduje wybranie wszystkich znaków 
tekstu, 

— napisanie (m) ( m — stała lub zmienna określająca liczbę 
całkowitą), powoduje wybranie m — tego znaku tekstu (m <; od 
liczby znaków tekstu), 

— jeżeli p > k (początek > koniec), to efektem jest tekst pusty, 

— jeżeli k > / (koniec > liczby znaków wyrażenia tekstowego) 
to będzie sygnalizowany błąd: 

3 subscript wrong 
(zły indeks) 

— jeżeli początek lub koniec są liczbami ujemnymi (p < 0 lub k 
< 0 ) to będzie sygnalizowany błąd: 

B integer out of rangę 
(liczba całkowita poza zakresem) 

Prostą ilustracją obowiązujących reguł są instrukcje o 
nr, 80 -r 120 w programie z przykładu 8.1 . 

Analizę wykonania tych instrukcji pozostawiamy czytelnikowi, 
zalecając wykonanie tego programu dla różnych tekstów 
(zwracając uwagę na różną długość tych tekstów). 

W celu ugruntowania nowych wiadomości wprowadźmy i wyko- 
najmy następujące programy: 


Przykład 8.2. 

a) Dany jest program: 


I ii REM Przykład 8. 2 
20 LET W5x-k3\arynk.ą'‘ 
30 FOR fi =1 TQ 3 ■ 

40 PR INT i'J $ łn TO 9) 

50 MEXT n 

60 STOP 


b) wyniki; 


kąuryn k =» 
a rynka 
t b r y n K a 
a r y n k a 

rynka 

ynka 
n ka 
ka 
a 


Przykład 8.3. 

a) dany jest program: 


10 REM Przykład 8.3 
£0 LET r» ^"warszawianka" 

30 FOR n = .l TO 13 
4 0 PR INT p * ( n TO 12 ) , p $ < < 12 -n + 
TO 13) 

50 NEXT n 
60 STOP 


b) wyniki: 


• a r s z a w i a n k a 
a r s z a w i a n k a 
r s z a ij.i i a n k a 
sza i a n k a 
z a w i a r i k a 
a '».■ i a n k a 
w i a n k a 
i a n k a 
a n k a 
nk a 
k a 
a 


a 

ka 
n k a 
•an k a 
ianka 
wianka 
a w i a n k a 
z a mi ianka 
s- z a w i a n k a 
r s z a w i a n k a 
a r s z a w i a n k a 
w arsz a w ianka 


Programy z przykładów 8.2 i 8.3 radzimy wykonać kilka razy. 
zmieniając stałą tekstową w instrukcji o nr. 20 

Przykład 8.4. 

a) Dany jest program; 


10 

20 

30 

4-0 

50 

60 

70 

80 

90 

100 

110 

120 

125 

2*Wi« 

130 

W 

). " I X 


REM przykład 8.4 
INPUT "Twoje imię? "ilt 
INPUT "Twoje nazwisko? 
L.ET x * = i * .n * 

LET «#rl* + " "+n* 

PRIMT "Nazywam si«: " 

PR INT 'X* 

PR INT 'y* 

LET koLEN (1*1 
LET msLEN <n S) 

LET p*LEtl (i * + ni) 

LET t *LEM <tS + " "4n*l 

'Twoje im i * : 1 

' znaki (owi" 
'Twoje nazwisko: 
m ; " znaki (ow) " 
teks*, w zmienne 


PR INT 

Sr int k • 
awiera 
PR INT 


t; " zawiera 


J x * 
pi" z n a k ł i o w ) 


1S0.PRINT '"Iekst w zmiennej w* 
•, < W*) ■ zawiera ";t;" znaki (ow) 

180 STOP 


b) wyniki dla przykładowych danych: 

Nszywaft sł«: 

Kazimierzfibackł 
Kazimierz Rbacki 

Twoje imię: Kazimierz zawiera 9 
znaki (ow) 

Twoje nazwisko: Rbacki zawiera S 
znaki (ow) 

tekst w zmiennej x* : KazlmierzRt 
acki zawiera 18 znaki (ow) 

tekst w zmiennej u*: Kazimierz 
Rbacki zawiera 17 znaki (ow) 


W wykładzie 3 omawialiśmy funkcje standardowe, służące do 
obliczania wartości podstawowych funkcji matematycznych. Te- 
raz omówimy funkcje standardowe służące do „wykonywania ob- 
liczeń" na tekstach 

W programie z przykładu 8,4 w instrukcjach o nr. 90. 100, 110, 
120 występuje funkcja o nazwie LEN. 

Funkcja LEN oblicza długość tekstu, jej 
argumentem jest tekst, którego długość 
chcemy obliczyć, a wartością (wynikiem) — 
jego długość. 

Weźmy pod uwagę instrukcję: 

110 LET p = LEN (X$) 

115 LET t = LEN (Y$) 

i zapiszemy je w następujący sposób 

110 LET p = LEN (1$) + LEN (N$) 

(i) 115 LET t = LEN (1$) + LEN f ") + LEN (N$) 
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lub 


110 LET p = LEN (1$ + N$) 

(ii) 115 LET t = LEN (1$ + " " + N$) 

Dokonajmy zmian w programie i sprawdźmy podane kombina- 
cje tych instrukcji. Za każdym razem otrzymamy ten sam wynik 
(dla tego samego imienia i nazwiska). 

Zobrazowaliśmy na przykładzie następującą regułę: — jeśli w 
jednym wyrażeniu wystąpią funkcje i operacje, wówczas funkcje 
będą obliczane przed operacjami, Regułę tę można ominąć przez 
użycie nawiasów, 

I tak w przypadku (i) obliczane są długość (liczba znaków) od- 
powiednich tekstów, a potem sumowane są te długości, natomiast 
w przypadku (ii) tworzony jest nowy tekst (przez sumowanie), a po- 
tem obliczana jest jego długość. 

Zastosujmy funkcję LEN w programach z przykładów 8.2 i 8.3: 


a 


10 

ao 

as 

30 

35 


4.0 

*9 

50 


REM Przykład 3.3.1 

LET w s a"kons t an tynopo Li t ank 


LET k=LEN (Ufi) 
FOR n=l TO K 
REM nie powinien 
żaden błąd - 
•30sc tekstu 
PRINT W S (n TO K) 
NEXT n 
STOP 


wystąpić 
znamy dlu- 


5 

10 

20 

30 

50 

50 

70 

•50 

'30 

100 

110 

120 

130 

140 

150 

150 

s t 

170 


rem Przykład 3.5 
LET x =354710 
LET X 4 sSTR S (X) 

PRINT X,XS 
PRINT 'x«(2 TO 4) 
PRINT # x*(l TO 3) 

LET a S=x 4 (4 TO ) 

LET b*URL (as) 

PRINT '34, b 
LET CS*X4(3) 

LET d=URL (CS) 

PRINT ' C 4 . d 

LET y=URL £"15*3") 

LET Z=URL <"15"*"*3") 
PRINT y.z 
LET wSsURLS ( 


‘ to 


es t 


LET q*=łJRLS ( i tO tez 


180 PRINT 'wS.dS 

130 LET P*a"inny tekst" 

200 LET r*a"i jeszcze inny" 
210 PRINT URLS ("PS") ,<JRL* 
$") 

320 STOP 


tek 


("r 


b) wyniki: 

354710 ' 354710 

547 


oto wyniki dla przykładowych danych 


konstantynopotitanka 
onstantynopo Li tanka 
ns tan tynopo Li tanka 
stantynopo Li tanka 
tan tynopo L i tan k a 
antynopo Li tanka 
n tynopo L i tanka 
tynopo L i tan ka 
ynopotitanka 
nopo Li tanka 

0 po L i tanka 
po L i tanka 
otitanka 

L i tanka 

1 t a n k a 
tanka 
anka 

n ka 

ka 

a 


10 REM P I* Z y K Lad 8.3.1 
30 LET p«s"to jest bajka" 

25 LET mcLEN (PS) 

30 for ; n = i to m 

40 PRINT PS(n TO M) ,pt((#-ntl) 
TO ITO 
50 NEXT n 
50 STOP 

ofo wyniki dla przykładowych danych 


to . jes t ba j k a 
o jest bajka 
jest bajka 
jest bajka 
est bajka 
st bajka 
t b a j k a 
bajka 
bajka 
a j k a 
j ka 
ka 
a 


Przykład 8.5. 

a) Dany jest program: 


a 

ka 
j k a 
a jk a 
bajki 
bajka 
t bajka 
bajka 
est bajka 
jest bajka 
jest bajka 
o jest bajka 
to jest bajka 


354 


710 

710 

4 

4 

45 

45 

to jest tekst 

i to tez 

inny tekst 

i jeszcze 


W powyższym programie (przykład 8.5) zastosowano inne fun- 
kcje standardowe 

Funkcja STR$ zmienia liczbę na tekst; jej argumentem 
jest liczba, a wartością (wynikłem) tekst, innymi słowy 
przekształca liczbę do postaci tekstowej. 

Umożliwia ona stosowanie instrukc|i wybierania (TO) w celu 
wydzielenia poszczególnych cyfr liczby. 

Instrukcje (przykład 8.5) o numerach 10 -i- 70 ilustrują wykona- 
nie funkcji STR$. 

I tak wykonanie instrukcji: 

10 LET x = 354710 
20 LET x$ = STR$ (x) 

da taki sam rezultat jak wykonanie instrukcji: 

25 LET x$ = 354710 

Funkcja VAL zamienia tekst na liczbę, jej argumentem jest 
tekst, a wartością (wynikiem) — wartość numeryczna tekstu 
(liczba). 

Argumentem funkcji VAL jest wyrażenie numeryczne podane w 
postaci ciągu znaków Jeżeli wyrażenie to nie przedstawia po- 
prawnego (w języku BASIC) wyrażenia numerycznego, sygnalizo- 
wany jest błąd: 

© Nonsens in BASIC 

Instrukcje (przykład 8.5) o numerach 80-5-120 ilustrują wykona- 
nie funkcji VAL, gdy argumentem jest tekst będący stałą numery- 
czną. Natomiast instrukcje: 

130 LET y = VAL ("15-3") 

140 LET z = VAL (" 15 " + " * 3 ") 

ilustrują wykonanie funkcji VAL, gdy argumentem jest tekst zawie- 
rający wyrażenia numeryczne podane w postaci ciągu znaków, W 
wyniku wykonania tych instrukcji otrzymamy y = z = 45. 

Wykonanie instr, 1 40 przebiega w następujący sposób: 

— argument traktowany jest jako tekst, tzn. z wyrażenia 
tekstowego ” 1 5 " + " * 3 " otrzymujemy tekst "15*3" 


— następnie po odrzuceniu cudzysłowów i wykonaniu 
mnożenia oraz funkcji VAL otrzymujemy liczbę 45 

— zmiennej z zostaje przypisana wartość 45 
Funkcja VAl$ jest podobna do funkcji V A L . 

zarówno jej argument, jak i wartość (wyniki) 
s g tekstami Wykonanie tej funkcji (podobnie jak funkcji 
VAL) przebiega w dwóch krokach: najpierw argument obliczany 
jest jako tekst, a po odrzuceniu cudzysłowów, cokolwiek by to by- 
ło. jest traktowane jako inny tekst. 

Argument funkcji VAL$ jest tekstem, a więc musi być napisany 
w cudzysłowach (“ "). Stąd tez w instrukcjach 160. 170 mamy po- 
trójne cudzysłowy np : VAL$ (" " “ (to jest tekst) " " “) 


. . i 


(•) — to są cudzysłowy ograniczające stałą tekstową: to jest tekst 
— to są cudzysłowy argumentu funkcji VAL$ 

Jeżeli wewnątrz cudzysłowu określającego stałą tekstową chcę 
napisać tekst w cudzysłowach, to te cudzysłowy muszę napisać 
podwójnie itd. np. wykonując instrukcję: 


PRINT przykład 


otrzymamy napis' "przykład" 
Natomiast w instrukcji postaci 


210 PRINT VAL$ (" p$ "). VAL$ (" r$ ") 


występujące cudzysłowy są cudzysłowami argumentu funkcji 
VAL$. którym jest zmienna alfanumeryczna. 

Litery, cyfry znaki przestankowe itd. pojawiające się w tekstach 
ogólnie zwiemy znakami. Tworzą one alfabet, jest to zestaw zna- 
ków, którymi ZX Spectrum może się posługiwać. Większość z tych 
znaków to znaki pojedyncze, lecz istnieją także symbole złożone 
jak INPUT. FOR. STOP. < > itd. 

Istnieie 256 znaków i każdemu z nich przypisana jest liczba 
zwana kodem, z przedziału 0 do 255. Kompletna ich lista zawarta 
jesrw dodatku A podręcznika ZX Spectrum BASIC programming 

Do zamiany znaku na kod i z powrotem używane są dwie funk- 
cje: CODĘ I CHR$ 

Funkcja CODĘ podaje kod pierwszego znaku danego tek- 
stu, jej argumentem jest tekst, a wartością (wynikiem) liczba 
będąca kodem pierwszego znaku (jeżeli tekst jest pusty, to 
wynik równa się zero (0)). 

Funkcja CHR$ podaje znak odpowiadający danemu kodo- 
wi, jej argumentem jest liczba z zakresu < 0, 255 > (kod), a 
wartością (wynikiem) jest znak, którego kodem jest dana licz- 
ba 

Poniższy program wypisuje zestaw znaków o kodach od 32 do 
164. 

Przykład 8.6. 

a) Dany jest program: 


■54. 

•55 

55 

70 

72 

74 


55 

57 

59 

71 

73 

75 


a 


i 

K 


Na wynikach widzimy liczby dziesiętne, a obok odpowiadający 
im znak. Są to spacja. 15 symboli i znaków przestankowych, dzie- 
sięć cyfr. siedem dalszych symboli, duże litery, sześć symboli, ma- 
łe litery oraz pięć symboli. Wszystkie (oprócz £ i ©) należą do pow- 
szechnie stosowanego zestawu znaków graficznych znanego jako 
ASCII (American Standard Codes for Information Interchange — 
amerykańskie kody standardowe do wymiany informacji) ASCII 
określa również kody tych znaków i one właśnie stosowane są w 
ZX Spectrum. 

Pozostałe znaki nie są częścią ASCII i są specyficzne dla ZX 
Spectrum. Jest to 16 znaków symboli graficznych („grafiki"), które 
mogą być używane do rysowania obrazków (por wykład 7 i 8) 
oraz 21 symboli, które wyglądają na kopię liter alfabetu od A do V 
Są to symbole, które możemy zdefiniować — grafiki użytkownika 
Zastępując instr. 20 w przykładzie 8.6 instrukcją: 


20 FOR i = 1 65 TO 255 STEP 2 


(po wykonaniu programu) otrzymamy symbole złożone ZX Spec- 
trum wraz z odpowiadającymi im kodami. Pierwsze 32 znaki o ko- 
dach od 0 do 31 określają znaki kontrolne Nie dają one niczego, 
co dałoby się wypisać, lecz tworzą pewien mniej uchwytny ęfekt 
na ekranie, albo są używane do kontrolowania czegoś poza ekra- 
nem, a na ekranie zobaczymy znak ? napisany na znak. że ich 
komputer nie rozumie 

Trzy z tych, które używane są przez ekran, mają kody 6, 8, 12 
CHR$ 16 pisze spacje na tej samej zasadzie, co przecinek w ins- 
trukcji PRINT, np.: 

PRINT 10: CHR$ (6); 15 
da taki sam efekt co 

PRINT 10. 15 

Taki sam efekt otrzymamy, gdy wykonamy poniższe instrukcje 

10 LET a$ = "10" + CHR$ (6) + "15" 

20 PRINT a$ 

CHR$ (8) to „bachspace" — cofa pozycję, w której będzie wy- 
druk następnego znaku o jedno miejsce, np 

PRINT "12345"; CHR$ (8); "6" 


da w wyniku napis: 

12346. 

CHR$ (13) to „newline" powoduje, że następny tekst będzie pi- 
sany od nowej linii, np.: 

PRINT CHR$ (13); "alfa" 


FOR ł3 lii STEP 2 

3C PRINT i ; - '* ;CHRi 

" .• CHR % (i+1) 

40 NE <T i 
50 STOP 


b) 

przykładowe wyniki dla i 

i = 32, 33. 

.. 75 

52 


33 

, 

34 


35 

8 

36 

% 

37 

X 

53 

At 

39 

** 

40 

i 

41 

) 

42 

t 

43 

+ 

44 


45 

_ 

45 


47 

/ 

43 

0 

49 

1 

30 

2 

51 

3 

•52 

4 

53 

5 

54 

5 

55 

7 

55 

3 

57 

9 

53 

1 

59 

: 

50 

< 

61 

3 

52 

24 

> 

53 

? 


da taki sam efekt co: 

PRINT "'alfa" 

Korzystanie ze znaków (INK, PAPER, FLASCH. BRIGHT, IN- 
VERSE, OVER, AT, TAB) o kodach od 1 3 do 23 zostało omówione 
w poprzednich wykładach. 

Tak więc każdemu znakowi występującemu w tekstach przypo- 
rządkowana jest stała wartość numeryczna reprezentująca go w 
pamięci maszyny Możemy więc rozszerzyć pojęcie kolejności al- 
fabetycznej. tak aby objęło wszystkie znaki, me tylko litery, zwięk- 
szając alfabet do 256 znaków, ułożonych w kolejności wartości ich 
kodów 

Np. poniższe zdania są w porządku alfabetycznym: 

CHR$ 3 + "KOWALSKI" 

CHR$ 8 + "ABACKI" 

"AAABBB" 

"(Park)" 

" 201 " 

„ZOO" 

"zoologia" 

Sprawdzenie, który z podanych dwóch tekstów jest pierwszy (w 
kolejności alfabetycznej) przebiega w następujący sposób, po- 
równujemy kolejno parami znaki z obu tekstów od strony lewej do 


prawej. Jeżeli porównane znaki są różną, to jeden z nich ma kod 
mniejszy od drugiego i tekst rozpoczynający się tym znakiem jest 
wcześniejszy, (mówimy, że jest mniejszy), Jeżeli są takie same. to 
porównujemy następne znaki. Tak więc określenia relacji między 
tekstami następuje po znalezieniu pierwszej pary nieidentycznych 
znaków. Jeżeli w porównywanych znakach nie pojawi się różnica 
w kodach kolejnych znaków, ale jeden z tekstów jest krótszy, to 
jest on wcześniejszy. Przy takiej samej długości są one równe. 

Operatory relacji =, < , >, <=, >= oraz < > mogą być 
użyte do tekstów tak samo jak do liczb (np. < oznacza „jest przed", 
a > — „jest po"). Wynikiem obliczenia jest jedna z dwóch wartości 
— 1 oznaczającej wartość prawda lub 0 oznaczającą fałsz, 

Dla porównania testów rozszerzoną warunkową instrukcją ste- 
rującą o testowanie wyniku relacji. Postać i wykonanie tej instruk- 
cji jest analogiczne do instrukcji IF... THEN... Tak więc powyższa 
instrukcja umożliwia wyszukiwanie i analizę tekstów. , 
Poniższe programy obrazują wykonanie funkcji CODĘ OTaz ins- 
trukcji IF... THEN... 


b) Wyniki dla przykładowych danych: 


u s t ó w i a n i e dwóch 1 e k s t o w 
w kolejności alfabetycznej 

teksty dane 

katarynka katar 

teksty po porównaniu . 

katar < katarynka 


Przykład 8.9. 

Napisać program znajdowania w zestawie DATA nazwisk o za- 
danym z klawiatury imieniu, 
a) program: 


Przykład 8.7. 

a) Dany jest program:. 


d 


13 REM PcżjKLad 0. 
1S PRINT *• tekst"; 
Pierwszego znaku". 
20 FOR i sl TO 12 


7 

PRINT 


30 RłRd a % 

4.0 PRINT a 4, CODĘ (at) 

50 NEXT i 
50 STOP 

70 DATA "ALFA" , "BETA" , "C" 
EUR" , " " , " "/'alfa". " be ta" , 


d " , "ewa " 


; "ko 


"D" , 
c" , " 


b) wyniki: 


tekst 

kod Pierw 

flLFR 

65 

BETA 

66 

C 

67 

0 

63 

EUft 

69 


0 


32 

alf* 

97 

beta 

93 

r 

99 

•i 

100 

auta 

101 


10 REM Przykład 5.9 
£0 PRINT " *** wyszukiw 

nazwisk ***" 

30 INPUT "PO da j i In i e "/ 
40 print '"podane ircie 
50 RERD n 
60 LET k =0 
70 FOR i =1 TO n 
50 RERD bt,Ct 
90 IF b » < : « 4 THEN GO TO 1 
100 print '"znalezione nar- 
. - ; c % 

110 LET k ckłl 
120 NEXT i 

130 IF U0 THEN PRINT "w :e 
ie danych nie było nazw 

o po dany u imieniu": STOP 
140 PRINT '"w zestawie dany 
y lo " , k ' "nazw i s k (a ) " ; 

150 PRINT " o imieniu "as 
160 STOP 

170 REM n - 1 i c z ba par (iwie, 
w i s k o ) 

180 DRTR 5 

19© drtr "figata" i "Kowa Iska" 
a " , "u i sn i ews ka " , "Ewa " , "K lo bu 
ka " , " Ir en a " , "Po l kows ka " , "Rnn 
X k s i n s k a " 


s 

, as 


0 

1 s ko 


staw 
i s k 


, "Ew 
k o w s 


b) Wyniki dla przykładowych danych: 

* * * wyszukiwanie nazwisk * * * 

podane imię Ewa 

znalezione nazwisko ; 

Wiśniewska 

znalezione nazwisko : 

Kio bukowska 


Przykład 8.8. 

a) Dany jest przykład: 


10 REM Przykład 8.3 
20 PRINT "ustawianie dwóch tek 
stów w kolejności alfabet 

yczr.e j" 

30 PRINT '"teksty dane 
40 INPUT "wprowadź dwa teksty 

" , x S , y t 

PRINT 'K%; " Vi 

50 IF X S > y s. THEN LET ZS=XI: 

LET XS=yS: LET yS = ZS 

70 PRINT "teksty po porównani 

u : " 

30 PRINT 'xs; " "; 

90 IF X S < y 4 THEN PRINT G 

Q TO 110 
100 PRINT 
110 PRINT " " ; y s 
, 120 STOP 


w zestawie danych było 2 
nazwisk la) o imieniu Ewa 


Zalecamy czytelnikowi poćwiczenie z programami z przykła- 
dów 8.7, 8.8, 8.9 dla różnych danych wejściowych. 

W podanych przykładach używaliśmy zmiennych prostych alfa- 
numerycznych. Takiej zmiennej mogliśmy nadać „wartość" będą- 
cą tekstem o długości od O do 255 znaków. Analogicznie do 
zmiennych indeksowanych i tablic numerycznych wprowadzamy 
zmienne indeksowane i tablice alfanumeryczne. 

Teksty w tablicy różnią się od zmiennych prostych alfanumery- 
cznych (tekstowych) tym, że mają określoną długość 1 i są dopa- 
sowane zgodnie z zasadą Prokrutesa — obcinane z prawej strony, 
albo dopełniane spacjami do wymaganej długości. Nazwa tablicy 
tekstowej jest pojedynczą literą ze znakiem dolara ($) i przeciwnie 
do tablic numerycznych zmienna prosta i tablica tekstowa nie mo- 
gą mieć tej samej nazwy. 

Deklaracja tablicy postaci np.: 

DIM X$ (3, 1*5) 

rezerwuje w pamięci komputera tablicę 3X10 znaków, może za- 
wierać ona np. trzy wiersze tekstu, a każdy ma 15 znaków: 


25 


X$ (1) = X$ (1,1) X$ (1,2) X$(1. 15) 

X$ (2) = X$ (2,1) X$ (2,2) X$(2, 15) 

X$ (3) = X$ (3.1) X$ (3.2) X$(3. 15) 

Jeżeli napiszemy zmienną indeksowaną postaci: 

X$ (1 ) lub X$ (2) lub X$(3), to rozumiemy, że odnosi się ona do 
całego wiersza tablicy X$ (3, 1 5), (otrzymamy tekst o określonej 
długości (15 znaków), jeżeli natomiast napiszemy X$ (2, 8). to 
otrzymamy jeden znak, tzn ósmy znak wiersza drugiego (X$ (2)) 
Tak więc w tablicy alfanumerycznej (tekstowej) wszystkie wier- 
sze mają stałą określoną długość, a deklaracja tablicy DIM zawie- 
ra dodatkową liczbę (ostatnią) określającą tę długość. 

Zamiast ostatniego indeksu (który z zasady opuszczamy) mo- 
żemy użyć instrukcji do wybierania fragmentów tekstu np. 

10 DIM x*(3,15> 

20 let x s <: 2 :> *" a bcde f gh i j k Liano " 

30 LET yS=XSC2,9 TO 14 ) . 

40 LcT Z S=X S <2) (9 TO 14) 

50 PRINT y*,zs 
60 REM ySs2S = ‘ a i Jimm** 

Deklaracja tablicy postaci np : 


110 PRINT _ ... 

115 INPUT "szukamy d siej 


ki "nr . te i . ; " ; t l i > 
kamy dalej ?(t/r 

OR X|a M r TMEN GO 


. i x * 

130 IF X**"T 
TO 55 

125 PRIMT '"koniec pracy" 

130 STOP 

135 INPUT "nr.ui.efonu = " ;y 
140 FOR isl TO n 
145 IF yst(i) THEN GO TO 160 
150 NEXT i _ .. . 

155 PRINT '"brak nr, telefonu 
y;" w książce": GO TO 115 
160 PR INT ' n s < i ) , "n r . t « l . : 

( i i 

155 GO TO 115 


b) wyniki dla przykładowych danych 


Ksiazka telefoniczna 
zawiera - 5 nazwisk 

wybieramy według : . . 

- nazwiska nacisnij - i 

- nr. telefonu nacisni j - 2 


DIM a$ (6) 


XYZ 

nr.tei. 


393939 


deklaruje nam tablicę tekstową bezwymiarową, tzn a$ zachowuje 
się jak zmienna prosta alfanumeryczna, przy czym zawsze ma 
długość równą 6 znaków i znaki dopasowane są wg zasady Pro- 
krutesa. 

Uwaga: w innych reprezentacjach BASICU tablice alfanume- 
ryczne mogą mieć inną organizację, np taką samą. jak tablice 
numeryczne, tzn. ze w każdy element tablicy mogą wpisać tekst o 
dowolnej długości (długość — określona max liczbą znaków tek- 
stu dla danej reprezentacji). 

Omówione własności zmiennych numerycznych oraz ich fun- 
kcje są często stosowane w programach graficznych, np. w ryso- 
waniu wykresu funkcji. Wykorzystanie ich przy przetwarzaniu tek- 
stów obrazują poniższe dwa przykłady 

Przykład 8.10. 

Zadanie do wykonania: 

1 Założyć książkę telefoniczną (przykładową) 

2. Na żądanie: 

— wyświetlić nr telefonu dla nazwiska abonenta podane- 
go z klawiatury. 

— wyświetlić nazwisko abonenta dla numeru telefonu po- 
danego z klawiatury 

a) program: 


Ig REM Przykład 8.10 


P.EM n$ - nazwiska aoonentow 
o długości <: maksymalnej) 
nazwiska 20 znaków 
25 REM t - numery telefonów 
30 INPUT "podaj liczbę wprowad 
zanych nazwisk " ; n 

35 PRINT '"Ksiazka teiefoniczn 
a zaw i e ra : " ; n i ** na 

ZW i 3 k " 

40 DIM ns(n,20>: DIM t(n)t DIM 

k i <20) i 

45 FOR i a 1 TO n 
50 input -nazwisko : ,# ;nt(i) 

55 input "nr . te i* fonu : ";tix) 
60 NEXT i . , , 

65 PRINT *" wybieramy według 
- nazwiska n 

a ciśnij - 1 - nr. telefonu n 

a ci śnij - 2" 

70 INPUT Z 

75 IF zol RND Z < >2 THEN GO TO 
65 

■30 IF Z =2 TMEN GO TO 135 

■35 INPUT "podaj nazwisko " ; k 

s 

90 FOR i sl TO n 

35 IF kt=nS (i > THEN GO TO 110 
100 NEXT i ł . 

105 PRINT '"brak nazwiska w ksi 
azce” : GO TO 115 


wybieramy według : 

- nazwiska nacisnij - 1 

- nr. telefonu nacisnij - 2 

Rba c k i 

nr.tel, 1 O 22 O 0 
koniec pracy 


Przykład 8.11. 

Napisać program, który wprowadza do tablicy n — tekstów o 
max długości 20 znaków każdy, następnie w każdym z wprowa- 
dzonych tekstów zlicza częstotliwość występowania podanych li- 
ter (umieszczonych w DATA), 
a) program 


10 REM- Przyk lad 3.11 
15 REM as tablica tekstów o 
długości 20 znaków 
20 INPUT "podaj liczbę wprowad 
zanych tekstów : " ;n 

25 PRINT "wyszukiwanie i zlicz 
anie odpo- wiednich liter w dan 
ych tekstach" 

30 DIM as <n ..20) 

35 REM litery których szukamy 
umieszczone sa w zestawie DRTR 
40 FOR i *1 TO n 


ł 


45 INPUT (i);" -tekst 


*•; as Ci 


50 NEXT i 
60 FOR i *1 TO n 
55 RERO m 

70 PRINT "tekst : "Ji; 

75 PRINT aS (i) 

30 FOR Ul TO m 
85 RERD ZS 
90 LET P — 0 

95 FOR j*l TO 20 ^ 

100 IF aS(i,j)=ZS THEN LET P*P + 


105 NEXT j 
110 PRINT '"w 
litera : ",zs 
razy" 

115 NEXT k 
120 RESTORE : 
125 PRINT ' 
130 NEXT i 
135 STOP 
140 DRTR 6 
145 DRTR "a". 


tekście : 
"wystąpi la 


qOPY 


i ; " 

; " ; p ; “ 


zzw 


26 


ATARI 


C-64 


Test czytania 


Po uruchomieniu programu na ekra- 
nie pojawia się na krótko wyraz, który 
należy następnie napisać. Jeżeli wyrazy 
pisane są poprawnie, to oczywiście przy- 
bywa nam punktów w tej rozgrywce z 
komputerem. Czas trwania wyrazu na 
ekranie można zmniejszyć lub zwięk- 
szyć, zmieniając długość pętli w linii 170. 
Może być to zatem pożyteczna zabawa 
dla przedszkolaków i dla bardziej za- 
awansowanych. Oczywiście, w progra- 
mie mogą być użyte inne wyrazy. 

ie REM TEST CZYTANIA 
27 POKE 53281, 13: POKE 53280,12 
3C AT*=CHR*(17ł iFOR T-lT06iAT*“AT*+AT*iN 
EXT T:AT*“CHR*<19)+AT* 

35 GOSUB 10000 
40 SC=0 
£0 HS=0 
70 DIMU«<50> 

80 FOR JWTO50 
90 READWt(J) 

100 NEXT J 

110 FOR N-1TO20 

120 R=INT!RND<1)*50)+1 

130 PR1NT CHR® (147) 

140 PRINTLEF1 • < AT#, £) SPC (4 > ’ WYNIK i ’ |SC 
150 PRINTLEFT* (AT*, 2) SPC (18)’ NAJWYŻSZY W 
YNIKi • |HS 

160 PRINTLEFT* (AT*, 8) SPC ( 18— (LEN (W* ( R) ) / 
2) )W*(R) :WW®=W#(R> 

165 IF LEN (W* ( R) ) (10 THEN W* (R) »W® <R> +' 

• sOOTO 165 

170 FOR DL=1TQ500 :NEXT DL. 


180 PRINTLEFT* (AT*, 8) SPC (9>’ 

190 PRINTLEFT* (AT*, 16) SPC (9> ’ JAKIE TO BY 
LO SŁOWO ?’ 

195 PRINTLEFT* (AT*, 181SPC (9) 5 
200 INPUT A* 

202 IF LEN (A*) <10 THEN 0»>=R*+’ ’ iGOTO 20 
2 

£10 IF A*-W*(R) THEN 270 

220 POKE, SO+ 1,20: POKE SO+4, 17:FOR QQ-1T0 
30iNEXT OQ : POKE SO+4, 16 

230 PRINTLEFT* (AT*, 8> SPC ( 1 1 > 1 TYM SŁOWEM 

235 PRINTLEFT* (AT*, 10) SPC ( 1 7- (LEN (WW* ) /2 
> ) WW* 

£44 PRINTLEFT* (AT*, 16) SPC (3)’ 

£45 PRINTLEFT* (AT*, 18>SPC<3)’ 

250 FOR DL-1TO 400|NEXT DL 
260 GOTO 300 


300 NEXTN 

310 IF SC) HS THEN HS«SC 
312 PRINTCHR* ( 147) 

314 PRINTLEFT* (AT*, 8)SPC(3>’ TWÓJ KOŃCOWY 


, ’SC 


WYNI1 

316 IF SC > HS THEN PRINTLEFT* (AT*. 10)SPC 
(3)* TO JEST NAJLEPSZY WYNIK DZISIAJ.* 

320 INPUT' JESZCZ RAZ <T/N)'|Q« 

330 IF LEFT* (Q*, 1 ) ■' N* THEN 380 
340 SC-0 
360 GOTO 110 
380 END 

400 DATA 'OGROD*, • CHŁOPIEC', V 


IZ1EWCZYNA’ 


410 DATA 'STRAWA' , 'OBAREK' , 'KOBIETA' 
420 DATA 'LAMPA' , 'PIES' , 'KOT' 

430 DATA 'OKNO', 'DRZWI', 'ŚCIANA' 

440 DATA 'DZIŚ', 'JUTRO', 'WCZORAJ' 

450 DATA 'KWIAT', 'ROLA', 'WAZA* 

460 DATA ’ LAS’ , ’ TRAWA’ , • SZOSA' 

470 DATA 'KASIA', 'OBRAZ', 'SZARY' 

480 DATA ’ SZYMPANS’ , ’ KROWA’ , ’ ZEBRA’ 

490 DATA ’ KOZA’ , ’ KOGUT' , ' KACZKA' 

500 DATA • MONIKA’ , ’ MARCIN’ , ’ DANUTA’ 
510 DATA 'ADAM' , 'TOMEK' .' ZOSIA’ 

520 DATA 'PIERWSZY', DRUGI’, 'TRZECI' 
530 DATA ’ OSTATNI' , 'NAJLEPSZY' ,' DOBRY' 
540 DATA 'PAPIER', 'ALA', 'AS' 

530 DATA 'WINO', 'BZKLANKA', 'WODA' 

560 DATA ' LITERA* , ' SYLABA' 

10000 REM DŹWIĘK 
10010 S0»S4272 

10020 FORT«0TO£Bi POKESO+T , 0 1 NEXT 
10030 POKESO+1, 20 
10040 POKE 90+5, 9 
10050 POKE SO+6, £40 
10060 POKE BO+24, 15 
10070 POKE SO+4, 16 
10080 RETURN 


T. CISEK 



Histogram 


Program służy do otrzymywania 
histogramów. Po jego uruchomieniu 
otrzymamy pytanie o liczbę słupków 
(maksymalnie 9). Gdy komputer 
uzyska odpowiedź, zostanie uru- 
chomione przyjmowanie danych o 
poszczególnych słupkach. Kolej- 
nym etapem jest kreślenie histo- 
gramu. Pod każdym słupkiem poja- 
wia się kolejny numer; wartość da- 
nej w zaokrągleniu (liczby większe 
od stu są zredukowane do dwóch 
pierwszych cyfr); oraz procentową 


zawartość danej w stosunku do su- 
my wszystkich składników histo- 
gramu. 

Ostatni słupek odwzorowuje sumę 
składników. 

Największa podana wartość słup- 
ka uzyskuje pełną wysokość ekranu, 
pozostałe są jej procentowym 
odwzorowaniem. 

Naciśnięcie klawisza START po- 
woduje ponowne uruchomienie 
programu. 

Artur NOWAKOWSKI 


RP 10 REM ***** HISTOGRAM ***** 

MR 20 REM *** wersja 1.0 POPR.*** 

ZM 30 REM **** (c> 1987-09-11**** 

KC 40 REM ** Artur Nowakowski ** 

AO 50 REM ul. U. Wasilewskiej 5/8 
GF 60 REM 08-110 Siedlce 
LF 70 REM POLSKA 
VG 80 REM /tel. 209-02/ 

AK 90 DIM A*(1),B*(9),IL0SC<9> 

GN 100 REM STRONA TYTUŁOWA 
SW 110 GRAPHICS l 
BX 120 B*=»"histo9ram" 

VK 130 FOR X*1 TO 9 
VJ 140 A*=B*(X, X) 1 WYS^INT (RND(0>*13 
♦ 1 ) 

AA 150 FOR Y=1 TO WYS 

HL 160 POSITION 2*X, 14-Y ! ? #6) A* 

MJ 170 NEXT Y 
MB 180 NEXT X 

CK 190 POSITION 0,14'? #6;" WER 
SJA 1.0" 

SW 200 ? #6;" <C> 1987-08-11" 

TQ 210 ? #6i" artur nowakowski" 

CJ 220 ? #6) " W. WASILEWSKIEJ 5/8" 

UO 230 ? #6;" 08-110 SIEDLCE" 

JA 240 ? #6;" POLSKA" 

RT 250 IF SPR*1 THEN GOTO 300 
MV 260 ? " " ; CHR*( 145) ; CHR 

*(146) >CHR*< 146) i CHR* < 146> ; CHR*< 
146) ; CHR*( 146) ; CHR*( 133) 

IB 270 ? "Naci śnij "; CHR* (252); CHR 
*(21 1 ) i CHR*(212> ) CHR* (193) ) CHR*( 
210) ;CHR*(212) ;CHR*(252) 

GG 280 ? " ";CHR*(154);CHR 

*(146) ; CHR*( 146) ; CHR*( 146) i CHR*( 
146); CHR*< 146) ; CHR*( 131 ) 

PW 290 IF PEEKC 53279 ) 06 THEN POKE 
755,0 -GOTO 290 
OR 300 REM PODAWANIE DANYCH 
WG 310 POKE 755,0'? CHR*( 125); "I le 
słupków (1-9) 

KG 320 TRAP 300 
HL 330 INPUT SKŁAD 
PO 340 IF SKŁAD) 9 OR SKŁAD <1 THEN G 
OTO 300 

AC 350 SUM=0 ' REM ****************** 
PA 360 ? CHR* (125); "Podawaj kolejno 
dane." 1 ? •? 

PO 3 70 FOR X=1 TO SKŁAD 'TRAP 870 
IU 380 ? CHR* (28) ; " 


TL 400 IF MAX<=8 THEN SPR=1'G0T0 10 

0 

BV 490 IF MAX>=100 THEN SUM=0'FOR X 
-1 TO SKŁAD' ILOSC(X)®ILOSC(X)/10 
> SUM=SUM+ ILOSC <X)NEXT X'G0T0 42 

0 

UA 500 GRAPHICS 3 
KH 510 POKE 755,0 . 

CI 520 RESTORE 
FA 530 FOR X=1 TO SKŁAD 
SD 540 ? X;" " ; = NEXT X 

OC 550 ? “ SUMA" 

FG 560 FOR X*1 TO SKŁAD 
YF 570 A*="" 

IN 580 IF ILOSC(X) <10 THEN A*=" " 

ND 590 ? INT(ILOSC(X)>; " ";A*; 'NEXT 
X 

CU 600 ? "-ILOSC" 

EX 610 FOR X=*l TO SKŁAD 
UD 620 WYS= I NT ( I LOSC ( X ) *20/MAX ) 

PT 630 A*=""'IF ILOSC(X)*100/SUM<10 
THEN A*«" " 

ZI 640 ? INT( IL0SC(X)*1 00/SUM ) ; " ", 
A*; 

KR 650 IF I LOSC < X ) *20/MRX <0.5 AND X 
(SKŁAD THEN NEXT X 
HI 660 IF ILOSC(X)*20/MAX<0.5 THEN 
GOTO 720 
IF 670 REAO A* 

AL 680 FOR Y=1 TO WYS 
RR 630 POSITION 3*X-1,20~Y'? #6; A® 
MB 700 NEXT Y 
LT 718 NEXT X 
KB 720 REM OSTATNIE SŁUPKI 
OC 730 KOŁ~ I NT ( SUM -MAX ) 1 WYS- INT( SUM 
*20/MAX)-20*KOL 
UL 740 REAO A*'? " 100 x" 

RA 750 IF K0L<1 THEN GOTO" 800 
BD 760 FOR X=4 TO KOŁ+3 
XJ 770 FOR Y=1 TO 20 
JJ 780 POSITION 3*SKLAD+X- 1 , 20- Y • ? 
#6; A* 

UW 790 NEXT Y'NEXT X 
OJ 80O FOR X=8 TO WYS '-POSITION 3*SK 
LAD+KGŁ+3, 20-X 
SP 810 ? #6; A* 

LW 820 NEXT X 

TV 830 ? " Nacisnij ";CHR*( 

160) ; CHR*<21 1 ) ; CHR*<212) ; CHR*< 19 
3);CHR*(210);CHR*(212);CHR*<160) 


XH 390 ? CHR* (28) ; " ";X;" - 

INPUT ILOSC ' IF ILQSC<0 THEN GOT 
O 880 

TF 400 I LOSC (X)=I LOSC 1 SUM=SUM+ ILOSC 
(X) 

LG 410 NEXT X 

UK 420 REM SZUKANIE NAJWIĘKSZEJ DAN 
EJ 


EZ 430 FOR X*1 TO SKŁAD 
FK 448 FOR Y=1 TO SKŁAD 
MV 450 IF ILOSC(X)>=ILOSC(Y) THEN N 
EXT Y’MA:<=ILOSC<X)'GOTO 470 
MA 460 HEXT X 

RG 470 REM RYSOWANIE SŁUPKÓW 


DG 840 IF PEEK.( 53279 ) 06 THEN 340 
FN 850 SPR=1 ' GOTO 100 
CM 860 REM KONIEC PROGRAMU 


JD 870 REM OBSŁUGA BŁĘDU 
HZ 830 ? CHR*(253);CHR*(29)J” Zla 
dana! -popraw" 

OF 886 FOR Y*1 TO 1000'NEXT Y'? CHR 
*(28);" • " 
DP 888 ? CHR*< 28 > ; CHR# ( 28 ) ; CHR* ( 28 > 
;" "'X=*X-1 

MK 890 NEXT X 
BV 900 REM DANE KOŁOROW 
ŁH 910 DATA A,B,C,A,B,C, A,B,C, A 




Giełda 

pomysłów 


LICZBY 

10 'progra* na lb. o dl. do 510 cyfr 

20 'rafal foltyniewicz 

30 HODE 2: DEFINT a,d,i,n,p,x,z 

40 MEMORY lf8FFF:L0AD "Irodl "iLOAD "kod2":DIM at(510) 

50 x=0: z=0: CLS 

60 PPINT "znak kończy uprowadzanie,' podaj pierwszy skladnik":w=l:60SUB 210 
70 PRINT:PR1NT "podaj drugi skladnik":w=0:60SUB 210:PRINT 
8^ PPINT “ (♦(dodaj (-)odejnij (llanoz (/(dziel* 

90 d*=INkEY$ 

100 IF d*="+“ THEN PPINT dt:P0KE ItAOOl.HAT <x,z) :CALL MOOOjGOTO 170 
110 IF d*="-" THEN PRINT d*:P0KE IrAOl F, MAX (x , z ) : CALL bA01E:G0T0 170 
120 IF d»="»" THEN IF x+z>255 THEN PPINT"za duże liczby '":G0T0 60 
130 IF d*="l" THEN PRINT d$:P0KE ŁA03P. w+z :CALL PA03C:60T0 170 
HO IF d *='/’ THEN IF x=l AND aff*)="0" THEN PRINT"/0 "":G0T0 60 
150 IF dł=v THEN PRINT "/":P0KE &A31 4, z : CALL MJIJiGOTO 170 
160 GOTO 90 
170 60SUB 550 

180 PRINT "LICZYSZ DALEJ (t/n)*:INPUT o* 

190 IF l)PPERi(o*(*"T" THEN 50 
200 END 

210 'wprowadzanie liczby 
220 CURSOR 1, l:d=l:r=0 
230 FOR a=l 10 510 
240 b*=INKEY$:IF b*="" THEN b«="?’ 

250 IF INKEYłfllO-l THEN 260 ELSE 300 
260 GOSUB 670 

270 IF a<=l THEN SOUND 1, 100, t, 12:G0T0 300 
280 IF l(a+r> MOD 3>«l THEN PRINT CHR*(8) ; 

290 PRINT CHR*(8);:a=a-l 
300 IF INKEY (1)0-1 THEN 310 ELSE 350 
310 GOSUB 670 < 

320 IF a>=d THEN SOUND 1 , 100, 1 f 12: GOTO 350 
330 IF ((a+r) MOD 3'=0 THEN PRINT CHR*(9)j 
340 PPINT CHP4'9);:a=a+l 
350 IF INKEY (79) 0-1 THEN 360 ELSE 400 
360 GOSUB 670 

370 IF (aOd OR d<=t) THEN SOUND 1,100, 1, 12:G0T0 400 
380 IF ((a+rl MOP 3>=l THEN PRINT CHR«<8) ; 

390 PRINT CHP»(8);" ";CHPi(8( j:d=d-l:a=d 
400 IF b*=". " THEN 460 

410 IF b*=" " THEN PPINT • "j:r=(r+l> HOD 3:G0T0 240 
420 IF ASC(b*><48 OP ASC(b*» >57 THEN 240 
430 a*'a)=b*:PRINT bf}iIF a=d THEN d=d+t 
440 IF ( (a+r) HOP 31=0 THEN PRINT " "; 

450 NETT a 

460 IF w=l THEN adres=*9000 ELSE adres=&9200 
470 adresa=adres 
480 FOR i =d-l TO 1 STEP -2 
490 POKE adres, VAL("l"+a$(i-l)+a$(i)):adres=adres+l 
500 NETT i 

510 FOR j=adres TO adresa+256: POKE j,0*NEXT j 
520 pl=(d-D/2:rz=p] -FIUpKilF rz=0 THEN p=FIX(pl 1 ELSE p=FI)(<pl)+l 
530 IF w = l THEN z=p ELSE x=p 
540 RETURN 
550 'wydruk wyniku 
,560 baza=lc9000 
1570 FOR i =255 TO O STEP -l 


Przedstawiony program wykonuje cztery podstawowe 
działania na liczbach naturalnych (plus 0) o maksymalnej 
długości 51 0 cyfr. 

W celu jego uruchomienia należy wpisać do komputera 
program nr 2 (kod maszynowy) i wykonać zleceniem 
RUN. W wyniku otrzymasz dwa pliki binarne (kod 1 , kod 2). 
które zostaną umieszczone na dyskietce. 

Teraz skasuj pamięć komputera i wprowadź program 
nr 2, po czym nagraj go komendą SAVE „LICZ", na tę sa- 
mą dyskietkę, na której są pliki kod 1 i kod 2. Program jest 
gotowy. Uruchom go zleceniem RUN „LICZ". 

Wprowadzana liczba jest na monitorze samoczynnie 
formatowana (tworzone są grupy składające się z trzech 
cyfr). Ułatwia to jej odczyt. Puste miejsca od lewej strony 
(jeśli takie są), można wypełnić spacjami. 

R. FOLTYNIEWICZ 


580 adres-i *baza 

590 IF PEEKfadresHO THEN NEXT i 

600 FOR n=i TO 0 STEP -l:adres=n+baza 

610 s*=HEX$ <PEEK (adres) AND iF) : t*=HEX* ( (PEEK(adres) AND iF0)/16> 
620 IF n*i AND t*="0" THEN t*=* ■ 

630 IF (n HOD 3)=2 THEN PRINT t*+s*;ELSE GOSUB 680 
640 NETT n 

650 IF i=-l THEN PPINT "0" 

660 PRINT: RETURN 

670 F0P n=l TO 80:NEXT n: RETURN 

I 680 IF In HOD 3)=0 THEN PRINT t*+s*+" ";ELSE PRINT t*+" "+s$| 

690 PETURN 


100 PEN kod «aszynowv 

110 MEH0RY tr9FFF:adres=lAOOO 

115 ilosclin:i=26 

120 REST0RE 310 

130 FOR i*l TO ilosclinii 

140 suna=0:READ cct,ww$ 

150 FOR j=t TO 39 STEP 2 
160 bb=VAL("b"+HID*(cc*,j,2() 

170 POKE adres, bb 

180 su«a=su*a+bb:adres=adres+l 

190 NETT j 

200 IF su»aOVAL("&"+ww*> THEN PPINT "Blad w linni nr ";300+i*10:ST0P 
205 IF adres=lrAlI8 THEN adres=lA313 
210 NETT i 

220 SAVE "kodl",b,lA000,28O:SAVE "kod2",b,&A313,240 
300 REH dane 

310 DATA 0600210090U00R278a7c81a8e2777231305c20b,58f 
320 DATA aOr 9000000000000000006002100901 I00927Bb7,3f 2 
330 DATA c83feb3e9Rce00964fla8l27l223t305c22ba0c9,7el 
340 DATA 06002100901 10092cd48a0c978b7c8320bal320d,6ec 
350 DATA aI220faleb2211al2114a22213aleb0e007eI27l,6d9 
360 DATA I32305c261a02115al3a0bal47712305c27la03e,6ac 
.370 0ATA 0l320cal97320eal3a0calb72al3al7ec28fa00f,752 
380 DATA 0f0f0fe60fcab5a04f2allallll5alja0bal47b7,717 
390 DATA Ia8e2712231305c2«0a0d2bla0210eal340dc295,7a9 
400 DATA a03a!5ale60f473a0calb778c2c7a00f0f0f0f2a,771 
410 OATA 0falb6773a0bal475f 160021 15all93a0eal572b,5da 
420 DATA 7e4fe6f0b20f0f0f0f7779e60f5705c2dba0210c,83c 
430 DATA al35ca7ca02al3al232213al2a0fal23220fal21,683 
440 DATA 0dal35c277 a 0c900000000000000000000000000,385 
450 DATA 06002100901 10092cdlfa3c922f8a3eb22faa378, 891 
460 DATA 32f5a3b7cadla3210la522fea3eb2l02a422fca3,abc 
470 DATA 977712231305c23ca33af5a36f260029232200a4,675 
480 DATA 2afaa33af5a34797b62305c257a3b7cad3a32afa,b2c 
490 DATA a33af5a3473e9996772305c268a39732f6a32af8,al9 
500 DATA a3cdd5a32a00a42b2200a47cb5cadla32afca3cd,aac 
510 DATA d5a39732f6a32afca3eb2afea34d442afaa33af5,be0 
520 DATA a332f7a3371a8e27022313033af7a33d32f7a3c2,84f 
530 DATA a4a3d275a33af6a3c61032f6a32afca3eb2afea3,c24 
540 DATA 22fca3eb22fea3c391a3b7r937c93af5a3473af6,c2f 
550 DATA a35f7e57e60fb30f0f0f0f777ae6f05f2305c2dd,8a8 
560 DATA a 37b32f 6a3c90000000000000000000000000000 , 3b 2 
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INFORMATYCZNY SŁOWNIK ANGIELSKO-POLSKI 


COMPUTER MEMORY - pamięć komputera, 

COMPUTER MI CROGRAPHI CS - mikrografika komputerowa, 
COMPUTER NETWORK - sieć komputerowa, zespół (połą- 
czonych ze sobą) komputerów, 

COMPUTER NUMERI CAL CONTROL - sterowanie numeryczne 
za pomocą komputera, 

COMPUTER ORIENTED LANGUAGE — język (programowani a) 
zorientowany maszynowo, 

COMPUTER OUTPUT MICROFILMER - rejestrator mikrofil- 
mowy (rejestruje obraz z komputera na mikrofilmie 
lub mikrof iszy) , 

COMPUTER OUTPUT MICROFILM - dane wyjściowe z kompu- 
tera w postaci mikrofilmu, 

COMPUTER OUTPUT MICROFILM - dane wyjściowe na mikro- 
filmie, 

COMPUTER PROGRAM - program wewnętrzny, 

COMPUTER READABLE INFORMATION - informacja w postaci 
czytelnej dla komputera, 

COMPUTER SCIENCE - informatyka, 

COMPUTER SCIENTIST - informatyk, 

COMPUTER SER VI CES CENT RE - centrum komputerowych 
usług obliczeniowych, 

COMPUTER STORĘ - pamięć komputera, 

COMPUTER SYSTEM - zestaw komputera, 

COMPUTER THEORY - informatyka, 

COMPUTER WORD - słowo komputerowe, 

COMPUTER— BASED INFORMATION SYSTEM — skomputeryzowany 
system informacyjny, 

COMPUTERI ZATI ON - komputeryzacja, 

COMPUTERIZED - skomputeryzowany, 

COMPUTERI ZED MANAGEMENT INFORMATION SYSTEM - system 
informatyczny zarządzania, 

COMPUTING CENTER — ośrodek obliczeniowy, 

CONCATENATE OPERATOR - operator sklejania, operator 
spinania, operator konkatenacji , 

CONCATENATION - scalanie (łączenie ciągów znaków 
za pomocą operatora) , 

CONCATENATION - wiązanie łańcuchowe, 

CONCENTRATOR - koncentr ator , 

COMCEPTUAL - pojęciowy, 

COMCEPTUAL DICTIONARY - słownik pojęć, 

CONCLUDE - wnioskować, także: zakończyć, sfinali- 
zować, 

CONCLUSION - wniosek, 

CONCURRENCY - zbieżność, 

CONCURRENT - równoczesny, współdziałający, zbieżny, 
CONCURRENT PROCESSES - procesy współbieżne, 
CONCURRENT PROCESSING - wi el oprogramowość , 

CONCURRENT USER STACKS - stosy użytkowników (w sys- 
temie współbieżnym), 

CONDENSATION - skrócenie (np. programu) , skondenso- 
wanie, 

CONDENSING ROUTINE - procedura zagęszczania, 

CONDI TI ON - warunek, także: stan, okoliczność, 
CONDITION BOX - figura na schemacie blokowym symbo- 
lizująca warunek, 

CONDITION CODĘ REGISTER - rejestr wskaźników, 
CONDITION NAME - nazwa warunku, 

CONDI TI ON AL - warunkowy, 

CONDI TI ONAL BRANCH - rozgałęzienie warunkowe, 

CONDI TI ONAL FIELD - pole warunków, 

CONDI TI ONAL INSTRUCTION - rozkaz warunkowy, 

CONDI TI ONAL JUMP - skok warunkowy, 

CONDI TI ONAL JUMP INSTRUCTION - rozkaz skoku warun- 
CONDI TI ONALL Y - warunkowo, 

CONDUCT - przewodzić (np. prąd elektryczny)., takżei 
wykonywać (np. działania arytmetyczne), 

CONDUCTOR TRACK - ścieżka przewodząca, 

CONFERENCE ON DATA LANGUAGE - język programowania 
dostosowany do potrzeb zarządzania, 

COMFI6URATION - dobór, zestaw, komplet, konf iguracja, 
takżei układ, ukształtowanie, kombinacja, 

CONFORMITY CERTIFICATE - atest, 

CONFUSION - zamieszanie, chaos, 

CONJUGATE - sprzężony, 

CONJUNCTION CIRCUIT - układ koniunkcji, 

CONNECT TOGETHER - łączyć ze sobą razem, 

CONNECTING LINK - element łączący, 

CONNECTION - połączenie, także: związek (pomiędzy), 
CONNECTION LAYOUT - schemat montażu, 

CONNECTION SET— UP — nawiązywanie połączenia, 
CONNECTIYE - łącznik (logiczny), element łączący, 
CONNECTI VE LINĘ - linia łącząca, 

CONNECTOR - łącznik, wtyk, także: symbol na schema- 
cie blokowym, odsyłacz na schemacie blokowym, 

CONNOT ATI ON OF A CONCEPT - treść pojęcia, 

CONSECUTI VE - kolejny, następny, 

CONSECUTI VE COMPUTER - komputer sekwencyjny, 

CONSECUTI VELY - kolejno, 

CONSEQUEMT DRI VEN - wnioskowanie wsteczne (w syste- 
mach ekspertowych). 


CONSIDERABLE DIFFERENCE - znaczna różnica, istotna 
różnica, 

CONS1 STENCE CHECK - sprawdzian logicznej zgodności, 
CONSOLE - konsola, 

CONSOLE COMMAND PROCESSOR - moduł, który interpre- 
tuje i wykonuje polecenia wprowadzane przez użytko- 
wnika za pomocą klawiatury, 

CONSOLE MODĘ - bezpośredni tryb pracy "z konsoli", 
CONSOLI DATI ON - scalanie, łączenie, konsolidacja, 
CONSOLIDATOR - program scalania (łączenia), konsoli- 
dator , 

CONSTANT - stała, 

CONSTANT AREA - część pamięci zawierająca dane stałe, 
CONSTITUENT — element, składnik, 

CONSTRAINT - ograniczenie, warunek ograniczający, 
CONTACT - styk, zestyk, 

CONTENT - zawartość, także: stan licznika, rejestru, 
CONTENT ADDRESSABLE MEMORY pamięć adresowana za- 
wartością, pamięć asocjacyjna, pamięć skojarzeniowa, 
CONTENTS OF THE COUNTER - zawartość licznika, stan 

CONTEXT-FREE LANGUAGE - język bezkontekstowy, 

CONTI GUOUS - przyległy, sąsiedni, 

CONTINUOUS - ciągły, nieprzerwany, 

CONTINUOUS ORAWI NO - rysunek ciągły (elementy skła- 
dowe są opisane współrzędnymi względnymi z wyjątkiem 
punktu początkowego) , 

CONTINUOUS FORM - papier ciągły, formularz ciągły, 
CONTINUOUS FORM SET - zestaw formularzy ciągłych, 
CONTINUOUS ST ATI ONARY - papier rolowy do drukarek, 
.CONTINUOUS TAPE - pętla taśmy dziurkowanej, 
CONTRACTING A FILE zmniejszanie pliku (zbioru), 
COWTRAST - kontrast, 

CONTRAST WITH ... - przeciwstawiać (coś czemuś), 
CONTROL - sterowanie, kierowanie, także: kontrola, 
regulowanie, 

CONTROL AND READ-ONLY MEMORY - pamięć stała ze ste- 
rowaniem, 

CONTROL AND SIMULATION LANGUAGE - symulacyjny język 
pr ogr amowan i a , 

CONTROL AREA - programowy obszar sterowania pliku 
(zbioru) , 

CONTROL BALL — manipulator kulowy, 

CONTROL BŁOCK - blok sterujący, 

CONTROL BOARD — pulpit sterowniczy, 

CONTROL BRUSH - szczotka sterująca, 

CONTROL CHANNEL - kanał sterujący, 

CONTROL CHARAKTER - znak sterujący, 

CONTROL COMMAND - rozkaz sterujący, 

CONTROL CONSOLE — pulpit sterowania, 

CONTROL DEVICE - urządzenie sterujące, 

CONTROL INFORMATION — informacja sterująca, rozkaz 
sterujący, 

CONTROL JET - strumień sterujący, 

CONTROL KEY - klucz sterujący, klawisz sterujący, 
CONTROL LOOP - pętla sterowania, pętla regulacji, 
CONTROL MEMORY - pamięć sterująca, 

CONTROL MODĘ - tryb sterowania, 

CONTROL PROGRAM FOR MICROKOMPUTERS - program steru- 
jący dla ml krokomputerów, 

CONTROL OUANTITY - wielkość sterująca, 

CONTROL RECORD - rekord sterujący, 

CONTROL ROUTINE - część sterująca (programu organi- 
zacyjnego) , 

CONTROL SI GNAŁ - sygnał sterujący, 

CONTROL STATEMENT - instrukcja sterująca, 

CONTROL SYSTEM - układ sterowania, układ regulacji, 
CONTROL TOTAL - suma kontrolna, 

CONTROL TRANSFER INSTRUCTION - rozkaz skoku, 

CONTROL UNIT CC U) - układ sterowania, 

CONTROLLABILITY - sterowność, sterował ność, 
CONTROLLABLE - regulowany, sterowany, 

CONTROLLED CONDITION - wielkość regulowana, parametr 
regulowany, 

CONTROLLED PLANT - obiekt regulacji, 

CONTROLLED VARIABLE - wielkość regulowana, parametr 
regulowany, 

CONTROLLER - regulator, urządzenie sterujące, stero- 
wnik, kontroler, 

CONTROLLING - sterowanie, 

CONYENTIONAL - konwencjonalny, klasyczny, typowy, 
powszechnie stosowany, 

CONYENTIONAL DATA PROCESSING - przetwarzanie danych 
konwencjonalne, 

CONVENTI ONS - symbole, umowne znaki, także: typowe 
procedury w programach, 

CONVERGENCE - zbieżny, 

CONYERSATIONAL LANGUAGE - Język konwersacy jny , 
CONYERSATI ONAL MODĘ - konwer sacyjny tryb współpracy, 
CONVERSATI ONAL OPERATI ON - praca konwersacyjna, pra- 
ca interakcyjna, 

CO WVE RS ATI ONAL ST ATI ON - stacja konwersacyjna, 
COMVERSATI ONAL TERMINAL - terminal konwer sacyjny, 
CONYERSION - konwersja, przekształ cenie, także: 
przechodzenie z jednego systemu na drugi, 

CONVERSION PROGRAM - program konwersji, 

CONYERSION TIME - czas konwersji. 
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COtT/KRT - przekształcać, przeliczać, takżei przetwa- 
rzać, 

CONYF-KTER - konwerter , przemiennik, przetwornik, 
CONVEKTER CONTROL PROGRAM - program sterujący kon- 
wertera, 

CONVERTIMG - przekaz tałcame, 

CONVEY - komunikować, przenosić, 

CONVEYER - przenośnik, 

COORDINATE GRAP HIC - grafika konturowa, 

COORDINATE INDEKIMG - indeksowanie koordynujące, 
COORDINATE ORIGIM - początek układu współrzędnych, 
COORDINATE PLOT TER pisak X-Y, kreśl ak, 

COORDINATE SYSTEM - układ współ rzędnych, 

COORDI NATES - współrzędne, 

COPY - kopia, odpis, takżei kopiować, przepisz (jako 
Instrukcja) , 

COPY PROTECTIOM PROGRAM - program zabezpieczający 
przed kopiowaniem, 

COPYARLE SOURCE DOCUMENT - oryginał przystosowany 
do powielania, 

COPYING - kopiowanie, 

COPYING ROUTINES - programy kopiowania, 

CORD - sznur, takie! przewód elektryczny, 

CORE - rdzeri, rdzeri ferrytowy, takie: rdzeniowa 
pamięć oper acyjna komputera, 

CORE ARRAY - matryca rdzeni, 

CORE IMAGE LIBRARY - biblioteka progr autów przysto- 
sowanych da załadowania, 

CORE L.AYOUT - schemat rozdysponowania pamięci, 

CORE MEMORY - pamięć rdzeniowa, pamięć magnetyczna 
ferr ytowa, 

CORE STORĘ - pamięć rdzeniowa, pamięć magnetyczna 
f arrytowa, 

CORMER OUT - ścięty roiek (karty), 

CORRECT - prawidłowy, poprawny, takiei poprawiać, 
wprowadzać poprawkę, 

CORRECTABLE - dający się poprawiać (sprostować), 
CORRECTABLE CODĘ - kod umożliwiający korygowanie, 
CORRECTTON - poprawka, wniesienie poprawki, 
CORRECTION STATEMENT - instrukcja korygowania, 
CORRECT I VE MAI NT Al NI MG - usuwanie awarii w maszynie, 
CORRECTOR - korektor, urządzenie prostujące, 
CORRELATION - korelacja, współzależność, wzajemne 
powiązanie, 

CORRELATION NET - siatka korelacji, 

CORRESPONDENCE - odpowiedmoSć, takżai stosownoSć, 
CORRESPONDING - odpowiedni, 

CORRUTTION - zepsucie, 

COSTS PER BY1E - koszty zapamiętywania bajtu, 

COUNI - liczenie, obliczanie, zliczanie, takie: stan 
licznika, liczyć, obliczać, 

COUNT-DOWN COUNTER - licznik poprzedni kowy (zlicza- 
jący "do tyłu"), 

COUNT-UP COUNTER - licznik następnikowy (zliczający 
"w przód" ) , 

COUNTABLE - policzalny, przeł iczalny, 

COUNTABLY INFINITE SET - zbiór przel iczalny, 
COUNTDOWN - praca licznika powodująca odejmowanie, 
COUNTER - licznik, mechanizm zliczający, 

COUNTER CAPACITY - pojemność licznika, 

COUNTER REGISTER - rejestr liczący, rejestr zlicza- 
jący, 

COUNTER TIMER CIRCUIT - programowany zegar, 
COUHTERCLOCKWISE - odwrotnie do ruchu wskazówek ze- 

COUNTERPART - odpowiednik, 

COUNTING - liczenie, obliczanie, zliczanie, 

COUNTING BOARD - liczydło, 

COUNTING CIRCUIT - układ liczący, 

COUPLING sprzężenie, połączenie, 

COUPLING ELEMENT - element sprzęgający, 

CPN - patrz i CRITHICAL PATH KETHOD, 

CPU - patrzi CENTRAL PROCESSING UNIT, 

GRAM - patrzi CARD RANDOM ACCESS MEMORY, 

CRC - patrzi CYCLIC REDUNDANCY CHECK CHARACTER, 
CREATING ADDITIONAL SYSTEM COKTROL AREA ROUTINES 
programy poszerzania systemowego obszaru sterowa- 
nia, 

CREATION DATĘ - data zapisu, 

CRISS -CROSS - krzyżujące się (przecinające się) 
linie, 

CRITERION - kryterium, 

CRITICAL PATCH METHOD metoda krytycznej Ścieżki, 
CROM - patrz: CONTROL AND READ-ONLY MEMORY, 

CROSS FOOTS - działanie arytmetyczne polegające 
na dodawaniu i odejmowaniu, 

CROSS PROTECTIOM - zabezpieczanie krzyżowe. 

CROSS SOFTWARE - oprogramowani* skroSne, 

CROSS - REF FKENCE - odsyłacz, 

CROSSBAR SWITCH - przełącznik krzyżowy, 

CROSSCHECK - sprawdzanie poziome, sprawdzanie dwoma 
różnymi sposobami , 

CROSSWISE - krzyżowo, 

CRT - patrzi CATHODE-RAY TUBĘ, 

CRT DISPLAY - monitor ekranowy, ekranopls. 


CRT RASTER DISPLAY - monitor rastrowy, 

CRYOGENIC MEMORY - pamięć krioganiczna, pamięć nad- 
pr 2 ewodn i kowa , 

CS CCODE SEGNENT5 - segment programu, 

CSL - patrzi CONTROL AND SIMULATION LANGUAGE, 

CSMA-CD - patrz: CARRIER-SENSE KULTI PLE -ACCESS WITH 
COLI SI OW-DETECI ON , 

CTI - patrzi COAYIAL TRANSCEI VER INTERFACE, 

CU - patrz: CONTROL UNIT, 

CUBE - szeScian, także: trzecia potęga, 

CUMULATE - kumulować,, nagromadzać, 

CUMULAT1 VE DATA - dane zbiorowe, 

CURRENCY SI (NI - znak waluty, 

CURRENT - prąd elektryczny, także: bieżący, 

CURRENT AWARENESS SER VI CE - bieżąca służba informa- 
cyjna, 

CURRENT DIRECTORY - katalog bieżący (aktualnie 
otwarty) , 

CURRENT INFORMATION - ir.foreacja bieżąca, informacja 
ciągi a, 

CURRENT LINF. - linia bieżąca (aktualnie zapisywana 
lub błędna), 

CURRENT POINT - bieżący punkt odniesienia, 

CURRENT POS3TION - pozycja bieżąca, 

CURRENT PROGRAM - program bieżący (aktualnie w pa- 
mięci ) , 

CURRENT SEGMENT - segment bieżący (zdefiniowany 
ostatnią instrukcją DEF) 

CURRENT VI EWPORT - wziernik bieżący (aktualnie uży- 
wany), 

CURSDR - kursor, wskaźnik pozycji, 

CURSOR CONTROL KEYS - klawisze sterujące kursorem, 
CURTATE LOWER - dolna częSć karty 80-kolumnowej 
z wierszami 1-9, 

CURTATE UPPER - górna częSć karty 80-kolumnowej 
z wierszami 10,11,12, 

CURVE - krzywa, krzywa charakterystyczna, 

CURVE GENERATOR - generator krzywych, 

CURVE PLOTTER - pisak krzywych, 

CUSTOMER - nabywca, 

CUSTOKIZED - także: przyjęty 
CUT DOWN - redukować, zmniejszać, 

CUT OFF - zatykać, odcinać, 

CX (C.OUNT REGISTER! - rejestr zliczający (pętli), 
CYAN - niebiesko-zielony, 

CYBERMATI ON - komputeryzacja, 

CYBERNETIC ENGINEERING - cybernetyka techniczna, 
CYBERNETIC MODEL - model cybernetyczny, 

CYBERNETICS - cybernetyka. 

CYCLE - cykl, także: okres, 

CYCLE CARRY - przeniesienie cykliczne (z najwyższej 
pozycji liczby do najniższej), 

CYCLE COUNT - liczenie cykli, 

CYCLE COUNTER - licznik cykli, 

CYCLE STEALING - zabieranie cykli, 

CYCLE TIME - czas cyklu, 

CYCLES PER SECOHD - liczba cykli na sekundę, 

CYCLIC - cykliczny, okresowy, 

CYCLIC CODĘ - kod cykliczny, 

CYCLIC PERM Ul' CD CODĘ - kod cykliczny permutowany, 
CYCLIC PROGRAMMING - programowanie cykliczne, 
CYQ_1C REDUNDANCY CrtECK CHARACTER CCRO - znak CRC, 
znak kontroli cyklicznej, 

CYCLIC SHIFT - przesunięcie cykliczne, 

CYCLICAL REDUNDANCY CHECK - cykliczna kontrola re- 
dundancji , 

CYLINDER - cylinder, 

CYLINDER ADDRESS - adres cylindra, 

CYLINDER INDEX - indeks cylindra, 

CZ-13 FONT - pismo CZ-13, 



DAILY DATA - dane dzienne. 

DAISY -CHAIN - układ łańcuchowy, rozproszony układ 
przerwań skierowanych, 

DAISY -WHEEL PRINTER - drukarka z wirującą głowicą, 
drukarka rozetkowa, 

DAMAGE - uszkodzenie, awans, takżei uszkodzić, 
DAMAGEABLE — podatny na uszkodzania, 

DARK TRACĘ TUBĘ - lampa z ciemnym Siadem (strumiert 
elektronów daje ciemny Siad na ekranie), 

DAS - patrzi DATA ACQUISXTION SYSTEM, 

DASH - kreska, znak łamania, 

DASHED LINĘ - linia kreskowa, 

DATA - dane, takżei wartość, 

DATA ACCEPTED - potwierdzenie odczytu danych, 

DATA ACOUISITION - gromadzenie danych, zbieranie da- 
nych, 

DATA ACOUISITION SYSTEM - układ gromad zen: a danych, 
DATA AVAILABLE - sygnał gotowości danych. 
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OŚRODEK BADAŃ I EKSPERTYZ 
INŻYNIERII SYSTEMÓW 

Polskiego Towarzystwa Cybernetycznego w Poznaniu 
organizuje kursy z zakresu użytkowania i oprogramowania 
mikrokomputerów SPECTRUM+ i IBM PC: 

1. Kurs podstawowy dla dyrektorów i kierowników przedsiębiorstw 
— 20 godz. 10 000 zł 

2. Użytkownik-operator mikrokomputera — 60 godz. 15 500 zł 

3. Programowanie w języku BASIC — 100 godz. 26 900 zł 

4. Projektowanie i oprogramowanie systemów informatycznych 
w technologii dBASE III — 140 godz. 36 000 zł 

Zajęcia odbywać się będą w Poznaniu. Terminy rozpoczęcia kursów 
podamy przed uruchomieniem kursu. 

Zgłoszenia prosimy kierować pod adresem: Ośrodek Badań 
i Ekspertyz Inżynierii Systemów Polskiego Towarzystwa Cy- 
bernetycznego ul. 28 Czerwca 231/239, 60-915 Poznań, budynek 
TASKO tel. 32-12-41, telex 0413353 w godz. 8.30—11.30 


OGŁOSZENIA 

Commodore 16/1 16/+4 — programy — 
wymienię. Jacek Rubinkowski, 09-400 Płock, 
ul. Orlińskiego 3 m 20 

Wideo niesprawne zamienię na mikrokompu- 
ter lub sprzedam. Andrzej Peta, Okumino, 
77-203 Dretyń, woj. Słupsk 

Programy na C-64 sprzedam. Marek Rudnic- 
ki, 51-376 Wrocław, ul. Klokoczycka 154 

Commodore 64 — chętnie wymienię się opro- 
gramowaniem. Posiadam około 400 progra- 
mów i gier. Alexander Stompel, 40-160 Ka- 
towice 2, ul. Armii Czerwonej 104/1 

Kupię TIMEX 2020. Michał Pracel, 81-116 
Gdynia, ul. Bosmańska 28/12 

Sprzedam Commodore 64 ze stacją 1541 i 
magnetofonom 1530 lub samą stację. Piotr 
Węcławik, 71-015 Szczecin, ul. Osikowa 26, 
tel. 82-41-82 

Wymienię programy na Commodore 64. Ra- 
dosław Dubiella, 75-347 Koszalin, ul. Wła- 
dysława IV 58a/37, tel. 529-36 


Pocztowa giełda 


Rozwiązanie krzyżówki z nr. 7/8 „IKS-a”. 
Hasło brzmi: „Kluby komputerowe młodych 
mistrzów techniki”. 

Bony pieniężne (1000 zł) wylosowali: Irena 
Pietruszewicz — Poznań, Dariusz Sideł — 

Kielce, Dorota Noworyta — Zielonki, Kon- 
rad Kwiatkowski — Jedlicze, Sławomir Za- 
łęcki — Łask. 

Nagrody książkowe otrzymują: Wojciech Ste- 
faniak — Włocławek, Klementyna Dembek 

— Toruń, Maria Ramian — Tarnów, Małgo- 
rzata Kaliszan — Murowana Goślina, Wie- 
sław Kołder — Ustroń, Maciej Trąd — Zie- 
lona Góra, Marian Borawski — Lubaczów, 
Wojciech Abramczuk — Sokołów Podlaski, 
Andrzej Piela — Zabrze, Artur Rapacz — 
Legnica. 

Rozwiązanie krzyżówki z nr. 9/87 „IKS-a”. 
Hasło brzmi: „Pamiętajmy o komputerze nie 
tylko na co dzień ale i w święta”. 

Bony PKO (1000 zł) wylosowali: Jerzy Trza- 
ska — Zawadzkie, Jarosław Kędrak — Czę- 
stochowa, Andrzej Tadewicz — Lublin, Anna 
Rynkicwicz — Dolistowo, Grażyna Stefanek 

— Lublin. 

Nagrody książkowe otrzymują: Danuta Bam- 
ber — Margonin, Mariusz Zacharkiewicz — 
Buraków k. W-wy, Weronika Kowalska — 
Sosnowiec, Sewer Nyckowski — Gostynin, 
Tadeusz Dziugieł — Ruda Śl., Jacek Szcze- 
pański — Zielona Góra, Alicja Kokot — Czę- 
stochowa, Wojciech Pilski — Gdańsk, Jaros- 
ław Murenia — Gorzów, Piotr Bakun — Ja- 
nów Lub. 

Rozwiązanie krzyżówki z nr. 10/87 „IKS-a". 
Bony pieniężne (1000 zł) wylosowali: Elżbieta 
Mazurowska — Szczecin, Dariusz Lubawy — 
Gniezno, Edward Chmielak — Kłodzko, Ag- 


nieszka Jastrząb — Dąbrowa Górnicza, Ale- 
ksander Wierzbicki — Białystok. 

Nagrody książkowe otrzymują: Jacek Wy- 
chowaniec — Sosnowiec, Wacław Skrzypczak 

— Warszawa, Krzysztof Chudy — Szczecin, 
Janusz Midura — Pszczyna, Henryka Kacz- 
marska — Radom, Tomasz Żak — Wrocław, 
Maciej Ziętek — Poznań, Jolanta Pogorzelska 

— Gdańsk, Stefan Kubowicz — Kraków, Jan 
Strzałka — Stargard Szczeciński. 


Rozwiązanie krzyżówki z nr. 11/87 „IKS-a”. 
Bony pieniężne (1000 zł) wylosowali: Michał 
Zimnicki — Malbork, Włodzimierz Plewa — 
Gdańsk, Grzegorz Romanowski — Łomża, 
Jerzy Wieloch — Poznań, Krzysztof Michal- 
ski — Ełk. 

Nagrody książkowe otrzymują: Leszek Pniak 
— Siemianowice Śl., Leszek Bakalarczyk — 


Bydgoszcz, Tomasz Woźny — Poznań, Ma- 
rek Wachel — Kraków, Radosław Lepek — 
Gdynia, Marek Lasecki — Warszawa, Ta- 
deusz Mamak — Kraków, Piotr Kalewicz — 
Gdynia, Andrzej Balcc — Olkusz, Aleksander 
Stochalski — Kraków. 


Rozwiązanie krzyżówki z nr. 12/87 „IKS-a”. 
Hasło brzmi: „Poznaj komputer — zyskasz 
przyjaciela”. 

Bony pieniężne (1000 zl) wylosowali: Sławo- 
mir Bukowski — Pruszków, Grażyna Nowak 
— Kraków, Andrzej Pieszalski — Słupsk, 
Andrzej Herla — Głogówek, Dorota Radzi- 
won — Torzyn. 

Nagrody książkowe otrzymują: Janina Stefa- 
nowska — Bielsko-Biała, Danuta Stryczek — 
Kluczbork, Ewa Dobrucka — Jastrzębie- 
-Zdrój, Andrzej Ćwikliński — Wrocław, Wie- 
sław Luks — Poznań, Maciej Trólka — Cze- 
ladź, Barbara Raczkowska — Szczecin, Ma- 
ciej Dusza — Warszawa, Robert Pcrłowski — 
Ziębice, Tomasz Salachna — Częstochowa. 


OLIVETTI 
PC M380 

Ten komputer pracuje 
na 32-bitowym mikropro- 
cesorze 80386. Podobnie 
jak inne modele tej firmy 
jest programowo zgodny 
ze swoim odpowiedni- 
kiem z IBM. M 380 pro- 
dukowany jest w trzech 
wersjach: M 380 C (Com- 
pact), M 380 S (Stan- 
dard) i M 380 T (Tower). 
W ostatniej z nich pamięć 
RAM może być rozbudo- 
wana*do 64 Mb! 
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Litery z kratek ponumerowanych od 1 do 14 dadzą hasło, które wystarczy nadesłać 
(jako rozwiązanie zadania) pod adresem redakcji na kartach pocztowych w terminie 
do końca kwietnia, naklejając kupon „IKS”-a. Wśród autorów prawidłowych odpo- 
wiedzi rozlosujemy bony pieniężne i nagrody książkowe. 

kupon ► iap , 




OLIVETTI PC M240 


Zbudowano go na mikroprocesorze 
8086. M240 dysponuje pamięcią RAM 
640 Kb. Standardowo wyposażony jest 
w jedną stację dysków miękkich (5 1/4 
cala). Istnieją oczywiście możliwości 
rozbudowy konfiguracji podstawowej. 
Można ją wzbogacić między innymi o 
dyski miękkie i 20 Mb dysk twardy. Za- 
letą tego modelu 01ivetti jest jego pro- 
gramowa zgodność ze standardem IBM. 

Systemem operacyjnym jest MSDOS 
3.2. M240 pobiera w czasie pracy moc 
183 W (napięcie sieci zasilającej 220 V ± 
10 %). 


COMMODORE 


PC 1 0 i PC 20 zbudowane zosta- 
ły na Intelu 8088. Pierwszy z nich 
ma RAM 51 2 Kb drugi 640 Kb. Oba 
pracują pod systemem operacyj- 
nym MS DOS 3.2. Zasadniczą róż- 
nicą jest dysk twardy (20 Mb) zain- 
stalowany w modelu PC 20, 


„IKS" - dodatek „Żołnierza Wolności". 
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Komputerowy biznes 

Centralnej Składnicy Harcerskiej 


W NUMERZE: 


Doczekaliśmy się zdrowej kon- 
kurencji — str. 4 

ODRA — Amstrad — str. 5 

W szponach Atari (13) 

— str. 6—10 

Tabelaryzacja — str. 10—11 

Interfejs magnetofonu 

— str.12 — 13 

Lilavati (cz. 3) —str. 14— 15 

Laureaci „Ligi Myślących" 

— str. 15 

Compact Disc — str. 16—18 

Standard MSX, a mikrokomputer 
SVI-738 X’PRESS -str. 19 

Grafika na ekranie (cz. 4) 

— str. 20-21 

Animacja kwadratu — str. 22 

Budżet domowy — str. 23—25 

Krzywe Sierpińskiego 

— str. 26—28 

Informatyczny słownik angiel- 
sko-polski — str. 29—30 

Giełda pomysłów — str. 31 


Od roku 1986 Centralna Składnica 
Harcerska handluje również sprzętem 
komputerowym. Osiem wyspecjalizowa- 
nych placówek w całym kraju sprzedało 
w ubiegłym roku sprzęt wartości 6.5 mi- 
liarda złotych. CSH związała się z jed- 
nym dostawcą — jest nią austriacka fir- 
ma PROSYSTEM, a warunki, jakie za- 
proponowała są na tyle atrakcyjne, że 
polski kontrahent nie myśli o zmianie 
partnera. Szczegóły umowy są oczywiś- 
cie tajemnicą handlową. Muszą być jed- 
nak atrakcyjne dla obu stron, skoro na 
polski rynek trafiają za sprawą Austria- 
ków kolejne generacje sprzętu kompute- 


rowego. Rozmowy partnerów muszą być 
jednak długie, efektem są zapełnione pół- 
ki w sklepach CSH i... coraz lepsza zna- 
jomość języka polskiego przez właściciela 
Prosystemu Hansa Hofera. 

W najbliższej przyszłości na Moko- 
towskiej będzie można kupić komputery 
zgodne z IBM PC/XT i IBM PC/ AT, 
zbudowane według koncepcji wspólnej 
magistrali, szybkie, 32-bitowe kompute- 
ry z zegarem 24 MHz (!), a także wielko- 
ekranowe projektory grafiki kolorowej, sie- 
ci komputerowe, systemy edycji składu i 
komputerowego wspomagania projekto- 
wania inżynierskiego. 


Sklepy CSH prowadzące sprzedaż sprzętu mikrokomputerowego 


BYDGOSZCZ 

KATOWICE 

KRAKÓW 

LUBLIN 

lOdz 

SćC.U-iN 

warszawa 

WRÓCI AW 


ul Chodkiewicza 68, 
ul Rozdzieńskiego 88a. 
ul Rynek Główny 5 
ul Kowalska 14. 
ul Lutomierska 12. 
ul Mariana Buczka 24c, 
ul. Mokotowska 26, 
plac Grunwaldzki 6a 


telefon 41 44 30 
telefon 58 28 33 
telefon 22 73 12 
telefon 29 472 
telefon 57 1 5 27 
telefon 35 596 
telefon 21 76 55 
telefon 21 92 61 


Pascal w drodze do Czytelników 


Już wkrótce drukarnię opuści kolejny zeszyt programów 
„IKS-a”. Pierwszy w tym roku poświęcony będzie w całości 
pascalowi. Ten język należy do jednych z najefektywniej- 
szych narzędzi programowania strukturalnego. Programy 
napisane w pascalu działają o wiele szybciej niż te, które 
do tej pory zwykliśmy pisać w basicu. 

I jeszcze jedno: pascal jest jeden — program napisany w 
tym języku na przykład na Spectrum można przepisać bez 
żadnych przeróbek w postaci źródłowej i uruchomić na 
IBM-ie. W naukę pascala warto zaiwestować. 


POCZTOWA GIEŁDA 


Rozwiązanie krzyżówki z nr. 
1/88 „IKS-a”. 

Nagrody książkowe otrzymują: Sła- 
womir Łysz — Włocławek, Andrzej 
Erd — Radom, Marcin Kobiela — 
Świerklaniec, Małgorzata Nowak — 
Kraków, Andrzej Niedbała — Cho- 
rzów, Dorota Baranowska — Oleśnica, 
Adam Dubicki — Gdynia, Jarosław 
Rosiński — Radom, Maria Rabczak — 
Gdańsk, Adam Kuryłowski — Szczecin. 
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Rozwiązanie krzyżówki z nr. 
2/88 „IKS-a”, 

Nagrody książkowe otrzymują: Wac- 
ław Skrzypczak - Warszawa, Małgo- 
rzata Czapla — Tarnowskie Góry, Eu- 
geniusz Chaszczewski — Kłodzko, 
Hanna Kornatowska — Warszawa, 
Przemysław Niekrasz — Wrocław, 
Krzysztof Małek — Zwoleń, Michał 
Urbaniak — Turek, Tomasz Skalski 
— Mrągowo, Jacek Wolski — Łódź, 
Łukasz Gumkowski — Ostrołęka. 


LAUREACI 
DRUGIEJ EDYCJI 
„LIGI MYŚLĄCYCH” 

Zwycięzcami drugiej edycji „Ligi Myślą- 
cych” zostali, uzyskując maksymalną 
liczbę 64 punktów, za prawidłowe roz- 
wiązanie wszystkich zadań, następujący 
czytelnicy: 

Zdzisław BEDYNEK 
03-982 Warszawa 
ul. Zawadzkiego 18/68 
Wiesław RYCHLICKI 
38-604 Hoczew 
Średnia Wieś (szkoła) 

0 jeden punkt mniej, tj. 63 uzyskali na- 
stępujący czytelnicy: 

Magdalena ROJEK 

01 -006 Warszawa 
ul. Nowolipki 19/15 

Andrzej BARCEWICZ 

1 8-400 Łomża 

ul. Broniewskiego 2/39 

Adam DOMIŃSKI 

80-395 Gdańsk 

ul. Rokossowskiego 1 1 /49 

O teminie wręczenia nagród lau- 
reaci zostaną powiadomieni listow- 
nie, natomiast od następnego nume- 
ru rozpoczynamy kolejną turę zma- 
gań Myślących. 


NAUKA — TECHNIKA 


Firma MARTIN marietta przystępuje 
do modyfikacji międzykontynental nych 
rakiet balistycznych typu titan ii w 
celu przystosowania ich do roli 
nosiciela satelitów. Pierwsza z 
czterech zamówionych, zmodyfikowana 
rakieta tego typu została już 
przetransportowana do bazy lotniczej 
vand«rb«rg w Kalif orni, gdzie w 
kwietniu tego roku ma nastąpić jej 
start. Umieści ona na orbicie 
okołoz i emski ej kolejnego amerykań- 
skiego satelitę przeznaczonego do 
celów wojskowych. 

XXX 

Nowym produktem zachodniemieckiej 
firmy ilc-ddc m»kironck ombH jest, 
oznaczona symbolem MEM-8400, 

statyczna pamięć RAM o pojemności 
64Kxló wykonana technologią CMOS. 
Zbudowana jest z czterech bloków 
32Kx8. Może ona pracować w zakresie 
temperatur od — 55 Ł C do +125»C, co w 
pełni odpowiada nowej wojskowej 
normie MIL-STD-883. Mały pobór prądu 

Tegoroczny model Japońskiego samochodu mazda 
oa.6 ma zostać wyposażony w system 

przeciwdziałający poślizgowi kół podczas 
hamowania. System ten Jest efektem pięciu lat 
wspólnych prac badawczych firm 

mazda, sumitomo.lucas oihlino 1 został wypróbo- 
wany zarówno w Japonii. Jak 1 Europie. Jest to 
układ czterokanałowy nadzorujący indywidualnie 
każde z czterech kół pojazdu. Stałe ciżnenie w 
układzie zapewnia pompa napędzana silnikiem 
elektrycznym. Każdy z członów sterujących 
wyposażony Jest w dwa mikroprocesory sterujące 
pracą układu i kontrolujące wzajemnie swoje 
działanie. 


Dużym zaskoczeniem dla uczonych, była analiza 
danych o komecie halleya dostarczonych przez 
zachodnioeuropejską sondę kosmiczną oiotto. króra 
przeleciała w odległości 600 km od jej Jądra. 
Okazało się. że w atmosferze komety występuje 
trzy razy więcej izotopu wodoru - deuteru. niż w 
atmosferze Jowisza i Saturna. Zawartożó deuteru 
Jest w komecie taka sama Jak w wodorze spotykanym 


umożliwia zapamiętywanie danych przy 
zewnętrznym zasilaniu baterią 2 V. 
Czas dostępu wynosi 100 nanosekund. 
Pamięć ta, w połączeniu z 16- lub 
32-bitowym mi kroprocesorem znajduje 
zastosowanie między innymi w ukła- 
dach grafiki komputerowej 
XXX 

Chemikom z amerykańskiego 

uniwersytetu ihodc island udało się 
wynaleźć polimer przewodzący prąd 
elektryczny i zmieniający swą barwę 
pod wpływem zmian jego natężenia. 
W stanie normalnym polimer jest 
bezbarwny, dopiero pod działaniem 
prądu staje się najpierw zielony, a 
później niebieski i 

fioletowy. Materiałem tym 

zainteresowali się już specjaliści 
planując skonstruowanie polimerowego 
ekranu telewizyjnego. Nowy materiał 
zostałby umieszczony pomiędzy dwiema 
szklanymi taflami pokrytymi drobną 
siatką przewodów elektrycznych. 

Dostarczany za jej pośrednictwem prąd 
zmieniałby w określonych miejscach 
barwę takiego ekranu. 

na Ziemi. w skałach księżycowych oraz 
meteorytach. Jest to ważne spostrzeżenie z punktu 
widzenia kosmochemii . Wysunięto hipotezę, że 
planety grupy ziemskiej mogły formować się w tej 
samej czężci protosłonecznego obłoku, co komety. 
Odkrycie to rzuca nowe Światło, na problem 
powstania i ewolucji naszego Układu Słonecznego. 

■ ■ ■ 

Na uniwersytecie w Birmingham CWielka 
Brytania} opracowano nową technologię 

Jednoczesnego wytapiania kilku metali z rud 
wieloskładnikowych. Wytapianie odbywa się w 
specjalnym wielopoziomowym piecu. w którym 
podgrzewa się rudę do temperatury około 1300*C. 
Podstawą nowej technologii Jest recyrkulacja 
stopionej rudy pomiędzy kolejnymi poziomami 
pieca, która, dając ciągłą reakcję chemiczną, 
pozwala na wyodrębnienie poszczególnych metali z 
rudy. Przewiduje się. że wdrożenie tej 
technologii spowoduje ponowny rozkwit hutnictwa 
metali nieżelaznych w XXI wieku. Umożliwi bowiem 
wykorzystanie olbrzymich pokładów rud 

wieloskładnikowych o strukturze drobnoziarnistej, 
krore nie mogły być dotychczas eksploatowane. 



Doczekaliśmy się zdrowej konkurencji 

Rozmowa z dyrektorem Biura Organizacji Importu i Eksportu 
— Waldemarem ZNAMIEROWSKIM. 



• Rynek informatyczny zapełniony juz 
jest podobnymi, jak wy firmami, czy uważa 
Pan. ze zdołacie się przebić 

— i To chyba zdrowy objaw prawdziwe j 
konkurencji, nawet tu na Chłodnej działają 
obok siebie trzy spółki zajmu/ące się Infor- 
matyką. Nie przeszkadzamy sobie Nasi 
kontrahenci stają się wybredniejsi, zmusze- 
ni zatem iesteśmy me tylko do rozszerzania 
oferty, ale i do doskonalenia j akości na- 
szych usług i to decydu/e o powodzeniu 

• Czy konkurencja wpływa także na ce- 
ny 9 

— Sprzętu już tak, choć nie zawsze ceny 
idą w dół W zasadzie utrzymują się na sta- 
łym poziomie, co przy zmiennym przecież 
kursie złotówki jest dowodem względnego 
spadku cen. Ale klienci na ogól poszukują 
nowości 

• To znaczy 9 

— Coraz częście/ odnotowujemy zainte- 
resowanie . sieciami. To zjawisko dobrze 
świadczy o rozwoju naszej informatyki. Myś- 
lę, że moda na „komputer" przemija /uż bez- 
powrotnie Częście/ informatyka ma być tą 
dziedziną działalności która ułatwia funk- 
cjonowanie przedsiębiorstw, a tego nie za- 
łatwi przecież spektakularnie zainstalowany 
miki c komputer. 

• Co zatem proponujecie 9 

— Przede wszystkim oczywiście sprzęt 
zgodny ze standardem IBM. Oferujemy sieci 
Ethernet, Delink, Novell. Arcnet w zależnoś- 
ci od przeznaczenia i możliwości, a także 
wielodostęp. Pod tym względem nie różnimy 
się od innych tego rodzaju firm. 

• ma sklomć potencjalnego klienta 
c .vyboru właśnie was 9 

4 


— W tej branży decydu/e przede wszyst- 
kim jakość obsługi, sprawność serwisu, nie- 
zawodność proponowanego sprzętu Sta- 
ramy się sprzedawać komputery jednego 
producenta — to znacznie ułatwia sprawy 
serwisowe. Nie bez znaczenia jest też fakt, 
że za rok. dwa nasz pierwszy klient wróci do 
nas po kole/ne zakupy 

• Jaką dajecie gwarancję. ze będziecie 
istnieć 

— My chcemy istnieć, ale gwarancji dać 
nie możemy, bo za dwa miesiące mogą 
zmienić się przepisy finansowe i zbankrutu- 
jemy 

• Krucha ta perspektywa 

— Ale prawdziwa 

• Co zatem w najbliższej przyszłości 9 

— Instalujemy kilka sieci komputero- 
wych wraz z oprogramowaniem, ale są to 
instalacje lokalne Trzeba pamiętać, że im 
sieć bardziej rozbudowana, a poszczególne 
/ei elementy od siebie bardzie / odległe je; 
cena szybko rośnie. W tym przypadku de- 
cyduje o tym cena. kabla — jeden metr 15 
dolarów. 

• Przecież rnozna wykorzystać istnieją- 
cą juz sieć telekomunikacyjną 

— Tak, ale nie tej jakości... 

• Rozumiem, ze ubogim klientom ma da- 
lecie żadnych szans 

— Jesteśmy na etapie, w którym efekty 
wprowadzania informatyzacji już widać. Nie 
będzie w tej dziedzinie rewolucji, ale i od in- 
formatyki me uciekniemy Dlatego mało 
kto boi się informatyki i inwestycji w tej dzie- 


dzinie — to konieczność — a poza tym 
zmieni się wkrótce jakość świadczonych us- 
ług 

• To znaczy? 

— Myślę, że już niedługo większą uwagę 
przywiązywać się będzie do oprogramowa- 
nia. Pala inwestycji sprzętowych już prze- 
chodzi punkt kulminacyjny Zresztą na 
całym świecie kcszty sprzętu są jedynie . 
mnie j więcej jedną tizecą wydatków na in- 
formatykę — reszta to oprogramowanie. 

• U nas oprogramowanie jest za darmo. 

— Albo kosztuje krocie Nie ma tu reguły, 
choć obowiązują dwa krańcowo różne po- 
dejścia. Prawo autorskie me chroni opro- 
gramowania, a zatem kopiuje się je bezkar- 
nie i za darmo, albo dokonuje się drobnych 

przeróbek i przyznaje do jego autorstwa. 

• Tak jest w przypadku oprogramowania 
narzędziowego i standardów 

— Prawo autorskie nie chroni również 
programów naszych polskich informatyków. 
Sądzę jednak, że wkrótce sprawy te zostaną 
uregulowane 

• Wacie jakieś asy w rękawie. 

— Stacje teleksowe sprzężone z kompu- 
terem personalnym klasy IBM. Handlujemy 
też sprzętem wideo, ostatnio sprowadziliśmy 
ekrany wizyjne (Cine Vision) 

• Przyznaję, ze jest to duży rozrzut zain- 
teresowań 

— Tak. ale my proponujemy zawsze naj- 
wyższą lakość usług. 

• Czego Wam i klientom zyczę 

Wiesław Cetera 



ODRA — Amstrad 


Wyposażenie uczelni w mikrokomputery 
ośmiobitowe, nawet takie jak AMSTRAD 
CPC-6128, w niewielkim stopniu rozwiązuje 
informatyzację (z punktu widzenia zaopatrze- 
nia w sprzęt) zarówno dydaktyki, jak i proce- 
sów zarządzania — ze względu na małą poje- 
mność pamięci (operacyjnej i dyskowej) oraz 
niezależną pracę każdego zestawu mikrokom- 
puterowego. 

Także eksploatowany dotychczas (rozbu- 
dowany) sprzęt komputerowy ODRA — 1305 
pracujący pod kontrolą Systemu Operacyj- 
nego (SO) GEORGE — 3 nie spełniał całko- 
wicie związanych z nim oczekiwań. Powodem 
było skromne (jest to chyba problem wszyst- 
kich ośrodków obliczeniowych) wyposażenie 
w sprzęt teletransmisji — Urządzenia Prze- 
twarzania Danych (UPD), modemy, a przede 
wszystkim w terminale — drukarki 
(DZM) lub monitory z klawiaturą. 

W tej sytuacji zdecydowano się połączyć 
mikrokomputery z ODRĄ, nie tylko w celu 
uzyskania dodatkowych terminali do pracy w 
wielodostępie pod kontrolą SO GEORGE-3, 
ale także z zachowaniem niezależnej pracy 
AMSTRADA — z możliwością przepisywa- 
nia danych między dyskietką a pamięciami 
masowymi ODRY 

Sprzężenia takiego dokonano przez szere- 
gowy interface oraz odpowiednie oprogra- 
mowanie — emulator „LIDIA”. AMSTRAD 
CPC-6128 stał się standardową asynchroni- 
czną dialogową końcówką ODRY — taką jak 
DZM. Wymuszenie (w czasie pracy pod kon- 
trolą SO GEORGE-3) przerwania ([CON- 
TROL] A K) umożliwia wybranie kierunku 
przesyłania danych, z dyskietki AMSTRADA 
do Pamięci Zbiorów Systemu (PZS) GEO- 
RGE-3 — komendą INPUT lub w drugą 
stronę — z PZS na dyskietkę — komendą 
LISTFILE. 

Takie rozwiązanie umożliwia przygotowa- 
nie danych do przetwarzania na dyskietkach z 
wykorzystaniem mikrokomputerów rozpro- 
szonych (w pomieszczeniach wykonawców, 
użytkowników lub w domu), a następnie 
przepisywanie zawartości dyskietki — z wy- 
dzielonych stanowisk — do pamięci maso- 
wych ODRY. Także wyniki przetwarzania (na 
ODRZE) mogą być przekazywane użytkow- 
nikom — przez transmisję w drugą stronę — z 
PZS na dyskietkę AMSTRADA, a nie jak do- 
tychczas — w postaci wydruku. 

Podstawową formą wykorzystania AMS- 
TRADA będzie jednak traktowanie tego 
urządzenia jako terminalu do typowej pracy 
pod kontrolą SO GEORGE-3: 

— realizacja zadań programowych (edycje 
zbiorów, kompilacje, testowania programów) 

— inicjowanie i kontrola wykonania prac 
użytkowych. 

Uruchomienie pracy AMSTRADA pod 
kontrolą SO GEORGE-3 następuje przez: 

— uruchomienie systemu C.PM+ 

— ustawienie parametrów transmisji 
(SETSIO, BITS, STOP, PARITY) 

— uruchomienie emulatora. 

Praktycznie ładowany jest tylko CPM-k 

'Pozostałe operacje przebiegają zgodnie z ko- 
■mendami założonego na dyskietce zbioru 
PROFILE.SUB. 

Informacje praktyczne 

— zbiory do zapisu (odczytu dyskietki nie 
mogą przekraczać jej pojemności 180 kbajtów) 


— długość rekordu zbiorów do zapisu (od- 
czytu z dyskietki nie może przekraczać 255 
bajtów 

— czas przepisywania danych zależy ód 
obiążenia SO GEORGE-3, jest jednak długi. 
Przepisywanie pełnej dyskietki (180 kbajtów) 
trwa od 20 do 30 min (przy prędkości 4800 
bodów) 

— wykorzystując mikrokomputer jako ty- 
powy terminal SO GEORGE-3, nie odezwa 
się różnicy w szybkości pracy — w porówna- 
niu z pracującymi jednocześnie innymi urzą- 
dzeniami (DZM, monitory) 

— dostępne prędkości przesyłania infor- 
macji — od 150 do 9600 bodów, zależą w 
praktyce od parametrów technicznych stoso- 
wanego sprzętu. Sprzężenie zrealizowano na 
prędkościach 1200 i 2400 bodów. 

— formaty zbiorów: 

— na dyskietce — zbiory tekstowe 

— w PZS — zbiory formatu graficznego 
(CR, LP, TP, TR) 

— sprzęt i oprogramowanie: 

— komputer ODRA-1305 pracujący pod 
kontrolą SO GEORGE-3 

— urządzenia teleprzetwarzania dla kom- 
putera ODRA (multiplekser, UPD i lub mo- 
demy) 

— mikrokomputer AMSTRAD CPC- 
6128 z minimum jedną (wbudowaną) stacją 
dysków pracujący pod kontrolą systemu 
CPM+ 

— interface RS 232-AC produkowany 
przez AGROKOMPUTER w Warszawie 

— emulator „LIDIA” wykonany przez 
mgr inż. Lidię Stasiewicz i mgr. inż. Pawła 
Stasiewicza (WPIPB ETOB w Warszawie) 

— wykonawca sprzężenia — realizacja 
„pod klucz”, interface + emulator — spółka 
z o.o. SYKOMAT w Warszawie 

— koszty (grudzień 1987 r.): 


— interface — 140 tw zł dla każdego mi- 
krokomputera 

— emulator — 150 tys. zł gdy praca na 
jednym stanowisku (mikrokomputerze 
AMSTRAD) lub 300 tys. zł przy dowolnej 
liczbie terminali. 

W ramach tych kosztów realizowane jest 
wykonanie sprzężenia oraz zawarta jest roczna 
gwarancja. 

— sprzężenie praktycznie zrealizowano z 
wykorzystaniem multipleksera i SO GEOR- 
GE-3. Można je wykonać przez inne urzą- 
dzenia (np. skaner), pod kontrolą innego 
oprogramowania ODRY (MINIMOP) lub 
dowolnego, własnego oprogramowania np. 
multipleksera. 

Wnioski 

Sprzężenie komputera ODRA-1305 z mi- 
krokomputerem AMSTRAD CPC-6128 zrea- 
lizowano w końcu 1987 roku w Ośrodku Obli- 
czeniowym Wojskowej Akademii Politycznej. 
AMSTRAD nie jest droższym terminalem 
ODRY od dotychczas wykorzystywanych 
DZM lub monitorów MERA 7952 i jest do- 
stępny na rynku. 

AMSTRAD wykorzystywany jest w pracy 
pod kontrolą SO GEORGE-3 w każdej sesji 
— nawet chętniej niż inne terminale — prze- 
de wszystkim ze względu na klawiaturę. Edy- 
cja wprowadzanych informacji nie pozostawia 
na ekranie aktualizowanych (zmienianych, 
kasowanych) danych. 

Należy nadmienić, że sprzężenie to rozbu- 
dowuje również możliwości mikrokomputera 
dzięki dostępowi do: 

— pamięci masowych ODRY 

— szybkiej (1000 wierszy/min) drukarki 
wierszowej. 

oprać. 

Krzysztof ŚWIĘTOŃ 



— Na ciebie też reaguje negatywnie? 


W szponach Atari(13) 

Pamięć taśmowa 

Tortiasz MROWIEĆ, Ludwik Piela 


Po wyłączeniu zasilania zawartość pa- 
mięci wewnętrznej komputera, zwykle pół- 
przewodnikowej, ginie. Trudno sobie wyo- 
brazić, aby za każdym razem, po włączeniu 
zasilania, użytkownik wprowadzał program 
za pomocą klawiatury. Podobna sytuacja 
jest ze zbiorami danych, o znacznej nieraz 
objętości. Dlatego niezbędna jest dołko- 
wa pamięć, której zawartość może być za- 
chowana nawet po wyłączeniu zasilania i 
szybko wprowadzona do pamięci operacyj- 
nej, po ponownym włączeniu komputera. 

Najprostszą i najtańszą możliwość prze- 
chowywania programów i danych stwarza 
standardowa kaseta magnetofonowa. Skła- 
da się ona z małego, plastikowego pojemni- 
ka o wymiarach 57x100 mm, zawierającego 
dwie szpule z nawiniętą taśmą o długości 
około 90 m i szerokości 4 mm. Otwór w bo- 
cznej krawędzi kasety umożliwia przesuwa- 
nie taśmy. Otwory w szpulach pozwalają na 
prowadzenie osi napędowych. Powszech- 
nym rozwiązaniem mechanizmu przesuwu 
taśmy jest zastosowanie wałka napędowe- 
go i rolki dociskowej, które zapewniają stałą 
prędkość ruchu taśmy. 

Zapis i odczyt informacji odbywa się po- 
dobnie jak w magnetofonie. Część produ- 
centów umożliwia współpracę komputera 
domowego ze zwykłym magnetofonem ka- 
setowym. Dzięki temu użytkownik uzyskuje 
pamięć zewnętrzną minimalnym kosztem. 
Magnetofon może być najczęściej bezpo- 
średnio podłączony do komputera, bez ko- 
nieczności stosowania dodatkowych urzą- 
dzeń i umożliwia zarówno nagrywanie pro- 
gramów na kasecie, jak i wprowadzanie ich 
do pamięci wewnętrznej komputera. 

Niektóre komputery domowe, wśród nich 
również Atari, mogą współpracować tylko 
ze specjalnie do tego przeznaczonymi 
magnetofonami. Zapewnia to znacznie 
większy komfort obsługi (programowe włą- 
czanie i zatrzymywanie silnika) i większą 
niezawodność przesyłania programów i da- 
nych między komputerem i magnetofonem. 

Podstawowymi wadami tej pamięci są: 
szeregowa rejestracja informacji oraz bar- 
dzo mała szybkość przesyłania. Dlatego 
niezwykle długi, jak na wymagania kompu- 
tera, jest czas wyszukiwania potrzebnej in- 
formacji na taśmie. Komputer potrafi zna- 
leźć program lub dane utrwalone na nośniku 
magnetycznym, ale szukanie polega na 
sprawdzaniu zawartości w takiej samej ko- 
lejności i z taką samą szybkością, w jakiej 
realizowany był zapis. Dlatego, między in- 
nymi, specjalne kasety przeznaczone do re- 
jestracji programów zawierają krótszą taś- 
mę magnetyczną niż kasety do nagrań mu- 
zycznych. Znacznie mniej czasu zajmuje 
wymiana kaset niż wyszukanie potrzebnego 
programu na długie] taśmie. Mniejsza jest 
także szansa nierówności przesuwu na sku- 
tek oporów kaset. 

S- 


Z tych względów nie polecamy nikomu 
używania taśmowej pamięci magnetycznej 
do poważniejszych prac, zarówno amator- 
skich, jak i profesjonalnych. Jednak rzeczy- 
wistość jest okrutna, cena stacji dysków 
(pamięci zewnętrznej o dostępie bezpo- 
średnim) znacznie przewyższa cenę popu- 
larnego komputera ośmiobitowego. Dlatego 
większość krajowych posiadaczy kompute- 
rów domowych wykorzystuje pamięć taś- 
mową, której cena nie przekracza połowy 
ceny komputera. 

Jak już wspomnieliśmy, ośmiobitowe 
komputery Atari w zasadzie współpracują ze 
specjalnie skonstruowanym magnetofonem 
firmowym. Piszemy w zasadzie, ponieważ 
naszym rodakom, chyba jako jedynym na 
świecie, udało się dostosować do współ- 
pracy zwykłe magnetofońy, zarówno stereo- 
— (zalecane), jak i monofoniczne. Za uła- 
mek ceny oryginalnego urządzenia, o na- 
zwie Program Recorder, można nabyć spe- 
cjalny układ pośredniczący, który umożliwia 
wykorzystanie zwykłego magnetofonu jako 
taniej pamięci zewnętrznej. 

Podobnie do różnorodnych sposobów 
• organizacji wewnętrznej komputerów, zbu- 
dowanych często na podstawie tego same- 
go mikroprocesora, istnieją różnorodne 
techniki zapisywania informacji na taśmie 
magnetycznej. Jest to rezultat fantazji pro- 
jektantów w zakresie przyjętych rozwiązań 
układowych i programowych oraz braku ja- 
kichkolwiek standardów. 

Atari współpracuje z pamięcią taśmową 
za pośrednictwem układu POKEY. Zapis i 
odczyt informacji realizowany jest przez od- 
powiednie procedury systemu operacyjne- 
go. W odróżnieniu od innych rodzajów pa- 
mięci, obsługa magnetofonu, pomimo pro- 
gramowego sterowania włączaniem i wyłą- 
czaniem silnika, wymaga znacznego udziału 
użytkownika. Niezbędne jest odpowiednie 
ustawienie taśmy oraz włączenie jednego 
lub dwóch klawiszy, w zależności od rodzaju 
wykonywanej operacji. 

System operacyjny zapisuje informacje 
blokami o stałej długości z szybkością 600 
bodów (fizycznych bitów/s). Do przesyłania 
danych między komputerem i magnetofo- 
nem używana jest szeregowa transmisja 
asynchroniczna. Układ POKEY rozpoznaje 
każdy przesyłany bajt w następującej kolej- 
ności: 1 bit startu („0" logiczne), 8 bitów da- 
nych oraz bit stopu („1” logiczna). Bajt wysy- 
łany jest i odbierany od najmniej znaczące- 
go bitu. Do reprezentowania „1" logicznej 
używana jest częstotliwość 5327 Hz, do re- 
prezentowania „0" logicznego — 3995 Hz. 
Postać bajtu danych jest następująca: 


s 0 1 0 1 1 0 0 1 s 

Każdy blok składa się ze 132 bajtów. Wy- 
różnia się w nim: 2 znaki wskaźników, bajt 


kontrolny, 128 bajtów danych i bajt sumy 
kontrolnej. 

Znaki wskaźników mają kod szesnastko- 
wy 55. Wraz z, bitami startu i stopu każdy 
wskaźnik ma długość 10 bitów. Służą do 
pomiaru szybkości transmisji Zakłada się, 
ze transmisja wejściowa odbywa się z no- 
minalną szybkością 600 bodów. Do takiej 
szybkości dostrojone są układy odbiorcze. 
Jednak szybkość faktyczna nie jest stała, 
zależy od odchyleń w szybkości silnika, na- 
ciągu taśmy, itp. Jest ona zatem mierzona 
przez odpowiednią procedurę SIO. Po 
określeniu rzeczywistej szybkości transmisji 
wejściowej odpowiednio dostrajane są 
układy odbiorcze. W ten sposób może być 
obsługiwana transmisja wejściowa o szyb- 
kości zmieniającej się od 318 do 1407 bo- 
dów. Pomiar szybkości wykonywany jest dla 
każdego bloku odczytywanego z taśmy, 

'Bajt kontrolowany przyjmuje jedną z 
trzech wartości: 

— $FC wskazuje, że blok zawiera dokładnie 
128 bajtów danych. 

— $FA wskazuje, że blok jest częściowo za- 
pełniony; zawiera mniej niż 128 bajtów da- 
nych. Taki przypadek może wystąpić tylko w 
bloku przed końcem zbioru. Aktualna liczba 
bajtów danych, od 1 do 127, zapamiętana 
jest w ostatnim bajcie przed sumą kontrolną, 
tj-. w 1 28 bajcie danych. 

ŚFE wskazuje, że jest to ostatni blok w 
zbiorze i występuje w nim 1 28 bajtów zero- ; 
wych 

Bajt sumy kontrolnej zawiera sumę 
wszystkich innych bajtów w bloku, włącza- 
jąc oba znaczniki. Suma obliczana jest z 
krążącym przeniesieniem, to znaczy, w mia- 
rę dodawania wartości nowych bajtów, do- 
dawany jest także bit przeniesienia. 

Jest to przyczyną potencjalnych próbie- 1 
mów. Oprogramowanie, które zapisuje na 
taśmę, musi zostawić wystarczająco długie' 
przerwy, aby początki bloków nie były gu- 
bione podczas wprowadzania. 

W celu odróżnienia jednego bloku od 
drugiego procedura obsługi magnetofonu 
dodaje przerwy międzyblokowe (IRG). Dłu- 
gość IRG zależy od trybu otwarcia zbioru do 
zapisu. Istnieją dwa typy IRG: normalna i 
skrócona. Normalna przerwa międzybloko- 
wa używana jest do odczytu przemieszane- 
go z przetwarzaniem, tzn. taśma zawsze za- 
trzymuje się po odczytaniu każdego bloku. 
Jeśli komputer zatrzyma taśmę i wykona 
swoje obliczenia wystarczająco szybko, 
może się zdarzyć, że następny rozkaz od- ' 
czytu pojawi się przed zatrzymaniem taśmy. 1 
W trybie skróconego IRG taśma nie jest za- ! 
trzymywana między blokami, ani podczas 
zapisu, ani podczas odczytu. Powszechnym 
zastosowaniem tego trybu jest przechowy- 
wanie programów w języku BASIC za po- • 
mocą instrukcji CSAVE 

Pamięć zewnętrzna może być używana - 
do przechowywania programów i zbiorów , 
danych. Zbiory danych dzielą się na rekor- . 
dy. Liczba rekordów ograniczona jest dłu- | 
gością taśmy. Rekord może mieć dowolną 
liczbę pól, chociaż wszystkie rekordy w tym , 
samym zbiorze powinny mieć taką samą i 
liczbę pól. Jeśli pole nie jest używane, może > 
mieć wartość zerową lub być puste. Dla 
oznaczenia końca zbioru komputer zapisuje 
specjalny rekord. 

Zbiory danych zapisane na taśmie mag- n 
netycznej mają jedno poważne ograniczę - 1 
nie: dane w nich zawarte mogą być osiąga- . 


ne tylko sekwencyjnie. Oznacza to. że mu- 
simy zaczynać czytanie od początku zbioru i 
czytać do końca. Nie możemy' również do- 
dawać, ani kasować rekordów. 

Komputer nie wysyła danych do i z ma- 
gnetofonu znak po znaku, lecz wykonuje to 
w 1 28 bajtowych blokach Rekord może zaj- 
mować więcej niż jeden blok, dokładnie je- 
den blok lub mniej niż jeden blok, w zale- 
żności od jego długości. Ogólnie mówiąc, 
program nie martwi się o to jak blokowane 
są rekordy danych. Komputer wykonuje to 
automatycznie. 

Atari komunikuje się z wszystkimi urzą- 
dzeniami pośrednio, za pomocą kanałów 
wejścia/wyjścia. Istnieje osiem kanałów, 
numerowanych od O do 7. W celu komuni- 
kowania się z określonym urządzeniem, 
program najpierw podłącza urządzenie do 
jednego z kanałów. Jeśli program żąda 
wprowadzenia danych z tego kanału, nad- 
chodzą one z żądanego urządzenia. Podob- 
nie, program kieruje wyprowadzane dane do 
kanału, który przesyła je do wybranego 
wcześniej urządzenia wyjściowego. 

BASIC rezerwuje kanały o numerach 0, 6 i 
7 do określonych działań. Kanał nr 0 jest 
stale zarezerwowany dla edytora.lnstrukcje 
wprowadzania z klawiatury, w trybie bezpoś- 
rednim, używają kanału nr 0. Wszystkie pro- 
ste instrukcje INPUT i PRINT używają kana- 
łu 0. Kanał 7 używanyjest do pewnych ope- 
racji drukarki oraz wprowadzania i prze- 
chowywania programów. Specjalne ins- 
trukcje graficzne używają kanału nr 6. Cał- 
kowicie dostępne dla programów są kanały 
o numerach od 1 do 5; kanały 6 i 7 — w 
ograniczonym zakresie. 

Instrukcja OPEN podłącza kanał do wy- 
branego urządzenia. Kolejne instrukcje 
wprowadzania lub wyprowadzania mogą 
mieć wtedy dostęp do tego urządzenia po- 
przez numer kanału. Postać instrukcji OPEN 
jest następująca: 


OPEN tik, a, t, nazwa 

Pierwsza liczba po słowie OPEN jest nu- 
merem kanału (0<k<7). 

Ostatni parametr jest nazwą urządzenia 
(np. C:, E:, S:, P:). 

Druga liczba określa rodzaj działania (ak- 
cji), które będzie dozwolone w kanale. Może 
to być wprowadzenie (4), wyprowadzanie 
(8) lub oba jednocześnie (12). Jednak dzia- 
łanie musi mieć sens. Nie można, na przy- 
kład, otworzyć klawiatury dla wyprowadza- 
nia. 

Jest jeszcze jeden parametr, tuż przed 
nazwą urządzenia Jest on używany w zale- 
żności od urządzenia. Dla klawiatury (K:) 
oraz edytora (E:) jest ignorowany. Dla 
ekranu (S ) może wybierać tryb wyświetla 
nia, tekstowy lub graficzny. W przypadk.. 
pamięci taśmowej parametr ten określa 
wielkość przerwy międzyblokowej (IRGi 
Zerowa wartość parametru wybiera nor- 
malną przerwę międzyblokową, a 128 — 
skróconą 

Kanał pozostaje otwarty do zakończenia 
działania programu lub wyraźnego zam- 
knięcia go. Gdy program kończy działanie 
instrukcją END, zamykane są wszystkie ka- 
nały. Lecz jeśli zatrzyma się w wyniku reali- 
zacji instrukcji STOP, naciśnięcia klawisza 
BREAK lub błędu, wszystkie otwarte kanały 


pozostają otwarte Instrukcja CLOSE za- 
myka tylko jeden kanał. 

Informacja w zbiorze taśmowym staje się 
dostępna po otwarciu zbioru i pozostaje do- 
stępna do czasu jego zamknięcia. Zbiór 
taśmowy nie może być jednocześnie otwar- 
ty dla wprowadzania i wyprowadzania. 

Po napotkaniu instrukcji OPEN komputer 
sygnalizuje ten fakt dźwiękiem; jeden sygnał 
dla wprowadzania, dwa — dla wyprowadza- 
nia. Następnie czeka na ustawienie taśmy w 
odpowiednie] pozycji i naciśnięcie dowol- 
nego klawisza. Dopiero wtedy rozpoczyna 
się ruch taśmy i komputer odczytuje lub za- 
pisuje 20-sekundowy sygnał pilotujący. W 
tym czasie nie wykonuje on innych instruk- 
cji. 

Ważne jest zamknięcie nieaktywnego 
zbioru, ponieważ uwalnia kanał. Szczególnie 
ważne jest zamknięcie zbioru, który został 
otwarty do zapisu. Ominięcie tego może 
spowodować utratę danych. Bufor magne- 
tofonu może być częściowo wypełniony da- 
nymi. Zamykanie zbioru powoduje wypro- 
wadzenie tych danych z buforu do ostatnie- 
go bloku na taśmie. Jeśli zbiór nie zostanie 
zamknięty, zawartość częściowo zapełnio- 
nego buforu nigdy nie zostanie wyprowa- 
dzona 

Dane mogą być wyprowadzane do zbioru 
za pomocą instrukcji PRINT# lub PUT. Obie 
instrukcje wysyłają dane do otwartego ka- 
nału. Nie jest ważne do jakiego urządzenia 
podłączony jest kanał. 

Instrukcja PRINT# wyprowadza wartości 
numeryczne i tekstowe w kodzie ATASCII. 
Dla rozdzielenia pozycji należy używać ra- 
czej średników niż przecinków. Przecinki są 
dozwolone, lecz powodują wyprowadzenie 
dodatkowych spacji. 

Każda oddzielna wartość wysyłana do 
magnetofonu musi kończyć się znakiem 
EOL (end of linę). Podczas wprowadzania 
znak EOL określa, gdzie ona się kończy. 
Jednym ze sposobów zapewnienia, ze wy- 
stąpi znak EOL, jest wyprowadzenie każdej 
wartości oddzielną instrukcją PRINT# 
Nigdy nie należy jej kończyć średnikiem lub, 
przecinkiem, Innym sposobem wyprowa- 
dzenia znaku EOL jest funkcja CHR$ (pro- 
gram nr 1). 


FK 1 REM **************** 

FJ 2 REM * * 

Xfl 3 REM * Pros ram nr 1 * 

FL 4 REM * * 

FO 5 REM **************** 

ML 6 REM 

II 10 PRINT "Ustaw tasme i nacisn 
iJ <RETURN> " ; 

YU 20 OPEN #3/8/0/ "C 1 " 

QY 30 PRINT #3 J fi ; CHR* < 1 55 ) J B ; CHR* 
<155);C 

MG 40 CLOSE #3 


Każda instrukcja PUT wyprowadza poje- 
nczą wartość numeryczną od 0 do 255 
Zajmuje ona tyle samo miejsca co jeden 

FK 1 REM **************** 

FJ 2 REM * * 

XU 3 REM * Pros ram nr ' 2 * 

FL 4 REM * * 

FO 5 REM **************** 

HL 6 REM 

II 10 PRINT "Ustaw tasme i nacisn 
ij <RETURN> " ż 
YU 20 OPEN #3/8/0/ "Ci" 

PV 29 REM Wyprowadzenie pusteio r 
ekordu 


SH 30 FOR J=1 TO 128 
BS 40 PUT #3/0 
JC 50 NEXT J 

Kfl 60 PRINT #3; "Początek danych" 
MJ 70 CLOSE #3 
YW 80 END 


znak ATASCII Program nr 2 wyprowadza 
pusty blok po otwarciu kanału wyjściowego. 

Instrukcja INPUT# wprowadza wartości 
przechowane na taśmie instrukcją PRINT#. 
Określony przez nią kanał musi być otwarty 
dla wprowadzania z magnetofonu. Aby zo- 
baczyć jak to działa, użyjmy najpierw pro- 
gramu nr 3 do utworzenia zbioru danych 


FK 1 REM **************** 

FJ 2 REM * * 

YO 3 REM * Pros rem nr 3 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM' 

PX 10 DIM fi* < 120) 

WY 20 PRINT "Jaki komunikat chces 
z zapisać?" 

YC 30 INPUT fi* 

XE 40 PRINT 

IM 50 PRINT "Ustaw tasme i nacisn 
ij <RETURN> " ; 

JK 60 OPEN #3/8/0/ "CJ" 

SN 70 PRINT #3/ fi* 

MK 80 CLOSE #3 
YX 90 END 

Następny program, nr 4, używa instrukcji 
INPUT# do odczytania komunikatu zapisa- 

FK 1 REM **************** 

FJ 2 REM * * 

ZI 3 REM * Pros ram nr 4 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

PX 10 DIM fi* < 120) 

IJ 20 PRINT "Ustaw tasme i nacisn 
ij <RETURN >‘" i 
WZ 30 OPEN #3/4/0, "C«" 

UB 40 INPUT #3j flS 
WN 50 PRINT fi* 

MI 60 CLOSE #3 
YV 70 END 

nego przez poprzedni program. Nie zapo- 
mnijmy o przewinięciu taśmy! 

Instrukcja INPUT# interpretuje dane ze 
zbioru taśmowego jako kody ATASCII. Za 
każdym razem, gdy napotka znak EOL (kod 
ATASCII 1 55), podstawia znaki przeczytane 
od ostatniego EOL do następnej zmiennej w 
swoim wykazie. Jeśli zmienna jest numery- 
czna, INPUT# tłumaczy wczytane znaki na 
wartość numeryczną 
Każda instrukcja GET wprowadza jedną 
wartość numeryczną. Program musi zade- 
cydować, jak tę wartość interpretować. Na 
przykład, może on interpretować wartość 
lako kod ATASCII i zamienić na znak za 


FK 

FJ 

fiC 

FL 

FO 

NL 

II 


WY 

EK 

JM 

XF 

MI 

YV 


1 REM **************** 

2 REM * * 

3 REM * Pros ram nr 5 * 

4 REM * * 

5 REM **************** 

6 REM 

10 PRINT "Ustaw taśm* i nacisn 
ij <RETURN>"; 

20 OPEN #3/4,0/ "C*" 

30 GET #3, fi 

40 IF fi 0 155 THEN PRINT CHR*<fi 
>; -GOTO 30 
50 PRINT 
60 CLOSE #3 
70 END 


pomocą funkcji CHR$. Program nr 5 używa 
funkcji GET do odczytania tego samego 
zbioru co program nr 4. 


T 


4 Program nr 6 jest odpowiedzią na częste 
pytania czytelników, dotyczące przecho- 
wywania na kasecie zawartości tablic nu- 
merycznych W liniach 20—50 tego pro- 
gramu poszczególnym elementom tablicy A 
nadawane są wartości losowe z przedziału 
(0,100). W linn 60 następuje otwarcie zbioru 


FK 1 REM **************** 

FJ 2 REM * * 

AU 3 REM * Prot rum nr 6 * 

FL 4 REM * * 

F0 5 REM **************** 

NL 6 REM 

JL 10 DIM A( 10, 10) , B( 10, 10) 

GC 20 FOR 1-1 TO 10 
GL 30 FOR J«1 TO 10 
MT 40 A<I,J)-RND<0)*100 
OW 50 NEXT J'NEXT I 
YE 60 OPEN #1,8,0, "C' M 
GH 70 FOR 1-1 TO 10 
GG 80 FOR J-l TO 10 
JU 90 PRINT #1;R<I,J) 

EJ 100 NEXT J‘NEXT I 
KZ 110 CLOSE #1 
CM 120 PRINT "Przewin tasme i 
lani J <RETURN> . " 

KD 130 OPEN #2, 4, 0, "C ' " 

EU 140 FOR I-I TO 10 'FOR J-l 
0 

AU 130 INPUT #2;C'B<I.J)-C 
EV 160 NEXT J 1 NEXT I 
LL 170 CLOSE #1 
FC 180 FOR I-l TO 10 'FOR J-l 
0 

GL 190 PRINT A<I,J).B<I.J) 

EK 200 NEXT J'NEXT I 
NT 210 END 


nac 
TO 1 


TO 1 


do zapisu, następnie zapisanie tablicy na 
taśmie (linie 70—110). Linie 130—170 
wprowadzają zapisane wartości do tablicy 
B Proszę zwrócić uwagę na kolejność wy- 
prowadzania, a następnie wprowadzania 
danych Tablica dwuwymiarowa może być 
zapisywana (i odczytywana) kolumnami lub 
wierszami. Jeśli nie będziemy wystarczają- 
co ostrożni, może okazać się, że przypad- 
kowo uzyskaliśmy macierz transponowaną. 

Rozważmy praktyczne wykorzystanie 
zbiorów taśmowych: wykaz adresów bli- 
skich i znajomych Potrzebne będą dwa 
programy Pierwszy będzie służył do wpro- 
wadzania nazwisk i adresów z klawiatury i 
przechowywania ich na taśmie Drugi bę- 
dzie wprowadzał nazwiska i adresy z taśmy i 
wyświetlał je na ekranie 

Każdy z rekordów zbioru adresowego ma 
pięć pól: imię, nazwisko, ulica, miasto i kod 
pocztowy. Oba programy używają tych sa- 
mych nazw zmiennych dla pól: IMS, NAZ$, 
UL$, MIS, KODS. 

Program nr 7, po zadeklarowaniu zmien- 
nych, otwiera kanał wyjściowy dla magneto- 
fonu i wyprowadza pusty blok Podczas 


FK 1 REM **************** 

FJ 2 REM * * 

BQ 3 REM * Prot ram nr 7 * 

FL 4 REM * * 

FO 5 REM *XXX********X*»X 
NL 6 REM 

EY 10 DIM PRMT#<40),MSK#<40),BL#< 
40) , ERM#< 13) 

OP 20 BL#“" ">BL#<40)-BL#'BL#<2)» 
BL# 

WZ 30 MSKf- " _ " i MSKf < 40 ) -MSKf ' MSK* 
<2)-MSK# 

GM 40 ERRHDL-8000 
SF 50 DIM I M$ < 20 ) , NAZ# < 20 ) . UL* < 20 
),MI*<20),KOD#<6),R#<20),EOL#< 
1 ) 

HU 60 EOLf-CHR*< 155) 

ND 70 GOSUB 3000 
IC 90 GOTO 1000 


XA 97 REM ********************* 

XR 96 REM * Kasowanie linii X 
XE 99 REM ********************* 

El 100 FOR J-Ll TO L2 
VX 110 POSITION 0.J 
Z P 120 PRINT BLf < 1 . 39) i 
GH 130 NEXT J 
ZF 140 RETURN 

VX 165 REM ********************* 
FY 166 REM * Komunikat bledu * 
UD 167 REM ********************* 
NE 170 FOR J-l TO 3 
MT 180 POSITION 20.0 
JV 190 ? ERM*;" ERROR" > CHRf <253) ; 
SM 200 FOR Jl-1 TO 100'NEXT J1 
MG 210 POSITION 20.0 
GG 220 ? BL#< 1 , 19) 

GI 230 NEXT J 
ZG 240 RETURN 

EG 250 L 1 -20 'L2-23> GOSUB 100 
OA 260 POSITION 2.20 
ZM 270 RETURN 

MI 596 REM *XX***XS*X***X*X 
BK 597 REM * Poderoiram * 

FK 598 REM * wprowadzania * 

MR 599 REM **************** 

IB 600 TRRP ERRHDL # 

TO 620 GOSUB 250 
AV 630 POSITION IC+l.IR 
GB 640 ? MSK#< 1 . IL) 

FE 658 POSITION IC. IR 
HD 660 INPUT R# 

ZE 665 FOR Jl-1 TO IL<IF R*<J1.J1 
) <>MSK*< 1 . 1 ) THEN NEXT J1 
MI 666 R*-R#< 1 . Jl-1 ) 

TK 670 IF R#«"?" THEN GOTO 630 
MN 680 IF LO>HI THEN 750 
GF 700 IF R*-"" THEN R#-"0" 

UU 710 R-VAL<R*> 

BS 720 IF R>-LO AND R<-HI THEN RE 
TURN 


VY 730 ERM*-"Zak ret liczby" 

GP 740 GOSUB 170 GOTO 620 
PG 750 IF LEN<R#X-IL THEN RETURN 
US 760 ERM*»"Dluiosc ci a* u" 

GV 770 GOSUB 170 'GOTO 620 
IK 796 REM ******************* 

TL 797 REM * Uprowadzanie z * 

ZF 798 REM * propozycja * 

IT 799 REM ******************* 

CU 800 Ll-1 -L2-2' GOSUB 100 
I 810 POSITION 2.1 
AY 820 ? PRMT# 

XI 830 IC-2'IR-2' GOSUB 600 
ZM 840 RETURN 

ZV 1000 ? CHR#< 125); “PodaJ następ 
uJace dane" 

XN 1010 ? '? '? 

MA 1020 ? "1) Imię'" 

PE 1030 ? "2) Nazwisko-" 

DJ 1040 ? "3) Ulica'" 

JJ 1050 ? "4) Miasto" 

W 1060 ? "5) Kod'" 

UZ 1100 FOR F-l TO 5 
XA 1110 GOSUB 2000 
DQ 1120 NEXT F 
FI 1130 PRMT#-"Czy wprowadzasz zm 
lany?" 

10 1140 LO-l'HI-0 
VD 1150 IL-1 'GOSUB 800 
MO 1159 REM Analiza odpowiedzi 
HU 1160 IF R*-"N" OR R#-"n" THEN 
1300 

PB 1170 IF R*-"T" OR R#-"t" THEN 
1200 

UL 1180 ERM#- "PODAJ T LUB N"GOSU 
B 170 

PQ 1190 GOTO 1130 

HV 1200 PRMT*-"Ktore Pole" 

KZ 1210 LO-1 'HI-5 

UU 1220 IL-1 ‘GOSUB 800 

UF 1230 F-R* GOSUB 2000 'GOTO 1130 

HI 1300 POSITION 8.21 

YG 1310 ? "* * * PROSZĘ CZEKAC * 

* *"; 

MX 1319 REM Uy prowadzenie rekordu 
SI 1320 ? #1;IM#;E0L#;NAZ*;E0L*;U 
L# ; EOL# ; M I # ; EOL* ; KOD* 

IP 1330 ? CHR#< 156) 

VT 1340 POSITION 2.1 
SO 1350 PRMT*-"Uprowadzasz daleJ? 


IY 

1360 

LO-l'HI-0 


VN 

1370 

IL-1 'GOSUB 800 


MU 

1380 

IF R#-"T" OR R*-"t" THEN 


1000 



SJ 

1390 

IF RfO"N" AND Rf <>"n" 

TH 


EN 1350 


YT 

1400 

FOR J-l TO 5 


xo 

1410 

? • 1 ; CHRf < 253 ) ; EOLf j 


FO 

1420 

NEXT J 


NA 

1430 

CLOSE #1 


FF 

1900 

END 


IB 

2000 

LO-l'HI-0 


AZ 

2010 

ON F GOTO 2100.2200.2300. 


2400 

2500 


UX 

2100 

IC— 13 1 IR-4' IL-19- GOSUB 

60 

MT 

2110 

IMf-Rf- RETURN 


X0 

2200 

IC-13-IR-5' IL-19 -GOSUB 

60 

PK 

2210 

NAZf-Rf ' RETURN 


YF 

2300 

IC-13-IR-6- IL-19 'GOSUB 

60 

PK 

2310 

ULf-Rf - RETURN 


YU 

2400 

IC-13-IR-7' IL-19 -GOSUB 

60 

MV 

2410 

Mlf-Rf -RETURN 


LI 

2500 

IC-13 * IR-8 - IL-6 1 GOSUB 600 

LY 

2510 

KODf-Rf -RETURN 


CX 

2999 

REM Otwarcie kanału wyJsc 


ioweio 


MX 

3000 

? CHRf < 125); "PrzyiotuJ 

ka 


sete 

i nacisniJ RETURN" 


BA 

3010 

OPEN #1.8,0. "C" 


DV 

3020 

FOR Jl-1 TO 128’PUT #1 

0' 


NEXT 

J1 


AK 

3030 

RETURN 


HN 

8000 

E-PEEKC 195) 


BT 

8010 

EL-PEEK <187) *256+PEEK < 1 86 

BC 

8020 

IF E-3 OR E-8 THEN 8100 

VP 

8030 

? "ZNALEZIONO BLAD ";E 


YF 

8040 

? "W LINII NR."; EL 


FS 

8080 

END 


IF 

8100 

REM 


LU 

8110 

ERM#-" INPUT" 


YT 

8120 

GOSUB 170 


VQ 

8130 

TRAP ERRHDL 


KX 

8140 

GOTO EL 



wprowadzania rekordów użytkownik może 
go sprawdzić i poprawić w przypadku błędu 
Po zakończeniu wprowadzania danych 
program wyprowadza jeden dodatkowy re- 
kord (zawierający specjalne wartości we 
wszystkich polach), oznaczający koniec 
zbioru, a następnie zamyka zbiór 
Program nr 8 otwiera kanał wejściowy 
dla magnetofonu, wprowadza z taśmy po- 


FK 1 REM **************** 

FJ 2 REM * * 

CK 3 REM * Pros ram nr 8 * 

FO 5 rIS ***************1 
NL 6 REM 

JB 50 DIM IM*<20) . NAZ# < 20) . UL*(20 
>,MI#<20),KOD*<6),R#<20) 

NO 70 GOSUB 3100 
FV 1000 ? CHRf ( 125) 

TU 1010 ? "KSIAZKA ADRESOUA" 

OV 1020 POSITION 2.21 »? "NacisniJ 
CTRL-1 dla zatrzymania." 

RI 1030 POSITION 0.22-? "Ponowne 
naciśniecie wznowi przei ladani 
e. " 

HM 1050 POSITION 2.2'? "NacisniJ 
RETURN idy będziesz lotowy" 

LB 1070 INPUT R* 

OV 1080 OPEN #4.8.0. "S' M 
LX 1090 INPUT #1. IM#,NAZf,UL#,MI# 
.KOD* 

SS 1099 REM Sprawdzenie, czy koni 
ec zbioru 

IS 1100 IF IMf-CHRf <253) THEN 120 
0 

GZ 1110 ? IM* 

OM 1120 ? NAZf 


KO 1130 ? UL* 

HE 1140 ? MI* 

KH 1150 ? KOD* 

KG 1160 ? <? 

RY 1170 GOTO 1090 
VP 1200 CLOSE #1 ! GLOSĘ #4 
FF 1900 END 

LO 3099 REM Otwarcie kanału dla w 
prowadzania 

YV 3100 OPEN #1,4,0, "C'" 

UL 3119 REM Wprowadzenie pusteao 
rekordu 

UB 3120 FOR Jl«l TO 1 28 ; GET #1,R- 
NEXT J1 

RM 3130 RETURN 

szczególne rekordy i wyświetla je na ekra- 
nie. 

istnieją trzy instrukcje służące do prze- 
chowywania programów w języku BASIC na 
kasecie: CSAVE, LIST i SAVE. Każda z nich 
ma swój odpowiednik: CLOAD, ENTER i 
LOAD, które wprowadzają programy z po- 
wrotem do pamięci. 

CSAVE jest specjalną instrukcją do 
przechowywania programów tylko na kase- 
cie. LIST i SAVE wyprowadzają program na 
dowolne urządzenie, w szczególności na 
magnetofon. Dla instrukcji LIST i SAVE mu- 
simy określić urządzenie, np. SAVE „C:“. 

Zarówno CSAVE, jak i SAVE „C:" zawsze 
przechowują cały program z pamięci. Ins- 
trukcją LIST „C:” można przechować całość 
lub część programu. Podobnie jak dla in- 
nych postaci instrukcji LIST, możemy okreś- 
lić pierwszą i ostatnią linię programu, które 
mają być wyprowadzone (np. LIST „C:", 
1000, 3000). 

Instrukcja CLOAD wprowadza programy 
przechowane na kasecie instrukcją CSAVE. 
ENTER i LOAD wprowadzają programy z 
dowolnego urządzenia. ENTER „C:" może 
wprowadzić tylko programy przechowane 
za pomocą instrukcji LIST „C:". LOAD „C:” 
może wprowadzić tylko programy przecho- 
wane za pomocą SAVE „C:". 

Jak widać z powyższego przeglądu, ża- 
dna z instrukcji przechowywania progra- 
mów na kasecie nie wymaga podania na- 
zwy programu. Każdy z programów tworzy 
na taśmie odrębny zbiór, który nie jest roz- 
różniany przez komputer. Wprowadzany jest 
program, na początku którego ustawiona 
jest taśma magnetyczna. Identyfikacja pro- 
gramu może być dokonana tylko przez użyt- 
kownika: albo za pomocą licznika taśmy, al- 
bo dopiero po wprowadzeniu programu do 
pamięci komputera. 

Instrukcje CLOAD i LOAD kasują pro- 
gram rezydujący w pamięci przed wprowa- 
dzeniem nowego. Instrukcja ENTER łączy 
wprowadzany program z istniejącym w pa- 
mięci. Jeśli wprowadzane wiersze programu 
mają takie same numery jak istniejące, to te 
ostatnie są podmieniane przez nowe. 

Zapisywanie programu' jest zewnętrznie 
takie samo, bez względu na użytą instrukcję: 
CSAVE, LIST „C:" lub SAVE „C:". Lecz każda 
z nich zapisuje programy w innym formacie. 

Instrukcja LIST wyprowadza programy w 
takim samym formacie bez względu na 
urządzenie. Wysyła ona kod ATASCII każ- 
dego znaku programu. 

Instrukcje CSAVE i SAVE podmieniają 
słowa kluczowe jednoznakowymi symbola- 
mi. Różnica między nimi polega na długości 
przerw między blokami na taśmie. Instrukcja 
CSAVE zapisuje programy gęściej niż SAVE 
„C:", z krótszymi przerwami międzybloko- 
wymi. Zatem przechowywanie i wprowa- 
dzanie programów odbywa się trochę szyb- 


ciej za pomocą CSAVE i CLOAD niż za po- 
mocą SAVE „C:" i LOAD „C:". 

Program może być wprowadzony z taśmy 
magnetycznej do pamięci również za po- 
mocą instrukcji RUN „C:", która jest połą- 
czeniem instrukcji LOAD „C:" i RUN. Zatem 
programy muszą być przechowane na taś- 
mie instrukcją SAVE „C:". Instrukcja RUN 
„C:" działa jednakowo w trybie programo- 
wym i bezpośrednim. Program, który zawie- 
ra instrukcję RUN „C:", może wprowadzić i 
uruchomić inny program. Poważną wadą 
tego sposobu jest kasowanie wartości 
wszystkich zmiennych przed wprowadzę 
nięm następnego programu. Dlatego me 
można używać wartości, które były wpro- 
wadzone lub obliczone przez wcześniejszy 
program. Dodatkowo zapis na taśmie ma 
długie przerwy międzyblokowe. 

Istnieje sposób automatycznego wpro- 
wadzania i uruchamiania programów w ję- 
zyku BASIC zapisanych z krótkimi przer- 
wami międzyblokowymi. Dodatkowo można 
to zrobić bez podawania jakiejkolwiek in- 
strukcji. Niezbędne jest jednak umieszcze- 
nie na taśmie specjalnego programu wpro- 
wadzającego, który będzie wprowadzany do 
pamięci w chwili włączania zasilania, jako 
część procesu inicjowania systemu. Pod- 
czas włączania komputera musi być naciś- 
nięty klawisz START. Po wprowadzeniu 
programu wprowadzającego przejmuje on 
sterowanie i wprowadza, a następnie uru- 
chamia program przechowany bezpośred- 
nio za nim. 

Program, o którym mowa, można spotkać 
przed programami w języku BASIC wpro- 
wadzanymi poprzez włączenie komputera z 
naciśniętym klawiszem START (np. Kon- 
werter 80k). Jeśli dysponujemy takim pro- 
gramem, wystarczy skopiować program 
wprowadzający. Dla czytelników, którzy nie 
mają skąd wziąć tego programu, przygoto- 
waliśmy program nr 9, który po wprowa- 


FK 1 REM **************** 

FJ 2 REM * * 

DE 3 REM * PrOfrłM nr 9 * 

FL 4 REM * * 

F0 5 REM **************** 

NL G REM 

KP 8 GRAPHICS 0-PO3ITION 10,10«? 

"Pro*** czakac..." 

OD 10 DIM fl*<270)'I-0 

GQ 20 REflD A- IF A— 1 THEN 100 

$J 30 I-I+l«fi*(I,I>-CHR*<A> 

RU 40 GOTO 20 

TR 100 OPEN #1,8, 128, "C-" 

PO 110 POKE 766,1 •? #l;A*j.POKE 7 

66,0 

PF 120 CLOSE #1 -GRAPHICS 0 
EB 130 ? " KONIEC " 

TP 140 8T0P 

ND 2060 DATA 0,2,0,6,16,6,169,60, 

141.2.211.169.0. 133.65.96. 169, 
148,141,197 

EY 2070 DATA 2,173,48,2,133,128,1 
73,49,2, 133, 129-, 160,4, 177, 128, 
133,130,200,177, 128 
ZO 2080 DATA 133,131,230,131,230, 

131.160. 169. 162.0. 189.91.6. 145 
,130,232,136,208,247,169 

WR 2090 DATA 13,141,74,3,169,0,13 
3,84, 169,254, 141,179,2, 169, 127 
,141,180,2,76,0 

IT 2100 DATA 160,0,0,0,0,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
HB 2110 DATA 0,0, 0,0, 0,0, 0,0, 0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
AE 2120 DATA 0,0, 0,0, 0,0, 0,0, 9, 9, 

4.0. 0.56.8.50.36.33.8.50 

QP 2130 DATA 51,53,29,56,26,16,14 
,50,39,26,18,17,12,20,22,23,0, 
37,43,47 


NS 2140 DATA 48,26,18,17,12,18,20 
,24,0,37,43,0,0,47,48,26,2, 155 
,68,44 

IA 2150 DATA 255,137,155,150,0,68 
, 137,40,52, 137,40, 151, 137,218, 
253, 130,2,29,4,56 
QQ 2160 DATA 26,9,16,20,8,4,56,0, 

45,41,36,0,0,0,0,0,0,0,0,0 
HT 2170 DATA 0,0, 0,0, 0,0, 0,0, 0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
HW 2180 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
EC 2190 DATA 0,0,-l 


dzeniu i uruchomieniu, tworzy na taśmie 
magnetycznej właśnie taki program wpro- 
wadzający. 

Oczywiście program len może być bar- 
dziej rozbudowany i dostosowany do pro- 
gramu, który będzie przez niego wprowa- 
dzany. Chcieliśmy jednak zaproponować 
czytelnikom program uniwersalny, który 
umożliwia wprowadzenie do pamięci do- 
wolnego programu w języku BASIC. Nie 
przeszkadza to w zindywidualizowaniu pro- 
cesu wprowadzania programu. Zamiast do- 
pasowywania programu wprowadzającego, 
możemy dopasować proces wprowadzania. 

Opisywany problem nie został przez nas 
wydumany, lecz jest odpowiedzią na liczne 
listy czytelników, których interesowało au- 
tomatyczne wprowadzenie i uruchomienie 
programu oraz wprowadzanie programu po 
uprzednim wyświetleniu charakterystycznej 
dla niego c?ołówki. Pierwsza z tych spraw 
została już, mamy nadzieję, wyjaśniona. 

Druga sprawa jest bardziej skomplikowa- 
na. Chcemy uzyskać następujący efekt: po 
odpowiednim ustawieniu taśmy magnety- 
cznej włączamy komputer z wciśniętym 
klawiszem START, automatycznie pojawia 
się czołówka, charakterystyczna dla danego 
programu, która pozostaje na ekranie do 
chwili załadowania i automatycznego uru- 
chomienia właściwego programu. 

Rozwiązanie powyższego zadania wyma- 
ga podjęcia decyzji o sposobie tworzenia 
czołówki programu. Czy przygotowana bę- 
dzie przez jeden z ogólnie dostępnych pro- 
gramów graficznych (np. Koala Micro, Ma- 
gie Painter, Design Master, itp ), czy utwo- 
rzona przez własny program? 

Rozważmy pierwszy wariant. Proponuje- 
my tworzenie czołówki za pomocą progra- 
mu Magie Painter. Wybraliśmy go dlatego, 
że prawdopodobnie jest najbardziej roz- 
powszechniony. Dwukrotnie emitowany ,był 
w audycji „Radiokomputer nocą", dostępny 
jest na giełdach i w wypożyczalniach. Pro- 
gram ten umożliwia przygotowanie dowolnej 
czołówki, a następnie przechowanie jej na 
taśmie. 

Aby mieć wszystkie niezbędne elementy, 
musimy jeszcze wprowadzić i przechować 
na taśmie magnetycznej (za pomocą CSA-' 
VE) program nr 10 Jego zadaniem jest 
wprowadzenie i wyświetlenie czołówki przy- 


ipO 1 REM ***************** 

MP 2 REM * Proflram yi r 10 * 

GQ 3 REM ***************** 

BT 4 DIM ML*<28),X*<40> -GRAPHICS 
7+16 

QF 5 FOR I-I TO 28-READ A-ML*<I,I 
)-CHR*<A)-NEXT I 

ZL 6 DATA 104,104,104,170,104,104 
, 157,66,3, 104, 157,69,3, 104, 157 
,68,3,104,157,73,3, 104,157,72, . 
3,76,86,228 f 


4 ID 7 DL*PEEK < 560 ) +236#PEEK <361) 

W rn 8 flDRR»PEEK < DL+4 ) +256#PEEK < DL+ 

3) 

EU 9 POKE 764/ 12 

flF 10 OPEN #1/4/ 128/ "C«" 

DY 30 FOR 1-0 TO 4 
LJ 40 GET 01, fi: POKE 708*1 a R 
IT 50 NEXT I 
EG 60 GET #1/B 

TQ 70 X-USR<flDR<MLf),16/7/flDRR/43 
00 ? 

LO 80 CLOSE #1 
EX 90 REM ŁADOWACZ PROGRAMU 
LF 100 DATA 162/233/134/169/103/7 
2/ 169,84,72/ 169/4,32, 182, 107,1 
69,255/76/4, 107 
JX 110 FOR 1-1 TO 19 RERD R 
QI 120 X#<I/I)-CHR#<R) 

FX 130 NEXT I 

FN 140 POKE 764,12'X-USR<RDR<Xt>> 


gotowanej programem Magie Paioter (rea! 
żuje to procedura przechowywana w 
zmiennej ML$). a następnie wprowadzenie i 
uruchomienie właściwego programu (wy- 
konuje to procedura przechowywana w 
zmiennej X$) 

Możemy już przystąpić do przygotowania 
taśmy wynikowej 

1 Zapisujemy program wprowadzający. 


2. Zapisujemy, instrukcją CSAVE, pro- 
gram nr 10 

3. Zapisujemy na taśmie obraz czołówki, 
utworzony programem Magie Painter. 

4 Przechowujemy, za pomocą CSAVE. 
właściwy program 

Powyższe możemy wykonać dowolnym 
sposobem, ważne jest otrzymanie takiej ko- 
lejności poszczególnych zbiorów. Po prze- 
winięciu taśmy możemy sprawdzić uzyska- 
ny efekt, Wprowadzanie programu trwa nie- 
co dłużej (sama czołówka wprowadzana 
jest około 100 sekund), lecz jest bardziej 
efektowne 

W drugim wariancie czołówka programu 
tworzona |est przez własną procedurę Pro- 
ponujemy włączyć ją do programu nr 10 w 
miejsce linii wprowadzających dotychczas 
obraz czołówki, Jej postać zależy od na- 
szych umiejętności oraz wyobraźni. Może to t 
być sam tytuł programu napisany dużymi li- 
terami (tryb graficzny 1 lub 2), rysunek wy- 
konany w trybie 0. rysunek w dowolnym try- 
bie graficznym z napisem w oknie teksto- 
wym Mozę to być również bardziej rozbu- 
dowany obraz, z tytułem napisanym dużymi 


literami,! stosownym rysunkiem, uzyskany 
poprzez utworzenie własnego programu 
wyświetlania. 

W tym wariancie na taśmie magnetycznej 
musimy zapisać następujące zbiory 

1 Program wprowadzający 

2 Zmodyfikowany program nr 10. który 
tworzy obraz czołówki orąz wprowadza 
właściwy program. 

3 Właściwy program. 

Programy wymienione w punktach 2 i 3 
powinny być zapisane instrukcją CSAVE. 

Zauważmy, ze procedura przechowywa- 
na w zmiennej X$ programu nr 1 0, może być 
wykorzystana do łączenia programów zapi- 
sanych na taśmie za pomocą CSAVE Po- 
dobnie jak w przypadku używania instrukcji 
RUN „C ", program nie może używać war- 
tości, które były wprowadzone lub obliczone 
przez wcześniejszy program. 

Podczas przygotowania niniejszego arty- 
kułu korzystaliśmy z następujących publi- 
kacji De RE Atari oraz Your Atari Computer. 


Tomasz MROWIEĆ 
Ludwik PIELA 



ZX SPECTRUM 


TABELARYZYCJA 


100 REM program 


JIM V (250) : DIM 
56) : DIM C« (32) 
-A 7; " funkcja V; 
LINĘ f »: IF f*." 


; xmax 
if xmax<xmin 


5UB 


'fó 

X ma 

OR xmax«xmin T 


580: GO TO 130 
LET s t a ( 


110 BORDER 4: 

I (256) : DIM X ( 

120 INPUT PRP 

PRPER 4;" ■ , 

THEN g 6 SUB Ś80: GO TÓ 120 
130 INPUT ''x min a ";xmin," 

x • 

14.0 

HEN GO _ _ 

150 CLS : LET s t a (xmax -X» i n ) /25 
4 

160 REM Oblicz, lab. X ( ) i V ( ) 
170 LET m-1: LET gminal0t38: LE 
T g»ax a-gmi n : GO 6UB 620: PRINT 
RT 0, tab; t* 

180 FOR lal TO 255: LET Xaxmin+ 

ftł(Z-l): LET X (Z ) »X : LET V(Z)aU 

RL (f|) 

190 IF 

V (Z) 

200 IF gmax<v(z) THEN LET g*axa 

OB SOb^bSb 

REM proporcja wgdruku 
240 LET Z0ąg: LET d^ągmax-umin 


ps 

240 __ _ 

250 PRINT Rf 8-iab;l» 

260 PRINT 60; RT 0,labl; BRIGHT 
1; PRPER 7; um in; " <g <■'; umax 
270 FOR n=I TO 255: LET XaX(n>: 
LET V*(n)-CHR« INT (7v(n>-u*in 
łię6/i«l: PLgT n-1^155: NEXT n 



290 PLOT ll^la 
, 63 : DRRU 
IF xmin < 

ET Z0-INT (25 


0 , ta b; 1 1 : 


PLOT 20,0: 

~ IF gmax>0 AND 


DRRU 0,166 

... AND unłn <0 THEN 
gmin *166/dg : DRRU 255,0 
RINT 60; RT 0,tabl; BRIGHT 


■>; <y <"; gmax 
pętli PLOT /DRRU 
3 254 

‘ ~ ID v (n> >0 OR 
THEN GO SUB 

530 

V (n 


gmin>v(z) THEN LET gmina 


) ) 

310 

LOT 0 , 

320 PftINT 60; RT 0 
1; PRPER 7;gmłn; "<' 

330 REM POCZ . 

340 FOR na2 TO _ 

350 IF V (n -1) <0 AND 
(n -l) >0 AND v (ni <0 - 
460 

360 IF V ( n I *0 THEN GO SUB 
370 if (v <n - 1) <v (ni ) RND (w (n) > 
v (n + 1) I THEN GO SUB 510 
380 IF (V tn-i) >v (n) ) RND (v (n 1 < 
V(n+l)l THEN GO SUB 540 
390 IF na20 THEN GO SUB 
410 PLOT n-l,CODE (vi(n 
RU 1 , CODĘ tv*(nn -CODĘ < 

420 NEXT n 

430 rem nowa funkcja ? 

440 GO SUB 680: 

PRINT 60; RT 1,0; PRPER 7; 

^“?RB|i f 5* e ^ n S»aE^ n .RHVr pY? 

O TO 120 

450 IF INKEY*."C" THEN PLOT 
: DRRU 255,0: DRRU 0,167: Dr 
" ‘ LPRIN - 


-???: DR 

vi(n-i) i 


i 

PL 


255,0: DRRU 0,-167 

460 GO TO 130 

470 

480 

STEP -3: 

NEXT q: 

490 LET 


EN G 

0,0 

...... RRU - 

RINT : COP 




.i, rwrx dal66 TO 
PLOT n -1 , q : DRRU 0, 


8,81: DRRU 0,4: PLOT 

U 4,0 

<0 RND xmax>0 THEN L 
»(xmin/(xmin-xmax) 


gpav (n-1) : 
LET xpax (n-1) : LET 


xz*xp + (xk-xpl »(RBS 
BS gp) ) : LET XZa.0« 
Z+.0005): PRINT "xj 
0 THEN PRINT "+"; 


LET 

Xk 

gp 


T g k av 
axln) : 

/ (RB5 


1 

1: 


V (nl : 
LET 




#x 

xz > 



zx 

SPECTRUM 



ZX 

SPECTRUM 


ZAGADKA 


1 REM 


RROGRRM - ZAGADKA 


10 LET a * = " : FOR n = 1 TO 10: 
REftD data LET a*=a*+CHR* data: 
NEXT n 

15 SAUE a $ LINĘ 10 
20 DRTft 22, 11, 15, 19, 1; 137,8,21 
,1.79 

NAGRAJ PROGRAM NR TAŚMĘ , WYŁĄCZ 
KOMPUTER I UPROUADZ PROGRAM 
Z TRSMY . .SKĄD LI ZI At SIE ZNAK 
PO ŚRODKU EKRANU 7 , 

CZEKAMY NA LISTY CZYTELŃ IKOU ! 


ZNAKI x 24 

10 BORDER 4 ; PAPER 4: PAUSE 0: 
L.ET a -CODĘ INKEY*: CLS : PRINT 
AT 21,0; INK 4;CHRS a: LET a*-CH 
RS a+CHR* a+CMRS a 

20 BEEP .1,2: FOR n=7 TO 0 STE 
P -1: FOR m =0 TO 7 

30 IF POINT tm , n ) =1 THEN PRINT 
BRIGHT 1; PAPER 7; AT 18-3*n,4+3 
łm;as,AT 19-3*n ,4+3*m , a *; AT 20-3 
♦n , 4+3*18 , a S 

40 NEXT m: NEXT n: GO TO 10 
50 SAUE "24 X" LINĘ 10 

Program wyświetla znaki 
w 24-krotnyw powiększeniu 

J. RUBINOWICZ 


495 _ IF XZ >0 AND XZ < • 1 THEN PRIN 

§ 00 ^RINT XZ: RETURN 
10 BEEP .1,26: FOR g-166 TO 1 
STEP -6: PLOT n,R: DRAU 0,-2: NE 

"sgI PRINT "X»ax-";: GO SUB 0560 
: RETURN 

530 BEEP .1,36: FOR d-166 TO 1 
STEP -2: PLQT n, 9 : NEXT q : PRINT 


t a r t 

4: DIM V (256) : DIM X 

‘ ‘ 556) : DIM C*(32> : 

“ LET xmi 

runie 5i 


Dctr . x,uo; ruN H-aow ty 

STEP -2: PLOT n , g : NEXT g: PRII 
"X0 GO SUS 0560: RETURN 

T?S"-i“| L sk ■* ; ,f °gi,J3 i ISS? i, 


SM ,UT 


, S 
NEX 


GO SUB 560: 


660 LET yp«V (n-l> : LET yk-V(n+l 
: LET xp«X(n-l): LET Xk»X(n + l): 
LET XZ»XP + (Xk-XP) * (ABS yp/(ABS 
' — P) ) ' 


700 REM s 
710 BORDER 
(256) : DIM V» (2E_ 

LET fS="PI+x/3+3»SIN X": 
n=-10: LET xmax=2: 

720 CLS : PRINT ' ' PAPER 
Program rysuj* wykresy ru 
y»r (x) 

dta dowolnych wartości x z wy- 
jątkiem funkcji typu y-l/x 
gdzie y dazy do nieskończo- 
ności .Program wyznacza naxima, 
minima i punkty zerowe dla x i 
y. Skale pozioma i pionowa 
wyznaczane sa przy pierwszym 
przebiegu funkcji, drugi prze- 
■ li cza metoda inter 


bieg oblicza m 


interpo la- 


i k +RBS yi 
l»xz + .0i 

. + „ 


>005) 


cji wartości punktów charakte- 
*— Ł - ' • • kreśli 


xz - • 00 1 aINT (lo 
XZ>0 THEN PRINT 


565 IF XZ>0 AND XZ < . 1 THEN PRIN 

T "0"; 

> 567 IF XZ»0 THEN PRINT " “j 
570 PRINT XZ ; RETURN 
580 FOR e-0 TO 7: BORDER e: BEE 
RP .1,*: NEXT e: BORDER 4: RETURN 

l 

590 PRINT AT 21,0; c»; AT 81,0; I 
NK 7; ymin, “ >y >"; umax 
600 FOR n -0 TO 31: IF SCREENt ( 
81,31-n) O" " THEN PRINT AT 81,0 
r;c»: LET tebl-n^S: RETURN 
‘ 610 NEXT n 


rystycznych funkcji i 

"■ ci: “Ś auIe‘ 0: GO TO 150 
9993 REM zapis na taśm* 

9999 CLEAR : SAUE CHR* 19+CHR 
+CHR» 22+CHR* 8+CHRS 13+CI 
+CHR* 8+CHRS 69+CHRS 76+CI 
LINĘ 700: BEEP .55; BEEP 
UERIFY GO TO 110 


i+CHRS 1 
HRf 173 
HRi 65 
.1,17: 



0,31-n) o" 

R te 




. .ferURN 

50 PRINT "y0 BEEP .1,-10 

■hrc?;?; >si 

■+■ ; 

660 IF y0>0 THEN PRINT " "i 
670 PRINT 90: FOR e-0 TO 855 3T 
EP 4: PLOT * , CODĘ vS(n): NEXT C: 
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ATARI 

Interfejs 

magnetofonu 


W artykule opisano konstrukcję interfejsu 
magnetofonu przeznaczonego dla kompute- 
rów Atari 800 XL, 65 XE i 130 XE. Jest to 
układ wzorowany na rozwiązaniu zaczet- 
pmętym z czasopisma „Funkschau " 11 [ Dzię- 
ki wykorzystaniu cyfrowych układów scalo- 
nych interfejs charakteryzuje się dużą pew- 
nością działania oraz umożliwia współpracę 
komputera z dowolnym magnetofonem ka- 
setowym. Układ wymaga jednego napię- 
cia+5V i może być zasilany z komputera ze 
względu na mały pobór prądu. W urządzeniu 
zastosowano w większości elementy pro- 
dukcji krajowej poza jednym wyjątkiem — 
komparatorem napięcia LM 339. 

Zasada działania 

Zasada działania interfejsu oparta jest na 
pomiarze okresu sygnału wejściowego z 
magnetofonu i przyporządkowaniu wynikowi 
pomiaru odpowiedniego stanu logicznego. 
Jak pamiętamy, [2] częstotliwości 5,1 kHz 
odpowiada stan wysoki? a częstotliwości 
3,9 kHz stan niski Częstotliwościom tym 
odpowiadają okresy odpowiednio równe 
1 96 i 25 Średni okres wynosi ( 1 96-v-256):2, 
co odpowiada częstotliwości 4,42 kHz 
Układ porównuje okres sygnału wejściowe- 
go z okresem średnim. Jeżeli okres sygnału 


wejściowego jest mniejszy od 226 /js 
(f>4,42 kHz), to przyporządkowuje mu się 
stan wysoki. W przypadku okresu równego 
lub większego od 226/js (f<4,42 kHz) przy- 
porządkowuje się jemu stan niski. Możemy 
w skrócie zapisać to tak: 

f>4,42 kHz to stan wysoki. 

f<4,42 kHz to stan niski 

Konkretne rozwiązanie układowe interfejsu 
pracującego wg opisanej zasady przedsta- 
wiono na rys. 1 . 


Opis układu 

W konstrukcji możemy wyróżnić kilka blo- 
ków funkcjonalnych. Układ z tranzystorem 
Tl jest przeciwwzmacniaczem sterującym 
pracą wzmacniacza, którego funkcję pełni 
jeden z komparatorów układu scalonego 
US4. Pozostałe trzy komparatory tego ukła- 
du sterują właściwą pracą pozostałej „cyf- 
rowej" części przystawki. Układ US1 jest 
generatorem częstotliwości wzorcowej 186 
kHz (T = 5,376 (js). Wraz z licznikiem US2 
pełnią one funkcje układu porównującego 
okresy: sygnału wejściowego ze średnim. 
Układem, który wynikonT porównania przy- 


porządkowuje odpowiednie stany logiczne 
jest przerzutnik D US3. Bezpośrednio z jego 
wyjścia Q sterowane jest wejście Data-ln 
/łącza szeregowego Atari. 

Przed dalszym opisem pracy interfejsu 
wprowadzimy pojęcie cyklu pracy. Przez po- 
jęcie to rozumieć będziemy pomiar jednego 
okresu sygnału wejściowego i przyporząd- 
kowanie wynikowi pomiaru, odpowiedniego 
stanu logicznego. 


Cykl pracy 

Sygnał z magnetofonu wzmacniany jest 
przez tranzystor Tl i układ US4a. Po 
wzmocnieniu jest różniczkowany (C5, R1 0) i 
formowany w układzie US4b. 

Komparator US4b wraz z elementami C5, 
RIO tworzy przerzutnik monostabilny, gene- 
rujący dodatni impuls w odpowiedzi na opa- 
dające zbocze na wejściu (punkt C5, wypr. 
14 US4). Szerokość impulsu, ustalona przez 
stałą czasową C5, RIO, wynosi ok. 10 /j s 
Zauważmy, że przerzutnik generuje te im- 
pulsy z częstotliwością sygnału wejściowe- 
go Impuls steruje wejściem zegarowym 
przerzutnika D US3, a po przejściu przez 
komparatory US4, cd (z opóźnieniem ok. 1 
fjs) licznik US2. Układ scalony US2 zawiera 
dwa niezależne liczniki BCD. W układzie po- 
łączono je w jeden licznik liczący do 40. 
Wyjście licznika 1Qc (wypr 5 US2) ustawia 
się w stan wysoki, gdy licznik zliczy 40 i wię- 
cej impulsów generatora wzorcowego USl . 
W przeliczeniu na czas wyniesie to 40. 
Okres wzorcowy, czyli 405.376//S =215 /js 
Po uwzględnieniu czasu trwania impulsu 
zegarowego oraz jego opóźnienia (rys. 2) 
łączny czas tego cyklu pracy wynosi 21 5 //s 
+ 1 0 /js + 1 (js = 226 /js. Jest to okres sy- 
gnałów o częstotliwości 4,42 kHz, który przy- 
jęto jako wzorzec do porównań. W czasie 
normalnej pracy układu czas pracy licznika 



Rys. 1 Schemat ideowy interfejsu. 



jest różny i ograniczony okresem sygnału 
wejściowego. Zawartość licznika możemy 
obliczyć z zależności 
zawartość licznika = (okres sygn wej 
1 1//s) 5.376/zs 

Dla sygnału o częstotliwości 3.9 kHz licznik 
zdązy policzyć do 45. a dla częstotliwości 
5,1 kHz tylko do 34 W pierwszym przypad 
ku wyjście 1Qc (US2) będzie w stanie wy- 
sokim, a w drugim w stanie niskim Informa- 
cja z tego wyjścia wpisywana jest do prze- 
rzutnika D US3 Po jej wpisaniu w takim sa- 
mym stanie będzie wyjście Q przerzutnika 
D Natomiast na wyjście Q będzie przeciwny 
stan logiczny. Dla częstotliwości 3.9 kHz na 
wyjściu Q przerzutnika D będzie niski stan, a 
dla 5,1 kHz będzie stan wysoki. Informacja o 
każdym bicie przekazywana jest do kompu- 
tera przez 1 666 ms (szybkość transmisji 
600 bd). W związku z tym na informację o 
każdym bicie składa się kilka cykli pracy 
Dla informacji o „1" logicznej stan wyjścia O 
przerzutnika D nie będzie zmieniał się przez 
8 cykli pracy, a dla informacji o „0" log* 
cznym przez 6 cykli. Z wyjścia Q przerzute 
ka D informacja przekazywana jest bezpos 
redmo do komputera. 

Podczas nagrywania programów sygnał z 
komputera (wyjście Data-Out). poprzez 
dzielnik napięcia R1 8/R6, podawany jest na 
wejście magnetofonu i zapisywany na ka 
secie magnetofonowej Zadaniem dzielnika 
jest obniżenie amplitudy sygnału do pozio 
mu wymaganego przez magnetofon 


Konstrukcja i uruchomienie 

Układ zmontowano na jednostronnie dru- 
kowanej płytce wykonanej wg rys. 3. Roz- 
mieszczenie elementów zamieszczono na 
rys 4 W pierwszej kolejności lutujemy ele- 
menty dyskretne, a następnie układy scalo- 
ne Szczególną ostrożność należy zacho- 



Rys. 3 


waę przy montażu cyfrowych układów sca'- 
lonych, ponieważ są wykonane technologią 
CMOS (US1. US2, US3) 



Po kontroli wzrokowej montażu przystępu- 
jemy do strojenia interfejsu, wykorzystując 
miernik częstotliwości lub oscyloskop Inter- 
fejs zasilany napięciem + 5V i do wyprowa- 
dzenia 13 układu USl dołączamy miernik 
częstotliwości. Dobierając wartości rezysto- 
rów. R16 zgrubnie i R17 dokładnie staramy 
się uzyskać przebieg o częstotliwości 
186 kHz Po uzyskaniu tej częstotliwości 
stroieme mterfeisu jest zakończone W roz- 
wiązaniu modelowym wartość rezystora 
Rlfe ustalono na 9 1 kO Dobrane w ten 
sposób rezystory dolutowujemy do układu i 
leszcze raz sprawdzamy częstotliwość ge- 
neratora wzorcowego 

Przystawkę z magnetofonem łączymy 
dwuzyfowym przewodem ekranowym za- 
kończonym typowym p.ęciostykowym wty- 
kiem typu WM. Interfejs łączymy z kompute- 
rem trzyzyłowym przewodem ekranowym 
zakończonym wtyczką wykonaną wg opisu 
zamieszczonego w ,IKS-ie" [2J. Interfejs za- 
silany jest ze styku MOTOR CONTROL złą- 
cza Atari Ma to znaczenie przy jednoczes- 
nej współpracy komputera ze stacją dysków 
i magnetofonem Na zakończenie podamy 
kilka informacji o układzie LM 339. Jesf to 
poczwórny komparator monolityczny Jedną 
z głównych jego zalet jest możliwość pracy z 
jednym napięciem zasilającym (już od + 
2V) Komparator zawiera na wyjściu układ z 
otwartym kolektorem, dzięki czemu istnieje 
możliwość doboru poziomów logicznych 
napięcia wyjściowego przez dołączenie 


obwodów zewnętrznych Rozmieszczenie 
wyprowadzeń układu przedstawiono na 
rys. 5 


u a ti n to t • 

1 

I 

1 2 3 4 5 6 7 


Rys. 5 Rozmieszczenie wyprowadzeń 
układu scalonego LM339 

Opisy pozostałych układów scalonych 
możemy znaleźć w (3] i [4] 

Wykaz elementów 

MCY 7401 3N - US3 
MCY 74047N - USl 
MCY 7451 8N - US2 
LM 339 - US4 

Diody i tranzystory 

BC 308 A - Tl 
BAVP1 7 — Dl, D2 

Kondensatory 


200 pF - CI7 (typu KSF) 

330 pF - C5 
1.5 nF- CII 
1 0 nF — C2 
22 nF - C3 
68 nF - C7 
100 nF — Cl , CIO 
330 nF - C6. C8 
22 F - 6.3V - C9 

Rezystory 0,125 W 

10 R — R19 
1 k - R2, R7 
1 .5 k - R6 
2.2 k - R14. R15 
4,7 k - R4 

10k-R9.R11.R12.R13 

15 k — R5. R18 , 

22 k - R1 ’ 

47 k- R3. RIO 
1 M - R8 

R16, R1 7 — dobieramy w czasie stroje- 
nia — opis w tekście 

Inne 

Wtyk magnetofonowy pięciostykowy typu 
WM 

Bogusław LIPCZYŃSKI 


LITERATURA 

1. H. Reelsen: „Recoedermterface". „Furik- 
schau" nr 17/1984 

2. Interfejs magnetofonu dla Atari. „IKS" 1 987 

3. M. Kręciejewski „Układy cyfrowe 
CMOS". „Radioelektronik" nr 10/11/1985 

4. M Łakomy. J. Zabrodzki „Cyfrowe ukła- 
dy scalone" PWN 1980 
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LILAVATI (cz.3) 


Mozolna przeprawa żołnierzy 

Danuta KWASIŻUR, Mieczysław SKONIECZNY 


W trzecim odcinku cyklu pośv ięconego rozwiązywaniu 
anegdot matematycznych dzięki wykorzystaniu mikrokompu- 
tera omówimy problem przeprawy żołnierzy przez rzekę (Lila- 
vati — anegdota nr 50). Treść historyjki jest następująca: 

Oddział żołnierzy doszedł do rzeki, przez którą musi się 
przeprawić. Most po niedawnej powodzi jest jeszcze w ruinie, 
rzeka zaś zbyt głęboka, by próbować przebrnąć ją w brud. 
W małej łódce przy brzegu bawią się dwaj chłopcy. Łódka jest 
tak maleńka, że zaledwie jeden żołnierz mógłby się w niej 
zmieścić. Mimo to, ta właśnie łódka przy czynnym udziale 
chłopców przewiozła na drugą stronę cały oddział żołnierzy, 
jak to się stało f! 

Segment sterujący programu na mikrokomputer AMSTRAD 
CPC 6128 ma następującą postać (instrukcje 10—290): 

W tym fragmencie użytkownik zostaje wprowadzony w temat 
zagadnienia. Następnie pojawia się plansza gry oraz następuje 
zapoznanie grającego z możliwościami sterowania przebiegiem 
przeprawy. Możliwości i odpowiadające klawisze sterujące są 
następujące: 

1. Chłopiec wysiada z łódki. 

2. Chłopiec wsiada do łódki. 

3. Żołnierz wysiada z łódki. 

4. Żołnierz wsiada do łódki. 

5. Łódka płynie. 

Cała gra rozgrywana jest na tej samej planszy, a kończy się 
sukcesem w momencie, gdy cały oddział (9 żołnierzy) znajdzie 
się na drugim brzegu. Aby uzyskać większą przejrzystość wersji 
źródłowej programu, do segmentu zasadniczego dołączono 
następujące podprogramy: 

1. Rysowanie żołnierza (instrukcje 300 — 400) 


ar 


10 DIH zol chi (2.2):01H lodkal(2>:60SUE 1070 

20 HCDE 1: INK 0.20: IHK 1,0: INK 2,9: IKK 3.I4:PAPER 2: BOR KR 9iCLS:PEN 1 

30 L00«A«(l)**C l :U»KAI(2)**C* 

<0 FOR kM TQ 9:zoI(k,I>M:NEIT k:*M 

50 FOR k*l TO ?tZOl(k.2)*0>NE!T k:chl(l,2)*0:chl(2,2)*0:chl(l,l>*0:chl(2,l)*0 
40 PRIKT’9 żołnierzy doszło do rzeki . prztz ktorakonieczme tusza sit przeprttic 
. Kost port: “dawnej potodzi jest jeszcze • ruinie. rze 

ka zas zbyt głęboka, by probotac przebrnąć ja o bród. H talej lodce u brz 
*iu rzeki bania sfe dwaj chłopcy.* 

1 PRWlrdka jest tak talenta. ze zalednie je- den zolnierz toglby sic u niej 
itiescic.Rieo to ta właśnie lodta przy czynnya udz 
iale chlopcou przemozla na druga stronę rzeki wszystkich żołnierzy.* 

30 PRINT ■Jak sie to stało"" 

90 PEN OiLOCATE 1,20: PRINT 'NACISNIJ DOMOLNY KLAKI SI* 

100 IF INKEYI**' THEN GOTO 100 

110 H0DĆ i: PAPER 0: BOEDER 9:CLS:NIND0K C 1,1. 1 0,20, 23 1 PAPER C1,2:MIND0N £2,31,90, 
20. 25: PAPER £2,2;N1ND0N £3, 11, 30. 2 1,23: PAPER £3,3:0. 

S £l:OS£2:CLS £3:PEN 1 

120 KIND0H £4. 1,40,1,1: PAPER £4,2:PEN £4,1:CLS £4 

130 &RAPH:cS PEN 1:F3R A=1ó0 TD 440 STEP 56: PLOT A,16:DRAKR 16,0: PLOT A*22,40:DR 
AKR 16.0:PL0T A. 64: DR AKR 16.0:NEXT 

140 FOR v =3 TO 15 STEP 6:F0R x*3 TO 11 STEP 3:50SUB 300:6CSUB J70:NEIT:NE1T 
150 PEN : : LCCATE 11,20:PRINT Cłffi<I213);STPlN&f I5,CHR<(143)):CMtt(2I2) 

160 PAPER 0:»*!8:FOfł x«ll TO 14 STEP 3:6JSU3 410:KE1T 
170 HIND0N £:,ł 1,30, 2. 13: PAPER £5,2:CLS £5:PEN 0:PAPER 2 
ISO LCCATE 12,3: WINT ‘MZIIWSCI : * 

ł=0 LOCATE 12,4:PRIKT *1. Chłopiec tvsiada":L0CATE 14,5:PRINT *z lodki* 

200 LCCATE 12,6:PPINT T.Chlopiec nsnda*:L0CATE 14,7:WINT *do lodki* 

210 LCCATE 12.8:PRINT *3.2olnier: «ysiada*:LOCATE l4,9iPRIKT*z lodki* 

220 LCCATE ; 2 . 1 0: PPINT *4.Iolnierz wsi ada* : LCCATE l4,ll:PFINT*do lodki* 

230 LOCATE 12,12:PRIKT *5.Lodka plvme* 

240 afMNKEYI 

230 IF ał=” THEN 60T0 240 

260 P=VAL(A»I 

270 IF P<1 QR P>3 THEN GOTO 240 

G0SU8 480.560.480,010,930 

300 PAPER 0:PEN 2:L0CATE X.v:PRIMT CHRK190) 

310 LOCATE X-l.y*l:PRINT CFłR* ( 191 ) : CMR* ( 1 43) :CHR* ( 192) 

320 PLOT ( x - 1 ) li 4+3, (26-Y 1416-10: ORAKfi 0,-4:tRAKR 2,-2iDRAKR 6,0: DR AKR 2,2:DRAKP 

0,4 

335 LOCATE X-1,»*2:PRINT CHRI(193)iCHRł(143):CHFI(1941 

34: 3P.APh:C 3 Pttl 1:PL0T Ix-l)ll6«3, 126-Y)I16-10:DRAKR C,-4:DRAKR 2,-2:DRAKR 6,0: 
DRAKR 2 2:DRAHF 0 4 

330 PLOt (x-l)ll6*l, (26-y)ll6-40:DRAKF 14,0:DRA*R 0,-2:DRAKR -14,0 
360 RETURN 

370 LOCATE X-l,y*3:PRINT CW»(1951:CHRI(196l:CHR*(i97! 

380 LOCATE I-l,v*4:PRINT CHR»1198):CHRI(199i;CHRS(200) 

390 PLOT («-2)ll6*l.(26-y)ll6-34:DRAKR 0,-I6:DRAKR 2, 0: TRAWA 0.1C:DRAKP 0.-20:DP 
AKR 2.0: DRAKR C,12:Pt0TF; 2,-6:DRAKR 0,-n 
400 RETURN 


Podprogram w zależności od sytuacji rysuje sylwetkę żołnie- 
rza: 

— na brzegu (cała postać); 

— w łódce (górna część sylwetki). 

2. Rysowanie chłopca (instrukcje 410—470). 


410 PEN 3: LCCATE x.y:PFINT CHRI(Z011:CHR»t210)iCHRI(202) 

420 GRAPHICS PEN UfcOT x 116*4, (25-yl 116*6: CRAKR 6,C:DRAKR 2, 2 i DRAKR 0,6:DRANR - 
2. 2: DRAWR -6.0: DRAKR -2,-2:DRAKR 0,-6:PL0T xllił4,(2 
5-y) tl6+4:PL0T xł!6*10, (25-y) 416*4: PLOT «tl6*4, (2$-y) 116*14: DRANR 6,0:R0VE x!16* 
8,<25-y)ll6*IOsFILL 0 

“ ' ‘"11(203); CHRI (204 ) : CHRI ( 203) : RETURN 

14(2061:* *;CHRI(?08):PEN 1: LOCATE **l,y*2:PRINT CHRI (2 

■ue. 


440 LOCATE x,v*2:PF!NT CHR$(206i:* * 

07): LOCATE *♦! ,y*3:PRINT CHRI (209) 

450 GRAPHICS PEN 3:PL0T xll6*4, (25-y) 116-46: DRAWR -6,0:PL0T xll6*4, 1 75-y ) BI 6-48: 


Podprogram w zależności od sytuacji rysuje sylwetkę chłop- 
ca: 

— na brzegu (cała postać); 

— w łódce (górna część sylwetki). 

3. Chłopiec wysiada z łódki (instrukcje 480 — 550). 


480 FOR k=l TO 2 

490 IF lodka»(U*"c* CR Iodka$m**C* THEN GOTO 520 
500 NEIT 

310 SDUND 1 , 4S8: PRINT £4,*NIE HA CHŁOPCA N L0DZI*:6DT0 670 
520 LODKAI(K)** *:PAPER 6:F0R AM TO 3: LOCATE 1 1 *(K-1 1 *3*131 (S-l ) ,16*A:PRINT * 
*:NEIT 

530 IF CHL!1.S)«1 THEN 1*2*301 (S-t):Y«21: PAPER 2:G0SUB 410:G0SU8 440:CHL(2,S)*1 
:60TC 550 

540 CHl!J.S)=l:PAPER 2:I=6*3O»(S-l):Y*2l:G0SUB 4I0:G0SUB 440 
550 RETURN 


4. Chłopiec wsiada do łódki (instrukcje 560 — 670). 

560 FOR k*i TO 2 

570 IF chllk.s)*l THEN GOTO 600 

580 NEIT k 

590 PRINT £4, "NIE HA CHŁOPCA NA TYP BF2E5U*:G0T0 670 
600 IF NOTlLÓDKAKll**’') THEN GOTO 620 
610 PRINT £4, *NIE NA niEJSCA N L0DCE*:6CT0 670 
620 FOR AM TO 2:IF LODkASIA)** * THEN GOTO 640 
630 NEIT A 

640 CHL(k.5l*0:LODKAIIA)**C*:IMl*(A-l)l3*13l(i-l):YM8:PAPER Oi&OSUB 410 
650 PAPER 2: POR tM TO StLOCATE 6-(k-m4*30l(s-l),19+t:PRlNT ’ “:NEXT t 


5. Chłopiec wysiada z łódki (instrukcje 680 — 800). 

680 IF lodkaKl)**!* THEN GOTO 700 

490 PRINT £4. 'NIE HA 20LNIERZA K LODCE* :60T0 670 

700 LUKMIli*' * 

710 FOR K=I TO 9 

720 IF Z0L(K,S)*0 THEN 60T0 710 

730 NEIT K 

740 Z0L(K.S>*1 

750 FOR TM TO 3:L0CATE 12*18-1)413, 16*T:PR!NT " *:NEIT T 

760 t=9*INT UK-11/3U9-IK-1) 13*301 (5-1 l:YM5-INTI(K-l)/3t 16: 60SUB 300:60SUB 37? 

770 IF S*1 THEN RETURN 

780 FOR K=1 TO 0 

790 IF ZCL(K,S)*0 THEN REJUBN 

800 NEIT K:GÓT0 1020 

6. Żołnierz wsiada do łódki (instrukcje 810—940). 

310 IF ZOLU.SIM THEN GOTO 030 

820 PRINT £4,*NIE HA ŻOŁNIERZY NA TYH BRZEGU*:G0T0 670 

830 FOR A»9 TO 1 STEP -I 

B40 IF ZOL (A, S) *1 THEN GOTO 860 

350 NEIT A 

860 IF LCDKAIlll**C* 0P L0DKAm)**7* 0R L0DKAłI2l**C* THEN GOTO 610 i 

970 ZOL(A.S)*0:L0DKA»ll)**Z* 

880 IF 5=2 THEN GOTO 990 

k 8=5 PAPER 0: FOR k*I5 TC 19:L0CATE 8*301 tS-1 ), KsPRIWI * *:NEt* t 
900 »A»ER 0:IM3*IJt(9-II:YM7:&OSU8 300 
910 IF AM THEN RETURN 

1 =8*INT ( (A-l ł /3! 19-' A-l ) 13*371 (S-I) :Y*15-!NT( (A-l I/JJI6 
930 FOR T*o TO 4:LQC4TE I,f*T:PRINT * 

940 I*9:YM5:ó ' 


B JOOsGCSUB 370: RETURN 
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7. Łódka płynie na drugi brzeg (instrukcje 950—1060). 


950 IF lodUlll)- 1 ? OR lodkill!)**!* QR UttW$ra«*C* THEN 60T0 970 
960 PRINT {4. 'NIE NA NIK050 N L0DCE':&0T0 670 
970 IF S*1 THEN GOSUB 1250:5*2: RETURN 

) 13*301(5-1) :Y*15-INT ( (A-l I /3) 16 
1000 FOR T*0 TO 4:10CATE X,Y*T:PRINT ' ":NEXT T 
1010 PAPER 0:7=lJłlJI(S-l):Y=17:60SUB J00:RETURN 

1020 CLS£5:PEN 0; PAPER 2:L0CATE 12, 3: PRIHT*BRAMO ! * : LOCATE i:,5:PRINT'KQNIEC PRZE 
PRANY': FOR AM TO 5:S0UND 1.358:SOUNO 1,458:NEXT 
1030 PEN 1: LOCATE 12,8: INPUfJESZCZE RAŻCT/N)*;K* 

1040 IF KI*'T' OR K*='t* THEN 6CT0 20 
1050 IF »='N' OR tCMV THEN LOCATE 1,1:END 
1060 60T0 120 


8. Definicja własnych symboli graficznych (instrukcje 1070— 
1240). 


1070 SYMBOL AFTER 190 

1080 SYMBOL 190,60,126. 126.253 

1090 SYMBOL 191,0,3.7,15,15,14.14,14 

1100 SYMBOL 192,0.192,224.240.240,112,112,112 

1110 SYMBOL 193,14,14,14,30,62.60,120.112 

1120 SYMBOL 194,112,112,112.112.112.112.112.112 

1130 SYMBOL 195, 112,96: SYHBUL 196,255,255,231,231,231,231,231,231 

1140 SYMBOL 197, 112.112, 112:SYHBCL 198,0,0,0,6,0.1.7,7 

1150 SYMBOL 199, 231, 231, 231,231, 231, 231, 231, ilirŚYMBÓL 200,0,0,0,0,0,128,224,224 

1160 SYMBOL 201,0,0,0,0,0,0,0, 1: SYMBOL 202,0,0.0,0,0,0,0,158 

1170 SYMBOL 203,3,3,3,3,3,3,3,3 

1180 SYMBOL 204,235,255,126,126,126,126,126,126 

1190 SYMBOL 205,192,192,192,192,192,192,192,192 

1200 SYMBOL 206,3,3,1 

1210 SYMBOL 207,126,126,126,126,102,102,102,102 
1220 SYMBOL 208,192,192,192 
1230 SYMBOL 209,102,102,102,102,102,102 
1240 RETURN 


Symbole 190—209 są wykorzystywane do rysowania sylwetek 
żołnierzy i chłopców. 

9. Przesuwanie łódki w prawo i w lewo (instrukcje 1250—1530). 


1250 REK ’ przesuwanie w prawo’ 

1260 RE3T0RE 1280:F0R i=&7F76 TO &7FA1 

1270 READ v : POKE i,v:NEXT 

1280 DATA 1,3,4,33,39,192.84 

1290 DATA 93, 19, 197,1, 14.0.237. 1S4. 193. 35, 54,0 

1300 DATA 13,40,6. 17.13.8,25,24,234,5,40,12,124 


1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 


DATA 214.5Ł, 103, 17.93,0,25, 14,3,24, 219.201 
x=17:y=17:60388 1490 
POKE &7F7B, 

FOR z=,2+l TO .2+26 
POKE S7F7A,l:CALL A7F76 
FRAMEiFOR t=l TO 60:MEXT:NEXT: RETURN 
REM 'przesuwanie w lewo’ 

RE3T0RE 1400:F0R i=47F74 TO 47FAI 
READ v: POKE i,v:NEXT 



«ni n 

x=24 : y= 1 7 : aOSUB 1490 
POKE S7F7B.W1 
FOR z=«2 TO wZ-26+t STEP -1 
FOKĘ &7F7A, z : CALL S-7F7Ó 
FRAME: FGR t=l TO 60: NEXT : REXT : RETURN 
A=(Y-l’480+(x-l!l2 
Xl=IHTta/25ó) 

«2=a-Wl*256 

wl=192*wl 

RETURN 


W trakcie sterowania przeprawą (klawisze numeryczne 1—5) 
program przeprowadza kontrolę logiczną zaistniałej sytuacji 
W razie błędów logicznych są wyświetlane odpowiednie ko- 
munikaty i program czeka na poprawną dyrektywę. Całkowity 
zestaw komunikatów o błędach jest następujący: 

NIE MA CHŁOPCA W ŁODZI. 

NIE MA CHŁOPCA NA TYM BRZEGU. 

NIE MA MIEJSCA W ŁÓDCE. 

NIE MA ŻOŁNIERZA W ŁÓDCE. 

NIE MA ŻOŁNIERZA NA TYM BRZEGU. 

NIE MA NIKOGO W ŁÓDCE. 

Życzymy wytrwałym Czytelnikom sukcesów w sterowaniu 
przeprawą żołnierzy przy użyciu mikrokomputera. 


X'press 1 6 

Komputer domowy 
na każdą okazję 


• PC kompatybilny 

• 256 kB o dostępie bezpośrednim 

• wbudowana stacja dysków 5,25" z 
360 kB 

• PC standard (CGA) i wzbogacona 
kolorowa grafika 

• 256x212 punktów rozdzielczości z 256 
kolorami i 32 wielobarwnymi 
płaszczyznami 

•512x212 punktów rozdzielczości z 16 
kolorami i 32 wielobarwnymi 
płaszczyznami 

• 3 kanały dźwiękowe z 8 pełnymi 
oktawami na kanał 

• Klawiatura kompatybilna z PC 

• Możliwość zewnętrznego podłączenia: 
równoległej drukarki, myszki, joystick’a 
oraz świetlnego póra 

• System MS-DOS oraz wzbogacony GW 
BASIC 




Płyta kompaktowa pojawiła się w 1 982 r. 
w Japonii. W marcu 1983 była już sprzeda- 
wana w Europie Zachodniej Od początku 
sprzedaż płyt. zwanych najczęściej CD (od 
ang. Compact Disc) a także odtwarzaczy 
laserowych osiągnęła ogromne rozmiary. 
Do dziś nie ma zgody, jak po polsku te urzą- 
dzenia nazwać — jedni lansują nazwę lase- 
rofon, inni — dyskofon. 

Niezwykłe powodzenie płyta laserowa 
zawdzięcza przede wszystkim doskonałej 
lakości odtwarzanego dźwięku, wygodzie 
korzystania z niej i jednakowemu w całym 
świecie standardowi. 

Doskonałą jakość osiąga się dzięki nowej 
technologii nagrywania i odtwarzania dźwię- 
ku Najistotniejszym elementem tej techno- 
logii jest laser, który pełni tu rolę igły gramo- 
fonowej Drugim, nie mniej ważnym, jest mi- 
krokomputer. Jest on czymś w rodzaju fa- 
bryki, w której cyfrowy ..surowiec' 1 jest 
wszechstronnie obrabiany 

W sygnale zakodowane są nie tylko 
dźwięki, lecz także informacje kontrolno- 
-sterujące, bez których ta fabryka nie byłaby 
w stanie funkcjonować. Dzięki mm kompu- 
ter wykrywa i natychmiast poprawia błędy 
wynikające np z zadrapania płyty Nawet 
plamka o średnicy ok. 2 mm nie jest odczu- 
walna podczas odtwarzania płyty. 

Współczesne gramofony CD potrafią sa- 
moczynnie korygować nawet 60 najczęściej 
spotykanych błędów i przekłamań odczytu 
Jest więc on skomplikowanym urządze- 
niem laserowo -komputerowym Natomiast 
płyta CD odtwarzana jest przeciwnie, niż 
longpley tradycyjny — od środka. 

Ponieważ strumień odtwarzanych infor- 
macji powinien być stały, płyta na początku 


wiruje 500, a pod koniec odtwarzania 215 
razy na minutę W ciągu każdej sekundy 
mikroprocesor przetwarza 4 321 800 bitów 
informacji zawartych w sygnale cyfrowym. 

Śpiewający laser, 
dziewczyny i złoto 

Z czym się nam najczęściej kojarzy 
obecnie postęp? Z nowoczesnością przede 
wszystkim A dziś nowoczesność, to w 
głównej mierze — elektronika. Ona wyzna- 
cza swoisty próg rozwojowy, dzieli na „wielki 
świat" i okolice, wyznacza miejsce w czo- 


łówce państw najbardziej technologicznie 
rozwiniętych lub spycha je do cywilizacyj- 
nego ogona. 

Ten „wielki świat' zawitał przed kilku laty 
do Bydgoszczy Stało się to głównie za 
sprawą Zakładów Radiowych „Unitra — El- 
tra" Japonia, Francja, RFN. Nazwy firm 


znanych na całym świecie takich jak: ITT 
Canon, Thomson, Brandt. Nordmende. Con- 
tinental Edison Sabaj — nie wzbudzają tutaj 
żadnych emoqi 

Radioodbiorniki oraz radiomagnetofony 
produkowane w „Eltrze" kupuią klienci na 
całym świecie. I chwalą ich jakość oraz 
estetykę wykonania, parametry. Co warte 
podkreślenia, ten eksport nie jest wcale mały. 
Dlaczegóż więc mieliby mieć jakieś kom- 
pleksy? 

— W bieżącym roku — mówi główny 
specjalista zakładów, inz. Piotr Terlecki 
wyprodukujemy 900 tysięcy różnorodnego 
sprzętu radiowo-elektronicznego. Z czego 


40—50 procent radiomagnetofonów i ponad 
połowę odbiorników przenośnych wyślemy 
na eksport. Głównie do krajów Europy Za- 
chodniej — Francji. Republiki Federalnej 
Niemiec. Szwecji, Jugosławii oraz Japonii. 
Produkcja eksportowa obejmuje około 24 
proc naszej globalnej produkcji 

Co my z tego mamy? 

Pięknie prezentują się wyroby „Eltry". 
Większość radioodbiorników nosi żeńskie 
imiona: „Ania", „Zosia", „Klaudia", „Jowita", 
„Hania", „Liza"... Lubią tutaj dziewczyny? 

— To może dlatego — tłumaczy kierow- 
nik sekcji technologu, inż. Eugeniusz Bazak 

— ze w naszym zakładzie pracuje wiele ko- 
biet Produkcja tu wytwarzana wymaga 
ogromnej cierpliwości i dokładności. Wia- 
domo. że kobiety do tego rodzaju pracy 
nadają się najlepiej. Są cierpliwe z natury. 
No, może z wyjątkiem kilku naszych żon. 

Patrząc na wytwarzane tutaj cacuszka, aż 
łza się kręci w oku, że radioodbiorniki o 
wdzięcznych dziewczęcych imionach opu- 
szczają kraj i cieszyć będą wzrok i serca in- 
nych Cóz z tego eksportu mamy my, polscy 
melomani i zwykli zjadacze Chleba, którzy 
lubią posłuchać miłej piosenki przy goleniu? 

— Nasza oferta na rynek krajowy jest 
bardzo bogata — wyjaśnia kierownik mon- 
tażu odbiorników, mż Andrzej Kazubowski 

— Trafia nań przecież 46 proc naszej pro- 
dukcji. Nie rozróżniamy wśród niej tej na 
eksport i na rynek krajowy. Radioodbiorniki i 
radiomagnetofony do nas i za granicę wy- 
twarzają ci sami ludzie, przestrzegając tych 
samych — zawsze wysokich — norm ja- 
kości. Gdybyśmy postępowali inaczej, 
demoralizowalibyśmy ludzi 

Przykład pierwszy z brzegu ..Ania". „Liza", 
i „Emilia . Te same odbiorniki — pod 
względem koloru, jakości wykonania — mo- 
żna kupić w sklepach Francji, RFN i na- 
szych. Wyjątek stanowią radioodbiorniki, 
sprzedawane szwedzkiej firmie „Luxor". Nie 
ma ich na naszym rynku Ale tylko dlatego. 



Kostka w tekście 

Oompaot 

Diso 
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Jan Meler (z prawej) jest jednym z głównych konstruktorów 
najnowszej generacji radiomagnetofonów produkowanych 
przez „ELTRĘ" 


„Manuela” prezentowana przez inż. Piotra Terleckiego, to 
najnowsze dziecko zakładów. Ambicją firmy jest, by wszyst- 
kie modele eksportowe znalazły się na krajowym rynku nie 
później niź po roku. 


i iż nie ma na nie zbytu To radio tylko z za- 
; kresem fal UKF i możliwością ich progra- 
mowania. za którym przepadają Szwedzi, 
nam nie przypadło do gustu 

W dyrekcji zapewniają, że najnowsze 
dziecko zakładu, „Manuela", również trafi do 
naszych sklepów i to jeszcze w drugim 
kwartale Jest to radiomagnetofon dwukase- 
towy. stereofoniczny, o mocy 2x4 W. z 
dwiema prędkościami przesuwu taśmy, 
czterozakresowy, możliwością współpracy z 
każdym innym sprzętem 

Radiomagnetofon „palce lizać". Mogliby 
na eksport wysłać każdą ilość Ale przecież 
nie o to chodzi W bieżącym roku sprzedaż 
na rynek krajowy wyniesie 1 1 7 proc ubie- 
głorocznej produkcji i wzrośnie o około 
1 mld zł 

—/Eksportujemy przede wszystkim dla- 
tego — zapewniał inz, Terlecki — aby móc 
produkować dla kraju sprzęt najnowszej 
generacji. Bez tego eksportu nie mielibyśmy 
dewiz niezbędnych na unowocześnianie 
naszej produkcji, nie znalibyśmy nowinek 
technicznych w tym zakresie 

Okazjonalne słowa'* W „Eltrze" mają wiele 
przekonujących argumentów, że nie Tu 
potrafią nie tylko korzystać z obcych licen- 
cji, ale także udoskonalać je. I to tak, że już 
I obecnie firmy zachodnie mają vy nich gro- 
| źnego konkurenta. 

Przepchać wąskie gardło 

— Co jest piętą achillesową krajowej 
elektroniki? — Inż. Terlecki wie. że to pyta- 
nie retoryczne, dlatego nie czekając na od- 
powiedź stwierdza: — Brak podzespołów 
Aby je wytworzyć potrzebne są odpowiednie 
narzędzia, precyzja ich wykonania. Mozolne 
linie do ich wytwarzania, wymagają żmud- 
nych badań oraz wyjątkowego wręcz prze- 
- strzegania wymogów jakościowych. 

Do niedawna nie było problemów — ku- 
powało się potrzebne podzespoły na Za- 
chodzie A dziś? 

W latach osiemdziesiątych zakupiono w 
„Eltrze" holenderską licencję linii do selek- 
tywnego pokrywania styków W latach 1 982 
: i 1983, kiedy rozpoczynali pracę „pełną pa- 
rą" kontakt z krajami zachodnimi był — nie z 
naszej zresztą winy — ograniczony. Dlatego 
w zakładzie wzięto się poważnie za .bary z 


najnowszymi technologiami dotyczącymi 
wytwarzania podzespołów stykowych 
Efekty tej pracy me dały długo na siebie 
czekać. Wkrótce mieli swoią własną Imię 
Równie dobrą, a może nawet lepszą. W każ- 
dym razie na pewno oszczędniejszą. Styki 
pokrywało się bowiem dotychczas. . złotem. 
Rocznie zużywano go około 300 kg. Metoda 
selektywnej galwamzacji styków, którą 
opracowali, pozwala zaoszczędzić w roku 
blisko 100 kg tego cennego kruszcu. Bez 
obniżenia jakości elementów 
Już obecnie część tych podzespołów wy- 
syła się na eksport. I nikt z kupujących — a 
konkurencja duża i wymagania jakościowe 
me mniejsze — nie narzeka Przeciwnie, 
chcieliby kupować więcej. 


komputerowy, górnictwo, przemysł maszy- 
nowy. Wszystkich, którzy przy produkcji po- 
trzebują łączyć obwody drukowane, scalo- 
ne. panele. 

Stale rozwija się także zaplecze nauko- 
wo-badawcze. Dziś w służbie głównego 
konstruktora, w sześciu działach, pracuje 
kilkaset ludzi. Właściwiej byłoby powiedzieć 
— myśli I efekty tego myślenia przynoszą 
zakładowi coraz większe zyski i. oszczęd- 
ności. Kierownik działu konstrukcyjnego, 
inz. Janusz Pazderski, nie chce rozmawiać o 
tym, nad czym obecnie pracują. Co prawda 
konkurencja pomiędzy naszymi zakładami 
me taka. jak w innych krajach na zachód od 
Łaby. ale ostrożność nie zawadzi 

Ogólnie można powiedzieć tak: myślą w 


Radiomagnetofon produkowany wspólnie z Japończykami SANKEI. Najnowocześ- 
niejszy z odtwarzaczem laserowym. 


— Naszym głównym zadaniem, jakie 
stawiamy sobie na najbliższe lata — mówi 
inż. Terlecki — jest wzrost produkcji pod- 
zespołów. Przy tym samym np. zuzyciu 
złota i nie zwiększając zatrudnienia chcemy, 
w ciągu najbliższych pięciu lat, zwiększyć 
ich produkcję do 6 min sztuk, czyli dwukrot- 


Obecnie produkcja podzespołów stanowi 
35 proc produkcji globalnej Warto wie- 
dzieć, że jesteśmy największym w Polsce 
producentem podzespołów dla wszystkich 
przedsiębiorstw, które mają coś wspólnego 
z elektroniką Zaopatrujemy w nie przemysł 


zakładzie o stykach przyszłości. Jeszcze 
lepszych, nowocześniejszych, bardziej zmi- 
niaturyzowanych. Ale nie tylko O nowych 
modelach odbiorników z zastosowaniem 
ostatnich osiągnięć w zakresie przełączni- 
ków i kondensatorów. Opracowano juz wie- 
le nowych rozwiązań. M in. przełączniki su- 
wakowo-obrotowe. uchylne, włączniki przy- 
ciskowe i impulsowe Zamiast kondensato- 
rów powietrznych stosować się będzie obro- 


Słowem, dalsza faza elektronicznej roz 
budowy i wprzęgnięcia jej do sterowań ,, _ 

układami cyfrowymi oraz do innych techn ^ 



„CD" Tak. tak, to najnowszy laserowy od- 
twarzacz komputerowy. Przebój ostatnich 
lat produkowany w „Eltrze"? A dlaczegóż by 
nie? Chociaż, co tu kryć. bez pomocy Ja- 
pończyków nie mogłoby być mowy o po- 
dobnej produkcji Jeszcze me 
„Sankej" CD-99 — wyjaśnia inż. Terlecki 
— to model, w którym główne podzespoły 
otrzymujemy od Japończyków. To skompli- 
kowane urządzenie komputerowe, do pro- 
dukcji którego trzeba specjalistycznych i 
wyjątkowo nowoczesnych narzędzi 
Aby uzmysłowić sobie doskonałość |ego 
funkcjonowania, a co za tym idzie, precyzyję 
wykonania, najlepiej wyobrazić sobie płytę 
CD w tysiąckrotnym powiększeniu Miałaby 
ona wtedy 1 20 m średnicy, a plamki tworzą- 
ce spiralną ścieżkę zapisu, byłyby około 0,5 
mm szerokośfci, 1 mm długości, i 0,1 głębo- 
kości. Mimo tak ogromnego powiększenia. 

Odległość natomiast między dwiema są- 
siednimi ścieżkami wynosiłaby 1,6 mm, a 
czytnik laserowy musiałby przemieszczać 
się nad taką spiralną ścieżką z dokładnoś- 
cią do 0,1 mm Nie jesteśmy jeszcze po pro- 
stu technologicznie przygotowani do samo- 
dzielnego wyprodukowania takiego odtwa- 
rzacza 

Oczywiście me oznacza to. że w najbliż- 
szej przyszłości me będziemy umieli tego 
robić Na razie podpatrujemy Japończyków, 
uczymy się najnowszych technologii, zdo- 
bywamy doświadczenie 
Inżynier twierdzi, ze to. co robią obecnie, 
jest przymiarką do rodzimych rozwiązań 
Przekroczyli juz wiele technologicznych 
progów i me potknęli się Dlaczego w tym 
przypadku miałoby być inaczej? Dziś cały 
przemysł elektroniczny w Polsce przygląda 
się japońskim osiągnięciom. A jutro? 

W „Eltrze" są przekonani, że za kilka lat 
odtwarzacze kompaktowe naszej produkcji 
znajdą się w sklepach. Przymierza się do ich 
produkcji łódzka „Fonika" Być może i oni 
włączą się do tej produkcji, kto wie? 

W zakładzie najwyraźniej widać, jak w 
elektronicznym pędzie mkną w przyszłość 
najbardziej rozwinięte kraje świata. Tu też 
najlepiej rozumieją, że nie zabrać się do te- 
go elektronicznego pociągu, oznacza ogra- 
niczyć tempo rozwoju, trafić w cywilizacyjną 
dziurę. Stąd ta zapobiegliwość Chęć trzy- 
mania się za wszelką cenę. jeśli nie w czo- 
łówce. to przynajmniej w peletonie. 

I może dlatego to. co robią w „Eltrze", na- 
pawa optymizmem Mimo wszystko 
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Przy taśmie montażowej wiele dziewcząt. One najbardziej nadają się do prac, które 
wymagają cierpliwości i precyzji. 


A przecież i tutaj nie wszystko przebiega 
bez zgrzytów i trudności, W przyzakładowej 
szkole zawodowej, kształci się radiomecha- 
ników i ślusarzy. Właśnie brak ślusarzy na- 
rzędziowych hamuje tempo wzrostu produk- 
cji Nie zawsze też wywiązują się ze swych 
zobowiązań kooperanci Nikt tu jednak nie 
szuka usprawiedliwień, co zrobić, żeby nic 
nie robić, tylko szuka sposobów rozwiązy- 
wania kłopotów właspymi siłami. 

Podpatrywanie Japończyków 

Krążyła kiedyś anegdota o tym. jak to pe- 
wien wynalazca pobiegł zgłosić do odpo- 
wiedniej komórki swój najnowszy wynala- 


generacji radiomagnetofonów. Prawdzi- 
wych miniaturowych „kombajnów" muzy- 
cznych 

Właśnie tu, produkuje się od kilku lat serię 
radiomagnetofonów „Sankei", z najnow- 
szym jej modelem „Sankej" CDR-99 Cóż to 
takiego 7 Przenośna, tranzystorowa mim- 
wieza zasilana bateriami lub z sieci, złożona 
z magnetofonu dwukasetowego. ekalizera, 
tunera z syntezą częstotliwości, programo- 
waniem elektronicznym i automatycznym 
wyborem stacji oraz odtwarzaczem CD — 
również programowanego elektronicznie, 
umożliwiającego automatyczny wybór 
określonego utworu z płyty kompaktowej 

Cóż się kryje za tymi dwiema literami 


^ logu specjalnych. Chcą bowiem opracować 
własne linie produkcyjne włączników, myślą 
o możliwości produkowania własnych me- 
chanizmów napędowych, gdyż te, które do- 
starczał kooperujący z „Eltrą" zakład były 
zbyt niskiej jakości. 


zek. Niestety — wrócił z niczym Gdyby to 
było dobre, usłyszał od urzędnika zza biurka, 
to Japończycy już dawno by to wymyślili 
Tymczasem Japończycy do „Eltry" przy- 
byli sami Uczyć się? No. bez przesady Ale 
powierzyli zakładowi produkcję najnowszej 
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EKSPLOZJA 

10 ' Eksplozja 

20 INPUTMLE FAZY POMORZYĆ GLOS EKSFLCI! 

30 FOR 1=1 TO I 

10 ENT -1,15,4,5 

50 S9UNP 1,30.750.5.0,1 

60 ENV 1,1,15.1,15,-1.100 

7 0 S91MD 1, 140, 0,1,0,12 

eo NEXT 


KARABIN 

MASZYNOWY 


10 ' Y?r-5 

n oasz-naw 1 / 


20 INPUT * 

le razy PWTDMYC 

ELOS F4 

30 FOR L=t 

T3 I 


40 J r 

! T Q 3 


50 -iw 1.5 

1.-5, i, 5. 3,1 

1,-1*. 1 

=0 ENT -1, 

1,5,1, 1,-5, 1 


70 SOUtf 1 

162,-7,8,1,1,7 


3-0 SOtiND 1 

,0,10 


40 NEXT 



!00 NEXT 




SYRENA 

10 ’ Syrena 

20 INPUTMLE RAZY POHTCRZYC GLOS SYRENI 
! 30 FOR L=1 TO I 

40 ENV 2.10.1,1,2,1,1 
! I 50 El!T -2,12,2,0.5 
60 p=40: g=l 
70 FOR 1=1 TC 50 
90 IF i >35 AMD pi 4! THEN p=e*C.5 
3 0 IF ł >35 AND j>! THEN 3 = 3-1 
100 IF k'20 ANO g<12 THEN 5 * 3*1 
110 S0UHD 2, s, -.2.3.2, 2 
120 N£l’ 

130 NEtT 
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Standard MSX, 

a mikrokomputer SVI-738 X’PRESS 


Pod koniec 1 986 roku w Centralnej Skła- 
dnicy Harcerskiej oprócz mikrokomputerów 
TC— 2048 pojawiły się również mikrokom- 
putery SVI— 738 X'PRESS firmy SPECTRA- 
VIDEO z Hongkongu wraz z pewną liczbą 
urządzeń zewnętrznych i oprogramowaniem 
podstawowym 

SVI— 738 należy do tzw standard MSX. 
który jest próbą ujednolicenia produkcji mi- 
krokomputerów domowych na wzór standar- 
du IBM, jaki wytworzył się dla profesjonal- 
nych mikrokomputerów personalnych Wraz 
z SVI— 738 omówiony zatem zostanie jed- 
nocześnie standard MSX. 

Prekursorem tego standardu jest tokijska 
filia amerykańskiej firmy MICROSOFT, a 
głównie jej projektant. Mr. Mishi, który w 
1 983 r zaprojektował model mikrokompute- 
ra MSX dla firmy SPECTRAVIDEO W stan- 
dardzie MSX przyjęto szereg ujednoliceń. W 
mikrokomputerach zastosowano mikropro- 
cesor Z80 z taktem częstotliwości 3.58 
MHz Pamięć mikrokomputera składa się z 
kilku bloków: bloku pamięci ROM o poje- 
mności 32 kB. w której umieszczony |est in- 
terpreter rozszerzonego języka BASIC, blo- 
ku ROM 1 6 kB dla potrzeb mikrodysku, 8kB 
ROM dla potrzeb łącza szeregowego 
RS— 232C, bloku 16 kB RAM przeznaczo- 
nego do pamięci obrazu i bloku 64 kB jako 
pamięci operacyjnei Dodatkowo można do- 
łączyć zewnętrzną kartę pamięci RAM o po- 
jemności 64 kB Mikrokomputer ma wbu- 
dowany generator akustyczny o trzech nie- 
zależnych kanałach akustycznych i kanale 
szumowym, Generator wytwarza dźwięki w 
zakresie 8 oktaw. Amplituda dźwięku i 
kształt obwiedni mogą być tworzone pro- 
gramowo. 

Klawiatura mikrokomputerów MSX nie 
jest ściśle znowelizowana, występują jednak 
te same grupy klawiszy w ten sam sposób 
rozmieszczone. Mamy więc: 

— cztery duże klawisze do przesuwania 
kursora w 4 kierunkach. 

— klawiaturę alfanumeryczną, która może 
być dostosowana do alfabetu danego 
kraju. Pierwsza partia sprowadzonych 
SVI ma klawiaturę angielską, następne 
mają mieć już klawiaturę polską Klawi- 
sze alfanumeryczne po użyciu klawiszy 
sterujących CODĘ, SHiFT — CODĘ. 
GRAPM i SHIFT — GRA p M dają różne 
znaki graficzne, symbole arytmetyczne, 
litery charakterystyczne dla alfabetów 
greckiego, niemieckiego, szwedzkiego 
itp Łącznie dzięki klawiaturze alfanume- 
rycznej można uzyskać 255 znaków, 

— klawisze steruiące np ENTER TAB 
CTRL. STOP, CLS/HM itp 

— klawisze funkcyjne FI — F10, które mo- 
gą być zaprogramowane zgodnie z po- 
trzebami użytkownika. 


We wspólnej obudowie z mikrokompute- 
rem znajduje się stacja mikrodysku o mało 
znanej u nas wersji dyskietek 3.5 cala Dy- 
skietka zapisywana jest jednostronnie z 
podwójną gęstością Powierzchnia robocza 
dyskietki podzielona jest na 80 ścieżek po 9 
sektorów. Pojemność dyskietki wynosi 360 
kB. a szybkość transmisji 250 kb/s. 

Teraz o tym, co można dołączyć do mi- 
krokomputera. a można dość dużo. Mikro- 
komputer wyposażony jest w szereg gniazd, 
przez które można do mikrokomputera 
dołączyć: 

— monitor kolorowy lub odbiornik telewi- 
zyjny. Obraz na ekranie tworzony jest 
za pomocą kontrolera graficznego 
TMS— 9918A. Rastrowy wymiar ekranu 
w trybie grafiki wykreślnej wynosi 
256x192 punkty. W trybie grafiki teksto- 
wej możemy uzyskiwać wydruk w 24 
wierszach po 40 znaków lub w 24 wier- 

- szach po 80 znaków Obraz może być 
wyświetlany w 1 6 kolorach, 

— dla potrzeb gier można podłączyć dwa 
manipulatory (joysticki) typu OUICSHOT 
MSX, 
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— magnetofon kasetowy SVI— 767 jako 
pamięć zewnętrzna, w której znajduje s>ę 
oprogramowanie firmowe, 

— dodatkową stację mikrodysków 3,5 cala 
lub 5.25 cala, co znacznie zwiększa moz 
liwości przetwarzania dość dużych zbio- 
rów danych. 

— drukarkę — przez równoległe złącze 
typu Centronics. Drukarka może druki > 
wać różnymi wzorami druku. Do 
SVI— 738 można dołączać drukarki wy- 
posażone w trakcia łącza 

Mikrokomputer wyposażony jest ponadto 
w gniazdo łącza RS— 232— C. które umoz 
liwia przekazywanie informacji między dwo- 
ma mikrokomputerami Można łączyć mi- 
krokomputery liniami telefonicznymi. W tym 
wypadku mikrokomputery są dołączone do 
linii telefonicznych przez modemy. 

Ciekawostką jest ponadto możliwość za- 
stosowania karty sprzęgu SVI— 709 która 
umożliwia podłączenie mikrokomputera do 
lokalnej sieci mikrokomputerowej SVI— 6C9 
jako inteligentnej końcówki : korzystanie z 
zasobów informacji, znajdujących się na 
dysku stałym komputera głównego tej siec 
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Grafika na ekranie <«-4) 


Andrzej CETERA 


Poprzednio rozpatrywany był obrót zobra- 
zowania na ekranie wokół początku układu 
współrzędnych 

Znajduje on również zastosowanie przy 
obrocie względem dowolnego punktu, nie 
będącego początkiem układu współrzęd- 
nych. W ogólnym wypadku następuje to 
przez przesunięcie początku układu współ- 
rzędnych do punktu obrota, w obrocie wokół 
początku układu i przesunięciu układu 
współrzędnych do pierwotnego położenia 
Obrót wektora położenia (xy1 ) wokół punktu 
(m, n) o dowolny kąt 0 może być wykonany za 
pomocą przekształcenia. 


= [XYHJ 



1 o o' 

cosfl sin® 0 

‘i 0 o' 

l*yi] 

•0 1 0 
-m— ni 

-sm0cos0O 

,001 

0 1 0 
m n 1 


Po przekształceniu otrzymamy. 


[XYH]=[xy1 ] 


cos0 sirtf 0 

— sinfl cos(9 0 

-m(cos0-1)+ — m{sin 8)- , 
■fn(sm0) — n(cos0— 1) 


Rozpatrzmy następuiący przykład 

Przyjmi|my, ze chcemy wykonać obrót zo- 
brazowania o kąt 90°, w kierunku przeciw- 
nym do obrotu wskazówek zegara, wokół osi 
prostopadłej do płaszczyzn XY i przecho- 
dzącej przez punkt (4,3). 

Obrót względem początku układu wspo- 
rzędnych możemy wykonać za pomocą 
macierzy transformacji 


0 1 0 
-10 0 
,001 


Przesunięcie układu współrzędnych realizu- 


jemy za pomocą macierzy transformacji- 


' 1 0 0 0 ' 


i o 0 1 


0 cosy siny 0 


o i o L 


0 —Siny cosy 0 


-4 3 1 J 


Q 0 0 1 i 


Po wykonaniu przesunięcia i obrotu otrzy- 
many rezultat należy sprowadzić do pier- 
wotnego układu współrzędnych, co wyko- 
namy wykorzystując wsteczną macierz 
transformacji. 


1 0 0 
0 1 0 
4 3 1 


Całą zatem operację zapiszemy 


[XYH| = |xytl 


'10 0' 

'010' 

'10 0 


0 1 0 

-10 0 

0 1 0 


-4-31 

0 0 1 

4 3 



Po wymnożeniu macierzy transformacji a macierz transformacji ma postać 

otrzymamy: 


[XYH] = [xy1] 




cos/J 0 -sm/J 0 ' 

0 1 0 



0 10 0 

-10 0 



sm/3 0 cos/3 0 

. 7-1 1 , 



, 0 0 0 1 ( 


Rozważymy teraz przykłady, w których osią 
obrotu jest jedna z osi współrzędnych Ma- 
my więc trzy warianty do rozpatrzenia, w 
których jedna z osi będzie prostopadła do 
ekranu (oś półdodatnia) 

a) oś x biegnie do ekranu 

b) oś y biegnie do ekranu 

c) oś z biegnie do ekranu 

Zadanie zatem jest zredukowane do obrotu 
w przestrzeni dwuwymiarowej i punkt (x. y 
z) w pierwotnym układzie współrzędnych 
staie się w nowym układzie punktem (x . y'. z ), 
gdzie 

dla obrotu wokół osi x 



a macierz transformacji ma postać: 


dla obrotu wokół osi y 



Wtgltdtm oi 
cot/f 0 -* 


z cos/3 +■ x — sm/3 


dla obrotu wokół osi z 

x' = x coso + y sina 
y' = —x sina + y cosa 
z' - z 



3 macierz transformacji ma postać: 


;osa sma 0 0 

-sina cosa 0 0 

0 0 10 

0 0 0 1 

W sytuacji, gdy mamy do czynienia z figu- 
rami płaskimi zdefiniowanymi na płaszczy- 
źnie. macierze transformacji przyjmą nastę- 
pującą postać 

R1, R2. R3 

Omówiona problematyka została prakty- 
cznie wykorzystana w prezentowanym po- 
niżej programie 

Program realizuje obroty zdefiniowanych 
figur względem dowolnie wybranego punktu 
lub osi układu współrzędnych Możliwe jest 
także modyfikowanie figur przez dorysowy- 
wanie kolejnych elementów 

Współrzędne punktów definiujących figu 
rę wprowadza się w jednostkach umow- 
nych, które są odmierzone na osiach układu 
współrzędnych Mogą nimi być liczby cał- 
kowite i zmienno-przecmkowe. Gdy cała de- 
finiowana figura ma być widoczna na ekra- 
nie monitora, współrzędne muszą się zawie- 
rać w przedziałach 

x:(— -16, 16) i y:(— 9,5, 9.5) 

W celu łatwiejszej orientacji figur na ekra- 
nie, należy wyświetlić siatkę punktów z dy- 
skretnością jednostek umownych 

Wadości kątów obrotu wprowadzamy w 
stopniacn Wprowadzenie punktu o współ- 
rzędnych x 998 i dowolnei wartości współ- 
rzędnej y powoduje zakończenie definiowa- 
nia figury. 


Poniżej przedstawiamy przebieg i obsługę 
operatorską programu. 


KOMUNIKAT 


1. Całkowita wido- 
czność rysowanej 
figury, gdy współ- 
rzędne zawierają 
się w przedziale: 
x:{ — 16. 16), 
y:( — 9,5. 9.5) 

Siatka współrzęd- 
nych (t/n) 


2. Podaj wsp. punk- 
tu x, y 


3. Podaj kąt obrotu 


4 'Obrót względem 
put cl . (t/n) 


5. Obrót względem 
osi (x/y/z) 


Wprowadzamy lite- 
rę „t”. gdy chcemy 
mieć na ekranie 
wyświetloną siatkę 
punktów, a gdy nie 
chcemy — literę 
„n". 

Wprowadzamy wsp. 
(x. y) punktu definiu- 
jącego figurę lub 
punkt kończący de- 
finiowanie. 
Wprowadzamy w 
stopniach kąt obro- 
tu. 

Wprowadzenie litery 
„t" spowoduje wy- 
branie funkcji, obró} 
względem punktu i 
przejście do komu- 
nikatu 10. Wprowa- 
dzenie litery „n", to 
wybranie funkcji 
obrót względem osi. 

Wprowadzamy lite- 
rę odpowiadającą 
jednej z osi x; y; z. 
W wyniku otrzymu- 
jemy zobrazowanie 
figury po obrocie. 


40 REM 
30 REH 

60 reh mttiimimmumitmmtmmi 

70 DIH wsp(101,3),eat(3,3),nwsp(101,3) 

80 H0DE 1 > INK 0.13:IMK 1,3: INK 2, 12: INK 3,0 
90 B0RDER 0:PEN 1: PAPER 2 
100 CLS 

110 PR1NT "CalkoMita widoczność rysowanej' 

120 PRINT 'figury gdy współrzędne zawieraja' 

130 PRINT *sie w przedziale x: (-16, 16), y: (-9.5, 9. 5)' 
140 PRINT 

130 PRINT 'Siatka współrzędnych (t/n) " 

160 z»=INKEY$ 

170 IF z*=' ' THEN 160 
180 IF z**'!' THEN fl=l:G0T0 210 
190 IF z»=V THEN fl=0:GQT0 210 
200 60T0 160 

210 GRAPHICS PAPER 1 : REH Tlo grafiki 

220 0RIGIN 320,208,0,640, 16,400 

230 CLEAR INPUT 

240 WIND0W 1,40.25,25 

250 G0SUB 15/0 : REM Rys. układu wspol. 

260 i=0 :REH Licznik punktów 

270 INPUT 'Podaj wsp. punktu x,y'jx,y 

280 IF x >998 THEN 330 

290 i*i+l 

300 wsp (i , 1 )=VI20 

310 wsp (i , 2) =y#20 

320 wsp (i ,3)=1 

330 6DSUB 1050: REH Nykresl. punkt lub odcinek 
340 GOTO 270 

350 INPUT*Podaj kat obrotu';ak 

360 ak*aktPl/180 

370 ac=C0S!ak) :as=SINtak) 

380 PRINT*0brot wzgledee punktu (t/n)* 

390 nk$=INKEYł 
400 IF nk*=' 'THEN 390 
410 IF nk*='t'THEN 440 
420 IF nkl='n'THEN 480 
430 GOTO 390 

440 INPUT'Podaj wip.puktu obrotu*;p,q 


450 p*-p*20:q*-qt20 

460 60SUB 1120: REN Ustaw eacierz przesuniecie 
470 GOTO 620 

480 PRINT'0brot wzgledee osi (s/y/i)* 

490 nkS=INKEY4 

500 IF nk*=' 'THEN 490 

510 IF nkł<>'x' THEN 540 

520 G0SUB 1960:REH Ustawienie eacierzy 

530 GOTO 590 

540 IF nk»OV THEN 570 

550 G0SUB 2040: REN Ustawienie eacierzy 

560 GOTO 590 

570 IF nk*<>'z' THEN 490 

580 G0SUB 14!0:REH Ustawienie eacierzy 

590 60SUB 1240: REH Nnozenie eacierzy 

600 60SUB 1480: REH Zobrazowanie 

610 GOTO 690 

620 60SUB 1240 :REH Hnozenie 
630 G0SUB 1410: REM Ustaw eacierz obrotu 
640 G0SUB 1240:REH Hnozenie eacierzy 
650 p=-p: q=-g 

660 GOSUB 1120:REH Ustaw eacierz przesuniecie 
670 G0SUB 1240:REH Hnozenie eacierzy 
680 G0SUB 1480 :REN Zobrazowanie 
690 PRINT-Czy koniec (t/n) 

700 nkt=INKEYI 
710 IF nk$=' 'THEN 700 
720 IF nkł*'t'THEN 2120 
730 IF nk$=VTHEN 750 
740 GOTO 700 

750 PRINTCzy od początku (t/nl* 

760 nk»=iNKEY* 

770 IF nkl*' 'THEN 760 

780 IF nk*='t'THEN 80 
790 IF nk**VTHEN 810 
800 GOTO 760 

810 PRINT-Czy obrot (t/n)* 

820 ntSMNKEYł 
830 IF nkł*' 'THEN 820 
840 IF nk$*'t'THEN 350 
850 IF nk$='n'THEN 870 
860 GOTO 820 

870 PRINT'Czy dorysowywanie (t/n) * 

880 nk»*INKEY» 

890 IF nk*=" 'THEN 880 
900 IF nk4**t’THEN 930 
910 IF nk$*'n"THEN 690 
920 GOTO 080 
930 CIS 

940 GRAPHICS PAPER 1 : REH Tlo grafiki 


970 MIND0W 1,40.25,25 

980 GOSUB 15/0:REH Rys. układu współrzędnych 
990 GOSUB 14B0:REH Rysowanie figury 
1000 GOTO 270 

ioio reh mttmmmsmtmtmmmtmt 

1020 REH PODPROGRAHY 

1030 reh tnumtmuttuummummm 

1040 REH 

1050 REH Rysowanie punktu lub odcinka 
1060 REH 

1070 GRAPHICS PEN 3: REH stare współrzędne 
1080 IF i-1 THEN PLOT wsp(i;l),wsp(i,2) 

1090 IF i >1 THEN ORAN wsp ( i , 1 ) , wsp (i , 2) 

1 100 RETURN 
1110 REN 

1120 REH Ustawianie eacierzy przesuniecie 
1130 REH 

1140 eat (1, 1)*1 seat (1, 2) *0:eat (1,31*0 
1150 eat(2,l)=0:eat(2,2)*l:eat(2,3)*0 
1160 eat (3, 1 ) =p:eat ( 3, 2) =q: eat (3, 3) *1 
1170 FOR k=l TO iiREH Zerowanie nwsp 
1180 FOR 1*1 TO 3 
1190 nwsp(k,])*0 
1200 NEXT ! 

1210 NEYT k 
1220 RETURN 
1230 REH 

1240 REH Hnozenie eacierzy 
1250 REH 

1260 FOR n*l TO i 
1270 FOR k*l TO 3 
1280 FOR »=1 TO 3 

1290 nwsp(n,k)*n*sp(n,k)*wsp(n,e)teat(e,k) 

1300 NEIT e 
1310 NEIT k 
1320 NEIT n 
1330 FOR n*l TO i 
1340 FOR e*l TO 3 
1350 wsp(n,e)*nwsp(n,s) 

1360 nwsp(n,e)*0 
1370 NEIT a 
1380 NEIT n 
1390 RETURN 
1400 REH 

1410 REH Ustawianie eacierzy obrotu 
1420 REH 

1430 eat ( 1 , 1 ) *ac: eat ( 1 ,2) *as: eat ( 1, 3)*0 
1440 eat(2,l)*-as:eat(2.2)*acieat(2,3)*0 
1450 eat (3, 1 ) *0: eat (3, 2) *0:eat (3, 3) *1 
1460 RETURN 
1470 REH 

1480 REH Rysowanie nowej figury 
1490 REH 

1500 GRAPHICS PEN 0:REH PI0R0 nowych wspol. 

1510 PLOT wsp(l,l),wsp(l,2) 

1520 FOR n*2 TO i 

1530 DRAŃ wsp (n, 1 ) , wsp (n,2) 

1540 NEXT 


1550 RETURN 
1560 REH 

1570 REH Rysowanie układu współrzędnych 
1580 REH 
1590 CLG 1 

1600 GRAPHICS PEN 2: REH Pioro układu wspol. 

1610 FOR a=-200 TO 200 STEP 20 

1620 PLOT -2, a 

1630 DRANR 4,0 

1640 NEIT a 

1650 PLOT 0,-208 

1660 ORAN 0,208 

1670 TAG 

1680 N0VER -16,-20 
1690 PRINT "Y": 

1700 H0VER -310,0 
1710 PRINT *20* ; 

1720 TA60FF 

1730 PLOT -307,170 : REH Kreślenie podzialki 

1/40 DRANR 0,-4 

1750 DRANR 0.2 

1760 DRANR 20.0 

1770 DRANR 0,2 

1780 DRANR 0,-4 

1790 IF fl*l THEN 1800 ELSE 1850 
1800 FOR b*-200 TO 200 STEP 20 
1810 FOR a*-320 TO 320 STEP 20 
1820 PLOT a,b 
1830 NEIT a 
1840 NEIT b 

1850 FOR a*-320 TO 320 STEP 20 

1860 PLOT a. -2 

1870 DRANR 0,4 

1880 NEIT a 

1890 PLOT -320.0 

1900 DRAŃ 320,0 

1910 TAG 

1920 H00ER -16,-4 
1930 PRINT " X' ; 

1940 TA60FF 
1950 RETURN 
1960 REH 

1970 REH ustawianie eacierzy obrotu 
1980 REH wzgledee osi X 

1990 REH 

2000 eat(l,l)*l:eat(l,2)*0:eat(l,3)*0 
2010 eat (2,H*0:aat(2,2)*ac:aat(2,3)*as 
2020 eat (3, 1 ) *0: eat (3,2) »-asi eat (3, 3) =ac 
2030 RETURN 
2040 REH 

2050 REH ustawianie eacierzy obrotu 
2060 REH wzgledee osi Y 

2070 REH 

2080 eat ( 1 , 1) *ac: eat (1,2) >0: eat 1 1,3) *-as 

2090 eat (2, 1 ) *0: eat (2, 2) *1 1 eat (2, 3)*0 

2100 eat(3,l)*as:eat(3,2)*0:aat(3,3)*ac 

2110 RETURN 

2120 REH 

2130 REH Koniec 

2140 REH 

2150 WINDOM 1,40,1,25 
2160 CLS 
2170 CLG 1 
2180 END 


6. Czy koniec (t/n) 


7. Czy od początku 
(t/n) 


8. Czy obrót (t/n) 


9. Czy dorysowy- 
wanie (t/n) 


1 0. Podaj wsp. pun- 
ktu obrotu 


Wybranie litery „t" 
kończy działanie 
programu. Konty- 
nuacja programu, 
gdy wybierzemy li- 
terę „n". 

Wybranie litery „t" 
powoduje przejście 
do komunikatu 1. 
Wybranie „n" kon- 
tynuacja programu. 
Wybranie „t" przejś- 
cie do komunikatu 
3, litera „n" dalszy 
ciąg programu. 

Wybranie litery „t" to 
wybranie funkcji do- 
rysowywania i przej- 
ście do komunikatu 
2. Wybranie „n" po- 
woduje przejście do 
komunikatu 6. 

Wprowadzamy współ- 
rzędne punktu obro- 
tu Otrzymujemy 
nowe zobrazowanie 
i przejście do ko- 
munikatu 6. 
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ZX SPECTRUM 


Animacja kwadratu 


100 rem 


ANIMRCUA KUADRRTU 


110 CLERR 38755; TOR n -32756 TO 
38767: RERD b: POKE n,b; NEXT n 
: REM przeniesienie blokowe 
180 DRTR 33,0,188,17,0,78,1,0,1 


3 7 Ć 176, S 


EEP .08,86: BEEP .01 


130 PLOT 1,4.0: DRRU 853,0: DRRU 
0,185: DRRU -853,0: DRRU 0,-185 
14.0 D1M 4 6 (518) : DIM X <8,4.1: Dl 
M y (8,4.) 

149 REM 


oblicz, współrzędnych 


150 POR 0-1 TO 4-; 
LET X (l,l») -8+INT 


LET X (8 , Dl ) -8+INT 
Cgl y (1,0) -50+INT 


(861*RND) : 
<851*RND> : 

<184*RND) : 

LET y (8,0) -50+INT <184*RND) 

160 NEXT ID 
170 POR 0-1 TO 4 
180 LET ł kOkX»(X <8, ID) -X (1,0) ) /8 
LET skoky-<y (8,0) -y (1,0) > /e 
190 POR n»l TO 8: 

x <n ,») »x (1,») + (n-jj *skokx 




1 tskoky 


£00 POR 0-1 TO 8: 

LET *l«(x (o ,8) -x <i» , 1) ) /5 
LET X8- (x (0 ,4) -X <0 ,3) ) /5 
LET X3- (X (m ,4) -X (0 , 1) ) /5 
LET X4»(X (0,8) -X (0,3) ) /S 
LET y 1« (y (0,8) -y (0,1)) /5 
LSI ya«(y ( 0 , 4 ) -y (0,5) ) /5 
3* iy ( 0 , 4) -y (0,1)) /g 


H 4 * (y (0,8). 

_ EM Zapił 


-y (0,31) /S 

. .. kolejnych raz 

PLOT 1,49: DRRU §53,0: DRRU 
0,185: DRRU -853,0: DRRU 0,-185 
: Plot 1+8*0,51 

830 FOR Z «0 TO 5: PLOT X (0 , 1) +z 
t>RRU X (0,4) -Z*x 
S-PEEK 83677 , y (m , 4) -z *y2-PEEK 83 
678 

830 IF INKEY* < > " " THEN 00 TO 18 
840 NEXT Z 

850 POR Z«0 TO 5: PLOT X (0 , 1) +Z 
»x3,y (0 , 1) +z*y3: DRRU x(0,8)-z*x 
4-PEEK 83677, y (0 ,8) -Z*y4-PEEK 83 
676 

860 1P .INKEY *<>"■• THEN 00 TO 18 
870 NEXT Z 

880 POKE 38758,64: POKE 38761,1 
88 + 16* (0-1): RRNDOMIZE U6R 38756 
890 BEEP .08,0+86: CL5 : NEXT 0 
300 PRINT BRIGHT l;as 

309 REM wyświetlenie "tam" 

310 POR r-1 TO 18: PRINT RT 16, 

SusE r5a nml T0 8: BEEP ■ 01,n '' P 
320 POKE 38761,64: POKE 38758,1 
28+16* (n -15 : RRNDOMIZE USR 387Ś6 
^330 IF INKEY* <>"" THEN 00 TO 12 

340 NEXT n 

349 BIH wy»i"istl. "z powrotem" 
2?® F0 5„, n ,;2 T0 2 STEP -1: BEEP 
.01, n : PRU5E r/8 
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360 POKE 38761,64 POKE 38758,1 
28 + 16* (n -1 1 : RRNDOMIZE USR 38756 
^370 IF INKEY * < > " " THEN 00 TO 18 

380 NEXT n: NEXT r: GO TO 180 

8999 REM zapił na tasme 

9000 CLERR ■ RESTORE : SRUE "ONI 
MRCJR" LINĘ 100: UERIFY " " : GO T 
O 100 




ZX SPECTRUM 

Przeliczanie 


Śt 


, CLS : PRINT BRIGHT 1; - 
Tr 3,12; ' ENTER-CLS" ; 

RT 14,12;" 0 LUB 1 " 

2 LET a $ = " " 

3 PRUSE 0 LET b*=INKEY* : 

IF b*=CHR* 13 THEN GO TO 1 

4 IF ( b * — " 0 " OR b*="l"> RND L 
EN a * < = 15 THEN BEEP *01,14; LET 
a**a$+bS PRINT RT 11, Sj**;" - B 
IN " ; URL C " B IN "+a*) 

5 GO TO 3 

6 SRUE "BIN" LINĘ 1 





COMMODORE 

C-64 


Budżet domowy 


S. WASILEWSKI 


Każdy z nas prowadzi działalność finansową na mniejszą lub więk- 
szą skalę. Jeśli chcesz ocenić i usprawnić gospodarowanie własnymi 
zasobami pieniężnymi, skorzystaj z programu „BUDŻET DOMO- 
WY”, opracowanego na mikrokomputer Commodore 64 (lub C-128 
w trybie pracy C-64). 

„BUDŻET DOMOWY” ma na tyle uniwersalną konstrukcję, że 
może być wykorzystywany zarówno przez pojedyncze osoby, jak i 
grupy do rejestrowania dowolnej formy działalności finansowej. 
Nie wymaga tworzenia i korzystania z dodatkowych zbiorów danych. 
Wszystkie niezbędne informacje gromadzone są na bieżąco w nim 
samym. Z tego względu zamieszczona postać programu jest wyjścio- 
wą dla wszystkich jego zastosowań. 

Obszar działań finansowych rejestrowanych przez program określa 
użytkownik. Następuje to podczas wprowadzania elementów struk- 
tury tego obszaru. Dla przykładu weźmy pod uwagę obszar działań 
finansowych rodziny. Można go podzielić na grupy artykułów: spo- 
żywcze, mięso, wędliny i inne. W obrębie grupy można określić po- 
jedyncze artykuły (mleko, sery, pieczywo i inne w grupie artykułów 
spożywczych). Tworząc taką sieć powiązań elementów struktury za 
pomocą programu, użytkownik sam ustala obszar pracy programu i 
sposób odwoływania się do poszczególnych artykułów w trakcie pro- 
wadzenia ewidencji finansowej. Dla poszczególnych artykułów, grup 
artykułów, a także dla całej istniejącej struktury (globalnie) prowa- 
dzona jest ewidencja finansowa w zakresie: 

— wartości środków finansowych planowanych na zakupy (pozycja 
plan); 

— wartość wydatków (pozycja wydatki). 

Wyświetlając aktualny stan poszczególnych pozycji „BUDŻET 
DOMOWY” wyprowadza dodatkowo pozycję bilans, która jest róż- 
nicą między planem i wydatkami. 

Z punktu widzenia użytkownika w programie można wyróżnić trzy 
poziomy pracy. Na każdym poziomie istnieje zestaw funkcji możli- 
wych do wykonania. Są one każdorazowo prezentowane na ekranie za 
pomocą jednoznakowego symbolu wywołującego funkcję oraz wyra- 
zu opisującego jej znaczenie. Przed rozpoczęciem eksploatacji pro- 
gramu „BUDŻET DOMOWY” należy zapoznać się z jego obsługą. 

Poziom pierwszy — występuje po uruchomieniu programu ko- 
mendą RUN, a także po zakończeniu pracy na poziomie drugim. 
Umożliwia globalne operacje na istniejącej strukturze finansowej. 
Zawiera funkcje: 

KONIEC — kończy pracę programu. Po pojawieniu się 
pytania DATA? należy podać datę 
(MM.DD) lub inny dowolny łańcuch pię- 
cioznakowy identyfikujący aktualnie 
utworzoną wersję „BUDŻETU DO- 
MOWEGO”. Program kończy się po 
wyprowadzeniu wiersza postaci: 

SAVE BUDŻET xxxxx gdzie xxxxx jest 
podanym identyfikatorem wersji. Użyt- 
kownik może teraz skopiować aktualną 
wersję programu na taśmę (jeśli ją akcep- 
tuje). 

BUDŻET — zobrazowuje globalny stan gospodarki fi- 
. nansowej, jaką obejmuje program. Zawie- 
ra pozycje: plan, wydatki i bilans. 

PLAN — pozwala uaktualnić globalną pozycję plan. 

Wartość początkowa zero, a kolejne po- 


dawane wartości są sumowane. 

LISTA — powoduje przejście do poziomu drugiego. 

Jeżeli była utworzona struktura finanso- 
wa, to jest wyprowadzana na ekranie jej 
' pierwsza część. 

ZEROWANIE — automatyczne wyzerowanie wszystkich 
pozycji w utworzonej strukturze finanso- 
wej bez naruszenia tej struktury. 

Poziom drugi — występuje po zainicjowaniu funkcji LISTA z 
poziomu pierwszego lub funkcji KONIEC z poziomu trzeciego. 
Umożliwia operacje w obrębie grup artykułów lub artykułów nie 
tworzących grupy. Zawiera funkcje: 


KONIEC — powrót na poziom pierwszy. 

DOPISANIE — umożliwia dopisanie na listę nowego ele- 
mentu struktury. Wymagane jest podanie 
nazwy. Dostęp do dopisanych na tym po- 
ziomie elementów uzyskasz po ponownym 
wejściu z poziomu pierwszego (wykonanie 
kolejno funkcji: KONIEC, LISTA). 

GRUPA — powoduje przejście na poziom drugi. Jeśli 
wskazany element ma tworzyć grupę, to 
na poziomie trzecim udostępniane są ope- 
racje pozwalające utworzyć listę artyku- 
łów wchodzących w skład tej grupy. Jeśli 
wskazany element tworzy już grupę, to na 
ekranie jest wyprowadzana pierwsza część 
listy artykułów wchodzących w jej skład. 

USUNIĘCIE — umożliwia usunięcie z istniejącej struktu- 
ry wskazanego elementu. Jeśli jest to gru- 
pa, to usuwana jest wraz ze wszystkimi 
wchodzącymi w jej skład artykułami. 
Globalna suma wydatków zarejestrowa- 
nych programie nie jest pomniejszana o 
wartość wydatków usuniętych struktur. 

LISTA — wyprowadza (jeśli istnieje) kolejną część 
listy z tego poziomu. 

PLAN — pozwala zmienić wartość planu wskazane- 
go elementu struktury (grupy artykułów 
lub pojedynczego artykułu). Wartość po- 
czątkowa zero, a kolejne podawane war- 
tości są sumowane. 

WYDATKI — uaktualnia wartość wydatków związanych 

ze wskazanym elementem. Wartość po- 
czątkowa zerp, a kolejne podawane war- 
tości są sumowąne. 

ZEROWANIE — wykonuje automatyczne wyzerowanie 

wszystkich pozycji we wskazanym ele- 
mencie struktury bez naruszania tej struk- 
tury. 

Poziom trzeci — występuje po zainicjowaniu funkcji GRUPA z 
poziomu drugiego. Umożliwia operacje w obrębie grupy artykułów 
wskazanej na poziomie drugim, a udostępnianych na poziomie trze- 
cim. Zawiera funkcje podobne jak na poziomie drugim. Niedostępna 
jest tylko funkcja GRUPA. 

Na poziomach drugim i trzecim można poruszać się w obrębie wy- 
świetlonej na ekranie listy za pomocą klawiszy przesuwających kursor 
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111 IFL$="D"THEN5Ó0 

112 I FL$= " U " THEN350 

113 IFL*="K" THEN 150 

114 I FL$= " Z " THEN650 

115 I FL$= " P " THEN600 

116 GOTO 101 

1 49 REM ********************************* 

149 REM *** KONIEC *** 

150 0NPEEK(L)+1G0T012, 170, 155 

155 PRINTC*: INPUT"DATA" ; L*: I=5-LEN(L*) : I 
FI<0THENI=0 

1 60 L*=LEFT* (L* , 5 ) +LEFT* ( 5* , I > : W$= " 2000 " 
+DS+CHR* (34) +L*+CHR* (34) : Y=165: G0T0B5 
165 POKET, 4: READL*: PRINTC$"SAVE"CHR* (34) 
"BUDŻET "L$ : END 

1 70 POKEL , O : A=FNA ( FNB ( FNP ( D > > ) : POKEE , 20 5 
PRINT: PRINTLEFT* <S*, 40 > ; : G0SUB20: G0T0260 


Ł w dół i w górę. Takie funkcje jak: PLAN, WYDATKI, ZEROWA- 
NIE i GRUPA dotyczą zawsze tych elementów struktury, na które 
aktualnie wskazuje kursor. 


10 REM ****** BUDŻET DOMOWY ****** 

1 1 G0SUB30 : P0KE532B0 „ O : P0KE5328 1,0: POKET 
, 1 92 : PRI NTC* : POKET , 4 

1 2 FOR I =HT0739 : POKE I , O: NEXT: POKEL , 2 : POKE 
D, 9: POKEG, O 

1 3 RESTORE : READL$ , A : B=7 1 8 : G0SUB40 : B=700 1 
A=200 1 : G0SUB40 : G0SUB20 : GOTO 1 00 

20 RESTORE: READL*: PRINTC$: POKEE, 19: PRINT 

: PRINTA$D$L$" BUDŻET DOMOWY C S. 

W, "; 

21 PRINT : PRINT"K"B$" - KONIEC "A*"L"B* 

" - LISTA "5 

22 IFPEEK (L) =OTHENPRINTA$"G" - GRUPA" 

23 IFPEEK (L)=1THENPRI NT 

24 IFPEEK <L)=2THENPRINTA*"B"B*" - BUDŻET 
" : G0T026 

25 PRINTA*"W"B*" - WYDATKI "A*"D"B*" - 
DOPISANIE "A*"U"B*" - USUNIECIE"; 

26 PRTNTA*"P"B*" - PLAN"; 

27 PR I NTSPC < 1 9 ) A$ " Z " B* " - ZEROWANIE" ;: RE 
TURN 

30 A$=CHR*(1B) :B*=CHR$(146) : C$=CHR* ( 147) 

: H*=CHR* (19): R*= A* : FOR I = 1 T040 : R*=R*+ " " 

31 S*=S$+" ":NEXT:R*=R$+B$:E=214:D=68 

2: G=684: H=680: L=679: T=648: D*="DATA" 

32 DEFFNB (X ) “700+PEEK (L) *20+ X *2: DEFFNP ( Y 
> =PEEK (Y+PEEK (L> ) : S=58732: X*="RETURN: " 

33 DEFFNA (Q) =PEEK <Q) +PEEK ( Q+ 1 ) *256: Y*=CH 
R*<17) :Z*=.CHR$<145> : RETURN 

40 POKEB, A-I NT (A/256 ) *256: POKEB+1, INT (A/ 
256): RETURN 
50 PRINT"* "L* 

55 PRINTLEFT* (S*, 40) Z*TAB (8) P, W, P-W: RETU 
RN 

60 POKEE, FNP (H) *2: SYSS: PRINT" * " : IFK=OTHE 
N 66 

65 POKEE , K* 2 : SYSS : PR INT A*" # " B* 

66 POKEH+PEEK (L) , Kc RETURN 

70 POKET, 192: PRINTC*: POKEE, 2: PRINT: PRINT 
" GOSUB " A" : P0KE65 , PEEK (61): P0KE66 , " ; 

71 PRINT " PEEK < 62 > : GOTO " Y " : PR I NTC* " ; H* : PO 
KE63 1,13: POKE 198,1: END 

75 W$=STR*(A)+D*+STR*(W+WR> 

80 POKET , 192:1 FPEEK ( 688 ) =OTHENPR I NTC* 

81 POKEE, 2+PEEK ( 688 ) : PRINT? PRINTW*: POKET 
, 4 : P0KE688 , PEEK ( 688 ) + 1 : RETURN 

85 G0SUB80 

90 POKET ,192: POKEE , 2+PEEK ( 688 ) : PR I NT : PR I 
NT " G0SUB30 : GOTO " Y ; H* : FOR I =OTOPEEK ( 688 ) + 1 

91 P0KE63 1 + 1 , 13: NEXT : POKE 198, I:P0KE688,0 
: END 

95 POKEE, 16: PRINT: PRINT A*Y*WR*" WARTOŚĆ" 

; : I NPUTWR* : PR I NTB« : WR= V AL < WR* ) : RETURN 

96 FOR I = 1 T02 : W*=STR* ( A+ I ) +D*+ "O" : G0SUB80 
: NEXT : G0T090 

1 00 POKET , 4 : POKEE , 1 6 : PR I NT : PR I NTY* ; LEFT« 

(S*,80); ’ 

101 GETL*: IFL*=" "THEN101 

102 ONPEEK (L) +1G0T0106, 107, 103 

103 IFL$="B"THENSOO 

1 04 I FL$= " L " THENPOKEL , O : G0SUB20 : G0T0250 

105 G0T01 13 

106 IFL*="G"THEN200 

107 IFL$=Z$THENZ= S -1 : G0T0300 

108 IFL$=Y*THENZ=1:G0T0300 

109 I FL$= "L "THEN250 

110 I FL$= " W " THEN550 



198 REM********************************* 

199 REM *** GRUPA *** 

200 I FPEEK ( H ) =OTHEN 1 00 

205 A=FNA (FNB (PEEK (H) ) ) : B=720: A=A+4: GOSU 

B40: A=A-4: Y=210: GÓT070 

210 P0KET,4:READL*,L*,\.*,L*, A 

215 POKEL, 1 : F0RI=722T0737 : POKEI , O: NEXT 

220 B=738 : G0SUB40 : P0KE68 1,0: P0KE683 , 9 : PO 

KE685 , O : G0SUB20 

248 REM ********************************** 

249 REM *** LISTA *** 

250 A=FNA (FNB (9) ) : IFA=0THEN100 

255 FOR I =0T0 1 : POKEFNB (O) +1 , PEEK ( FNB ( FNP ( 
G) ) ) 

260 F'RINTH*A*"* NAZWA ARTYKUŁU / GRUPY 
ARTYKUŁÓW " ; 

261 PRINT" PLAN WYDATKI 

BILANS "B*; 

265 PRINTS$S*S*S$: POKED+PEEK (L) , 1 : K=0: Y= 
270: G0T070 

270 POKET, 4: B=FNB (K+l ) : G0SUB40: IFK=8THEN 
285 

275 READA, W, P, L*: POKEE, 2+K*2: SYSS: G0SUB5 


0:K«K+1: IFATHEN70 
280 B=FNB ( 9 ) : G0SUB40 

285 POKEG+PEEK ( L ) , K : K= 1 : G0SUB65 : GOTO 1 00 


298 REM ********************************* 

299 REM *** POZYCJONOWANIE KURSORA *** 

300 I FFNP ( D ) >FNP ( G ) THEN 1 00 

305 K*FNP (H) i IFK-9THENP0KEH+PEEK (L) , O 

310 I FK=0THEN335 

315 IFK+Z<FNP <D) THEN340 

320 IFK+Z>FNP(G) THEN 100 

325 K=K+Z : IFFNA (FNB (K) ) =0THEN325 

330 G0SUB60: GOTO 100 

335 IFZOl THEN 100 

340 K=FNP (D) : G0SUB65 : GOTO 1 00 

348 REM ********************************* 

349 REM *** USUNIECIE *** 

350 K=FNP (H) : IFK=00RK=9THEN100 

355 POKEE, 17: PRINT : PRINTA$Y$"USUNAC T/N" 
; : INPUTL*: IFL*="T"THEN370 
360 IFL*="N"THEN100 

365 POKEE , 1 7 : PR I NT : PR I NT Y* ; LEFT* ( S* , 40 ) ; 
: G0T0355 

370 I FPEEK ( L ) THEN405 

375 A=FNA ( FNB < PEEK (H) ) ) : Y=380 : G0T070 
380 READL$,L*,L*,L$,P 
385 I FP=0THEN405 


390 A=P: Y=395: G0T070 

395 READA: B=636: G0SUB40: F0RI=0T03: W*=STR 
* (P+I ) : G0SUB80: NEXT: Y-400: G0T090 
400 P=FNA (686) : G0T03S5 

405 A=FNA (FNB ( FNP (H) ) ) : FOR I =0T04-PEEK ( L ) 

: W*=STR* (A+I ) : G0SUB80: NEXT : Y=410: G0T090 
410 K*FNP(H> :B=FNB(K> : POKEB, O: POKEB+1 , Ol 
I=K+1 

415 P=FNA (FNB ( I ) ) : IFP=OANDI< >9THENI = I + 1 : 

G0T0415 

420 I»K-1 

425 A=FNA ( FNB ( I ) ) : I FA=OAND I < >OTHEN I - I - 1 s 
60T0425 

430 W*=STR*(A) +X*+D*+STR*(P> : Y=435:G0T08 
5 

435 K=FNP (H) : I FK< >FNP ( G ) THEN450 

440 POKEG+PEEK (L) ,FNP(G)-1: IFFNP (G> <FNP ( 

D ) THENPOKEG+PEEK ( L ) , O: G0T0450 

445 IFFNA <FNB (FNP (G) ) > =OTHEN440 

450 I FK< >FNP < D ) THEN4Ó5 

455 POKED+PEEK (L) ,FNP(D>+1: IFFNP (G) < FNP ( 
D ) THENPOKED+PEEK (L) ,9: G0T0465 
460 IFFNA (FNB (FNP (D) ) ) =0THEN455 
465 POKET , 4 : POKEE , FNP < H ) *2- 1 : PR I NT : PR I NT 
LEFT*(S*,80> ; : POKEH+PEEK < L ) , O: GOTO 100 

498 REM****#****# ****** ***************** 

499 REM *** DOPISANIE *** 

500 POKEE, 18: SYSSt PRINTA*"NAZWA" ; : INPUTW 
R*;PRINTB* 

505 RESTORE: READL*, P, L*, L*, Wt IFPEEK <L) TH 
EN515 

510 W*="2001 "+X*+D*+STR* (W) i G0SUB80: W*=S 
TR* (W+4) +X*+D*+"0" s G0SUB80: G0T0525 
515 A=FNA (FNB (FNP (H) ) > i Y-520: G0T070 
520 READP:W*=STR*(A)+X*+D*+STR*(W> t GOSUB 
80 

525 W*= " 2004 " +DU+STR* ( W+5-PEEK ( L ) ) : GOSUB 
80: W*=STR* (W) +X*+D*+STR* <P) : G0SUB80 
530 F0RI=1T02: W*=STR* (W+I ) +D*+"0" t G0SUB8 
O: NEXT : W*=STR* (W+3) +D*+WR*: G0SUB80 
535 Y=100: G0T090 

548 REM********************************* 

549 REM *** WYDATKI *** 

550 K»FNP(H) : IFK=00RK=9THEN100 

555 WR*= " WYDATK I " : G0SUB95 : I FPEEK ( L ) =OTHE 
N570 

560 A=FNA < 700+PEEK <H) *2) : Y=565: G0T070 

565 READL*, W1 : A1=A+1 

570 A=FNA (FNB (K) ) : Y=575: G0T070 

575 POKET , 4 : READL* , W, P: POKEE , K*2 : PR I NT : P 

RINT ; : W=W+WR: G0SUB55: A=A+1 : W«W-WR 

580 G0SUB75: IFPEEK (L) THENW=W1 : A=A1 : GOSUB 

75 

585 RESTORE: READLS, L*, W: A=2002: G0SUB75: Y 
=100: G0T090 

499 REM *** DOPISANIE *** 

500 POKEE, 18: SYSS: PR I NT A* "NAZWA" ; : INPUTW 
R$: PRINTB* 

505 RESTORE: READL*. P, L*, Lt, W: IFPEEK (L) TH 
EN515 

510 W*="2001"+X*+DS+STR$(W) : GOSUBBO: W$=S 
TR* (W+4) +X*+D*+"0" : G0SUB80: G0T0525 
515 A=FNA (FNB (FNP (H) ) ) : Y=520: G0T070 
520 READP: W*=STR* ( A) +X*+D*+STR* (W) : GOSUB 
80 

525 W*="2004"+D*+STR* (W+5-PEEK (L) ) : GOSUB 
80: W*=STR* (W) +X$+D»+STR$ (P) : G0SUB80 
530 F0RI = 1T02: W$=STR$ (W+I ) +D*+ ,, 0" : G0SUB8 
O: NEXT : W*=STR* ( W+3 ) +D*+WR$ : G0SUB80 
535 Y=100: G0T090 


548 REM********************************* 

549 REM **# WYDATKI *** 

550 K=FNP (H) : I FK=00RK=9THEN 1 00 

555 WR$="WYDATKI " : G0SUB95: IFPEEK (L> =OTHE 
N570 

560 A=FNA (700+PEEK (H) *2) : Y=565: G0T070 

565 READL*, W1 : A1=A+1 

570 A=FNA (FNB (K) ) : Y=575: G0T070 

575 POKET , 4 : READL* , W, P: POKEE , K*2 : PR I NT : P 

RINT; : W=W+WR: G0SUB55: A=A+1 : W=W-WR 

580 G0SUB75 : I FPEEK ( L ) THENW=W 1 : A= A 1 : GOSUB 

75 

585 RESTORE : READL* , L* , W : A=2002 : G0SUB75 : Y 
=100: G0T090 

598 REM********************************* 

599 REM *** PLAN *** 

600 K=FNP (H> : IF (K=00RK=9> ANDPEEK (L) < >2TH 
EN 100 

605 WR*="PLAN" : G0SUB95: IFPEEK (L) < >2THEN6 
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610 RESTORE: READL*, L*, LU, W: A=2003: G0SUB7 
5: Y=100: G0T090 

615 A=FNA (FNB (K) ) : Y=620: G0T070 
620 READL*, I , W: A=A+2: G0SUB75: P=W+WR: W=I : 
POKEE , K*2 : PR I NT : PR I NT ; : G0SUB55 
625 Y=100: G0T090 

648 REM********************************* 

649 REM *** ZEROWANIE *** 

650 K=FNP ( H ) : I F ( K=00RK=9 > ANDPEEK (L) < >2TH 
EN 100 

655 POKEE, 17: PRINT : PRINTAUY*" ZEROWAĆ T/N 
"5 : INPUTL*: IFL*= ,, T"THEN670 
660 IFL*="N"THEN100 

665 POKEE, 17: PRINT: PRINTY*; LEFT* (S*,40> ; 

: G0T0655 

670 0NPEEK(L)+1G0T0735, 740, 675 

675 A=200 1 : Y=680 : G0T096 

680 RESTORE: READL*, A 

685 IFA=00RZTHEN745 

690 B=740: G0SUB40: Y=695: G0T096 

695 A=FNA (740) : Y=700: G0T070 

700 READA, L*,L*,L*,P: IFP=0THEN730 

705 A=P: B=742: G0SUB40: Y=710: G0T096 

710 A=FNA (742) : Y=715: G0T070 

715 READP: IFPTHEN705 

720 A=FNA ( 740 ) : Y=725 : G0T070 

725 READA 

730 IFPEEK (L) =0THENZ=1 : G0T0685 

731 G0T0685 

735 Z=0: A=FNA (FNB (PEEK (H) > ) : G0T0685 
740 A=FNA (FNB (PEEK (681 ) ) ) : Y=750: G0T096 
745 I FPEEK (D-2THEN1 00 

750 POKET , 4 : POKEE , FNP ( H ) * 2 : PR I NT : PR I NTLE 
FT* (S*, 40) Z*Z*: W=0: P=0: G0SUB55: G0T0100 

798 REM********************************* 

799 REM *** BUDŻET *** 

800 RESTORE : READL* , L* , W , P : POKEE , 4 : PR I NT : 
PRINTSUS* 

805 POKEE, 4: PRINT: PRINT: PRINTTAB( 10) "PLA 
N "A*P 

810 PRINTTAB (10) "WYDATKI. . . "A*W: PRINTTAB 
( 10) "BILANS. . . . "A*P-W: G0T0100 

1998 REM#*##****##*#***#*#*********#**** 

1999 REM *** BAZA DANYCH #** 

2000 DATA"MM. DD" 

2001 RETURN: DATAO 

2002 DATAO 

2003 DATAO s. WASIELEWSKI 

2004 DATA2005 
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AMSTRAD CPC 61 28 

Krzywe Sierpińskiego 

Efektowne układy graficzne można uzyskać, na- 
kładając na siebie krzywe o regularnych kształ- 
tach. 



Interesująca jest sytuacja, gdy kształt okreś- 
lonej krzywej K, (krzywa rzędu i, można 
otrzymać ze złożenia odpowiedniej ilości 
krzywych K,-i (o rząd niższych). 

Na przykład krzywą S2 
Krzywe S2 i Si nazywane są krzywymi 
Sierpińskiego rzędu S,. Obraz krzywej, której 


częścią jest ta sama krzywa, nazywa się obra- 
zem rekurcncyjnym. Wykorzystując algorytm 
rekurencji, zamieszczony w książce Niklaus 
Wirth „ALGORYTMY + STRUKTURY 
DANYCH = PROGRAMY”, zapisany został 
w języku PASCAL program KRZYWE 
SIERPIŃSKIEGO. 



<Proqr» kr ul i krzyw > 

(Sierpińskiego rztdu 1 - 5 ) 

<»!-> 

{imimittttiitttiiittmitiiiiitii 
{ STALE 1 ZniENME PROGRAMU ) 
(uimuitmmttmuitiimmit) 
CONST Mtaodłibytt *2| 

U9fUgiboo]<in =łalit| 
tłuddriintNer 'Oj 
bO»25A| 

VAR 

i.h.it.y.sO.yO.niinteger; 

;,rzich»r| 

ozboolujii 
•urny Cl. .SI oł 
rteord 

px , py , dl : i nteger ; 
tnd| 


(tiiiimiizuiiiiiitimiiiiniuii) 

( PROCEDURY GRAFICZNE 5 

(itmmitmtmmittmtitium) 


PROCEDURĘ initgraf ik| 

REGIN 

' *rit«(Mlb l ’0 , 1 Mlb,’y'>| 
END| 


PROCEDURĘ lHvtgriFik| 

REGIN 

nritt(Hlb,’r,Mlb,V)| 

END| 

PROCEDURĘ 90 to>yli,yiinttMr)| 

REGIN 

aritilHIR, ’Y’ ,chr (y*31) ,chr lujlł ) i 

END| 

PROCEDURĘ soundlgibyteihiizintegcri j, 
kjl.azbyte) | 

VAR tdi<rriyCO..B] of bytey 
REGIN 

idlOl i* gi 

•ov«(h,»di5),2l| 

ncv»(i,idt71 l 2)| 

•den i* k| 

adC21 i* 1| 

•dtSJ l» ł| 
sdt6I i* j; 

inlint(t21/«l/tcd/Hi/t<c/tia/tbc)| 

END| 

PROCEDURĘ drwr(k,yiinUg«r)| 

REGIN 

inl i ne ( *2A/x /«EB/«2A/y/*cd/*Sa/*f c / 
IF9/bRR)| 

EN0| 

PROCEDURĘ drwił, yiiattgarl) 

REGIN 

i«lin»l»2A/ł/bER/b2A/y/lcd/R3i/Mc/ 
•Fi/IRR) | 

END] 

PROCEDURĘ plot(k,yiinttg>r)| 

REGIN 

inlii»l«2A/«/RER/R2A/y/Rcd/M*/Wc/ 
•CA/SRR) | 

END) 

PROCEDURĘ orifalndM 

REGIN ,yl,«2 f y2: integer ) ; 

inlint(R2A/k2/»EB/b2A/il/«cd/»Si/ 

♦Fc/ICF/IRR/ 

R2A/y2/RER/l2A/yl/bcd/ 

«3i/b(c/ID2/RRR)| 

END) 

PROCEDURĘ graf pen ( E ii byte) t 
BEGIN 

E|| inlinf(»3A/Fi/»cd/b3a/lfc/IDE/bRRI| 

PROCEDURĘ gr af paper (fez byte) z 
REGIN 

^inlin*(»3A/ł«/fcd/f3a/Mt/IE4/»lR)| 

PROCEDURĘ clglf ssbyte) ; 

DEG1N 

inline(»cd/*Sa/*fc/«DB/*BB)| 

PROCEDURĘ ink (f s, f 1, f 2:byte) s 
REGIN 

inliiw<«a/U/M7/Mł/(2/Mf/K«/F»/ 

*cd/»Sa/*fc/*32/«bc)z 

END; 

PROCEDURĘ paper (fszbyte); 

REGIN 

inlinelR3A/Fi/bcd/R5a/lfc/l9G/ISB)} 

END) 



PROCEDURĘ p«i (f s: byte) ; 

K 6 IN 

inlineU3A/łi/tcd/t5a/4łc/l90/łBB) ; 

EKD| 

PROCEDURĘ lodaladibyte); 

BEEIN 

ił »d in [0. .23 then 
BEG1N 

getaode i* ad; 

inlinc I»3a/ad/bcd/ł5a/lł c/*0e/»bc) j 
END| 

END) 

PROCEDURĘ bardar<vl,v2ibytc) ; 

BEEIN 

inline(63a/vl/M7/ł3a/v2/Mł/fcd/ 
I5a/łłc/t38/łbc) ; 

END) 

PROCEDURĘ grałout (chi char)) 

BEEIN 

inlini(ł3A/ch/łcd/45a/*(c/łFC/»B8)i 

END; 

PROCEDURĘ tag; 

BEEIN 

ił not tagłlag then 
BEEIN 

tagaddr i* conoutptr; 
tagłlag tret; 
conoutptr i* addr (grałout) ; 

END; 

END; 

PROCEDURĘ tagołł; 

BEEIN 

ił tagłlag then 
BEEIN 

conoutptr i* tagaddr; 
tagłlag łalse; 

END; 

END; 

{immtmsttttmitiitttmtimtj 

{ PROCEDURY WYPRZEDZAJĄCE > 

{ntittiitmitimttimutimitti) 

PROCEDURĘ b (i s integer i ; FORNARO; 
PROCEDURĘ diiintegirli FORNARD; 
PROCEDURĘ d (i t integer ) ; FORNARD; 

( PROCEDURY POMOCNICZE I 

imtmmutiituttitminmmi) 
PROCEDURĘ napili 
VAR nap:stringl201; 

ji integer; 

BEEIN 

napi*'KKZYNE SlEKPlNSKltbU') 

igrałptn(l); 

tag; plot ( 10 , 200 ); 

FOR Ji-1 TO 20 DO 
gratoutlnaplj]); 
tagołł | 

END; 

PROCEDURĘ raaka; 

BEEIN 

plot(a[nI.p>,*[nI.py)| 
draxlntn].di,0); dranrlO.ntnl.dlli 
draw (-«Cnl . di , 0) ; draar ( 6 , -aCnl. dl ) ; 

END) 

PROCEDURĘ rząd; 

BEEIN 

clgljd) napia; 


clg(b) ; napił; 
ni* 0 | 

• goto*y(l,2S); 

8RITE(’RZAD(1-S)/E5C KONIEC’); 
REPEAT 

tound I 1 , randce (250) ,10,10, 3,0.0) | 
łound ( 2 ,randoa( 200 ) , 10 , 10 , 10 , 0 , 0 ) ) 
UNTIL keypraaied; 

R£AD(kbd,rz); 

n:*0RD(rz)-48; 

UNTIL ( (nX>> and (n<il) or <rz*B232)| 
END; 

imittitmiitiiiitmiiiiiittiim} 

( PROCEDURY WYZNACZANIA ELEMENTÓW 3 
( KRZYWEJ RZĘDU i 3 

PROCEDURĘ a(iiinteger); 

BEEIN 

IF i >0 THEN 
BEEIN 
a(i-l); 

*i***h; y:*y-h; dranli.y); 
tound ( I ,*15. 13, 10,0.0.0) i 
iound(2,y>10,7, 10,10,6,0) ; 
bli-ll; 

*i=** 2 »h; drani*, y); 
d(i-l); 

*i»*łh; yi*y*h; dra«(*,y); 
all- 1 ) 

END 

END; 

PROCEDURĘ b; 

BEEIN 

IF i >0 THEN 
BEEIN 
b(i-l); 

*i«*-h; yi*y-h; drani*, y); 
tound (l,*t20, 13, 10,0,0,0) ; 


sounu 1 1 ,***v, iu. v.v, ; 
aound(2, y+35,7, 10,0,0,0) ; 
c(i-l)i 

y«=y- 2 *h; drani*, y); 
ali- 1 ); 

*:*x*h; yi*y-h; drani*, y); 
b(i-l) 

END 

END; 

PROCEDURĘ Cj 
BEEIN 

IF i >0 THEN 
BEEIN 
c(i-I); 

»i**-h; y:*y*h; drani*, y) ; 
ioundli, **50, 13.10,0.0,6); 
łound (2, y+75, 7, 10, 0,0,0); 
d(i-l)i 

xi*»- 2 lh; drani*, y); 
bli-l); 

*i*x-h; ys*y-h; drani*, y); 
cli- 1 ) 

END 

END; 

PROCEDURĘ d; 

BEEIN 

IF i>0 THEN 
BEEIN 
dli-l); 

*:*x«h; y:=y*h; drani*, y)| 
sound I i, *+ 60 , 13. 10, 0,0.0); 
sound(2, y+90, 7,10,0,0,0); 
alt- 1 ) i 

y:=yt 2 lh; drani*, y); 
cli-l); 

*:**-h; y:=y*h; drani*, y); 


dir-ir 

END 

END; 

iiiimmmmmmmtiiumtsi) 

I PROCEDURY INICJACJI 3 

(iimimitmmittittmumitti) 

PROCEDURĘ inicl; 

BEEIN 

■' aodelO); 
i nk (0,1,1): 
ink I 1 , 26,26) ; 
ink(2, 18.18); 
ink (3,6,6) t 
ink(4,I4,U); 
ink 15, 10, 10); 
ink <6,0, 6) : 

grałnindon (0, 14, 640, 400) | 
paper (1) ) pen (3) ; 
clg(6); 

END; 

PROCEDURĘ inicdanych; 

BEEIN 

inicl; 

nlll.pii’225; 
nll).pyi*125; 
nlll.dlt-210; 
nI23.p*i*210; 
n[21.py:*110; 
nt23.dll *240; 
nl33.p*i*202; 
nI33.py:*l02; 
n(33. 011*254; 
n[4].p*i*199; 
nI43.pyi*98; 

*[43.dli=262; 

*I53.p*:*196; 
nt53.pyi*96i 
nI53. dl 1 * 266 ; 

END; 

PROCEDURĘ pocą; 

VAR opichar; 

BEEIN 
■ode 1 1 ) ; 
inkll, 26,26); 
ink (2,6,6) a 

{tótfr 12 ” 

REPEAT 

gotoxy(l,10): 

BR I TE I ’ PR06RAH KRZYWE ’)* 

NRITELNCSIERPINSKIEEO '); 
WRITELNl 

NRITE I ’ CZY CHCESZ AKCEPTOMAC' ) ; 
WRITELNl’ -UCISKAJĄC DOWOLNY’ ) I 
WRITEC KLAWISZ- POSTAĆ KRZYNEJ ’); 
NRITELNI’ KOLEJNEGO RZĘDU’); 

HRITEC (t/n)? ’); 

REPEAT 

tound (1 , 20«randoa( 130) , 13, 15, 10,0, 0) ; 
łound (2, 30*rando«(200) , 12, 12,20,0,0); 
UNTIL keyprełł»d| 

READIkbd, op) j 

UNTIL (op*’t’l X lop*’T’) x 
lop*’n’) x lop*’N’)| 

IF lop*’t’) x (op*’T*) 

THEN oi*true 
ELSE o:*łalłf| 

END; 

immmimuimmiimmmii) 

I NODUL STERUJĄCY 3 

(mtmmmmmmmtmttmt) 

BEEIN 

initgrałik; 

pocił i 

inicdanych; I 


t BEPEAT 


rząd; cla(6>| 

IF ri<>ł»2 THEN 
BECIK 

IF n»5 THEN 
BECIN 
■ode(2>{ 

grifainoiwlO, 14,440,4001 ; 
^jr<Fp«ill)| pen (0) ; 

ELSE 

grafpMl])) 

rukii 

i i =0] h<>hO div 4| 

x0:*2th«200| 

jjÓ^3»h*100; 

ii«iłii *oi«*<hii m*ti m 2i 

yOi*yOłb; 
xi'«0| ys*yO| 

gra(ptnll) 


ELSE 

Orafpcnli)) 
iii); xi=*+hi 
L J - «tx, 


yi*y-hi dra«lx,y)i 
sound<i,xfi, 13,20,0,0,0) ; 
iound(2,ytl,7,20,0,0,0); 
b(i); x:*x-n; 
yi*y-hi dra»(i,y)| 
iound (i, x*5ti, 13,20,0,0,0) ; 
aound (2, y*5ti ,7, 20,6,0,6) ; 


clii) xi*x-h: 
yi=y+hi dra«(x,y)| 
aound (i , x+10łi , 13,20,0,0,0) ; 
*ound(2,yłl0»i ,7,20,0,0,0) | 
d(i)| xi*x*b; 
yt«y+hi dra«tx,y)| 
aound I 1, x*15ti , 13, 20.0, 0,0) ; 
aound (2, y+lSP i,7 t 20,0,0,0); 

IF o THEN 

BECIN 

gotaxy(l,23)| 

MtITE(’R2AD’,ii2,’ NCISNIJ KL.'); 

REPEAT 


aound (2, 15+i *20, 20. 15.10,0.0) i 
aound (2, IOW 420,15,12, 20, 0,0); 
UNTIL keypressed; 

READ(kbd,z)| 

END: 

UNTIL i*n; 
gotoxy(1.2S); 

NRITECNCISNIJ KLAWISZ ’) j 
REPEAT 

aound (1, 55,5,30,20, 0.0) ; 
aoundll, 200, 3,30, 20, 0,01) 

UNTIL keypresatd; 

READ(kbd,z); 

END; 

IF n=5 THEN inid; 

UNTIL rzM232; 


aodt(2); graf tai ndow (1,1,1,11; 
paptrlO); pan(l); 
gotoxy<l, 1); 
leayagraiik 


END. 


AMSTRAD SSS KS3T*" 


Kostka do gry 

Ten program jest przykładem generowania liczb pseudolosowych przy 
pomocy funkcji RND. Ta instrukcja daje jako wartość wywoływanej funkcji 
liczbę rzeczywistą z przedziału <0,1 ). Aby otrzymać liczby całkowite z usta- 
lonego przedziału należy dodatkowo zastosować inną funkcję: INT. Wtedy 
zmienna całkowita y o wartości: 

y=a+INT(RND*b) 
należy do przedziału <a,b-t-a— 1>. 

W prezentowanym programie wykorzystano w/w własności generując 
liczbę całkowitą z przedziału <1 ,6>. Odpowiada ona liczbie wyrzuconych 
oczek przy jednokrotnym rzucie kostką do gry. Obraz kostki widoczny na 
ekranie mikrokomputera pokazuje poniższy rysunek: 



NACISNIJ DOWOLNY KLAWISZ 

Po zainicjowaniu pracy programu naciśnięcie dowolnego klawisza powodu- 
je szybką zmianę zawartości 3 widocznych ścianek kostki (odpowiednik to- 
czenia się kostki po rzucie) i ustalenie wylosowanej ilości oczek na ściance 
czołowej. Użytkownik ma nieograniczoną ilość rzutów 
Warto zauważyć, że funkcję RND wykorzystano także do ustalenia ilości 
prezentowanych sekwencji w czasie „toczenia" — ich liczba wynosi: 

x=1 0+INT(RND*20) 

a więc jest liczbą całkowitą z przedziału <1 0,29>. Losowo ustalona wartość 
zmiennej OCZKO wpływa także na losowe generowanie dźwięku w instruk- 
cji SOUND. 

Szczególnie polecamy stosowanie tego programu do wszelkich gier i za- 
baw, w których niezbędne jest używanie kostki, jak również do wspomaga- 
nia zajęć z matematyki dotyczących przeprowadzenia doświadczeń loso- 
wych z kostką. 

Niezbędne do poprawnego działania tego programu na mikrokomputerze 
AMSTRAD CPC 6128 jest wcześniejsze wprowadzenie programu BANK- 
MAN z dyskietki systemowej. 


10 H0DE łt INK 0 , 2 : I NK 1,6: INK 2,26:INK J,24:BORDER 26:PAPER 2:CLS 
20 60SUB 10000 
30 CLSn*150:b*A4 
33 6 RAPHICS PEN 3 
40 PLOT a.b 

30 ORftNP 224. Ol DR ANS 0,214:DRAW -224.0:DRANR 0,-214 

60 PLOT a.b*2l4:DRANR 1 12, 107> DRAHR 224,0iDRANR 0,-214iDRANR -1 12, -107:PL0T a*22 
4,bł214iDf>ANR 112,107 

65 NOK a*10.bM0:FILL OiHOYE afl0,b*220:FlLL OiHOK »f2JO,bflOO:FILL 0 
70 !SCREENC0rY,2,l 

BO LOCATE 1,23: PEN 0:PRINT a NACISNlJ DOWOLNY KLAWISZ*; 

90 A4«INKEY4 
100 IF A4»" 60T0 90 
110 »-10fINT(RND120) 

120 FOR Ol TO * 

130 oczkO"l«INT(RNOI 6 ) 

140 iSCREBCOPY.1.2 
133 GRAPHICS PEN 5: PAPER 2 
136 TA 6 

160 ON Kzko 60SUB 1000,2000,3000,4000,5000,6000 
170 SOUND 1 ,0CZK0t20, 10, 13 
180 TA60FF 
190 NEIT 

199 PEN 1: PAPER 2 

200 LOCATE 13,23:PRINT*NYLOSONANO *j0CZK0| 

210 60TO 90 

1000 60SUB 9000 

1010 GOSUB 9150:60SUB 9170:60SUB 9190 
1020 GOSUB 9320: &0SUB 9340 

1999 RETURN 

2000 60SUB 9020 

2010 G0SUB 9170: B0SUB 9190 

2020 60SUB 9320:60SUB 9340i60SUB 9360 

2999 RETURN 

3000 60SU8 9000i60SUB 9020 

3010 608UB 91 70i60SUB 9190:60SUB 9210 
3020 60SUB 9300: 60SUB 9320i60SUB 9340 

3999 RETURN 

4000 605UB 9020:60SUB 9060 
4010 60SUB 9170 

4020 60SUB 9300 
4999 RETURN 

3000 GOSUB 9000iBOSU8 9020IS0SUB 9060 
5010 G0SU8 9150 . 

3020 GOSUB 9300I&OSUB 9320 
3999 RETURN 

6000 60SUB 9020i60SUB 9060i60SUB 9120 
6010 GOSUB 9 ISO: &0SUB 9170 
6020 GOSUB 9320 

9000 MVE *4104, b*ll3:PRINT CHR4I241)) 

9010 RETURN 

9020 NOK a*30,bfl83:PRlNT 0*4(241) jiHOK •♦180,b*43zPRINT CHR4(241)j 
9030 RETURN 

9060 KOK i*30,bf43:PR!NT CHR4(241)j:H0K a*18O,b*105:PRINT CHR4(2,4l)| 

9?20 MV?ił30,b*113iPRINT 0*4(241) j:N0VE aMB0,bfll3:PRINT CHR4(241)| 

9*130 N0VE*a*16O,b*278iPRINT 0*4 (243) | 

9170 N0VE*afl30,bf305iPRINT O*4(243)i:H0VE af200,bf250:PRINT 0»4(243)| 

9190 HOK^łGA.b^IPRINT 0*4(243) 5 : BOYE 1*270, b»303iPRINT 0*4(243)1 
9200 RETURN 

9210 NOK a+97,b*276:PRINT 0*4(243) jiHOK a*234,bf276:PRINT 0*4(243) j 
9220 RETURN AO 

9300 NOK a*27B,btl68iPRINT OK4(242)| 

9320 H0K*af246,bf206:PRINT 0*4 ( 242) p NOK a*310,bfl2BiPRINT CHR4C242); 

9330 RETURN 

9340 ROK a*246,b*70iPRINT CHR44242) ; j«0VE a*310,bf270iPRINT CHR4(242)| 

9330 RETURN 

9360 NOK af246,b*140iPRIHT 0*4(242) |iN0VE af310,b«200:PRINT 0*4(242)) 

9370 RETURN 

10000 SYMBOL AFTER 240 

10010 SYMBOL 241,60,126,233,235.233,233.126.60 
10020 SYMBOL 242,24,60. 126, 126,126.1 26,60, 24 
10030 SYMBOL 243, 0,i0, 126, 233, Ź35, 126, M 
10040 RETURN 
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INFORMATYCZNY SŁOWNIK ANGIELSKO-POLSKI 


DATA BANK - bank danych, baza danych, 

DATA BASE - baza danych, 

DATABASE - patrz i DATA BASE. 

DATA BASE ADMINISTRATOR - admi ni strator ba*v danych, 
DATA BASE MANAGEMENT SYSTEM - system zarządzania ba- 
zą danych, 

DATA BIT -bit informacyjny, 

DATA BŁOCK - blok danych. 

DATA BUS - szyna danych. 

DATA BUS EMABLE - blokada szyny danych. 

DATA CAPTURE - porcja danych, 

DATA CAkRIER - nołmk danych. 

DATA CHAIMING - wiązania łańcuchowe danych. 

DATA CHANNEL - kanał tranaaiB.il danych, kanał infor- 
macyjny. 

DATA-COLLECTIMG UNIT - urządzenie gromadzenia danych. 
DATA COLLECTION - gromadzenie danych, zbieranie da- 
nych, 

DATA COMP ATI BI LI TY - wymienność danych. 

DATA COKPRESSION - zagęszczanie danych, 

DATA CONSISTENCY - zgodność (Jednolitość) danych, 

DATA DEKSITY - qę*tość zapisu danych. 

DATA OESCRIPTION LANGU AGE (DDL) - język opisu danych, 
DATA DISPLAY FORMAT - postać danych na ekranie mo- 
nitora. 

DATA DI VI SI ON - cifie danych. 

DATA DRIVEN - także: wnioskowanie uprzedzające 
(w systemach ekspertowych), 

DATA EMCRYPTION STANDARD - system utajniania danych. 
DATA EKCHANtiC CONTROL UNIT - jednostka sterująca wy- 
sianą danych, jednostka wysiany danych. 

DATA EXCHAMG£ CONTROLLER - jednostka sterująca wy- 
mianą danych, jednostka wymiany danych, 

DATA FLOR - przepływ danych, 

DATA FLOW CHART - schemat blokowy, scnemat działania 

DATA FLOW DIAGRAM - oatrzi DATA FIOW CHART. 

DATA FORMAT - układ danych, struktura danych. 

DATA OATHER1MG - rejestracja danycn. 

DAT A -GA THE RING UNIT - urządzenie gromadzeni a danych, 
DATA GROUP - grupa danych, 

DATA HAMDLING - obróbka danych. 

DATA HOLE - dziurka inf or macy.tna (taAmy. karty), 

DATA HOLE TRACK - Ścieżka informacyjna (taśmv dziur- 
kowanej ) , 

DAT A- IN - dane wejściowe. 

DATA IMPl/T - wprowadzanie danych, 

DATA INTERFACE UNIT - złącze transmisji danych, 
sprzęci transmisji danych, interfejs transmisji da- 
nych, 

DATA INTERLOCK - blokada dostępu do danych, 

DATA ITEMS - elementy danych. 

DATA KEYS - klawisze danych. 

DATA LINĘ - przewód danych. 

DATA LINK - kanał przesyłający dane, kanał informa- 
cyjny, 

DATA LINK CONTROL - sterowanie łączem na poziomie 
danych. 

DATA LOGGER - rejestrator danych. 

DATA MANAGEMENT - kierowaniem przepływem danych, 
zarządzanie danymi. 

DATA MANI PUL ATI ON - operowanie danymi, 

DATA KANI PUL A TI ON LANGUAOE (DHL) - Język manipulowa- 
nia danymi, DML, 

DATA MEDIUM - noSnik danych, 

DATA NANE - nazwa danych. 

DATA ORDERING - porządkowanie danych, 

DATA ORGAMI ZATI ON - organizacja danych, 

DATA-OUT - dane wyj Ac i owe. 

DATA OUTPUT - wyprowadzanie danych, 

DATA PATH - Ścieżka danych, 

DATA PLATĘ - tabliczka znamionowa. 

DATA POINTER CDP) - wskaźnik danych, 

DATA PREPARATI ON - przygotowywanie danych, 

DATA PROCESSING - przetwarzanie danych, 

DATA PROCESSING CENTRE - ośrodek przetwarzania da- 
nych, 

DATA PROCESSING COMPUTER - komputer do przetwarzania 

DATA PROCESSINO Ł'NV* RONMENT - Środowisko przetwarza- 
nia danych, 

DATA PROCESSING SYSTEM - system do przetwarzania da- 
nych. 

DATA PROCESSING TERMINAL - urządzenie końcowe, ter- 
minal, końcówka, 

DATA PROCESSOR - procesor, jednostka centralna. 

DATA PROTECTION - zabezpieczanie danych. 

DATA PURFICATION - usuwanie błędnych elementów ze 
zbioru danych, 

DA’ - A RATĘ - szybkość transmisji (przesyłania) danych, 
DAT., RECORD - zapis (rekord) danych. 

DATA KEDUCTIOH - kumulowanie danych. 

DATA RETRIEYAL - wyszukiwanie danych. 


DATA SEARCH - przeszukiwanie danych. 

DATA SEARCH DE VI CE - urządzenie wyszukiwania danych, 
DATA SEGMENT CDS) - segment danych, 

DATA SET - zbiór danych, takżei urządzenie do trans- 
mi sj i danych , 

DATA SI KK - ujścia danych, 

DATA ST ATI ON - stacja abonencka, stacja teledacyjna. 
DATA STORAGE - pamięć danych. 

DATA SYSTEMS ENGINEERING - Bródki techniczne prze- 
twarzania danych, 

DATA TERMINAL EQUI PMENT CDTEJ - urządzenie końcowe 
transmisji danych. 

DATA TRANSFER - przenoszenie danych. 

DATA IRAŃSKI SSI ON - transmisja danych. 

DATA IRAŃSKI SSI ON DE VI CE - urządzenie transmisji da- 
nych (UTD) , 

DATA TRANSKI SSI ON FACILITIES - urządzenia transmisji 
danych. 

DATA TRANSKI SSI ON LINĘ - łącze transmisji danych, 
łącze przesyłowe, 

DATA TRANSMISSION PROGRAM - program transmisji de- 

DATA TRANSMISSION RATĘ - szybkość transmisji, szyb- 
kość przesyłania (danych), 

DATA TRANSMISSION RELIABILITY - niezawodność trans- 
misji, niezawodność przesyłania, 

DATA TRANSMISSION SPŁED - patrz i DATA TRANSMISSION 
RATĘ, 

DATA TRANSKI TTINO CHAMMEL - kanał tranami sji danych. 
DATA UPDATI MG - aktualizacja danych, 

DATA WORD - słowo danych, 

DATĘ - data, 

DATEL SER VI CE - usługi transmisji danych, usługi te- 
ledacyjne, 

LAT ER - datownik, 

DATUR - punkt wyjściowy (początkowy), takżei dana 
wielkość, wielkość założona, element danych, 

DATUR LEVEL - poziom odniesienia, 

DATUM POINT - punkt odniesienia, 

DBMS - patrz. DATA BASE MANAGEMENT SYSTEM. 

DDL - patrz l DATA DESCRIPTION LANGU AGE, 

DE-AIXOCAT10N - wymazywanie (zbioru, obszaru zbioru), 
DEAD EMD - "ślepa uliczka" (na schemacie blokowye), 
DEADLINE DATĘ - termin prekluzyjny, nieprzekraczal- 
ny, 

DLADLOCK - blokada systemu, 

DEALLOCATŁ ON MEMORY - zwolnienie miejsca pamięci, 
DEtłLOCKIMS - odblokowanie, 

DEBUC - usuwanie błędów z programu, uruchamianie, 
DEBUG DECK - pakiet testowy, 

DcJłtMłGlMG - "odpluskwl anie" . proces usuwania błędów 
z programu, 

DEBUG TIME - czas związany z wyszukiwaniem i usuwa- 
niem błędów w programie. 

DECAY - rozpad, zanik, 

DECELERATE - zwalniać, zmniejszać np. prędkość ruchu 
taśmy magnetycznej, 

DĘCI DE - decydować . 

DECIMaL - cyfra dziesiętna, takżei ułamek dziesiętny, 
DĘCI MaL CARRY - przeniesienie dziesiętne, 

DECIMAL CLASSIFICATION - klasyfikacja dziesiętna, 
DECIMAL -CODED DIGIT - cyfra dziesiętna, 

DECIMAL COMPUTER - komputer dziesiętny, maszyna 
dziesiętna, 

DECIMAL COUMTER - licznik dziesiętny, 

DECIMAL DICIT - dit (dziesiątkowa Jednostka infor- 
macji), cyfra dziesiętna, 

DECIMAL FRACTION - ułamek dziesiętny, 

DECIMaL NOT ATI ON - zapis dziesiętny, 

DECIMAL KUMBER - liczba dziesiętna, 

DECIMAL MUMERATION SYSTEM - dziesiętny system licz- 
bowy, 

DECIMAL PLaCE - miejsce dziesiętne, przecinek dzie- 
siętny. 

DECIMAL POINf - patrzi DECIMAL PLACE, 

DECIMAL SYSTEM - system dziesiętny, układ dziesięt- 
ny. 

DCCI HAL -TO- BI MARY CONYERSIOw - konwersja dziesiętno- 
-tłwójkowa. 

DĘCI MALI ZATI ON - przejście na system dziesiętny, 
DECIPHER - rozszyfrowywać, 

DĘCI SI ON - decyzja, 

DĘCI SI ON BOX - figura na schemacie blokowym symboli- 
zująca warunek, 

DĘCI SI ON ELEMENT - element decyzyjny, 

DĘCI SI ON FUNCTION - funkcja decyzyjna, 

DCCI SI OH IKSTRUCTION - rozkaz decyzji. 

DĘCI SI ON -MAKI MG - decydowanie, 

DEOSIOH TABLE - tablica decyzyjna, tablica procedu- 
ralna, 

DCCI SI ON THEORY - teoria podejmowania decyzji, te- 
oria decydowania, 

DĘCI SI ON TREE - dendryt decyzyjny. 

DCCIT - dit (dziesiątkowa Jednostka informacji), 

DECK OT CARDS - plik kart dziurkowanych, 

DECLARA TI ON - zgłoszenie, deklaracja, 

DCCLAkATIYE STATEMENT - deklaracja procedury. 


DECUDE - dekodować, 

DECO DER - dekoder, 

OECODEK MAT R1 X - tablica o e kodowani a, 

DECGOER NETWORK - patrz > DECOOER MATRI X, 

DECOOI FI CAT1 OH - patrz t DLCOOING, 

DBCOOI NG - oak od owania, 

DECODING CIRCUIT - układ dekodujący, 

DECOLLATOR urządzenie do rozkładania (rozdziela- 
nia) druków Miwlowar stwowych, 

DECOMPOSE - rozkładać (np. rozkaz na Jego elementy 
składować, d u komponować, 

DECREASIMB KUNC Tl OH - funkcja malejąca, 

DECRENEMT - zmniejszać, takZei wielkość o Jaką male- 
je zmienna, 

DEDICATED SYSTEM - system (informatyczny) dedykowany, 
DE PU CE - Redukować, wnioskować, wyprowadzać, 

DEEPEN - pogłębiać, 

DEFAULT - wartość standardowa, wartodć zastępcza, 

wartość domy* Ina, 

DEFAULT DE VI CE - urządzenie standardowe, urządzenie 

domyślne, 

DEFAULT VALUE - wartość domy* Ina, 

DEK AUT - zaniedbanie, 

DEFECT - błąd (np. kodowania), defekt, wada, 

DEFERRED EMTRY — wejście asynchroniczne. 

DEKI NE - definiować, określać, 

DEFINED NOT I ON - pojęcie zdefiniowane, 

DEKI MI TI ON - definicja, 

DEKLECTION - odchylenie, wychylenie (np. strzałki 

przyrządu) , 

WTORKI TY - zniekształcenie (np. karty), 

DEGiSCE - stop i eh, 

DEGfcEE OF ACCURACY - stopień dokładności, 

I)EGR>X OF CGWYERGENCŁ — stopień zbieżności, 

DfcGREE OF COREL ATI ON - stopień korelacji, 

DEL patrz; DELETE CHARACTER, 

DELAY - opóźni eri.e, zwłoka, 

WLAY LINĘ — element opóźniający, 

DiiLETF - anulować, kasować, usuwać, wymazywać, 

DQAT7£ CHARA CTER - znak wymazujący, kasujący, 

DELF. TI NO a RECORD - wymazywanie (kasowanie) zapisu 

DEUTBERATTLY św. z demie, 

DELI KI TE - Jććziełać, separować, rozgraniczać, 

DELI MI TER - separator, ogranicznik, 

DELIMITEK CARD - karta rozgraniczająca, 

OELINEATE - narysować, naszkicować, 

DELVE - pogłębiać, zgłębiać (np. problem, zagadnie- 
nie) , 

DLKaMD - żądanie, wymaganie, takźei popyt, 

CEMAKD '.DAT Aj rKOCESSING — przetwarzanie danych swo- 
bodne, 

CEMAKD FET CHI MG - sprowadzanie na żądanie (sposób 
przemimnepo wykorzystania pamięci), 

DEMODULATION - demodulac ja, 

DEMODULATOR - demodulator, 

DE MOUNT ABLE - wymienny, możliwy do demontażu, 
DEMOK1MATE KORBEK - liczba mianowana. 

DEMOMI NA TOR - mianownik. 

DENOTATION - oznaczenie. 

DEMOTE - określać, oznaczać (np. wymiary urządzania), 
DENSITY - aęstoSć, zagęszczenie, upakowanie, 
DENUNCRABLE SET - zbiór przeliczalny, 

DEPARTMENT - dział, wydział, departament, 

DEPliNDABI LI TY - niezawodność, pewnoSć (działania), 
DEPENDABLE - niezawodny, 

DEPEMDEMCE - zależr.oSć, 

DEPENDI NG ON . . . - w zależnodci od . . . , 

DEPICT - opisywać coS, przedstawiać na rysunku, 

DEPLOY - rozmieszczać (np. dane w pamięci maszyny). 
DEPOSI T - odkładać, wkładać, takźei przenosić (np. 
i nfo rmacje z pamięci operacyjnej do zewnętrznej) , 
DEPRESS — naciskać, uruchamiać (np. klawisz— przy— 
cisk— maszyny >, 

DEPTH OUENIMG - obrazowanie głębi (tworzenie per — 

spektywy) , 

DER1 VF. - wyprowadzać (np. wynik, wzór, zależnaSć), 

DES - patrz » DATA KNCRYPTION STANDARD, 

DESCENDING - malejący (porządek), malejąco, 

DESCENDING ORDER - porządek malejący, 

DESCRJMBLER - deszyfrator. 

DESCRIBE - opisywać, 

DESCRI PTI ON - oois, deskrypt. 

DESCRI PTI VE - opisowy, 

DESCRI PTOR - deskryptor, 

DESCRI PTOR PR1YILEGE LEVEL - deskrypcyjny poziom 
upr z ywi i ejowani a, 

DESIGN - koncepcja, zamiar, projekt, schemat, takżmi 
konstruować, projektować, zamierzać, 

DE SI GN AUTONATION - automatyzacja projektowania, 
DESIGNATE - oznaczać, przedstawiać, wyznaczać, 
DESIGNATOR - oznaczmk. 

DESK COMPUTER - komputer biurkowy, komputer prze- 
nośny, 

DESKTOP COMPUTER - komputer stołowy, 

DESTINATION INDEX REGISTER - rejestr indeksowy od- 
biorcy. 


DESTIMATIOM VARI ABLE - zmienna przeznaczenia, 

DESTROY - anulować, zniszczyć, 

DESTRUCTI VE READ - odczyt niszczący, odczyt wymazu- 
jący, 

DESTRUCTI VE READ-OUT STORĘ - pamięć o odczycie nisz- 
czącym, pamięć dmstrukcyjna, 

DETACH - odejmować, odłączać, 

DETACHABLE - odejmowany, odłączany, 

DETAIL - drobiazg, szczegół, takżei szczegółowy, 
wyszczególniać, 

DETAIL BIT - bit szczegółowy, 

DETAILED - szczegółowy, 

DETECT - wykrywać, 

DE 1 Lu 1 ABI LI TY - wybieralność (cecha elementu obrazu), 
wykrywa 1 noSć . 

DETECT AULE - wykrywalny, 

DETECT ABLE ELEMENT - element wykrywalny (np. przez 
oióro świetlne), 

DETECTION - wykrywanie, wynajdywanie, 

DETERIORATION - uszkodzenie. 

DETERMINANT - wyznacznik. 

DCTERMINE - określać, ustalać, wyznaczać, 

DCTERMINE A RŁLAT1 ONSHI P - określić zależność. 
DCTERMINE COMFORMITY - ustalać zgodność, 

DCYELOP - budować, konstruować, takźei opracowywać, 
przekształcać, 

DEVELOP A METHOD - opracować metodę, 

DCVELOPKENT - rozwój, rozbudowa, rozwinięcie, takźei 
przekształcenie, adaptacja, 

DEVELOPNENT SYSTEM — system wspomagania, takżmi sys- 
tem uruchomieniowy, 

DEYELOPNENT TIME - czas usunięcia błędów (np. w pro- 
gramie lub sprzęcie), 

DE VI ATE KROM - odbiegać od, odchylać się, 

DEVI ATI ON - odchylenie, takźei błąd, 

DCVXCE - przyrząd, urządzenie, 

DEYICE ALLOCAT1 ON - przydzielanie urządzać, przypo- 
rządkowywanie urządzać, 

DEVICE CONTRO*. CHARACTER - znak sterujący urządze- 
niem, 

DEYICE COORDINAlES - układ współrzędnych urządzenia, 
DEYICE DEPEMDEMCE. - uzależnianie od jednostki pery- 
feryjnej, 

DL VI CE DRIYEfc - program oOsługi urządzenia. 

DEYICE HANDLER - (standardowy) program obal uql urzą- 
dzać, 

DE VI CE SPACE - przestrzeli urządzenia graficznego, 
(obszar ograniczony pojemnością rejestrów pozycji X, 
Y) , 

DE VI CE STELI KIER - specyfikator urządzenia, 

DE VI CE STATUS - stan urządzenia, 

DE A - patrz i DIGITAL KAULT AMALYSIS, 

DI - patrz i DIGITAL INPUT, 

DI C DESTIMATIOM INDEXJ - rejestr indeksowy odbiorcy, 
DI AGNOST1C - diagnostyczny, takżmi samoczynnie wysy- 
łany przez komputer komunikat w calu zasygnalizowa- 
nia i identyfikacji błędu, 

DIAGNOST1C CHECK - sprawdzenie sprzętu lub programu, 
DIAGNOSTIC PROGRAM - program diagnostyczny, 
DIAGMOSTICS ON -CHIP - układy diagnostyczne zawarte 
w układach scalonych, v 

DI AGONKALLY - ukośnie, 

DIAGRAM - rysunek, schemat, wykres, 

DIAGRAM CHECK - kontrola schematu. 

DIAGRAMMATIC - wykreśl ny, schematyczny, 

DI AGRAMMATI CALL Y - schematycznie, 

DIAGRAM PAPER - papier milimetrowy, 

DIAGRAM SYMBOL - symbol schematu. 

Dl AL COMMUNI CATI ON LINĘ - łącze komutowane, łącze 
abonenckie, 

DIC - patrz i DIGITAL INTEGRATED CIRCUIT, 
DICHOTONIZING SEARCH - wyszukiwanie dwudzielne, wy- 
szukiwanie dychotomiczne, 

DICTIONARY - słownik, 

DID - patrz i DIGITAL INFORMATION DISPLAY. 

DIE SORTING - sortowanie struktur półprzewodniko- 
wych, 

DIKFERENCE - różnica (np. przy odejmowaniu), 

DI FFERENT LEYELS OF SOPKI STI CATI ON - różne itopme 
utrudnienia. 

DI FFI CUL TY - trudność, 

DIGIT - cyfra. 

DIGITAL - cyfrowy, 

DIGITAL ADOER - sumator, 

DIGITAL CAPACITY - długość liczby, 

DIGITAL -CIRCUIT ENGINEERING - patrz i DIGITAL ELEC- 
TRONICS, 

DIGITAL COMPARATOR - komparator cyfrowy, 

DIGITAL COMPUTER - komputer cyfrowy, 

DIGITAL CONTROL - sterowanie cyfrowe, 

DIGITAL COMVERTER - konwerter cyfrowy, 

DIGITAL DATA - dane cyfrowe. 

DIGITAL DESIGN - projektowanie układów logicznych, 
DIGITAL DISPLAY - przedstawienie cyfrowe, 

DIGITAL ELECTRONICS - technika cyfrowa, cyfronlka, 
DIGITAL FAULT AMALYSIS - cyfrowa analiza uszkodzeć, 
DIGITAL INDICATOR - wskaźnik cyfrowy. 
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GIEŁDA POMYSŁÓW 


Kredka 


Jest to program graficzny, który może służyć do robienia rysun- 
ków, wykresów w zależności od umiejętności i cierpliwości użyt- 
kownika. Cierpliwości, bo poza jego powolnością, ma on i tę wadę, 
że jest czarno-biały. Poza tym sądzę, że ma resztę zalet, do któ- 
rych należy prostota w obsłudze. Rysowanie instrukcją PLOT od- 
bywa się za pomocą kursorów (5, 6, 7, 8) przy opuszczonej kredce 
lub odpowiednio R. T. U i Y przy kredce podniesionej (która jest w 
tym przypadku gumką). Ciągły odczyt współrzędnych x i y Literą 
„S" można dokonać nagrania na taśmie, po zakończeniu którego 
obraz jest wczytywany n inny obszar pamięr< komputera a cełu 


zabezpieczenia go przed uszkodzeniem w przypadku wadliwego 
nagrania. W celu ponownego nagrania można go wywołać przez 
RANDOMIZE USR 30000. Program ma możliwość rysowania 
okręgów w wariancie „0 — normal", lub usuwania w warian- 
cie „I"— inverse", albo rysowania białego okręgu na czarnym tle. 

Promień podany jest w punktach tzw. pikselach Po uruchomie- 
niu programu mamy możliwość wgrania niedokończonego rysun- 
ku lub rozpoczęcia rysowania od początku W obu przypadkach 
przed rysowaniem należy tylko podać współrzędne x i y, w któ- 
rych punkt ma się ukazać Zygmunt WIŚNIEWSKI 


6 poke 

13623+f,PEEK ( : N£XT f 

3 FOR n=30000 TO 30011 

4 RERD d : POKE n , d 

5 NEXT n 

0 OfiTfl 17,0,84,33,60, 117, 1,0, 
27,237,178,801 

7 CLS 

3 PRINT PPPER 8; RT 0,O;"Rysun 
ek został nasrany": PRINT RT 2,0 
,; "1-wykona j ’neu'";RT 3,0;"2-wcz 
ytaj naaranie przaz 4,Si"L0 

AD s 'SCREEN$ " 

9 PRINT RT 3,0;" U przypadk 
u zi* dokonane-go ,RT 9,0;;'naarą 
ma należy wywołać rysonek";flT l 
0,o; "przez -RANDOMIZE USR 30000 ' 
" ; RT 11.0; "uczy tac na tasme prze 
Z " ; RT 12 . 0 ; “SAUE "nazwa'SCREEN* 
- ; RT 13 , 0 ; f, i dalej Jak w punkcł 
e 1 i 2 " 

10 PRINT RT 18,0;" Wywoływać 
rysunek woźna wie-";AT 17,0;"lo 
krotnie" 

‘ ' STOP 


11 


18 PRINT RT 8, 14; "L-LOad ;RT 1 
2, 14; "D-Draw"; BRIGHT 1;RT 8,14; 
"L" ; RT 12 , 14; ‘‘D" 

1Ś PRINT PAPER 6; RT 21,2; "Naci 
śnij odpowiedni klawisz'- 1 

16 IF INKEY # a" l " THEN CLS 1 LO 
AD ""SCREEN* : GO TO 35 

17 IF INKEY» = "d" THEN CLS ; CO 
TO 20 

18 CO TO 15 

£0 PRINT BRIGHT 1; INUERSE 1; fi 
T 0,5, "Klawisze do sterowania" 

21 PRINT RT 2,3; "kredka";RT 2, 

23, "kredka" „ _ 

22 print RT 3 , l; "opusz czona ; fi 
T 3,20; "podniesiona" 

2Ż PRIKlT BRIGHT 1;AT 8,5; "5"; A 
T s , 5; "6" ; RT 10 , 5; "7" ; RT 12,5, ^8 
" ; RT 6,25; "R" ; RT 3,25; "T"; AT 10, 
25; "U" , RT 12,25; “I* 

24 PRINT PAPER 6; AT 21,3; "Naci 
śnij dowolny klawisz" 

25 PAU5E. 0: CLS ■ 

35 INPUT "X=";x 
40 IF x<0 OR X >255 THEN GO TO 

3 

45 INPUT "u='';y 
50 IF y<0 OR y>17S THEN CO TO 
45 

55 PRINT B0.AT 1.0; "X X ; AT 1 
7; "u = " ; y ; BRlGHT l;fiT 1,15J"S"; 
HT 1,23, i"; BRIGHT 0;RT 1,18;"- 
Save";RT 1 , £4; " -Ci rc le" 

60 Plot x,y 

65 PAUSE 0 

70 PRINT BO; AT 1,2;" " ; RT 

1,9;" 


35 


80 IF INNEY*="5" THEN LET X»X- 

1 90 IF INKEY*="8" THEN LET X =X + 

- 100 IF INKEY*="6" THEN LET w =y - 
1 

110 IF INKEY*="7" THEN LET y=y + 

1 

120 IF X <0 THEN LET X=0 
130 IF X>255 THEN LET X =255 
140 IF y<0 THEN LET y=0 
150 IF 9 >175 THEN LE l y=l?S 
163 IF INKEY*="r" THEN GO SUB £ 
50 

170 IF INKEY*="t" THEN GO SUB 3 
50 

_ 130 IF INKEY *="u" THEN CO SUB 4 

v 190 IF INKEY $ = " i " THEN 00 SUB 5 
50 

£00 IF INKEY $ = "S " THEN CO TO 80 
*210 IF INKEY l=" C " THEN GO SUB 7 

0® 'i 

220 GO TO 55 

250 LET X=X-1 I 

255 IF X <0 THEN LET X=0 

260 PLOT x,y: PLOT INUERSE l;xł 

1 £^5 RETURN 
350 LET y =y -1 


355 IF u <0 THEN LET y=0 

360 PLOT X ,i 

y +1 


, y : PLOT INUERSE i;x, 


365 RETURN 
450 LeT y*y + i 

4S5 IF y>175 THEN LET y=17S 
460 PLOT X ,y ; PLOT INUERSE liX, 
y - i _ 

46S~ return 
550 LET x =x +1 

555 IF X >256 THEN LET >-=255 
560 PLOT X , y ; PLOT INUERSE 1JX- 

l,y 

565 RETURN 

600 INPUT “nazwa nagrania “ 

; a$ 

610 SRUE asSCPE£N$ 

620 Pk I NT R0; FlhSH i:fiT 
PISYURNIE RYSUNKU ZR RhMTOP" 

630 GO TO 2 

700 INPut "cif cle . i-inverse 
0 -no r fii a l " ; c 

701 Ir c>l THEN GO TO 7O0 
70a input "pronian =» ";p 

710 IF p> 175-y OR y -p <0 THEN GO 
T O 702 

720 IF p >255-X OR X-p<0 THEN GO 
TO 702 

740 CIRCLE INUERSE C;x,y,p 
750 RETURN 
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Litery z ponumerowanych kratek od 1 do 24 utworzą nazwy 6 kom- 
puterów, które wystarczy podać jako rozwiązanie zadania, przesyła- 
jąc pod adresem redakcji na kartach pocztowych do końca kwietnia, 
naklejając kupon „IKS-a”. Wśród autorów prawidłowych odpowiedzi 




s słJs-ńfc..* » sak' ’ *4 . 
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KUPON ► 




Specjalne programy grafi- 
czne umożliwiają tworze- 
| nie dźwięków na ekranie 

> monitora, wygodną edycję 
l parametrów itp. Komputer 
■ przetwarza pomysły muzy- 
; ka na odpowiedni ciąg da- 
; nych i przesyła do synteza- 
mi tora. W tym miejscu po- 
| wstaje bardzo ważny prob- 
i lem: w jaki sposób kompu- 
I ter ma nawiązać kontakt z 
I syntezatorem? Odpowiedź 

> w numerze: Nuty z kompu- 
5 tera — str. 16 


Liczby i tabele na wykre- 
sach — czternasty odcinek 
„W szponach Atari” tym ra- 
zem poświęcony grafice, a 
w nim także 11 krótkich 
programów — str. 5 


UWAGA! Kolejna edycja 
„Ligi Myślących” w tym 
numerze wyjątkowo na 
stronie 25. 
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CENA 100 zł 





Informatyczny krajobraz naszego kra- 
ju mieni się wszystkimi barwami. Ta 
dziedzina, jak żadna inna tętni dziś ży- 
ciem, a to głównie dlatego, że szybko 
powstające, na ogół prężnie działające w 
warunkach rzeczywistej konkurencji 
firmy prześcigają się w oferowaniu 
usług i technicznych nowości. Kompute- 
ry stały się interesem, i to zarówno dla 
tych, którzy nimi handlują, jak i tych, co 
postanowili zrobić z nich użytek. Stwo- 
rzył się zdrowy rynek, na którym decy- 
dujący głos należy wreszcie do klienta. 

Dziś o nabywcę trzeba zabiegać. Je- 
steśmy jedynym krajem socjalistycznym, 
w którym organizuje się tak wiele imprez 
handlowych. W Warszawie mieliśmy 
trzecią już wystawę komputerów. Po- 
czątkowo „Agpol” zorganizował ją w sa- 
lach hotelu Victoria, ale już po paru 
dniach jej trwania („Komputer *86”) sta- 


ło się oczywiste, że miejsca jest zbyt mało 
i to zarówno dla wystawców, jak i dla za- 
interesowanych. Kolejne wystawy odby- 
wały się już w Pałacu Kultury i Nauki. 
Zainteresowanie nie słabnie, natomiast 
już bez głębszych analiz można zauwa- 
żyć, że z roku na rok przybywa na niej 
profesjonalistów. Ci, którzy chcą sprze- 
dać przyznają, że miły uśmiech i ele- 
gancka powierzchowność już nie wystar- 
czają, choć korzystne kontrakty pomagają 
często załatwić zawiłości naszego prawa. 
Nietrudno się domyśleć, kto na tym tra- 
ci. Na szczęście firmy funkcjonujące tyl- 
ko na zasadzie pośrednictwa, łaskawie 
przystawiające pieczęci pozwalające za- 
łatwić sprawę w majestacie prawa, spot- 
kać można coraz rzadziej. Zdecydowana 
większość, to firmy pragnące rzetelnie 
załatwić klienta — bo przecież z niego 
żyją. 


Tłok panował również na „Infosy- 
stemie ’88” — międzynarodowych tar- 
gach elektroniki, telekomunikacji i tech- 
niki komputerowej, które po benefisie we 
wrocławskiej Hali Ludowej przeniosły 
się na tereny Międzynarodowych Tar- 
gów Poznańskich. 

Niestety amatorzy i miłośnicy infor- 
matyki niewiele z tych imprez skorzysta- 
ją. Ceny nowoczesnego sprzętu wielo- 
krotnie przerastają możliwości normal- 
nej kieszeni. Jedynym pocieszeniem 
niech będzie fakt, że Spectrum czy Atari 
nie zdrożało (!) — co praktycznie równa 
się jego relatywnie niższej dziś cenie. 
Naszym Czytelnikom pozostaje Cen- 
tralna Składnica Harcerska, giełda, 
sklepy Pewcxu i nadzieja, że może kiedyś 
doczekamy się polskiego mikrokompute- 
ra. Czego i sobie życzymy. 


SPIS TREŚCI 

Temperatura, głos i kom- 
putery — str. 3 

Dyskowy system opera- 
cyjny dla ZX Spektrum 

— str. 4 

Wszponach Atari 1141 

— str. 5 


Program — Słownik 

— str. 9 

Lilavati — cz. 4 — str. 10 

Gra w ośmiu hetmanów 

— str. 12 
Przygotowanie drukarki 
GEMINI— 70Xi — str. 15 
Nuty z komputera 111 


— str. 16 
Programowanie mikropro- 
cesora 6502 — str. 18 

Kto pomoże? — str. 25 

Liga Myślących — str. 25 

Ocalony — str. 26 

Program — Dźwięki. Kla- 
wiatura — str. 27 

Spis najciekawszych pro- 
gramów — str. 28 

Enigma — str. 31 


TYLKO O 20 zł 
Uprzejmie informujemy Czytel- 
ników, że rosnące ceny papieru i 
usług poligraficznych zmusiły 
nas do zmiany ceny. 

Od czwartego numeru IKS kosz- 
tować będzie 100 zt. Cena w 
prenumeracie pozostanie bez 
zmian. Przepraszamy. 
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NAUKA •TECHNIKA • NAUKA 


Już w 1990 roku w pierwszy rejs 
morski ma wyruszyć eksperymentalny 
Japoński at.at.ek o nazwie yamato i 
wyposażony w nowego t-ypu agregat., w 
którym wykorzystane zostanie 

zjawisko nadprzewodnictwa. Będzie on 
-wyposażony w dwa silniki umieszczone 
na dnie statku, gdzie poblerad one 
będą wodę morska • która następnie 
zostanie wyrzucona na zewnątrz przy 
pomocy silnego pola magnetycznego. 
Wytwarzane ono będzie przez dwa 
silne elektromagnesy zbudowane z 
materiałów nadprzewodzących. Dzięki 
temu silnik zużywa nie tylko mniej 
energii elektrycznej, . ale też 
zwiększa się znacznie Jego moc. 
Zdaniem autorów projektu, w 
przyszłości tego typu statki będą w 
stanie rozwljad prędkości nawet do 
100 węzłów, czyli ponad 180 km/godz. 


V klinice uniwersyteckiej w 

Hamburgu testowane Jest nowe 
urządzenie diagnostyczne tzw. "cyfro- 
we radiografia". Aparatura , podo- 
bnie jak inne obecnie stosowane 
urządzenia do badania układu 

kostnego, wykorzystuje również 
promienie rentgenowskie. Badanie 
sterowane Jest Jednak przez 

komputer, oo umożliwiło zmniejaźenle 
dawki promieniowania od 50 do 90 
procent. W celu powiększenia 

niektórych badanych elementów układu 
kostnego nie trzeba przeprowadzać 

dodatkowych zdjęd rentgenowskich, 
lecz wystarczy wywołed z pamięci 
komputera potrzebny obraz detalu. 
Cyfrowa radiografia - zdaniem 
specjalistów - Jest szczególnie 
przydatna w badaniach diagnosty- 


cznych dzieci oraz tych osób, u 
których ze względu na leczenie musi 
ono być często powtarzane. 

■ ■ ■ 

Pracownicy Politechniki w lulka 
Cpółnocna Szwecja) zerwali ze 
stereotypem, według którego paliwo 
do Silników- samochodowych powinno 
się spalad w wysokich temperaturach. 
Oryginalny pojazd szwedzkich 

inżynierów rozpoczyna Jazdę dopiero 
wówczas, gdy paliwo w Jego zbiorniku 
zamarznie. Prototyp pojazdu 

napędzanego lodem zaopatrzono w 
25- litrowy zbiornik na wodę. W 
momencie zamarzania zwiększa ona 
swoją objętość, co powoduje wzrost 
olśnienia w stalowej butli. 
Hydrauliczny mechanizm wykorzystuje 
podwyższone ciśnienie * do 

uruchomienie napędu samochodu. 
Podoau prób niewielki samochodzik 
rozwijał prędkość do 50 km/godz. , 
ale Jego twórcy utrzymują, śe przy 
drobnych zmianach konstrukcyjnych 
ten sam model powinien przekroczyć 
granicę 100 kin/godz. 



V zachodnloniemiecklej firmie 
•ikmkn* opracowano nowy kompilator 
Języka ada. ada Jeat Językiem 
programowania powstałym na zamówienie 
amerykańskiego ministerstwa obrony* 
między innymi w celu ograniczenia 
kosztów budowy 1 konserwacji 
oprogramowania wojskowych systemów 
Informatycznych. Nowy kompilator 
charakteryzuje się budową modułową 1 
może być wykorzystywany zarówno pod 
specjalizowanym systemem operacyjnym 
■s zooo. Jak też przenoszony na inne 
systemy operacyjne 1 komputery. 


TEMPERATURA, 
GŁOS I KOMPUTERY 


Dziewięć, a może dziesięć lat temu w każdym razie 
na długo przed mikrokomputerami, w firmie mojej 
powstały warunki do realizacji „ambitnych planów 
młodego inżyniera informatyka". Wiązały się one z 
budową urządzeń, które umożliwiają wprowadzenie 
danych bezpośrednio do komputera, bez stosowania 
klawiatury lub innych papierowych nośników infor- 
macji. Innymi słowy chciałem, by informacje wpro- 
wadzane były do maszyny prosto ze źródła informacji, 
w moim przypadku od pacjenta, a ściślej z jego skóry. 
Przedmiotem pomiaru była bowiem temperatura 
osoby poddanej działaniu określonych czynników ze- 
wnętrznych, także farmakologicznych. 

Dysponowałem wówczas odpowiednimi czujnikami temperatury. 
Zmieniały one jej wielkość na proporcjonalną wartość napięcia: od 
0V do 5V. Gdy temperatura wynosiła 36°C czujnik „dawał” napięcie 
+0,5, gdy 43°C — 4,5V. Problem polegał zatem na tym, by uzyskane 
z czujników pomiary przekazać do komputera. Tradycyjnie odbywa- 
ło się to w ten sposób, że odczytywane wielkości były notowane na 
papierze, by potem wprowadzić je do komputera za pośrednictwem 
klawiatury. Procedura ta była oczywiście bardzo pracochłonna i 
trudno było wykorzystać komputer do śledzenia temperatury w cza- 
sie rzeczywistym, na przykład w celu alarmowania, gdy wynik po- 
miaru przekroczył wartość 38. 

W celu realizacji tego sprzężenia, czujnik — komputer, niezbędny 
okazał się konwerter A/C (analog/cyfra) — urządzenie elektroni- 
czne, które „zmienia” napięcie na odpowiadającą jego wartości licz- 
bę. Jest ona w takiej postaci (binarnej) jaką „akceptuje” każdy kom- 
puter. 



W praktycznej realizacji tego sprzężenia maszyna co pewien czas 
wysyła impuls „prośbę” do konwertera A/C, by „zechciał zobaczyć”, 
jaka jest wartość temperatury. W odpowiedzi konwerter A/C zamie- 
nia napięcie (odpowiednie temperaturze) na liczbę i wysyła ją do 
komputera (za pośrednictwem interfejsu). Pomiar został dokonany 
— bez udziału człowieka, maszyna odczytała temperaturę i może ją 
dalej analizować. 

Po podłączeniu czujnika do konwertera z jednej strony, komputera 
z drugiej strony, okazało się, że zestaw ten pracuje nadzwyczajnie — 
cicho, poprawnie i bardzo szybko. Poszedłem do pacjenta, który sie- 
dział w pokoju znacznie oddalonym od komputera, uśmiechnęliśmy 
się do siebie i... zwątpiłem czy na pewno komputer mierzy i rejestruje 
temperaturę. Szybko pobiegłem na salę maszyny, uruchomiłem dru- 
karkę. Okazało się, że sprzężenie działa bez zarzutu — temperatura 
wolno się zmieniała. Wróciłem do pacjenta. Po chwili znowu byłem 
pełen wątpliwości, czy maszyna nadal odbiera informacje o tempera- 
turze? 

Oczywiście najprościej było by zainstalować obok pacjenta 
monitor sprzężony z komputerem i po prostu od czasu do czasu spoj- 


rzeć na ekran. Niestety kredyty się skończyły i o kupnie monitora nie 
było mowy. Należało wymyśleć coś tańszego, ale co? 

Jak zwykle w takich sytuacjach pomógł przypadek. Koledze popsuł 
się magnetofon, po prostu przestał nagrywać. Mechanizm działał 
poprawnie, odtwarzanie także, a wypowiadane do mikrofonu słowa 
ledwo były słyszane podczas ich odtwarzania. Postanowiłem spraw- 
dzić całą drogę sygnału — od mikrofonu do głowicy nagrywającej. 
Uruchomiłem oscyloskop, podłączyłem go do głowicy magnetofonu i 
w takt wypowiadanych do mikrofonu liczebników: raz, dwa, trzy... 
na ekranie oscyloskopu linia zaczęła podskakiwać. Im głośniejsze 
głoski słowa, tym wyżej na ekranie tańcowała linia. Było to oczywiste — 
mikrofon, podobnie jak czujnik temperatury, zamienia głos na sygnał 
elektryczny, który właśnie ukazywał oscyloskop. Stąd już tylko krok, 
by do komputera wprowadzać głos! Oczywiście pośredniczył w. tym 
nasz znajomy konwerter A/C — podobnie jak miało to miejsce w 
przypadku temperatury. Innymi słowy konwerter odbiera z mikrofo- 
nu prąd, zamienia go na cyfry i wysyła do maszyny. Oczywiście pro- 
ces zamiany i wysyłania przebiega bardzo szybko (chcąc uzyskać ja- 
kość dźwięku porównywalną do rozmowy telefonicznej, „zamiany" te 
powinny odbywać się z szybkością około 10 tys. w czasie 1 sek.). 



To był pierwszy krok w konstruowaniu taniego urządzenia wyjś- 
ciowego komputera, które pozwoliłoby mi na bieżące śledzenie, z du- 
żej odległości, co komputer w danej chwili robi. Dysponując zatem 
sprzężeniem: mikrofon — konwerter A/C — komputer, z łatwością 
mogłem przekazać do pamięci maszyny wyrazy: jeden, dwa, trzy, ... 
dziewięć oraz trzydzieści i czterdzieści. W ten sposób maszyna „po- 
znała” wzorce słownej interpretacji niektórych liczb. Wykorzystując 
odpowiedni program, komputer z łatwością mógł łączyć poszczegól- 
ne słowa i generować cyfrowe odwzorowania słów: od trzydzieści do 
czterdzieści dziewięć. 

Komputer dysponując wzorcami liczebników mógł je oczywiście 
odtwarzać — „dawać” na drutach interfejsu w postaci liczb binar- 
nych. Ale przecież tego nie słychać! To są tylko pewne poziomy na- 
pięć — dla jedynek +5V, a dla zer 0V. Należało zatem wykonać za- 
bieg odwrotny, niż to uczynił konwerter A/C. Cyfry podawane przez 
interfejs trzeba było z powrotem zamienić na sygnał elektryczny — 
taki jaki dawał wcześniej mikrofon. Okazało się to niezwykle proste 
— korzystając z konwertera C/A. Układ ten zamienia liczby binarne 
(odbierane z interfejsu komputera) na przebieg analogowy — ciągły 
sygnał elektryczny, taki jaki wcześniej uzyskiwałem z mikrofonu. Po- 
zostało zatem tylko dodanie do konwertera głośnika i... komputer za- 
czął gadać i to jak! Szybko podłączyłem wyjście konwertera C/A do 
wzmacniacza, pociągnąłem przewód z sali komputerowej do pacjen- 
ta (ten ciągle na szczęście czekał), założyłem słuchawki. Słyszałem: 
trzydzieści sześć, trzydzieści sześć siedem, trzydzieści sześć sześć sie- 
dem, ciąg dalszy nastąpi... 

PRAKTYK 
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Dyskowy system 
operacyjny 
dla ZX Spectrum 


Do mikrokomputerów ZX SPECTRUM, 
UNIPOLBRIT 2086 i TIMEX TC 2048 mo- 
że być dołączona tego samego typu pamięć 
mikrodyskowa (pmd) firmy TIMEX. Współ- 
praca pmd z mikrokomputerem odbywa się na 
podstawie dyskowego systemu operacyjnego 
DOS (disk operating system). W skład pmd 
wchodzą: sterownik, napędy dyskietek, zasi- 
lacz i sprzęg (interface) łączący mikrokompu- 
ter z pmd. Całość może być w jednej obudo- 
wie lub stanowić oddzielne moduły łączone 
między sobą przewodami. Z jednym mikro- 
komputerem może współpracować od 1 do 4 
napędów dyskietek. Poszczególne napędy 
oznaczone są literami A, B, C, D. W takim 
wypadku jeden zasilacz obsługuje dwa napędy 
dyskietek. Pracą napędów zarządza sterownik 
(controber). Jest to samodzielny mikrokom- 
puter zawierający mikroprocesor 280 A i 16kB 
pamięci RAM. W pamięci tej rezyduje system 
operacyjny DOS. Sterownik ma dodatkowo 
wyprowadzone na zewnątrz dwa łącza typu 
RS-232C, umożliwiające współpracę z innymi 
komputerami oraz urządzeniami zewnętrz- 
nymi takimi jak: modemy, drukarki, plotery 
itp. 

Nośnikiem informacji jest dyskietka o 
średnicy 3 cali. Jest to elastyczny krążek z 
tworzywa sztucznego, pokryty materiałem 
magnetycznym i zamknięty w sztywnej pla- 
stikowej kasecie. W kasecie znajdują się dwa 
okienka, przez które dyskietka ma styczność z 
głowicami odczytu — zapisu odpowiedniego 
napędu. Gdy dyskietka znajduje się na ze- 
wnątrz napędu, to okienka są zamknięte za- 
słonami i chronią powierzchnię roboczą dy- 
skietki przed zanieczyszczeniami. W czasie 
wsuwania dyskietki do napędu, zasłony auto- 
matycznie otwierają się i umożliwiają styk 
głowic z dyskietką. 

Informacja na dyskietce jest zapisana na 
dwóch powierzchniach oznaczonych literami 
A i B. Napęd dyskietki umożliwia jednocześ- 
nie dostęp tylko do jednej powierzchni A lub 
B. Pojemność jednej powierzchni wynosi 160 
kB, a całej dyskietki 320 kB. Powierzchnia ro- 
bocza dyskietki podzielona jest przez DOS 
w trakcie jej formatowania na 40 ścieżek po 16 
sektorów i po 256 bajtów w sektorze. W czasie 
odczytu lub zapisu dyskietka wiruje ze stałą 
prędkością. Dyskietka ma mechaniczne za- 
bezpieczenia przed możliwością niepożądane- 
go zapisu w postaci małych plastikowych 
przycisków. Wciśnięcie przycisku uniemożli- 
wia zapis na dyskietce. 

Producenci dyskietek zalecają, aby dyskie- 
tek nie poddawać działaniu pól magnety- 
cznych, wysokiej temperaturze, nie dotykać 
żadnymi przedmiotami powierzchni robo- 
czych i chronić przed kurzem i wilgocią. Prze- 
strzeganie tych zaleceń zapewni niezawodność 
użytkowania dyskietki. 

Informacje zapisywane na dyskietkach 
(programy, zbiory danych) są organizowane 
przez DOS w odpowiednie struktury danych. 
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Dane można grupować w katalogach, te kata- 
logi zagnieżdżać w innych katalogach itp. Two- 
rzy się w ten sposób „drzewo struktury da- 
nych”. Zaletą takiej organizacji jest możliwość 
dogodnego podziału istniejących grup infor- 
macji i programów wg nazw katalogów i zbio- 
rów. Schemat takiej struktury przedstawia 
poniższy rysunek. Na rysunku przedstawiono 
przykładową strukturę katalogów i zbiorów, 
utworzoną dla potrzeb np. kolekcjonera 
znaczków pocztowych i etykietek zapałcza- 
nych. Katalogiem głównym jest tu katalog o 
nazwie KOLEKCJA. DIR, który zawiera 
dwa katalogi niższego poziomu o nazwach 
ZNACZKI. DIR i ETYKIETY. DIR oraz 
program obsługujący te zbiory o nazwie 
HOBBY. BAS. Z kolei katalog ZNACZKI. 
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DIR znów zawiera dwa katalogi ZNKR. DIR 
I ZNZAGR. DIR, a katalog ETYKIETY. 
DIR zawiera już nazwy zbiorów etykiet. Na- 
zwy zbiorów znaczków krajowych i zagrani- 
cznych zawierają katalogi ZNKR. DIR i ZN- 
ZAGR. DIR. Nazwa katalogu lub zbioru mo- 
że zawierać maksymalnie 8 liter i cyfr i zaczy- 
na się od litery. Po kropce podaje się tzw. roz- 
szerzenie. Rozszerzenie DIR oznacza, że na- 
zwa jest nazwą katalogu, a np. BAS oznacza 
nazwę zbioru będącego programem w języku 
BASIC. Katalogi muszą być obowiązkowo 
oznaczone rozszerzeniem DIR, natomiast 
zbiory mogą mieć rozszerzenie dowolne lub 
nie posiadać ich wcale. 

Dojście do zbioru znajdującego się na 
najniższym poziomie odbywa się poprzez 
określenie tzw. drogi do zbioru lub ciągu 
nazw katalogów i zbioru. Przykładowo, aby 
dojść do zbioru znaczków KOSMOS, należy 
określić ciąg nazw w sposób następujący: 
KOLEKCJA. DIR: ZNACZKI. DIR: 

ZNKR. DIR: KOSMOS 

Tworzenie katalogów i zbiorów odbywa się 
za pomocą dyrektywy DIM i podania ciągu 
nazw. Na przykład, aby utworzyć katalog 
ZNKR. DIR, trzeba przedtem utworzyć kata- 
logi KOLEKCJA. DIR I ZNACZKI. DIR. 
Będzie to wyglądało następująco: 

DIM „KOLEKCJA. DIR” — utworzenie ka- 
talogu KOLEKCJA. DIR 
DIM „KOLEKCJA.DIR: ZNACZKI.DIR” 
— utworzenie katalogu ZNACZKI.DIR 


DIM „KOLEKCJA.DIR: ZNACZKI.DIR: 
ZNKR.DIR” — utworzenie katalogu 
ZNKR. DIR 

Informację o zawartości katalogów uzysku- 
jemy za pomocą dyrektywy CAT i odpo- 
wiedniego ciągu nazw do katalogu. Chcąc 
uzyskać informację o zawartości katalogu 
ZNZAGR. DIR polecenie należy sformuło- 
wać następująco: 

CAT „KOLEKCJA.DIR: ZNACZKI.- 
DIR: ZNZGR.DIR” 

W wyniku wykonywania tej dyrektywy na 
ekranie wyświetli się wykaz zbiorów znajdują- 
cych się w katalogu ZNZAGR. DIR z infor- 
macją o wielkości zbioru w bajtach i o wiel- 
kości pamięci zajętej przez ten zbiór. Wystę- 
puje tu pewna rozrzutność w gospodarowaniu 
pojemnością dyskietki przez DOS, który na 
zbiór rezerwuje obszar w pełnych kB i np. 
zbiór o wielkości 50 B będzie miał zarezerwo- 
wane 1 kB, a zbiór o 1040B — 2 kB. 

Zbiory mogą być programowo zabezpieczo- 
ne przed zapisem lub odczytem. Ochrona 
przed odczytem polega na tym, że nazwy 
zbiorów nie wpisują się w trakcie działania 
dyrektywy CAT, są niewidoczne. Ochrony 
zbiorów przed zapisem lub odczytem i zdjęcie 
tej ochrony dokonuje się za pomocą dyrekty- 
wy ATTR. 

Zabezpieczenie programowe nie chroni 
przed zniszczeniem informacji dyrektywą 
FORMAT. Dyrektywa ta przygotowuje dy- 
skietkę do pracy z DOS. Wyznacza ona ścież- 
ki i sektory dyskietki oraz zeruje dyskietkę. 
Czynność ta nazywa się formatowaniem dy- 
skietki. Ponieważ dyrektywa ta niszczy całą 
zawartość dyskietki, nalfcży się dobrze zasta- 
nowić przed jej formatowaniem, aby nie zni- 
szczyć przypadkowo ważnych informacji. 

Zapisu do zbioru, odczytu ze zbioru, łącze- 
nia dwóch zbiorów dokonuje się za pomocą 
dyrektyw podobnych jak przy współpracy z 
magnetofonem kasetowym. I tak SAVE — 
powoduje zapis do zbioru, LOAD — powo- 
duje przepisanie zbioru do pamięci LOAD 
musi być obowiązkowo podana nazwa zbioru 
lub ciąg nazw. MERGE — pozwala na połą- 
czenie dwóch zbiorów w RAM. W programie 
można używać dyrektyw zarówno do współ- 
pracy z pmd, jak i magnetofonem. DOS roz- 
różnia dyrektywę LOAD od LOAD. Dyrek- 
tyw LOAD i SAVE można używać do odczy- 
tu i zapisu obrazów monitora, tablic, progra- 
mów w języku BASIC i kodzie maszynowym. 

Oprócz tego istnieją dyrektywy pozwalające 
na: 

— skasowanie wybranego zbioru — ERA- 
SE 

— zmiany nazwy zbioru — LET 

— kopiowanie zbiorów z jednego katalogu 
do innego — MOWĘ 

Dla ułatwienia pracy można tworzyć pro- 
gram startu, który automatycznie uruchamia 
się po wczytaniu i naciśnięciu przycisku RE- 
SET na sprzęgu pmd. Program ten może 
ściągać z dyskietki do RAM potrzebne do dal- 
szej pracy zbiory i programy, wyświetlać listę 
czynności, itp. 

Jak więc widać, pmd ma wiele zalet, zapi- 
sywanie i wczytywanie programów z dyskietki 
jest wielokrotnie szybsze w porównaniu z 
magnetofonem i bardziej niezawodne. Pro- 
gramy mogą się w każdej chwili komunikować 
z dyskiem i pobierać potrzebne dane, a także 
zapisywać wyniki obliczeń. Wadą zaś jest zbyt 
wysoka cena. Pamięć mikrodyskowa jest kil- 
kakrotnie droższa od samego mikrokompute- 
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W szponach Atari (U) 

Graficzna prezentacja 
danych liczbowych 

Tomasz MROWIEĆ, Ludwik PIELA 

Dane, przedstawione w postaci kolumn liczb lub tablicy, trudniej jest zwy- 
kle analizować niż ich graficzną prezentację w postaci wykresów. Te ostat- 
nie pozwalają szybciej ocenić informację zawartą w zbiorze liczb. Umożli- 
wiają poglądowe przedstawienie różnorodnych zależności między danymi, 
które często trudno wykryć w kolumnie wydrukowanych liczb. 


Programy przeznaczone do graficznej 
prezentacji danych liczbowych wchodzą w 
skład oprogramowania większości kompu- 
terów O ich przydatności najlepiej świadczy 
fakt, że są elementem składowym więk- 
szości pakietów zintegrowanych „powa- 
żnych" mikrokomputerów. Również kompu- 
tery domowe, tej klasy co Atari serii XL lub 
XE, posiadają zwykle kilka programów tego 
typu. Dla Atari są to, na przykład: GRAPH IT. 
SYNGRAPH oraz B/GRAPH. Zwykle są to 
programy uniwersalne, przeznaczone albo 
wyłącznie do graficznej prezentacji danych 
(GRAPH IT), albo do obliczeń statysty- 
cznych z możliwością wyprowadzania wyni- 
ków w postaci graficznej (B/GRAPH). 

Często zdarza się jednak, że chcemy 
przedstawić w postaci graficznej wyniki ob- 
liczeń własnego programu. Wtedy musimy 
włączyć do niego moduł tworzący odpo- 
wiednie wykresy, albo dysponować pro- 
gramem, który przyjmie wyniki w charakte- 
rze danych wejściowych i przedstawi je w 
postaci graficznej Dlatego spróbujemy za- 
prezentować kilka metod i przykładowych 
programów umożliwiających uzyskanie kil- 
ku podstawowych typów wykresów i dia- 
gramów, od najprostszych do dosyć wyrafi- 
nowanych. Mamy nadzieję, że czytelnicy 
zaadaptują je do własnych potrzeb oraz 
uzupełnią o dodatkowe możliwości 

Do tworzenia wykresów można używać 
dowolnego trybu graficznego komputera 
Atari oraz odpowiednich instrukcji, bądź 
PRINT do trybów tekstowych, bądź PLOT i 
DRAWTO dla graficznych. Chociaż w pew- 
nych przypadkach wygodnie jest posługi- 
wać się instrukcją PRINT, to środki grafi- 
czne pozwalają tworzyć wykresy bardziej 
szczegółowe. 

Do najprostszych należą wykresy prezen- 
tujące ogólne tendencje lub charakter 
zmian danych, zwykle bez żadnego lub z 
minimalnym opisem. Mogą one przedsta- 
wiać, na przykład, obraz zmian jakiejś wiel- 
kości w zadanym okresie. Można go tak 
umieścić, aby wielkości odkładały się albo 
w poziomie, albo w pionie. W pierwszym 
przypadku okresy czasu odliczane są od 
góry do dołu. a odpowiadające im wielkości 
— w kierunku poziomym od lewej do prawej. 

Przybliżony wykres wartości można utwo- 
rzyć wyświetlając wybrane symbole w 
miejscach ekranu odpowiadających ich 
względnym wartościom. Załóżmy, że posta- 
nowiliśmy umieszczać wielkości poziomo 
na ekranie, który, ma 24 wiersze po 40 zna- 
ków Pozycje symboli w linii numerujemy od 


lewej do prawej od 0 do 39, a wiersze — z gó- 
ry na dół od 0 do 23 Będziemy wykreślać 
tylko w wierszach nieparzystych, a w nich 
dla przedstawienia wartości — pozycje od 8 
do 38 W tym przypadku maksymalna wiel- 
kość odpowiadać będzie 38 pozycji, a mi- 
nimalna — 8 pozycji. 

W celu zobrazowania wielkości w zakre- 
sie od 8 do 38 pozycji musimy wykonać ska- 
lowanie Możemy to zrobić według następu- 
jącego wzoru: 

N=(W— Wm)*Zp/ Zw+Nm 
gdzie: 

N — numer pozycji w wierszu. 

W — kreślona wielkość, 

Wm — wielkość minimalna, 

Zp — zakres numerów pozycji, 

Zw — zakres wielkości, 

Nm — pozycja minimalna. 

W naszym przykładzie zakres wartości 
przedstawianych danych równy jest 
WM — Wm, zakres numerów pozycji 
38—8=30 i numer pozycji minimalnej — 8. 
A zatem numer pozycji wydruku symbolu 
gwiazdki („*'') w wierszu, dla dowolnej war- 
tości przedstawianych danych, można wy- 
znaczyć według wzoru: v 
Np=(W— Wm)*30/ (WM-Wm)+8 

FK 1 REM **************1* 

FJ 2 REM * * 

XA 3 REM * Pro«r*« nr 1 * 

FL 4 REM * * 

F0 3 REM **************** 

NL 6 REM 

LS 40 GRAPHICS 0 

Mfl 50 R*< 38-8)/ <651 -99) 

GH 60 FOR K-l TO 10 
XQ 65 PRINT 
DH 70 READ S 

MX 80 P“INT < <S-99)*R+8+0. 5) 

EM 90 FOR I-l TO P-l 'PRINT " H i -N 
EXT I 

EE 100 PRINT '**" 

GP 120 NEXT K 

HU 130 DATA 210,150,99,250,183,33 
2,410,398,300,651 
NG 140 GOTO 140 

Program nr 1 tworzy przybliżony wykres 
wykorzystując powyższy wzór. Dla każdej 
wartości wyznaczana jest pozycja wydruku 
symbolu gwiazdki, która zaokrąglona jest do 
najbliższej wartości całkowitej za pomocą 
funkcji INT. Po pewnych modyfikacjach 
program może pracować z dowolnym zbio- 
rem danych, przy dowolnych wymiarach 
ekranu. W tym celu w podanym wzorze nale- 
ży wykorzystać wartości minimalną i mak- 
symalną oraz numery pozycji wprowadzo- 
ne instrukcją INPUT. 


Aby otrzymać wykres, w którym wartości 
odkładają się w pionie, wprowadzimy do 
powyższego programu dwie zmiany. Po 
pierwsze, dla każdego elementu danych , 
określimy odpowiedni numer wiersza. Po 
drugie, w tej linii wybierzemy numer pozycji, 
odpowiadający zadanemu okresowi czasu. 

W ten sposób każdy element danych będzie 
przedstawiony na ekranie symbolem 
gwiazdki, w pozycji o obliczonych numerach 
wiersza i kolumny. 

Do wskazania odpowiedniej pozycji 
gwiazdki na ekranie można wykorzystać ins- 
trukcję POSITION, która określa położenie 
symbolu na ekranie dla następnej instrukcji 
PRINT. 

Dla danych, używanych w programie nr 1 
i dla ekranu zawierającego 24 wiersze po 40 
znaków, wybierzemy dla miesięcy każdą 
trzecią kolumnę, zaczynając od 3, a koń- 
cząc na 36. Na wykres wykorzystamy 20 
górnych linii ekranu. W tym przypadku war- 
tości maksymalnej (724) odpowiadać bę- 
dzie pozycja 33 najwyższego wiersza ekra- 
nu (o numerze 1). Numery pozycji wzdłuz 
każdego wiersza określa się jako 3*M, gdzie 
M — numer miesiąca Dla skalowania war- 
tości w zakresie pierwszych 20 wierszy 
ekranu wykorzystamy następujący wzór: 
Nw=(WM— W)*Zw/Z+Sm 
gdzie 

Nw — numer wiersza, 

WM — wartość maksymalna 
W — wartość bieżąca, 

Zw — zakres wierszy. 

Z — zakres wartości, 

Sm — minimalny numer wiersza. 

FK 1 REM **************** 

FJ 2 REM * * 

XU 3 REM * Proir*M nr 2 * 

FL 4 REM * * 

F0 5 REM **************** 

NL 6 REM 

CL 50 GRAPHICS 0 : POKE 732,2 
HP 60 T«<20-l)/< 724-99) 

IT 70 FOR M-l TO 12 
DI 80 RE AD S 

MT 90 WI-INT<<724-S)*T+l+0.5) 

SZ 100 KG-M*3 
PP 110 POSITION KO, NI 
KC 120 PRINT "fi 
HL 130 NEXT M 

LY 140 DATA 210.150,99,250,183,35 
2,410,390,300,651,724,516 
NT 150 GOTO 150 

W tym przykładzie zakres numerów wier- 
szy wynosi 19 (czyli 20—1), minimalny nu- 
mer wiersza równy jest 1 . Opisane zadanie 
realizuje program nr 2. Można go tak zmody- 
fikować, aby zapewnić dowolne położenie 
wykresu. W takim przypadku żądane liczby 
wierszy i kolumn wydruku wprowadza się za 
pomocą instrukcji INPUT. Zakres wartości 
danych i wartość maksymalna mogą być . 
określone przez program podczas wprowa- 
dzania danych. 

Powyższe przykłady byłyby bardzo przy- 
datne, gdybyśmy chcieli pracować wyłą- 
cznie w trybie tekstowym. Możemy jednak 
wybrać jeden z wielu trybów graficznych i 
wykorzystać specjalne instrukcje grąficzne 
w celu działania na współrzędnych punktów 
elementarnych, zamiast na numerach wier- 
szy i kolumn. Zyskamy wtedy na dokład- 
ności wykresu. Spróbujmy zatem utworzyć 
wykres, podobny do powyższych, wykorzy- 
stując instrukcję PLOT. Załóżmy, że roz- 
dzielczość ekranu równa jest 160 punk- 
tów w poziomie i 80 punktów w pionie ^ 
(GRAPHICS 7). Wykres rozmieścimy tak. W 
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a aby wykorzystać linie od 9 do 79 i kolumny 
▼ od 1 0 do 1 20. Dla oznaczenia miesięcy uży- 
jemy co 1 0 punktu zaczynając od 1 0. W celu 
wyskalowania wartości danych w zakresie 
od 0 do 79 wykorzystamy następujący wzór: 

Y=(WM— W)*Zw/Z+Ym 

Omawiany, bardzo uproszczony, wykres 
pionowy kreślony jest przez program nr 3. 
Aby otrzymać wykres, w którym wartości 
danych odkładają się w poziomie, należy 
zamienić miejscami współrzędne X i Y, bio- 
rąc pod uwagę rozmiary ekranu. 

FK 1 REM **************** 

YO 3 rIH I Prot r*m nr 3 I 
FL 4 REM * * 

FO 3 REM **************** 

NL 6 REM 

YG 50 GRAPHICS 7-C0L0R 1 
HL 60 R»<40-0)/< 724-99) 

HA 70 X-10 

IE 80 FOR K-l TO 12 

DJ 90 READ 9 

VA 100 Y-INT<<724-S)*R+0.5> 

SU 110 PLOT X, Y 
PO 120 X»X+10 
GR 130 NEXT K 

LY 140 DATA 210, 150, 99, 250, 183/ 35 

2,410,390,300,651,724,516 
OA 150 END 

Punkty wykresu można połączyć między 
sobą odcinkami prostych. Taki wykres, 
zwany liniowym, tworzony jest przez pro- 
gram nr 4. 

FK 1 REM **************** 

FJ 2 REM * * 

ZI 3 REM * Protr*m nr 4 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

YG 50 GRAPHICS 7'COLOR 1 
GL 60 DIM X< 12) , Y<12) 

HM 70 R-< 40-0 >/< 724-99) 

WV 80 XI -20 

IV 90 FOR M-l TO 12 

ZE 100 READ S 

DQ 110 Y<M)»INT <<724-S)*R+0. 5) 

VK 120 X<M)»X1 
IK 130 X1»X1+10 
HN 140 NEXT M 
XN 150 PLOT X< 1 ) , Y< 1 ) 

TI 160 FOR K-2 TO 12 
W 170 DRAWTO X<K) , Y<K> 

HB 180 NEXT K 

MI 190 DATA 210,150,99,250,183,35 

2,410,390,300,651,724,516 
NR 200 END 

Najprostsze metody, opisane powyżej, 
przydatne są do szybkiego tworzenia pro- 
stych wykresów i przedstawiania charakteru 
zmian danych. Zawierają one jednak zbyt 
mało informacji ilościowej. Zwykle interesu- 
je nas uzyskanie z wykresu informacji bar- 
dziej szczegółowych. Wyskalowanie i opi- 
sanie osi współrzędnych pozwala dokładniej 
określić zależności między wielkościami, a 
także dokonać interpolacji danych. 

Opisywanie wykresów wymaga pewnych 
zmian w równaniach skalowania. Wybiera- 
jąc zakres wartości należy uwzględnić opis 
osi współrzędnych. Jeśli, na przykład, 
przetwarzamy zbiór liczb o zakresie wartoś- 
ci (—96, 89), a osie współrzędnych opisane 
są w przedziale (—100, 100), to w równa- 
niach należy podstawić zakres wartości 
równy 200. Analogicznie, wartość minimal- 
na będzie równa —100, a maksymalna — 
100. ' 

Osie współrzędnych możemy wykreślić 
za pomocą ciągu symboli „+", lub tak 
jak w programie nr 5. Kreśli on wykres punk- 
towy w trybie tekstowym, pomimo tego osie 
są wyskalowane i opisane. 
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FK 1 REM **************** 

FJ 2 REM * * 

AC 3 REM * Program nr 5 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

FR 40 DIM M* < 3 ) , CLS* < 1 ) > CLS*"CHR$ 
< 125) 'POKE 752,1 
VO 45 ? CLS* 

YJ 50 POSITION 11,0.? "ROCZNY WYK 

ppe f-erijii 

CD 70 POSITION 6,2«? " 1 2 

3 4 5 6 7 8" 

VR 80 POSITION 6,3.? " 0 0 

0 0 0 0 0 0" 

IP 90 POSITION 6,4? "0 0 0 

0 0 0 0 0 0" 

NM 100 POSITION 6,5'? "+ + +- 

WY 110 R»< 38-6)/ <800-0) 

HN 120 MIN- 10000 
BE 130 MAX«=0 
HN 140 T-0 

SV 150 FOR K-l TO 12 
WJ 160 READ M*,S 
PB 170 IF S<MIN THEN MIN-S 
SZ 180 IF S>MAX THEN MAX»S 
HO 190 T-T+S 

HC 200 P= I NT < < S-0 ) *R+6+0 . 5 ) 

DD 210 POSITION 0, K+5 1 ? M*; " •" 

J -POSITION P,K+5‘? "*"; "P0SITI 
ON 38, K+5'? " 

GQ 220 NEXT K 

IV 230 POSITION 6, 18 > ? “+ + + 

NT 250 POSITION 11,20.? "CENA MIN 
IMALNA "; 'POSITION 29+<3-LEN<S 
TR*<MIN) ) ) , 20 1 ? MIN; 

UH 260 POSITION 11,21-? "CENA MAK 
8YMALNA -POSITION 29+<3-LEN< 
STR*<MAX) ) ) , 21 ' ? MAX; 

KX 270 POSITION 11,23'? "CENA SRE 
DNIA POSITION 29+<3~LEN<STR 
*<INT<T/12)))),23'? INT< 10*T/1 
2)/10; 

PR 280 GOTO 280 

FB 290 DATA STY, 210, LUT, 155, MAR, 7 
9 , KW I , 1 50 , MAJ , 1 75 , CZE , 252 , L I P , 
510, SIE, 280, WRZ, 300, PAZ, 751 , LI 
S, 724, GRU, 726 


' Wygodniejszym sposobem kreślenia osi 
współrzędnych jest użycie trybu graficznego 
o dużej rozdzielczości. Pojawia się jednak 
pewien problem z opisywaniem wykresów. 
W komputerach Atari za pomocą instrukcji 
języka BASIC nie możemy, w sposób bez- 
pośredni, umieścić znaków alfabetycznych 
w dowolnym miejscu ekranu (za wyjątkiem 
okna tekstowego). Musimy do tego wyko- 
rzystać specjalny podprogram „kreślący” te 
znaki. W programie nr 6, i dalszych, zaczyna 
ąię on od linii 10000. Przed wywołaniem go 
należy określić współrzędne położenia po- 
czątku tekstu (X i Y w liniach ekranu), a dru- 
kowany tekst umieścić w zmiennej teksto- 
wej T. Niestety, takie rozwiązanie ogranicza 
możliwości używania różnych trybów grafi- 
cznych. Wykresy z opisami (czytelnymi) 
możemy uzyskać tylko w trybie graficznym 
8 . 


MH 160 NEXT Y 
RA 170 REM 
AP 180 Y-19 

WL 190 FOR S-0 TO 800 STEP 100 

XE 200 

>»STR*<S) 

AP 210 X-6 - GOSUB 10000 
YO 220 Y-Y-2 
JU 230 NEXT S 
QV 240 REM 

OA 250 FOR CO- 12 TO 34 STEP 2 
BZ 260 X*CO 1 Y-19 ' T*-"+" 

SP 270 GOSUB 10008 
LL 280 NEXT CO 

NJ 290 T*="8 LMKMCLSWPL 
G" :X= 12- Y-20. GOSUB 10000 
GM 300 Tt-"T U A W A Z I I R A I 
R " ' X- 1 2 > Y-2 1 * GOSUB 1 0000 
YY 310 T*“"Y TRI JEPEZZS 
U" 'X-12'Y-22' GOSUB 10000 
IY 320 TX$-" WARTOŚĆ PRODUKCJI" 

SI 330 FOR K*1 TO 17 < T*-TX*(K,K) 
BM 340 X-2>Y-K+2> GOSUB 10000 
GX 350 NEXT K 
ZX 370 T«< 155-27)/<800-0) 

TQ 380 XI -96 
TF 390 FOR K-l TO 12 
UV 400 X<K)-X1 
LD 410 X1-X1+16 
ZL 420 READ 8 

JN 430 Y<K)-INT< <800-8 )*T+27+0. 5) 
GW 440 NEXT K 
SH 450 FOR K-l TO 11 
BY 460 PLOT X<K),Y<K)> DRAWTO X<K+ 
1>,Y<K+1) 

MG 480 PLOT X<K),Y<K)-1 'DRAWTO X< 
K+1),Y<K+1)-1 
HG 490 NEXT K 

LU 500 DATA 210,150,99,250,183,35 

2,410,390,300,651,724,516 
NL 518 GOTO 510 

WV 9999 REM ZNAKI W GRAFICE 8 

ZT 10000 START -PEEK < 89 ) *256+PEEK < 
88)+40*Y*6+X 

' Podczas tworzenia wykresów z opisem 
osi należy przestrzegać 'pewnych reguł. 
Opis powinien być prosty i krótki. Większa 
ilość objaśnień komplikuje wykres i utrudnia 
jego analizę. Tekst wyjaśniający należy 
umieszczać, w miarę możliwości, w tym 
wierszu lub obszarze co obrazowane dane, 
a nie wynosić go w dodatkowe tablice lub 
opisy. Krok opisu osi współrzędnych należy 
wybrać dogodnym do analizy wykresu, na 
przykład, krok opisu równy 10 będzie wy- 
godniejszy, niż krok opisu równy 7. Analizę 
ułatwia zaznaczenie początku układu 
współrzędnych. Przydatne jest również, 
szczególnie dla ułatwienia interpolacji da- 
nych, naniesienie podziałów na osiach 
współrzędnych. Linie wykresu powinny być 
grubsze lub jaśniejsze niż osie lub linie siatki 
współrzędnych. 

Powyższe zalecenia zostały uwzględnio- 
ne podczas tworzenia wykresu programem 
nr 6. 

Wygodnym sposobem, ułatwiającym ana- 
lizę, jest przedstawienie danych w postaci 
zbioru kolumn, zamiast oddzielnych punk- 
tów. Sposób ten ilustruje program nr 7, wy- 
korzystujący instrukcję PRINT do tworzenia 
wykresu. 

Przykładem tworzenia histogramu (wyk- 
resu słupkowego) w trybie graficznym jest 
program nr 8. W otrzymanym wykresie sze- 
rokość kolumn równa jest szerokości od- 
stępu między nimi. 1 Należy trzymać się tej 
zasady, ponieważ wąskie słupki są mniej 
poglądowe. 

Wygląd lub poglądowość kreślonych hi- 
stogramów można poprawić za pomocą ko- 
lorów. Wyboru kombinacji kolorów należy 
dokonać bardzo ostrożnie, gdyż zbyt duża 
ich liczba lub ich niezgodność mogą pogor- 
szyć wygląd. 


FK 1 REM **************** 

FJ 2 REM * * 

AW 3 REM * Prof r*m nr 6 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

AD 60 DIM X<12),Y<*2),T$<40),TX*< 
21) 

NT 80 GRAPHICS 8+16-C0L0R 1 
CW 100 T*»" WYKRES PRODUKC J I" - X- 1 5 
>Y-1> GOSUB 10000 
EH 110 PLOT 80, 27- DRAWTO 80,155 
WE 120 PLOT 304, 155- DRAWTO 304,27 
QF 140 FOR Y-27 TO 155 STEP 16 
WF 150 PLOT 79, Y- DRAWTO 304, Y 


FK 1 REM **************** 

FJ 2 REM * * 

BQ 3 REM * Prot r*m nr 7 * 

FL 4 REM * * 

fo s rem **************** 

NL 6 REM 

FR 40 DIM M* < 3 ) , CLS* < 1 > ' CLSi-CHR* 
< 125) 'POKE 752, 1 
VQ 45 ? CLS* 

YJ 50 P08ITI0N 11,0'? "ROCZNY WYK 
RES CEN" 

CD 70 P03ITI0N 6,2>? " 1 2 

3 4 5 6 7 8" 

VR 80 P08ITI0N 6,3'? " 0 0 

0 .0 0 0 0 0 " 

IP 90 P031TI0N 6,4'? "0 0 0 

0 0 0 0 0 0 " 

NM 100 POSITION 6,5'? "+ + +- 


WY 110 R- < 38-6 ) /" ( 800-0 ) 

HN 120 MIN- 10000 
BE 130 MRX-0 
HN 140 T-0 

SV 156 FOR K-l TO 12 
WJ 160 RERD M*,S 
PB 170 IF 8<MIN THEN MIN-8 
8Z 180 IF 8>MRX THEN MAX-S 
HO 190 T-T+S 

HC 200 P-INT<<8-0>*R+6+0.5> 

UB 210 POSITION 0, K+5 ' ? M*i " 

t 'FOR C-7 TO P-? "*"j'NEXT C'P 
OSITION 38, K+5'? "'"i 
YW 215 REM W "*" mozn* w* 

tAuic 

DI 216 REM zn«k "U" <CHR*<21>> 

GQ 220 NEXT K 

IV 230 POSITION 6,18'? "+---+ + 

NT 250 POSITION 11,20'? "CENfi MIN 
IMRLNfl -POSITION 29+<3-LEN<S 
TR»<MIN))>,20'? MIN; 

UH 260 POSITION 11,21'? "CENA MRK 
8YMRLNR "i -POSITION 29+<3-LEN< 
STR*<MAX) ) > , 21 ' ? MRK i 
KX 270 POSITION 11,23'? "CENA SRE 
DNIA "; 'POSITION 29+<3-LEN<STR 
f<INT<T/12)))),23'? INT<10*T/1 
2 )/ 10 ; 

PR 280 GOTO 280 

RX 290 DRTR STY, 210, LUT, 155, MRR, 9 
9, KWI, 150,MRJ, 175, CZE, 252, LIP, 
510,8IE,590,WRZ,600,PRZ,751,LI 
S, 724, GRU, 726 

FK 1 REM **************** 

FJ 2 REM * * 

CK 3 REM * Protr*w nr 8 * * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

RD 60 DIM X<12>,Y<12>,T*<40),TX*< 
21 ) 

NT 80 GRAPHICS 8+16'COLOR 1 
CW 100 T*-" WYKRES PRODUKCJI "' X- 15 
i Y-l ' G08UB 10000 
ZK 110 PLOT 80,20' DRRWTO 80,163 
NL 120 PLOT 304, 163 'DRRWTO 304,20 
QE 125 PLOT 80, 163 -DRRWTO 304,163 
XT i 30 PLOT 304, 20 ‘DRRWTO 80,20 
TD 140 FOR Y-27 TO 155 STEP 8 
RR 150 PLOT 78, Y' DRRWTO 82, Y 
MH 160 NEXT Y 
RR 170 REM 
RP 180 Y-l 9 

WL 190 FOR S-0 TO 800 STEP 100 

XE 200 T*- T*<4-LEN<STR*<3) > 

)«8TR*<8) 

RP 210 X-6 1 G08UB 10000 
YO 220 Y-Y-2 
JU 230 NEXT S 
QV 240 REM 

OR 250 FOR CO- 12 TO 34 STEP 2 
XY 260 X-CO i Y-20 1 T *- " + " 

SP 270 GOSUB 10000 
LL 280 NEXT CO 

OZ 290 T*-"8 LMKMCLSWPL 
G"'X-12'Y-21 'GOSUB 10000 
IC 300 T*-"T U fl W fi Z I I RR I 
R"'X-12'Y-22' GOSUB 10000 
RO 310 T*-"Y TRIJEPEZZS 
U " . X- 1 2 ' Y-23 ■ G06UB 10000 
IY 320 TX*-" WARTOŚĆ PRODUKCJI" 


SI 330 FOR K-l TO 17 ' T*»TX*<K, K) 
BM 340 X-2 ' Y-K+2 ' GOSUB 10000 
GX 350 NEXT K 

IG 360 REM WYKREŚLANIE SŁUPKÓW 
ZX 370 T-< 155-27)/ (600-0) 

TQ 380 XI -96 

TF 390 FOR K-l TO 12 

ZL 420 RERD S 

KU 430 Y- 1 NT < < 800-S ) *T +27+0 . 5 ) 

SI 440 FOR X-X1 TO Xl+8 
XB 450 PLOT X,Y' DRRWTO X, 155 
MR 460 NEXT X 
LP 470 X1-X1+16 
HG 490 NEXT K 

LU 500 DRTR 210,150,99,250,183,35 
2,410,390,300,651,724,516 
NL 510 GOTO 510 
WV 9999 REM ZNAKI W GRAFICE 8 
ZT 10000 START -PEEK < 89 ) *256+PEEK ( 
88)+40*Y*8+X 

YC 10010 FOR El-1 TO LEN<T*>'E3»fi 
SC<T*<E1>> 

EL 10020 E3-E3+64* < E3 <32 > -32* < E3> 
31 AND E3<96) 

MK 10030 ZN-PEEK < 756 ) *256+E3*8 
ER 10040 FOR E2-7 TO 1 STEP -1 
VW 10050 POKE START +E2*40 , PEEK < ZN 
+E2) 1 NEXT E2 

SI 10060 X»X+1 ' IF X>-40 THEN STRR 
T-STRRT+40*8 ' X-0 

BT 10070 STRRT-STRRT+1 -NEXT El 'RE 
TURN 

FK 1 REM **************** 

FJ 2 REM * * 

DE 3 REM * Protmw nr 9 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

CY 10 REM ******************** 

CV 20 REM *KRESKOWRNE WYKRESY* 

RZ 30 REM * W GRAFICE 8 * 

YM 40 REM *Z OPISEM TEKSTOWYM* 

DC 50 REM ******************** 

VP 60 DIM T*<40) , TXS<21 ) 

NT 80 GRAPHICS 8+16'COLOR 1 
VD 100 T*-" PRODUKCJA GLOBALNA" -X- 
15 'Y-l 'GOSUB 10000 
AM 110 PLOT 80, 24 -DRRWTO 80,162 
RL 120 PLOT 304, 162 -DRRWTO 304,24 
OL 125 PLOT 80, 162 'DRRWTO 304,162 
EJ 130 PLOT 304, 24 -DRRWTO 80,24 
TV 140 FOR Y-36 TO 156 STEP 8 
AR 150 PLOT 78, Y 1 DRAWTO 82, Y 
MH 160 NEXT Y 
RA 170 REM 
RP 180 Y-19 

VY 190 FOR S-0 TO 30 STEP 10 
XE 200 T*-" . " 1 T*<4-LEN<STR*<S> > 
>-STR*<S> 

RP 210 X-6' GOSUB 10000 
ZP 220 Y-Y-5 
JU 230 NEXT S 

GK 290 X-0'Y»21 'T*-" KWARTAŁ " 'GOSU 
B 10000 

VL 300 X-13 1 Y-21 1 T*-" 1 2 

3 4" 'GOSUB 10000 

IW 310 TX*-" WARTOŚĆ PRODUKCJI" 

PU 320 FOR K-l TO 17'T*-TX*<K,K> < 
X-l- Y-K+2 'GOSUB 10000'NEXT K 
IM 330 TX*-"W MILIONACH ZL. " 

UE 340 FOR K-l TO 15 ' T*-TX*<K,K> ' 
X-3 ■ Y-K+4 ' GOSUB 10000'NEXT K 
DR 370 X-35'Y-8'T*-"W1"' GOSUB 100 
00 

SR 380 X-35'Y-13'T*-"W2"‘ GOSUB 10 
000 

WR 390 X-35 ' Y- 1 8 ' T*- " W3 " 1 GOSUB 10 
000 

II 410 T-< 1 56-36 )/< 30-0) 

ZL 420 XL-96 

BG 430 XR-XL+32 

QC 440 FOR Q-1 TO 4 

PN 450 YB-156 

DS 500 fl— 0 

KU 510 FOR D-l TO 3 

ZM 520 RERD S 

BM 540 S-S/10 rt 6 

UL 550 YT - 1 NT < ( 30-S ) *T+36+0 . 5 > 

PR 580 YT-YT-A 

KX 590 PLOT XL,YT' DRAWTO XL,YB 


SI 

600 

PLOT XR,YT- DRRWTO XRj YB 

10 

610 

PLOT XL,YT< DRRWTO XR, YT 

UQ 

630 

FOR XI -XR TO XL STEP -D*3 

II 

640 

X-X1 

TQ 

650 

Y-YT 

TJ 

660 

PLOT X, Y 

YD 

670 

Y-Y+l 

YJ 

680 

X-X-l 

QT 

690 

IF Y<-YB AND X>XL THEN 660 

GK 

700 

NEXT XI 

QP 

720 

FOR Yl-YT TO YB STEP D*3 

IT 

730 

Y-Yl 

SN 

740 

X-XR 

TI 

750 

PLOT X, Y 

YC 

760 

Y-Y+l 

YI 

770 

X"X-1 

QR 

780 

IF Y<"YB AND X>XL THEN 750 

HM 

790 

NEXT Y1 

CX 

810 

R-156-YT 

DT 

820 

YB-YT-1 

EG 

830 

NEXT D 

DH 

840 

XL"XL+48 

BO 

850 

XR-XL+32 

JO 

870 

NEXT Q 

MZ 

880 

DATA 7000000 , 1 1 000000 , 4000 


000 


XB 

890 

DRTR 8800000, 10500000,7000 


060 


VN 

900 

DRTR 4000000,12000000,8500 


000 


GZ 

910 

DRTR 7000000,11333000,1050 


0000 


PQ 920 GOTO 920 
WV 9999 REM ZNAKI W GRAFICE 8 
ZT 10000 STRRT-PEEK < 89 ) *256+PEEK < 
88>+40*Y*8+X 

YC 10010 FOR El-1 TO LEN<T*)'E3«fi 
SC<T*<Ei>> 

EL 10026 E3-E3+64* < E3 <32 ) -32* < E3> 
31 AND E3<96) 

GP 10025 IF E3“0 THEN 1006O 
MK 10030 ZN-PEEK < 756 )*256+E3*8 
ER 10040 FOR E2-7 TO 1 STEP -1 
VW 10050 POKE STRRT +E2*40 , PEEK < ZN 
+E2) ' NEXT E2 

SI 10060 X*X+1 1 IF X>-40 THEN STRR 
T-START+40*8 ' X-0 

BT 10070 START-STRRT+1 -NEXT El -RE 
TURN 


W wykresach kolorowych i czarno-bia- 
łych można stosować różnorodne warianty 
kreskowania. Podobnie, jak i przy wyborze 
kolorów, sposób kreskowania należy wy- 
brać w taki sposób aby nie pogorszyć wyg- 
lądu rysunku, Jeśli kreskowane są sąsied- 
nie obszary, najbardziej efektywne jest 
stopniowe zwiększanie kroku kreskowania 
Zgodnie z tym zaleceniem tworzony jest hi- 
stogram za pomocą programu nr 9. 


Wykresy punktowe, liniowe lub słupkowe 
umożliwiają przedstawienie zależności mię- 
dzy poszczególnymi wartościami. Niekiedy 
jednak chcemy pokazać, jakie są relacje 
wartości zarówno między sobą, jak i wzglę- 
dem ich wartości sumarycznej, czyli zale- 
żności względne. Można to zrobić za pomo- 
cą wykresu słupkowego, podobnie jak w 
programie nr 9. Jednak znacznie wygod- 
niejsze są diagramy kołowe, szczególnie do 
przedstawiania informacji o zależnościach 
procentowych. Poszczególne wartości 
przedstawiane są jako wycinki koła (sekto- 
ry). Pole powierzchni takiego wycinka tak 
się ma do pola powierzchni koła, jak przed- 
stawiana wartość do sumy prezentowanych 
wartości. Istnieje jednak pewne ogranicze- 
nie, Aby diagram był poglądowy, nie powi- 
nien mieć więcej niż 6 8 sektorów. 

Podczas tworzenia diagramów kołowych 
podstawowym skłaćniMem programu jest 
podprogram kreślenia okręgu. Jego szyb- a 
kość działania decyduje o szybkości kreś- ▼ 

J7 


Ł lenia diagramu. W programie nr 10 wyko- 
rzystano jedno z wielu możliwych rozwiązań 
opisanych w „IKS-ie" nr 5 z 1987 rokd. 

Odrębnym zadaniem jest pozycjonowanie 
tekstu nazwy sektora na diagramie. Realizu- 
je się to poprzez wyznaczenie dwusiecznej 
kąta każdego sektora. Jeśli diagram umie- 
szczony jest w prawej części koła, początek 
nazwy będzie umieszczony na dwusiecznej, 
w odległości czterech kroków rastra od ok- 
ręgu. Jeśli sektor leży w lewej części dia- 
gramu, jego nazwa kończy się na dwusie- 
cznej. Początkową pozycję wyświetlania 
nazwy określa się za pomocą operacji 
przekształcania współrzędnej punktu w nu- 
mer pozycji znaku. W tym celu współrzędne 
X i V dzieli się przez liczbę elementów rastra 
przypadających odpowiednio w poziomie i 
pionie na 1 znak. 


QO 1 REM m*«X*X*****»«** 

IB 2 REM * * 

MQ 3 REM * Proirtm nr 10 * 

ID 4 REM * * 

08 9 REM XXXXXXXXXXXXXXXX* 

NL 6 REM 

LQ 20 GRAPHIC8 0 

QX 30 DIM NK100>,V<8>jTI<40>,XI< 
40) > D(0> 

BP 40 XM-320'YM-192 
LH 100 Cl *40 
EE 110 PC-XM/C1 
GK 150 PR-8 
CO 160 7 

8G 170 ? "PODAJ WSPÓŁRZĘDNE 8R0DK 
A WYKRESU" 

IF 100 ? "X*" J 1 INPUT XC 
JI 190 ? "Y*"J ■ INPUT YC 
W 200 7 "PODAJ PROMIEŃ WYKRESU " 
J - INPUT R 

NE 210 IF XC+R>XM 0« XC-R<0 OR YC 
+R>YM OR YC-R<0 THEN 830 
CJ 220 7 

TG 230 7 "PODAJ ILOSC DANYCH <MAX 
0 )" 

ON 240 INPUT N 

OL 250 7 "PODAJ NAZWĘ WYKRESU" 

HV 260 INPUT Tl 

BV 270 7 "PODAJ NAZWĘ I WARTOŚĆ " 
HW 280 T*0 

RQ 290 L*1 'REM WPROWADZANIE NAZW 
I WARTOŚCI DANYCH 
DR 300 FOR K*1 TO N 
HA 310 7 "NAZWA "jKj ' INPUT XI'? " 
WART08C "j 'INPUT V-NI<L)*XI'D< 
K)*LEN<XI)'XI*""'V<K>*V 
FH 320 T*T+V<K)'L*L+D<K> 

GT 330 NEXT K 

UP 350 GRAPHICS 8+16'COLOR 1 
CL 360 X*INT<Cl/2-0.5*LEN<TI))'Y* 


1 ' REM CENTROWANIE TYTUŁU 
AC 370 GOSUB 10000 'REM WYPISANIE 
' TYTUŁU 

GK 380 GOSUB 11000 'REM KREŚLENIE 
OKRĘGU 
CL 390 YR-1 
DW 408 B-0 
HF 410 S-0 

GD 420 RE-36013. 14159/180 
CO 425 LL-1 
DY 430 FOR K-l TO N 
WB 460 S*S+V<K> 

JW 490 A-REIS/T 
SI 500 XP-XC+R*COS<A> 

OL 510 YP-YC+R*SIN<A)*YA 
PQ 520 PLOT XC/ YC ' DRAWTO XP,YP 
MW 560 AC*B+<A-B>/2 
ZP 570 XL"XC+ < R+4 ) #COS < AC ) 

KE 580 YL*YC+ < R+4 ) *S I N< AC ) #YA 


SX m « MPk 

WY JE8LI JEST ONA Z PRAWEJ STR 
ONY OKRĘGU 

OY 610 REM KONlfcC NAZWY JEŚLI Z L 
EWEJ 

WV 620 REM 8R0DEK NAZWY JE8LI NA 
DOLE LUB GÓRZE OKRĘGU 
HN 630 REM PUNKT POCZĄTKOWY 
XX 640 IF XL> XC+ 1 0 THEN 740 
BY 650 REM PUNKT KOŃCOWY 
VQ 660 IF XL <XC“10 THEN 710 
WN 670 REM PUNKT ŚRODKOWY 
TA 690 XL-XL-D<K>/2*PC 
700 GOTO 740 
QU 710 REM 

YE 730 XL*XL-D<K)XPC 
DZ 740 REM K0NWER8JA PUNKTU GR.8 
NA POZYCJE ZNAKU 
PS 760 RO* I NT < YL/PR+0 . 5 ) 

DF 770 CO-INT<XL/PC+0.5) 

DE 780 X*CO ' Y*R0 ' T l*NI < LL i LL- 1 +D < 
K))'LL*LL+D<K> 

SY 790 GOSUB 10000 
IP 800 B»A 
GU 810 NEXT K 
PF 820 GOTO 820 

RE 830 GRAPHICS 0'? "ZLE WSPOLRZE 
DNE I ! " ' FOR 1*1 TO 1000'NEXT I 
■RUN 

WV 9999 REM ZNAKI W GRAFICE 8 
ZT 10000 START *PEEK < 89 ) 1256+PEEK ( 
88>+40XY*8*X 

YC 10010 FOR El*l TO LEN<TI)'E3*A 
SC(TI(E1 ) > 

EL 10020 E3-£3+64X<E3<32)-32X<E3> 
31 AND E3<96> 

GP 10025 IF E3-0 THEN 10060 
MK 10030 ZN*PEEK < 756 ) X256+E3*8 
EA 10040 FOR E2*7 TO 1 1 STEP -1 
VW 10050 POKE START+E2I40; PEEK<ZN 
+E2) ' NEXT E2 

SI 10060 X*X+1 1 IF X>*40 THEN STAR 



Siar Computer 

Printera 

NB-15 


T-START+4018 ' X-0 

BT 10070 START-START+1 'NEXT El 'RE 
TURN 

UE 10999 REM PODPROGRAM KRE8LENIA 
OKRĘGU 

HO 11000 FI-0'Y1*0'X1-R 
LQ 11010 FIY-FI+Y1+Y1+1 
HO 11020 FIXY*FIY-X1-X1+1 
BE 11030 PLOT XC+X1 < YC+Y1 'PLOT XC 
-XI > YC+Y1 

F8 11040 PLOT XC+X1,YC-Y1'PL0T XC 
-X1<YC-Y1 

BA 11050 PLOT XC+Y1,YC4X1‘PL0T XC 
-Y1,YC+X1 

FO 11060 PLOT XC+Y1 > YC-Xi ' PLOT XC 
-Y1 / YC-X1 

HO 11070 FI-FIY'Yl-Yl+1 

JY 11080 IF ABS<FIXYXABS<FIY) TH 
EN FI*FIXY'X1*X1-1 
JS 11090 IF X1>-Y1 THEN 11010 
DC 11100 RETURN 

W celu wyróżnienia jednego lub kilku 
segmentów diagramu kołowego, przemie- 
szcza się je na pewną odległość od środka, 
wzdłuż promienia. Tworzenie takiego dia- 
gramu, wykorzystane w programie nr 11, 
opiera się na metodzie pozycjonowania na- 
pisów na diagramach kołowych (opisanej 
powyżej). Najpierw określamy granice ką- 
towe wydzielanego sektora. Następnie obli- 
czamy kąt dla promienia dzielącego ten 
sektor na połowę. Określamy nowe położe- 
nie środka wydzielonego sektora przemie- 
szczonego wzdłuż tego promienia wzglę- 
dem środka diagramu. W końcu kreślimy 
wysunięty sektor. W programie nr 11 wy- 
dzielany wycinek koła przesuwany jest o 
1 /5 promienia okręgu 


qo i rem mmimmtm 
IB 2 REM « X 

NL 3 REM * Proiram *r 11 * 

ID 4 REM * * 

GS 5 REM XXXXXXXXXXXXXXXXX 

NL 6 REM 

LR 30 GRAPHICS 0 

SA 40 DIM N!(100)jV<e>jT!<40),D(8 
) 

BS 70 XM*320 « YM* 1 92 
CS 120 PC-8 
GM 160 PR-8 
CS 170 7 

QW 160 7 "PODAJ WSPÓŁRZĘDNE SRODK 
A WYKRESU " 

BX 190 7 "X *"J' INPUT XN ' 7 "Y *"j 
'INPUT YN 

MJ 200 ? "PODAJ PROMIEŃ OKRĘGU 
•INPUT R 

VZ 220 IF XN+R+R/5>XM OR XN-R-R/5 
<0 OR YN+R+R/5>YM OR YN-R-R/5<. 
0 THEN 1020 
CL 230 7 

MZ 240 REM WPROWADZANIE DANYCH 
BZ 250 7 "PODAJ ILOSC DANYCH <MAX 

■ 8 )" 

OR 260 INPUT N 

8V 270 7 "PODAJ NAZWĘ I WARTOŚĆ " 
SF 280 T-0'L-l 
DR 300 FOR K*1 TO N 
PZ 310 7 "NAZWA "jK; 'INPUT Tl'? " 
WARTOŚĆ "i ' INPUT V'V<K)*V'D<K) 
-LEN<TI> 'NKL)*TI'L*L+D<K) 'Tl* 

WE 320 T*T4V<K> 

GT 330 NEXT K 

XF 340 7 "KTÓRA WARTOŚĆ WYRÓŻNIĆ 
<1 -";N;")"; 

KV 350 INPUT E 

HM 360 IF E<1 OR E>N THEN 340 
01 370 REM KONSTRUKCJA WYKRESU 
AG 390 GRAPHICS 8+16'C0L0R l'LL-1 
BU 400 YA-1 
DY 410 8*0 
HH 420 S-0 
OE 430 RE-2#3. 14159 
EA 440 FOR K-l TO N 




PL 450 XC"XN 
Qfi 460 YC-YN 
WH 490 S»S+V<K> 

JJ 320 A«RE*S/T 
CE 330 IF KOE THEH 660 
MS 540 AC»8+<A-B>/2 
TO 530 XE«XC+R/5*C0S(AC) 

OR 360 YE»YC+R/5*SIN<RC)*Yfl 
UF 570 XP=XE+R*COS<B> 

SI 580 YP-YE+R*SIN<B)*YR 
OJ 390 TRAP 600 ; PLOT XE,YE>DRAWTO 
XP,YP 


Si 


U 600 XP-XOR*COS<A> 

610 YP-YC«-R*SIN<R>*Yfl 


LV 620 TRRP 630 -PLOT XC,YC'DRRWTO 
XP,YP 

MG 630 XC-XE 
MV 640 YC-YE 

MN 660 FOR fll-B TO R STEP l/R 
CK 670 XP«XC+R*C08<A1> 

IB 680 YP*YOR*6IN(Al>*YR 
PX 690 TRRP 700 ' PLOT XP,YP 
X0 700 NEXT fil 

NR 710 TRRP 750 'PLOT XC,YC'DRAWTO 
XP,YP 

MW 750 RC"B+<R-B)/2 
ZP 760 XL"XC+ < R+4 ) *C0S < RC ) 

KE 770 YL»YC+<R+4>*SIN<RC>*YR 

YS 830 IF XL>XO10 THEN 930 

WL 850 IF XL<XC-10 THEN 900 

TR 880 XL-XL-0<K)/2*PC 

00 890 GOTO 930 

QU 900 REM 

YE 920 XL-XL-D<K>*PC 

RR 930 REM 

DR 950 RO-INT<YL/PR) 

RE 960 CO»INT<XL/PC) 

DE 970 X-C0'Y-R0'T$-N*<LL,LL-1+D< 
K>>'LL«LL+D<K> 

SY 980 GOSUB 10000 
JI 990 B«R 
FL 1000 NEXT K 
NE 1010 GOTO 1010 
XY 1020 GRAPHICS 0'? "ZLA WRRTOSC 
WSPÓŁRZĘDNYCH" 'FOR 1-0 TO 100 
0 ' NEXT I 'RUN 

WV 9999 REM ZNAKI W GRAFICE 8 
ZT 10000 STRPT-PEEK<89>*236+PEEK< 
88>+40*Y*8+X 

YC 10010 FOR El*l TO LEN<T*>'E3»A 
SC<T»<E1)> 

EL 10020 E3-E3+64*<E3<32>-32*<E3> 
31 AND E3<96) 

GP 10023 IF E3-0 THEN 10060 
MK 10030 ZN-PEEK<756)*256+E3*8 
ER 10040 FOR E2-7 TO 1 STEP -1 
VW 10059 POKE START+E2Ś40, PEEKtZN 
♦E2 > ’ N£XT E2 

SI 10060 X»X+1 1 IF X>-40 THEN STAR 
T-START+40*8 ' X-0 

BT 10070 START ■START* 1 'NEXT El 'RE 
TURN 


Poszczególne segmenty diagramu koło- 
wego mogą być zapełniane kolorem lub 
kreskowane, zgodnie z zasadami jak dla hi- 
stogramów. Kreskowanie powinno być pro- 
ste, a jego dokładność winna stopniowo 
wzrastać od sektora do sektora. 

Proszf zwrócić uwagą, ie w większoś- 
ci przedstawianych programów, wy- 
świetlana dane umieszczone byty na sta- 
ła w programie, w liniach DATA. Nic nie 
stoi na przeszkodzie, aby czytelnicy 
zmodyfikowali Je tak, teby dane były 
wprowadzane bądź z klawiatury, bądź ze 
zbioru przechowywanego w pamięci ze- 
wnętrzne). 

W następnych odcinkach tego cyklu za- 
prezentujemy „prawdziwy" program do kreś- 
lenia różnorodnych wykresów, głównie dla 
tych czytelników, którzy nie mają ochoty na 
bawienie się w tworzenie własnych progra- 
mów i wolą skorzystać z gotowych. 


Tomasz MROWIEĆ 
Ludwik PIELA 



064 


Słownik 


Po uruchomieniu programu i przedsta- 
wieniu się jesteśmy pytani o polski odpo- 
wiednik słowa angielskiego lub odwrot- 
nie. Wystawiana przez komputer ocena 
jest surowa, ale zawsze obiektywna. Pro- 
gram może służyć do nauki języka angiel- 
skiego, ale nie tylko. Wszystko zależy od 
tego, jakie wyrazy wpiszemy w liniach da- 
nych. Zmniejszenie lub zwiększenie po- 
jemności naszego słownika wymaga tylko 
nielicznych zmian w programie. Zapre- 
zentowane w programie efekty dźwięko- 
we również mogą się podobać i skute- 
cznie zachęcać do nauki języków obcych. 

te REM SŁOWNIK 

30 PT*-CHR*<17) |F0RT-1T06|PT*«PT**PT*,NE 
XT TiPT*-CHR*(19)*PT* 

38 P0KE33281, liPOKE33280, 14iS08UB 10000 
40 SC-0 
50 ON-0 
70 DIME4 (80) 

80 DIMF* <80> 

100 FOR J-1TO20 
110 REPD E*(J> 

120 REPU F*(J> 

130 NEXT J 

133 PRINT CHR* (147) 

140 INPUT’ JPK MOSZ NP IMIĘ?* |N* 

142 N*-LEFT*(N*, 8 > 

180 FOR DL* 1 TO 1 000 1 NE X T DL 
184 PRINT CHR* ( 1 47 ) | CHR* < 1 44 ) 

160 PRINT LEFT* (PT*, 2) 8 PC (3) | ' WYNIK i • |S 
C 

170 PRINT LEFT* (PT*, 2> BPC (23) l ' PYTPNIE l 
• | ON 

180 R- 1 NT < RND ( 1 ) 480 ) ♦ 1 

190 IF RND ( 1 > > . 3 THEN 0OTO 330 

200 PRINT LEFT* (PT*, 7) BPC ( 8 ) | ' JPK JE 8 T P 

O PN0IEL8KU' | 

202 PRINT LEFT* (PT*, 8 ) BPC (S)|E*(R)|'7 

*03 PRINT LEFT*(PT*, 10)8PC(IJ> | 

210 INPUT P* 

220 DN-QN*1 

230 IF LEN ( P* ) <18 THCNP*-P**’ • I0OTO *30 

*40 IF LEFT* (A*, LEN <F* < R) > ) -F* <R) THEN 80 
TO *80 

250 FOR T-80 TO 0 8 TEP-I 1 FOR TT-lTOJlPOK 
E«0*l,TT»TiNEXT TT.T 

260 PRINT LEFT* (PT*, 13) BPC (10) | ' NIE • (N* 
I* POWINNO tYC' 

26* PRINTLEFT* (PT*, 18) BPC (14) |CHR*(*8) |F 
270 OOTO 150 

280 FOR T-10 TO 1001 FOR TT- 1 TO* 1 POKE BO* 
1, T*TTiNEXTTT, TiPOKE 80*1,0 
290 PRINTLEFT* (PT*, 13>8PC(13) 1 ’ DOBRZE!’ 
300 8 C-BC* 1 

310 IF SC-20 THEN BOTO 410 


320 BOTO ISO 

330 PRINT LEFT* (PT*, 7) BPC (8) 1 ' JPK JEST P 
I) POLSKU’ 

32 PRINTLEFT* (PT*, 8) SPC (8) |F* (R> ( ' ? 

•3 PRINTLEFT* (PT*, 10)BPC<13) | 

..0 INPUT P* 
t>0 QN— ON* 1 

360 IF LEN (A*) <10 THEN P*-P**' ’ iSOTO 36 

O 

370 IF LEFT* (P*, LEN (E* (R) > ) -E* (R) THEN B 
OTO 280 

380 FOR T— 200 TO0 STEP -llPOKE 80*1, TlNE 
XT T 

390 PRINTLEFT* (PT*, 13) BPC (10) l’ NIE • |N*| 
’ POWINNO BYC ' 

392 PRINTLEFT* (PT*, 13) BPC (13) |CHR*(281|E 

• ( R) 

400 BOTO 130 

410 POKE 33281,0 

420 POKE 83280,0 

430 PR I NTCHR* (147) | CHR* (138) 

440 PRINTLEFT* (PT*, 8) BPC (6) | • ORPTULPCJE ! 
ODPOWIEDZIAŁEŚ' 

430 PRINT LEFT* (PT*, 12) BPC (6) |’ NA 20 PY 
TAN’ 

460 .PRINTLEFT* (PT*, 16) BPC (6) |’ DOBRZE 
470 1 
480 ■ 

490 I 

300 FOR DL- 1 TO 10001 NE XT DL 
310 POKE 53281,7 
320 POKE 53280,7 
330 PRINT CHR* (147) 

840 PRINT CHR* (144) lEND 
600 DPTP’ DRZWI’ , ’DOOR’ 

610 DPTP’ LPMPP’ , ' LPMP’ 

620 DPTP' DOM’ , ' HOUBE' 

630 DPTP' PIE8' , ’ DOB' 

640 DATA’ OS ROD' , ’ BARDEN’ 

630 DPTP* KOT’ ,' CPT’ 

660 DPTP’ KURTKP' , • JPCKET' 

670 DPTP* PROSZEK’ , ’ POWDER’ 

680 DPTP* KAPELUSZ’ , ' HPT’ 

690 DPTP’ ROWER', 'BICYCLE' 

700 DPTP* KPWP’ , • COFFE' 

7 1 0 DPTP’ STACJA’ , • BTPT I ON’ 

7*0 DATA’ CHLEB’ , ' BREAD' 

730 DPTP' MLEKO’ , ’MILK’ 

740 DPTP* KUBEK’ , • CUP' 

730 DATA’ KOBIETA’ , ' WOMAN' 

760 DPTP’ DROBP' , • ROPD' 

770 DPTP' MPPP' , ' MPP' 

780 DPTP* MORZE', 'SEP' 

790 DPTP' BIURKO' , ' DE8K' 

10000 REM DŹWIĘK 
10010 B0-B487* 

10020 FOR T -0TO*0 1 POKEBO*T , 0 1 NEXT 
10040 P0KEB0*5, 9 
10030 POKE 80*6, *40 
10060 POKE 80**4, 13 
10070 POKE B0*4, 17 
10080 RETURN 


CISEK 
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Lilavati — cz. 4 


Droga do portu 


W kolejnej części cyklu poświęconego rozwiązywaniu anegdot 
matematycznych chcieliśmy zaprezentować zmodyfikowaną hi- 
storyjkę o nr. 54 w książce „Lilavati" S. Jeleńskiego. 

Oto treść zadania: 


portu wojtn 
Maj* z* zad 

okrotp <4,s‘e> w tyn 
“ 1 upa o «lo -- 


UjiJsol* pa P» Inp norze z 

s°ofe:L fc ss5SSr,s-HU;3> 

a|5ss?i s “* 

Czw okręty wykonają postaw i ona zadani* 


NACISNIJ ' SPACJE ' 

Tak wygląda sytuacja początkowa. 

PODAJ NUMER OKRĘTU l 3 


Zasady gry: 

1 , Podawany nr okrętu musi byc o wartości 1 —6 

2 Ruchem okrętu o wprowadzonym numerze steruje się za 
pomocą klawiszy — • — • f • i • 

3, Jeżeli chcemy zmienić nr okrętu, to należy nacisnąć w dowo- 
lnej chwili klawisz ENTER 

4 Okręty poruszają się tylko po obszarze niebieskim 

5. Brak możliwości wykonania ruchu jest sygnalizowany dźwię- 
kiem 

6. Gra kończy się sukcesem po wykonaniu zadania. 

Segment sterujący przebiegami gry ma następującą postać: 


]0 MODĘ HINK 0. tli INK l.OiINK 2.26: INK 3.1:PAPER OiBDPDER UiCLStPEN 
20 tOCATE 1.3 

30 PRINT 'Wyjście ni palni aorze z portu wojenne- go jut bardzo wąski 
3 okręty wojenne (1.2,3) aaja za zadaniiop 
uicic port. Natoaiiit inna 3 okręty (4,3,6) 

w tya eaava czasie autza wpłynie do portu po* 

40 PRINT 'zakończonych ćwiczeniach. Wyjścia jest takiej 

szerokości .za dwa okręty nie aoga aie na nia ainac .lecz po 
jednej stronie znajduje ale aala zatoka ,w której aoze aie zaieic 
ic iedenokret.* 

30 PRINT *Czy okręty wykonają postawione zadanie?* 

60 PEN 2: L0CATE 1.2J:PRINT 'NACISNIJ 'SPACJE'* 

70 IF INKEYł*** THEN 60T0 70 

80 N0DE 1:INK O.IllINK l.OiINK 2,26:INK 3,1: PAPER 0:BORDER 0:CLS 
90 60SUB 1230 

100 6RAPHICS PEN 1:PL0T 0. 128i DRAWR 640,0:PL0T 0.200:DPANR 240.0:DRANR 
J2.4B:0RANR 48.0:DRANR 32.-4B:0RANR 360,0 
110 N0VE 10. 10:FILL I:N0VE 10,300:FILl 1 
120 PEN 2: PAPER IsLOCATE 1,10:PR1NT CHR*(242)|* PORT* 

130 LOCATE 34. 10:PPINT *H0P2E ' : CHR9 (243) z PAPER 0 
140 DIN wsp(6,2) 

130 FOR a»l TO 3 

160 wso(a,l)*7ł(a-DI3 

170 wsp (a, 2) >13 

180 NEXT a 

190 FOR a«4 TO 6 

200 wsp(a,l)«26Ma-4H3 

210 wsp(a,2)*13 

220 NEXT a 

230 FOR K«1 TO 6 

240 60SUB 1210 

230 NEXT 

260 WIN00W £1.1, 40, 1,6: PAPER £1,1 


290 S0UND 1. 338: SOUND 1.438:CLS £1 : PRINT £1. 'BIEDNY NUHER OKRĘTU*: FOR 
T*1 TO 2000: NEXT : GOTO 270 

300 CLS £1:PRINT £1, 'STERUJ RUCHEM OKRĘTU NR *:USIN6 *£':N|:PRINT £1. 

"ZA POMOCĄ KLANISZYi *:CHRI(240) ) ' ’ 

•jCHRI(243):L0CATE £l,l,4iPRINT £ 

CISNIJKLANISZ 'ENTER" 

310 At-INKEYt 

.320 IF A**" THEN 60T0 310 
330 IF INKEY(6)*0 THEN 60TO 270 
340 P*ASC(A») 

330 IF p<240 OR p>243 THEN 60TO 310 
360 ON P-239 60SUB 510,720.930.1080 
370 FOR 6*1 TO 3 

380 IF NSP(6,1)<*18 THEN 60T0 500 
390 NEXT G 
400 FOR 6*4 TO 6 

410 IF NSP(6,1)>*18 THEN GOTO 500 
420 NEXT G 

430 CLS £1:PRINT £1. 'BRAWO! UDAŁO SIEI* 

440 FOR A*0 TO 26 
430 B0R0ER A 
“O FOR T*1 - 
.0 NEXT A 
480 IF INKEY4*" THEN GOTO 440 
490 END 
300 GOTO 310 

Oprócz segmentu sterującego inne czynności zorganizowano w 
postaci podprogramów, których rola jest następująca: 

1 . Kontrola, czy ruch w górę jest możliwy (instrukcje 51 0—710). 

310 IF HSDln. 1)018 THEN SOUND 1,3S6:RETURN 
320 IF wso(n.2)*10 THEN SOUND l.J58:RETURN 
530 FOR 1*1 TO 6 

340 IF NSP(N.2)-l»NSP(I.2) + 2 THEN 60T0 660 
550 NEXT I 

360 IF rl»l THEN GOTO 380 
370 60SUB 1330 

580 X*NSPIN.1):Y*NSP(N.2)*1;60SUB 1840 

390 P0KE 67F74.N2lP0KE 67F75.N1 

600 FOR b«l TO 3 

610 FOR C*1 TO 8 

620 PGKE &7F02. C: CALL 67FOO 

630 FOR T*1 TO 2 : NEKT: FRAHE: NEXTt NEXT 

640 NSP(N.2)*NSP(N.2)-3 

650 RETURN 

660 FOR R*0 TO 2 

670 FOR J*0 TO 2 

680 IF NSP(N.1)*R*WSP(I,1)‘J THEN SOUND 1.358:RETURN 
690 NEKT J 
700 MEXT R 
710 GOTO 330 

2. Kontrola, czy ruch w dół jest możliwy (instrukcje 720—940). 

220 mm™ ° R NSP(N - 2)<M0 THEN S0UND *-358: RETURN 

740 IF NSP(N.2)-3*WSPII,2) THEN GOTO S80 

750 IF n*i THEN 60T0 770 

760 IF NSP(I,1)*18 THEN SOUND 1.338iRETURN 

770 NETT I 

780 ir r 1*4 THEN 60T0 800 
790 GOSUB 1580 

800 X*NSP(N.1):Y=WSP!H.2)*3: GOSUB 1840 

310 POKE 67F74.N2:P0KE 67F73.N1*56 

820 FOR b*l TO 3 

830 FOR C*1 TO 8 

840 POKE K7F02.C:CALL 17F00 

330 FOR T*1 TO 2:NEKT: FRANE t NEXTzNEXT 

860 MSP (N. 2) *WSP (N. 2) *3 

870 RETURN 

880 FOR R*0 TO 2 

390 FOR )«0 TO 2 

900 IF WSP(N. 1 ) ♦R*WSP ( I. 1 ) ej THEN SOUND 1.338:RETURN 

910 NEKT J 

920 NEXT R 

930 GOTO 770 

940 RETURN 

3. Kontrola, czy ruch w lewo jest możliwy (instrukcje 950—1070). 

930 IF NSPIN.2K13 THEN SOUND 1.33B:RETURN 
960 IF WSP (N, 1 )*1 THEN SOUND 1,338:RETURN 
970 FOR 1*1 TO 6 

m NEXT S I (N ‘ 1> “ WSP<I ' I>+3 AND THEN S0UNI) 1-358: RETURN 

1000 IF r 1*3 THEN 60TO 1020 
1010 GOSUB 1730 

1020 x«wse(n, I) r v=wsp (n. 2) ♦! :60SU8 1840 
1030 POKE 47F7B.w!sF0R z*w2 TO w2-l STEP -1 
1040 FRANE: POKE Ł7F7A. z z z CALL 17F76 
1030 NEKT 

1060 WSP (N, 1 ) *WSP (N. 1 ) -1 
1070 RETURN 


prawo jest możliwy (instruk- 


4. Kontrola, czy ruch 
cje 1080-1200). 

1080 IF NSPIN. 2) <13 THEN SOUND 1.138: RETURN 
1090 IF HSPIN. 11=38 THEN SOUND 1.35B:RETURN 
1100 FOR 1*1 TO 6 

1110 IF NSPIN. 1)*3*NSP(I,1) AND t*so(i.2)«13 THEN SOUND 1.358:RETURN 
1120 NEXT I 

1130 IF rl=2 THEN GOTO 1150 
1140 60SUB 1490 

1130 x=HSo(n.l)*2: v=»5p(n,2)*l:G0SUB 1840 
1140 POKE i7F7B.wl : FOR :=n2*1 TO #2*2 
1170 FRAHEiPOKE 8.7F7A. z : : CALL Ł7F76 
1180 NETT 

1190 NSPIN. I)«NSP(N,1)M 
1200 RETURN 

5. Rysowanie jednego okrętu (instrukcje 1210—1220). 

1210 FOR i*l TO 3: PEN 3:L0CATE mso ( k. 1 > .msp ( k.2)«-a:PRINT bt(a):PEN 1:1 
OCATE wid < t . 1 ) ,W5D ( k. 2T+2: PRINT USING *£ , :k:PEN 3:NEXT 
1220 RETURN 

6. Definiowanie symboli graficznych okrętu (instruk- 
cje 1230-1320). 

1230 SYMBOL AFTER 125 

1240 SYMBOL 125.0.0.0.1.1,1,1.1 

1250 SYMBOL 126.1.1.1.1.1.1.1,1 < 

1260 SYMBOL 1 27 t 0. 64 . 91 . 255. 219. 235. 127. 127 
1270 SYMBOL 128.13,15,235, 235, 109. 233.255. 255 
1230 SYMBOL 12°. 96. 223. 164.252.172.248.248.240 
1290 b$ ( 1 >=* •łCHR$(125lł’ 1 
1300 bł(2)*‘ '♦CHRl(126)ł‘ 1 
1310 bl(3)*CHR»(127)tCHR$(128)*CHR$(129) 

1320 RETURN 

7. 4 podprogramy (instrukcje 1330—1830) wczytywania do 
pamięci podprogramów ruchu w określonym kierunku w języku 
wewnętrznym: 

1330 REM 'Drzesumnie w oore* 

1340 rl=l 

1350 RESTORE 1370: FOR i=l7F00 TO Ł7F73 

1360 READ v:P0KE i.v:NEXT 

1370 DATA 1.24.1.42.116.127.16,93 

1380 DATA 229.124.198.56,103.17.80.0.237.82,84 

1390 DATA 93.225.197,229.213.205.95.127.209.98,107 

1400 DATA 34.116.127.225,193,13,40,46.6.7.84.93,124 

1410 DATA 198.8. 103. 197.229.213 

1420 DATA 205.95.127,209.225.193.13.40.26.16,236 

1430 DATA 84.93.124.214.56.103.213.17.80.0.237.90 

1440 DATA 209.197.229,213.205.95.127.209,225,193 

1450 DATA 24.207.54.0.84.93.19.1.5.0.237.176.201 

1460 DATA 1.6.0.237.176.201.124,214.8.87 

1470 DATA 93.229.98.107.34,116.127.225,24.187.201 

1480 RETURN 


1490 REM ’ur:e*u#anie m prano’ 

1500 rl=2 

1510 RESTORE 1530:F0R i«l7F76 TO Ł7FA1 

1520 READ v:P0KE i.v:NEXT 

1530 DATA 1.8.3,33,39,192,84 

1540 DATA 93, 19. 197,1,6.0.237. 184. 193,35.54,0 

1550 DATA 13.40.6,17,5,8,25.24.234.5,40,12,124 

1560 DATA 214,56.103,17.85,0,25.14,8,24,219,201 

1570 RETURN 

1580 REM ’orze5unanie m doi’ 

1590 rlM 

1600 RESTORE 1620: FOR i*l7F00 TO 17F73 

1610 READ v: POKE i.v:NEXT 

1620 DATA 1.24.1.42.116.127.16.93.229 

1630 DATA 124.214.56, 103,17,80,0,237,90.04 

1640 DATA 93.225.197.229,213.205.95.127.209 

1650 DATA ?8, 107,34, 116, 127.225. 193,13,40,46 

1660 DATA 6.7.84.93.124.214,8.103.197,229.213 

1670 DATA 205.95, 127,209,225, 193,13,40,26, 16,236 

1680 DATA 84.93. 124. 198.56.103.213,17,80,0.237,82 

1690 DATA 209, 197.229.213.205.95.127 

1700 DATA 209.225.193.24.207 

1710 DATA 54,0.84,93,19,1.6,0.237,176.201 

1720 DATA 1.6,0.237,176,201,124.198.8,87 

1730 DATA 93. 229,98, 107,34, 116, 127.225,24, 187,201 

1740 RETURN 

1750 REM 'orzesuNanie w leno’ 

1760 rl*3 

1770 RESTORE 1790:F0R i=47F76 TO Ł7FA1 

1780 READ v: POKE i.v:NEXT 

1790 DATA 1.8,3.33.36.192.84.93 

1800 DATA 27.197,1,6.0.237.176.193.43,54,0 

1810 DATA 13.40.6. 17.251.7.25.24.234.5.40.12. 124 

1820 DATA 214.56.103.17.75.0.25,14,8,24,219,201 

1830 RETURN 

8. Przeliczanie współrzędnych okrętu na adresy ekranu, po- 
trzebne do wymienionych w pkt. 7 podprogramów (instrukcje 
1840-1880). 

1840 A=(Y-l)l80+(x-l)*2 
1850 N1=INT (a/256) 

1860 N2=a-NU256 
1870 n1=192+n1 
1890 RETURN 

Życzymy przyjemnej zabawy i sukcesów w rozwiązywaniu tego 
problemu. . 

Danuta KWASIŻUR 
Mieczysław SKONIECZNY 



Test joystck’a 


Po pewnym okresie używania joystick a 
dają się zauważyć jego niedomagania. Nie- 
które z wychyleń przestają funkcjonować 
poprawnie. Czasem jesteśmy w rozterce: 
czy jest to wina źle załadowanego progra- 
mu, czy też samej przystawki. Prezentowany 
test wyeliminuje te wątpliwości. Należy przy- 
łączyć joystick, uruchomić program, a na- 
stępnie poruszać dźwignią we wszystkich 
możliwych kierunkach. Jeśli uznacie, że test 
trwa zbyt długo, to wystarczy nacisnąć spa- 
cję z klawiszem CONTROL i otrzymacie in- 
formacje o funkcjach, które nie działają po- 
prawnie. Zwykle jest to wina styków, które po 
rozebraniu joysticka należy odpowiednio 
przygiąć i przeczyścić. 

Krzysztof MAMCARZ 


•• testjoy '07 
program do testowania 
Joystick 'a 
AMSTRAD CPC 


40 
50 

60 riOOE 1 

70 DEFINT a-z 

BO UINDOW #1,1,40,85,55 

bo Din rcBJ 

100 FOR a-5 TO 15 STEP 5 
110 FOR b-5 TO 15 STEP 5 
150 LOCATE b , a : PRINT 
130 NEXT b, a 

140 PRINT #1, “przygotuj JOYSTICK i nacls 
nij cokolwiek . " ; 

150 CLEAR INPUT : UH ILE INKEYS- " " : UEND 
160 PRINT #1, “naciskaj wszystkie poloze 
nia Joystick ‘a" 

170 IF JOYCOJ-l THEN FCOJ-1: LOCATE 10,5 
: PRINT " " 

180 IF J0YC0J-5 THEN FCD-1: LOCATE 10,1 
5: PRINT” " 

130 IF J0YC03-4 THEN FCBJ-1: LOCATE 5,10 
: PRINT ” " 

500 IF JOYCOJ-5 THEN FC31-1: LOCATE 5,5: 
PRINT " " 


ZX SPECTRUM 


510 IF JOYCOO-6 THEN FC43-1: LOCATE S,1S 
: PRINT “ " 

550 IF JOYCOJ-B THEN FCSJ-1: LOCATE 15,1 
O: PRINT ” " 

530 IF J0YC03-3 THEN fCBl-1: LOCATE 15,5 
: PRINT ” " 

540 IF J0YC03-10 THEN rt7J-l: LOCATE 15, 
15: PRINT ” " 

550 IF J0YC03-16 THEN FCBJ-1: LOCATE 10, 
10: PRINT ” " 

560 IF INKEYC475-15B THEN 5B0 

570 GOTO 170 

580 ' CTRL-SPACE 

530 CLS #1: CLEAR INPUT 

300 fl-O: LOCATE 1,16 

310 FOR a-l TO 3 

350 RESTORE 410 

330 IF FCa-lJ-0 THEN GOSUB 450 
340 NEXT 

350 IF fl-1 THEN LOCATE 1,1: PRINT “BRAK 
REAKCJI:" ELSE CLS: PRINT "JOYSTICK JES 
T SPRAUNY" 

360 LOCATE 50,15: PRINT "ponownie 7 T/N" 

370 UH ILE INKEYS-"": UEND 

3B0 IF INKEYC51 J>-0 THEN RUN 

330 CLS : END 

400 ' 

410 DATA "gara", "doi", "lewo", "lewo-gora" 
, "lewo-dol”, "prawo", "prawo-gore " , "prawo- 
dol " , "Fire" 

450 FOR b-1 TO a: READ h$:NEXT b 
430 PRINT hS 
440 fl-1 
450 RETURN 




CPC 6128 


Gra w ośmiu hetmanów 


Zagadnienie ośmiu' hetmanów polega na 
znalezieniu takiego ich rozmieszczenia na 64- 
-polowej kwadratowej szachownicy, aby ża- 
den hetman nie „bił” innego. Mówiąc do- 
kładniej, żadne dwa hetmany nie mogą znaj- 
dować się w tej samej kolumnie, w tym sa- 
mym wierszu, ani na tej samej przekątnej. 
Kierunki „bicia” hetmana prezentuje rys. 1. 



Rys. 1. Kierunki „bicia” hetmana 

Istnieje 92 rozwiązań rozmieszczenia ośmiu 
hetmanów. 


W grze znalezienie poprawnego rozmie- 
szczenia umożliwia przejście na kolejny z po- 
ziomów, określone jest ilością możliwych roz- 
wiązań. Utworzenie jednego rozwiązania po- 
lega na ustawieniu w kolejnych kolumnach 
(początek w pierwszej) szachownicy hetma- 
nów nie „bijących się” wzajemnie. Ustawienie 
zadawane jest poprzez numer wiersza. Nume- 
ry kolumn ustawiane są automatycznie. Każ- 
de poprawne ustawienie hetmana jest ryso- 
wane na ekranie oraz zwiększa liczbę punktów 
o 25. 

Próba błędnego ustawienia — hetman jest 
„bity” przez już ustawionego hetmana — po- 
woduje utratę 25 punktów. Tak więc na jed- 
nym poziomie można uzyskać 200 punktów. 
Stracić można więcej, gdyż można do- 
prowadzić do sytuacji, w której niemożliwe 
jest ustawienie ośmiu hetmanów. Wznowienie 
gry następuje wtedy na tym samym poziomie. 
Grę kończy ustawienie 92 różnych rozmie- 
szczeń ośmiu hetmanów, lub zniechęcenie 
gracza, któremu po prawidłowym lub błęd- 
nym rozmieszczeniu dostarczana jest taka 
możliwość. Kolorowa grafika oraz efekty 
dźwiękowe powinny sprzyjać znajdowaniu 
prawidłowych rozmieszczeń hetmanów na 
szachownicy. 

Gra ośmiu hetmanów napisana została w ję- 
zyku PASCAL óraz uruchomiona na kompu- 
terze AMSTRAD CPC 6128. Program źród- 


łowy gry tworzą dwa zbiory. Zbiór główny 
zawiera procedury graficzne oraz moduł ste- 
rujący całego programu, z którego wywoły- 
wane są dwie procedury umieszczone w dru- 
gim zbiorze źródłowym gry. Jedna z tych pro- 
cedur obrazuje czołówkę gry. Druga zawiera 
demonstrację gry oraz samą grę. Z uwagi na 
obszerność tych procedur oraz ich wzajemne 
wykluczanie się, zostały one zaimplemento- 
wane w postaci procedur nakładkowych. 

URUCHOMIENIE PROGRAMU 

Po przepisaniu programu źródłowego 
do dwóch zbiorów źródłowych o na- 
zwach OSIEMHET. PAS i PROCPOM. 
PAS należy wywołać opcję kompilatora 
języka TURBO PASCAL — komenda O. 
Następnie użyć komendy C (kompilacja 
do zbioru) oraz Q (koniec opcji). Kolej- 
nym krokiem jest wywołanie komendy M 
oraz wpisanie nazwy zbioru OSIEMHET. 
PAS. Kompilację uruchamia komenda 
C. W wyniku jej realizacji utworzone zos- 
taną na dyskietce dwa zbiory o nazwie 
OSIEMHET. COM i OSIEMHET. 000. Od 
tej chwili uruchomienie gry jest możliwe 
pod systemem CP/M PLUS. 

Życzymy satysfakcji w osiąganiu kolej- 
nych rozwiązań, z którymi kłopoty miał 
nawet C. F. GAUSS. 

Andrzej CETERA 


conit CPH3 * truej 

const tagf lagsboolcan * filii) 
taóaddr : intager ■ Oj 
indscr :int*g*r * 0) 
fet * 0.017«53292520| 

»error ireal « 0.0) 
yirror ireal « 0.0) 
getaodiibyte * 2) 
getgrafaodeibyte* 0) 

vir i tg: i nteger ; 
btgibytij 

rd:arraytl..l31 of byti) 
mmli 


end; 

procedur* goto«y(«,y:int*ger)) 

' begi n 

»rlt»(Mlb,’Y’,chr<ył31),chr(«łJl))i 

end; 

procedur* 

5Dund ( g: bytei h, i : i ntegir i j, k, 1 , ai byti) | 

vir sdi array tO. .83 of byt*) 

begin 

idtOl :> g; 
aove(h, sdt3),2) ) 

■ove(i,sdC7],2)| 

sdlll := k; 


sd [23 i« 1) 
sd[51 i* •; 
sd [61 i* j| 

inline(t2i/id/»cd/!5i/tfc/«ii/«bc)i 

end) 

C rocedure soundreiet; 
egin 

inline(*cd/»5i/*fc/U7/»bc)| 

end) 

procedur* drani*, yiintegeri) 

iń?in*(« 2 A/*/IEB/* 2 A/y/kd/l 5 i/lfc/«F 6 / 
IBI)| 
end; 
jiroced 

*i nl i n* ( » 2 A/*/«EB/» 2 A/y/kd/$ 5 a/łf c / 
IF 9 /IBB)) 
end) 

procedurę grifMve(i,y:integer)| 

inline(( 2 A/«/(EB/l 2 A/y/tcd/ISa/(fc/ 

tC0/tBB>| 

end| 

procedur* graf«ov*r(«,yiinteg*r)| 
begin 

inline( 42 A/x/*£B/ 92 A/y/kd/ 45 a/Wc/ 

(c 3 /IBB)| 

end) 

procedurę plot(i,yiint*ger)| 
begin 

inlin*<» 2 A/*/«EB/» 2 A/y/kd/«i/lfc/ 
IEA/ 4 IB) ) 
end; 


inlin*<»3A/fi/kd/«5a/«fc/»DE/»BB>; 

end) 

jirocedure graf paper (f sibyte) { 

*?nl ine(t3A/f a/kd/*3a/*f c/*E4/$BB) | 


procedur* dglfiibyte); 


procedurę ink(fi,fl,f2ibyt*)| 
begin 

jnlin*<*3i/fl/M7/l3a/f2/»4f/»3a/fi/ 

kd/tSa/lfc/ 

♦32/»bc)| 

ind) 

jirocedure paper (fu bytei) 
*?nlin*<l3A/fs/»cd/*5i/«fc/»96/łBB>i 


procedur* pen (fet bytei) 
begin 

inline(t3A/fi/kd/l5a/$fc/«90/«B6)i 

end; 

procedur* aode(edibyti)) 
begin 

if ad in [0..21 then 
begin 

geteod* t* ed| 

f.w 


. fnl ine(«3a/vl /*47/»3a/v2/44f /kd/*5a/ 
Ifc/t38/tbc); 


irocedure graf out ( chi char i ; 


proc 

begi 


i , ' l,,i 

begin 

if not tagflag then 
begin 

tagaddr i* conoutptr; 
tagflag :* true; 
conoutptr := addr(grafouti) 
end; 


procedurę tagoff; 
begin 

if tagflag then 
begin 

conoutptr :« tagaddr j 
tagflag :* fali*) 
end; 
end; 

(liprocpoa.pas) 

(mmittttitiiimiKttimmmm} 

{ H0DUL STERUJĄCY ) 

{tmmitftmmtmtmtimmmt} 

begin 
crtiniti 


rtimt: 
nitgrafik) 
czoloMka) 
g8h; 

■ode (2 
grafeii 


gotoiy 

m(0,! 


Cloud, 1,1, li) 


mi w,*o,*oj ; 
ink (1, 1. ii ) 

S aper (li) pen (0) | 
order (1,1) p 
leavegrafikj 
crteait) 


E 12 



WYDRUK ZBIORU PROCPOH.PAS 

{mtmitmimmtimitiittttmm} 

{ PROCEDURA CZOLOMKA ) 

{iitimtmiiiiiimiittmtmtttmt} 

overlay 

procedur* czoloukai 


nesp:array U. .16,1. .31 of real; 
sp:array 11. .3,1. .31 of real ; 
as:array II. .3,1. .3) of real: 
pisarray U. .16,1. .21 of real) 
fla,licz,k,nh:integer; 

. sx.sy,rx.ry ( xp,yp,krok: real ; 

procedur* tytuł: 

var t : str i ng[ 18 J : j : i nteger ; 

begin 

ta*' BHETNANON’; 

qraf pen (9) : tao: 

plot (40,375) ; 

for j:=l to IB do 

grafout(tCjl); 

taaoff; 

end; 

procedurę podp: 

var t : str i nqt 153 ; j: integer; 

begin 

t:*'MCisni j klaaisz’; 
graf pen ( 10) : tao; 
plot (100,20): 
for j : *1 to 15 do 
grafoutltt jl); 
taooffi 
end: 

{itmiimtiiiutmtiiitiitmmtm) 

< PROCEDURY PRZESUWANIA I WYPEŁNIANIA ) 

(mtmiimmtitiimmiitttiitiiti) 

procedurę anoz (i t integer) p 
var n, k, ■: integer: 
begin 

for n:*l to i do 

for k:*l to 3 do 

for a: *1 to 3 do 

n»spCn,kl:=nespCn,kl+iispCn,e]tasti,k]; 


flll-Ol 

pieC 1,1 j: *1 15.0; 
pat 1,23: =0.0; 
pa[2, 13:*1 15.0; 
paI2.2If5.0i 
pal3.llfl20.0i 
paI3.2If5.0j 
pa[4,l]fl25.0j 
paI4,2)f20.0| 
pa(5, 1 3 f 120. Oj 
pa[5,2]f30.0: 
pa(6,l]f 120.6; 
paI6,2If35.0| 
pal7,llf 125.6; 
paI7.2If40.0j 
palB.lIf 130.6; 
paIB.2If35.0j 
pal9.llfl35.6i 
paI9.2If40.0; 
pall6.llfl40.0i 
patlO, 2If35.0j 
padł, l)f 140.6; 
palli, 2If30. Oj 
pari2.13fl35.6i 
paE 12, 23 t *20. Oj 
paI13,13f 140.6; 
pal 13,23 1*5.0; 
paI14,13f 145.0; 
pat 1 4. 23 1*5.0; 
paI15,l]f 145.0; 
paI15.21f0.0i 
paI16,llf 115.0; 
pat 16.23: *0.0; 
aode(6) i 

orafaindoalO, 0,640, 400) ; 
ink (0,0,0) | 
ink ( 1 , 6,6) ; 


syfsy- 0 . 62 ; 
sxi«sx-0.02; 
end; 


procedurę ryshet (k: integer); 
yar n*. j: integer; 
begin 


end; 

(mitiiiitttmiimitiimmiimm) 
( N0DUL STERUJĄCY PROCEDURY CZ0L0WKA ! 
{itmimtimmmimiimmimit} 

beęin 

inicda; 

repeat 

if (f la=0) then 
nhf 1 else 

begin nhf randoa(7)+l; tytuł; podp; 
end; 
repeat 

pdan(nh); pdanl(licz); 
rysfigdicz.nh); 
for kf 1 to 8-randoa(7) do 
begin 

przepl(licz); (odtaorzenie) 
rn»r«+ krok; 


anozll 

prz*p2(licz); pdanl (licz); 
grafaindoa(0,nht40,640,40inhl40); 
clg(O); 


\ 


graf ai ndoal 0, 0,640, 400) ; 
rysfigdicz.nh); 


end; 
nh:*nh+l; 

until «nh*9) or (fla-1): 
flaf 1; 

until keypressed; 
border (0,3) | 


procedurę anoz 1 (i : integer ) : 

var n , k . i nteger ; 

begin 

for n:=l to i do 
for kf 1 to 3 do 
for ef 1 to 3 do 

nasp[n,kl:-n*sp[n,kl+afp[n,e]lBp[a,k]; 

end; 

procedurę ustas(i: integer); 

var n, k : integer; 

begin 

as(l,21f0.0; 

Ntl.33i-0.0i 


■sC3,l]f-rxtsx+rx| 
asC3,21f-rylsy+ry; 
as(3,31f 1.0; 
for k:-l to i do 
for ni* 1 to 3 do 
naspCk.nlfO.O; 
end; 

procedurę ustapd t integer; p, q: real ) ; 

var n . k : i nteger ; 

begin 

ap(l,21f0.0| 
apCl,31f 0.0; 
aptl.llf l.Oj 
apI2, llf 0 . 0 ; 
apI2,21f 1.0; 
apC2.31f0.0t 
ap 1 3 , 1 1 > *p i 
■pC3,21:*q; 
apt3.31fl.0i 

Jor ki« i to i do 
for m-1 to 3 do 

naepCk.nlfO.O; 

end; 

procedur* rysnol i: integer); 

var n: integer | 

begin 

plot (roundtnaspCl, 13) .round (naspCl.21) ) } 

for ni* 2 to i do 

begin 

drau(round(nefpCn,ll).round(n*fp[n,2])); 

iound(l,round(nuipEn,Il)-100,2,2,0,0,0)| 

tound (2, round ( naipCn , 21 ) , 2, 2, 0, 0, 0) ; 

end; 

end; 

etttmmtmmmmmmtttmmt) 

C INICJACJA DANYCH 1 

(imiitmiiiiiiiiimtimimmitii) 

E rocedure inicda; 
egin 


ink (2, 9,9) ; 
ink (3,26,26)| 
ink (4,7,/) i 
ink (5, 16, 16); 
ink <6, 11,11); 
ink (7 t 15, 15) ; 
ink (8, 23,23) : 
ink (9,12,12) i 
ink (16,25,25); 
grafpapcr(O); border (0, 0) ; 
clg(o) i 
end; 

procedura pdan(nr: integer) ; 
var i: integer i 
begin 

for ifl to 16 do 
begin 

aspCi . llt*paCi, lit 
aspC i , 2 1 i *pa( i ,21 ♦nrMO; 
aspCi ,31>*1; 
end; 

xp:» 130.0; 
yp: =20. 0+nr 140. 0; 
krokfłO.O; 
rx:«xp; 

IZ3SU 

end; 

procedurę pdanl (i: integer); 

var k,n: integer; 

begin 

for kf 1 to i do 
for ni* 1 to 3 do 
utpl[k,n]fetp[k,nl; 
end: 

(ittimmmmmmtmmmmm) 

( PROCEDURY POMOCNICZE 


(ititiitmiittiitiiiiiimiitiiiiimii 

( PROCEDURA 6RA ) 

(tumiimimitimtiimmmmu) 

overlay 
procedurę 986 ; 

var i . poz , : lpun: integer ; asboolean; 


nr, a, n: integer : 
tuaurray (1. .92, 1. .BI of integer; 
aiarray Cl. .81 of boolean; 


1 rnuwElfum runuuniLŁt I ■ 

(iimmmmitimmmimmtiiti) Md i 


biarray (2.. 161 of boolean; 
ciarray C-7..71 of boolean; 
narray Cl.. 81 of integer; 
co,y,zc:char; 
conat 

poczgcy*390; 

poczgcx* 100 ; 

poczbcy-363; 

poczbcx* 68 ; 

poczl -861 

dlink-268; 

dlh-36; 

pxh*50; 

pyh*374; 

cmiiiimmmimimmmiHimt} 
{ PROCEDURY GRAFICZNE GRY 1 

{mmtttmtmtmmmtmtmmt} 

procedur* cyfra (ko: integer); 
begin 
case ko of 
lizcf M’; 

2 :zcf’ 2 ’| 

3:zci* ’3’; 

4:ic:- ’4’j 
5:zcf *5'; 

6 :zcf’ 6 ’; 

7:zcf ’7’j 
8 :zCf ’ 8 '| 
end; 


orafpen (^) ; 

♦ or jfO to 35 do 
begin 

plot(pxh+kt36,pyh-nat36+j); 
drawr (dlh. 0 ) ; 

tound(l,lÓ0-jt3,5,5,0,0,0>; 

sound(2,150-jl4,5,5,0,0,Ó); 

end; 

graf pen ( 2) 1 

plot(pxh+kl36,pyh-nut36); 

S raf*over(5,4); 
rawr (6, 18) ; drawr (-6,9 ) 1 
drawr (9. -3) ; draar (4,7) ; 
drawr (4,-7) ; drawr (9. 3) : 
drawr (-6,-9) ; drawr ( 6 ,-lB> ; 
draar (-26,0 ) 5 
end; 


begin 

napf’ DEMONSTRACJA’; 
graf pen (2); tag: 
for jf 1 to 12 00 
begin 

plot (544, 390-j820); 
graf out (napCjl); 
end: 
tagoff; 
end; 

procedurę ryspunkty; 

var lan:ttringC61; j : i nteger ; 

begin 

grafpen(l): 
str ( 1 1 pun: 6, 1 an ) ; 
plot (520,256); 
tag; 

for jf 1 to 6 do 
grafout (lantjl); 
tagoff; 
end; 

procedurę ryspozioa; 

var lan:itring[21; Ji integer; 

begin 

grafpen(l): 
str (pozt2, lan) ; 
plot (544,336); 
tag; 

for jf 1 to 2 do 
graf out (lanCjl) ; 
tagoff; 
end; 

procedur* ryspps: 

yar nap:atringI7l; j: integer ; 

begin 

napf 'POZIOM ’; 
graf pen (2); tag; 
plot (528,368); 
for jf 1 to 6 do 
grafout (napCjl) ; 
napf ’ IL0SC *; 
plot (528, 288); 
for jf 1 to 5 do 
grafout (napCjl) ; 
napf 'PUNKTÓW’ ; 
plot (528,272); 
for jf 1 to 7 do 
grafout (napCjl) ; 
tagoff; 


. nteger; 

begin 
for kf 1 to i do 
begin 

for nf 1 to 2 do 
wsp C k , n 1 : *wsp lCk.nl; 
wspCk, 31 1 -1 ; 
end; 
end; 

procedur* przep2(i:int*g*r); 

va r k,n: integer; 

begin 

for kf! to i do 
begin 

for n:* 1 to 2 do 


procedur* ryafig(i,nr:integ*r>s 

var x : integer ; 

begin 

grafpen(nr); 

«:* 1.0; 
syf 1.0; 

for ii-l to 12 do 
begin 
ustas(i); 
anoz ( i ) 1 
rysnol i I ; 


procedurę rysszach; 
var jt integer ; 
begin 

grafp*n(2 ) 1 
órafpaper(O): 
for jfO to 8 do 
beoin 

plotlpoczl, jt36+poczl); 
drawr (dl ink, 0) ; 
end: 

for j:*0 to 8 do 
beoin 

plot(jt36+poczl,poczl)| 
drawr (O.dlink) ; 
end; 

<|rafpen(3)| 

plol(poczocx.poczgcy); 
for jf 1 to 6 do 
begin 
cyfra(j); 
grafout (zc ) 1 

grafeove(poczgcx*jt36,poczgcy) ; 
end; 

plot (poczbcx .poczbcy) ; 
for jf 1 to 8 do 
begin 

cyfra(j); 
grafout (zc); 

grafaove(poczbcx, poczbcy- jt36); 
end; 
tagoff; 
end; 


(tmmmtmttmtmtmmmtmt} 

( PROCEDURA DEMONSTRACJI ) 

ctummmmmmtumimmim} 

procedurę 

proboj (i: integer; var ni boolean); 
var j : integer ; 1 lp: integer; 
begin 

jfnr-i; ilp>*0; 

repeat 

js* j+1; Nffalse; 
if j>8 then jfl; 
ilpf ilp-el; 

if aljl and bCi+jl and cti-jl 
then 
begin 
xii 3f j? 

aCjlffalse; bli+jlffalse; 
cli-jlffalse; 
if i<8 
then 
begin 

proboj (ie-l.w) ; 

if x>false 
then 
begin 

aCjlftrue; 
bli+jlftrue; 
cti-jlftrue; 
end; 
end 
else 
»:* true; 
end; 

until a' or (i lp*8) ; 1 

end; 1 


Sł3 


i 


] 


{tmmmmmummmmmmti) 

{ PROCEDURY KOMUNIKATOM ) 

{tmmmmittmmmimtimmt} 

procedurę koili 
var ci char s 
begin 
repeat 
nr :=0; 

M' 23 ” 


(’ PODAJ NUHER WIERSZA ’); 

sound (135. 120. B0,S0, 0,0, 0) ; 
repeat until wypressed; 

READlkbd.c): 
nr:=ord(c)-48; 
until (nr>0) and (nr<9) j 
jjotoxy(l,23); 

" E ’); 
end; 

procedurę koa2| 
var richar; 
begin 

gotoxy ( 1 , 23) j 
NRITELN 

(’ BŁĘDNY RUCH - TRACISZ 25 PUNKTOM Ml 
NRITE 

(’ MCISNIJ DONOLNY KLAMISZ Mj 

repeat 

sound (2, 100, 13, 20, 0,0,0) ; 
soundd, 150,20, 10,0,0,0); 
until keypressedl 
READ(kbd.r): 

i oto*y(l,23)| 

RITELN 


procedurę koe3; 
var richar) 
begin 

E8ri l > 23| i 


gotoxy( 

NRITELN 


( ’ NIEMOŻLIWE USTANIENIE-TRACISZ 200 PINCT. M| 
NRITE 

(’ MCISNIJ DONOLNY KLANISZ M| 

repeat 

sound ( 1 , randoel 150) *20, 10, 10, 0, 0, 0) ; 
sound ( 1 , randoe 1 100) +50, 10, 10,0,0, 0) j 
until keypressedj 
READlkbd.r); 
gotoxy(l,23); 


qotoxy(l, 

NRITELN 


’)| 




bd,r): 

(1,23); 


procedurę koe6; 
var richar ; 
begin 

S otoxy (1,23) { 

RITELN 

(’ TO JUZ BYŁO - TRACISZ 200 PUNKTOM M| 
NRITE 

(’ MCISNIJ DONOLNY KLANISZ M; 

repeat 

sound 1 1 , randoe ( 40) +60, 5, 5, 0, 0, 0) j 
sound (2, randoe (10) *80, 5, 5, 0,0,0); 
until keypressedl 
READlkbd.r)- 
qotoxy(l 
NRITELN 
(' 

NRITE 

(’ M 

end; 

t rocedure pytaj (var yichar); 
egin 
repeat 

ootoxy(l ,24) s 

NRITE (’ GRASZ DALEJ (t/n) M| 
repeat 

soundd, 50, 15,5.0,0,0); 
sound (2, randoel i0)+B0, 15, 5, 0,0,0); 
until keypressedl 
READ(kbd.y); 

until (y*’{’l or (y*’TM or (y*V) 


or (y»’NM; 

! otoxy 1 1, 23) j 
RITELN 
(' 

NRITE (’ Mj 

endi 

procedurę koes; 
var jiinteger; 
begin 

for j:*l to 5 do 
begin 

! otoxy(l,23)j 
RITE 

(’ DLACZEGO SIE PONTARZASZ M 

soundd, 20, 5, 5, 0,0,0); 

sound (2, 40, 5, 5, 0,0,0); 

end; 

end; 

{tmmmttttmmmtmmmimt) 

{ PROCEDURY INICJACJI DANYCH ) 

(mitmmiiimiiimimiimimti) 


E rocedure earp; 
egin 

for ii*l to 8 do 
at?Ii*true| 

xCi5a*0; 

end: 

for ii*2 to 16 do 
btili*true; 
for ii«-7 to 7 do 
c[il:*true; 
end; 

E rocedure inicdanych; 
egin 

graf«indo»(0, 60.640, 400); 
pozi*l; i lpun: -6; 

Tor e:*l to 92 do 
for m«l to 8 do 
tu«(e,n]i*0; 
earpt 

inkló, 26,26); 

ink (1 ,9,9) ; 

ink ( 2 , 0 , 0 ) ; 

ink (3,6.6) | 

paper (2); pen (0) ; 

grafnaper(O); border (9,9) i 

cot* ł *; 

y ,.» 

ei*false; 

end; 

E rocedure czyszcz ; 
egin 
dg(0); 

for i i*25 dounto 22 do 
begin 

Br IM ” 


immutmmmuuttuummtttt) 

( PROCEDURA SPRANDZAJACA USTANIENIE ) 

(iiiimimmitmimmimimmi) 

procedurę 

probojsaelkoiinteger; var eiboolean); 
var jiinteger; ilpiinteger; 

tnueiarray U.. 81 ot boolean; 
begin 

iip:*ko-li ei*(alse; 

Tor ji*l to 8 do 
tnuiCjh*false; 

Tor ji*l to 8 do 
if x [ j 1 >0 then 
tnue[x[j]]i*true; 
ehile ( ( i 1 p<8) and (w~f alse) ) do 
begin 
repeat 
koel; 

if tnue(nrl*false then 
ilpi*ilp*l 
else koes; 

until (tnuiCnr]*falie); 

tnue[nrli*true; 

ji«nr; 

if al}] and bIko*JI and cCko-jl 
then 
begin 
x[ko):*j; 

a[j]i*false; bIko+j]:=false; 
c[ko-j]i*false; 
ryshet(ko); 
ilpuni*ilpun+25; 
ryspunkty; 
einrue; 
end 
else 
begin 

ilpum*ilpun-25j 

ryspunkty; 

end; 

end; 

if (N*falM) 
then 
begin 

ilpum*ilpun-200; 
ryspunkty) koe3; 
end; 
end; 

(Kimiiiimmtiimtiiiiiitimmi) 

{ H0DUL STERUJĄCY PROCEDURY GRA ) 

{iiiiittiiiittiiiittmiiitiiiiimiiii) 

begin 

•ode ( 1 > ; 

inicdanych; 

czyszcz; 

repeat 

repeat 

sir 1 ' 23 " 

( ’ DEMONSTRACJA- 'd* , 6RA- 'g* , KONIEC- *k * M ; 

repeat 

sound ( 1, 20 łrandoet 150), 15, 15, 10,0,0); 
sound(2,30+randoe(200),12,12,20,0,0); 
until keypressedl 
READ(kbd,co): 

until (co*’dM or <co*’gM or (co*’kM 
or (co*’DM or (co*’6M or (co*’KM; 


if 


l’ > or 


(co*’dM or (co 1 
(co*’DM or (co* 

then 

begin 

if (co*’dM or (co*’DM 

then 

begin 

nr:*RAND0M(7)*l| 

proSoj(l,e); 

clg(0) ; 

napis; 

rysszach; 

for i:*l to 8 do 

ryshet(i)i 

gotoxy(2,23); 

MRITE ( 'MCISNIJ DONOLNY KLAMISZ* ) ; 

repeat 

soundd, 90, 15, 15, 10, 0,0); 
sound (2, 30, 12, 12,20,0,0) ; 
until keypressed; 

READ(kbd,y)i 
gotoxy(2,23); 


... - '>1 

end 

else 

begin 

czyszcz: clg(0) } ryspps; 

rysszach; 

ryspunkty; 

ryspozioe; 

repeat 

yi*’ ’; uarp; 
n*l; 

repeat 

probojsae(i.H); 
if (e*falsel 
then 
begin 

mi. .r IP TI 

then 

begin 

clg(0) ; ryspps; ryspunkty; ryspozioe; 
rysszach; earp; 

end; ** 

end 

else 

ii*i*li 

until (y*’nM or (i*9) or (y*’NM; 

if i *9 then 

begin 

ei*l| 

repeat 

ni =1 ; 

mi *f alse; 

repeat 

if tuMle.nlOstn] 

then 

ei=true 

else 

ns=ndj 

until m or (n*9); 

if n then e:=e*l else ■: =93; 

until (e*93); 

if not m 

then 

begin 

i lpun: s i lpun-200; 
ryspunkty; 
koe6; 


rai, 


M 


J (y* t‘) or(y*’TM then 
begin 

clg(0); ryspps; ryspunkty; 

ryspozioe; rysszach; 

end: 

end 

else 

begin 

for n:*l to 8 do 
tuM[poz.nI:*xCn]; 

<jotoxy(2,23); 

CBRAM0-N0ZESZ PRZEJŚĆ NA KOLEJNY P0ZI0HM; 
soundd, 10, 1,5, 10, 0,0); 
sound (2, 40, 2, 2, 20, 0,0); 

fW. „r lyl- ) th. 
begin 

clg(0) ; ryspps; ryspunkty; 

rysszach; 

pozt*poz+l; 

ryspozioe; 

end; 

end; 

end; 

until (poz >93) or (v*V) or (y*’NM; 
if (y*’nM ąr (y»’NM then co:*’k’ 

else 

begin 

gotoxy(l,23): 

NRITE (’ JESTES MISTRZEM MIM; 

sound (1,120,90,5, 10,0,0); 

sound <2, 40, 90, 20, 20,0,0); 

co:='k’j 

end; 

end; 

end; 

until (co*'kM or (co*’KM; 
end; 


Przygotowanie drukarki GEMINI-10Xi 
do drukowania wersji źródłowych programów 


Zestaw mikrokomputerowy AMSTRAD CPC 6128 z drukarką 
CEMINI— 10Xi może być wykorzystywany do drukowania wersji 
źródłowych programów. Dokonuje się tego za pomocą ko- 
mendy LIST#:8. Jednak uzyskany w ten sposób wydruk ma nastę- 
pujące mankamenty: 

— brak stronicowania; 

— pisanie długich instrukcji na perforacji i poza papierem; 

— brak możliwości uzyskania innych formatów niż A4. 
Problem ten można rozwiązać stosując kody sterujące pracą 
drukarki. 


Prezentowany program umożliwia sformatowanie wydruków 
poprzez wstawienie odpowiednich kodów, zwalniając użyt- 
kownika od konieczności ich znajomości. Rola użytkownika 
ogranicza się do wyboru następujących opcji (w nawiasie war- 
tości standardowe): 

— długość strony (12 cali); 

— rodzaj czcionki (10 znaków/cal); 

— margines górny (2 linie); 

— margines dolny (2 linie); 

— margines lewy (2 znaki); 

— szerokość tekstu (w zależności od rodzaju czcionki: 68, 83, 
118 znaków); 


10 MODĘ 2i INK 0.1: INK >1,261 PAPER 0: PEN 1 : BORDER 1 

20 PRWPRZYGOTONANIE DRUKARKI geelni-lOtl DO 0RUK0HAN1A WERSJI ZR0DL0WYCH PR 
06RAMOW* 

25 WIN0CW £1,1, 80, 22, 23: PAPER tl.lrPEN £1,0:CIS ClilOCATE £1,1,2 iPRINT £1,* U W 
AGA: Naciśniecie klawisza ENTER powoduje przyjęć 
ie wartości podanych w nawiasach.* 

30 L0CATE 1.3: INPUT 'Dlugosc strony 112 cali): 

',a* 

40 IF a* s " THEN a»='l2* 

45 a*3: G0SU6 2000 

46 IF blad«l THEN GOTO 30 

50 d:s*'*"fci’a») i 

60 IF alstr .1 CF. ;:nr>32 THEN GOSUB lOOOlGOTO 30 

70 L0CATE 1.5:PRINT“ Inne warianty : i2 znakow/cal lub 17 znakow/cal " 

80 L0CATE 1,4: INPUT 'Rodzaj czcionki (10 znakow/cal > i 

'.at 

90 IF a«o" THEN aSo'10' 

95 a*4: S0SUB 2000 

96 IF blad«l THEN GOTO 80 
100 ro*VAl(ał) 

110 IF rp<>10 AND rp<>12 AND rp<>17 THEN GOSUB lOOOlGOTO 80 
120 IF rpMO THEN ro«80 
130 IF rpM2 THEN rp«77 
140 IF rp-17 THEN rp-15 

200 L0CATE 1 , 6 :PRINT' Haksynalsy eargines - połowa strony" 

210 L0CATE 1,5: INPUT 'Margines górny (2 linieli 

*,ał 

220 IF aU" THEN a«*'2* 

225 a«5: GOSUB 2000 

226 IF bladM THEN GOTO 210 

227 »g=VAl(a») 

230 IF ig<l 0R eg>lNT(dlstr/2l6) THEN GOSUB IOOO 16 OTO 210 
250 10CATE 1.7: PRINT" Naksyealiy earglnes - połowa strony* 

260 L0CATE 1,6: INPUT 'Nargines dolny 12 linie): 

",a* 

270 IF a* s “" THEN a«="2“ 

275 a* 6 : GOSUB 2000 

276 IF bladM THEN 60T0 260 

277 ed=VALIaS) 

280 IF «d<l 0 R ad>INT(dlstr/2«6) THEN GOSUB iOOOsGOTO 260 
300 L0CATE I. 81 PRINT ' Haksyealny earglnes - 30 znaków' 

310 L0CATE 1,7: INPUT "Margines lewy (2 znaki): 

'.a* 

320 IF a»«" THEN a»*'2' 

325 a«7: GOSUB 2000 

326 IF blad M THEN GOTO 310 

ibnw ic 


— odstęp między wierszami (9/72 cala); 

— druk wytłuszczony ? (T/N) 

U dołu ekranu jest wyświetlana informacja, że naciśnięcie kla- 
wisza ENTER powoduje przyjęcie wartości podanej w nawia- 
sach. Podawane przez użytkownika wartości poddawane są 
wnikliwej kontroli formalnej i merytorycznej. 

Kontrola formalna polega na zbadaniu, czy wprowadzana 
wartość jest typu numerycznego (podprogram 2000—2030). 
Kontrola merytoryczna polega na sprawdzeniu każdego z po- 
danych parametrów z wartościami granicznymi charakterysty- 
cznymi dla odpowiedniego kodu sterującego. W przypadku 
podania błędnego parametru na ekranie jest sygnalizowany 
błąd i należy powtórnie podać żądaną wartość. 

Ustawienie drukarki (podanie odpowiednich kodów sterują- 
cvrh) odbywa się w in^ł ' • 1 1 ■ IDO. 

Po podaniu wszystkich parametrów należy załadować do pa- 
imn 1 pmgram, który ma być drukowany oraz wprowadzić ins- 
trukcję LlbT»*8. 

1 jkiwunie różnorodny* h loim JiMingow satystakc jonu- 
jących Czytelników pozostawiamy posiadaczom drukarek GE- 
MINI — 10Xi. 

Mieczysław SKONIECZNY 
Robert ZUGCHOR 


327 el*VAL(a») 

330 IF il<l 0R «1>30 THEN GOSUB lOOOlGOTO 310 
350 «*70-«l 

360 IF rp*77 THEN *«85-»l 
370 IF rp-15 THEN *M20-*1 

380 L0CATE l,8iFRINT "Szerokość drukowanego tekstu ('luj* znakoM) : ”:L0CATE 76,8: 
INPUT , a* 

390 IF ał=” THEN a*M1ID*(STRł<x>.2,10) 

395 a=S: GOSUB 2000 

396 IF bladM THEN 60T0 380 

397 sd*VAL(ał) 

400 IF sd<! 0R sd>x THEN GOSUB 1000:6070 380 
405 L0CATE MOiPRINT' Podaj licznik ulaaka n/72'| 

410 L0CATE 1,9: INPUT "Odstęp uledzy wierszael (9/72 cala) i 

“.a* 

415 IF ał='* THEN ał="9' 

416 a=9: GOSUB 2000 

417 IF bladM THEN GOTO 410 

418 od*VAl(a») 

420 IF od<9 OR od >255 THEN G0SUP lOOOlGOTO 410 
440 L0CATE 1,10: INPUT 'Druk wytłuszczony 7 ( T / N I: 

“,a* 

450 IF a**"*'THEN 60T0 440 

460 IF UPPERł(a*K>'T'AND UPPER*(a»)0*N“ THEN aMOiGOSUB lOOOlGOTO 440 
470 tl«0 

480 IF 'JPPER*(a»)*'T* THEN tlM 

500 PRINT£8,CHRS(27) CHRK67) CHRS(O) CHR»(dlstr>:CHR^(27) CHR$(rp)|CHRS(27) CHR 
1(114) CHR*(«g+l)sCHR*(27) CHR* (78) CHR*(ad))CHR«(27 

) CHR* (108) CHR*(al)|CHR*(27) CHR*(81) CHR*(»Hsd>?CHR*(27l CHR* (65) CHRłlodJjCH 
ft* (27) CHR* (50) :CHR* (27) CHRł(72-tlH 
510 PRINT£8.CHR*(12): 

520 CLS £1:PRINT£1,":PRINT£1," 1. Załaduj progran, który chcesz drukować koeen 
ja LOAD 2. Horowadz koeende 

LIST £8" 

999 END 

1000 L0CATE l,a:PRINT'NieDoprawny parawetr 

1010 FOR tM TO ISOOiNEIT t 
1020 RETURN 
2000 blad*0 

2005 FOR iM TO LENIa*) 

2010 IF ASC(ltIDł(af.i,l))<48 0R ASC(NIDt(at,i,l))>57 THEN blad M 
2015 NEXT 1 

2020 IF bladM THEN L0CATE 1 , a: PRINT' Nartosc uitenumeryczna "|a*)“ 

* z FOR tM TO ISOOiNEH 


2030 RETURN 


Syntezatory muzyczne mają już długą historią. Od najprostszych monofoni- 
cznych urządzeń analogowych doszliśmy do skomputeryzowanych układów mo- 
gących naśladować jednocześnie całą gamą Instrumentów I wytwarzać niezwykłe, 
nigdzie dotąd nie uzyskiwane dźwięki. Bogata paleta możliwości została okupiona 
koniecznością programowania licznych parametrów dźwięku. Obecnie produko- 
wane syntezatory są to wyspecjalizowane programowane układy cyfrowe, gdyż 
tylko takie urządzenia zapewniają wysoką jakość brzmienia instrumentu. Niestety 
każdy kij ma dwa końce. Programowanie brzmień jest trudną I pracochłonną 
czynnością. Aby oszczędzić muzykom wiele godzin ciężkiej pracy producenci do- 
łączają do swoich produktów tzw. cartidge, czyli pakiety już zaprogramowanych 
brzmień. Innym, bardziej ambitnym sposobem jest programowanie za pomocą 
komputera. Specjalne programy umożliwiają graficzne tworzenie dźwięków na ekra- 
nie monitora, wygodną edycję parametrów itp. Komputer przetwarza pomysły 
muzyka na odpowiedni ciąg danych I przysyła je do syntezatora. W tym miejscu 
powstaje bardzo ważny problem: w jaki sposób komputer ma nawiązać kontakt z 
syntezatorem? 

Aby zapewnić pełną łączność pomiędzy 
wszystkimi instrumentami muzycznymi i do- 
wolnymi komputerami przyjęto specjalny 
rodzaj transmisji nazywany MIDI (z angiel- 
skiego: Musical Instrument Digital Interfa- 
ce). Urządzenia Wyposażone w system MIDI 


STRUKTURA PROGRAMU 

1 ) każdy program składa się z rozkazów, 

2) rozkazy w programie są tak ułożone, 
że komputer dokładnie wie, w jakiej ko- 
lejności ma je wykonać, 

3) dobry program ma budowę strukturalną i 
składa się z podprogramów (cegiełek), 
które połączone w odpowiedni sposób 
budują program 

Jeżeli przeprowadzimy następujące po- 
wiązania/znaczeń: 

a) dźwięk — rozkaz, 

b) takt — podprogram, 

c) utwór — program, 
to otrzymamy: 

STRUKTURA UTWORU 

1 ) każdy utwór składa się z dźwięków, 

2) dźwięki są wykonywane w ściśle okreś- 
lonej kolejności, 

3) utwór ma budowę strukturalną i składa 
się z taktów. 

Każdy programista wie, jak ważnym na- 
rzędziem w jego pracy jest edytor, Za jego 
pomocą tworzymy, poprawiamy i rozbudo- 
wujemy program. 

Nasz sekwencer posiada dwa niezależne 
edytory: edytor taktu (pozwala na budowa- 
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KOMPUTERA 


Krzysztof POŹNIAK, Jarosław ZIEMBICKI 


Ry». *1 

można ze sobą łączyć i przesyłać między 
nimi Informacje. Dotyczy to zarówno trans- 
misji między komputerem i urządzeniem 
muzycznym, jak również między samymi 
urządzeniami muzycznymi (rys. 1 ). Standard 
MIDI umożliwia łączność z 16 niezależnymi, 
wspólnie połączonymi urządzeniami, poten- 
cjalne możliwości współpracy są zatem 
olbrzymie. Poprzez MIDI jesteśmy w stanie 
programować syntezatory, perkusje elek- 
tryczne, wzmacniacze estradowe, efekty 
elektroniczne (np. delay) itp. 


Każdy, kto choć trochę interesował się 
muzyką elektroniczną zauważył, że muzycy 
posługują się całymi zestawami instrumen- 
tów, które znakomicie ze sobą i z muzykiem 
współpracują. To zgranie jest możliwe dzięki 
specjalnemu urządzeniu sekwencerowi 
Sekwencer w określonym (uprzednio za- 
programowanym) tempie wysyła do połą- 
czonych z nim instrumentów rozkazy gene- 
racji dźwięków i ustala odpowiednie 


brzmienia. Z naszego punktu widzenia wy- 
konuje zapisany przez muzyka program. 

Do chwili obecnej, na łamach miesięczni- 
ków związanych z komputerami, pojawiły się 
artykuły opisujące parametry poszczegól- 
nych dźwięków. Bardzo ciekawym i poleca- 
nym przez nas jako wstęp jest ciąg artyku- 
łów Jacka Jędrzejowskiego o skomputery- 
zowanej muzyce, jaki ukazał się w Informi- 
ku" (dodatek do „Młodego Technika"). 

W naszym artykule chcemy pokazać mu- 
zykom amatorom, jak można programować 
utwory za pomocą komputera. Tak napisa- 
ne utwory będą odtwarzane, bądź za pomo- 
cą wbudowanych w komputer generatorów 
dźwięku, bądź przez instrumenty elektroni- 
czne (np. syntezatory i perkusje). 

Pragniemy w tym miejscu wtrącić bardzo 
ważną uwagę: każdy komputer nadaje się 
do transmisji MIDI i może służyć jako sek- 
wencer dla instrumentów elektronicznych. Z 
powodzeniem wypróbowaliśmy komputery 
ZX SpectruiYi i Sinclair QL, jako sterowniki 
syntezatorów CASIO CZ 1 000, KORG POŁY 
800, KORG DW 6000 YAMAHA DX 7, RO- 
LAND & YUNO 1 i perkusji elektronicznych 
ROLAND TR 505, YAMAHA RX 1 5. 

Tworzenie muzyki za pomocą komputera 
upodabnia się do pisania programu w 
określonym języku wyższego rzędu (np. Ba- 
slcu, Pascalu itp.) i dlatego dla wyjaśnienia 
kilku ważnych pojęć, którymi będziemy się 
posługiwać, wykorzystamy następujące po- 
równanie: 


nie i korekcję taktów) i edytor utworu (za 
jego pomocą z istniejących taktów składa- 
my utwór). 

Podstawową strukturą sekwencera 
przedstawia rysunek 2. 

a) stronę edycyjną obsługują wyżej opisane 
edytory, 

b) nadrzędną strukturą programową jest 
utwór (jednocześnie zapisanych utworów 
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może być kilka). Każdy utwór zbudowany 
jest z dowolnej ilości taktów, które mogą się 
wzajemnie zapętlać (powtarzać) określoną 
ilość razy Zapętlenia mogą wnikać w głąb 
siebie, analogicznie, jak pętle FOR— NEXT 
w programie komputerowym. 

C) podrzędną strukturą programową jest 
takt Jest to merozdzielna sekwencja dźwię- 
ków. Takt określa kilka parametrów 
parametr 1: ilość kroków — w pewien 
sposób łączy się z metrum taktu i informu- 
je ile maksymalnie dźwięków może zmie- 
nić się na jednym śladzie. Na rys. 2 
przedstawiony został przykładowy takt 
posiadający 1 6 kroków. Oznacza to, ze na 
jednym śladzie można umieścić 16 kolej- 
no zmieniających się dźwięków (nazywa- 
nych szesnastkami), bądź 8 dwukrotnie 
dłuższych dźwięków (ósemek), albo 
dźwięków o innych długościach przedzie- 
lonych przerwami (pauzami) Mozę wy- 
stąpić ścieżka pusta (przykładowo ścież- 
ka 4) lub ścieżka generująca dźwięk 
ciągły (tak jak ścieżka 5). 
parametr 2: tempo — informuje jak 
szybko mają następować po sobie kolej- 
ne kroki. Każdy takt może posiadać inne 
tempo. 

parametr 3: ilość ścieżek — każda 
ścieżka zawiera informacje przekazywa- 
ne jednemu źródłu dźwięku (może być to 
generator w syntezatorze, lub pojedynczy 
instrument w perkusji elektronicznej). 
Ilość ścieżek zależy od liczby niezale- 
żnych źródeł dźwięku wykorzystywanych 
w danym takcie Ponieważ sekwencer 
przystosowany jest do sterowania kilkoma 
instrumentami jednocześnie, stąd ścieżki 
można w dowolny sposób przypisać po- 
szczególnym instrumentom (np. ścieżki 
1 —4 mogą obsługiwać syntezator, ścieżki 
5—8 generatory komputera, a pozostałe 
perkusję). 

Pragniemy na zakończenie pierwszej 
części artykułu wyjaśnić, ze prezentowany 
sekwencer ma dosyć ubogą strukturę i na- 
leży go analizować bardziej od strony dy- 
daktycznej niż eksploatacyjnej. Stanowi on 
jednak dobrą bazę do rozbudowy przez po- 
szczególnych użytkowników. Jego prostota 
zapewnia przejrzystość działania, a nam 
umożliwia przedstawienie podstawowych 
problemów programowania utworów i ich 
transmisji w systemie MIDI 
Zwracamy się w tym miejscu do czytel- 
ników zainteresowanych opisanymi pro- 
blemami o kontakt z redakcją. „IKS" może 
stać się czasopismem, na łamach którego, 
tematyka związana z programowaniem mu- 
zyki za pomocą komputera znajdzie godne 
miejsce. Warto tę szansę wykorzystać! 





Programowanie 
mikroprocesora 
6502 

Henryk KRASUSKI 

Każdy użytkownik mikrokomputera ATARI XL/- 
XE często irytuje się, obserwując realizację pro- 
ramów napisanych w języku BASIC — są one wy- 
onywane powoli. Czy można zwiększyć szybkość 
ich działania? Oczywiście, istnieje na to sposób. 
Jest nim programowanie w języku asemblera. 

Na wstępie pragnę uczynić jedno zastrzeżenie: nie nama- 
wiam użytkowników ATARI do zaniechania programowania w 
BASIC-u. ATARI BASIC jest dobrym i bardzo wygodnym narzę- 
dziem programowania, a to, że niektóre operacje wykonuje 
owoli, jest jego wadą, charakterystyczną dla wszystkich języ- 
6w interpretacyjnych, którą łatwo wyeliminować, włączając do 
programu w języku BASIC procedury w kodzie maszynowym. 
Operacja ta jest prosta, nawet dla początkującego programisty 
dzięki instrukcji języka BASIC X=USR (...), za pomocą której 
można wywołać podprogram maszynowy i przekazać do niego 
wiele parametrów. 

jest rzeczą oczywistą, że trzeba wiedzieć, w jakiej sytuacji 
włączenie procedury w kodzie maszynowym przyniesie ocze- 
kiwane korzyści, tzn. wydatnie przyspieszy działanie programu, 
a w jakiej zabieg ten okaże się nieopłacalny. Na pewno nie war- 
to programować operacji arytmetycznych, czy arytmetyki 
zmiennoprzecinkowej w kodzie maszynowym. Istnieją nato- 
miast obszary, w których zastosowanie kodu maszynowego 
zwiększa szybkość działania programu od kilku do kilkunastu 
razy, a w skrajnych przypadkach nawet 1000 razy. Obszarami 
tymi są: 

— generowanie dźwięków; 

— wyprowadzanie dużych zbiorów informacji na ekran; 

— pętle programowe w języku BASIC, realizujące przesłania 
pomiędzy bajtami pamięci, zmieniające zawartość obszarów 
pamięci oraz wyszukujące z nich bajty o określonej zawartości; 

— wykonywanie operacji logicznych na pojedynczych bi- 
tach. 

W ostatnim przypadku mniej istotna jest szybkość działania, 
lecz fakt, że operacje tego typu są niemożliwe do wykonania z 
poziomu języka BASIC. 

Tworzenie programów w kodzie maszynowym wymaga zna- 
jomości mikroprocesora MOSTEC 6502, jego architektury, listy 
rozkazów i sposobu ich wykonywania oraz podstawowych pro- 
cedur systemu operacyjnego. Ponadto przydatny jest do tego 
asembler (nie jest niezbędny), tj. program tłumaczący rozkazy z 
postaci mnemonicznej na ich kod maszynowy. Godnym pole- 
cenia jest pakiet ATARI Assembler Editor, zawierający oprócz 
asemblera, edytor — umożliwiający pisanie i poprawianie pro- 
gramów oraz debugger — program przeznaczony do testowa- 
nia napisanych programów maszynowych. Zaletą tego pakietu 
jest możliwość współpracy z magnetofonem i stacją dysków, co 
z punktu widzenia wielu użytkowników ATARI nie posiadają- 
cych stacji dysków jest rzeczą o istotnym znaczeniu. 

Na początek kilka słów o architekturze mikroprocesora 6502. 
Do jej elementów należą: 

a) 8-bitowa szyna danych; 

b) 16-bitowa szyna adresowa; 

c) jeden akumulator — rejestr A; 

d) dwa 8-bitowe rejestry indeksowe — rejestr X i Y; 

Rejestry te można również wykorzystywać, podobnie jak aku- 
mulator, tzn. można przechowywać w nich dane, przesyłać za 
ich pośrednictwem dane pomiędzy bajtami pamięci, itp. ; 

e) rejestr stanu mikroprocesora, zwany również rejestrem 
flagowym lub rejestrem F; 

* f) stos mikroprocesora. Stanowi go pierwsza strona pamięci 
mikrokomputera, tj. bajty o adresach od 256 do 511 ($100 — 
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$1FF). Ze stosem związany jest 9-bitowy wskaźnik stosu — re- 
jestr S; 

g) licznik programu — 16-bitowy rejestr PC (ang. Program 
Counter); 

h) dwie linie przerwań mikroprocesora; 

i) strona zerowa pamięci mikrokomputera, tj. bajty o adre- 
sach od 9 do 255 ($00 — $FF). Czytelnicy, którzy już są zapozna- 
ni z problematyką programowania mikroprocesora 6502, mogą 
być zaskoczeni zaliczeniem strony zerowej pamięci do jego ar- 
chitektury. W literaturze na temat 6502 strona zerowa pamięci 
nie jest traktowana jako element architektury. Jednak «e 
względu na istnienie specjalnego trybu adresowania dostępne- 
go dla wielu rozkazów 6502, tzw. adresowania strony zerowej, 
uważam, że stanowi ona istotny jej element. Ponadto cały me- 
chanizm adresowania pośredniego realizowany jest przez 6502 
przy wykorzystaniu bajtów tej strony — co również przemawia 
za traktowaniem jej jako elementu architektury. 

Na bliższe przedstawienie zasługują trzy elementy spośród 
wyżej wymienionych, a mianowicie: stos i wskaźnik stosu, re- 
jestr F I licznik programu. 

Stos jest bardzo ważnym elementem każdego systemu mi- 
krokomputerowego. Można go sobie wyobrazić jako zbiór rejes- 
trów wykorzystywanych przez mikroprocesor przy obsłudze 
przerwań, do chwilowego przechowywania danych pobranych 
z pamięci, przy wykonywaniu procedur wywoływanych z wy- 
konywanego programu, Itp. Mikroprocesor 6502 stosuje specy- 
ficzną metodę wprowadzania i odczytywania informacji ze sto- 
su — zwaną UFO (ang. last-in, first-out). Metoda ta polega na 
tym, że informacja zapisana do stosu jako pierwsza, odczytana 
zostanie jako ostatnia, natomiast informacja wprowadzona do 
stosu jako ostatnia, będzie pierwszą przy odczycie. Adres stosu, 
do którego zapisano ostatni element, zawarty jest we wskaźniku 
stosu (dokładnie jest to ten adres zwiększony o jeden). Wska- 
źnik stosu jest jedynym 9-bitowym rejestrem mikroprocesora 
6502. Jego najbardziej znaczący bit jest zawsze równy jeden. 
Gdy stos jest pusty, wskaźnik stosu wskazuje adres 511 ($1FF). 
Przy wprowadzeniu kolejnegte bajtu do stosu wskaźnik stosu 
jest zmniejszony o jeden aż do wartości 256 ($100). Próba 
wprowadzenia do stosu informacji przy wskaźniku równym 256 
prowadzi do przepełnienia stosu i w sytuacji, gdy wartość wska- 
źnika nie jest kontrolowana, konsekwencją tego może być za- 
łamanie systemu. Wywoływanie podprogramów maszynowych 
z języka BASIC realizowane jest z wykorzystaniem stosu mi- 
kroprocesora. Instrukcja: 

X=USR(adres,par1, par2,...,parn) 
działa w sposób następujący: 

— na stos przesyłane są dwubajtowe parametry w kolejności 
odwrotnej od tej, w jakiej zostały wymienione w instrukcji USR, 
tzn. najpierw wysyłany jest parn i wskaźnik stosu jest zmniejsza- 
ny o 2; 

— kolejno przesyłane są pozostałe parametry... par2, parł. 
Każdy z nich zajmuje dwa bajty stosu; 

— na końcu na stos wysyłana jest jednobajtowa liczba prze- 
słanych parametrów. 

Ilustruje to poniższy schemat: 
X~USR(adres.par1,par2,...,pam) 


początek stosu 

starszy bajt 

parn 

młodszy bajt 


starszy bajt 

par2 

młodszy bajt 

starszy bajt 

parł 

młodszy bajt 


liczba param. 

szczyt stosu 

Wywołany podprogram maszynowy, przed rozpoczęciem 
realizacji przypisanej mu funkcji, musi pobrać ze stosu przeka- 
zane parametry. Wykonuje to sekwencją rozkazów PLA i STA 
(patrz lista rozkazów). Nawet w sytuacji, gdy do podprogramu 
maszynowego nie są przekazywane żadne parametry musi on 


i 


i 


usunąć ze stosu bajt zawierający ich liczbę — w tym przypadku 
zero. Zatem każdy podprogram maszynowy, przeznaczony do 
współpracy z językiem BASIC musi wykonać rozkaz PLA jako 
pierwszy. 

Wykonany podprogram maszynowy może przekazywać z 
powrotem do języka BASIC wynik zrealizowanej funkcji. Może 
to czynić w dwojaki sposób. Jeżeli wynik zrealizowanej funkcji 
mieści się na dwóch bajtach, to podprogram maszynowy może 
umieścić go w bajtach strony zerowej o adresach $D4 (młodszy) 
i $D5 (starszy). Przekazany w ten sposób wynik jest dostępny z 
poziomu języka BASIC w zmiennej X użytej przy wywołaniu 
podprogramu maszynowego. Natomiast, jeżeli wynik działania 
podprogramu maszynowego nie da się przekazać w dwóch baj- 
tach pamięci (np. posortowana tablica stałych tekstowych), to 
może on być przekazany do języka BASIC w zarezerwowanym 
dla tego celu obszarze pamięci, którego adres powinien być 
przekazany do podprogramu maszynowego jako jeden z para- 
metrów. 

Rejestr stanu mikroprocesora zawiera szereg wskaźników, 
które mogą być wykorzystywane przez program maszynowy. 
Zawartość niektórych z nich może być zmieniana przez pro- 
gramistę dla specyficznych celów, jednak z reguły ich zawartość 
jest modyfikowana przez mikroprocesor, aby poinformować 
programistę o aktualnym "stanie procesu przetwarzania. Reje- 
str ten można zobrazować poniższym schematem: 
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Znaczenie poszczególnych wskaźników jest następujące: 

N — wskaźnik znaku. Jest ustawiony (N=1), gdy po wykona- 
niu ostatniego rozkazu w bajcie zawierającym wynik, najbar- 
dziej znaczący bit jest równy jeden. Gdy po wykonaniu ostat- 
niego rozkazu najbardziej znaczący bit wyniku jest zerem, 
wskaźnik N jest zgaszony (N=0). Wskaźnik ten jest ustawiany 
również przez procedury systemu operacyjnego, obsługujące 
urządzenia zewnętrzne w przypadku niepomyślnego zakoń- 
czenia przesłania danych z/do tych urządzeń. 

V — wskaźnik przepełnienia. Jest ustawiany w sytuacji, gdy 
wynik ostatniego rozkazu nie mieści się na siedmiu bitach i do 
jego przedstawienia musi być użyty najbardziej znaczący bit, 
który normalnie jest bitem znaku. 

B — wskaźnik przerwania programowego. Jest ustawiany, gdy 
miroprocesor wykona rozkaz przerwania BRK (patrz lista roz- 
kazów). 

D — wskaźnik dziesiątego trybu pracy mikroprocesora. Jest 
ustawiany i gaszony przez programistę. Gdy jest ustawiony mi- 
kroprocesor traktuje liczby, na których wykonuje operacje aryt- 
metyczne nie jak liczby binarne, a jak liczby w kodzie BĆD. 

I — wskaźnik przerwań sprzętowych. Programista ustawiając 
ten wskaźnik blokuje przerwania tego typu. 

Z — wskaźnik zera. Ustawiany jest, gdy wynikiem ostatniego 
wykonanego rozkazu jest zero. Ustawiany jest również, gdy 
bajt zawierający zero zostanie pobrany z pamięci do akumula- 
tora lub jednego z rejestrów indeksowych. 

C — wskaźnik przeniesienia. Jest ustawiany, gdy wynik do- 
dawania lub odejmowania nie mieści się w jednym bajcie. Na 
przykład: gdy dodamy do siebie dwie liczby 128 i 129, to otrzy- 
mamy 257. W takiej sytuacji wskaźnik C zostałby ustawiony, po- 
nieważ liczby 257 nie da się zapisać na ośmiu bitach. Wskaźnik 
może być ustawiony również przez rozkazy przesuwające w 
lewo lub w prawo zawartość bajtów (patrz lista rozkazów). 

Do efektywnego łączenia podprogramów maszynowych z 
programem w języku BASIC wystarczy posługiwanie się czte- 
rema z wyżej wymienionych wskaźników: N, Z, C i V. 

Licznik programu jest 16-bitowym rejestrem, w którym mi- 
kroprocesor przechowuje adres następnego rozkazu, który ma 
być wykonany. Licznik programu zbudowany jest z dwóch rejes- 
trów 8-bitowych PCL i PCH, natomiast efektywny adres roz- 
kazu do wykonania obliczany jest według znanej zależności ad- 
res = (PCL) + 256 * (PCH). 

Zestaw rozkazów mikroprocesora składa się z 56 rozkazów. 
W większości rozkazów można wyodrębnić dwa elementy: kod 
operacji do wykonania (kod rozkazu) i operand. Kod rozkazu 
jest liczbą z zakresu 0—255 i zawsze zajmuje jeden bajt pamięci. 
Operand wskazuje argument rozkazu, tj. bajt w pamięci mikro- 
komputera lub rejestr mikroprocesora, na którym operacja ma 
być wykonana. Operand może zajmować jeden albo dwa bajty 
pamięci lub może w ogóle nie występować. Stąd rozkazy mi- 


kroprocesora mogą mieć różną długość — od jednego do trzech 
bajtów. 

bajt n n+1 n+2 

| kod | rozkaz jednobajtowy 

| kod | |operand| rozkaz dwubajtowy 

| kod | o p e |r a n d| rozkaz trzybajtowy 

Wiele rozkazów 6502 posiada kilka trybów adresowania. Tryb 
adresowania zawiera informację o sposbie interpretacji ope- 
randu i o jego wielkości. W dalszej części artykułu przedstawio- 
ne zostały wszystkie tryby adresowania rozkazów mikroproce- 
sora 6502. Dla każdego trybu podany został sposób zapisu ope- 
randu wymagany przez pakiet ATARI Assembler Editor oraz 
sposób, w jaki obliczana jest efektywna wartość argumentu 
rozkazu. W każdym trybie adresowania operand, o ile występu- 
je, może być liczbą szesnastkową (poprzedzoną znakiem $ lub 
liczbą dziesiętną. 

1. Adresowanie natychmiastowe 

kod # operand 

Operand jednobajtowy. Argumentem rozkazu jest operand. 
Np.: rozkaz LDA # 20 powoduje, że do akumulatora zostanie 
wprowadzona liczba 20. 

2. Adresowanie absolutne 

kod operand 

Operand dwubajtowy. Argumentem rozkazu jest zawartość 
bajtu, którego adres jest równy wartości operandu. 

3. Adresowanie absolutne indeksowane 

kod operand, X 
kod operand, Y 

Operand dwubajtowy. Argumentem rozkazu jest zawartość 
bajtu o adresie powstałym przez dodanie do wartości operandu 
zawartości jednego z rejestrów indeksowych X lub Y. 

4. Adresowanie strony zerowej 

kod operand 

Operand jednobajtowy. Argumentem rozkazu jest zawartość 
bajtu ze strony zerowej. Adres tego bajtu jest równy wartości 
operandu. 

5. Adresowanie strony zerowej indeksowane 

kod operand, X 

Operand jednobajtowy. Argumentem rozkazu jest zawartość 
bajtu ze strony zerowej o adresie równym wartości operandu 
zwiększonej o zawartość rejestru indeksowego X. Jak widać, ten 
tryb adresowania może używać jako rejestru indeksowego wy- 
łącznie rejestru X. Jednakże istnieją dwa rozkazy stanowiące wy- 
jątek od tej zasady. Są to LDX (załaduj do rejestru X) i STX (prze- 
ślij zawartość rejestru X). Rozkazy te mogą używać jako rejestru 
indeksowego, w tym trybie adresowania — rejestru Y. 

6. Adresowanie absolutne pośrednie 

kod (operand) 

Operand dwubajtowy. Istota adresowania pośredniego polega 
na tym, że operand nie wskazuje bezpośrednio adresu argu- 
mentu, jak to miało miejsce w wyżej wymienionych trybach ad- 
resowania, lecz bajt w pamięci — wskaźnik, z którego pobiera- 
ny jest adres argumentu. Jest to sytuacja analogiczna do tej, któ- 
ra ma miejsce przy wykorzystaniu instrukcji GOTO z języka BA- 
SIC, zawierającej zamiast numeru linii nazwę zmiennej, do któ- 
rej wcześniej wpisano numer linii. Jedynym rozkazem mikro- 
procesora 6502, w którym dozwolone jest użycie tego trybu 
adresowania, jest rozkaz skoku JMP. Na przykład: rozkaz JMP 
($1000) nie skacze bezpośrednio do rozkazu zawartego w bajcie 
o adresie $1000, lecz jest realizowany w sposób następujący: 

— pobierana jest zawartość bajtu o adresie równym wartości 
operandu i bajtu następnego, tj. o adresie o jeden większym, 
w przykładzie są to bajty o adresach $1000 i $1001; 

— zawartość tych dwóch bajtów traktowana jest jako 16-bi- 
towy adres obliczany według zależności: ($1000)+($1001)«256; 

— skok następuje do rozkazu zawartego w bajcie o obliczo- 
nym adresie. 

Wszystkie inne rozkazy, które mogą używać adresowania po- 
średniego, muszą jednocześnie używać rejestrów indeksowych 
X lub Y. Istnieją dwa tryby adresowania pośredniego 
wykorzystujące te rejestry. Są one przedstawione poniżej. 

7. Adresowanie indeksowane pośrednie 

kod (operand, X) 

Operand jednobajtowy. Ten tryb adresowania wymaga użycia 
rejestru X. Jego zawartość dodawana jest do wartości operandu. ^ 
Suma wskazuje adres bajtu na stronie zerowej. Wskazywany W 
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bajt i bajt następny zawierają 16-bitowy adres argumentu roz- 
kazu. 

8. Adresowanie pośrednie indeksowane 

kod (operand), Y 

Operand jednobajtowy. Tryb ten wymaga użycia rejestru inde- 
ksowego Y. Adres argumentu rozkazu wyznaczany jest podob- 
nie jak w trybie przedstawionym w punkcie 7. Zasadnicza róż- 
nica polega na tym, że zawartość rejestru nie jest dodawana do 
wartości operandu, a do 16-bitowego adresu, pobranego z 
dwóch bajtów, z których pierwszy wskazywany jest przez ope- 
rand. Mówiąc inaczej: w adresowaniu indeksowanym pośred- 
nim wartość indeksu dodawana jest do wartości operandu 
przed wyznaczeniem efektywnego adresu argumentu rozkazu 
(preindeksacja). Natomiast w adresowaniu pośrednim inde- 
ksowanym wartość indeksu dodawana jest po wyznaczeniu ad- 
resu (postindeksacja). 

9. Adresowanie względne 

kod operand 

Operapd jednobajtowy. Ten tryb adresowania dozwolony jest 
jedynie dla rozkazów skoków tzw. krótkich. Operand trakto- 
wany jest jako liczba dodatnia, gdy jest mniejszy od 128 lub jako 
liczba ujemna — równa 256 minus jego wartość, gdy jest nie 
mniejszy od 128. Liczba ta dodawana jest do zawartości licznika 
programu, wyznaczając adres, do którego zostanie wykonany 
skok. Ponieważ licznik programu zawsze wskazuje adres na- 
stępnego do wykonania rozkazu, a rozkazy skoków „krótkich" 
zajmują dwa bajty pamięci, to za ich pomocą „skoczyć" można 
maksymalnie o 129 (127+2) bajtów do przodu i 126 ( — 128+2) 
bajtów do tyłu od adresu, w którym znajduje się rozkaz skoku. 
Podprogram maszynowy, w którm wykorzystano wyłącznie 
rozkazy skoków z tym trybem adresowania jest relokowalny, 
tzn. będzie działał poprawnie bez względu na obszar pamięci, 
w którym zostanie umieszczony. Podprogramy tak skonstruo- 
wane mogą być umieszczane w stałych tekstowych języka BA- 
SIC. Natomiast podprogramy, w których zastosowano rozkazy 
skoków tzw. długich (JMP i JSR), muszą rezydować w ściśle 
określonych miejscach pamięci — są programami niereloko- 
walnymi. Umieszczenie tych programów w nieodpowiednich 
obszarach pamięci powoduje ich złe działanie. Wyjątek stanowi 
użycie rozkazów JSR i JMP do wywołania procedur systemu 
operacyjnego — podprogram maszynowy jest w tym przypadku 
również relokowalny. 

10 v Adresowanie akumulatora 

kod A 

W tym trybie adresowania nie występuje operand. Argumen- 
tem rozkazu jest zawartość akumulatora. ATARI Assembler 
Editor wymaga, aby jako operand wpisywać literę A. W innych 
asemblerach wymaganie takie może nie istnieć. 

11. Adresowanie wewnętrzne 

kod 

W tym trybie adresowania również nie występuje operand. 
Argumentem rozkazu z tym trybem adresowania jest z reguły 
zawartość jednego z rejestrów mikroprocesora lub wskaźnika z 
rejestru flagowego. 

W przedstawionej poniżej liście rozkazów mikroprocesora * 
6502 opisane zostały wszystkie rozkazy dostępne dla programi- 
sty. Zostały one podzielone na kilka grup. Jako kryterium po- 
działu zastosowano stopień podobieństwa funkcji realizowa- 
nych przez różne rozkazy. Dla każdego rozkazu, obok jego na- 
zwy mnemonicznej, podano krótki opis realizowanej funkcji, 
tryby adresowania, z którymi rozkaz może być użyty, kody 
szesnastkowe i dziesiętne rozkazu, liczbę zajmowanych bajtów 
pamięci oraz wskaźniki rejestru flagowego, których stan może 
ulec zmianie po wykonaniu rozkazu. 

ROZKAZY ZMIENIAJĄCE W SPOSÓB BEZPOŚREDNI STAN 
WSKAŹNIKÓW REJESTRU FLACOWEGO 

Rozkazy z tej grupy dają programiście możliwość bezpośred- 
niej zmiany zawartości wskaźników C, D, I oraz V rejestru F. 
Każdy z nich zajmuje jeden bajt pamięci i może być użyty wyłą- 
cznie z wewnętrznym trybem adresowania. Rozkazami tymi są: 

CLC — zeruj wskaźnik przeniesienia C; 

CLD — zeruj wskaźnik dziesiętnego trybu pracy D; 

CU — zeruj wskaźnik przerwań I; 

CLV — zeruj wskaźnik przepełnienia V; 


SEC — ustaw wskaźnik przeniesienia; 

SED — ustaw wskaźnik dziesiętnego trybu pracy; 

SEI — ustaw wskaźnik przerwań. 

Kody szesnastkowe i dziesiętne rozkazów: 

CLC - $18/24 SEC - $38/56 

CLD — $D8/216 SED — $F8/248 

CLI - $58/88 SEI - $78/120 

CLV — $88/184 

ROZKAZY SKOKÓW „KRÓTKICH" (WZGLĘDNYCH) 

Rozkazy te umożliwiają przeniesienie sterowania w progra- 
mie maszynowym maksymalnie o 129 bajtów do przodu i 126 
bajtów do tyłu od ich własnego adresu w zależności od stanu 
jednego ze wskaźników V, Z, C i N. Każdy z nich zajmuje dwa 
bajty pamięci i może być użyty tylko ze względnym trybem 
adresowania. Nie oddziałują one na żaden ze wskaźników re- 
jestru flagowego. Rozkazami tymi są: 

BCC — skocz, gdy wskaźnik C=0; 

BCS — skocz, gdy wskaźnik C=1; 

BVC — skocz, gdy wskaźnik V=0; 

BVS — skocz, gdy wskaźnik V=1; 

BNE — skocz, gdy wskaźnik Z=0; 

BEQ — skocz, gdy wskaźnik Z=1; 

BPL — skocz, gdy wskaźnik N=0; 

BMI — skocz, gdy wskaźnik N=1; 

Kody szesnastkowe i dziesiętne rozkazów: 

BCC — $90/144 BCS — $BO/176 BCV — $50/80 
BVS — $70/112 BNE — $DO/208 BEQ - $FO/240 
BPL — $10/16 BMI — $30/48 

ROZKAZY SKOKÓW „DŁUGICH" (BEZWZGLĘDNYCH) 

Są dwa rozkazy umożliwiające przeniesienie sterowania w 
programie maszynowym w dowolne jego miejsce. Rozkazami 
tymi są: JMP i JSR. 

JMP — skocz do adresu określonego przez operand. 
dostępne tryby format kod I. zaj. 

adresowania rozkazu hex/dzies. bajtów 

absolutne JMP 3000 $4C/76 3 

pośrednie JMP (3000) $6C/108 3 

JMP nie oddziałuje na żadne wskaźniki rejestru F. Używając 
tego rozkazu z pośrednim trybem adresowania, należy zwrócić 
uwagę, aby określony przez operand wskaźnik zawierający 
adres skoku nie znajdował się na granicy dwóch stron pamięci. Na 
przykład: w rozkazie JMP (ŚOBFF) młodszy bajt wskaźnika jest 
ostatnim bajtem strony $OB, a starszy bajt pierwszym bajtem 
strony $OC. W takiej sytuacji adres skoku jest wyznaczany 
przez mikroprocesor 6502 w sposób błędny. Natomiast, gdy 
wskaźnik z adresem skoku nie jest położony na granicy stron 
pamięci — JMP z pośrednim trybem adresowania działa prawid- 
łowo. 

JSR — wykonaj podprogram o adresie określonym przez 
operand. 

Licznik programu jest zwiększony o 2 ((PC)=(PC)+2)) i prze- 
syłany jest na stos. Następnie sterowanie przekazywane jest do 
rozkazu, którego adres określany jest przez operand. Powrót z 
podprogramu (tj. wykonanie instrukcji następującej po JSR) rea- 
lizowany jest za pomocą rozkazu RTS, który powinien być 
ostatnim rozkazem wywołanego podprogramu. Rozkaz JSR nie 
oddziałuje na żadne wskaźniki rejestru flagowego. Jedyny 
dostępny dla tego rozkazu tryb adresowania to adresowanie ab- 
solutne, np.: JSR $E456. Kod rozkazu: $20/32. JSR zajmuje trzy 
bajty pamięci. 

ROZKAZY PRZESYŁAJĄCE ZAWARTOŚĆ BAJTU Z PAMIĘCI 
DO REJESTRÓW A, X, Y 

Są trzy takie rozkazy: 

LDA — załaduj do akumulatora bajt z pamięci; 

LDX — załaduj do rejestru X bajt z pamięci; 

LDY — załaduj do rejestru Y bajt z pamięci; 


dostępne tryby 
adresowania 

format 

rozkazu 

kod 

hex/dzies. 

l.zaj. 

bajtów 

LDA 

natychmiastowe 

LDA #14 

$A9/169 

2 

absolutne 

LDA 3000 

$AD/173 

3 

absolutne 
indeksowane X 

LDA 3000, X 

$BD/189 

3 

absolutne 
indeksowane Y 

LDA 3000,Y 

$B9/185 

3 

strony zerowej 

LDA $A9 

$A5/165 

2 

strony zerowej 
indeks. X 

LDA $A9,X 

$B5/181 

2 

indeksowane 

pośrednie 

LDA ($A9,X) 

$A1/161 

2 

pośrednie 

indeksowane 

LDA ($A9),Y 

$B1/1 77 

2 

LDX 

natychmiastowe 

LDX #14 

$A2/162 

2 

absolutne 

LDX 3000 

$AE/174 

2 

absolutne 
indeksowane Y 

LDX 3000, Y 

$BE/190 

3 

strony zerowej 

LDX $A9 

$A6/166 

2 

strony zerowej 
indeks. Y 

LDX $A9,Y 

$B6/182 

2 

LDY 

natychmiastowe 

LDY #14 

$AO/160 

2 

absolutne 

LDY 3000 

$AC/172 

3 

absolutne 
indeksowane X 

LDY 3000, X 

$BC/188 

3 

strony zerowej 

LDY $A9 

$A4/164 

2 

strony zerowej 
indeks. X 

LDY $A9, X 

$B4/180 

2 

Rozkazy LDA, LDX, 

LDY oddziałują na wskaźniki N i Z. Mogą 


ustawić wskaźnik N, gdy ładowany do rejestru bajt ma najbar- 
dziej znaczący bit równy 1. Wskaźnik Z zostanie ustawiony, gdy 
ładowany do rejestru bajt zawiera zero. 

ROZKAZY PRZESYŁAJĄCE ZAWARTOŚĆ REJESTRÓW 
A, X, Y DO PAMIfCI 

Są to rozkazy komplementarne w stosunku do rozkazów z po- 
przedniej grupy. Również są trzy takie rozkazy. 

STA — zapamiętaj zawartość akumulatora w pamięci; 
STX — zapamiętaj zawartość rejestru X w pamięci; 

STY — zapamiętaj zawartość rejestru Y w pamięci; 


dostępne tryby 
adresowania 

format 

rozkazu 

kod 

hex/dzies. 

1. zaj. 
bajtów 

STA 

absolutne 

STA $D300 

$8D/141 

3 

absolutne 
indeksowane X 

STA $D300, X 

$9D/157 

3 

absolutne 
indeksowane Y 

STA $D300, Y 

$99/153 

3 

strony zerowej 

STA 240 

$85/133 

2 

strony zerowej 
indeks. X 

STA 240, X 

$95/149 

2 

indeksowane 

pośrednie 

STA (240, X) 

$81/129 

2 

pośrednie 

indeksowane 

LDA (240), Y 

$91/145 

2 

STX 

absolutne 

STX $D300 

$8E/142 

3 

strony zerowej 

STX $FO 

$86/134 

2 

strony zerowej 
indeks. Y 

STX $FO, Y 

$96/150 

2 

STY 

absolutne 

STY 3000 

$8C/140 

3 

strony zerowej 

STY 129 

$84/132 

2 

strony zerowej 
indeks. X 

STY 129, X 

$94/148 

2 

Rozkazy STA, STX, STY nie oddziałują 

na żadne wskaźniki re- 


jestru flagowego. 


ROZKAZY PRZESŁAŃ POMIfDZY REJESTRAMI A, X, Y 

Rozkazy te najczęściej służą do chwilowego przechowania 
zawartości jednego rejestru w innym. Można również prze- 
chowywać zawartość rejestrów w pamięci. Jednak to drugie 
rozwiązanie jest gorsze. Rozkazy przesyłające zawartość rejes- 


trów z/do pamięci wykonywane są w czasie średnio dwukrotnie 
dłuższym i zajmują więcej pamięci. 

TAX — prześlij zawartość akumulatora do rejestru X; 

TAY — prześlij zawartość akumulatora do rejestru Y; 

TXA — prześlij zawartość rejestru X do akumulatora; 

TYA — prześlij zawartość rejestru Y do akumulatora; 

Kody rozkazów: 

TAX — JAA/170 TAY — SA8/168 
TXA — $8 A/1 38 TYA — $98/1 52 

Do tej grupy należałoby również zaliczyć dwa rozkazy umoż- 
liwiające programiście zmianę zawartości wskaźnika stosu (re- 
jestru S). Zmiana zawartości tego rejestru nie może być doko- 
nana w sposób bezpośredni, a jedynie poprzez rejestr X. 
Rozkazami tymi są: 

TSX — prześlij zawartość ośmiu mniej znaczących bi- 
tów rejestru S do rejestru X; 

TXS — prześlij zawartość rejestru X do ośmiu mniej 
znaczących bitów rejestru S; 

Każdy z tych rozkazów zajmuje jedeti bajt pamięci i może być 
użyty wyłącznie z wewnętrznym trybem adresowania. Oddzia- 
łują one, za wyjątkiem TXS, na wskaźniki N i Z rejestru flagowe- 
go. TXS może zmienić stan wszystkich wskaźników rejestru F. 
TSX — SBA/186 TXS — S9A/154 

ROZKAZY- 

MODYFIKUJĄCE ZAWARTOŚĆ REJESTRÓW INDEKSOWYCH 

Rejestry indeksowe wykorzystywane są w programie maszy- 
nowym do konstruowania pętli, w których służą jako modyfika- 
tory adresów przetwarzanych obszarów pamięci i jednocześnie 
jako licznik pętli. Podobną funkcję spełniają indeksy tablic w ję- 
zyku BASIC. Licznik każdej pętli programowej wymaga modyfi- 
kacji — zmniejszania lub zwiększania o wartość kroku po każ- 
dorazowym wykonaniu ciągu rozkazów zawartych w pętli. Mi- 
kroprocesor 6502 dostarcza programiście bardzo wygodnych 
rozkazów do realizacji tego zadania. Rozkazami tymi są: 

INX — zwiększ o jeden zawartość rejestru X; 

DEX — zmniejsz o jeden zawartość rejestru X; 

INY — zwiększ o jeden zawartość rejestru Y; 

DEY — zmniejsz o jeden zawartość rejestru Y; 

Kody rozkazów: * 

INX — SE8/232 DEX — SCA/202 INY — SC8/200 

DEY — $88/136 

Każdy z tych rozkazów zajmuje jeden bajt pamięci i może być 
użyty wyłącznie z wewnętrznym trybem adresowania. Ich wy- 
konanie może zmienić stan wskaźników N i Z'rejestru flagowe- 
go. Do tej grupy rozkazów należałoby również zaliczyć dwa 
rozkazy przeznaczone do zmniejszania lub zwiększania o je- 
den zawartości bajtu z pamięci: 

INC — zwiększ o jeden zawartość bajtu z pamięci o 
adresie wskazanym przez operand; 

DEC — zmniejsz o jeden zawartość bajtu o adresie 
wskazanym przez operand; 

Dzięki nim w łatwy sposób można wykorzystać bajt z pamięci 
jako licznik pętli programowej. 


dostępne tryby 
adresowania 

format 

rozkazu 

kod 

■ hex/dzies. 

1. zaj. 
bajtów 

INC 

absolutne 

INC $D300 

$EE/238 

3 

absolutne 
indeksowane X 

INC $D300, X 

$FE/254 

3 

strony zerowej 

INC 240 

$E6/230 

2 

strony zerowej 
indeks. X 

INC 240, X 

$F6/246 

2 

DEC 

absolutne 

DEC $D300 

$CE/206 

3 

absolutne 
indeksowane X 

DEC $D300, X 

$DE/222 

3 

strony zerowej 

DEC 240 

$C6/198 

2 

strony zerowej 
indeks. X 

DEC 240, X 

$D6/214 

2 

Rozkazy INC i DEC mogą zmienić stan wskaźników N i Z re- 

jestru flagowego. 







ROZKAZY PORÓWNUJĄCE ZAWARTOŚĆ REJESTRÓW A, X, Y 
Z ZAWARTOŚCIĄ PAMIĘCI 

Rozkazy z tej grupy odejmują zawartość bajtu z pamięci lub 
(gdy użyte są z natychmiastowym trybem adresowania) wartość 
operandu od zawartości rejestru. W zależności od wyniku 
odejmowania zmieniają one stan wskaźników N, Z i C. 

N — ustawiany jest, gdy bajt w pamięci jest większy od zawar- 
tości rejestru; 

Z — ustawiany jest, gdy porównywane bajty są równe; 

C — ustawiany jest, gdy bajt w pamięci jest mniejszy od zawar- 
tości rejestru; 

Należy zaznaczyć, że rozkazy te nie zmieniają zawartości po- 
równywanych bajtów. Rozkazami tymi są: 

CMP — porównaj zawartość akumulatora z zawartością 
bajtu z pamięci; 

CPX — porównaj zawartość rejestru X z zawartością 
bajtu z pamięci; 

CPY — porównaj zawartość rejestru Y z zawartością 
bajtu z pamięci; 


dostępne tryby 
adresowania 

format 

rozkazu 

kod 

hex/dzies. 

1. zaj. 
bajtów 

CMP 

natychmiastowe 

CMP #14 

$C9/201 

2 

absolutne 

CMP 3000 

$CD/205 

3 

absolutne 
indeksowane X 

CMP 3000,X 

$DD/221 

3 

absolutne 
indeksowane Y 

CMP 3000,Y 

$D9/217 

3 

strony zerowej 

CMP $A9 

$C5/197 

2 

strony zerowej 
indeks. X 

CMP $A9,X 

$D5/213 

2 

indeksowane 

pośrednie 

CMP ($A9,X) 

$0/193 

2 

pośrednie inde- 
ksowane 

CMP ($A9,Y) 

$D1/209 

2 

CPX 

natychmiastowe 

CPX #14 

$E0/224 

2 

absolutne 

CPX 3000 

$EC/236 

3 

strony zerowej 

CPX $A9 

$E4/228 

2 

CPY 

natychmiastowe 

CPY #14 

' $C0/192 

2 

absolutne 

CPY 3000 

$CC/204 

3 

strony zerowej 

CPY $A9 

$C4/196 

2 


ROZKAZY 

WYKONUJĄCE OPERACJE NA STOSIE MIKROPROCESORA 

PHA — prześlij akumulator na stos i zmniejsz o jeden wska- 
źnik stosu; 

PHP — prześlij rejestr flagowy na stos i zmniejsz o jeden 
wskaźnik stosu; 

PLA — prześlij bajt ze szczytu stosu do akumulatora i 
zwiększ o jeden wskaźnik stosu; 

PLP — prześlij bajt ze szczytu stosu do rejestru flagowego i 
zwiększ o jeden wskaźnik stosu; 

Rozkazy te są rozkazami jednobajtowymi i mogą być użyte 
tylko z wewnętrznym trybem adresowania. PLA może zmienić 
stan wskaźników N i Z rejestru flagowego, natomiast PHP i PHA 
nie oddziałują na żadne wskaźniki. PLP może zmienić stan 
wszystkich wskaźników. 

Kody rozkazów: 

PHA $48/72 PLA $68/104 

PHP $08/8 PLP $28/40 

ROZKAZY 

WYKONUJĄCE OPERACJE ARYTMETYCZNE I LOGICZNE 

ADC — dodaj zawartość bajtu z pamięci lub wartość ope- 
randu (adresowanie natychmiastowe) do zawartości akumula- 
tora. Wynik dodawania pozostaje w akumulatorze. Wynik do- 
dawania może być zwiększony o jeden, gdy przed wykonaniem 
rozkazu ustawiony był wskaźnik C. Dlatego zawsze przed uży- 
ciem tego rozkazu należy zerować wskaźnik C (rozkaz CLC), 
chyby że wymagana jest korekta wyniku (dodawanie liczb bi- 
narnych zapisanych na kilku bajtach). ADC może zmienić stan 
wskaźników N, V, Z i C rejestru flagowego. 


dostępne tryby 
adresowania 

format 

rozkazu 

kod 

hex/dzies. 

I- Mi 

bajtów 

natychmiastowe 

ADC #$80 

$69/105 

2 

absolutne 

ADC $D300 

$6D/109 

3 

absolutne inde- 
ksowane X 

ADC $D300,X 

$7D/125 

3 

absolutne inde- 
ksowane Y 

ADC $D300,Y 

$79/121 

3 

strony zerowej 

ADC 240 

$65/101 

2 

strony zerowej 
indeks X 

ADC 240, X 

$75/117 

2 

indeksowane 

pośrednie 

ADC (240, X) 

$61/97 

2 

pośrednie inde- 
ksowane 

ADC (240) ,Y 

$71/113 

2 


AND — wykonaj iloczyn logiczny (AND) zawartości bajtu z 
pamięci i zawartości akumulatora. Rozkaz porównuje kolejno 
wszystkie bity bajtu z pamięci i akumulatora. Gdyporównywa- 
ne bity są równe jeden, to odpowiadający im bit wyniku jest 
również równy jeden. W każdym innym przypadku bit wyniku 
jest zerem. Wynik rozkazu pozostaje w akumulatorze. 

Przykład: 

bit 7 6 5 4 3 2 1 0 

10111101 bajt z pomięci 
AND 00001 100 bajt z akumulatora 


00001100 wynik w akumulatorze 


dostępne tryby 
adresowania 

format 

rozkazu 

kod 

hex/dzies. 

1. zaj. 
bajtów 

natychmiastowe 

AND #$80 

$29/41 

2 

absolutne 

AND $D300 

$2D/45 

3 

absolutne inde- 
ksowane X 

AND $D300,X 

$3 D/61 

3 

absolutne inde- 
ksowane Y 

AND $D300,Y 

$39/57 

3 

strony zerowej 

AND 240 

$25/37 

2 

strony zerowej 
indeks. X 

AND 240,X 

$35/53 

2 

indeksowane 

pośrednie 

AND (240, X) 

$21/33 

2 

pośrednie inde- 
ksowane 

AND (240), Y 

$31/49 

2 

AND oddziałuje 

na wskaźniki N i Z rejestru flagowego. 


ASL — przesuń zawartość bajtu z akumulatora lub z pamięci 
o jedną pozycję bitową w lewo. Najbardziej znaczący bit prze- 
suwanego bajtu przenoszony jest do wskaźnika C, bit najmniej 
znaczący jest zerowany. Wykonywana operacja przesuwania w 
lewo odpowiada mnożeniu zawartości bajtu przez dwa. ASL 
oddziałuje na wskaźnik N, Z i C. 


dostępne tryby 
adresowania 

format 

rozkazu 

kod 

hex/dzies. 

1. zaj. 
bajtów 

absolutne 

ASL $D300 

$0E/14 

3 

absolutne inde- 
ksowane X 

ASL $D300,X 

$1E/30 

3 

strony zerowej 

ASL 240 

$06/6 

2 

strony zerowej 
indeks. X 

ASL 240,X 

$16/22 

2 

akumulatora 

ASL A 

$0A/10 

1 


BIT — wykonaj iloczyn logiczny zawartości bajtów z pamię- 
ci i akumulatora. Rozkaz ten działa podobnie jak rozkaz AND, z 
tą tylko różnicą, że nie zmienia zawartości porównywanych baj- 
tów i oddziałuje na inne wskaźniki rejestru F. BIT zapala 
wskaźnik Z, gdy bajty są równe, ponadto do wskaźnika N ko- 
piowany jest siódmy bit bajtu z pamięci, a do wskaźnika V — 
szósty bit tego bajtu. Na stan pozostałych wskaźników BIT nie 
oddziałuje. 

dostępne tryby format kod I. zaj. 

adresowania rozkazu hex/dzies. bajtów 

absolutne BIT $D300 $2C/44 3 

strony zerowej BIT 240 $24/36 2 

EOR — wykonaj logiczną różnicę symetryczną (exclusive 
OR) na zawartościach bajtu z pamięci i akumulatora. Rozkaz 
ten porównuje kolejno bity bajtu z pamięci i akumulatora. Jeżę- 


li porównywane bity są jedynkami, to odpowiadający im bit wyni- 
ku jest zerem; gdy są zerami to odpowiadający im bit wyniku 
jest również zerem; natomiast w sytuacji, gdy przynajmniej je- 
den z porównywanych bitów jest jedynką, to odpowiadający im 
bif wyniku jest jedynką. 

Przykład: 

bit 7 6 5 4 3 2 1 0 

10111101 bajt z pamięci 
EOR 00001100 bajt z akumulatora 


10110001 wynik w akumulatorze 


dostępne tryby 
adresowania 

format 

rozkazu 

kod 

hex/dzies. 

1. zaj. 
bajtów 

natychmiastowe 

EOR #$80 

$49/73 

2 

absolutne 
absolutne inde- 

EOR $D300 

4 D/77 

3 

ksowane X 
absolutne inde- 

EOR $D300,X 

$5D/93 

3 

ksowane Y 

EOR $D300.Y 

$59/89 

3 

strony zerowej 
strony zerowej 

EOR 240 

$45/69 

2 

indeks. X 
indeksowane 

EOR 240, X 

$55/85 

2 

pośrednie 
pośrednie inde- 

EOR (240,X) 

$41/65 

2 

Ksowane 

EOR (240), Y 

$51/81 

2 


LSR — przesuń zawartość bajtu z pamięci lub z akumulatora 
o jedną pozycję bitową w prawo. Najmniej znaczący bit prze- 
suwanego bajtu przenoszony jest do wskaźnika C, bit najbar- 
dziej znaczący jest zerowany. Wykonywana operacja przesu- 
wania w prawo odpowiada dzieleniu zawartości bajtu przez 
dwa. LSR oddziałuje na wskaźnik N, Z i C. Ustawiony wska- 
źnik C świadczy o powstałej w wyniku dzielenia reszcie. 


dostępne tryby 
adresowania 

format 

rozkazu 

kod 

hex/dzies. 

1. zaj. 
bajtów 

absolutne 

LSR $D300 

$4E/78 

3 

absolutne inde- 
ksowane X 

LSR $D300,X 

$5E/94 

3 

strony zerowej 

LSR 240 

$46/70 

2 

strony zerowej 
indeks. X 

LSR 240, X 

$56/86 

2 

akumulatora 

LSR A 

$4A/74 

1 


ORA — wykonaj sumę logiczną (OR) na zawartościach baj- 
tów z pamięci i akumulatora. Rozkaz porównuje kolejno 
wszystkie bity bajtów z pamięci i akumulatora. Jeżeli porówny- 
wane bity są zerami, to odpowiadający im bit wyniku jest rów- 
nież zerem. Dla każdej innej kombinacji porównywanych bitów 
bit wyniku jest jedynką. Wynik operacji pozostawiony jest w 
akumulatorze. 

Przykład: 

bit 7 6 5 4 3 2 1 0 

10 11110 1 bajt z pamięci 
EOR 00001 100 bajt z akumulatora 


10111101 wynik w akumulatorze 
Rozkaz może zmienić stan wskaźników N i Z rejestru F. 


dostępne tryby 
adresowania 

format 

rozkazu 

kod 

hex/dzies. 

1. zaj. 
bajtów 

natychmiastowe 

ORA #$80 

$09/9 

2 

absolutne 

ORA $D300 

$0D/13 

3 

absolutne inde- 
ksowane X 

ORA $D300.X 

S1D/29 

3 

absolutne inde- 
ksowane Y 

ORA $D300,Y 

$19/25 

3 

strony zerowej 

ORA 240 

$05/5 

2 

strony zerowej 
indeks. X 

ORA 240,X 

$15/21 

2 

indeksowane 

pośrednie 

ORA (240,X) 

$01/1 

2 

pośrednie inde- 
ksowane 

ORA (240),Y 

$11/17 

2 

ROL — „obróć" zawartość bajtu z pamięci lub akumulatora 

o jedną pozycję w 

lewo. Rozkaz działa podobnie 

jak ASL. Za- 


wartość „obracanego" bajtu przesuwana jest o jedną pozycję 
bitową w lewo, przy tym do bitu zerowego wprowadzana jest 
zawartość wskaźnika C (ASL zeruje ten bit), a bit siódmy kopio- 
wany jest do wskaźnika C i stanowi jego nową wartość. Rozkaz 
ROL wspólnie z rozkazem ASL używane są do mnożenia przez 
dwa liczb zapisanych na kilku bajtach. Poza wskaźnikiem C roz- 
kaz ROL może zmienić stan wskaźników N i Z. 


dostępne tryby 
adresowania 

format 

rozkazu 

kod 

hex/dzies. 

1. zaj. 
bajtów 

absolutne 

ROL $D300 

$2E/46 

3 

absolutne inde- 
ksowane X 

ROL $D300,X 

$3E/62 

3 

strony zerowej 

ROL 240 

$26/38 

2 

strony zerowej 
indeks. X 

ROL 240, X 

$36/54 

2 

akumulatora 

ROL A 

$2A/42 

1 


ROR — „obróć" zawartość bajtu z pamięci lub akumulatora 

0 jedną pozycję bitową w prawo. Rozkaz działa podobnie jak 
LSR. Zawartość „obracanego" bajtu przesuwana jest o jedną 
pozycję bitową w prawo, przy tym do bitu siódmego wprowa- 
dzana jest zawartość wskaźnika C (LSR zeruje ten bit), a bit ze- 
rowy kopiowany jest do wskaźnika C i stanowi jego nową war- 
tość. Rozkaz ROR wspólnie z rozkazem LSR używane są do 
dzielenia przez dwa liczb zapisanych na kilku bajtach. Poza 
wskaźnikiem C rozkaz ROR może zmienić stan wskaźników N 

1 Z. 


dostępne tryby 
adresowania 

format 

rozkazu 

kod 

hex/dzies. 

1. zaj. 
bajtów 

absolutne 

ROR $D300 

$6E/110 

3 

absolutne inde- 
ksowane X 

ROR $D300,X 

$7E/1 26 

3 

strony zerowej 

ROR 240 

$66/102 

2 

strony zerowej 
indeks. X 

ROR 240, X 

76/118 

2 

akumulatora 

ROR A 

$6 A/1 06 

1 


SBC — odejmij zawartość bajtu z pamięci lub wartość ope- 
randu (adresowanie natychmiastowe) do zawartości akumula- 
tora. Wynik odejmowania pozostaje w akumulatorze. Wynik 
ten może być zmniejszony o jeden, gdy przed wykonaniem 
rozkazu zgaszony był (równy zero) wskaźnik C. Dlatego zavysze 
przed użyciem tego rozkazu należy „zapalić" wskaźnik C (roz- 
kaz SEC). SBC może zmienić stan wskaźników N, V, Z i C rejes- 
tru flagowego. 


dostępne tryby 
adresowania 

format 

rozkazu 

kod 

hex/dzies. 

1. zaj. 
bajtów 

natychmiastowe 

SBC #$80 

$E9/233 

2 

absolutne 

SBC $D300 

$E D/237 

3 

absolutne inde- 
ksowane X 

SBC $D300,X 

$F D/253 

3 

absolutne inde- 
ksowane Y 

SBC $D300,Y 

$F9/249 

3 

strony zerowej 

SBC 240 

$E5/229 

2 

strony zerowej 
indeks. X 

SBC 240, X 

$F5/245 

2 

indeksowane 

pośrednie 

SBC (240, X) 

$E1/225 

2 

pośrednie inde- 
ksowane 

SBC (240) ,Y 

$F 1/241 

2 


POZOSTAŁE ROZKAZY 

BRK — rozkaz ten generuje przerwanie programowe i jest 
stosowany przy testowaniu poprawności działania skonstruo- 
wanego programu maszynowego. W testowanym programie 
umieszcza się, w odpowiednich miejscach, rozkaz BRK. Gdy 
zostanie on wykonany realizacja testowanego programu zosta- 
nie przerwana. Wówczas za pomocą odpowiedniej procedury 
monitorującej można „obejrzeć" zawartość rejestrów mikro- 
procesora i określonych obszarów pamięci, oceniając na ich 
podstawie poprawność działania wykonanego programu bądź 
jego fragmentu. Rozkaz ten zapala wskaźnik B rejestru F. Roz- 
kaz BRK zajmuje jeden bajt pamięci i może być stosowany je- | 
dynie z wewnętrznym trybem adresowania. Jego kod: $00/0. * 
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^ NOP — nic nie rób. Rozkaz ten zatrzymuje na okres dwóch 
cykli zegarowych pracę mikroprocesora. Może być stosowany 
do budowania pętli opóźniających lub można nim zastąpić, po 
zakończeniu testowania, rozkazy BRK wstawione w tym celu w 
program maszynowy. NOP zajmuje jeden bajt pamięci, nie od- 
działuje na żadne wskaźniki rejestru F i może być użyty tylko 
z wewnętrznym trybem adresowania. Jego kod: $EA/234. 

RTI — „wróć z przerwania”. Rozkaz ten służy jako „wyjś- 
cie" z procedur obsługujących niektóre rodzaje przerwań mi- 
kroprocesora. Odtwarza on, zapamiętane na stosie, rejestr F I li- 
cznik programu i aktualizuje wskaźnik stosu. RTI zajmuje jeden 
bajt pamięci i musi być używany tylko z wewnętrznym trybem 
adresowania. Jego kod: $40/64. 

RTS — „wróć z podprogramu". Rozkaz ten służy jako 
„wyjście" z podprogramów wywoływanych rozkazem JSR. 
Odtwarza on, zapamiętany na stosie, licznik programu i zwięk- 
sza wartość wskaźnika stosu o dwa. Nie oddziałuje na żadne 
wskaźniki rejestru F. Zajmuje jeden bajt pamięci i jest dostępny 
tylko z wewnętrznym trybem adresowania. Jego kod: $60/%. 


Umieszczone poniżej przykłady podprogramów powinny 
ułatwić zrozumienie zasad tworzenia procedur w języku ma- 
szynowym. W tym celu kody źródłowe tych procedur opatrzo- 
ne zostały licznymi komentarzami. Ostatni program, napisany w 
BASIC-u, przeznaczony jest do tworzenia linii DATA, zawiera- 
jących powstały w wyniku asemblacji kod maszynowy zapisany 
na taśmie lub dysku. Utworzone linie DATA program ten rów- 
nież zapisuje na taśmę lub dysk. Można je dołączyć instrukcją 
C NTFR do tworzonego programu w języku BASIC. 


H. KRASUSKI 
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01 .OPT OBJ 

02 .Ta linia zawiera informacje dla assemblera 

*■ *0600 / od teeo adresu 

04 / asembler umieści kod wynikowy poderosramu 
16 / t ***** ******* ****************************** 

20 / Poderosram 1 * 

30 j ***************************************** ********* 

40 / eoderosram umożliwia odezyt/zaels z dyskietki 
50 / sektora o dowolnym numerze. 

60 /Seosob wywołania z Jeżyka BASIC' 

70 i X*USR < ADRES . NRD , FUN , ADR ( SEKS ) , NRSEK ) 

80 jadzie 1 

9e /NRD - zmienna zawieraJaea nr drive'u 
0100 /FUN - kod funkeJi do wykonania 
0110 , FUN-82 odczyt sektora 
0120 i FUN»87 zapis sektora 

0130 j SEKS - zmienna tekstowa o dlusosci 128 baJtow 
0140 /z/do ktoreJ za pisywany /odczytywany Jest sektor 
6150 ; NR8EK - zmienna zawieraJaea nr sektora 
0160 ,do odczytu/zapisu 

Po wykonaniu poderosramu zmienna X zawiera 1 
«dy odczyt/zaeis zakończył sie Pomyślnie 
kod bledu w przeciwnym wypadku 


0170 
0180 
0190 
0200 
0210 
0220 
0230 NRD 
0240 FUN 
0256 STATUS 
0260 SEKM 
0270 SEKS 
0280 NRSM 
0290 NRSS 
0330 
9340 
0350 
0360 
0370 
0380 
0390 


deklaracja zmiennych dla erosramu maszynoweso 

■ S0301 /nr drive'u 

- S0302 /kod funkcji 

■ *0303 / wynik wykonania 

■ *0304 / adres SEKS -młodszy baJt 

■ *0305 j adres SEKS -starszy baJt 

- *030A /nr sektora -młodszy baJt 

■ S030B /nr sektora -starszy baJt 

PLA -usuń ze stosu liczbę param. 

PLA / pobierz ze stosu st. baJt NRO 

PLA / pobierz ze stosu ml. baJt NRO 

STA NRD / zapamiętaj «o w zmiennej NRO 
PLA /zrób to samo z 

PLA / kodem funkeJi do wykonania 

STA FUN / zapamiętaj kod funkeJi w FUN 
PLA ist.baJt adresu SEKS 

STA SEK8 j zapamiętaj w SEKS 

ml, baJt teso adresu 
zapamiętaj w SEKM 
st. baJt numeru sektora 
zapamiętaj w NR8S 
a młodszy baJt 
zaeamietaJ w NR8M 

skocz do procedury SI0V 
wynik zae/odcz.do akumulatora 
zaeamietaJ wynik w baJtach 
*04 i *05 strony zerowej 


PLA 
STA SEKM 
PLA 

STA NRSS 
PLA 

STA NRSM . 
JSR SE453 
L0A STATUS 
STA *04 
LDA *0 
STA *05 
RTS 
. EN0 


/wyJdz z poderosramu 


0420 

0430 

0440 

0450 

0460 

0470 

0480 

0490 

0500 

0510 

0520 

0530 

0540 

10 

20 


Pode ro* ram 2 

30 j mmimmmmmmtmmmimmmmn 
40 /Poderosram zamienia komunikaty /stale 1 zmienne 
50 / tekstowe/ z trybu "normalneso" na "inwers video" 

60 il odwrotnie. UWAGA' dlusosc komunikatu 
70 inie może przekraczać 255 baJtow 
80 /Seosob wywołania z Jeżyka BASIC 
90 / X"U8R < ADRES , ADR < KOM* ) , LEN C KOM* > ) 

0100 /sdxle< 

0110 /KOM* stała lub zmienna tekstowa, która ma bye 
0120 / zmieniona 
0130 / 

0140 PLA /usuń ze stosu liczb, earam. 

0150 PLA jeob. ze stosu st. ba Jt adresu 

0160 STA 204 /KOM* i zaeam. «o w baJcie 204 

0170 PLA /a młodszy baJt teso adresu 


0180 

STA 

203 

/zaeamietaJ w baJcie 203 

0190 

PLA 


/dlusosc staleJ /tylko Jeden 

0200 

PLA 


/ baJt/ zaeamietaJ u baJcie 

0210 

STA 

205 

/ 205 

0220 

LDY 

•0 

/zero do rejestru Y 

0230 

Z AM LDA 

< 203 > , Y 

/załaduj kolejny baJt staleJ 

0240 

/ 


KOM* do akumulatora 

0250 

EOR 

#*88 

/ zmień tryb 

0260 

STA 

(203), Y 

/prześlij zmieniony baJt 

0270 

/ 


z powrotem na Jeso mieJsce 

0280 

INY 


/zwiększ o Jeden liczbę zmie- 

0290 

/ 


nionych baJtow 

0300 

CPY 

205 

/ czy zamienione wszystkie 

0310 

ANE 

ZAM 

/nie, to zamień kolejny 

0320 

RTS 



0330 

.END 


20 / 

30 /* 


Podprosram 3 * 


40 ;Poderosram przesyła dane tworzące obraz 
50 jz dowolneso obszaru eamleel do obszaru 

60 ; eamieci ekranu 

62 i tryb w Jakim wyświetlany Jest obraz musi byc 

64 ; ustawiony z poziomu Jeżyka BASIC instr. GRAPHIC 

65 j przed wywołaniem poderosramu 

90 /Seosob wywołania z Jeżyka BASIC' 

9100 / X-USR< ADRES, ADR < DANEO* ),LB> 

0110 jsdzle' 

0120 /DANEO* - stała tekstowa zawieraJaea dane 
0130 /tworzące obraz 
0135 iLM - dlusosc DANE0* w bajtach 
0140 L 

/młodszy baJt adresu staleJ DANEO* 
/starszy ba Jt teso adresu 
/llesba blokow 256 bajtowych 

/reszta baJtow do przesłania 

<L0LOK*256> ARESZT • liczbie baJtow do erzesl. 

PLA / usuń ze stosu baJt z llozba earam. 

PLA / eob. ze stosu st. baJt adresu 

STA SKADS/i zapamiętaj so w SKAOS 
PLA /eob. z* stosu ml. baJt adresu 
STA 8KA0M/ za eamietaJ so w SKROM 
PLA / eob. liczbę blokow 

STA ^BLOK/ zaeamietaJ Ja w LBLOK 
PLA /pobierz reszt* 

STA RESZT /za eamietaJ Ja u RESZT 
LOK LBLOK/ liczba blokow do reJ. X 
L0Y 00 /zero do reJ. Y 
LDA (8KA0M) , Y /eob. kolejny baJt z 0ANC0S 
STA (08), Y /za namletaJ so u obszarze 

pamięci ekranu 

DCY /ozy Przesiany cały blok 

Btff PI /nie, to skocz do etykiety Pi 

INC BKAOS/tak, zwiększ o 1 st. baJt adresu 
DANEO* 

/zwiększ o Jeden starszy baJt 
adresu eamiecl ekranu 
/odejmij 1 od liczby blokow 
/zakończ przesyłani* 

/skocz do Pi, sdy liczba blokow 
nie Jest zerem 
LDY RESZT/ reszta do r*J. Y 
BNE Pi /sdy RESZT <>0 to erzesylaJ 

RTS /sdy zero wyJdz z poderosramu 
.END 

eoderosram ten bardzo szybko zmienia 


0150 SKROM • *06 
0160 SKAOS - *07 
0162 LBLOK « SOS 
0164 RESZT ■ *08 

0166 , 

0170 
0100 
0190 
0200 
0210 
0212 

0213 

0214 

0215 
0220 
0230 
0240 PI 
0250 

0260 i 

0270 
0200 

0290 


INC 09 
DEK 

BMI KON 
BNE PI 


0310 

•320 / 

0330 
0335 
0340 
0350 / 

0352 
0354 

0360 KON 
0370 

0380 /UWAGA 

0390 /i wyświetla ekrany w trybie sraflcznym. 

0400 /Jeżeli używa sie so do wyświetlania ekranów 
0410 /w trybie tekstowym, to DANEO* musi zawierać 
0420 /kody PEEK/POKE wyświetlanych znaków a nie 
0430 /ich kody ATR8CII. 
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KTO POMOŻE? 


1 rem mnmmimmoimttMti 

2 REM * PROGRAM 4 * 

3 rem utttłtttmmumiiiimtM 
10 t CMR*<125> 

20 r "Program tworru lim# data z kodu" 
30 ? "masiwnowogo z#Di#«n#90 na taami#" 
40 t "lUD 004 KU • zotor Z kO<J#M 
maszynowym" 

BO r "RUSI mi#c format wymagany Przaz 
006 

100 DIM CI0B(6),BUP6< 10000 GLINIAK 92), 
PB< 14 ), K009( 3 ) 

110 CIOSU )»CMR8U04>.CI08<2>aCHR8U62> 
'CI09<3 >CMR6< 32 ) 

120 C10#<4>»"L"-CI0B<B>"V“.C106<e>»CMR 
6< 220 ) 

130 TRRP 130 ' r "P0d#j urzaoz#ni# i n«zw# 

131 t "zOioru z koo#m maozynowym' 

' INPUT f$ 

140 IF P9< 1,2)0 -Ol" AND F»( 1,2 )<>"D' ” 

THCN t CMR9( 2B3 )> GOTO 130 

ISO TRAP 2000 1 CLOSC 02 ■ OPtN #2,4,0,E» 

160 1 0C0»064 i POKE I0C942.7 
IBS 66a I NT< ADR( BUFO J/288 ) > MB- ADRC OUP* >- 
60*266 

170 POKE I0CB*4,MB POKE IOCB-8.SO 
178 POKE I 0C6+0 , O ' POKE 
I0CB*9,PEEK< 742 >-PEEK( 148 ) 

180 XaUSR< AOR( C100 ) )' CLOSC 02 TRAP 
40000 

108 AD-AOR(OUPO) 

190 IF PEEK( AD )<>2B8 ANO PEEK( AD* 1 ) 

0288 THEN 2100 

198 AP«PECK< AD-fJ *256+PEEKt HD+2 ) 

200 AKbPEEKC AD+6 *286+PEEK( AD44 ) 

206 IF AK-AP+ 1 > 1 0000 THEN GOTO 2200 
210 t i 7 CHR9( 283 )j CHR6( 263 )j "ZOlOr 
”iP9j" OK" 

2ie trap 216 ' r if "Podaj urzadzoma i 
nożu# zeioru" 

220 i ao ktorago o#da wpiaan# U ni# 
DATA" 

226 f 9- "“'INPUT Ft 

230 IF r$<l,2X>"C ANO Fg( 1,2 )<>“0' " 
THEN f CHAO< 253 )< GOTO 218 

236 f Doa#j ooczatkowy nr linii DATA' 

" i 1NPUT NRL 

237 r Doa-j krok numoracji* " • input 
KROK 

239 TRAP 2300' CLOSE 920PEN 
02, 6, O, P8' TRAP 40000 

240 POR ImO TO AK-AP STEP 20 

248 POR Jal TO 92'LINIA9<J>" “.NIKT 
J 

260 J*LEN< 8TR9( NRL ) ) 

286 LINIA8( 1 , J >»§TR9t NRL )' JbJ+2 i 
L1N1A0 <J) b"DATA" iJmJ+8 
260 POR KaO TO 19 

270 NaPECK( AO *0- 1 *K ) ' KOO#- " 000 “ ' K0D9 

( 4-LEN< STR*< N ) ) MTR9< N ) 

278 LINIA9< J >*009’ J»J43 

200 IF KO 19 TMCN 

LINIA9< J >" , " i JmJ*l 
296 NCKT K 

300 LINIA9<J7<HA9< 188 )'PR1NT 
*2, LINIA* i NRLaNRL+KAOK i NCKT ł 
306 CLOSC 92 

310 f CHR9< 283 )j CHR9< 283 ) 

318 f i P "Gotow#..." 

320 f "Chc#oz utworzyć n«st#ony zDtor 

< T/N )" 

328 CLOSC 910P2N 91,4,0, “K> " >GCT 91, K 
330 IP KO 04 TMCN CNO 
338 CLR . GOTO 20 

2000 r CHA*< 283 )j OL AO NR. , PCCK( 1 96 )/ “ 
PRZY ODCZYCIE ZBIORU " iF» 

2010 CLR 'GOTO 20 

2100 ? CHR9< 283 ), ZOIOA ",P6;" NIC JC6T 
M PORMACIE 008-4'' 

2102 * "NAGŁÓWEK i ” i PECK< AO )i " " , PEEK 
<A04l )j" "i 

2104 f PEEK( AO+2 )j " " i PEEK( A0*3 )j " “j 
PECH < A0T4 ); " "i PCCK< A0f8 ) 

2110 CLR 'GOTO 20 

2200 f CHR8<283 )j "Z8I0A "iFti" ZAJMUJE 
MIECCJ NU 10000 BAJTOM" 

2210 CLR GOTO 20 

2300 t CHA9< 283 >i "BLAO NR " j PEEK< 1 95 )/ " 
PRZY ZAPISIE ZBIORU "jP9 
2310 CLA GOTO 20 



Czy stara, wysłużona Odra 1 305 może 
uchodzić za symbol nowoczesności? — Pyta- 
nie retoryczne i dlatego kierownictwo Woj- 
skowych Zakładów Uzbrojenia nr 1 w Kra- 
kowie zaczęło rozglądać się za czymś now- 
szym. Oczywiście nie po to tylko, by mieć 
nowy symbol. — Widzimy szansf przejścia „do 
przerobu,, przez nasz ośrodek wielu prac plani- 
stycznych i obliczeniowych. — Co na tym zy- 
skają zakłady? — Przede wszystkim zmniej- 
szymy zatrudnienie w administracji — zapew- 
nia dyrektor płk Ireneusz Rosiak. A nie jest 
to błacha sprawa, ponieważ każdy pracownik 
kosztuje zakłady 650 tys. zł rocznie. Na tę 
sumę składa się pensja, różne składki, obcią- 
żenia, podatki — i to bez względu na to, czy 
ten ktoś pracuje, czy też — przykładowo — 
przebywa na zwolnieniu lekarskim. — A kom- 
puter nie choruje i jest nadzwyczaj dyspozycyj- 
ny — tę prawdę krakowianie odkryli już daw- 
no. 

Oprócz redukcji administracji możliwe 
jest zwiększenie efektywności gospodarki ma- 
teriałowej i kadrowej. Lepsze wykorzystanie 
i dwóch najważniejszych czynników produkcji 
w zakładzie, to dodatkowy zysk... Tak się 
bowiem składa, że z maszyn i urządzeń nie- 
wiele da się już .wycisnąć", ponieważ wyko- 
rzystanie czasu pracy maszyn wynosi 96 
proc.! 

\ Ale to nie wszystko. Dyrekcja widzi możli- 
wość .zaprzęgnięcia” komputera do plano- 
wania produkcji, Nie chodzi przy tym o spo- 
rządzanie prostych zestawień, lecz o coś na 
pograniczu fantastyki — oczywiście w na- 
szych krajowych wy runkach. Tym .czymś” 
byłyby dodatkowe korzyści wynikające nie z 
produkcji w ogóle, lecz z produkcji wykona- 
nej w określonym czasie. Co to daje? — Le- 
piej jest wykorzystywany potencjał przedsię- 
biorstwa i zadowoleni klienci, ponieważ np. 
remont sprzętu odbywa się w dogodnych 
terminach dla odbiorcy. 

! Wszystko to być może... Póki co, nic ma 
jednak chętnych do .skomputeryzowania" 
zakładów. Podstawową przeszkodą jest to, że 


ZADANIE 1 

Kosiarze mieli skosić dwie łąki Reno wszyscy ko- 
siarze zaczęli kosić większą łąkę. a po obiedzie 
podzielili się Połowa pozostała i kosiła pierwszą 
łąkę. którą do wieczora skosili, druga zaś połowa 
poszła kosić drugą łąkę. której powierzchnia rów- 
nała się połowie powierzchni pierwszej łąki. Ilu by- 
ło kosiarzy, skoro wiemy, że resztę drugiej łąki 
skosił ieden kosiarz w ciągu następnego dnia? 
ZADANIE 3 

Kolumna pojazdów o długości I = 2 km porusza 
się z prędkością V. = 20 km/h Od czoła 
kolumny do ostatniego pojazdu i z powrotem ja- 
dzie łącznik na motocyklu z prędkością 

ZADANIE 2 

W pierwszym półroczu roku 1987 produkcia spa- 
dła o 12,2 proc w stosunku do produkcji pier- 
wszego półrocza roku 1986, liczba pracowników 
zaś zwiększyła się o 8,3 proc. O Ile procent spadła 
wydajność jednego pracownika? 


przedsiębiorstwo wykonuje produkcję dla po- 
trzeb sił zbrojnych, a więc występuje problem 
tajemnicy wojskowej i państwowej. Ale to je- 
szcze nie wszystko. Krakowianie nie byliby 
sobą, gdyby nie liczyli pieniędzy. Dyrekcja 
ma więc następujący pogląd na sprawę: kom- 
puteryzacja — tak, ale... I tu następuje lista 
życzeń: muszą być oszczędności na funduszu 
płac, powinien ulec przyspieszeniu obieg in- 
formacji, kolejna sprawa, to eliminacja niektó- 
rych prac i dokumentów, udoskonalenie ewi- 
dencji materiałowej i zmniejszenie poziomu 
zapasów. 

Warto zwrócić również uwagę i na to, że w 
WZU dostrzegane są dwie grupy korzyści. 
Jedne — wymierne — dadzą się wyliczyć je- 
szcze przed uruchomieniem systemu. I pew- 
nie właśnie one zadecydują o jego wyborze i 
wprowadzeniu. Ale pomysłodawcy liczą rów- 
nież na korzyści, które w żaden sposób nie 
dadzą się obliczyć, ani oszacować ex antę. 
Niewymierne teraz, powinny jednak w przy- 
szłości powiększyć masę zysku. Wynikać będą 
przede wszystkim z ogólnej poprawy organi- 
zacji pracy w przedsiębiorstwie i trafności de- 
cyzji podejmowanych w oparciu o dokładniej- 
sze dane. Raz może to być potrzeba nowych 
uruchomień, innym zaś razem podjęcie pro- 
dukcji deficytowych części zamiennych lub 
zabiegi o wykonanie usług dla kontrahenta 
zagranicznego. Tych możliwości może oczy- 
wiście być o wiele więcej. 

Mógłby ktoś powiedzieć, że problem przed 
którym stanęły Wojskowe Zakłady Uzbroje- 
nia nr 1 w Krakowie jest ich własnym kłopo- 
tem. Przecież jest to samodzielne, samorządne 
i samofinansujące się przedsiębiorstwo, więc 
niech sobie jakoś samo radzi. Ale ten nieobcy 
w naszej rzeczywistości społecznej sposób 
myślenia nie uwzględnia właśnie społecznych 
korzyści płynących z rozumnego traktowania 
problemów gospodarczych. Bo rzecz nie do- 
tyczy tylko tej jednej sprawy w jednym z wie- 
lu przedsiębiorstw i stąd pytanie w tytule, 
adresowane do czytelników w mundurach. 


Vi = 60 km/h. Ile czasu potrzebuje łącznik 
na przebycie drogi tam i z powrotem oraz jaką 
drogę przepędzie w tym czasie’’ 

ZADANIE 4 

Z trzech naczyń, w kształcie sześcianów, pierwsze 
jest o 1 dm wyższe niż drugie, a drugie o 1 dm 
wyższe od trzeciego. Kiedy drugie naczynie na- 
pełnimy wodą z pierwszego naczynia, a trzecie 
wodą z drugiego, to w pierwszym naczyniu będzie 
o 1 2 litrów wody więcei niż w drugim naczyniu Ja- 
kie są wymiary naczyń’ 

ZADANIE 5 

Podczas pierwszej jazdy samochodem zużyto 
20 proc benzyny która znajdowała się w zbiorniku 
paliwa. Podczas drugiej tazdy zuzyto 1 0 proc. iloś- 
ci benzyny, która pozostała w zbiorniku po pier- 
wszej jeżdzie Po dwóch jazdach pozostało w 
zbiorniku 9 litrów benzyny Ile litrów benzyny znaj- 
dowało się w zbiorniku przed oierws 2 ą jazdą’ 


Rozwiązania zadań prosimy przaaytaC do radakejl do końca czerwca br. < dopi*ki#m „Liga My tlących". Punk- 
tacja zalały od liczby prawidłowych rozwiązań. Wtrdd uczaatnlkOw roatoaujamy książki, a na iwyctązców ..Li- 
gi" esakają dodatkowa nagrody. 


Andrzej MęDYKOWSKI 
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Nastąpił drugi dzień po wybuchu. Szed- 
łem przez ogromną równinę w poszukiwaniu 
przedmiotów, którym wybuch nadał fanta- 
styczne, a zarazem przerażające kształty. 
Ciągle potykałem się o jakieś stopniowe 
elementy metalowe, pochodzące prawdo- 
podobnie z konstrukcji budowlanych miasta, 
jakie istniało tu przed eksplozją Przez gęstą 
warstwę pyłów powybuchowych i zgęstnia- 
łych chmur z trudem przebijało się szare i 
blade światło słoneczne. 

Uparcie szedłem naprzód. Chciałem za 
wszelką cenę znaleźć jakieś schronienie i 
odszukać choćby jednego żyjącego czło- 
wieka. Głód dawał mi się we znaki. Po go- 
dzinie zaczęło się ściemniać. Pod szarym 
sklepieniem chmur przesuwały się wolno 
czarne, kłębiaste warstwy dziwnego pyłu. 
Skierowałem się w stronę odległych wzgórz 

W pewnej chwili na jednym z wzniesień 
zobaczyłem oślepiający błysk. Zjawisko to 
powtórzyło się jeszcze trzykrotnie. Pomyśla- 
łem. że musi być tam człowiek. Zacząłem 
biec. Po parominutowym biegu upadłem. 
Byłem bardzo zmęczony. W oddali znowu 
zajaśniało ostre światło Rozbłysnęło trzy ra- 
zy i zgasło Poderwałem się z ziemi 

Po pewnym czasie z trudem dotarłem do 
pierwszego wzgórza. Było nagie, usłane 
mńóstwem skurczonych kamieni. W niektó- 
rych miejscach jaśniały szkliste stopione 
skały Zacząłem się wspinać. Raz po raz 
ziemia wymykała mi się spod nóg. Ręce 
pokaleczyłem sobie o okruchy skalne. 
Chciałem za wszelką cenę dotrzeć do źród- 
ła owego tajemniczego światła 

Wspinając się coraz wyżej, odczułem, ze 
zrobiło się nieco chłodniej. Zdumiałem się. 
skąd te wahania temperatury. Odpowiedź 
przyszła niebawem Z szarego sklepienia 
chmur runął potok deszczu. Ale nie był to 
zwykły deszcz Krople były gęste, jakby 
zmieszane z pyłem. Sprawiało to wrażenie, 
że zamiast kropli wody. spadają z chmur 
krople oleju. Po upływie paru sekund mój 
podarty kombinezon pokrył się gęstą i lepką 
substancją. 

Próbowałem dalej się wspinać, lecz śliz- 
gałem się jak na lodzie Traciłem równowa- 
gę i upadłem w płynącą po zboczu olejową 
ciecz. Podczas jednej z takich prób zaczą- 
łem zjeżdżać w dół zbocza. Zbocze urwało 
się i spadłem. Straciłem przytomność 

Gdy się obudziłem — było już prawie 
ciemno Deszcz nie padał Z ledwością od- 
lepiłem się od podłoża, Oleista ciecz zgęst- 
niała, cały byłem oblepiony szaro-brunatną 
masą Głowa bolała mnie okropnie. Obolały 
i potłuczony powoli stanąłem na nogi Rozej- 
rzałem się Półka skalna była mała i wąska 
Poniżej było piętnastometrowe urwisko O 
zejściu w dół nie było mowy. Wejście na gó- 
rę tez było niemożliwe. 

Usiadłem zrozpaczony. Zapadła noc. Było 
bardzo zimno Póki starczyło mi sił starałem 
się me zasnąć. Lecz nie trwało to zbyt długo 
Po parunastu minutach zmożył mnie sen 

Nagle odczułem wyraźną zmianę tempe- 
ratury. Zrobiło się ciepło. Otworzyłem oczy. 


Obok mnie ze szczeliny skalnej wydobywał 
się jaskrawy promień świetlny. Po chwili 
znikł. Wstałem i podszedłem do szczeliny 
Krzyknąłem do wnętrza. Odpowiedziało tyl- 
ko echo Chciałem krzyknąć jeszcze raz 

Oślepił mme blask potężnej wiązki świat- 
ła Wszystko co dotychczas mnie otaczało, 
zaczęło znikać. Całą przestrzeń przeniknęło 
światło. Nie mogłem dojrzeć nawet własnej 
postaci. W czasie trwania tej jasności do 
moich uszu dobiśgał cichy, a zarazem 
dziwny dźwięk W zasadzie nie słyszałem 
tego uszami Miałem wrażenie, że przenikał 
on bezpośrednio do mojego mózgu. Poczu- 
łem, że moje niewidzialne ciało przesuwa 
się. Nie potrafiłem określić, w jakim kierunku 
się przemieszczam, ale najwyraźniej od- 
czuwałem ruch. Czułem, że przemieszczam 


się coraz szybciej. Jasność zaczęła się 
zmieniać w przestrzeń falującą całą gamą 
kolorów. Barwy wirowały jak szalone Za ja- 
kiś czas zaczęły się oddalać. Całą prze- 
strzeń powoli wypełniały pasma o ciemnych 
kolorach. Koncentrując się stworzyły nie- 
przemkalną ciemność 

Dźwięczenie ustało. Zewsząd otaczała 
mnie czerń. Czułem się bardzo rozluźniony, 
lekki, nie odczuwałem ciężaru swojego cia- 
ła. Nie wiem jak długo trwałem w tym stanie. 
Pojęcie czasu jakby przestało istnieć. 

Później zacząłem odczuwać jak z tego 
dziwnego stanu przechodzę w stan snu. 
Powróciło poczucie własnego ciała 

Obudziłem s<ę. Leżałem na dziwnej ela- 
stycznej srebrnej płycie zawieszonej w po- 
wietrzu. Płyta znajdowała się pośrodku wiel- 
kiej. białej sali. Nad moją głową wisiała wiru- 
jąca, czerwona kula. Spojrzałem na siebie. 
Byłem ubrany w czarny jednolity kombine- 
zon wykonany z połyskliwego materiału. 
Kombinezon me miał żadnych kieszeń;, ani 
zapięć Stanowił z moim ciałem jakby ca- 
łość. Nawet twarz miałem zasłoniętą, lecz 
wszystko widziałem i słyszałem bardzo do- 
kładnie. 

Wstałem z płyty i zacząłem się rozglądać. 
Wokół mnie nic nie było prócz białych ścian, 
lekko nachylonych ku górze Żadnych 
okien, ani drzwi. Zacząłem iść przed siebie 
Zauważyłem, że czerwona kula przesuwa 
się wraz ze mną 

Podszedłem do jednej ze ścian, wyciąg- 
nąłem rękę. Dłoń zniknęła w mlecznej prze- 
strzeni Cofnąłem rękę. Dłoń pojawiła się z 
powrotem. Wtem, coś mi kazało bym szedł 
naprzód. Wokół mnie nie było nikogo. Po- 
myślałem, by sprawdzić czy pozostałe ścia- 


ny zachowują się w podobny sposób jak ta. 
przy której stoję Chciałem się obrócić, gdy 
do mojego mózgu dotarł ponownie ten sam 
rozkaz. 

Zacząłem się zastanawiać, kto ma tak po- 
tężną siłę, by wniknąć do mojego mózgu i 
przekazywać mi polecenia w postaci myśl' 
Spojrzałem do góry Nademną wciąż wiro- 
wata czerwona kula. Domyślałem się, że to 
właśnie ona jest moim telepatycznym stró- 
żem. 

Ruszyłem naprzód Przeniknąłem przez 
mglistą ścianę. Ukazała się tu podobna do 
poprzedniej sala, tyle ze miała kolor nie- 
bieski I znowu otrzymałem polecenie, żeby 
iść do przodu. Przechodziłem przez kolejne 
ściany i kolejne kolorowe sale. 

Zaczęła mnie denerwować ta wędrówka. 
Stanąłem i spojrzałem na kulę Nadal wiro- 


Robert JASTRZĘBSKI 

wała nad moją głową, pulsując czerwonym 
światłem Podskoczyłem, by jej dotknąć. 
Była nieuchwytna. Zacząłem pytać, gdzie 
jestem, kim ona jest. Odpowiedzi nie było. 
Znowu kazano mi iść przed siebie. 

Przekroczyłem kolejną ścianę, znalazłem 
się w ogromnym pomieszczeniu. Nie posia- 
dało ono ani ścian, ani podłogi i sufitu. Woko- 
ło otaczała mme czarna przestrzeń. Spojrza- 
łem na kulę. Zauważyłem jak zmienia swój 
kolor z czerwonego w żółty, potem w biały. 
Później stała się przezroczysta Wtem, z 
miejsca, gdzie wirowała, strzelił w otchłań 
jaskrawy promień. Jednak zanim zniknęła, 
przekazała mi swój ostatni rozkaz, abym 
przygotował się na spotkanie z komputerem 
czasu. 

W miejscu, gdzie zniknął promień, prze- 
jawił się jaskrawo świecący punkt. Punkt 
zaczął się powiększać. Blask był tak potę- 
żny, że zmusił mnie do zamknięcia oczu. Po 
paru sekundach odczułem, ze świecenie 
zmalało. Otworzyłem oczy Ujrzałem potę- 
żną błękitną kulę. Pulsowała ona tajemni- 
czym blaskiem, jednakże nie mogłem nig- 
dzie dojrzeć opuszczającego ją promienio- 
wania 

Chciałem podejść do kuli, lecz nie mog- 
łem zrobić kroku, chciałem coś powiedzieć, 
lecz nie mogłem wydusić z siebie słowa. Pa- 
trzyłem na kulę i nie mogłem oderwać od 
niej wzroku. Wtem ujrzałem ną jej pow.erzch- 
ni skupiające się cienkie pasemka promieni 
świetlnych. 

Nagle pasemka zniknęły w jednym 
punkcie W moją stronę zaczęła zbliżać się 
wstęga światła* Wniknęła ona we mnie. Nic 
nie poczułem. Po pewnej chwili doznałem 
wrażenia, że błękitna kula mnie pochłania. 
Obraz, jaki dotychczas widziałem przed so- 


OCALONY 


26 


bą zaczął się pokrywać gęstą mgłą. Po paru 
sekundach straciłem z oczu kulę... 

Przede mną roztaczała się mleczna prze- 
strzeń. Szum zaczął wzrastać. Niebawem 
był tak głośny, że trudno było wytrzymać. 
Myślałem, że stracę słuch. Nagle szum się 
urwał. Miałem uczucie, że zaczynam się 
przemieszczać. W miejsce mlecznej prze- 
strzeni napłynęły niezrozumiałe obrazy. 
Nie mogłem dociec co one przedstawiały 
Ich treść była jakaś fantastyczna, wystę- 
powały na nich różnokolorowe elementy. 
Obrazy te powoli wirowały i nakładały się 
na siebie. 

2 każdą chwilą prędkość wirowania rosła. 
Gdy prędkość była juz nieskończenie wiel- 
ka. cała ta dotychczas kolorowa mozaika zla- 
ła się w jedną ciemną otchłań. 

Po chwili poczułem chłód. Doznałem wra- 
żenia. że na czymś leżę. Zrobiło się ciepło. 
Ocknąłem się. Otworzyłem oczy. podnio- 
słem głowę i rozejrzałem się dokoła. Leża- 
łem znowu na półce skalnej, na którą spad- 
łem. lecz zamiast otaczających mnie wtedy 
nagich skał, zewsząd otaczała mnie bujna 
roślinność, Spojrzałem w dół, w stronę rów- 
niny. Był to przepiękny widok. Tam. gdzie 
kiedyś były stopione i skruszone kamienie, 
teraz rosła zielona i soczysta trawa. 

Wyłaniały się z niej potężne drzewa, po- 
kryte listowiem olbrzymich rozmiarów. 
Gdzieniegdzie strzelały z liściastej gęstwiny 
wysokie, o fantastyczej formie rośliny, przy- 
pominające drzewa iglaste. Cała równina 
zdawała się być dziewiczym, zielonym 
oceanem. 
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Okolica wydawała mi się znajoma, ale 
jakże inaczej wyglądała ona przedtem, po 
eksplozji. Gdzie podziały się tajemnicze ku- 
le i pomieszczenie, w którym niedawno 
przebywałem? Ile czasu mogłem tam być? 
Czy to był fakt. czy tylko sen? Dręczyło mnie 
pytanie o pochodzenie tego tajemniczego 
komputera. Kto go stworzył? Był to kompu- 
ter czasu — może więc to maszyna albo to 
„coś" przetransportowało mnie w czasie? 
Ale w przeszłość, czy w przyszłość? 

Chyba nigdy nie znajdę na te pytania od- 
powiedzi. Spojrzałem na siebie. Ponownie 
byłem ubrany w swój stary i podarty kombi- 
nezon. Po tajemniczym, czarnym ubraniu 
nie było śladu. Przypomniałem sobie, że tu- 
taj, w skale musi być szczelina, z której wy- 
dobywał się promień świetlny. Podszedłem 
do skały. Rozgarnąłem wiszące liście. Jed- 
nakże nic nie znalazłem, prócz kamiennej 
ściany, porośniętej mchem. Po szczelinie 
nie było śladu. 

Odwróciłem się i podszedłem nad urwi- 
sko. Z łatwością zszedłem w dół po gąszczu 
korzeni i lian. Zanurzyłem się w wysokiej 
trawie i gęstym, wilgotnym listowiu. Podnios- 
łem z ziemi solidnie wyglądający kij i zaczą- 
łem przedzierać się przez zieloną ścianę 
traw i krzewów. Słońce świeciło jaskrawym 
blaskiem, obdarzając swoim ciepłem i świat- 
łem zieloną równinę. Chwyciłem kij mocno 
w dłoń i ruszyłem przed siebie na spotkanie 
nowego świata. 


Klawiatura 
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0 > rem Program Wwawa tiB a a 

30 boroer i: CLŚ . SRISiTT o 

90 FOR n *0 TO ?. RERO bl ; POKE 
USR "a"+n,bl: NEXT n: REM a* □ 
100 DRTR 255,193,195,0,129,195, 
231,255 

110 FOR n *60000 TO 60100 POKE 
n , 250 . NEXT n 

120 FOR n*0 TO 16 RERO a POKe 
50000+8, n next n 

130 DRTń 49,81.87251,69,53,88,8 

4 ,54,39,55,35,56,73,79.46,80 

i 40 FoA n *0 TO ie REAd •; POKE 
61000+n,m NEXT n _ _ 

150 DRTA 1,3, 6,7 ,9,10,18,15,16, 
18, 19, 21,22,24,27, 88, 30 _ 

160 ÓIM a * (32) : LET pam*500' 

LET la b*60O00 LET POZ *61000 
KE 23658,8 
170 BRIGHT 1 
130 FOR n*ll TO 15 

. . . ■ p ii , V T n «i 

16 d’m m m " 

IS ! P 5 IN J "5 u* W'*" 


2O0 FOR n =16 TO 232 STEP 24; PL 
OT n , 0 DRhU 0,36: NEXT n 
210 GO SUB 390 
220 BRTGHT 0 

230 PRU5E O PRINT RT 2,10, BRI 
§HT 1, '• REJESTRACJA •• PÓIN+ 80; 
NIE 0 ' 0 ' 3 *' X “ OOTURRZfl 

«2?r.[iT ł » T0 9999 PRINT RT 9 

, As, OHIGrlT 1,0 

25fe LET a *250 

^260 IF INKEYg*"X" THEN GO TO 31 
_2T0 IF INKEYgo"" RNO PEEK (COD 

^NhEY$ LET a=PEEK (tab+t> 

280 IF a <250 THEN PRINT RT 10, P 
lp ° z iL ' BRIGHT 1 CHRP 144. 
oz+a) PRINT R T 10, PEEK (p 
290 IF 4*250 THEN PRINT PT 8 , 1S 

300 POKE pam +n , a . next n 
310 PRINT RT 2,10, BRIGHT 1; IN 
UER3E 1;" ODTUfiAZRNIE B0R6ER 
4: GO SUB 400: FOR m*l TO n-1: L 
ET P*PEEK ipam+m) : PRINT rt 3,15 
, BRIGHT 1, INUERSE ljn + 1; 

320 IF p -'250 THEN PRINT PT 10 , P 
EEK (poz+p), BRIGHT 1, INUERSE 1 
. CHRf 144 BEEP . 2 . p -2 . PRINT RT 
10, PEEK (poZłP), •• 

330 IF P *250 THEN PRUSE 1 
340 NEXT m 

350 print no , rt 0 , 0 , ag," 
POUTORZYC ( T/N ) 7 
360 PRU5E 0: IF INKEY g*"T" THEN 

PRINT RT 8,15;'' GO SUB 40 

O: GO TO 310 

370 BOPOER 1: FOR h *2 TO 9 : PRI 
NT RT n,0,af NEXT n GO SUB 400 
GO SUB 390 GO TO 330 
390 PLOT 0,0. DRRU 255,0. DRRU 
0,175 DRRU -255,0 DRRU 0,-178: 
PLOT 0,87 DRRU 255,0 REfuRN 
400 PRINT B0, RT 0,0, a«, a*. RETU 


J. Rubinowicz 
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Spis najciekawszych programów 


PonlZeJ przedstawiany s;£ls najciekawszych programów 
narzędziowych Jakie ukazały się w IKS-le. BAJTKU. 
KOMPUTERZE 1 MIKROKLANIE Cod pierwszych numerów} na 
SPEKTRUM. AMSTRADA. COMMODORE i ATARI. 

W tabeli podano nazwę prezentowanego programu . Jego 
funkcję i źródło tj. numer pisma Cdi a IKS-a literka *Z' 
oznacza - ZESZYT PROGRAMÓW} .'Tok ukazania się/skrót 
nazwy pisma, gdzie: 

IKS - INFORMATYKA. KOMPUTERY SYSTEMY. 

BAJ - BAJ TEK. 

KOM - KOMPUTER. 

MIK - MI KROKU AN. 


LP 

NAZWA PROGRAMU/FUNKCJA - JĘZYK PROGRAMU 

2RODŁO 

i 

2 

3 

ZX - SPEKTRUM 


■ 

2 

3 

1 

/Przenoszenie programów C zbiór ów danych} 
ze SPEKTRUM na AMSTRADA - BASIC 

Z2/87/IKS 

2 

ASEMBLER/Symul ac J a prawdziwego assemble- 

22/87/1 KS 


ra na SPEKTRUM - ASSEMBLER 


3 

KATALOG/Katal ogowani # gier - BASIC 

Z4/87/IKS 

4 

COMPACT/ZmnieJsza zajętośó pamięci . zwię- 
ksza szybkość działania programów -BASIC 

2/86/1 KS 

5 

/Zapamiętywanie lOO obrazów w 48k RAM-u 

SPEKTRUM - BASIC 

5/86/1 KS 

6 

/Zwiększanie tablicy zmiennych - BASIC 

6/86/1 KS 

7 

/Edytor znaków - BASIC 

2/87/1 KS 

8 

/Test monitora - BASIC 

4/87/1 KS 

9 

/Zwiększanie napisów na ekranie - BASIC 

2/86 /BAJ 

10 

-•64 kolumny tekstu na ekranie - BASIC 

7/86/BAJ 

li 

KATALOG/Spis programów na taśmie - BASIC 

10'86/BAJ 

12 

/Renumeraeja linii programowych - BASIC 

11/86 /BAJ 

13 

/Rozszerzanie tablic w pamięci - BASIC 

4/87 /BAJ 

14 

/siedzenie wykonywania programu - BASIC 

i i /87 /baj 

15 

/Wyszukiwanie 1 tworzenie tablic wystę- 
powania zmiennych w programie - BASIC 

3/87 /KOM 

16 

Nagrywanie programu w dowolnym kodzie, 
umieszczanie pod wskazanym adresem-BASIC 

3/37/KOM 

17 

/Sortowanie tablicy znakowej dwuwymiaro- 
wej - BASIC. - ASSEMBLER 

5/87 /KOM 

18 

/Tworzenie linii DATA z ‘kolejnymi bajta- 
mi programu maszynowego - BASIC 

12/87/KOM 

A M S T R A D 


» 

2 

3 

1 

/Przenoszenie programów Czblorów danych} 
ze SPEKTRUM na AMSTRADA - BASIC 

Z2/87/IKS 

2 

Kopiowanie ekranu monitora - BASIC 

4/87/1 KS 

3 

/Zniesienie protekcji odczytu - BASIC 

6/87/1 KS 

4 

/Odtwarza skasowany plik na dysku -BASIC 

7/86/BAJ 

5 

/Katalog dysku - BASIC 

8/86/BAJ 

6 

/Analiza nazw zmiennych - BASIC 

8/86 /Baj 

7 

Zdejmowanie zabezpieczenia programów 
napisanych w BASIC -u - BASIC 

9/86 /BAJ 

e 

MONITOR/Przeglądanle 1 modyfikacja pa- 
mięci - BASIC 

1 1 /86/BAJ 

9 

/Emulator BASIC-a 1.1 dla CPC 464 -BASIC 

9/87 /BAJ 
10/87/BAJ 

COMMODORE 


1 

2 

3 

1 

DI SASEMBLER/Tł umączy instrukcje z kodu 
wewnętrznego na Język symboliczny- BASIC 

5/86/1 KS 


t 

2 

3 

2 

MANI AKTURBO 'Uspr awni enl e interpretera 

3-4/86BA J 

3 

'Katalog dysku na C64 - BASIC 

9/86 /BAJ 

4 

TSLCOPY /Kopi owanl e na dysk programów z 
pamięci komputera - BASIC 

11 /86/BAJ 

5 

LI STER/Zml ana szerokości wydruku 

1 1 /86/BAJ 

6 

-Ląc żeni e programów w BASI C-u - BASIC 

4/87 /BAJ 

7 

TURBOl 6/Pr z yś pies zonę ładowanie progra- 
mów na Cl 6 i Cl 16 - BASIC 

5/87/BAJ 

8 

AUTONUMBER 'Automatyczne numerowanie li- 
nii programów w BASI C-u - BASIC 

5/87 /BAJ 

9 

/Połączenie C64 z drukarkami D-lOO lub 
DZM-180 - BASIC 

6/87/BAJ 

10 

/Przypisywanie rozkazów lub funkcji kla- 
wiszom funkcyjnym - BASIC 

6/87/BAJ 

11 

/Katalog dysku 

6/87/BAJ 

12 

/Przenoszenie obrazu z ekranu na drukar- 
kę dla Cl 6/1 1 6 PLUS/4 

9/87/BAJ 

13 

DOS+/Rozszer za funkcje DOS-u CC64} -BASIC 

10/87 /BAJ 

14 

DISK-PROTECTOR/Zabezplecza pliki przed 
skasowaniem - BASIC 

1 1 /87/BAJ 

15 

/Usprawnienie programu TURBOl 6 - BASIC 

11 /87/BAJ 

16 

/Obsługa dysku MS-DOS dla Cl 28 - BASIC 

9/87/KOM 

17 

TURBOTAPE64/Pr ryś pi esza operacje zapisu, 
odczytu i weryfikacji programów na taśmę 
magnetyczną dla C64 - BASIC 

2/86 /MIK 

ATARI 


» 

2 

a 

1 

/Ml ni assembl er - BASIC 

21 /87/I KS 

2 

/Automatyczny start programów - BASIC 

22/87/1 KS 

3 

DYSKMENU/Pr zaglądanie dyskietki 1 auto- 
matyczne uruchamianie programu - BASIC 

22/87/1 KS 

4 

/Symulacja funkcji assemblera - BASIC 

24/87/1 KS 

5 

/Konwerter Języka maszynowega - BASIC 

24/87/1 KS 

6 

DI laSEMBlER/TI umączy instrukcje z kodu 
wewnętrznego na Język symboliczny -BASIC 

24/87/1 KS 

7 

/Edytor - BASI C 

4/87/1 KS 

8 

MI NI -DOS/Real 1 zuj e funkcje DOS-u - BASIC 

6/87/1 KS 

9 

/Kopiowanie programów napisanych w Języ- 
ku wewnętrznym - BASIC 

6/87/1 KS 

io 

'Tworzenie procedur wyświetlania - BASIC 

7-8/871 KS 

11 

/Kopiowanie programów - BASIC 

7-8/871 KS 

12 

/Test stacji dysków - BASIC 

7-8/871 KS 

13 

DI SASEMBLER/Tł umączy instrukcje ,z kodu 
wewnętrznego na Język symboliczny -BASIC 

1 0/87/1 KS 

14 

SUMY KONTROLNE/Uł at wi a wpr owadzanl e , 
drukowanie programów - BASIC 

11/87/1 KS 

15 

/Wyświetla na ekranie mapę dyBku - BASIC 

1 1 /87/I KS 

16 

/Edytor kodu maszynowego - BASIC 

1 2/87/1 KS 

17 

RENUMERATOR/RenumeracJa linii programo- 
wych programu - BASIC 

5-6/86BAJ 

18 

TAPECOPI ER /Kopi uje programy *. aS mowę 

1 /86/BAJ 

19 

SYMULATOR 6502' Ar. al Iza działania progra- 
mu w kodzie maszynowym — BASIC 

2/87 /BAJ 

20 

'Katalog dysku, usuwanie plików - BASIC 

2/87 /BAJ 

21 

/Kasetowy system operacyjny - BASIC 

5/87/BAJ 

22 

SPEED TRANS/Pr zemieszczanle danych w pa- 
mięci komputera - BASIC 

8/87/BAJ 

23 

T}ynami czne przeglądanie pamięci - BASIC 

8/87 'BAJ 

24 

/Przenosi zawartości zbiorów dyskowych 
"do wnętrza" instrukcji DATA - BASIC 

2/87 /KOM 
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INFORMATYCZNY SŁOWNIK ANGIELSKO-POLSKI 


DIGITAL INFORMATION DISPLAY - cWroMy -om tor ekra- 
DIGITAL IMPUT - wejście cyfrowe, 

DIGITAL INTEGRATED CIRCUIT - cyfrowy układ icalony, 
DIGITAL OPTICAL RECORDING - zapis optyczny cyfrowy, 
DIGITAL OUT PUT - wyjście cyfrowa. 

DIGITAL PLOT TER - plot ar. pisak cyfrowy, urządzania 
rysująca, 

DIGITAL PRINTER - drukarka cyfrowa, 

DIGITAL READ-OUT - odczyt cyfrowy, 

DIGITAL RECORDING - zapis cyfrowy, 

DIGITAL REPRESENTATION OF DATA - cyfrowa orzedsta- 
wiania danych, 

DIGITAL SORT - sortowania aatodą cyfrową, 

DI GI T AL-TO- ANALOG CONVERTER - k on war tar cyfrowo-ana- 
logowy, 

DI GI TI ZE - przekształcać na postać nuaaryczną, dys- 
kratyzawać, 

DIGITIZER - przatworni k analogowo-cyf rowy , 

DI GIT KEYBOARD - klawiatura cyfrowa, 

DIGIT POINT - przaclnak <np. dzleslątny), 

DI GIT SAFEGUARDIMG CODĘ — kod zabazpl sczający cyfry, 
DIMENSION - wymiar, 

DI MENSI ONLESS NUNBER - liczba bazwyai arowa, 

DIP SWITCH - zastaw orzełącznl kowy wzdłużny, 

DIRECT - bezpośredni. także* klarować, 

DIRECT ACCESS - dostąp bezoośredni, 

DIRECT ACCESS DEVICE - urządzania c bazpotradm a 
dostąpią, 

DIRECT -ACCESS STORAGE - paaiąć o dostąpią bezpośred- 
DIRECT ADORESS - ad ras bazpo*radni, 

DIRECT ADDRESSING - adresowanie bazpoArednie (adres 
argumentu bezpośrednio za rozkazem). 

DIRECT ARGUMENT - argument bezoośredni , wystąpuje 
bezpośrednio po rozkazie, 

DIRECT CODĘ - kod prosty, 

DIRECT COMPUTER DISPLAY - akranoois, 

DIRECT CONTROL - starowanie bezoo«redni a. 

DIRECT DIGITAL CONTROL - starowania cyfrowa bezpo- 
średnie. 

DIRECT DRI VE - synchronizacja bezpośrednia. 

DI RECT-DRI VE NONOCHRONE MONITOR - monitor monochro- 
matyczny o bezpośredniej synchronlzac Jł . 

DIRECTED BEAM - konturowa rozwlnlącia (kreślenia) 
obrazu. 

DIRE CTED BEAM CRT DISPLAY DE VI CE - monitor konturowy, 
DIRECTED BEAM DEYI CE - konturowa urządzania qr af i czna, 
DIRECTED BEAM DISPLAY DE VI CE - patrz l DIRECTED BEAM 
DEVICE, 

DIRECT INFORMATION - Informacja adresowana, infot — 
mac. la indywidualna, 

DIRECT I NPUT -OUTPUT - bezpośrednie przesyłania in- 
formacji miądzy mi kroorocasoram a urządzeniami zaw- 
nątrznymi , 

DIRECT JUMP - skok bezpośredni , także* rozkaz skoku 
baz pośredni ago, 

DIRECT LIMĘ - patrz* IMMEDI ATE LINK, 

DIRECT WMORY ACCESS COMTROLLER - Starownik DMA 
(bezpośredniego dostąpu do pamlącl > , 

DIRECT MEMORY ACCESS - bezpośredni dostąp do pamlącl , 
DIRECT MODĘ - patrz* IMMEDI ATE MODĘ, 

DIRECT NUMERI CAL CONTROL COMO - bezpośrednia staro- 
wania numeryczna, 

DIRECT SUBTRACT COUNTER - licznik odejmujący, 

DIRECT (DATA) TRANSMISJOM - transmisja (danych) 
bezpośrednia, 

DIRECTED SET - zbiór skierowany, 

DIRECTION - kierunek (zwiąkszanie lub malenie adre- 
sów) , 

DIRECTORY - informator, kataloq, kartoteka, skorowidz 
DISAMI - wyłączyć z działania, unieruchomić, 

DISABLE INTERRUPTS - wyłącz przerwania, 

DISABLE PULSE - impuls blokujący, impuls zamykający, 
DISADVANTAGE - wada, ujemna strona, 

DISASSEMBLE - patrz i DI SADV ANT AGE , 

DISCARD - odrzucić, zaniechać, 

DISCONNECT - odłączać, rozłączać, 

DISCONTINUE - przerywać, 

DISCONTINUITY - brak ciągłości, przerwa, 

DI SCONTI NUOUS - przerywany, nieciągły, 

DISCREPANCY - rozbieżność, różnica (np. pomiarów), 
DISCRETE - dyskretny, nieciągły, odrąbny, pojedyn- 
czy, 

DISCRETE CHANNEL - kanał dyskretny, kanał ziarnisty, 
DISCRETE INFORMATION SOURCE - dyskretne źródło in- 
formacji , 

DISCRETE REPRESENTATION OF DATA - dyskretna przed- 
stawi ani a danych, 

DISCRIMINATE - rozróżniać, 

DISCUSSION - analiza, dyskusja, omówienie (np. wy- 
ników) , 


DISJUNCTION - alternatywa, 

DISK - dysk magnetyczny, 

DISK AUXI LI ARY ROUTIME - progres dyskowy pomocniczy, 
DISK CARTRIDGE - pakiet, dysk wyeienny, 

DISK DRI VE - napąd dyskietkowy, napąd dyskowy, 
DISKETTE - dyskietka, dysk slastyczny, 

DISK FACE - strona dysku, 

DISK LAYOUT - rozplanowanie układu dysku, 

DISK MEMORY - paeiąć (magnetyczna) dyskowa, 

DISK OPERATI MG SYSTEM - systee operacyjny dyskowy, 
DISK PACK - patrz i DISK CARTRIDGE. 

DISK PARAMETER BŁOCK - blok parametrów dyskowych, 
DISK STORAGE - oatrzi DISK MEMORY. 

DISK STORAGE DUMP - wydruk zawartości dysku, wypis 
zawartości dysku, 

DISK STORAGE EKTRACT - wyciąg z dysku. 

DISK STORAGE PRINT-OUT - patrz* DISK STORAGE DUMP, 
DISK TRACK - ścieżka dyskowa, 

DISK TRANSFER AREA - obszar (bufor) transmisji dys- 
kowych, 

DISK UNIT - Jsdnostks pamiąci dyskowej, 

DISPARITY - rozbieżność, 

DISPATCHER - prograe rezydent. 

DISPATCHING - koordynacja, także* służba dyspozytor- 
ska, 

DISPERSED STORAGE - zapaalątywanit rozproszona, 

DI SPŁACĘ - przemieszczać . przesuwać, umieścić, 
DISPLACEMENT - przssuniącia, także* nazwa adresu 
używanego przy adresowaniu indeksowym. 


DISPLAiNG - obrazowanie, 

DISPLAY - zobrazowania, przedstawiania, także* moni- 
tor obrazowy, pr zedatawi ać , obrazować, 

DISPLAY ADAPTER - adapter ekranu, 

DISPLAY BACKGROUKD - tło (podstawa) obrazu, 

DISPLAY BUFFER - bufor obrazu, paaiąć obrazu, 

DISPLAY COMMAMD - komenda graficzna, 

DISPLAY CONSOLE - konsola graficzna, 

DISPLAY CYCLE - cykl odnawiania, cykl odświeżania, 
DISPLAY DATA - dane graficzne, 

DISPLAY DEYICE - graficzne urządzenie Wyjściowe, 
DISPLAY ELEM3TT - element obrazu (np. punkt, odci- 
nek, znak alfanumeryczny, itp.), 

DISPLAY ENTITY - obiekt graficzny (zbiór elementów 
obrazu, którymi można operować Jako całością), 
DISPLAY FILE - plik graficzny, 

DISPLAY FOREGROUND - przedni plan obrazu, 

DISPLAY FRAKE - kadr obrazu, 

DISPLAY GENERATOR - generator obrazu (przetwarza 
zawartość bufora obrazu na obraz fizyczny), 

DISPLAY IMAGE - kod kadru, 

DISPLAY INSTRUCTiaN - komenda graficzna, 

DISPLAY ORDER - rozkaz graficzny, 

DISPLAY PAGE - stronica obrazowa, 

DISPLAY PANEL - panel graficzny, konaola graficzna 
oproqraeowana w sposób umożliwiający pracą w tryblm 
Interakcyjnym, 

DISPLAY PRINITI VE - element obrazu (np. punkt, odci- 
nek, znak alf anumeryczny, itp.), 

DISPLAY SCOPE - wielkość obrazu, rozmiar rysunku, 
DISPLAY SPACE - przestrzeń operacyjna urządzania, 
(obszar, którsgo zawartość Jąst przedstawiona na po- 
wierzchni obrazowania) , 

DISPLAY SURFACE - powierzchnia obrazowania (nośnik, 
na którye tworzony Jest obraz fizyczny), 

DISPLAY UNIT - monitor mkranowy, mkranopia, takżai 
wskaźnik radarowy, 

DISPLAY WRZTER - slement kreślący obraz, 

DISPOSŁ OF - rozporządzać (czymś) , dysponować, 
DISREGAku - ignorowa ć , pomijać, nim zważać (na coś), 
DISSEKINATE - r ozpowszecnni ać , rozprowadzać (np. ln- 
f ormacje) , 

DISSEKIMATION - rozpowszechnianie, rozprowadzanie, 
DISSIMILAR - niepodobny, różny, 

DI STANCE CONTROL - sterowanie zdalne, 

DISTINCTION - różnica, 

DI ST ORT - wypaczyć, uszkodzić, znlskształclć, 

DI ST ORT IOW - spaczeni e, wypaczenie, wykrzywienie, 
zniekształcenie, 

DISTORTION FACTOR - współczynnik znlskształcsnia. 

Di ST RI BUTĘ - rozdzielać, 

DISTRIBUTED PROCESSING - przetwarzanie rozproszone, 
DISTRIBUTIMG BOARD - tablica rozdzielcza. 

DISTRI BUTIOH - rozłożenie, rozkład, rozprowadzenie, 
DISTURB SI GNAŁ - sygnał zakłócający, 

DISTURBAMCE - zakłócania, zaburzenia, 

DIYERGE - odchylać sią, odbiegać. 

DIVERGEMCY - dywergencja, rozbieżność, 

DI VI DE - dzielić, także* podziel, 

DI VIDEMD - dzielna, 

DI VI DER - dzielnik, 

DI VI SI ON - dzielenie, znak dzielenia, także* w CO BÓ- 
LU* dział (sekcja), 

DI VI SI ON SION - znak dzielenia, 

DI VI SI ON WITH ROUND-OFF - dzielenie z zaokrągleniem. 
DMĄC - patrz* DIRECT MEMORY ACCESS COWTROLLER, 
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t OML - patrz I DATA MAMIPULATION LANGU AGE, 

▼ DNC - patrz l DIKECT NUMERI CAL CONTROL, 

DO - patrz t DIGITAL OUTPl/T. 

DOC - patrz* DIAGNOSTICS ON -CHIP, 

DOCUMENT - dok u ment. 

DOCUMENT-FREE DATA PROCESSING - przetwarzani a danych 
bezdokumento— e, 

DOCUMENT PROCESSING - przatnarzanla dokumentów, 

DOC UMK NT READER - czytnik dokuzwitdw, 

DOCUMENT SAFEGUARDING - ochrona dokumentów, 

DOCUMENT ATI ON - dokuawntac ja, 

DOM Al N - dziadzina, obszar. 

DOMAIM OK MAP - dziadzina odwzorowani a, 

DOR - patrz* DIGITAL OPTICAL RECORDING, 

DOT AND ELEMENT - psaudoal aaant *1”, 

DOT DIAGRAM - wy kras punktowy. 

DOT MA TRI X - aatryca punktów, 

DOT MA TRI X CHARACTER GENERATOR - ganarator mozaikowy 
znaków, 

DOT MATRIX PRINTER - drukarka mozaikowa, 

DOT MEMORY - pamięć punktowa, 

DOT OR ELEMENT - psaudoal amant "LUB", 

DOT PRINTER - patrz* DOT MATRIK PRINTER, 

DOT PROOUCT - iloczyn skalarny, 

DOUBLE CURREMT - prąd dwuk i trunkowy , 

DOUBLE DENSITY CDD) - podwójna gęstoóć , także* spo- 
sób zapisu na dysku, 

DOUBLE -DENSITY FLOPPY DISX - dysk latka o podwójnaj 
gęstości zapisu, 

DOUBLE -LENGTH NUMBER - liczba o podwójnaj dlugoSci, 
DOUBLE PRECISION - podwójna precyzja, 

DOUBLE -PRECI SI ON COMPUTATION - licz ani a z podwójną 
pracyzją, 

DOUBLE -PRECI SION NOT ATI ON - zapis podwójnaj precyzji, 
DOUBLE SIDED C DSJ — dwustronny, także* zapis po obu 
stronach dysku, 

DOUBLE -SI RE COMMUNI CATION - przesyłania dwuprzawodo- 

DOSMLOAD - ładowania w dół, ładowania na dolna po- 
zycja (np. rejestru), 

DOSNLOADING - ładowania zdalna, ładowania skrodne, 
ładowania w dół, 

DOWN-TIME - okras wyłączania, okras ni asprawnodci 
(urządzania) , czas przestoju, przastój spowodowany 
awarią sprzętu, 

DOWN-TIME OPERATION - czynnodó związana z usunięciem 
uszkodzenia, 

DOWN-UP COUNTER - licznik rewersywny (zliczający 
w obydwu kierunkach), 

DPB - patrz* DISK PARAMETER BŁOCK, 

DPL - patrz* DESCRI PTOR PRI VI LEGE LEVEL, 

DRAGGING - wodzenia (np. przesuwania elementu obrazu 
za piórem dwietlnym), 

DRAM - patrz i DYNAMI C RANDOM ACCESS MEMORY, 

DRAVING AREA - wlelkodć (rozmiar) powierzchni obra- 
zowania, 

DRAW - rysować , także* wyciągać wniosek. 

DRAWBACK - cecha ujemna, wada, 

DRAWING SI ZE - wielkodó obrazu, rozmiar rysunku, 

DRIVE - urządzania, napęd. 

DRIVER - program obsługi urządzania, moduł sterujący, 
DROP — opuszczać, także* spadek (np. napięcia). 

DROP CABLE - kabel dołączani owy, 

DROP IN - sygnał nie zapisany (dot. zapisu na nodni - 
ku magnetycznym), 

DROP OUT - sygnał nie odebrany (dot. zapisu na nad— 
ni ku magnetycznym), 

DROPPED BIT - bit opuszczony, bit zagubiony, 

DRUN - bęben, 

D* 0 ** ME MORY - pamięć (magnetyczna) bębnowa. 

DRUM PLOTTER — pisak bębnowy, pl ot ar bębnowy. 

DRUN PRINTER - drukarka bębnowa, 

DRY RUN - przebieg próbny, 

DS - patrz* DATA SEGMENT, 

DT-EOUI PNENT C DTE) - urządzania transmisji danych, 
UTD, 

DTA - patrz* DISK TRANSFER AREA, 

DTE - patrz* DT-EOUI PMENT, 

DU - patrz* DISK UNIT, 

DUALCODE - kod dwójkowy, 

DUAL FULL ADDER - sumator pełny dwójkowy, 

DUAL PAPER FEED - przesuw podwójny, posuw podwójny, 
DUAL-PURPOSE KEY - klawisz dwucz ynnodc i owy , 

DUAL-TRACK RECORDIND - zapisywania dwudcieżkowe, 

DUE DATĘ - termin, 

DUMB TERMINAL - "niemy terminal", 

DUNMY - element fikcyjny, upozorowany, sztuczny, 

DUMNY ARGUMENT - argument formalny, 

DUMMY DE VI CE - urządzania pozorna, 

DUMNY IND£X - niemy indeks, 

DUMMY IMSTRUCTION - rozkaz pusty, 

DUMMY MAMĘ - nazwa pusta, 

DUMMY ORDER - rozkaz fikcyjny, 

D UMMY PARAMMETER - parametr formalny, 

DUMMY ROUTIME — dlapy (bezczynny) podprogram, 

DUłMY SECTTON - pseudosekc Ja, 

DUMNY YARIABLE - zmienna fikcyjna. 


DUMP - przaniaslanla całego lub czędclowago obszaru 
pamięci komputera do innego obszaru pamięci lub na 
nodni k zewnętrzny, 

DUMP CHECK - sprawdzania wydruku pamięci, 

DUMPING - przenoszenia zawartodcl pamięci komputera, 
przekazywani a, 

DUMPING PROGRAM - program post-mortem, 

DUMPING SYSTEM CONTROL AREA - kopiowania obszaru 
starowania, 

DUODECIMAL - dwunaetkowy (system liczenia), 

DUPLEX - transmisja Jednoczesna, transmisja duplek- 
sowa, duplęk, 

DUPLEK CHAMNEL - kanał dupleksowy, 

DUTLEK OPERATION - patrz* DUPLEK, 

DUPLICATE - kopia, także* powielać, reprodukować, 
powtarzać, 

DUPLICATING PROGRAM - program duplikujący, program 
kopiujący, 

DUPLICATING PUNCH - dziurkarka powtarzająca się, 
dziurkarka reprodukująca, 

DUPLI CATION - kopiowanie, powielanie, 

DUPLICATION CHECK - kontrola przez duplikację, 

DUPLI CATION METHOD - metoda powielania, 

DURABILITY - trwał od ć, 

DURATION - czas trwania, 

DUSTPROOF BAG - pyłoszczelna torebka (np. do prze- 
chowywania tadmy magnetycznej), 

DUTY CYCLE - cykl obowiązkowy, cykl pracy, 

DUTY PROGRAM - program usługowy, program użytkowy, 

OK CDATA REGISTER) - rejestr danych, 

DYADIC - dwuczłonowy, podwójny, 

DYNAMI C IMAGE - przedni plan obrazu, 

DYMAMI C MAIM STORAGE ALLOCATION - przydzielanie dy- 
namiczne pamięci operacyjnej, 

DYMAMI C MAP PI MG SYSTEM - system z odwzorowaniem dy- 
namicznym, 

DYNAMI C PROGRAM RELOCATION - przesunięcia dynamiczne 
programu, 

DYNAMI C PROGRAM MI NG - programowani e dynamiczna, 
DYNAMI C RANDOM ACCESS MEMORY - dynamiczna pamięć 
o dostępie bezpodrednlm, 

DYMAMI C SKEW - pr zakos dynamiczny, 

DYNAMI C STORAGE - pamięć dynamiczna. 

DYNAMI C TESTING TECHNIOUE - testowanie dynamiczne, 

E 

E 2 - patrz* ELECTRICALLY ERASABLE DEYICE, 

EA - patrz: EFFECTIYE ADDRESS, 

EAC - patrz* END-AROUND CARRY, 

EARLY FAILURE PERIOD - okres uszkodzeń początkowych. 
EARN - patrz* EUROPEAN ACADEMIC RESEARCH NETWORK, 
EAROM - patrz* ELECTRICALLY ALTERABLE ROM, 

EARTH - uziom, zwarcie doziemne, także: uziemiać, 
EARTH BAR - szyna uziemiająca, 

EARTH TERMINAL - zacisk uzi omowy. 

EBCDI —CODĘ - patrz: EXTENDED BI NARY — CODED DEC IMAŁ 
INTERCHANGE CODĘ, 

EBCDIC - patrz* EXTENDED BI NARY -CODED DECIMAL INTER- 
CHANGE CODĘ, 

EBNF - patrz* EXTENDED BACKUS-NAUR FORM, 

ECC - patrz* ERROR CORRECTION CODĘ, 

ECGB - patrz* ENHANCED COLOR GRAPHICS BOARD, 

ECHO - echo, potwierdzenie poprawności odbioru wy- 
słanej informacji, 

ECHO -CHECK - kontrola zwrotna, echo kontrolne. 
ECHO-PLEX - echo-pleks. 

ECHO-PRI NTI NG - drukowanie echa. 

ECHO SUPPRESSOR - tłumik echa. 

ECHOING THE CHARACTER - potwierdzenie poprawności 
odbioru wysłanego znaku, 

ECMA - patrz* EUROPEAN COMPUTER MANUFACTURES* 

ASSOCI ATI ON, 

ECTL - patrz* EMITTER-COUPLED TRANSISTOR LOGIC, 

EDC - patrz* ERROR DETECTI ON^CORRECTI ON, 

EDGE - krawędź (np. karty, taśmy papierowej), 
EDGE-NOTCHED CARD - karta ( kar totekowa) selekcyjna 
nacinana, 

EDGE PATH - droga krawędziowa, ścieżka krawędziowa. 
EDGE-PUNCHED CARD - karta (kartotekowa) obrzeżnie 
dziurkowana, 

EDGE-TRI GGERED WRITE — zapis przełączany krawędzią, 
EDGEWISE - wzdłuż krawędzi, na kant, 

EDIT - redagować, także: edytor, 

EDIT-DIRECTED - redagowanie kierowane (sterowane), 
EDITING — redagowanie wyników, przygotowywanie in- 
formacji, 

EDITING KEY - klawisz edycji, 

EDITING STATEMENT — dyrektywa edycji, 

EDITING TERMINAL - terminal w skomputeryzowanym sys- 
temie wydawniczym, 

EDI TI ON - wydanie, 

EDITOR - edytor, program redagujący. 
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Za pomocą tego programu można kopiować UU 
gry i programy użytkowe do pojemności 33 
kB pamięci. W zależności od stosowanego 
nośnika oryginału oraz jego wtórnika mamy 
do wyboru trzy możliwości kopiowania tj.: z XZ 
taśmy na taśmę; z dysku na taśmę i z taśmy na NK 
dysk. Obsługa programu jest bardzo prosta i ^ 
polega na wykonywaniu poleceń zobrazowa- yy 
nych na ekranie monitora. Program składa się YM 
z trzech części. Pierwsza to zwiastun, po 
wprowadzeniu którego komputer oczekuje na * * 
wpisanie z klawiatury instrukcji RUN. Ins- RB 
trukcja ta uruchamiając zwiastuna umożliwia DN 
wprowadzenie części drugiej (objaśnienie) UU 
oraz programu głównego w formie gotowej do ^Y 
wykonywania kopii. Do sterowania progra- 
mem wykorzystywane są cztery klawisze: qj 

T — taśma lub tak w zależności od pytania; MJ 
D — dysk; N — nie i SPACE do potwierdzę- 
nia wyboru. H . JANKOWSKI ”0 


VH 0 POKE 16,64 POKE 53774. *4 POKE 
709 .14' POKE 710,0 POKE 752,1 
FB 1 ? CHR*<125) 'POSITION 10,13;? " 
Fanom ATARI -Redakcja IKS-*" 'FOR 
1-1572 TO 1600 'READ AiPOKE I,A<N 
EXT I > U*USR( 1572) 

MH 2 DATA 169,12,141,252,2,169,1,14 
1,68,2, 162, 253, 154, 169, 183, 72, 16 
9,84,72, 169,4,32, 182, 187, 169,255 
,76,4,187 


UX 3 GRAPHICS 0'POKE 16, 64 POKE 537 
74, 64 'POKE 710, 0'POKE 752,1 'POKE 
40002 , 8 < DL-PEEK < 560 ) +256*PEEK < 5 
61) 'POKE DL+6,7 

ZP 4 FOR 1-14 TO 20 ! POKE DL*I,6'NEX 
T I ' POKE 709, 14 -POKE 82,0'? " 
t*t***************t***t*t* H 
UZ 5 ? M atari-eniim* 

t**t****t******t(.X-l3Q7)*r ' ' POSI 
TION 24,4 ? kopiuj* Proirama 
o pojemności "; 

KJ 6 POSITION 34,5'? "do 33 k8*Jt," 
POSITION 24,6'? "w/l Jednej z w 
abranach relacJi «"'?•? " t* 

sma taśma" 

VJ 7 ? " taśma dask"'? " da 
sk taśm*"? >? " Procesor 

MOSTEK 6502C (HALT)" 'POSITION 2 
4, 16 

JF 8 ? "POUODZENIA !"'FOR 1-1536 TO 
1571 'READ A 'POKE I,A'NEXT I'FOR 
1-1601 TO 1607 'READ A 'POKE I,A« 
NEXT I ' I-USR< 1572) 

KG 9 DATA 104.104,104,162,16,157,66 
,3, 104, 157,69,3, 104,157,68,3, 104 
, 157,73,3, 104, 157,72,3 
JP 10 DATA 32,86,228,132,212,169,0, 
133,213, 133,77,36 
NC 11 DATA 104,169,0,141,65,6,96 
SS 20 CLR 'OPEN #2, 4, 0, "K ' " ' OPEN #3 
,8,0, "E 1 " 

AE 25 POKE 16, 64 'POKE 53774, 64 ' POKE 
82, 2 'POKE 709, 14 POKE 710,0 
NG 30 DIM Ft< 16) , FR*< 16) , FL$<6> , ADt 
9), STO) 

FX 40 AP-PEEK (14) +2564PEEK < 1 5 ) 

SX 50 DL-PEEK<560)*256*PEEK<561>. 

PZ 60 ST-AP+54 ' L-DL-ST-6 
RU 70 U«USR< 1601 > 

ZK 90 ? ">" 

ZC 91 LN-90 < OP-l 1 ? 

GY 95 LZ-0 ' AD < 0 ) -0 ' ST < 0 )— ST ' KOP-0 


SE 

JL 

YU 

PR 


ox 


XP 

EA 


GA 


YY 

OB 

RO 

JR 

CR 


FV 


XZ 

MZ 

DY 


EQ 

OG 

IY 

EB 

PH 


RF 

FX 

SZ 

MT 

LM 


100 ? "Pochodzenie Proiramu' ";C 
HR*<212>; "asm* - ";CHR*<196); "as 
k ? "; 

110 GET #2, AN 1 IF AN<>68 AND ANO 

84 THEN 110 

115 DYSK-0 • PUT #3, AN ■ ? 

120 IF AN-68 THEN DYSK-1 

125 IF NOT DYSK THEN F*-"C'“'DY 

R- 128 'GOTO 160 

127 GOSUB 900 

130 ? ■? "Nazwa proiramu- ";'INP 
UT F* 

135 IF F*-"" THEN ? CHR*(28);CHR 
»< 156) ;CHR*<28); GOTO 130 
140 GOSUB 2000 
150 DYR-0 

160 RT-160 ' K-0 ' TRAP 5000 

1 62 KOP-KOP+ 1 ' ST < KOP ) -ST < KOP- 1 ) ♦ 

ADŚKOP-l )+10 ' LZ-LZ+ADCKOP-l )+18 

170 OPEN #1 , 4, DYR, F4 

175 X-USR< 1536, 7 , ST(KOP) , L-LZ) 

178 CLOSE #1 

180 TRAP 40000 

185 IF X*1 OR X-136 THEN 240 
130 IF DYSK THEN ? '? "Stać Ja da 
skowa" ; 

200 IF NOT DYSK THEN ? '? "Mam 
eto fon"; 

210 ? " nie pracuje." 

215 RT-160 1 K-l ' KOP-KOP-1 ' GOTO 51 
0 

240 IF X*1 THEN ? '? "Zbat dluii 
p roi ram !"'IF K0P>1 THEN KOP-KO 

P- 1.00000085 GOTO 3080 

241 IF X-1 AND KOP-1 THEN GOTO 9 
1 

250 AD-PEEK ( 856 ) +256#PEEK < 857 ) 

251 AD < KOP) -AD 

253 ? >? "Pojemność ";KOP;" czes 
ci - ";AD; " b*jt"'IF DYSK THEN 2 
65 


258 IF KOPO THEN 3000 

260 ? “Cza werawac dalej ? 

261 GET #2,AN IF AN-78 AND K0P>1 
THEN ? 'GOTO 3000 

262 IF AN-84 THEN ? "Tak "'GOTO 1 
60 

263 IF AN-78 AND KOP-1 THEN-? "N 
ie" ' GOTO 265 

264 GOTO 262 

265 D-DYSK 

268 LN-268 ' OP-0 ’ DYSK-0 

270 ? '? "Ul rac na ";CHR$<212>; " 

asme cza ";CHR*< 196); "ask ? "; 

275 GET #2, AN ; IF AN<>68 AND ANO 

84 THEN 275 

280 DYSK-0 'PUT #3,AN'? 

230 IF AN-68 THEN DYSK-1 

295 IF NOT DYSK THEN DYR- 128 < F* 

-”C ■ " ' GOTO 360 

380 DYR-0 GOSUB 900 

302 IF NOT D THEN 330 

303 ? "Poprzednia nazwa- ";F» 

305 ? '? "Cza zmieniasz nazwę ? 

310 GET #2, AN 1 IF AN078 AND ANO 
84 THEN 310 

320 ? 'IF AN-78 THEN 360 

330 ? '? "Nowa nazw*' ";'INPUT F 

* 

335 IF F#-"“ THEN ? CHR*(28);CHR 
»<156);CHR*<28), GOTO 330 
350 GOSUB 2000 
360 I-I 

400 GOSUB 7000 

420 ? ■? "Skopiowano !" 

430 ? '? "Cza kopiować dalej ? " 
440 GET #2,AN IF ANO 78 AND ANO 
84 THEN 440 


UP 450 IF AN-84 AND KOP-1 THEN 268 
NS 455 IF AN-34 AND KOP> 1 THEN 3000 
ST 460 GOTO 90 

UH 500 ? '? "Pomalk* ";PEEK<195> 

MJ 510 POKE 732,0 POKE 764, 255 POKE 
53279, 7 POKE 752,1? 

QZ 511 IF (KOP) 1 OR K) AND OP THEN 
? "COPTIOND zachowuje sie poprze 
dnia czesc" 

OT 512 ? "CSELECTD Powtorz ostatni 
1/0 Proces" 

OP 513 ? "CSTARTII powrot do ATARI-E 
NIGMA" 

NV 514 ? "CHELPD powtorz ostatnie 
1/0 działanie" 

FR 520 IF PEEK(732)*17 THEN POKE 75 
2,1 GOTO LN 

BE 522 IF PEEK<53279)*6 THEN POKE 7 
52,1 'GOTO 90 

UF 523 IF <KQP> 1 OR K) AND OP AND P 
EEK<53279)-3 THEN POKE 752,1 'GOT 
O 3000 

ZA 525 IF PEEK<53279>=5 THEN POKE 7 
52,1 -GOTO RT 

UE 530 POKE 764, 255^GQT0 520 
TP 900 ? ■? “Podaj numer stacji' 

ZS 910 GET #2, AN ' DRN-AN-48 IF DRN<1 
OR DRN>4 THEN 910 
LK 915 PUT #3 , AN ' ? 

IW 920 FR*-"D" 'IF DRN>1 THEN FR*(LE 
N(FR*)+1)-STR*(DRN) 

ZI 925 FR*(LEN(FR*)+l)-"'"'FL«-FR*' 
FL*(LEN(FL4)+1 >«"*.*" • 

QQ 930 ? '? "Czatnik " ; DRN; " szuka 
w spisie " '? 

QL 935 RT -935 1 TRAP 500 
LG 940 CLOSE #10PEN #1,6,0,FL«'CLO 
SE #1 

JV 945 TRAP 40000 
ZP 950 RETURN 
UB 2000 F-0 

MB 2010 FOR 1-1 TO LEN(F*> 

SM 2015 F=F+(Ft< 1,1)-"'") 

EW 2020 NEXT I 

GM 2025 IF F-0 THEN FR»(LEN<FRf )+l ) 

-F* > F*«FRf 

AJ 2030 RETURN 

FK 3000 POKE 20 1 , 5 ' LN-3000 1 OP-0 
PJ 3005 ? '? CHR»<17); 'FOR A0-1 TO 
22'? CHR$< 18) ; ' NEXT A0 ' ? CHR*(5) 
VU 3010 FOR 1-1 TO KOP 
GR 3020 ? ,"l Czesc - ";AD(I> 

PV 3030 POKE 85,24-? " bajt I" 

FD 3040 NEXT I 

UC 3050 ? ,CHR$<26); 'FOR A0-1 TO 22 
■? CHR*< 18) ; ' NEXT A0'? CHR*<3> 

CY 3060 ? '? "Wir a wam !"■? 

AU 3870 F*-"C 1 " ' DYR® 128 
QA 3075 POKE 752,1 
WP 3080 FOR 1-1 TO KOP 
HQ 3090 ? I;" "; 

ZH 3100 GOSUB 7000 
EW 3110 NEXT I 
OH 3115 POKE 752,1'? 

PH 3120 GOTO 420 
CK 5000 KOP-KOP-1 GOTO 500 
VP 7000 RT-7000 • TRAP 500 
LN 7010 IF I>1 THEN POKE 764,12 
SH 7020 OPEN #1 , 8, DYR, F# 

YV 7030 X*USR( 1536, 11, ST < I ) , AD< I > ) 
NB 7040 CLOSE #1 
0Q 7050 TRAP 40000 
LV 7060 IF X»1 THEN 7090 
TG 7070 IF DYSK THEN ? "Pomalka ";X 
SN 7080 IF NOT DYSK THEN ? "Pomalk 
a ";X 

EE 7085 RT-7090 < GOTO 510 
BG 7090 RETURN 
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POZIOMO: 8) Krzysztof Zanussi, 9) był nim Neron, 10) niedoświadczony młokos, młodzik, 
1 1 ) komitywa, poufałość, 12) salami albo kabanos, 15) przyrząd używany w kasach bileto- 
wych lub na poczcie, 16) badanie statyst. służące do obserwacji statystycznej, 21) podrę- 
czne źródło światła, 22) placówka dyplomatyczna, 23) przeciwdziałanie, 24) Fiodor 
(1873—1938), rosyjski śpiewak światowej sławy, bas, 25) radziecki konstruktor lotniczy, 
twórca m in. samolotu AN-22, 26) część ringu, 27) turystyczny środek lokomocji. 
PIONOWO: i ) zewnętrzna, przezroczysta błona gałki ocznej, 2) między przełykiem a jeli- 
tem, 3) uniwersalne urządzenia transportowe, dźwignice, 4) manewr szachowy, 5) tabletka, 
6) zakład zbiorowego żywienia, 7) chłop, 1 3) dawna moneta lub medal, mająca wartość za- 
bytkową, 14) największe miasto i port Krety, 15) morska żegluga nieregularna, 17) port 
morski we wsch. części Cypru. 18) rozprawa naukowa. 19) bylina oleista uprawiana na ob- 
szarach tropikalnych dla nasion i do wyrobu oleju rycynowego. 20) Żyd Wieczny Tułacz, ze 
średniowiecznej legendy. 

Litery z kratek ponumerowanych dodatkowo w prawym dolnym rogu od 1 do 32 utwo- 
rzą hasło, które wystarczy nadesłać jako rozwiązanie zadania na kartkach pocztowych pod 
adresem redakcji, do końca czerwca, naklejając kupon „IKS”-a.Wśród autorów prawidło- 
wych odpowiedzi rozlosujemy bony pieniężne i nagrody książkowe. 


■IM fflhfylFlohh 

KUPON ► 


iem: Wyda 


„IK8” — dodatek „Żołnierza Wolności". Redaguje Wiesław Cetera (kle 
Chmarra, Romuald Głąb, Włodzimierz Oogołek, Janusz Janiec, Henryk k 
Szaniawski. Adres redakcji: 00-950 Warszawa ul. Grzybowska 77, telefon c 
sów nie zamówionych redakcja nie zwraca I zastrzega sobie prawo do skrótów. Nakł 
Wojskowe", Warszawa ul. Grzybowska 77. Fotoskład i druk offsetowy — Wojskowe Zakłady ( 
A. Zawadzkiego. Nr zam. 1117. Nr ind. 361082. 
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Propozycje 


Żywioł i koniunktura — 
czyli komputery spro- 
wadzane przez Prosys- 
tem w sklepach Cen- 
tralnej Składnicy Har- 
cerskiej — strona 15. 


Czy przypadkowo ska- 
sowane zbiory można 
odtworzyć? — odpo- 
wiedź na stronie 22. 


Informatyczny słownik 
angielsko-polski — 
Uwaga to może się 
przydać — strona 29. 
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Klasówka 
przy klawiaturze 


Nauka • Technika 

Zachodnloniamlacka firm* 

s ioua hPu* f z«pr»z«nlok dla ru 

wysLawłw w Nowym Jorku rower 
wypoaaśuny w komputer. który 
pokazuje cykliście aktualne prędkości 
Jazdv. szybkość średnie 1 

maksymalne -Jaka rowerzysta mole na 
danej trasie rozwinąć przy swoich 
możliwościach fizycznych. liczby 
przejechanych kilometrów. siły 

nacisku na pedały - a także liczbę 
skurczów serca rowerzysty. 



V Japonii opracowano elektroniczny 
system poszukiwania abonentów, 
umożliwia Jacy błyskawiczne 

odnalezienie dane j osoby i uzyskanie 
z nią poleczenia telefonicznego. 
Ludzie. którzy z racji obowiązków 
służbowych ' wędruje po różnych 
pomieszczeniach - wkładaja karteczką 
ze swym kodem do specjalnej 
przystawki aparatu telefonicznego, 
który Jest akurat w pobliżu. 
Informac Ja' ta przekazywana Jest 
natychmiast do komputera. który 
steruje praca centrali telefoniczne j. 



Programuję w ciemno... 


W numerze 

Drugi rok „Stobit-u” — str. 3 
Transputer — str. 4 
W szponach Atari — str. 6—8 
Tłumacz grafiki — str. 9 
Wskaźniki i funkcje — str. 10—12 
Awaryjne przerywanie 
programu 2X — str. 13 
Wesołe zadania — str. 14 
Żywioł i koniunktura — str. 15 
Infosystem — str. 16—17 
Lilavati — str. 18 
Jak odzyskać skasowane 
zbiory — str. 22 
Tajemnicze błędy — str. 24 
Elektroliza — str. 25 
Giełda pomysłów — str. 31 
Krzyżówka — str. 32 


Zanim fala namiętności mikrokomputero- 
wych dotarła do Pohki wraz ze stosunkowo 
tanimi modelami Spectrum, Atari i Amstrada, 
informatycy, nauczyciele i wiele innych osób 
zaczęło sobie zadawać pytanie. „Kiedy te cu- 
downe maszynki dotrą do polskich szkól?” 
W to, że wcześniej, czy później muszą dotrzeć, 
mało kto wątpił. Komputer stał się synoni- 
mem nowoczesności, a jakby na to nie spoj- 
rzeć, próg nowoczesności, legendarny XXI 
wiek, przekroczy za 12 lat. Dzisiejsze 6-latki 
będą ostatnim pokoleniem osiągającym pełno- 
letność (według dzisiejszych zasad, w „sta- 
rym” XX wieku). Czyż zatem można pozwo- 
lić, by ich starsi koledzy, nie zetknęli się pod- 
czas szkolnych lekcji z klawiaturą komputera, 
by nie poznali jego zasad pracy i nic przyzwy- 
czaili się do rewolucji niesionej przez masowo 
stosowaną informatykę? 

Jak to najczęściej bywa, wówczas gdy mo- 
żna zarobić trochę pieniędzy, pojawiają się 
energiczne firmy. Podobnie było z dostawą 
mikrokomputerów do polskich szkół. Pierwsze 
oferty wpłynęły od firm zagranicznych oraz 
spółek z kapitałem mieszanym. Zwyciężyła 
jednak koncepcja rodzimego komputera 
szkolnego. Dwa lata temu rozstrzygnięty zos- 
tał konkurs na polski mikrokomputer edukacyj- 
ny — wygrała konstrukcja opracowana przez 
zespół z Zakładu Badań Operacyjnych i Syste- 
mów Komputerowych Instytutu Automatyki 
Politechniki Poznańskiej. Mikrokomputer 
otrzymał nazwę Junior, nazwę-symbol, pod- 
kreślającą jego przeznaczenie. Zastosowań) 
jest w nim mikroprocesor 8-bitowy Zilog 
Z -80 A, ten sam co w najpopularniejszych mikro- 
komputerach 8-bitowych (Spectrum, Am- 
strad). Nowsze konstrukcje wykorzystuj 
mikroprocesory 16- i 32-bitowc. Nie w tej je- 
dnej dziedzinie decydują finanse i dylemat pro- 
dukować tanie Juniory, czy nie produkować 
wcale. Wybór niewielki i trudno się dziwić, że 
zdecydowano się na pierwszy wariant, jednak 
Junior jest droższy niż dostępne na rynku 
8-bitowce sprowadzane z zagranicy. 

Dwa lata, jakie upłynęły od rozstrzygnięcia 
konkursu na komputer edukacyjny, to krótki 
okres. Przez te dwa lata uruchomiona została 
produkcja we wrocławskich zakładach Elwro. 
Jesienią ubiegłego roku ruszyła produkcja 
seryjna, w grudniu około 2 tysiące jednostek 
centralnych czekało na odbiorcę. Nie były to 
kompletne zestawy, takie jakich sobie życzył 
klient — Ministerstwo Edukacji Narodowej. 
Dla fabryki były to już gotowe produkty, co 
gorsze, że w świetle przepisów, za ich składo- 
wanie fabryka powinna zapłacić karę (gdyby 
nie sprzedano ich w 1987 roku). Po licznych 
monitach, 31 grudnia, za zgodą Ministerstwa 
Edukacji Narodowej, wyspecjalizowane 
przedsiębiorstwo zaopatrujące szkoły w po- 
moce naukowe Cczas, zakupiło kłopotliwą 
partię Juniorów. Nowy rok rozpoczął klient 
— Ministerstwo Edukacji od problemów ze 
skompletowaniem zestawów. Serwis będzie 
musiał dodatkowo jeździć do szkół, by zamon- 


tować brakujące urządzenia peryferyjne — 
wiadomo, kto poniesie koszty. 

W naszych warunkach dwuletni okres uru- 
chamiania produkcji jest małym rezultatem. 
Te same dwa lata, jeśli zmierzymy nimi roz- 
wój informatyki, zmieniają swoją' wymowę. 
Widać to na specjalistycznych targach sprzętu 
komputerowego. Pojawiły się nowe konstruk- 
cje komputerów, urządzeń zewnętiznych. ZX 
Spectrum dwa lata temu uważany był za 
komputer, dziś traktuje się go jak zabawkę. 
Magnetofon kasetowy, jako pamięć zewnętrz- 
na został wyparty przez stacje dysków elasty- 
cznych. Junior, choć jeszcze praktycznie nic 
dotarł do szkół, w błyskawicznym tempie sta- 
rzeje się. Do dnia dzisiejszego nie zostało za- 
kończone testowanie serii próbnych, nadal są 
problemy ze skompletowaniem pełnych ze- 
stawów zamawianych przez Ministerstwo 
Edukacji. — 

Szkolna konfiguracja składa się z zestawu 
sieciowego (ośmiu komputerów wykorzystu- 
jących wspólny dysk elastyczny i drukarkę) 
oraz dwóch dodatkowych, autonomicznych 
komputerów z dyskami elastycznymi i dru- 
karkami. Podczas pracy komputerów w sieci, 
jeden z nich (nauczycielski), steruje pracą dy- 
sku, drukarki, pozostałe komputery (uczniow- 
skie) pracują jak normalne ZX Spectrum wy- 
posażone w pamięć dyskową i drukarkę. Ża- 
den z użytkowników pracując przy swojej 
klawiaturze i monitorze, nie odczuwa, że w 
tym samym czasie z urządzeń zewnętrznych ' 
korzystają inni użytkownicy. Przewaga kom- 
puterów pracujących w sieci nad pracą poje- 
dynczych komputerów, polega na tym, że 
można między nimi przeprowadzać transmisję 
danych, można wykorzystywać mniej urządzeń 
peryferyjnych, a to obniża koszty. W przy- 
padku Juniorów działających w lokalnej sieci 
mikrokomputerowej Junet, praca uczniów na 
komputerze może być obserwowana przez 
nauczyciela na ekranie jego komputera. Po- 
maga mu to o tyk w pracy, że nie będzie 
musiał chodzić po klasie, by patrzeć, jak radzą 
sobie wychowankowie. 

Junior i sieć Junet to pierwszy etap infor- 
matyki — sprzęt drugi, to oprogramowanie. 
Pracą sieci zarządza system operacyjny 
CP/J, wzorowany na najbardziej rozpow- 
szechnionym dla mikrokomputerów ośmiobi- 
towych dyskowym systemie operacyjnym 
CP/M. Oprogramowanie przechowywane w 
pamięci EPROM komputera zawiera edytor, 
interpreter języka Basic i programy sterujące 
pracą urządzeń zewnętrznych. Junior jest 
zgodny ze Spectrum firmy Sinclair Research 
Ltd. — wszystkie programy napisane dla tego 
najpopularniejszego mikrokomputera, bez 
żadnych adaptacji, przeróbek mogą być wy- 
korzystywane w Juniorze. System operacyjny 
CP/J oraz oprogramowanie systemowe 
umożliwiają stosowanie najbardziej rozpow- 
szechnionych języków i systemów programo- 
wania: Basic, Logo, Pascal, Fortran, C, Forth, 


makroasemblery mikroprocesorom Intel 8080. 
8085 i Z80. 

O ile nad zakupem komputerów czuwają 
kuratoria (chodzi o to, by mc dopuścić do za- 
kupu modeli me kompatybilnych ze sobą), to 
przy zakupie i doborze programów edukacyj- 
nych szkoły są samodzielne. Powstał „Kaulcg 
oprogramowania dydaktycznego” — infonna- 
tor dla nauczycieli o tym, (akie programy znaj- 
dują się w zbiorach resortu edukacji naro- 
dowej. Wybór konkretnego programu zależy 
od nauczyciela, od jego metod nauczania i do- 
świadczenia. 

inłormatyka w szkole nic może ograniczać 
się wyłącznic do sali „komputerowej”, z Ju- 
niorów powinni korzystać nauczyciele innych 
przedmiotów — jak z normalnych pomocy 
naukowych, dlatego potrzebne są dodatkowe, 
autonomiczne egzemplarze Z jednei strony 
mikrokomDuter na lekcjach przedmiotów ścis- 
łych może być wykorzystywany |ako narzę- 
dzie do obliczeń, z drugiej przy dobrych pro- 
gramach edukacyjnych nauka może być 
atrakcyjną zabawą. Jak twierdzi Zbigniew 
Rogowski, doradca ministra ds. informatyki 
brakuje dobrych programów edukacyjnych. 
Przy ich pisaniu należy połączyć doświadcze- 
nia pedagogów i informatyków Bez tego za- 
wsze będzie czegoś brakować — tak jak w 
programie Ortografia — zasób słownictwa nie 


został dobrany pod kątem uczniów szkoły 
podstawowei, do których był adresowany. 

Od 1985 roku prowadzone są kursy przygo- 
towujące nauczycieli do korzystania z mikro- 
komputerów. Przyjęto zasadę, źe informatyki 
nauczać będą ludzie z przygotowaniem spe- 
cjalistycznym, by korzystać z komputera na 
'tkcji wystarczy krótsze przeszkolenie. Przed- 
stawiciel producenta zapewniał mnie. że 
oprogramowanie sieci Junei jest ua tyle proste 
w obsłudze, iż podczas szkoleń organizowa- 
nych dla nauczycieli, wystarczała godzina, by 
samodzielnie mogli prowadzić zajęcia z wyko- 
rzystaniem sieci, pod warunkiem, żc dany na 
uczycicl wiedział, co można pokazać w kon- 
kretnym programie. Oczywiście by poznać sieć 
należy poświęcić znacznie więcej czasu, trzeba 
dodatkowo poznać Juniora. Z pewnością nie 
wszystkich nauczycieli uda się przekonać do 
korzystania z informatyki — dyrektor Rogow- 
ski od swojego francuskiego od|X)wiednika 
wic. że we Francii w 1985 roku 30 proc. nauczy- 
cieli odcinało sie od komputerów, wybierając 
tradycyjne metody nauczania. Jak będzie u 
nas, na razie zwolennicy nowoczesności 
wprowadzają komputery' do szkół, kiedy skon - 
czą, zobaczymy. D Q 

JUNET, czyli sieć lokalna mikrokomputerów 
ELWRO— 800 JUNIOR, zapewnia współ- 
prace kilkudziesięciu mikrokomputerów. Dzię- 


ki siec^i możliwe jest wspólne wykorzystywa- 
ną pamięci dysk*w\Th i drukarek praer wiele 
mikrokomputerów. Możliwe jest też przesy- 
łań ie obrazów, tekstów, programów oraz wy- 
branych obszarów pamięć operacyjnej z jed- 
nych mikrokomputerów do drugich. Poszcze- 
gólne komputery pracujące w sieci mogą mieć 
zróżnicowane uprawnienia do korzystania z 
niej. Na przykład nauczyciel korzystając z 
mikrokomputera nauczycielskiego czyli 
uprzywilejowanego w sieci JUNET, może 
rozsyłać programy do mikrokomputerów 
uczniowskich oraz kontrolować praco 
uczniów, kopiując bez ich wiedzy zawartość 
ekranu wybranego mikrokomputera na włas- 
ny ekran. Funkcje tc są niedostępne w mikro- 
komputerach uczniowskich, ale uczniowie 
poprzez sieć JUNET mogą korzystać z pa- 
mięci dyskowych i drukarki mikrokomputera 
nauczycielskiego. Informacja przesyłana w 
sieci może być kierowana do jednego, wybra- 
nego odbiorcy, do określonych grup odbior- 
ców lub do wszystkich odbiorców. Szybkość 
transmisji wynosi 64 kb/s Sieć ma architek- 
turę typu „wspólna szyna”, dzięki czemu do- 
łączenie kolejnych a-.uunkomputerów r.ie 
wymaga żadnych zmian we wcześniejszych 
połączeniach. Do sieci JUNET może być do- 
łączony profesjonalny mikrokomputer 
ELWPO — 800 jako jednostka dużej mocy ob- 
liczeniowe!. 



„Co kupić? Magnetowid, czy komputer" 
-- zastanawia! się jesienią 1 986 roku Wies- 
ław Rypina, kierownik Domu Kultury „Sto- 
kłosy 1 . Nie wiadomo, jaką podjąłby decyzję, 
gdyby wSrOd zapytanych o to osób nie byłe 
Jana Ejgerda. zawodowego informatyka 
mieszkającego w pobliżu. Jak każdy facho- 
wiec pasjonujący się swoją dziedziną, od- 
powiedział — „komputery, z pewnością bę- 
dzie z nich większy pożytek Powstanie klub 
komputerowy, dzieciak oędą się mogły 
czegoś pożytecznego nauczyć’ W ten spo- 
sób powstała sekcja komputerowa „Stobit'. 
nazwa powstała z połączenia części nazwy 
warszawskiego osiedla Sto-kłosy i tednostki 
informacji — bit 

Początki, jak to początki, me byty łatwe 
Gdyby było odwrotnie, to nie wspominano 
by o mcii z rozrzewnieniem Zaczęło s<ę od 
dwóch Unipołbritów. oez stacii dysków 
Chętnych byłe zbyt wielu, osieolo młode, 
dużo rodzin z dziećmi, do centrum stolicy 
daleko, a tu pod bokiem taka atrakcja 
Organizatorzy przyjęli założenie, ze z jednej 
klawiatury podczas zaięć mogą korzystać 
dwie osoby Stąd łatwo było wyliczyć, ze 
przy dwóch komputerach, ośmiu godzinach 
zajęć tygodniowo można przyiąc 32 osooy. 
Od razu utworzona została lista rezerwowa 
z której zapisane osoby miały pierwszeń- 
stwo przy przyjmowaniu Najłatwiej bytc 
zwiększyć liczbę zajęć W miarę upływu 
czasu Kupiono więcej sprzętu — stację dy- 
sków do UnipolDritów, Amstrada CPC 464 i 
Amstrada CPC 6128 z kolorowymi montto- 
ram\ 

„Stobit rozpoczął drug rok działalności 
— nadal funkcjonuje lista rezerwowa, co 
świadczy, ze zajęcia prowadzone są w spo- 
sób ciekawy. Wśród uczestników zaięć wie- 
lu ma własne komputery, do nich należą Ra- 
fał Tkaczyński, Paweł Wróbei. Oni szuKają 
czegoś więcei niż zabawy przy klawiaturze, 
chcą poznać zasady pracy komputera, ję- 


Drugi rok „Stobit-u” 


Pod koniec zajęć Agnieszka lubi sobie troszkę pogiąć. 


zyki programowania Czasem trafia do klubu 
samouk, jak Jakub Połeć, który samodzielnie 
rozgryzł podstawowe języki programowania, 
obecnie uczy się asemblera Przyszedł do 
klubu, dc „zawsze tu jest łajnie, można z 
kimś porozmawiać, powymieniać programy, 
doświadczenia" 

Większość przychodzących do „Stobitu" 
pierwszy raz zetknęła się z mikrokompute- 
rami. Dla mch. 8-. 12-latków (w tym wieku 


jest najwięcej uczestników; spotkania na za 
jęciach są szansą poznania informatyki. Jak 
stwierdził jeden z uczestników, „u mnie w 
szkole nauczyciele Drawie mc me wiedzą o 
komputerach. Pani bibliotekarka powiedzia 
ła. że to takie urządzenie, w którym po na 
ciśnięciu guzika, wypisują się różne mfor 
macje". Dzieci śmieją s ę z tak.ego okresie 
nia komputera, dla mch dawne przestał być 
czarną skrzynką z guzikiem 

Tekst i zdjęcia: D.G. 
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Transputer - współczesna alternatywa 
komputera optycznego? 


Już od dawna naukowcy, projektanci i 
konstruktorzy w swoich pracowniach toczą 
walkę, aby pokonać kolejne bariery techniki i 
technologii. Postęp badań w holografii ‘, roz- 
wój techniki laserowej i optoelektroniki upo- 
ważniał do stwierdzeń, że w niedalekiej przy- 
szłości nastąpi pełna adaptacja fal optycznych 
jako nośnika informacji. Oczekiwano, że w te- 
lekomunikacji oraz w teleinformatyce elek- 
tronikę uzupełni lub całkowicie zastąpi nowa 
dziedzina — fotonika. Jednakże osiągnięcia 
współczesnej elektroniki, w szczególności po- 
jawienie się w latach siedemdziesiątych, a na- 
stępnie burzliwy rozwój mikroprocesorów 
dokonały rewolucyjnych zmian w wielu dzie- 
dzinach życia. 


Komputery optyczne 

Pomimo że techniczne opracowania pa- 
mięci holograficznych nie mają znaczeniu 
przemysłowego, stały się one punktem zwrot- 
nym w badaniach nad wykorzystaniem zja- 
wisk dyfrakcji i interferencji fal świetlnych w 
opracowaniach komponentów architektoni- 
cznych komputerów optycznych (procesorów, 
pamięci, kanałów transmisji, przetworników 
WE /WY) Motorem tych zainteresowań były 
teoretyczne możliwości tj. niezwykła szybkość 
przesyłu i przetwarzania informacji zakodo- 
wanych w postaci fal świetlnych, milionkrot- 
ne zwiększenie pojemności kanałów transmisji 


oraz spodziewana, niewiarygodnie duża gę- 
stość upakowania informacji w odpowiednio 
skonstruowanych pamięciach. W pracach 
badawczo-konstrukcyjnych napotkano na cał- 
kowicie nowe i skomplikowane problemy na- 
tury technologicznej i technicznej. Aktualne 
ich rozwiązania są niezadowalające. W prze- 
ciwieństwie do procesów elektronicznych pro- 
cesy optyczne są pozbawione cech uniwersal- 
ności dla konkretnej realizacji układowej, mo- 
gą z dużą szybkością realizować tylko określo- 
ną klasę operacji. Zasadniczymi elementami 
architektury komputerów optycznych są lase- 
ry. Przede wszystkim stanowią one źródło 
światła, a także często decydują o precyzyj- 
ności innych komponentów architektury. Po- 
żądane jest, aby wytwarzana wiązka charakte- 
ryzowała się bardzo dużą spójnością czasowo- 
- przestrzenną, wysoką stabilnością częstotli- 
wości, dużą ińocą i dobrą podatnością na mo- 
dulację. Z drugiej strony współczesne źródła 
światła powinny mieć odpowiednio niewielkie 
gabaryty i wykazywać się dużą żywotnością 
oraz sprawnością energetyczną. Wymagania 
powyższe są trudne do spełnienia. Dla przy- 
kładu lasery półprzewodnikowe są wielkości 
łebka od szpilki, niestety dyskwalifikuje je ma- 
ła moc i niska spójność wytwarzanej wiązki. 
Natomiast lasery gazowe cechujące się ideal- 
nymi parametrami emitowanego światła wy- 
kazują dużą podatność na uszkodzenia oraz 
niską sprawność energetyczną. Wielkie trud- 
ności sprawia konstruktorom wykonanie nie- 


których specjalistycznych elementów i prze- 
tworników optycznych o wysokiej precyzyj- 
ności w technologii monolitycznej optyki zin- 
tegrowanej (scalonej). 

Współczesne osiągnięcia 
i kierunki rozwoju 

Aktualne badania i prace konstrukcyjne 
koncentrują się wokół problemów; hybrydy- 
zacji i, połączenia) środowisk — optycznego i 
mikroelektromcznego, dalszego doskonalenia 
procesów technologicznych oraz rozwoju opto- 
elektroniki. Równolegle próbuje się popra- 
wić zasadnicze parametry współcześnie istnie- 
jących systemów. Trwają poszukiwania no- 
wych rozwiązań sprzętowych i systemowych 
(struktury RISC, komputery jednoukładowe, 
wieloprogramowość i wielodostęp oraz zrów- 
noleglenic procesów). Dynamiczny rozkwit 
przeżywa sfera technologii układów scalo- 
nych. W jednym chip’ie można umieścić do 
256 mikroprocesorów, zaś najnowszy super- 
chip o powierzchni niespełna 14 cm J zawiera 
28 milionów mikroelementów. Trzeba było aż 
10 lat oczekiwania w sejfach koncernu IBM, 
aby koncepcja szybkich dysków sztywnych 
typu Winchester ujrzała światło dzienne. 
Najnowsze rozwiązania wykorzystują lasero- 
we techniki tworzenia zapisu sygnału cyfro- 
wego i jego odczytu (analogia do fonicznych 
płyt CD). Firma Sanyo produkuje optyczne 
stacje hard dysków (SOF 8003D). Na jednej 



Zewnętrzna szyna 
danych 
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płycie można poipieścić od 0.5 do 4 (IB w za- 
lej|iÓści od iej 

bafaija na targacŚ CeBIT’87 w Hanno werze 
zaprezentowały dyskietki optyczne umożli 
wiające wielokrotny zapis i odczyt (pojemność 
dyskietek od 50 do 400 MB). Odpowiednie 
.stacje są w opracowaniu. 

.Dość obiecująco przedstawiają się zagaj 
nienia zrównoleglenia procesów. W tej dzie- 
dzinie preferowana jest wieloprocesorowo^ 
oraz systemy wielokomputerowe. Dzięki temu 
uzyskuje się pewien poziom współbicżności i 
wiclozadaniowości prowadzonych procesów. 
Jak wiemj. większość z opracowanych proce- 
sów ma Hraittjfrę architektoniczną opartą na 
strukturze zaproponowanej przez Johna von 
Neumana. Zgodnie z tym licznik rozkazów 
wyitausza~óperacje według programu zakodo- 
wanegd’w pamięci Poszczególne operacje są 
wy korty waiie w określonej sekwencji kroków. 
Tśka struktura ogranicza szybkość pracy. Dla 
omijiłęcia^ttkkrej sytuacji stosuje się więcej niż 
jedeń prdćesor. W typowych rozwiązaniach 
architektonicznych komputerów procesor 
centralnym steruje i kontroluje poprawność 
prScy^pótódstałych komponentów struktury, 
procesory 'Uzupełniające z zasady wykonują 
furłkćje specjalne (procesor, graphic contro! 
leV itp^):Tećfmika ta, stosunkowo droga i ma- 
ło efekty wrtia Obciążona jest także niedogod 
n Ościami SWttktUry von Neumana. Wielopro- 
grśmowość i wielodostęp w niewielkim stop- 
niu poprawiają funkcjonalność struktury. 
Efekty tych zabiegów są zauważalne (w makro- 
czaśi^J tylko przy stosunkowo niedużych 
systemach wykonujących nieskomplikowane 
algorytmy. Alternatywne rozwiązania dla tych 
zagadnień stanowią sieci komputerowe i tech- 
nika deceritfUlizacji „inteligencji” systemu dla 
prbcesów Słabdpowiązanych. 


Transputery 

W związku z niedogodnościami struktury 
von Neumana zachodzi pytanie, czy nie można 
by podzielić program na części, które byłyby 
wykonywane jednocześnie (w mikroczasie) w 
różnych procesach. Aby w pełni wykorzystać 
potencjalne móżliwości techniki scalonej po- 
trzebny jest system o dużo większym stopniu 
równoległego współdziałania niż to jest moż- 
liwe w standardowych systemach. W 1985 r. 
niewielka firma INMOS wprowadziła na 
rynki zbytu nową jakościowo rodzinę mikro: 
transputeryT212 i T412, które zostały opra- 
cowane jako programowalny komponent sy- 
stemowy specjalnie pod kątem rozwiązania 
wyżej postawionego zadania. Nazwa ta po- 
chodzi od dwóch słów: TRANSistor oraz 
comPUTER i jest nawiązaniem do podobień- 
stwa funkcji spełnianych przez transputery w 
systemąph. komputerowych z funkcjami tran- 
zystorów w układach elektronicznych. 

Transputer posiada procesor centralny, 
kilka pamięci oraz cztery linie komunikacyjne, 
będące jednocześnie układem wejściowym i 
wyjściowym. Do każdej z linii można bezpo- 
średnio podłączyć inny transputer lub poprzez 
adapter inne urządzenia mikroprocesorowe. 
Transputer komunikuje się z własną wew- 
nętrzną pamięcią RAM za pomocą równoleg- 
łej szyny interfejsu z szybkością do 20 Mb/s 
na każdej linii szyny. Niezależnie od tego 16- 
-bitowy interfejs pamięci lokalnej off-chip 
T212 posiada stałą konfigurację (z 16-bitową 


szyną danych). Szybkgśćtprzesyłania danych 

cią transputera jest 2-, 3-krotnie mniejsza. 32- 
-bitowy T414 posiada o wiele bardziej złożony 
interfejs. Umożliwia on 13 różnych konfigu- 
racji realizowanych przez zaszycie w kości lub 
programowo. Szybkość transmisji na liniach 
komunikacyjnych standardowo wynosi 
10 — 20 Mb/s zależnie od typu zegara. 

W kwietniu 1987 r. na rynkach światowych 
pojawiło się następne dziecko transputerowej 
rodziny: IMS T — 800, o pełnej 32-bitowej ar- 
chitekturze wewnętrznej. Twórca transputera 
Iann Barron do struktury mikroukładu włą- 
czył jednostkę arytmetyki zmiennoprzecin- 
kowej oraz kilka innych, bardzo interesują- 
cych ulepszeń. W ten sposób T — 800 jest zna- 
cznie szybszy od powszechnie stosowanych 
konkurentów: Intela 80386, Motoroli 68020, 
Nat-Semi 320 — 32 czy Fairchild Clippera. Za 
wadę transputerów uważa się fakt, że INTEL 
nie jest ich producentem. Wtedy promocja na 
rynkach byłaby z pewnością skuteczniejsza. 
Pogłąd ten wydaje się zbyt przesadny. Trans- 
puterami interesują się firmy z USA i Japonii 
Istnieją liczne ich sprzętowe zastosowania, 
m.in. IBM stosuje z powodzeniem transpute- 
ry w sterownikach monitorów kolorowych 
wysokiej rozdzielczości. T— 800 ma moc 
przetwarzania porównywalną z mocą najpo- 
pularniejszego dotychczas supermikrokom- 
putera VAX 860. Nie ma w tym nic dziwnego, 
gdyż od samego początku transputer był pro- 
icktowany pod kątem współbieżności proce- 
sów w dużych systemach komunikacyjnych. 
Oczywiście nie jest prawdą, że procesory Intel 
80386 i Motorola 68020 nie mogą być używa- 
ne w równoległych procesach, jednakże ich 
wewnętrzna architektura oraz oprogramowa- 
nie są zwrócone na obsługę przede wszystkim 
własnego mikrośrodowiska. Trudności reali- 
zacyjne wynikają z tego, żc procesy komuni- 
kacyjne między tego typu CPU odbywają się 
poprzez zewnętrzne szyny. Planowanie blo- 
ków funkcjonalnych składających się z 100 ta- 
kich mikroprocesorów znacznie komplikuje 
projekt struktury PCB interfejsów dla tych 
wszystkich szyn, że zadanie wydaje się niewy- 
konalne. Trudnym zadaniem jest także wyko- 
nanie oprogramowania bloku, gdyż jednostki 
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cych systemem niż współpracy równoległej ze 
sobą. To co jest więc istotą przystosowania 
T800 wynika po części z jego architektury 
wewnętrznej (Rys. 1). 

Transputer jest układem opartym na struk- 
turze RISC, zawierającym wszystkie elemen- 
ty systemu komputerowego i może on wyko- 
nywać procesy bez potrzeby dodatkowych 
urządzeń rozszerzających niezależnie od syg- 

E ału zegarowego. Jego konwencjonalna jed- 
ostka CPU posiada podwyższone parametry 
rytmetyczno-logiczne dzięki zastosowaniu w 
niej 64-bitowcj jednostki operacji zmienno- 
przecinkowych, umożliwiających tym zwięk- 
szenie szybkości ich realizacji do 1,5 
MFLOPS 5 (dla T414 wynosiła ona 100 
kFI.OPS W Jodatku posiada też własną 
pamięć on-chip DRAM 2 KB/, / którą »v- 
miana jest szybsza (80 Mb/s, w stosunku do 
20 Mb/s dla off-chip DRAM). Ponadto wy- 
posażony jest także w 4 linie komunikacyjne, 
przez które może bezpośrednio dokonywać 
transmisji z innym transpuierem lub poprzez 
adapter z innymi urządzeniami komputero- 
wymi. Możliwa jest bezpośrednia transmisja 
między dwiema pamięciami dwóch różnych 
transputerów. Kod transputera jest bardzo 
zwarty. Większość wykonywanych instrukcji 
jest jednobajtowa, i wykonywane są w jednym 
cyklu. W przyszłości planuje się znaczne 
Zwiększenie złożoności struktur wewnę- 
trznych. Do programowania układów transpu- 
tefowych służy specjalizowany język wysokie- 
go poziomu OCCAM. Dokładniejsze infor- 
macje o tym języku oraz innym oprogramo- 
waniu w następnym odcinku /. tego cyklu. 


1 holografia — polega na odtworzeniu rzeczywistego 
obrazu poprzez działanie falą odniesienia na zarejes- 
trowany hologram (obraz interferencyjny fali odbitej 
od przedmiotu oraz fali odniesienia). Teoretyczna 
gęstość zapisu jest bliska 10 lo b/ctn J (uzyskana 10’), 
zaś w hologramach przestrzennych 10 lł b/cm’. 
h*!FLOPS (floating-point operation per secound) — 
operacje zmiennoprzecinkowe na sekundę. 

W.M.S. 
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W szponach Atari <l5> - 

W y k r e s 


W dzisiejszym odcinku zamieszczamy 
zgodnie z dbietmcą, kompletny program 
umożliwiający kreślenie wykresów Tworzy 
on, wyświetla i drukuje wykresy słupkowe, 
liniowe lub punktowe Dane do kreślenia 
mogą być wprowadzone z klawiatury (gdy 
nie ma ich zbyt dużo) lub ze zbioru (zbio- 
rów), Dodatkowo akceptuje on dane z pro- 
gramu przetwarzania arkusza obliczenio- 
wego N/isicalc. Napisany w ięzyku BASIC 
może być używany na wszystkich 8-bito- 
wych komputerach Atari posiadających 
48KB pamięci wewnętrznej i stacje dysków 
lub magnetofon 

Mniej zaawansowani użytkownicy mogą 
używać go bezpośrednio po wprowadzeniu. 
Bardziej zaawansowani mogą wprowadzić 
własne ulepszenia i dostosować go do 
swoich potrzeb 

W swojej aktualnei postaci program może 
wyświetlić jednocześnie zawartość trzech 
zbiorów danych zawierających do 100 war- 
tości każdy. Zbiory muszą zawierać jedna- 
kową liczbę danych z przedziału (0,900000], 

Po wczytaniu danych program pyta o 
nazwy wykresu i osi Y. Jeśli me chcemy 
nadawać nazw, naciskamy <RETURN> 
Jeśli kreślimy dwa lub trzy wykresy jedno- 
cześnie, musimy wprowadzić nazwy dla 
każdego z nich Dodatkowo musimy zaak- 
ceptować (ewentualnie zmienić) wartości 
minimalną i maksymalną oznaczaną na osi 
pionowej. Następnie program wybiera skalę 
dla osi poziomej X i prosi o wybranie sposo- 
bu jej opisu (litery, miesiące, liczby, bez 
oznaczania, ewentualnie własne oznacze- 
nia) 

Możemy kreślić następujące rodzaje wy- 
kresów liniowy, punktowy lub słupkowy W 

przypadku tego ostatniego musimy być 
świadomi ograniczeń wynikających z szero- 
kości słupków. Na przykład, wykres słup- 
kowy zawartości trzech zbiorów zmieści się 
na ekranie , jeśli ma nie więcej niż 1 2 war- 
tości w każdym zbiorze 

Zbiory danych, przechowujące wartości, 
które chcemy przedstawić w postaci grafi- 
cznej. możemy przygotować dwoma sposo- 
bami Pierwszy z nich polega na wykorzy- 
staniu jednego z edytorów tekstów, np.. 
AtariWriter, PaperCIip lub Speed Script 
Musimy przy tym przestrzegać następującej 
zasady: wszystkie liczby muszą być umie- 
szczone w jednej kolumnie W tym celu po 
wprowadzeniu liczby naciskamy klawisz 
<RETURN>. Zatem dane w zbiorze powin- 
ny wyglądać następująco: 

887 

2745 

91 

13019 

562 

6743 

W przypadku korzystania ze stacji dysków 
każdy zbiór ma własną nazwę, nadawaną 
podczas przechowywania. W przypadku 


Ludwik 

magnetofonu wystarczy zapisać zbiory je- 
den pu drugim (będą one oczywiście bez 
nazw) 

Drugi sposób przygotowania danych do 
wykreślenia polega na wykorzystaniu pro- 
gramu przetwarzania arkusza obliczenio- 
wego VisiCalc. Z jego pomocą możemy 
przygotować dane w postaci kolumn liczb 
Przechowujemy |e w pamięci zewnętrznej 
za pomocą opcji PF (wydruk do zbioru) 
Naipierw umieszczamy kursor u góry pier- 
wszej kolumny danych arkusza obliczenio- 
wego Wprowadzamy rozkaz (PF, a następ- 
nie nazwę zbioru (dla zbioru na taśmie 
magnetycznej podajemy C). Po propozycji 
„lower right" przesuwamy kursor na koniec 
kolumny danych i naciskamy <RETURN> 
Musimy powtórzyć te kroki dla każdej 
przechowywanej kolumny danych. 

Istnieje jeszcze |eden sposób wprowa- 
dzania danych do programu WYKRES, 
przeznagzony głównie do wprowadzania 
niewielkiej liczby danych dla celów testo- 
wania. bądź tez poznania możliwości pro- 
gramu. Po propozycji podania nazwy zbioru 
wprowadzamy „E” Teraz wartości możemy 
wprowadzać za pomocą klawiatury. Wpro- 
wadzanie danych kończymy naciskając 
CTRL— 3 (znak EOF). 

Możliwości programu nie będziemy opi- 
sywać. Po wprowadzeniu danych są one 
prezentowane w postaci menu i bardzo łat- 
wo można je sprawdzić samemu. 


HK 10 REM WYKRESY - c*. 1* 

Ol 20 BRK-l-IF PEEK<53279)-5 THEN 
BRK-0 

Efl 40 DIM R*(20) , F*( 15) , G#(37) , T* 
<40) < XL*(300) , M#(72) , TL# (40) , Y 
L#(20),K#(23) 

JR 30 DIM CL*(1),Y(100,2),A(100), 
0<100,2),PT8<3> 

NI 60 M#- " ST YLUTMRRKW I MR JCZEL I PS I 
EURZPRZL I SGRU " - M* < 37 ) -M* - CL#-C 
HR*<123> 

GF 70 GRAPHICS 0-POKE 82, 2 -POKE 8 
3,39-CLOSE #1 ' OPEN #1,4,0, "K-" 
•GOSUB 1930 

DO 80 7 CL# - POSITION 17,1-7 “WY KR 
ESY" i? 

VJ 90 7 -7 "Pro* ram ten kreśli wy 
kr#sy skUdtJj.ce tle mtksymtln 
1* x* 100 eunktow n* eodst 
tul* dsnych z* zbioru. " 

NF 93 G0SU8 2000 

WR 100 7 -7 "Czy chcesz wyk aż zbl 
orow dyskowych ( 

T/N) M i 

FI 110 G0SU8 1200- IF NOT R THEN 

BK 120 7 CL# 1 TRRP 310-CLO8E #2-OP 
EN #2,6,0, "D-*.*" 

CK 130 INPUT #2, R# > 7 R#j " ";-IF 

R#(5,9)<> "FREE" THEN 130 

KR 140 CL08E #2-7 ■? -7 "II* wykr 
•sou kreślić Jednocześni* 

< l-3>"; 

BG 130 GET # 1 , F I LES - F I LES-F I LES-4 
0 1 IF FILES<1 OR FILES>3 THEN 1 

HR 160 7 FILES-7 -R-0- YMAX-0- YMIN 
•900000 -G#-" M - G#(36>*" "■G#<2 

)*G# 
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80 170 REM LRDOMRNIE ZBIOROW 
MO 180 fl-A+1-7 "PodtJ nAZw* zbiór 
u ";fl;" "j -INPUT *16; R# 

ZC 190 F#-R#-TRRP 310-CLOSE #2-0P 
EN #2, 4, 0, F# - B“0 - TRAP 250 
NO 200 INPUT #2, C 1 IF 0900000 THE 
N 7 "ZBYT DUZfl WRRTOSC '"-GOTO 
100 

RV 210 IF C<0 THEN 7 "DANE UJEMNE 
! " - GOTO 100 

DY 220 B»B+1'Y(B,R-1)-C-IF YMAX<C 
THEN YMRX-C 

PR 230 IF YMIN>C THEN YMIN-C 
UF 240 IF B<100 THEN 200 
RS 250 IF B“0 THEN A-A-l-7 "BLRD 
LRDOWRNIR !" -GOTO '180 
RO 260 PTS(R>«B'G*<A*12-11>-A#- IF 
R<FILES THEN 180 
EL 270 IF FILES-1 THEN 320 
TF 280 IF FILES-2 AND PTS(1)«PTS< 
2) THEN 320 


MU 298 IF FILES-3 RND PT8(1)-PT8< 
2> RHD PT8(2)«PTB<3) THEN 320 
HB 300 7 - ZBIORY ZRUIERAJR ROZNR 
ILOSC DANYCH ! " - GOTO 100 
MH 310 7 >7 "BLRD NR "/PEEKC195)- 
GOTO 100 


KL 315 REM WYKRESY - cz.2 
UX 320 GOSUB 1530 ; REM SKALOWANIE 
WC 330 GOSUB 1800 -REM NADANIE NAZ 
U 

WD 340 REM MENU 

HM 330 TRAP 40000 -POKE 702, 64 -GRA 
PHI CS 0- GOSUB 1930 -POKE 82,11- 
7 >7 " MENU"'? ” 


AH 360 7 -7 "1. HISTOGRAM" -7 "2. 
WYKRES LINIOWY"'? "3. WYKRES P 
UNKTOWY" 

PE 3 70 7 "4. ZMIANA SKALI"'? "5. 
ZMIANA NAZW"? "6. NOWE DANE" - 

7 "7. KONIEC PROGRAMU" 

10 380 7 '? " CO WYBIERASZ?"; -POK 
E 62,2 

DV 390 GET # 1 , A - GH-A-48 - 1 F GH<1 0 
R GH>7 THEN 390 

FB 400 7 GH-IF GH-4 THEN GOSUB 13 
30 -GOTO 350 

NT 410 IF GH-5 THEN GOSUB 1800 -GO 
TO 330 

LJ 420 IF GH-6 THEN RUN 
PJ 430 IF GH-7 THEN 7 CL#-EN0 
DK 440 IF GH> 1 THEN 7 -7 -7 "CZY 
KREŚLIĆ PIONOWE LINIE <T/N>”; - 
GOSUB 1280 -YL-A 
QZ 430 REM 

YA 460 GRAPHICS 8+16 -GOSUB 1930 -C 
OLOR 1 

KD 470 PLOT 36,8'DRAWTO 36, 155 -DR 
AWTO 319,133 

PL 400 FOR fl-LOW TO HI STEP (HI-L 
OW ) /D I V - C- 1 53- < A-LOW ) *SCALE 
CB 490 PLOT 50, C - DRAWTO 35,.C-T#-S 
TR#(R> 

NA 300 X«6-LEN ( T# ) - Y»C-3 - GOSUB 74 

8 

IC 510 FOR B-59 TO 317 STEP 3 -PLO. 

T B, C - NEXT B 
CK 520 NEKT A 

IH 830 IF TL# O " " THEN T#-TL#'X-2 
0- 1 NT ( LEN ( T# > /2 ) - Y-0 - GOSUB 740 
ID 540 IF YL# O " " THEN FOR A-l TO 
LEN < YL# > ' T#- YL* < A , R ) - X-0 - Y-72 
-LEN < YL# ) #4+R*8 - G08UB 748-NEKT 
fl 

ME 550 IF XLRBEL-3 THEN 600 
YI 560 R-l-FOR B-l TO PT8-A#-XL*< 
A,R+LL-1> 
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LO 870 FOR Ol TO LL< T*-R*<C-C> 'X 
■fi(B)/8 1 Y-l 49+C*7 • GOSUB 740 * NE 
XT C 

10 900 R-R+LL‘IF fl>LEN<XL*> THEN 

fl-1 

DV 990 NEXT B 

ST S00 IF F I LE8) 1 THEN OH FILE8-1 
GOSUB 840- 000 


HV 610 IF VL>0 8ND GH>1 THEN FOR 
8-1 TO PT8-F0R B-154 TO 9 STEP 

o iS w^mfcjftŁs 

RJ 630 T*-" CM)*nu" ' X-0 ■ Y-166 • GOSU 
B ?40'T*-"<D)ruk" 'X-0' Y-168'GO 

8UB 740 

KH 640 OET #1<R> IF 8077 RND 806 
0 THEN 640 

OF 890 IF 8-77 THEN 300 
Ul 660 C3L0R 0-FOR fl-0 TO 83 • PLOT 
8. 160 'DRRWTO fl,174*NEXT R-COL 
OR l-TRRP 630 


GY 1513 REM WYKRESY - cz.3 
TX 1520 REM 8KRL0WRNIE 
ĆG 1330 ? CL*'? "U»t*uitni» *k*li 
o*l Y" 

MS 1340 ? •? "Pod*J do In* w*rto»c 
*k*li. " '? "0-%YMIN;"> 0"; 

YS 155e ? "0" i ‘ LOW— 0 ' TRRP 1570' 1 
NPUT LOW' IF LOW<0 OR LOU>YMIN 
THEN 1540 

FH 1560 REM OBLICZENIE 8KRLI 
HZ 1370 HI-YMRX-LOW 
NM 1500 POUER-0 

QP 13S0 IF HD-100 THEN HI-HI/10- 
POWEN-POWER+1 -GOTO 1590 
HN 1600 IF HI <10 THEN HI-HI*10'PO 
WER-POWER- 1 ' GOTO 1600 
TY 1610 HI-INT<HI+0.99) 

PE 1620 IF HI/12-INT <HI^12> THEN 
DIV-12'G0T0 1Ć60 

JT 1630 IF HI/10-INT<HI/10) THEN 
DIV-10'GOTO 1660 

F8 1640 IF HI/8-INT<HI/8) THEN DI 
V-8 ' GOTO 1660 
ZF 1650 WI-HI+1 ' GOTO 1620 
EM 1GG0 IF PUWER>0 THEN FOR fi-1 T 

0 POWER -HI-HI* 10 >NEXT R 

OY 1670 IF POWER <0 THEN FOR 8-POW 
ER TO ~1'HI*HI^10'NEXT 8 
TR 1600 8CRLE-144/HI 
NV 1630 HI-HIH.OW 
OT 1700 ? i? H Gorn* w*rto*c n* o* 

1 Y "jMIj\"'? N Z«*dz**Z *1* < 
T/N)?"i 

KQ 1710 GOSUB 1230' IF 8 THEN 1760 
MY 1720 TRRP 1720'? •? "Pod*J for 
n* «r*nlc« (ulcfctz* nlz "•? YM 
RXj u )"j - INPUT MI 

NF 1730 IF MI <YMRX OR H17M0900 T 
HEN 1720 

TT 1740 HI -HI -LOW 'GOTO 1900 
IZ 1730 REM 

JV 1760 ? -? "Prztl icz*n punktu . 

. .“‘PT$-PTS<1>'F0R 8-1 TO PTS< 
FOR 8-1 TO FILES 

X8 1770 8<8)»INT<243^PT8*<8-0.5>+ 
65) 1 R<fl)-lNT(fl(fl)/2)x2 1 B<fl- C-l 
)-INT<155.5-<Y<fl-B-l>-L0W)*SC8 
LE) 

EO 1780 NEXT B'NEXT fl- RETURN 


SD 1730 REM WYKRESY - cz.4 

NQ 1800 ? CL*<? "N*d*w*ni» n*zw « 
( " ;PTS; B punktów >" 

RU 1810 ? >? "Pod*J n*zwe wykresu 
."■INPUT TL* 

QE 1820 ? '? "Pod*j n*zw« o*l Y. " 
■INPUT YL* 

MP 1830 IF FILES-1 THEN 1830 

YU 1640 ? '? "Pod*J ozn*cz»ni* dl 
« zbiorow d*r.ych.">? "<M*k**iri* 
Ini* 8 zn*kow>" 

RS 1850 ? "'K*<2 

)-K* ' G*<37>-" " 

OZ 1860 FOR 8-1 TO FILES'? "Zbiór 
"j8;" <"jG*(R*12-1 1,8*12); »> 
") 

VM 1870 INPUT R*'IF 8*0"" THEN K 
*< 8*8-7) -8* 

QQ 1680 NEXT 8'K*<25>-" " 

YI 1630 ? •? "Ozn*cz«ni* o*l X U 
l*»n* -Li t*r* , Qi**i*c* - 
/ lub B«z op!*u ?"j 


S8 1300 POKE 702-64 1 GET # 1 - XLftBEL 
- GOSUB 1 380 • XL8BEL-XL8BEL-74 • I 
F XL88EL < 1 OR XL8BEL>3 THEN 13 
00 

EX 1910 ? CHR*<XL8BEL+74> < IF XLRB 
EL <5 THEN ON XL86EL GOSUB 1310 
- 1440- 1460/ 1490 
RX 1920 RETURN 

Xfl 1930 POKE 710- 12 : POKE 712-12'P 
OKE 709- 2 'POKE 77-0 
IY 1940 IF BRK THEN POKE I6-112'P 
OKE 33774-112 
BG 1930 RETURN 

NF 723 REM WYKRESY - cz.3 
FR 730 REM WYDRUK TEKSTU U GR.8 
X0 740 X-INT(X> >Y-INT<Y> 'COLS-40' 
8T8RT- < PEEK < 89 ) *256+PEEK < 88 > ) + 
Y#COLS*X 

HY 780 FOR El-1 TO LENCT*) 'E3-8SC 
<T*(E1 >> 

XR 760 IF E3<32 OR <E3>127 RND E3 
<160) THEN E3-E3+64 ■ GOTO 780 
C8 770 IF E3>31 AND E3<96 THEN E3 
-E3-32 

WM 780 CH8R8ET -PEEK < 756 ) #256+E3*8 
TG 790 FOR E2-7 TO 1 STEP -1 
IR 800 POKE STRRT+E2FC0LS- PEEKCCH 
RRSET+E2) 'NEXT E2 
YD 810 X-X+l 1 IF X>C0L8 THEN ST8RT 
-8T8RT+COLS*8'X-0 
JC 820 ST8RT-8T8RT+1 <NEXT El -RETU 
RN 

60 1300 REM WYKRESY - cz.6 
KM 1310 ? CL*>? "Ozn*cz#nl* n* o* 
1 x dl* " jPTBi " punktów" 

JO 1320 ? •? "ILE ZN8K0W <1-3>? M J 
ZR 1330 TRRP 1330 ‘GET 41-LL‘LL-LL 
-48 IF LL<1 OR LL>3 THEN 1330 
DP 1340 ? LL'? <? “Pod*J ozn*cz«r> 
i* dl* punktów. N*cl*n 

U RETURN Jp*ll chc#*z" 

OZ 1330 ? "powielić oznaczeni*. " ■ 
8-1 

XP 1360 ? ■? "Pod*J oznaczeni* pu 
nktu ">8; ". >"j 'B-l 

IG 1370 GET 01, CIF C-I35 RND B-l 
RND R> 1 THEN ? "POWIEL" 'RETUR 
N 

ZU 1380 IF C<32 OR 0123 THEN 137 
0 

KJ 1390 XL*<fl*LL-LL+B)»CHR*<C)'? 
CHR*<C); 

LR 1400 IF B<LL THEN B-B+1'GOTO 1 
370 

ZE 1410 IF 8<PTS THEN H-8+I'G0T0 
1360 

SX 1420 ? -RETURN 
OM 1430 REM LITERY 
NP 1440 FOR 8-65 TO 90 • XL*<8-64>- 
CMR*<8> ■ NEXT 8 -LL-1 -RETURN 
EV 1450 REM MI ES IRCE 
EB 1460 TRRP 1460'? '? "Mi**i*c p 
oczAtkou* <1-12 ) h j • INPUT R'8«I 
NT <8) ' IF 8<1 OR 8> 12 THEN 1460 
M8 1470 LL-3 1 B-R#3-2 1 XL*-M* < B - B+3 
5) RETURN 
JC 1480 REM LICZBY 
OD 1490 TRRP 1490? •? "Z*czvn*m» 
od NR (0-900 )" j 'INPUT R'fl-INT 
<R) ' IF fl<0 OR fl>900 THEN 1490 

NM 1500 

2)-XL* 

0Q 1510 LL-LEN(STR*(fi+PTS) > 'FOR B 
-1 TO PTS+1 'XL*<B*LL-LL+1)-STR 
♦ (R+B-l > * NEXT B ' RETURN 


OY 

QZ 

GQ 


ON 


SC 

RB 


ZU 

TZ 


825 REM WYKRESY - cz.7 
830 REM 

840 T*-"Zn*k - -" ■ 

T*<9)-K*< 1 -8) * T*<21 )-K*<9- 16) 1 
X-7'Y- 182 'GOSUB 740 
830 IF GH> 1 THEN X-108'Y-185'F 
- 1 ' GOSUB 1110 X-204 ' F-2 • GOSUB 
U 10 'RETURN 

830 FOR R-106 TO 110 'PLOT fl-18 

2 ' DRRWTO fi- 188 ■ NEXT fl 

870 PLOT 202- 188 'DRRWTO 202-18 

2 -DRRWTO 286- 182 -DRRWTO 206-18 

8 'DRRWTO 202- 188 -PLOT 203-185' 

DRRWTO 205-185 

860 RETURN 

890 REM TRZY ZBIORY 


Yc\^Vfv-*teef\oa^8 W 

-" * T*<9)-K*<1 -8) * T*<2 
1 )-K*<9- 16) • T*<33)-K*< 17- 24) 

RS 910 X-0-Y-182' GOSUB 740 
ZX 920 IF GH>1 THEN X-52 • Y- 1 85 - F- 
1' GOSUB 1 1 10 >X-148< F-2 'GOSUB 1 
1 10 'X-244'F-3' GOSUB 11 10 -RETUR 
N 

EE 938 FOR fl-50 TO 54 'PLOT fi, 182' 
DRRWTO fl- 188‘NEXT R 
KI 940 PLOT 146- 188 DRRWTO 146-18 
2 'DRRWTO 150- 182 -DRRWTO 130-18 
8 'DRRWTO 146-188 PLOT 147-183' 
DRRWTO 149-185 

NH 906 PLOT 242- 188 DRRWTO 242-18 
2 'DRRWTO 246- 182 'DRRWTO 246-18 
8 ‘PLOT 244- 182 -DRRWTO 244,188 
ZR 960 RETURN 
FL 970 REM HISTOGRAM 
KR 980 FOR fl-1 TO PT6 
FL 990 IF FILE8-1 THEN B— 2 'GOSUB 
’ 1100 

KL 1000 IF FILES-2 THEN B— 4-G08U 
8 1 1 80 <B-2- GOSUB 1190 
NZ 1010 IF FILES-3 THEN 6— 8' GOSU 
B 1180' B--2 ' G08UB 1190>B-4'GO8 

CT 1020 NEHT fl 'RETURN 
FT 1030 REM WYKRES PUNKTOWY I LIN 
IOWY 

XP 1040 FOR R*0 TO FILE8-1 'FOR 0- 
1 TO PT8 

SJ 1090 X-ft<B)<Y-B(B,fl)<F-fl+l'GOS 
UG 1110 

NQ 1060 NEXT B'NEXT R 
II 1070 IF GH-3 THEN RETURN 
FL 1080 FOR fl-0 TO FILE8-1-PL0T fl 
<1)-8<1-R) 'FOR B-2 TO PT8-DRRW 
TO RCB) - B(B-R) 

ED 1090 N£XT B>NEXT R< RETURN 
WO 1100 REM KREŚLENIE PUNKTÓW 
F8 1110 COLOR 0'PLOT X-Y-2- DRRWTO 
X-Y42' COLOR 1 

CG 1120 IF F-l THEN PLOT X-Y-PLOT 
X- Y-l 'PLOT X41-Y-l -DRRWTO X+1 
-Y41 'DRRWTO X-l.-Y+l 'DRRWTO X-1 
-Y-l 


BE 1130 IF F-2 THEN PLOT X-Y PLOT 
X-l-Y-2'0RflWT0 X*1 , Y-2 1 PLOT X 
♦2- Y-l 'DRRWTO X+2-V*l 
IK 1140 IF F-2 THEN PLOT X«-l-Y42' 
DRRWTO X-1-Y+2'PL0T X-2-Y«-l'DR 
RUTO X-2- Y-l 

MG 1150 IF F-3 THEN PLOT X-2-Y-2* 
DRRWTO X+2,Y42'PL0T X+2-Y-2'DR 
RUTO X-2-Y42 
RT 1160 RETURN 
IT 1170 REM 

DE 1100 FOR C-B TO 8*4 'PLOT fl<fl>4 
C-8<8-0> 'DRRWTO R<R)«C- 159>NEX 
T C' RETURN 

J8 1130 COLOR 0'FOR C-R<fl)-**4l TO 
R<R)*B'*'3‘PL0T C-B<R-1> 'DRRWTO 
C-1S4<NEXT C COLOR 1 
GR 1200 PLOT R<R>+B- 183 -DRRWTO RC 
H)^B-B<R- 1> 'DRRWTO R(R)<rB-r4-B< 
H. 1 ) 'DRRWTO RCH)«-B*4- 135 
OK 1210 IF B<R, 1X152 THEN FOR C- 
BCR.l) TO 153 8TEP 3 -PLOT R<R> 
♦6- C* DRRWTO R<R)+B*4-C 'NEXT C 
RJ 1220 RETURN 

0Q 1230 IF B(R-2»183 THEN 1250 
TR 1240 COLOR 0'PLOT R<R>«Hi+l-B<fl 
-2> -DRRWTO fl(fl)4B+l - 154'PLOT R 
CR)^B^3-B(R-2> 'DRRWTO R(R>4B-f3 
- 154 ' COLOR 1 

KO 1250 PLOT R<R>t§- 153 'DRRWTO R< 
R)40, B(R-2> 'DRRWTO R(R)+B+4-B< 
R-2) 'DRRWTO R<R)+B44-133 
BU 1260 PLOT R(fl>+B+2-B(R-2> 'DRRU 
TO R<R)+B+2- 155 'RETURN 
Wfl 1230 ? "T"j 'POKE 702 - 64 ' GET i 
1-R'IF R<>78 RND ROB4 RND R<> 
155 THEN 1280 

QU 1285 IF R-l 33 THEN R-B4 
CU 1290 ? CHR*<R)R-<R-78>/ll'RET 
URN 

PN 670 REM WYKRESY - cz.8 
LD 680 CLOSE #3'0PEN #5-8-0- "P'" 
GN 690 TRRP 1960 ' DM«PEEK<88)+PEEK 
( 89 ) *256 ■ DM-DM+40* 1 9 1 
TC 700 FOR X-DM TO DM+39 


* 
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4 KK .705 LA*-CHR*<K0J>jLA*a92>-LA*' 
W Lft*<2)-LA* 

KT 710 W»USR<ł536/X/ADR<LA*>><? « 
5 jCHR*<27);"9 ,, ;CHR»<27)j"R";CH 
R*<0)iCHR#(192>;LA*'NEXT X 

NQ 715 CL08E #5 

RO 720 TRAP 40000 < GOTO 630 

GK 1960 GRAPHICS 8+16+16 'GOSUB 19 
30 ' POKE 712/ 64 ! POKE 752/1 

JI 1965 ? CHR* (125); CHR* < 29 ) ; CHR* 
<29>;" ***DRUKflRKfi ODLAĆ 

ZONA***" 

NZ 1970 FOR X*1 TO 90'NEXT X'GRAP 
HI CS 8+16+32 'GOSUB 1 930 > GOTO 6 
30 

HP 1980 IF XLABEL-87 THEN XLABEL» 
75 

KT 1990 IF XLABEL»66 THEH XLABEL» 
79 

CM 1995 RETURN 

BV 2000 RESTORE 2030 'FOR T-l TO 6 
1 ' READ Q 1 POKE 1535+T/O 

ML 2010 NEXT T-DIM LA* <193) 'RETUR 
N 

CU 2030 DATA 104/104/141/21/6/104 
/ 141/ 20/ 6/ 104/ 141/ 27/6/ 104/ 141 
/ 26/6/ 160/ 193/ 173/255/255/ 136/ 
240/35/ 141/255/255/238 

QQ 2040 DATA 26/6/240/21/173/20/6 
/56/233/40/ 141/20/6/ 144/4/24/7 
6/19/6/206/21/6/76/19/6/230/27 
/ 6/ 76/ 33/ 6/ 96 


Dla lepszego poznania programu, w celu 
ewentualnego zmodyfikowania go, omówi- 
my krótko funkcje realizowane przez po- 
szczególne segmenty programu. 

Linie 80—310 realizują wprowadzanie 
danych. W ramach tego segmentu linie 
120—130 odczytują i wyprowadzają na ek- 
ran katalog zbiorów dyskietki, oczywiście 
tylko wtedy, gdy chcemy sprawdzić jej za- 
wartość. Wprowadzanie danych realizowa- 
ne jest w liniach 200—310. W trakcie tej 
czynności następuje kontrolowanie zakresu 
wartości danych oraz wyznaczanie wartości 
maksymalnej i minimalnej (potrzebne pó- 
źniej podczas skalowania). Segment ten 
wprowadza dane z podanej liczby zbiorów i 
przechowuje je w tablicy Y. Sprawdza także, 
czy liczba danych we wszystkich zbiorach 
jest jednakowa. 


Kolejną czynnością wykonywaną przez 
program jest skalowanie wartości w celu 
odpowiedniego rozmieszczenia ich na 
ekranie. W tym momencie znane są warto- 
ści minimalna i maksymalna. Użytkownik 
otrzymuje propozycję wybrania położenia 
osi X, od 0 do Ymin, w zależności od potrzeb. 
Realizują to linie programu 1530—1550. 
Następnie w liniach 1 570—1690 dobierany 
jest najlepszy współczynnik skalowania. Po 
wyznaczeniu go użytkownik otrzymuje pro- 
pozycję górnej granicy na osi Y (linie 
1700—1740) i może zgodzić się z tym lub 
nie. W przypadku braku akceptacji możemy 
sami wybrać górną granicę, która musi być 
większa od Ymax, i następuje ponowne do- 
bieranie współczynnika skalowania. W li- 
niach 1760—1780 następuje przeliczenie 
wartości danych na współrzędne ekranu 
oraz wybranie symbolu oznaczającego na 
wykresie punkty z każdego zbioru. 

Następnie program przechodzi do 
przygotowania opisu wykresu (linie 
1800—1920). W tym celu pyta użytkownika 
o nazwę wykresu, oznaczenie osi Y, ozna- 
czenie dla danych z poszczególnych zbio- 
rów oraz sposób opisu osi X. W ostatnim 
przypadku możemy wybrać jedno z ozna- 
czeń standardowych — miesiące, litery, 
liczby, bez opisu — lub wprowadzić własne. 
Mogą one mieć od 1 do 3 znaków. Poszcze- 
gólne opisy osi X realizowane są przez 
podprogramy zawarte w liniach 
1310-1510. 

Po wykonaniu powyższych czynności 
program prezentuje na ekranie swoje moż- 
liwości (linie 350—380), które możemy wy- 
brać wprowadzając cyfrę z przedziału 1 —7. 
W przypadku wybrania opcji 1, 2 lub 3 
przechodzimy do wykonania czynność 
przygotowawczych, tj.: wykreślenia os 
współrzędnych i opisania ich (linie 
460—610). Jak widać dosyć często wywo- 
ływany jest podprogram rozpoczynający się 
od linii 740. Jest to segment (procedura) 
drukujący tekst na ekranie w trybie grafi- 
cznym 8. 


Wykres kreślony jest, w zależności od 
wybranej opcji,' przS2' różne segmenty 
programu. I tak, wykres słupkowy kreślony 
jest przez instrukcje zawarte w liniach 
980—1020 1 1180—1260, wykres punktowy: 
1040—1070 i 1 1 10—1 160, a wykres linio- 
wy: 1040-1090 i 1110-1160. 

Po narysowaniu wykresu możemy przejść 
do menu lub wykonać kopię ekranu na dru- 
karce. Informują o tym napisy w lewym dol- 
nym rogu ekranu. Wydruk zawartości ekra- 
nu realizowany jest przez instrukcje zawarte 
w liniach 680—720, które wykorzystują pro- 
cedurę w języku maszynowym, umieszczo- 
ną na stronie 6 przez instrukcje w liniach 
2000-2040. 

W programie WYKRES dostarczone są 
„domyślne" odpowiedzi na część pytań. 
Jeśli nam one odpowiadają wystarczy na- 
cisnąć klawisz <RETURN>, jeśli nie, to na- 
leży podać własną propozycję, już bez naci- 
skania klawisza <RETURN>. Dotyczy to 
głównie pytań, na które odpowiadamy TAK 
(T) lub NIE (N). Poprawną realizację takiego 
rozwiązania zapewnia podprogram umie- 
szczony w liniach 1280—1290, który prze- 
kazuje odpowiedź w postaci wartości logi- 
cznej (A=1 jeśli TAK, A=0 jeśli NIE). 

Działania programu nie można przerwać 
za pomocą klawisza BREAK. Zapewnia to 
podprogram w liniach 1930—1950, który 
musi być wywoływany po każdym użyciu ins- 
trukcji GRAPHICS. Istnieje jednak możli- 
wość wyłączenia zakazu przerywania dzia- 
łania programu. Wystarczy uruchomić go z 
wciśniętym klawiszem <SELECT>. Realizu- 
ją to instrukcje w linii 20. 

Do wprowadzenia programu WYKRES 
proponujemy wykorzystać Edytor BASICa 
(„IKS" nr 4 z 1987 roku). 

Tomasz MROWIEĆ 
Ludwik PIELA 


Nauka • Technika 

W Japonii opracowano nowego Łyp u 
suchy elektrolit. który umożliwia 
zminiaturyzowanie akumulatora. 

Wytwarzany Jest on w formie 
niezwykle cienkiej kartki. dzięki 



grubość nie przekraczający O.l mm. 
Forma elektrolitu sprawia, że nowego 
typu akumulator Jest odporny zarówno 
na niskie, jak i wysokie temperatury 
w granicach od -60 do +100' »C. 
Może on być ponadto eksploatowany w 
próżni na statkach kosmicznych. 

Mi ni akumulatory będą mogły być 
powszechnie stosowane zarówno w 
odbiornikach radiowych 1 

magnetofonach. Jak i nowoczesnych 
kartach kredytowych z wbudowanymi 
układami scalonymi . Obecnie 

prowadzone sa testy doboru odpowied- 
nich elektrod do płaskiego 

elektrolitu 

Ciąg dalszy na str. 22 


CPC 

Ho wczytaniu i uruchomieniu 
programu gdy będziesz chciał 
wydrukować tekst z ekranu napisz 
GALL SiAOOO. 

10 REM Kopiuje tekst z ekranu na 
drukarkę 

20 MEMORY &?FFF:FOR x=&AOOO TO 
&A03C 

30 READ a*:POKE ;:,7AL("&”+aShNEXT 
40 DATA cd, 81, bb, cd, 11, be, 3c, 47 
50 DATA 3e, Oa, cb, 27, 10, f c, 47, Oe 
60 DATA 18, 21, Ol, Ol, cd, 75, bb, c5 . 

70 DATA cd, 60, bb, cd, 2c, aO, Ze, 09 
SO DATA cd,5a,bb,10,f3,cl,0d,c8 
90 DATA c5,3e,0a, cd, 36, a0,3e,0d 
IGO DATA cd,36,a0,c3,lB,a0,cd,2b 
110 DATA bd, dS,c3,2c,a0 
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COMMODORE 



Tłumacz grafiki 


Przy współpracy C-64 z drukarką inną niż 
Commodore lub nie posiadającą interfejsu 
do współpracy z tym komputerem może po- 
jawić się problem polegający na tym, że 
drukarka nie będzie drukować poprawnie 
programów zawierających grafikę C-64, 
Poniższy program tłumaczy grafikę C-64 
na język angielski lub kod ASCII, które „rozu- 
mie" i drukuje poprawnie każda drukarka. 


ł PRINT • TŁUMACZ* 

2 PRINT CHR«<147)CHR*<5> iPOKE 53281, 0iFO 
R X=0 TOSiPRINTiNEXT 

3 PRIN^iPRINT TA8<17>’ TŁUMACZ* 

4 FOR X=0TO3000|NEXT 

15 CLRiOPEN 15,8, 15 

16 U*»CHR*<145) i RT*«CHR* < 18) |LS*-’ 

C26 SPACJI! 

17 R0*«CHR*<146) |WT*=CHR*<5> iRD*-CHR*<2B 
) :N*-CHR*<0 > iPOKE 53280, 01 GOTO 700 

60 INPUT#1 5, Dl , D2*, D3, D4 > RETURN 

200 IF A-32 THEN A*-’ * i RETURN 

201 IF A-17THEN A*-* [CSRS DI ' i RETURN 

203 IF A-145THEN A*-’ [CRSR G! ’ i RETURN 

204 IF A-147THEN A*-’ [CLR/HOME! ’ i RETURN 

205 IF A-157THEN A*=* ICRSR LI * i RETURN 

206 IF A-19THEN A*-’ [HOME! • i RETURN 

207 IF FT«-’S’ ANDA-13THENPRI NT* 1 I RETURN 

208 IF A- 1 3THENA*-’ CRETURNI* i RETURN 

209 IFA-14 THE NA**’ CLOWER CASE3* l RETURN 

210 IF A-5THENA*-’ [WHT! • i RETURN 


211 

212 

213 

114 

215 

216 
URN 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 
227 
328 

229 

230 

231 


IF A-18THENA*-’ [REV ON! ' i RETURN 
IF A=20TMEN A*=* [DEL! ’ t RETURN 
IF A-28THEN A*=* CRED! • i RETURN 
IF A-30THEN A*-’ C6REEN1 • i RETURN 
IF A-31THEN A*-’ CBLUE3 * i RETURN 
IF A* 141 THEN A*-* [SHIFT RETURN! • iRET 


IFA-142THENA*-* [UPPER CASE 3 • iRETURN 
IF A- 144THENA*** [BLACH! • iRETURN 
IF A-146THEN A*-* [REV OFF1* iRETURN 
IF A-148THEN A*-* [ IN8T3 ’ i RETURN 
IF A-156THEN A*-[PUR! ’ i RETURN 
IF A* 158 THEN A*-* [YEL3 ’ l RETURN 
IF A-159THEN A*-* [CVN3 * l RETURN 
IF A-255THEN A*-’ [Pil* iRETURN 
IF A-133THEN A**’ [FI 3* iRETURN 
IF A-134THEN A*-* [F33* iRETURN 
IF A-135THEN A*»* [F51 • l RETURN 
IF A-136THEN A**’ [F73* iRETURN 
IF A-137THEN A*-’ [F23 • iRETURN 
IF A-138THEN-ft*=’JK«* iRETURN 
IF A- 139 THEN A*-’ IF63 • l RETURN 


232 IF A* 140 

233 IF A* 160 

234 IF A-151 

235 IF A- 152 

236 IF A* 153 

237 IF A- 129 

238 IF A- 150 

239 IF A* 153 


THEN A*-* [F81* iRETURN 
THEN A*-* 'iRETURN 
THEN A*"* [SREY 1!’ iRETURN 
THEN A*-’ [0REV 21 • i RETURN 
THEN A*-' [GREY 31* iRETURN 
THEN A*-’ CORANGE3 ’ iRETURN 
THEN A*-’ ILT RED!' iRETURN 
THEN A*-' (LT SREEN3 • iRETURN 


240 IF A- 154 THEN 

241 IF A* 149 THEN 
250 X*=STR*(A> |X** 
<’ + X*+’ >3’ iRETURN 

300 IF A- 153 THEN 

301 IF A-151 THEN 

302 IF A- 15? THEN 

303 IF A* 129 THEN 

304 IF A— 131 THEN 

305 IF A- 137 THEN 

306 IF A- 139 THEN 

307 IF A— 141 THEN 


A*=’ [LT BLUE3* IRETURN 
A**' [BROWN!’ iRETURN 
“MID* ( XS, 2, 3) lA*-' [CHR* 

A*-' PRINT' iRETURN 
A*-’ POKE' i RETURN 
A*-’ PRINT#’ iRETURN 
A*-' FOR' iRETURN 
A*-’ DATA’ iRETURN 
A*-’ GOTO’ i RETURN 
A*-’ IF’ iRETURN 
A**’ GOSUB' i RETURN 


308 IF A— 142 THEN A*-’ 

309 IF A* 163 THEN A*-’ 

310 IF A— 164 THEN A*=* 

311 IF A— 175 THEN A*-’ 


RETURN’ iRETURN 
TAB C • iRETURN 
TO’ iRETURN 
AND’ i RETURN 


312 IF A— 176 THEN A*-’ OR’ i RETURN 

313 IF A- 199 THEN A*- • CHR*’ i RETURN 

314 IF A- 1 40 THEN A*-' RESTORE’ i RETURN 

315 IF A- 170 THEN A*-’ ♦’ i RETURN 

316 IF A-171 THEN A*-’ -’ i RETURN 

317 IF A- 172 THEN A*-’ *’ i RETURN 

318 IF A-173 THEN A*-' /’ i RETURN 

319 IF A— 174 THEN A*-' [•!• i RETURN 

320 IF A— 177 THEN A*-’ >• i RETURN 

321 IF A-178 THEN A*-’ -• i RETURN 

322 IF A— 179 THEN A*-’ <• iRETURN 

323 IF A— 194 THEN A*-’ PEEK’ ■ RETURN 

324 IF A— 167 THEN A*-’ THEN’ i RETURN 

325 IF A- 133 THEN A*-’ INPUT* iRETURN 

326 IF A— 132 THEN A*-’ INPUT#’ iRETURN 

327 IF A— 143 THEN A*-’ REM’ i RETURN 

328 IF A- 159 THEN A*-’ OPEN* i RETURN 

329 IF A— 160 THEN A*-’ CL08E’ i RETURN 


330 IF A— 169 THEN A*-’ STEP’ i RETURN 

331 IF A— 201 THEN A*-’ RIGHT*’ i RETURN 

332 IF A— 147 THEN A*-’ LOAD* i RETURN 

333 IF A-203 THEN A*-’ GO’ i RETURN 

340 IF A— 128 THEN A*-’ END’ i RETURN 

341 IF A- 130 THEN A*-’ NEXT» i RETURN 

342 IF A— 134 THEN A*-’ DIM’ i RETURN 

343 IF A- 135 THEN A*-’ READ’ l RETURN 

345 IF A— 138 THEN A*-’ RUN’ i RETURN 

346 IF A- 144 THEN A*-’ STOP’ i RETURN 

347 IF A— 145 THEN A*-’ ON’ i RETURN 

348 IF A— 148 THEN A*-’ SAVE' i RETURN 

349 IF A- 149 THEN A*-' VERIFY' i RETURN 

350 IF A— 150 THEN A*-’ DEF’ i RETURN 

351 IF A— 154 THEN A*-’ CONT* l RETURN 

352 IF A— 155 THEN A*-* L IST’ i RETURN 

353 IF A— 156 THEN A*-’ CLR* I RETURN 

354 IF A— 157 THEN A*- • CMD' i RETURN 

355 IF A— 197 THEN A*-’ VAL’ i RETURN 

356 IF A-161 THEN A*-’ GET’ i RETURN 

357 IF A— 165 THEN A*-’ FN’ i RETURN 

358 IF A— 166 THEN A*-’ SPC (’ i RETURN 

359 IF A— 168 THEN A*-' NOT’ l RETURN 

360 IF A* 180 THEN A*-’ SBN’ i RETURN 
Jbl IF A-181 THEN A*-’ INT* iRETURN 

362 IF A- 182 THEN A*-’ ABS’ i RETURN 

363 IF A- 184 THEN A*-’ FRE' l RETURN 

364 IF A- 184 THEN A*-* FRE’ i RETURN 

365 IF A- 185 THEN A*-’ POS' i RETURN 

366 IF A— 186 THEN A*-' SQR’ i RETURN 

367 IF A- 187 THEN A«*’ RND’ i RETURN 

368 IF A- 188 THEN A*-’ LOG’ I RETURN 

369 IF A— 189 THEN A*-’ EXP’ i RETURN 

370 IF A- 190 THEN A*-’ C08’ I RETURN 

371 IF A— 191 THEN A*-’ SIN* i RETURN 

372 IF A- 192 THEN A*-’ TAN* i RETURN 

373 IF A— 193 THEN A*-’ ATN’ i RETURN 

374 IF A* 195 THEN A*-’ LEN’ i RETURN 

375 IF A- 196 THEN A*-’ STR** i RETURN 

376 IF A- 158 THEN A*-’ SYS’ l RETURN 

377 IF A- 198 THEN A*-’ ASC’ I RETURN 

378 IF A— 200 THEN A*-’ LEFT*’ i RETURN 

379 IF A-202 THEN A*-’ MI D*’ i RETURN 


380 IF A— 146 THEN A*-’ WAI T’ i RETURN 

381 IF A- 162 THEN A*-’ NEW’ i RETURN 

382 IF A- 136 THEN A*-’ LET’ i RETURN 

383 IF A— 255 THEN A*-’ [PI 1 » I RETURN 

390 X*— STR* CA) i X*— MI D* ( X*, 2, 3) |A*-'CHR*< 
’ *X*+’ >’ iRETURN 

700 PRINTCHR* < 147) i PR INT iPRINT iPRINT iPRI 
NTiPRINT 

730 NF*-” i INPUT’ NAZWA PLIKU* |NF* 

732 IF LEN <NF») < 1 OR LEN<NF«>)16 THEN PR 
INT U*U* iGOTO 730 

740 FT*»” iPRINT’ RODZAJ PL IKUl * RT*’ P* RO* 
' RG LUB • RT*’ S’ RO*’ EO’ |l INPUT FT* 

742 IF FT* O ' P* THEN IF FT* O ' S* THEN PRI 
NT U*U* iGOTO 740 

750 FD*»" iPRINT’ WYDRUK NA’ RT*’ E* RO*’ KRA 
N LUB ' RT*' D' RO*' RUKARKE' | i INPUT FD* 

752 IF FD* O • E* THEN IF FD* O * D’ THEN PRIN 

T U*U* i GOTO 750 

754 IF FD**’ E* THEN FD-3 


756 IF FD*— ’ D’ THEN FD-4 

760 SK-0IPRINT’ ILE BITÓW DO POMINIĘCIA 

• RT** (RETURN) • RO*’ -0’ l INPUT SK 

800 PRINT CHR* (147) iFOR X-0TO4|PRINT 
810 PRINT RT*’ POSZUKIWANIE! ’ NF*’ , ' FT* 
830 IF FD-3 THEN TY*-’ EKRAN’ 

835 IF FD-4 THEN TY*-’ DRUKARKĘ’ 

840 PRINT TAB (3)’ WYPROWADZENIE NAi ’ TY* 
845 PRINT TAB (5) RT*' < FI - PRZERWA )• 

850 CLOSE 8 l OPEN 8, 8, 8, ’ 01 ' +NF*+’ , * +FT** 

* , R’ 

852 IF SK) 0 THEN FOR X-0TO SK lGET«S, A* iN 
EXT i X— 0 

855 CLOSE 1 1 OPEN 1,FD 

856 PRINT#1,NF* 

860 GOSUB 601 IF A>0 THEN PRINT CHR* (147) 
Dl |D2*« D3|D4 

865 IF FT*— ' P’ THEN GET#8, A*. B* 

870 IF FT*— * P’ THEN GET#8, A*. B* 

874 IF FT*— * S’ THEN 905 

875 GET*8, C*. D* iFl —ASC <C**N*) |F2-A8C(D*+ 
N*> 

880 IF ST— 0 THEN PRINT01, (F2*256)+F1| 

890 GET#8, A* i A-ASC ( A**N*> i IFA) 0THENC-0 

891 GETBK*iIFBK*-CHR*( 133) THEN GOTO 1000 

892 IFA-0THENFL-0|PRINT#1 iC-C+1 IGOTO870 

893 IF ST-0THEN 900 

895 IF ST— 64 THEN 1000 

896 PRINT’ STAN i ’ ST i GOTO 1000 

900 IF FL-0 AND A-34 THEN FL-1:GOTO905 

901 IFFL-1ANDA) 93THENG0SUB 200: GOTO 910 

902 IF A-34 THEN FL-0 

903 IF A <33 THEN GOSUB 2001 GOTO 910 

904 IF A) 93 THEN GOSUB 300 s GOTO 910 

905 PR I NT# 1 , CHR* (A) | I A— 01 GOTO 890 
910 PRINT#1, A*| iGOTO 890 

1000 PR I NT# 1 I GOSUB 60 

1001 PRINTCHR* (5) i CLOSE 1 1 CL0SE8 1 CLOSE 1 5 

1010 IF Dl ) 0 THEN PRINT’ BLAD-’ 

1011 PRINT’ STAN DYSKIETKI i' Dl |D2«,D3|D4 
1015 PRINT iPRINT’ CZY CHCESZ SPRÓBOWAĆ JE 
SZCZE RAZ ? <T/N> • 

1020 GETO* i IF O*-” THEN 1020 
1030 IF 0*»’T’ THEN CLRiGOTO 15 

1040 END 
READY. 

Program może współpracować również z 
VIC-20, należy tylko opuścić lub odpowied- 
nio zmienić linie 1 i 20 (ustalenie koloru tab- 
licy i ramki), 

Z programu mogą korzystać (niestety) tylko 
posiadacze stacji dysków. Tłumaczyć (li- 
stować) i drukować można za jego pomo- 
cą pliki programowe (PRG) i sekwencyjne 
(SEQ). zarówno na ekran, jak i na drukarkę 
Możliwy jest także skok do środka pliku 
przed przystąpieniem do drukowania, co 
pozwala na zaoszczędzenie papieru. 
Działanie programu możemy w dowolnej 
chwili przerwać klawiszem FI . 

Program może być bardzo przydatny dla 
osób, które: 

— posiadają drukarkę inną niż Commodo- 
re, 

— posiadają drukarkę Commodore, ale 
chcą lepiej poznać sposób zapisu znaków 
graficznych, 

— mają trudności w zrozumieniu grafiki 
Commodore i nie posiadają drukarki 

Opracował: Tadeusz CISEK 
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Wskaźniki i funkcje w języku „C” 


Język C staje się coraz częściej stosowanym narzędziem progra- 
mowania. Jego użytkownicy podkreślają wiele zalet tego języka, ta- 
kich jak: szczególna przydatność do tworzenia oprogramowania sy- 
stemowego, możliwość definiowania i przetwarzania nowoczesnych 
struktur danych oraz prostota i zwartość budowanych programów. 
Inną jego zaletą, być może najistotniejszą jest to, że nie jest on 
związany z żadnym konkretnym sprzętem i napisane w nim 
programy mogą być uruchamiane na dowolnym komputerze, 
dla którego opracowano kompilator tego języka. 

Intensywny wzrost liczby mikrokomputerów użytkowanych za- 
równo przez amatorów, jak i profesjonalistów znacznie przybliża ich 
użytkownikowi możliwość programowania w języku C, tym bardziej 
że jego kompilatory dostępne są w zestawie oprogramowania prawie 
każdego systemu mikrokomputerowego, w tym również mikrokom- 
puterów domowych, jak AMSTRAD czy ATARI. Warto zatem za- 
interesować się bliżej tym językiem. 

Język C jest językiem programowania ogólnego zastosowania. Jed- 
nym z celów jego zaprojektowania było wypełnienie luki istniejącej 
pomiędzy takimi językami jak BASIC a językiem asemblera. Język C 
stworzony przez programistów systemowych stanowi wysokopozio- 
mową alternatywę dla języków asemblerowych. Jest on znacznie 
szybszy i oferuje programiście więcej możliwości niż BASIC (np. 
wykonywanie operacji logicznych na pojedynczych bitach, tworzenie 
programów strukturalnych), a jednocześnie jest mniej „błędotwór- 
czy” i bardziej wydajny niż język asemblera. Programy napisane w 
języku C, mimo iż działają nieco wolniej niż programy w kodzie ma- 
szynowym, są jednak znacznie łatwiejsze w tworzeniu i testowaniu. 
Takie elementy języka jak: wskaźniki, funkcje rekurencyjne i wygod- 
ne w użyciu struktury sterujące czynią nawet potencjalnie skompli- 
kowany program łatwym do zakodowania i przetestowania. Co wię- 
cej, programy w nim napisane, w przeciwieństwie do programów w 
języku asemblera mogą być przeniesione na dowolny inny komputer 
kosztem naprawdę niewielkich modyfikacji. 

Programiści poznający język C, w sytuacji gdy wcześniej posługi- 
wali się takimi językami, jak: PASCAL, FORTRAN, czy BASIC są 
początkowo zaskoczeni zastosowaniem w nim kilku rozwiązań, które 
trudno znaleźć w innych językach programowania. Szczególnie dwa z 
nich zasługują na bliższe przedstawienie — wskaźniki i funkcje, w 
tym również funkcje biblioteczne. 

Funkcje biblioteczne w języku C stanowią zbiór procedur dostar- 
czanych z kompilatorem (biblioteka kompilatora), realizujących ope- 
racje wejścia/wyjścia programu, obliczenia numeryczne itp. Można 
zatem zapytać: cóż jest odmiennego w bibliotece funkcji języka C w 
odniesieniu do innych języków programowania? Różnica polega na 
tym, że w innych językach programowania instrukcje realizujące wy- 
żej wymienione operacje stanowią element języka, nieodłącznie z nim 
związany. Natomiast w języku C funkcje nie są elementem języka. Na 
przykład programując w języku BASIC można użyć instrukcji 
PRINT do wyprowadzenia danych na urządzenie zewnętrzne, mając 
świadomość, że instrukcja ta jest elementem tego języka. Natomiast 
w języku C nie ma instrukcji przeznaczonej do wyprowadzania da- 
nych, mało tego, w ogóle nie ma w nim instrukcji przeznaczonych do 
obsługi tzw. wejścia/wyjścia programu. Jak zatem takie operacje rea- 
lizować w tym języku? Otóż do wykonywania tych operacji służą w 
języku C funkcje zawarte w bibliotece kompilatora. Każdy kompila- 
tor języka C zawiera bibliotekę funkcji zdefiniowanych przez twórców 
języka oraz pewną liczbę funkcji specyficznych dla konkretnej im- 
plementacji sprzętowej. Na przykład: kompilator języka C opracowany 
dla mikrokomputerów ATARI XL/XE (DEEP BLUE C /DBC/) 
zawiera bibliotekę funkcji realizujących arytmetykę zmiennoprzecin- 
kową. Jest to biblioteka specyficzna dla tego kompilatora, której ist- 
nienie spowodowane jest niestandardowym sposobem wykonywania 
obliczeń zmiennoprzecinkowych na tym sprzęcie. W kompilatorach 
dedykowanych dla mikrokomputerów, w których zastosowano stan- 
dardowe liczby zmiennoprzecinkowe taka biblioteka w ogóle nie ist- 
nieje. Obok niej kompilator DBC posiada standardowe funkcje języ- 
ka C takie jak: printfj], strlenj], getchar[J, putchar[], tolowcr[J, 
toupperf] i inne. Funkcje o takich nazwach występują we wszystkich 
kompilatorach języka C, bez względu na sprzęt, na który je opraco- 


H. KRASUSKI Z. DYJAK 

wano. Konsekwencją faktu, że funkcje nie są elementami języka C są 
drobne różnice w sposobie ich realizacji na konkretnym typie mikro- 
komputera. 

Jednak funkcje biblioteczne nie są tematem niniejszego artykułu. 
Konstrukcja całego programu w języku C oparta jest o idee funkcji. 
Każdy program w tym języku musi zawierać przynajmniej jedną 
funkcję. Oczywiście może również zawierać ich wiele. Ogólnie, funk- 
cjami w języku C nazywane są, definiowane przez programistę, pro- 
cedury lub podprogramy realizujące określoną operację, na przykład: 
wyprowadzenie wyników obliczeń na ekran, obliczenia wartości wy- 
rażenia itp. Funkcje mogą być oddzielnie kompilowane i testowane, a 
następnie w postaci półskompilowanej dołączane do programu pod- 
czas fazy linkowania. Ta cecha języka stanowi decydujący czynnik je- 
go „przewagi" nad innymi językami programowania oraz w zna- 
cznym stopniu ułatwia i przyspiesza proces tworzenia programu. Jej 
istotę można zobrazować następującym przykładem: każdy dobrze 
skonstruowany program przed zakończeniem działania powinien za- 
pytać użytkownika, czy naprawdę chce zakończyć pracę. W przypad- 
ku negatywnej odpowiedzi program powinien uruchomić się ponow- 
nie. Przy użyciu takich języków programowania, jak BASIC czy 
PASCAL zakodowanie takiej ewentualności w programie wymaga 
kilku lub kilkunastu instrukcji. Niestety instrukcji tych musimy po- 
nownie użyć pisząc nowy program, jeśli chcemy aby kończył on się 
podobnie. Jak problem ten można rozwiązać w języku C? Piszemy 
funkcię, która będzie realizowała zadanie pytania i analizowanie od- 
powiedzi użytkownika. Przykładem takiej funkcji jest funkcja o na- 
zwie czydalej[] zamieszczona w programie i (patrz dalsza część arty- 
kułu). Funkcję tę kompilujemy i testujemy, a jej kod półskompilo- 
wany wprowadzamy do biblioteki własnych funkcji. W każdym no- 
wym programie, gdy będziemy chcieli użyć tej funkcji, to wystarczy ją 
tylko wywołać, natomiast nie ma konieczności pisania jej ponownie. 
Oczywiste jest, że jej kod półskompilowany musimy dołączyć pod- 
czas linkowania do każdego programu, w którym funkcję tę będziemy 
wywoływać. To zaś nie stanowi żadnego problemu, gdyż proces lin- 
kowania wykonywany jest przez specjalny program dołączony do 
kompilatora. 

Stałe i zmienne programowe, na których funkcja wykonuje opera- 
cje nazywane są w języku C argumentami funkcji. Liczba argumen- 
tów, które można przekazać do funkcji jest zależna od implementacji 
sprzętowej kompilatora. Praktycznie jest to liczba dosyć duża, np.: 
wspomniany wyżej kompilator DBC umożliwia przekazanie do funk- 
cji aż 126 argumentów. Argumenty przekazywane są do funkcji po- 
przez wartość i ich wartość nie może być zmieniona przez funkcję. 
Oznacza to, że każda funkcja tworzy własne, prywatne kopie wartości 
argumentów, na których wykonuje operacje. Kopie te są niszczone w 
momencie, gdy funkcja wykona przypisane jej zadanie. Wynik obli- 
czeń wykonanych przez funkcję nazywany jest „wartością zwracaną 
przez funkcję”. Każda funkcja w języku C może zwrócić do miejsca 
wywołania tylko jedną wartość. W tym miejscu można postawić py- 
tanie: jak zatem przetwarzać tablice za pomocą funkcji? Z powyższe- 
go wynika, że przekazanie do funkcji, jako argumentów, elementów 
tablicy jest praktycznie niemożliwe. I owszem, jest to prawda, gdy 
chcielibyśmy przekazać do funkcji wartości poszczególnych elemen- 
tów tablicy. Jednak problem ten można rozwiązać inaczej. Po prostu 
zamiast przekazywać do funkcji wartości elementów tablicy, można 
przekazać jako argument funkcji, adres początku tej tablicy. W ten 
sposób doszliśmy do pojęcia „wskaźnik”. 

Wskaźnikiem w języku C jest zmienna, zawierająca adres innej 
zmiennej. Sposób operowania zmiennymi programu za pomocą ich 
adresów jest początkowo szokujący dla programisty przyzwyczajone- 
go do używania zmiennych poprzez ich nazwy, jak ma to miejsce w 
językach wysokopoziomowych. Jednak mechanizm wskaźników, co 
pokażemy w dalszej części, w niektórych sytuacjach jest znacznie wy- 
godniejszy w stosowaniu i umożliwia tworzenie bardziej zwartego i 
efektywnego tekstu źródłowego programu. 

Język C oferuje programiście również klasyczny sposób przetwa- 
rzania tablic, polegający na odwoływaniu się do ich elementów po- 
przez indeksy. Taką metodę przetwarzania tablic zastosowano w pro- 
gramie 1. Należy w tym miejscu zaznaczyć, że wszystkie programy 


zawarte w niniejszym artykule zostały napisane przy wykorzystaniu 
kompilatora Deep Blue C przeznaczonego dla mikrokomputerów 
ATARI XL/XE. 

Program 1 realizuje funkcję przestawiania elementów tablicy 
znakowej (łańcucha) w taki sposób, że pierwszy znak staje się ostat- 
nim, drugi przedostatnim, itd. Łańcuch wczytywany jest z klawiatu- 
ry do tablicy wyraz [120] za pomocą funkcji gets[] z biblioteki AIO 
kompilatora DBC. Operacja przestawiania znaków realizowana jest w 
pętli: 

for(i=0, j=dl — i;i<j; i++,j )$( 

znak=wyraz[i]; 
wyraz[i]=wyraz [jj; 
wyraz[j]=znak; 

S); 

i, j są indeksami „maszerującymi” wzdłuż tablicy wyraz [], i — od jej 
początku do końca, j — od końca do początku. Zmienna dl zawiera 
długość tablicy wyraz [] (liczbę znaków). Cały program składa się z 
dwóch funkcji main[J i czydalej []. Zadaniem funkcji czydalej[] jest 
tylko eleganckie zakończenie programu. Natomiast zasadnicza część 
PrearaM i 

* program Przestaw tank a 
*/ 

mainOf C 

Char znak, wyraz 112® 3, 

»nt i, j, dl; 
doiC 

printf c " .nnapisz dowolny wyraz: srrj; 
dlagetscwyraz) j 
ifCdl<*®3 continua; 
printf C" .nNapisaies: \n”3; 
forCi-®, i <-dl-li i-t+J 

printf C" v.C", wyrazi iJ3, 

/* *araz przestaw znaki we wprowadzonym wyrazie *✓ 
forCł=®. j-dl-1; i iji i**, f — )*C 
znak*wyraz£i3, 
wyr azc i 3 -wyrazi >3 ; 
wyrazi iJ =znak; 

*3 /* koniec pętli for #/ 

/* wyświetl przestawiony wyraz */ 
printft " ,np tak to wyglada po przestawieniu\n“3; 
forCi=®, i < —d 1 — 1 y i++3 

printf C" y.c", wyrazi i3 3; 

Ś3 /* l-oniec do 
whiieCczydalejC33j 
*3 /* koniec main */ 

s* 

* funkcja czvdalej(3 

czydalejC3*t 

int stat, odP, T, t, N, n; 

char #u, od, zer, i; 

i«‘ 1 •; 

od- ■ a • ; 

zer- • ® • ; 

U»"K. "i 

T*aa ; kod litery T */ 

t— l 16; /* kod litery t */ 

N*7«; /* kod litery N #✓ 

n=i 1®, /* kod litery n 

stat-openCł. od, zer, u3; /* otwarcie "K " z iocb i */ 

if Cstat !»13»C 

printf C"\n\g0lad otwarcia K: ”3; 
return; 

tj /* koniec if */ 
do*c -# początek do #/ 
printf f\nCzy chcesz kontynuować? "3; 
odP*cgetcf i), 

if Codp ! =T u odP 1 - 1 ki odP!-N ki odp!=nj»C 
printf C"\n ^Odpowiedz albo T albo N"3; 
continua; 

»3 /* koniec if */ 

»3 /* koniec do */ 

Whi 1 et OdP ! =T ki OdP f — t ki OdP 1 -N ki OdP ! -n 3 , 

ClOSeC i 3 ; 

returnCCodp— T II odp—tj ? i . ®) ; 

S3 koniec czydalejtj 

programu tj.: wczytywanie łańcucha znaków z klawiatury, przesta- 
wianie jego elementów oraz wyświetlanie go w postaci wczytanej i po 
przestawieniu realizowana jest w funkcji main[]. Widać, że pętla ta 
poza odmiennym sposobem jej zorganizowania ( for(...)) nie różni się 
od pętli realizujących podobną funkcję, tworzonych na przykład w 
języku BASIC. 

Załóżmy, że w tworzonych programach będziemy musieli dosyć 
często wykonywać operacje przestawiania elementów tablicy znaków. 
Dobrze byłoby zatem przenieść operację przestawiania do funkcji, 
której argumentami byłby adres tablicy i liczba jej elementów. Na- 
zwiemy tę funkcję przestaw]]. Wówczas, w miejsce omówionej wyżej 
pętli możemy umieścić jej wywołanie postaci: 
przestaw( tablica, liczbael); 

Aby taką funkcję napisać musimy posłużyć się wskaźnikami. 
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Zmienne wskaźnikowe lub krótko wskaźniki, podobnie jak wszyst- 
kie inne zmienne w języku C, muszą być zadeklarowane przed ich 
użyciem. Każdy wskaźnik posiada typ związany z obiektem (zmien- 
ną, tablicą), który wskazuje. Deklaracja: char* U; nakazuje kompila- 
torowi języka C utworzenie wskaźnika typu znakowego, tzn. takiego, 
który wskazywał będzie obiekty tego samego typu. Natomiast dekla- 
racja: int* i; nakazuje kompilatorowi utworzenie wskaźnika typu cał- 
kowitoliczbowego, tzn., że wskazywane przez niego obiekty są 
zmiennymi lub elementami tablic tego samego typu. Sam fakt zade- 
klarowania w programie zmiennych wskaźnikowych nie wiąże jeszcze 
wskaźnika z tablicą. Aby wskaźnik można było w programie sensow- 
nie wykorzystać musi on zostać prawidłowo zainicjowany, tzn. musi 
mu zostać przypisana wartość będąca adresem jednego z obiektów 
programu. Używanie wskaźników bez nadania im wartości począt- 
kowych jest częstym błędem popełnianym przez początkujących pro- 
gramistów w języku C. Wskaźniki są dla programisty alternatywną 
metodą przetwarzania dużych obszarów danych. Alternatywną, gdyż 
jak wynika z przedstawionego programu i obszary takie można 
przetwarzać stosując metodę indeksowania elementów, z których 
składają się te obszary. Kompilatory języka C realizując deklarację 
zmiennej wskaźnikowej nie kontrolują, czy został zadeklarowany 
obiekt, który ma być wskazywany przez wskaźnik. Stąd tak istotne 
jest poprawne inicjowanie wartości wskaźników . 

Jeżeli umieścimy w programie deklarację: 
char tablica [100] 

i zadeklarujemy wskaźnik tego samego typu: 
char * wsk; 

to instrukcja: 

wsk - & tablica[0] 

inicjuje wskaźnik wsk na zerowy element tablic}’, innymi słowy: 
przypisuje wskaźnikowi wsk adres zerowego (elementy tablic w języ- 
ku C numerowane są od zera) elementu tablicy. Poprawne w języku 
C jest również inicjowanie wskaźnika w taki sposób: 

wsk = & tablica(i); gdzie i — zmienna typu int 
Operator jest operatorem adresu, powodującym przypisanie 
zmiennej wskaźnikowej wartości będącej adresem zmiennej stojącej 
po jego prawej stronie. 

W języku C nazwa tablicy jest wskaźnikiem. Kompilator C każde 
odwołanie do elementu tablicy realizuje posługując się wskaźnikiem 
do jej początku. Zatem poprawne jest również zainicjowanie wska- 
źnika instrukcją przypisania: 

wsk=tablica; 

.należy zwrócić uwagę, że w tym przypadku w instrukcji została użyta 
nazwa tablicy bez nawiasów [..], w których podaje się wartość inde- 
ksu elementu tablicy. 

Jeżeli w programie zadeklarujemy tablice i zmienną wskaźnikową o 
takiej samej nazwie, np.: 

char tablica] 100] 
char * tablica; 

Funkcja i 

/* 

* funkcja przestawce 

*/ 

przestawewyraz, długości 
char #wyraz; 
int długości 

$C /* początek funkcji */ 
char znak; 
char #koniec; 
dlugosc-el; 
kon i ec=wyr az+d 1 ugosc; 
f orC; wyraz < koniec; wyraz++, koniec — e iC 
znak=*wyraz> 

*wyraz=*koniec; 

*koniec=znak; 

♦i /* for */ 
return; 

te /* koniec funkcji przestawce */ 


11 




to ostatnią deklaracja jest jednocześnie ptłpraWnytti Zainicjowaniem 
wskaźnika o nazwie tablica (wskazuje on początkowy element tablicy 
o tej samej nazwie). 

Z faktu, że nazwa tablicy jest traktowana w języku C jak wskaźnik 
wynika, żc deklaracja wskaźnika jest równoważna deklaracji tablicy. 
NP.: jeżeli zadeklarujemy wskaźnik 

char * kom; 

to jest to równoważne deklaracji tablicy o nieokreślonej liczbie ele- 
mentów. Oczywistym jest, że po takiej deklaracji wskaźnik ten je- 


prograH 2 

/* 

* program Przestaw i anka 


e-j.8 


HiainOSC 

char znak, wyraz C 1 2 03 ; 
int i, i, dli 
dotC 

printf C"\nNapisz dowolny wyraz: \n"3> 
di=getscwyrazJ; 
if Cdi <•-©) continua, 
print£C"\nNapłsales: \n"3, 
forCi-0; i < *d 1 - 1 j 1++3 

printfC" xc”, wyrazCillj 

/* teraz przestaw znaki we wprowadzonym wyrazie «■/ 
przestawC wyraz, di3 j 
/* wyświetl przestawiony wyraz *■/ 
printfftnfl tak to wygiada po przast*wj*niu\n”3; 
forCi*0; is-dl-l; i++3 

printfC" kie", wyrazCiJJ; 

$3 /* koniec do */ 

whi leCczydalef O 3 j 
13 /* koniec main */ . . 


szcze niczego nie wskazuje. Instrukcja: kom=„Naciśnij dowolny kla- 
wisz” wprowadzi do tego wskaźnika adres tekstu zawartego pomię- 
dzy znakami ■23 

Funkcja przestaw[] napisana z wykorzystaniem zmiennych wska- 
źnikowych ma postać: 

Funkcja ta wykorzystuje dwa wskaźniki o nazwach wyraz i koniec. 
Wskaźnik wyraz wskazuje początek tablicy o nazwie wyraz, a wska- 
źnik koniec — koniec też i tablicy. Zatem wskaźniki te pełnią po- 
dobną rolę jak indeksy i, j w programie 
1. Instrukcja: 

znak~*wyraz; 

przypisuje zmiennej o nazwie znak element tablicy wyraz wskazywa- 


ny przez wskaźnik wyraz; 

natomiast instrukcja: S il' -\\ 

wyraz= *koniec; •J' f * 

przypisuje elementowi tablicy wskazywanemu przez wskaźnik wyraz 
element wskazywany przez wskaźnik koniec, czyli przy pierwszym 
obiegu pętli do pierwszego elementu tablicy zostanie w^Ów‘a|d|o|y 
ostatni, w drugim przebiegu pętli do drugiego elementu z<fe‘tą$ie 
wprowadzony przedostatni, itd. 

Z analizy działania tej funkcji wynika, że na wskaźnikach można 
wykonywać operacje arytmetyczne, jest to zgodne z prawdą. Wska- 
źniki są adresami. Zatem wykonywanie na nich operacji dodawania i 
odejmowania jest wykonywaniem operacji na adresach. Wyrażenia w 
pętli for[] wyraz+4- i koniec zwiększają i zmniejszają o jedeti od- 

powiednio wskaźniki wyraz i koniec. To zwiększanie o jedendnie nale- 
ży interpretować jako matematyczne dodanie jedynki;^ Operacja 
zwiększenia (zmniejszenia) wskaźnika o jeden oznacza, żb po jej wy- 
konaniu wskazuje on następny (poprzedni) element tahbcyi. Mając to 
na uwadze nie wolno w programie w języku C dodawać lub odejmo- 
wać od siebie wskaźników różnych typów np.: char i int. Wynika ło z 
faktu, że zmienne typu int i char są różnej długości, iw w booi jfn 
Możemy teraz napisać nową postać programu 1 , używając skon- 
struowanej funkcji przestawf]. 1 

Reasumując, należy stwierdzić, że wskaźniki i funkcje :są elemen- 
tami języka C, które decydują, że język ten posiada wiele walorów w 
porównaniu z innymi językami wysokopoziomowymi: Sunkcje ,z 
możliwością ich oddzielnego kompilowania i tworzenia z >iph kodów 
półskompilowanych bibliotek, są szczególnie cennym mechanizmem. 
Mechanizm ten stanowi niejako możliwość definiowania własnych, 
specyficznych „instrukcji”, które raz zdefiniowane mogą hyóaawSze 
używane. bUibsonfi 

Wskaźniki natomiast, w połączeniu z cechami instrukcji stefują- 
cych języka C, umożliwiają tworzenie bardzo zwartego : Rodu, źródłd- 
wego programu. Możliwą do uzyskania zwartość ilustruje przedsta- 
wiana prawie we wszystkich publikacjach na temat tego języka ins- 
trukcja: !, ,7 

while(*s++=*t++); f v ‘ 7 ; ;: 'ul 

która kopiuje łańcuch znaków t do łańcucha s. Czy można zaprogra- 
mować to krócej w innym języku? krakuski 

Z. DYJAK 



Nauka • Technika 

W Japonii opracowano nowy . ( typ 
komputera optycznego Cokreólpny mianem 
neuro-komputara), który Jest w 3tanle 
nauczyć się Jak odróżniać obrazy. Jego 
budowa oparta Jest na układach 
elektronicznych skonstruowaWj|ch ten 
sposób, że Imitują one strukturę 
neuronów ludzkiego mózgu. Nowy 

komputer optyczny, znajdujący się 
dopiero w początkowym stadlijup rozwoju. 
Jest w stanie rozpoznać znaki 1 
kształty, a następnie : i» jnlarę 
dokładnie Je odwzorować. W początkowym 
stadium uczenia się komputer, optyczny 
odtwarza znaki czy kształty j w sposób 
niedokładny. Jednakże ; po 

przeanalizowaniu różnic pomiędzy 

znakami *na wejściu' i 'nś, wyjdfclu’ 
komputer koryguje swoją pamięć) 1 
ostatecznie odwzorowuje r włs&lćlwe 
znaki. W dodatku, gdy znak zok^Leił 
całkowicie zapamiętany przez ' komputer 
Jest on w stanie wybrać Leni sąni znak 
spośród innych, nawet jedli'; Jest, fj ęn 
nieco zniekształcony. Ta 1 : funkcja 
kojarzenia. zdaniem japońskich 

naukowców, oznacza, że w przyszłości 
udoskonalone komputery optyczne będą 
mogły czytać ręcznie pisane znaki. 

Ciąg dalszy na str, 22 


Awaryjne przerwanie 
programu ZX 


Często podczas działania programu przewidujemy opqę jego 
zatrzymania (przerwania) przez naciśnięcie określonego klawisza 

W Basic'u uzyskujemy to przez kontrolę klawiatury rozkazem 
INKEYS Ta metoda ma jednak swoje wady: przede wszystkim 
reakcja programu na naciśnięty klawisz istnieje tylko podczas wy- 
konywania instrukcji INKEYS. to znaczy, że aby reakcja na naciś- 
nięty klawisz była szybka, to ta instrukcja musi wykonywać się 
częste Po drugie: program jest wolniejszy, gdyż każde wykonanie 
instrukcji INKEY$ pochłania określony odcinek czasu. Stąd jest to 
metoda w wielu przypadkach nieekonomiczna 

Istnieje jednak inny sposób wykorzystujący łakt, że co 20 ms 
komputer kontroluje klawiaturę wykorzystując przerwania w trybie ' 
pierwszym (IM 1 ) 

Prezentowany program pracuje w trybie drugim (IM 2). Co 
20 ms następuje me tylko kontrola klawiatury, ale również test. czy 
naciśnięto zadeklarowany klawisz. Jeśli tak. to zostaje wymuszony 
skok do określonej przez użytkownika linii programu. Skok do za- 
danej Imn programu uzyskuje przez wstawienie do zmiennej sy- 
stemowej NEWPPC numeru tej linii. 

Procedura nie działa podczas wykonywania rozkazów GO TO. 
GO SUB, RETURN ponieważ instrukcje te zmieniają wartość 
NEWPPC Nie jest to jednak poważne ograniczenie, gdyż zmienna 
systemowa LASTJ< pamięta ostatnio wciśnięty klawisz i zaraz po 
wykonaniu wyzei wymiemonycn rozkazów nastąpi przerwanie 

Współpraca z programem 

RANDOMIZE USR 65529 — włącza tryb pierwszy przerwać, 
wyłącza działanie programu 

RANDOMIZE USR 65517 — włącza tryb drugi przerwać, uru- 
chamia program 

komórki o adresach 65526 i 65527 zawierają numer linii w Ba- 
sic'u, do której nastąpi skok podczas wy- 
muszenia przerwania 

komórka o adresie 65528 zawiera kod znaku klawisza wymu- 
szającego przerwanie 

UWAGA: jeżeli nastąpi wymuszenie przerwania do nieistnieją- 
cej linii, wtedy nastąpi przerwanie wykonywania programu i uka- 
że się komunikat systemu. 

Krzysztof POŹNIAK 

*********************** 
Krzysztof Poźniak 

awaryjne przerwanie 
programu 

©1988 

*********************** 


ł? m 

as REM 

13 REM 

14 REM 

15 REM 

16 REM 
1? REM 

18 REM 

19 REM 


100 CLERR 65488 

110 LET s=0 

111 FOR K =65489 TO 65535 
11S RERD l 

113 LET s=s + l 

114 POKE 1 , l 

115 NEXT K 

116 IF S < >5279 THEN BEEP 1,10: 
PRIMT "z te dane!!": STOP 

120 BEEP 1,10 

125 LET nr Unii =9000 

126 POKE 65526 .nr lini i -256*INT 
(nrlinii /256> : POKE 65527, INT in 
r l i n i i /256) 

130 PRINT : PRINT "nacisnij ten 
Hawisz, Którym zatrzymasz p 
rogram" 

136 PRUSE 0 , 

140 LET X*=INKEY* 

145 POKE 65528, CODĘ X* 


150 PRINT "teraz program przerw 

lesz Klawiszem: * uruchom 

isz od linii " ; nr lin i i , " obsługę 

przerwania" 

151 FOR K = 1 TO 100: NEXT K: PRI 

NT "wciśnij ENTER": PRUSE 0: 

155 RRNDOMIZE U5R 65517 
200 FOR K = 1 TO 10000: PRINT RT 

10 , 10; " li czni K : " , K : NEXT K: STO 

p 

1000 DRTR 205,56.0,245,229.33,24 
8,255,58,8,92,190,32,11,42,246.2 

55.34 . 66.92.62.1.50.68.92. 225 . 24 

1.201 . 62.59. 237 .71.237.94.201.24 
,219.40,35.115, 237,86 ,201,0,0,0, 
24,5279 

9000 RRNDOMIZE USR 6SS29 : PRINT 
PRINT "została uruchomiona obs 
luga przerwania " 


08012 ; program wyKorzystuje przerwa- 

00013 ; nia masKowalne, ustawia tryb 2 

00014 ; przerwań. 

00015 ; program nie jest reioKowalny. 

00016 ; 

00017 rej. i equ 59 ; wartość rejestru 
00013 ; przerwań 

00019 ; 

00020 ; adres procedury ROM-u 
80021 Keyb egu 38h i Kontrola Kla- 

00022 ; wiatury 

00023 ; 

00024 ; adresy zmiennych systemowych 

00025 newppe egu 5c42h 

00026 nsppc egu Sc44n 

00027 iast_k egu scOSh 

00028 ; 

00029 OC9 65489 

00030 i 

00031 ; rozszerzenie przerwania 

00032 ; program wyKonywany w czasie 

00033 ; przerwania 

00034 przerw cati Keyb 


00035 

PUSh 

af 

00036 

PUSh 

hl 

00037 

Id 

hi, adrznK 

00038 

Id 

a, Uast_K) 

00039 

cp 

(hl) 

00040 

jr 

nz, Koniec 

00041 

Id 

hl, inrlin) 

00042 

Id 

(newppe), hl 

00043 

Id 

a,l 

00044 

Id 

(nsppc) ,a 

00045 

Koniec pop 

hl 

00046 

pop 

af 

00047 

ret 


00048 

• 


00049 

; inicjatizacja trybu 2 

00050 

tryb 2 id 

a, rej. i 

000S1 

Id 

i, a 

00052 

im 

2 

00053 

ret 


00054 

adrprw jr 

przerw 

00055 

/ 


00056 

zmienne procedury 

00057 

nrtin dw 

90®O ; numer linii 

0005S 

adrznK db 

's- ;K.od zna Ku 

00059 

i 


00060 

; inicjalizacja trybu i 

00061 

trybl im 

i 

00062 

ret 


00063 

org 

65535 

00064 

jr 

13 

00065 

end 
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ZX SPECTRUM 


Wesołe zdania 


Ten program ma charakter typowo rozrywkowy 
Generuje za pomocą generatora liczb pseudclosowych (RND) 
zdania złożone z przypadkowo wybranych słów Dowcip i sens 
tych zoan zalezą wyłącznie od programisty, który w liniach DATA 
umieszcza zestawy wyrazów 

Chciałbym nadmienić, ze pierwszą wersję tego programu napi- 
sał mój koleaa z Klubu Mikrokomputerowego HOBBYTE" Krzysz- 
tof Herman Krzysztof POŻNIAK 

5SH *********************** 


11 REM * 
1S REM * 

13 REM * 

14 REM * 

15 REM * 

16 REM * 

17 REM 


•Krzysztof Pozniak 
wesołe zdania 


©1986 * 

18 REM *********************** 

20 CL3 

30 RESTuRE 9000 

40 LET n»5; REM ilosc wyrazów 
v zdaniu 

60 LET Kaio rem ilosc wyrazów 
w zestawie 

60 LET iai0. REM maksymalna 

dług. wyrazu 

70 DIM t$ (n , k , i ) 

60 DIM d t n , k ) 

90 REM wczytywanie danych 
100 FOR mai TC n 
11© FOR lal TO k 
12© RERD w$ 

130 LET dlugsLEN w$ 

140 IF dlug>i TMEN PRINT "wyraz 
jest za długi": STOP 
150 LET t $ t m , ł ) sini 
150 LET d (m , l ) »d ług 


170 NEXT ł 
180 NEXT n. 

19C REM generowanie zdań 
200 FOR »ai TC n 
210 LET x =1 + INT UtRND) 
220 PRINT t$(» ,X,1 TO 


230 

240 

250 

9000 

2010 

9020 

9030 

ly" , " 
y , "s 
9040 
9050 
, "za j 
ac'~ 

, "wa r 
9060 
9070 
pcdg ł 
zjadł 
w y r z u 
9080 
9090 
" • "P i 
O" , "z 
lego " 
9100 
9110 
która 
, "poe 
rza " 


NEXT m 
PRINT 
GO TO 200 
REM Zbiór 
REM 

REM wyraz 
DRTR "zwar 
rzy wy " , " ku 
g luchy " , ' t 
mieszny " 
REM wyraz 
ORTR "tanc 
ac" witko 
nau kow i e c " 
i a t 

REM wyraz 
DRTR "ugry 
ada l" , "koc 
", “obr a bo w 
ci ł " , "wyn 
REM wyraz 
DRTR "o kro 
eknego " . "g 
i e łonego " , 
, "mądrego " 
REM wuraz 
DRTR "aman 
" , "muzyka" 
te" /‘upiór 


wyrazów 
Pi erwszy 

iowany" zakocha n 
ławy" , "weso ły " , “z 
chorziiwy" ,"glodn 

drugi 

erz .."piosenkarz" 
ła k " , jas i u ‘ , "pa j 
, "sze f “ , ‘ bandyta" 


zeci 

" , 'zama łowa t 
l" , "ugo towa i 
" , "po ca łowa l 
z L" 
warty 

ego " , "w ie l k i 
ba tago " /'sta 
dwaznego " , "z 
smutnego" 
a ty 

" , "pokrakę " , 
smoka " , "p i ja 
/'ciecia"/'# 


ego 
reg 
gn i 


"do 
ka" 
u r a 


Ochrona danych podczas 
wykonywania instrukcji CLEAR 


Prezentowany program, a dokładnie linia 70. pozwala na ochro- 
nę danych podczas rezerwowania miejsca instrukcją CLEAR. Me- 
chanizm ochrony polega r;a przypisaniu obszarowi programu ob- 
szaru zmiennych na czas działania instrukcji CLEAR w linii 70. Po 
wykonaniu tej instrukcji odtwarza sie stare granice obszarów 

1 REM ***ł******ł*łłt**łł*»** 

a rem 

Krzysztof Pozniak 


ochrona danych podczas 
wy konywan i a CLERR 


3 REM 

4 REM 

5 REM 

6 REM 

7 REM 

6 REM ©1983 

9 REM a********************** 

10 CLERR 50000 
20 U ET a =1 

30 PRINT "zmanns a*";a 
4.0 PRINT "CLERR* " ; PEEK 23730+2 
SE+PEEK 23731 


S0 print # 0 , "wciśnij dowomy l 
law i sz " 

30 PRUSE 0 

70 POKE 23723, PEEK 23627: PCKE 

23729, PEEK 23628. L5T x =PEEK 23 
S41+2S8+PEEK 23642-1. POKE 23627 
, x -256* INT (x/25S> : POKE 23626,1 
NT (X/2S6) : CLERR 40000. POKE 23 

627, PEEK 23728. POKE 23628 , PEEK 
23729 

80 PRINT "zmisnna a=",a 
90 PRINT “CLERR*" : PEEK 23730+2 
56+PEEK 23731 

Uwaga: gdyby argument instrukcji CLEAR spowodował błąd 
systemu, wtedy samemu należy ustawić granicę obszaru zmien- 
nych pobierając tę wartość z komórek pamięci o adresach 23728 
i 23729. Komórki te nie są używane przez system 


Krzysztof POŻNIAK 
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Hans Hoier 

• Jaki fest pana przepis na udany interes 
w informatycznej branży? 

— Nie ma chyba uniwersalnej zasady. 
Prosystem jest firmą handlową, stąd dla nas 
najważniejsza jest jakość sprzedawanego 
towaru i sprawność obsługi klienta. Dodać 
należałoby jeszcze skuteczną reklamę, do- 
bry serwis , no i oczywiście znajomość ryn- 
ku. '• ; r! ' ; 

• i języki. 

— 1 Nib ma w tym nic dziwnego. W Polsce 
bywam 25 razy w roku. Oczywiście język nie 
jest jak widać najsilniejszą moją stroną. 
Chociaż brardzo pomaga w pracy. 

• lie już lat pańska firma poznaje 
Polskę? 

• — Dziesięć. 

• Będzie.zatem jubileusz. 

— W maju. 

• Czy udany 9 

— Nasze kontakty handlowe są z roku na 
fok coraz większe. Sprowadzaliśmy i spro- 
wadzamy dó Polski odzież z najwyższym 
znakiem jakości. O trzech lat zajmujemy się 
również 1 sprzętem komputerowym. Swoim 
zasięgiem obejmujemy też NRD, Czecho- 
słowację i Związek Radziecki. 

• Który ż tych krajów jest najpoważniej- 
szym klientem? 

— Bez wątpienia Związek Radziecki. To 
bardzo wymagający, ale i bardzo chłonny 
rynek. W Polsce mamy znacznie większą 
konkurencję, powiedziałbym nawet, że in- 
formatykę opanował żywioł. 

• I dobra koniunktura. 

— W tej chwili największe interesy robi 
się sprzedając sprzęt, gdy tymczasem na 
óałym świeęie niezwykle drogie jest opro- 
gramowanie. W Polsce najdroższe nawet 
programy kopiuje się bezkarnie. 

• Dlatego w waszej ofercie znajdują się 
jedynie komputery i urządzenia peryferyjne? 

— Sprzedawanie oprogramowania jest 
dziś jeszcze nieopłacalne. Nie pomogą za- 
bezpieczenia przed kopiowaniem, jeśli nie 
ma odpowiednich przepisów chroniących 
prawa autorskie twórców programów. Teraz 
można sprzedać kilka egzemplarzy, a już za 
pałę dni pojawią się pierwsze kopie, którymi 
będą handlować już inni — a my jesteśmy 
bezsilni. Dlatego wolimy sprzęt. 

• W sklepach Centralnej Składnicy Har- 
cerskiej prowadzącej sprzedaż waszych 
towarów często pojawiają się nowe modele 
komputerów, ale nie wszystkie znikają? 

— Początkowo sądziliśmy, że minikom- 
putery MSX mogą być przeznaczone do 


Żywioł 

i koniunktura 


Rozmowa z dyrektorem firmy PROSYSTEM 
COMPUTER TECHNJC - HANSEM HOFEREM 


szkół. Dyskusja o tym, jaki sprzęt ma trafić 
do uczniów trwała długo. Teraz nasza oferta, 
to głównie urządzenia profesjonalne. 

• Za złotówki? 

— Ilość sprzętu sprzedawanego za zło- 
tówki jest ograniczona. Natomiast wszystko 
możemy dostarczyć za dewizy. W tej chwili 
w sklepach składnicy można kupić na przy- 
kład mikrokomputery BONDWELL BW 38-2, 
BONDWELL BW-8s, SVI-838 X'PRESS 16, a 
także stacje dysków, dyski twarde, monitory, 
drukarki, dyskietki. 

• To zestaw standardowy. 

— To prawda. Sprzęt o podobnym stan- 
dardzie sprzedaje prawie każda z. wielu dzia- 
łających spółek Ale sądzę, że nasza pełna 
oferta jest znacznie atrakcyjniejsza. 

• Co proponujecie? 

• Przede wszystkim aplikacje profesjo - 
nuine. na przykład systemy komputerowego 
wspomagania projektowania inżynierskiego, 
tworzone na 32 -bitowych komputerach. W 
skład oprogramowania wchodzą pakiety 
grafiki trójwymiarowej, programy służące do 
projektowania obwodów drukowanych i 
przygotowania klisz do produkcji płytek dru- 


kowych, a także systemy sterowania obra- 
biarkami. numerycznymi. 

• Dziedzina ich zastosowań jest bardzo 
wąska. 

— Ale właśnie tam coraz częściej wyko 
rzystuje się sprzęt komputerowy. Mamy też 
coś dla dziennikarzy, a raczej dla wydaw- 
ców — systemy komputerowej edycji skła- 
du i drukowania tekstu i grafiki. Dziennika- 
rzom może się też przydać telefax i telefon z 
możliwością transmisji obrazu, a urządzenie 
to uzyskało już atest i jest dopuszczone do 
; zastosowania w krajowej sieci telefonicznej. 

• Zainteresowanie sprzętem jest jednak 
proporcjonalne do możliwości jego zasto- 
sowania. Co zatem sprzedaję się najlepiej? 

— Wszystko, co utrzymane jest w stan- 
dardzie IBM. Sądzę, że już niedługo wzroś- 
nie zainteresowanie sieciami i szybkimi, 32- 
-bitowymi komputerami wyposażonymi w 
zegar o częstotliwości 24 MHz. Moi klienci 
coraz częściej bardzo konkretnie formułują 
swoje wymagania, są dobrymi partnerami. 

• I tylko takich właśnie panu życzę. 
Dziękuję za rozmowę. 

Wiesław CETERA 


Telefax (Folo: S. Bibulski) 
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Jeśliby mierzyć skale informatyzacji naszego kraju częstotliwością I 
rozmachem imprez handlowych to bez wątpienia znaleźlibyśmy się w 
europejskiej czołówce, a już z pewnością na pierwszym miejscu wśród 
krajów RWPG. Po „Komputerze 88”, kameralnych wystawach w war- 
szawskim „Forum” handlową galę organizował Poznań. Od 25 do 29 
kwietnia na terenie Międzynarodowych Targów Poznańskich trwały Mię- 
dzynarodowe Targii Elektroniki, Telekomunikacji i Techniki Komputero- 
wej „Infosystem ’88”. Jest to impreza, która w ubiegłym roku gościła we 
wrocławskiej Hali Ludowej. Zorganizowano ją z inicjatywy „Przeglądu 
Technicznego” w 120— lecie tej redakcji, co bez wątpienia dobrze pod- 
kreślało charakter gazety — organu programowo związanego z postępem. 
„Infosystem ’87” rozbudził wiele namiętności, a patronat, jaki nad nim 
roztoczył Urząd Postępu Technicznego i Wdrożeń wróżył mu różową ra- 
czej przyszłość. 


Przez rok impreza dojrzała i znacznie roz- 
szerzyła swą tematykę. Hala Ludowa zrobiła 
się zbyt ciasna, a i wyspecjalizowana insty- 
tucja, jaką są Międzynarodowe Targi Po- 
znańskie potrafi informatyczną fiestę zna- 
cznie lepiej przygotować — co już na wstę- 
pie podkreśla słuszność tezy, iż żadna dzia- 
łalność nie znosi amatorstwa. o czym warto 
pamiętać w kontekście różnorodnej działal- 
ności informatycznej. 

Na „Infosystem '88” przywieziono sprzęt, 
urządzenia i systemy komputerowe prze- 
znaczone dla wielu dziedzin. Na stoiskach 
znalazły się także urządzenia teletransmi- 
syjne, radiokomunikacyjne i radiolokacyjne, 
urządzenia technologiczne dla przemysłu 
elektronicznego, podzespoły i oprogramo- 
wanie. Oferowano też usługi w zakresie 
przetwarzania danych, a także kompletacji i 
montażu sprzętu, literaturę fachową. 

Z zapowiedzi wynikało, że będzie to im- 
preza atrakcyjna, na najwyższym świato- 
wym poziomie. Ponad dwieście anonsowa- 
nych firm zwiastować miało lepsze jutro dla 
rozwoju informatyki. Tymczasem nie było 
ICL — firmy znanej i zadomowionej w Pols- 
ce, z udziału w imprezie zrezygnowała fir- 
ma Olivetti. 

Nie sądzę jednak, aby te fakty odbiły się 
na poziomie naszego rynku informatyczne- 
go, nic bowiem nie jest w stanie powstrzy- 
mać wzbierającej ciągle fali informatyzacji, 
która jest przecież synonimem postępu dla 
jednych i... dobrych interesów dla drugich 

Sprzęt czyli pieniądze 

Samopoczucie informatyków miał popra- 
wić rządowy program informatyki, obej- 
mujący siedem potężnych tematów i 17 
zamówień rządowych. W 1987 roku na ten 


cel przeznaczono 50 mld złotych, co jest 
sumą raczej niewielką, chociażby w porów- 
naniu z wydatkami na alkohol. „Statysty- 
cznej" flaszki nie można przeliczyć na kom- 
puter, choć kursy obu tych rzeczy trzymają 
się w Pewexie trzeźwo. Rozsądek stracić 
można dopiero wtedy, kiedy uspołecznieni i 
prywatni pośrednicy przeliczają ceny świa- 
towe na rodzimą walutę. Polski przemysł 
elektroniczny jest niedoinwestowany, jego 
udział w globalnej produkcji wynosi ok. 2,2 
procenta (wśród krajów socjalistycznych 
wyprzedzamy jedynie Albanię i Rumunię). 
Nasza szansa na przodownictwo w tej dzie- 
dzinie (jeszcze nie tak dawno w RWPG wy- 
przedzał nas jedynie Związek Radziecki) 
przepadła, a możliwości odrobienia zaleg- 
łości, realnie oceniając, nie są największe. 
Tymczasem potrzeby rosną: do końca tego 
stulecia w oświacie będzie potrzeba 700 tys. 
mikrokomputerów, w szkolnictwie wyższym 
30 tys., w przemyśle i budownictwie ok. 190 
tys., zaś w transporcie i komunikacji ok. 20 
tys. Tego, niemal miliona urządzeń nie wy- 
produkuje z pewnością „ELWRO", a i tak me 
jest to produkcja stwarzająca konkurencję, 
ani jakościową, ani cenową Tak, tak ceny 
komputerów na Zachodzie spadają średnio 
o kilkanaście procent rocznie (oczywiście 
nie chodzi o nowości) — tymczasem u nas 
jest odwrotnie. 

Komputery są towarem poszukiwanym, 
stąd też dobre interesy robią dziś ci, którzy 
pośredniczą w ich sprzedaży. Listę takich 
pośredników można ciągnąć w nieskoń- 
czoność. W tej branży zarabia się pieniądze 
szybko. Na szczęście jest to zdrowy rynek, 
który sprawnie eliminuje firmy niesolidne, 
udzielające na przykład fikcyjnych gwaran- 
cji na sprzęt, którego nikt nie potrafi napra- 
wić, 






TEM ’88 


Rzetelni dostawcy są znam Wśród nich 
niestety najwyższe ceny ma|ą firmy będące 
jednostkami gospodarki uspołecznionej, a 
wyiątek stanowi tu Centralna Składnica 
Harcerska, która sprzedaje sprzęt sprowa- 
dzany przez firmę Prosystem — na ogół nie- 
złej jakości (zgodny z IBM, produkowany na 
Tajwanie) i nawet tani. 

Co i za ile sprzedaje się gdzie indziej? 
Wystarczy wziąć jakąkolwiek gazetę — zna- 
leźć kolumnę ogłoszeń i sprawdzić telefoni- 
cznie. Jeśli ktoś myśli poważnie o kupnie 
komputera, to cierpliwość może być nagro- 
dzona. Komputery są. Trzeba mieć tylko 
pieniądze. Tyle sprzęt, 

a teraz oprogramowanie 
czyli dżungla 

Komputer wart kilka milionów jest dopiero 
początkiem drogi informatyki. Ta kupa 
wysokogatunkowego złomu zda się na nie- 
wiele, jeśli brak jest odpowiednich pro- 
gramów, a one swą wartością przewyższają 
często kilkakrotnie wartość komputera. Ta- 
kie relacje są na całym świecie, na którym 
należymy niestety do nielicznej grupy 
państw nieprzestrzegających praw autor- 
skich twórców programów komputerowych. 
Mamy bez wątpienia zdolnych i bardzo 
zdolnych programistów. Nasi „twórcy" 
(choć cudzysłów w tym miejscu jest raczej 
niepotrzebny) potrafią ominąć każde zabez- 
pieczenie programu, potrafią dokonać nie- 
zbędnych w nim przeróbek, a dokumentację 
szybko przetłumaczyć. W efekcie pojawiają 
się takie anonse: „do zakupionego u nas 
sprzętu dołączamy bogate oprogramowa- 
nie" i tu pojawia się obszerna lista progra- 
mów^ które przedstawiają często o wiele 
większą wartość niż składany w pośpiechu 
tajwański komputer. 

Poważni kupcy spoza naszych granic 
niechętnie umieszczają w swojej ofercie 
oprogramowanie. Sprzedaż kilku egzem- 
plarzy po prostu się nie opłaca, bowiem 
już wkrótce pojawią się pierwsze kopie za 
połowę ceny i taniej. 

Oczywiście mamy w dziedzinie tworzenia 
oprogramowania niewątpliwe sukcesy. Bez 
wątpienia na czoło wysuwa się tu Studio 


Kajkowskich, które nawet konie mówiące 
ludzkim głosem znają, zapraszając z ekra- 
nów telewizorów do salonu firmy w Sopocie. 

Proponowane ceny są bezkonkurencyjne 
(!) podobno, jak i jakość proponowanego 
oprogramowania W tym przypadku jednak 
największe bodaj znaczenie ma dobre imię 
firmy, która jest już w kraju znaną, a ludzie, 
którzy ją stworzyli mogą z pewnością zapi- 
sać plus po stronie sukcesu. 

Jakakolwiek forma wymieniania wystaw- 
ców „Infosystemu 88" jest daleko niepełna 
— bo przecież w targach udział wzięło po- 
nad 150 firm 

Pozostańmy zatem przy oferach, w każdej 
z nich znajdowały się żelazne pozycje: kad- 
ry, magazyny, księgowość i finanse. Już po- 
bieżny przegląd skłaniał do refleksji. Wiele z 
nich napisanych było głównie z myślą o 
programiście, a nie o użytkowniku Złośliwi 
żartowali, że były to propozycje zgodne z 
zasadą trzech Z: Zrobić, Zainkasować, Za- 
pomnieć. Racja, bo czasami i wstyd na to 
patrzeć! Niestety pewnie się zdarzy, że ktoś 
to kupi (ceny powyżej 400 tys. za sztukę). 

Wśród ciekawych propozycji programo- 
wych odnotować warto edytor tekstowy 
TAG przygotowany przez Spółdzielnię Pracy 
Informatyków — „Infoserwis". TAG jest gra- 
ficznym, pełnoekranowym edytorem tek- 
stów o prostej obsłudze, jasnej komunikacji 
z użytkownikiem. Kosztuje 180 000. Zainte- 
resowanie wzbudził też podręczny słownik 
polsko-angielski i angielsko-polski ofero- 
wany przez Computech z Krakowa. Produ- 
cenci żądali za niego 300 000 mając świa- 
domość, że tak naprawdę są to dwa auto- 
nomiczne programy umożliwiające dopiero 
wprowadzenie haseł słownika. Ale i tu cier- 
pliwość może być nagrodzona, inna firma 
DORAN, która w tegorocznym Infosystemie 
udziału nie bierze, proponuje podobny 
słownik, wypełniony już 1 5 tysiącami haseł i 
z dobrym oprogramowaniem, umożliwiają- 
cym podobno współpracę z edytorami tek- 
stów za 200 000. I jak tu nie wierzyć w 
prawdziwą konkurencję, która jestem prze- 
konany sprawi, że rynek informatyczny bę- 
dzie jednym z najzdrowszych. Czego sobie i 
Czytelnikom życzę. 

w. CETERA 
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„Kadryl 


Kolejny, piąty już, odcinek opisujący rozrywki matematyczne 
zgromadzone przez S. Jeleńskiego w „Lilavati” poświęcony będzie 
prostej grze planszowej nazwanej przez autora „Kadrylem Lucasa”. 
Nazwa gry pochodzi od nazwiska matematyka francuskiego Edwarda 
Lucasa. 

Gra jest przeznaczona dla 1 osoby, ale można także szukać rozwią- 
zania w zespole kilku graczy. 


Prezentowany program przedstawia zasady gry na ekranie informa- 
cyjnym, jak pokazano na poniższym rysunku. 



NACISNIJ * IX)MOI,NV KLAWISZ 


Następnie po naciśnięciu dowolnego klawisza ukazuje się plansza 
gry oraz informacje dodatkowe: 
a) w górnym wierszu: 

— dotychczasowy rekord (ilość punktów odpowiada ilości posu- 
nięć); 

— aktualny wynik (ilość posunięć w bieżącej grze); 
b) w wyszczególnionym oknie: 

— kolumna i rząd pionka, który chcemy przesuwać; 

— kolumna i rząd pola, na które chcemy przesunąć pionka. 

Przed wykonaniem każdego ruchu należy wprowadzić te parame- 
try wybierając numerycznie: kolumnę i rząd (wg oznaczeń planszy). 
Taką sytuację przedstawia poniższy rysunek: 

(oczywiście pionki mają dwa kolory: czarny i czerwony). 

Przed wykonaniem każdego ruchu programu bada, czy jest on do- 
puszczalny (zgodny z zasadami gry). W wypadku wprowadzenia błęd- 
nych parrtnetrów mikrokomputer wyświetla jeden z komunikatów: 


Danuta KWASIŻUR 
Mieczysław SKONIECZNY 

POLE ZAJETE; 

PRZESUNIECIE NIEMOŻLIWE; 
i powtórnie wraca w stan oczekiwania na parametry. i -\ 31'-' li - f 
W programie opracowanym w języku BASIC mikrokomputera 
AMSTRAD CPC 6128 wyszczególniono 2 tablice: , 

TABL(7,7) — zawiera wartości 0, 1 lub 2 dotyczące aktualnego 
rozstawienia pionków (0 — pole puste, 1 — pionek czarny,, 2 — pio- 
nek czerwony); / , 

TABLP(7.7) — zawiera rozstawienie końcowe pionków i służy do 
badania, czy gra zakończyła się sukcesem. 

Poszczególne fragmenty programu realizują następujące ćzyńnoŚci: , 

10 MODĘ 1: INK 0,26: INK 1,0: INK 2,6: INK 3,14:PAPER 3:B0RDER 14sCLS:PEN 

20 PR1NI 'NA KWADRACIE 49-P0L0NYH ROZSTAWIONE SA KRĄŻKI CZEAN0NE I C2 
?n N oń, a „Al „„ J LE stokowe JEST WOLNE. KORZYSTAJĄC Z TE 

MS Sg&TRGS!! C! ™« mm m " ,E1S “ » » 

30 fRIHI -WIIM PRIESUHAC KRĄŻEK ALBO *» SASIADU- JUCE POLE KOLNĘ ALBO 

s PiSbsbt \s^sjr ma “ mmi ' 

70 n!-Ó;"|-0 l:CLS, ™°“ ^1,20.40,3,151 PAPER tl,0:CLS El 
80 PAPER* §:PEN 2:L0CATE l.liPRINT 'REKORD: PKT • 

Ld R 5 P K5 S PEN !iPl0T 302,336:DRANR 334,0:DRANR 0,-334:DRANR -334 , OiO 

“nWN 0, ooo 

100 FOR k=0 TO 288 STEP 48 
110 PLOT 350+ k , 334 i DRAHR 0,-334 
120 PLOT 302, 288-k : DRAWR 334,0 
130 NEIT k 

140 SYMBOL AFTER 125 

150 SYHB0L 125,0,0,0,0,3,7.15,15 

160 SYMBOL 126,0, 0, 0, 255,253,255.129,126 

170 SYMBOL 1 27, 0. 0,0, 0. 1$2, 2*4. 2^0, 2^0 

180 SYMBOL 1 28, 3i. $9,2$. 29, 29 ,$9 ,2$, 30 

190 SYMBOL 129, 120, 184, 184, 184, 1&4, 184, 184, 120 

200 SYMBOL 130, 15.15,7 3 ’ ’ 

210 SYMBOL 131,126,129,255,255,255 

220 SYMBOL 132,240,240.224 192 

230 bl ( 1 ) e CHR* 1 125) ♦CHM (126) +CHRI (127) 

240 b * ( 2 ) =CHR$ ( 1 28 ) +CHR4 ( 1 43 ) +CHR4 ( 1 29 ) 

250 b* I 3) =CHR* (130) *CHRf (131) +CHRI (132) 

260 DIM tabl (7,7) 

270 DIM tablp(7,7) 

280 FOR k*l TO 7 
290 FOR i*l TO 7 
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REKORD : 


PKT 


JL 


2 


PKT 

3 4 5 6 7 


KOLUMNA? 

4 

RZĄD ? 

3 

PRZESUWASZ NA 

KOLUMNĘ? 

4 

RZĄD ? 

4 



300 READ tablpU.i) 

310 MEXT i 
320 NEIT k 

340 REaTDRE MiM k«i to 7 
350 FOR i=l TO 7 
360 READ tabl(k.i) 

370 MEXT i 
3B0 NEIT k 

390 DATA 2, 2, 2,2, 2, 2, 2, 2, 2,2, 2, 2, 2, 2, 2, 2,2, 2,2, 2.2,1, 1, 1,0,2, 2, 2, 1,1,1 
*’ lł ,f *• ,f 1,1 

<10 FOR i =1 TO 7 
<20 b=tabl ( k , i > i 60SUB 710 
<30 NETT i 
«0 NEIT k 

<50 PAPER 3:PEN 1 : FOR j=l TO 7 
<60 LOCATE I8łjl3,3«PRlNT USING ‘£‘:j; 

<70 LOCATE 18,3*jl3sPRlNT US1N6 ‘Cni 
<80 NEXT j 

<90 PAPER 3: PEN lsl.OCATE 31.1 jPR1NT • PKT * 

500 N1ND0N 12,1, 15,9, !7iPAPfR £2,lsCLS £2iPEN £2,0 
510 PKT=0 

520 CLS £2: PEN OjPAPER li LOCATE 1,10 iINPUT * KOLUHNA‘:!<l 

530 IF kl>7 OR kl<l THEN GOTO 520 

5<0 INPUT * RZĄD ‘;RZ1 

550 IF ril>7 OR rzl<I THEN 60T0 5<0 

560 PRINT:PRINT 1 PRZESUWASZ NA' 

570 LOCATE 1.15: INPUT ■ KOLUMNĘ* ; K2 
580 IF k2>7 OR k2<l THEN GOTO 570 
590 INPUT * RZĄD *:RZ2 
600 IF r:2)7 OR r:2<\ THEN 60T0 590 
610 IF TABL(RZ2.K2)*0 THEN 60T0 630 

620 CLS £2:S0UND i,358:L0CATE i, 13:PRINT • POLE ZAJETE*: FOR T=1 TO 800 
jNEXT TjSOTO 520 

630 IF K1=K2 AND RZ1«RZ2-1 THEN GOTO 720 
6<0 IF KI *K2 AND RZl=RZ2-2 THEN 6070 720 
650 IF K1=K2 AND SZ1=RZ2+1 THEN GOTO 720 
660 IF K1-K2 AND RZ!=RZ2+2 THEN GOTO 720 
670 IF K1=K2 -1 AND RZl*RZ2 THEN 60T0 720 
680 IF Kl*K2-2 AND RZI-RI2 THEN GOTO 720 
690 IF K1*K2+I AND RZ1=RZ2 THEN GOTO 720 
700 IF Kl=K2+2 AND RZ1=RZ2 THEN 60T0 720 

l l ?it S Ji s W« , X 35B!L0CATE Ij12:PRINT ■ PRZESUNIECIE* : PRINT ■ NIEMO 
ZLINE*: FOR T=1 TO MOjNEIT T:60ł0 520 
720 K=RZ1 : I=K1 : B=0: 60SU6 710: 

730 K*RZ2 : I*K2: B=TABL (RZ 1 , KI h 60SUB 910: 

740 TABL (RZ2, K2) “TABL (RZ1 ,K1) :TABL(RZ1<K1 ) a 0 
750 PKT=PKT*i 


760 PAPER 3: PEN li LOCATE 31,1:PRINT IJSIN6 *£££f£*;PKT 
770 FOR i=l TO 7 
780 FOR j=l TO 7 

790 IF tablli, jlOtablpli, jł THEN GOTO 520 
800 NETT j 
810 NETT i 

870 CI S £2:PRIHT £2:PRINT £2/ BRANO 1‘iPRINT £2:PR1NT £2, ‘UDAŁO SIE f 
* : PRINT £2 

830 FOR k=5 TO KiSOUND 1,258:S0UND l,320:BORDER k:FOR t=l TO lOlNEU 
tsNEIT k 

8<0 IF ol-l THEN gi*liPEH OiPAPER 3iL0CA7E 9,1:PRINT USING ‘£££££°;r> 
k:60T0 210 

850 IF PKKREK THEN PRINT £2,*USTAULES NONY REKORD* :REK*PKT: PEN Ot PAP 
ER 3: LOCATE 9,1,-PRINT USING l £££££‘;rek 
860 : INPUT £2, "SRASZ DALEJ ? <T/N)‘:K* 

870 IF K»=*T‘ OR THEN 60T3 34C 
860 IF KI**N* OR Kł=V THEN END 
990 GOTO 210 

900 IF INKEY<=‘‘ THEN 6070 900 

910 PAPER OsPEN b:F0R a=0 TO 2:L0CATE l7til3,2ła+kl3:PRINT bNaMłjiH: 

920 GRAPHICS PEN 1 s PLOT 302*1 M8,302-kM8:DRA*R 0,-<6:DRAKR -48,0:RETJ 
RN 


10 — 50 — wyświetlenie ekranu informacyjnego; 

60 — 510 — rysowanie planszy, deklaracja tablic i nadanie wartoś- 

ci początkowych zmiennych; 

520—600 — wprowadzanie przez grającego parametrów do prze 

sunięcia pionka; 

610 — 710 — badanie, czy przesunięcie jest dopuszczalne (zgodr.’ 

z zasadami gry); 

, 720 — 760 — realizacja przesunięcia pionka na planszy, wykorzy 

stującn podprogram 910 — 920 — rysowania pionka na wybranym po- 
lu. 

Wytrwałym Czytelnikom, którzy wprowadzą ten program do pc 
mięci mikrokomputera życzymy ustalen*a rekordu trudnego do pob 
da. Autor „Lilavati” podaje, że minimalna ilość posunięć, po których 
gra kończy się sukcesem wynosi 120 pkt. 

Po zakończeniu jednej gry (k 'munikat: BRAWO! UDAŁO SIŁ' i 
dodatkowy efekt dźwiękowy) program pyta czy*„GRASZ DALEJ? 
Można wtedy przystąpić do nowej gry naciskając klawisz T. 


Prosty program graficzny 

dla mikrokomputera AMSTRAD CPC 6128 


Mikrokomputery serii AMSTRAD 6128 
posiadają stosunkowo bogate oprogramowa- 
nie narzędziowe. Jedną z zalet tego komputera 
są spore możliwośd graficzne, które pozwalają 
tworzyć ciekawe i nieraz skomplikowane 
obrazy. Pełne możliwości graficzne CPC 6128 
udostępniaj użytkownikowi także pakiety 
programów narzędziowych jak np. SPRITE, 
czy AUTOCAD. Dla początkującego użyt- 
kownika są one często skomplikowane, trudne 
w użyciu i mało komunikatywne (konwersacja 
prowadzona jest w języku angielskim). 
Wszystko to sprawia, że informatyk-amator 
nie wykorzystuje tych pakietów, a chcąc two- 
rzyć ekrany graficzne sięga do możliwości ję- 
zyka BASIC. Tym samym traci sporo czasu, 
wykorzystując mstrukcie SYMBOL, DRAW, 
PLOT osiaga wreszcie zamierzony cel. Na- 
bywa przv tym przekonania, że aby osiągnąć 
ciekawe efekty graficzne trzeba się sporo na- 
męczyć 

Dlatego też początkującym użytkownikom 
proponujemy proste narzędzie, które pozwoli 
im szybko uzyskiwać na ekranie różne kom- 
pozycje. Przy pewnej wprawie w obsłudze te- 
go programu można pokusić się o tworzenie 
nawet bardziej skomplikowanych obrazów . 


10 MODĘ 1: INK 0,0: INK 1,26: PAPER 0:CLS:PEN hINPUT"tryb (0,1,2)"; tryb 

15 INPUT "ramka <0-26) " ; ram 

17 B0RDER ram 

20 pl=0 

30 H0DE tryb 

40 DIW TRYBY (3.2) 

50 FOR 1=1 TO 3:READ TRYBY < 1 , 1 ) , TRYBY (1,2): NEXT i 
60 DATA 20, 16,40,4,80,2 
70 HIND0H £1, 1, TRYBY (TRYBł-t, 1) ,1,1 
80 N1=0 

90 DIN kol (tryby (tryb+1,2) ) 

100 FOR v=l TO tryby (tryb+1,2): kol (v)=-l:NEXT v 
120 CLS £1 : INPUT"CZYTAC ZBI0R(t/n)":k$ 

130 IF k$= B n tt 0R k*= B N" T HEN GOTO 400 

140 IF !:$="T" 0R k$="f THEN GOTO 160 

150 GOTO 120 

160 CLS £1: INPUT £1, "TL0";TL0 
170 KCL(i)=TLQ:Nl=Nl+l 
180 FOR 1=2 TO TRYBY (TRYB+1,2) 

190 CLS £1 : PRINT £1, "KOLOR"; 1-1: : INPUT £1,K 

200 IF K=-l THEN GOTO 240 

210 kol (i)=k:Nl=Nl+l 

220 NEXT I 

23<J GOTO 270 

240 FOR J=I TO TRYBY (TRYB+1,2) 

250 KOL (J)=-l 
260 NEXT J 
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270 INPUT £1, "PODAJ NfiZWE':2B* 

280 CLSfl : LDAD jb* 

290 REN 1 : CLS £1:PRINT £1, ■P-POMOC" 
295 REM 'wybór opcji’ 

300 fl$=INKEY$ 

310 IF ««=■’ THEN 6010 300 


QR A*=V 
OR A*="k’ 
CR A*=V 


THEN GOTO 440 
THEN GOTO 430 
THEN GOTO 870 
THEN GOTO 850 
THEN GOTO 820 
OR A*="p" THEN GOTO 1120 
DR A*="D’ THEN GOTO 1370 



320 IF fl$=”R 
330 IF A*=T 
340 IF A$="H 
350 IF A*= - F" OR A*=”f 
360 IF A*=V OR A*=*Z 
370 IF A4=‘P 
380 IF A*='d 
390 GOTO 300 

400 CLS £1: INPUT M^TWiTU) 

410 INK 0,TL0:PfiPER 0:CLS 
420 KOL 1 1 ) =TLO 
430 GOSUE- 1040 
440 GOSUB 480 
450 PLOT x,y: GOSUB 660 
460 60T0 290 
470 END 

475 REM 'sterowanie kursorem’ 

480 ! SCREENCOPY, 2, 1 
490 x=0:y=0:pl=l: PLOT x,y 
500 A*=INKEY* 

510 IF A*=” THEN GOTO 500 
520 IF INKEY (61=0 THEN RETURN 
530 IF A3C(a$}=240 THEN GOTO 580 
540 IF ASC ( a* ) =241 THEN GOTO 600 
550 IF ASO (a$ 1=242 THEN GOTO 620 
560 IF ASC(a*)=243 THEN GOTO 640 
570 GOTO 500 

580 IF y=398 THEN GOTO 500 
590 ! SCREENCOPY, 1, 2: y=y+2: PLOT x,y:GOTO 500 
600 IF y=5 THEN GOTO 500 
610 ! SCREENCOPY. l,2:y=y-2: PLOT x,y:60TO 500 
620 IF x=0 THEN' GOTO 5Ó0 
630 1 SCREENCOPY, 1 , 2:x=x-2: PLOT x,y:GQTO 500 
640 IF s=63e THEN GOTO 500 
650 1 SCREENCOPY, 1, 2: x=x+2: PLOT x,yiGOTO 500 
655 REM ’podproęra« rysowania plotami ’ 

660 AS= INKEY* 

670 IF A*=” THEN GOTO 660 
680 IF INKEY (A) =0 THEN RETURN 
690 IF ASCIa$)=240 THEN GOTO 740 
700 IF ASC(a*)=241 THEN GOTO 760 
710 IF ASC(a*)=242 THEN GOTO 780 
720 IF ASC(at)=243 THEN GOTO 800 
730 GOTO 660 

740 IF y=398 THEN GOTO 660 
750 y=y+2i PLOT x,y:GOTO 660 
760 IF y=0 THEN GOTO 660 
770 y=y-2: PLOT x,y:GOTO 660 
780 IF x=0 THEN GOTO 660 
790 x=x-2:PL0T x,y:60T0 660 

800 IF X =638 THEN GOTO 660 
810 x=x+2: PLOT X , y : GOTO 660 
B15 REM 'zapis zbioru na dysku’ 

820 CLS £1: INPUT £1, “PODAJ NAZWE";ZB$ 

B30 CLS£1:SAVE ZB$, B, StCOOO, Ł4000 
840 END 

845 REM 'wypełnianie kolorem’ 

850 GOSUB 1040 

860 GOSUB 480: MOVE X+2,Y:FILL N: y=0: x=0: GOTO 290 
865 REM 'mazanie’ 

870 GRAPHICS PEN 1: GOSUB 480 
880 A$=INKEY$ 

890 IF A$="“ THEN GOTO 880 

900 IF INKEY (,6) =0 THEN GRAPHICS PEN 0:PL0T X,Y:GRAPHICS PEN 1:GOTO 290 

910 IF ASC (a$) =240 THEN GOTO 960 

920 IF ASC(a$)=24t THEN GOTO 980 

930 IF ASC (a$) =242 THEN GOTO 1000 

940 IF ASC (a$) =243 THEN GOTO 1020 

950 GOTO 880 

960 IF y=39B THEN GOTO B80 

970 GRAPHICS PEN 0:PL0T X,Y:y=y+2: GRAPHICS PEN 1:PLQT x,y:GOTO 880 
980 IF y=0 THEN GOTO 880 

990 GRAPHICS PEN 0: PLOT .X, Y:y=y-2: GRAPHICS PEN 1 : PLOT x,y:GOTO 880 
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Ponieważ podczas pracy, program będzie 
przechowywał w pamięci kilka obrazów ekranu, 
dlatego też niezbędne jest wprowadzenie 
przed jego uruchomieniem programu 
BANKMAN. 

Po inicjacji pracy program żąda odpowie- 
dzi na pytanie „Tryb?” — Należy wprowa- 
dzić liczbę z przedziału 0—2. W wybranym 
trybie będzie można maksymalnie wykorzy- 
stać: 

0 — 16 kolorów; 

1 — 4 kolory; 

2 — 2 kolory. 

Następne pytanie brzmi: „Czytać zbiór 
(t/n)?”. Jeżeli jest to kolejny etap pracy mają- 
cy na celu dokończenie obrazu zapisanego 
wcześniej na dysku, to należy podać nazwę 
tego obrazu, jaką nadał użytkownik przy po- 
przednim seansie. 

W dalszej kolejności podajemy kolory: 

— tła; 

— ramki; 

— poszczególnych atramentów. 
Wprowadzamy liczby całkowite z przedzia- 
łu O — 26 będące kodami pełnej palety barw 
tego mikrokomputera. 

Po podaniu ww. parametrów wstępnych, mo- 
żemy korzystać z zestawu następujących opcji 
programu: 

R — rysowanie obrazu, 

K — zmiana koloru atramentu, 

M — mazanie nakreślonych linii, 

F — wypełnianie obiektów kolorami, 

Z — zapis obrazu na dysk, 

P — pomoc (wyświetlenie pełnego ze- 
stawu opcji), 

D — drukowanie zawartości ekranu na 
drukarce. 



; : PRINT £1,USIN6 "££‘;tryb 


1000 IF ^=0 THEN 6010 880 

1010 GRAPHICS PEN O:PL0T X, Y: x=x-2: BRflPHICS PEN 1 : PLOT x,y:B0T0 880 
1020 IF *=638 THEN GOTO 880 

1030 GRAPHICS PEN OiPLOT X , Y: x=x+2: BRflPHICS PEN 1 : PLOT x,y:GOT0 880 
, 1035 REN/’ wybór koloru' 

‘1040 ELS £l : INPUT £1 , “KOLOR" ; K 
1050 iF.BR 1=2 TO tryby (tryb+1,2) 

IOMlJF KOŁ(I)=K THEN GRAPHICS PEN I-ł: N=I-1 : CLS £1:60T0 1110 
1070 NEXT I* 

1080 NlsRlil 

1090 IF N1MRYBY (TRYB+1,2) -1 THEN PRINT £1, "HASZ JUZ 
yttryb+1, 2) : :PRINT £1," KOL. |M :FOR T=1 TO 1500:NEXT 
V 'T: GOTO 1040 

1100 kol (nl+l)=k: INK NI , K: N=N1 : GRAPHICS PEN NsCLS £1 
1110 RETURN 
1115 REN pomoc’ 

1120 CLS • £l : ! SCREENCOPY ,2.1 

1130 NQDE lsPEN lsPRINT "K-ZMIANA KOLORU" : PRINT “R-RYSOWANIE" : PRINT "N-MAZANIE" : 
PRINT “F-WY^ELNIANIE KOLOREM" : PRINT “Z-ZAPIS NA DYSK 
U" 1 ‘ 

1280 LOCATE 1,20:PRINT "NACISNIJ DOWOLNY KLAWISZ" 

1290 IF INKEY$- N H THEN GOTO 1290 
1300 MODĘ TRYB 

1310 FOR K=1 TO TRYBY (TRYB+1 ,2) 

1320 IF KOL (K>=-1 THEN GOTO 1350 
1330 INK K-l , KOL (K) 

1340 NEXT K 

1350 WINDOW £1,1, TRYBY (TRYB+1 , 1 ) , 1 , 1 : ! SCREENCOPY ,1,2 
1360 GOTO 290 

1365 REN 'drukowanie ekranu na drukarce’ 

1370 CLS £1 
1380 MEHORY &9FFF 
1390 FOR i =8tA000 TO LAOBO 
1 40Ó ! RE AD v : POKE i,v:t=t+v 
1410 NEXT i 

1420 iF t<>20961 THEN PRINT “BLAD" 

1430 DATA 205, 166, 160,62,27,205, 157, 160 
1440 DATA 62,49,205, 157, 160,205, 186, 187 
1450 DATA 205,231,187,50, 180,160, 17,0 
1460 DATA 0,33, 143,1,34, 178, 160,62 
1470 DATA 7,50.177,160,62,10.205. 157 
1480 DATA 160,62,13.205,157, 160,62,27 
1490 DATA 205. 157,160,62,76,205, 157.160 
1500 DATA ,62, 127. 205, 157,160,62, 2, 205 
1510 DATAJ57, 16Ó, 14,0,58, 177, 160,71 
1520 DATA 229,197,213,205,240,187,209,193 
1530 DATA .33,180,160, 190,225,55,32, 1 
1540 DATA 16/ ,20$, 17,43,43, 16, 233, 58 
1550 DATA 177,160,254,7,40,7,175.203 
1560 DATA 17,203, 17,203, 17.121 ,205,157 
1570 DATA 160. 19,229,33, 127.2,55,237 
1580 DATA 82,225,56,5,42,178,160,24 
1590 DATA 193,35, 124, 181,40,32,43, 17 
1600 DATA 0.0,34, 178, 160,62,7.189 
1610 DATA 32,146,124,180,32, 142,62,4 
1620 DATA 50,177,160,24,135,205,46,189 
1630' DATA 56,25 1 ,205,43,1 89,201 , 62,27 
1640 DATA 205.15/, 160,62,64,205, 157, 160,201 
1650 CALL &AOÓO 
1660 END 


OPCJA R 

Po jej wybraniu należy na pytanie „KO- 
LOR” wprowadzić kod liczbowy koloru, któ- 
rym będziemy rysować. W sytuacji, kiedy 
mamy już maksymalną liczbę kolorów w za- 
deklarowanym trybie pojawi się stosowny 
komunikat. Następnie na ekranie pojawi się w 
lewym dolnym rogu punkt w wybranym kolo- 
rze. Przesuwanie punktu do miejsca, w któ- 
rym chcemy rozpocząć rysowanie realizujemy 
za pomocą klawiszy funkcyjnych (— , — , t, 1). 
Po dotarciu punktu na żądane miejsce wci- 
skamy klawisz ENTER. Od tego momentu 
klawisze funkcyjne powodują przesuwanie 
punktu, który kres'li linię. Zakończenie ryso- 
wania wybranym kolorem lub aktualnego 
fragmentu obrazu — klawisz ENTER. 


OPCJA K 

Po wybraniu tej opcji pojawia się pytanie 
„KOLOR”. Po podaniu kodu liczbowego ko- 
loru program bada, czy użytkownik nie prze- 
kroczył już limitu barw dla aktualnego trybu 
pracy. Jeśli tak, to pojawia się komunikat: 

SĄ JUŻ N KOLORY (gdzie N = 2,4 lub 16) 
i pada ponowne pytanie „KOLOR”. Jeżeli 
użytkownik wprowadzi dopuszczalny kod 
liczbowy barwy, to program powraca do kreś- 
lonego obrazu ze- zaktualizowanym kolorem 
pióra graficznego. 


OPCJA M 

Przebieg tej opcji jest analogiczny do opcji 
R w części dotyczącej poruszaniem piksela. Po 
naprowadzeniu piksela na żądane miejsce i 
naciśnięciu ENTER klawisze (t, 1, — , — ) ste- 
rują kierunkiem wymazywania. 
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£, OPCJA F 

Po naprowadzeniu punktu na wybrane 
miejsce (jak w opcjach R, M) i wciśnięciu 
ENTER następuje wypełnianie obiektu, w 
którym znalazł się punkt kolorem jego brzegu. 
(Wywoływana jest instrukcja FILL). 

OPCJA Z 

Po wybraniu tej opcji program pyta: „PO- 
DAJ NAZWę”. Po zaakceptowaniu podanej 
nazwy klawiszem ENTER następuje zapisa- 
nie aktualnego obrazu na dysku w postaci tzw. 
„screcn’a” 

Uwaga: Nazwa obrazu powinna być 8-zna- 
kowa, rozpoczynać się -od litery i zawierać lite- 
ry lub cyfry. 

OPCJA P 

Po naciśnięciu klawisza P niknie kompo- 
nowany obraz i na ekranie pojawia się pełen 
zestaw dopuszczalnych opcji. 

OPCJA D 

Zalecana jest tylko wtedy, gdy zestaw mi- 
krokomputerowy, na którym pracujemy ma 
podłączoną drukarkę. Po jej wybraniu jest 
tworzona kopia ekranu na papierze oczywiście 
w wersji czarno-białej. 

Poniższe rysunki powstały za pomocą tego 
programu i opcji D. Obrazują one różne stopnie 
trudności, a jednocześnie spore możliwości tego 
programu graficznego. 


Nowy »su|j.?r- komputer- skonstruowano w 
laboratorium sanom w amerykańskim 
stanie Nowy Meksyk. Jest on zdolnv do 
rozwiązywania skomplikowanych zadań 
naukowych tysiąc razy szybcie 1 od 
zwykłych komputerów. Posiada 102 1 

różne części większego zadania 
obliczeniowego. K.,.Mv z Łvch procesorów 
odgrywa role oddzielnego komputera. 

W czasie prób polecono superkomputerowi 
przygotowania dokładnego opisu napięć 
powstających w rdzeniu metalów vm 

znajdującym się pod obciążeniem. 
Maszyna dała odpowiedz po tygodniu 
obliczeń - gdy zwykł-, komputer 
potrzebowałby na i.o około 21) lat.. 
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Brytyjskie Ministerstwo Komuni- 
kacji zaaprobowało plan stworzenia 
systemu informacji drogowej 

przekazywanej za pomocą 

umieszczonych przy jezdniach 

emiterów podczerwieni do komputerów 
znajdujących się w samochodach. 
Informacje maja do tycz yd 

przejezdności dróg 1 nasilenia 
ruchu: na leli podstawie komputer 

poinformuje kierowcę o optymalnej 
trasie przejazdu i najdogodniejszej 
prędkości. 


Jak odzyskać 

skasowane 

zbiory? 

Może się zdarzyć, że w czasie pracy na 
mikrokomputerze skasujemy przypadkowo 
ważny zbiór na dyskietce lub jeszcze gorzej 
zostaną zniszczone lub uszkodzone sektory 
zawierające wykaz zbiorów na dysku, tzw 
kartoteka dysku (ang. directory) Czy w ta- 
kiej sytuacji należy uznać za stracone ska- 
sowany zbiór lub catą zawartość dysku? 
Otóż nie, informacje te są do odzyskania, a 
umożliwia to prezentowany program o na 
zwie DYSK— KOPIER 
Na wstępie trochę teorii. Na każdej dy- 
skietce DOS rezerwuje pewien obszar prze- 
znaczony na zapisanie wspomnianej wyżej 
kartoteki dysku. Są to sektory o numerach 
361 —368. Jeżeli kasujemy zbiór, to DOS nie 
„wymazuje" zawartości sektorów, które ka- 
sowany zbiór zajmował, lecz usuwa jego 
nazwę z kartoteki i aktualizuje zawartość 
sektora o numerze 360 (tzw. VTOC). A za- 
tem mimo skasowania, zawartość skaso- 
wanego zbioru na dyskietce fizycznie nadal 
istnieje, aż do momentu, gdy zostanie zni- 
szczona przez zapisanie nowych informacji. 
Problem polega na zidentyfikowaniu sekto- 
rów zawierających informacje należące do 
skasowanego zbioru. Jest to również możli- 
we, gdy poznamy bliżej strukturę pojedyn- 
czego sektora. Jak wiadomo, każdy sektor 
składa się ze 128 bajtów ponumerowanych 
od 0 do 127. Pierwsze 125 bajtów (0—124) 
zawierają informacje użytkowniką, nato- 
miast bajty 125, 126 i 127 zarezerwowane 
są dla DOS— a. Nas interesuje bajt 125, po- 
nieważ jego sześć najstarszych bitów za- 
wiera liczbę (numer) odpowiadającą kolej- 
ności wpisu nazwy zbioru, do którego należy 
dany sektor, w kartotece dyskietki. Po tym 
wstępie wszystko jest już jasne. Jeżeli ma- 
my na dyskietce dziesięć zbiorów i skaso- 
waliśmy na przykład zbiór piąty, to aby 
odzyskać jego zawartość należy wybiać z 
dyskietki wszystkie sektory, które w bajcie 
1 25 mają wpisaną liczbę 4 (numeracja wpi- 
sów w kartotece zaczyna się od zera) Po 
wybraniu należy je zapisać na nową dy- 
skietkę i stracony zbiór jest już odzyskany. 

1 REM ************************* 

2 REM PROGRAM KOPIUJRCY 

3 REM ************************* 

9 REM MODUŁ STERUJĄCY 

10 DIM S*<50),TOZ*<50),T*<200),P 
US*< 128) a SE* <23040) , SEC 180) / P*< 1 
28), INP*<3) 

11 PUS* < 1 ) -CHR* < 0 ) ■ PUSf <128) =>PUS 
* ! PUS* < 2 ) “PUS* 

12 SE* < 1 ) “CHR* < 0 ) > SE* < 23040 ) “SE* 
; SE*<2)“SE* 

15 POKE 539,0 

20 DO=720 : VE=0 « POKE 1913,80’ND=1 
: ZL= 1 P I SZ= 1 5000 = ZR00= 1 8000 

25 OPEN #1,4. 0, "K : " •' OPEM #2,4,0, 
"E ! " 

26 GOSUB 29000 
30 GOSUB 30000 
35 GOSUB 58 

48 GOSUB 500 
50 GOTO 100 

52 X=USR < ADR < S* ) , ND , 360 , ADR < P* ) , 
82) 



53 SE=ADR < P* > = GS-PEEK < SE+ 1 > ♦ 256* 
PEEK<SE+2> = IF GS=1010 THEN RETUR 
N 

54 GOSUB 61 'POSITION 2,20? "* * 

* Dysk nie w formacie DOS 2.5 * 

* " 

55 FOR G=1 TO 500=NEXT GGOTO 48 
58 X=USR<ADR<TOZ*),RDR<T*>,LEN<T 
*),0, AD+12) -RETURN 

60 POKE 752,0 RETURN 

61 POKE 752,1= RETURN 

100 TRAP 40000 * GET #1,A 

101 IF A-155 THEN END 

102 IF ft<66 OR <A>69 AND A<76> 0 
R <A> 77 AND A O 86 AND A O 88) THE 
N 100 

108 A=A-65 

110 GOTO 500+A*500 

580 GOSI.® 61 =? CHR*<125> 

510 POSITION 2,l=?"iHDYS 
K-KOPIER***" 

520 POSITION 3,3=? "MENU 
CRETURND- WYJŚCIE 2 MENU" 

525 FOR LI =3 TO ll=POSITION LI,4‘ 
° CHR.*< 13) • = NEXT LI 

530 POSITION 3,6 >? " C" > CHR*<66 > i 
”3 KOPIUJ SEKTORY C" ; CHR*<67> ; "3 
KOPIUJ DYSK" 

540 POSITION 3,8'? "C";CHR*<68>; 
"3 DRIVE ZRODL. ' C" ; CHR*<69> ; "U 
DRIVE KOPI." 

550 POSITION 3,10=? "C">CHR*<76> 
i "3 ODZYSK ZBIORU C%CHR*<?7>;" 
3 TYP DOS-A " 

560 POSITION 3,12'? "CiCHRfCBe) 
i"J VERIFY C">CHR*<88)> " 

3 FORMATUJ " 

700 POKE 559, 34 RETURN 

999 REM MODUŁ KOPIOWANIA SEKTORO 
W 

1000 ? CHR*< 125) 'POSITION 3,2=? 
"* * t KOPIOWANIE SEKTOROM * * * 

1005 GOSUB 60 = CZ=1 

1019 TRAP 1010 = POS I T I ON 2,5'? "N 
umer sektora początkowego 1 ";=IH 
PUT #2 , SS 

1020 TRAP 40000= TRAP 1020=POSITI 

ON 2 ,7=? "Numer sektora końcowej 
0= ", = INPUT #2,ZS 

1030 IF ZS<SS THEN 1010 
1040 IF ZS> 720 THEN GOSUB 52 
1050 Y=DO=DO=ZS 

1055 GOSUB 61'POSITION 8,5= ? CHP 
* a 56 > ; CHR* < 1 56 > ; CHR* <156) 

1060 GOTO 1520 
1070 DO=Y=CZ=0 
1400 GOTO 40 

1498 REM MODUŁ KOPIOWANIA CAŁEGO 
DYSKU 

1500 ? CHRf< 125) POSITION 3,2= ? 

" * * * KOPIOWANIE DYSKU * * 

1510 SS-1 

1515 IF DO" 1040 THEN GOSUB 52 
1520 GOSUB 61 
1530 7=1 

1540 POSITION 13,5=? "SEKTOR' 0" 

1550 POSITION 13,7? "BUFOR = 0" 

1560 GOSUB ZROD 

1600 FOR SEK=SS TO DO 

1605 AR=RDR<.SE*> + <T-1>*128 

1610 X=USR < ADR < S* > , ND . SEK , AR , 82 > 


1620 IF SE*< < T-l ) *128+1 , T*128)=P 
US* THEN 1633 
1630 SE(T)=SEK 

1632 T=T+1 

1633 POSITION 21,5=? SEK 
1636 POSITION 21,7=? T-l 

1640 IF T=181 THEN GOSUB PISZ = GO 
SUB ZROD 
1700 NEXT SEK 

1750 IF TO0 THEN GOSUB PISZ 
1858 IF CZ*1 THEN 1070 
1900 GOTO 40 

2000 ZL=ZL+<ZL*1 >-<ZL=2) = Tf (31 ,3 


1 >-STR*<ZL> ' GOSUB 58 
2100 GOTO 100 

2500 ND=ND+<ND=1)-<ND=2>=T*<71,7 
1)=STR5<ND)= GOSUB 58 
2600 GOTO 100 

5998 REM MODUŁ ODZYSKIWANIA ZBIO 
ROW 

6000 ? CHR*< 125) POSITION 3,2=? 

* * * ODZYSKIWANIE ZBIORU * 

* *" 

6005 GOSUB 60 

6010 TRAP 6010 POSITION 3,4=? "P 
odaj numer zbioru' ";= INPUT FIL 
6015 GOSUB 61 

6020 IF DO=1040 THEN GOSUB 52 
6030 T=1=GES=0 

6048 POSITION 13,5'? "SEKTOR' 4" 
6050 POSITION 13,7'? "BUFOR- 0" 
6100 FOR SEK=4 TO DO 
6103 POSITION 21,5=? SEK 
6105 AR=RDR<SE*)+<T-1 >*128 
6110 X=USR < ADR < S* > , ND , SEK , AR , 82 ) 
6120 IF SE*<<T-1 >*128+1, T*128)=P 
US* THEN 6200 

6122 IF SE*<T*128,T*128)=CHR*<0> 
THEN 6200 

6123 SE=ADR < SE* <T*1 28-2, T* 128-2) 

6124 FN=INT<PEEK<SE>/4> 

6125 IF FNOFIL THEN 6200 
6127 POKE SE , PEEK ( SE ) -F I L*4 
6130 SE<T)*SEK 

61 ts POSITION 21 ■?■'> T 

6140 T-T+l =GES»GES+1 = IF T=181 TH 

EN GOSUB PISZ GOSUB ZROD 

6200 NEXT SEK 

6250 GOSUB PISZ 

6260 Pf<i)-CHR*<0)=P*<128>«P*:P* 
<2>»P* 

6270 P*<1 , 1 )»"B" P*<3, 3)=CHR*< IN 
T< GES/256) ) = Pf <2, 2>=»CHR*<GES-< IN 
T < GES/256 ) *256 > ) 

6280 P*<5,5)-CHR*<INT<SE<l)/256> 
> •• P*<4, 4)=CHR*<SE< 1 )-< INT<SE< 1 )/ 
256 >*256)) 

6290 P*<6, 1 6 ) - " ZB I ORODZYSK " 

6300 X b USR( ADR<S*> , ZŁ, 361 , ADR(P* 

) , 87) 

6340 GOTO 40 

6500 DO=DO+320* < 00=720 ) -320* < D0= 
1040) 

6510 IF D0= 1 040 THEN T*<182,192) 
=" 2.0 -C2. 53 "'GOTO 6530 
6520 T*<182,192)-"C2.03- 2.5 " 
6530 GOSUB 58 
6508 GOTO 100 

11000 IF VE=1 THEN POKE 1913,80 
T*<142, 152)*" TAK -CNIE3" GOSUB 
58 = VE*0 ' GOTO 11100 
11010 T*< 142, 152)"" CTAK3- NIE "' 
GOSUB 58 POKE 1913,8?' VE*=1 
11100 GOTO 100 

12000 REM MODUŁ FORMATUJE DYSKIE 
TKE 

12010 POSITION 2, 14 
12020 IF DO-720 THEN ? "Formatów 
anie w drive #";ZL;" dla DOS-a 2 
.0 <720 sektorów)" ! LS=0 
12030 IF 00=1040 THEN ? "Fermato 
wanle w drive #">ZŁ;" dla DOS-a. 
2.5 <1940 sektorów)" =LS=1 28 
12040 POSITION 2,16'? "Naoisz T 
aby formatować" 

12050 GET #1 , A = IF A 084 THEN POS 
ITION 2,17 : ? "Formatowanie przer 
• .ane"= GOTO 100 

12070 IF ZL=1 THEN INP*="D1 = " 
12080 IF ZL=2 THEN INP*="D2=" 
12090 TRAP 40000 'X 10 254,*5,LS,0 
, INP* 

12100 POSITION 2,17=? "Formatowa 
nl# zakończone" «FOR 1*1 TO 300 -N 
EXT I 

12150 ? CHR*< 125) -GOTO 40 
14999 REM MODUŁ ZAPISU NA DYSK 
13000 POSITION 3,20'? "Wloz dysk 
Cko»ie3 do drive'u # M ;ZL 


13010 POSITION 15,22'? "Nacisnij 
CRETURN3" 

13020 GET #1 , A 
15030 IF AO 155 THEN 15020 
13035 POSITION 3,20=? CHR*<156>; 
CHR*< 156) ; CHR*< 156) 

13040 POSITION 13,10'? -SEKTOR' 

15050 POSITION 13,12? "BUFOR' 

15060 TRAP 40000 -TRAP 40 
15100 FOR W=1 TO T-l 
15110 SK»SE<W> 

13113 POSITION 21,10=? s« 

15116 POSITION 21,12-? W 
13120 AR=*ADR < SE* ) + <W-l)*128 
15130 X«USR<RDR<S*> , ZŁ, SK, AR, 87) 
15140 NEXT W 
15150 T-l 

13155 POSITION 13,7-? "BUFOR' O 
15200 RETURN 

18000 POSITION 3,20=? CHR*<253)i 
CHR*<253); "Wloz dysk CzrodlowyD 
do drive'u #";ND 
18010 POSITION 15,22=? "Naci śnij 
CRETURN 3 " 

18020 GET #1 , A 
18030 IF A 0 155 THEN 18020 
18035 POSITION 3,20=? CHR*<156); 
CHR*< 156) > CHR*< 156) 

18040 RETURN 

28000 REM MODUŁ DEFINIUJĄCY STAL 
E 

28001 REM TEKSTOWE I PODPROGRAMY 

28002 REM W KODZIE MASZYNOWYM 
29000 POKE 709, 15= POKE 710,48 
29910 RESTORE 29030 

29013 AD=155*256 


29015 AD« 155*256 

22020 FOR 1-0 TO 9 = RERD A = POKE A 

D+I,A>NEXT I 

29030 DATA 0,0,66,12,155,2,2,2,2 

, 1 

29040 DL-PEEK < 560 ) +PEEK < 56 1 ) *256 
POKE DL, 1 'POKE DL+1,0<POKE DL+2 
,153 

29050 POKE RD+ 1 0 , PEEK < 560 ) +3 = POK 
E AD+11 ,PEEK<561) 

29060 RETURN 

38000 T*<1 ,40)-"DYSK ZRODLOWY 
- DRIVE ii 

38e01 T*<41 , 80) -"KOPI A 
- DRIVE «1 
38002 T*<81 , 120)-" 

30003 T*< 121 , 160)-"FUNKCJA VERIF 
Y TAK -CNIE3 

30084 Tf < 161 , 200)-"TYP DOS-A 
C2.03- 2.5 
30028 RESTORE 30050 
30830 FOR l-l TO 50 « READ A'S*<I> 
-CMR*<A>'NEXT I' GOTO 30100 
30890 DATA 104,104,104,141,1,3,1 
•4,141,11,3,104,141,10,3,104,141 
,8,3,104,141,4,3,104,104,141,2,3 
30051 DATA 32,83,228,173,3,3,133 
,212,169,0,133,213,96 
30100 RESTORE 30150 
30110 FOR 1-1 TO 50= READ A-TOZ*< 
I )-CHR*(R) 1 NEXT I«GOTO 30200 
30156 DATA 104,104,133,204,104,1 

33.203. 104. 104. 133.205. 104. 104. 1 

33.207.104.133.208. 104.101.207.1 
33,207 

30151 DATA 160,0,177,203,56,233, 
32,145,207,200,196, 205 , 208 ,244,9 
6 

30152 DATA 0,0, 0,0, 0,0, 0,0, 0,0,0 

,0 

30200 POKE 74 1,255 ‘POKE 742,154 
30300 RETURN 

Oprócz odzyskiwania zbiorów program 
DYSK— KOPIER realizuje funkcje kopiowa- 
nia dyskietek. Może on pracować zarówno 


^ pod kontrolą DOS 2.0, jak i DOS 2.5, w ze- 
stawie mikrokdtnputera z jednym lub dwo- 
ma napędami dysków. 

Wszystkie opcje programu wyglądają na- 
stępująco 

B — kopiowanie określonej liczby sektorów 
Użytkownik podaje numer sektora pier- 
wszego i ostatniego, które mają być sko- 
piowane. 

C — kopiowanie całego dysku. 

D — przełącznik dla zestawu mikrokompu- 
tera z dwiema stacjami dysków — określa, 
w którym napędzie znajduje się kopiowany 
dysk. 

E — podobnie jak D — określa, w którym 
napędzie ma być tworzona kopia dysku. 

L — odzyskiwanie zbiorów. 


Program przedstawia zjawisko elektrolizy 
Pokazuje on między innymi ruch jonów w 
woltametrze przed i po podłączeniu napię- 
cia do elektrod. Jeśli chcesz to zobaczyć, 
uruchom ten program, a jeśli chcesz poka- 
zać to swoim kolegom, nagraj ten program 
na taśmę magnetofonową i zademonstruj 
go na lekcji fizyki. Twój nauczyciel z pew- 
nością się ucieszy. 

0 REM ELEKTROLIZA; J.GOLLA,P. GRZE 
GANEK, P. WAGNER 

5 GRAPHICS 2+16 : POSITION 4,3 '? # 
6; "ELEKTROLIZA" 

10 FOR T-l TO 3000 NEXT T'DIM A* 
<1),B*<1),V*<40) 

15 GRAPHICS 0 < POKE 710,12'POKE 7 
12,8 : POKE 709, 2 ; POKE 755,0'POSIT 
ION 1,6 

20 ? "SPACJA-POWROT DO LISTY ROZ 
KRZÓW" ' ? 

30 ? "KLAWISZ SELECT-PRZEPLYW PR 
ADU NA" 

31 ? "SCHEMACIE" '? 

35 ? "KLAWISZ START-SCHEMAT ZEST 
RWU" 1 ? 

40 ? "KLAWISZ HELP-RUCH JONOW"'? 
45 IF PEEK < 53279 ) *6 THEN GOTO 39 
0 

56 IF PEEK (53279) “5 THEN GOTO 54 
0 

60 IF P£EK<732>-17 THEN POKE 732 
, 0 : GOTO 660 
65 GOTO 45 

390 POSITION 0,20=? "CZY SCHEMAT 
MA BYC OPISANY<T-N)"; \ 

392 INPUT Bf 1 IF B#<>"T" AND B*<> 

"N" THEN GOTO 390 

395 A-7 1 IF B$="T" THEN A-8 

400 GRAPHICS A+16' COLOR 1 

405 PLOT 10, 30 = DRAWTO 10, 80 = DRAW 

TO 80, 80 'DRAWTO 80,30 

410 FOR T-l 1 TO 79 = A-T = IF B*<>"T 

425 COLOR A = PLOT T, 35 'DRAWTO T,7 
9 = NEXT T 

438 COLOR 1 = FOR T«16 TO 22 = PLOT 
T, 39 DRAWTO T,74NEXT T 
435 COLOR 3 =FOR T-68 TO 75= PLOT 
T, 39 DRAWTO T,74=NEXT T 
440 COLOR 1 = PLOT 19, 39 DRAWTO 19 
, 5 1 DRAWTO 45, 5 'DRAWTO 55,0 
442 PLOT 55, 5 'DRAWTO 130,5'DRAWT 
O 130, 10 'PLOT 130,30 
445 FOR T-0 TO 7 STEP 0.5 -DRAWTO 
SIN<T)*10+130, COS<T)*10+20 = NEXT 
T 

450 PLOT 122, 26 'DRAWTO 130, 12 'DR 
AWTO 138, 26 'PLOT 124, 22 = DRAWTO 1 
35,22 

24 


M — przełącznik — określa, pod którym 
DOS-em (2.0 — 2.5) ma pracować program 
V — przełącznik — określa, czy zapis kopii 
ma być kontrolowany dodatkowo przez od- 
czyt (funkcja VERIFY), czy nie. 

X — formatowanie dyskietki 

Podczas kopiowania (odzyskiwania) pro- 
gram wczytuje do bufora w pamięci kolejne 
sektory. Pojemność bufora ogranicza liczbę 
wczytywanych sektorów do 1 80. Po zapeł- 
nieniu bufora program zapisuje wczytane 
sektory na tworzoną kopię i czyta kolejne 
180 sektorów itd. itd Puste sektory nie są 
zapisywane (kopiowane). 

Aby odzyskać zbiór lub kilka zbiorów na- 
leży po uruchomieniu programu włożyć do 
stacji dysków dyskietkę, z której zbiory bę- 


455 PLOT 130, 30 -DRAWTO 130, 70= DR 
AWTO 115, 70 'PLOT 1 10, 70= DRAWTO 9 
0,70 

460 DRAWTO 90, 25 'DRAWTO 72, 25 -DR 
AWTO 72,40 

462 PLOT 110, 55 DRAWTO 110,85‘PL 
OT 115, 80 'DRAWTO 115,60 
465 SETCOLOR 1 , 9, 13 « SETCOLOR 0,1 
2, 5 = SETCOLOR 2,7, 1 SETCOLOR 4,2, 

0 

467 IF B*-"T" THEN GOTO 475 
470 SETCOLOR 0, 12, 1 ' SETCOLOR 2,7 
,15 'SETCOLOR 4, 2, 4 = SETCOLOR 1,9, 
8 GOTO 530 

475 TRAP 475 ' RESTORE 520 FOR L»1 
TO 13 =RE AD PX,PY,V* 

480 DL -PEEK < 560 ) +PEEK <561) *256 = D 
1 -PEEK < DL+4 ) +PEEK < DL+5 ) *256 
490 FOR U-l TO LEN<V*) ' D2-57344+ 
( <ASC<V*<U, U) )-32)*8) 

500 D3«D1+PY*40+PX+U-1 -FOR Z-0 T 

0 7 -POKE D3+Z*40 , PEEK < D2+Z ) 

515 NEXT Z'NEXT U'NEXT L'B*=" 
"■TRAP 40000 

520 DATA 102,5, 1 -ELEKTROLIT, 102, 

20, 2- AMPEROMIERZ 

522 DATA 102,35,3-WYLACZNIK, 102, 

50,4-ANODA, 102,65, 5-KATODA , 102,8 

0,6-BATERIA 

525 DATA 13,90,+ -,5,50,1,14,10, 
2,6,8,3,14,45,6,2,65,5,9,65,4 
530 IF PEEK (764) -33 THEN POKE 76 
4, 255 'GOTO 15 
535 GOTO 530 

540 GRAPHICS 7+16 > SETCOLOR 4,10, 
0' RESTORE 650 

545 FOR T-l TO 4'READ A,B,C,D 
555 FOR F-A TO B STEP C'E=E+1'C0 
LOR E-l 1 PLOT D, F - IF E-4 THEN E-l 
560 NEXT F'NEXT T- COLOR l'FOR T= 

1 TO 4READ A,B,C,D 

575 FOR F-A TO B STEP CE-E+1CO 
LOR E-l -PLOT F, D ' IF E-4 THEN E-l 
585 NEXT F'NEXT T « FOR T-l TO 4'R 
EAD A,B,C*D,G 

590 FOR F-A TO B STEP C'E-E+0.5' 
COLOR E-l -PLOT F,D = DRAWTO F,G 
595 IF E-4 THEN E-l 
600 NEXT F'NEXT T'FOR T-l TO 12= 
A-RND < 0 ) *40+ 1 5 ' B-RND < 0 ) *30+45 
605 FOR F-8 TO 1 STEP -1=E-E+1'C 
OLOR E-l 'PLOT A+F , B = IF E-4 THEN 
E-l 

615 NEXT F 1 A-RND < 0 ) *40+ 1 5 ' B-RND ( 
0) *30+45 

620 FOR F»1 TO 8 ■ E-E+ 1 = COLOR E-l 
■PLOT A+F, B ' IF E-4 THEN E-l 
623 NEXT F > NEXT T COLOR 3 
625 PLOT 5, 30 'DRAWTO 5, 80 DRAWTO 
80, 80 -DRAWTO 80, 30 'PLOT 70,40'D 


dziemy odzyskiwać Następnie wciskamy 
klawisz L. Program zażąda podania numeru 
zbioru, który chcemy odzyskać. Po podaniu 
numeru program rozpocznie wyszukiwanie 
sektorów posiadających wpisany w bajcie 
125 podany numer Po odnalezieniu 
wszystkich sektorów (lub zapełnieniu bufo- 
ra) program zatrzyma się i wyświetli komu- 
nikat „Włóż dysk— kopię do drive‘u # n (1 lub 
2). Należy wówczas włożyć do stacji dys- 
ków czystą sformatowaną dyskietkę i wcis- 
nąć RETURN. Na dyskietkę tę zostanie za- 
pisany odzyskany zbiór. Jego nazwą będzie 
ZBIORODYSK. Zbiór ten należy skopio- 
wać (na przykład opcją 0 DOS-a) na mną 
dyskietkę 

Opracował H. KRASUSKI 


RAWTO 75,40 

630 PLOT 2 1,40 DRAWTO 27, 40 PLOT 
24, 43 DRAWTO 24, 37 -PLOT 5, 33 'DR 
AWTO 88,33 

635 FOR U-l TO 15-SETC0L0R 0,10, 
U+10' SETCOLOR 1,2, U+5 : SETCOLOR 2 
,13,9 

640 IF PEEK <764 >=33 THEN POKE 76 

4, 255 'GOTO 15 

645 NEXT U -GOTO 635 

650 DATA 45,5,-1,15,5,70,1,150,7 
0,20,-1,90,20,45,1,65,15,150 

651 DATA 1,5,150,120,-1,70,110,9 
0,-1,70,90,65,-1,28 

655 DATA 17, 13, -1 , 45, 75, 67,63, -1 
,45,75,113,110,-1,60,80,120,117, 

660 ?CHR*< 125) 'POSITION 3,10'? 
"KLAWISZ <Z) ZAMYKA OBWOD PRĄDU 

665 FOR T-l TO 400 i NEXT T 
670 POSITION 3,10'? " PROSZĘ P 
OCZEKAC 15 SEKUND "'FOR T-l TO 
400 = NEXT T 

675 X-PEEK< 54279) ' Y-PEEK< 53277) ' 
Z-PEEK <559 ) ■ 0-0 « POKE 764 , 255 
680 GRAPHICS 5+16 
6|5 AD-PEEK < 1 06 ) - 1 6 1 POKE 106, AD- 

690 POKE 53277 , 3 1 POKE 54279, AD 'P 
OKE 559,62 

695 S«AD*256+ 1024 'FOR I-S TO S+l 
024 -POKE I,0'NEXT I 
700 COLOR 3 -FOR T-4 TO 78'PLOT T 
,20 -DRAWTO T,46'NEXT T'COLOR 1«P 
LOT 3,15 

705 DRAWTO 3, 47 'DRAWTO 79, 47 -DRA 
WTO 79, 15 -COLOR 2 

706 FOR T-6 TO 8 -PLOT T, 15 'DRAWT 
O T, 45 ' N£XT T' COLOR 1 

710 FOR T-73 TO 75 'PLOT T, 15 'DRA 
WTO T , 45 • NEXT T 

711 PLOT 8, 15 'DRAWTO 8, 8 'DRAWTO 
20, 8 'PLOT 20, 5 'DRAWTO 20, 11 -PLOT 

22,3 

715 DRAWTO 22, 13 'PLOT 22, 8 'DRAWT 
O 40, 8 'PLOT 51 , 8 'DRAWTO 73,8'DRA 
WTO 73, 15 

720 SETCOLOR 1 , 3, 15 = SETCOLOR 0,4 
, 0 1 SETCOLOR 2, 4, 8 SETCOLOR 4,4,4 

725 GOSUB 900 =POKE 704,1 POKE 70 
5,1 'POKE 706,15 

726 POKE 707, 15 'POKE 53256, 1'POK 
E 53257, 1 -POKE 53258, 1 -POKE 5325 
9,17 

735 Q=RND<0>*15'H=H-Q' IF H<-80 T 
HEN H-30 

740 IF PEEK <764) -23 THEN POKE 76 
4, 255 'POKE 53248, 60 'POKE 53249,6 
0 = GOTO 742 

741 GOTO 745 

742 POKE 53250, 60 'POKE 53251,60= 
GOTO 785 

745 POKE 53248, 100-H Q«RND<0) *10 

= M=M~Q ' IF M<-40 THEN M-70 

750 POKE 53249, 100+MQ-RND<0)*18 


Elektroliza 


'N=N-Q' IF N<-80 THEN N=30 
7 55 POKE 53250/ 100-N 
760 Q-RND<0>*24' J-J-Q'IF J<-40 T 
HEN J-70'IF PEEK<764>-33 THEN GO 
TO 800 

765 POKE 53231 /100+J' GOTO 735 

770 DATA 0/0/0/0/24/24/60/60/102 
/ 102/ 102/ 231 / 129/ 129/ 129/ 129/ 231 

771 DATA 102/102/102/68/60/24/24 
> 0 / 0 / 0 / 0/0 

775 DATA 0/0/0/0/24/24,60/60/126 
/ 126/ 126/255/ 129/ 129/ 129/ 129/255 

776 DATA 126/126/126/60/60/24/24 
,0, 0/ 0/ 0, 0 

700 COLÓR 3 -PLOT 40,1'DRAWTO 50/ 

1 

785 FOR T-l TO 50'NEXT T<COLOR 3 
■0-0+ 1 « PLOT 40,0' DR AUTO 50 , O • COL 
OR 0 

786 PLOT 40,0-1 «DRAUTO 50/0-1 > IF 
0>-8 THEN COLOR l-PLOT 12/ 13 'GO 

TO 790 

788 GOTO 795 

790 DRAWTO 17/13'PLOT 60/13'DRAW 
TO 66/ 13 -PLOT 63/ 10'DRAMTO 63/16 
■GOTO 800 
795 GOTO 785 

800 IF PEEK<764>-33 THEN POKE 10 
6/P£EK<106)+16'POKE 54279, K- GOTO 

802 

801 GOTO 005 

802 POKE 53277 / Y ' POKE 559/ Z 'POKE 
764/ 255 'GOTO 810 

805 GOTO 015 

010 FOR T-53248 TO 53255 ‘POKE T/ 

S 'NEXT T 'GOTO 15 ' 

15 TRAP 825>T-8'Tl-73'Al-0'Bl-0 
' A-0 1 0-0 

820 L-RND<0>*80+80'U-L'R-fl+l'RET. 
URN 


825 TRAP 035 

030 V-RND<0>*80+80<R-V 8-0+1 -RET 
URN 

035 L-L+l 'W-W-l <V-V+1 'R-R-l 
840 POKE 53248 / U > POKE 53251/L'PO 
KE 53250, V' POKE 53249 ,R 
845 IF L>180 THEN L-180 
850 IF U <60 THEN 14-60 
855 IF V> 180 THEN V-180 
860 IF R<60 THEN R-60 
865 IF W-60 AND L-180 THEN GOSUB 
820 

870 IF V-180 AND R-60 THEN GOSUB 
830 

875 IF A-3 THEN A=0' Al-Al+1 'COLO 
R 1 ■ PLOT T+Al/ 15 'DRAWTO T+Al/45 
880 IF B-3 THEN B-0 « Bl-Bl-1 « COLO 
R 2 1 PLOT Tl+Bl, 15 -DRAWTO Tl+Bl/4 
5 

885 IF B1--7 THEN R1-0B1-0 


890 IF PEEK<764)-33 THEN GOTO 80 
0 

895 TRAP 40000 GOTO 835 

900 S-AD*256+ 1024+1 70 'RESTORE 77 

0 

905 FOR I-S TO S+28'READ B'POKE 
I , B ■ NEXT I 

910 S»AD*256+ 1280+1 40 'RESTORE 77 
0 

915 FOR I-S TO S+28'READ B-POKE 
I / B 1 NEXT I ■ S«RD*256+ 1 656 

916 RESTORE 775 -FOR I-S TO S+28' 
READ B : POKE I,B 

920 NEXT I =S=fiD*256+ 1792+ 190' RES 
TORĘ 775 'FOR I-S TO S+28 'READ B 

921 POKE I / B = NEXT I' RETURN 


Uwaga: Zamiast znaku } (nawiasu węży 
kowego) należy w programie napisać nie- 


dostępny dla drukarki znak \ (pochyloną 
strzałkę). (Otrzymujemy go naciskając naj- 
pierw klawisz ESC, a następnie równocześ- 
nie klawisze CONTROL oraz CLEAR.) 

Jan GOLLA, Piotr GRZEGANEK, 
Paweł WAGNER 
Zespół Szkół Chemiczno-Mechanicznych 
w Gliwicach 


* SUMA KONTROLNA / ETYKIETA * 


FY 

01 

WA 

51 

NS 

101 

KL 

15 

WY 

201 

JP 

301 

MP 

311 

PV 

35 

OM 

401 

KC 

451 

Fb 

501 

NM 

b0 

UW 

651 

UH 

3901 

KD 

3921 

AV 

395 

zc 

4001 

P i 

4051 

FH 

4101 

MR 

425 

MV 

4301 

Bb 

4351 

LL 

4401 

UX 

442 

FK 

4451 

Pt 

4501 

NB 

4551 

OK 

4H0 

HO 

4621 

KU 

4651 

GC 

4671 

UV 

470 

XU 

4751 

UX 

4801 

MW 

4901 

ZB 

500 

UD 

5151 

NI- 

5201 

PI 

5221 

NM 

525 

KU 

5301 

PH 

5351 

KF 

5401 

kb 

545 

PS 

5551 

te 

5601 

PS 

5751 

VA 

585 

MP 

5901 

PY 

5951 

UJ 

6001 

Pt 

605 

KH 

6151 

DH 

6201 

XY 

6231 

NY 

b'Z5 

F8 

6301 

BN 

6351 

KX 

6401 

QA 

645 

TA 

6501 

HL 

6511 

DX 

6551 

WT 

660 

FT 

6651 

ZE 

6701 

PH 

6751 

IA 

680 

KB 

6851 

Cb 

6901 

UL 

6951 

PL 

700 

ii 

7051 

HH 

7061 

1U 

7101 

CI 

711 

HY 

7151 

KD 

7201 

ND 

7251 

OT 

72b 

ER 

7351 

DH 

7401 

SP 

741 1 

HU 

742 

il 

7451 

UM 

7501 

WJ 

7551 

PP 

760 

BI 

7651 

ET 

7701 

HH 

7711 

CU 

775 

LL 

7761 

CP 

7801 

XH 

7851 

ZP 

78b 

VL 

7881 

bb 

7901 

Ul 

7951 

TW 

800 

UU 

801 1 

CP 

8021 

RN 

8051 

UU 

810 

HX 

8151 

XF 

8261 

UX 

8251 

PT 

830 

SB 

8351 

WV 

8401 

PV 

8451 

NN 

H5M 

UH 

8551 

IP 

8601 

EW 

8651 

Lk 

870 

HY 

8751 

CO 

8801 

TD 

8851 

DV 

890 

YT 

8951 

bM 

9001 

Uk 

9051 

bM 

910 

US 

9151 

JN 

9161 

hb 

9201 

ZJ 

921 


Tajemnicze błędy 


Na początek proponuję przeprowadzić 
dwa eksperymenty: 

Program 1 : 

10 FOR k=0 TO 10 STEP.1 

20 PRINT k 

30 NEXT k 
Program 2: 

10 PRINT 1— 1+1e— 30 

20 PRINT 1+1e— 30— 1 

W pierwszym przypadku dla Amstrada, 
Atari i Commodore zamiast dokładnych 
wartości zaczną wyświetlać się liczby z 
ogonami dziewiątek, a w Spectrum pętla za- 
trzyma się na wartości 9.9. 

Winę za zaistniałe w obu przypadkach 
anomalie ponosi dokładność obliczeniowa 
komputera, a ściślej: skończona ilość cyfr 
po przecinku. Np. 0.1 w zapisie dwójkowym 
jest nieskończone (tak jak 1 / 3 w zapisie 
dziesiętnym). Wobec tego w komputerze 
jest trzymane przybliżenie 0.1 , które podczas 
wielokrotnego dodawania w pętli potęguje 
błąd. Jeżeli zamiast 0.1 wstawimy 0.125 


(jest ono zapisywane dokładnie), to błędu nie 
będzie. 

Wniosek: Używać należy kroku dającego 
się zapisać dokładnie 
(najlepiej 1 ): 

1 0 FOR k=0 TO 1 00 
20 PRINT k/10 
30 NEXT k 

W drugim przykładzie w linii 20 do 1 doda- 
je się bardzo mała liczba (1 e — 30). która ze 
względu na skończoną ilość liczb po prze- 
cinku zostaje obcięta. 1 e— 30 wymaga po- 
stawienia 1 na 30-tym miejscu po przecin- 
ku, a komputery nie dopuszczają więcej 
liczb po przecinku niż 14. Stąd 
1+1e— 38=1 Ponieważ dodawanie jest 
przez komputer wykonywane kolejno, stąd 
od otrzymanego wyniku zostaje odjęte 1 i 
powstaje błędny wynik wynoszący 0. Nato- 
miast w linii 10 najpierw zostają od siebie 
odjęte jedynki dając w efekcie 0, a do 0 zo- 
staje dodana liczba 1 e— 30. Stąd wynik jest 
prawidłowy. 

Krzysztof POŹNIAK 



Semigrafik 


ZX Spectrum 



.. ar* 
m m 

3 PRINT 
AT b, f;a*(a) ; 
AT b, i ; bi (a) ; 
AT « , f ; (a) ; 

AT a , i ; b$ (a) , 
AT c , f ; ci (a) ; 
AT c , ł ; ds (a ) ; 
AT d , ( ; ci (a) ; 


.... (RNDłlB) ; 
fiNDaS) : LET c *13-b : 
LET C * 1® + b : 
ND *8) : LET 9-16+f : 
LET i =13- f 

AT b , 9 , a $ (a ) ; 
AT b,h; b$ (a) ; 
AT 8 ,9 / as (a) ; 
AT 8 ,h; b* (a) , 
AT c , 9 ; c i ( a > , 
AT c ,h; d$ (a) , 
AT d , 9 , c i i a : . 


GO TO 2 

4 SAUE "SEMIGRAFIK" 

5 DATR 

131/ 131, 14-0/ 140/ 14®, 14 

137,134 , 134 , 137,134, 13. 

138 , 133 , 138 , 133 , 133 , 138 , 133 , 13' 
142,141,139,135,139,135,142 “ 

143,143,143, 143,141, 142, 

135 , 139 , 141 , 142 , 134 , 137 


142,141, 

łB:łH- 


K&.1S 
te 


ÓRE^n +ł . 8® ; - N 

144+CMRS 144 ♦ 

PAPER 0: INK 7; C 


aŚ«CHRS 


WAok 

Kr/..\iSKr/..\S 


28 BORDER *; PAPER 0: INK 7: 
L5 3Ó 5Im lT|i TO B: RE 

D ijfcńTA Si 2^039, 3. 88,4.98, 7.0 

TlM* §§*■»■• 


P e| + NExł n P 
P8ML* 


0%,a»?AT $%;ajh Łtr' 



lis gcesR-t eji.' 
aw; B E ?o-!* 8i u8ripv : 

1000 REM 

Proęras 
powstała za 


>k 


a»on*tr 

zmiaszanł - - 

patatu koaputara spactrua 




25 
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xz 

SPECTRUM 


Bakarat 


BAKARAT to bardzo popularna w XIX w. 
we Francji gra hazardowa w karty. Jak zwy- 
kle w takich przypadkach reguły są proste. 
Osiem talii kart. bankier, stawki i nieograni- 
czona liczba graczy. Każdy z nich stawia 
pewną sumę, lecz rozgrywa tylko ten, który 
postawił najwięcej. On i bankier otrzymują 
po 2 karty. Wygrywa ten. którego karty mają 
najwięcej punktów. 

Poszczególne karty punktuje się następu- 
jąco: as — 1, figury i 10 — 0, blotki — ich 
wartość Jeśli suma punktów przekracza 9, 
to oblicza się jej modulo 9 Gracz rozgrywa- 
jący wygrywa automatycznie mając 8 lub 9 
punktów, (chyba że bankier ma tyle samo), 
czeka mając 6 lub 7 punktów, musi dobrać 
kartę mając mniej niż 5 punktów, decyduje o 
dobraniu karty mając 5 punktów. 

Bankier zawsze dobiera kartę, jeśli ma 
początkowo mniej niż 5 punktów. Jeśli roz- 
grywający wygra, to bank wypłaca wszyst- 
kim graczom stawki. Jeśli wygra bankier, to 
wszyscy tracą postawione pieniądze na je- 
go korzyść. 

Zasady gry są nieco uproszczone, co nie 
przeszkadza przecież w ich modelowaniu. 
Zresztą powstało wiele odmian bakarata, 
chociażby CHEMIN DE FER. 

Krzysztof MAMCARZ 


10 GO SUB 1000 
23 GO SUS 2000 
25 GO SUE 2500 
30 GO SUB 3000 
40 GO SUB 4000 
30 GO SUB 6000 
60 GO TO 25 
100 STCP 

1003 REh ■ 

1010 LET bank = 

1020 DIM k (8,4, 13) 

1030 LET adres *U5R "a" 

1040 RESTOPE : FOR i =0 TO 31 
1050 RE AD baj tek: POKE adres +a , 

1060 NEXT a 
1500 RETURN 
1700 DATA ' 


Ó , 6 , lO ,3B , i.** ,«t»* ,o* , 30 , a I lO 

,56, 124.264. 124 ,56, 16,0,56,56 .21 600 

4,254,214, 16.56,0 001 


DATA 0.108,254,254.124.56.1 
16 ,56 .124 .254, 2Ś4 ,84 ,56,0 , 16 


por ą-i to oracz 

' ?• > <1 THEN LET C-C41: 


IP 


2540 PRINT "gracz ";a;" ";r(ał 
2550 input (»*(*>) *'•» t« stawtasz 

2660 IP* (S (ą) OINT S (a> ) OR (S (a 


Ml) THEN GO TO 8130 

2570 1P S ta> > Ha> THEN 00 TO 8ll 

§660 IP s(a>>m*x THEN LET 

S ) : LET opoz-a 

- - g "TffwnfWJIWe l 


301 

IEA 


o su 
T t 


b+Pk 

3050 NEX‘. 
3060 PR1NT 
OPOZ ) 


BANK 

let sumag-o 

LET somab-suma 


PRINT INUERSE !;>•( 


OS - S0 |u5 5 i§ńr LET * u * 


PRINT 


3o§0 ne; 

2r?S !-§I »yp*t>“*uaab'9# (SU»ab>9) 

31 1® LET *umag>sumag-9» tiuttig >9) 

3120 RETURN 

4000 rem —ri i- Tfr-rrn 

4010 IF sus a b >7 OR sumag >7 THEN 

Gu TO 4120 

4U»«fl<5 THEN LET w»-"T" 
GO TO 4070 

™ EN C0 TO 4100 

4040 INPUT (ift(OPOZ) I ' "CZU dObi« 

? tT/N) " ; w i 

TO 4iS/*' ,N ° R ™ 8N GO 

tSr® ' r So?i?"T- , 0R THEN PR 

INT_: PRINT i*(OPOZ)." doiiłra •• 


S? 0 0R »l«"t" 

? ił u ** 9 > * ł : 0° 


nu 


2000 REM _ 

2010 INPUT "Ilu graczy 7", gracz 
2023 IP (oraczoINT gracz) OP tg 
racz < i) THEN 50 TO 2010 
2030 om i i (gracz , 16) OIM ftgra 
cz) DIH s (gracz) 

2048 fos a=I TO gracz 
2050 input "iwie gracza 
", LINĘ i* (a) 

2060 PRINT a , i « ta 
2070 LET f (1) *100 
2080 NEXT a 
2090 RETURN 
2500 REH WP 
2610 PAU5E 
=0 ' * 


dobiera 

mru 

>0 4040 

l «8 ?^I N T bank i #r " , "do bi e ra " 

; ts»$;sr* k,p 


NOl 

50 

414 0 PRINT INUERSE lii 0(0 

UVGRA£" 

4150 50 SUB 5000 
4160 PAUSE 0. CL5 
4170 PPINT "ST RN GOT0UKI 
4160 PPINT " - 

4190 PRINT PRlWt 1 
4200 FOR a-l TO gracz 
4210 PRINT i t (4) , r (a) 

4220 NEXT a 
4230 RETU RN 

5S00 REM — 

5010 por a*l TO gracz 
5020 IF sumab>sumag THeN LET s (a 
) * -s (a) 

6030 LET r (a) «r (a) *» (a) 

5040 let bank-bank-s (a) 

605 C NEXT 
“.060 RETUI 
G0t! REh | 

INPU 


6&20 IF b* 

TURN 

6040 STOP 


ramy 

OR w«-* 


1 (T/N) 
THEN RE 


a) . " : 


LET aax 


c . ... .0 8 . 

7040 .IF k (a, kolor .karta ) *0 THEN 
LET k (a .kolor , karta) -i: GO TO 71 
00 

7050 NEXT a: GO TO 7010 


r ta 
7120 RETUI 
7530 REH 
7510 IF 


' RN 

■MMH n—B BH— i 

ar la <il RWfc UrU> 


7520 IF k a r t a * 1 THEN LET «» 

7530 IP ka r ta « 11 THEN LET e|-"U" 
-'40 IF kar ta* 18 THEN LET e §■”$>" 
:50 IF kar ta*13 THEN LET ei-"K" 

* • "‘IK (O+Ł* tko lor »* 

Ł Uoior*l43) 


7BL. .. 

7660 PRINT c«; 

OH kolor -3) > ;CHR| 
7570 RETURN 


ZX Spectrum 


Przeliczanie 


stopy i cne : dokładnością do 

154 cal* 

1 Kile « 1760 ydS * 5230 rt 
i uh - 3 rt « J® in 

IM - 12 m 


283 ID 47 CU) 

228 yd 2 rt 


29 «m 53 cm 3 mm * 

13 a I 49 yd 9 1/6 


100 PEM 1 ■ 

ne fog rsrmsT tswt « poke 

USR ' a" *n ,a next n 
120 DATR 0,0,55,4.60,63.60,6.0, 
16,20,24,48,16,12,0.3,16,56.64,5 
6,4,120,0 

130 REM a*a b * t c*i 
143 CLS . BORDER 6 
150 PRINT INK 1, 

Program przelicza metryczne 
miary długości na iniie, Jardy, 
stopy i cale z dokładnością do 
1/64 cala" 

160 PRINT INK 2 
1 mi l* «■ 1760 yds • 5280 rt 
i yd » 3 rt « 36 in 

1 rt =12 in" 

165 PRINT INK 0, A - 

1 mi le = 1608.64 m 
1 km = 1094 ud 3 19/64 in" 
170 FOR t=l TO o BE5P .01.26. 
BEEP .01,24 3EEP .015,30 NEXT 
t 

130 PRINT INK 2 ' " 

iioiNPUT^k l lóme t ry ", LINĘ k« 
IF k THEN LET kt«*0 

191 IF k *<>"" THEN LET K Im -UAL 

k % 

198 INPUT "metry ", LINĘ m« IF 

mf*' " THEN LET mtr*0 

193 IF m(( > " " THEN LET mtr-UAL 

'' 194 INPUT "centymetry ", LINĘ c 
$. IF C$=“" THEN LET ctm=0 
195 IF CIO"" THEN LET Ctm-UAL 

C i 96 INPUT "milimetry ", LINĘ l« 

: IF 1* = "" THEN LET inlm=0 

197 IF THEN LET »lm«UAL 

l S 

200 LET m«*mim+l0*ctm+l000*mtrł 
10 O 0000 *k im 

210 LET krn«0. LET m-0: LET cm-0 
LET mm-INT mm 

240 IF mm *9 THEN LET cm*INT (mm 
/ 10 ) : LET mm *ms -1©*INT (mm/10) 
250 IF cm >99 THEN LET m*lNT (cm 
/ 130) LET cm*cm-100*INT (cm/100 


" ", IF km >0 THEN GO 

km , " km " , 
i THEN 50 TO 310 

S'THEN 6o to 330 
0 THEN 'go' TO 350 


280 PRINT 
290 IF m*i 
300 PRINT 
310 IF cm 
320 PRINT 
330 IF mm 
340 PRINT i 
350 LET mm 
aOOtkm 
363 PRINT 
370 LET mi 
330 PRINT 
390 IF INT 
400 PRINT 
410 LET yd 
420 IF INT 
430 PRINT 
44? LET r 
450 IF INT 
460 PRINT 
470 LET ii 
4?0 ! e i n 
490 IF TNT 
5O0 PRINT 
510 LET re 


mi 


' 1608640 

THEN CO TO 410 


.... ,64 

520 IF 
PRINT 
530 FOR 
543 IF 
tn) TNFN PR 
2 rn," i o 
550 NF »T 


INT m», "u . 

INT mi 1 #1760 
... THEN CO TO 440 
INT yd , " yd ", 

- (yd -INT yd) 43 

t=0 THEN GO TO 470 

int rt, f t 

= • f t -INT r 1 1 * 12 
i -64 TMEN go TO 170 
n =0 THEN 00 TO 510 
INT illi" 

s; t a a INT (64* ( in -INT 


z" t a *8 f n» INT (resrt 
INT f-5tn* - Jk7t%) ; " 
GO TO 170 

170 

"KM KILE " LINĘ 1C? 
CL5 PRINT i i' 

'ERIFY "" ‘ 


!8o 


26 



Przedstawiamy zaktualizowaną listę (por. "IKS" 
nr. 1/87 oraz nr. 12/87) skrótów, które związane 
są z mikrokomputerem, łącznie z ich oryginalną in- 
terpretacją. Czekamy na inne. Waszym zdaniem, ważne 

skróty. 

W jednym z najbliższych numerów *'IKS-a" postaramy 
się przedstawić uaktualnioną listę skrótów wraz z 
ich tłumaczeniem < interpretac ją) w języku polskim. 

ACK - AFFIRMATIVE ACKNOWLEDGMENT, 

ACU - AUTOMATIC CALLING UNIT, 

ADA - ALL. POINTS ADDRESSABLE, 

ADLC - ADWANCED DATA LINK CONTROLLER, 

ADP - AUTOMATIC DATA PROCESSING, 

ADPCM - ADAPTIVE DIFFERENTIAL PCM, 

Al - ARTIFICIAL INTELLIGENCE, 

AL - AUTOLOAD. 

ALE - ADDRESS LATCH ENABLE, 

ALU - AR 1 THMET 1 C— LOG I C UNIT. 

APA - ALL POINTS ADDRESSABLE MODĘ. 

API - AUTOMATIC PROGRAM 1NTERRUPT, 

ARQ - AUTOMATIC REOUEST FUR REPEATS, 

ASCII - AMERICAN STANDARD CODĘ FOR INFORMATION 
INTERCHANGE. 

AT -- ADVANCED TECHNOLOGY. 

AU - AR 1 THMET IC UNIT. 

BASIC - BEGINNER-S ALL-PURPOSE SYMBOLIC INSTRUCTION 
CODĘ, 

BCC - BŁOCK CHARACTER CHECK, 

BCD - BINARY CODED DECIMAL. 

BCD - BLANK COLUMN DETECTION, 

BDOS - BASIC DOS, 

BER - BIT ERROR RATĘ, 

BEX - BROADBAND EXCHANGE, 

BF - BEST FIT ALGORITHM, 

BFD - BEST FIT DECREASING ALGORITHM, 

BIOS - BASIC INPUT-OUTPUT SYSTEM, 

BI U - BUS INTERFACE UNIT. 

BORAM - BLOCK-OR 1 ENTED RAM, 

BPI - B1TS PER INCH, 

BPS - BITS PER SECOND. 

BSC - BINARY SYNCHRONOUS COMMUNICATIONS. 

CAD - COMPUTER AIDED DESIGN, 

CAI - COMPUTER- A X DED INSTRUCTION, 

CAM - COMPUTER AIDED MANUFACTURE. 

CAMAC - COMPUTER AIDED MEASUREMENT AND CONTROL, 

CAN - CANCEL CHARACTER, 

CAP - COMPUTER AIDED PUBL1SH1NG. 

CCP - CONSOLE COMMAND PROCESSOR, 

CD ROM - COMPACT DI SC ROM. 

CGA - COLOR GRAPHICS ADAPTER, 

CIM - COMPUTER 1NPU1 M1CROF1LM. 

CISC - CUMPLEX INSTRUCTION SET COMPUTER, 

CIU - COMPUTER INTERFACE UNIT. 

CMOS - CUMPLEMKNTARY METAL-OXIDE SEM1CONDUCTOR, 

CMC - COMPUTER NUMERI CAL CONTROL. 

CPI - CHARACTERS PER INCH, 

COM - COMPUTER OUTPUT M1CROF1LM, 

CPL - CURRENT PR I V 1 LEGE LEVEL. 

CPM - CONTROL PROGRAM FOR MICROCUMPUTERS <CP/ MONI- 
TOR) . 

CPM - CRI TH 1 CAL PA TH METHOD. 

CPS - CHARACTERS PER SECOND. 

CPU - CENTRAL PROCESSING UNIT. 

CRAM - CARD RANDOM ACCESS MEMORY. 

CRC - CYCL1CAL REDUNDANCY CHECK. 

CRC - CYCLIC REDUNDANCY CHECK CHARACTER, 

CROM - CONTROL AND READ-ONLY MEMORY, 

CRT - CATHODE-RAY TUBĘ, 

CSL - CONTROL AND S 1 MULAT 1 ON LANGUAGE, 

CT - COMPUTER TOMOGRAPH, 

CTI - COAX 1 AL TRANSCE I VER INTERFACE, 

CU - CONTROL UNIT, 

CVSD - CONT 1 NUOUSLY VAR 1 ABLE SLOPE DELT AMODULATION, 
DAA - DATA ACCESS ARRANGEMENT . 

DAS - DATA ACUU1S1T10N SYSTEM. 

DBMS - DATABASE MANAGEMENT SYSTEM. 

, DCE - DATA CUMMUN I CAT I ON EUU1PMENT . 

DCN - D1STRIBU1ED COMPUTER NETWORK. 

DDCMP - DIGITAL DATA COMMUNICATIONS MESSAGE PROTOCOL. 
DDD - D1RECT 1)1 STANCE Dl AL ING. 

DDF - D1RECT DATA ENTRY. 

DDL - DATA DESĆR1PTION LANGUAGE. 

DDS - DATA-PHONE DIGITAL SERV1CE. 

DEL - DELETE CHARACTER, 

DES - DATA ENCRYPT10N STANDARD. 

DFA - DIGITAL FAULT ANALYS1S, 

DG - DATAGRAM. 

DI - DIGITAL INPUT. 

DIC - DIGITAL INTEGRA! ED CIRCUIT, 

DID - DIGITAL INFORMATION DISPLAY. 

DIP - DUAL IN- LI NE PACKAGE, 

DLE - DATA LINK ESCAPE. 

DMA - D1RECT ACCESS MEMORY. 


DMĄC - DIRECT MEMORY ACCESS CONTROLLER. 

DM1. - DATA MANI PUL AT TON LANt5UA0E‘, 

DNC - DIRECT NUMERI CAL CONTROL. 

DO - DIGITAL OUTPUT. 

DOC - D1AGNOST ICS ON-CH1P. 

DOR - DIGITAL OPT1CAL REC0RD1NG. 

DOS - Dl SC OPERAT ING SYSTEM. 

DPB DIS). PARAMETER BŁOCK. 

DPI. - DESCR1PTOR PR 1 VI LEGE LEVEL. 

DRAM - DYNAMIC RANDOM ACCESS MEMORY. 

DRAW - DIGITAL READ AND WR1TE, 

DTA - D1SK TRANSFER AREA, 

DTE - DATA TERMINAL EOUlPMENT, 

DTE - DT -EOUlPMENT. 

DU D1SK UNIT. 

E 2 - ELECTR 1 CALL Y ERASABLE DEV1CE, 

EA - EFFECT1VE ADDRESS, 

EAC - END-AROUND CARRY . 

EARN - EUROPEAN ACADEM1C RESEARCH NETWORK. 

EAROM - ELECTR 1 CALL Y ALTERABLE ROM. 

EARS - ELECTRONIC AUDIO RECUGNIT 1UN SYSTEM. 

EBCDIC - EXTENTED B 1 NAR Y-CODED DECIMAL INTERCHANGE 
CODĘ. 

EBNF - EXTENDED BACKUS-NAUR FORM. 

ECC ERROR CORRECT 1 ON CODES. 

ECD - ENHANCED CONSOLE DR1 VER. 

ECGB - ENHANCED COLOR GRAPHICS BOARD, 

ECMA - EUROPEAN COMPUTER MANUFACTURES ’ ASSOCIATION, 
ECTL - EM1TTER-C0UPLED TRANSISTOR LOGIC, 

EDG - ERROR DETECTION/CORRECTION. 

EDP - ELECTRONIC DATA PROCESSING. 

EDPC - ELECTRONIC DATA PROCESSING CENTER, 

EDPE - ELECTRONIC DATA PROCESSING EOUlPMENT, 

EDPM - ELECTRONIC DATA PROCESSING MACHINĘ. 

EDR - EXTERNAL DATA REPRESENTAT ION. 

EDSAC - ELECTRONIC DELAY BTURAGE AUTOMATIC CALCULA- 
TOR. 

EDT - EDITOR, 

EDVAC - ELECTRONIC DISCRETE UARIABLE AUTOMATIC CAL- 
CULATOR, 

EFL - ERROR FREOUENCY LIMIT, 

EGA - ENHANCED GRAPHIC ADAPTER. 

El A - ELECTRONIC INDUSTRIES ASSOCIATION, 

EIN - EUROPEAN INFORMATION NETWORK, 

ELD - ELECTROLUMINESCENT DISPLAY. 

ELSI - E X TRA-L ARGE-SC ALE INTEGRA! ION, 

EKI - ELEC TROMAGNET 1 C INTERFERENCE, 

EMOS - ENHANCEMENT MOS, 

ENQ - ENOUIRY, 

EOB - END OF BŁOCK, 

EOF - END OF FILE, 

EOI - NON-SPECIFIC END OF INTERRUPT, 

EOR - END OF RECORD, 

EOT - END OF THE TAPE, 

EOT - END OF TRANSMISSION. 

EPROM - ERASABLE PROGRAMMABLE READ ONLY MEMORY, 
E*PROM - ELECTR ICALLY ERASABLE PROGRAMMABLE ROM, 

ERA - ERASE CHARACTER, 

EROM - ERASABLE ROM, 

ERR - ERROR, 

ES - EXTRA SEGMENT, 

ESC - ESCAPE CHARACTER. 

ESD - EXTERNAL SYMBOL DICTIONARY, 

ESS - ELECTRIC SW1TCHING SYSTEM, 

ETB - END OF TRANSMISSION BŁOCK CHARACTER. 

ETX - END OF TEXT CHARACTER, 

EU - EXECUTION UNIT, 

EXE - EXECUTE, 

FAT - FILE ALLOCATION TABLE, 

FAX - FACSIMILE. 

FC - FONT-CHANGE CHARACTER, 

FCB - FILE CONTROL BŁOCK, 

FCFS - FIRST-COME FIRST -SERVED . 

FCP - FILE CONTROL PROCESSOR. 

F CS - FRAME CHECK SEOUENCE, 

FD - FILE DESCRIPTION, 

FDB - FILE DESCRIPTION BŁOCK, 

FDM - FREOUENCY D1UISION MULT I PLE X I NG , 

FEP - FRONT END PROCESSOR, 

FET - FIELD EFFECT TRANSISTOR. 

FXF - FLIP-FLOP, 

FF - FIRST FIT ALGORITHM, 

FF - FORM FEED, 

FFD - FIRST FIT DECREASING ALGORITHM, 

FIB - FILE IDENTIFICATION BŁOCK. 

FIFO - FIRST— IN FIRST-OUT, 

FILER - FILE MANAGER. 

FILO - FIRST— IN LAST-OUT. 

FI MUFO - FIRST— IN— NOT— IJSED-F 1 RST— OUT . 

FLOPS - FLOATING-POINT OPERAT 10NS PER SECOND. 

FLX - FILE EXCHANGE UT1L1TY, 

FM - FREOUENCY MODULAT1UN, 

FMT - FORMAT, 

FPL A - FIELD-PROGRAMMABLE LOGIC ARRAY. 
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FPROMta*! KTEUt>aRRaGRAMMl&Bt^n)Mlo aSES-Ta^OO*! 0IMOST03J3 
FPU - FLOATING POiNJiPhOCKe&ING; -o tiicnJ >h-- i .-• i. I rA 

FS - FlUt SEPARATOR, ' .lUTOiiTin- • 

FSK - FRtOUENCY SHIFT KEY1NG. 

GE - GREATER OR EQUAL . 

GEM - GRAPHICS ENV1R0NMENT MANAGER. 

GIGO - GARBAGE IN. GARBAGE OUT, 

GKS - GRAPHICS KERNEL SYSTEM. 

GPS - GENERAL PROBLEM SOLVlNG, 

GSX - GRAPHICS SYSTEM EXTENSION. 

GT - GREATER THEN, 

HASP - HOUSTON AUTOMATIC SPOOL1NG PROGRAM, 

HDAM - H I ER ARCH I CAL DIRECT ACCESS METHOD, 

HDLC - HIGH LEVEL DATA LINK CONTROL. 

HDR - HIGH DENSITY RECORDING. 

HGC - HERCULES GRAPHICS CARD, 

HIC - HYBRID INTEGRATED CIRCUIT, 

HISAM - HIERARCHI CAL INDĘXED SEOUENT I AL ACCESS 
METHOD, 

HLL - HIGH-LEVEL LANGUAGE, 

I AD - IMAGE ACOU1SITION AND DISPLAY, 

I AS — IMMEDIATE ACCESS STORAGE. 

IBM - INTERNATIONAL BUSINESS MACHINES. 

IC - INTEGRATED CIRCUIT, 

ICA — I NTRA- APPL I CAT I ON COMMUNICATIONS AREA, 

ICL - INTERNATIONAL COMPUTERS LTD. . 

ID - IDENTIFY MARKER, 

IDAS - INDUSTRIAL DATA ACOUI9ITION SYSTEM. 

IDP - INTEGRATED DATA PROCESSING. 

IDS - INTEGRATED DATA STORĘ. 

IFF - INTERCHANGE FILE FORMAT. 

IFIP - INTERNATIONAL FEDERATION FOR INFORMATION PRO- 
CESSING. 

ILBM - INTERLEAVE BIT MAP, 

I MIS — INTEGRATED MANAGEMENT INFORMATION SYSTEM, 

IMP - INTERFACE MESSAGE PROCESSOR. 

IMPACT - I MPLEMENTAT I ON PLANNING AND CONTROL TECHN1— 
QUE, 

IMR - I NTERRUPT— MASK REGISTER, 

INFO - INFORMATION FIELD. 

INT - INTEGER, 

INT - I NTERRUPT, 

1X0 - INPUT/OUTPUT. 

IOCS - INPUT/OUTPUT CONTROL SYSTEM. 

IOS - INPUT/OUTPUT SYSTEM, 

IP - IMAGE P0SITIUN1NG, 

ISAM - INDEX -SEOUENT I AL ACCESS METHOD, 

ISO - INTERNATIONAL STANDARDS ORGAN I SAT I ON . 

ISR - I NTERRUPT SERVICE ROUTINE. 

ISR - IN SERV1CE REGISTER. 

IT - INFORMATION TECHNOLOGY. 

ITB - I NTERMED I ATE TEXT BŁOCK, 

JCL - JOB CONTROL LANGUAGE, 

JMP - JUMP, 

KB - KILOBYTE, 

KBD - KEYBOARD. 

KSAM - KEYED SEOUENT I AL ACCESS METHOD. 

LAN - LOCAL AREA NETWORK, 

LCD - LIOUID— CRYSTAL DISPLAY, 

LCFS - LAST COME— FIRST SERYED, 

LF - LINĘ FEED, 

LFU - LEAST FREOUENTLY USED REMOVAL, 

LIC - LINEAR INTEGRATED CIRCUIT. 

LIFO - LAST- IN FIRST-OUT. 

LIOCS - LOGI CAL INPUT/OUTPUT CONTROL SYSTEM, 

LISP - LIST PROCESSING < LANGUAGE ) . 

LPC - LINEAR PREDICTI VE CODING, 

LRU - LEAST RECENTLY USED REMOVAL, 

LSB - LOWER-SET SIGN1F1CANT BIT, 

LSI - LARGE SCALĘ I NTEGRAT I ON , 

LT - LESS THAN, 

LUT - LOOKUP TABLE, 

MAC - MEDIUM ACCESS CONTROL, 

MAR - MEMORY ADDRESS REGISTER, 

MAU - MEDIUM ATTACHMENT UNIT. 

MBR - MEMORY BUFFER REGISTER, 

M. C. - MACHINĘ CYCLE, 

MCU - MICROPROCESSOR CONTROL UNIT. 

MDA - MONOCHROME DISPLAY/PR INTER ADAPTER. 

MDI - MEDIUM DEPENDED INTERFACE, 

MDR - MEMORY DATA REGISTER, 

MFM - MODIFIED FREOUENCY MODULATION. 

MGC - MONOCHROME GRAPH1C /PR INTER CARD, 

MIC - MONOLITHIC INTEGRATED CIRCUIT. 

MIC - MICROWAVE INTEGRATED CIRCUIT. 

MI CR - MAGNET IC INK CHARACTER READER, 

MI CR - MAGNET IC INK CHARACTER RECOGN I T I ON , 

MIDI - MUSICAL INSTRUMENT DIGITAL INTERFACE, 

MIS - MANAGEMENT INFORMATION SYSTEM, 

MMU - MEMORY MANAGEMENT UNIT. 

MODEM - MODULAT I ON/DEMODULAT I ON DEV1CE, 

MOP - MULTIPLE ON-LINE PROGRAMMING. 

MS DOS - MICROSOFT DOS, 
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MAK - NEGAtlVE ACKNOWLEDGEMENT , 

NC - NUMERI CAL CONTROL, 

NCP - NETWORK CONTROL PROGRAM, 

NDRO - NON-DESTRUCTI VE READOUT. 

NIC - NETWORK INTERFACE CONTROLLER, 

NI U - NETWORK INTERFACE UNITS, 

NLQ - NEAR LETTER 0UAL1TY, 

NO-OP - NO-OPER AT I ON INSTRUCT10N, 

NPR - NON-PROCESSOR REOUEST , 

NRFD - NOT READY FOR DATA, 

OCR - OPTICAL CHARACTER RECOGN ITI ON, 

ODS - OUTPUT DATA STROBĘ, 

OEM - ORIGINAL EOUIPMENT MANUFACTURER, 

OPR - OPERAT I ON REGISTER, 

PAM - PART I T 1 ONED ACCESS METHOD, 

PC - PERSONAL COMPUTER, 

PC - PROGRAM COUNTER, 

PCM - PULSE CODĘ MODULATION, 

PCN - PERSONAL COMPUTER NETWORK, 

PCU - PERIPHERAL CONTROL UNIT, 3V CT \jt 

PDC - PROCESS DIGITAL CONTROLLER, * n 

PW - PUBLIC DATA NETWORK, 

PDS - PROGRAM DES/ELOPMENT SYSTEM, 

PERT - PROGRAM EVALUAT10N AND REVIEW TECHNlOLlti 
PGC - PROFESSIONAL GRAPHICS CONTROLLER 
PGS - PROFESSIONAL GRAPHICS SYSTEM, 

PIC - PROGRAMMABLE 1 NTERRUPT CONTROLLER, rW . : 1 -ł h 
PIC - PERSONAL IDENTIFICATION CODĘ, • .t 

PIF - PROGRAM INFORMATION FILE, 

PIO - PROGRAMMABLE INPUT OUTPUT, ii,k 

PIP - PERIPHERAL INTERCHANGE PROGRAM, . 

PIPS - PAN INFORMATION PROCESSING SYSTĘH,^, , VM {l) j 
PL^l - PROGRAMMING LANGUAGE 1, flor:v';VMai>l 

PLA - PROGRAMMABLE LOGIC ARRAY, iqMO : TH..1 

PLC - PROGRAMMABLE LOGIC CONTROLLER, -.-o oh 
PLXM - PROGRAMMING LANGUAGE FOR MICROPROCESSORS, 
PLXZ - PROGRAMMING LANGUAGE FOR ZI LOG, 

PM - PHASE MODULATION, 

PMD - POSTMORTEM DUMP, 

POST - POWER-ON SELF TEST. , , no 

POS TERMINAL - POINT-OF-SALE TERMINAL, *, . - y r::n 

PPI - PROGRAMMABLE PERIPHERAL INTERFACE,- J < ia 
PROM - PROGRAMMABLE READ-ONLY MEMORY, 

PSN - PACKED SWITCH1NG NETWORK, 

PSU - POWER SUPPLY UNIT, 

PSW - PROCESSOR STATUS WORD, 

PSW - PROGRAM STATUS WORD, 

QBE - OUERY BY EX AMPLE, 

Ol SAM - OUEUED INDEXED SEQUEN T 1 AL ACCESS METHOD, 
QUSAM - OUEUED SEOUENT I AL ACCESS METHOD, y , lA ; 

OUT AM - OUEUED TELECOMMUN I CAT I ON ACCESS Mt^TH^D 
RACS - REMOTE-ACCESB COMPUTING SYSTEM, 

RAM - RANDOM ACCESS MEMORY, 

RCTL - RES I STOR— CAP AC I TOR TRANS I STOR LOGIC, 

RECOL - RETRIEVAL COMMAND LANGUAGE, Y.l 

REPROM - REPROGRAMMABLE MEMORY, 

RGB - RED— GREEN-BLUE , 

RISC - REDUCED INSTRUCTION SET COMPUTER, 

RJE - REMOTE JOB ENTRY, 

RMM - READ MOSTLY MEMORY, 

ROM - READ-ONLY MEMORY, 1 1 

ROMP - READ-ONLY MEMORY PROGRAMMABLE, 

ROS - READ ONLY STORAGE, ' 

RPC - REMOTE PROCEDURĘ CALL. 

RPG - REPORT PROGRAM GENERATOR, 

RPN - REYERSE POLISH NOTATION, , 

RPROM - REPROGRAMMABLE ROM, 

RS - RECORD SEPARATOR, 

RSX - RESOURCE SHARING EXECUTIVE, 

RTC - REAL-TIME CLOCK, 

RTL - RES ISTOR-TRANSI STOR LOGIC, 

RVI - REVERSE I NTERRUPT, 

R Z - RETURN TO ZERO (CODING), 

SAA - SYSTEM APPLICATION ARCH 1 TECTURE , , i i 

SAM - SEOUENT I AL ACCESS METHOD, 

SATO - SELF-ALIGNED TH1CK OXIDE (TECHNOLOGY), 

SBC - SINGLE-BOARD COMPUTER, 

SCCS - SOURCE CODĘ CONTROL SYSTEM, 1 - 

SC RAM - STATIC COLUMN RAM, 

SDA - SOURCE DATA AUTOMAT ION, 

SDI - SELECTIVE D ISSEM1NAT ION UF INFORMATION, • r l 
SDLC - SYNCHRONOUS DATA LINK CONTROL, 

SGPA - STATIC GRAPH PART ITI ON I NG ALG0R1THM, 

SI - SHIFT— IN CHARACTER, 1 " 

SID - SOUND INTERFACE DEV1CE, 

SIMPP - SIMPLE IMAGE-PROCESSING PACKAGE, 

SJN - SHORTEST JOB NEXT. 

dokończenie w następnym numfetze 
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EDIT SESSION - sesja edycji, 

EDIT WORD - słowo wydawnicze, 

EDP - patrz: ELECTRONIC DATA PROCESSING, 

EDPC - patrz: ELECTRONIC DATA PROCESSING CENTER, 
EDPE - patrz: ELECTRONIC DATA PROCESSING EQUI PMENT , 
EDPM - patrz: ELECTRONIC DATA PROCESSING MACHINĘ, 
EDR - patrz: EXTERNAL DATA REPRESENTATI ON , 

EDSAC - patrz: ELECTRONIC DELAY STORAGE AUTOMATIC 
CALCULATOR, 

EDT - patrz: EDI TOR, 

EDUCABILITY - edukacja, nauczanie, 

EDUCATION - patrz: EDUCABILITY, 

EDUCATIONAL AIDS - pomoce naukowe. 

EDUCATI ONAL STATUS - poziom wykształcenia, 
EDUCATIONAL SYSTEM - szkolnictwcJ. 

EDULCORATE - usuwać błędną informację, 

EDVAC - patrz: ELECTRONIC DISCRETE VARI ABLE AUTOMA- 
TIC CALCULATOR, 

EFFECTIVE - skuteczny, użyteczny, efektywny, 

EFFECTI VE ADDRESS - adres efektywny, 

EFFECTIVE FOR ... - obowiązujący na okres .... 
EFFECTI VE TIME - czas efektywny, czas użytkowy, 
EFFECTI VE TRANSFER RATĘ - praktyczna szybkość prze- 
syłania (danych), 

EFFI CIENCY - sprawność, współczynnik sprawności, 
także: wydajność, efektywność, 

EFFICIENT - sprawny, wydajny, ef.ektywny, 

EFL - patrz: ERROR FRECłUENCY LIMIT, 

EGA - patrz: ENHANCED GRAP HIC ADAPTER, 

EGOLESS PROGRAMMING - programowani e grupowe (tech- 
nologia programowani a) , 

EIA - patrz: ELECTRONIC INDUSTRIES ASSOCIATION, 
EIGENVALUE - wartość własna, 

El GENVECT OR - wektor własny, 

EIGHT-S COMPLEMENT - uzupełnienie do ośmiu, dopeł- 
nienie do ośmiu, 

EI.GHTY -COLUMN CARD - karta 80-kol umnowa. 

EIN - patrz: EUROPEAN INFORMATION NETWORK, 

EITHER-WAY - pół dupleks. 

EITHER-WAY CIRCUIT - kanał pół dupl eksowy , 

EJECT - wyrzucać, wypychać, wyprowadzać, wydalać 
(np. karty z maszyny) , 

EJECTION - wyrzucanie, wypychanie, wyprowadzanie, 
ELABORAIE - wypracowany, starannie wykonany (we 
wszystkich szczegółach), złożony (np. mechanizm), 
skompl i kowany, 

ELABORATION - opracowanie, wypracowani e, 

ELAPSED TIME CLOCK - licznik zegarowy, 

ELECTRIC SENSING - odczytywanie elektryczne. 

ELECTRIC SWITCHING SYSTEM - elektroniczny układ 
przeł ączam a. 

ELECTRICAL - elektryczny, 

ELECTRICALLY - elektrycznie. 

ELECTRICALLY ALTERABLE ROM - pamięć stała reprogra- 
mowalna elektrycznie, pamięć EAROM. 

ELECTRICALLY ERASABLE DEVICE - urządzenie pamięciowe 
wymazywalne i programowalne elektrycznie, 
ELECTRICALLY ERASABLE ROM - pamięć stała wymazywalna 
elektrycznie, 

ELECTRICITY - elektryczność, 

ELECTROMECHANIC - el ektromechani czny, 

ELECTROMAGNETIC INTERFERENCE - zakłócenia elektroma- 
gnetyczne, 

ELECTROMAGNETIC RELAY - przekaźnik elektromagnetycz- 
ny, 

ELECTRONIC ANALOG COMPUTER - analogowa maszyna elek- 

ELECTRONI Ć BRAIN - komputer elektroniczny, elektro- 
niczna maszyna matematyczna, "mózg elektronowy", 
ELECTRONIC DATA PROCESSING - elektroniczne przetwa- 
rzanie danych, EPD, 

ELECTRONIC DATA PROCESSING CENTER - centrum elektro- 
nicznego przetwarzani a danych, 

ELECTRONIC DATA PROCESSING EQUI PMENT - elektroniczny 
sprzęt do przetwarzani a danych. 

ELECTRONIC DATA PROCESSING MACHINĘ - elektroniczna 
maszyna do przetwarzani a danych, 

ELECTRONIC DELAY STORAGE AUTOMATIC CALCULATOR - ele- 
ktroniczny licznik automatyczny na liniach opóźnia- 
jących. 

ELECTRONIC DISCRETE VARI ABLE AUTOMATIC CALCULATOR - 
elektroniczny licznik automatyczny zmiennych dys- 
kretnych, 

ELECTRONIC DOCUMENT - elektroniczny dokument, elek- 
troniczny tekst, 

ELECTRONIC INDUSTRIES ASSOCIATION - Organizacja 
Standardów Elektronicznych, 

ELECTRONIC MAIL - elektroniczna poczta (środki prze- 
syłania i ochrony wiadomości pomiędzy użytkownikami 
sieci komputerowej > , 

ELECTRONIC PACKAGING - montaż zespołów z mikroukła- 
dów elektronicznych. 


| ELECTRONIC POCKET -SI ZE kaJMO$m 

| kulator elektroniczni! mi ni kśl KGl Atór , 

ELECTRONIC SCULPTURING - modelowanie za pomocą kom- 
putera analogowego. 

ELECTRONIC WORKSHEETS - tabele kalkulacyjne (progra- 
my odtwarzające na komputerze zadania planowania 
i kalkulowania), 

ELECTRONICS - elektronika. 

ELECTROST ATI C PLOTTER - ploter elektrostatyczny, pi- 
sak elektrostatyczny, 

ELECTROST ATI C PRINTER - drukarka elektrostatyczna. 
ELECTROST AT I C PRINTER-PLOTTER - patrz: ELECTROST ATI C 
PRINTER, 

ELECTROTHERMAL PRINTER - drukarka termiczna, 

ELEMENT - element, składnik, część składowa, człon, 
ELEMENT ARY - elementarny, jednostkowy, 

ELEVATE - podnosić,' 

ELEVATION - podnoszenie, wzniesienie, także: rzut 
pionowy, 

ELEVEN PUNCH - naddziurka w strefie jednostek 
(w 80-cio kolumnowej karcie dziurkowanej). 

ELIGIBLE - gotowy do kontynuacji (np. do dalszej 

ELI MI NATI ON - eliminacja, usuwanie. 

ELITE FACE - tryb drukowania z gęstością 12 znaków 
na cal, 

ELONGATE - wydłużać (się), 

ELSE - inaczej, 

ELSI - patrz: EXTRA-LARGE -SCALĘ I NTEGRATI ON , 

EMBEDDING - wstawka, także: obejmujący, osłaniający, 
EMBEDED - włączony, wstawiony, wbudowany (np. pod- 
program, procedura w ramach programu) , 

EMBODY - wbudować, włączyć, obejmować, 

E MBOSSMENT - zniekształcenie, 

EMERGENCY - awaria, stan zagrożenia, ni ebezpi eczert- 
stwo, wypadek, 

EMERGENCY CONDITION - sytuacja krytyczna, warunek 
krytyczny, 

EMT - patrz: ELECTROMAGNETIC INTERFERENCE, 

EMITTING - emitowanie, 

EMOS - patrz: ENHANCEMENT MOS, 

EMPHASIZED - wytłuszczone, 

EMPIRICAL - empiryczny, doświadczalny, 

EMPIRICAL PROBABILITY - prawdopodobieństwo a poste- 

EMPLOY - zatrudniać, 

EMPLOYER - pracownik, 

EMPTY - pusty, próżny, 

EMPTY LOOP - cykl pusty, 

EMPTY SET - zbiór pusty, 

EMPTY STRING - łańcuch pusty (o zerowej długości). 


EMULATE — imitować, naśladować, także: współzawodni- 
czyć, 

EMULATION - emulacja, także: symulacja urządzenia, 
tworzenie odpowiednika, 

EMULATOR - emulator, 

ENABLE - umożliwiać, 

ENABLE INTERRUPTS - włącz przerwania, 

ENABLE PULSE - impuls zezwalający, 

ENABL1NG A LINĘ - umożliwienie połączenia, nawiąza- 
nie połączenia, 

ENCAPSULATE - hermetyzować , 

ENCAPSULATED ELEMENT - mikroelement w obudowie. 
ENCAPSULATION - obudowa, hermetyzacja (mikroelemen- 
tu), także: przedstawić coś, opisać w sposób ukryty, 
ENCIPHER - zaszyfrować, zakodować, 

ENCIPHER1NG - szyfrowanie, kodowanie. 

ENCLOSED HEREWITH - w załączeniu, 

ENCLOSING - osłanianie, obejmowanie. 

ENCLOSURE - załącznik, 

ENCODE - kodować, zakodować, 

ENCODER - koder, urządzenie kodujące, szyfrator, 
ENCODING - kodowanie, szyfrowanie, 

ENCOMPASS - obejmować, 

ENCRYPTED MESSAGE - wiadomość zaszyfrowana, 
ENCRYPTION - szyfrować, utajniać, także: szyfrowanie, 
kodowani e, 

ENCRYPTION OF INFORMATION - utajnianie informacji, 
END - koniec. 

END ADDRESS - adres końcowy, 

END-AROUND BORROW - ujemne przeniesienie cykliczne. 
END-AROUND CARRY - przeniesienie cykliczne (z naj- 
wyższej pozycji liczby do najniższej), 

END DI STORTI ON - zniekształcenie końcowe, 

END-FILE MARK - znacznik końca pliku (zbioru), 

ENDLESS FORM - formularz (druk) ciągły, 

ENDLESS LOOP - pętla nieskończona, 

ENDLESS TAPE - taśma "bez końca", 

END MARK - znak końca, 

END MODĘ - tryb zakończenia (rozkazu) . 

END OF BŁOCK - znak końca bloku, 

END OF FILE - znacznik końca zbioru, 

END-OF-FILE INDICATOR - wskaźnik końca pliku (zbio- 
ru) danych, 

END-OF-FILE LABEL - etykieta końca zbioru danych, 

END OF LINĘ - koniec wiersza, 

END OF MEDIUM - koniec nośnika. 
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i EMGZ NEEiii NO - technika, inżynieria, 
ty FNGX MEERING CYBERNETICS - cybernetyka techniczna. 
ENGINEERIMG TIKE - cza* obsługi techni cznej , 
tniUNCE - uwydatniać, uwypuklać, wzmagać, zwiększać, 

'wzmacniać, 

‘YHAWCED - ulepszony, polepszony, udoskonalony, 
£NHANCED COLOR DISPLAY - w/Swietlacz ulepszonego ko- 

ENHANCED COLOR GRAPHICS BOARD - karta ulepszonej 
grafiki kolorowej, 

FNHANCED GRAPHICS ADAPTER - adapter ulepszonej gra- 

fiki, 

F.NHANCED MODEL - mooei rozwinięty, model wzbogacony, 
ENHANCED VERSIOH - wersja rozwinięta, wersja wzboga- 

EMHANCEMEMT — rozszerzanie, także: udoskonalanie, 
ubogacanie, 

ilHANCEMENT MOS - tranzystor MOS z kanałem wzbogaco- 
nym, 

E NHANCEMENT TRANSISTOR - tranzystor połowy o kanale 
wzbogaconym, tranzystor ze wzbogaceniem, 

ENL.ARGE - powiększać, 

KNLAftGEKENT - powiększenie, 

ENQ - patrz: ENOUIRY, 

ENOUEUE - ustawie w kolejce, 

ENOUIRY - zapytanie <np. systemu), 

ENOUIRY CHARACTER - symbol zapytania. 

F.MSAMBLE - zbiór (w matematyce). 

ENSURE - zapewniać, upewniać się, 

ENTER - umieszczać, wnoaić, wprowadzać, 

ENTERPRISE - przedsiębiorstwo, takźei przedsięwz lę- 

ENTERPRISE ADMINISTRATOR - administrator dziedziny 
przedmiotowej, 

ENTERPRISE DATA PASĘ - baza danych przedsiębiorstwa, 
F.NTITY - wyodrębniona całość, jednostka istnienia, 
istota, seris, sedno, takie: objekt, 

ENTRAP - zatrzymać, zamknąć , 

ENTRY - komunikat wprowadzony do komputera, wejście, 
zapis (w katalogu), hasła (w słowniku), takie: ins- 
trukcja. deklaracja w programie, 

EMTRY BŁOCK - blok wejścia, 

EMTRY LABEL - patrz: EMTRY HAME, 

EMTRY NAWE - nazwa (punktu) wejScia, 

ENTRY POINT - punkt wejścia, adres (punktu) wejScia, 
ENUMERABLE - policzalny. 

ENUKERATE - wyliczaC, 

ENUMERATED TYPE - typ wyliczeniowy, 

EMUMERATION - numeracja, takie: przel iczalnoSC, 
KNUMERATI VE ALGORITHM - algorytm wyliczeniowy, algo- 
rytm przsl lczeniowy, 

EMYELOPE - koperta, otoczka, powłoka, takla: obwied- 


ENYELOPE CURVE - obwiednia, 

€MVELOPE DELAY - opóźnienie grupowe, 

EMYELOPE FEEDBACK - sprzężenie zwrotne wewnętrzne, 
ENVI RONNENT - zestaw maszynowy, warunki pracy. Śro- 
dowisko. otoczenie, 

EN VI RONNENT DI VI SI ON - dział zestawu maszynowego 

(w Cobolu), 

FWIROMMENTAL - środowiskowy, 

EN VI RONMENT AL IMPUT - wejście Środowiskowe, 

EOB - patrz: END OF BŁOCK, 

EOF - patrz: END OF FILE, 

EOI - patrz: NON-SPECIFIC END OF INTERRUPT, 

FOR - patrz: END OF RECORD, 
fOT - patrz: END OF THE TAPE, 

COT - patrz: END OF TRANSMISSION. 

"■ PROM - patrz: ERASABLE PROGRAMMABLE READ ON1.Y 
MEMORY, 

E~PROM - patrz: ELECTRICALLY ERASABLE ROM, 

SPSS - mec komunikacyjna EPSS. 

CuUAL - równać się, byC równym, 

COMAL O DDS - równe szanse. 

FOUALITY - równodć, 

EOUALITY SIGM - znak równości, (identyczności), 
jUALIZATION - korygowanie, 

COD ALI ZE - wyrównywać, zrównywać, 

CODALIZER - korektor, 

EOUALIZING - wyrównywanie, 

EOUALLY - w równym stopniu, 

’ OUALl.Y LIKELY CASES - przypadki równie prawdopo- 
dobne, 

COUALS SIGN - znak równości, ••=-", 

COUATE - przyrównywać, takie: sprowadzać do wspólne- 
go mianownika, 

TOUATES - stale przyporządkowani a. 
t OUATION - równanie, takie: wzór matematyczny , 
f OUATION SOLVER - analizator wielomianów algebraicz- 
nych, 

COUIANGULAR - równokątny, 

OUT -BOUNDED - wspólnie ograni czorty , 

T GUI DI ST ANT - w równych odstępach, 

L3UILATERAL - równoboczny, 
i GUI LI BRATE - równowalyó, 

FOUILIBRIUM - równowaga, 

EOUI NUMEROUS - równoliczny, 

CQUIP - wyposalaC, 


EOUIPMENT - wyposalenie, sprzęt, 

£QDI PMEMT COMPATI BI LI TY - wymienność sprzętu, 
EOUIPMENT FAILURE - awaria sprzętu, 

EOUIPOLLEMT - rownowalny, 

EQUI PONDERATE - równowalyó, 

EODIPOTEMT - równoliczny. 

EOUIPROBABLE - jednakowo prawoopodobny , o tym samym 
stopniu prawdopodobieństwa, 

EODI VALENCE - równoważność , równowar toSC , 

£QUI VALENCE ELEMENT - element równoważności, 
EOUIYALENT - równoważny, równowartości owy . równo- 
rzędny, 

EQUIVALEMT CIRCUIT - układ zastępczy, 

ERA - patrz: ERASE CHARACTER, 

ERASABILITY - wymaz ywa 1 no«C , 

ERASABZLITY OF STORAGE - kasowalnoSC danych, 

ERASABLE - dający się wymazać, 

ERASABLE PROGRAMMABLE READ GNLY MEMORY - pamięć sta- 
ła, którą można programować i kasować (np. kasowa- 
nie elektryczne) , 

ERASABLE ROM - pamięć stała kasowalna, pamięć f<QM 
kasowalna, 

ERASABLE STORAGE - pamięć kasowalna, 

ERASE - wyc i er aC. wymazywać, kasować, 

ERASE CHARACTER - znak wymazujący, wycierający, znak 
błędu, 

ERASE KEY - klawisz anulowania, klawisz kasowania. 
ERASE ROUTIME - podprogram zerujący, program zerują- 
cy, podprogram kasujący, 

ERASE TIME czas wymazywania <w monitorach z lampą 
pamięciową) , 

ERASING - wymazywanie, usuwanie, 

ERASURE miejsce wymazane, przekreślenie w tekście, 
także: wycieranie (informacji gumką), 

E -REGI STER - patrz: EKTEMSI ON REGISTER, 

EROM - patrz: ERASABLE ROM, 

ERR - patrz: ERROR, 

ERRATIC - błędny, pomyłkowy, 

ERRONEOUS - omyłkowy, błędny, 

ERRONEOUSLY - omyłkowo, przez omyłkę, 

ERROR - błąd, uchyb. 

ERROR BURST — grupa błędów, pakiet błędów występują- 
cych r. tego samego powodu, 

ERROR BYTE - bajt błędu, 

ERROR CHECK - kontrola błędu, 

ERROR -CHECKI MG CODĘ - kod wykrywający błędy, kod 
sprawdzający, 

ERROR COND1TION - przypadek wystąpieniu błędu. 

ERROR CONTROL kontrola błędów. 

ERROR CORRECTING - korekcja błędów, 

ERROR CORRECTING C.ODE - patrz: ERROR CORRECTION CODĘ. 
ERROR-CORRECTING COMPILER - kompilator z automatycz- 
ną korekcją błędów. 

ERROR CORRECTION - korekcja błędów, 

ERROR CORRECTION CODĘ - kod korygujący błędy, kod 
samokorygujący, 

ERROR DETECTING CODĘ - kod detekcyjny (wykrywający 
błędy) , 

ERROR DETECTION - wykrywanie błędu, 

ERROR DETECTI OMZCORRECTI ON - detekcja i korekcja 
błędów, 

ERROR DIAGNOSTIC - komunikaty o błędach, doniesienia 
o błędach, 

ERROR TLAG - flaga błędu, znacznik, błędu. 

ERROR-FREE - bezbłędny, wolny od błędów. 

ERROR FREOUENCY LIMIT - częstość graniczna błędów, 
ERROR GAP — odstęp między błędami. 

ERROR HANDLING - obsługa błędu, 

ERROR HANDLING ROUTIME - podprogram obsługi błędów, 
ERROR INDICATE LIGHT - świetlny sygnał błędu, 

ERROR INDICATION - wykazywanie błędów. 

ERROR INTERRUPT - przerwa w wykonywaniu programu 
w skutek błędu, który nie może byC automatycznie sko- 
rygowany, 

ERROR MEAN-SGUARE - błąd średniokwadr atowy, 

ERROR KESSAGE - komunikat błędu. 

ERROR PRINTOUI - wykaz błędów, 

ERROR PROBACILITY — prawdopodobieństwo popełnienia 
błędu, 

ERROR-PRONE -- łatwo ulegający błędom, 

ERROR PROPAGATION - powtarzanie (powielanie) błędu, 
ERROR PROTECTION - ochrona przed popełnieniem błędu, 
ERROR RATĘ - wskaźnik błędów (np. przy odczycie taś- 
my) , 

ERROR RECOVERY - korekcja błędów, 

ERROR ROl/TINE - program korekcyjny, 

ERROR SEAKCH PROGRAM - program wyszukiwania błędów, 
ERROR TAPE - taśma błędów, 

ERROR TRAPPING - wychwytywanie błędów, 

ES - patrz: EXTRA SEGMENT, 

ESC patrz: ESCAPE CHARACTER, 

ESCALATION - wzrost, wzmaganie się, narastanie, 

ESCAPE - unikać, uciekaC, także: ucieczka, przejście 
do innej opcji, 

ESCAPE CHARACTER - znak funkcyjny, 

ESCAPE CODĘ - kod kierujący, kod sterujący, 

ESCAPE KEY - klawisz wyjścia, klawisz ucieczki (poz- 
wala na przerwanie wykonywanej pracy na komputerze). 
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Giełda pomysłów 

Pole minowe 


Ta gra przeznaczona jest dla tych, którzy lubią rozwiązywać za- 
gadki logiczne. Jest to adaptacja gry ze „SPECTRUM” do możli- 
wości graficznych „MERITUM”. Zasady gry podane są po jej uru- 
chomieniu. Poziom trudności regulowany jest deklarowaną przez 
gracza ilością min. Ilość ta praktycznie nie powinna przekraczać 100, 
bo przejście może być niemożliwe, choć na polu zmieścić się może 
280 min. 

Życzę przyjemnej zabawy. 

Bolesław MRUGAŁA 


10 KMDOH-.CLS 
20 DIN H(t5»20> 

30 PRIMT CHR$(23> 

40 PRIHT84ó0» 'P 0 L F MINOWE" 

50 FOR D=1 TO 600:NEXT D 

60 CLSJPfflHTTWOJe ZADANIE POLEGA HA PRZEJŚCIU PRZEZ POLE Z KINAMI 
DO PRZECIWLEGŁEJ BRAMY. JEŻELI STANIESZ NA POLU SĄSIADUJĄCYM 
Z POLEK ZAMINOWANYM TO USŁYSZYSZ SYGNAŁ. JEŻELI STANIESZ NA 
POLU Z KINA - SYGNAŁU JUZ NIE USŁYSZYSZ. 

80 PRINTG384. 'PRZEMIESZCZAJ SIE ZA POMOCĄ KLAKISZYi 
I - U GORE 
M - W DOL 
J - W LEJO 
K - W PRAWO 

100 IHPUT' ILOMA KINAMI MA Bit ZAMINOWANE POLE'! MN 

105 as 

110 FOR 1-4 TO 121 

120 SETH»2) ;§ET (1,45) :HEXT I 

130 FOR >2 TO 17 - 

140 SET (4» J) !SET (5» J) '-SET (120* J) sSET (121 »J) sMFXT J 
150 FOR J=30 TO 45 

160 SET(4»J):SET(5łJ)iSET(120rJ):5ET(121»J):ICXT J 

170 MM 

180 HI=NI*1 

190 IF MI>W THEN 230 

200 IX=RHD (19) ! I&-RND (14) 

210 IF M(IG»IX)-1 THEN 200 

220 M(IG»IX)-l!GOTQ 180 

230 X=20:Y=7:XS=7:YS=20!XH=XS:YN=YS 


,&i-i9inytni »s >i łnrl£a.ł - OMllS33HI£i»!' ‘ j. 

■ 24^PRINTeY*ó4+3#MHR*Tl91 1 J KTRWWHtHRłY 1 91 ) lęHiW Y 1 9) * " 
260 U " ,J " " 

270 IF A>="THEN 260 
280 IF Ai-*J'THEN YN=YS-1;G0T0 320 
290 IF A$»'K'THEN YN=Y3+l:G0T0 320 
300 IF Al-TTHEN XH=X3-1:G0T0 320 
310 IF AŚ='H*THEN XN=XS+1;S0T0 320 
315 GOTO 260 

320 IF XH<1 OR XN)14 THEN Xlł-XS:G0T0 260 

330 IF XN>5 AND XH<10 THEN 350 

340 IF YNU OR YN>19 THEN YH=YS:XN=XS:G0T0 260 EL3E 400 

350 IF YH>20 THEN YH=YS:XN=XS:GOTO 260 

360 IF YN-0 THEN PRINTG6»* BRAWO "1EISF 400 

370 PRINTt?XS«64+YS*3+l»CHRK191) fCHRI(19) i 

380 PKINTGXH*64+YN*3»CHR$(191> ?CHRŚ(179) »CHR$(191)JCHRK19)* 

390 GOTO 500 

400 PRIHT0XS*64+YS*3+1 »CHRt(191) ;CHRŚ<19) i 

410 PRINTGXH*64-ł YM*3ł CHRŚ (191) 5CHRI (179) f CHR$ (191 ) * CHRŚ (19) ? 

420 XS-XN:YS-YN 

430 IF H(XH»YH)-1 THEN GOTO 1000 

435 A=0:IF YN=20 THEN 440 ELSE IF H(XH.YWtl)=l THEN A-A+l 

440 IF M(XN» YW-D-l THEN A=A+1 

445 IF M(XN+l»YH)=i THEN A=A+1 

447 IF M(XN-lłYN)-l TI-FH A=A+1 

448 IF A=0 THEN 260 
450 FOR J-l TO A 

460 FOR 1=1 TO 5:HEXT I 

470 FOR 1=1 TO 10 

480 OUT 254.1S0UT 254,0:NEXT I 

490 NEXT JsGOTO 260 

500 FOR 1=1 TO 14 

510 FOR J=1 TO 19 

520 IF H(I»J)=1 THEN PRINT0Hi64+Jif3+l»CHR0(140);a«0(19)? 

530 NEXT J: NEXT I 

540 PRINT0966.' JESZCZE RAZ? - NACISNIJ SPACJE '? 

550 IF INKEYI=" ' TtCN 600 ELSE 550 

600 as . 

610 FOR 1=1 TO 20 
620 FOR J=1 TO 14 
630 H(J»I)=0:NEXT JsHEJCT I 
640 GOTO 100 

1000 FOR J=1 TO 10SNEXT J 
1010 FOR 1=1 TO 11 

1020 PRINT0XN«64+YN«3,CHRK12e)»CHR$(140) JCHRK123) ?CHW(19) * 
1030 FOR J=1 TO 10iNEXT J 

1040 PRINTGXN»64+YN*3»CHRł(166) ?CHR»(128) »CHR$(153> 5CHRŚU9) J 
1050 FOR J=1 TO 10 :NEXT J 
1060 NEXT IsGOTO 500 


Liga Myślących 


Zadanie 1 

Znaleźć trzy najmniejsze liczby naturalne n takie, że między n oraz 
n+1 0 nie ma żadnej liczby pierwszej, jak również trzy najmniejsze 
liczby naturalne m takie, że między 1 0m a 1 0(m-ł-1 ) nie ma żadnej 
liczby pierwszej 

Zadanie 2 

Znaleźć wszystkie liczby naturalne a, dla których liczba a’° -M 
jest podzielna przez 10, 

Zadanie 3 

Na stole leżą cztery kule o jednakowym promieniu r, stykające się 
jedna z drugą. We wnękę utworzoną przez nie położono piątą kulę 
o tym samym promieniu. Znaleźć odległość najwyżej położonego 
punktu piątej kuli od płaszczyzny stołu. 


Zadanie 4 

Z miejscowości A w kierunku B wyszedł piechur. Po a godzinach z 
z B wyjechał kolarz na spotkanie piechura i po b godzinach od 
swego wyjazdu spotkał piechura. Ile czasu potrzeba kolarzowi, a 
ile piechurowi, aby przebyć całą drogę między A i B, jeżeli kolarz 
potrzebuje na to o c godzin mniej niż piechur’’ 

Zadanie 5 

Wydajność warsztatu A wynosi m procent wydajności warsztatów 
B i C, a wydajność warsztatu B wynosi n procent wydajności 
warsztatów A i.C. Jaki procent wynosi wydajność warsztatu C w 
stosunku do wydajności warsztatów A i B? 

Rozwiązania zadań prosimy przesyłać do redakcji do końca lipca br. z 
dopiskiem „Liga Myślących". Punktacja zależy od liczby prawidłowych 
rozwiązań. Wśród uczestników rozlosujemy książki, a na zwycięzców 
„Ligi” czekają dodatkowe nagrody. 
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Listy z kratek ponumerowanych od 1 do 13 dadzą hasło, które wystar- 
czy nadesłać jako rozwiązanie zadania pod adresem redakcji na kar- 
tach pocztowych w terminie do końca sierpnia naklejając kupon 
„IKS”-a. Wśród autorów prawidłowych odpowiedzi rozlosujemy bony 
pieniężne i nagrody książkowe. 
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DODATEK DO 


Komputer dla muzyka 
— czyli komponować może każdy 
„Dodatkową” pamięć Atari 
odkrywamy na stronie 20 f 


CENA 120 ZŁ 




Zacznijmy nietypowo, bo od cytatu z rzą- 
dowego ,. PROGRAMU ROZWOJU NAUKI I 
TECHNIKI NA LATA 1986-90 " będącego 
załącznikiem do obecnie realizowanego 
Narodowego Planu Społeczno-Gospodar- 
czego. Na str. 9 tego dokumentu sformuło- 
wano następujące zadanie związane bez- 
pośrednio z informatyką: 

„Wykorzystując wielkie tradycje polskiej 
szkoły matematycznej, zostanie w latach 
1986—90 stworzony i rozwinięty przemysł 
oprogramowania, który może i powinien 
stać się naszą specjalnością eksportową. 
Za zadanie szczególnej wagi przyjmuje się 
także opracowanie i wdrożenie do produkcji 
seryjnej urządzeń komputerowych do 
wspomagania polskiego naukowca i inży- 
niera projektanta". 

Czytając treść tego zadania można się 
niewątpliwie zgodzić, że oba wymienione 
tam cele są ambitne. W sytuacji, gdy na pol- 
skim rynku mini- i mikrokomputerowym do- 
minuje oprogramowanie kradzione, z nie- 
kompetentną i często na kolanie sporzą- 
dzoną dokumentacją, a oprogramowanie 
dużych i średnich komputerów cierpi na 
uwiąd starczy \ rzetelna próba osiągnięcia 
tych celów spotkałaby się z rzeczywistym 
poparciem wielu ambitnych informatyków. 
Nic w tym dziwnego, przecież wielu z nas 
zdaje sobie coraz wyraźniej sprawę z jało- 
wości pobieżnego rozpoznawania i „oswa- 
jania" mniej lub bardziej przypadkowo pozy- 
skiwanego * 2 z najdziwniejszych źródeł 
oprogramowania. Każdy może podać przykła- 
dy absolwentów najlepszych uczelni, którzy 
w poszukiwaniu pieniędzy lutują pakiety, w 
zdobycznych programach wymieniają ko- 
munikaty w języku angielskim na polskie, zaj- 
mują się sprowadzaniem, składaniem i 
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Sieci — str. 
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Neuronowy komputer — str. 5 
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Skalowanie wykresu — str. 9 

Inteligentny samochód — str. 11 

Przesyłanie kodu maszynowego 
do instrukcji REM — str. 12 

Comodore C-64 

— edytor tekstu — str. 13 

Można inaczej — str. 15 

Nuty z komputera ,2 ’ — str. 16 

Jak wykorzystać dodatkową 
pamięć Atari — str. 20 

Giełda pomysłów — str. 21 

Lilavati ,6) — str. 22 

Oprogramowanie układów 


transputerowych 
Sami tworzymy 
symbole graficzne 
Spearmen i Pearson 
powiedzą Ci prawdę 
Liga Myślących 
Też-łcomputery 


str. 23 
— "str. 26 

— str. 28 

— str. 31 

— str. 32 


sprzedażą dalekowschodniego spfóęLfeir^, 
form‘a1yCznegó. W efekcie tracą wiele ze 
swoich zdolności twórczych, często bez- 
powrotnie. Oczywiście takie działanie z ich 
punktu widzenia, jest racjonalne i słuszne. 
Nie oznacza to jednak, że jest obiektywnie 
korzystne. Stąd wyżej sformułowane zamie- 
rzenie rządowe mogło i powinno być odczy- 
tane jako chęć stworzenia przez państwo 
szansy na nowe i nowoczesne wyposażenie 
miejsca pracy projektantów i programistów, 
na pracę planową, zorganizowaną i kon- 
cepcyjnie trudną, na przyciągającą najlep- 
szych, możliwość uczestniczenia w między- 
narodowym podziale informatycznego rynku 
pracy. Zgadzając się z tym trzeba uczciwie 
przyznać, że nie jest to zadanie łatwe. Po 
pierwsze dlatego, że opóźnienie w produkcji 
elementów i podzespołów elektronicznych 
oraz rodzimego sprzętu informatycznego 
tzn. sprzętu wytwarzanego z krajowych 
elementów, jest bardzo znaczne i wynosi 
około 10 lat. 

W sytuacji, gdy cały wysoko i średnio 
rozwinięty świat uporał się z seryjną pro- 
dukcją komputerów 32-bitowych nasz 
przemysł państwowy nadal nie jest w stanie 
wytworzyć elementów do produkcji całko- 
wicie polskiego mikrokomputera 16-bito- 
wego. Nie znaczy to, że domagam się pełnej 
samowystarczalności, odcięcia się od wy- 
ników światowych i namawiam do hołdo- 
wania zasadzie „każdy sobie..." Wręcz 
przeciwnie, jestem za aktywnym udziałem w 
międzynarodowym rynku produkcji i wy- 
miany. Jednakże uważam, że z ogólnocywi- 
lizacyjnych względów kraj tej wielkości co 
Polska, powinien być w stanie samodzielnie 
produkować komputery określonych klas. 
Mikrokomputery 16-bitowe z pewnością do 
nich należą. Drugą ważną barierą jest to, że 
realizacja wspomnianego zadania przypad- 
ła na lata kryzysowe, których nieodłącznym 
atrybutem jest ciągły i dotkliwy brak wolnych 
środków finansowych (złotówkowych i de- 
wizowych). Niezależnie od tych faktów mo- 
żna chyba sądzić, że autorom tego zapisu 
nie chodziło o spektakularne rozwiązanie. 
Miejmy nadzieję, że słusznie uznali, korzy- 
stając z doświadczeń innych krajów, że 
rozwój informatyki może być jednym ze 
sposobów przełamywania tendencji kryzy- 
sowych, środki i metody informatyki mogą 
nie tylko pośrednio wpływać na ogólny po- 
stęp gospodarczy, dzięki przyspieszeniu i 
zracjonalizowaniu procesu podejmowania 
decyzji, zmniejszaniu energochłonności 
procesów technologicznych, podniesieniu 
poziomu niezawodności i nowoczesności 
tysięcy urządzeń. Mogą być również przed- 
miotem bezpośredniego eksportu. Dotyczy 
to przede wszystkim, z uwagi na zły stan ba- 
zy elementowej, oprogramowania i usług 
konsultacyjno- serwisowych. Aby się tak sta- 
ło trzeba odejść od tradycyjnego pojmowa- 
nia przemysłu informatycznego i objąć nim 
również wytwarzanie oprogramowania 
sprzętu informatycznego. W tym miejscu 
zgadzam się całkowicie z tezą, że właśnie 
wytwarzanie oprogramowania jest w pol- 
skich warunkach szansą dla informatyki. 

Rzeczywiste uznanie tego faktu musi prze- 
jawić się w potraktowaniu wytwarzania 
oprogramowania w kategoriach prawdziwego 
przemysłu. W szczególności należałoby: 

• uznać wytwarzanie oprogramowania 
za równorzędne produkcji sprzętu informa- 
tycznego, 


, • stworzyć normy chroniące prawa au- 

torskie twórców oprogramowania i regulu- 
jące obrót oprogramowaniem komputerów, 

• utworzyć ośrodki produkcyjne (np. na 
zasadzie spółek z kapitałem zagranicznym) 
produkcyjno-wdrożeniowe, dysponujące 
nowoczesną (być może unikalną w kraju) 
techniką komputerową, umożliwiającą wy- 
konywanie oprogramowania na eksport, 

• utworzyć agendy handlowe wyspecja- 
lizowane w promocji i handlu oprogramo- 
waniem. 

Pobieżna choćby analiza stanu informa- 
tyki krajowej prowadzi do wniosku, że mimo 
już prawie dwuletniej realizacji zacytowane- 
go na wstępie zadania przesłanki powstania 
polskiego przemysłu wytwarzania oprogra- 
mowania nie powstały. Nadal jesteśmy bli- 
żej chałupnictwa niż przemysłu. W tej chwili 
nie ma samodzielnego wyniku oprogramo- 
wania komputerów. W dalszym ciągu jest 
ono dodatkiem do produkowanego sprzętu 
informatycznego. Nie istnieje ani jedna po- 
ważna firma nastawiona na produkcję 
oprogramowania, nie powstał żaden naprawdę 
duży produkt oprogramowania podstawo- 
wego. 3 . Tymczasem na świecie istnieją i 
znakomicie prosperują tysiące dużych i ma- 
łych firm, trudniących się wyłącznie produk- 
cją oprogramowania. 

Nie produkujemy obecnie, poza nieli- 
cznymi wyjątkami, konkurencyjnego sprzę- 
tu. Na szczęście niektóre uczelnie zapew- 
niają dopiyw bardzo dobrych programistów i 
projektantów. Trzeba to wykorzystać jak 
najprędzej. W tym miejscu chciałbym 
wreszcie wyjaśnić powody, dla których zde- 
cydowałem się napisać ten odbiegający od 
ściśle informatycznych rozważań, felieton 
właśnie do „IKSa". Przede wszystkim chcę 
upowszechnić informację o tak sformuło- 
wanych zamierzeniach rządowych. Niezale- 
żnie od osiąganych postępów jest to dla in- 
formatyków fakt ważny. Po drugie uważam, 
że właśnie tysiące specjalistów i Hobbystów 
informatyki stworzą wspólnie masę kryty- 
czną, która doprowadzi do powstania no- 
woczesnego prawa chroniącego interesy 
wytwórców programów. Wreszcie po trzecie 
i najważniejsze: warto zawsze pamiętać, że 
informatyka jest jedną z najdynamiczniej 
rozwijających się dziedzin nauki i gospodar- 
ki. Dlatego bawiąc się lub profesjonalnie 
wykorzystując swoje mikro trzeba równoleg- 
le rozwijać głębszą wiedzę informatyczną, 
nadążać za nowymi technologiami organi- 
zacji działania i wykorzystania komputerów. 
Jednym słowem mając ATARI, czy COM- 
MODORE, a w pracy wykorzystując IBM PC 
dobrze jest wiedzieć, jak działa i w jakich 
konfiguracjach jest wykorzystywany np. 
VAX. Wszystko po to, by z chwilą faktycznej 
budowy przemysłu wytwarzania oprogra- 
mowania być gotowym do podjęciś%a- 
dań wysokopłatnych i jednocześnie 4 Ęór- 
czych. . 

Bolesław SZAFRAŃSKI 


' Potwierdzeniem niech będzie to, że ĘLWRO 
wraz z komputerem RtA 34 oferuje jedyny SZBD 
MA DES, którego pierwowzór skonstruowana na 
początku lat siedemdziesiątych. 

7 Można wg uznania wstawić: ukradzionego, za- 
łatwionego, przyniesionego, 

3 Jedynym chwalebnym wyjątkiem jest chyba 
SZBD RODAN, sprzedany przez ZOWAR do wielu 
krajów. 


Gdy stwierdzisz, ie gry komputerowe są do siebie podobne i coraz 
mniej atrakcyjne, ie ZX Spectrum jako książka telefoniczna okaie się 
mniej użyteczny od tradycyjnej książki, a programowanie wyda się jed- 
nak nudne i mało ciekawe — wraca pytanie sprzed lat (jak ten czas leci!): 
jak można ciekawie wykorzystać personalny komputer w domu? 


Wydaje się, że odpowiedzią na to pytanie 
jest podłączenie komputera do sieci telefo- 
nicznej. 

W warunkach europejskich jest to przed- 
sięwzięcie stosunkowo tanie i nie wymagają- 
ce specjalnego przygotowania, np. wypo- 
sażenie naszego wysłużonego „Spectrum" 
w port RS 232 oraz modem kosztuje niecałe 
100 funtów angielskich. W efekcie stajemy 
się posiadaczami terminala domowego, któ- 
ry może połączyć nasz komputer z każdym 
zainstalowanym choćby w Australii. Za- 
sadność takiego połączenia wynika z usług, 
jakie są dostępne. Na przykład w Wielkiej 
Brytanii, komputer przez sieć telefoniczną 
pozwala na szybki dostęp do aktualnych 
danych o rozrywkach (kina, teatry), pracy, 
szkole, hobby, sporcie orśz o wielu innych 
bardzo ciekawych rzeczach. 

Aby komputer stał się „oknem na świat" 
niezbędne jest posiadanie następujących 
elementów: 

1 komputer personalny, 

2 szeregowy port RS 232, 

3 komunikacyjne oprogramowanie, 

4 modem, 

5 zrtajomość numerów telefonicznych, pod 
które podłączone są komputery udostęp- 
niające poszukiwane przez nas informa- 
cje. 

Jak już wspomniałem, każdy komputer 
może być podłączony do sieci telefonicznej 
(nawet Spectrum lub Commodore), a korzy- 
stanie z tego typu sieci nie jest drogie — 
cena nieco mniejsza od rozmowy telefoni- 
cznej plus ewentualna opłata, gdy korzy- 
stamy z komercyjnych sieci komputero- 
wych (dodatkowy abonament). 

Po połączeniu z innym komputerem od- 
nosimy wrażenie, że „komputer rozmówca" 
jest częścią naszego komputera. Fakt, że 
druty łączące nasze dwa komputery mają 
długość np.: 20 000 km, jest bez znaczenia 
dla procesu przesyłania informacji. Przebie- 
ga on podobnie jak wówczas, gdy kompute- 
ry stoją obok siebie w tym samym budynku. 
Nie jest ważny także typ naszego kompute- 
ra, działa on iako terminal współpracujący z 


dowolnym innym komputerem (tutaj meza- 
liansów nie ma). W efekcie pozwala to nam 
korzystać z mocy obliczeniowej innych ma- 
szyn, „przenoszenia" tej mocy do naszego 
komputera. 

Podstawowym elementem warunkującym 
realizację tego typu połączenia jest modem 
— małe urządzenie, które pośredniczy w 


SIECI 


przesyłaniu informacji między komputerem, 
a siecią telefoniczną. Modem zamienia 
wyjściowy sygnał komputera na sygnał 
akustyczny — postać sygnału, która może 
być przesyłana drutami telefonicznym^ Na- 
leży zatem włączyć modem do gniazdka te- 
lefonicznego, wykręcić odpowiedni numer, 
po usłyszeniu charakterystycznego sygnału 
adresata (modem przy drugim komputerze) 
należy nacisnąć odpowiedni klawisz w mo- 
demie — połączenie zostało wykonane — 
komputery rriogą sobie „pogadać". Obecnie 
czynności te, dzięki odpowiedniemu opro- 
gramowaniu, wykonuje sam komputer. 
„Samodzielność" ta wynika także z coraz 
doskonalszych konstrukcji modemów. Ma to 
miejsce na przykład podczas stosowania 
modemu HAYESa, który uzyskał w Polsce 
prawo do instalowania w komputerach ko- 
rzystających z krajowej sieci telefonicznej 
Jak już wspomniałem, komunikacja kompu- 
terów połączonych siecią telefoniczną 
odbywa się za pośrednictwem wysyłanych 
drutami różnej wysokości tonów. W efekcie 
pisanie komend na naszej klawiaturze daje 
efekt w komputerze, z którym „rozmawia- 
my". Odpowiedzi komputera, do którego 
dzwoniliśmy, ukazują się na ekranie naszego 
mikro, tak jak gdyby generowane były przez 
nasz komputer. 


W tym miejscu może pojawić się wątpli- 
wość — po co modem, komputer, skoro 
można zadzwonić i po prostu pogadać z 
osobą, której chcemy przekazać określoną 
informację. Odpowiedź jest prosta — mó- 
wiąc „przesyłamy" 29—30 liter w czasie 
jednej sekundy (zakładając, że mamy dobrą 
dykcję), komputery „gadają" z szybkością 
1200 liter na sekundę. Dokonując pewnych 
rachunków, łatwo dojść do wniosku, że pro- 
ponowany sposób przesyłania informacji 
jest znacznie tańszy. Szczególnie wyraźnie 
jest to widoczne przy porównywaniu kosz- 
tów „przesyłania znaków" przez ocean. Wy- 
korzystuje się tutaj tak zwane paczki infor- 
macji. komputer gromadzi określoną liczbę 
znaków i potem szybko je przesyła na przy- 
kład za pośrednictwem sputnika. Usługi ta- 
kie oferuje Bell System Radio Link, który 
przesyła informacje z szybkością 1 .9 biliona 
bitów na sekundę. Przesłanie naszej ency- 
klopedii trwałoby około jednej setnej sekun- 
dy! 

Wykorzystanie możliwości dołączania 
komputerów do sieci 'telefonicznej nie wy- 
maga oczywiście umiejętności programo- 
wania. Dostępne tą bowiem gotowe, tak 
zwane programy komunikacyjne 

Obecnie na świecie dostępne są tysiące 
baz danych. Przykładami są: The Source w 
USA i Micronet w Wielkiej Brytanii. Bazy te 
zawierają setki darmowych programów, 
gier, informacji, wiadomości i wiele innych 
użytecznych danych, np. słowniki, encyklo- 
pedie. 

Brytyjski system biblioteczny BLAISE 
udostępnia ewidencję wszystkich książek, 
periodyków, broszur itp. Dane te mogą być 
wybierane poprzez tytuł, temat, autora, wy- 
dawcę lub podając szereg innych parame- 
trów. 

Korzystanie z komputera w domu staje się 
wielką przygodą, zabawą o „światowym 
wymiarze". Sądzę, że nie należy popadać w 
kompleksy, iż technika ta jest bardzo odleg- 
ła od naszej domowej rzeczywistości. Zosta- 
ła bowiem uruchomiona także u nas w kraju 
sieć komputerowa (poprzez łącza telefoni- 
czne — nie są takie złe!). Obecnie „groma- 
dzi" ona użytkowników (jednym z nich jest 
piszący te słowa), a jej promotorem jest 
między innymi nasza konkurencja KOMPU- 
TER, w którym FIDO — owa sieć — wielo- 
krotnie był tematem publikacji. 

PRAKTYK 



— A o sztuce komputerowej chyba słysza- 
łeś? 


Tekst 


CPC 


Ten program wyświetla teksty w specjalnej, 
wyróżnionej formie. Program, a wałściwie 
podprogram rozpoczynający się od linii 70 na- 
leży uruchamiać z następującymi parametra- 
mi: 

a$ — tekst do wyświetlenia 

x, y — współrzędne początku wyświetlanego 

tekstu 

s — numer pióra (PEN) tła tekstu 
t — numer pióra znaków tekstu 

10 MODĘ 1 : INK O, 10: INK 3,0 

20 LOCATE 12,8: PRINT "Tekst 
1 " 

30 s=3:t=l:x=8:y=12 
40 a$="Tekst 2" 


50 GOSUB 70 
60 t=0:a$="Tekst 3": 
x=12:y=18: GOSUB 70: PEN 1: 
CALL &BB18: STOP 
70 REM * *WYROZNI ONY TEKST** 
80 PRINT CHR$ (22) CHR* ( 1 ) 
CHR*(23)CHR$(3) :x=<x-l) *16: 
gy=398- <y- 1 ) * 16: PLOT 
-2, -2, s: PEN t 

90 TAG:MOVE gx-2, gy: PRINT 
a*:MOVE gx+2, gy: PRINT a*: 
MOVE gx,gy+2: PRINT a*: 

MOVE gx , gy-2: PRINT a*;: 
TAGOFF 

100 LOCATE x,y: PRINT 

aSCHR* (22) CHR* (O) CHR* (23) CHR 
* <0) : RETURN 


1 


3 


CHIŃSKA 

KRZEMOWA DOLINA 

Chińskie mikrokomputery nie odbiegają od świato- 
wego standardu. Wkrótce mogą się stać konkurentami 
IBM’a i APPLE’a — pisze J. Maier w ostatnim numerze 
„BYTE’a” z ubiegłego roku. 

Chińska Republika Ludowa już od 1 984 roku ma swój własny 
superkomputer GALAXY (1 00 milionów operacji na sekundę), a od 
1980 roku macierzowy procesor 100— MIPS 757. Chińczycy wy- 
twarzają także własne mikrokomputery, których produkcję szacuje 
się na około 70 000 sztuk, w tym 25 000 jest zgodne z IBM PC XT. 
Wytwarza je fabryka na przedmieściach Beijng — CHINA COM- 
PUTER DEVELOPMENT CORP (CCDC). CCDC produkuje także 
wielodostępny system BCMS 6800 bazujący za Motoroli 68000 
oraz UNIX’ie. Maszyna ta jest ewidentnym dowodem dużej popu- 
larności UNIX'a w ChRL. Chińska Akademia Nauk rozpoczęła pu- 
blikowanie tłumaczonych materiałów UNIX'a już w 1984 roku. W 
tym samym czasie zainstalowano w uniwersytetach i innych chiń- 
skich instytucjach ponad 2000 dużych zachodnich komputerów 
pracujących pod UNIX'em. 

CHIŃSKA DOLINA KRZEMOWA 

Podczas gdy liczba zainstalowanych w ChRL komputerów nie 
przekracza miliona (roczna produkcja USA), wzrost chińskiego 
potencjału informatycznego jest wciąż wykładniczy. Należy pa- 
miętać. że jeszcze kilka lat temu potencjał ten był niewielki. 

Minęło zaledwie 10 lat od czasu, gdy pierwszy mikrokomputer 
został zbudowany w kalifornijskiej Dolinie Krzemowej. Obecnie, za 
Oceanem, Szanghai i Beijng budują własne Doliny Krzemowe. 
Przetłumaczono dokładnie nawet ten zwrot na język chiński, brzmi 
on GUIGOU. Chiński potencjał domowych komputerów ciągle 
rośnie. Należy się spodziewać, że zaowocuje to pojawieniem się 
około 1 990 roku na rynkach T rzeciego świata komputerów o świa- 
towym standardzie „Madę in China". 

Szereg ostatnich zdarzeń sygnalizuje ten rozwój. Chińscy przy- 
wódcy zdecydowali się nie na import, lecz na własną produkcję. 
Chińczycy nie są zainteresowani w importowaniu mikroproceso- 
rów, tak jak przed kilku laty. ale kupowaniem technologii. Potwier- 
dzają to ostatnio podpisane umowy z takimi firmami jak: IBM, Hew- 
lett-Packard, Sperry, Wang, Gould, Burroughs, ComputerLand, 
Solar i inne. Obecnie strategia chińskiego rozwoju informatyki to: 
„pierwsza maszyna jest importowana, druga maszyna jest budo- 
wana w Chinach, trzecia maszyna jest eksportowana". 

Opracowanie pt.: „Technology Transfer to China" spowodowało 
dyskusję nad zaniechaniem ograniczeń w eksporcie nowoczes- 


nych technologii do Chin przez COCOM, Japończyków i więk- 
szość członków NATO, co może sprawić, że Chiny będą ważnym 
partnerem państw zachodnich. 

CHIŃSKIE POTRZEBY 

WOBEC WŁASNYCH MOŻLIWOŚCI 

W czerwcu 1 987 roku w Beijng odbyła się druga międzynaro- 
dowa konferencja „Komputery i ich zastosowania", której sponso- 
rami były: amerykańska IEEE Computer Society i Chińska Fede- 
racja Komputerowa (CFK), a honory gospodarza konferencji pełni- 
ła Chińska Akademia Nauk. W konferencji uczestniczyli reprezen- 
tanci 17 krajów z Europy, Azji, USA. Kanady i Australii. Kraje te 
wydelegowały 300 naukowców informatyków. Zaprezentowali oni 
160 referatów, a spośród 100 chińskich naukowców ponad 60 
wygłosiło referaty na różne tematy — od lokalnych sieci do mikro- 
komputerów bazujących na wielojęzykowych systemach przetwa- 
rzania słów. Pakiet takiego systemu pracującego na PC XT pod 
chińską wersją DOSa (z czterema chińskimi dialektami) przed- 
stawił profesor Xinjiang. 

Chiny posiadają 170 000 profesjonalnych komputerów i należy 
oczekiwać przed rokiem 2000 wzrostu tej liczby do miliona. Jed- 
nocześnie produkowany będzie milion mikrokomputerów przed 
rokiem 1 990, wobec 300 000 w roku 1 987 (połowa importowana). 
Osiągnięcie tego celu wymaga 500-procentowego wzrostu pro- 
dukcji w ciągu 3 lat. 

Chińska Federacja Komputerowa jest doskonale zorganizowa- 
na. Założona w 1985 roku liczy obecnie 25 000 członków ze 
wszystkich prowincji Chin. CFK jest czynnym organizatorem kra- 
jowych i międzynarodowych konferencji, publikuje osiem profe- 
sjonalnych periodyków (700 000 egzemplarzy). Komitety Edukacji 
i Popularyzacji tej federacji skutecznie upowszechniają wiedzę in- 
formatyczną wśród miliarda Chińczyków. Komitety te przygotowu- 
ją 50 różnych samouczków, kompletują książki popularyzujące 
wiedzę informatyczną oraz wydają specjalne serie dla nastolat- 
ków. 

Te i wiele innych działań CFK efektywnie zrównuje chińską in- 
formatykę ze światowym poziomem produkcji i zastosowań kom- 
puterów. Dotyczy to także oprogramowania „Madę in China", które 
w niedługim czasie pojawi się na światowym rynku. Na przykład 
technologia budowy systemów typu ekspert jest obecnie dobrze 
znana w Chinach. Ilustruje to między innymi MYCIN — kompute- 
rowy system chińskiej tradycyjnej diagnostyki medycznej (jest on 
powszechny w Chinach od kilku lat). 

Chiny ulegają metamorfozie w stylu Japonii — pod względem 
ekonomicznym i technologicznym. ChRL jest jedną z 10 potęg 
ekonomicznych świata, których bogactwo rośnie od 5 do 7 proc. rocznie, 
w 2000 roku oczekuje się, że dochód narodowy Chin wyniesie 1 ,5 
tryliona dolarów. 

Wielu ekonomistów uważa, ze XXI wiek będzie stuleciem 
KRAJÓW PACYFIKU. u, n 


Opracowane na podstawie: The State ot Chinese Computing, John H. 
Maier. BYTE vol. 12 No. 14. Dec. 1987. 


Piraci końca XX wieku 


Świat jui jakby nieco ochłonął po wyścigu o najnowocześniejsze i naj- 
sprawniejsze komputery. Coraz częściej za to obserwujemy rywalizację w 
dziedzinie oprogramowania. I jest to zupełnie naturalna kolej rzeczy — po 
udoskonaleniu maszyn przyszła pora na znalezienie sposobu optymalnego 
ich wykorzystania. Szybko jednak okazało się, że rywalizacja ta może po- 
służyć do celów związanych nie tylko z rozwojem komputeryzacji. 

Powszechnym zjawiskiem stało się pod- falsyfikaty są zazwyczaj bardzo niskiej ja- 


rabianie wyrobów znanych i co ważniejsze 
— uznanych firm. Małe wytwórnie, przewa- 
żnie z Dalekiego Wschodu, produkują „ory- 
ginalne” zegarki, perfumy, aparaty fotografi- 
czne i inne towary, bezkarnie na ogół wyko- 
rzystując szyld renomowanych marek. 
Czerpią z tego nielegalnego procederu 
ogromne zyski, narażając prawdziwego 
producenta nie tylko na straty finansowe, 
ale także utratę zaufania klientów, jako że 


kości. Ostatnio, opócz tradycyjnie już fałszo- 
wanych towarów, rozkwita handel nielegal- 
nie nagranych kaset wideo i oprogramowa- 
nia komputerowego. No cóż, piraci nie pró- 
żnują, zmieniają się tylko obiekty ich zainte- 
resowań. 

Dostrzegając ten problem, a także od- 
czuwając realne już straty finansowe, naj- 
większe amerykańskie firmy zajmujące się 
programami komputerowymi postanowiły 


połączyć siły w walce z piratami na obcych 
rynkach. Rynki te stanowią ważną pozycję 
na liście klientów, popyt na amerykańskie 
oprogramowanie jest bowiem często więk- 
szy właśnie za granicą niż w kraju. Składa 
się na to wiele przyczyn, wśród których na- 
leży wymienić duże już nasycenie rynku 
wewnętrznego. Spadek wartości dolara ob- 
serwowany w ostatnim czasie, także sprzyja 
zwiększeniu zysków i rozwijaniu współpra- 
cy na nowych rynkach. 

Współpraca ta pociąga jednak za sobą 
niebezpieczeństwo dokonywania nielegal- 
nych kopii. Aby temu przeciwdziałać pięć li- 
czących się na rynku amerykańskim firm — 
Microsoft, Lotus, Ashton-Tate, Autodesk i 
Wordperfect-Apple utworzyło stowarzy- 
szenie chroniące ich interesy — Business 
Software Association (BSA) Większość z 
tych firm podejmowała już próby walki z pi- 
ractwem, jednakże teraz po raz pierwszy 
przystąpiły do wspólnego działania mając 
nadzieję na osiągnięcie skuteczniejszych 
rezultatów. 
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Czy możliwi jest skonstruowanie kontputera działającego na podobnej 
zasadzie, jak mózg człowieka? Na obecnym etapie rozwoju techniki jest to 
niemożliwe, ale wiele firm prowadzi prace badawczo-konstrukcyjne nad 
komputerem, którego działanie oparte byłoby na podobnej zasadzie, jak 
funkcjonowanie mózgów tak nieskomplikowanych zwierząt, jak ślimaki lub 
żaby. 


Na czym polega różnica w działaniu trady- 
cyjnego komputera i komputera nietypowego, 
tzw. sieci neuronowej? Komputery trady- 
cyjne pracujące zgodnie z zasadą von Neu- 
manna mają zwykle jeden procesor, jeżeli 
posiadają więcej niż jeden, to są one połączone 
liniowo za pomocą odpowiedniego złącza 
(bus’a). W tego typu pracujących równolegle 
komputerach nie może być połączonych wię- 
cej niż 4 procesory. Mózg zawiera zdecydo- 
wanie więcej połączeń równoległych. W 
przeciętnym mózgu znajduje się około 4 mi- 
lionów komórek nerwowych — neuronów, z 
których każda pracuje jak oddzielny procesor 
lub układ logiczny. Są one połączone ze sobą 
za pomocą tysięcy łączy zwanych synapsami. 
Gdy komputery pracujące według zasady 
von Neumanna wykonują działania ściśle 
określone za pomocą instrukcji, to sieć neuro- 
nowa mózgu obrabia informację poprzez ze- 
stawienie odpowiednich połączeń między 
neuronami. Konstruktorzy sieci neuronowej 
starają się skopiować tę zasadę działania za 
pomocą elementów symulujących. Do tego 
celu nie jest potrzebne specjalne oprzyrządo- 
wanie. Większość procesów symulacyjnych 
przeprowadzana jest za pomocą konwencjonal- 
nych procesorów i pamięci RAM na specjal- 
nie wykonanych tablicach, które następnie 
umieszczane są w obudowach zwykłych kom- 
puterów, takich jak np. IBM PC. 

Kluczem do sieci neuronowej jest zastoso- 
wane oprogramowanie symulacyjne, które 
wykorzystuje standardowe elementy sprzętu, 
jako ciąg dyskretnych procesorów lub neuronów, 
ze zmienną liczbą połączeń — synaps między 
nimi. 

Oprogramowanie określa rozmiar sieci 
(symulacja neuronu może być wykonana za 
pomocą kilku bitów pamięci) oraz ilość połą- 
czeń pomiędzy neuronami. Rozmiar sieci, a w 
szczególności ilość połączeń pomiędzy neuro- 
nami, decyduje o mocy i możliwościach całego 
systemu. Jest to zasadnicza różnica między 
siecią neuronową a tradycyjnym komputerem. 


Zasady działania sieci neuronowej podob- 
ne są do zasad funkcjonowania mózgu. Sieć 
uruchamia największą liczbę neuronów i ze- 
stawia struktury różnych jednoczesnych połą- 
czeń między nimi. Każdej informacji odpo- 
wiada określona struktura połączeń między 
neuronami. Informacja jest przetwarzana jako 
ciągi takich struktur. 

Neuronowy 

komputer 

Jest to bardziej elastyczny sposób analizo- 
wania niektórych typów informacji, w szcze- 
gólności, gdy informacja jest zamazana lub 
nieczytelna, jak w wypadkach, systemów 
sztucznej inteligencji. 

Gdy sieć ma dużą liczbę połączeń między 
neuronami, komputer może samoczynnie 
„nauczyć się” danych początkowych przez 
kilkakrotne powtarzanie ciągów struktur moż- 
liwych połączeń między neuronami. Dane nic 
muszą być ściśle precyzowane, zanim zostaną 
„wyuczone”, jak jest to wymagane w trady- 
cyjnych komputerach. W ten sposób mogą 
być tworzone łączenia różnych typów infor- 
macji w sposób o wiele bardziej elastyczny bez 
konieczności ograniczenia ich do kilku klu- 
czowych cech. 

W obliczeniach komputery sieci neurono- 
wej są wolniejsze od tradycyjnych. Można 
także wykorzystać w ich pracy oprogramowa- 
nie standardowe. Jest jednak mało prawdopo- 
dobne, aby komputery te zastąpiły już teraz 
tradycyjne konstrukcje. Dzięki możliwości 
szybkiego przetwarzania danych nieczytel- 
nych, zamazanych lub niejednoznacznych, 
posiadaniu pamięci skojarzeniowej i umiejęt- 
ności uczenia się, a nie korzystania ze zbiorów 
danych, komputery te znajdą zastosowanie w 


Pierwszym udanym osiągnięciem BSA 
było wykrycie działalności fałszerzy w Hong- 
kongu. Akcja doprowadziła do aresztowa- 
nia 10 osób zajmujących się tym procede- 
rem oraz konfiskaty ponad 2 milionów dola- 
rów uzyskanych ze sprzedaży nielegalnie 
skopiowanych programów. Sukces ten zwró- 
cił uwagę innych firm także myślących o 
wspólnym zwalczaniu piractwa. 

Mimo że stowarzyszenie działa już od ro- 
ku, dopiero niedawno zostało formalnie za- 
rejestrowane. Podczas pierwszego walnego 
zebrania, które odbyło się w San Francisco, 
ustanowiono statut oraz wytyczono główne 
kierunki działań. Zapadły także decyzje w 
sprawie liczebności członków — uznano, żę 
BSA będzie bardziej aktywne i efektywne w 
działaniu, jeśli pozostanie organizacją nie- 
dużą. Dlatego postanowiono przyjąć tylko 
trzech nowych kandydatów, spośród takich 
firm jak Aldus, Adobe, Micropo lub Microrim. 
Ograniczenie liczby członków ma także na 
celu skupienie uwagi na przeciwdziałaniu 
piractwu na wielką skałę, bez angażowania 


się w drobniejsze akcje, które mogą prowa- 
dzić na własną rękę inne, mniejsze firmy. 

Działalność BSA polega na zwalczaniu 
nielegalnego handlu oprogramowaniem. 
Podejmowane są więc konkretne działania. 
Chodzi tu przede wszystkim o zebranie 
dostatecznej liczby dowodów obciążają- 
cych „podejrzaną" firmę zagraniczną i do- 
starczenie tych dowodów organom miejs- 
cowej policji bądź przedstawicielom władz 
celnych. Kompletowaniem dowodów zajmu- 
ją się wynajęci przez stowarzyszenie pry- 
watni detektywi. Oczywiście tego typu ak- 
cje kosztują. Ale BSA nie szczędzi środków, 
ponieważ straty powstałe w wyniku działal- 
ności piratów wielokrotnie przewyższają na- 
kłady przeznaczone na ich zwalczanie. 

Dlaczego jednak wielkie firmy amerykań- 
skie same musiały zająć się ściganiem fał- 
szerzy? W wielu krajach brak uregulowań 
prawnych problemów związanych z infor- 
matyką, w tym kwestii praw autorskich i 
ochrony prawnej ich dzieła — programu 
komputerowego. W Hongkongu, Kanadzie i 


systemach sztucznej inteligencji do rozpo- 
znawania mowy i języków oraz analizowania 
obrazów dynamicznych np. zarejestrowanych 
na taśmach wideo. Wykorzystanie do takich 
celów komputerów tradycyjnych jest przewa- 
żnie bardzo trudne lub niemożliwe ze wzglę- 
du na ich małe możliwości „myślenia” abs- 
trakcyjnego. 

W najbliższych latach przewiduje się gwał- 
towny rozwój komputerów sieci neuronowej, 
dzięki którym znacznie powiększą się możli- 
wości systemów sztucznej inteligencji. Naj- 
bardziej zaawansowane prace w tym kierunku 
prowadzone są w Stanach Zjednoczonych. Jak 
do tej pory wyniki tych prac objęte są ścisłą ta- 
jemnicą i niewiele firm zdecydowało się na 
zaprezentowanie swoich osiągnięć. Według 
nieoficjalnych informacji amerykańskie firmy 
TRW i IBM zbudowały procesory dla tych 
komputerów mające możliwość zestawienia 
ponad 500 000 połączeń. Firma Synaptics z 
San Diego w Kalifornii konstruuje układ elek- 
troniczny do sieci neuronowej symulującej sy- 
stem wzrokowy żaby dla przetworzenia da- 
nych wizyjnych z oka umieszczonego na koń- 
cu ramienia robota. Firma Neuralware z Pen- 
sylwanii wypuściła zestaw oprogramowań 
różnych konfiguracji sieci neuronowej, moż- 
liwych do stosowania na IBM PC XT z pa- 
mięcią co najmniej 512 KB RAM pozwalają- 
cych użytkownikowi dowolnie eksperymen- 
tować z dziewięcioma rodzajami sieci neuro- 
nowej. W firmie HNC skonstruowano przy- 
stawkę sieci neuronowej ze specjalną pamięcią 
4 Mbajtową, procesorem centralnym MC 
68020 i wspomagającym MC 68881, mogącą 
współpracować z komputerem IBM PC lub 
kompatybilnym. Jej koszt — 10 000 $. 

Firma zbudowała także urządzenie — Ne- 
stor Writer, które na podstawie sieci neuro- 
nowej weryfikuje prawidłowość podpisów na 
czekach. Koszt tego urządzenia — 1535 $. 

Komputery sieci neuronowej dopiero za- 
czynają swoją karierę. Ale nawet te największe 
obecnie istniejące zawierają zaledwie drobny 
fragment połączeń możliwych w mózgu orga- 
nicznym. Do skonstruowania sztucznego móz- 
gu w postaci kości elektronicznej jest jeszcze 
daleka droga. Nadal zbyt mało wiemy o móz- 
gu, a kolejne próby zbudowania coraz dosko- 
nalszej sieci neuronowej stwarzają więcej 
problemów, niż rozwiązują. 

MBO 


krajach Commonweallhu zainteresowane 
firmy musiały same podjąć działania w celu 
wytropienia piratów, w przeciwnym bowiem 
wypadku nie mogłyby dochodzić swych 
praw i wyrównać strat. Mimo deklaracji 
poparcia ze strony rządów krajów o „podej- 
rzanych" rynkach, tak jak w przypadku 
Hongkongu, zbieranie dowodów przez wy- 
najętych detektywów trwało całe miesiące, 
zanim władze zdecydowały się także przy- 
stąpić do akcji. 

Determinację firm stowarzyszonych w 
BSA najlepiej uzasadnia wysokość strat. W 
czasie śledztwa w Hongkongu wyszło na 
jaw, że piraci sprzedawali niektóre programy 
nawet po 2 dolary, podczas gdy ich oficjalna 
cena wynosi 500 dolarów! Warto więc po- 
nosić nawet wysokie koszty i angażować się 
w zakrojone na szeroką skalę akcje, zwła- 
szcza że pirackie firmy są na swoim terenie 
niemal zupełnie bezkarne. 

Małgorzata NOWOTNY 
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Dowolnie skomplikowany rysunek możemy 
utworzyć za pomocą dwóch podstawowych 
instrukcji: PLOT X,Y i DRAWTO X,Y. 
Liczba wyświetlanych punktów i linii zależy 
od tego, ile razy użyjemy tych instrukcji. 
Kształt uzyskanego rysunku zależy od war- 
tości X i Y, których będziemy używać podczas 
kreślenia. Najczęściej stosowane są dwa pod- 
stawowe sposoby otrzymania wartości współ- 
rzędnych. Pierwszy z nich polega na wylicza- 
niu wartości współrzędnych na podstawie 
różnorodnych wzorów matematycznych. 
Używany jest głównie wtedy, gdy możemy 
dobrać odpowiedni wzór dla uzyskania żąda- 
nego kształtu lub kreślimy wykresy funkcji 
zadanych w postaci wzoru. Drugi sposób po- 
lega na wykorzystaniu do kreślenia wartości 
współrzędnych zadanych w postaci jawnej. 
Wymaga to zwykle wcześniejszego wprowa- 
dzenia ich do odpowiedniej tablicy lub tablic. 
Po bliższym przyjrzeniu okaże się, że w mo- 
mencie kreślenia oba sposoby są identyczne. 
Punkt lub odcinek prostej tworzymy na pod- 
stawie wartości współrzędnych istniejących w 
postaci jawnej. Różnice polegają na sposobach 
przygotowania tych wartości. W pierwszym 
zadane są w sposób niejawny, w drugim — 
jawny. Rezultat jest podobny — w obszarze 
pamięci komputera, zwanym pamięcią ekra- 
nu, zostają ustawione odpowiednie bity. Na 
podstawie zawartości tego obszaru pamięci 
ANTIC wyświetla utworzony rysunek na 
ekranie monitora lub telewizora (patrz „IKS” 
nr 7 — 8 z 1987 roku). 

Każdy z przedstawionych sposobów ma 
swoje zalety i wady. W pierwszym z nich cały 
ciężar wyznaczenia wartości współrzędnych 
punktów przerzucamy na komputer, który na 
podstawie dosyć lakonicznego zapisu podane- 
go wzoru wyznacza setki, a nawet tysiące war- 
tości, a następnie wykreśla je na ekranie. Pro- 
gram realizujący to zadanie wymaga zwykle 
mało pamięci. 

Drugi sposób wymaga wcześniejszego 
przygotowania wartości współrzędnych kreś- 
lonych punktów lub linii. Najprostszym spo- 
sobem ich uzyskania jest wykreślenie rysunku 
na papierze milimetrowym, a następnie okreś- 
lenie współrzędnych charakterystycznych 
punktów i wprowadzenie ich do programu. 
Sposób jest dosyć żmudny, umożliwia jednak 
uzyskanie dowolnych kształtów. Dla progra- 
mów w języku BASIC dane o rysunku umie- 
szczane są zwykle w liniach DATA. Zaletą ta- 
kiego sposobu przygotowania danych jest za- 
chowanie wartości, na których podstawie 
wykreślono rysunek. Umożliwia to nie tylko 
szybkie odtworzenie rysunku, lecz także wy- 
konanie pewnych manipulacji całym rysun- 
kiem lub jego częścią. 

Ważny jest sposób przechowywania danych 
o rysunku. Dla prostych rysunków można 
przechowywać współrzędne punktów w tabli- 
cach jednowymiarowych w takiej kolejności, 
w jakiej będą później połączone. W wypad- 
kach bardziej złożonych przez jeden punkt 
może przechodzić kilka linii lub mogą istnieć 
fragmenty rysunku nie połączone liniami z 
resztą. Dlatego dane o rysunku wygodnie jest 
przechowywać w tablicach dwuwymiaro- 
wych. Pierwszy indeks elementu tablicy ozna- 
cza numer fragmentu rysunku, a drugi wska- 
zuje numer punktu w tym fragmencie. W Mn 
sposób para wartości (X (2,1), Y(2,l)) określa 
współrzędne pierwszego punktu drugiego 
fragmentu rysunku. 

Wprawdzie rysunek zapamiętany jest rów- 
nież, bez względu na sposób tworzenia, w 
pamięci ekranu, jednak manipulowanie nim 

6 


l N szponach Atari (16) 

GRAFIKA 

— wycinanie i zakrywanie 


Tomasz MROWIEĆ, Ludwik PIELA 


jest dosyć trudne. Przyczyną tego jest sposób 
odwzorowania w pamięci. 

Przekształcenia mogą być wykonywane na 
całym rysunku lub na określonych jego frag- 
mentach (szerzej napiszemy o tym w jednym z 
tegorocznych zeszytów programów kompute- 
rowych). Fragmenty te mogą być wydzielone 

FK 1 REM **************** 

FJ 2 REM * * 

» i BI ł Pro,r *" " r 1 1 

FO 3 REM **************** 

NL 6 REM 

BK 20 GRAPHICS 8'POKE 752/1 
LB 30 DIM X<15),Y<15),M*<1) 

GK 40 XM=3 1 9 1 YM* 1 39 
BE 60 REM ** ODCZYT DANYCH WYKRES 
U ** 

ID 70 FOR 1-1 TO 13 

HQ 80 RE AD X/Y 

WX 90 X<I)=X'Y<I)=Y 

FR 100 NEXT I 

TK 120 GOSUB 160 

TX 130 GOSUB 260 

GV 140 GOTO 770 

XA 160 REM ** WYKREŚLANIE ** 

AG 180 GRAPHICS 8 * COLOR 1 
XV 190 PLOT X<1),Y<1) 

SW 200 FOR 1=2 TO 13 
ZQ 210 DRAWTO 2*X<I),Y<I) 

FW 220 NEXT I 
ZG 240 RETURN 

LS 260 REM ** DODANIE OKNA ** 

KE 280 ? CHR$(125); "ŚRODEK OKNA < 
X,Y>"; , 

KE 290 TRAP 280 'INPUT X0/Y0 
EO 330 ? CHR*< 125) 1 ? "WYSOKOSC I 
SZEROKOŚĆ OKNA"; 

CM 340 TRAP 330 ' INPUT OW/OS 

•JC 350 TRAP 40000 

NB 360 L»X0-0S/2 

NF .370 P»X0+0S/2 

OF 380 G=YG-0W^2 

NA 390 D*Y0+0W/2 

YJ 400 IF L>P OR L<0 OR P>XM OR G 
>D OR G<0 OR D>YM THEN 330 
GH 450 PLOT L/G 
DB 460 DRAWTO P/G 
BN 470 DRAWTO P/D * 

WW 480 DRAWTO L/D' DRAWTO L/G 
TV 500 ? CHR$<125>; "|£ — KONIEC" / "2. 

— ZMIANA OKNA" 

EP 510 INPUT M* 

HJ 320 IF M*»"K" OR M*-"k" THEN 7 
70 

PQ 590 REM ** KASOWANIE OKNA ** 

XD 600 COLOR 0 

G6 610 PLOT L/G 

CV 620 DRAWTO P/G 

BH 630 DRAWTO P/D 

WG 640 DRAWTO L/D' DRAWTO L/G 

XY 650 COLOR 1 

SI 680 ? CHR*< 125) ; "CZY ODTWORZYĆ 
RYSUNEK <T/N>" 

FG 690 INPUT M$ 

EK 720 IF M*="N" OR M$="n" THEN 2 
60 

VC 730 GOSUB 190 
OS 740 GOTO 260 
ZN 750 RETURN 
OK 770 END 

JV 1000 DATA 0/159/10,120,20/60/3 
0,50/40/ 100,50/ 120/60, 100,70/3 
0,80/40/90, 100, 100/120,110,110 
,120,139 


w specjalny sposób, mogą być usunięte z 
ekranu lub zachowane i przekształcone, a jed- 
nocześnie reszta rysunku będzie usunięta. 

Często wymagane jest wyróżnienie pew- 
nych elementów rysunku w celu skupienia na 
nich uwagi. Elementy te mogą być narysowa- 
ne innym kolorem lub wykreślone Uniami o 
zwiększonej jaskrawości. Taki sam efekt 
można uzyskać poprzez wykreślenie w wy- 
dzielonym obszarze linii podwójnej grubości: 
zamiast linii wykreśla się dwie linie w odleg- 
łości jednego kroku rastra. Innym sposobem 
zwracania uwagi na wybrany obszar jest oto- 
czenie go ramką, okrągłą lub prostokątną, 

W celu nałożenia na rysunek' ófeYęgu 
wystarczy określić współrzędne jego Środka 
(XC, YC) i promień R. Do programu należy 
dodać podprogram kreślenia okręgd, Ido' któ- 
rego zwracamy się za każdym rażćńt, 1 kiedy 
potrzebujemy wydzielić żądany obsiai*! Mó- 
żna napisać program, który pozwól? ókśóefy- 
mentować z położeniem i rozmiarami 'okręgu 
dla uzyskania najlepszego efektu. 

Podczas używania, do wydzielania obszalru 
ekranu, prostokątnej ramki można określać 
wszystkie cztery lub tylko dwa przeciwległe 
rogi prostokąta. Można także napisać pro- 
gram, który prosi o podanie współrzędnych 
środka prostokąta i jego rozmiarów. Przykła- 
dem może być program nr 1, który wykreśla 
prostokąt o środku w punkcie (XBj;YB) sze- 
rokości W i wysokości H, 

Oprócz wyróżniania określonych obszarów 
ekranu, niekiedy trzeba usunąć części utwo- 
rzonych rysunków. W takich wypadkach mo- 
żna wykorzystać metody wydzielania obsza- 
rów dla identyfikacji fragmentów rysunku, 
które należy zakryć (usunąć) lub wyciąć. W 
pierwszym wypadku usuwamy rysunek, ze 
wskazanego obszaru ekranu, w drugim tt, .za- 
chowujemy rysunek tylko w tym obszarze, a 
usuwamy resztę. 

Sposoby wydzielania obszaru ekranu, za 
pomocą okręgu lub prostokąta, można wyko- 
rzystać do określenia ścieranego obszaru. ‘Po- 
trzeba usuwania części rysunku rtoże wynikać 
z wielu powodów. Na przykład chcćrny 
uprościć złożony rysunek lub uwolnić mićjsce 
na wyświetlenie dodatkowej informacji. Ope- 
racje te wygodnie jest wykonać podc^ ! do- 
bierania formatu wyświetlania rysunków w 
celu uwolnienia miejsca na ekranie podczas 
powiększenia lub innych przekształceń ele- 
mentów rysunku. 

Wydzielone fragmenty rysunku można 
oczywiście usunąć, zmieniając program tak, 
aby rysunek tworzony był bez nich. Prowadzi 
to do istotnych zmian w programie grafi- 
cznym. Jeśli później chcemy odtworzyć usu- 
nięte fragmenty, program znowu trzeba bę- 
dzie przerabiać. Jeśli trzeba często usuwać 
fragmenty rysunku, można specjalnie opra- 
cować uniwersalny program do kasowania ca- 
łej informacji wewnątrz zadanego obszaru. 


Wykorzystanie prostokąta do identyfikacji 
oczyszczonego obszaru umożliwia łatwe wy- 
cieranie znaków, punktów i części linii, znaj- 
dujących się wewnątrz prostokąta. Trzeba 
tylko zapełnić ten obszar liniami w kolorze tła. 

Można czyścić także wewnątrz granic okrę- 
gu. Jednak w tym wypadku program będzie 
działać wolniej, ponieważ należy obliczać 
współrzędne punktów okręgu, które następnie 
wykorzystuje się do wskazania końców odcin- 
ków linii zapełniających wewnętrzny obszar 
okręgu. 

W pewnych wypadkach należy przechować 
część rysunku i wykasować resztę. W tym celu 
wybrany obszar ekranu zamyka się w prosto- 
kątną ramkę lub okno. Kasowanie elementów 
rysunku na zewnątrz okna nazywamy wyci- 
naniem. 

Program, powodujący wycinanie dowolnego 
zobrazowania, powinien znajdować i prze- 
chowywać wszystkie napisy, oddzielne punkty 
i części linii mieszczące się w obszarze okna. 
Analizuje on współrzędne końców odcinków i 
położenie napisów w celu określenia prze- 
chowywanych elementów rysunku. 

Przede wszystkim rozważmy działanie pro- 
gramu wycinania dla punktów i odcinków linii 
prostych. Będzie on wprowadzał współrzędne 
lewego górnego rogu okna (XW, YW) szero- 
kość W W i wysokość oknaż/lT. Współrzędne 
elementów rysunku przechowujemy w tabli- 
cach X i Y. 

Oddzielny punkt (nie będący częścią linii) 
przechowywany jest przez program wycina- 
nia, jeśli znajduje się wewnątrz okna, tj. jeśli 
jego współrzędna X leży w przedziale od XW 
do XW + WW a współrzędną Y — w prze- 
dziale od YW do YW+ HW. Odcinek pro- 
stej jest przechowywany, jeśli oba jego końce 
znajdują się wewnątrz obszaru okna. Linia 
usuwana jest w całości. Jeśli wszystkie jej 
punkty leżą na zewnątrz okna. Jeśli część linii 
znajduje się na zewnątrz okna, jest odcinana. 
Przechowywana jest tylko u część linii, która 
znajduje się wewnątrz. 

Program nr 2 rozpoczyna działanie od 
analizy współrzędnych względem lewej grani- 
cy okna. Punkty, których współrzędne po- 
ziome przewyższają wartość X lewej granicy 
okna, zapamiętywane są w tablicach XI i Yl. 
Punkty przecięcia linii z lewą granicą ekranu 
także zapamiętywane są w tablicach XI i Yl. 
Następnie współrzędne z tablic XI i Yl po- 
równywane są z położeniem górnej granicy 
okna. 

Punkty przecięcia i wszystkie punkty izo- 
lowane, których współrzędna pionowa prze- 
wyższa wartość Y górnej granicy okna, za- 
pamiętywane są w tablicach X2 i Y2. Pozosta- 
łe punkty odnoszone są do prawej granicy 
okna. Tablice XI i Yl wykorzystywane są 
powtórnie do przechowywania współrzęd- 
nych punktów przecięcia i punktów, których 
współrzędna pozioma nie przewyższa współ- 
rzędnej X prawej granicy. W końcu, współ- 
rzędne punktów z tablic XI i Yl porównywa- 
ne są z położeniem dolnej granicy okna. Tab- 
lice X2 i Y2 wykorzystuje się do przechowy- 
wania końcowej informacji o punktach i od- 
cinkach linii, które powinny być zobrazowane 
po oczyszczeniu ekranu. 

Rozszerzymy teraz program nr 2, aby za- 
pewnić wykonanie operacji wycinania przy 
obecności napisów. Można przetwarzać napi- 
sy tak jak linie, to jest przechowywać tę część 
napisu, która znajduje się wewnątrz okna. 
Jednak dla uproszczenia programu będziemy 
przechowywać tylko te opisy, które całkowicie 


FK 1 REM **************** 

FJ 2 REM * * 

XU 3 REM * Proaran nr 2 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

AC 160 GRAPHICS 8'COLOR 1 
OU 170 DIM X<8,20),Y<8,20),X1<8,2 
0>,Y1<8,20),X2<8,20),Y2<8,20>, 
NE<8),M*<1),ME<20) 

SJ 180 XM-319 
TK 190 YM-159 

BH 195 REM X******************* 

WQ 200 REM ODCZYT WSPÓŁRZĘDNYCH 
AG 205 REM ******************** 

XJ 210 READ N 

FN 220 FOR P-l TO N 

RB 230 READ NE 1 NE<P)»NE 

UZ 240 FOR E-l TO NE 

SP 250 READ X,Y'X<P,E)-X'Y<P,E)-Y 

EQ 260 NEXT E 

IY 270 NEXT P 

EZ 280 GRAPHICS 8'C0L0R 1'POKE 75 

2,1 

RN 290 GOSUB 340 'REM KREŚLENIE RY 
SUNKU 

MM 300 GOSUB 450 'REM OKREŚLENIE 0 
KNA 

VP 305 IF M*»"Z" THEN 330 
YC 310 GOSUB 850 -REM WYCINANIE OK 
NA 

ZH 320 GOSUB 2460 -REM KREŚLENIE W 
YCIETYCH PUNKTÓW 

CY 330 IF PEEK<764)-255 THEN 330 
X0 335 POKE 764, 255 'GOTO 280 
BG 338 REM ******************** 

UR 340 REM PODPROGRAM KREŚLENIA 
AZ 345 REM ******************** 

RH 350 ? #6; CHR*< 125) ; 

FW 360 FOR P-l TO N 
CP 370 IF NE<P»1 THEN 400 
BD 380 PLOT X<P, 1 ), Y<P, 1 ) 

OL 390 GOTO 430 
IG 400 FOR E-l TO NE<P)-1 
EQ 410 PLOT X<P,E),Y<P,£) 'DRAWTO 
XCP,E+1),Y<P,E+1) 

EK 420 NEXT E 
IS 430 NEXT P 
ZI 440 RETURN 

ZA 445 REM *************** 

HN 450 REM OKREŚLENIE OKNA 
ZC 455 REM *************** 

LP 460 ? CHR$< 125 ) t 
PL 465 ? "PARAMETRY OKNA'" 

IX 470 ? "Law* aorn* roa <x,*>'"; 
XY 480 TRAP 460 ' INPUT XW,YW 
ZE 520 ? "W*»oko*c i azerokosc * "t 

KU 530 TRAP 490' INPUT HW,WW 
LM 540 ? CHRf < 125 ) ) 

JE 550 TRAP 40000 
RV 560 L“XW 
AF 570 R-XW+WW 
TU 380 T-YW 
RU 590 B-YW+HW 

WS 600 IF L>-R OR L<0 OR R>XM OR 
T>-0 OR T <0 OR B>YM THEN 460 
ZT 668 PLOT L,T< DRAWTO L,B 
BL 670 DRAWTO R,B 
LF 680 DRAWTO R, T 
IN 690 DRAWTO L,T 
SD 700 ? "£ - kasowani* ranki li - 
wycinani* Z “ z*kr 

*wani •" i 
ER 710 INPUT M* 

XA 720 IF M*«"Z" OR M*-"z" THEN G 
OSUB 5000 'RETURN 

TM 730 IF M*-"W" OR M*-"w" THEN R 
ETURN 

ZB 735 REM *************** 

JG 740 REM KASOWANIE RAMKI 
ZD 745 REM *************** 

LQ 750 ? CHR*< 125 ) ) 

XQ 760 COLOR 0 

ZY 780 PLOT L,T- DRAWTO L,B 

BG 790 DRAWTO R, B 

KR 800 DRAWTO R, T 

HZ 810 DRAWTO L, T 

XU 820 COLOR 1 

PA 830 GOTO 450 

VL 840 REM ********************* 
WE 850 REM WYCINANIE WZGLĘDEM 
DH 860 REM LEWEGO BRZEGU 
WE 865 REM ********************* 


DZ 870 REM W XI I Yl 
XD 880 Pl-1 
GH 890 FOR P-l TO N 
UD 900 El-0 

IN 910 FOR E-l TO NE<P>-1 
JE 930 IF X<P,E) <L THEN 1020 
GB 940 REM PIERWSZY PUNKT JEST W 
ŚRODKU 

DF 950 El-El+1 

RP 960 X1<P1,E1)-X<P,E) 

SL 970 Y1<P1,E1)-Y<P,E) 

Yl 980 REM CO Z DRUGIM PUNKTEM? 

DF 990 IF X<P,E+1)>-L THEN 1070 
BS 1000 GOSUB 1190 
QE 1010 GOTO 1070 
00 1020 REM PIERWSZY PUNKT JEST P 
OZA 

SE 1030 REM CO Z DRUGIM PUNKTEM? 
UQ 1030 IF X<P,E+1»"L THEN GOSUB 
1190 

D6 1070 NEXT E 
IU 1080 REM 

KL 1090 IF X<P,NE<P)XL THEN 1130 


AE 1100 El-El+1 

MX 1110 X1<P1,E1)-X<P,NE<P)) 

NW 1120 Y1<P1,E1)-Y<P,NE<P)> 

RL 1130 IF £1-0 THEN 1160 
SU 1140 ME<P1 )-El 
HC 1150 Pl-Pl+1 
II 1160 NEXT P 
PH 1170 MN-P1-1 
RM 1180 GOTO 1260 
IZ 1190 REM 
AG 1200 El-El+1 

ET 1210 M»<Y<P,E+1)-Y<P,E))XX<P, 
E+1)-X<P,E>) 

RG 1220 Yl <P1 , El )-M*<L-X<P,E) >+Y< 
P,E) 

KN 1230 X1<P1,E1)-L 
AP 1240 RETURN 

EV 1250 REM ******************* 

01 1255 REM WYCINANIE WZGLĘDEM 

UW 1260 REM GORNEGO BRZEGU 

AO 1265 REM ******************** 

PA 1270 Pl-1 

TN 1280 FOR P-l TO MN 

MJ 1290 El-0 

FN 1300 FOR E-l TO ME<P>-1 

0X 1310 IF Y1<P,E»-T THEN 1330 

AW 1320 IF Y1<P,EXT THEN 1420 

HT 1330 REM PIERWSZY PUNKT LINII 

AY 1335 REM JEST W ŚRODKU 

AU 1340 El-El+1 

BU 1350 Y2<P1,E1)-Y1<P,E) 

BB 1360 X2(P1,E1)-X1<P,E) 

LJ 1370 REM CO ZDRUGIM PUNKTEM? 

WW 1380 IF Y1<P,E+1XT THEN GOSUB 
1580 

JD 1390 REM 
RS 1400 GOTO 1460 
IK 1420 REM 

FS 1440 IF YKP,E+1»-T THEN GOSU 
B 1580 
IT 1450 REM 
DX 1468 NEXT E 

EX 1470 REM BADANIE PUNKTU KONCOW 
EGO 

HS 1480 IF Y1<P,ME<P)XT THEN 152 
0 

BL 1490 El-El+1 

NE 1500 Y2<P1,E1)-Y1<P,ME<P>> 

ML 1510 X2<P1,E1)-X1<P, ME<P> ) 

TX 1520 IF El-0 THEN 1530 
SZ 1530 ME<P1 )-El 
HH 1540 Pl-Pl+1 
IN 1550 NEXT P 
PM 1560 MN-P1-1 
UN 1570 GOTO 1680 
JE 1580 REM 
BN 1590 El-El+1 

PJ 1600 IF Xl<P,E+l)OXl<P,E> THE 
N 1630 

AS 1610 X2<P1,E1)-X1<P,E) 


SN 1620 GOTO 1650 „ 

SS 1630 M-<Y1<P,E+1)-Y1<P,E))XX1 
ĆP,E+1)-X1<P,E)) 

ON 1640 X2<P1,E1)-<T-Y1<P,E))/M+X 
1<P,E) 

GM 1658 Y2<P1 , El )-T 
BD 1660 RETURN 
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fc FJ 1670 REM ******************* 

W OF 1680 REM WYCINANIE WZGLĘDEM 
X0 1685 REM PRAWEGO BRZEGU 
GO 1687 REM ******************* 

PO 1690 Pl-1 

SZ 1700 FOR P-l TO MN 

LV 1710 E1=0 

GB 1720 FOR E-l TO ME<P)-1 

SY 1730 IF X2<P,EX«R THEN 1750 

HF 1740 IF X2<P,E»R THEN 1840 

IZ 1750 REM 

BI 1760 El-El+1 

BW 1770 XI <P1 , El >-X2<P,E) 

CV 1780 Y1<P1,E1>-Y2<P,E> 

JL 1790 REM 

GS 1800 IF X2<P,E+1»R THEN GOSUB 
2000 

I P 1810 REM 
VC 1820 GOTO 1880 
IY 1840 REM 

NI 1860 IF X2<P,E+1X-R THEN GOSU 
B 2000 
JH 1870 REM 
EL 1880 NEXT E 
JN 1890 REM 

NX 1900 IF X2<P,ME<P)»R THEN 194 
0 

AX 1910 El-El+1 

NG 1920 X1<P1,E1)»X2<P,ME<P>) 

OF 1930 Y1<P1,E1)-Y2<P,ME<P>> 

ZD 1948 IF El-0 THEN 1970 
TN 1950 ME<P1)-E1 
HV 1960 Pl-Pl+1 
JB 1970 NEXT P 
QA 1980 MN-P1-1 
SF 1990 GOTO 2070 
HX 2008 REM 
AG 2010 El-El+1 

WA 2020 M»<Y2<P,E+1>-Y2CP,E)>XX2 
<P,E+1>-X2<P,E>> 

FV 2030 YKP1/E1 )=M*<R-X2<P,E))+Y 
2<P,E> 

OF 2040 X1<P1,E1)-R 
AP 2050 RETURN 

ZR 2060 REM ******************** 

Ol 2065 REM WYCINANIE WZGLĘDEM 

QY 2070 REM DOLNEGO BRZEGU 

AO 2075 REM ******************** 

PA 2080 Pl-1 

TN 2090 FOR P-l TO MN 

LH 2100 El-0 

FN 2110 FOR E-l TO ME<P>-1 
BF 2120 IF Y1<P,EX»B THEN 2140 


SI 2130 IF Y1<P,E»B THEN 2250 

IL 2140 REM 

AU 2150 El-El+1 

BU 2160 Y2<P1,E1>-Y1<P,E> 

BB 2170 X2<P1 /El >-Xl<P,E) 

IX 2180 REM 

LC 2190 IF Y1<P,E+1»B THEN GOSUB 
2390 

IB 2200 REM 
RS 2210 GOTO 2270 
RZ 2230 REM PIERWSZY PUNKT POZA 
QM 2250 IF Y1<P,E+1X«B THEN GOSU 
B 2390 


IT 

2260 

REM 


DX 

2270 

NEXT E 


IZ 

2280 

REM 


US 

2290 

IF Y1<P,ME<P>»B THEN 

233 

AJ 

2300 

El-El+1 


NE 

2310 

Y2<P1/E1)-Y1<P/ME<P>) 


ML 

2320 

X2<P1/E1)-X1<P/ME<P>) 


TX 

2330 

IF El-0 THEN 2360 


SZ 

2340 

ME<P1 )-El 


HH 

2350 

Pl-Pl+1 


IN 

2360 

NEXT P 


PM 

2370 

MN-P1-1 


BE 

2380 

RETURN 


JE 

2390 

REM 


AL 

2400 

El-El+1 


PJ 

2410 

IF Xl<P,E+lX>Xi<P,E> 

THE 


N 2440 


AS 

2420 

X2<P1,E1)»X1<P,E> 


SN 

2430 

GOTO 2460 



SS 2440 M-<Y1<P,E+1>-Y1<P,E)>XX1 
<P,E+1)-X1<P,E>> 

CT 2450 X2<P1,E1)-<B-Y1<P,E))/M+X 
1 (P/E> 

FK 2460 Y2<P1,EI>-B 
BD 2470 RETURN 
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AW 2475 REM ******************** 
FJ 2480 REM KREŚLENIE WYCIĘTYCH 
TO 2485 REM PUNKTÓW 
BH 2487 REM ******************** 
FH 2490 ? #6jCHR*<125)j 
FZ 2500 PLOT L/ T 1 DRAWTO L/B 
KJ 2510 DRAWTO R/B 
UW 2520 DRAWTO R/T 
RZ 2530 DRAWTO L/T 
TI 2540 FOR P-l TO MN 
GH 2550 FOR E-l TO ME<P>-1 
KS 2560 PLOT X2<P/ E> / Y2<P/ E> > DRAW 
TO X2<P,E+1),Y2<P,E+1> 

ED 2570 NEXT E 
IX 2580 NEXT P 
BL 2590 RETURN 

ZL 2600 REM ******************** 
MV 2610 DATA 8 

EK 2630 DATA 12/195/87/210/90/232 
/ 65/ 232/60/213/ 50/ 200/35/ 165/ 3 
7 

HU 2640 DATA 145/50/85/55/70/30/6 
0/30/60,57 

EH 2650 DATA 3/69,66/85/80/152/85 
VZ 2670 DATA 6/160,70,138/128/145 
, 135, 170, 135, 178/ 128,200/ 75 
FO 2680 DATA 6/203/40,198/5/195/0 
,170,0,165,5, 167,36 
RY 2700 DATA 3/73,35/78/35/80,45 
UB 2710 DATA 4, 65, 50, 53, 70, 65, 70, 
75,60 

IM 2730 DATA 7,230/63/235/63/230/ 
25 , 240 , 25 , 230 ,100,240/100/ 235 , 
63 

UH 2731 DATA 6,208/80/210,80/210/ 
82/208/82/208/80/210,82 
FO 2740 END 
XN 5000 COLOR 0 
JN 5010 FOR X-L TO R 
VE 5020 PLOT X,T' DRAWTO X,B 
MC 5025 NEXT X 
GI 5030 ? CHRf < 125) 

AP 5040 RETURN 

mieszczą się w granicach ramki. Analiza poło- 
żenia napisów polega na sprawdzeniu, czy po- 
czątek tekstu znajduje się na prawo od lewej 
granicy okna, a koniec na lewo od prawej gra- 
nicy. Oprócz tego napis powinien znajdować 
się w wierszu położonym między górną i dol- 
ną granicą ramki. 

Zmienna T S wykorzystywana jest do prze- 
chowywania napisów — ciągów znaków. Tab- 
lice XI. i XR używane są do przechowywania 
współrzędnych X początków i końców 
wszystkich ciągów. W tablicach YT i YB 
przechowywane są współrzędne górnej i dol- 
nej granicy każdego ciągu znaków. 

Na jeden symbol wydziela się 8*8 elemen- 
tów rastra. Faktycznie zajmuje on obszar 7*7, 
to znaczy, że odstęp między literami w wier- 
szu równy jest jednemu elementowi rastra. 
Taki sam jest odstęp między wierszami. Sym- 
bole zaczynają się w punktach o współrzęd- 
nych X: 0,8, 16, 24, ... i kończą się w punk- 
tach 7, 15, 23, 31, ... Górna granica symboli w 
wierszach ma współrzędne Y 0, 8, 16, ... a 
dolna — 7, 15, 23, ... W celu określenia po- 
czątku obszaru wyświetlania pewnego znaku 
musimy odjąć 1 od numeru pozycji w wierszu 
i pomnożyć przez 8. W podobny sposób 
określa się koniec obszaru wyświetlania, górną 
i dolną jego granicę. Zresztą i tak będzie to za 
nas robił komputer. Odpowiednie obliczenia 
zawarte są w programie nr 3, który jest uzu- 
pełnieniem programu nr 2. 

Program nr 3 może być tak zmodyfiko- 
wany, aby przechowywać dowolną część tek- 
stu mieszczącego się wewnątrz granic okna. 
Można też ulepszyć algorytm wycinania linii, 
w celu zmniejszenia liczby wykonywanych 
obliczeń. Będzie to ważne przy dużej liczbie 
linii. 

Po wykonaniu wycinania można w dowolny 
sposób przekształcić zobrazowanie wewnątrz 
okna: 


FK 1 REM **************** 

FJ 2 REM * * 

YO 3 REM * Program nr 3 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

VI 171 DIM TX*< 100) , RO<10),CQ(10) 
,TL<10),TR<10),TT<10), T8<10) , T 
f<10)/LT<10),PTa0) 

ZS 271 REM ODCZYTANIE TEKSTÓW I U 
SPOLRZEDNYCH 
AG 272 READ TN'F-1 
HF 273 FOR K-l TO TN 
RR 274 READ T*,R0,C0'TX*<F>-T*'R0 
<K)-RQ'CQ<K)-CG ! LT<K)*LEN<T*> ; 
PT<K)-F 

CG 275 TL<K)»<C0<K)-1>*8 
QT 276 TR<K)-<TL<K)-1 )+LEN<T*)*8 
LQ 277 TT<K)"(RQ(K>-1>*8 
DF 278 TB<K)-TT<K)+7 
VI 279 F-F+LEN(T*) : NEXT K 
MV 431 REM UMIESZCZENIE TEKSTÓW 
GW 432 FOR K-l TO TN 
NY 433 Y-RG(K) ! X-CG<K) 'T*-TX*(PT< 
K) ,PT <K)+LT<K)-1 ) 

SV 434 GOSUB 10000 
HJ 435 NEXT K 
WP 2581 FOR K-l TO TN 
GI 2582 IF TL<KXL OR TR<K»R OR 
TT<KXT OR TB<K»B THEN 2589 
VG 2563 Y-RO(K) ! X-C0<K) 1 T$-TX#<PT 
<K> ,PT(K)+LT<K)-1 > 4 

BW 2584 GOSUB 10000 
IE 2589 NEXT K 
LT 2732 DATA 4 
NM 2733 DATA KADŁUB, 12, 10 
BB 2734 DATA OGON, 7, 3 
UM 2735 DATA SKRZYDŁO, 18, 16 
PV 2736 DATA ŚMIGŁO, 2, 26 
WV 9999 REM ZNAKI W GRAFICE 8 
ZT 10000 START -PEEK < 89 ) *256+PEEK < 
88)+40*Y*8+X 

YC 10010 FOR El-1 TO LEN(Tf) 'E3-A 
SC<T*<E1 >) 

EL 10020 E3-E3+64*<E3<32)-32*(E3> 
31 AND E3<96) 

MK 10030 ZN-PEEK < 756 ) *256+E3*8 
EA 10040 FOR E2-7 TO 1 STEP -1 
VW 10050 POKE START+E2*40, PEEKCZN 
+E2) 1 NEXT E2 

SI 10060 X-X+l > IF X>*40 THEN STAR 
T«START+40*6 • X=0 

BT 10070 START-START+1 »NEXT El 'RE 
TURN 

— przenieść go x inne miejsce ekranu, po- 
większyć lub pomniejszyć lub też obrócić; 

— zachować początkowy rysunek, nało- 
żywszy na niego (np.: w kącie ekranu) wydzie- 
lony za pomocą okna fragment rysunku (być 
może powiększony). 

Miejsce umieszczenia zawartości okna, po 
ewentualnych przekształceniach, nazywamy 
polem wprowadzania. Jego położenie, podob- 
nie jak dla okna, można opisać podając współ- 
rzędne lewego, górnego rogu i rozmiary. 
Okno określa „co” chcemy zobaczyć, pole 
wyprowadzania wskazuje, „gdzie” chcemy 
zobaczyć to na ekranie. Rozmiary pola wy- 
prowadzania mogą być większe lub mniejsze od 
rozmiarów okna lub takie same. Pole wypro- 
wadzania może zajmować cały ekran lub być 
niewielką wstawką na ekranie. Okno i pole 
wyprowadzania można rozmieścić w różnych 
obszarach ekranu lub uczynić je przecinają- 
cymi się. Za pomocą pola wyprowadzania, 
którego rozmiary są znacznie większe od roz- 
miarów okna, można powiększyć zobrazowa- 
nie oddzielnych elementów i obejrzeć szcze- 
góły, które są początkowo słabo rozróżniane. 

Program przekształcający obszar okna w 
pole wyprowadzania powinien przekształcać 
współrzędne wszystkich punktów wewnątrz 
okna na współrzędne punktów w polu wypro- 
.wadzania. 

Nowe współrzędne punktów w polu wy- 
prowadzania związane są ze współrzędnymi 


odpowiadających punktów w obszarze okna 
następującymi zależnościami: 

XN = (X - XW) * (WY/WW) + XV 
YN = (Y - YW) * (HV/HW) + YV 


Parametry (WV/WW) i (HV/HW) są 
współczynnikami skalowania. Jeśli są one 
równe 1, rozmiary elementów zobrazowania 
podczas przekształcania zmieniają się. War- 
tości większe od 1 powodują zwiększenie 
rozmiarów, a wartości mniejsze od 1 — 
zmniejszenie. Jeśli stosunek WV/HV nie jest 
równy WW/HW obserwuje się naruszenie 
proporcji zobrazowania, co równoważne jest 
nierównomiernemu skalowaniu wzdłuż osi A" i 
Y. Człony XV i YV w powyższych równaniach 
określają wielkość przemieszczenia. 

Przekształcanie zobrazowania z obszaru 
okna w pole wyprowadzania wykonuje pro- 
gram nr 4. Aby zobaczyć jego działanie, na- 
leży dołączyć go do programu nr 2. 


FK 1 REM **************** 

FJ 2 REM * * 

K 3 ffl I Pro,r * w " r 4 ! 

FO 3 REM **************** 

NL 6 REM 

VI 175 DIM XN(8,20),YN<8,20> 

XL 335 POKE 764, 253 'GOTO 2750 
IX 2740 REM 
JA 2750 REM 
EH 2810 GOSUB 2850 
BY 2820 GOSUB 3070 
BM 2830 GOSUB 3150 
EG 2840 IF PEEK<764>«255 THEH 284 
0 

El 2845 POKE 764, 255 'GOTO 290 
JC 2850 REM 
TT 2860 ? CHR*< 125 ) > 

SJ 2870 ? "L*ui* io mu roi x,a "i 
RQ 2880 TRAP 2860-INPUT XV, YV 
UC 2890 ? CHR*< 125) ; 

FT 2920 ? "Podaj wwiokoic i *z»ro 
ko*c " j 

DE 2930 TROP 2890'INPUT HV,WV 
PA 2940 TRAP 40000 
TS 2930 ? CHR*< 125) ; 


MX 2960 L-XV 
DL 2970 R-XV+WV 
PH 2980 T»YV 
TY 2990 B»YV+HV 

YE 3000 IF L>=R OR R>XM OR T>»B O 
R T <0 OR B>YM THEN 2860 
AT 3060 RETURN 

JH 3070 REM PRZELICZENIE OKNA 
TL 3080 FOR P-l TO MN 
CZ 3090 FOR E-l TO ME<P) 

MH 3100 XN<P, E)-<X2(P, E)-XW)*<WV/ 
WW)+XV 

HK 3110 YN<P,E)«CY2<P,E)-YW)*<HV/ 
HW)+YV 

DH 3120 NEXT E 
IB 3130 NEXT P 
AP 3140 RETURN 

ZF 3150 REM WYKREŚLENIE WYCIĘTYCH 
PUNKTÓW 

LJ 3160 ? #6;CHR*<125) 

GN 3170 PLOT L, T ' DRAWTO L,B 
KX 3180 DRAWTO R, B 
VK 3190 DRAWTO R, T 
RL 3200 DRAWTO L, T 
SU 3210 FOR P-l TO MN 
FT 3220 FOR E-l TO ME<P)-1 
AU 3230 PLOT XN<P,E>, YN<P,E) 'DRAW 
TO XN<P,E+1 > , YN<P, E+l ) 

DP 3240 NEXT E 
IJ 3250 NEXT P 
AX 3260 RETURN 

CZ 3270 REM ********************* 
***** 

FR 3280 END 


FK 1 REM **************** 

FJ 2 REM * * 

XU 3 REM * Proiram nr 2 * 

TG 4 REM * uzup* lniani# * 

FM 5 REM * * 

FP 6 REM **************** 

NM 7 REM 
NN 8 REM 

PV 10 REM W proimmit nr 2 z IKS 
QJ 12 REM nr 2 z br. omyłkowo nie 
PJ 14 REM zamieszczono podpro- 
OA 16 REM iramu, bedaceio zasad- 
BZ 18 REM nicza czescia przukla- 
VF 19 REM du. 

DT 20 REM Przepraszamy za zwia- 
LA 22 REM zane z tym kłopoty. 

HE 24 REM Poniższy proiram nale- 


NK 26 REM zy wprowadzić do kom- 
FN 28 REM pij. tera i zapisać na 
EK 30 REM taśmie masnetyczne j . 

JQ 32 REM Następnie należy dola- 
IJ 34 REM czyc so do prosramu 
IC 36 REM nr 2. 

NK 70 GOSUB 31000 
XV 31000 W«0'V«1 'RESTORE 31050 
RS 31010 READ X,Y'FOR I-X TO Y'RE 
AD Z 'POKE I , Z ‘ NEXT I 
KY 31020 READ Z'IF ZO-1 THEN ? " 
BLAD W DANYCH! SPRAWDŹ LINIE D 
ATA ! ! ! " ' END 

. MI 31030 W-W+l = IF W<V THEN 31010 
DR 31040 RETURN 
CX 31050 DATA 1536,1700 
NV 31060 DATA 104,141,185,6,141,1 

86.6. 162.0. 104. 157. 173.6. 157. 1 
81,6,104,157,169,6 

X0 31070 DATA 157, 177, 6, 169, 0, 157 
, 165,6,232,236, 186,6,208,231,1 
69,7,162,6,160,43 
FV 31080 DATA 76,92,228,173,185,6 
,240,88, 169,3, 141,15,210, 169,0 
,141,8,210,141,185 
US 31090 DATA 6,170,189,165,6,208 
,52, 168, 189, 173,6, 133,1,189, 16 

9.6. 133.0. 177.0 

JU 31100 DATA 72,138,10,168,104,1 

53.0. 210. 169. 164. 153.1.210. 160 
,1,177,0,157,165,6 

ZM 31110 DATA 136,17,0,240,22,189 
,169,6,24,105,2,157,169,6,144, 
3,254, 173,6, 169 

GG 31120 DATA 127,238,185,6,222,1 
65,6,232,236, 186,6,208, 185,76, 

98.228.162.0. 189.181 

EA 31130 DATA 6, 157, 173, 6, 189, 177 
,6, 157, 169,6,232,236, 186,6,208 
,238, 173, 186,6, 141 
DT 31140 DATA 185,6,76,133,6,-1 

Opracowując powyższy artykuł korzystaliś- 
my z książki wydanej w 1987 roku w Moskwie 
przez Wydawnictwo „Mir" pod tytułem: 
„Microcomputer graphics. Techniąues and Ap- 
plications" napisanej przez D. Heam i M. P. 
Baker. 

Tomasz MROWIEĆ 
Ludwik PIELA 


Skalowanie wykresu 

Krzysztof POŹNIAK 


Problem umieszczenia wykresu funkcji na ekranie dla wielu po- 
czątkujących programistów jest zadaniem nie do rozwiązania. Je- 
żeli jeszcze rysunek ma być umieszczony tylko na wybranym ob- 
szarze ekranu i do tego w skali logarytmicznej... Lepiej o tym nie 
myśleć 1 

Proponuję zacząć systematycznie i od rzeczy najprostszych. 

Na ekranie komputera możemy wykreślić fragment funkcji 
Y = f(X), np. takiej: 



gdzie: X m / n — początkowa wartość argumentu funKcji, 

X ma * — końcowa wartość argumentu funkcji, 

Ymi„ — minimalna wartość funkcji dla przedziału 
X Ł <Xm/n, Xm«,.' > , 

Y ma* — maksymalna wartość funkcji dla przedziału 
X £ < C.Xmln, Xm#jr!>, 

uwaga: wartości Y „m i Y ma* mogą być podawane z odpo- 
wiednimi zapasami, odpowiednio w dół i w górę, ale 
wtedy funkcja nie obejmie całego obszaru, na któ- 
rym będzie rysowana. 

Prezentowany fragment wykresu chcemy umieścić na zadanym 
obszarze ekranu, np: 
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gdzie: XS m m — początkowy punkt na osi poziomej XS ekranu, 
XSma * — końcowy punkt na osi poziomej XS ekranu, 

/Sm/n — najniższy punkt na osi pionowej YS ekranu, 

YSma * — najwyższy punkt na osi pionowej YS ekranu. 

Tak więc naszym zadaniem jest znaleźć takie przekształcenie, 
aby przejść z poziomej osi wykresu X na poziomą oś ekranu XS i z 
pionowej osi wykresu Y na pionową oś ekranu YS. 

Zajmijmy się na początek osiami pionowymi. Graficzne przejś- 
cie pomiędzy osią Y, a YS można przedstawić następująco: 



Jak widać funkcja przekształcająca jest linią prostą, czyli 
przekształcenie można zapisać w ten sposób: YS = a Y • Y + b y : 
Parametry oblicza się następująco: 

YSma* ~ YSmln 


by — YSmln — By * Y min — YSma* — By * Y ma* — 

■ i YSjafo ♦ Yfnu, — YSjngg ♦ Y^ 

Yma* ~ Ymin 

Sprawdźmy nasze przekształcenia na prostym przykładzie: 
niech wartość funkcji zmienia się w zakresie od —3 do 2, 
a chcemy aby na ekranie funkcja rysowała się w pionie między 
100-nym, a 200-nym ounktem na ekranie. 

Rozwiązanie: dane: Y m m = — 3 

Yma* = 2 
YSmm = 100 


stąd 

200 - 100 _ 
a > ~ 2 - (- 3) “ 


YSma* = 200 

20 ; 60 

otrzymujemy funkcję przekształcającą: YS = 20 * Y + 1 60 

Problem przekształcenia osi poziomej funkcji X na oś poziomą 
ekranu XS przeprowadza się identycznie, ale odwrotnie. 

I tutaj chciałbym wtrącić ważną uwagę: aby zachować jak naj- 
większą dokładność rysunku na ekranie, argument funkcji należy 
obliczać na podstawie współrzędnej punktu na ekranie. Dzięki te- 
mu w sposób jednoznaczny określamy współrzędną poziomą 
punktu na ekranie. 

Graficznie funkcję przekształcającą można przedstawić następu- 
jąco: 



Jest to również linia prosta, stąd X = a, 

Xma* Xmln 


b x — Xmln B x * XSmln — Xm* 
Xmln « XSma* ~ X mi 


XS + b,, gdzie: 


XSm 


- XSm 


Zajmijmy się teraz innym problemem: skalą logarytmi- 
czną. 

Dla osi pionowej sprawa jest prosta — należy wartość funkcji zlo- 
garytmować. Pozostałe przekształcenia są identyczne, jak dla po- 
przednio obliczanej funkcji przeliczającej oś Y na oś YS, z tą różni- 
cą, że zamiast Y m m podstawiamy m * logafYmm), a zamiast Yma* 
podstawiamy m * log^Yma*), gdzie: 
m — pewien współczynnik liniowy 
a — podstawa logarytmu 

(np. dla skali w decybelach [dfl] m = 20, a = 10) 

Otrzymujemy następującą funkcję przekształcającą: 

YS = a* • m • log . (Y) 4- b* 


gdzie: 


_ YS m 


- YSm 


m * tog. 

bw = YSmln - m * a* * tog. (Ymm) = YSma * - m • a„ * tog, (Yma*) = 
_ YSmm * tog, (Yma*) - YSm., » lOP . (Ymm) 

'cg./ 


Bardziej złożone przekształcenie zachodzi d>a osi poziomych, 
dla której argument obliczamy na podstawie współrzędnej punktu 
na ekranie. Funkcją odwrotną do logarytmicznej jest funkcja wy- 
kładnicza, stąd graficzne przekształcenie osi poziomych wygląda 
następująco: 


rysunek 5 



Otrzymujemy następującą funkcję przekształcającą: 
X = / * at(p* XS) gdzie: 

/ — znak potęgowania 
a — podstawa funkcji wykładniczej 

P = " 


XSm, 


-XSmln 




* tog. (Xmin) ~ XSmln * lQQą 


(XSm, 


~ XSmln) 




Po tych przerażających obliczeniach pora przejść do części 
praktycznej. Program pozwala wyrysować na dowolnym obszarze 
ekranu obrysowanego ramką funkcję wprowadzoną przez użyt- 
kownika. Tam, gdzie to było możliwe, zachowałem nazwy zmien- 
nych używanych w części teoretycznej artykułu, aby łatwo można 
było prześledzić proces obliczeniowy. 
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W skali logarytmicznej oś pionowa przedstawiana jest w [c/fi]. 
Jeśli funkcja wychodzi poza ramkę, to program kontynuuje obli- 
czanie, ale nie stawia punktu. 


10 REM 

11 REM 

12 REM 

13 REM 

14 REM 

15 REM 
15 REM 
17 REM 
13 REM 
19 REM 


*********************** 

Krzysztof Poźniak. 
Skatowanie wykresu 

©198S • 

*********************** 


80 LET XSkOn =255 : LET YSK0n=17 


90 rem wprowadzanie danych 

100 INPUT "podaj wzór funkcji " 
' "y = f (X) * M ; LINĘ x $ 

110 INPUT "podaj minimalna wart 
osc argumentu Xn i n »" ; Xm i n ' "poda j 

maksymalna wartość argumentu Xm 
ax = " ; Xmax 

111 IF xmin>=xmax THEN GO TO 11 

0 

120 INPUT "podaj minimalna wart 
osc na osi Y: Ym i n =" ; Ym i n ' "poda j 

maksymalna wartość na osi Y: Ym 

ax = " ; Ymax - 

121 IF Yrn i n > =Ym a X THEN GO TO 12 

0 

130 INPUT "podaj minimalna wspo 
ir zjedna ekranu na osi X: X5min=" 
; XSm i n ' "poda j maksymalna wspoirz 
edna ekranu na osi X: XSmax=";XS 
max 

131 IF XSm i n > =X5max OR xsmin<0 
OR X5max >XSkon THEN GO TO 130 

132 LET XSmin=INT XSm i n : LET XS 
max=INT X5max 

140 INPUT- "podaj minimalna wspo 
Irzedna ekranu na osi Y: YSmin=" 
; YSmin ' "poda j maksymalna wspoirz 
edna ekranu na osi Y: YSmax=";YS 
m a x 

141 IF YSm i n > =Y5max OR Ysmin<0 
OR YSmax >YSkon THEN GO TO 140 

142 LET YSm i n =INT YSmin: LET YS 
max=INT ySmax 

200 CLS ; PRINT "funkcja y=f(x) 
= " ; x i/ " Xm i n ; Xm i n , " Xm a x = " ; Xm a x ' 
"Ym i n * " ; Ym i n , " Ym a x « " ; Ym a x " " XSm i n 
= " ; X 3 ni i n , "XSmax = " ; X5max ' "YSm i n s" 
; YSm i n' . "YSm a x = " ; YSm a x 

205 PRINT - "op c je : " ' ; "0-nowe da 
n e " " 1 - s k a l a i i n i o w a " ' " 2 -s k a l a l 
ogary tm i czna " 


210 
211 
212 
213 
215 
300 
310 
Sm i n ) 
Sm i n i 
315 
Ym i n > 
Ym i n i 
320 
400 

y be lo 

410 

a rze 

411 
a ode 


LET i $=INKEY$ : 

IF i$="0" THEN GO TO 100 

IF i$="l" THEN GO TO 300 

IF i$="2" THEN GO TO 400 

GO TO 210 

REM skala liniowa 

LE 7r~£* s < Xrń a x “Kro i n ) / (XSm a x -X 

: LET bx = iXm i n *XSmax -Xmax *x 

/ iXSmax -xsm i n ) 

LET a y a ■ YSm a x -YSm i n i / ( Ym a x - 
: let by a i YSm i n #Y» a x -YSm a x * 
/ i y m a x -Ym i n ) 

GO Tu 500 

REM skala logarytmiczna -dec 
w a 

IF Xm i n < =0 THEN PRINT "skal 
dnych X ma wartości ujemne" 
IF Ym i n < =0 THEN PR INT "skal 
i e t y c h y ma wartości ujemne 


41e! IF Xmin<=0 uR Xmax<=0 THEN 
BEEP .1,20: PRUSE 1: PRUSE 0: GO 

TO 200 

415 LET m =20 

420 LET a w a (YSm a x -YSm i n ) / i m *LN 
( Ym a x /Ym i n ) /LN 10 ) 

421 LET bw e (YSm i n *LN Ym a x -YSm a x 
*LN Ym i n ) /LN i Ym a x /Ym i n ) 

425 LET bw = (YSm i n *LN Ymax-YSmax 
* L N Y m i n ) / L N i Y m a x / V rn i n :* 

430 let p=ln (Xmax /Xm i n ) / (XSmax 
-xsmin) 

431 let t =EXP ((XSmax*LN Xm i n -X 
Sm i n *LN Xm a x ) / < XSm a x -XSm i n ) ) 

500 REM ramka 

505 CLS PLOT XSm i n , YSm i n : DRR 
u xsm a x -XSm i n , 0 : - DRRU 0 , YSm a x -YS 
m i n : DRRU xsm i n -XSmax , 0 : DRRU 0 , 
YSm i n -YSmax 

520 REM pętla rysowania funkcji 

530 FOR k=xsmin TO xsmax 

540 IF 1S="1" THEN LET x=ax*k+b 
X 

541 IF i $="2" THEN LET X=t*EXP 

( k. *p ) 

550 IF i $=" 1" THEN LET YS=ay*UR 
L x$+by 

551 IF i $ = " 2 " THEN LET YS = m*aw* 
LN i URL X $ ) /LN 10 + bW- 

560 IF YS > =YSm i n RND YS<=YSmaX 
THEN PLOT k , YS 

570 NEXT k 

580 PRINT #1; "wciśnij dowolny k 
lawiSZ": PRUSE 1. BEEP .1,20: PR 
USE O: GO TO 200 

K. POŹNIAK 


Inteligentny 

V/ ponad stuletniej historii 
motoryzacji przyzwyczailiśmy 
się, że charakterystycznymi 
elementami każdego samochodu 
są cztery koła, kierownica i sil- 
nik. Tymczasem niepostrzeżenie 
do elementów tych dołączył 
komputer. 

W czołowych firmach samochodowych 
świata przeprowadzane są zaawansowane pra- 
ce nad pojazdami XXI wieku, w których 
komputer będzie odgrywał niezwykle istotną 
rolę. Jego podstawowym zadaniem ma być 
sterowanie pracą silnika oraz wszystkich pod- 
zespołów mechanicznych, a także ich kontro- 
lowanie. W wypadku wykrycia nieprawidło- 
wości w pracy pojazdu kierowca będzie o tym 
natychmiast informowany wraz ze wskaza- 


samochód (?) 

niem sposobu naprawienia samochodu. Jeżeli 
kierowca nie będzie w stanie poradzić sobie 
z naprawą, komputer poinformuje go, gdzie 
znajduje się najbliższy serwis. 

Komputer będzie także wspomagał kierow- 
cę w prowadzeniu pojazdu. Każdy samochód 
będzie wyposażony w system automatycznego 
utrzymywania bezpiecznej odległości od in- 
nych użytkowników drogi. Radarowe czujniki 
będą śledzić otoczenie pojazdu i w razie 
wykrycia zagrożenia komputer automatycznie 
uruchomi hamulec lub przyspieszy w razie 
potrzeby. Proces hamowania ma być oczywiś- 
cie kontrolowany, przez co uniknie się bloko- 
wania hamulców. 

Znacznie rozbudowany będzie także system 
komputerowego radia kierowców. Kierowca 
wsiadając do samochodu wprowadzi do pa- 
mięci komputera informację o docelowym 
miejscu podróży. W miastach oraz wzdłuż 
wszystkich dróg publicznych rozmieszczone 


będą nadajniki przekazujące drogą radiową 
komunikaty o aktualnych warunkach drogo- 
wych i atmosferycznych. Komputer automa- 
tycznie śledząc wszystkie komunikaty na bie- 
żąco naniesie poprawki dotyczące trasy prze- 
jazdu. 

W każdym samochodzie znajdzie się także 
radiotelefon, za którego pomocą będzie można 
uzyskać połączenie z dowolnym abonentem, w 
dowolnym miejscu. 

Elektroniczny numer rejestracyjny umoż- 
liwi w razie potrzeby znajdowanie skradzio- 
nych samochodów oraz identyfikację pojaz- 
dów, które naruszyły przepisy drogowe. 

Komputery wyręczą także policję drogową 
w kontrolowaniu ruchu pojazdów. Wszelkie 
przewinienia drogowe za sprawą odpowiednio 
rozmieszczonych kamer będą automatycznie 
wychwytywane i każdy użytkownik drogi, 
który dopuścił się wykroczenia, będzie naty- 
chmiast identyfikowany i drogą poczto.wą 
otrzyma do zapłacenia stosowny przekaz. 


MBO 

lir 


Przesyłanie kodu maszynowego 
do instrukcji R EM 


Prezentowany program jest wygodnym 
narzędziem dla tych, którzy chcą przecho- 
wywać ciągi bajtów (m. in. kody maszyno- 
we) w programie Basic'a. Program wprowa- 
dza dowolnie długi ciąg bajtów z każdej 
części pamięci komputera do linii komenta- 
rza REM, którą sam tworzy. 

Procedurę wywołujemy przez FNf(a, b, c). 
gdzie: 

a — adres początku bajtów 
w pamięci, 0<a<65535 

b - ilość bajtów, 0<b<65535 

c — numer linii REM, w której umie- 
ścimy bajty, 1 <c<9999 

Po wykonaniu procedury funkcja użyt- 
kownika (FN) przekazuje adres pierwszego 
elementu ciągu bajtów (można go użyć jako 
adresu startu kodu maszynowego). 

Program jest zabezpieczony przed błęd- 
nymi danymi. W momencie wykrycia błędu 
system przerywa pracę i wypisuje odpo- 
wiedni komunikat: 

O Parrametr error — gdy nie ma 
zgodności ilości 
parametrów lub 
gdy parametry 
nie zawierają 
się w dopusz- 
czalnych grani- 
cach. 

B Integer out of rangę — gdy numer 
linii wynosi 
0 lub przek- 
racza 9999. 

4 Out of memory — gdy zabraknie 
miejsca na utwo- 
rzenie linii. 

G No room for linę — gdy próbujemy 
utworzyć linię o 
numerze linii 
już istniejącej 
w programie. 

Dodatkowa funkcja: jeżeli ustalimy 
dtugość ciągu baj- 
tów równą zero, 
to procedura nie 
utworzy nowej li- 
nii tylko poda 
przez FN adres 
początku bajtów w 
tej linii. 

Ważna uwaga: ponieważ tworzenie linii 
przesuwa obszary pa- 
mięci, to aby uniknąć 
błędów systemu, należy 
utworzyć linię REM za 
linią zawierającą defini- 
cję funkcji (DEF FN) i 
linią wywołującą funkcję 
(FN). W wypadku pre- 
zentowanego programu 
za linią 300. 

Program jest relokowalny i można go 
umieścić w dowolnym miejscu za RAM- 
TOP-em, tak aby nie kolidował z innymi 
procedurami maszynowymi. 


ł? SIR *********************** 

la rem Krzysztof PoźniaK 
13 REM 

14. rem przesycanie kodu' 

15 REM ' maszynowego do ' 

16 REM ' instrukcji REM ' 

17 REM 

18 REM ©1988 

19 REM 

20 REN a********************** 


25 CLERR 65299 

30 DEF FN f (a , b , C ) <*U5R 65300 
100 REM wczytywanie kodu 
110 RESTORE 9000 
120 FOR ks0 TO 9 

130 LET S 1=0 : LET S2»0: LET Z«1 

140 FOR Ul TO 15 
150 REflD a: POKE 65299+k *15+ l , a 
| LET Sl«Sl+a: LET S2=s2+Z*a: LE 

160 NEXT l: REflD Skl,Sk2: IF Si 

10*1 OR Skaosa THEN BEEP .1,20 
: PRINT "blad w linii " i 9000 + 10* 
k - STOP 
170 NEXT k 

300 CLS BEEP .1,20: PRINT "pr 
ogram został wczytany" 

210 INPUT "padaj adres początku 
kodu maszynowego: ";adres 
22© INPUT "podaj dlugosc ciągu 
bajtów. ";dlugosc 
230 INPUT "podaj nr 
naczonej na zapis ba 


iii przez 
i: ";nrii 

mi 

300 CLS : PRINT "adres początku 
ciągu bajtów .",FN Madres,diug 
osc ,nr l im i ) 

310 LIST nr li ni i 


9000 DflTfl 221,42,11,92,6,3,221,2 

29.225.35.35. 175. 17.4.0. 1316.156 
9010 DfiTfi 182,35,182,35,35,35,18 

2.23.16. 246 . 234 .0. 32.39.221.1519 
,669 

9020 DRTfl 78,12,221,70,13,3,3,19 
7,3,3,3,3,197,205,5,1016,30 
9030 DRTR 31,221,110.20,221,102, 
21, 125, 180,40,7,229, 1 ,240,216, 

64 , -190 

9040 DRTR 9,43,15,46,10,195,85,0 
, 46,23, 195 ,85,0,46,15, 320 , -70 
9050 DRTR 195,85,0,225,205,110,2 
5,8,221, 126,12,221,182, 13,40, 166 
8,92 

9060 DRTR 50,8,40,235,43,193,205 
,85,22,35,35.221, 126 ,21,119, 1438 
,-158 

9070 DRTR 221,126,20,35,119,35,1 
93,113,35,112,35,54, 234 ,19,62,14 
13,425 

9080 DRTR 13,18,35,235,221,110,4 
,221,102,5,221,78,12,221,70,1566 
, -210 

9090 DflTfl 13,213,237,176,193,201 
, 1 , 5 , 0 , 9 , 193 , 193 , 229 , 24 , 245 , 1932 
, 290 


00003 

00004 

00005 


00009 

00010 
00011 
00012 

00013 

00014 

00015 
013016 
00017 
00013 


00021 

00022 

00025 

80024 

00025 

00026 
00027 
00026 

00029 

00030 


1031 


,******************************* 
,* Krzysztof Pozniak * 
;* * 

;* ' program przesyła kod ' * 
;* ' maszynowy do insrukcji ' * 
,* • jeżyka Basic: REM ' * 
;* * 

; * @1988 * 

; ******************************* 

■ program jest reiokowamy 
, i całkowicie zabezpieczony 
. przed biednymi danymi przesy- 
. łanyrm z poziomu Basic a przy 
; pomocy funkcji użytkownika FN 

; adresy procedur ROM-u 

linead equ I96eh 

ma ker o egu I655h 

testro egu if®Sh 

error egu 55h 

; adres zmiennej systemowej 

defadd egu 5c©bh 

, wartości siaie programu 

nrmax egu 9999 

i ł l i cz egu 3 

skok egu 4 

ENTER egu 13 

REM egu 234 

komunB egu 10 

komuno egu 15 

komuny egu 25 


00035 

00036 

00037 

00038 

00039 


00042 

00043 

00044 


00050 

00051 

00052 

00053 

00054 

00055 

00056 
0005? 
00053 
00059 


i PROGRAM 

start id ix, (defadd) 

; kontrola poprawności danych 
Id b.illiCZ 
push ix 

POP hl 
inc hl 
inc hl 


or (hl) 
add hl , de 
djnz pętla 
cp 0 

jr nz,blad_g 
id c, (ix+12) 
i X+13 ) 


inc bc 


inc 


bC 


00054 

00065 

00066 
00067 


00073 

00074 

00075 

00076 
0007? 
00075 
0007 • 


push bc 
inc bc 
inc bc 
inc bc 
inc bc 
push bc 
cali testro 
Id l, (iX+20) 

Id h, (ix+21) 

Ld a, l 
Or h 

jr z,bladJ5 
PUSh hl 

id bc,-nrmax-l 
add, hl , bc 
jr nc, dalej 
, obsługa biedow 
biad„B id l, komunB 


060 biad_y id 


00086 

00087 

00086 


00091 

00092 

00093 

00094 

00095 

00096 
0009? 
00096 

00099 

00100 
00101 
00102 

00103 

00104 

00105 

00106 
0010? 
00103 

00109 

00110 
00111 
0011 ,=: 

00113 

00114 

00115 

00116 
00117 
00115 

00119 

00120 
00121 
00122 

00123 

00124 

00125 

00126 
00127 
00123 

00129 

00130 


jr 

ex 


error 
l , komuny 
error 
l , K.omunG 


a, (ix+U2J 
tix+iai 
z, adres 


z, blad^G 
dane poprawne 
czesc wykonawcza 
dec hl 
POP bC 

cali ma ker o 
inc 


hl .. 

a. ( ix+21) 

(hl ) , a 
a, ( i>.+20! 


Id (hl ) , REM 


inc hl 
ex de.hl 
Id L,iiX+4.i 
Id h, (iX+5) 

Id c, (ix+12) 

Id b, (ix+13) 
push de 
Idir 

: pop bc 
ret 

Id bc,5 
add hl,bC 
pop bc 
pop bc 
push hl 
jr koniec 
end 


K. POŹNIAK 
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W cyklu artykułów pod tym tytułem autor 
pragnie podzielić się z czytelnikami „IKS-a" 
swoimi doświadczeniami w stosowaniu róż- 
nych edytorów tekstu dla komputera Com- 
modore 64. Omówiony zostanie sposób ich 
działania (instrukcje), możliwości, wady i za- 
lety. 

Autor „wypróbował" wszystkie omówione 
edytory, dysponując następującym wypo- 
sażeniem: drukarką OKIDATA 120 (120 
znaków/s w trybie draft i 20 w trybie NLQ), 
stacją dysków FSD-1 „EXCELERATOR” +", 
kompatybilną ze stacją 1541 i oczywiście 
mikrokomputerem C-64. 

G E O W R I T E 

Edytor tekstu Geowrite stanowi część 
programu GEOS (Graphic Environment 
Operating Systepi), który został opracowany 
w 1985 r. przez firmę Berkeley Sóftworks z 
Kalifornii. Poniższy opis dotyczy edytora 
zawartego w programie GEOS, wersja 1 .2. 

1 Uruchamianie edytora 

Uruchamianie programu Geowrite odby- 
wa się w sposób taki jak każdego innego 
zawartego w Geosie', to znaczy można do- 
konać tego przez: 

a) jednokrotne naciśnięcie przycisku Fire 
joysticka po ustawieniu wskaźnika (strzałki) 
na ikonie Geowrite i otwarcie pliku przez wy- 
branie „OPEN" z menu „FILE". 

b) dwukrotne, szybkie naciśnięcie przycisku 
Fire na ikonie Geowrite. Po załadowaniu 
Geowrite należy dokonać wyboru jedne) z 
trzech możliwości: CREATE — rozpoczęcie 
nowego dokumentu, OPEN — otwarcie do- 
kumentu istniejącego, QUIT — zakończenie 
pracy edytora. Należy zaznaczyć, że 
wszystkie rozkazy i funkcje edytora wybie- 
rane są za pomocą strzałki kierowanej joy- 
stickiem i naciśnięciu przycisku FIRE. 

Po wybraniu CREATE należy podać na- 
zwę dokumentu. Po wybraniu OPEN pro- 
gram wyświetla nazwy plików (dokumen- 
tów) znajdujących się na dyskietce, z któ- 
rych jeden może zostać wprowadzony do 
pamięci komputera. Można również otwo- 
rzyć istniejący dokument w taki sam spo- 
sób, w jaki został załadowany Geowrite 
(dwie możliwości). Przy takim postępowaniu 
Geowrite zostanie załadowany automaty- 
cznie. 

2. Zawartość ekranu (okna) Geowrite 

Po uruchomieniu edytora i wybraniu 
CREATE ekran Geowrite wygląda tak jak na 
rys. 1 , przy założeniu, że nowo tworzony do- 
kument został zatytułowany „Test". 


C0MM0D0RE C-64 
— edytor tekstu 
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Rozwinięcie poszczególnych funkcji za- 


wartych w menu wygląda następująco: 


GEOS 

FILE 

EDIT 

GEOWRITE INFO 

CLOSE 

CUT 

CALCU LATOR 

UPDATE 

COPY 

PREFERENCE MGR 

PREN/IEW 

PASTĘ 

NOTĘ PAD 

RECON/ER 


PHOTO MANAGER 

RENAME 


TEXT MANAGER 

PRINT 


ALARM CLOK 

QUIT 


OPTIONS 

FONT 

STYLE 

PREVIOUS PAGE 

BSW 

PLAIN TEXT 

NEXT PAGE 

EWANS 

BOLD 

GOTO PAGE 

HEARST 

ITALIC 

HIDE PICTURES 

CÓRY 

OUTLINE 

PAGE BREAK 

ROMA 

UNDERLINE 

LAST PAGE 

ORMAND 



DWINELLE 



3. Pisanie tekstu 

Miejsce, w którym tekst jest pisany wska- 
zuje kursor. Za pomocą wskaźnika kursor 
można ustawić w dowolnym miejscu (na- 
ciśnięcie przycisku FIRE). Poszczególne 
znaki mogą być usuwane za pomocą kla- 
wisza DEL lub SPACE. Piszący widzi tylko 
ok. 2/3 szerokości okna, stąd aby uniknąć 
męczącego oczy przechodzenia z prawej 
strony na lewą stronę ekranu i odwrotnie 
należy prawy margines przesunąć w lewo 
tak aby szerokość tekstu nie była większa 
niż 5 cali (patrz: formatowanie tekstu). Pod 
czas pisania Geowrite przenosi oczywiście 
cały wyraz do następnego wiersza, jeżeli on 
nie mieści się w wierszu poprzednim. Naciś- 
nięcie RETURN powoduje utworzenie aka 
pitu. Tablicowanie odbywa się za pomocą 
klawiszy CTRLi-l. Pozostawienie częśc 
strony pustej (nie zapisanej) i przejście do 
następnej strony dokonuje się przez wybra 



flys. 1. Ekran GEOWRITE 


nie PAGE BREAK z menu OPTIONS. Prze- 
glądanie zawartości strony — wybranie 
PREVIEW z menu FILE. 

5. Poruszanie się po tekście (ekranie) 

Poruszanie się po ekranie (dokumencie) 
w prawo — lewo odbywa się przez: 

— ustawienie kursora za pomocą wska- 
źnika w dowolnym miejscu dokumentu, 

— zaczepienie wskaźnika (naciśnięcie 
FIRE) na okienku reprezentującym ekran w 
SCROLL BOX. 

Poruszanie się po ekranie w górę — w 
dół: 

— przesuwanie o jeden wiersz — naci- 
skanie FIRE na strzałkach przesuwu tekstu 
(okna), 

— zaczepienie wskaźnika na okienku 
reprezentującym ekran w SCROLL BOX 

Przejście do przodu lub cofnięcie się o 
jedną stronę: 

— wybranie NEXT PAGE lub PREVIOUS 
PAGE z menu OPTIONS. 

Przejście do dowolnej strony: 

— wybranie GOTO PAGE z menu 
OPTIONS, podanie numeru strony i naciś- 
nięcie RETURN. 

6 Edycja tekstu 

Wyróżnić tutaj można następujące funk- 
cje: 

— wprowadzenie tekstu do tekstu istnie- 
jącego (napisanego wcześniej) — ustawie- 
nie kursora w żądanym miejscu w tekście 
istniejącym. Tekst wpisywany będzie powo- 
dował „rozsuwanie" tekstu istniejącego. Je- 
żeli istniejący tekst (dokument) jest wielo- 
stronicowy, to również nastąpią przesunięcia j 
w kolejnych stronach, 
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Próba pisma: font BSW, 9 pkt: plain. bold.. Axti;. BCOOllaia. undttline 

Prób) pisma: font. ROMA , 9 pkt: plain, bold, itj/żę SmttfltlffiS undrrlint 

Próba pisma font ROMA, 12 pkt: plain, bold., jnaJjt-, OtBSflflffiSa undarlina 

Próba pisma font ROMA, 18 pkt: plain, bold, jtaJ/c, 
underline 

Próba pisma font ROMA, 24 pkt: plain, bold, 
/fa/rc , (SMittUlIimtĘ underline 

Pr.ba »l«m« ront Unłu.r.lty l »kt> plain. »«U. it\ OdODDOO. una.riin. 

Próba pisma font Un1vers1ty 10 pkt: plain, bold, f tafie, aatiDfllPB underline 

Próba pisma font Un1versity 12 pkt: plain, bold, ftofk, aDMttHilODlS g underline 

Próba pisma font University 14 pkt : plain, bold, rta/żc, ©Mftllflira#, underline 

Próba pisma f ont University 18 pkt: plain, bold, /tak, outHn®, 

i inderline 

Próba pisma font University 24 pkt: plain, bold, 
fta/Ł, OUtllne, underline 
fproba pisma font iBtoinciie 1$ pkt : plain, bolb, 
unOerlint 

Próba pisma fort Cortj 12 pkt: plain, Kmkd, fiO&iJMEz fHPflORBrsri. nrtlerlirB 

Próba pisma font Córy 2 c ł pkt : plain, bold, 
/tatic. mwifflSnira, nridErtiOE 

Próba pisma font California 10 pkt. plain, bold, italic, 0MlMto»» underline 
Próba pisma font California 12 pkt: plain, bold, ł/att, fflOAftODro®* underline 
Próba pisma font California 14 pkt: plain, bold, /tafie, mflttOOm® e jjodedm 
Próba pisma font California 18 pkt: plain, bold, /Ya& ł, ©MttOflffDC&o 
underline 


— określenie (wybieranie) tekstu prze- 
znaczonego do przeniesienia, kopiowania 
lub usunięcia — żądany tekst należy naj- 
pierw „podświetlić przesuwając wskaźnik 
przy wciśniętym przycisku FIRE. Przesuwa- 
nie poziome powoduje podświetlanie liter i 
słów. Przesuwanie pionowe podświetla ko- 
lejne wiersze. 

Po podświetleniu tekstu (fragmentu) moż- 
liwe są następujące operacje: 

— zastąpienie go innym tekstem wpro- 
wadzonym z klawiatury, 

— usunięcie — naciśnięcie DEL, 

— zmiana rodzaju lub stylu tekstu ( FONT 
i STYLE), 

— CUT — wycięcie fragmentu z jedno- 
czesnym umieszczeniem go w TEXT 
SCRAP (wycinek tekstu), 

— COPY — skopiowanie fragmentu do 
TEXT SCRAP bez usunięcia z miejsca pod- 
świetlonego, 

— PASTĘ — przeniesienie zawartości 
TEXT SCRAP do tego miejsca w tekście, 
gdzie aktualnie znajduje się kursor. 

7 Ustawienie marginesów 

Możliwe jest dowolne ustawienie margi- 
nesów przez zaczepienie wskaźnika na 
symbolu marginesu (M) i przesunięcie w 
dowolne miejsce. 

8 Używanie różnych rodzajów I stylów 
pisma 

Do ustalania i zmiany rodzaju i stylu pis- 
ma służą funkcje FONT i STYLE. Dokonać 
tego można w dowolnej chwili, a zmian w 
tekście już istniejącym dokonuje się po 
uprzednim jego podświetleniu. 

9. Inne możliwości Qeowrite 

— tablicowanie tekstu — Geowrite umoż- 
liwia zakładanie tablicy o ośmiu pozycjach. 
Dokonuje się tego po ustawieniu wskaźnika 
tablicy w żądanym miejscu w taki sam spo- 
sób, jak ustawia się margines, 

— usuwanie pustego miejsca na stronie 
(miejsca powstałego po użyciu funkcji 
PAGE BRAKE) — ustawienie kursora w 
górnym lewym rogu strony następnej, na- 
ciśnięcie DEL i wybranie OK po ukazaniu 
się pytania, czy chcemy usunąć ostatni 
znak na poprzedniej stronie. 

10 Uwagi końcowe 

Maksymalna długość jednego tekstu (do- 
kumentu) pisana za pomocą Geowrite wy- 


10 INK 0,0: INK 1,26:M0DE 

Os st=4: 1 oop= 1 4 

20 FOR n=0 TO 640 STEP st 

30 c=c+0.5:IF c=15.5 THEN c= 1 

40 PLOT 1000, 1000,c:z=2*n-320 

50 MOVE z ,200: DRAW n, 150: DRAW 

n, 40 

60 MOVE z, O: DRAW n,40 

70 MOVE z, 400: DRAW n, 350: DRAW 

n, 240 

80 MOVE Z, 200: DRAW n,240 
90 NEXT 

}00 INK 1,7:1 NK 15, O: FOR n-2 TO 
15: INK n, 15: INK n-l,0:F0R t=0 TO 
1 oop : NEXT : NEXT : GOTO lOO 


Rya. 2. Niektóre rodzaje i style plama 


nosi 64 strony. Przy pisaniu długich tekstów 
korzystne jest posługiwanie się pismem 
normalnym (BSW) o wysokości 9 punktów i 
częste używanie funkcji PAGE BREAK. 

Jeżeli podczas pracy w Geowrite oba- 
wiamy się przerwy w zasilaniu należy 
używać funkcji UPDATE w celu zapisania 
napisanych już fragmentów tekstu. Po 
zakończeniu pisania strony następuje jej 
automatyczne zapisanie na dyskietce. 

W tekście pisanym za pomocą oma- 
wianego edytora można umieszczać rysunki 
wykonane za pomocą programu GEO- 
PAINT zawartego również w GEOSIE. 

Drukowanie dokumentu odbywa się przez 
wybranie PRINT z menu FILE. Po zakoń- 
czeniu dokumentu należy go zamknąć wy- 
bierając CLOSE z menu FILE. 


10 DEFINT a-z: MODĘ 1:INPUT 
"Dlugosc boku" ; x : CLS 
20 DIM c (20) :y~0 
30 PLOT 320,200 
40 DRAWR x , y: k=l 
50 IF c ( k ) =0 THEN 70 
60 c(k)=l:k=k+l: GOTO 50 
70 c (k) =1 : k=k+l 
80 IF c ( k ) =0 THEN lOO 
90 z =x : x =y : y=— z : GOTO 40 
100 z=x : x=-y : y=z : GOTO 40 


Cezary SOBCZAK 


GEOWRITE. 


11 Ocena edytora 
Wady: 

— brak numeracji stron, 

— brak możliwości ustawienia odstępu 
między wierszami (liczby wierszy na stro- 
nie), 

— konieczność posługiwania się joystic- 
kiem lub myszką, 

— brak polskich liter. 

Zalety: 

— szybkie wybieranie poszczególnych . 
funkcji i rozkazów, 

— bardzo bogaty zestaw rodzśjjSw i sty- 
lów pisma (rys. 2), 

— możliwość łączenia tekstu z rysunka- 
mi wykonanymi za pomocą GEOPAINT, 
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— Czy mogę wypożyczyć Józia do ustawie- 
nia oprogramowania naszego komputera? 


CPC • CPC • CPC • CPC • CPC • CPC • CPC • CPC 

Ten program pozwala na uzyskanie cieką- Jest to ciekawy program graficzny imitujący 
wego efektu animacji grafiki trójwymiarowej. ruch walki. Parametrem jest długość boku 

kwadratu (w punktach) będącego podsta- 
wowym elementem rysowanego obrazu. 


14 


1 


COMMODORE 

Zmiana nazwy 
dyskietki 



Program pozwala na dowolną zmianę nazwy 
dyskietki. Wykonywanie tej czynności jest czasem 
koftięczne i pomaga utrzymać ład w naszej „dy- 
skotece". 

10 PRINT '311 ZMIANA NAZWY DYSKIETKI' 

20 PRINT 'fil NR STACJI DYSKÓW NR <8-1.5) 7 

30 INPUTU: IF U<8 OR U>15 THEN PRINT ' □ 
ZLT : GOTO 20 

40 PRINT ' fil DYSK DRIVE NR (0/1) ? 011*1' ; 

50 INPUT D: IF D<0 OR D>1 THEN PRINT ' ZD 
□' : GOTO 40 

60 PRINT ' Słał UMIEŚĆ DYSKIETKĘ W STACJI N 
R7iU;' DRIVE';D 

70 PRINT ' I NACISNIJ DOWOLY KLAWISZ' 

80 GET XS: IF XS = ' ' THEN 80 

90 A»l: v=16: Q9=CHR9<34) : PS*CHR9<160) 

100 T*18: s*0: IS= ' I ' + RIGHT® (STR9 <D) , 1 ) 

110 OPEN 1,U, 15, ie: GOSUB 350 

120 GOSUB 310: FS=HS: GET#2, X9, X9, AS, BS 

130 PRINT '3HISi AKTUALNA NAZWA ';QS;FS;QS 

140 PRINT ' SYMBOL DYSKIETKI: ';AS;BS 

150 PRINT' a NOWA NAZWA (MAX 16 ZNAKÓW) L 
UB 'STOP' -UTRZYMANIE STAREJ NAZ 

WY' 


160 INPUT ' 7STOPIMHUU' ; NS : L = LEN(NS>: 
IF L>V THEN 130 

*70 IF NS= ' STOP ' THEN PRINT ' : GOTO 
370 

180 PRINT 'a WPISANIE NOWEJ NAZWY (T/N) 

190 INPUT XS: IF XS< > ' T ' THEN 130 
200 IF L* V THEN 220 

210 FOR X = L + A TO V: N»=NS+P$: NEXT 
220 PRINTN1, 'B-P: ' ;2; 144: PRINT#2,NS; 

230 PRINTN1, 'U2: ' ;2;D;T;S: GOSUB 350 
240 PRINT#1,IS: GOSUB 350: CLOSE 2 
250 PRINT 'a STARA NAZWA ';Q9;FS;0S 
260 GOSUB 310: CLOSE 2i CLOSE 1 
270 PRINT 'a NOWA NAZWA ';QS;HS;QS 
280 PRINT 'a NASTĘPNA DYSKIETKA (T/N) 7 

290 INPUT XS: IF X$='T' THEN 60 
300 PRINT END 

310 OPEN 2,U,2,'#': GOSUB 350: HS»" 

320 PRINTN1, 'Ul: ' ;2;D;T;S: GOSUB 350 
330 PRINT#1, 'B-P: ' ;2;144: FOR X*A TO V 
340 GET#2,TS: H9*HS+TS: NEXT: RETURN 
350 INPUT#1,E,MS,J,K:IF E=0 THEN RETURN 
360 PRINT 'a BLAD: ';E;MS;J;K 
370 CLOSE 2: CLOSE 1: END 
READY. 

Opr. Tadeusz CISEK 


Można inaczej 


, ;Po zapoznaniu się z artykułem p. Janusza Morbitzera 

' „Generowanie liczb pierwszych — sito Eratostenesa" w 
zeszycie 1 /1 988 „IKS"-a nasunęło mi się kilka uwag, o 
których chciałbym poinformować Redakcję i czytelni- 
ków. 

J fi We wspomnianym artykule liczba 2 11219 — 1 została 
podana jako największa znana liczba pierwsza. Tym- 
czasem jest ona zaledwie dwudziestą trzecią kolejną 
łłpZbą pierwszą Mersenne'a, a w roku 1 985 odkryta zo- 
stała już trzydziesta kolejna liczba pierwsza Mersenne'a, 
mianowicie liczba 2 216091 — 1. Aktualne informacje o 
dużych, liczbach pierwszych podawał niedawno „Kom- 
puter",' publikując list do redakcji profesora dr. hab. 


Poznań, dnia 17 marca 1988 r. 


Władysława Narkiewicza (zeszyt 1 /88) oraz mój list do 
redakcji (zeszyt 9/87). 

Program podany przez p. Janusza Morbitzera ma 
dwie wady, mianowicie działa stosunkowo wolno oraz 
oblicza Ijczby pierwsze nie większe od 7000. Napisałem 
krótki program w Basicu przeznaczony dla Commodo- 
re 64, który wykorzystuje przyspieszoną wersję sita Era- 
tostenesa. Po uruchomieniu programu za pomocą 
RUNI należy wprowadzić dowolną liczbę naturalną N 
nie przekraczającą 58127. Po naciśnięciu klawisza 
RETURN komputer podaje na ekranie wszystkie kolej- 
ne liczby pierwsze do N, a czasem i dalsze. 

Przypuszczam, że załączony program zainteresuje 
młodych czytelników „IKS"-a. 

Z poważaniem 

Andrzej WIĘCKOWSKI 


0 FOR J= JTONSTEPP+P ■ fd < J > =N • NEXT : RETURN 

1 I NPUTN : PR I NT2 ; PR I NT3 N=N/3 ; D I MfOi < N ) : FOR I = . TON : I FfCi < I > 00T03 

2 P= I #3+5- < I AND 1 >. : PR I NIP : Ja I : GOSUB : J=P+P- 1-3=1 F JONTHENG03UB 

3 NEXT 

REflDY. 
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W kolejnych częściach artykułu chcemy przedstawić czytelnikom 
podstawowe funkcje sekwencera, zaproponować organizację pro- 
gramu i współpracę komputera z urządzeniami muzycznymi. Jest to 
bardzo rozległy problem i dlatego całość podzieliliśmy na odrębne 
części tematyczne. Ponieważ tylko pewna część zainteresowanych 
posiada ZX Spectrum (a na tym komputerze został napisany pre- 
zentowany sekwencer) postaramy się dokładnie opisać program, 
aby łatwo go było zaimplementować na inne komputery. 


EDYTOR TAKTU 

I. Informacje podstawowe: 

a) Krok w takcie jest najmniejszą możliwą do 
wykonania jednostką rytmiczną. W zależności 
od stosowanego metrum i wartości rytmi- 
cznych uzyskujemy następujące ilości kroków 
w takcie: 

dźwięki podwyższone 


cis dis 


fis gis dis 


nim 


dźwięki podstawowe 

rys. 1 

b) Edytor dopuszcza takt składający się ma- 
ksymalnie z 256 kroków i praktycznie nie- 
ograniczonej ilości ścieżek. Taka organizacja 
zapisu ukazuje pole edytora jako tablicę. W 
jego każdej komórce możemy zapisać infor- 
macje o wysokości jednego dźwięku. 

c) Formy zapisu wysokości dźwięku: 

1) zapis literowy — obejmuje dźwięki od 
C2 (C subkontry) do g7 (g siedmiokreślne- 
go). Jest to zakres z nadmiarem, w praktyce 
wykorzystujemy dźwięki od A2 do c5 (klawia- 
tura fortepianu). Ponieważ w pamięci kompu- 
tera wysokość dźwięku jest zapisywana jako 
liczba, stąd nie możemy stosować różnych 
nazw dla tego samego dźwięku. Wykorzystu- 
jemy następującą skalę: 



Jeżeli w danym materiale nutowym występują 
dźwięki obniżone, to musimy zmienić je en- 
harmonicznie na dźwięki podwyższone: 

des = cis 
es = dis 
ges = fis 
as = gis 
b = dis 

uwaga: ze względów graficznych dźwięki 
podwyższone są zapisywane jako dźwięki 
podstawowe z kreską nad literą. 

2) zapis graficzny — jest używany do ste- 
rowania urządzeniami perkusyjnymi. Znak [ ] 
oznacza, że w danym kroku nastąpi wyzwole- 
nie instrumentu 

3) zapis cyfrowy — pozwala na wprowa- 
dzenie liczb z zakresu <(H-127>. Ta forma 


zapisu jest wygodna do pewnych specyfi- 
cznych zastosowań, a jej wykorzystanie opi- 
szemy w kolejnych częściach artykułu 
uwaga: zapis literowy i cyfrowy dopuszczają 
dźwięki przedłużone (zapisywane jako — I 
oraz pauzy (oznaezane **) 
d) struktura pola ekranowego edytora taktu: 
1) po polu ekranowym poruszamy się kur- 
sorem za pomocą klawiszy: 
klawisz <5> — lewo 
klawisz <6> — dół 
klawisz <7> — góra 
klawisz <8> — prawo 


nia (klawisz <i>) lub pauzy (klawisz <0>) 
c) tryb cyfrowy — pozwala na wprowadzenie 
liczby z zakresu <0-H27>. Ponieważ w polu 
pojedynczego dźwięku mieszczą się jedynie 
dwa znaki, stąd liczby od 100 wzwyż są wy- 
świetlane w postaci dwóch ostatnich cyfr z 
kreską nad pierwszą cyfrą. Zakończenie wpi- 
sywania liczby uzyskujemy naciskając klawisz 
<SPACE>. 


uwaga: w trybie literowym i cyfrowym pauzę 
uzyskujemy klawiszem <SPACE>, a prze- 
dłużenie dźwięku klawiszem <k> 
uwaga: każda poniżej opisywana funkcja 
wymaga podania odpowiednich parametrów 
w postaci liczb. Po wprowadzeniu liczb należy 
wcisnąć klawisz <SPACE>. Ukaże się wtedy 
napis (t/n); wciśnięcie klawisza <t> wpro- 
wadzi daną informację do pamięci 

klawisz <c> — umożliwia czyszczenie 
< wymazanie zawartości) podanej ścieżki 
parametry: 1) numer ścieżki 

klawisz <s> — skasowanie ścieżki o po- 


NUTY Z KOMPUTERA 


( 2 ) 


Krzysztof POŹNIAK, Michał ROLLINGER, Jarosław ZIEMBICKI 


2) ponieważ ilość kroków taktu może 
przekroczyć pojemność ekranu (maksymalna 
liczba wyświetlanych kroków wynosi 10), stąd 
takt dzieli się na strony. Stronicowanie poz- 
wala nam (w zależności od długości taktu) na 
jego logiczny podział. Takt przegląda się stro- 
nami za pomocą klawiszy: 

klawisz <4> — cofnięcie się o stronę 
klawisz <9> — przejście na następną 
stronę 

3) informacje dodatkowe: 

— najwyższa linia ekranowa podaje nazwę 
taktu i jego stan ilościowy: 

is = aktualna ilość ścieżek w takcie 
ik = aktualna ilość kroków w takcie 
s = numer wyświetlanej strony 

— najniższa linia opisuje ścieżkę, na której 
znajduje się kursor 

e) ścieżkę opisują następujące parametry: 

1 ) nazwa instrumentu — ścieżka jest przy- 
pisana do jednego z obsługiwanych przez 
sekwencer instrumentów 

2) nazwa źródła — ścieżka może obsługi- 
wać tylko jedno źródło dźwięku w przypo- 
rządkowanym jej instrumencie 

3) tryb zapisu — w zależności od rodzaju 
urządzenia muzycznego posługujemy się za- 
pisem literowym, graficznym lub cyfrowym 
II. Funkcje edytora: 

uwaga: każdą funkcję edytora możemy 
przerwać naciskając klawisz <P> 
klawisz <z> — umożliwia zapis dźwięku w 
miejscu położenia kursora, wg zadeklarowa- 
nego trybu: 

a) tryb literowy — obejmuje dźwięki od C2 
do g7. Najpierw wprowadza się literę (dużą 
lub małą), jeśli ma to być dźwięk podwyższo- 
ny, to kolejnym krokiem jest wciśnięcie klawi- 
sza <i> (od przyrostka „is”); zapis kończymy 
wprowadzeniem cyfry 

b) tryb graficzny — dopuszcza zapis uderze- 


danym numerze. Ilość ścieżek zmniejsza się o 
jedną 

parametry: 1) numer ścieżki 
klawisz <d> — dołączenie (wsunięcie) 
nowej ścieżki na pozycję o podanym numerze. 
Wszystkie ścieżki, począwszy od podanego 
numeru przesuną się o jedną pozycję w dół. 
Ich ilość wzrośnie o jedną, 
uwaga: jeśli podany numer jest o jeden więk- 
szy od ilości ścieżek, to nowa ścieżka zostanie 
dopisana na końcu 
parametry: 1) numer ścieżki 

2) numer instrumentu (wg tabeli) 

3) numer źródła wybranego instr. 
(wg tabeli) 

1 trvh zapisu 

•t 


************* j j 
INSTRUMENT **. 


************** j 

ZRODLO: * 


l-tantow * 
S-wtrbtl * 
3-POU 1 * 

4.-POU 2 • 

5-HQCi~0l * 

JUUUB 

_* * 
.. d ###**#**♦***#*** 

. . Cl Cl . . . . 


rys. 3 

na rys. 3 przedstawiamy stan ekranu podczas 
wprowadzania czwartego parametru — trybu 
zapisu (wybraliśmy tryb graficzny — cyfra 2) 
pq uprzednim wyborze instrumentu: TR 505 i 
źródła: hi-hat (nazwy w trybie inwersyjnym) 
klawisz <w> — wymiana dwóch ścieżek 
miejscami. Funkcja ma charakter wyłącznie 
porządkowy 

parametry: 1 numer pierwszej ścieżki (mniej- 
szy) 


2) numer drugiej ścieżki (większy) 
klawisz <p> — powielanie treści jednej 
ścieżki na drugą. Warunkiem koniecznym 
wykonania funkcji jest zgodność typów zapi- 
sów 

parametry: 1) numer ścieżki-źródła 

2) numer ścieżki-odbiorcy 
klawisz <r> — rozszerzenie taktu na za- 
sadzie „mnożenia” pozwala, po jego napisa- 
niu, na wprowadzenie mniejszych wartości 
rytmicznych niż początkowo zamierzaliśmy. 
Funkcja dopisuje pauzy i zmienia długości 
dźwięków. Przykładowe rozszerzenie taktu 
razy 2 przedstawiliśmy na rysunkach: nr 4 — 
stan wyjściowy i nr 5 — po wykonaniu funkcji 
parametry: 1) mnożnik taktu 
klawisz <R> — pozwala na wstawienie 
zadanej ilości dodatkowych kroków w okreś- 
lone miejsce taktu 

uwaga: jeżeli numer kroku, od którego bę- 
dziemy dołączać nowe kroki będzie o jeden 
większy od ich aktualnej liczby, to nowe kroki 
dołączą się na końcu taktu 
parametry: 1) numer kroku, od którego nastą- 
pi wstawienie 

2) ilość dołączanych kroków 
klawisz <k> — kompresja taktu na zasa- 
dzie „dzielenia” — działa odwrotnie do funk- 
cji <r> 

parametry: 1) podzielnik taktu 
klawisz <K> — kasowanie grupy kroków 
— działa odwrotnie do funkcji <R> 
parametry: 1) numer kroku, od którego nastą- 
pi kasowanie 

2) ilość kasowanych kroków 
klawisz <i> — określa ile kroków zawie- 
ra jedna strona taktu (w ZX Spectrum ma- 
ksymalna liczba kroków na stronie wynosi 10) 
parametry: 1) ilość kroków na jednej stronie 
klawisz <t> lub <T> — transpozycja 
ścieżki (w górę — klawisz <t>, dół — klawisz 
<T>) o zadany interwał (ilość półtonów) 

taki*, ..IMLMgjlJ— ik»4 s=l 


parametry: 1) numer transponowanej ścieżki 
2) ilość półtonów 

uwaga: transpozycja pozwala na zmianę to- 
nacji bez żmudnego poprawiania wszystkich 
dźwięków 

uwaga: jeżeli podczas transpozycji dźwięk 
przekroczy zakres C2-rg7, to na jego miejsce 
zostanie wprowadzona pauza 
Przykładową zmianę tonacji o cztery półtony 
w górę przedstawiliśmy na rysunkach: nr 4 — 
stan wyjściowy i nr 7 — po wykonaniu trans- 
pozycji 

klawisz <}> — rozszerzenie jednostki 
rytmicznej — funkcja podobna do <r>, jed- 
nak z tą różnicą, że zachowuje długości 
dźwięków 

parametry: 1) mnożnik jednostki rytmicznej 
Działanie tej funkcji jest uwidocznione na ry- 
sunkach: nr 4 — stan początkowy i nr 6 — sy- 
tuacja po przypisaniu wyjściowej jednostce 
rytmicznej dwóch kroków 
uwaga: jeśli wywołujemy funkcje za pomocą 
dużych liter: <C>, <S>, <D>, <W>, 
<P>, to pierwszy parametr jest określony 
przez aktualną pozycję kursora 
Na rysunku numer 8 został przedstawiony 
fragment utworu muzycznego w zapisie sek- 
wencerowym i nutowym. Warto zwrócić 
uwagę na to, że „takt sekwencerowy” nie musi 
się pokrywać z taktem muzycznym. 


3) i$ — posiada nazwy dostępnych instru- 
mentów muzycznych i informacje o niezale- 
żnych źródłach wchodzących w skład instru- 
mentów 

4) s$ — przechowuje nazwy źródeł wszyst- 
kich instrumentów 

b) najważniejsze zmienne proste: 

ii — ilość dostępnych instrumentów 
(w programie przykładowo przy- 
jęliśmy: ii = 3) 

cike — całkowita ilość kroków na 

ekranie (dla ZX Spectrum 
cike = 10) 

cise — całkowita ilość ścieżek na ekranie 
(dla ZX Spectrum cise = 8) 
is — aktualna ilość ścieżek 

ik — aktualna ilość kroków 

pns — najmniejszy (początkowy) nr 

ścieżki wyświetlany na ekranie 
kns — największy (końcowy) nr ścieżki 
wyświetlany na ekranie 
pnk — najmniejszy (początkowy) nr 

kroku wyświetlany na ekranie 
kns — największy (końcowy) nr kroku 
wyświetlany na ekranie 
mik — maksymalna ilość kroków (usta- 
lana funkcją <i>) 
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rys. 4 
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rys. 5 
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rys. 6 
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III. Zmienne programu: 

a) dane edytora taktu są zapisywane w zmien- 
nych tekstowych (wg schematów z rysunku 
numer 9) 

1) e$ — przechowuje dźwięki taktu (kolejno 
ścieżka po ścieżce) 

2) n$ — zawiera nazwę taktu i informacje o 
każdej ścieżce 


eik — ilość kroków aktualnie wyświet- 
lanych na ekranie 

eis — ilość ścieżek aktualnie wyświet- 
lanych na ekranie 

str — numer aktualnie wyświetlanej 
strony 

kx, ky — współrzędne kursora 


^12 


y~ik 1 1 ... . 


$ 


t .,4pttżhq k-*» , g 


3 


n$: | 1 | 2 | 1 10 

11 1 12 1 13 1 14 1 15 1 16 

% 

\ 1 

1 

nr instrumentu f f \ typ zapisu 

nr żrddta / 



■w informacjo o instrumertci* 12 zn— 

♦ nazwa instrumentu 10 znakdw m(or mocja o drugim instrum*cie — » , 

4-\ 1 I 2 | 3 I 

12 1 13 1 14 | 


^03 


r pierwszego źrddTo instrumentu w zmiennej t{ 


1 llodd żrddeT Instrumentu 
nazwa ź red Ta - 6 znaków nazwa źrddTa 


s$-\ 1 


12 13 


Ponieważ rozbudowa programu spowoduje 
pewne zmiany w prezentowanym listingu za- 
chęcamy czytelników, którzy będą wprowa- 
dzać program do dokładnego jego odwzoro- 
wania. 

1 REM 

**************** t ** łtłłt##łł##ł# 
EDYTOR TRKTU 

********************** ********** 


rys. 9 


11 


(X> *CODE n$ ( 10+3* (p 
•x* tx <y) +y * (x > 


a DEF FN 
n»+x-i) ) 

3 DEF FN M <y ,X) 


DEF FN t (q) mil 
10 INK 7: PRPER 0: CLS : BORDE 


*************** 



|olbi hatgener Igener2gener3gener 

30 LET n|=CHR» 1+CHR4 1+CHR« 0 

31 LET ni«"KP MR JZ "+n* 


50 LET t|-"c0cld0dle0f0flg0gle 
0a lh02 1001234567" 

60 REM 

**************** «’****••**«***•• 

99 QO TO 

100 REM *“ 

102 CL5 




— — . . — m •• 

; INUERSE l;n*( TO 10); INUERSE 
0; TRB 17; is;TRB 28;"ika";i 

k;TRB SB; "s»”;»tr;TRB 0; 

103 LET pnkwtstr-l) *Mi k +1 : PRIN 
T •’ LET k n k «pn K +* i k -1 : FOR 

lapnk TO Kn K ; PRINT " "i INVCR5E 
1; ”0" RND ( (. < 10) ; L ; INUERSE 0;: 
NEXT t 

104- LET d*aik-eik: LET fl«Sb>0: 
LET a»FN a (1, 1) 

110 LET knsapns+eis-l: FOR Wal 
TO diS: LET f OdZ =FN rty): PRINT 

OT Cl' TMII«D«* 1 ■ n A" OMA I t 


130 : LET * aa + 


rłtdrNEKTy, 
a «TN # U y, k x j 


RND q<128 THEN LĆ5T M»INT (4/18) 

: LET n»q-12*l»: LET «4»<" " «ND 
ti(S*n*S) ■ ,, 0 M ) ♦("_■ " And t$42*n+2 
) s" 1" ) ; LET X*=CHE* (CODĘ t t|(2*n 
+ 1) -32*i»<3) ) *t4i2B+M) : GOTO 14- 


«INT Cą 

/100) : LET m »q - 100 *n ; LET y4»(" 

" RND NOT ri) +(••_'• RND n): LET x$ 
= ("0" RND *1 < 10) +STR4 »: LET y$a( 
y> RND q<»127)+(" " RND q>127): 
LET X (a (x C RND q<«127) ♦(" . . " RND 
4=128) ♦ (••->" RND qol29): GO TO 
140 

137 LET y$-" " : LET X*-{".." RN 
D q< >1) +C" CI " RND q*l) 

140 PRINT RT 2*y , 3*x ; y *; RT 2*y + 

1 ii 0* 

151 LET by* ni”” -T " Tlt n =5*3* 


'inatr: _ 

T 9 is*»kł-i); ińOEr§e"ic, 

is o łi o iii.a ,ueR8e 

i 83 . b§T X-KX : LET 


170 REM 

172 LET s t r -FfTTTłTrTl 
K) +1) : LET pnkawi K* (str-1) +1 
174^ LET e i K aFN M ( i k -» i K * (s t r -1) 

'176 LET kX»FN M (kX,ełk> 

178 00 TO 100 
9000 REM 

******* ****yyy | iyyHyL«* *********** 
9010 CLS a ^" almaamm 
9020 LET PHS=1: LET tx*l: LET fcy 
«1 LET »it*FN M(ik,CiKe>: LET 6 
LET tiłsFN a (i S, Cisę): L 


ET Stf«l; 

9024 REM „ 

9025 GO SUI 

9026 LET X 4=INKEY4 : 

N 00 TO 9028 

9030 IF X $ a "5 " THEN GO 5UB 180 
GO SUB 9100: GO TO 9025 

9031 IF xfa"4" THEN GO SUB 160 
60 SUB 9105: GO TO 9025 

9032 IF X 4 = "8" THEN GO SUB 160 
GO SUB 9110: GO TO 9025 

9033 IF x 4 * " 9 " THEN GO SUB 160 
GO SUB 9115: GO TO 9025 

9034 IF X 4 a " 7 “ THEN GO SUB 160 
GO SUB 9120: GO TO 9025 

9036 IF x4a"6“ THEN GO SUB 160 
GO 3UB 9130: GO TO 9025 

9040 IF X 4 B " Z " THEN GO SUB 9300: 
GO TO 9025 

9041 IF x4="C" THEN LET 4-0: GO 
SUB 9140: GO TO 9025 

9042 IF X*e'C" THEN LET q»by : GO 
SUB 9140: GO TO 9025 


9043 IF x*="s" THEN LET q*0: 

SUB 9145: GO TO 9025 

9044 IF x*-"5" THEN LET qaby: 
SUB 9145: GO TO 9025 

9045 IF X*a"d" THEN LET q«0: 

SUB 9150: GO TO 9025 

9046 IF X 4 = "D" THEN LET q»by : 
SUB 9150: GO TO 9025 

9047 IF X*="W" THEN LET qa0: 

SUB 9155: GO TO 9025 

9048 IF X4="U" THEN LET q*by : 
SUB 9156: GO TO 9025 

9049 IF X $ a " p '' THEN LET q-0: 

SUB 9160. GO TO 9025 

9050 IF X*»"P" THEN LET q-by : 
SUB 9161: GO TO 9025 

9051 IF X $ = " f " THEN LET q=0: 

SUB 9165 : GO TO 9025 

9052 IF X4="R" THEN LET 
SUB 9170; GO TO 9025 

9053 IF X 4 a " K " THEN LET 
SUB 9175: GO TO 9025 

9054 IF X*a"K" THEN LET q=0: 

SUB 9200: GO TO 9025 

9055 IF x*a"i" THEN LET 
SUB 9205: GO TO 9025 

9056 IF X 4 a “ t " THEN LET • 

SUB 9210: GO TO 9025 

9057 IF X 4*"T" THEN LET 1 
SUB 9215: GO TO 9025 

9058 IF X 4 = " J" THEN LET q»0: GC 
SUB 2220: GO TO 9025 • 

9060 GO T O 9025 . . 

9099 rem i^mńWPpwiifcntiB*^ 

9100 IF k X > 1 THEN LET KX»KX-1; 

O TO 153 


9102 IF PD* >1 THEN LET Kxa»ik . 
O TO 9107 

9103 BEEP .1,20: GO TO 153 
9105 IF pnk»l THEN BEEP .1,20: 
O TO 150 


9107^LET Str.Str-1: LET CiKaHiK: 
GO TO 100 

9110 IF KX<«iK THEN LET HX-tX*l: 
GO TO 153 

9112 IF tnKit THEN LET kx«l: GO 
TO 9117 

9114 BEEP .1,20: GO TO 153 

9115 IF Hnk>aik THEN BEEP .1,20: 
GO TO 150 

9117 LET *tr«»tr+l: LET «ik»FN m 
(*ik,ik-knk) : LET kX«FN M i K X , e i K 

)•; GO TO 100 

9120 IF ky > 1 THEN LET ky»fcy-l: G 
O SUB 160: RETURN 
"122 IF pns>* *•— 

GO TO 100 
9123 BEEP .1,20: GO TO 150 
9130 IF ky<«i* THEN LET ky-ky+1: 
00 TO 150 

9132 IF kn» <i* THEN LET pna-pm* 
1: 00 TO 100 

9133 BEEP .1,20: GO TO 150 

9140 LET md ai*: LET Z • «" C *USZ CZ* 
nie ścieżki nr:": GO SUB 9190: I 
F q»0 THEN GO SUB 9198: RBTURN 

9145 VET MdaiS: LET Z 4«"»fca»0»iari 
*• * C łezki nr:": GO SUB 9190' IF 
q-0 THEN GO SUB 9198: RETURN 

« 147 LET ky*ky - (is <«cise)t (ty >1) 

9148 LET k«FN o (q) ; LET C4ae«( T 
O k *łR TO ): LET k-FN t< 
ą l' f-SI 0* mn * ( T0 k -1) +n 4 ik +3 TO 

) : LET isais-l: LET e i S «PN «n ( i s 

# • i * ) : GO SUB 100: IF it<CUt TH 
TRB P 31 N " " T 2#is+a '®' T0B 31; " 

9149 bÓ TO 9198 

9150 LET *d*i*+l: LET Z4a"dOl4CZ 

• SCiCZ. nr:": GO SUB 9190 ZF 4 

«0 THEN GO TO 9198 S 

9151 LET ans «q- GO SUB 918®: LET 
»d*ix: LET q*0: LET Z4«"pod*JY) 

r instumentu : " : GO SUB 9190: IF 

3 a0 THEN GO TO 100 
152 LET *ni»q: PRINT RT 3łq,2; 
INUERSE li_q; i 4 ( 12* <q-l)' +A TO 
12*q) : LET aai »1 + 12* (q-l) ;i rL.ET 
ais-CODE i « (aa i TO aai): LET asp 
aCODE i 4 (aai +1 TO aai*l): OO SUS 
9165: LET md>aiS: LET q»0: LET 
z f*"POdaj nr zrodla:": GO SUB 91 
90: IF q =0 THEN GO TO 100 

9153 PRINT RT 3*q,20; INUERSE 1; 


; q; s 4 (6* (asp+q-2) *1 TO 6*(as 
P +q-l) ) : LET ansi-q: LET »d«3: L 
ET q a0 ; LET z*»"l-liter 2-graf 3 
-cyfr"; GO SUB 9190. IF q=0 THEN 
GO TO 100 

9154 LET kaPN O(ans): LET Z4«"": 
FOR n » 1 TO ik: LET Z4»Z*+CHR4 1 
28: NEXT n : LET e4-C4( TO t-l)*Z 
4+e 4 ( k TO ): LET k aFN t(«ns): LE 
T nian*( TO k -i) +CHR4 ani+CHRf ( 
asp+ansi -1) +CHR4 (g-l) *n.4 f (k TO ) 

: LET eis*eis+(it<Cise) : LFf i*» 
iS+1: GO TO 100 


THEN GO SUB 9198: RETURN 
9156 LET ansa ' — - 
■0: LET Z fa- 
zę SC. ' “ 


B 9198: RETURN 

S»q: LET ftdais: LET q 
"wym sc. "fSTRfoans*" 
GO SUB 9190: IF qa© O 


q <ans THEN GO TO 9198 

.157 LET kaFN O (ans): LET Z*aef( 
k TO k+ik-1): LET naFN O (q), : LET 


eiaef ( TO k-l)*ei(n TO n+ik-l) + 
e*Tk*ik TO ) ■- LET e 4»e 4 ( TO. n-1) 
+z4+e4(n*ik TO ) ^ , 

9158 LET k«FN t(ens): LET *i?n«( 
k TO k+2) : LET naFN t (q) : LET nj 
«n 4 ( TO k-i)+n4(n TO n+a) *n|(k+3 
TO ): LET n4»n$( TO n -!)♦»•♦«•( 


1+3 TO ) : GO TO 100 


oTffN. SUB 9198: RETURN ^ 

9161 LET ansa^: LET mdais: LET q, 
“0: LET Z4a"P0Wie l . SC. ” +STR4 4 
ns+' na sc.:"; GO SUB 9190: IF q 
THEN GO SUB 100: GO SUB 9198: 


INT RT 19,0; FLR5H 1, "NIEZGODNOS 
C TYPOU ZRPI5U - En ter": PRUSE %/ 
: PRUSE 0: GO TO 9198 
9163 LET kaFN O (ans): LET naFN O 
(q) : LET e«>e«( TO n-l)+e4U TO 
k*x k-1) +e4 (n + i k TO ) : GO TO 100 
9165 LET »d-INT (256/ik): LET Z$ 


laLEN e 9 *4 : FOR )»1 TO i STEP q: 
LET e$ae«( TO k)+z4+e«(k+l TO ) 
x NEXT k; LET ikaikłR: GO TO 170 

9170 LET Md ai k *1 : LET Z*a"rozsze 
rżenie na kroku:": GO SUB 9190: 
IF qa© THEN GO SUB 9198: RETURN 

9171 LET kaq ; LET q-0: LET md-12 
8-ik: LET Z4«"il.e krokow:": GO 8 
UB 9190: IF qa0 THEN GO SUB 9198 
: RETURN 

9178 LET Z FOR Mai TO 4: LE 
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128: NEXT l* : LET Ir 
........... . OR *»H-1 TO l STEP i 

l+q: LET «8-«8( TO IO +Z 8+e 8 < *• +1 
TO ): NEXT fc: LET lk-ik+q: GO TO 
170 

“175 

_ t«ktu razy. 

q-0 THEN GO SUB 9198: RETURN 
9176 LET k«INT Cik/R): IF ik/q<> 
k THEN PRINT AT 19,0, FLASH 1," 
PODZIAŁ NIEPRRUIDLOUY - En tar " 
: PAUSE 1: PAUSE 0: GO TO 9198 
9178 LET i k =k : FOR k»l TO ik#is: 

• — k) +%*(q + k TO ) : N 


9179 reh rmpnrn 


9180 LET 1X1.0; LET k «0 
183; GO SUB 9184: GO SUB 9184: P 
RINT AT 2,3; "INSTRUMENT ' : GO SUB 
9184: FOR k«4 TO i i +3: PRINT AT 
k ,0; fc-3; i 8 (12* (1-4) +3 

TO 12* (k-3) ) , TAB 15; •■*■•: NEXT k: 
GO SUB 9184. GO SUB 9183 

9182 RETURN 

9183 PRINT AT k , »X ;"*****.** ***** 

****": LET k »k *1 : RETURN . 

9184 PRINT AT k , ax i" *" i TAB ax+15 
;••*■• : LET k ak +1 : RETURN 

9185 LET ax»16: LET 1-0: GO SUB 

9183: GO SUB 9184: GO SUB 9184: 
PRINT AT 2,20; "ZRODLO:" : GO SUB 
9184: FOR k a4 TO »‘* +3 i AT 

k , 16; " * " ; k-3; - ; * * (Sj (4sp + k 

-5) +1 TO 6*(1»P+Ł-4)J i TAB 31i 
: NEXT k: GO SUB 9184. GO SUB 91 


S?88 RET URI 

9189 REM f* 

9190 GO " 

Snu 


St^f^^^^WlNT AT 19,0; 

Snuerse 1 ; Z 9 ; : PRINT : IF 

q<>0 THEN PRINT ;q;: LET x«»" 

GO TO 0195 

9191 LET q«0 

9192 LET X*«INKEY*: IF X»a»“ THE 

N GO TO 9192 

9193 IF X 8 ■ "P " THEN LET q-0: RET 
URN 

9194 IF NOT (X 8 > ■" 1" AND X8<-"9 ", 
OR x 8 a " " AND q<>0 OR X8- 0" AN 

9192 >0) THEN °° SUB 9326 : 00 T0 
9196 IF X*-" " THEN PRINT J” "i 
FLASH l;"U/nl": PAUSE 1: PAUSE 
0:: LET X 8*INKEY8 '• LET q-q*(X8» 
rh BEEP .1,30: RETURN 
9196 LET q«q*10+UAL XI: IF q 
THEN LET q«0: GO SUB 9326: GO TO 

9197®PRINT INUERSE 1;X8;: GO TO 

?1?? "! 


9200 IF ikal THEN RETURN 

9201 LET wd-ik: LET z 8-"*a60wan x 
C Od kroku:": GO SUB 9190: IF q- 
0 THEN GO TO 9198 

9202 LET k«q: LET md»ik-q+l: LET 

q-0 LET krokow kasoaac 

: GO SUB 9190 IF q*0 THEN GO 


Komputery przenośne zyskują w święcie 
coraz większą popularność. Wprawdzie ich 
moc obliczeniowa zazwyczaj jest mniejsza od 
mocy komputerów stacjonarnych, ale za to 
można z nich korzystać na przykład w czasie 
podróży. W produkcji takich komputerów 
prym wiedzie japońska firma Toshiba, która 
swymi ostatnimi produktami udowadnia, że 
komputer przenośny wcale nie musi być gor- 
szy od stacjonarnego. 

Weźmy Toshibę T 1000. Jego wymiary 
32X5X28 cm są niezwykłe nawet w klasie 
mikrokomputerów przenośnych. Pamięć 
RAM ma pojemność 512 KB, a wewnątrz 
obudowy można umieścić dodatkowe 
768 KB pamięci. W komputerze zastosowany 
został monochromatyczny ekran ciekłokrysta- 
liczny o rozdzielczości 640 na 200 punktów. 
Odpowiadano 25 liniom tekstu po 80 znaków. 
W 82-klawiszowej klawiaturze 10 klawiszy 
wydzielonych zostało jako funkcyjne i do 
sterowania kursorem. Standardowe wyposa- 
żenie, to łącze szeregowe RS-232C, łącze 
równoległe i gniazdo RGB dla dodatkowego 
monitora kolorowego. T 1000 może być zasi- 
lany z baterii Ni-Cd pozwalających na 4-go- 
dzinną pracę bez ładowania. Nowsza wersja 
tego komputera, T 1200 uzupełniona została o 
dysk twardy o pojemności 20 MB. 

Taki sam dysk wraz z kontrolerem RLL 
wprowadziła Toshiba do modelu T 3100/20. 
Wewnątrz tego komputera umieszczono pro- 
cesor 80 286, 640 KB pamięci RAM (z moż- 


SUB 9198: RETURN 

9203 LET t-K-1: LET n«(iK-q)*iS: 
FOR l»«l TO n STEP ik-q: LET S$> 
<«( TO « ) +« 8 <q+*> + 1 TO ): NEXT » : 
LET i K ■! K -q : GO TO 170 


GO SUB 9190: IF q=0 THE 
TO 9198 

9212 LET l-FN O U): FOR W -l TO i 

1*1-1: LET n ■CODĘ e8(*>'- I** n>12 
7 THEN GO TO 9214 , _ 

9213 LET n-n*q: IF n > 127 OR n<0 
THEN LET n«128 

9214 LET s| («) -CHR8 
O TO 100 


NEXT M : G 


b6 T sS8 

9190: IF q-0 THEN GO SUB 9198: 
RETURN 

9222 LET x8-“”: LET Z FOR X. 

‘ ' - — •■X8+CHR0 


=1 TO q - 1 : LET 
ET Z 8=Z * * 


. . . _. HR0 129: L 

ET Z8»Z8*CHR| 12Ś: NEXT K: LET l 
=LEN a$*q: FOR H-l TO l STEP q: 
LET e8»e8( TO fc)+(Z8 AND t$U)sC 
HR8 128) + (X $ ANO 40U)<>CHR8 123 
) +e $ ( K + 1 TO ): NEXT k: LET ik«ik 

*A: GO TO 170 
9300 REM (SI3BBD9I 
9310 PRINT AT 19,0; INUERSE 1} “Z 
apis 'Utarowy" AND NOT rodź;" 
graficzny" AND rodz-l; " l i czbowy" 
AND rodź >2 

9320 LET 
LET y 8 1 

9326 

9321 GO SUB 9330* (10*rodZ) 

9322 LET e$(FN a ( ky , kx ) ) -CHRf 
LET powr« (X8*"P"> • GO SUB 160: 

IF powr THEN RETURN 

9323 GO SUB 9110: IF ky-1 THEN G 

0 SUB 160 

9324 GO TO 9320 

9326 PRINT AT ky*2,3*Xx;" " AND 
NOT Cis;"_" AND C i S ; AT *y*2+l,3* 
kx ; FLASH l;yf: RETURN 
9326 BEEP .1,20: BEEP .1,30: RET 

9330 GO SUB 9365: IF X8*"P" THEN 

RFTI IRN 

9331 IF NOT (X 8«" "ORX0«"k"OR 
X8 = "a" OR x 8*"A" OR X8>» "c" AND 


" AND X 8 <>" I "))♦("«• ” AND (yf-’ 
"))+("->" AND X $ = " fc " ) : GO SUB 9 
325: IF X 8 = " " OR X8 = "H>" THEN LE 
T m =128+ (X k " ) : GO TO 9338 

9333 GO SUB 9365: IF X8-"P" THEN 
RETURN 

9334 LET n»(98(l) <«"H") : IF NOT 

(X*>="0" AND x 8 < ="2" OR NOT n AN 
D X 8 > -"3" AND X 8 < ="7" OR x$<="i” 
AND (98(1) OCHR* (CODĘ "e"-n*32) 

) AND (98(1) OCHR* (CODĘ "h"-n*3 
2))) THEN GO SUB 9326: GO TO 933 
3 

9335 IF X8*"»" THEN LET Cis -NOT 
CiS: GO SUB 9325: GO TO 9333 

9336 FOR W=0 TO 11: IF y*(l)<>CH 
P8 (CODĘ t $ (2*» +1) -n *32) THEN NE 
XT ffi : STOP 

9337 LET m *m + C i S +12* 02-UAL X§>* 

n + (3+UAL X 8) *NOT n) : IF »>=128 T 
HEN GO SUB 9326: LET »*128 

9338 RETURN * , 

9340 GO SUB 9365: iF X8-"P" THEN 
Return 

9341 IF X 8 < > " 1" .-AND Xf<>"©" THEN 
GO SUB 9326: GO TO 9340 

9342 LET »«(X8®"1">: RETURN 

6UB 9365: IF X8« , 'P" THEN 




1 IF (X8<"0" OR X $ > "O" ) AND X 
••p" AND x8< >"K" AND x|<>" n T 
GO SUB 9326: GO TO 9350 


9351 IF 

8<> v p" A.._ .. 

HEN GO SUB 9326: GO TO 9350 

9352 IF X0«" " OR X8«"k" OA xf»" 
0" THEN LET M»12B*(X0«" H )+129*( 
Xf«"k”) : RETURN 

9353 LET y0»" "+X8: GO SUB 9325 

9354 GO SUB 9365: IF X8« ,, P" THEN 

RETURN 

9355 IF (X 8 < "0" OR X0>"9") AND X 

S O"p" AND X 8 O " " THEN GO 5UB 9 
26: GO TO 9354 

9356 IF XI." " THEN LET lł»UAL 9 8 

(a) : RETURN _ 

9357 LET 98-98(2)4X8: GO SUB 932 
5: IF UAL y8*i0->127 THEN LET O -U 
AL U 8 : RETURN 

9358 GO SUB 9365: IF X8-“P" THEN 


9363 LET Ci»-1: LET y|-y8<2 TO 
) +X 8 : LET m -UAL y8 + 10O*Ci»: IF 
<128 THEN RETURN 


i, itfo i ntn i .. . 

9364 IF P >127 THEN LET II -CODĘ « 8 

(a): LET y«-" " : LET c i s -0 . GO 

SUB Q32B: GO TO 9350 .... 

9365 REM ^ _ w _ 

9366 LET x8-INKEY$: IFX8» THE 
N GO TO 9366 

9367 RETURN 

Krzysztof POŹNIAK 
Michał ROLLINGER 
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liwością rozszerzenia jej do 2,6 MB), stację 
dysków elastycznych 3,5 cala o pojemności 
720 KB i wspomniany już dysk twardy. Poza 
tym można tu umieścić modem o prędkóści 
przesyłania 1200 bodów. Ekran ciekłokrysta- 
liczny o rozdzielczości 640 na 400 punktów, 
pozwala na uzyskanie monochromatycznej 
grafiki średniej rozdzielczości. Fachowcy 
twierdzą, że właśnie ten komputer, jak żaden 
inny, łączy w sobie szybkość i względnie dużą 
moc przetwarzania z wygodą, łatwością po- 
sługiwania się i przenoszenia. 

Nowszy T 5100 jest komputerem kompa- 
tybilnym z rodziną IBM PC/XT/AT. Wypo- 
sażony jest w procesor 80386 z przełączanym 
zegarem 8/16 MHz, 2 MB pamięć RAM (z 
możliwością rozszerzenia do 4 MB), gniazdo 
do zamontowania koprocesora matematy- 
cznego 80387, stację dysków 3,5 cala i 
1,44 MB oraz twardy dysk 40 MB. Model 
dodatkowo wyposażony jest w wyjście szere- 
gowe i równoległe, gniazdo do podłączenia 
zewnętrznego monitora kolorowego oraz ze- 
wnętrznej stacji dysków 5,25 cala. Dzięki te- 
mu wyposażeniu T 5100 kosztuje jedynie nie- 
co ponad... 6 tys. dolarów amerykańskich. 

PC, to skrót oznaczający komputer prze- 
nośny — portablc Computer. PC może też 
oznaczać komputer kieszonkowy — pocket 


Computer. I w wypadku jednego z najnow- 
szych wytworów firmy Sharp — oznacza. Ta- 
kim bowiem komputerem jest PC- 1600. Po- 
siada on pamięć RAM wielkości 16 KB z moż- 
liwością rozszerzenia za pomocą specjalnych 
modułów do 80 KB. Zawartość pamięci pod- 
trzymywana jest bateriami przez 5 lat, jeśli 
moduł znajduje się w komputerze, a przez 2 
lata — gdy poza nim. PC- 1600 posiada rów- 
nież 96 KB pamięć ROM, która poza syste- 
mem operacyjnym zawiera dialekt języka Ba- 
sic. Standardowy interfejs, RS-232 umożliwia 
bezpośrednie połączenie z innymi typami 
mikrokomputerów. Dodatkowy optyczny in- 
terfejs przeznaczony jest do szybkiej komuni- 
kacji optycznej. Zastosowany w komputerze 
wyświetlacz ciekłokrystaliczny może praco- 
wać w systemie alfanumerycznym (4 wiersze 
po 26 znaków) lub graficznym (156X32 punk- 
ty). Zasilanie — z baterii umożliwiających 25- 
-godzinną pracę bez przerwy. 

Do tego komputera firma Sharp produkuje 
sprzęt peryferyjny. Są to czterokolorowy 
printer (ploter drukujący na papierze formatu 
A-4, stacja 2,5-calowych dysków elastycznych 
o pojemności 64 KB i interfejs do podłączenia 
standardowego magnetofonu kasetowego. 

Jerzy RAJCH 

19 


JAK WYKORZYSTAĆ 
DODATKOWA 

PAMIĘĆ ATARI 


Od dłuższego czasu wśród użytkowników komputerów Atari 
krąży program RAMdysk (przedstawiany również na łamach 
„IKS-a”). Symuluje on pracę bardzo szybkiej pamięci zewnętrz- 
nej, wykorzystującej dodatkową pamięć RAM. Poniższy pro- 
gram, który zaczerpnięty został z miesięcznika „COMPUTE!”, 
przeznaczony jest dla Atarii 130XE oraz innych komputerów serii 
XE i XL mających pamięć rozszerzoną do 128KB. Oczywiście pro- 
gram będzie pracował poprawnie również na komputerach mają- 
cych jedynie (a może aż) 64KB, ale nie będzie pozwalał na całko- 
wite wykorzystanie jego możliwości. 


Dlaczego, aby wykorzystać całe 128K8 
komputera (np. w Atari 130XE) należy użyć 
specjalnego programu — na przykład takie- 
go, jak ten? Dzieje się tak ze względu na 
strukturę wewnętrzną komputera. Maszyny 
Atarii serii XE oraz XL są urządzeniami ma- 
jącymi procesory ośmiobitowe z szesnasto- 
bitową szyną danych. Mogą więc adreso- 
wać jednocześnie 64KB (adresy od 0 do 
65535). Dlatego, aby wykorzystać dodatko- 
wy bank pamięci, należy napisać program 
(w języku maszynowym, gdyż tylko on za- 
pewnia odpowiednią szybkość) przełącza- 
jący owe banki. W podobny sposób działa 
właśnie poniższy program. 

Teraz parę słów o inicjacji programu. Jest 
on napisany w języku AtariBasic. Urucha- 
miamy go rozkazem RUN — komputer ładu- 
je procedurę maszynową; umieszcza ją na 
szóstej stronie pamięci (adresy od 1536 do 
1780). Po zgłoszeniu się interpretera Ba- 
sic^ komunikatem READY, możemy przy- 
stąpić do właściwego wykorzystania pro- 
gramu, W wypadku pojawienia się komuni- 
katu o błędzie, należy program wydrukować 
oraz wyszukać i poprawić błędne linie (lub 
częściej dane w liniach DATA). Mam na- 
dzieję, że sumy kontrolne w znacznym stop- 
niu zmniejszą prawdopodobieństwo poja- 
wienia się błędu w wydruku. 

Program możemy wykorzystać do umie- 
szczenia kilkunastu, a nawet kilkudziesięciu 
np. pamięci ekranów (tj. obszarów pamięci, 
w których komputer przechowuje dane do- 
tyczące obrazu) w dodatkowych 64 kilobaj- 
tach pamięci Dokładniej, mając do dy- 
spozycji komputer Atarii 130XE oraz po- 
niższy program, możemy zgromadzić 
(jednocześnie) osiem obrazów w trybie 
graficznym 8 lub np. sześćdziesiąt osiem 
obrazów w trybie tekstowym 0. Szybkość 
przesyłania danych z dodatkowej pamię- 
ci wynosi 9000 bajtów w ciągu sekundy 

Wiedząc, iż jeden ekran w trybie 0 zajmuje 
992 bajty, dokonujemy zdumiewającego 
odkrycia — będzie on transmitowany ok. 0,1 | 


sekundy. Wydaje mi się, że jest to zadowala- 
jący wynik. 

Program realizuje cztery następujące 
funkcje: 

a) odczytuje zawartość dowolnej komórki 
pamięci dodatkowej (ang. PEEK), 

b) zapisuje dowolną komórkę pamięci 
dodatkowej wartości od 0 do 255 (ang. PO- 
KE), 

c) przepisuje dowolny obszar pamięci do 
obszaru rozszerzenia, 

d) transmituje w kierunku odwrotnym niż 
określony w podpunkcie c. 

Poszczególne funkcje wywołujemy za 
pomocą instrukcji USR. Dla tych czytelni- 
ków, którzy jeszcze nie wiedzą do czego 
służy ta komenda, przypominam, iż przeka- 
zuje ona sterowanie do procedury maszy- 
nowej umieszczonej pod określonym adre- 
sem. 

Czas na szczegółowe omówienie wszyst- 
kich możliwości programu. 

ad. a) Aby odczytać wartości którejkol- 
wiek komórki pamięci dodatkowej należy 
wpisać w trybie bezpośrednim bądź wyko- 
rzystać we własnym programie następujące 
linie; 

X = USR (AUXBYTE, ad) 
gdzie zmienna 'ad', mogąca przyjmować 
wartość w zakresie od 0 do 65535, określa 
adres komórki, której zawartość zamierza- 
liśmy zbadać. Po wykonaniu tej sekwencji 
otrzymamy liczbę od 0 do 255, określającą 
stan komórki pamięci. 

ad. b) Wpisanie pewnej wartości liczbo- 
wej do komórki dodatkowego banku pamię- 
ci również nie nastręcza naszemu progra- 
mowi żadnych trudności, linia: 

X = USR (AUXBYTE, ad, wart) 
zapewnia wprowadzenie do komórki o adre- 
sie określonym zmienną 'ad' wartości, którą 
zawiera zmienna 'wart'. UWAGA! Zmienna 
numeryczna 'ad' musi należeć tak jak i w 
poprzednim wypadku do przedziału 
0—65535, a zmienna 'wart' od 0—255. 
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— Przydałby się naszemu panu komputer... 


ad. c) Znacznie bardziej skomplikowana 
jest operacja przesłania bloku danych. Wy- 
gląda ona następująco: 

X = USR (AUXDUMP, źródło, cel, dług). 

A oto znaczenie poszczególnych zmien- 
nych; 

'źródło' — określa początek bloku w pamięci 
podstawowej, przygotowanego do przesła- 
nia; możemy nadać tej zmiennej wartość od 
0 do 6553. 

'cel' — określa adres w dodatkowym bloku 
pamięci, tj. adres, pod którym znajdą się da- 
ne po przesłaniu. Może przyjmować wartoś- 
ci takie, jak poprzednia zmienna. 
dług' — „mówi" komputerowi, jak długi jest 
przesyłany blok. 

ad. d) jest to ostatnie (niestety) udogo- 
dnienie wnoszone przez ten program, umoż- 
liwia ono powrót danych z pamięci 
dodatkowej do podstawowego bloku 64KB. 
Rozkaz, który przeprowadza tę transmisję 
ma postać bardzo podobną do postaci po- 
przedniego rozkazu, jedyna różnica polega 
na użyciu innej stałej programowej — za- 
miast AUXDUMP należy użyć AUXLOAD. 
Unia ta wygląda następująco: 

X = USR (AUXLOAD, źródło, cel, dług). 
Należy także zmienić kolejność występo- 
wania zmiennych 'źródło' i 'cel', w tym wy- 
padku pierwsza oznacza adres bloku w pa- 
mięci dodatkowej, a druga adres pamięci, 
pod którym dane zostaną umieszczone. 

Na koniec pragnę zaprezentować jedeń z 
praktycznych przykładów programu, o któ- 
rym była mowa. Będzie on przesyłał dane 
obrazu w grafice 8 do pamięci dodatkowej i 
z powrotem (tj. do podstawowego bloku 
64KB). 

Przede wszystkim należy określić adres 
początku pamięci obrazu; jest on przecho- 
wywany w komórkach 88 (LSB — młodszy 
bajt) i 89 (MSB — starszy bajt). Znając za- 
wartości tych komórek, możemy w prosty 
sposób odnaleźć poszukiwany początek 
pamięci obrazu. 

pocz = REEK (88) + 256 x PEEK (89) 
Będzie nam jeszcze potrzebna informa- 
cja, jak duży obszar pamięci wykorzystany 
jest w celu zapamiętania obrazu w trybie 


graficznym bądź tekstowym. W wypadku 
trybu numer 8 wynosi on 8138 bajtów. In- 
formacje o pozostałych trybach znajdują się 


poniżej: 




tryb 0 

(tekstowy) 

— 992 

bajty 

tryb 1 

(tekstowy) 

— 672 

bajty 

tryb 2 

(tekstowy) 

— 420 

bajtów 

tryb 3 

(graficzny) 

— 432 

bajty 

tryb 4 

(graficzny) 

— 696 

bajtów 

tryb 5 

(graficzny) 

— 1176 

bajtów 

tryb 6 

(graficzny) 

— 2184 

bajty 

tryb 7 

(graficzny) 

— 4200 

bajtów 

tryb 8, 9,10,11 




(graficzne) 

— 8138 

bajtów 

tryb 12 

(graficzny) 

— 1152 

bajty 

tryb 13 

(graficzny) 

— 660 

bajtów 

tryb 14 

(graficzny) 

— 4296 

bajtów 

tryb 15 

(graficzny) 

— 8138 

bajtów 

Te wiadomości w zupełności ■ 

wystarczą, 


by dokonać transmisji danych obrazu: 

X = USR (AUXDUMP, pocz, 0,8138) 
Liczba 0 określa, pod jakim adresem blo- 
ku rozszerzenia pamięci znajdzie się począ- 
tek przesłanego obszaru danych. Aby dane 
te otrzymać z powrotem wpisujemy nastę- 
pującą linię: 

X = USR (AUXLOAD,0 pocz., 0,81 12) 


Dzięki niej zapamiętany obrazek wraca do 
podstawowego bloku pamięci. 

DB 10 fiUXBYTE* 1 624 
GK 20 RUXDUMP SB 1 655 
YB 30 flUXLQflD“ 1 7 1 8 
IX 40 FOR 1-1536 TO 1780'RERD R'P 
OKE I . R ' X=X+fl ■ NEXT I ' IF X<>353 
14 THEN PRINT CHR*<125Xj "BLflD 
W LINIACH 50-220" 

DR 50 DRTR 160.0,173,1,211,41,195 
. 133,217, 165,216,41,132,74 
VN 60 DRTR 74,74,74,3,32,5,217,14 
1,1,211,165,216,41,63 
VK 70 DRTR 3,64,133,215,165,212,1 
45,214,165,217,9,48, 141,1 
OS 80 DRTR 211,96,160,0,173,1,211 
,41,195,133,217, 165,216,41 
VJ 30 DRTR 132,74,74,74,74,3,32,5 
,217,141,1,211,165,216 
LK 100 DRTR 41,63,3,64,133,215,17 
7,214,133,212,165,217 
HM 110 DRTR 3,49,141,1,211,96,104 
, 133,245, 198, 245, 104, 133, 216 
XK 120 DRTR 104,133,214,165,245,2 
08,6,32,44,6, 132,213,36,104 
UY 130 DRTR 104,133,212,32,0,6,24 
, 144,243, 104, 104, 133,225, 104 
CK 140 DRTR 133,224, 104, 1433,216, 1 
04, 133, 214, 104, 133,227, 104, 133 
,226 

XS 150 DRTR 160,0,132,229,132,228 
',177,224,133,212,32,0,6,230 
FB 160 DRTR 224,208,2,230,225,230 
,214,208,2,230,216,230,228,208 
DU 170 DRTR 2,230,229,165,228,197 
,226, 208, 225, 165, 229, 197, 227, 2 
08 

FY 180 DRTR 219,96,104,104,133,21 
6, 104, 133,214, 104, 133, 225, 104, 
133 

RB . 190 DRTR 224,104, 133,227,104,1 
33,226,160,0,132,229,132,228,3 
2 

LL 200 DRTR 44,6,165,212,145,224, 
230 , 224 , 208 , 2, 230 , 225 , 230 , 2 1 4 
YX 210 DRTR 208,2,230,216,230,228 
,208,2,230,229,165,228,197,226 
RG 220 DRTR 208,225,165,229,197,2 
27,208,219,96 

Mam nadzieję, że program ten stanie się 
użytecznym narzędziem dla wszystkich, któ- 
rzy chcieliby wykorzystać dotychczas nie- 
dostępne i „marnujące się" kilobajty pamię- 
ci w swoich komputerach. 

Na podst. miesięcznika COMPUTE! 
opracował: Piotr JASINIEWSKI 
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Lilavati (6) 


JJ 


PIĘTNASTKA” 


Danuta KWASIZUR, 
Mieczysław SKONIECZNY 

W szóstym odcinku cyklu poświęconego mikrokomputero- 
wej realizacji rozrywek matematycznych, zgromadzonych przez 
Szczepana Jeleńskiego w „Lilavati", chcemy zaprezentować 
znaną grę o nazwie „piętnastka”. Gra ta znana również pod an- 
gielską nazwą „Fifteen puzzle" pochodzi ze Stanów Zjedno- 
czonych, gdzie wynalazł ją pewnien głuchoniemy w roku 1878. 
Szybko zyskała popularność — również w Europie. Jako cieka- 
wostkę można podać, że swego czasu władze rządowe USA 
musiały wydać zakaz posiadania tej gry przy sobie przez urzęd- 
ników w godzinach pracy. 

Zasady gry są bardzo proste. Są one przedstawione na ekranie 
mikrokomputera po zainicjowaniu programu w następującej 
postaci: 

Gięa skl|da 


sip piętnaście ruchoi 
po 4 w każdej kolumn 
tniego szeregu, w kt 

"i* te? a Na kuadrac ika 
od.l do ię. Korzyst 


lejsce 


wiadajace szesnastemu kwadracików. 

Na kwadracikach widnieją numery 
do ię. Korzystając z owego Jednego 
niejscą należy kwadraciki *>rze — 
opoty, dopoki nie zoslana up o 

STEROWANIE KLAWISZAMI: 

NACI SNU DOWOLNY KLAWISZ 

Następnie pojawi się plansza gry z losowym, generowanym 
przez program, rozstawieniem numerów. 

Przykładowe rozstawienie prezentuje poniższy rysunek: 



Przesuwanie kwadracików odbywa się za pośrednictwem kla- 
wiatury funkcyjnej (4 klawisze ze strzałkami). W sytuacji, gdy 
przesunięcie jest niemożliwe, program informuje o 'tym gracza 
komunikatem: 

PRZESUNIECIE JEST NIEMOŻLIWE 
Po każdym przesunięciu program bada, czy gra zakończyła się 
sukcesem. Jeżeli ustawienie ponumerowanych kwadracików 
jest prawidłowe, na ekranie pojawia się komunikat: 

BRAWOI UDAŁO Slf 
i program kończy działanie. 

Wkrótce po rozpowszechnieniu się „Piętnastki" pojawiły się 
liczne jej teorie. Zwłaszcza dwaj znani matematycy, Johnson i 
Story podali sporo ciekawego materiału naukowego dotyczą- 
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cego tej gry. Udowodnili oni, że w zależności od ustawienia po- 
czątkowego można przewidzieć rozwiązalność lub nierozwią- 
zalność zadanego układu. 

Dodamy tylko, że nie zawsze możliwe jest osiągnięcie ykładu 
kwadracików gwarantującego sukces w grze. Niejednokrotnie 
w szeregu najniższym zamiast kolejności 13, 14, 15 otrzymuje się 
ustawienie 13, 15, 14. Nie radzimy wtedy mozolić się cfólej na$J 
przestawieniem kwadracików — najlepiej nacisnąć klawisz 
BREAK i rozpocząć grę od początku. 

10 MODĘ 1: INK 0,26: INK 1,0: INK 2,24: INK 3. 14:B0RDER 0:PAPER IsCLS 
20 PEN 2:PRlNT’Gra składa sie z ra«ki, w której aiesci sie piętnaście 
rucho«ych kwadracików- po 4 w każdej koluanie z wyjatkien os 
ta-tniego szeregu, w ktorya Biejsce odpo- wiadajace szesnasteeu kwadr 
acikowi jest* 

30 PR1NT *puste. Na kwadracikach widnieją nuaery od 1 do 15. Korzysta 
jac z owego jednego wolnego aiejsca należy kwadraciki prze- su 
wac dopoty, dopoki nie zostana upo- rzadkowane w kolejności od 1 do 
15, a ostatni kwadracik bedzie pusty.* 

40 PRINT: PRINT 'STEROWANIE KLAWISZAMI : ' : PRINT: PRINT CHR$(240)j VtCHW 
1241) :*, *|CHR1(242) ;*, *:CHR$(243) 

50 L0CATE 1 , 20: PRINT miSNIJ D0N0LNY KLAWISZ* 

60 IF INKEY»=** THEN GOTO 60 
70 CLS 

00 WINDOM £1,11,30, 6, 25:PAPER £1,2:CLS £1 
90 WINDOM £2,1,40,1,1: PAPER £2,1:CLS £2:PEN £2,0 
95 REN 'rysowanie planszy gry’ 

100 GRAPHICS PEN 0:F0R k=0 TO 3 

110 PLOT 160+k»80,0:DRANR 0,318 

120 PLOT 23B+kt80, 0: DRAWR 0,318 

130 NEXT k 

140 FOR k=0 TO 3 

150 PLOT 1 60, Kt80: DRAWR 318.0 

160 PLOT 160, 78+KI80: DRAWR 318,0 

170 NEXT K 

180 DIN TABLI16) 

190 G0SUB 420 
200 TABL ( 16) =0 
210 PAPER 2:PEN 1 
220 FOR K=1 TO 15 

230 X*13-INT((K-l)/4>t20+(K-l)l5:Y=8+INT((K-ll/4>*5 
240 L0CATE X,Y:PRINT USING *££*|TABL(K) 

250 NEXT K , 

255 REN 'sterowanie przesuwanie! kwadracików’ 

260 1=16 
270 A*=INKEY» 

280 1F A*=” THEN 60T0 270 
290 IF ASC ( A4> =240 THEN 60T0 340 
300 IF ASC < A$ ) =241 THEN 60T0 360 
310 IF ASC ( At) =242 THEN GOTO 380 
320 IF ASC (Ał) =243 THEN GOTO 400 
330 60T0 270 

335 REN 'kontrola poprawności przesunięcia' 

340 IF 1=13 0R 1=14 0R 1=15 0R 1=16 THEN GOTO 500 
350 T ABL ( I ) *TABL ( I +4 ) : T ABL ( I +4 ) =0 ! 60SUB 510;L0CATE X.Y:PRINT USING *££ 
';TABLU):I=I+4:60SUB 510:L0CATE X,Y:PR1NT “ *:GQSU8 520:G0T0 
270 

360 IF 1=1 0R 1=2 0R 1=3 0R 1=4 THEN 60T0 500 

370 TABL ( I ) =TABL ( I -4) : TABL ( 1-4 ) =0: G0SUB 510:L0CATE X,Y:PRINT USING *££ 

■ : T ABL ( I > : 1=1 -4: G0SUB 510: L0CATE X , Y: PRINT " “:60SUB 520-.G0T0 
270 

380 IF 1=4 0R 1=8 0R 1=12 0R 1=16 THEN GOTO 500 

390 TABL 1 1 ) =TABL ( I + 1 ) : TABL ( I +1 ) =0 : 60SUB 510sL0CATE X.Y:PRINT USING “££ 

*^TABL(I):I=I+1:G0SUB 510:LQCATE X,Y:PRINT * *:60SUB 520:G0T0 

400 IF 1=1 0R 1=5 0R 1=9 0R 1=13 THEN GOTO 500 
410 TABL ( I ) *TABL ( I - 1 ) : T ABL 1 1 - 1 ) =0 : G0SUB 510:L0CATE X,Y:PRINT USINfi *££ 
*:TABL(I) ! 1=1-1 :60SUB 510:L0CATE X,Y:PRINT " *:G0SU6 520:GQT0 
270 

415 REN 'generowanie kolejności kwadracików na planszy’ 

420 FOR 1 = 1 TO 15 
430 L0S=1+INT(RNDI15) 

440 FOR J=1 TO 1-1 

450 IF TABL ( J ) =L0S THEN GOTO 430 

460 NETT J 

470 TABL(I)*L0S 

480 NEXT I 

490 RETURN 

500 CLS £2: PRINT £2, "PRZESUNIECIE NIEMOŻLIWE' : FOR T=1 TO 1000:NEXT T:C 
LS £2: GOTO 270 

510 X=13-INT( ( 1-11/4)120+ (1-1)15: Y=B+INTI (1-11/4) 15: RETURN 

520 IF TABL ( 16) >0 THEN RETURN 

530 FOR J=t TO 15 

540 IF NOT TABL(J)=J THEN RETURN 

550 NEXT J 

560 PRINT £2, "BRAWO! UDAŁO SIE!* 

570 FOR a=0 TO 26: B0RDER a: FOR t=l TO 100:NEXT t:NEXT a:END 

UWAGI PROGRAMOWE 

1. Program opracowano w języku BASIC mikrokomputera 
AMSTRADCPC6128. * 

2. Tablica TABL służy do przechowywania aktualnego układu 
kwadratów. 

3. Instrukcje 100—170 realizują rysowanie planszy gry. 

4. Instrukcje 260—410 sterują przesuwaniem kwadracików. 

5. Generowanie początkowego ustawienia pohumerowanych 
kwadratów realizuje podprogram 420—490. 

6. Instrukcje 520—570 badają czy gra zakończyła się sukcesem. 
Jeśli tak, to generują stosowny komunikat i kończą pracę pro- 
gramu. 













Oprogramowanie 
układów transputerowych 


Początkowo programowanie komputerów polegało na zapisaniu 
sekwencji rozkazów opisującej algorytm rozwiązania danego pro- 
blemu w postaci numerycznych kodów maszynowych, zrozumia- 
łych bezpośrednio przez procesor. Ta metoda programowania, 
pracochłonna i nieefektywna była obarczona szczególną podat- 
nością na błędy. Mała czytelność stosowanego zapisu programu 
powodowała znaczne trudności w czasie procesów uruchomie- 
niowych. Wkrótce udoskonalono metodologię programowania 
przez wprowadzenie języków niskiego poziomu (asemblery) oraz 
problemowo (języki wysokiego poziomu) — FORTRAN, ALGOL, 
COBOL. 

Języki wysokiego poziomu stały się bardzo wygodnym narzę- 
dziem dla programisty, gdyż nie wymagały znajomości organizacji 
używanego sprzętu. Jednakże w programach, w których czas wy- 
konywania był elementem krytycznym, w szczególności dotyczy to 
oprogramowania systemowego, języki wysokiego poziomu nie były 
przydatne, ze względu na swą nadmiarowość. Do najbardziej roz- 
powszechnionych obecnie języków zaliczyć należy BASIC, PAS- 
CAL. ADA, LISP, PROLOG i LOGO, ale wskutek zmiany charakte- 
ru programowania, zbliżania go do modelowania systemowego 
istnieje dziś duże zainteresowanie językami typu FORTH, PL/M, C i 
MODULA. Języki te mając konstrukcję języka wysokiego poziomu, 
wzbogacone są o zestaw instrumentów, które nadają im pewne 
własności „asemblerowe". 

Transputer a OCCAM 

W pierwszych zastosowaniach, język maszynowy transputera 
wykorzystywał nieznaczną ilość instrukcji, których funkcyjna natura 
określała działanie. Instrukcje te były jednobajtowe. podzielone na 
cztery „bity funkcji" oraz cztery „bity danych". W ten sposób pod- 
stawowy zbiór instrukcji liczył 13 funkcji (‘Load Constant, *Add 
Constant, *Load Local, ‘Storę Local, ‘Load Local Pointer, ‘Jurnp, 
‘Storę Non Local, ‘Conditional Jump, ‘Cali, ‘Load Non Local, *Pre- 
fix, *Negative Prefix i ‘Operate). Dziesięć pierwszych funkcji, to 
operacje obliczeniowe, Pozostałe trzy są szczególnie ciekawe, 
gdyż zezwalają na budowę słów 32-bitowych złożonych z d-bito- 
wych danych (*Pref'x, *Negative Prefix) oraz powodują interpreto- 
wanie słowa 8-bitowego jako kodu funkcji (‘Operate). Tym pro- 
stym sposobem INMOS formalnie zapewniła sobie znaczne moż- 
liwości rozbudowywania listy rozkazów. Konwencjonalne języki 
programowania nie są zbyt przydatne do konstruowania progra- 
mów przeznaczonych dla współbieżnej pracy układów wielopro- 
cesorowych. 

Równolegle z pracami badawczo-projektowymi nad transpute- 
rami rozpoczęto tworzenie odpowiednich języków programowa- 
nia. OCCAM — specjalizowany język wysokiego poziomu pow- 
stawał pod kątem przyszłych zastosowań w środowisku transpute- 
rowym, stąd też jest on wewnętrznie dostosowany do architektury i 
możliwości tych układów. OCCAM tworzy szkielet koncepcyjno- 
-konstrukcyjny projektowanego współbieżnego systemu w analo- 
giczny sposób, jak algebra Bool'a czyni to w stosunku do syste- 
mów elektronicznych złożonych z bramek logicznych. OCCAM 
wyróżnia głęboka spójność z modelem współbieżnie pracujących 
wielu procesów, komunikujących się za pomocą dwuprzewodo- 
wych łączy lub ich odpowiedników programowych — kanałów 
Dwojakie rozumienie kanału przez język sprowadza się w efekcie 
do nierozróżniania ich fizycznej implementacji. Z punktu widzenia 
programisty nie ma znaczenia lokahzacja pamięci i miejsce wyko- 
nywania poszczególnych procesów. Wzajemna komunikacja mię- 
dzy procesami odbywa się automatycznie i nie ma potrzeby sto- 
sowania specjalnych procedur zapewniających kontrolę jej po- 
prawności oraz właściwą synchronizację wewnętrzną. Dla transpu- 
tera T-800 powstała nowa, znacznie wzbogacona wersja 
OCCAM-2, oparta na 16-, 32- i 64-b*towych danych. Zastosowa- 
ne w niej mechanizmy sprzętowe zapewniają wykonywanie ope- 
racji zmiennoprzecinkowych z podobną szybkością, jak analogi- 


cznych operacji na liczbach całkowitych. Zasadniczą zmianę 
wprowadza to, że kanały mogą przesyłać dane zdefiniowane stru 
kturalnie zamiast 16-bitowych wartości. Oznacza to, że łańcuchy, 
macierze oraz skomplikowane rekordy Pascala i struktury języka C 
mogą tworzyć wyjście pojedynczych operacji. Opracowano spe- 
cjalne wersje kompilatorów: Pascala, C, Fortranu, Prologu i Macro 
Assemblera przeznaczone dla układów transputerowych. Moduły 
pisane w tych językach po rekompilacji mogą być powiązane pro- 
gramem napisanym w OCCAM, który wywołuje te moduły jako 
procesy. Dotychczas nie ma systemu operacyjnego dla urządzeń 
bazujących na układach transputerowych. Nidktóre z firm propo- 
nują stosowanie techniki nakładek systemowych, a także adapta- 
cję systemu UNIX. 

( OCCAM - 2 

Jądrem koncepcji języka OCCAM są pojęcia procesu i kanału 
W OCCAM występują trzy podstawowe operacje zwane też pro- 
cesami prymitywnymi (INPUT, OUTPUT, ASSIGN — w symboli- 
cznej notacji odpowiednio: ?, !, :=). Operacje te wraz ze słowami 
kluczowymi oraz innymi, typowymi dla każdego języka składnikami 
(wyrażenia, zmienne, wartości, literały, operatory itp.), stanowią 
materię poszczególnych bloków programowych zwanych w OC- 
CAM konstrukcjami. Każdy blok poprzedzony jest specjalnym 
„konstruktorem", który informuje procesor o sposobie realizacji 
programu i stosowanej w nim komunikacji. Konstrukcje same w 
sobie są procesami i mogą być zanurzane jedna w drugiej. Pojęcie 
procesu jest bardzo szerokie i należy je rozumieć jako formę nieza- 
leżną, tzn. wykonywanych w tym procesie operacji od lokalizacji fi- 
zycznej programu i danych (tj, pamięci, jak również transputem) 
Każdy proces po inicjacji wykonuje określone instrukcje, a na- 
stępnie zostaje zatrzymany lub się kończy. W OCCAM-2 wyróżnia 
się 4 podstawowp konstruktory. Konstruktor SEQ określa blok, w 
którym instrukcje są realizowane jedna po drugiej. PAR umożliwia 
realizację współbieżności, tzn. poszczególne komponenty kons- 
trukcji wykonywane są w tym samym czasie, a prawidłowe zakoń- 
czenie procesu może nastąpić po uprzednim zakończeniu wszyst- 
kich iego elementów. Konstrukcję warunkową rozpoczyna IF. W 
zależności od wartości logicznej warunków wykonywana jest 
sekwencja instrukcji umieszczona bezpośrednio po warunku ma- 
jącym wartość TRUE. Ostatni konstruktor ALT jest związany bez- 
pośrednio z komunikacją wyrażając alternatywę wykonania od- 
powiednich części bloku od gotowości kanału komunikacyjnego 
Słowo kluczowe WHILE z występującym łącznie warunkiem umoż- 
liwia powtarzanie sekwencji instrukcji do czasu, gdy warunek bę- 
dzie miał wartość logiczną FALSE. Tworzenie pętli umożliwi też 
tzw. replikator konstrukcji FOR. Pętla może być w poszczególnych 
przebiegach różna, gdyż FOR odnosi się do występującej z nim 
konstrukcji. Selektor CASE zestawia w programie rozgałęzienia 
(analogicznie jak np. w BASIC-u instrukcja IF... WHEN...ELSE). 
OCCAM-2 umożliwia tworzenie procedur, definiowanie funkcji, 
deklarowanie wartości zmiennych, przypisanie typu kanałom, 
zmiennym, tablicom i wartościom. Posługuje się znakami ASCII 
wyróżniając pewną grupę znaków specjalnych, Łańcuchy mogą 
być tworzone ze wszystkich znaków z wyjątkiem: W wyraże- 

niach stosuje się operatory opisane w tabeli. Niektóre z nich mają 
swoje odpowiedniki w postaci znaków (pary znaków). Gdy łań- 
cuch zawiera parę znaków, z których pierwszy jest * . to jego war- 
tość jest równa 0, a znaczenie opisuje drugi znak 

Do prymitywnych typów w OCCAM zalicza się: INT, INT32. INT 
64, REAL32, RF.AL64. BYTE, TIMER oraz CHAN OF type. Wszyst- 
kim zmiennym wyrażeniom i wartościom przypisywany jest typ, 
który może należeć do prymitywów albo być typem tablicy, rekor- 
du lub struktury, CHAN OF protocol (type określa kanał i specyfi- 
kuje protokół komunikacji). TIMER jest typem określanym dla 
zmiennych, które w programie (procesie) odmierzają czas. Forma ^ 
[n] BYTE przedstawia łańcuch o n znakach, a fnjINT opisuje * 
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Typ operandu 

Opis 

♦ /. \ (REM) 


INTEGER . REAL 

op. arytmetyki 

PIUS, MMUS, TIMER, AFTER 


INTEGER 

op. arytmstyki modu 

•.<> 



wszyetkie typy 

op. relacji 

> , < , <• , 



INTEGER REAL 

op. relacji 

ANO , OR , NOT 



BOOLEAN 

op. logie ine 

»«, A (BITANOl.WIBITOR , » (BIT NOT) 

INTEGER 

op. logiczne blt&* 




INTEGER 

op. przesunigcia 

Reprerentocja ło/icuchowo znakdw specjalnych 

ec - CR 

•n - LF 

*« - TAB | as - Spacja | • 

■ " - " 

•« - * 

*■ 

- scrasn HEX 



tablicę o n elementach typu INT. Przy definiowaniu procedur i 
funkcji przypisuje się im nazwy oraz parametry formalne ujęte w 
nawiasach. Wywoływanie tych struktur dokonywane jest przez 
nazwę z listą parametrów. W OCCAM-2 można uwzględnić konfi- 
gurację systemu, tym samym zapewniając prawidłowy rozdział 
programu na poszczególne transputery. Konfiguracja nie wpływa 
na samą logikę zachowań programowych. Przez użycie formuły 
PLACED PAR określamy lokalizację procesu w pamięci lub przy- 
pisujemy konkretny procesor jako wykonawcę procesu. Używane 
zmienne i zegar muszą być deklarowane oddzielnie dla każdej lo- 
kalizacji procesu. Formuły PRI PAR i PRI ALT nadają priorytety 
procesom wykonywanym przez ten sam transputer. Formuła 

PLACE AT... określa adres fizyczny zmiennej, kanału, tablicy 

lub portu l/O w pamięci. Oto ilustracja programowa. 




Val ekran IS #B800: nadanie wartości zmiennej ekranu 

[32000] BYTE ekran_bufor: deklaracja tablicy bajtowej 

PLACE ekran_bufor AT ekran: lokalizacja bufora w pamięci 


ekran_bufor 57: = FF 57 element tablicy przyjmuje wartość FF 


Poniższy fragment programu ilustruje przydział procesów w pro- 
cedurze sortującej elementy. 

PLACED PAR i = 0 FOR numer 

PROCESOR i Lokalizacja 

input IS p[i]: przypisanie 

output ISp[i+1]: 

INT max: deklaracja typu zmiennej max 


SEQ 

input ? max 

SEQ j = 0 FOR numer -1 przemieszczenie danych 

INT następny : deklaracja typu zmiennej następny 

SEQ 

input ? następny 

IF 

następny <= max 
output ! następny 
następny > max 
SEQ 

output ! max 
max := następny 
output ! max 

procedury kopiowania posortowanych elementów 

T ransputery zawierają w swojej architekturze zegar. Umożliwia to 
bezpośrednie i niezależne modelowanie czasu dla danego proce- 
su, tzn. pracę w czasie rzeczywistym. Zmienne typu TIMER sto- 
sowane są do wewnętrznych pomiarów czasu lub ustalania har- 
monogramu czynności. Poniższy przykład ilustruje realizację opó- 
źnienia PROC czekaj (VAL INT cykl op) procedura z para- 

metrem typu INT 

TIMER zegar : deklaracja typu zmiennej zegar 

INT aktualny_czas : deklaracja typu zmiennej aktualny czas 

SEQ 

zegar ? aktualny_czas 

zegar ? AFTER aktualny_czas PLUS cykl_op 

INT y : własny proces 

SEQ 

inputl ? y y przyjmuje wartość z kanału inputl 

czekaj (1000) 

outputl ! y wyślij wartość zmiennej y do kanału outputl 


Niezmiernie trudno jest w zwięzły sposób przedstawić język, 
jego strukturę, formuły zapisu i cechy charakterystyczne, dlatego 
ograniczyłem się do omówienia podstawowych zasad i wiado- 
mości o OCCAM — 2. Zainteresowanych niestety muszę odesłać 
do opracowań aplikacyjnych firmy INMOS lub wydawnictw zagra- 
nicznych. Na zakończenie chciałbym przedstawić kilka uwag o 
komunikacji. Będzie to krótki wstęp do następnego odcinka po- 
święconego zastosowaniom transputerów. Komunikacja między 
procesami odbywa się podobnie do komunikacji sprzętowej. Jeśli 
pewien kanał jest używany jako wejście jednego procesu oraz ja- 
ko wyjście w drugim procesie, to transmisja może się odbywać 
tylko wtedy, gdy oba procesy są gotowe. Wartość, która będzie 
przesyłana, jest kopiowana z procesu wysyłającego do przyjmują- 
cego. W ten sposób interpretuje się współbieżną pracę procesów 
w jednym transputerze. Kanałem w tym wypadku jest pamięć. W 
wypadku sieci transputerów, każdy z nich wykonuje proces w nim 
ulokowany. T ransmisja dokonuje się bezpośrednio przez parę jed- 
nokierunkowych przewodów Dane są przesyłane szeregowo wg 
poniższego protokołu. 


dane 0 1 2 3 4 5 6 7 p otwierdz enie 

I 1 I m m .i... i._.i_lg_l EE 

bity bit 

startu końca 

Protokół zapewnia prawidłową komunikację między transputera- 
mi z różną długością słowa. Linie komunikacyjne nie są czułe na fa- 
zę zegara. Transputerowa rodzina zawiera adaptery zapewniające 
sprzężenia transputerowych linii komunikacyjnych z urządzeniami 
nietransputerowymi. Adapter IMS C01 2 przedstawiony na rysunku 
jest uniwersalnym interfejsem sprzężenia między interfejsami 
współpracujących urządzeń, zapewniającym pełny duplex i dużą 
szybkość transmisji (10 lub 20 Mbit/s). Może być używany w po- 
łączeniach między systemami transputerowymi. do połączeń 
transputera z kontrolerami peryferiali f-my INMOS, systemem l/O 
lub układami mikroprocesorowymi INTEL, MOTOROLA i innych 
firm. Adapter ten przyjmuje z linii komunikacyjnej INMOS szere- 
gowo i przekształca je w postać 8-bitowego słowa Igb odwrotnie. 
Służą w tym celu rejestry we/wy danych. Kontrolę zapewnia sy- 
stem sterujący, który bada słowo stanu rejestru sterującego oraz 
rejestry statusu stowarzyszone z rejestrami we/wy danych, 8-bi- 
towe dane są wysyłane, bądź pobierane z bufora danych D0-D7 



od strony magistrali systemowej. Do bloku sterującego doprowa- 
dzone są sygnały zasilania, zegar oraz sygnał separacji i sygnał 
wyboru szybkości transmisji. Rejestr stanu bloku sterującego za- 
trzaskuje informacje o trybie pracy (bity RW, RS1 , RS0) oraz o go- 
towości linii komunikacyjnej INMOS. Na kolejnym rysunku przed- 
stawiona została karta firmy Transtech TSMB-1&. Jest ona kartą 
umożliwiającą budowanie sieci złożonej z modułów transputero- 
wvrh (do Ifi modułów z transmiterem T-414 lnh T-800 7 fi4 MR 


DRAM). W skład jej wchodzą adaptery linii z 2 interfejsami RS232 
oraz 2 moduły INMOS IMS C004 — które stanowią programowal- 
ną łącznicę z zespołem 32 linii we i 32 linii wy. Programowanie 
przełącznicy odbywa się poprzez 2 linie zwane liniami konfiguracji, 
ponadto może ono się odbywać w sposób dynamiczny. Możliwe 
jest łączenie kaskadowe modułów C004. Szybkość transmisji wy- 
nosi 1 0 lub 20 Mb/s zapewniając maksymalne opóźnienie do 2 bi- 
tów. Karta TSMB ma także 2 linie (z 8 możliwych, wybieranych 
programowo), które są wyprowadzone na zewnątrz (backplane). 
W ten sposób można do niej dołączać inne karty modułów trans- 
puterowych firmy Transtech lub INMOS i kompatybilne z nimi. 
TSMB-16 znacznie zwiększa możliwości budowania na jej pod- 
stawie wielkich systemów transputęrowych i mikroprocesoro- 
wych. Jest ona wyposażona w niezbędne sygnały sterujące i te- 
stujące, zapewniając właściwy poziom współpracy wszystkich 
elementów sieci. ... _ _ 

W.M.o 


Przedstawiamy zaktualizowaną listę (por. „IKS" nr 1 /87 oraz nr 
12/87) skrótów, które związane są z mikrokomputerem, łącznie z 
ich oryginalną interpretacją. Czekamy na inne, Waszym zdaniem, 
ważne skróty. 

W jednym z najbliższych numerów „IKS-a" postaramy się 
przedstawić uaktualnioną listę skrótów wraz z ich tłumaczeniem 
(interpretacją) w języku polskim 

SLAM - SCAN-LINE ACCESS MEMORY, 

SLIC - SELECT I VE LISTING COMBINATION, 

SLT - SOLID LOGIC TECHNOLOGY, 

SNA - SYSTEM NETWORK ARCHI TECTURE, 

SNI - SERIAL NETWORK INTERFACE 
SNR - SIGNAL-TO-NOISE RATIO, 

SOH - START OF HEADER, 

SOL - S I MULAT I ON ORIENT EU LANGUAGE, 

SP - SPACE CHARACTER, 

SP - STACK PO INTER, 

SPOOL - S I MULT ANEÓUS PER I PHERAL OPERAT IONS OFF-LINE. 
SPP - SPEC I AL— PURPOSE PROCESSOR, 

SPRS - SIGNAL PROCESSING ROUTER/SCHEDULER, 

SPT - SHORTEST PROCESSING TIME, 

SQL - STANDARD OUERY LANGUAGE. 

SR - SEOUENCE REGISTER. 

SRAM - STATIC RAM, 

SRO - SERV I CE REOUEST, 

SSI - SMALL SCALĘ INTEGRATION, 

SST - SYNCHRONOUS SYSTEM TRAP, 

STX - START OF TEXT, 

SYN - SYNCHRONOUS IDLE, 

SYSIN - SYSTEM INPUT, 

TBF - TIME BETWEEN FAILURES, 

TCC - TRANSMISSION CONTROL CHARACTER, 

TCP - TRANSMISSION CONTROL PROTOCOL, 

TDM - TIME DI VISION MULT I PLEX I NG , 

TDMA - TIME DWISION MULT1PLE ACCESS, 

TELEX - TELEPR INTER— EX CHANGE , 

TPI - TRACKS PER INCH, 

TRL - TRANS ISTOR-RESI STOR LOGIC, 

TS - TRANSPORT STATION. 

TSL - THREE-STATE— LOGIC, 

TSS - TIME-SHARING SYSTEM, 

TSS - TASK STATE SEGMENT , 

TTD - TEMPORARY TEXT DELAY, 

TTL - TRANS ISTOR-TRANSI STOR LOGIC, 

U ART - UN WERSAL ASYNCHRONOUS RECE WER/TRANSMITT ER, 
UC - UPPER CASE, 

UDC - UN WERSAL DEC IMAŁ CODĘ. 

UPC - UN WERSAL PRODUCT CODĘ, 

US - UNIT SEPARATOR, 

USART - UN WERSAL SYNCHRONOUS/ASYNCHRUNOUS RECEWER- 
-TRANSMITTER. 

VC - VIRTUAL CALL, 

VDU - VIDEO DISPLAY UNIT, 

VDU - VI SU AL DISPLAY UNIT, 

VGA - VIDEO GATE ARRAY, 

VI C - VIDEO INTERFACE CHIP, 

VLSI - VERY LARGE SCALĘ INTEGRATION, 

VOLSER - VOLUME SERIAL NUMBER. 

VSAM - VIRTUAL STORAGE ACCESS METHOD. 

VRC - VERTICAL REDUNDANCY CHECK, 

VT - VERT 1 CAL TAB. 

VTAM - V1RTUAL TELECOMMUN I CAT I ON ACCESS METHOD. 

VTOC - VOLUME TABLE OF CONTENTS. 

VW-GRAMMAR - VAN WIJ NGAARDEN GRAMMAR. 

WACK - WAIT BEFORE TRASMITTING P0S1TIVE ACKN0WLED6E- 
MENT, 

WADEX - WORD AND AUTHOR INDEX. 

WE - WRITE ENABLE, 

WPR - WRITE PERM! SSI ON RING, 


— Komputer prosi Kowalskiego. 
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SAMI TWORZYMY 
SYMBOLE GRAFICZNE 


Mieczysław SKONIECZNY , Robert ZUGEHOR 


Początkującemu użytkownikowi mikrokomputera wiele trud- 
ności nastręcza definiowanie własnych symboli graficznych 
Prezentowany program ma na celu wyjaśnienie tego problemu 
na przykładzie mikrokomputera AMSTRAD CPC 6128. Program 
kreśli na ekranie powiększoną siatkę znaku, złożoną z 64 punktów. 
Następnie prezentowana jest: postać jednego wiersza znaku grafi- 
cznego oraz odpowiadająca mu binarna wartość bajtu. Ma to na 
celu wyjaśnienie zależności pomiędzy wypełnieniem odpowied- 
niego pola wiersza znaku graficznego a jego interpretacją liczbo- 
wą i binarną. Wypełniając pixelarni kolejne pola, obserwujemy 
zmianę obliczanych wartości bajtu. Tę sytuację prezentują poniż- 
sze rysunki: 


w 

TftC 

L±J 

i-i 

n 



0101(1000 


ZNAKU CRftFICZNEC 

& V Z 

0+ S4+0+lG+0+0+O+0^ ao 


rys. 1 


P O STA Ć BAJTU 


1 - 10101O01 


120^(14.32 10 + O+O-łO+l- 169 

rys. 2 


Dalsza część programu pozwala na tworzenie całego znaku 
graficznego. Możliwe są następujące opcje, których wybór nastę- 
puje przez kolejne przyciskanie klawisza SPACJA (akceptacja 
opcji - ENTER): 

1 . Wstawienie pixela 

2 Usuwanie pixe!a 

3. Zmniejszanie obrazu 

4. Koniec tworzenia symbolu 

Początkową fazę tego etapu prżedstawia poniższy rys. 




3 

2MN 
OBRi 


IE 1 


Przykładowo utworzony znak pokazany jest na poniższym ry- 
sunku. 
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rys. 4 


Wersja źródłowa tego programu ma następującą postać: 

|isf ,!, twr 2 ' Ci w. 2 m B »8«oS, • 

40 FOR x*l TO 20 
50 LOCATE 1 . !3sPRINT HID*(t2»,21 
:NEXT 

40 SOSJBTTOtT 


, x > 1 1 LOCflT E 21 -x , 14 r PRINT HID«(t3l,l,x); 


rys. 3 


70 60SUB 2550 

80 H0DE li INK 1,6: IMK 0,0: INK 2,9: INK 3,2t:PEN 0:PAPER 3: BOR DER 26:CLS 

90 GRAPHICS PEN OsPEN 1 

100 NINDON £1,12,29, 11, IłsPAPER £1,0 

110 DIN c<8> 

120 FOR x*127 TO 511 S1EP 48 
130 PLOT x ,400: DRAWR 0,-384 
140 NEXT 

150 FOR y=399 TO 0 STEP -48 
160 PLOT 127,y:DRANR 384,0 
170 NEXT 

180 !SCREENC0PY,2,1 
190 a*=INKEY$ 

200 ft C LS £1:PEN £1,1: LOCATE £1,6,2:PRINT £1 , -POSTAĆ* : LOCATE £1,7,3:PR1NT £1, 

210 FOR t*l TO 300:NEXT 
220 1SCREENC0PY. 1,2 
230 FOR t*l TO Joó:NEXT 
240 IF ał=" 60T0 190 

I&S^BirWACWTr 0 0 0 = OOOOOCO-.MSUB 2'30 
280 LOCATE 2,9:PRINT*NIERSZ ZNAKU 6RAFICZNE60*: LOCATE 2,13:PRINT 

M28 6 4 32 16 8 4 2 1* 

290 60505*7750 ‘ 

300 !SCREENC0PY,2,1 
310 PEN OsCLEAR INPUT 
320 ISCREENC0PY, 1,2 
330 a»=INKEY( 

350 FOR £j TO 200jMEXT 26,9łj!f>R1NT CHft* 1201) ; CH«*(201 ) » CHR* (201 ) j : NCXT 

360 FOR j«l TO 3: LOCATE 26,9*j:PRINT‘ 1 ; : NEXT 

370 IF al*** 60T0 330 

380 IF a$»* * 6010 660 

390 ox*2:kx*23:x*26:y=10 

400 a$=INKEY4 

s i f F jśc - ;;,™ aT' w, “ 2,n,mx au,m m 

430 IF ASCIa»)=32 60TO 660 

440 IF ASC(a«)<242 0R ASC(a*)>243 GOTO 400 

450 IF ASC < a*) =242 THEN x*x-3 

460 IF ASC (a$) *243 THEN x*x+3 


490 ISCREENC0PY, 1,2 
500 60SUB 2510 


26 


w 


% p ** 


510 60T0 400 
520 IF x >kx GOTO 330 
530 c(lNT(x/3ł+l)=l: PEN 1 
540 FOR 1=1 TO 8 

550 LOCftTE 31(1-11+2, 5:PRINT c (i ) ; : NEXT: BOSUB 2730 
560 LOCftTE 29,5 
570 FOR i=l TO 8 

MMMNT BID* (STRKcti ) ) ,2, 1) ł sNEXT 
" rŚCREElCOPY ,2,1: LOCftTE l,l5:s=0:PEN O 
SCO FOR 1=1 TO 8 

610 i»»c ( i) *2 A (8-i ) : s=s+»: PR1NT MID$(STR*(«) .2,31; 

620 IF i =8 THEN PRINT*=’: ELSE PRINT"*’; 

'630 NETT 

640 PR1NT 5 

650 PEN O : GOTO 330 

660 ISCREENCOPY ,1 ,2: ERASE c 

670 GOSUB 2700:CLS 

680 LOCftTE l,25:PRIKT*12fl 64 32 16 8 4 2 1*) 

690 GRAPHICS PEN O 
700 FOR- £=0 TO 384 STEP 48 
710 PLOT x . 400: DRAMR 0,-384 
720 NETT x 

730 FOR y=399 TO O STEP -48 
740 PLOT O, y i DRftKR 384,0 
750 NEXT y 
760 ISCREENCOPY. 3,1 

770 GOSUB 2320: GOSUB 2370: GOSUB 2420:60SUB 2440 
780 ISCREENCOPY, 2.1 

790 bordfO: GOSUB 2320:60SUB 2370:60SUB 2420:60SUB 2440 
900 GOSUB 2700 

810 IF.>$SC(a*)<>32 AND ASCU»K>13 GOTO 800 

920#'|SC(a*l=13 AND bordOO GOTO 890 

830 IF pSC(a*)=13 AND bord=0 THEN GOTO 800 

340 bord^bord+1 

850 IF bord>4 THEN bord=l 

360 ON bord GOSUB 2800,2820,2840,2860 

870 LOCftTE 38, 24:PRINT bordsPftPER 3 

880 GOTO 800 

890 BORDER 26:0N bord GOSUB 1000,1310,1620,2020 
■900 GOTO 790 
910 END. ■ 


Poszczególne funkcje realizują następujące podprogramy: 

1 . Stawianie punktu w dowolnym miejscu siatki znaku. 


1000 PEN OiCLEflR INPUT 
1010 ISCREENCOPY, 1,3 
1020 a*=INKEY* 

1030 FOR j=l TO 3: LOCftTE 25, 21 + j :PRINT CHR* ( 201 ) ; CHR$ T201 > ; CHR$ (201 ) ; : NEXT 
1040 FOR t=t TO 200:NETT 

1050 FOR j=l TO 3: LOCftTE 23, Ol+jsPRINT" “j :NEXT 

1060 IF a*=* “ GOTO 1020 

1070 IF ał=’ ’ GOTO 1290 

1080 px=l:kx=22:py=l:ky=22:x=25:y=22 

1090 at=INKEY$ 

1100 IF at=" THEN ISCREENCOPY, 1,3: GOSUB 2470:G0SUB 2510:60T0 1090 
1110 IF ASC(a*)=13 GOTO 1250 
1120 IF fiSCIa$>=32 GOTO 1290 
1130 IF ASC(a*K240 OR ftSC(a$)>243 GOTO 1090 
1140 IF ASC (a*) =240 THEN y=y-J 
1150 IF ASC(al)=241 THEN y=y+3 
1160 IF ASC (a*) =242 THEN x=x-3 
1170 IF ftSCtal 1=243 THEN x=x+3 
1180 IF x<px THEN x=px 
1190 IF x>kx THEN x 


1200 IF y<py THEN y=py 
1210 IF y)ky THEN y=ky 
1220 ISCREENCOPY, 1,3 


1230 GOSUB 2510 
1240 GOTO 1090 
1250 IF x>kx GOTO 1020 
1260 ISCREENCOPY. 3.1 
1270 a!!NT(x/3)+i,lNT<y/3)+l)=l 
1280 GOTO 1020 \ 

1290 ISCREENCOPY, 1,3 
1300 RETURN 

Sterowanie ruchem „kostki" odbywa się za pomocą klawiszy 
funkcyjnych (t i.—.—). Umieszczenie „kostki" w wybranym 
miejscu — ENTER, przejście do innej funkcji programu — SPA- 
CJA. 

2. Usuwanie’pixela z dowolnego pola. 

1310 PEN 1 : CLEAR INPUT 
1320 ISCREENCOPY, 1,3 
1330 a*=INKEY$ 

1340 FOR i=LT0 3:F0R 1=1 TO 3: LOCftTE 24+ j , 21 +i : PRINT CHR* < 201+31 4 i -1 ) ♦ j ) ; 

:NEXT i:NEXT j 

1350 FOR t=l TO 200: NEXT 

1360 FOR j=l TO 3: LOCftTE 25, 21+j : PRINT" ’;:NEXT 

1370 IF a*=‘* GOTO 1330 

1380 IF a$=' 1 GOTO 1600 

1390 px=l:kx=22:py*lsky=22:x=25:y=22 

1400 at=INKEY$ 

1410 IF ał=" GOTO 1400 

1420 IF ftSC(a*)=13 GOTO 1560 

1430 IF ASC ( a* ) =32 GOTO 1600 

1440 IF ASC(at) <240 OR ftSC(a*)>243 GOTO 1400 

1450 IF ASC (a*) =240 THEN y=y-3 

1460 IF flSC(a*)=241 THEN y=y+3 

1470 IF ASC(a*)=242 THEN x=x-3 


1480 TF flgC(a*)=2*3 THEN x=x+3 
1490 IF xfpx THEN x=px 
1500 IF x>kx THEN x=kx 
1510 IF y<py THEN y=py 
1520 IF y)ky THEN y=ky 
1530 ISCREENCOPY, 1,3 

1540 FOR j*l TO 3: FOR i=t TO 3: LOCftTE x-l+j,y-l+i:PRINT CHR$(201+3»U -l)+j) 

: :NEXT j :NEXT j 
1550 GOTO 1400 
1560 IF x >kx GOTO 1330 

1570 PEN 0: LOCftTE x.y:PRINT CHR*(211) ;CHR*(2I2) ;CHR« (212) ; s LOCATE x,y+l: 
PRINT CHR$ (21 3> : * ’::L0CATE x,y+2:PRTNT CflR*(2l31|’ ■; :PEN 
1: ISCREENCOPY, 3, 1‘ ‘ 

1580 a(INT(x/3)+i, INT (y/3) +11=0 
1590 GOTO 1330 
1600 ISCREENCOPY, 1,3 
1610 RETURN 

Sterowanie symbolem „usuwania" odbywa się jak wyżej. 

3. Pomniejszanie obrazu. 

1620 ISCREENCOPY, 1,3 
1630 skala=l 
1640 a*=lNKEY* 

1650 IF ał=" GOTO 1640 

1660 IF a$=* * GOTO 2000 

1670 IF ASC (at) <240 OR ASC(a*) >241 GOTO 1640 

1680 IF ASC ( a$ ) =24 1 THEN skala=skala«2 

1690 IF flSC(a*)=240 THEN skala=skala/2 

1700 IF skala<l THEN skala=l 

1710 IF skal a> 16 THEN skala=32 

1720 CLS 

1730 IF skala =1 THEN ISCREENCOPY. 1,3: GOTO 1640 

1740 GRAPHICS PEN 0 

1750 IF skal a= 16 60T0 1830 

1760 IF skal a=32 GOTO 1940 

1770 FOR x=0 TO 384/skala STEP 48/skala 

1780 PLOT x , 400: DRAHR 0,-384/skala 

1790 NETT 

1800 FOR y=399 TO 399- (8*48/skal a) STEP -4B/skala 

1810 PLOT 0,y:DRANR 384/skala, 0 

1820 NETT y 

1930 FOR i=l TO 8 

1840 FOR j=l TO 8 

1850 IF a(i, j)=0 GOTO 1910 

1860 poczk=(i-l)l4B/skala:konk=poczk+4B/skala 

1870 poczl=399-( j-1) 148/skal a: koni =pocz 1-48/skal a 

1880 FOR k=poczk TO konk 

1890 PLOT k,poczl:DRftNR 0,-48/skala 

1900 NETT 

1910 NETT J 

1920 NETT i 

1930 GOTO 1640 

1940 FOR 1=0 TO 7 

1950 FOR j=0 TO 7 

1960 IF a(i+l, j+l)*0 THEN GRAPHICS PEN 3 ELSE GRAPHICS PEN O 

1970 PLOT 2li, 399-21 j 

1980 NETT j : NETT i 

1990 GOTO 1640 

2000 ISCREENCOPY, 1,3 

2010 RETURN 

Znak jest przedstawiany w 6 kolejnych, pomniejszanych skalach 
aż do naturalnej wielkości. 

Pomniejszanie — klawisz I 
Powiększanie — klawisz t 

4. Koniec tworzenia symbolu. „ 


2040 FOR i *1 . TO 8 
2050 licz=0 ■ 

2060 FOR j=l TO 8 

2070 licz s licz+a(j,i)t2 A (8-j) 

2080 NETT j 

2090 LOCftTE 26, 38 ( i-1 ) +2: PRINT liczj:b(l)*licz 
2100 NETT i 
2110 GOSUB 2700 
2120 CLS 

2130 FOR 1=0 TO 7 
2140 FOR j=0 TO 7 

2150 IF a(i+l, j+l) =0 THEN GRAPHICS PEN 3 ELSE GRAPHICS PEN 0 
2160 PLOT 2«i, 399-21 j 
2170 NEXT j:NEXT i 

2180 LOCftTE 3, 1: PEN 1:PRINT’SYNB0L GRAFICZNY* : LOCATE 3, 1 1 z PRINT" INSTRUKCJE 
PROGR aWU* : PEN 0 , 

7195" LOCATE 1 , 12:PRINT\...’:L0CATE 1 , 13:PRINT\ . . *:L0CńTE l,T4:PRlNT*l00Ó 
SYMBOL AFTER n" 

“ 2200 LOCftTE 1, 15: PRINT* 1010 SYMBOL n'; 

2210 FOR i=l TO 8 

2220 PRINT* , * : MID* < STR$ (b < i)).2,3); 

2230 NETT i 
2240 GOSUB 2700 

2250 CLS: LOCftTE 1,12: PRINT’ NONY SYMBOL (T/N)* 

2260 a*=INKEY4 
2270 IF a$="60TD 2260 

2280 IF UPPER8 ( a*> =*T* THEN ERASE a:ERflSE b:CLS:60T0 680 
2290 IF UPPER8 (a*) =*N* THEN ISCREENCOPY, 1,3:ERASE b : GOTO 2310 
2300 GOTO 2260 
2310 RETURN 

Z prawej strony siatki znaku wyświetlane są na wysokości od- 
powiednich wierszy ich wartości liczbowe. Następnie jest pokazany 
fragment programu definiujący dany symbol graficzny. 


27 


Tę sytuację prezentują poniższe rysunki. 


X SYMBOL GRAFICZNY 


INSTRUKCJE PROGRAMU 

SvS18fc STIi8.5o8.sB.ss. los. 198.ua 

rys. 5 


±98 


±08 


56 


56 


±08 


±98 


±98 


O 


rys. 6 

Dodatkowo są wykorzystywane następujące podprogramy po- 
mocnicze: 

2320 FOR i=l TO 3:F0R j=l TO 3 

2330 LOCATE 35tj,3*i:PEN 0:PR!NT CHR*(201>; 

2340 NEXT j : NE X T i 

2350 LOCATE 27 , 2: PRINT" 1 . WSTAWI ANIE" : LOCATE ŻT.SiPRINT 1 PIIELA'; 

2360 RETURN 

2370 FOR i=l TO 3: FOR j=l TO 3 

2380 LOCATE 35+j,9+i:PEN 1: PRINT CHR$ (201+3* (i-l)+j) ; 

2390 NEXT j : NEXT i 

2400 LOCATE 27, 9: PRINT-2. USUNANIE ‘ : LOCATE 27,9:PRINT" PINELA": 

2410 RETURN 

2420 LOCATE 27.14:PEN 2: PRINT"3. ZMNIEJSZANIE" ; :L0CATE 27,15:PRINT* OBRAZU"; 



2430 RETURN 

2440 MINDOM £1,26, 40. 18, 22: PAPER £1,0:CLS £1 

2450 LOCATE £1,2,2:PEN £1,3:PRINT £1, "4. KONIEC" : LOCATE £1 . 2, 3: PRINT£1 , 

‘ TWORZENIA" j : LOCATE £1 , 2. 4: P ~ ’ ’ 

RINT£1 , " SYMBOLU" 

2460 RETURN 

2470 FOR i=0 TO 2 

2480 LOCATE x,y+i:PRINT ■ 

2490 NEIT i 
2500 RETURN 
2510 FOR i=0 TO 2 

2520 LOCATE x,y+i:PRINT CHR*(201) ;CHR«(201ł ;CHR$(201) ; 

2530 NEIT i 
2540 RETURN 
2550 SYMBOL AFTER 201 

2560 SYMBOL 201,255,255,255,255,255,255,255,255 
2570 SYMBOL 202,255,255,240,248,220,206,199,195 
2580 SYMBOL 203,255,255,0.0.0,0 0,129 
2590 SYMBOL 204,255,255, 15,31,59, 1 15,227, 195 
2600 SYMBOL 205,193,192,192,192,192,192,192,193 
2610 SYMBOL 206,195,231,126,60,60,126,231,195 
2620 SYMBOL 207,131,3.3,3,3,3,3,131 
2630 SYMBOL 208,195,199,206,220,248,240,255,255 
2640 SYMBOL 209, 129, 0,0, 0,0, 0.255, 2Ś5 
2650 SYMBOL 210, 195, 227, 1 15, 59, 31 , 15, 255. 255 
2660 SYMBOL 211,255,128,128,126,128,128, 28,128 
2670 SYMBOL 212,255 ’ ’ 

2680 SYMBOL 213,128,128,128,128,128,128,128,128 
2690 RETURN ’ ’ 

2700 a*= INKEY* 

2710 IF a*=*’ GOTO 2700 
2720 RETURN 

2730 PLOT 15, 351 : DRANR 384.0:PL0T 15,303:DRANR 384,0 
2740 FOR *=15 TO 399 STEP 48:PL0T *,351: DRANR 0,-48:NEXT 
2750 RETURN 

2760 PLOT 15, 255: DRANR 384.0: PLOT 15. 207: DRANR 384,0 

2770 FOR x=15 TO 399 STEP 48:PL0T x,255:DRANR 0,-48:NEXT 

2780 RETURN 

2800 BORDER 0:PEN O 

2810 RETURN 

2820 BORDER 6: PEN 1 

2830 RETURN 

2840 BORDER 9: PEN 2 

2850 RETURN 

2860 BORDER 26: PAPER OsPEN 3 
2870 RETURN 


Realizacja programu odbywa się z wykorzystaniem dodatko- 
wych 64 KB. Niezbędne jest więc uprzednie załadowanie pro- 
gramu BANKMANAGER. 

Robert ZUGEHOR 
Mieczysław SKONIECZNY 


Spearmen i Pearson 
powiedzą Ci prawdę 


W czasie jednych z ostatnich ćwiczeń z 
podstaw informatyki w Wojskowej Akademii 
Politycznej bytem uczestnikiem atrakcyjne- 
go, a przede wszystkim dającego wiele do 
myślenia eksperymentu (testu) z wykorzy- 
staniem komputera. 

Otóż grupa słuchaczy drugiego roku Wy- 
działu Nauk Pedagogicznych w trakcie za- 
jęć z wykorzystaniem sieci mikrokompute- 
rów BBC miała m.in. za zadanie sprawdze- 
nie możliwości zastosowania mikrokompu- 
terów do obliczeń statystycznych. Wykorzy- 
stywane były do tego celu programy na „ra- 
chowanie" współczynników Spearmana i 
Pearsona. Jako przykładowy cel badań (by 
nie były zbyt odległe od rzeczywistości) 
przyjęliśmy szukanie zależności między na- 
szymi wynikami nauki uzyskanymi w trzeciej 
sesji egzaminacyjnej, a następującymi 
zmiennymi: wiekiem, odległością od miejsca 
stałego zamieszkania, ilością wyjazdów do 
domu w ciągu miesiąca, ilością posiada- 
nych dzieci, dochodami na osobę w rodzi- 


nie, ilością wypalanych papierosów w cza- 
sie dnia. 

Oczywiście, aby wyniki testu w sposób 
maksymalnie obiektywny obrazowały wiel- 
kość wpływu poszczególnych zmiennych na 
ową średnią egzaminacyjną, każdy z nas 
musiał zdobyć się nie tylko na szczere 
przeprowadzenie „rachunku sumienia", lecz 
także ujawnienie swoich słabości do palenia 
papierosów. 

Po wprowadzeniu danych do komputera, 
a następnie wypisaniu na tablicy wyników, 
najbardziej zdziwiony i zaskoczony był pro- 
wadzący ćwiczenie. Co się bowiem okaza- 
ło? Ano to, że im słuchacze częściej wyjeż- 
dżają do rodziny i im dalej mieszkają, a tak- 
że... im więcej palą papierosów, tym lepsze 
osiągają wyniki w nauce. Natomiast wpływ 
pozostałych zmiennych okazał się nieco 
mniejszy, ale także bardzo istotny. Wobec 
tak nieoczekiwanych wyników sprawdziliś- 
my dodatkowo na mikrokomputerze raz je- 
szcze rezultaty testu, licząc — przynajmniej 


Mariusz KUBIAK 

niektórzy z nas — na błąd maszyny. Nieste- 
ty, mikrokomputer okazał się nieprzekup- 
nym, perfekcyjnym „mózgiem". 

Kończąc to krótkie sprawozdanie z ćwi- 
czeń komputerowych, chciałbym zazna- 
czyć, że moim zdaniem przydatność kompu- 
tera do pracy dydaktyczno-wychowawczej 
czy naukowej niewspółmiernie wzrasta ; jeśli 
jest on wykorzystywany do rozwiązywania 
problemów bezpośrednio dotyczących 
człowieka, który go obsługuje, ewentualnie 
zaspokaja jego ciekawość poznawczo-nau- 
kową. W każdym razie jeszcze długo po 
ćwiczeniu komentowaliśmy w swoim gronie 
jego wyniki, wielu z nas chętniej sięgnęło po 
czasopisma i specjalistyczną literaturę 
komputerową, a niektórzy poważnie myślą o 
zakupie „Spectrum" czy .Atari". 

Po raz kolejny przekonaliśmy się, że kom- 
puter to nie tylko gry i zabawy wymagające 
pewnej sprawności manualnej, lecz również 
cenna pomoc w zdobywaniu wiedzy nie tyl- 
ko o otaczającej nas rzeczywistości, ale 
także o nas samych. 


INFORMATYCZNY SŁOWNIK ANGIELSKO-POLSKI 


END OF MEDIUM CHARACTER - znak fizycznego zakończe- 
nia nośnika, 

END OF MESSAGE - koniec komunikatu, 

END OF RECORD - koniec zapisu (rekordu), 
END-OF-RECORD FLAG - identyfikator końca zapisu, 

END OF REEL - koniec szpuli, 

END OF TEXT CHARACTER - znak zakończenia tekstu 
(treści ) , 

END OF THE TAPE t znacznik końca taśmy, 

END OF TRANSMISSION - koniec transmisji, 

END OF TRANSMISSION CHARACTER - znak zakończenia 
transmisji , 

END OF TRANSMISSION BŁOCK CHARACTER - znak zakończe- 
nia transmisji bloku, 

END OFFICE - lokalna centrala telefoniczna, 

ENDPOINT - punkt końcowy, . 

END-TO-END PROTOCOL 4 - protokół końcowy, 

ENERGIZE - wzbudzać* zasilać, także: zapalać. 


ESCAPE SEOUENCE - sekwencja zarządzająca, 

ESCAPING KEY - klawisz powodujący posuw papieru, 

ESD - patrz: EXTERNAL SYMBOL DICTIONARY, 

ESS - patrz: ELECTRIC SWITCHING SYSTEM, 

ESSENCE - istota (rzeczy), 

ESSENTI AL - istotny, zasadniczy, 

ESTABLISH - ustanowić, założyć, 

ESTABLISH A REL ATI ONSHI P - ustalić zależność, 
ESTABLISHMENT - firma, przedsiębi orstwo, 

E ST I MATĘ - oszacowanie, szacunek, ocena, także: sza- 
cować, oznaczać, 

ESTIMATION - ocena, oszacowanie, także: estymacja, 

ETB - patrz: END OF TRANSMISSION BŁOCK CHARACTER, 
ETCHING - trawienie, wytrawianie, 

ETX - patrz: END OF TEXT CHARACTER, 

EU - patrz: EXECUTION UNIT, 

EURONET - sieć komputerowa EURONET, 

EUROPEAN ACADEMI C RESEARCH NETWORK - Międzynarodowy 
Skomputeryzowany System Wymiany Informacji Naukowej, 
EUROPEAN COMPUTER MANUFACTURES ASSOCIATION - Euro- 
pejskie Stowarzyszenie Producentów Sprzętu Kompute- 
rowego, 

EUROPEAN INFORMATION NETWORK - sieć komputerowa EIN, 
EVADE - unikać, obchodzić, 

EVALUATE - obliczać (np. wartość wyrażenia arytme- 
tycznego), oceniać, 

EVALUATION - wyznaczanie wartości, ocena, obliczanie, 
EYALUATION SYSTEM - system ocerv, 

EVEN - parzystość, także: równać, wyrównywać, 

EVEN NUMBER - liczba parzysta, 

EVEN-ODD - parzysty-nieparzysty, 

EVEN PARITY BIT - bit parzystości, 

EVEN PARITY CHECK - kontrola parzystości, 

EVENT - zaszłość, także: zdarzenie, wydarzenie, 

E VENT -DRI VEN - zarządzający przerwaniami w trybie 
przerwania, 

EVENT FLAG - znak wystąpienia zdarzenia, 

EVENT MODĘ INPUT - wprowadzenie według kolejki, 
wprowadzenie z buforowaniem, 

EVENT TRAP PING - obsługa przerwania, 

EVI DENCE - dowód, także: świadczyć, udowadniać, 
EVOLUTION - rozwijanie, rozwój, ewolucja, także: 
pierwiastkowanie, 

E YOLUTI ONARY SYSTEM - system rozwijający się. 


Słownik na dysku 

Od kilku miesięcy zawsze na tych samych kolum- 
nach „IKSa" publikujemy kolejne odcinki Informaty- 
cznego słownika angielsko-polskiego. Cieszy nas, że 
ma on liczną grupę odbiorców. 

Tym przyjemniej jest nam poinformować, o udanym 
oprogramowaniu niemal 16-tysięcznego zbioru 
terminów angielskich i ich polskich odpowiedników. 
Oprogramowania słownika dokonała firma DORAN, 
Instalując je jako integralną część edytora tekstów, 
rozbudowującą jego możliwości o funkcję „tłumacza". 
Mieliśmy okazję korzystać ze słownika w nowej posta- 
ci, jest prosty w obsłudze, a szybkość dostępu do każ- 
dego z haseł jest mniejsza niż 1/2 sekundy. 

Tyle wiemy. O bliższe informacje radzimy się zwra- 
cać listownie do firmy DORAN, której specjalnością 
jest oprogramowanie. 03-756 W-wa ul. Siedlecka 1/15 
m. 74. 


EVOLVE - wymyślać, wykombinować, 

EXACT - dokładny, ścisły, 

EXACT DI VI SI ON - dzielenie bez reszty, 

EXACTI TUDE - dokładność, ścisłość, 

FX AMINĘ - badać, rozpatrywać, 

EXAMPLE - przykład, 

EXCEED - przekraczać (np. pojemność pamięci), 
EXCEED CAPACITY CHECK - kontrola przepełnienia, 
EXCEEDING - niezmierzony, nadzwyczajny, 

EXCELLENT - doskonały, znakomity, 

EXĆEPT - wykluczać, wyłączać, także: z wyjątkiem, 
EXCEPTION - wyjątek, 

EXCEPTI OM CONDITION - wydarzenie wyjątkowe. 


EXCEPTI ON HANDLER - program obsługi zdarzenia wyjąt- 
kowego, 

EXCEPTI ON HANDLING - obsługiwanie zdarzenia wyjąt- 
kowego, (przerwanie wewnętrzne), 

EXCEPTI ONAL - wyjątkowy, 

EXCESS - nadmiar, nadwyżka, przekroczenie, 
EXCESS-THREE CODĘ - kod z nadmiarem trzy, kod Sti- 
bitza, 

EXCHANGE - wymiana, zamiana, także: wymieniać, za- 
mi eniać, 

EXCHANGEABLE - wymienny, 

EXCHANGEABLE DISK - dysk wymienny, 

EXCHANGEABLE DISK STORĘ - pamięć na dysku wymiennym, 
EXCITATION - pobudzenie, wzbudzenie, 

EXCITE - wzbudzać, pobudzać, 

EXCL AMATI ON MARK - znak wykrzyknika, "!", 

EXCLUDE - wykluczać, wyłączać, 

EXCLUSIVE LOCKING - blokada wybiórcza, także: bloko- 
wanie dla zapisu, 

EXCLUSIVE OR - "LUB" wykluczające, 

EXCLUSIVE SEGMENTS - wzajemnie wykluczające się mo- 
duły, 

EXCLUSIVE USAGE MODĘ - tryb wyłączności, 

EXE - patrz: EXECUTE, 

EXE FILE - moduł ładowania, moduł wprowadzania, 
EXECUTE - wykonywać, 

EXECUTE ONLY PROGRAM - program bez opisów, program 
bez komentarzy, 

EXECUTE PROGRAM - program wykonawczy, 

EXECUTING - wykonanie, także: uruchomienie, 

EXECUTION - wykonanie. 

EXECUTION CYCLE - cykl wykonania, 

EXECUTION ENYIRONMENT - warunki (środki) wykonania 
programu, 

EXECUTI ON TIME - czas wykonania, czas obliczeń, 
EXECUTION UNIT - układ wykonawczy, 

EXECUTIVE - program zarządzający, egzekutor, także: 
system operacyjny, 

EXECUTIVE DE VI CE - człon operacyjny (komputera ana- 
logowego) , 

EXECUTI VE DI RECTI VE - dyrektywa (operacja) systemu 
operacyjnego, 

EXECUTIVE INSTRUCTION - instrukcja (rozkaz) systemu 
operacyjnego, 

EXECUTIVE MODĘ - priorytetowy tryb pracy, 

EXECUTIVE PROGRAM - program organizacyjny, program 
sterujący, program wykonawczy, program nadzorczy, 
program zarządzający, 

EXECUTIVE REPLIES - informacje EXECUTIVE'a umiesz- 
czane w słowach odpowiedzi, 

EXECUTI VE RESIDENT - część systemu operacyjnego, re- 
zydująca na stałe w pamięci operacyjnej, 

EXECUTIVE SUPERVI SOR - program zarządzający systemu 
operacyjnego, 

EXECUTIVE SYSTEM - system operacyjny, 

EXECUTI VE SYSTEM UTILITY - systemowy program serwi- 
sowy, 

EXEMPLIFY - ilustrować (na przykładzie), 

EXERCISE CONTROL OVER ... - sprawować kontrolę 
nad ..., nadzorować, 

EXERCI SER - program testujący, program kontrolny, 
EXHAUSTED ARGUMENT - parametr wyczerpany (oznacza 
przeanalizowanie wszystkich wariantów problemu), 
EXHAUSTIVE SEARCH - pełne przeszukanie, 

EXHIBIT - wykazywać (cechę), wskazywać, 

EXIST - istnieć, 

EXISTENCE - istnienie, egzystencja, 

EXIT - wyjście, 

EXIT CONDITIONS - warunki wyjścia, także: realizacja 
warunków po wyjściu z podprogramu, 

EXJUNCTION - "LUB" wykluczające, 

EXPAND - rozszerzać, rozwijać (np. wzór matematycz- 
ny) , 

EXP ANDABI LITY - możliwość rozszerzania (np. pojemno- 
ści pamięci), 

EXPANDABLE SYSTEM - system rozszerzalny, system dos- 
tosowany do rozbudowy, 

EXPANDER - ekspander (sygnału), 

EXPANDING - rozszerzanie (się), rozprężanie (się), 
także: rozwijanie (funkcji), 

EXPANSION - rozwinięcie, rozszerzenie, rozbudowa, 
uaktywnienie, 

EXPANSION BOX - blok rozbudowy, 

EXPANSI ON BUS - szyna rozszerzenia, 
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EXTERNAL REFERENT - odsyłacz zewnętrzny, 

EXTERNAL STORAGE - pamięć zewnętrzna, 

EXTERNAL STORĘ - patrz i EXTERNAL STORAGE, 

EXTERNAL SYMBOL DICTIONARY - słownik symboli zew- 
nętrznych, także: lista symboli do tłumaczenia pro- 
gramów, 

EXT RA -LARGE -SCALĘ I NTEGRATI ON - bardzo duża skala 
integracji , 

EXTRA SEGMENT - segment pomocniczy, segment dodat- 
kowy, 

EXTRACT - wybór, wyciąg, wypis, także: wydobywać, 
wybierać, wydostawać, 

EXTRACT INSTRUCTION - rozkaz maskowania, 

EXTRACTION - wydzielanie, maskowanie, 


EXPANSION SLOT - złącze do rozbudowy f unkcjonalnej , 

Y EXPECTATION - wartość oczekiwana (zmiennej losowej), 
wartość przeciętna, także: oczekiwanie, 

EXPECTED VALUE - wartość oczekiwana (zmiennej loso- 
wej), nadzieja matematyczna, wartość przeciętna, 

EXPEL - wydalać, usuwać, 

EXf*ENDABLE - Jednorazowego użytku, 

EXPEND1 TURĘ - wydatki, rozchód, 

EXPENDITURE QUOTA - normy zużycia, 

EXPENSES - wydatki, 

EXPERIENCE - doświadczenie (nabyte), 

EXPER1MENT - doświadczenie, eksperyment, także: 
przeprowadzać doświadczenie, przeprowadzać ekspery— 

EXPERIMENTAL - doświ adczalny, 

EXPERIMENTAL CENTRE - ośrodek doświadczalny, 

EXPER1 MENTAL CONDITIOMS - warunki doświadczalne, 
EXPERIMENTAL ERROR - błąd doświadczenia, 
EXPERIMENTATION - wykonywanie doświadczeń, przeprowa- 
dzanie doświadczeń, 

EXPERT OPINIOM - ekspertyza, 

EXPERT SYSTEM - system ekspertowy, system ekspercki, 
EXPIRATION OATE — termin upływu (np. waZności ) , data 

waZności , 

EXPL ANATI ON - objaśnienie, wyjaśnienie, 

EXPL ANATI ON FACILITIES - środki umotywowania, środki 
uzasadniania (dot. systemów ekspertowych), 

EXPLANATORY - wyjaśniający, tłumaczący, 

EXPLICIT - Jawny, Jawnie, takZei jasny, sprecyzowany, 
wyralny , czytelny, 

EXPLODED VI EW - przedstawienie częściowe, takZei ob- 
raz częściowy, 

EXPLORATION - poszukiwanie, badanie, 

EXPONENT - -cecha, wykładnik potęgi, 

EXPONENTIAL - wykładniczy, 

EXPONENTI ALLY - wykładniczo, 

EXPONENTI AL NOT ATI ON - zapis liczb w postaci wykład- 
niczej, 

EXPONENTI ATE - podnosić do potęgi, 

EXPOMENTI ATI ON - potęgowanie, 

EXPORTED - przesyłany (eksportowany) , 

EXPRESS - wyrażać się, 

EXPRESSION - wyraZenie, 

EXTEND - rozciągać, przedłuZać, rozszerzać, 

EXTEND ACTI VITY - rozszerzać działalność, 

EXTENDED ASCII - rozszerzony kod ASCII, 

EXTENDED BACKUS-NAUR FORM — rozszerzona notacja Ba- 
ckusa-Naura, 

EXTENDED BCD-CODE - patrz: EXTENDED BI NARY -CODED DE- 
CIMAL CODĘ, 

EXTENDED BI NARY -CODED DECIMAL INTERCHANGE CODĘ - 
rozszerzony kod binarny do kodowania liczb dziesięt- 
nych, 

EXTENDED B1NARY -CODED DECIMAL CODĘ - patrz i EXTEN- 
DED BI NARY -CODED DECIMAL INTERCHANGE CODĘ, 

EXTENDED BINARY INTERCHANGE CODĘ - kod B-bitowy bez 
bitu kontrolnego (dający 256 możliwości), 

EXTENDED CODĘ - patrz: EXTENDED BINARY INTERCHANGE 
CODĘ, 

EXT£NDED INSTRUCTION SET - repertuar rozkazów roz- 
szerzony, 

EXTENDED-PRECI SI ON - podwyższona precyzja, 

EXTENDER CARD - karta ekspandara, 

EXTENDER CIRCUIT - ekspander, 

EXTENDER INPUT - wejście ekspandera, 

EXTENDI NG A FILE - rozszerzanie pliku (zbioru), po- 
większanie pliku, 

EXTEND THE RANGĘ - zwiększyć zasięg, 

EXTENSIBLE - rozszerzony, takżei odkryty, 

EXTENSI BLE ADDRESSING - adresacja w trybie rozsze- 
rzonym, adresacja rozszerzona, 

EXTENSI BLE LANGUAGE - język rozszerzony, 

EXTENSIBLE REGISTER - rejestr rozszerzony, 

EXTENSION - rozwinięcie, rozszerzenie, rozbudowanie, 
także: zakres (pojęcia), 

EXTENSI ON BUCKET - porcja (blok programowy) w obsza- 
rze przepełnień drugiego stopnia, 

EXTENSION BUCKET HEADER - etykieta porcji dodatkowej 
(bloku dodatkowego), 

EXTENS1 ON REGISTER - rejestr rozszerzenia, 

EXTENSIVE - obszerny, rozległy, 

EXTENSIVE DAMAGE — poważne uszkodzenie, 

£XTENT - podobszar, zasięg, także: stopień, 

EXTERNAL ARITHMETIC - procesor arytmetyczny (dodat- 
kowy) , 

EXTERNAL DATA REPRESENTATI ON - zewnętrzna reprezen- 
tacja danych, 

EXTERNAL DELAY - strata czasu (np. komputera) spowo- 
dowana przyczynami zewnętrznymi, 

EXTERNAL DE VI CE — urządzenie zewnętrzne, urządzenie 
peryferyjne, 

EXTERNAL ENVI RONMENT - warunki eksploatacji, 

EXTERNAL INTERRUPT - przerwanie zewnętrzne, 

EXTERNAL KEY - klucz zewnętrzny (w relacyjnych ba- 
zach danych oznacza dostęp do danych), 

EXTERNAL MEMORY - pamięć zewnętrzna, 

EXTERNAL PERFORMANCE - rzeczywista szybkość działa- 
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FALLBACK — rezerwa awaryjna, przejście na awaryjny 
tryb pracy, zmiana trybu pracy lub konfiguracji 
sprzętu w celu uniknięcia niesprawności, 

FALLOUT - znikanie, zanikanie, przepadanie, 

FAL SE - fałszywy, także: fałsz (pojęcie używane 
w logice), 

FAL SE ACCEPTANCE - przyjęcie fałszywej hipotezy, 
FALSEHOOD - przekłamanie, fałszywy wniosek, fałszywa 
decyzja, 

FAL SE REJECTION - odrzucenie hipotezy fałszywej, 
FALSE RETRI EVAL - uzyskanie niepotrzebnej informacji 
w automatycznym systemie wyszukiwania, 

FALSE STATEMENT — twierdzenie fałszywe, .'dv.L 

FAMILY — rodzina, 

FAMILY OF CHARACTERI STI CS - rodzina charakterystyk, 
FAMILY OF CURVES — rodzina krzywych, 

FANFOLD - druk ciągły składany w "harmonię", 

FANFOLD FORM - formularze ciągle złożone w postaci 
harnoni i , 

FAN-IN - obciążalność wejściowa (bramki logicznej), 
FAN-OUT - obciążalność wyjściowa (bramki logicznej), 
FAR CALL - wywołanie długie, wywołanie odległe, 

FAR END CROSS TALK — przesłuch skrośny, 

FAR PLANE - daleki plan (w grafice komputerowej 
określenie płaszczyzny ograniczającej przestrzeń 
zobrazowania na ekranie), 

FAR-REACHING - dalekosiężny, 

FAST - szybki, szybko, 

FAST -ACCESS STORAGE - pamięć szybka, pamięć o dostę- ' 

FAST-ACTING - szybki, szybko działający, 

FAST LINĘ PRINTER - szybka drukarka wierszowa, 

FAST MEMORY - szybka pamięć (operacyjna), 

FAT - patrz: FILE ALLOCATION TABLE, 

FATAL ERROR — błąd uniemożliwiający kontynuację pro- 
gramu, 

FATHER FILE - początkowa (wyjściowa) wersja pliku 
(zbioru) , 

FAULT - 1. błąd, 2. uszkodzenie, zakłócenie, nies- 
prawność, 3. wada (fizyczna wada sprzętu), 

FAULT CLEARING — likwidacja zakłóceń, usuwanie us^— 

FAULT DETECTOR - wskaźnik uszkodzeń, 

FAULT FINDING - wykrywanie uszkodzeń, także: usuwa- 
nie zakłóceń, 

FAULTLESS — bezusterkowy , bezbłędny, 

FAULTLESS TAPE - taśma sprawdzona, taśma bezbłędna, 
FAULT LOCATION - lokalizacja uszkodzeń, 

FAULT SIMULATOR - symulator uszkodzeń, symulator ża- 
ki óceń, 

FAULT TIME - czas przestoju z powodu uszkodzenia, 
FAULT -TOLERANT SYSTEM - system odporny na uszkodze- 
nia, 

FAULT TRACING - wyszukiwanie uszkodzeń, 

FAULT TREE GATE - element drzewa niesprawności (us- 
terek) , 

FAULTY - 1. błędny, 2. uszkodzony, zakłócony, nies- 
prawny, 3. wadliwy, 

FAULTY OPERATION — działanie wadliwe, działanie 
błędne, 

FAX - patrz: FACSIMILE, 

FAY - przylegać, dokładnie pasować, 

FC - patrz: FONT-CHANGE CHARACTER, 

FCB - patrz: FILE CONTROL BŁOCK, 

FCFS - patrz: FIRST-COME FI RST -SERVED, 

FCP - patrz: FILE CONTROL PROCESSOR, 
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LIGA MYŚLĄCYCH 


ZADANIE 1 

Trapez ABCD na poniższym rysunku jest równoramienny. 
Punkt O jest środkiem boku BC, a punkt S punktem wspólnym 
prostej AB i prostej OD. Które z tych figur mają równe pola? 


D C 



ZADANIE 2 

Znaleźć najmniejszą liczbę naturalną n>1, dla której suma 
kwąd/atu kolejnych liczb naturalnych od 1 don byłaby kwadra- 
tem liczby naturalnej. 


ZADANIE 3 

Siostra jest 3 lata młodsza od brata. Brat ma obecnie 2 razy 
tyle lat, ile miała siostra wtedy, kiedy brat miał tyle, ile siostra 
ma teraz. Ile lat ma siostra, a ile brat? 

ZADANIE 4 . 

Jeżeli cyfrę dziesiątek pewnej liczby dwucyfrowej zwięk- 
szymy o 4, a jej cyfrę jedności zmniejszymy o 2, to otrzymamy 
liczbę mniejszą od 86. Jeżeli zaś cyfrę dziesiątek tej liczby 
zmniejszymy o 2, a cyfrę jedności powiększymy o 1, to otrzy- 
mamy liczbę większą od 27. Jaka to liczba? 

ZADANIE 5 

Pociąg wyjechał ze stacji A do stacji C mijając po drodze 
stację B. Odległość pomiędzy stacjami A i B pociąg przejechał 
z pewną stałą prędkością, a odległość pomiędzy stacjami B i C 
z prędkością mniejszą od mej o 25 proc. W drodze powrotnej 
od stacji C do B pociąg jechał z prędkością taką samą, z jaką 
w pierwszą stronę jechał od stacji A do B, a ze stacji B do Az 
prędkością o 25 proc. mniejszą. Ile godzin jechał pociąg ze 
stacji A do C, jeżeli wiadomo, że odległość od stacji A do B 
przejechał w tym samym czasie co odległość od stacji BdoC 
oraz że w kierunku od stacji A do C pociąg jechał o 5/ 12 go- 
dziny krócej niż z powrotem (tj. od C do A)? 


Rozwiązanie zadań prosimy przesyłać do redakcji do końca września br. z dopiskiem „Liga Myślących”. Punktacja zależy od 
liczby prawidłowych rozwiązań. Wśród uczestników rozlosujemy książki, a na zwycięzców „Ligi” czekają dodatkowe nagro- 
dy. 
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komputer od razu przełoży to na język 
włoski, francuski, niemiecki lub hiszpański 
i poda syntetycznym komputerowym gło- 
sem. Niezbyt miłym, ale zrozumiałym dla 
kogoś, kto zna któryś z tych języków. 

„Voice” tłumaczy zdania w wybranym z 
tych pięciu języków. Jego pamięć zawiera 
ponad 2 tys. prostych zdań stanowiących 
zazwyczaj podstawowy zasób tzw. roz- 
mówek dla turystów. Niedostatkiem tego 
zmyślnego urządzenia jest to, iż robi to 
tylko w jedną stronę. Nie można go naty- 
chmiast wykorzystać do przekładania od- 
powiedzi na język zrozumiały dla jego po- 
siadacza. Za to „Voice" ma płaski ekran, 
na którym można wyświetlać 16 wierszy 
tekstu w wybranym języku. 

Zdaniem prezesa firmy APT, Steve'a 
Rondela, natychmiastowe tłumaczenie w 
obie strony technologicznie jest całkiem 
realne. Lecz wówczas urządzenie byłoby 
zbyt masywne, by mogło służyć w wersji 
przenośnej, a poza tym kosztowałoby zbyt 
dużo. Obecnie ustalona cena — 1500 do- 
larów w Stanach Zjednoczonych — nie 
wydaje się zbyt wygórowana, a czas powi- 
nien sprzyjać rozwiązaniu problemów 
gabarytowych. 

Firma Sharp dla nieco innych celów ta- 
kie problemy już rozwiązała. Zbudowała 
mikrokomputer PC-1100, przy czym skrót 
PC nie oznacza Personal Computer, lecz 
Pocket Computer, czyli komputer kie- 
szonkowy. Łączy on w sobie funkcje mini- 


kalkulatora i podręcznej bazy danych. 
Mimo cech podręcznego notatnika i ter- 
minarza PC-1100 jest mniejszy od typowe- 
go kalendarzyka, jego wymiary bowiem 1 
wynoszą 14x8x1 cm. 

Wymienne karty pamięci RAM oraz 
możliwość programowania w uproszczo- 
nym języku Basic otwierają przed tym 
zminiaturyzowanym urządzeniem duże 
możliwości zastosowania. Miniekranik 
zbudowany z wyświetlaczy ciekłokrystali- 
cznych umożliwia wyświetlanie dwóch li- 
nii po 16 znaków w każdej. Specjalna 
funkcja przeszukująca dane umożliwia 
dostęp do ponad setki zapamiętanych na- 
zwisk i numerów telefonów. Wyszukane 
nazwisko wyświetlane jest w górnej części 
ekranu, inne dane w dolnej. PC-1100 
umożliwia również zapamiętanie innych 
informacji takich, jak czas odjazdów po- 
ciągów czy terminy spotkań. Do pamięci 
urządzenia można wprowadzić także 
wszystkie dane personalne właściciela. 
Wielostronność zastosowań ułatwiają 
wymienne karty pamięci RAM w pakie- 
tach 2, 4 lub 8 KB. 

Oprogramowane kalkulatory są partne- 
rem dla dużych komputerów, na przy- 
kład Atari lub IBM. W umysłach konstruk- 
totów zrodził się pomysł, by je udoskona- 
lić, wykorzystując do zapisu i edycji pro- 
gramów, dostępnych na kalkulatorze, ob- 
szaru pamięci komputerów personalnych. 
Jeden z nich, Atari ST ma zamkniętą stację 
dyskietek i ekran monitora mieszczący 


kilkadziesiąt liczb naraz. Ta zaleta skłoniła 
firmę Yellow Computing do wyproduko- 
wania przyrządu elektronicznego, który 
za pomocą programu „Transfile ST" 
umożliwia połączenie kalkulatora kie- 
szonkowego Sharp z wymienionym już 
komputerem. 

Ten interfejs przenosi dane i programy z 
kalkulatora do pamięci komputera. Przez 
to użytkownik może opracować niezbęd- 
ną informację i zapisać ją na dyskietce. 
Jednocześnie korzystać można z progra- 
mów pomocniczych dla Atari, niedostęp- 
nych na zwykłym kalkulatorze. Po opra- 
cowaniu w ten sposób danych uzyskane 
informacje można z powrotem przesłać 
do kalkulatora. Odbywa się to przy użyciu 
rozkazów Cload, Csave i Print przez wejś- 
cie Centronics, do którego podłączony 
jest interfejs. Zaletą tego urządzenia jest 
ominięcie zawodnej pamięci taśmowej i 
możliwość przeglądu zawartości wnętrza 
Sharpa. 

Czego to ludzie nie wymyślą. Entuzjasta 
komputerów z Sydney, Barry Tucker, 
wpadł na pomysł wydawania gazety bez... 
jej drukowania. Takie pismo, dotyczące 
gier liczbowych, sprzedawane jest na dy- 
skietkach. Nosi tytuł „Hazardzista" i prze- 
znaczone jest — na razie — na komputery 
Amstrad serii PCW. Jego cena wynosi 6,5 
dolara australijskiego, czyli prawie tyle 
samo, co normalne wydawnictwo tego ty- 
pu. Cena obejmuje również koszt zwrot- 
nej przesyłki. Klienci przysyłają swoje dy- 
skietki, a Tucker kopiuje na nich swój 
magazyn i odsyła czytelnikom. Liczba 
„czytelników" rośnie, kolejne „nakłady” 
mają coraz więcej odbiorców. 

j. RAJCH 
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Litery z kratek ponumerowanych od 1 do 24 utworzą 4 ter- 
miny związane z komputerami, które wystarczy podać jako 
rozwiązanie zadania przesyłając pod adresem redakcji na 
kartkach pocztowych w terminie do końca września (nakle- 
jając kupon „IKS-a".; Wśród autorów prawidłowych odpo- 
wiedzi rozlosujemy bony pieniężne i nagrody książkowe. 
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TEŻ 
KOMPUTERY 


Jerzy RAJCH 

Wydaje się, że nie ma końca za- 
stosowaniom komputera. Przed kil- 
koma laty amerykańska firma Intel 
wypuściła na rynek pierwszą bitową 
kostkę pamięci. Dzięki temu skons- 
truowana została karta zastępująca 
dowód osobisty, prawo jazdy lub 
każdy dokument tożsamości. Rzecz 
polegała na tym, że w obwód scalony 
sztywnej karty, czyli kostki pamięci, 
wpisywano wszelkie dane personal- 
ne. Plus takiej karty polega na tym, że 
dane nie dają się zniekształcić ani 
sfałszować. 

Zwiększenie pojemności pamięciowej 
kostki do 32 bitów — w perspektywie do 
64 bitów — doprowadziło do rozszerzenia 
zastosowań karty. Można już w niej zapi- 
sać nie tylko nazwisko, wiek i stan konta 
bankowego, ale także dane samochodu 
czy sposób otwarcia szyfrowanego sejfu. 
Taka utwardzona plastykiem wizytówka — 
znana w świecie jako „chipcard" — może 
być prawem do posiadania broni, ksią- 
żeczką zdrowia, legitymacją związkową i 
klubową, a nawet nie podrabianym klu- 
czem do domu czy samochodu. 

Aby wyposażyć obywatela w pamięcio- 
wy plastykowy dowód tożsamości, nie wy- 
starczy wyprodukować dla każdego kartę i 
wprowadzić do niej niezbędne dane. 
Trzeba jeszcze stworzyć do tego niezbęd- 
ny system, który zastąpiłby dotychczasowe 
metody zarządzania i rozliczeń. Robią to 
już niektóre zachodnie banki, gdzie 
wszelkie operacje księgowo-rozliczenio- 
we dokonywane są tylko w pamięci kom- 
puterów, a użytkownicy korzystają z nich 
za pomocą swych kart. Zdaniem futurolo- 
gów taka karta-wizytówka będzie nie- 
bawem do życia niezbędna i posiadać ją 
będzie dosłownie każdy. 

Inne zastosowanie komputera proponu- 
je amerykańska firma Advanced Products 
and Technologies. Już w tym roku zamie- 
rza sprzedawać przenośne urządzenia 
elektroniczne tłumaczące natychmiast 
mowę z jednego języka na drugi. „Voice" 

— bo tak nazywa się ów komputerowy 
tłumacz osobisty, waży niespełna 2 kg i za- 
silany jest z baterii. Gdy jego użytkownik ; ' 
powie coś, przykładowo po angielsku, [*? 
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Jak jubilat z jubilatem 

Rozmowa z dyrektorem Centralnej Składnicy Harcerskiej 
mgr. Wojciechem Szanterem. 


• Czy uważa Pan, że trzydzieści lat istnie- 
nia jest dla przedsiębiorstwa wiekiem doj- 
rzałym? 

— Trzydzieści lat, to z pewnością już da- 
leko posunięta dojrzałość. Dla przedsiębior- 
stwa handlowego każdy rok istnienia na 
rynku ma olbrzymie znaczenie. Umacniamy 
przecież swoje miejsce i mamy nadzieję — 
zdobywamy nowych klientów ... 

• Jeśli jest czym... 

— ...i gdzie. 

• To problem każdej firmy 

— Dla nas los byłłaskawy Kiedy w 1958 
roku Centralna Składnica Harcerska została 
wydzielona ze struktury spółdzielni „Społem" 
i rozpoczęła działalność jako samodzielna 
jednostka gospodarki uspołecznionej, fak- 
tycznie — nie mieliśmy nic. Wkrótce jednak 
ówczesny przewodniczący Rady Przyjaciół 
Harcerstwa, marszałek Marian Spychalski, 
przyczynił się do przeznaczenia na cele 
handlowe CSH znanego dziś budynku przy 
ul. Marszałkowskiej. I tak rozwinęliśmy dzia- 
łalność handlową. 

• Stając się z czasem monopolistą w 
sprzęcie i umundurowaniu harcerskim. 

— Nie tylko. Obok handlu prowadziliśmy 
od początku działalność produkcyjną. Na- 
sze zakłady wytwarzają artykuły politechni- 
czne. Oczywiście początkowo zajmowały 
się także przeróbkami sprzętu technicznego, 
pochodzącego z tak zwanego demobilu i 
przeznaczonego dla harcerzy 

• Podobno zatrudnialiście wtedy jedynie 
„złote rączki" do wszystkiego. 

— Rzeczywiście podzespoły techniczne 
obejmowały bardzo szeroki wachlarz wyro- 
bów, a ich „produkcja" była rzemieślnicza. 
Robiliśmy między innymi zabawki mechani- 
czne sterowane kablowo, mikrosilniki, sprzęt 
łączności... 

• / tak staliście się potentatem... 

— Nie. Tak się po prostu rozwijaliśmy. 


Rozszerzaliśmy działalność produkcyjną i 
rozbudowywaliśmy bazę handlową, dyspo- 
nując wkrótce trzydziestoma sklepami na 
terenie całego kraju. Nie mamy też szans 
być monopolistą. Tylko w zaopatrźeniu ZHP 
w umundurowanie jesteśmy jedyni. 

• / dlatego jest ono tak drogie? 

— Nic podobnego. Cena umundurowa- 
nia nie zależy od nas. Sprzedajemy uwz- 
ględniając jedynie koszt własny i marżę 
handlową, a ta nie zależy od nas. 

• To na czym zarabiacie? 

— Na sprzęcie. 

• Ale teraz jakby go więcej było w skle- 
pach CSH. 

— To efekt importu, głównie z NRD. Tę 
współpracę rozpoczęliśm y . w latach sześć- 
dziesiątych. Sprowa< ff ' a]gm v artykuły tech- 
niczne, a przede wffystlflm sprzęt modelar- 
ski, narzędzia, mikronapędy. Mniejsze szan- 
se mamy na rozwinięcie eksportu, a przy- 
czyna jest prozaiczna — brak producentów. 

• Importowany sprzęt jest bez wątpienia 
atrakcyjny, podobnie jak i jego cena... 

— Jakość kosztuje. Ale mamy i tańszy, 
na przykład obok narzędzi do obróbki drew- 
na firmy Blacken-Decker wyroby z CELMY. 

• Pojawiające się niczym meteoryty... 

— Bo są niezłe i tanie. Zresztą nie jest ich 
tak mało — sprzedajemy przecież 25—30 
proc. produkcji tej firmy. Prowadzimy rów- 
nież w dziewięciu punktach w kraju serwis 
narzędzi przez nas sprzedawanych. 

• A jeśli towar nie idzie... 

— Tak bywa. Wtedy obniżamy ceny i to 
znacznie, jak na przykład w wypadku nart. A 
jest to przecież sprzęt dobry. Na przecenie 
nie tracimy. Przeciwnie, uwalniamy zamro- 
żony kapitał. . Przecież handel polega na 
obrocie kapitałem. 

• Chyba nie zawsze jest to łatwe? 

— Nie przeżywamy kryzysu. 


• A na '"początku lat osiemdziesiątych?^ k 

— W 1982 roku mieliśmy 2,8 mld obrojL; 

w 1 988 realne jest osiągnięcie 22 mld! ■ " 

• Uwzględniając dewaluację... 

— Każdy rachunek daje pokaźny plus po 
naszej stronie. 

• To wynik ekonomiczny, ale równię ż'* 
rozszerzacie swoją ofertę o sprzęt kompute- 
rowy. 

— Od 1985 roku najpierw w Warszawie:) 
a później w innych miastach (w sumie Węfrj 
sklepach) sprzedajemy komputery i osprzę^. 
Naszym celem było dostarczenie na polski ^ 
rynek taniego, a tym samym dostępnego r 
mikrokomputera. 

• Timexa, bardzo krytykowanego za 
jego stosunkowo małe możliwości... 

— Ale to nie przeszkodziło w sprzedaniu 
18 000 egzemplarzy tego modelu. 90 pro- 1 
cent Timexa kupiło ówczesne Ministerstwo 
Oświaty i Wychowania i kluby Młodych Mi- 
strzów Techniki. A poza tym Timex miał za- 
sadnicze dwie zalety: po pierwsze był zgod- 
ny z bardzo popularnym Spectrum, a po 
drugie i najważniejsze — po prostu był. 

• Do dzisiaj nie doczekaliśmy się nato- 
miast mikrokomputera z prawdziwego zda- 
rzenia, przeznaczonego dla szkół... 

— ...a bardzo chętnie byśmy nim han- 
dlowali. 

• Tymczasem, zamiast wyrobów z 
ELWRO na półkach w CSH gości firma 
PROSYSTEM. 

— I jak dotąd ten sprzęt sprzedaje się 
dobrze, choć komputery do najtańszego to- 
waru przecież nie należą. W 1987 roku, 
sprzęt komputerowy dał nam obrót 8 mld. ,. 

• Przy takim obrocie pracownikom po-, 
wodzi się chyba dobrze . . 

— Średnie zarobki wynoszą 36 tysięcy, 
ale są oczywiście zróżnicowane. Spośród 
1 800 pracowników 350 pracuje w produkcji. 
Poza tym naszym celem nie jest maksyma- 
lizacja zysku — chcemy być dla młodzieży 
atrakcyjni, dlatego szkolimy załogę, inwestu- 
jemy, zabiegamy o towary innowacyjne... 

• / tylko takich życzę w całym następnym 
trzydziestoleciu istnienia. 

Dziękuję za rozmowę. 

Wiesław CETERA 
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Dyrektor Wojciech Szanter przekazał redakcji komputer SVI-738 — sprowadzany 
do kraju przez firmę Prosystem i sprzedawany w sklepach Centralnej Składnicy 
Harcerskiej. 


Informatyka w medycynie 

Czy ryzyko zapadnięcia na chorobę serca jest większe u osoby 
prowadzącej higieniczny tryb Życia, ale obciążonej genetycznie 
skłonnością do takich właśnie dolegliwości, czy też w wypadku 
osoby nie przestrzegającej wprawdzie zasad racjonalnego odżywia- 
nia i aktywnego wypoczynku, wolnej jednak od genetycznych 
obciążeń? Próby oceny rzeczywistej skali ryzyka z uwzględnieniem 
wszystkich realnych przyczyn zagrożenia wydają się tak trudne, że 
z pomocą może przyjść tylko... komputer! 

Nikogo już dziś nie zaskakuje wykorzy- |i* 
stanie komputerów w medycynie Pow- • fm , * 


szechnie stosuje się je przy przeprowadza- 
niu i analizie różnego rodzaju badań i te- 
stów. Okazuje się jednak, że na tym nie 
kończą się ich możliwości Ostatnio pojawiły 
się próby spożytkowania techniki kompute- 
rowej do opracowywania indywidualnych 
ocen statystycznego stanu zagrożenia 
zdrowia. 

Najpierw trzeba odpowiedzieć na sto py- 
tań dotyczących trybu i warunków życia, 
chorób występujących w rodzinie, wyników 
badań medycznych. Odpowiedzi wprowa- 
dzone są do pamięci komputera, który dy- 
sponuje także danymi na temat stopnia 
umieralności i stanu epidemiologicznego. 
Korzystając z tych wiadomości, maszyna 
stawia diagnozę w postaci wydruku kompu- 
terowego. Zawiera on ogólną ocenę stanu 
zdrowia — bardzo dobry, dobry, słaby — 
oraz określenie „wieku zdrowotnego" w po- 
równaniu z wiekiem rzeczywistym. Wydruk 
przedstawia także indywidualne ryzyko za- 
chorowania w porównaniu z przeciętnym 
zagrożeniem daną chorobą wśród osób tej 
samej płci i tego samego wieku. Może też 
udzielić wskazówek, co robić, aby zdrowiej i 
dłużej żyć, 

Wiele amerykańskich przedsiębiorstw — 
wśród nich również te największe, jak Ford 
czy IBM — wykorzystuje komputerowe 
diagnozy do określenia stanu zdrowotności 
załogi, co z kolei służy jako podstawa do 
opracowywania planów ochrony zdrowia 
zatrudnionych. 

Środowisko lekarskie niechętnie jednak 
korzysta z usług elektronicznych „kolegów". 
Składa się na to kilka przyczyn, Nie chodzi 
tu bynajmniej tylko o pracochłonność 
wszystkich czynności związanych z przepro- 
wadzeniem bardzo dokładnego i szczegó- 
łowego wywiadu oraz wprowadzeniem go 
do pamięci komputera. Istnieją także inne, o 
wiele chyba istotniejsze powody. Naukowe 
podstawy takich ocen nie wydają się zupeł- 
nie sprawdzone. W przypadku niektórych 
chorób z całą pewnością potwierdzono ne- 
gatywny wpływ czynników mogących je wy- 
woływać. Jest tak chociażby z rakiem płuc 
czy chorobami serca, chorobami związa- 
nymi z paleniem papierosów Jednakże in- 
formacje dotyczące ewentualnych powią- 
zań potencjalnych czynników chorobotwór- 
czych, ze wskaźnikiem zapadania na inne 
dolegliwości, są już daleko mniej precyzyj- 
ne. 

Komputerowe oceny opracowywane są 
przy wykorzystaniu danych statystycznych, 
a statystyka — jak powszechnie wiadomo 
— lubi kłamać. Podobnie jest i w tym wy- 
padku. Obraz statystyczny uzyskany w wy- 
niku badania dużej grupy w niewielkim tylko 



Foto: „U.S. News and World Report’ 


stopniu może być wykorzystany do nakreś- 
lenia wizerunku indywidualnego pacjenta, 
odznaczającego się jedynym, jemu tylko 
właściwym kodem genetycznie uwarunko- 
wanych mocniejszych i słabszych cech. To- 
też komputerowa diagnoza jest raczej tylko 
ogólną, przybliżoną informacją na temat 
stanu zdrowia i możliwych rokowań na przy- 
szłość. Zdaniem Edwina Hutchinsa, dyrek- 
tora uniwersyteckiego centrum w Atlancie, 
prowadzącego badania nad programem 
komputerowych diagnoz, ocena taka po- 
winna być traktowana jako zbiór wskazówek 
oardziej co prawda wiarygodnych niż wróż- 
by i horoskopy, ale nie pretendujących w 
żadnym wypadku do dokładnego i ścisłego 
przepowiadania przyszłości. 

Częste są przecież przypadki, że ludziom 
nie dbającym zupełnie o swoje zdrowie, bez 
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Poznawaniem tajników gaszenia 
ognia postanowili zaj ad sle uczeni z 
Uniwersytetu w Tibilisi. W tym celu 
nie rozniecano jednak próbnych 
pożarów. Radzieccy uczeni do 
odpowiedzi na nurtujące ich pytanie 
wykorzystali komputer. Wpisali do 
zaprogramowanego "polaru" umowne 
cząsteczki związku o Średnicach 
rządu kilkudziesięciu mikronów, 

będące odpowiednikiem proszków 


umiaru korzystającym z uciech życia, dopi- 
suje zdrowie i dożywają długich lat. Zdarza 
się także, i to wcale nierzadko, że stosun- 
kowo młodo umierają osoby, które — jeśli 
by sądzić z ich trybu życia — powinny żyć o 
wiele dłużej. Poza tym informacje kompute- 
ra mogą być mylnie interpretowane. Pięć- 
dziesięciolatek palący dwie paczki papiero- 
sów dziennie może odczytać ze swojego 
wydruku, że w jego wypadku ryzyko za- 
chorowania na raka płuc jest dziesięć razy 
większe w porównaniu z przeciętnym zagro- 
żeniem tą chorobą; elektroniczny „diagno- 
styk" nie powie już jednak, iż nie każdy pa- 
lacz musi na pewno zachorować i że rak płuc 
rozwija się nie częściej niż u jednego z 
dziesięciu palaczy. 

Należy jeszcze zwrócić uwagę na jeden 
niebezpieczny aspekt całego tego przed- 
sięwzięcia. Otóż może się okazać, że czło- 
wiek zupełnie zdrowy, nie zagrożony żadną z 
ciężkich chorób, otrzyma diagnozę niezbyt 
dla niego pomyślną. Może to zostać spowo- 
dowane na przykład niedokładnym, czy nie- 
pełnym wywiadem, nieznajomością rodzin- 
nych obciążeń genetycznych, czy wreszcie 
fałszywą interpretacją danych statysty- 
cznych, o co przecież nie tak trudno, Szkody 
powstałe w takim wypadku są trudne do 
przewidzenia. Pacjent nie tylko traci dobre 
samopoczucie, ale lęk spowodowany świa- 
domością bliskiej choroby. n znacznym 
stopniu wpływa na obniżer • iego kondycji, 
zarówno psychicznej, jak ‘ znej, co mo- 
że doprowadzić do znar . nawet utraty 
odporności organizmu i •• onsekwencji 
— choroby, a nawet śmi< ■ Prawdopodo- 
bieństwo tak skrajnego przypadku nie jest 
wprawdzie duże, ale zawsze należy się li- 
czyć z takim niebezpieczeństwem. Podsta- 
wową zasadą medycyny jest przecież „po 
pierwsze — nie szkodzić", toteż wszystkie 
czynniki mogące w najmniejszym nawet 
stopniu przyczynić się do osłabienia kondy- 
cji pacjenta powinny zostać wyeliminowane. 

Oprócz wyżej wymienionych wątpliwości, 
nasuwa się jeszcze jedna. Nauka rozwija się 
w niezwykle szybkim tempie Ośrodki pro- 
wadzące badania nad przyczynami różnych 
chorób opracowują wciąż nowe programy, 
służące do wykorzystania przy komputero- 
wych diagnozach. Przyszłe osiągnięcia w 
dziedzinie genetyki i biochemii w połączeniu 
z dokładnym określeniem wpływu warun- 
ków życiowych, zaowocują z pewnością du- 
żymi sukcesami na tym polu. Jednakże w 
miarę wzrostu dokładności i trafności ocen, 
trzeba sobie zadać pytania: jak dużo tak na- 
prawdę chcemy wiedzieć? Jaki margines 
zostawić dla nadziei? 

Małgorzata NOWOTNY 
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gaśniczych. W wyniku operacji 
symulacyjnych otrzymano odpowiedź, 
według której płonący w powietrzu 
metan gaszony Jest wskutek 
zacl lodzących reakcji chemicznych 
węglowodorów z cząsteczkami soli. 
Natomiast czysty wodór okazał sie 
nadzwyczaj podatny na termiczny 
kontakt z substancją gaśniczą. Tak 
wiec t.o w jaki sposób gaszony Jest 
pożar zależy przede wszystkim od 
rodzaju płomienia. 
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mstr^d 


W szponach A tar i (,7) 



Kulki 


10 GOTO 430 
20 n-2 

30 Dirl « (n> i DIM y«n)iDIM *<n>iDIM b(n) 

40 GOSUB 370i ■■INT<TIME.'300> ip-0tz-20i V" 
12 

50 N0VE 10, Bi DRAWR 0,T78 iDRAWR 618, Ol DR 

AWR O , —378 i DRAWR -618,0 

60 GOBUB 310 

70 FOR 1-1 TO n 

BO LOCATE k ( 1 ) , y <1 > iPRINT " "i 

90 m (1 >-K <1 >+*<1 ) iy <1 )-y (1 >+b<l> 

100 LOCATE K Cl.) ,y<i > iPRINT CHP*<231>| 

110 IF x (1 > <-2 OR x < 1 > >-39 THEN ■ (!>—•( 
1 ) 

120 IF y <1 )<-2 OP y < i > >-24 THEN b<l)— b< 
1 ) 

130 IF k(1)-z AMD y < i > -v THEN 240 

140 IF m( 1 >-18 AND y < ł > < 20 AND y(l>>6 TH 

EN »<1 )—•.(!) 

130 IF .Ml >-24 AND yllKti AND yd>>3 TH 
EN «d>— «d> 

160 BOUND l,n d > «y d > ,3,3 

170 IF INKEY (71 ) -O AND z>-3 THEN GOSUB 2 

90i z-z-1 

180 IF INKEY ( 63 > -O AND *<-38 THEN GOSUB 
290i*-*+l 

190 IF INKEY <29) -O AND v>-3 THEN GOSUB 2 
90 i v-v-l 

200 IF INKEY <31 > -O AND v<-23 THEN GOSUB 
290iv-v+l 

210 LOCATE 3 , vi PPINT CHP*<249>| 

220 NEXT 
230 GOTO 60 

240 FOR k-239 TO 60 STEP -30 

230 80UND 3,|i,10iNEXX 

260 FOR 1-1 TO 100 

270 INK O, 9, 24 l NEXT| INK 0,1 

280 GOBUB 370i p-p-M I CLSl GOTO 30 

290 LOCATE * , v i PR I NT " *' | l 80UND 3,300,1, 

, , 13 

300 RETURN 

310 t-INT<TIME/300)-»i LOCATE 6,1 
320 IF t>-100 THEN 330 
330 PPINT .ti LOCATE 33,liPPINT p 
340 RETURN 

330 LOCATE IS.llPPINT "KONIE C" 

360 FOR 1-1 TO 3000ł NEXT i RUN 
370 FOR 1-1 TO n 

380 ti d > - 1 NT < RND* 1 00 > i I F »d><5 OR xd>> 
33 THEN 330 

390 y <1 1 - INT łPND* 100) i IF y<l><5 OP yd>> 

20 TH EN 3 90 _ . . 

' 4i55“lF .. Tl > -20 AND y <1 > -12 THEN 380 
410 ad >-libd > — 1 
420 NEXTi RETURN 

430 CLSi LOCATE 14,llPRINT "KULKI 
" i l LOCATE 20,12 
440 PPINT CHP* (249) 

430 LOCATE 20,3lPRINT "*" 

460 LOCATE 20, 19iPRINT 
470 LOCATE 13,12lPRINT "*" 

480 LOCATE 27,12iPRINT "m" 

490 MOOE 310,228i DR AWR 0,92 
500 MOVE 310, 204 i DRAWR 0,-87 
SIO MOVE 297,2131 DRAWR -80,0 
320 MOYE 320,212l DRAWR 89,0 
530 TAG i FOR w -620 TO 30 STEP -20 
340 MOVE li, 20l PPINT •• START 
SPACJA "1 

530 SOUND l.ii.lO 
560 NEXT 

570 SOUND 1,30,100 

380 IF INKEY* <> CHR*<32> THEN 580 

390 MODĘ li RUN 20 


c.s 


Podczas tworzenia programów musimy 
pamiętać, że korzystać z nich będą zwykle 
ludzie mający niewielkie doświadczenie in- 
formatyczne Wymaga to zastosowania pro- 
stych i przystępnych metod komunikowania 
się z programem. Obsługa programu po- 
winna być tak prosta i wygodna, aby każdy 
mógł się nim posługiwać po krótkim trenin- 
gu. W tym celu powinien on spełniać nastę- 
pujące warunki: 

— wyświetlać na ekranie wykaz funkcji, 
które może zrealizować, w postaci menu, 

— komunikować się z użytkownikiem na 
zasadzie dialogu, sprawdzać poprawność 
wprowadzanych danych i poleceń, 

— wyświetlać ^jel^Afii^^żystkie in- 
formacie potrzebnfe 'użyiXÓW' n ił<om, 

— podpowiadać, na życzenie, jakie 
czynności należy wykonać, aby zrealizować 
określone zadanie. 

Interesującym i efektownym środkiem 
prezentowania na ekranie dodatkowych in- 
formacji, różnorodnych objaśnień i podpo- 
wiedzi jest technika okien Przez pojęcie 
okna rozumiemy wyróżniony fragment 
•'kranu przeznaczony do wyświetlania 
-leślonych informacji. Okna mogą być 
worzone w dowolnych miejscach ekranu, 
•ieć różne rozmiary, być umieszczone 
Dok siebie, albo zasłaniać się częściowo 
.t> całkowicie. W każdej chwili mogą być 
jnięte z ekranu, na którym pojawia się 
, 'przednio jego zawartość. 

Jeśli ktoś z czytelników nie widział jeszcze 
używania okien, stosowanych powszechnie 
w komputerach profesjonalnych, to nic 
straconego. Prezentowane programy de- 
monstracyjne nie tylko pokażą, jak to wy- 
gląda, lecz także umożliwią tworzenie okien 
we własnych programach. 

Zdajemy sobie sprawę, że najlepszy opis 
>'ie zastąpi najmarniejszego pokazu. Musi- 
ny jednak krótko opisać, jak wygląda uży- 
wanie okien, zanim omówimy, na czym po- 
lega ich realizacja. 

Z punktu widzenia użytkownika wygląda 
to następująco. W wybranym miejscu ekra- 
nu wyświetlany jest wyróżniony komunikat, 
nkiedy obramowany stosowną obwódką. 
Osłania on informacje tekstowe lub grafi 
.•ne. istniejące w tym obszarze ekranu Na 
..Mo nie ma w tym nic interesującego. Po- 
: ony efekt można uzyskać środkami do- 
'ypnymi w języku BASIC. Najciekawsze' 
iwma się dopiero w chwili usuwania 
-ma, W jego miejsce pojawia się poprzed- 
i zawartość ekranu 

W celu uzyskania takiego efektu musimy 
iziałać bezpośrednio na obszarze pamięci 
kranu. Dlatego dokładnie musimy określić 
; > łożenie okna nie we współrzędnych ekra- 
, lecz w terminach przesunięcia (liczby 
\\\()! n ) początku okna (lewego górnego ro- 
względem początku obszaru pamięci 
*ranu. Musimy również podać liczbę ko- 
mnn i wierszy zajmowanych przez okno. 

Procedura tworzenia (otwierania) okien 
musi realizować następujące czynności: 
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— przechować, w zmiennej tekstowej, 
zawartość komórek pamięci obszaru ekra- 
nu, w którym będzie umieszczone okno, , 

— przepisać zawartość innej zmiennej 
tekstowej, przechowującej treść komunika-' 
tu umieszczonego w oknie, do wskazanego 
obszaru pamięci ekranu. 

Dodatkowo musi ona wykonać jeszcze 
jedną, niewidoczną funkcję. Należy przeko- 
dować znaki, przechowywane w zmiennój 
tekstowej, z kodu ATASCII na kod wewnę- 
trzny. Tylko w takiej postaci dadzą one czy- 
telny tekst na ekranie. 

W celu utworzenia okna musimy określić,, 
następujące parametry: 

— położenie okna (lewy górny róg), 

— wymiary (poziomy i pionowy), 

— zawartość 

Następnie należy przechować zawartość 
obszaru pamięci ekranu, która będzie zakry- 
wana przez okno. Kolejnym krokiem jest 
umieszczenie w tym obszarze pamięci, po. 
uprzednim przekodowaniu, zawartości okna,' 1 
którą przygotowaliśmy w zmiennej teksto- 
wej. 

Otwieranie kolejnego okna odbywa się w 
identyczny sposób. Usuwanie okna z ekra- 
nu (zamykanie) powoduje tylko odtworzenie 1 
poprzedniej zawartości używanego obszaru 
ekranu. Może to być początkowa zawartość 
ekranu, zawartość wcześniej utworzonego 
okna lub obie. 

W przypadku tworzenia na ekranie wielu 
wzajemnie zasłaniających się okien należy, 
pamiętać o właściwej kolejności ich za- 
mykania, odwrotnej do otwierania. 

Opisane czynności mogą być wykonane 
za pomocą procedury napisanej w języku 
BASIC, lecz czas jej realizacji może znie- 
chęcić nas do używania okien. Dlatego naj- 
lepiej napisać ją w języku wewnętrznym 
komputera. 

Program nr 1 zawiera dwie procedury w 
języku maszynowym. Pierwsza z nich, 
umieszczona w zmiennej tekstowej OTW$, 
służy do otwierania okna na ekranie. Reali- 
zuje ona następujące funkcje: 

— wyznacza obszar ekranu przeznaczo- 
ny na okno, 

— przechowuje jego zawartość w wy- 
znaczonym buforze, , 

— przekodowuje symbole umieszczone 
w oknie z kodu ATASCII na kod ekranu i 
umieszcza je w obszarze pamięci ekranu 
przydzielonym dla okna. 

Sposób wywołania procedury tworzenia 
okna jest następujący 

X = USR(ADR(OTW$),A,S,W, 
ADR(BUF$),ADR(0$)) 
gdzie: OTW$ — zmienna tekstowa zawiera- 
jąca procedurę w języku maszynowym, 

A — adres lewego górnego -rogu okna; 
adres bezwzględny komórki pamięci okreś- 
lającej ten róg, 

S — szerokość okna w bajtach, 

’ W — wysokość okna w liniach, 
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BUF$ — zmienna tekstowa służąca do 
przechowania zawartości obszaru ekranu 
zakrywanego oknem, 

0$ — zmienna tekstowa zawierająca in- 
formacie wyświetlane w oknie. 

Wielkości zmiennych tekstowych BUF$ i 
0$ muszą być jednakowe i nie mniejsze od 
liczby bajtów umieszczanych w obszarze 
okna, Nie ma żadnych ograniczeń na wiel- 
kość okna. Może ono zajmować nawet cały 
ekran. 

Druga procedura w języku maszynowym, 
umieszczana w zmiennej tekstowej ZAM$, 
służy do zamykania okna. Realizuje ona na- 
stępujące funkcje: 

— wyznacza obszar ekranu przeznaczo- 
ny na okno, 

— odtwarza poprzednią zawartość tego 
obszaru na podstawie danych przechowy- 
wanych w zmiennej tekstowej. 

Sposób wywołania tej procedury jest na- 
stępujący: 

X=USR(ADR(ZAM$),A,S,W,ADR(BUF$)) 

gdzie: ZAM$ — zmienna tekstowa zawiera- 
jąca procedurę w języku maszynowym, 

A — adres bezwzględny lewego górnego 
rogu okna, 

S — szerokość okna w bajtach, 

W — wysokość okna w liniach, 

BUF$ — zmienna tekstowa, w której prze- 
chowywana jest zawartość obszaru ekranu 
zakrywanego oknem, 

W omawianym programie przedstawiony 
jest sposób przygotowania zawartości okna 
oraz dwa sposoby wywołania go na ekran. 
Za' pierwszym razem za pomocą klawisza 
(HELP), za drugim poprzez wybranie odpo- 
wiedniej litery. Zamykanie obu okien nastę- 
puje po naciśnięciu (HELP). Proszę zauwa- 
żyć, że w celu zachowania pierwotnej za- 
wartości ekranu w postaci niezmienionej, 
należy przestrzegać właściwej kolejności 
zamykania okien oraz używania tych sa- 
mych zmiennych przechowujących zawar- 
tość obszaru ekranu zakrywanego oknem. 

Charakterystyczną cechą prezentowa- 
nych procedur jest używanie dwóch. odręb- 
nych obszarów. Jednego do przechowywa- 
nia zawartości wyświetlanego okna i dru- 
giego do przechowywania zawartości ob- 
szaru ekranu zakrywanego oknem. 

Proszę pamiętać, że obie procedury 
umożliwiają otwieranie i zamykanie okien 
tylko w trybie tekstowym (najlepiej GRA- 
PHICS 0). 

Przedstawione powyżej rozwiązanie nie 
jest jedynym sposobem tworzenia okien na 
ekranie. Poniżej prezentujemy inne. Umoż- 
liwia ono, podobnie jak poprzednie, zdefi- 
niowanie okna o zadanej wielkości i umie- 
szczenie go w dowolnym miejscu ekranu. 
Po przydzieleniu tekstu do zmiennej, to zna- 
czy określeniu zawartości okna, następuje 
wymiana zawartości ciągu z wybranym ob- 
szarem pamięci ekranu. W tym celu należy 
wywołać dwa podprogramy w języku ma- 
szynowym. Pierwszy z nich dokonuje kon- 
wersji znaków z kodu ATASCII na kod wew- 
nętrzny, a drugi dokonuje wymiany. 

Powyższy sposób wykorzystany został w 
programie nr 2. W pierwszej kolejności 
umieszcza on procedurę konwersji w 
zmiennej tekstowe) C$. Kody znaków przed i 


po konwersji przechowywano są w tym sa- 
mym ciągu. Jeśli będzie to zmienna o na- 
zwie D$, to wywołanie procedury kontro- 
wersji ma następującą postać: 

X=USR=(ADR(C$),ADR(D$)) 
Druga procedura, która dokonuje wymia- 
ny zawartości wybranego obszaru ekranu, 


Uwasa' Litery z lewej strony 
numerów linii nie są części a 
proaramu, lecz sumą kontrolną, 
ułatwiającą wprowadzenie programu 
za pomocą Edytora BASIC'' u (IKS nr 
4 z 1987 roku). Znak i , które są. 
podkreślone; należy wprowadzić .w 
negatywie. Znaki wypisane drukiem 
rozszerzonym należy wprowadzić z 
wciśniętym klawiszem CONTROL. 

FK 1 REM **************** 

FJ 2 REM * * 

XA 3 REM * Program nr 1 * 

FL 4 REM * * 

FQ 5 REM **************** 

NL 6 REM 

XN 10 DATA 104;104,133;204;104,13 
3; 203; 104; 104; 133; 205; 104; 104; 
170; 104; 133; 207; 104; 133.-206; 10 
4;133;209;10*;,133;208 
FX 20 DATA 160.-0; 177; 203; 145; 206; 

1 77 ; 208 ; 72 ; 4 1 ; 1 26 ; 1 33 ; 2 1 0 ; 104; 
41; 127; 201; 32; 176; 4; 105; 64; 144 
; 7 ; 20 1 ; 96 ; 1 76 ; 3 ; 56 ; 233 
RO 30 DATA 32;5;210; 145;203;200; 1 
96; 205; 144; 218; 24; 1 65 ; 203 - 105; 
40; 133; 203; 165;204; 105;0; 133;2 
04; 24; 165; 206 

AA 40 DATA 101 ; 205; 133; 206; 165; 20 
7; 1 05 ; 0 ; 133;207;24; 165;208; 101 
; 205; 133; 208; 165; 209; 105; 0; 133 
; 209; 202; 16; 174; 96; “1 
NB 50 DATA 104; 104; 133; 204; 104; 13 
3; 203; 104; 104; 133;205; 104; 104.- 
170; 104; 1 33 ; 207 ; 104; 133;206; 16 
0 ; 0 

AG 60 DATA 177; 206; 145; 203; 200; 19 
6; 205; 144;247;24; 165;203; 105;4 
0; 1 33 ; 203 ; 165;204; 105;0; 133;20 
4; 24; 165; 206; 101 

FN 70 DATA 205; 133; 206; 165; 207; 10 
5;0; 133; 207 ; 202 ; 16;216;96;~1 
NA 100 DIM OTW*(109);ZAM*(61);E$< 
1) 

AS 110 FOR 1 = 1 TO 200 1 READ A 'ON < 
A*-l ) GOTO 120'OTWtCI; I)»CHR*< 
A) 1 NEXT I 

VC 120 FOR 1=1 TO 200 'READ A'ON ( 
A=-l) GOTO 130ZAM*(I; I)=CHR$( 
A)'NEXT I 

OC 130 ADRE=PEEK < 88 ) +256*PEEK < 89 ) 
SS 140 O 1 =ADRE+5+5*40 
IK 150 02»ADRE+1 0+1 0*40 
BU 160 DIM 0 1 * ( 200 ) ; 02* ( 200 ) ; BUF 1 
*0200) ;BIJF2$( 200) 

PF 200 01*(1;7>« 

HZ 204 01»(8;14) = "R RRF 

MV 208 Ql*(l5;20)» fe "" 

JI 210 Ol»(21;40)«" I WYKAZ KOMĘ 

tiŁ L" 

QI 220 01*<41 ; 47> = "i 

DO 224 01*(48;54) = "l 

PJ 228 O1*(55;60) = " RRRRRC ' 

MI 230 Ol*(61;80)» ,l l AaD od aJ C«Z 

dian ' “ 


LX 290 O2*<61/80)-"JIthit_UŁil*nl. 
a jacy I " 

RK 308 02* (81 ; 100)=" I działanie k 

.. DODAJ. 


GY 310 02* (101; 1 20 ) ** 11 ]_ 


ZG 240 Ql*(81; 1 00 ) = " I D=K*su j E* 
Koniec! 11 

JA 250 Oliaei; 120) = " I P=Druku.i H 
■Pomoc I " 


XF 255 01*( 121 ; 127) 1 
TJ 257 01*( 128; 134)' 

RH 258 O1*(135;140)="RR 
PX 260 Q2»(l,7)a'' Q_RRR 
IR 264 02*(8;14>»' 7 “ 

NN 268 O2*(15;20> 

EG 270 O2*(21;40>® 


RA 28002* (41 ; 47)=' 
EG 284 02*(48; 54)=' 
GB 288 02*(55; 60)=' 



_L" 


EK 320 02*( 121 ; 127)= 

TB 324 02«(128;134)a ,, RRRR 
SG 328 02*( 135; 140) = " RRFj»feRE> " 

YP 330 02<(141;147)-'' ZRRRRRR " 
UZ 334 02* ( 148; 154)«'' RRRRRRR '' 
TG 338 02*055; 160)»'' RRRRRC " 

SK 1000 POSITION 0; 0 : IF PEEK(732> 
017 THEN 1000 
NQ 1805 POKE 732; 0 
PD 1010 X=USR ( ADR <OTW*)/O1;20;6;A 
DR(BUF1* i ; ADR<01*)> 

TY 1020 INPUT E*'IF E*<>"A" THEN 
2000 

UN 1030 X=USR(ADR(OTW*);O2;20;7;A 
DR(BIJF2*),ADR(02*)> 

XG 1040 IF PEEK(732) 0 17 THEN 104 
0 

HD 1050 POKE 732 ; 0 ' X=USR ( ADR ( ZAM* 
);O2;20;7;ADR(BUF2*>) 

YT 2000 X»IJSR<ADR(ZAri*),Ol;20;6.-A 
DR(BUF1*)) 

MS 2010 GOTO 1000 


FK 1 REM **************** 

FJ 2 REM * * 

w i m i Pro,r ** nr 2 i 

FO 5 REM **************** 

NL 6 REM 

MX 100 GRAPHICS 0 ' POKE 752;1'JA=1 
20 

CK 110 DIM A* ( 96 1 ) ; D* ( 1 1 3 ) ; B* < 24 1 
>;W*(116);C*(61) 

FT 120 ? ■? "WCZYTANIE W*" 'FOR 1= 
1 TO 116 'READ IT'W*(I; I)=CHR*( 
IT) ' NEXT I 

LU 130 ? '? "WCZYTANIE C*"’FOR 1= 
1 TO 61 'READ IT'C*(I;I)»CHR*(I 
T)'NEXT I 

GZ 140 A*-"."'A#(960)=Af'A*(2)»A* 
1 A*(961 )=CHR*(0) 

PE 156 A*(131; 154)=" Program de 
monstruJe " 

HC 160 Aś( 171 ; 194)="sposob tworze 
ni* okien " 

CS 170 D*= "*************** 

fl **moga pokazać** co chce 
iz. ** 

UE 180 D*(63; 113)*"i ** £ 

DZIE ** chcesz ********* 
******" 

IA 190 B*= " ' B$ ( 240 ) «BŚ > B* ( 2 ) =B* 

' B* ( 24 1 ) =CHR* ( 0 ) 

XV 200 B*(35;55)=" Podprogramy te 
można " 

JD 210 B*(92; 119)="uzyw*c w tryba 
ch tekstowych" 

UU 220 Bf(155;176) = "Qk.M MG Ił 


HK 230 B*( 184; 208)= 
scu ekranu." 

AO 240 GRAPHICS 0'POKE 752; 1'? 

WF 250 X=USR ( ADR ( Ct ) • ADR ( A* ) ) 

YY 260 X=USR ( ADR ( C* ) ; ADR ( D* ) ) 

XG 270 X=U3R ( ADR ( Cf ) ; ADR ( B* ) ) 

CC 280 SOUND 0 ; 0 ; 2 ; 2 ' GOSUB 370 'GO 
SUB 340 

FI 290 SOUND 0; 2; 2; 2 'GOSUB 340) GO 
SUB 370 

FW 300 IF LG*0 THEN LIST 470; 670' 
LG=1 

PE 310 LICZ“LICZ+1 ' IF LICZ>=4 THE 
N GOSUB 380 'GOSUB 390 'GOSUB 38 
0 ' JA= 1 0 

DL 320 IF LICZ.W THEN GRAPHICS 0 
'? '? "KONIEC PRACY" 'END 
PI 330 GOTO 280 
ZE 340 IF JA=10 THEN L=41 
BR 350 IF JA=120 THEN L=39 
XE 368 X»USR(ADR(Wś) ; ADR<D$) ; 412; 

8; 14; L) 'GOSUB 390 RETURN 
CC 370 X=USR(ADR(W*);ADR<A*);0;24 
; 40; 40) 'GOSUB 390 'RETURN 
FG 380 X=USR (ADR (W*); ADR < B* ) , 285 , 
_ 8a3 0 a4 0 2 1 390 'RETURN 

DP 390 POKE 540, JA ' SOUND O; 0,0,0 
WY 400 IF PEEK < 540 ) THEN 400 
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GG 420 DfiTft 104, 104/ 133,. 206, 104, 1 
33,205 

SG 430 DATA 104, 141, 1,6, 104, 141,0 
SO 440 DATA 6,104,133,208,104,133 
,207 

LH 450 DATA 104,104,133,209,104,1 
41,3 

HG 460 DATA 6,104,141,2,6,165,88 
AD 470 DATA 133,203,165,89,133,20 
4,24 

RF 480 DATA 165,203,109,0,6,133,2 

03 

TZ 490 DATA 165,204,109,1,6,133,2 

04 

Al 500 DATA 160,0, 177,203, 170, 177 
,205 

GB 510 DATA 145,203,138,145,205,2 
00, 196 

LI 520 DATA 209,208,241,169,0,198 
,207 

KF 530 DATA 197, 207, 208, 6, 197, 208 
,240 

SB 540 DATA 30,198,208,24,152,101 
,205 

CL 550 DATA 133,205,144,3,230,206 
,24 

SU 560 DATA 165,203,109,2,6,133,2 

03 

VO 570 DATA 165,204,109,3,6,133,2 

04 

MZ 580 DATA 24,144,197,96 
MF 590 DATA 104,104,133,204,104,1 
33,203 

KA 600 DATA 160, 0, 177, 203, 170, 201 

,0 

MD 610 DATA 240,44,41,96,201,0,20 
8 

ID 620 DATA 6,138,9,64,24,144,22 
AQ 630 DATA 201,96,240,20,138,41, 
64 

KJ 640 DATA 201,0,208,6,138,73,32 
MA 650 DATA 24,144,5,138,9,32,73 
WX 660 DATA 64,145,203,200,208,21 
0,230 

HN 670 DATA 204,24,144,203,96 


FK 1 REM **************** 

FJ 2 REM * * 

YO 3 REM * Prot rurn nr 3 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

SH 100 GRAPHICS 0 1 POKE 752,1'POKE 
82,4 

AD 110 ? <? I' OKNA TEKSTÓW 

E " 

RL 120 ? '? " W TRYBACH GRAFI 
CZNYCH" 

LJ 130 DIM W* ( i 1 6 ) , KOM* (11), ROBf ( 
11*16), E*(263) 

BN 140 ? '? "WCZYTANIE W*" 

ME 150 FOR 1 = 1 TO 116'READ A>W$<I 
, I)«CHR*(A)'NEXT I 
ND 160 ? '? "WCZYTANIE E*" 

VL 170 FOR 1=1 TO 263 ! READ R'E*(I 
, I )=CHR*(A) 'NEXT I 
WR 180 G=8 ' W=40 ' GRAPHICS G+16'GOS 
UB 260 

WM 190 G*7 1 W=40 1 GRAPHICS G+16'GOS 
UB 260 

VO 200 G=6'W»40‘ GRAPHICS G+16-G0S 
UB 260 

UN 210 G*5 ! W*20 1 GRAPHICS G+16'G0S 
IJB 260 

TX 220 G=4'W= 10 'GRAPHICS G+16'GOS 
UB 260 

TS 230 G»3 ^ W=10; GRAPHICS G+16'GOS 
UB 260 

ZW 240 GRAPHICS 0'POKE 82,2'? '? 

"KONIEC PROGRAMU" 'END 
NL 250 REM PODPROGRAM WYŚWIETLANI 
A KOMUNIKATÓW 

JA 260 SETCOLOR 0, 9, 10 ' SETCOLOR 1 
, 3,8'SETCOLOR 2, 9, 0 ' SETCOLOR 4 
, 1,2 

II 270 REM ZEROWANIE CIĄGU 
UB 280 ROB*=CHR*(0) 'ROB*( 11*16) =R 
OB* ' R0B*(2)»R0B* ' KOMMROB* 

OB 290 FOR L=1 TO 3 


BE 310 KOM*="GR. ? T*P " ' KOM* (.4, 4 
) =CHR* ( G+48 ) ' KOM* ( 1 0 , 1 0 ) =CHR* ( 
L+48) : K0M*<11, 11)=CHR*<0) 

SS 320 REM KONWERSJA NA FORMAT GR 
AFICZNY 

VH 330 X=USR < ADR ( E* ) , ADR ( ROB* ) , AD 
R ( KOM* ) , LEN ( KOM* ) - 1 , L ) 

SX 340 REM UMIESZCZENIE NA EKRAN I 

FT 350 X=USR ( ADR ( W* ) , ADR ( ROB* ) , W* 
8*(L-1 ) , 8, 20, W) 

RA 360 REM 

NT 370 SOUND 0, L*75, 14, 5 « X«25*L ' P 
OKE 20,0 

DA 380 A=PEEK<20) 'POKE 708,45' IF 
A<X THEN POKE 708, 40 'GOTO 380 
AA 390 POKE 708 • 40 ■ SOUND 0,0, 0,0' 
NEXT L ' REI UkW 

TT 400 REM DANE DLA Wf 

fiG 4 1 0 DATA 1 04 . 1 94 , 1 33 , 206 , 1 04 1 

33.205. 104. 141.1.6. 104. 141.0. 6 
NZ 430 DATA 104.1 33 , 206 , 1 04 , 1 33 , 2 

07. 104. 104. 133.209. 104. 141.3.6 
, 104, 141,2.6 

AT 450 DATA 165,88,133,203,165,89 
, 133,204,24.165,203, 109,0,6, 13 
3 

JA 470 DATA 203,165,204,109,1,6,1 

33.204. 1 60. 0. 1 77. 203. 170 . 1 77. 2 

05,145 ” ^ 

OC 490 DATA 20£PP&V145, 205, 200, 1 

96.209.208.241. 169.0. 198.207. 1 
97,207,208 

MU 510 DATA 6, 197.208,240,30. 198, 
208,24, 152, 101,285,133,205,144 
,3,230 

XF 530 DATA 206 . 24, t 65, 203, 109, 2, 
6, 133,203, 165,204, 109,3,6, 133, 
204,24, 144, 197, 96 
HIJ 560 REM DANE DLA E* 

BK 570 DATA 104,104,133.204,184,1 
33,203, 104, 133,212, 104, 133,211 
,104,104,133 

MK 590 DATA* 216, 10, 133,217, 104, 10 

4.41.3.24. 106. 106. 106.41. 192. 1 
33,207 

XX 610 DATA 133,208,169,0,133,219 
, 169,4, 133,220, 169,0, 168, 145,2 
19,200 

GL 630 DATA 192,16,208,249,169,25 

5. 133.215. 160.0. 177.211.201.12 
8, 144,4 

TV 650 DATA 132,215,73,128,201,96 
, 144,4, 160,3, 176, 19,201,64, 144 
,4 x 

RS 670 DATA 160,1,176,11,201,32,1 
44,5, 176,5,24, 144, 205, 160,2,41 
JA 690 DATA 31,10,10,10,133,213,2 

4.152. 109.244.2.133.214. 160.0, 
132 

RU 710 DATA 209,132,210,162,0,134 
,205, 164,210, 177,213, 133,206, 1 

64.209. 165 

BJ 730 DATA 206, 48, 6, 177, 219, 5, 20 
7,145,219,24, 102,207,24,102,20 

7.6 

IZ 750 DATA 206,232,224,4,208,231 
, 165,215,240,5,56,241,219, 145, 

219. 165 . 

HE 770 DATA 208,133,207,230,209,2 

30.205. 165.205.201.2.208.208.2 

30.210. 164 

UG 790 DATA 210,192,8,208,190,240 
,3,24, 144, 160, 165,203,72,165,2 
04,72 

EN 810 DATA 160, 0, 177, 219, 145, 203 
, 200 , 1 92 , 2 , 208 , 247 , 1 77 , 2 1 9, 1 78 
,200, 177 

■<:A 830 DATA 219,72, 200,132,218,16 
4.217, 138, 1 45 . 203 , 1 04 , 200 ,145, 

203.24. 165 

LA 850 DATA 203,101,217,133,203,1 
44,2,230,204, 164,218. 192, 16, ?0 
8,220, 104 

JB 870 DATA 133,204,24,104,105,2,. 
1 33 , 203 ,144,2, 230, 204 . 230 ,211, 

208.2 

KP 890 DATA 230, ?12, 198, 216, 208, 1 
77,96 


W TRYBACH GRAFI 


FK 1 REM **************** 

FJ 2 REM * * 

21 3 REM * Prot r am nr 4 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

SH 100 GRAPHICS 0i POKE 752,1'POKE 
82,4 

AD 110 ? '? " OKNA TEKSTÓW 

E " 

RL 120 ? '? 

CZNYCH" 

WB 130 DIM W*(116),K0M*ai),RDB*( 
22*16), E*(263),fl*( 11*16? 

BN 140 ? '? "WCZYTANIE W*" 

ME 150 FOR 1=1 TO 116'READ RW*(I 
, I)=CHR*(A) 'NEXT I 
ND 160 ? '? "WCZYTANIE Et" 

VL 170 FOR 1=1 TO 263 'READ AE*CI 
, I >=CHR*(A) ' NEXT I 
EB 175 G=15'W=40' GRAPHICS G+16'G0 
SUB 260 

CY 176 G=14'W=20' GRAPHICS G+16'G0 
SUB 268 

WR 180 G=8'W=40' GRAPHICS G+16'G0S 
UB 260 

WM 190 G=7'W=40' GRAPHICS G+16'G0S 
IJB 260 

US 200 G=6'W*20' GRAPHICS G+16G0S 
UB 260 

UN 210 G=5'W=20' GRAPHICS G+16'GOS 
UB 260 

TX 220 G=4'W=10' GRAPHICS G+16'G0S 
IJB 260 

TS 230 G=3'W=10' GRAPHICS G+16'G0S 
UB 260 

TW 240 GRAPHICS 0'POKE 82,2'? '? 

NL 250 N rIm PODPROGRAM E WYSW IETLANI 
A KOMUNIKATÓW 

GK 260 SETCOLOR B, 9, 10 ' SETCOLOR 1 
,3, 6 -SETCOLOR 2, 9, 0 ' SETCOLOR 4 
,1,2 

II 270 REM ZEROWANIE CIĄGU 
UZ 275 COLOR l'PLOT W*3,0'FOR 1=1 
TO 40 ' X=RND(0)*W*4 ' Y=RND(0)*W 
*2 ' DRAWTO INT(X>, INT(Y) 'NEXT I 
VW 289 RGB*=CHR*(0) -ROB* (22*16 )»R 
OB* ' ROB* < 2 ) =ROB* ' KOM*=ROB* 

OB 290 FOR L=1 TO 3 
IZ 300 REM TWORZENIE OKNA 
LX 305 A*=CHR* (0) 'A* (11*16) =A* ' A* 
(2)=A* 

MP 310 KOM*="Gr. " ' K0M*(6-LEN(STR 
*(G)))»STR*(G) 

ME 315 X“USR ( ADR ( E* ) , ADR ( A* ) , ADR ( 
KOM*),LEN(KOM*),L) 

KM 320 ROB*=A* 

ZG 325 WSK® ( LEN ( KOM* ) -0 ) * 1 6+ 1 


MN 330 KOM»="Typ " ■ K0M*(5)=STR*(L 

MD 335 A*=CHR* <0)'A*(11*16) "A* 1 A* 
<2)=A* 

LV 340 X=USR(ADR(E*),ADR(A*),ADR( 
KOM*),LEN(KOM*),L) 

XX 345 ROB*(WSK)=A* 

XC 360 REM UMIESZCZANIE OKNA 
OD 370 FOR 1=1 TO 5 
UC 380 X=USR ( ADR ( W* ) , ADR ( ROB* ) , W* 
0+W/2-5, 16, LEN (KOM*) *2, W) 

XM 385 FOR J=15 TO 0 STEP -15/200 
AG 386 SOUND 0,L*75,14,J 
HO 387 NEXT J 

CE 390 NEXT I * NEXT L ■ RETURN 
BV 400 REM PODPROGRAM UMIESZCZANI 
A OKNA 

OG 410 DATA 104,104,133,206,104,1 

33.205. 104. 141.1.6. 104. 141.0. 6 
NZ 430 DATA 104,133,208,104,133,2 

07, 104, 104, 133,209, 104, 141,3,6 
,104,141,2,6 

AT 450 DATA 165,88,133,203,165,89 
, 133,204,24, 165,203,109,0,6,13 
3 

JA 470 DATA 203,165,204,109,1,6,1 

33.204. 160.0. 177.203. 170. 177.2 
05, 145 

OC 490 DATA 203,136,145,205,200,1 

96.209. 208. 241.169.0. 198. 207. 1 
97,207,208 

MU 510 DATA 6,197,208,240,30,198, 


206,24, 152, 101 , 205, 133, 205, 144 
,3,230 

XF 530 DATA 206,24,165,203,109,2, 
6, 133,203, 165,204, 109,3,6, 133, 

204.24. 144. 197.96 

CR 560 REM PODPROGRAM KONWERSJI 2 
NflKOW NH FORMAT CZTEROKOLOROWY 
BK 570 DATA 104,104,133,204,104,1 
33,203, 104, 133,212, 104, 133,211 
, 104, 104, 133 

MK 590 DATA 216,10,133,217,164,10 
4,41,3,24, 106, 166, 106,41, 192, 1 
33,207 

XX 610 DATA 133,208,169,0,133,219 
, 169,4, 133,220, 169,0, 166, 145,2 
19,200 

GL 630 DATA 192,16,208,249,169,25 
5,133,215, 160,0, 177,211,201, 12 
8, 144,4 

TV 650 DATA 132,215,73,128,201,96 
, 144,4, 160,3, 176, 19,201,64,144 

,4 

RS 676 DATA 160,1.176,13,201,32,1 
, 44,5,176,5,24, 144,205, 160,2,41 
JA 690 DATA 31,10,10,10,133,213,2 
4, 152, 109,244,2, 133,214, 160, Ó, 
132 

RU 710 DATA 209,132,210,162,0,134 
,205, 164,210, 177,213, 133,206, 1 

64.209. 165 

BJ 730 DATA 206, 48, 6, 177, 219, 5, 20 

7. 145.219.24. 102.207.24. 102.20 
7,6 

IZ 750 DATA 206,232,224,4,208,231 
,165,215,240.5,56,241,219, 145, 

219. 165 

HE 770 DATA 208,133,207,230,209,2 

30.205. 165.205.201.2.208.208.2 

30.210.164 

UG 790 DATA 210-192,8,208,190,240 
,3,24,144, 160,165,203,72,165,2 
04,72 

EN 810 DATA 160,0,177,219,145,203 
, 200, 192, 2, 208, 247, 177, 219, 170 
,200,177 

XA 830 DATA 219,72,200,132,218,16 
4,217, 138, 145,203, 104,200, 145, 

203.24.165 

LA 850 DATA 203,101,217,133,203,1 

44.2.230.204. 164.218. 192. 16.20 
8,220,104 

JB 870 DATA 133,204,24,104,105,2, 
133,203,144,2,230,204,230,211, 

208.2 

KP 890 DATA 230,212,198,216,208,1 

77.96 

przechowywana jest w zmiennej W$. Wywo- 
łujemy ją następująco: 

X=USR(ADR(W$), ADR(D$), O.W.S.L) 

gdzie: O — wielkość przesunięcia lewego 
górnego rogu okna względem lewego gór- 
nego rogu ekranu (w bajtach), 


W — liczba linii wyświetlanego tekstu 
(wysokość okna), 

S — szerokość okna w znakach, 

L — przesunięcie między początkiem 
każdej kolejnej linii, dla okna prostokątnego, 
w trybie GR,0,L powinno być równe 40, 
używając L=39 lub L=41 otrzymamy okno 
pochylone w jedną lub drugą stronę 
Podczas używania tych procedur należy 
pamiętać, aby w instrukcji USR dostarczyć 
odpowiednią liczbę parametrów. Nieprze- 
strzeganie tego może zablokować kompu- 
ter. 

Program nr 2 demonstruje kilka możli- 
wych sposobów używania okien. Proszę 
zwrócić uwagę na wykorzystanie tej techniki 
do szybkiej wymiany zawartości całego 
ekranu. W tym celu zmienna tekstowa musi 
mieć wielkość 960 bajtów. 

Powyższe procedury w prezentowanej 
postaci mogą być używane tylko w trybie 
tekstowym, W związku z tym interesujące 
może być szybkie wyświetlenie tekstu, naj- 
lepiej kolorowego, w dowolnym z trybów 
graficznych. Wtedy uwolnimy się od konie- 
czności używania okna tekstowego, które- 
mu na stałe przydzielane są cztery dolne li- 
nie ekranu. 

Idea tworzenia okien w trybach grafi- 
cznych jest identyczna jak w tekstowych 
Różnica w realizacji polega na konwersji 
znaków. W trybie tekstowym należało za- 
mienić kody ATASCII na kody ekranu. W 
trybie graficznym należy zamienić kody 
znaków na ich reprezentacje bitowe. Wyko- 
nuje to procedura przechowywana w 
zmiennej E$ (program nr 3). 

Wywołujemy ją następująco: 

X = USR(ADR(E$), ADR(ROB$),ADR 
(KOM$),LEN(KOM$) — 1,K) 
gdzie E$ — zmienna tekstowa zawierają- 
ca procedurę konwersji, 

ROB$ — pomocnicza zmienna tekstowa 
służąca do przechowywania reprezentacji 
bitowej znaków tekstu; mus' być 16 razy 
dłuzsza od tekstu, 

KOM$ — zmienna tekstowa przechowu- 
jąca wyświetlany tekst, 

K — kod koloru wybrany dla okna. 
Wyświetlenie okna na ekranie wykonuje- 
my tą samą procedurą co w trybie teksto- 
wym. Występują jednak pewne różnice w 
znaczeniu parametrów. Wynikają one z fak- 
tu, że ciąg do wyświetlania zawiera repre- 
zentacje bitowe znaków. A każdy punkt 


elementarny definiowany jest przez dwa bi- 
ty. Na jedną linię wyświetlanych symboli 
przypada 8 linii obrazu, których grubość za- 
leży od używanego trybu graficznego. 

Sposób wywołania tej procedury jest na- 
stępujący: 

X=USR(ADR(W$) l ADR(R0B$),0,W,S,L) 

gdzie: O — wielkość przesunięcia lewego 
górnego rogu okna względem lewego gór- 
nego rogu ekranu (w bajtach), 

W — wysokość okna (w liniach obrazu), 

S — szerokość linii w bajtach (ilość zna- 
ków w linii razy dwa), 

L — przesunięcie między początkiem 
każdej kolejnej linii, jego wielkość zależy od 
używanego trybu graficznego. 

Tworzenie okien w trybach graficznych nie 
jest, niestety, takie proste jak w tekstowych. 
Pewne komplikacje spowodowane są ko- 
niecznością konwersji ciągu znaków na je- 
go odwzorowanie bitowe. Z tego powodu 
każdą linię tekstu umieszczonego w oknie 
musimy poddawać konwersji oddzielnie. 
Następnie ciąg wynikowy umieszczamy w 
zmiennej tekstowej, której zawartość zosta- 
nie wyświetlona w oknie, Wysokość okna 
musi być podana w liniach obrazu (8 linii na 
jedną linię tekstu). Szerokość linii musi być 
dwa razy większa od liczby wyświetlanych 
znaków, ponieważ każdy punkt elementarny 
opisywany jest za pomocą dwóch bitów. 

W celu zapoznania się ze sposobami two- 
rzenia okien należy dokładnie przeanalizo- 
wać program nr 3, który wyświetla na ekra- 
nie okna zawierające jedną linię tekstu w 
rozmaitych trybach graficznych. Z kolei 
program nr 4 demonstruje sposób tworzenia 
okien zawierających dwie linie tekstu (także 
w trybach 1 4 i 1 5). W podobny sposób two- 
rzy się okna zawierające trzy lub więcej linii 
tekstu. 

Musimy przyznać, że nie udało się nam 
uzyskać spodziewanych efektów tworzenia 
okien w trybach graficznych. Jednak ze 
względu na nieprzekraczalny termin złoże- 
nia w redkacji kolejnego odcinka cyklu, wy- 
niki naszych dalszych prac zamieścimy w 
następnym numerze „IKS-a ", 

Podczas przygotowywania tego odcinka 
korzystaliśmy z artykułów zamieszczonych 
w czasopiśmie ANTIC. 

Tomasz MROWIEĆ 
Ludwik PIELA 


Atari 

J. Janiec 

pc see rem ************************ 


YA 502 REM * * 
HT 504 REM * RACHUNKI * 
DI 505 REM * * Atari * * 
YP 507 REM * * 


QH 509 REM ************************ 
BU 510 DIM B*<11>,D*<3>,U*<13> 

GB 515 PRINT CHR*< 125) ' P=0 
WR 520 7 '? "R A C H U N K 1“ 

FF 522 7 "nsB=B»sasas3" 

Y8 525 B*»"B RAWO ! •• = U*-"P 0 P R 
A W !" 

SM 530 FOR K«1 TO 10'D»INT<RND<0>*3 
) + l 1 A=INT (RND<0)*7>+2 1 B“INT <RND< 
0>*8>+l 


DF 540 IF B>A THEN A=6 

UE 545 IF D=1 THEN X=A+B'D#=“ + “ 

XT 550 IF D=2 THEN X=A-B-D*=" - " 

TE 555 IF D=3 THEN X=A*B'D*»“ * 

VF 560 7 •? "POLICZ" 

SB 565 7 '? Aż D*; Bi “ » "J.INPUT Y . G 
OSUB 630 

WW 570 IF X a Y THEN 7 >7 B* > GOTO 590 
DQ 580 P=P+1'7 U* 'GOTO 560 
HH 590 NEXT K 
NT 600 7 '? Pi" POPRAWEK" 

RY 610 7 '? "Jeszcze raz 7" 

DW 615 7 •? " "żCHR*(212)ż V 

" i CHR*<206 ) i 1 INPUT D* 

TX 620 IF D*="T" THEN 515 
ER 625 END 'REM ******************* 
HD 630 FOR D=10 TO 1 STEP -l'S0UND 
0, 100, 10,D'NEXT D ■' SOUND 0,0, 0,0 
ZX 635 RETURN 
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KOMPUTER J UJ RED 


W wielu domach, obok komputera drugim 
ważnym przedmiotem użytkowym jest ma- 
gnetowid. Oba te sprzęty egzystują 
równolegle nie „wchodząc" sobie w drogę. 
Tylko czy tak musi być? Jako pierwsze 
wspólne ich przedsięwzięcie proponuję wy- 
konać czołówkę do swoich kaset, coś w ro- 
dzaju exlibrisu. Zrobić to można za pomo- 
cą dowolnego komputera, a skopiować na 
każdy magnetowid. Nim do tego przystąpi- 
my, powinniśmy wykonać kabel połącze- 
niowy między komputerem a magnetowi- 
dem. Typy wtyków będą różne i zależne od 
stosowanego sprzętu. W wypadku stoso- 
wania do tworzenia grafiki komputera Atari, 
na jednym końcu kabla powinniśmy przylu- 
tować wtyk stereofoniczny GM-5, a w wy- 
padku Spectrum typu mini „Jack". Drugi ko- 
niec kabla zaopatrujemy w dwa wtyki WW-1 
(SANYO, FISHER) lub po jednym WW-1 i 
BNC (NEC). Długość kabla powinna być 
oczywiście tak dobrana by pozwoliła w spo- 
sób wygodny korzystać z zestawu, tzn. 
1, 2-5-1, 5 m, Schemat kabla do połączenia 
komputera Atari i dowolnego magnetowidu 
przedstawiono na rysunku 1 . 


wyjście wejście Magnatowi du 

Monitorowe atari wideo audio 



To byłoby wszystko, jeśli chodzi o podłą- 
czenie komputera do magnetowidu. Drugi 
problem, to stworzenie czołówki „exlibrisu" 
swoich taśm. Metod jest wiele. Jedną z nich 
może być rozwiązanie programowe, to zna- 
czy stworzenie programu z częścią grafi- 
czną, tekstową i ewentualnie dźwiękową. 
Nie jest to czynność łatwa, ale z pewnością 
dająca dużo satysfakcji. Inny sposób stwo- 
rzenia czołówki, to wykorzystanie jednego z 
wielu programów graficznych. Tu chciałbym 
zaproponować program pod tytułem „MA- 
GIC-PAITER". W przeciwieństwie do innych 
programów najczęściej o statycznej grafice, 
można stworzyć za jego pomocą efekt 
„płynącej tęczy". Może on zostać zwielo- 
krotniony, gdy do kreślenia wykorzystamy 
kilka kolorów. Każdy z kolorów będzie two- 
rzył odrębną „tęczę". Aby uzyskać w tym 
programie efekt „płynącej tęczy", należy po 
otrzymaniu na ekranie monitora zestawu 
możliwości, zainicjować Multicolor-effect, a 
z niego np. Set Color 0. Następnie z opcji 
szerokość linii (Select breadth of Stripes) 
wybrać dla przykładu najszerszą linię (Very 
wide Stripes) i dalej z wyboru rodzaju linii 
(Select kind of Stripes), przewijanie w górę 
(Stripes up). Teraz pozostaje nam tylko 
powrót do opcji Multicolor-effect i urucho- 
mienie swojego dzieła za pomocą Start Ef- 
fect. Jedynym mankamentem tego i po- 
dobnych programów jest brak dźwięku. 
Upartym, udźwiękowienie czołówki też nie 
powinno sprawić większego kłopotu. Po- 
trzebne są w tym celu trzy rzeczy: magneto- 
fon, program muzyczny i przewód koncen- 
tryczny do połączenia magnetofonu z mag- 
netowidem i komputerem. Do utrwalenia 
stworzonej w komputerze melodii można 
użyć każdego magnetofonu kasetowego lub 



szpulowego z wejściem na mikrofon i wyjś- 
ciem do przegrywania. Melodię można 
stworzyć dowolnym programem muzy- 
cznym lub wykorzystać gotowe melodie. Z 
gotowych programów polecamy np: Musie, 
Organy. Kompozytor. 

Kiedy mamy przygotowany obraz i melo- 
dię, możemy przystąpić do przekopiowywa- 
nia ich na taśmę magnetowidową. Przedtem 
jednak musimy stworzyć układ do kopiowa- 
nia obrazu i dźwięku, którego schemat 
przedstawiono poniżej. 

Życzymy powodzenia. 

Janusz JANIEC 


Chochlik dał znać o sobie. Na ostatniej 
stronie 6 nr „IKS-a" popełniliśmy błąd. 
Otóż w tekście „Też komputery..." poje- 
mność informacyjna „kostki" wynosi 
oczywiście nie 32 bity a 32 Kb i analogi- 
cznie nie 64 bity a 64 Kb. 

Przepraszamyl 
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Transputery - rodzina INMOS 

Układy rodziny transputerowe) zostały opracowane w pracowniach 
brytyjskiej firmy INMOS, znanej dotychczas z produkcji pamięci statycznych 
i dynamicznych RAM, wykonanych przy użyciu technologii 1,6 n lub 1,2 /j 
CMOS. Dzisiaj najważniejszą ofertą INMOS są układy rodziny transputero- 
wej orąz szeroki asortyment kart, modułów, pakietów i systemów rozszerza- 
nia układów transputerowych i mikrokomputerów PC. Przy ich produkcji 
INMOS stosuje 1,5 ij. technologii CMOS. Oferta firmy obejmuje także stero- 
wane mikroprocesorowo układy specjalistyczne. Są one często mylnie zali- 
czane do rodziny transputerów. Należą do nich kaskadowe, 32-stopniowe 
filtry cyfrowe (IMS Al 00) stosowane m.ln w analizatorach stanów oraz spec- 
jalne przetworniki analogowo-cyfrowe (IMS G17x) dla potrzeb kolorowej 
grafiki komputerowej, systemów wideo i TV. Produkty INMOS bazujące na 
transputerach zestawiono w tabeli nr 1. 


W poprzednim odcinku przedstawiłem je- 
den z nich, adapter linii komunikacyjnych 
IMS C012, dziś kilka słów o innych produk- 
tach IMS M212 jest specjalizowanym 16- 
-bitowym transputerem o mocy obliczenio- 
wej równej 10 MIPS', przeznaczonym do 
obsługi dysków typu WINCHESTER lub sta- 
cji dysków elastycznych łącznie do 4 napę- 
dów. IMS M212 zawiera w jednym układzie 
jednostkę procesora, 4 KB ROM, 2 KB RAM, 
kontroler dysku, układy interfejsów oraz sy- 
stem sterujący. Dodatkowo poprzez interfejs 
pamięci zewnętrznej może obsługiwać 64 
KB DRAM. W pamięci ROM rezyduje sy- 
stem wspomagania obsługi napędu dysko- 
wego, natomiast RAM wykorzystuje się jako 
bufor sektora lub dla zapamiętania parame- 
trów, formatu zapisu i odczytu danych. Po- 
nadto w RAM zapisuje się program przetwa- 
rzający dane z linii komunikacyjnych łą- 
czących M212 bezpośrednio z innymi 
transputerami lub poprzez adapter z kon- 
wencjonalnymi systemami mikroproceso- 
rowymi, Trzeci interfejs jest sprzężony po- 
przez 2 jednokierunkowe, 8-bitowe porty z 
kontrolerem dysku. Kontroler ten wyposa- 
żony jest w dwa dwukierunkowe porty, uży- 
wane też do kontroli takich funkcji dysko- 
wych. jak ustawienie początkowe, selekcja, 
sprawdzanie słowa statusu itp. Możliwości 
transputera M212 wykorzystano w karcie 
rozszerzenia IMS B005, zawierającej WIN- 
CHESTER i dysk elastyczny oraz opcjonal- 
nie dołączane duże stacje dysków poprzez 
interfejsy dodatkowo buforowane według 
standardu SA400/ST506. 

IMSB007 jest podwójną Eurokartą po- 
znaczoną do realizacji funkcji graficznych. 
Zawiera ona 32-bitowy transputer IMS 
T414, wspomniany przetwornik IMS G170, 
51 2 KB DRAM i podwójny port (51 2 KB) wi- 
deo RAM oraz buforowanie linii komunika- 
cyjnych i wyjście RGB. Dodatkowe wspo- 
maganie karty poprzez software w OCCAM 
zapewnia realizację podstawowych funkcji 
graficznych (przy kreśleniu linii i wielokątów) 
oraz generowanie alfanumerycznych tek- 
stów ze skalowaniem. Obraz jest mapowany 
w pamięci z wykorzystaniem podwójnego 
ekranu dla szybkiego odświeżania zawar- 
tości wyświetlanego obrazu. Karta zapewnia 
wybór 262 lub 1 44 kodów umożliwiając gra- 
fikę 512x512 przy 8-bitowym kodzie opisu- 
jącym dowolny punkt i jest przeznaczona 
dla monitorów o częstotliwości wybierania 
linii w zakresie od 20 do 50 kHz. 

Moduły podstawowe, karty rozszerzania, 
pakiety specjalistyczne, a także urządzenia i 
systemy bazujące na technice transpute- 


rów wyposażone w odpowiednie oprogra- 
mowanie można znaleźć w ofertach wielu 
firm m.in. Transtech, Meiko, Sension, Mi-' 
kroWay, Nichie. 

Kompletne oprogramowanie INMOS 
może być używane łącznie z systemem 
operacyjnym UNIX v.2.||fbkiet stanowi in- 
tegralną część sysfeWt^4»£fwiera transputer 
Tl 41 4 z 32-bitową magistralą lokalną, do 
której podłączono 2 MB dodatkowej pamięci 
DRAM i 64-256 KB EPROM oraz podwójny 
układ uniwersalnych ansychronicznych na- 
dajników-odbiorników linii (DUART), dwa 
szeregowe porty RS232 oraz zwrotnicę linii 
komunikacyjnych. Karta posiada dwa złą- 
cza umożliwiające opcjonalne dołączanie 
modułów kompatybilnych z IMS B0xx. Po- 
nadto na karcie zainstalowano niezbędne 
elementy i bloki dla systemu VME oraz 
adapter linii, który sprzęga (łącznie z DRAM) 
środowisko transputerowe z magistralą sy- 
stemową. 

Sension jest producentem transputero- 
wych urządzeń TES, znacznie zwiększają- 
cych parametry użytkowe i moc obliczenio- 
wą mikrokomputerów. TES są przeznaczone 
do bezpośredniego połączenia z mikrokom- 
puterami IBM PC XT /AT i kompatybilnymi, a 
także stosując odpowiednie adaptery z in- 
nymi komputerami PC. Można w nich zain- 
stalować maksymalnie 4 transputery T414- 
-20 (opcjonalnie T800-20 i 4 MB DRAM. 
Ponadto firma oferuje system PARALLAX 
umożliwiając współbieżną wieloproceso- 
rową pracę wykorzystując magistralę VME. 
PARALLAX jest uniwersalną otwartą kons- • 
trukcją pozwalającą w znacznym zakresie 
na konfigurowanie systemu oraz dalsze 
rozwijanie przy jednoczesnym bieżącym te- 
stowaniu poprawności współdziałania po- 
szczególnych jego elementów. Cały system 
składa się z pewnej ilości nie powiązanych 
ze sobą subsystemów budowanych w 
oparciu o podwójne Eurokarty. Każdy sub- 
system może zawierać do 5 kart bazujących 
na 32-bitowych transputerach, PARALLAX 
jest wyposażony w moduły przetwarzające, 
pamięć masową, karty buforowanych inter- 
fejsów RS422 oraz optyczne linie komuni- 
kacyjne (dla transmisji danych), szybkie 
przetworniki analogowo-cyfrowe, pakiety 
zasilania, monitorowanie i analizy. Komuni- 
kacja jest trzypoziomowa. Dla realizacji sieci 
transputerowych dynamicznie skonfiguro- 
wanych system posiada kartę zespołów 
programowanych 32-liniowych łącznie elek- 
tronicznych (IMS C004), adaptery i inne 
niezbędne elementy sieciowe. 


W październiku 1 987 roku powstało ame- 
rykańsko-brytyjskie konsorcjum NICHE. 
Produkty NICHE mają stanowić szereg in- 
tegralnych systemów o budowie modular- 
nej. Pierwszym pakietem, który opracowała 
Nichie Technology Limited jest rozwinięty 
system obliczeniowy NT-1000 ACP (rys. 
2). Jest on przeznaczony do bezpośrednie- 
go włączenia w hardware amiteksurę mi- 
krokomputerowych stacji roboczych Sun-3 i 
Sun-4 produkowanych przez Sun Microsy- 
stem. NT-1000 zawiera szeregowe i rów- 
noległe porty 1/0, integralny szybki kontro- 
ler portów, złącza dla 32 modułów, pakiet 
konfiguracji sieci (na bazie układów C004) 
oraz interfejsy linii komunikacyjnych 
INMOS. Moduły posiadają 32-bitowy trans- 
puter i do 16 MB DRAM. Moc obliczeniowa 
stacji roboczych dla modelu Sun-3/ 160 
wynosi 2 MIPS, Sun-3/260 - 4 MIPS, Sun- 
-4/10 MIPS, zaś maksymalna moc obli- 
czeniowa bloku NT/ 1000 jest równa 320 
MIPS (48 MFLOPS). Zadanie wykonywane 
przez stację Sun-3/ 10 w ciągu 8 godzin 
przy zastosowaniu bloku NT-1000 może 
być zrealizowane w czasie 3 minut. Do stacji 
Sun można dołączyć 8 bloków NT-1000. 
Stację wyposażono w pełne oprogramowa- 
nie systemów transputerowych (TDS) oraz 
kompilatory języków FORTRAN, PASCAL, C, 
PROLOG oraz system operacyjny Sun- 
-UNIX. 

Stosowanie transputerów lub transpute- 
rowych kart rozszerzenia w konwencjonal- 
nych mikrokomputerach klasy IBM PC 
XT /AT. DEC MicroVax czy komputerowych 
stacjach roboczych SUN może mieć tylko 
uzasadnienie w zwiększaniu możliwości 
użytkowych posiadanego sprzętu. Nie jest 
to jednak właściwe i pełne wykorzystanie 
potencjału i własności tych procesorów. 
Jest wiele przykładów, gdzie moc oblicze- 
niowa decyduje o jakościowych walorach i 
zdolnościach techniczno- użytkowych urzą- 
dzeń — na przykład skomplikowane obli- 
czenia dla precyzyjnego kreślenia rysun- 
ków, krojów pisma, i innych znaków graficz- 
nych przez graficzne drukarki laserowe i 
plotery, grafika i animacja o bardzo dużej 
rozdzielczości, a także problemy trójwymia- 
rowości obrazów. 

Stosunek środowisk naukowych i inży- 
nierskich do transputerów, ich znaczenia w 
rozwoju technik obliczeniowych i technolo- 
gii układów mikro wyraża się w powołaniu 
przy SERC/DTI 2 / towarzystwa fundacyj- 
nego na rzecz popierania technik transpute- 
rowych oraz licznych regionalnych grup ini- 
cjatywnych. SERC/DTI Transputer lniti(ive 
skupia w swoich szeregach członkowskich 
ponad 1 000 osób, przede wszystkim ze śro- 
dowisk naukowych (z 40 placówek nauko- 
wo-uniwersyteckichl i politechnicznych), 
działających w ramach 10 sekcji, Ich wkład 
w rozwój zagadnień technik komputero- 
wych, to organizacja sesji i konferencji na- 
ukowych, popularyzacja wiedzy poprzez 
wydawnictwo materiałów, publikacji oraz 
podręczników programowania, organizacja 
kursów i, szkoleń a także prowadzenie prac 
naukowo-badawczych i wdrożeniowych. 
Wydaje się, że stosunek środowisk nauko- 
wych najlepiej wyraża wartość produktów 
firmy INMOS — 
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Tabela 1. Tranaputerowe produkty firmy INMOS 




Oois 


1 

2 

Podsta- 
wowa 
układy ro- 
dziny 
INMOS 

IMST800 
IMS T414 
IMS T212 
IMS M212 
IMS C004 
IMS C01 1 
IMS C012 

32-bit. tranaputar. 64-Dlt. FPU. 4 KB on-RAM* 

32-bit tranaputar, 2 KB on-RAM* 

16-bit. tranaputar. 2 KB on-RAM* 

1 6-blt dlac procesor, 2 KB on-RAM, 2 KB on-ROM * 
zespól programowanej lecznicy elektronicznej* 
adapter linii z dwoma modami pracy* 
adapter Unii* 

Karty 

iiiiii 

SSSSS 1 

T41 4 (T800 + 64 KB SRAM + 1 28 KB ROM, 2 porty RS232 
T414 + 2 MB DRAM + 128 KB ROM. 2 porty RS232 
cztery.T414 (T800 + 1 MB DRAM. konfiguracja kwadratu 
karta do IBM PC XT (AT z T414 + 2 MB DRAM. IBM PC rterte|s 1/0 
M212 + 20 MB 3.5' Winchester + 1 MB 35' floppy diac 
M212 + 56 KB SRAM + 2 porty RS232 z nxtfiwotci« zainstalowa- 
na do 9 TO2 1 128 KB SRAM *czn« sterowaniem UART l EPROM 

Pakiaty 

IMS BM7 
IMS 3009 

IMS B010 
IMS B01 1 

karta grafiki: T414 + 0170 + 512 KB DRAM + KB VRAM 
cztery A100 + T212 + moduł dekodera adresu l generatora, m- 
tertets IBM PC - 1269 MOPS* - opctorelna T414/T800. 1MB RAM 
T414 + 1 MB DRAM + C012 - karta da komputera NEC PC-9881 
T414/T860 + 2 MB DRAM + 2 porty RS232. 2 miejsca da mo- 
iftutów rozszerzenia INMOS. system magistrali VME 

Moduły 

1 lilii 
i iiiii 

10 B003 + 10 MB DRAM + D600 lub D701 , możliwość re- 

konfiguracji poprzez wymianę karty na Innę typu B0» 

T414/T800 + 32 KB SRAM 

T212 + 8KB SRAM 

T414/T800 + 1 MB DRAM 

T800 + 2 MB DRAM 

T800 + B MB DRAM 





Transpu- 

IMSD600 

OCCAM 2 z pełnym edytorem, kompilatorem l konfiguratorem 

terowe sy- 


systemu dla komputera VAX/VAM 1 1 /7*x tirmy DEC mikroVAX 


IMS D700 

OCCAM 2 z pełnym edytorem, kompilatorem i konfiguratorem 

gramowa 

IMS D 701 

systemu dla mkrokomputera IBM PC XT AT 



D700 + B004 


IMS D703A 

Bymulator A 100 w OCCAM 


IMS D704A 

D700 + O703A + B009 


IMS D711 

0700 + kompilator C 


IMS D712 

D700 + kompilator PASCAL 


IMS D713 

D700 + kompilator FORTRAN-u 


* - Zegar proceaora 1 7. 20. 30 MHz 

* — Zegar proceaora. ' 5. 20 MHz 

* — Zegar proceaora: 17. 20 MHz 

* - Szybkość tranem* 10/20 Mt#ń*r/i 

* — operacja na aafcundg 

1 ! MIPS — iednostka mocy obliczeniowe! wyra- 
żona w milionach instrukcji wykony- 
wanych w ciągu sekundy 
2/ SERC/DTI — Science and Engmeęjing Re- 
search Council (Departament ot 
Trade and Industry — Rada Ba- 
dań Naukowo-Technicznych) 

Dep Handlu i Przemysłu Fun- 
dacja na rzecz popierania tech- 
nik transputerowych powstała 
przy SERC/DTI w lutym 1987 r 

w. m. s. 


Nuty z komputera - cz .3 


W trzeciej części artykułu zajmiemy się współpracą z całym 
zbiorem taktów. Jest to zagadnienie niezwykle istotne i (niestety) 
dosyć skomplikowane, zarówno od strony programowej, jak i użyt- 
kowej. 

Na wstępie chcemy przekazać Czytelnikom kilka ważnych 
uwag 

UWAGA 1 brzmienie, klawiatura dynamiczna — oprócz wy- 
sokości dźwięku istnieje olbrzymia grupa parame- 
trów opisująca przebieg dźwięku w czasie Niestety, 
ich ilość 1 format zależą od typu syntezatora. Nowo- 
czesne „klawisze" mają klawiaturę dynamiczną, 
stąd przesyłanie tylko wysokości dźwięku jest nie- 
wystarczające Wynika z tego istotny wniosek: naj- 
lepszym wyjściem jest możliwość przesyłania w 
każdym kroku nie tylko wysokości dźwięku, ale i do- 
wolnej ilości parametrów brzmieniowych. W przed- 
stawianej wersji sekwencera nie będziemy tych para- 
metrów programować, ale możliwość ich zapisu 
przewidzieliśmy (szczegóły podczas opisu „kom- 
presji") 

UWAGA 2 listing — łączymy z pierwszą częścią programu Je- 
żeli linia o danym numerze juz występuje, to należy 
ją wymienić na aktualnie zamieszczoną 

UWAGA 3 zmiana skali dźwięków - ze względu na przeprowa- 
dzaną kompresję zapisu taktu dźwięk g7 (g siedmio- 
kreślne) został przyporządkowany pauzie Aktualna 
skala rozciąga się od C2 do fis7 Konsekwencją tej 
zmiany jest przyporządkowanie w zapisie cyfrowym 
pauzy wartości 127 

UWAGA 4 wprowadzanie nazw taktów - procedura umożli- 
wia wprowadzenie słowa dziesięcioznakowego: 

1 ) możemy wprowadzić małe litery, cyfry, spację oraz znaki ASCII 
o kodach od 33 do 47 

2) pierwszym znakiem musi być litera 

3) funkcje dużych liter: 

<W> — wprowadza nazwę ukazuje się tekst ..<t/n>" — wciś- 
nięcie <t> wprowadza nazwę 
<D> — kasuje ostatnio wprowadzony znak 
<P> — przerwanie procedury 
EDYTOR TAKTU (nowe funkcje) 


klawisz <m> — umożliwia wprowadzenie podzielnika tempa (tzn. 

ile razy wolniej dany takt ma być wykonywany w 
stosunku do tempa podstawowego) parametry: 1) 
podzielnik 

uwaga: opcjonalnie podzielnik jest ustawiany na 
wartość maksymalną: 255 

klawisz <u> — pozwala na zapis taktu do pamięci (zmiennej tek- 
stowej m$) i powrót do edytora głównego 
klawisz <U> — powrót do edytora głównego bez zapisu taktu 
klawisz <n> — pozwala podzielić edytowany takt na dwa nieza- 
leżne takty 

parametry: 1) nr kroku, od którego rozpoczynać 
się będzie drugi takt 
2) nazwa tworzonego taktu 
uwaga: jeżeli drugi takt będzie rozpoczynał się od 
kroku nr 1 , to procedura podziału jedynie 
wprowadzi podaną nazwę taktu na miejsce 
starej 

uwaga: po wykonaniu podziału następuje powrót do 
edytora głównego 


EDYTOR GŁÓWNY 

klawisz <w> — wywołanie taktu z pamięci (tzn odczyt ze 
zmiennei tekstowej m$), wejście do edytora taktu 
parametry: 1 ) nr taktu 
klawisz <u> — utworzenie taktu 

parametry: 1 ) nazwa taktu 

2) ilość kroków 

warunki: a) jest to pierwszy wprowadzany takt 

3) następuje zgłoszenie funkcji <d> edy- 
tora taktu: należy podać parametry 
pierwszej ścieżki — wtedy nastąpi 
wejście do edytora taktu z pierwszą 
zadeklarowaną ścieżką 

b) istnieje co najmniej / eden takt w pamięci 

3) należy wybrać, czy takt jest tworzony 
od początku, czy wg ustawienia ście- 
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żek określonego taktu 
wciśnięcie <n> — wykonanie proce- 
dury 2 punktu a) wciśnięcie <t> — 
spowoduje skorzystanie z wzorcowe- 
go taktu 

4) numer wzorcowego taktu 

klawisz <t> — grupowa transpozycją w górę (przeprowadzana wg 
zawartości pola aktywności) 
parametry: ilość półtonów transpozycji 
klawisz <T> — jak wyżej — transpozycja w dół 
klawisz <k> — kasowanie grupowe przeprowadzane na podsta- 
wie zawartości pola aktywności 
uwaga: jeżeli nastąpi skasowanie wszystkich ście- 
żek, wtedy takt jest usuwany z pamięci 
klawisz <d> — dane taktu — funkcja wypisuje podstawowe in- 
formacje o takcie i o ścieżkach (przynależność do 
instrumentu, źródła i typ zapisu) 
parametry: 1 ) numer taktu 
klawisz <l> — lista taktów — drukuje na ekranie 
ponumerowane takty, ich nazwy, ilość ścieżek, kro- 
ków i podzielnik tempa 

uwaga: kolejne numery wypisywane przy taktach 
są obowiązujące podczas żądania: poda / 
numer taktu 

1 REM 

******************************** 
EDYTOR UTUORU I TAKTU 

******************************** 

7 DEF FN z*(yj=CHR* (y-256*IN 
T ty /256> ) +CHR$ INT (y/256) 

, „5 „2 EF FN Z iy ) =256*C0DE M $ i y + 1 

) +CODE m*(y) 

wijCHR* 0+CMR* 0+CHR* 0 
+ CHR* 0: LET w $ = w $ +w $ + w $+w 4 +CHR$ 

31 LET ciKe=10: LET cise=8 
4.0 LET t* = "c 0 cld 0 dl£ 0 t' 0 fl 909 la 
0a lh 02 100 1234567" 

50 LET m$=CHR* 0 
103 LET pnk=istr-l)*i»iK+l: PR IN 
T " "i- LET kn K =pnk +e i k -l : FOR 

l=pnk TO knk: PR INI -AND l < 10 

0; INUERSE l; "0" AND ( l < 10) ; l ; I 
NUERSE 0i : NEXT l 

172 LET str=FN mistr.INT (<ik-l 
I xm i k ) + 1 ) : LET pn k =m i k * (s t r -1) +1 

1000 rem aaaiiiaiM ■awjea 

1001 LET i t =CODE u. * ( 1 ) 

1005 GO SUB 1910 

1010 GO SUB 9198 

1011 LET X $ = INKEY $ : IF X* = "" THE 
N GO TO 1011 

1012 IF Xt = "ui" AND i t > 0 THEN GO 
SUB 1115: GO TO 100S 

1014 IF x*c"u" AND i t < 16 THEN GO 
SUB 1100: GO TO 1005 

1O20 IF X * = " a " RND i t > 0 THEN GO 
SUB 8900: GO TO 1010 
1024 IF X * = " k " RND i t > 0 THEN GO 
SUB 1130: GO TO 1010 

1026 IF X $ = " 1 " RND it>0 THEN GO 
SUE 1140: GO TO 1010 

1027 IF X(="T" RND i t >0 THEN GO 
SUB 1160: GO TO 1010 

1029 IF x*=”d" RND i t > 0 THEN GO 

SUB 1170: GO TO 1010 

1031 IF X $ = " l " RND it>0. THEN GO 

SUB 1180: GO TO 1010 

1090 GO TO 1005 

1100 GO 5UB 8975 : IF q* = “" THEN 

RETURN 

1101 IF k<=it THEN RETURN 

1104 LET q=0: LET n*=q*: LET Md = 

256: LET Z$=" i Lose krokOW:": GO 

SUB 9190: IF q=0 THEN. RETURN 

1105 LET pt*25S: LET e * = ■'•': LET 

i k =q : IF it=0 THEN GO TO 1108 

1106 LET z*«"instr. w /q wzorca 1 


-tak": LET q=l: GO SUB 9190 

1107 IF qsl THEN GO TO 1110 

1108 LET i 5 =0 : LET q»l: LET eis = 

1: GO SUB 9151: IF is=l THEN LET 

nt=it+l: GO SUB 9000 

1109 RETURN 

1110 LET n t =q : GO SUB 1120: IF q 

>0 THEN LET n t * i t + 1 : FOR k = l TO 

ik: LET e*=e*+CHR$ 128: NEXT k: 

LET n = FN Z(2*q)+2: LET i S =CODE tli 

$ in): LET ri*sq*+m* (r\ + ll+2*is TO 

n +10+5*1 s ) : FOR k =1 TO is-1 LET 

ii!| s Iet5rn NEXT K: 90 £ub 9000 

1115 GO SUB 1120: IF q>0 THEN LE 

T n t = q ; GO SUB 9255: GD SUB 9000 

1117 RETURN 

1120 LET Z$=" podaj lir taktu:": L 

ET Hid = it: LET q=0: GD TO 9190 

1121 LET q=0; LET fi1d=£: LET Z$ = ” 

transp. 1-sc. 2- takt.”, go SUB 9 
190: RETURN 

1130 LET q=0: LET riid =2 : LET 2 $ = ' 

kaso w. 1-s c • a- takt.": GO SUB 91 
90: IF q =0 THEN RETURN 

1131 IF q=l THEN GO SUB 3840 : RE 
TURN 

1132 LET t=l 

1133 FOR t=t TO i t : IF w $ (t i = CHR 

$ 1 THEN GO SUB 8325: GO TO 1133 

1134 NEXT t: RETURN 

1140 LET q=0 : LET fi. d = 126: LET Z $ 

-"transp w gore o:": GO SUB 9190 
: IF q=0 THEN RETURN 

1141 LET r =q : GO SUB 1121: IF q = 

0 THEN RETURN 

1142 IF q=2 THEN GO TO 1147 

1143 LET tal: GO SUB 8800 

1144 IF t — 0 THEN RETURN 

1145 IF CODĘ ru $ ( j +2) < > 1 THEN GO 
SUB 1150 

1146 GO SUB 8810: GO TO 1144 

1147 FOR t =1 TO it; IF w $ 1 1 ) =CHR 
$ O THEN GO TO 1149 

1145 LET n sFN Z(2*t): LET k =CODE 

rn $ I. n 42 ) : LET ,i = n + 13 +2 * K : F OR .9 = 

1 TO k: GO SUB 1150: LET j=j+3: 
NEXT g 

1149 NEXT t: RETURN 

1150 LET q*n +FN Z (n + 1 1 +2*9 ) : GO 

SUB 3350 LET b=W+q-l IF rn $ ( j +2 
> =CHR$ 1 THEN RETURN 

1151 FOR qaq TO b 

1152 LET f=CODE dl $ i q > : IF r ; 127 

THEN LET far’ -128 

1 1 5 3 IF f =12 7 T M E N G O T O 1 1 5 6 

1154 LET f s f + 1" : IF i < 1 OR f > 126 

THEN LET ł =127 

1156 IF CO DE iii $ ( q ) < 128 THEN LET 
fii $ iq'J =Chft$ i. GO Tu 1159 

1157 LET fił $ rq • =CHR$ C f +123 ' l-ET 

qsq + l: IF CODĘ fu $ iqj < 128 THEN u 

0 TO 1159 

1156 LET q=q+l 
1159 NEXT q : RETURN 

1 i 6 0 L ET q a 0 ; LE T lii d = 1 2 6 : _ L E 1 . 2 $ 
= " transp w do l o : " : GO SUB 9190 

IF q -O THEN RETURN 

1161 LET r=-q: GO SUB 1 i<£l 1*" T 

=0 THEN RETURN 

1162 IF q=2 THEN GO TO 114/ 

1163 Gu T*J 1143 . 

1170 GO SUB 1120. ±t q=o THEN Rł 

1171 CLS : LET n=FH Z ,PRIN 

T "na z w a taktu: " iNUŁRsfc l, fu ^ 1 
n +3 TG n+12.' 

Uli c L ITiiz^, t2ś n il! s : p ^5t" 

"łtosc krokom : " ; TRB 19, CODĘ ni * C 

n + 1 ) + 1 : print "podzietnik Metrum 


" ; CODĘ nt$(n) 

1173 LET nsn+13+2*S: PRINT : PRI 

nt " i n s t r u rń e n t z r o d i o ty 

P" : PRINT ; FOR q = l TO S: LET i = 

ia*CODE lii $ iin ) -9 : LET Z=6*CGDE rń $ 

( fi + 1 ) -5 : LET t =CODE Hi $ i n + 2 ) : PR I 

NT q ; TRB 4; i $ (i TO i +9) ; TRB 16; s 
$(z Tu z +5) ; TRB 23; (" li terowy " R 
ND ( 1 = 0 )); ("symbol." RND (t=li); 
("cyfrowy" RND (t=2)): LET n=n+3 
: NEXT q 

1174 RETURN 

116© CLS . PRINT "nr nazwa 
i s ik Pt": PRINT 

1181 FOR t=l TO it: LET n=FN Z (2 

*t) : PRINT t;TRB 3; INUERSE 1 ; fu $ 

Ui +3 TO li +12' , 

i 182 LET S=C.QDE fń $ (n+2) : PRINT T 
RB 16 . s; TRB 20; CODĘ rn $ (n +1) +1; TR 
B 25.Ć0DE ni $ ( li ) 

1183 NEXT t: RETURN 

1185 CLS : LET n=FN Z (2*q) PRIN 

T "nazwa taktuj "; INUERSE l;m$( 
n+3 TO n + 12) _ _ _ ,, 

1186 LET s aCODE Ul $ (n +2) : PRINT 

i I. o s C SCiezek:";T RB 23 ; S : PR INT 

“ i I. o S C k r O k O w : " ;.TRB 23 ; CODĘ Ili $ l 

n+D+l. PRINT "podzielnik ta kto# i 
an i a : " ; CODĘ ro $ (n ) 

1200 LET q -0 : LET i t =CODE IA $ l Ił: 

LET md sit: LET z f »*wy bierz ta k t 

GO SUB 9190: IF q=0 THEN liU 

TO 9198 
1910 CLS 
1; "SEKUE 
NT TRB 8 
NY" 


tak tu" 


PRINT 

TRB 

7; INUERSE 

ER V 

1 . 

0" : 

PRINT : PRI 

INUERSE 

i; 

"EDYTOR GLOU 

TRB 

5; 

"W 

- w y w olanie 

TRB 

5, 

"U 

- utworzenie 

TRB 

5; 

" t 

- transpozy •: 

TRB 

5, 

"T 

- transpozyc 

ThB 

5; 

" k 

- k a s o w an i e " 

TRB 

5, 

"d 

- dane taktu 

ThB 

s; 

" t 

- 1 1 a t. a takt 

TRB 

s; 

' 1 a 

- aktywność" 


.ia w gore' 
1917 PRINT 
ja w doi" 


o w ‘ ' 

1934- Pi 

1950 RETURN 
8800 REM — _ 

Uli IF R w $ ( t i =CHR* 0 THEN GO TO 

uj ti 1 3 _ _ __ .. 

8805 IfTi* (it+i ) =CMR* 0 THEN GO 

8806 8 l1t s =CODE i * ( U;l>.*ia + il : 
L.ET d=CODE i $ ( < i -li *12+41 : FoR Z 
= 1 TG S 

18®-?ń I ?3lf <it + i i +d> aCMR * 0 THEN 

8608 LET n =FN Z (8*t) : LET K =CGPE 
Iii $ t n +2 ) : LET 9=1 

8809 FOR a =g Tu k: LET .j=rt + 10+2* 

k +3 *9 : IF m i ( j i =CHR * 1 RND ni * i J + 

li=CHR* d THEN RETURN 

8810 NEXT 9 

8811 LET d=d+l: NEXT Z 

88 1S NEXT i 

|813 

°t=a*t +2 OU F0P.^t = t +1 Tu it. + ^LET lii 
$iq TO q + l) =FN Z*tFN Z(q)-bl: LE 

T q=q+2: NEXT L 

8823 LET q=n+13: FOR 1 = 1 TO k ■. L 
ET rii$(q TO q + l) =FN Z*tFN Z(q)-S- 
LET q = q+2: NEXT L : LEI 

hi ii tn +2i »CHR$ I k - 1 1 : LET q = n+ll: 

12 


LET e=q+2*k+3*9-2: LET b=li+FN Z 

tq+2*9i+5: LET k=k-l: LET fil S = rił » C 

TO q + £* 9 -li +rti $ <q+2*9 +2 TO e)+hi$ 
(£+4 TO b-1) +rii $ i b+W TO ) : RETURN 

8 | +1 * t ^ 

it STEP 2: LET hi $ i L TO 1+1) =FN z 

t(FN Z ( l) -r* U >=t2+2*t i ) -2) : NEX 
T l 

8827 LET lii*=hi*( TO 2* t -1) +Iil $ (£+2 
*». TO u-li+hi$iu + r TO i 

8828 LET i t = i t - 1 : LET ni * t X J =CMR* 

i t : LET VI * =Ul $ ( TO t - 1 i +>il $ i t + 1 T 

0"*1 k^ : -' J nimaaM!«BCTMn«WH 

+ 2 49 i - F N ' z tn + 11+2*9 i : RETURN 

8832 IF t (it THEN LET w =FN Z(2*t 

+2) -FN Z tli +11+2*9 i -n : RETURN 

8833 LET w =LEN hlt-FN z(ri + ll+2*g» 

-n + 1: RET URN .. . 

8840 REM |3K3aiM13EHra^iWMa@Haa 
8842 LET t *1 : GO SUE 8800 

8844 IF t. =0 THEN RETURN 

8846 IF k =1 THEN GO SUB 8825; GO 

- SUB 8800: GO TO 8844 

884 8 GO SUB 8820: GO SUB 8809: G 

0 TO 3844 

8849 RETURN 

8900 rem ąągi^w«BE>a5BW , , , 

8901 CLS : LET zu=l: LET pt =1: L 

ET i w t. =FN hi i 16 , i t i : LET P i = 1 : LE 

T iuisFN hi ( 16 , i i i : LET n=l: LET 

1 WEi=FN IhilS.CGDE i $ t 1 i i : LET 3t = 

0 ■ LET ai=it: LET az = it+i.i: LET 

X = 1 : LET y =1 . LET knc=iwt _ 

6003 GO SUE 8940: Gu SUB 8945: G 

O SI IB 8950: GO SUB 8960 

3905 GO SUB 9198 „ „ _ u _ 

8906 LET q$ = INKEY»: IF T*= THE 

N GO TO 8906 

8907 BEEP 0.01..20 

8910 IF q$="6” RND 9 <knę THEN Gu 

SUB 8965: LET 9*9+1: GU SUB 89_5 

0: GO TO 8906, 

8911 IF q$*"7 RND 9>1 THEN GO S 

UB 8965: LET 9=9-1: GO SUB 8960 i 

GO TO 8906 

8912 IF q $ = ” 8 " RND X<3 THEN LET 

kn c =i ul i * (X =li +i WZ * (X =2) : GO SUB 

8965: LET x=x + l: LET 9 =FN rniknc, 

y) : GO SUB 3960: GO TO 3906 

8913 IF q$="5" RND X>1 THEN LET 

kn C =i W t * (X =2) +i W i * (X =3) : GO SUB 

8965: LET X=X-1; LET 9 =F'M hliknc, 
y) : GO SUB 8960: GO TO 6906 
.§914 IF q$ = " " RND X=1 THEN LET 
w$ (y+pt-li =CHR* NOT CODĘ vi»ty+pt 
-1) : GO SUB 8940: Gu TO 8906 

3915 IF q*=" " HND X =2 THEN LET 
w $ ty +P t + i t -li =CHR$ NOT CODĘ m*ty 
+pt+it-l>: GO SUB 3945: GO TO 89 

06 

8916 IF q$=" " RND X =3 THEN LET 

Ul $ ty +az +pz -1) =CHR$ NOT CODĘ w*ty 
+ PZ +8Z -1) : GO SUB 3950: GO TO S9 

0 6 

8917 IF q $ < > " k " HND q$<>"K" AND__ 
q $ < > " U " HND q$ < > "U" THEN GO TO S 
921 

891S LET hi = iq$ > "a " i : IF X=1 THEN 

GO SUB 8955: IF q=l THEN FUR k= 

1 TO i Ul t *hl +i t *NOT hi: LET U)*tk+(p 

t-i)*mi=CHR* iq$="u" oR_qi="y , _i. 

NEXT k: GO SUB 3940: GU TO 3G0S 

8919 IF X =2 THEN GO SUB 8955: IF 

q = l THEN FOR k = l Tu i w i *m + 1 i *N0 
T ni : LET w*tk+it+(pi-l) *ru =UHR S 

tq* = "U" OR q* = "U"> : NEXT k.: GO S 

UB 8945. GO TO 8905 • 


j5980 ;IF x=3 THEN GO SUB 8955 ; IF 
q - 1 THEN FOR K - 1 TO iwZ*M+(LEN 
w $ ~ i t - i i ' *NGT rii : LE;T w $ ( K + i a z +p Z 

rl ) *fii + ( ( i t + x i ) *NOT m ) ) =CMR $ (q$ = 
"U" OR q$ = ' , U":i; NEXT K : GO 5UB 8 
•as©: GO TO 3905 

£921 IF q$s"C" THEN LET q=0: LET 

Z $="1- Kas. 2 -USt. calOSCi": LET 
„rud =2: GO SUB 9190: IF q>0 THEN 

FOR k = :L TO LEN w$. LET w$iK)sCMR 
$ (q-2) : NEXT K: GO TO 8903 

SSS29 IF q$ = "P " THEN RETURN 
8930 GO TO 3905 

,8940 PRINT RT 0,3; "T RKTY " : LET a 

X - 1 : FOR Hal TO iWt: LET t = FN Z< 

I K +p t - 1 ) *2 ) +3 : PR INT RT K +1,1; I 

ŃU ER SE CODĘ W $ i K + a t ) ; m $ ( L TO L +9 
.) : NEXT K: GO TO 8970 

8 9 4 S R R I NT RT 0,13, "I N 5T R U M E NT Y 1 1 
LET a X =13: FOR K=1 TO i W i : LET 

. I s3 + i K +p i -2 ) * 12 : PR INT RT K +1,1 

&, I NU ER SE CODĘ w % ( a i + K +P t - 1 ) i i $ 
( I. TO I. +9); IN U ER SE 0, i"*" RN D Z 
.gtck) i ( " " RND Z U < > K ) : NEXT K : GO 

TO 8970 

8950 PRINT RT 0 , 26 , " ZRuDLR" : LET 

j a X =25 : FOR K = I T O i W Z : LET L =n + 
i K - 1 :• * 6 : P R I NT R T K + 1,26; J Nyg.fi S 
E CODĘ W $(aZ+K);s$U TO t +bJ : NE 

XT K . GO Tu 8970 
• 

8 9 i;3 '-rT' 1 ;; 1 - LET z$= ("Kasowanie 

RND (Rt = K OR R$= "K" ) ) + ( "U£ ta 
Wianie" RND tR* = "u" OR q*="U"))+ 

oo^TC^SiSa flND N0T mł+ " 

fil 0 EFoK *ia+ix=3» 

♦ as, l-LRSH 1;">": IF x =2 THEN LE 

T zu=y: GO SUB 8945: LET uz=u: L 
fT r,n ia-1+gi : LET ai i *1+ (rtri -l) 
f 12 , : J= E ' n=6*(C0DE i $ (a i i + 1 ) - 1 ) + 
1: , EET az=i t+i i +CODE i * (ai i +1) -1 
. LET PZ=1: LET iwz=FN m ( 16 , CODĘ 
i * iai i ) ) : GO TO 6950 
8962 RETURN 

8965 PRINT RT y + 1 , (X =2 ) *12 + ( x =3) 
*25; 

8965 RETURN 
6970 FOR K=K TO 16: 

, ax ; ” " + ( " 

: NEXT K : RETURN 

8975 REN HBT - 

8976 LET nu 

Ktu: LET q*="": GO~SUB 8980: 

IF R9 = "" THEN RETURN 

S977 FOR Ul TO it: LET n =FN Z (2 

*k!+3: IF m*(ri TO n+9)=R* THEN G 

O SUB 6979: RETURN 

8978 NEXT K : RETURN 

8979 PRINT RT 19,0; FLASH 1;" N 
RZUR JUZ ISTNIEJE - Enter ": 
PRUSE 1: PRUSE 0: RETURN 

8980 GO SUB 9198: PRINT RT 19,0; 

INUERSE l;z$;: PRINT ; , 1 f 

R$o"" THEN PRINT INUERSE 1 ;r*; 
8982 LET X*=INKEY$: IF x* = "" THE 

N GO TO 8982 

89S3 IF X$="P"'THEN LET R*=""; R 
ETURN 

8984- IF NOT (*t>="a" RND X*<="Z" 
OR <X9 = "W" OR X*="D" OR X $ > =" " 
RND X 9 < =”9" ) RND R 9 OT " ) THEN G 
O SUB 9326: GO TO 3982 

8985 IF X*="U" THEN PRINT j" "; 

FLRSh i;" (t/n)" : PRUSE 1: PRUSE 
0: : LET Xt=INKEY$: LET R9=R9 RND 

(X $ = " t " ) : FOR K=LEN R9 + 1 TO 10* 

( R9 < > " " ) : LET R9=R9+" ": NEXT K: 

BEEP .1,30: RETURN 

8986 IF X $ = "D" THEN LET R* = R$( T 
O LEN R $ — 1 ) : GO TO 8980 

8987 LET R$=R t +X $ : IF LEN R$>md 


PRINT RT K+l 
" RND axo26i 


THEN LET RS="": GO SUB 9326: GO 

TO 8980 

3988 PRINT INUERSE 1 ; X * ; : GO TO 
8982 

9045 IF x*="d" THEN LET R=0: GO 

SUE: 9150: GO SUB 100: GO TO 9025 

9046 IF X9="D" THEN LET q = by: GO 

SUB 9150: GO SUB 100: GO TÓ 902 

c; 

9059 IF X$="U" THEN GO TO 9225 

9060 IF X9="U" THEN GO TO 9228 

9061 IF X 9 = "m " THEN LET R=0: GO 

SUB 9260: GO TO 9025 

9062 IF X * = "n " THEN LET R=0: GO 

TO 9265 

8tt8.ffir T fd2ffSl: LET Z 9 = "dO la CZ 

®0^THEN ' REtÓrK, G ° SUB 9193 : IF 9 
9151 LET aris=R: GO SUB 9180: LET 
LEJ. ,5*r i '.'P9 d ® ^ n 


r« d = i i : LET R=0 

r i ns tu men tu : " : 
R=0 THEN RETURN 
9152 LET ani=R: 
INUERSE 1 ; R ; " - " 


GO SUB 9190: 

PRINT RT 3 + R, 2; 

.. . i * (12* (R-l) +3 TO 

ia*R) : LET aa i =1 + 12* (R-l) : LET 
ais=LODE i * ( a a i TO aai): LET asp 
=LODE l*(aai+l TO aai+1): GO SUB 
9185: LET rnd=aiS: LET R=0: LET 
z9="podaj nr zrodla:": GO SUB 91 
90: IF R =0 THEN RETURN 

9153 PRINT RT 3+R , 20 : INUERSE 1; 

■ ; r; " ; s * (S* (a.ap+R-2) +i to 6*(aś 
P+R-Di: LET ans i =R : LET md =3 : L 

ET q=0: LET Z $ = " 1 - I. i t e r 2 -graf 3 

-cyfr": GO SUB 9190: IF R=0 THEN 

RETURN 

9154 LET K=FN O(ariS): LET Z* = "“: 

FOR n=l TO iK: LET Z9=Z9+CHR9 1 

26: NEXT n: LET e*=e$( TO K-D+z 
*+e*(K TO i: LET K=FN t(ans): LE 
T n*=n*( TO k - l) +CHR$ ani+CHR$ ( 
asp +ans i -1) +CHRS (q-l)+n$(K TO ) 

: LET eis=eis+ (is <cise) : LET is = 
is+1: RETURN 

9202 LET K=R: LET md=FN m(ik-R + l 

, i K - 1 ) : LET R=0: LET Z»="ite KTO 

KOW Kasować:": GO SUB 9190; IF q 
=0 THEN GO SUB 9198: RETURN 

9210 LET md=is: LET z*=“nr sciez 
Ki transpon.:": 60 SUB 9190: IF 
R=0 OR CODĘ nt(10+3*q)=l TłHEN GO 

TO 9198 

9211 LET K=R: LET R=0: LET md =12 

6: LET z *=" t ranspozy c ja w gore o 

GO SUB 9190: IF q=0 THEN GO 


TO 9193 
9213 LET n=n+R: 
THEN LET ri = 128 
9215 LET m d = i s ; 
ki transpon, 


IF n > =127 OR n <0 

LET zt="nr sciez 

... . . . . GO SUB 9190 : IF 

R=0 OR CODĘ n* (10+3*R) =1 THEN GO 
TO 9193 ,1 

9216 LET K =R : LET R = 0: LET md =12 

6: LET z$ = "t ran spożyć ja w dot O: 

": GO SUB 9190: IF R=0 THEN GO T 

O 9193 

9225 LET R=l: LET Z$="pOWrot Z Z 

apisem? t=l:": GO SUB 9190; IF R 

=0 THEN GO SUB 9198: GO TO 9025 

9226 LET R=n t : IF R<=it THEN LET 

t =q : GO SUB 8825 

9227 GO TO 9230 

922S LET q=I: LET Z*="pOUfOt bez 

zapisu? t = 1 : " GO’ SUB 9190: IF 

R=0 THEN GO SUB^9 198 : GO TO 9025 

O 2 !? : L LET r 'ńt=n TO S + 2*m)+FN z* 
(n+5*is+12) +rit (9+2*m TO .i: LET K > 
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f 9231 LET hsCODE e$U): LET h=hu 
h <=127) +127* (h >127) : LET e$(n)=C 
HR$ h: LET 1=1+1: FOR x =2 TO i K : 

LET O =CODE £$U>: IF 0 > 12S RND 

0 0 129 THEN LET o =127 

9232 IF h = 1 2 7 RND 0 = 127 OR 0=129' 
THEN LET k=K+l: GO TO 924-0 

9233 IF K =0 THEN LET n=n+l: LET 

e$(n)=CHR$ O : LET h =0 : GO TO 924. 

0 

9234 LET e$(n)=CHR$ (128+h): LET 

h*0: LET n=n+2: IF K < 126 THEN L 

ET £ $ (n -1) =CHR$ k: GO TO 9239 

9235 LET e $ <n - 1 ) =CHR$ L: LET e$( 

n ) sCHR $ 128 : LET n =n + 1 

9239 LET e*(ri)=CMR$ O: LET k =0 

9240 LET 1 = 1+1: NEXT i . IF k >0 T 

HEN LET e$(n) =CHR$ (128+h): LET 
n =n +1 : LET e*(nJ=CHR* k . IF k> = l 

28 THEN LET n=n+l: LET e*Cn)*CHR 
$ 128 

9241 LET n =n + 1 : NEXT fti LET £$=£ 

$ ( 1 TO r. - 1 ) : LET n $ aCHR $ P t +CHR $ 

(i K - 1 ) +CHR $ i s +n $ 

9242 LET i t =CODE fu % i l ) 

9243 IF q>it THEN FOR 1=2 TO 2*i 

t STEP 2: LET M $ U TO L + 1 ) =FN Z**, 
<FN 2 (U +2): NEXT L : LET rń $ =rn $ ( ■- 
TO 2*it+l)+FN Z $ i LEN lik $ +3) + r» i i 2 * 

1 t. +a TO )+n $+•£$; GO TO 9246 

9244 LET r. =FN Z (2*qi : LET K=5*iS 

Le2 TO 2 * i t STEP 

L +1) =FN Z $ (FN Z i 
NEXT l 

9245 LET lii $=to $ < TO 2*q-l) +FN Z $ ( 
n +2) +ro $ i2*q TO n -1) +n $+« $ + m $ < n T 

O ) 

9246 LET i t = i t + 1 : LET r.i $ i l i =CHP $ 

i t. : LET w $ =W $ ( TG q- l) +CHR$ 0+W 

$ (q TO i : R ETURN 

9255 REM 

9256 LET k =FN Z <2*q) 

E iii $ i. k i . LET x K =CODE lii S ( k + 1 ) + 1 
LET i s =CODE fu $ t K. +2 J : LET n % = m $ ■ k 

+ 3 TO k + 12) +r«i$ (13+2*is+k TO 12+5 
* i S + k I . LET r. = k + 13 : LET n = K +FN Z 

(ni : LET €$ = •'•': FOR 1=1 TO i 5 * i k 

LET i aCODE lii $ ( n i : LET e$«e$+CM 
R $ ii - 128 * ( i > 127 i + ( i =127 OR i =£5 
5 j ' . IF i <128 THEN GO TO 9259 

9257 LET n =n + 1 LET r« =COOE r«i $ (ni 

LET i. =l +m : FOR ,i = 1 Tu Ot LET £ 

$=■£$+ (CMR$ 129 HMD i <c 
12S fi ND i = 255 i NEXT 
THEN LET n =n + 1 

9259 LET n =n +1 ; NEXT l: RETURN 

■5360 LET Hld =255: LET z «*''pOdZi« l 

. metrum d.="+STR* Pt+" wu su 
E 9190 IF q=Q THEN RETURN 
9261 LET pt=q: RETURN „ 

9265 LET z*="nr pierwsz. Krotu^ 
LET tu d - i L GO SUB 9190: IF '5=0 

THEN GO TO 903.5 


H3+LEN £$: FOR 

2: LET m*U TO 

U +K* ( l >=2#q) +2> 


LET pt=COD 


:-5>5J + LCHR* 
IF m >12' 


9266 GO SUB 


__E~9198: 00 SUE 8975: I 

F~q*="" THEN GO TO 9025 

9267 IF k<=it THEN GO TO 9266 
9263 IF nStl TO 10i=qS THEN GO S 
UB 3979: GO TO 9266 

9269 IF q = l THEN LET n * 1 1 Tu 9) = 

q*: GO TO 9226 „ , 

9270 LET k.=q: LET q=vk-k+l: LET 

!«=""■ LET I. = K - 1 : LET n = Uk-q)*i 
£ : FOR m=L TO n STEP i K -q : LET Z 

TO m ) : hll T e ,? =e L^T 

9S7i‘lET Xtlri$1ll TO ) : GO SUB 9 
LET a? = Z»: LET n*=q* + K$: LE 


T a !UziŁ7LET’nt:tt + ir'G0'T0 922 

I 337 LET »=»ttisłl2ł( (S-UflL Xj)ł 
n + (3+URL X$)*NGT n.) : IF m>=127 T 
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HEN GO SUB 9326: LET m=12S 

934-2 LET m=127* (X* = "0") +1: RETUR 

N 

klawisz <•> — wywołanie pola aktywności 

pole składa się z trzech kolumn: taktów, instrumen- 
tów i źródła 

b) uaktywniony element jest wypisywany na ekranie 
w trybie inwersyjnym 

c) uaktywniać możemy niezależnie takty, instrumenty 
i ich źródła 

d) po polu poruszamy się kursorem 

funkcje pola aktywność': klawisz <6> — kursor w 
dół 

klawisz < 7 > — kursor w górę 
. klawisz < 5 > — kursor w lewo 
klawisz < 8 > — kursor w prawo 
<SPACE> — włącza nie /wyłącza nie 
elementu, przy którym 
znajduje się kursor 

klawisz <K> — kasowanie aktywnoś- 
ci uwidocznionego na ekranie 
fragmentu kolumny, przy której 
znaiduje się kursor 

klawisz <u> — jaK <k>. ale ustawie- 
nie aktywności 

klawisz <K> — kasowanie aktywnoś- 
ci całej kolumny, przy której 
ustawiony jest kursor 
klawisz <U> — jak <K>. ale usta- 
wienie aktywności 

klawisz <c> — dotyczy całego zbioru: 
parametr: 1 — kasowanie 
2 — ustawianie 

uwaga: kolumna „źródła" wyświetla źródła instru- 
mentu. po którego nazwie jest wyświetlona gwiazd- 
ka 

uwaga: funkcje <w>. <t>, <T>, <k>. <d>, <l>. 
<a> są wykonywane pod warunkiem istnienia przynaj- 
mniej jednego taktu 

uwaga: 'unkcje <t>. <T>, <k> jako drugi parametr mają wybór 
trybu funkcji: 1 — funkcja wykonywana jest na poszcze- 
gólnych ścieżkach pod warunkiem zgodności taktu, ins- 
trumentu i źródła 

2 — funkcja dotyczy całego taktu bez względu na zade- 
klarowane instrumenty i ich ścieżki 

INFORMACJE DLA CIEKAWSKICH 
zapis taktu w pamięci, procedura kompresji: 

T reść taktu aktualnie edytowanego (podczas pracy edytora tak- 
tu) znaiduje się w zmiennej tekstowej e$ Na podstawie opisu z 
poprzedniej części wynika, że jest to zapis pochłaniający dużą 
ilość pamięci, chociaż wygodny od strony edycyjnej. 

Dlatego w momencie zapisu taktu do pamięci (czyli wprowa- 
dzenia go do zmiennej tekstowej m$) ulega on kompresji. 

Na takie postępowanie zdecydowaliśmy się, aby zaoszczędzić 
jak najwięcej pamięci i w ten sposób umożliwić wpisanie dużej 
ilości taktów Duże marnotrawstwo powodują dźwięki przedłużone, 
ciągi pauz, czy całe puste ścieżki 
Mechanizm jest prosty jeżeli dźwięk trwa dłużej niż jeden krok. 
to zostaje zapisana wysokość dźwięku i informacja, na ile kroków 
jest on przedłużony Jako informację o przedłużeniu dźwięku wy- 
korzystujemy 8 (najstarszy) bit słowa wysokości dźwięku (nie 
jest on używany przy zapisie wysokości dźwięku). 1 
Format zapisu przedstawia rysunek 1 : 

I 

Przykładowe zapisy przedstawiają rysunki 2 1 3 


uwaga: jak wspomnieliśmy we wstępie, w prezentowanej wersji 
nie przewidujemy stosowania parametrów brzmienio- 
wych i dlatego ich ilość stale wynosi O 

pamięć taktów: 

Zbiór taktów jest trzymany w zmiennej tekstowej m$ 

it — ilość taktów 

pt — podzielnik tempa 

ik — 1 — zmniejszona o jeden ilość kroków 

is - ilość ścieżek 

Krzysztof PÓZNIAK 
Michał ROLLINGER 
Jarosław ZIEMBICKI 


INFORMATYKA W SZKOLE 


Jak uczyć Informatyki w szkole? Ten pro- 
blem budzi gorące namiętności informatyków, 
nauczycieli i uczniów. I nie jest to spór teore- 
tyczny, coraz częściej bowiem w szkolnych 
pracowniach pojawiają się komputery. Od 
dwóch lat mamy nawet program nauczania te- 
go uzupełniającego przedmiotu, jakim jest in- 
formatyka. Ten program budzi jednak kontro- 
wersje, na przykład, że jego nierozsądna reali- 
zacja doprowadzić może do uczynienia z in- 
formatyki „sztuki dla sztuki" pozbawiając w 
ten sposób szans na wpisanie tej dyscypliny w 
codzienność. 


Jaki powinien być zatem program nauczania 
tego przedmiotu? A może nie należy tej dy- 
scypliny traktować zbyt samodzielnie i stwo- 
rzyć raczej program jej zastosowania w na- 
uczaniu fizyki, matematyki, chemii...? 

Poszukajmy odpowiedzi na te pytania, a od 
początku roku szkolnego towarzyszyć bę- 
dziemy wszystkim uczniom w poznawaniu 
właśnie informatyki. 


Redakcja 


Rola komputera w edukacji 


Uchwała Prezydium Rządu z 5 listopada 1984 r. zakłada wprowa- 
f dzenic do wszystkich szkół średnich do roku 1990 mikrokomputerów 
wraz z oprzyrządowaniem. Za pomocą tych urządzeń możliwe jest 
kształcenie informatyczne naszej młodzieży oraz wspomaganie na- 
uczania innych przedmiotów. Komputery zastosowane właściwie są 
w szkole cennymi środkami dydaktycznymi, rozwijającymi aktyw- 
ność umysłową uczniów, wspomagają one i uatrakcyjniają proces dy- 
daktyczny. By komputer mógł dobrze spełniać swoją funkcję w szko- 
le, nauczyciel musi być zaopatrzony w dobre, sprawdzone programy 
edukacyjne. Obserwujemy obecnie olbrzymie, jak zawsze, zaangażo- 
wanie polskich nauczycieli w rozwój oświaty przez tworzenie świet- 
nych programów edukacyjnych. Bardzo istotną sprawą jest ich 
upowszechnienie, by zainteresowanPnauczyciele i uczniowie mogli 
wspólnie z nich korzystać. W tej dziedzinie przychodzi nam z dużą 
pomocą czasopismo wojskowe „Żołnierz Wolności”, wydając spe- 
cjalny dodatek komputerowy „IKS", który na swoich gościnnych 
łamach umieszcza również programy edukacyjne. Nie czynią tego 
niestety inne czasopisma komputerowe. Najliczniejszą grupę czytel- 
ników tych czasopism stanowi młodzież, a młodzież uczęszcza do 
szkół i poszukuje tych prograniów. Nieocenione usługi w upow- 
szechnianiu programów edukacyjnych wyświadcza nam Polskie Ra- 
dio, zwłaszcza audycje Rozgłośni Harcerskiej emitowane w 4 pro- 
gramie. Wielu uczniów ma swoje własne komputery i oni przynoszą 
do szkoły, za moją namową, programy edukacyjne zarejestrowane na 
kasetach magnetofonowych, które ukazały się w prasie (niestety, ciąg- 
le jeszcze za mało) lub nagrane bezpośrednio za pomocą magnetofonu 
z radia. Jeśli program mi się podoba, przegrywam go na swoją kasetę 
lub dyskietkę; w ten sposób je kolekcjonuję. Nauczyciele, wbrew 
mylnie panującym opiniom, nie mają dużo wolnego czasu, dlatego 
uważam, że w zdobywaniu tak bardzo potrzebnych programów edu- 
kacyjnych powinni nam pomagać nasi uczniowie, dla których będzie 
to połączenie przyjemnego z pożytecznym. Również wykorzystany 
jest do tego celu szkolny komputer. Jeśli wszyscy nauczyciele, zajmu- 
jący się wprowadzeniem komputerów do dydaktyki, będą zachęcać 
dostępnymi środkami swoich uczniów do kolekcjonowania tak po- 
trzebnych programów, to żaden egzemplarz „IKS-a” nie będzie leżał 
w kiosku, w oczekiwaniu na swego czytelnika. Istnieją szkoły, które 
mają komputery, ale z nich nie korzystają z braku programów eduka- 
cyjnych. 

Kształcenie informatyczne zależy od postaw i przygotowania na- 
uczycieli. Dla wielu z nich, szczególnie starszych stażem, komputer 
na lekcji, to tajemniczy przyrząd, pochłaniający nauczycielowi wiele 
czasu. Każda nowość ma swoich zwolenników i przeciwników. 
Komputer wymaga od nauczyciela zapoznania się z nową dziedziną 
wiedzy, co pochłania wiele czasu. Sam również pokonywałem barierę 
psychologiczną i lęk przed nieznanym. Przecież 25 lat uczyłem bez 
komputera i wcale nie odczuwałem jego braku. Mamy w szkołach 
wielu zapaleńców, którzy wciągają do stosowania komputerów in- 
nych nauczycieli. Próby pisania własnych programów przez nauczy- 
cieli, to zjawisko naturalne. Z własnego doświadczenia wiem, i to mu- 


simy sobie uświadomić, że wiedzę informatyczną o wiele łatwiej jest 
opanować ludziom młodym. Dlatego nasi uczniowie powinni szybko 
prześcignąć swoich mistrzów w umiejętności posługiwania się kom- 
puterem i pisaniu programów. Dla nas nauczycieli, stanowić to będzie 
źródło satysfakcji z dobrze wykonanej pracy. Pisanie programu jest 
bardzo czasochłonne, dlatego nauczyciel może być autorem scenariu- 
sza, polecając pisanie samego programu uczniowi. W technikach na- 
pisanie programu edukacyjnego może być tematem pracy końcowej z 
przygotowania zawodowego. Uważam, że programy edukacyjne nie 
powinny wychodzić poza już i tak przeciążone programy nauczania 
poszczególnych przedmiotów. W czasopiśmie „Mikroclan”, wyda- 
wanym na pięknym papierze, znalazłem program na Spectrum 
„W pracowni fizycznej", traktujący o drganiach, które nie występują 
w żadnym programie szkolnym, ani wyższej uczelni i nie występują... 
w przyrodzie, jedynie w wyobraźni programisty. Komputer rysuje 
wszystko, nawet rzeczy, które nie istnieją, jeśli jest źle zaprogramo- 
wany. Jest on szybki i dokładny, ale nie potrafi myśleć. Myślenie jest 
domeną nauczyciela-programisty. Komputer może być niewłaściwie 
wykorzystany w dydaktyce. Sprowadza bn wtedy ucznia do roli nie- 
myślącego wykonawcy, odbierając mu inicjatywę i pomysłowość. 

W pierwszym szeregu entuzjastów wprowadzenia komputerów do 
szkół są nauczyciele fizyki. Są oni zainteresowani każdą możliwością 
wprowadzenia nowych technik do dydaktyki. Komputer na lekcjach 
fizyki ma szerokie pole działania. Może być zastosowany do różnych 
celów. Służy do modelowania zjawisk fizycznych, analizując je nu- 
merycznie, do szybkich obliczeń i przeprowadzania analizy wyników 
doświadczeń, dając dużą oszczędność czasu na lekcji. Wyniki pomia- 
rów przedstawia łatwo na wykresie o zmiennej skali w celu przej- 
rzystszego odwzorowania badanej zależności. Za pomocą komputera 
można symulować na ekranie różne doświadczenia lub działanie 
urządzeń niedostępnych w szkole, np. akceleratory, spektograf ma- 
sowy, reaktor jądrowy. Nie wolno jednak zastąpić symulacją kompu- 
terową rzeczywistych eksperymentów, przeprowadzanych przyrzą- 
dami fizycznymi na lekcji. Komputer może pomóc w uzupełnieniu i 
utrwaleniu przeprowadzonych wcześniej doświadczeń. Symuluje on 
doświadczenia w warunkach idealnych (bez tarcia) lub ekstremal- 
nych. Za pomocą komputera, dzięki jego możliwościom graficznym, 
szybkości i niezawodności, można uzyskać duży postęp w nauczaniu 
fizyki. Najefektywniejszym wykorzystaniem komputera do bada- 
nia zjawisk fizycznych jest sprzężenie go z obserwowanym obiektem. 
Komputer spełnia wtedy dwie funkcje: jest przyrządem pomiarowym 
i analizatorem otrzymanych wyników. Za pomocą komputera na- 
uczyciel może sprawdzić wiadomości uczniów, używając do tego te- 
stu z omawianego działu. Wystawianie uczniom ocen przez komputer 
ożywia lekcje powtórzeniowe, najmniej łubiane przez uczniów i na- 
uczycieli. Przy użyciu programu z instrukcją DATA sprawdzam wy- 
niki obliczeń, dokonanych przez uczniów, jeśli każdy z nich otrzymał 
inne dane, co uniemożliwia odpisywanie od sąsiada. 

Program edukacyjny powinien, moim zdaniem, być tak napisany, a 
by zawierał w odpowiednim miejscu wszystkie wskazówki i polecenia ▼ 

15 


INFORMATYKI 


dla obsługującego go, by używać go mógł każdy nauczyciel lub 
uczeń, nawet nic znający zasad programowania. Dodatkowy tekst w 
publikacji prasowej jest wtedy zbędny, nie zostaje on przecież umie- 
szczony na taśmie magnetofonowej lub dyskietce. Jeśli program 
przewiduje wprowadzenie do komputera pewnych danych za pomocą 
instrukcji INPUT, należy wtedy koniecznie w programie umieścić 
tekst objaśniający, w jakich granicach winny być te dane, by symula- 
cja komputerowa zmieściła się na ekranie. Sposób przekazywania 
wiedzy za pomocą komputera jest efektowny, bardziej koncentruje 
uwagę ucznia. Po kilkuletnim stosowaniu na lekcjach komputerów 
MERITUM (szkolny) oraz SPECTRUM i ATARI (własne), zauwa- 
żyłem, że uzyskuję zdecydowanie lepsze wyniki nauczania. Przepro- 
wadziłem kilkakrotnie następujący eksperyment pedagogiczny: ucząc 
w 4 równoległych klasach, w 2 z nich utrwaliłem tematy z optyki 
geometrycznej — obrazy w zwierciadłach i soczewkach, po naryso- 
waniu ich na tablicy i pokazaniu na ławie optycznej, za pomocą symu- 
lacji komputerowej. Wyniki przeprowadzanych sprawdzianów w 
tych klasach były dużo lepsze. Gdy na lekcji używany jest komputer, 
uczniowie nie słyszą często dzwonka, ogłaszającego oczekiwaną zwy- 
kle przerwę, a do opuszczania pracowni muszę ich zmuszać. 

Prawdziwą przyjemność w stosowaniu komputera na lekcji odczu- 
łem jednak dopiero po zastosowaniu stacji dysków do ATARI (włas- 
na). Rodzice powinni zdać sobie sprawę z tego, że komputer w domu 
może w edukacji dziecka lub młodzieńca wyrządzić wiele szkody, 
jeśli używany będzie jedynie do zabawy. Kiedy uczeń odrobi lekcje, gdy 
całymi godzinami będzie ślęczał przed ekranem telewizora, pochłonięty 
grami komputerowymi. 

Głównym celem obecności komputera w szkole jest przygotowanie 
do życia i działania w nowoczesnym społeczeństwie. Pamiętajmy 
o tym, że ci uczniowie, którzy dziś zasiadają w ławkach naszych 
szkół, będą pracować w XXI wieku, a ich narzędziem pracy z pewnoś- 
cią często będzie komputer. Brak umiejętności w posługiwaniu się 
komputerem w niedalekiej przyszłości będzie tak dotkliwy, jak obec- 
nie brak umiejętności pisania i czytania. 

mgr Jan GOLLA 
nauczyciel fizyki 
w Zespole Szkół Chemiczno-Mechanicznych 
w Gliwicach 


Jak uczyć informatyki 

Zważywszy na duże zainteresowanie informatyką w 
szkole z jednej strony, a niewielkie doświadczenie w 
stosowaniu komputerów (jako przedmiotu i narzę- 
dzia) w klasach z drugiej, proponujemy wzajemną 
pomoc w tym zakresie. Zapraszamy przede wszystkim 
nauczycieli, którzy prowadzą podstawy informatyki w 
szkole średniej lub uczelni humanistycznej. Interesują 
nas zarówno rzeczywiste programy zajęć, jak i konk- 
retne rozwiązania metodyczne nauczania informatyki 
— szczególnie programy wykorzystujące komputer, 
jako narzędzie i jako przedmiot nauczania. 

Najlepsze propozycje zostaną opublikowane i go- 
dziwie nagrodzone: 

I nagroda 50 tys. zl 

II nagroda 30 tys. zł 

III nagroda 20 tys. zł 


PROGRAM LICEUM OGÓLN 
(profil podstawowy i matem 


ELEMENTY INFOf 
(uzupełniający przedmi 


CELE KSZTAŁCENIA 
I WYCHOWANIA 

Zasadniczym celem zajęć z elementów 
informatyki jest nauczanie metod rozwiązy- 
wania za pomocą komputera prostych prob- 
lemów na poziomie programu liceum ogól- 
nokształcącego. dostosowanych do wiedzy 
i umiejętności uczniów. W trakcie tych zajęć 
uczniowie powinni poznać podstawy pro- 
gramowania oraz zdobyć praktyczne umie- 
jętności posługiwania się szkolnym sprzę- 
tem informatycznym i jego oprogramowa- 
niem. Dodatkowym celem nauczania ele- 
mentów informatyki jest stworzenie warun- 
ków sprzyjających korzystaniu z komputera 
podczas uczenia się matematyki, fizyki, 
chemii, pracy-techniki i innych przedmio- 
tów 

TREŚCI KSZTAŁCENIA 
I WYCHOWANIA 


wych, zapisywanie i redagowani 
itp. Pokazanie uczniom sposobó# 
wama się takimi programami; | 
wpływania na przebieg symuiovnr 
cesów. doboru parametrów synu* 
urządzeń, komponowanie ob'azfa 
kształtu formularza w zestawi# 
chunkowych, dobieranie formysit 
nego tekstu. 

Analiza działania wybranych pro 
Określanie, jakie problemy można 
zywać za pomocą danego progi 
jak wygląda proces rozwiązywali 
mu Zbadanie, czy da się wyodtefi 
problemy, które są rozwiązywana 
osobno oraz czy da się ustalić, )# 
ków cząstkowych jest składany oa 
wynik rozwiązania całego problem 

3. Tworzenie rysunków nu 

Podstawowe komendy graficzni 
giwame się wskaźnikiem (znaczm 
ekranie Układ współrzędnych ekr 
sowanie odcinków, punktów i luk 
tworzenie z nich prostych rysur 
ekranie. Operowanie kolorami ryaui 


WIADOMOŚCI 


1. Obsługa mikrokomputera 

Zapoznanie się ze szkolnym mikrokompu- 
terem, Konfiguracja mikrokomputera Pra- 
widłowe połączenie części składowych. 
Podstawowe zasady obsługi mikrokompute- 
ra Włączenie. Układ klawiatury Monitor 
ekranowy Wskaźnik na ekranie Wprowadze- 
nie komend i tekstów Kasowanie pomyłek 
Rozumienie typowych odpowiedzi i reakcji 
mikrokomputera. Wprowadzanie i urucha- 
mianie programu z pamięć zewnętrznej. 
Przerywanie wykonywania programu. Moż- 
liwe nieprawidłowości pracy mikrokompu- 
tera i sposoby postępowania w razie ich wy- 
stąpienia. 


4. Procedury 

Programowanie czynności, któ 
być wielokrotnie wykonywane. T 
procedur Parametry procedur ipe 
nie się mmi. Procedury z oblicza# 
cią (funkcje, operacje) Wyrażenia 
dy posługiwania się funkcjami i wyr: 
przy wykonywaniu obliczeń. Prztte 
wartości między procedurami, zipie 
balne i lokalne Współpraca procei 
cedury rekurencyjne Procedurajń 
ca (edytor); posługiwanie się ną 
prawianiu procedur Zapisywany 
na stałe w pamięci zewnętrznej.!* 
nie procedur z pamięci zewnętrzne 
krokomputera w celu ich wykon#ii 
prawienia 


2. Praktyczne zastosowanie 
mikrokomputera 

Poznanie działania wybranych progra- 
mów, pokazujących typowe zastosowanie 
mikrokomputera, symulowanie procesów 
lub działania urządzeń, układanie i prze- 
kształcanie obrazów na ekranie, zbieranie i 
przechowywanie informacji, wykonywanie 
prostych obliczeń i zestawień rachunko- 


5. Styl programowania 1 

Metoda zstępująca tworzenie 
procedur: od ogólnych założeń ipr 
zarządzającej wykonaniem całofci 
cedur zapewniających wykon»ii 
ności szczegółowych 

Opanowywanie i utrwalanie! p 
wych nawyków przy pisaniu proced 
nowywame i utrwalanie poMa 
umiejętności programowania siuł< 
go, w szczególności czytelnego te 


A W 

IOKSZTAŁCĄCEGO 

latyczno-fizyczny) 

3MATYKI 
ęot nauczania) 

e tekstów nia algorytmów, stosowania czytelnych na- 
ft/ posługi- zw procedur i zmiennych oraz dobierania 
sposobów przejrzystych schematów współdziałania 
inych pro- procedur. Używania w procedurach kons- 
ilowanych trukcji strukturalnych: powtarzania, instruk- 
w, doboru cji warunkowych i rekurencji, 
niach ra- Niezmienniki procedur: wartości, które są 
edagowa- takie same przed wykonaniem procedury i 
po jej wykonaniu. Zależność rezultatów wy- 
ogramów. konania procedury od wartości początko- 
la rozwią- wych zmiennych, mających wpływ na jej 
amu oraz wykonanie. Przykłady niezmienników: 
ia próbie- współrzędne wskaźnika na ekranie, kieru- 
bnić pod- nek wskaźnika, kolor kreski. Tworzenie pro- 
i kolejno i cedur tak, by pewne wielkości były z zasady 
Jlf z wyni- niezmiennikami; korzyści wynikające z ta- 
'Stateczny kiego podejścia przy planowaniu współpra- 
iu. cy procedur. Pisanie przez uczniów włas- 

nych zestawów procedur do tworzenia zło- 
. żonych rysunków. 

•kranie 

ie, Posłu- 

likiem) na 6. Nleelementarne metody grafiki 

ranu. Ry- Tworzenie procedur graficznych tak, aby 
ków oraz ułatwić przekształcenia i modyfikacje ry- 
mków na sunków, na przykład zmianę skali lub poło- 
jnku i tła żenią elementów rysunku, rysowanie scen 
trójwymiarowych z różnych punktów widze- 
nia. Zastosowanie list do opisywania ele- 
mentów rysunku i operacji na listach umoż- 
óre mają liwiających programowanie przesunięć, 
rworzenie obrotów i zmian skali, 
osługiwa- 

ąwartoś- _ _ . . . 

i Przykła 7 - Działania na tekstach 

rażeniami Działania na zdaniach, przedstawianych 
;azywanie jako ciąg wyrazów, zapisany w formie listy, 
enne glo- Operacje składania wyrazów w zdanie (listę). 
5dur. Pro- Wydobywanie ze zdania wyrazów: pierwsze- 
redagują- go, ostatniego, dowolnie wybranego. Przy- 
przy pd- kłady procedur działających na listach i za- 
procedur sady. tworzenia takich procedur. Użycie re- 
I czytywa- kurencji przy przeglądaniu lub modyfikowa- 
lejdomi- nlu list. Tworzenie losowo generowanych 
ia lub po- zdań i danego zasobu wyrazów. Programo- 
wanie prostych, sensownych odpowiedzi na 
zdania wprowadzane z klawiatury. Projek- 
towanie i programowanie prostych dialogów 
z komputerem, opartych na zasadzie rozpo- 
zestawu znawania tekstów. Działania na słowach, 
irocedury rozumianych jako ciągi znaków. 

;i do pro- 

6 czyn ‘ 8. Ćwiczenia samodzielne 

prawidło- Programowanie rozwiązań wybranych 
dur.Opa- przez uczniów problemów. Utrwalanie i po- 
awowych głębianie przyswojonych wiadomości. Anali- 
kturalne- za i ocena uzyskanych rozwiązań i stoso- 
apisywa- wanych metod. 



ORIENTACYJNY PRZYDZIAŁ GODZIN 



1. Obsługa mikrokomputera 

2/ 

3% 

2. Praktyczne zastosowania mikrokomputera 

6/ 

8% 

3. Tworzenie rysunków na ekranie 

4/ 

5% 

4. Procedury 

12/ 

16% 

S. Styl programowania 

12/ 

16% 

6. Nleelementarne metody gratlkl 

12/ 

16% 

7. Działania na tekstach 

12/ 

16% 

8. Ćwiczenia samodzielne 

15/ 

20% 

Razem godzin 

75/100% 


PROGRAM LICEUM OGÓLNOKSZTAŁ- 
CĄCEGO — profil podstawowy i matematy- 
czno-fizyczny (ELEMENT INFORMATYKI - 
uzupełniający przedmiot nauczania), to tytuł 
owocu niewątpliwie ogromnej pracy dzie- 
więcioosobowego zespołu autorów. Czy- 
tanie tego opracowania potwierdza ogro- 
mną wiedzę jego twórców. Wydaje się jed- 
nak, że przeważyły akademickie (politech- 
niczne?) doświadczenia autorów. Propono- 
wany materiał bowiem, przy znacznym wy- 
siłku nauczycieli i uczących się (najlepiej 
studentów), można opanować zapewne nie 
szybciej niż w 200—250 godzin, a nie w za- 
kładanym czasie 75 godzin. 

Skąd ta opinia? Czy aby rzeczywiście „za- 
sadniczym celem zajęć z elementów infor- 
matyki jest nauczanie metod rozwiązywania 
za pomocą komputera prostych problemów 
na poziomie programu liceum ogólno- 
kształcącego, dostosowanych do wiedzy i 
umiejętności uczniów"?' Wydaje się, że 
stwierdzenie to stwarza niebezpieczeństwo 
uznania, iż celem lekcji informatyki jest na- 
uczanie ograniczonych możliwości kompu- 
terów. W każdym razie uczniowie mogą od- 
nieść wrażenie, że komputery służą do roz- 
wiązywania prostych zadań. PROGRAM nie 
przewiduje prezentacji rzeczywistych, moż- 
liwych i przyszłych zastosowań informatyki 
Szkoda także, że nie zostało zdefiniowane 
znaczenie dostosowania „do wiedzy i umie- 
jętności uczniów”. Czym mierzyć owo „do- 
stosowanie" — klasą? Wielkością miasta? 
Czy kwalifikacjami nauczyciela WF? 

Jako inny cel kształcenia i wychowania 
(podkr. wł.) proponowana jest nauka pro- 
gramowania (o języku nie wspomniano, na 
wszelki wypadek, ani słowem). Rodzi to ko- 
lejną wątpliwość: „nauka programowania"? 
Kto potrafi nauczyć programowania (bo po 
co nauka, skoro niemożliwe jest naucze- 
nie?) w szkole średniej w 75 godzin? 

Podczas definiowania celów kształcenia i 
wychowania — wychowanie pozostało w ty- 
tule. Zapomniano o emocjach, „sympa- 
tiach", granicach, o których należy pamię- 
tać poznając komputery Podobnie jeśli idzie 
o treści kształcenia i wychowania (?) — wy- 
chowanie pozostało w tytule. 


Praktyczne zastosowanie komputerów, 
które (wg PROGRAMU) powinny być zro- 
zumiale (z zachowaniem wymagań dydak- 
tyki) przedstawione uczniom, to „tylko": 

— symulowanie procesów działań urzą- 
dzeń, 

— układanie I przekształcanie obrazów na 
ekranie, 

— zbieranie I przechowywanie informacji, 

— wykonywanie prostych obliczeń i zesta- 
wień rachunkowych, m.in. dobór kształtu 
formularza w zestawieniach rachunkowych, 

— zapisywanie i redagowanie tekstów, 

— analiza działania wybranych programów, 

— itp.l 

Jest to zaledwie jeden z 8 (ośmiu) punk- 
tów treści kształcenia i wychowania przewi- 
dzianych na 75 godzin. Darując sobie anali- 
zę pozostałych punktów, warto zwrócić 
uwagę na „Zagadnienia związane z realiza- 
cją programu". Podkreślono tu bardzo wa- 
żny problem edukacji komputerowej w ogó- 
le — przygotowanie nauczycieli. Ale już za 
chwilę napisano, że: „komputer, używany w 
szkole, powinien mieć... pamięć zewnętrzną 
na nośnikach magnetycznych lub możli- 
wość przyłączenia magnetofonu kasetowe- 
go" — czyżby magnetofon kasetowy był 
pamięcią z optycznym nośnikiem informa- 
cji? Na marginesie tej uwagi, ciekawy je- 
stem, czym kierowali się autorzy, pisząc o 
magnetofonie kasetowym, a nie o magneto- 
fonie w ogóle — przecież wszędzie Jam,' 
gdzie pasuje magnetofon kasetowy, można 
wstawić szpulowy — prawda? 

Trochę ironicznie brzmi niepokój o efekt 

— „zniechęcenie uczniów i nauczycieli do 
dalszych przedsięwzięć tego typu". 

Autorzy PROGRAMU twierdzą, że „rozsą- 
dek nakazuje", by jednak program ten zwe- 
ryfikować (a jednak!)., w odpowiednich 
szkołach wyposażonych między innymi w 
specjalistyczne laboratoria informatyczne. 
Cóż z takiej weryfikacji, skoro jej wyniki mają 
być reprezentatywne dla wszystkich szkół 
(także tych bez laboratoriów) 

Całkowicie się nie zgadzam z zaleceniem: 
„Należy unikać podawania wiadomości o 
charakterze teoretycznym, jak szczegóły bu- 


INFORMATYKA W SZKOLE 


dowy komputerów Jak zatem wytłuma- 
czyć uczniom problem miniaturyzacji, 
szybkości, niezawodności, źródła gubienia 
informacji (RAM) i jej pamiętania (ROM), 
ekonomii eksploatacji sprzętu itp.? 

Zalecana jest natomiast analiza przykła- 
dowych programów. Autorzy nie zaryzyko- 
wali jednak choćby jakiejkolwiek egzempli- 
fikacji tej propozycji, np.: najlepiej, według 
naszych doświadczeń, nadaje się do tego 
celu analiza programu sortowania. (Wiele 
przykładów zawiera prasa informatyczna). 

Niestety, lekturę F J ROGRAMU utrudnia 
także „hermetyczny język", np „Uzyskane 
wiadomości powinny być niezwłocznie wy- 


korzystane i utrwalone w pracy na kompute- 
rze" — to jest PROGRAM, nie brudnopis. 

Natomiast przykłady zawarte w PRO- 
GRAMIE wyraźnie nobilizują poziom licea- 
listów — „przykład algorytmu jedzenia kasz- 
ki: 

jedz kaszkę (czynność do wykonania) 
jeśli talerz jest pusty, to koniec (warunek 
zakończenia) 

zjedz łyżkę kaszki (czynność podstawowa 
każdego kroku) 
jedz kaszkę (rekurencja)" (s 12) 

Doświadczenie uczy. Ze każdy początek 
jest trudny — nowe rodzi się w bólach (bo- 
lesne było ęzytanie PROGRAMU) — nie- 


mniej stanowi podstawę do tworzenia ^e- 
czy innych, czasami lepszych. Stąd tez w 
najbliższym numerze przedstawimy naszą 
propozycję PROGRAMU. Sprawdzoną w 
praktyce. Dlatego PROGRAM uzupełni 
„konspekt" na wszystkie zajęcia, które 
przewidziane są na około 60 godzin. Planu- 
jemy, Ze konspekt ten będzie przedstawiony 
w „odcinkach" co miesiąc — każda część 
będzie obejmowała sześciogodzinne zaję- 
cia — wykłady lub ćwiczenia. Uzupełnie- 
niem będą uwagi państwa oraz zespołu 
redakcji. 

Włodzimierz GOGOŁEK 


Sądzę, żc potwierdzeniem naszego zainte- 
resowania informatyką (jestem słuchaczem 
II roku Wojskowej Akademii Politycznej) by- 
ły jedne z ostatnich zajęć z tego przedmiotu. 

Celowym wydaje się podkreślenie orygi- 
nalnej ich formy. Słuchacze bowiem stając w 
roli wykładowcy starali się przez 5 minut zain- 
teresować odbiorców dowolnie podjętą tema- 
tyką z dziedziny informatyki. Ze względu na 
ograniczenia czasowe głos zabrało 9 słucha- 
czy. Jako pierwszy „przejął pałeczkę” od wy- 
kładowcy kol. Kos. Tematem jego wystąpie- 
nia była prezentacja możliwości dysku twar- 
dego typu „Winchester”. Referujący przyto- 
czył parametry jednego z typów dysku, pod- 
kreślając jego dużą pojemność (360 MB) przy 
jednocześnie małych rozmiarach. Wspomniał 

0 zastosowaniu nowych cienkich głowic man- 
ganowych, a także o cieńszej i wydajniejszej 
powłoce magnetycznej dysku. Te i inne zalety 
dysku plus niska cena jednostkowa w stosun- 
ku do jego pojemności stawiają firmę IBM w 
roli potentata w tej dziedzinie. 

Z kolei głos zabrał kol. Dela prezentując 
sposoby wykorzystywania komputera w sferze 
tcleinformacji. Mówił on między innymi o za- 
stosowaniu mikrokomputera domowego, a 
także o możliwościach dialogu za pośrednict- 
wem ekranów telewizyjnych. Ponadto przed- 
stawił nowości brytyjskiej firmy PRESTER z 
dziedziny systemu teleinformatycznego. 

Natomiast kol. Kosiński „przykuł” 
uwagę pozostałych słuchaczy problemem pły- 
tek krzemowych. Obecnie możemy mówić o 
toczącej się rywalizacji w dziedzinie konstru- 
owania najbardziej doskonałych płytek 
krzemowych .między Japonią (TOSHIBA) 

1 Europą Zachodnią (SIEMENS-PHI- 
LIPS). Kol. Kosiński mówił także o prob- 
lemach w zdobyciu surowca tj. krzemu, co 
powoduje nagły wzrost cen na pamięci kom- 
putera. Ponadto bardzo ciekawie wypowie- 
dział się na temat promieniowania synktro- 
nowego tj. tzw. promieniowania X, które daje 
możliwość budowania pamięci RAM do 64 
megabitów. 

Następne 5 minut przeznaczone zostało dla 
kol. Górskiego. Podjął on temat doty- 
czący zastosowania komputera w rolnict- 
wie. Współczesne rolnictwo, to także odpo- 
wiednio „uzbrojone" komputery, które in- 
formują człowieka, np. jakie składniki posiada 
próbka danej gleby i co należy na niej zasiać 
lub też jakie jest zapotrzebowanie na nawozy 
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sztuczne itd. W sumie komputer staje się dziś 
wręcz nieodzownym doradcą dla rolnika. 

Kolejnym referującym był kol. Rze- 
czycki. Swoje wystąpienie oparł o arty- 
kuł z tygodnika „NEWSWEEK" dotyczący 
przyszłościowego zastosowania komputera. 
Mówił on o współczesnym trendzie doskona- 
lenia komputera na wzór mózgu człowieka, a 
także o jego zastosowaniu na rzecz przewidy- 
wania ludzkich działań. Warto jednak pamię- 
tać, że mózg człowieka posiada ok. 100 min 
połączeń między neuronami, natomiast 
współczesny komputer ma tylko 100 połączeń, 
a więc tyle co mózg mrówki. Jednakże gene- 
ralnym celem jest zminimalizowanie roli pro- 
gramisty na rzecz samodzielności maszyny. 
Negatywnym natomiast jest fakt, iż najnowsze 
zdobycze w tej dziedzinie znajdują swoje za- 
stosowanie przede wszystkim w przemyśle 
zbrojeniowym. 

Kol. Kasprzak natomiast zabrał głos w 
kwestii zastosowania procesora i pamięci w 
komputerze. Wystąpienie to było oparte o 
najnowsze dane w tej dziedzinie. Wspomnia- 
no między innymi o Conection Machinę, a 
więc o komputerze wyposażonym w wiele 
procesorów. Możliwość zastosowania jak 
największej liczby -procesorów w komputerze 
ma na celu jak najszybsze i dokładne dokona- 
nie określonej operacji (np. w dziedzinie gra- 
fiki). Programista komunikuje się z takim 
komputerem za pośrednictwem tradycyjnego 
komputera, korzystając ze standardowego ję- 
zyka programowania. 

Możliwościami zastosowania komputera w 
dziedzinie marynistyki zajął się kol. Syku- 
lak — oficer marynarki wojennej. Przed- 
stawiona przy okazji plansza zobrazowała, iż 
każdy współczesny statek (okręt), to poten- 
cjalne „siedlisko” komputerów. Zastosowanie 
ich zaś dotyczy: dowodzenia statkiem czy 
okrętem, jego bezpieczeństwa, nawigacji i 
eksploatacji, w tym optymalizacji zużycia pa- 
liwa. W tym wypadku komputer okazuje się 
wielkim sprzymierzeńcem człowieka. 


W dalszej części zajęć ciekawe wystąpienie 
zaprezentował kol. Tessikowski. Poru- 
szył on kwestię możliwości wykorzystania 
komputera do gry w szachy. Już w końcu lat 
pięćdziesiątych pojawiły się pierwsze progra- 
my tego typu dla maszyn cyfrowych. Faktem 
jest, iż właśnie „królewska gra” okazała się do- 
skonałym polem do badań nad sztuczną inte- 
ligencją. „Elektroniczny szachista” jednak nie 
jest doskonały, nie potrafi wygrać z arcymi- 
strzami tej gry. Nie oznacza to jednak, że tak 
musi być, gdyż wraz z postępem w dziedzinie 
elektroniki komputer staje się coraz bardziej 
znaczący, a jego możliwości nie są dzisiaj je- 
szcze w pełni znane. 

I wreszcie jako ostatni zabrał głos kol. 
Minkina. Skoro zajęcia odbywały się w 
Wojskowej Akademii Politycznej, nie można 
było pominąć tematyki militarnej, a ściślej 
wykorzystania komputera w siłach zbrojnych. 
Kol. Minkina zajął się kwestią kompute- 
ryzacji w armii Stanów Zjednoczonych. 
Przedstawił on słuchaczom między innymi 
możliwości systemu taktyczno-operacyjnego 
(Tactical Operation System) przeznaczonego 
do uzyskiwania, diagnozowania i przekazy- 
wania informacji. System ten może być wyko- 
rzystywany np. w kierowaniu ogniem artyle- 
rii, obronie powietrznej, kierowaniu tyłami 
czy też w dowodzeniu taktycznym. Znamien- 
ny jest fakt, iż już dzisiaj mówi się w USA o 
tzw. elektronicznym polu walki. Zaś do- 
wództwo SZ USA ma opracowanych 8 pla- 
nów wojny światowej i 60 planów działań w 
sytuacjach krytycznych, gdzie dane mogą być 
przekazywane w ciągu kilku minut. I wszyst- 
ko za sprawą komputera. Jest to jednak w tym 
wypadku przerażające. i 

Niewątpliwie, omawiane zajęcia osiągnęły 
swój zasadniczy cel, tzn. poszerzyły wiedzę, a 
także zainteresowania problematyką dotyczą- 
cą roli komputera w życiu człowieka. Wypo- 
wiedzi słuchaczy nie były, co prawda stricte 
fachowe, ale takie nie miały być. Były 
natomiast odpowiednio dostosowane do od- 
biorcy, dzięki czemu w swej wymowie, w tym 
wypadku, były bardziej wyraziste i zrozu- 
miałe. 

Sądzę, iż taka forma zajęć powinna być 
częściej stosowana, bowiem prowadzących i 
słuchających mobilizuje oraz bardziej przy- 
bliża tego typu wiedzę i w takim zakresie, niż 
wykład tradycyjny. 

Zbigniew CYWIŃSKI 
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Zadanie konikowe 


Dzisiejszy odcinek cyklu rozwiązywania anegdot matematy- 
cznych chcemy poświęcić zadaniu konikowemu na szachownicy. 
Podanie mówi, że uczony indyjski SISSA-NASIR, twórca szachów, 
zaządal od władcy, oczarowanego nową grą, pozornie skromnej 
zapłaty. Chciał dostać tyle zboża, ile otrzyma! gdy poprzez 64 pola 
szachownicy podwajane będzie 1 ziarno położone na pierwszym 
polu. Jak łatwo odgadnąć, jest to suma pierwszych 64 wyrazów 
postępu geometrycznego, którego wyrazem początkowym jest 1 , 
a ilorazem ?.. Władca Indii, człowiek bardzo bogaty, nie był niestety 
w stanie uhonorować autora gry. Dlaczego — cierpliwi Czytelnicy 
mogą sami policzyć, ile powinno wynosić honorarium wynalazcy. 

Zadanie konikowe jest sformułowane następująco: 
jak można skokami konika szachowego obiec wszystkie 64 pola 
szachownicy, korzystając z każdego pola tylko 1 raz. 

Zagadnieniami skoków konika po szachownicy zajmowało się 
wielu znanych matematyków. Stworzyli oni szereg metod rozwią- 
zania przedstawionego wyżei zadania, z których najbardziej znane 
to: 

1 . Metoda Eulera (koniec wieku XVII). 

2. Metoda ramowa Moora (1843 rok). 

3. Metoda ramowa Moivre'a (początek XVIII wieku). 

4 Metoda podziału na ćwiartki Rogeta (połowa XIX wieku). 

Zainteresowanych szczegółami Czytelników odsyłamy do roz- 
działu 6 „Lilavati'\ 

Liczba różnych rozwiązań tego zadania, co wydaje się wręcz 
niemożliwe, jest ogromna — przekracza 31 milionów. Będzie to 
chyba zachętą dla Czytelników, którzy zechcą wprowadzić pro- 
gram do pamięci mikrokomputera i spróbować swoich sit 

CHARAKTERYSTYKA PROGRAMU 

Po zainicjowaniu pracy, program przedstawia na ekranie zasa- 
dy gry w następującej postaci: 


PROGRAM - 2 AD ANIE KONIKOWE 


Twój* udani* polega na obejsoiu wszystkich M poi szachownicy skokani konika 
szachoweao. Obowiązuj* zasada, z* kari* poi* noxe buc wykorzystań* tylk* j*d*n 
"oba ponownego wykorzystanU^pjl^ ^Mt^gnal^zowan* k on unikat**: 


u wszystkich M poi szachownicy skokani konika 

buc wykorzystań* tylko 

lizowana konunikaten: 

-_ r ... * poroszą si* konik, to progran 

* konunikatmi 

„ t , . 'TAK NU PORUSZA SIE KONIK" 

Za chwil* ukaz* si* szachownic* . M oknie gornyn jest podawany n 
przesunąć konika jus i sz podać nr kojunny i wiersza kazdoraz 
liczbie klawisz EHTĘR, (^okienko środkowe ), Nuneraęja Jest 


Pola juz raz wykorzystane sa oznaczane kwadrat** w środku pola 

Następnie po naciśnięciu dowolnego klawisza pojawia się plan- 
sza szachownicy i użytkownik może rozpocząć grę. Sytuację po 1 
ruchu przedstawia poniższy rysunek: 


■Kv 


NR RUCHU: 1 
PODAJ NUMER 

ZVC2VMV 

SUKCESU 


Danuta KWASIŻUR, 
Mieczysław SKONIECZNY 

Program opracowany w języku BASIC mikrokomputera 
AMSTRAD OPC 6128 ma następującą wersję źródłową: 

CHARAKTERYSTYKA PODPROGRAMÓW 
Do programu głównego należy dołączyć 3 podprogramy speł- 
niające następujące funkcje: 

1 Czyszczenie 2 okienka i sprawdzanie poprawności wprowa- 
dzonych danych (nr wiersza i kolumny). 

10 DIM t(8, B) 

30 N0De'S ! I NK° 0?26T I SS l.OsPAPER 1;PEN OiCLSiBORSER 0 
40 HINOCN £1,1,80, l,3iPAPER tl.OsPEN £1 . liCLSfl 
50 HUTO £2. 1, BO, 23.25! PAPER £2.0:PEN 12,1:0.512 
10 LOCATE E 1 . 2i. 2 : PR INT1 1 . • PROSrAh - ZADANIE KONIKOWE 
70 LOCATE 1,5:PRINT'TmI> lldinlo polni ni obuioiu niyltklch 04 poi 
s:ichOHnicv skakali koniki uiihoHOÓo. Obaiiizuje midi, l 
t każde pole eoze byc wykorzystane tylko jeden raz. Próba poronnego w 
B0 O Pr5Ńt! I, ‘i ,0.1 j..t iyon.il: 0 H.ni.! f o..nlk.tl.,; <KOS!Y| T #KO< 

Jeżeli będziesz probowal wykonać ruch, jaki 
• nil porusz i Sie konik, to progru jareoouil kolonlkiteji' 

90 PRINT" TAK NlE PORUSZA SIE KONIK' 

Za chwile ukaże sie szachownica. H oknie go 
rnve Jest Dodawany nr ruchu. Aby przesunąć konika eusisz podać nr 
kolueny i Hiersza każdorazowo wciskając po" 

100 PRINT"liczbie klawisz ENTER ( okienko środkowe ). Noeeracja Jest w 
idoczna obok szacho-wnicy ( na dole nr kolueny, a z prawe] str 
ony nr wiersza ) . "iPRINT 

110 PRINT*Przed podaniee współrzędnych pierwszego ruchu na szachownicy 
nie widać konika. N następnych ruchach aktualna pozycja koni 
ka jest sygnał irowam litera K. 1 

1Z0 PRINT:PRINTTola juz raz wykorzystane sa oznaczane kwadratee w sro 

130 EoCATE £2, 26,2: PRINT£2. "NACISNI J D0N0LNY KLAWISZ’ 

140 CLEAR IMPUT t A$*INKEY* 

150 IF AS*" GOTO 140 

160 'Deklaracja kolorow i okien w trybie 1 
170 MODĘ 1: INK 0.26:INK l.OsINK 2,6: INK 3,19 

180 PAPER 2:F0RDER 6:CLS A 

190 WINDOM £1.28,40,1*3: PEN £1, li PAPER £1.0iCLS£l 
200 WINDOM £2, 28. 40,5, 10: PEN £2,1:PAPER £Ź,0:CLS£2 
210 WINC0W £3,28,40,12, IbiPEN £3,1:PAPER £3,0:CLS£3 
220 ‘Zerowanie tablicy s 
230 FOR i=l TO 8 

240 FOR j*l TO 8:s (i , j )=0:NEXT: NEXT 
250 ruch=l 

260 'Rysowanie szachownicy 

270 PAPER C:°EN 1:FDR i=0 TO 6 STEP 2 

280 FOR i l*6tiM TO 6li*3 

290 FOR i 2*1 TO 4 . . 

300 PRINT CHR» (143); CHR$ ( 1 43 > ; CHR* (1 43 ) * " 

310 NEXT i2:PRlNT: NEIT il 
320 FOR il*6li+4 TO 6#i+6 

340 PRINT 2,1 T ‘jCHRI(143)jCHR»(143)5CHR»(143)j 
350 NEXT i2:PRINT: NEXT i i sNEXT 1 

370° FDR P iM 2 T0 R Ś N jL0ĆATE 25.113-llPRlRT USIU6*f|i:NEXT 
380 'Czynności wstepne do pierwszego ruchu 
390 PEN 3: PEN £i.2:PEN £2,2:PEN £3,2 
400 ob*0:60SUB 720:suk*0 

420 SYHB0L 255 J99?206, 220, 240, 240, 220, 206, 199 

MW £1,2,2 ti „. „ 

430 PRINT £1 , "NR RUCHUl " (USINE-K - 1 ruch 
400 G0SJB 000 

470 ob>2: 60SUB 720:IF blld=2 60T0 440 
480 ob*3i60SUB 720 

490 IF blad*3 GOTO 440 , . ... 

i?® iMsniMisis i5KV8 * ** ■ j- 

32(! T lPlln»2 R 0R In=4 0R°in=0 0R in»8ł ORD (jn«2 0R jn»4 0R jn*0 0R ln a 

Smif^SS^mnucate CHR * <lł3> 

340 LOCATE Un-l)43+2, (jn-lłł3+2iPRINT CHRK253) 

550 ruch=ruch+l . 

5.60 i*inij*jn:s(i,jł*l | 


19 


570 GOSUB 1080 
580 IF suk*l GOTO 20 
590. GOTO 440 


2. Obsługa błędów 

Umownie możliwym błędom nadano kody 0 — 3. 

Wystąpienie każdego z tych kodów powoduje zmianę zawar- 
tości tekstu wyświetlanego w oknie nr 3. Interpretacja kodów 
jest następująca: 

0 — brak błędów (w oknie wyświetla się komunikat „Życzymy 
sukcesów"; 

1 — wprowadzono niedopuszczalny nr kolumny lub nr wiersza 
(komunikat: „Ten numer musi być od 1 — 8"); 

2 — próba wykonania niedozwolonego ruchu (komunikat: „Tak 
nie porusza się konik"); 

3 — próba powtórnego wykorzystania pola (komunikat: „To po- 
le już wykorzystano"). 


600 'Podprogram ctyizczinii 2 okna i sprawdzania poprawności wprowadza 
nych liczb 

610 CLS £2: LOCflTE £2,2,2 
620 PRINT £2, "PODAJ NUMER" 

650 ob=l : nr*i n : GOSUB 720 
660 IF biadol 60T0 610 
670 'LOCATE £2.2.5 
680 INPUT £2, "NlERSZAi " » jn 
690 nr=jn:60SUB 720 
700 IF biadol GOTO 610 
710 RETURN 

3. Zakończenie gry w sytuacji poprawnego rozwiązania zada- 
nia. 

720 'Podprogram obsługi bledou 
730 blad=0 

740 IF ob=0 GOTO 1040 

7S0 'Obsługa błędu 1 rodzaju 

760 IF obCl GOTO 820 

770 IF (nr >0 AND nr<9) GOTO 1040 

780 CLS £3:blad=l 

790 LOCATE £3, 3, 2: PRINT £3, "TEN NUMER’ 

800 L0CATE £3, 3, 3i PRINT £3, "MUSI BYC" 

810 LOCATE £3, 3, 4: PRINT £3,"0D 1 DO 8"sG0T0 1030 

820 'Obsługa Pledu 2 rodzaju 

830 IF ob< >2 GOTO 970 

840 IF ruch=l GOTO 1040 

850 IF in=i+I AND jn-j-2 GOTO 1040 


860 IF in=i+2 AND jn=j-l GOTO 1040 
mjMłl»it2 AND jn= j+1 GOTO 1040 
880 IF in=i+l AND jn=j+2 GOTO 1040 
890-IF-in»(-l AND jn=j+2 GOTO 1040 
900 IF in=i-2 AND jn=j+l GOTO 1040 
910 IF i n=i -2 AND jn=j-l 60T0 1040 
920 IF i n=i -1 AND jn=j-2 GOTO 1040 
930 CLS £3:blad-2 

940 L0CATE £3, 4, 2: PRINT £3, "TAK NIE" 

950 L0CATE £3,2,3:PRINT £3, "PORUSZA SIE" 

960 L0CATE £3,5,4:PRINT £3. "KONIK* : GOTO 1030 
970 'Obsługa bledu 3 rodzaju 
980 IF s ( in, jn) =0 GOTO 1040 
990 CLS £3:blad=3 

1000 L0CATE £3, 4, 2: PRINT £3, "TO POLE” 

1010 L0CATE £3,4, 3: PRINT £3, "JUZ KY-" 

1020 L0CATE £3. 3. 4: PRINT £3, "KORZYSTANO" 

1030 FOR T=1 TO 2000: NEXT 
1040 CLS £3 

1050 L0CATE £3,4,2sPRINT £3,"ZYCZYHY" 

1060 L0CATE £3,4,4:PRINT £3, "SUKCESU" 

1070 RETURN 

1080 'Podprogram badania sukcesu 

1090 FOR a=l TO 8 

1100 FOR b=l TO 8 

1110 IF s (a, b) =0 GOTO 1230 

1120 NEXT biNEYT a 

1130 CLS £2: LOCATE £2. 4, 3: PRINTE2, “BRAWO ! " 

1140 LOCATE £2,2,4: PRINT £2, "ZNYCIEZYLES" 

1150 CLS £3: LOCATE £3.2,2:fRINT £3, "CZY CHCESZ" 
1160 LOCATE £3,3,3:PRINT £3, “P0WT0RZYC" 

1170 LOCATE £3,2,4: INPUT £3,"GRE (T/N) :",a* 

1180 suk=i 

1190 IF a$="T" OR a*="t“ -GOTO 1230 
1200 PAPER 2:CLS:PEN 0 

1210 LOCATE 12. 12: PRINT"KONIEC ZADANIA KONIKOWEGO" 
1220 GOTO 1220 
1230 RETURN 

Życzymy wytrwałym Czytelnikom sukcesu w tej nieskompliko- 
wanej grze konwersacyjnej. 

Danuta KWASIŻUR 
Mieczysław SKONIECZNY 


„MASTERWORD” 


•Masterword jest kolejnym edytorem tekstu 
przeznaczonym dla komputera Commodore 
— 64. W wersji opisanej poniżej (wersja 2.8J) 
napisany został przez Green Valey Publishing 
należący do Share Data Inc. w roku 1986. 

Program ten zasadniczo różni się od opisy- 
wanego wcześniej edytora Geowrite. Może być 
wykorzystywany tylko przez osoby dysponu- 
jące stacją dysków. 

Po uruchomieniu programu ukazuje się 
pierwsze menu o następującej zawartości: 

1. MASTER WORD 

2. BRIEF INSTRUCTIONS (krótka ins- 
trukcja obsługi) 

3. QUIT — zakończenie pracy z edytorem 
Po wybraniu „1” następuje załadowanie 

edytora do pamięci komputera. Program na 
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samym początku przypomina nam o konie- 
czności sformatowania dyskietki, na której 
zamierzamy przeęhowywać tworzone doku- 
menty. Do formatowania należy użyć opcji 
PREPARE DOCUMENT DISK zawartej w 
menu DISK UTILITIES o czym będzie 
mowa w dalszej części artykułu. 


I. Menu główne edytora Masterword 

Zarówno menu główne edytora, jak i po- 
szczególne funkcje przedstawione są w Ma- 
sterword za pomocą ikon. Główne menu skła- 
da się z następujących funkcji: PRINT, 
EDIT, FILE, LAYOUT, CUSTOMIZE, 
DISK UTILITIES. Odpowiednią funkcję 
wybieramy za pomocą klawisza kursora, ozna- 


czając za pomocą przesuwającej się ramki tą, 
która nas aktualnie interesuje, có potwierdzamy 
naciskając RETURN. Powrót do stanu po- 
przedniego menu następuje zawsze po naciś- 
nięciu klawisza funkcyjnego FI. 

W pamięci komputera stale rezydują tylko 
funkcje EDIT i LAYOUT, stąd po wybraniu 
którejkolwiek z pozostałych należy chwilę od- 
czekać na jej załadowanie. 

II. Opis poszczególnych funkcji zawartych w 
menu głównym. 

1. PRINT 

Po wybraniu tej funkcji na ekranie po pew- 
nej chwili ukazuje się menu w postaci ikon, 
zawierające: 


TYPE OF PAPER — rodzaj papieru (poje- 
dyncze kartki lub papier podawany w sposób 
ciągły). 

TYPEWRITER — przejście do trybu pracy 
maszyny do pisania — dana linia jest druko- 
wana po wciśnięciu RETURN. 

PRINT DOCUMENT - drukowanie do- 
kumentu. 

SEE FINAŁ DOCUMENT - obejrzenie na 
ekranie gotowego dokumentu. 

STARTING PAGE NUMBER - numer 
pierwszej strony. Numer ten drukowany jest 
na dole z napisem PAGE (strona). 

2. EDIT 

Funkcja ta posiada następujące menu: 
ERASE TEXT — usunięcie tekstu. 

INSERT EREASED TEXT - umieszczenie 
tekstu usuniętego. 

MOVE TEKST — przesunięcie (przeniesie- 
nie) tekstu w inne miejsce dokumentu. 

COPY TEXT — skopiowanie tekstu w inne 
miejsce dokumentu, bez usuwania go z miejs- 
ca poprzedniego. 

FIND — znalezienie danego tekstu 
FIND AND REPLACE — znalezienie tekstu 
i zastąpienie go innym. Tekst przeznaczony 
do usunięcia, przeniesienia lub skopiowania 
zaznaczamy przez „podświetlenie” kursorem. 


3. FILE 

Opcja FILE składa się z następujących 
funkcji: 

INSERT DOCUMENT — umieszczenie 
dokumentu w pisanym tekście, w miejscu gdzie 
znajduje się aktualnie kursor. 

GET DOCUMENT — wywołanie na ekran 
napisanego wcześniej dokumentu. Jeżeli na 
ekranie znajduje się tekst, to ulega on kasowa- 
niu przez tekst wywoływany. 

SAVE DOCUMENT — zapisanie dokumen- 
tu na, dyskietkę. 

BEGIŃ NEW DOCUMENT — rozpoczę- 
cie pisania nowego dokumentu. 

4. LAYOUT 

Funkcja ta pozwala na nadanie pisanym 
dokumentom odpowiedniej formy. Jej menu 
składa się z: 

SET SPACING — (SET TOP/BOTTOM 
MARGINS, SET LEFT/ RIGHT MAR- 
GINS, SET LINĘ SPACING) — ustale- 
nie marginesów: dolnego, górnego, lewego i 
prawego oraz odstępu między wierszami. 
START NEW PAGE — rozpoczęcie nowej 
strony. 

ALIGNMENT - (ALIGN RIGHT, 
ALIGN LEFT, CENTER NEXT LINĘ) - 
wyrównanie tekstu do prawej lub lewej strony, 
ustawienie centralne następnego wiersza. 
PRINT STYLE — (BOLDFACE TEXT, 
NORMAL TEXT, UNDERLINE TEXT) 
— rodzaj druku — tekst pogrubiony, normal- 
ny i podkreślony. 

HEADINGS/FOOTINGS — DRUKO- 
WANIE TEKSTU JAKO NAGŁÓWKA 
LUB STOPKI po lewej/prawej stronie lub 
centralnie. 

5. CUSTOMIZE 

Funkcja ta posiada następujące możliwości: 
MAKE BACKUP DOCUMENTS — wy- 


konywanie kopii dokumentu podczas zapi- 
sywania go na dyskietce. 

CHANGE PRESET MARGINS — (SET 
TOP/BOTTOM MARGINS, SET LEFT/ 
/RIGHT MARGINS, SET LINĘ SPA- 
CING, SET TAB STOPS, SET PHYSI- 
CAL PAGE LENGTH, SET PHYSICAL 
PAGE WIDTH) — zmiana poprzednio usta- 
lonych parametrów takich jak: marginesy górny, 
dolny, lewy, prawy, odstęp między wierszami, 
tabulacji, długości i szerokości strony (w ca- 
lach). 

SAVE CUSTOMIZE CHOICES - zapisa- 
nie na dysku ustalonych wyżej parametrów. 
TYPE OF PRINTER — wybór typu drukar- 
ki. 

ACCESSORIES — określenie, czy praca z 
jedną, czy z dwiema stacjami dysków. 

6. DISK UTILITIES 

Funkcja ta zawiera następujące możliwości: 
PREPARE DOCUMENT DISK — sforma- 
towanie dyskietki w celu zapisywania na niej 
dokumentów pisanych za pomocą progra- 
mu Masterword. 

ERASE DOCUMENT — wymazanie do- 
kumentu z dyskietki. 

CATALOG DISK — wyświetlenie katalogu 
dyskietki (katalogu dokumentów na dyskietce) 
EXIT — wyjście z programu (uruchomienie 
innego programu). 

III. Klawisze funkcyjne programu 

W programie Masterword znajduje się plik 
o nazwie HELP.DOC, w którym opisano 
funkcje przypisane pewnym klawiszom, a 
użycie których jest bardzo przydatne podczas 
tworzenia dokumentów. 

Do klawiszy tych należą: 

D i INST DEL — usunięcie znaku na lewo 
od kursora. 

CRSR prawy — przesunięcie kursora o 1 spa- 
cję w prawo. 

SHIFT CRSR prawy lub F7 — przesunięcie 
kursora jedno miejsce w lewo. 

CLR HOME — przejście do początku doku- 
mentu. 

F3 — klawisz tabulacji. 

Naciśnięcie klawisza CTRL i jednego z ni- 
żej wymienionych daje następujące możliwoś- 
ci: 

W — przejście kursora do poprzedniego wy- 
razu 

E — przejście kursora do następnego wyrazu 
N — wymazanie następnego słowa 
O — wyświetlenie zawartości poprzedniego 
ekranu 

P — wyświetlenie zawartości następnego 
ekranu 

T — przejście do początku dokumentu 
B — przejście do końca dokumentu 
F — przejście do następnej strony (strony 
wydruku) 

G — przejście dó poprzedniej strony (strony 
wydruku) 

C — zmiana trybu pisania (pisanie z rozsu- 
waniem istniejącego tekstu lub pisanie z zama- 
zywaniem tekstu istniejącego). 

V — wyświetlenie wartości ASCII danego 
znaku. 

X — umieszczenie wartości znaku ASCII. 

Możliwe jest także bezpośrednie wybiera- 
nie funkcji określonych przez ikony za pomo- 
cą równoczesnego naciśnięcia klawisza Com- 
modore i następujących klawiszy: 


A — umieszczenie dokumentu w pisanym 
tekście, 

G — załadowanie dokumentu, 

H — pokazanie na ekranie pliku HELP, 

S —i zapis dokumentu na dyskietce, 

C — kopiowanie tekstu, 

E — usunięcie tekstu, 

M — umieszczenie usuniętego tekstu, 

F — znalezienie tekstu, 

R — znalezienie tekstu i zastąpienie go innym, 
Y — przesunięcie tekstu, 

B — drukowanie (litery) pogrubione, 

D — początek nowej strony, 

K — ustalenie prawego/lewego marginesu, 

L — wyrównanie tekstu do lewej strony, 

N — tekst normalny, 

O — napisanie następnego wiersza centralnie, 
Q — ustalenie górnego i dolnego marginesu, 
T — nagłówek/stopka, 

U — podkreślenie tekstu, 

W — ustalenie odstępu między wierszami, 

Z — wyrównanie tekstu do prawej strony. 

Stosowanie wyżej wymienionych klawiszy 
przyspiesza znacznie pracę podczas pisania 
dokumentów, ponieważ nie wymaga porusza- 
nia się, przeglądania i wybierania poszcze- 
gólnych ikon. 

IV. Pisanie dokumentów za pomocą edyto- 
ra Masterword. 

Pracę z edytorem, jak już wcześniej wspo- 
mniano należy zacząć od przygotowania dy- 
skietki na dokumenty. Należy w tym miejscu 
zaznaczyć, że dokumenty (pliki) umieszczone 
na takiej dyskietce, utworzone podczas pracy 
z Masterword, nie są widoczne przy próbie 
ich wylistowania za pomocą instrukcji LOAD 
8 i LIST. Chcąc utworzyć nowy doku- 
ment wybieramy z menu FILE opcję BEGIN 
NEW DOCUMENT. 

Podczas pisania ekran podzielony jest na 
trzy okna. Okno główne przeznaczone jest do 
wpisywania tekstu. W oknie po lewej stronie 
na dole znajduje się informacja o numerze ak- 
tualnej strony, ilość wolnej pamięci kompute- 
ra oraz ilość wolnego miejsca na dyskietce, na 
którą wpisywane są tworzone dokumenty 
(dwie ostatnie informacje w postaci jasnych 
pasków, zmniejszających swoją długość). 

W oknie na dole po prawej stronie ekranu 
widoczny jest rzeczywisty układ tekstu na pi- 
sanej stronie (układ taki jaki zostanie wydru- 
kowany). 

Podczas pisania dłuższych tekstów należy co 
jakiś czas wpisać na dyskietkę tekst już napi- 
sany, aby w sytuacji awaryjnej (zanik napię- 
cia) nie było konieczne zaczynanie całej pracy 
od nowa. 


V. Ocena edytora 

Masterword jest programem bardzo przy- 
jaznym i łatwym w obsłudze. Zastosowane 
ikony ułatwiają bardzo pracę, szczególnie po- 
czątkującym użytkownikom. Masterword w 
zasadzie spełnia wszystkie wymagania stawia- 
ne „poważnym” edytorom tekstu przezna- 
czonym na komputery osobiste. 

Do jego wad należy zaliczyć jedynie dosyć 
ubogi wybór rodzajów pisma (zastosowany 
krój czcionki może się jednak podobać) oraz 
oczywiście brak polskiego alfabetu. 

Tadeusz CISEK 
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Kompilator języka C firmy HISOFT 

(Amstrad CPC-6128) 


Język C z racji nieco skomplikowanej 
syntaktyki jest jeszcze mniej popularny od 
BASICa, czy PASCAL’a, lecz pomimo to 
istnieje wiele jego wersji mikrokomputero- 
wych. Do opanowania podstawowych kon- 
strukcji świetnie nadaję się kompilator wypro- 
dukowany przez firmę HISOFT, która z kon- 
sekwencją lansuje własny styl. Dzięki temu, 
ten kto opanował obsługę kompilatora PAS- 
CAL na Spectrum, czy Amstradzie, nie po- 
winien mieć w zasadzie kłopotów z obsługą C. 
Niniejszy opis dotyczy wersji Amstrada. 

1. URUCHOMIENIE KOMPILATORA 
Kompilator składa się z jednego zbioru 
(HISOFTC. BIN). Wystarczy wpisać 
RUN”HISOFT 

i włożyć dyskietkę lub uruchomić magnetofon 
z kasetą. Po prawidłowej operacji ładowania 
powinien ukazać się napis: 

HISOFT -CCompilcrvl. 2 
Copyright C 1984 HISOFT 
oraz znak zachęty > będący sygnałem zgło- 
szenia się edytora. Obok pojawi się kursor. 
Ekran będzie zorganizowany w trybie 2. 


2. EDYTOR 

Komendy edytora są jednoliterowe i nie 
mogą mieć więcej niż 4 parametry. Pierwsze 
dwa są numeryczne (początkowo równe 10), a 
kolejne dwa tekstowe (początkowo puste). Nie 
wszystkie są zapamiętywane, co stanowi pew- 
ne odstępstwo od standardu HISOFT. Oto 
skrócony opis opcji edytora: 


I m, n 
L m, n 
D m. n 

R m. n 
Wm,n 
S. znak 
V 


F m. n. f. 


P m. n. s 


G„ s 


wpisywanie linii progra- 
mu od m co n; 
listowanie programu od 
linii m do n; 

kasowanie bloku linii od 
m do n; 

(kasowanie jednej linii 
D m); 

prenumerowanie linii od 
m co n; 

analogicznie jak L, lecz 
na drukarkę; 
zmiana separatora (po- 
czątkowo przecinek); 
opcja informacyjna poda- 
jąca bieżące wartości 
separatora oraz 4 para- 
metrów komend, poza 
tym wyświetlenie adresu 
początku i końca pamię- 
ci zawierającej program 
źródłowy; 

szukanie ciągu znako- 
wego f w tekście między 
limami m, n; po edycji linii 
można wybrać dwie 
kombinacje; CTRL f — 
dalsze szukanie; CTRL s 
— zamiana łańcucha f 
na s, 

zapis programu źródło- 
wego od linii m do n pod 
nazwą s na dyskietkę lub 
kasetę; 

odczyt programu źródło- 
wego o nazwie s; 


En - 

RETURN - 
ESC - 


prawo — 
lewo — 
CTRL prawo— 
CTRL lewo — 
COPY - 

CTRL TAB - 


CLR 

DEL 


redagowanie linii n; opcje 
dostępne dla tej czyn- 
ności są następujące 
zakończenie edycji linii z 
uwzględnieniem popra- 
wek; 

zakończenie edycji linii 
bez uwzględniania po- 
prawek, 

kursor w prawo; 
kursor w lewo 
kursor na koniec linii; 
kursor na początek linii; 
kopiowanie drugim kur- 
sorem; 

przełącznik trybu wkła- 
dania znaków w tekst na 
tryb nakładania znaków 
na tekst i vice versa; 
kasowanie znaku pod 
kursorem; 

kasowanie znaku na le- 
wo od kursora; 


Jak można zauważyć, opcje trybu redago- 
wania linii są bardziej zbliżone do edytora 
BASICa w Amstradzie, niż do poprzednich 
rozwiązali firmy. 

Kolejne linie programu wprowadza się 
przy wykorzystaniu opcji I lub bezpośrednio 
wczytując numer linii i instrukcje. Jeśli w 
pewnym momencie edytor zareaguje rapor- 


tem: 

ERROR 60 

LIMIT: no morę memory 
co oznacza przepełnienie pamięci, to należy 
wpisać dyrektywę kompilatora #errór, która 
spowoduje odzyskanie pamięci zajętej przez 
komunikaty o błędach (ok. 2KB). 

Powrót do BASICa następuje po naciśnię- 
ciu CTRL — SHIFT — ESC, przy czym ni- 
szczy to kompilator i „ciepły” restart nie jest 
możliwy. 


4. KOMPILACJA „NA GORĄCO” 

Jak wspomniałem wyżej, opcja c pozwala 
wejść do trybu kompilacji. Możliwe jest 
wtedy podawanie dyrektyw kompilatora oraz 
redagowanie programu (bez numerów linii), 
który zostanie natychmiast przetłumaczony 
po CTRL-z. Wygodne do testowania, gdyż 
kompilacja taka nie niszczy programu pod 
edytorem. 

5. PRACA INTERPRETACYJNA 

Kompilator C ma dość ciekawą własność. 

Jeśli znajdujemy się na jjoziomie kompilato- 
ra, to dyrektywa #direct+ spowoduje przejś- 
cie do trybu pracy interpretacyjnej, Możliwe 
jest wpisywanie pojedynczych instrukcji, któ- 
re zostaną natychmiast wykonane, podobnie 
jak w trybie bezpośrednim w BASICu. Wy- 
łączenie tego trybu zajdzie po #direct— . 

6. DYREKTYWA #INCLUDE 

Poznana już dyrektywa #include jest pod- 
stawą dla procesu kompilacji programu 
znajdującego się w pamięci operacyjnej, a na- 
pisanego pod edytorem. Używa się jej również 
do innych celów: 

a) kompilacji zbioru o podanej nazwie 

#include nazwa, typ 

b) włączeniu innego zbioru zawierającego 
tekst źródłowy do kompilacji tekstu główne- 
go przez użycie dyrektywy #include nazwa, 
typ jako linii w programie głównym; 

c) kompilacji warunkowej; jeśli użyjemy w 
programie linii: 

#include? nazwa, typ? 

to do kodu wynikowego zostaną włączone tyl- 
ko te funkcje, które są używane w programie 
głównym; 

Inne postacie tej dyrektywy w standardzie 
języka, a mianowicie: 

#include <nazwa. typ> 

#include „nazwa, typ” 

są równoważne zapisowi #include nazwa. typ. 


3. KOMPILACJA PROGRAMU 
UTWORZONEGO W EDYTORZE 

Kompilacja utworzonego pod edytorem 
programu zachodzi po wprowadzeniu opcji c 
(po znaku zachęty). Kompilator przedstawi 
się wówczas znaną już formułą. Teraz wystar- 
czy podać dyrektywę #include, po której za- 
chodzi kompilacja z jednoczesnym listowa- 
niem programu źródłowego na ekranie. W 
przypadku używania magnetofonu proces 
może być przerywany napisem Press PLAY 
then any key, szczególnie gdy dołączamy 
zbiory biblioteczne. 

Przejście do fazy uruchomienia programu 
nastąpi po naciśnięciu kombinacji CTRL-z. 
Wygodnie jest zasygnalizować ten moment w 
programie odpowiednim komentarzem. Oto 
typowy schemat przebiegu obsługi kompi- 
lacji w skrócie: 

>c 

(formuła) 

#indude 

(kompilacja) 

CTRL-z 

(type y to run) 


7. TWORZENIE SAMODZIELNEGO 
ZBIORU WYNIKOWEGO 

Dyrektywa #translate nazwa, typ pozwala 
na uzyskanie niezależnego zbioru wynikowe- 
go, który nie będzie wymagał otoczenia kom- 
pilatora c w celu uruchomienia. Zbiór taki 
zostanie odłożony na dyskietce lub kasecie, a z 
poziomu AMSDOS’u może być uruchamiany 
przez: 

RUN” nazwa, typ 

8. INNE DYREKTYWY KOMPILATORA 

#list+ włączenie wydruku podczas 

kompilacji; 

#list- wyłączenie wydruku podczas 

kompilacji; 

#define w kompilatorze HISOFT jest to 
opcja ograniczona w zasadzie 
do przedefiniowy wania nazw sta- 
łych; 

W porównaniu do standardu języka brakuje 
implementacji dyrektyw #undef, #line oraz #if 
i pochodnych. 

Krzysztof MAMCARZ 
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Jak oszukać, czyli jak rozszerzyć edytor ZX... 


Niestety, edytor ZX Spectrum nie jest zbyt udaną konstrukcją. 
Poprawianie linii programu za jego pomocą, to żmudna praca, 
zwłaszcza gdy są one długie i zawierają błędy składniowe. Aby 
dostać się do ostatniego znaku, kursor musi przejść przez całą li- 
nię i bardzo często trwa to tyle czasu, że można sobie bez pośpie- 
chu zrobić nawet herbatę. 

Proponuję zwiększyć możliwości edytora, trochę go oszukując. 
Edytor wykonuje polecenia użytkownika przez kontrolę klawiatury, 
a ściślej: sprawdza wartości zmiennych systemowych LAST-K, 
FLAGX, FLAGS. FLAS2, MODĘ. Te zmienne systemowe informują 
m.in., czy i jaki klawisz został wciśnięty, w jakim trybie znajduje się 
kursor, itp. Są one jakby „oknem na -świat" edytora. O początku 
i końcu edytowanej linii informują zmienne E-LINE i WORKSP, a 

0 położeniu kursora zmienna K-KUR. O wszystkich tych zmien- 
nych systemowych była już mowa w poprzednich numerach „IKS-a" 

1 dlatego nie będę ich omawiał. 

Władzę nad edytorem uzyskamy, kontrolując i odpowiednio 
zmieniając wartości tych zmiennych. W tym celu skorzystamy z 
drugiego typu przerwań (IM 2), co oznacza, że co 1 /50 s. oprócz 
kontroli klawiatury zostanie uruchomiony nasz program. Opiszę 
sposób oszukania edytora na przykładzie: tryb specjalny oznaczo- 
ny kursorem X uzyskujemy naciskając jednocześnie Symbol Shift i 
Spację (SS+Sp). W rzeczywistości jest inaczej: w czasie przerwa- 
nia nasz program sprawdza czy jednocześnie wciśnięto SS+Sp, 
jeśli tak, to ustawia zmienną LAST.K, tak jakby wciśnięto CAPS 
LOOK (do LAST-K wpisuje wartość 6). Dodatkowo do zmiennej 
MODĘ wpisuje 138. Tymczasem edytor na podstawie LAST-K 
ustawia tryb C kursora, ale ponieważ zamiast MODE=0 jest MO- 
DE=138, zostaje wyświetlony kursor X. Dodatkowo program za- 
pamiętuję aktualny tryb pracy, aby po ponownym wciśnięciu 
SS+Sp przywrócić dawny stan kursora. 

W trybie X uzyskujemy następujące możliwości: 
kursory — pozwalają poruszać się w odpowiednich kierunkach 
po edytowanej linii. 

P — ustawia kursor na początku edytowanej linii 


100 CLERR 65014 

1000 RE5T0RE 9000: FOR K =0 TO 25 

.1010 LET 5 1=0 : LET s2=0: LET Z =1 

1030 FOR 1=0 TO 19: REftC* a: LET 
Sl=Sl + a: LET s2=S2+Z*a: LET Z = -Z 

: POKE bS015+20*K+Ł , a : NEXT L : R 
EhD al: REftD a 2 : IF Sloal OR dS 

<>Sa! THEN PRINT "blad W Linii :" 
,9000+lO*K: STOP 
1040 NEXT K 

1050 REfiD a: POKE 65535,3: IF a< 

>134 THEN PRINT "blad w Linii 92 
50": STOP 

2000 >RRNDOMIZE USR 65015: REM wL 
acz e nie rozszerzenia edytora 


9000 D PTT fi 62,254,237,71,237,94,1 
75,50,208,255,201 .205 .56,0 .245,5 
8,113,92,203,111,2927,547 
9010 DfiTfi 194,211,254.197,213,22 
9 , 58 , 8,92, 254 . 32 , 194 , 80 . 254 , 205 , 
142 , 2 , 62 , 24 . 186 . 2891 , -583 
9020 DfiT fi 194,80,254,58,208,255, 
203 , 127 , 202 , 56 , 254 , 203 ,191,50, 20 
8 , 255 , 58 , 209 , 255 , 50 . 3370 . 684 
9030 DfiTfi 65,92, 195 ; 72, 254 .203,2 
55 , 50 , 208 , 255 , 58 , 65 , 92 , 50 , 209 , 25 
5 , 62 , 138 ,50,65 , 2693,203 
9040 DfiTfi 92,62,6,50,3,92,195,20 
3 , 254 , 58 , 203 . 255 . 203 , 127 , 202 , 208 
, 254 , 237 , 86 , 58 , 2863 , 153 
9050 DfiTfi 3,92,254,8,202,206,254 
, 254 , 10 , 202 ,213 , 254 , 254 , 11 , 202 , 3 
3 , 255 ,254,9, 202 , 3 177 , 145 
9060 DfiTfi 206,254,254,245,202,99 
, 255 . 254 , 112 , 202 , 99 , 255 , 254 ,80,2 
02 , 99 , 255 , 254 , 24© , 202 , 4023 , 135 
9070 DfiTfi 113,255,254,107,202,11 


; iii ; łźi ; iii ; 

135,255,254., 68,202., 135 

' II? ' i ' §55 , 202 , 120 , ass , 254 , 122 

'202 , 120 , 255 , £54 , 90 , 202 . 5839, 155 
9090 DfiTfi 1£0, £55, £54,233,303,16 
0 > 4S5 , 254 , 105 , £0£ , 168 , £55 , £54 , 73 
, 202 , lt-3 , £55 ., £54 , 7 , £0£ , 3891 -247 
9 100 DfiTfi 148 , £55 , £54 , 13 . £0£ , 165. 
, £55 ,58,59,92,203, 175 ,50,59,92,2 
37 , 94 , £25 , £09 , 193 , 3039 . 93 
9110 DfiTfi £4 1,20 1,6, 33, 42,91,92, 
126,254, 13,202, 113,£5S,£54 . 165,2 
10, 244, 2S4, 254, 32, 3082, 428' 

9120 DfiTfi 210,235,254.4.35.34,91 
, 92 , 16 , 230 , 195 , 105 , 255 . £05 , 7 , 255 
,218,105,255,195,2996,76 
9130 DfiTfi 1,255,255,195.2,254,42 
,91,92, 195 , 234 , 254 ,33, 123 ,255 , 22 
,0,203,63,245,2819,-865 
9140 DfiTfi 95,25.241,126,218,26,2 
55 . 15 , 15 , 15 , 15 , £30 ,15,79, 120 , 145 
,71,201,6,32,1945,157 
9150 DfiTfi 237,91,91,92,26,254,16 
5,210,86, 255 ,254,32,210,56, 255 , £ 
54 , 13,202 , 56 , 255 ,3094 , -308 
9160 DfiTfi 4.27,42,89.92,175,237, 
82,210,99,255 .237 .83,91,92.16,21 
9 ,26,254 ,32 ,2362 .614 
9170 DfiTfi 218,55,255,19,237.83,9 
1,92, 195 , 105 ,255 . 205 , 7,255,218 , 1 
05,255 ,237,91,91,3069,575 
9160 DfiTfi 92,195,55,255,42,89.92 
, 34 , 91,92,62,8,50,8,92, 195 , 206 .2 
54,42 ,97,2051 , -403 
9190 DfiTfi 92,43,195,102,255,237, 
91 ,91,92,42, 97 , 92 , 43 , 43 , 205 , 229 , 
25 . 195 , 113,255 , 2537 , -121 
9200 DfiTfi 237,91,89,92,42,91,92, 
£05,229,25, 195,99,255,58, 110,92, 
50,73,92,58,2275,507 
9210 DfiTfi 111,92,50,74,92,205,17 
9,255 , 195,206 , 254 , 237 , 94 ,205 , 179 
.255 .62,13,50,8 .2816, -284 
9220 ' DfiTfi 92 , 195 , £08 , £54 , 175 , 50 , 
£08 , 255 , 58 , 209 , 255 , 50 , 65 , 92 , 58 , 1 
06 ,92,203,95,202,2922, -310 
9230 DfiTfi 202,255,203,159,195,20 
4 , 255 , 203 , £23 , 50 , 106 ,92,201,0,0, 
3 , 98 , 54 , 133 , 52 ,2688,544 
9240 DfiTfi 85,68,68,68,68,52,68,6 
8,83. 69', 84.68, 82 , 34 , 102 , 70 , 133 , 1 
34 , 119 , 135 , 1658 , 126 
9250 DfiTfi 134,133,119,137,101,13 
5 , 102 , 105 . 88 . 165 , 65 , 120 ,118,101, 
118 , 103 , 101 , i07 . 69 , 103 , 2244 , -174 


9260 

DhT H 134 


00S12 

; próg. 

"am 

wy Korzy: 

00013 

; ni a mask 

owaLne, 

00014 

, przer 

■wan 


00015 

; program i 

nie .jes' 

00016 




00017 

r e„i. i 

>Squ 

0 r eh ; t 

00018 

.; lody 

roz 

Kazow 

00019 

EDIT 

equ 

7 

00020 

Dlii 

equ 

233 

00021 

COPY 

■Squ 

255 

00022 

LIST 

*q.U 

240 

00023 

IHPUT 

equ 

2 3 3 

00024 

EH TER 

equ 

13 

00025 

PRINT 

equ 

245 

00026 

kur.X 

equ 

133 ,f 


23 


00027 

kur.C egu 

6 ; kursor c 


00028 

kur. U equ 

8 i kursor w 

Lewo 

00029 

kur.rt egu 

9 , kursor w 

prawo 

00030 

kur.dn egu 

10 , kursor w 

go re 

00031 

kur.up egu 

11 i kursor w 

dOL 

00032 

; -adresy procedur RuH-u 


00033 

recmin eq,u 

19e5h 


00034 

keyb eg, u 

38h 


00035 

keybsc egu 

2Seh 


00035 

, adresy zmie nnych systemowych 

00037 

flags egu 

5c3bh 


00038 

flagsa egu 

5 c6ah 


00039 

f' l agx egu 

5c71h 


00040 

e_ppc egu 

6 C49h 


00041 

oldppc egu 

Scbeh 


00042 

e_une egu 

6 C59h 


00043 

modę egu 

6C41h 


00044 

k_kur eq,u 

ScSbh 


00045 

worksp eg,u 

5c6'JLh 


00046 

last_k egu 

5C0Sh 


00047 

' 



00048 

org 

65015 


00049 

, i. i"i i c ja Liza <: ja L rybu 2 


00050 

US Li filii Ld 

a, rej. i 


00051 

Ld 

i a 


00052 

iffi 

ii 


00053 

xor 

a 


00054 

Ld 

•;r Lag.p ;< 


00055 

reL 




80056 

00057 

00058 

00059 

00060 
00061 
00069 

00063 

00064 

00065 

00066 
00067 
00063 

00069 

00070 

00071 

00072 
' 00073 

00074 

00075 

00076 

00077 
00O75 
00079 

00030 

00031 

00032 

00083 

00084 

00085 

00086 

00087 

00088 

00089 

00090 

00091 

00092 

00093 

00094 

00095 
<50096 

00097 

00098 

00099 

00100 
00101 
00102 
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j rozszerzenie przerwanie 
, program wykonywany w czasie 
, przerwania 
przerw cali Keyb 
push af 
id a, (flag*) 

bil 5 . a 

jp nz,tryb.i jtryb irip. 
push bc 
push de 
push hl 

id a. iiast JO 

CP 32 
jp nz, etyka 
cali Keybsc 
Id a,13h 
cp d 

jp nz, etyka 
; zmiana trybu 

Id a, (flag. p) 
bit 7, a 
jp z, ustaw? 

7, a , wyt. trybu X 
(f lag. p, i, a 
a, (ntodez) 
i modę) ,a 
etyki 

7, a jwlacz. trybu X 
(ftag.pj,a 
a, (modę) 

(modezi .,a 
a,kur.X 
(modę) , a 
a, kur.C 
( L as t_k j j d 
Konprw 
a., (f lag.p) 

7, a 

z,, konprw 
.... i 

program obsługujący rozkaz^ 
trybu X 

a, (last_k) 

Kur. if 

z, koniec 
kur.dn 


*es 
id 
Id 
Id 
JP 

ustaw? set 
td 
Id 
Id 
Id 
Id 
Id 
Id 
jp 
Id 
bit 
jp 
im 


td 

cp 

JP 

cp 


etyki 


etyka 


00103 

jP 

z, kurDN 

00104 

CP 

kur. up 

00105 

Jp 

z, kurUP 

00106 

cp 

kur. rt 

00107 

jp 

z, koniec 

00108 

Cp 

PRINT 

00109 

jp 

Z,ObSl.P 

00110 

cp 

V 

00111 

jp 

Z.ObSl.p 

00112 

cp 

■p" 

00113 

jp 

z.obsl.p 

'00114 

cp' 

LIST 

00115 

JP 

Z,ObSl. K 

00116 

cp 

'k 

00117 

jp 

z,obsl.k 

00113 

cp 

K' 

00119 

Jp 

z.obst. k 

00120 

cp 

DIN 

00121 

jp 

Z.obsl.d 

00122 

cp 

■"d ' 

00123 

jp 

z.obsl.d 

00124 

cp 

-0' 

00125 

ję- 

z.obsl.d 

00126 

ci^ 

CGPY 

00127 

jp 

Z.ObSl.Z 

00128 

cp 


00129 

jp 

Z.ObSl.Z 

00130 

cp 

‘Z' 

00131 

jp 

z.obsl.z 

00132 

CP 

INPUT 

00133 

jp 

Z ,< Obs l . i 

00134 

cp 

■' i '' 

00135 

jp 

Z.ObSl. i 

00136 

cp 

'!'■ 

00137 

jp 

Z.ObSl. i 

00136 

Cp 

EDIT 

00139 

jp 

Z,. ObSlED 

00140 

cp 

ENTER 


m 

00143 

00144 

00145 

00146 

00147 

00148 

00149 

00150 

00151 

00152 

00153 

00154 

00155 

00156 


; zabl_ ... 
; klawiszy 
id 
res 

Id 

koniec im 
konprw pop 
pop 

POP 

tryb. i pop 
ret 


jp z.obslER 
lokowanie pozostałych 


a, iilags) 
5, a 

(f lags) ,.a 
2 
hl 
de 
bc 
af 


; procedury obsługujące 
; procedura: kursor w doi 


00157 

kurDN 

Ld 

b,33 

00158 

naprz 

Ld 

hl. <k_kur) 

00159 


Ld 

a, (hl) 

00160 


CP 

ENTER 

00161 


jP 

z.obsl. k 

00162 


CP 

165 

00163 


jp. 

nc, rozk 

00164 


CP 

32 

00165 


jp 

nc.znak 

00166 

znaknd 

inc 

b 

00167 

znak 

inc 

hl 

00163 


Ld 

(k_kur).,hl 

00169 


djnz 

naprz 

00170 


jp 

lastLF 

00171 

rozk 

ca U 

rozkwk 

00172 


jp 

c. lastLF 

00173 


jp 

most 


00174 

00175 

00176 
0017? 
00173 


org 256*re j. i +255 
adres obsługi przerwania trybu 
im a 

dw przerw 


mi7i 

00180 

00161 

0.0182 

00183 

00184 

00185 

00186 
00187 
00183 
00189 

00130 

00131 
00192 

00133 

00134 

00135 

00136 

00197 

00198 

00199 

00200 
00201 
00202 
00203 
80204 

00205 

00206 

00207 

00208 
80209 
00210 
00211 
00212 
00213 
00214’ 

00215 

00216 
00217 
00216 
00213 
00220 
00221 
00222 

00223 

00224 

00225 

00226 
00227 
09228 
00223 

00230 

00231 
06232 

00233 

00234 
60235 
00236 
06237 
0023:3 
60239 
00246 

00241 

00242 

06243 

06244 

00245 

00246 

00247 

00243 
00243 
00256 
60251 
00252 
06253 
00254 


most id 
JP- 

;wewn. proc. 
rozKwK id 
Id 


sn a 
push af 


hl, (KJlur) 
znaKnd 

p rzęs na Ki w. rozn. 

hi , tabt-164/2 
d. 0 


nieprs 


Ld 

add 

pop 

Ld 

JP 

rrca 

rrca 

rrca 

rrca 

and 

Ld 

Ld 

sub 

Ld 

ret 


; procedura 
KuriJP Ld 
cofaj Ld 
Ld 
cp 
JP 
cp 
jp 
cp 
jp 

znaKnl mc 
zna KI dec 


e,a 

hl,de 

af 

a, (hl) 
c, nieprs 


000011116 


a, b 
C 

b, a 


ld 

xor 

sbc 


Kursor w gore 
b, 32 

de, (K_Kur) 
a, (de) 

165 

nc, rozKl 
32 

nc.znaKl 
ENTER 
z, znaKl 
b 

de 

hi, (e_L irieJ 
a 

hL,de 


rozKl 


; procedura: Kursor na poczateK 
obsl.p ld hl,(e_Line) 

Krs.Lf Ld (K_Kur).hl 
LastLF Ld a,Kur.Lf 

Ld Hast. JO, a 
jp Koniec 

; procedura; Kursor na Koniec 
obsl.K Ld hl,(worKsp) 
dec ht 
jp Krs.Lf 

; procedura: Kasuj za Kursorem 
obsi.z id de, (K_Kur) 

Ld hL , (WOrKSp) 
dec hL 
dec hi 
cali recmin 
jp obsl.K 

; procedura: Kasuj do Kursora 
obsl.d Ld de, (e_Line) 

Ld hL.(K_Kur) 


60255 

06256 

00257 

60253 

06259 

06260 
06261 
06262 
06263 

00264 

00265 
06266 
06267 
60263 
00269 
00276 
00271 
60272 
06273 
60274 

06275 

06276 
60277 
00273 
06279 
00236 
06231 
60282 

00283 

00284 

00285 
00236 
06237 
00263 
00289 
60230 
06291 
00232 
00293 


cali recmin 
jp obsl.p 

procedura: EDIT 


ObslECi Ld 

a, ioidppc) 

Ld 

ie_ppc) ,a 

Ld 

a, (oldppc+1) 

ld 

(e_ppc+l) ,a 

cali 

norm. K 

jP 

Koniec 

; procedura 

: ENTER 

; procedura 

: ENTER+tryb 

obal ER im 

2 

Obsl.i cali 

norm. K 

Ld 

a, ENTER 

Ld 

(lastjo ,a 

Jp 

Konprw 

norm. K xor 

a 

Ld 

(f tag.p) ,a 

Ld 

a, (modez) 

Ld 

(modę) ,a 

Ld 

a, (f tagss) 

bit 

3 , a 

jP 

z,ustaw3 

res 

3, a 

jp 

etyK4 

ustaw3 set 

3, a 

etyK4 ld 
ret 

(f lags2) ,a 

; zmienne systemowe proc 

flag.p ds 

1 

modez ds 

1 


tablica ilości Liter rozKazow 
Od RNO (Kod 165) do CGPY (Kod 
255). Każdy bajt zawiera dłu- 
gości dwóch Kolejnych rozKazow 
zapisanych joKo liczby 6CD 


Ld 

(K Kur) ,de 

00234 

tabl 

; 

45 67 39 01 23 

djnz 

cofaj 

60295 

U6. 

. db 

03h, 62h, 3ćh, SSh, 34h 

Ld 

a, (de) 

00236 

tl7. 

. db 

55h,44h,44h,44h,44h 

cp 

32 

60297 

tl8. 

. db 

34h , 44h ., 44h , 53h , 45h 

jp 

c, znaKnl 

60293 

U9. 

. db 

54h , 44h , 52h , 22h , 66h 

inc 

de 

60299 

t26. 

. db 

46h,85h,86h,77h,87h 

Ld 

(K_Kur) ,de 

00300 

tai. 

. db 

86h , 85h , 77h , 89h , 65h 
87h,66h,69h.58h,0a5h 
55h , 7Sh , 76h , 65h , 76h 

•JP 

LastLF 

00301 

122. 

. db 

caLL 

rozKwK 

00362 

t23. 

. db 

jp 

c, LastLF 

00303 

124. 

. db 

67h,65h,6bh,45h,87h 

Ld 

JP 

de, (K Kur) 
znaKnl 

00364 

00305 

125. 

. db 
and 

86h ( 


K — ustawia kursor na końcu edytowanej linii 

D — kasuje znaki edytowanej linii od początku linii do kursorę 

Z — kasuje znaki edytowanej linii za kursorem 

ENTER — działa, jak klasyczne ENTER, ale wyłącza tryb X 

I — tak samo jak ENTER. ale zostaje ustawiony tryb pierwszy 

przerwań 

EDIT — edytuje limę wskazywaną przez CONTINUE 
Uwaga: pozostałe klawisze w trybie X są ignorowane 
SS+Sp — włącza i wyłącza tryb X 

Ponieważ program jest przedstawiony w zapisie mnemonicznym. 
to ze względu na czytelność me mógł być zbyt obszerny (stąd 
niewiele dodatkowych funkcji). Należy go więc traktować jako 
przykład, a nie jak ostateczne rozwiązanie 
Proponuję natomiast czytelnikom wtajemniczonym w progra- 
mowanie w assemblerze uzupełnienie programu o nowe funkcje. 
Myślę, że wspólnymi siłami ulepszymy edytor ZX Spectrum. Wraz 
z redakcją „IKS-a" czekam na propozycje 
Dla tych. którzy chcą skorzystać z prezentowanego programu, 
zamieszczam program ładujący kod maszynowy. 
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Włączył magnetofon. Muzyka wypełniła pokój. Erta Kitt śpiewała 
C’est si bon. Ulubioną piosenkę jego młodości. Słuchał jej zawsze, 
zanim wyruszył w trasę, zajadając sandwicza i popijając sok grejpfru- 
towy. Chwycił przewieszoną przez poręcz krzesła cienką kurtkę z 
impregnowanego papieru, z której uśmiechało się słońce i przyciągał 
wzrok tęczowy napis Miami Beatch. Zbiegł schodami do holu, pod- 
szedł do wiszącego na ścianie „wiecznego” kalendarza i ustawił po- 
krętłami datę. Był 28 sierpnia 1979 roku. 

Sprawnie wspiął się do umieszczonej wysoko nad ziemią szoferki 
swej potężnej ciężarówki, włączył radio i w dostojnym rytmie jakby 
najważniejszej w życiu pracy uruchomił silnik. Skontrolował dokład- 
nie wskaźniki rozbłysłe kolorowymi światełkami na pulpicie. Niedba- 
le wrzucił do skrytki obok kierownicy potężnego colta kalibru 32. 

Uśmiechnął się do swych myśli: — Z bronią nie rozstawaj się nig- 
dy, chłopcze — przestrzegał szef. Tak jakby na swojej nowoczesnej, 
niezwykłej, trzydziestometrowej ciężarówce z naczepą przewoził 
złoto, a nie artykuły żywnościowe na- lokalnej linii transportowej po- 
między Winnchester a Friedrickburgiem. — Z bronią bezpieczniej i 
pewniej — tłumaczył szef. Tak jakby on, 28-letni kierowca zawodo- 
wy, Hary Joe Turner, musiał się czegoś lub kogoś bać. On, barczyście 
zbudowany i wysportowany, młody przecież jeszcze człowiek, były 
żołnierz amerykańskiej piechoty morskiej, były zawodowy bokser — 
miałby mieć stracha? Niedorzeczność... 

Nastawił głośniej radio. Powietrze, czyste i świeże, jakby naraz 
drgnęło. Pierwsze promienie ukośnie padły na ziemię i zajrzały do 
wnętrza szoferki. Na niebie, aż po horyzont, rozsypały się białe, 
drobniutkie obłoczki. Słońce pomarańczową kulą wygramoliło się zza 
widnokręgu. Koła nawijały kolejne mile asfaltowej szosy. Silnik pra- 
cował z nużącą monotonią. I nagle... Co za licho? Zamilkło radio. Ci- 
sza i zupełna pustka. Stało się to tak niespodziewanie, że niemal po- 
czuł się nieswojo. Spojrzał w boczne lusterko. Wypełniało je żółte 
światło. Zbliżało się z dużą prędkością do samochodu. Jakiś „pirat” 
drogowy pędzi na złamanie karku — pomyślał Turner i zjechał na 
prawą stronę drogi. Po chwili jednak żółty świetlisty snop objął ze 
wszystkich stron ciężarówkę. 

Joemu nieznośnie załopotało serce. Mieszanina stężonego niepo- 
koju i podniecenia wypełniła mózg i ciało. Żółtawa plama światła 
wpełzła do środka szoferki, poruszała się po ścianach, wspięła aż po 
dach, potem opadła i rozpełzła się po wszystkich zakamarkach. Lep- 
ki żar wypełnił wnętrze wozu. Poczuł, że zabrakło mu powietrza. 
Kleiły się oczy, rwała głowa. Coraz trudniej było zwalczać obezwład- 
niające zmęczenie. Do tego jeszcze ten dziwny powiew ciepła, przy- 
gniatający ciężar w piersiach i dźwięk — wysoki, nieznośny. Uległ 
sennemu bezwładowi. 

Dopiero teraz uświadomił sobie, że czuje lęk. Strach przed niezna- 
nym niebezpieczeństwem. Niczego nie mógł dojrzej przed samo- 
chodem. Nie widział nawet swoich rąk, zaciśniętych kurczowo na 
kierownicy. Tylko to mocne, jaskrawe światło z fioletowym odcie- 
niem, sprawiające wrażenie płynu. Tak mu się przynajmniej wydawa- 
ło — to światło było lepkie. 

Samochód przestał go słuchać. Joe popadł w stan ni to snu, ni to 
odrętwienia. Nie widział już niczego, o niczym nie potrafił myśleć, 
wszystko zatraciło się jakby w gęstej, przytłaczającej żółtej mgle. 

Nie pamięta, jak długo to trwało. Wie tylko, że w jakiejś chwili 
wróciła świadomość otaczającej rzeczywistości. Znowu wszystko wi- 
dział i słyszał, czuł, że trawi go gorączka, męczą dreszcze. Z przera- 
żeniem stwierdził, że znajduje się we wnętrzu obszernego pomie- 
szczenia, jakby kopulastej hali o przymglonych i słabo widocznych 
ścianach. W przypływie rozpaczy próbował uruchomić silnik — bez- 
skutecznie. I wtedy usłyszał rozedrgany szept, jakby ktoś przewijał 
od tyłu, w przyspieszonym tempie, taśmę magnetofonową, a potem, 
w refleksie dziwnej poświaty, pojawiły się zwaliste, jakby z grubej 
bryły wyciosane, istoty. Podobne były do ludzi wzrostem i wyglą- 
dem. Także ich twarze — nieruchome, zamknięte i mroczne — przy- 
pominały ludzkie. 

Turner wyszarpnął ze skrytki pistolet, odbezpieczył i prawie nie 
celując, wypalił osiem razy — przez szybę — w kierunku dziwnych 
postaci, ubranych w obcisłe kombinezony. I wtedy poczuł, że jakaś 
tajemnicza siła nakazuje mu opuścić broń, wyjść z kabiny. Nie mógł 
się oprzeć tym telepatycznym rozkazom. Posłusznie je wykonał. 

Czuł się, jakby śnił jakiś makabryczny, nierealny sen. Czyż to mo- 
gła być jawa? A przecież... Czemu oni tak dokładnie oglądali samo- 
chód. Brrr... Jakaż ich skóra była zimna w dotyku. I te dziwne błony 
między palcami, jakby minipłetwy. I ta szybka, śpiewna, niezrozu- 
miała mowa... Czyż to mógł być sen? 

Kto to, gdzie ja jestem? — zadawał sobie pytania, umierając 
z przerażenia. Czegóż oni mogą ode mnie chcieć? Po co ta istota 


0 kamiennej twarzy wchodzi pod samochód... Ależ to są chyba... 
Tak, to... roboty. Przynajmniej tych trzech. Na pewno. Temu pod 
ciężarówką, kiedy się pochylił, spadł z głowy kaptur. Na skórze, nad 
oczami miał wytatuowany ciąg cyfr albo liter, jakiegoś dziwnego, 
hieroglificznego pisma. 

Ten czwarty — to szef. Daje jakieś znaki rękami i tamci trzej skru- 
pulatnie wykonują polecenia. Może to tylko gestykulacja? Może po- 
rozumiewają się także telepatycznie? Tak jak z nim. Tak, z pewnoś- 
cią. Nie można przecież kilkoma gestami przekazać tak szczegółowo 
złożonych poleceń... 

Czuł straszny ból głowy. Jakby ktoś napompował czaszkę do granic 
wytrzymałości powietrzem. Humanoidalne istoty nakazały mu po- 
dejść do mglistej ściany kopuły. Przedziwne to wszystko. Jakby wy- 
glądał zza najczystszej, niewidzialnej niemal szyby. Ależ tam rozciąga 
się... kosmos. Ujrzał, że ich olbrzymi’pojazd znajduje się nad jakąś 
dziwną planetą. Z góry widać było bardzo dokładnie „nibymiasta”, 
nakryte czymś w rodzaju gigantycznych, przezroczystych kopuł. 

Chwycił się oburącz za głowę. Trudno powiedzieć, czy w natłoku 
wrażeń, czy też dlatego, że ten sam spokojny, przenikliwy głos wtła- 
czał mu do świadomości wiadomość, której tak naprawdę, nie rozu- 
miał: — Znajdujemy się o dwa i pół roku świetlnego od gwiazdy Alfa 
Centaurii... Co to jest ta Alfa Centaurii? Lata świetlne? Co to 
wszystko ma znaczyć? Toż to jakieś majaki w malignie... 

Tajemnica 
żółtego światła 

Ależ nie... Za przezroczystą kopułą wehikułu przesuwała się mono- 
tonna czerń, rozjaśniona od czasu do czasu skąpym światłem różnej 
wielkości punktów — jakby patrzył na gwieździste niebo w bez- 
chmurną noc. Przez głowę przelatywały mu strzępy myśli... Gorącz- 
kowo próbował obmyśleć jakiś plan działania, ale nic mu nie przy- 
chodziło do głowy. Na plecach czuł wzrok tych przedziwnych istot. 
Śledzili czujnie każdy jego ruch. Tego był pewny i to w jakiś dziwny 
sposób nie pozwalało mu na wykonanie żadnego ruchu. 

I znowu nachodziły go uparcie monotonne fale snu. Starał się 
walczyć z tym koszmarnym obezwładnieniem. Na próżno. Musiał 
zrezygnować z tej męczącej walki. Zdawało mu się, że czas mijał nie- 
miłosiernie wolno. Wszystko dokoła zaczęło wirować w coraz szyb- 
szym tempie. Stracił świadomość. 

Ocknął się na parkingu w Friedricksburgu. Jak się tutaj znalazł? 
Przecież... Rozejrzał się po szoferce. Rzeczy osobiste oraz pieniądze, 
które wiózł ze sobą, narzędzia, leżały bezładnie porozrzucane na pod- 
łodze. Wzrok ślizgał się przez chwilę po tym bałaganie... Nie, niczego 
nie brakowało. Zegar na ścianie domu dworcowego, przed którym 
zawsze parkował, przywożąc towar, wskazywał godzinę trzecią po po- 
łudniu. Miał mętlik w głowie, czuł się źle. 

Samochód, co z samochodem? — pomyślał po chwili, kiedy na- 
reszcie doszedł do siebie. Niezdarnie wygramolił się z kabiny. Na 
plac wjeżdżała jakaś ciężarówka. Może ktoś ze znajomych? Musi mu 
opowiedzieć o swojej historii, potrzebuje przecież pomocy. 

Obcy kierowca jechał wprost na niego, nie zmniejszając prędkości. 
Był już tylko 20 metrów, 10, 5... Turner osłupiał z wrażenia. Tamten 
zatrzymał się zaledwie metr od niego. Przecież jeszcze sekunda i... 
Podniósł z wysiłkiem rękę, gestem człowieka, który pilnie potrzebuje 
pomocy. Obcy kierowca nie reagował. Wyszedł niespiesznie z wo- 
zu i skierował się w stronę marketu. Roztrzęsiony powlókł się do wo- 
zu. Przybity przeżyciami ostatnich godzin oparł głowę na kierownicy 

1 zapadł w głęboki sen. 

Poczuł silne szarpnięcie. Przez chwilę wydawało mu się, że walczy 
z niewidzialnym wrogiem. Kiedy nareszcie otworzył oczy, nie bardzo 
wiedział, gdzie jest. Trwał przez chwilę w nieruchomym odrętwie- 
niu. Powieki miał jak z kamienia. Wreszcie doszło do niego: pochyla 
się nad nim, mówiąc coś bez przerwy kierowca, który przed chwilą 
o mało go nie rozjechał. Przed chwilą..? Spojrzał na zegar... To już 
siódma rano. Spał więc prawie dobę. 

Czego on chce? Acha, żebym mu pozwolić obejrzeć ciężarówkę. 
Nie widział jeszcze czegoś takiego. Ktoś niedawno też ją oglądał,.. 
A ten tu, w ostatniej chwili przed nim zatrzymał wóz. 

— Słuchaj przyjacielu, dlaczego chciałeś mnie wczoraj przejechać 
— wypowiedziane słowa wydały mu się jakieś dziwne, jakby nie swo- 
je. — Przecież wczoraj, o trzeciej, mało mnie nic rozwaliłeś. Tak, tak, 
tutaj stałem, w tym właśnie miejscu. 
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Spoglądał w wytrzeszczone ze zdziwienia oczy kolegi po fachu. 
Tłumaczył mu przez chwilę raz jeszcze, jak to było, ale cierpliwość 
tamtego, z każdym jego słowem zmieniała się w złość. Popukał się 
wymownie palcem w czoło i mamrocząc coś o pomyleńcach — od- 
szedł pospiesznie. 

Dlatego uznał za stosowne zgłosić się do szpitala? To przez te pa- 
skudne dolegliwości: mdłości, potworny ból głowy, ogólne rozbicie. 
Opowiedział dokładnie to, co pamiętał. Nic więcej naprawdę nie wie. 
Została, gdzieś w pamięci, jedynie ta garść faktów, które z niemałym 
trudem starał się teraz wyłuskać i ułożyć w jakąś logiczną całość. 

0 niczym więcej nie wie... Niczego już więcej nie potrafi sobie 
przypomnieć. 

— I co pan o tym myśli, dyrektorze? — w głosie ordynatora, który 
asystował przy kolejnej próbie wydobywania z niezwykłego pacjenta, 
jakim był Hary Joe Turner, informacji na temat zadziwiających hi- 
storii, zabrzmiała jakby nutka niepokoju. Co dalej robić z tym przy- 
padkiem? 

— Myślę, że już nic więcej nam nie powie. Może pan doktorze 
obudzć Joego z hipnozy. Wygląda to tak, jakby ktoś zablokował mu 
świadomość... Ale dlaczego do licha, wypuściliście go tak wcześnie ze 
szpitala — znany futurolog, dyrektor stanowy Północno-Zachodniej 
Wirginii, Fred Whiting, który prowadził dochodzenie w tej sprawie, 
nie ukrywał irytacji. 

— Żądał tego — tłumaczył ordynator. — Był zdenerwowany, 
opowiadał, że oni jeszcze czegoś od niego chcą. Że nie znajdzie spoko- 
ju, póki nie spełni ich żądania. Nie muszę chyba panu tłumaczyć, iż 
niektórzy nasi lekarze patrzyli na niego z niechęcią, uważali to 
wszystko jedynie za pozę, szpanowanie. 

— Tak, rozumiem. — Dyrektor wziął do ręki arkusz z ostatnimi 
„zeznaniami” Turnera. — Wszystko się powtórzyło — mówił nie od- 
rywając wzroku od gęsto zapisanych kartek. Znów to żółte światło 
dopadło go w tym samym miejscu — 18 mil do Winnchesteru. Zna- 
lazł się ponownie w kopulastej hali. Teraz jednak mniej już się bojąc, 
sam wysiadł z samochodu i zapytał ze zdziwieniem o co chodzi: Czy 
niemało tych kłopotów, których narobili. 

Twierdzi, że otrzymał telepatyczną odpowiedź, że istoty, które go 
porwały, bardzo przepraszają, ale zwracając samochód zapomniano, 
go wysterylizować. Na jego oczach jakaś niewidzialna siła odwróciła 
wóz do góry kołami. Słoje z ketchupem i musztardą, które przewoził, 
wymieszały się dokładnie. Samochód został zlany jakąś dziwną cie- 
czą... Po pewnym czasie znalazł się znów na szosie, dokładnie w tym 
samym miejscu, skąd został porwany po raz pierwszy. Na siedemna- 
stej mili... < 

— I co pan na to, dyrektorze? — powtórzył pytanie ordynator. 
Ale teraz w jego głosie było zaciekawienie. 

— Można by — dyrektor mówił wolno, cedząc każde słowo — 
uznać to za wierutne brednie, wymysł chorej wyobraźni, gdyby nie 
pewne fakty, niepodważalne, choć trudne do wytłumaczenia. Prze- 
prowadzono bardzo dokładną ekspertyzę samochodu, zaraz po tym, 
jak powiadomiliście nas o swym dziwnym pacjencie. Już podczas 
wstępnych badań odkryto niezwykłości, dla których trudno znaleźć 
jakieś logiczne wytłumaczenie. Wnętrze kabiny, wszystkie metalowe 

1 szklane powierzchnie pokryte zostały warstewką spalenizny. Jakby 
w szoferce eksplodował ładunek elektryczny, np. piorun kulisty. Ale 
wtedy Turner by już nie żył. 

Taki sam nalot znaleziono na skórze kierowcy. Antena radiowa na 
zewnątrz samochodu została częściowo stopiona. Licznik wskazywał, 
że samochód przejechał jedynie 17 mil z 80 dzielących go od miasta'. 
W jaki sposób więc się tam znalazł? Mam też meldunek od patrolu po- 
licyjnego, który nadjechał akurat wtedy, kiedy Turner wysiadał z sa- 
mochodu, aby obejrzeć go po drugiej przygodzie. Policjanci piszą 
o swym zdziwieniu. Zarówno olbrzymia ciężarówka, trzydziestoto- 
nowy ładunek, wnętrze szoferki oraz sam Turner ociekali jakąś szyb- 
ko parującą, eterycznie pachnącą cieczą. 

Wie pan dobrze, że teren, przez który jechał samochód, jest pu- 
stynny, nigdzie w pobliżu nie znaleziono żadnego zbiornika wodne- 
go. Żeby tak zmoczyć wóz, trzeba by tej cieczy ogromną ilość. 
W ciężarówce nie znaleziono także żadnego pojemnika. 

— Cóż to więc było, dyrektorze? — nie dawał za wygraną ordyna- 
tor. 

— Nie wyjaśnione zjawisko. UFO. Tak to trzeba zakwalifikować. 

W holu czekają dziennikarze „Evening Star” z Winnchester i „Ti- 
mes Dispatch” z Richmond. Będzie pan z nimi rozmawiał? 

— Oczywiście. Chodźcie i wy, panowie. 

Anna KALETA 


Oto gra dla dwóch osób. Każdy z graczy prowadzi swoją linię 
czterema klawiszami (w prawo, w lewo, w dół i w górę), Przegrywa 
ten gracz, który pierwszy przetnie swoją limą, limę przeciwnika lub 
linię pola, po którym poruszają się obaj gracze W wypadku gdy 
gracze spotkają się — obaj przegrywają Gra ta posiada 9 stopni 
trudności. 
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20 PRINT AT 3,6.; "'GRA U DUIE L 
INIE ' - 

21 PRINT AT 7,4; "U GRE GRA DUO 
CH GRACZY" 


TEN GRACZ PR 
PIERUSZY PR 


22 PRINT TRB 0; 

ZEGRYUA , KTÓRY 
ZETNIE LINIE" 

23 PRINT AT 13,4, "GRACZ 1 
GRACZ 2" 

24 PRINT TAB 3; " l£W0 - W 
Lewo -• 'o " 

25 PRINT TAB 2; "priwo - e 
prawo - ' p ■ " 

26 PRINT trb 3; "góra - -V 
góra - ' i ' ** 

27 PRINT TAB 4;"d0l - ' a " 

doi - k'" 

30 INPUT " STOPIEŃ TRUDNOŚCI 
< 1 , 9 > ? " ; 1 : IF t <0 QR t. > 9 OR t < 

> INT t THEN GO TO 30 

35 CLS 

36 LET StOP'1 =0 : LET StOP2=0 

40 LET gx = INT (255/t) *t 

41 LET gy =INT (175/t) *t 

50 PLOT 0,0: DR AU gx,0 DR AU 0 
, gy: ORAW -gx.,0: DRRU 0,-gy 
. 60 LET X 1 - 1 : LET yl = t 
61 LET xa*9x-t: LET y2=gy -t 

65 LET k X 1 - 1 : LET kyl=Q 

66 L.ET Kx2te-t: LET K.y2=0 

100 IF IN 64510=190 THEN LET KX 
1=0 . LET k y 1 = t : GO TO ISO 
110 IF IN 64510=189 THEN LET kX 
1 = - 1 : LET k y 1 = 0 ; GO TO 150 
120 IF IN 64510 = 187 THEN LET k>< 

1 = t : LET k y 1 =0 : GO TO ISO 

130 IF IN 65022=190 THEN LET kX- 
1=0: LET k y 1 = - 1 : GO TO 150 
ISO IF IN 57342=187 THEN LET kx 
2=0: LET ky2=t: GO TO 200 
160 IF IN 57342=189 THEN LET kx 

2 = - 1 : LET ky2 = 0: GO TO 200 

170 IF IN 57342=190 THEN LET kx 
2=t: LET ky£=0: GO TO 200 
180 IF IN 49150=187 THEN LET kx 
2=0: LET k y 2 = - t : GO TO 200 

200 LET nxl=xl+kxl: LET nyl=yl+ 
ky 1 

201 LET r.x2=x2 + kx£ LET ny2=y2+ 
ky 2 

210 IF POINT i n X 1 , n y 1 ) THEN LET 
s t o p 1 = 1 

211 IF POINT ( n X 2 , n y 2 ) THEN LET 
S 1 0 P 2 = 1 

212 IF nxl=nx2 AND nyi=ny£ tHen 

LET stOPlal: LET StOP2=l 

220 PLOT X 1 , y 1 . DR AU kXl,Kyl: L 

ET X l=n X 1 : LET yl=nyl 

221 PLOT X2 , y 2 : DR AU Kx2,ky2: L 

ET x 2 =n X 2 : LET y2=ny£ 

230 IF NOT Stopi AND NOT StOP2 
THEN GO TO 10® 

240 FLASH 1. PRINT AT 8,6. 

250 IF StOPl AND StOP 2 THEN PRI 
NT "OBAJ GRACZE PRZEGRALI" 

260 IF StOPl AND NOT StOP 2 THEN 
PRINT " UYGRRL GRACZ DRUGI" 

270 IF StOP2 AND NOT StOPl THEN 
PRINT "UYGRAL GRACZ P IE RUSZY " 
280 FLASH 0: 6RIGHT 1; INUERSE 
1; PRINT AT 12 , 9 ; " UC ISN I J ENTER 
BRIGHT 0: INUERSE 0 

290 IF IN 49.150 = 190 THEN RUN 
30O GO TO 290 
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A/a komputerowym rynku 


Systemy na sprzedaż 


W świecie informatyki, komputerów i oprogramowania obowiązują 
takie same prawa i zasady, jak w każdej innej, mogącej przynieść zyski, 
dziedzinie. Po nasyceniu rynków wewnętrznych najnowszymi osiąg- 
nięciami myśli naukowo-technicznej, firmy — zarówno najpotężniej- 
sze, jak i te całkiem małe — zaczynają szukać możliwości rozszerzenia 
pola działania, co w tym wypadku oznacza zdobycie nowych rynków 
zbytu. Coraz częściej są to przedsięwzięcia na dużą skalę, przynoszące 
realne korzyści obu uczestnikom transakcji. 


Do takich właśnie udanych przedsię- 
wzięć można z pewnością zaliczyć zawartą 
właśnie w Moskwie po czterech miesią- 
cach negocjacji umowę, o zastosowaniu 
brytyjskiego systemu expert jako standar- 
du przy opracowywaniu tego typu pro- 
gramów w Związku Radzieckim. Opiewa- 
jący na ponad 3 miliony funtów kontrakt 
przewiduje zacieśnienie współpracy mię- 
dzy brytyjskimi i radzieckimi programi- 
stami w ciągu najbliższych trzech lat. 
Zgodnie z osiągniętym porozumieniem, 
ZSRR będzie stosował program Xi Plus 
firmy Expertech z Berkshire, jako podsta- 
wę przy wszelkiego typu pracach związa- 
nych z tym systemem. Umowa ma także 
dalsze konsekwencje — wszystkie firmy 
zagraniczne, zainteresowane współpracą 
ze Związkiem Radzieckim, będą w pew- 
nym sensie zmuszone do przechowywania 


danych i przetwarzania informacji właśnie 
w systemie Xi Plus. 

Jeszcze w tym roku, radzieccy specjaliści 
do oprogramowania przybędą do Wielkiej 
Brytanii w celu doskonalenia umiejętności 
odpowiedniego wykorzystania systemu Xi. 
Do jego zapisu używa się jeszcze obecnie 
dwóch języków — C i Prolog, ale eksperci 
Expertechu opracowują nową wersję, w 
całości zakodowaną przy użyciu C. 

Podpisane w Moskwie porozumienie 
jest jednym z największych transferów 
brytyjskiego software do Związku Ra- 
dzieckiego i największym radzieckim za- 
kupem importowym w dziedzinie expert 
system. Firma Expertech zajmuje się także 
opracowywaniem programów dla joint- 
-ventures, w którego działalność zaanga- 
żowany jest Algorytm — przedsiębiorstwo 
zajmujące się doskonaleniem radzieckiej 


techniki software, działające pod auspi- 
cjami Państwowego Komitetu ds. Informa- 
tyki i Komputeryzacji, utworzonego w 
1986 roku. 

Brytyjczycy nie ukrywają zadowolenia z 
zawartej umowy. Wiążą z jej podpisaniem 
olbrzymie nadzieje. Chodzi przecież o 
naprawdę dużą rzecz — rozpowszechnie- 
nie w całym, tak dużym, kraju zakupionego 
u nich systemu. Korzyści można upatry- 
wać także z innych powodów. Kontrakt 
otwiera szeroko drzwi do radzieckiego 
know-how w takich dziedzinach, jak me- 
dycyna, rolnictwo czy oświata, których za- 
sady mogą docierać do Wielkiej Brytanii i 
innych państw europejskich, właśnie w 
postaci zapisu w systemie Xi Plus. W firmie 
Expertech trwają właśnie badania nad za* 
stosowaniem zautomatyzowanego tłuma- 
cza, który w znacznym stopniu uprości 
przechodzenie z angielskiej na rosyjską 
wersję systemu, z możliwością ponowne- 
go przetłumaczenia na wersję angielską. 

Radziecko-brytyjskie przedsięwzięcie, 
oprócz wymienionych już korzyści dla 
obu stron, jest także potwierdzeniem fak- 
tu, że osiągnięcia najnowszej techniki 
mogą służyć nawiązywaniu bliskich kon- 
taktów w dziedzinie ekonomiczno-gos- 
podarczej. 

Małgorzata NOWOTNY 


ZX Spectrum 

Warto przypomnieć Czytelnikom ten mało znany program z roku 
1 983 pokazujący w górnym prawym rogu ekranu numer aktualnie 
wykonywanego wiersza. 

Program uruchamia się przez RANDOMIZE USR 65250. a za- 
trzymuje przez RANDOMIZE USR 65257. 

Jan RUBINOWICZ 


1 DATA 184.1,62,254,237,71,23? 
, 94, 201, 237, 8&, 62, 63,23? 

2 DATA 1546,71,201,255,245,22 
9,42,69,92,36,40, 69,197 

3 DATA 1347/213,37,175,24,2,2 
40,254,71,79, 17,232,3 

4 DATA- 1743,237,62,60,48,251, 
25,61, 229 , 205 ,65 , 255 , 225 

5 DATA 1070,17,100,0,175,237, 
82,60,48,251,25,61,14 

6 DATA 1299 1,229,205,65,255, 
225 ,17,10,0, 125 , 147,20. 

7 DATA 1447, 48, 252, Źl, 131, 103 
, 229 ,14,2, 122,205 , 65 , 255 

8 DATA 1885,241, 14,3, 20S, 65, 2 
55,209,193,225,241,201,33 

S DATA 1051,28,64,9,135,135,1 
35,235,79,33, 128,61,9 

10 DATA 786,6,8,126,47,18,35,2 
0,16,249,201,0,60 

15 RESTORE : CLEAR 65249: LET 
3dr *65250 

16 FOR n =1 TO 10: READ sumą: L 
ET S=0: FOR m^l TO 12:: READ bt : 

POKE ad r , bt : LET S*S+bt: LET ad 
faadf + 1: NEXT m: 'IF SO-Suma THEN 
. PRINT "Blad w unii " ; n : LIST n 
: STOP 


demonstracyjny 
PAUSE 50: GO T 


17 NEXT n: RESTORE : RANDOMIZE 
USR 65250 
30 REM Pr oy ram 
40 GO SUB 9300 
O 300 

50 GO SUB 9800 
O 5550 

70 GO SUB 9800 
0 40 

300 GO SUB 9800 
O 9000 

5550 GO SUB 9300 
O 70 

9000 GO SUB 9800 
O 50 

9300 PAUSE 20: IF INKEY$<> 

N RANDOMIZE : USR 65257: PRINT "CZ 
y wiaczyc program ? (T/N)": PRUS 
E 0: IF INKEY $ = " t " THEN RANDOMIZ 

E USR 65250 

9301 LET b=lNT (RND*7) : BORDER b 
: BEEP .05, b: OLS : RETURN 

9997 REM Zapis na tasme 

9998 SAUE "TRASACOde "CODĘ 65250, 
118: STOP 

9999 SAUE "TRASA" LINĘ 1: 


PAUSE 50 
PAUSE 50 
PAUSE 50 
PAUSE 50 
PAySE 50 


GO T 
GO T 


GO T 
GO T 


GO T 
THE 
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INFORMATYCZNY SŁOWNIK ANGIELSKO-POLSKI 


W poprzednim numerze rozpoczęliśmy druko- 
wać hasła zaczynające się na literę „F\ niestety i 
tu namieszał złośliwy Chochlik — przez nieuwa- 
gę opuściliśmy pierwsze hasła tej litery. Dziś 
powtarzamy. 


F 


FABRIC - budowa. struktura, 

FABRICATION - wyrób. fabrykacja. 

FACE - 1. druk. nadruk. 2. nowi er zchm a czołowa, 
czoło, lico, 3. licować, okładać, 

FACE BONDING - montaż czołowy, 

FACE-CHANGE CHARACTER - znak zmiany rodzaju druku, 
FACE DOWN - nadrukiem do dołu, 

FACEDOWN FEED - podawanie (kart) praw* stroną do do- 
łu, 

FACE OF A CARD - prawa (w znaczeniu: wlaSciwa) stro- 
na karty, 

FACE OF THE DISC - górna powierzchnia dysku, 

FACE UP - prawą stroną do góry, 

FACEUP FEED - podawanie (kart) prawą stroną do góry, 
FACILITATE - ułatwiać, 

FACILITY - 1. urządzenie (pomocne, ułatwiające), 
aparatura, 2. sposoby, możliwości. Środki (łącz- 
ności), 3. połączenie, łączność, 4. udogodnienie, 
ułatwienie, 

FACSIMILE - faksymile (dokładna reprodukcja, podobi- 
znę, kopia), także: symi 1 lografi a, 

FACSIMILE TELEGRAPHY - telegrafia kopiowa, symilo- 
graf la, 

FACSIMILE TRANSMI SSION - nadawanie obrazów nierucho- 
mych, 

FACSIMILE TRANSMITTER - aparat telekopiowy, symilo- 
graf , 

FACTOR - czynnik, współczynnik, 

FACTORABLE - rozkład na czynniki, 

FACTOR GROUP - grupa ilorazowa, 

FACTORIAL - silnia, 

FACTORIMG - rozkładania na czynniki, 

FACTORIZATION - patrz i FACTORING, 

FACTOR OF AM IMTEGER - dzielnik liczby całkowitej, 

FADE - zanikać, takżei tracić zabarwienie, blaknąć, 
FADC-DOWN - obniżanie sie poziomu mocy wyjSclowej, 
FADE-IN - wzmacnianie sygnału, takżei rozjaśnianie 
obrazu, 

FADC-OUT - zanikanie sygnału, także: Ściemnianie 
obrazu, 

FADING - zanik sygnału, takżei Ściemnianie lub roz- 
jaśnianie obrazu. 

FAIL - ulegać awarii, takżei załamać się, zawieść, 
FAILPROOF - niezawodny, takżei zabezpieczony przed 
uszkodzeniami , 

FAZL-SAFE - odporny na uszkodzenia, bezpieczny w ra- 
zie uszkodzenia, 

F Al L-SOFT - częściowo odporny na uszkodzenia (pozwa- 
lający na działanie systemu w ograniczonym zakresie, 
w razie uszkodzenia niektórych elementów), 

F Al L-SOFT SYSTEM - system częściowo odporny na usz- 
kodzenia, 

FAIL TO COMPLY WITH ... - nie spełniać (warunków), 
nie odpowiadać (wymaganiom) , 

FAZ L-TO-EXHAUSTI OM - błędy do usunięcia, 

FAILURE - uszkodzenie, defekt, niezadziałanie, 
FAILURE FLOW - strumień uszkodzeń, 

FAILURE-FREE - bezawaryjny, bezuster kowy, 

FAILURE RATĘ - wskaźnik awaryjności, 

FAIRLY CLEAR CARBOM - doSć dobra kopia (odbitka). 
FALL - spadek, zmniejszenie się, obniżenie, takżei 
spadać, opadać, obniżać się, zmniejszać się, 

FALLBACK - rezerwa awaryjna, przejście na awaryjny 
tryb pracy, zmiana trybu pracy lub konfiguracji 
sprzętu w celu uniknięcia niesprawności, 

FALLOUT - znikanie, zanikanie, przepadanie, 


FAL SE - fałszywy, także: fałsz ‘.pojęcie używane 
w logice) , 

FAL SE ACLEPT ANCE - przyjęcie fałszywej hipotezy, 
FALSEHOOD - przekłamanie, fałszywy wniosek, fałszywa 
decyzja, 

FALSE REJECTION - odrzucenie hipotezy fałszywej, 

FAL SE RETRI £VAL - uzyskanie niepotrzebnej informacji 
w automatycznym systemie wyszuki wani a, 

FALSE STATEMENT - twierdzenie fałszywe, 

FAMILY - rodzina, 

FAMILY OF CHARACTERISTICS - rodzina charakterystyk, 
FAMILY OF CURVES - rodzina krzywych, 

FANFOLD - druk ciągły składany w "harmonię", 

FAMFOLD FORM - formularze ciągle złożone w postaci 
harmoni 1 , 

FAN-IN - obciążalność wejściowa (bramki logicznej), 

FAN -Ol/T - obciążalność wyjściowa (oramki logicznej), 
FAR CALL - wywołanie długie, wywołanie odległe, 

FAR FND CROSS TALK - przesłuch skroAny, 

FAR PLAMĘ - daleki plan (w grafice komputerowej 
określenie płaszczyzny ograniczającej przestrzeń 
zobrazowania na ekranie), 

FAR-REACKING - dalekosiężny, 

FAST - szybki, szybko, 

F AST -ACCESS ST ORA GE - pamięć szybka, pamięć o dostę- 
pie szybkim, 

FAST-ACTING - szybki, szybko działający, 

FAST LINĘ PRINTER - szybka drukarka wierszo** 

FAST MEMORY - szybka pamięć (operacyjna) , 

FAT - patrz i FILE ALLOCATION TAfiLE. 

FATAL ERROR - błąd uniemożliwiający kontynuację pro- 

FATHER FILE - początkowa (wyjściowa) wersja pliku 
(zbioru) , 

FAULT - 1. błąd, 2. uszkodzenie, zakłócenie, nies- 
prawność, 3. wada (fizyczna wada sprzętu), 

FAULT CLEARING - likwidacja zakłóceń, usuwani te usz- 
kodzeń, 

FAULT DETECTOR - wskaźnik uszkodzeń. 

FAULT FI ND ING - wykrywanie uszkodzeń, takżei usuwa- 
nie zakłóceń, • 

FAULTLESS - bezuster kowy , bezbłędny, 

FAULTLESS TAPE - taśma sprawdzona, taśma bezbłędna, 
FAULT LOCATION - lokalizacja uszkodzeń, 

FAULT SIMULATOR - symulator uszkodzeń, symulator za- 
kłóceń, 

FAULT TIME - czas przestoju z powodu uszkodzenia, 

FAULT -TOLERANT SYSTEM - system odporny na uszkodze- 
nia, 

FAULT TRACI NG - wyszukiwanie uszkodzeń, 

FAULT TREE GATE - element drzewa niesprawności (us- 
terek) . 

FAULTY - 1. błędny, 2. uszkodzony, zakłócony, nies- 
prawny, 3. wadliwy, 

FAULTY OPERA TI ON - działanie wadliwe, działanie 
błędne, 

FAX - patrzi FACSIMILE, 

FAY - przylegać, dokładnie pasować, 

FC - patrz: KONT-CHANGE CHARACTER, 

FCB - patrzi FILE COHTROL BŁOCK, 

FCFS - patrz i FIRST -COME FI RST-SERVED, 

FCP - patrzi FILE CONTROL PROCESSOR, 

FCS - patrzi FRAME CHECK SEOUEMCE, 

FD - patrz: FILE DESCRIPTION, 

FDD - patrzi FILE DESCRIPTION BŁOCK, 

FDM - patrz: FREOUENCY DIVISION NULTIPLEXING, 
FEAS3BLE - możliwy (do wykonania), wykonalny, real- 
ny, dopuszczalny, 

FEASIBLE SOLUTION - rozwiązanie dopuszczalne, 
FEATURE - cecha, właSciwoSć, takżei możliwość, moż- 
ność, 

FEED - 1. magazynek podawczy kart. 2. zasilanie ma- 
szyny (np. kartami, drukami, papierem), 3. dostar- 
czać, wprowadzać (np.dane do komputera), 

FEEDBACK - sprzężenie zwrotne, 

FEEDBACK CONTROL - sterowanie ze sprzężeniem zwrot- 
nym, sterowanie w układzie zamkniętym, 

FEED BACK ELEMENT - element sprzęgający, 

FEEDBACK FACTOR - współczynnik sprzężenia zwrotnego, 
FEEDBACK FILTER - filtr sprzężenia zwrotnego, 

FEEDER - I. zasilacz, 2. podajnik, 3. dozownik, 

4. przewód zasilający, 

FEEDFORWARD - uprzedzanie, poprzedzanie, zapobiega- 
nie, wyprzedzenie, 

FEED HOLE - dziurka prowadząca, dziurka przesuwu, 
FEED HOPPER - kaseta podająca, 

FEEDING - zasilanie, podawanie, wprowadzanie, 
FEEDING INFORMATION - dostarczanie danych, wprowa- 
dzanie danych, 

FEED INTO A COMPUTER - wprowadzić do (pamięci) kom- 
putera, 

FEED PITCH - odstęp linii, 

FEED RACK - gąsienica przesuwu, traktor przesuwu, 
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FEED SPODL - szpula, z której taśma się rozwija, 
FEEDTHROUGH - bezpośrednie połączenie, bezpośrednie 
łącze, połączenie skrośne, łącze przelotowe, 

FEEO TRACK - ścieżka prowadząca, 

FEELOW - członek towarzystwa naukowego, 

FEP - patrz : FRONT -END PROCESSOR, 

FERRITE - ferryt, także: ferrytowy, 

FERRITE CORE - rdzeń ferrytowy, 

FERRITE-CORE STORĘ - pamięć ferrytowa, 

FERRITE SWITCHING CORE - rdzeń ferrytowy przełącza- 

jący, 

FERROELECTRIC - f erroelektryczny, 

FERROGRAPHY - ferrografia, 

FERROMAGNETIC - ferromagnetyczny, 

FERROUS COATED TaPE - taśma z warstwą tlenkową, 

FET - oatrz: FIELD EFFECT TRANSISTOR, 

FETCH - ładować do pamięci, pobier aC, także: cykl 
maszynowy odczytu kodu rozkazu, 

FETCH CYCLE - cykl maszynowy odczytu kodu rozkazu, 
FETCHING - patrz: FETCH, 

FETCH TIME - czas ładowania (wczytania) do pamięci, 
FXF - patrz: FLIP-FLOP, 

FF - patrz: FIRST FIT ALGORITHM, 

FF - oatrz: FORM FEED. 

FFD - patrz: FIRST FIT DECREASING ALGORITHM, 

FIB - patrz i FILE I DEN I I FI CATI ON BŁOCK, 

Fi - włókno szklane, także: światłowód, 
r ' .-i - » F I LAMENT - włókno szklane. 

M8GNACL- NUMBERS — liczby Fibonacciego, 

FIBRĘ -atrz« FI BER, 

FIBRF, OFIICS - technika światłowodowa, 

FICHT -- mikrofilm, mi krof otokopia, 

FIDELITY - dokładność, wierność (odtwarzania), 

FIELD - pole, obszar w zapisie (rekordzie), 

FIELD EFFTCT TRANSISTOR - tranzystor połowy, 

FIELD EXTRACTOR - czynność wyboru pola zapisu (re- 
kordu) , 

FIELD MARK - cecha pola, znacznik pola, 

FIELD OF KNOWLEDGE - dziedzina wiedzy, 

FI ELD— PROGRAMMABLE - programowany w warunkach eks- 
ploatacji, I 

FIELD-PROGRAMMABLE LOGIC ARRAY - tablica logiczna 
programowalna przez użytkownika, 

FIELD-PROGRAMMABLE ROM - pamięć stała reprogramowal - 
na polem, 

FIELD SELECTION - wybór (selekcja) pola zapisu (re- 
kordu) , 

FIFO - patrz: FIRST -IN FIRST -OUT, 

FIFO LIST - kolejka typu FIFO, 

FIFO PROCESSING - przetwarzanie (obsługa) według ko- 
lejności typu FIFO, 

FIFO OUEUE - patrz: FIFO LIST, 

FI FTH-GENERATI ON COMPUTER - komputer piątej genera- 
cji, 

FIGURATIYE - obrazowy, 

FIGURATI VE CONSTANT - stała symboliczna, 

FIGURĘ - figura, także: cyfra, 

FIGURĘ OUT CUP.) - obliczać, wyliczać, 

FIGURES KEY - klawisz cyfrowy, 

FIGURES SHIFT - przełączanie na cyfry, 

FIGURĘ STAMP — znacznik cyfrowy, 

FIGURING - pismo cyfr, także: cyfry skali, 

FILE - plik, zbiór, 

FILE ADDRESSING - metoda dostępu, 

FILE ALLOCATION - rozmieszczenie zapisów (rekordów) 
pliku (zbioru), 

FILE ALLOCATION ROUTINES - programy rezerwacji pli- 
ku (zbioru), 

FILE ALLOCATION TABLE - tablica rezerwacji plików 
(zbiorów) , 

FILE AREA - obszar pliku (zbioru), 

FILE ATTRIBUTE - cecha pliku (zbioru), 

FILE BACKUP - składowanie zbioru, 

FILE CONTROL BŁOCK - blok kontrolny pliku (zbioru), 
FILE CONTROL PROCESSOR - program powtarzalny do ot- 
wierania i zamykania zbiorów danych, 

FILE CREATION - zakładanie pliku (zbioru), 

FILE DEFINITION AREA - opis pliku (zbioru), 

FILE DESCRIPTION - opis pliku (zbioru), 

FILE DESCRIPTION BŁOCK - blok opisu pliku (zbioru), 
FILE DEYICE - urządzenie plikowe, urządzenie o stru- 
kturze pliku, 

FILE DIRECTORY - katalog plików (zbiorów), kartoteka 
plików (zbiorów), 

FILE EYENT - zwrócenie się do pliku (zbioru), 

FILE EXCHANGE UTIL1TY - program kopiowania plików 
(zbiorów) z możliwością zmiany struktury, 

FILE FORMAT - struktura pliku (zbioru), • 

FILE HANDLER - manipulator zbiorów, 

FILE HEADER LABEL - etykieta początku zbioru danych, 
FI LEI D - identyfikator pliku (zbioru), 

FILE IDENTIFICATION BŁOCK - blok określający (iden- 
tyfikujący) plik (zbiór), 
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FILE LABEL - etykieta (znacznik) pliku (zbioru), 

FILE LAYOUT - rozplanowani* układu pliku (zbioru), 
FILE LOCKING - zajęcie pliku (zbioru), zablokowanie 
pliku (zbioru) , 

FILE MAINTENANCE - aktualizacja zbioru danych, 

FILE MANAGER - określenie części systemu operacyjne- 
go odpowiedzialnego za wykonywanie operacji na pli- 
kach (zbiorach), 

F1LEMARK - znak ostatniego zapisu (rekordu) w pliku 
(zbiorze), także: znacznik sekcji, 

FILE MERG1NG - scalanie pliku (zbioru), 

FILE NAME - nazwa zbioru (pliku) danych, 

FILE ORGANIZATIOM - organizacja pliku (zbioru), 

FILE ORGANIZATIOM CODĘ - symbol organizacji pliku 
(zbioru) , 

FI LE-ORI ENTED - przeznaczony do pracy ze zbiorami, 
FILE OVERFLOW AREA - obszar przepełnienia pliku 
(zbioru) , 

FILE-PROCEŚSING - przetwarzanie pi i ku (zbioru), 

FILE PROTECTION - zabezpieczenie pliku (zbioru) da- 
nych, 

FILE-PROTECTION RING - pierścień zezwalający na za- 
pis, pierścień zapisu, 

FILE OUALIFIER - kwalifikator pliku (zbioru), klucz 
pliku (zbioru), 

FILER - patrz: FILE MANAGER, 

FILE SECURITY - zabezpieczenie programowe pliku 
(zbioru), takżei ograniczenie dostępu do pliku 
(zbioru) , 

FILE SEPARATOR - patrz* FILE SEPARATOR CHARACTER, 
FILE SEPARATOR CHARACTER - znak rozdzielający pliki 
(zbiory), znak oddzielający pliki (zbiory), 

FILE SEOUENCE - porządek kartoteki, 

FILE SHARING - rozdział zasobów pliku (zbioru), 

FILE SORTING - sortowanie pliku (zbioru), 

FILE SPECIFIER - wyróżnik pliku (nazwa pliku 1 op- 
cjonalnie oznacznik urządzenia), 

FILESTORE - pamięć zbiorów systemu (np. w SO GEOR- 
GE-3) , także: magazyn, skład plików (zbiorów), 
FILE-STRUCTURED - o organizacji plikowej, o struktu- 
rze plikowej, 

FILE SYSTEM - patrz t FILE MANAGER, 

FILE TRAILER IDENTIFIER - etykieta końcowa, 

FILETYPE - identyfikator typu pliku (zbioru), 

FILE UNIT - zewnętrzna pamięć masowa, 

FILE UPDATING -- aktualizacja pliku (zbioru), 

FILING - kartotekowanie, segregowanie dokumentu, 
ewidencjonowanie, także: zapis do pliku (zbioru), 
FILL - dowolny symbol wypełniający lub uzupełnia- 
jący, 

FILL-AREA ATTRIBUTE - atrybut zamazywania, atrybut 
maskowania <w grafice sposób wydzielenia obszaru 
obrazu) , 

FILL CHARACTER - znak wypełni ający, znak pusty, 
FILLER - znak wypełniający, znak pusty, wypełniacz, 
FILL THE FORM - wypełnić formularz, 

FILL UP - dopełnić, uzupełnić, 

FILO - patrz: FIRST-IN L AST -OUT , 

FILTER - filtr, także: filtrować, 

FINAŁ - końcowy, 

FINAŁ CONTROL ELEMENT - człon wykonawczy, 

FINAŁ SEGMENT OF SET - reszta zbioru, 

FIND - znaleźć, odkryć, wykryć, 

FINDABLE - wykrywalny, 

FIND APPLICATION - znajdować zastosowanie, 

FINDER - szukacz, także: wyznacznik, 

FINDING - wnioskowanie (w systemach ekspertowych), 
FINDINGS - 1. wyniki poszukiwań, wyniki badań, 

3. dane uzyskane, 4. wnioski, 

FIND OUT - dowiedzieć się, wykryć, 

■ci ND USE -.znajdować zastosowanie, 

I NE INDEX - indeks szczegółowy, Indeks wtórny, 

'INISH t kończyć, skończyć, , 

'INI TE - określony, skończony, 

FI NI TE-DI FFERENCE METHOD - metoda rożnie skończonych, 
FINITE-ELEMENT METHOD - metoda oroje» cyjna, takie: 
metoda różni cowo-pro jekcyjna. 

FINITELY - skończenie, 

FINITE NUMBER - liczba skończona, 

FINITE SET - zbiór skończony, 

FINITE-STATE AUTOMATOM - automat skończony, automat 
ze skończoną ilością stanów, 

FINITE-STATE GRAMMAR - gramatyka o skończonej licz- 
bie stanów, także: gramatyka automatów, 

FINITE-STATE MACHINĘ - patrz: FINITE-STATE AUTOMATOM, 
FINUFO - patrz: FI RST-I N-NOT-USED-FI R ST -OUT , 

FIRM - firma, także: zwarty, zwięzły, mocny, 

FIRMWARE - oprogramowani e układowe, oorogramowanie 
sprzętowe, oprogramowani e mi krokomputerowe, mikro- 
op r ogr amoiy «n i e , 

FIRST BUCKET IN FILE AREA MARKER - wskaźnik pierw- 
szego bloku w obszarze pliku (zbioru t , 


LIGA MYŚLĄCYCH 


ZADANIE 1 

Pewien obywatel podejmuje z końcem każdego roku ze swego 
wkładu złożonego w kasie oszczędności na 3%. 90 — zł z każde- 
go tysiąca wkładu Po jakim czasie podejmie on cały wkład? 

ZADANIE 2 

Piłka gumowa odbija się na 2 / 3 wysokości, z której była pu- 
szczona Piłkę puszczono z wysokości 8,1 metra. Po ilu odbiciach 
piłka wzniesie się na wysokość tylko 1.6 metra’ 

ZADANIE 3 

Przed jednym z bardziej okazałych budynków miasta znajdują 
się schody. Gdyby liczbę stopni schodów o wysokości 3.5 metra 


zwiększyć o 10, to wysokość każdego stopnia zmniejszyłaby się o 
4 cm. Ile stopni mają schody? 

ZADANIE 4 

Znaleźć liczbę dwucyfrową, jeżeli iloraz z podzielenia tej liczby 
przez iloczyn jej cyfr wynosi 2 2 / 3 , a różnica między szukaną liczbą 
i liczbą o tych samych cyfrach, lecz napisanych w porządku od- 
wrotnym, równa się 18. 

ZADANIE 5 

Pociąg A o prędkości V km/h wyjeżdża ze stacji po odejściu 
pociągu B, jadącego z prędkością V, km/h. Godzina odejścia po- 
ciągu A była tak dobrana, aby oba pociągi przyjechały jednocześ- 
nie do stacji końcowej. Pociąg B przejechawszy 2 / 3 drogi zmuszo- 
ny był zmniejszyć prędkość o połowę i wskutek tego pociągi spot- 
kały się a kilometrów przed stacją końcową Wyznaczyć odległość 
między tymi stacjami. 


Rozwiązanie zadań prosimy przesyłać do redakcji do końca września br. z dopiskiem „Liga Myślących". Punktacja zależy od 
liczby prawidłowych rozwiązań. Wśród uczestników rozlosujemy książki, a na zwycięzców „Ligi" czekają dodatkowe nagro- 
dy. 


Odwracanka ZXSpec,fum 


W „IKS-ie" (2/86) opublikowano program „odwracanka”, Jest to 
gra na mikrokomputer Atari. Na podstawie podanego opisu opra- 
cowałem uproszczoną wersję programu na ZX Spectrum (wydruk 1 ). 
W zeszycie „IKS" — programy 2 zamieszczona została inna 
wersja tej gry („Rubik") na ZX Spectrum Ta wersja jest wygod- 
niejsza ze względu na inny sposób wyboru odwracanego pola 
Prezentowany program w minimalnym stopniu wykorzystuje kom- 
puter. Wszelkie decyzje podjął programista. W czasie pracowitego 
wprsywania linii programu. Można ten program skrócić w sposób 
dość znaczny. Wystarczy pola planszy oznaczyć kolejnymi literami 
alfabetu (me pomijając V) Współrzędne i kształt „Krzyża” może 
wyznaczyć komputer (wydruk 2). 

Wiesław RYCHLICKI 
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^order^^^Śper Ż? 3 Jnk 7 
FLASH 0: BRIGHT 0 : OUER 1 


LET a * 3 _ 

CLS : GO SUB 1000 
POKE 23658,8 
LET w**INK€Y$ 

IF w$ 3 "0" THEN GO TO 20 
IF w*<''A" OR w*> ,, V THEN 
GO TO 30 

LET X sCODE W *-65 
LET y=4*INT (X/5) 

LET X=4*X-5*y 

GO SUB 2000: BEEP .2,15 

GO TO 30 

FOR i =0 TO 5 

PLOT 1*32,175: DRRU 0,-160: 
PLOT 0, i *32+15: DRRU 160,0 
NEXT i 

PRINT 80; RT 0,0; 

"0 STRRT GRY OD POCZĄTKU" 
FOR i =0 TO 4: FOR j=0 TO 4 
PRINT RT 4*i +1 ,4* j+1, 

CHR* (65+5*1 +j) 

NEXT j : NEXT i 
RETURN 

LET a =y : LET b=X - (x >0) *4 
LET c=3+(x>0 RND X<16)*4 
GO SUB 2100 
LET b=X: LET C =4 


2040 IF y >0 THEN LET a=y-4: 
GO SUB 2100 

2050 IF y < 16 THEN LET a=y+4: 
GO SUB 2100 
2060 RETURN 


2070 
2100 FOR i 
2110 PRINT 


0 TO 3 

RT a +1 , b; a $ ( TO c i 
2120 NE'XT i : RETURN 

Am 8m?&V8 B 8 

R A C fi N X E " 

20 PRINT : PRINT "NR 25 POLOUE 
O PLANSZY ZNAJDUJĄ SIE KWADRATY 
Z JEDNEJ STRONY BIAŁE A Z DR 
UGIEJ CZARNE" 

30 PRINT "PODAJAC USPOLRZEDNE 
KWADRATU ODWRACAMY GO NA pRUG 

A STRONĘ URAZ Z ODWRACANYM KU 

ADRATEM ODURACAJA SIE KWADRA 

TY SĄSIEDNIE” 

40 PRINT "NALEŻY OOCJROCIC WSZY 
STKIE KWADRATY" 

S0 LET A= 12 : LET B=12 

60 LEJ PKT -0 1 FOR 1 = 1 TO 5: PR 

I^ T NEXT H I I,B; ;flT « . B+IJ 

70 INPUT "ODWRACANY KWADRAT"'," 
WIERSZ "i LINĘ A*, "KOLUMNA "i LI 
NE B * 

80 IF LEN fl$<)l OR LEN B|Ol T 
HEN GO TO 70 

90 IF A*<"1" OR A* > "S" 

1“ OR B* > "S" THEN GO TO ‘ 

100 LET X = UAL AS: LET 
110 PRINT AT A+X,6+Y; 

RIGHT l; 

120 IF X > 1 THEN PRINT 
6+Y; OUER l; 6RIGHT 1; " 

130 IF • X <5 THEN PRINT 
B+Y; OUER 1; BRIGHT l; 11 
140 IF Y <5 THEN PRINT 
Y + l; OUER 1; BRIGHT 1; " 

ISO IF Y > 1 THEN PRINT 
Y-l; OUER 1; BRIGHT 1; 

160 LET PKTsPKT+1: PRINT AT 
0; "LICZBA RUCHOU : " ; PKT 

170 GO TO 70 


OR B * < " 
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LET YaUAL B* 
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Litery, które znajdą się w oznaczonych polach, czytane rzędami 
poziomymi, otworzą rozwiązanie zadania 
1 ) głos podobny do gwizdu. 2) bezwładność, 3) domena transpor- 
tu, 4) roślina z rodziny jaskrowatych o żółtych kwiatach. 5) po- 
chlebca, 6) z losami. 

„MIREK" 


is 

f) 

U 


L bL 

/k 

f) 

2u 

f\ 

L) 

IfL 

1 u 

C 

f) 

3 


L 


1 



4 


L 


L 



k 

Pi 

U 



D 

n 


Litery, które znajdują się w oznaczonych polach, czytane rzędami 
poziomymi, utworzą rozwiązanie zadania. 

X) zbiorowisko roślinne typowe dla Afryki, Z) o kimś. kto wysyła coś 
za pośrednictwem poczty. 3) gruczoł wydzielania wewnętrznego, 
4) dodatkowa porcia płynu J8) niewielki wodospad 

„MIREK" 


Magiczna 
krzyżówka dwuliterowa 


ZNACZENIE WYRAZÓW: 1 ) artystka malarka, wyspecjalizowa- 
na w technice akwarelowej. 2) puszysta tkanina wełniana lub ba- 
wełniana. 3) pozostałość pochodząca z dawnych czasów • natu- 
ralna lub zbożowa. 4) może być holownicza • drąg używany przez 
linoskoczków. 5) gładziarka, 6) dom zajezdny na Wschodzie, 
miejsce postoju karawany. 

„MIREK” 
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Rozwiązanie krzyżówki z nr. 3/88 „IKS-a” 

Nagrody książkowe otrzymują: Sławomir Bukowski — Pruszków, 
Barbara Kozina — Świdnica, Igor Zgoła — Gdynia, Wanda Rogu- 
zińska — Pisz, Jacek Pawlik — Pyskowice, Jan Mamajko — Kra- 
ków, Andrzej Kmiecicki — Gdynia, Irena Pietruszewicz — Poznań, 
Piotr Kaczmarek — Leszno, Leszek Knapczyk — Nowy Targ. 


Rozwiązanie krzyżówki z nr. 4/88 „IKS-a” 

Nagrody książkowe otrzymują: Sewer Nyckowski — Gostynin, Do- 
rota Baranowska — Oleśnica, Dawid Płusa — Jelenia Góra, 
Joanna Hryniewicka — Białystok, Andrzej Herla — Głogówek, 
Andrzej Wawrzyński — Gdynia, Piotr Sinielcwicz — Lublin, Piotr 
Rynkowski — Warszawa, Mariola Klimek — Gdańsk-Oliwa, Anna 
Cembrzyńska — Gorlice. 


Rozwiązania zadań (przynajmniej jednego) prosimy nadsyłać pod 
adresem redakcji do końca września (naklejając kupon „IKS-a”). 
Wśród autorów prawidłowych odpowiedzi rozlosujemy bony 
pieniężne I nagrody książkowe. 
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i: Krzysztof 


c, Henryk Krasu* ki, -Ireneusz Miernik, Ludwik Piela, Jacek 
lefon centrali 20-12-61 w. 486. Tefex 313664. Rykopi- 
do skrótów. Nakładem: Wydawnictwa „Czasopisma 
Wojskowe Zakłady Graficzne Im. gen. dyw. 
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KOMPUTERY 

A PSYCHIKA CZŁOWIEKA 


Coraz więcej ludzi na całym świecie na co 
dzień ma bezpośredni kontakt z nowoczes- 
nymi urządzeniami telekomunikacyjnymi i 
wymiany informacji. W przedsiębiorstwach, 
biurach, placówkach służby zdrowia i innych 
instytucjach wykorzystywane są komputery. 
Automatyzacja i komputeryzacja wkracza tak- 
że do domów. Pod względem fizycznym z 
pewnością urządzenia te coraz bardziej ułat- 
wiają pracę i oszczędzają czas. Uczeni zaczy- 
nają się zastanawiać, jak nowa technika wpły- 
wa na sposób myślenia, postrzeganie otaczają- 
cej rzeczywistości oraz na zachowanie ludzi. 

— Przede wszystkim następuje ograniczenie 
wszystkich umiejętności człowieka, które nie łą- 
czą się bezpośrednio z tym, co nazywamy racjo- 
nalnym działaniem — podkreślają Frltz 
Boehle oraz Brigitte Milkau z Instytutu 
Nauk Społecznych w Monachium. Ich zda- 
niem potwierdzają to badania osób zatrud- 
nionych przy obrabiarkach sterowanych nu- 
merycznie. Obserwuje się u nich głównie 
ograniczenie postrzegania. 

Tego rodzaju zjawisko występuje także w 
wypadku komputera, choć człowiek nie od- 
czuwa tu, żć ma pod ręką jakieś konkretne 
urządzenie. Mimo tego zaraz pojawia się 
grymas na jego twarzy, jak tylko nastąpi coś 
nieprzewidzianego. Według specjalistów, 
człowiek znajduje się wtedy jakby w „schizo- 
frenicznej sytuacji”, kiedy powinien zaraz zro- 
bić to, czego się „wyuczył”, ale nie jest w sta- 
nie temu sprostać. 

Psycholog Robert Schurz oraz matema- 
tyk Joerg Pfuegler prowadząc badania osób 
które na co dzień posługują się komputerem, 
doszli do wniosku, że reprezentują oni „ma- 


szynowy" typ osobowości. Myślenie takiego 
człowieka charakteryzuje formalizm i opero- 
wanie jedynie wyuczonymi algorytmami. Lu- 
dzie o takiej osobowości nie znoszą wszelkich 
niespodziewanych sytuacji, w ogóle tego, co 
zakłóca ustalony porządek. Mają silną potrze- 
bę kontrolowania wszystkiego, unikają jedno- 
cześnie kontaktów z innymi ludźmi, gdyż 
obawiają się zajścia czegoś, czego się nie spo- 
dziewają. W życiu codziennym u takich ludzi 
wszystko musi przebiegać tak jak w zapro- 
gramowanej maszynie — musi być zaplano- 
wane i systematyczne. 

Zdaniem wielu uczonych, tego rodzaju 
rozdział sfery myślowej w psychice człowieka 
oraz zmysłowego i emocjonalnego kontaktu ze 
światem nie jest spowodowany wyłącznie 
przez automatyzację i komputeryzację. — To 
niekorzystne zjawisko pojawiło się znacznie 
wcześniej — podkreśla Michael Wimmer, 
politolog z Wiednia — i związane jest z cywi- 
lizacją zachodnioeuropejską, w której liczy się 
wyłącznie abstrakcyjne myślenie i całkowicie 
zaprogramowana wraz z ludźmi produkcja. 

Spójrzmy teraz na relację komputer — psy- 
chika człowieka nieco z innej strony, a właś- 
ciwie nawet perspektywy. Na początku lat 
sześćdziesiątych psycholog Raymond Fow- 
ler z University of Alabama był jednym z 
pierwszych, którzy do komputera wprowadzi- 
li program Minnesota Multiphasic Personali- 
ty Inventory — wielofazowy wykaz osobo- 
wości. Gdy program dobrze się przyjął, na ję- 
zyk cyfr zaczęto przekładać inne testy psycho- 
logiczne. 

Dzisiaj, gdy ktoś czuje się przygnębiony, 
czy zestresowany zwraca się o pomoc do psy- 
chologa specjalisty. Pacjent sam odtwarza 


własną charakterystykę. Dokonuje tego sie- 
dząc przed komputerem i odpowiadając na 
bogatą listę pytań dotyczących własnej osoby. 
W ciągu kilku minut od naciśnięcia ostatniego 
klawisza komputer opracowuje i wydrukowu- 
je ścisłą charakterystykę ankietowanego. Jak 
twierdzi profesor psychiatrii w University of 
Wisconsin-Madison, John Greist, w dzie- 
dzinie wywiadów z pacjentem komputery są 
szczególnie przydatne, gdyż bardzo często 
przewyższają klinicystów pod względem do- 
kładności i staranności badań. Co więcej, oso- 
bisty komputer stojący na biurku terapeuty 
może błyskawicznie posortować i przeanali- 
zować setki odpowiedzi, a następnie wydru- 
kować opis osobowości pacjenta. Mankamen- 
tem jest jednak fakt, że komputery nie potra- 
fią przeanalizować wielu spontanicznych wy- 
powiedzi wyartykułowanych w potocznym ję- 
zyku, chociaż najnowsze eksperymentalne sy- 
stemy są w stanie zrozumieć zdania w zakresie 
kilku tysięcy słów. 

Najkorzystniejsze dla pacjenta byłoby nie- 
wątpliwie sprzęgnięcie komputera z intuicją 
doskonałego lekarza-naukowca. Komputery 
bowiem nie potrafią jeszcze samodzielnie 
przeprowadzać skomplikowanych zadań tera- 
peutycznych. Największe zastosowanie znaj- 
duje na razie ich zdolność do przeprowadza- 
nia operacji statyczno-obliczeniowych. Pro- 
giem do dalszego rozwoju jest zdolność uczo- 
nych do formułowania reguł terapeutycznych, 
które będzie można wprowadzać do kompute- 
ra. Wówczas w większym stopniu możliwa 
będzie penetracja duszy człowieka przez za- 
programowaną przez niego samego maszynę. 

(Raj.) 


W NUMERZE: 

W szponach Ałarl (18) 
Edytor Basic'a 
Helios — monitorem 
Wyznaczanie rozwiązań 
układu równań różnicz- 
kowych zwyczajnych 
I-go rzędu 

PRIMUM N’N NOCERE, 
czyli jak chcemy uczyć 
Podstaw Informatyki 
Wprowadzenie do 
Podstaw Informatyki 
Nuty z komputera (4) 
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kopiowania ekranu mikro- 
komputera na drukarce 
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Rady i 
programisty, 

Na początek podprogram, który znaleźć powinien się w każdym 
programie. Jego głównym zadaniem jest wyświedenie na ekranie moni- 
tora tekstu zawierającego informacje o przeznaczeniu i funkcjach na- 
pisanego przez Ciebie programu. 

Jednocześnie można go wykorzystać do wywoływania tzw. helpów 
w trakcie realizacji programu. Eliminuje to konieczność wprowa- 
dzania, czasami długich tekstów do ciała programu. Długie teksty w 
programie powodują bardzo szybkie „pożeranie” pamięci niejedno- 
krotnie niezbędnej do załadowania programu. 

Pamiętając o tym zapoznaj się z niżej przedstawionym programem. 
Zasadniczą jego część stanowi podprogram wyświetlania tekstu, jemu 
też poświęcę najwięcej uwagi. Aby skorzystać z tego podprogramu 
należy wcześniej korzystać z edytora tekstu np. TASWORD, AM- 
SW0RD itp. zredagowaćrtekst, który chcemy wyświetlić w naszym 
programie. Trzeba pamiętać podczas redakcji tekstu o wstawieniu na 
początku każdej lini dowolnego znaku np. ilustruje to przykład: 


TEST PROGRAMU 


Jedynym ograniczeniem jest to, że nie możesz użyć w tekście 
przecinków i średników. Długość tekstu w zależności od potrzeb i 
możliwości użytego edytora tekstu. W zależności od trybu, w jakim 
będzie wyświetlany tekst ilość znaków w wierszu ustalony na 40 try- 
bu 1 i 80 dla trybu 2. Jeżeli wykorzystujesz do prezentacji tekstu cały 
ekran. 

Uwaga! 

pominięcie znaku na początku linii spowoduje utratę porządku na 
ekranie — spróbuj, a przekonasz się sam. 

Poniżej zamieszczono listing podprogramu wyświetlenia tekstu: 


70 '1111 PODPROGRAM NYSNIETLAKIA TEKSTU III 
60 NOCE 2 
70 PEN 1 
100 OPENIN i* 

110 NHIIE NOT EOF 
120 LL*ILM 
130 1NPUTE7.I** 

KO L0CATE 1,11 
150 PRINT HI0I(;«*,2.LEN(Z»I1) 

160 IF LL<=24 THEN KEND: GOTO 230 
170 NlNDONfl, 1,80.23, 23:PENC1.0:P4FER£1, liCLSEI 
180 LOCATEf 1.15,1 

KO PRINTE1, •KONTYNUACJA TEKSTU - NACISNIJ KLAWISZ <ENTER>' 

200 IF INKEY!6)=-1 THEN 200 
210 LL=0:CLS£1 :CLS 
220 60TO 110 
230 CLOSEIN 

2*0 WIND0WC1 , 1 , 80. 25. 25:PEN£1 . 0:PAPER£1 , 1 : CLSC1 
250 LOCATEf 1.13.1 

260 PRINTC1,*PONRO T 00 POCZĄTKU P0"0CV - tp> II F0NR0T DO PR35RAHL' - 'CNTER ' 
2 T 0 CLEAR INPUT 

280 IF INKET(6)*0 THEN LL*3:ClEAR INPUT: RETURN 
270 IP [NKEYI27U0 Th£n LI «C: CLS: 60T0 )00 
300 GOTO 280 

Jak widać jest on przeznaczony do wyświetlania w trybie 2 tekstu 
zawartego w uprzednio założonym zbiorze o nazwie aś. Ponieważ 
ekran w tym trybie pracy ma 25 linii, podprogram jednorazowo po- 
woduje wyświetlenie 24 linii tekstu — w 25 linii zdefiniowano okno 
1, przeznaczone na komunikaty. Jeśli tekst jest dłuższy niż 24 linie w 
oknie 1 pojawi się komunikat: 

KONTYNUACJA TEKSTU — NACIŚNIJ KLAWISZ ENTER 
W wypadku wyświetlenia na ekranie całej zawartości zbioru o na- 
zwie umieszczonej w aś w edenie 1 pojawi się komunikat: 


porady 
czyli 3 X P (1) 

POWRÓT DO POCZĄTKU TEKSTU - P 
POWRÓT DO PROGRAMU ENTER 

Zmiana trybu na 1 (modę 1) pociąga za sobą odpowiednią redakcję 
tekstu (40 znaków e lini), i zmianę definicji okna 1 na komunikaty. 

Przykład wywołania tego podprogramu przedstawiono poniżej: 

, 10 ' tu SEGMENT STERUJĄCY III 

20 INPUT łt 
30 60SUI 310 
40 G0SUB 70 
50 END 
60 STOP 

Realizuje on podstawienie pod nazwę aś nazwy zbioru, wywoła- 
nie podprogramu wyświetlania. 

310 ’lll DEFINICJA POLSKICH LITER III 
320 SYHB0L AFTER 141 

330 SYMBOL 166,254, 134, 12, 126, 4B, 78, 254,0 
340 SYMBOL 224,24,0,126,78,24,48,126,0 
350 SYMBOL 152,240,102,108,120,78,102,126,0 
360 SYMBOL 184,56,26,28,24,56,24,60,0 
370 SYMBOL 173,0,0,120,12,124,204,118,6 
380 SYMBOL 177,0,0,60,102,126,76,60,14 
•370 SYMBOL 187,6,12,60,126,102, 102,60,0 
400 SYMBOL 175,12,24,60,102,76,102,60,0 
410 SYMBOL 186,6,12,220,102,102,102,102,0 
420 SYMBOL 222,12,24,126,76,24,48,126,0 
430 SYMBOL 171,12,24,60,76,60,6,124,0 
440 RETURN 

Powyższy podprogram definiuje polskie litery. Kody polskich liter 
muszą być zgodne z kodami używanymi w edytorze tekstu, za po- 
mocą, którego redagowany był tekst. Jest to warunek, aby w wyświet- 
lanym tekście nie zabrakło a, e. ż itd. 

Kończąc mam nadzieję, że zaprezentowany wyżej program zainte- 
resuje Czytelników i zastosują go w swoich programach, uatrakcyjnia- 
jąc go i przyczyniając się między innymi do ułatwienia wymiany pro- 
gramów. 


Zdzisław ŁUKASZEWICZ 



— A Ha ty tato palisz na 100 km. 


3 
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COMMODORE 


56 


Stroiciel gitary 

Przedstawiony niżej krótki program generuje dźwięki umożliwia- 
jące strojenie gitary. Dla zainteresowanych reszta wyjaśnień 
w programie. 

10 PRINT ’ 6S3TROICIEL GITARY* iPRINT 
20 FOR 1=1 TO 6tREAD L ( I ) , H ( I > 1 NEXT 
30 R=54272iF0R I=R TO R+23iP0KE I,0:NEXT 

40 POKE R+5, 102 1 POKE R+6, 1 02 t POKE R+24, 1 
5 

50 PRINT’ B NACISNIJi’ iPRINT 

60 PRINT’ DOWOLNY KLAWISZ ASY WLACZYC LU 

B WYLACZYC DŹWIĘK’ iPRINT 


70 PRINT’ |»PAC JE ABY UZSKAC DŹWIĘK 
NASTĘPNEJ STRUNY’ 1 PRINT 
80 PRINT’ BDOWOLNY KLAWISZ FUNKCYJNY 
ABY ZAKOŃCZYĆ PROGRAM’ 

90 GET A*tIF A»«” THEN 90 
100 POKE R+4,0 

110 IF A*=CHR*(32)THEN 1=1+1 iGOTO 140 
120 IF A*>CHR*<132> AND A*<CHR*<141> THEN 
POKE R+24, 0«END 
130 IF X THEN X“0 1 GOTO 90 
140 IF I > 6 THEN 1-1 
150 POKE R, L ( I ) iPOKE R+1,H(I) 

160 POKE R+4, 33 1 X= I s GOTO 90 
170 DATA 71,5,12,7,104,9,142,12,210,15,3 
0,21 
RE ADY, 


Opracował: Tadeusz CISEK 



IV szponach ATARI (18) 

Okna — ciąg dalszy 


Tomasz MROWIEĆ Ludwik PIELA 


W poprzednim odcinku cyklu (,JKS” nr 
7 — 8/1988) przedstawiliśmy procedury 
umożliwiające tworzenie okien, w try- 
bach tekstowych i graficznych, we włas- 
nych programach napisanych w języku 
BASIC. Mieliśmy pewne zastrzeżenia do 
procedur działających w trybach grafi- 
cznych. Umieszczały one w oknach tek- 
sty kolorowe, ale tylko w trybach wielo- 
kolorowych. W trybach dwukolorowych 
występowały dodatkowe efekty uboczne. 
Między innymi mało czytelne tło, na ja- 
kim umieszczane były napisy oraz zbyt 
szerokie znaki. 

Z tych powodów opracowaliśmy nową pro- 
cedurę konwersji, przeznaczoną dla trybów 
dwukolorowych (tryby BASIC-u o numerach 
4, 6, 8 i 14). Jej zadaniem jest przygotowanie 
reprezentacji bitowej znaków tekstu, w której 
każdy punkt elementarny ekranu odwzoro- 
wany jest w jednej pozycji binarnej (a nie 
dwóch, jak poprzednio). Procedura u prze- 
chowywana jest w zmiennej tekstowej F$ i 
wywołujemy ją następująco: 

X=USR(ADR(F|), ADR(A$), ADR 
(KOMI), LEN(KOMI) 

gdzie: FI — zmienna tekstowa przechowująca 
procedurę konwersji, 

A$ — pomocnicza zmienna tekstowa służą- 
ca do przechowywania reprezentacji bitowej 
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znaków tekstu; musi pomieścić 8 razy więcej 
znaków niż jest w wyświetlanym tekście, 

KOMI — zmienna tekstowa przechowują- 
ca wyświetlany tekst. 

Wyświetlenie okna na ekranie realizuje 
procedura przechowywana w zmiennej W$. 
Sposób jej wywołania jest następujący: 

X=USR(ADR(W$), ADR(AI), O, W, S, L) 

gdzie: O wielkość przesunięcia lewego 
górnego rogu okna względem lewego górnego 
rogu ekranu (w bajtach), 

W — wysokość okna (w liniach obrazu), 

S — szerokość linii w bajtach (liczba zna- 
ków w linii), 

L — przesunięcie między początkiem każ- 
dej kolejnej linii, jego wielkość zależy od uży- 
wanego trybu graficznego. 

W poprzednim odcinku nie napisaliśmy 
wyraźnie, w jaki sposób usunąć okno z ekranu. 
Ze względu na zasadę działania procedury 
tworzenia okna, polegającą na wymianie za- 
wartości ciągu z wybranym obszarem pamięci 
ekranu, zamknięcie okna uzyskamy poprzez 
ponowne użycie procedury tworzenia okna. 
Należy jednak pamiętać, aby parametry uży- 
wane w wywołaniu były takie same. 

Program nr 1 demonstruje wykorzystanie 
omawianego podprogramu. W zależności od 


wybranego trybu graficznego, dwu- lub czte- 
rokolorowego, używana jest odpowiednia 
procedura konwersji. Bądź opisana powyżej, 
bądź z poprzedniego odcinka. Tak się składa, 
że tryby dwukolorowe są parzyste (4, 6, 8, 14) 
a czterokolorowe — nieparzyste (3, 5, 7, 15). 
Dzięki temu w prosty sposób możemy spraw- 
dzić rodzaj trybu i wywołać odpowiednią pro- 
cedurę. 

Efektywne wykorzystanie opisanych pro- 
cedur wymaga dokładnego przeanalizowania 
programu nr 1 oraz opisów zamieszczonych w 
poprzednim cyklu. 

Prezentowane dotychczas procedury two- 
rzenia okien na ekranie wymagały podania 
szeregu parametrów. Wśród nich był również 
adres zmiennej tekstowej zawierającej wy- 
świetlaną w oknie informację. Jak pamiętamy, 
wymagało to używania procedury konwersji 
znaków tekstu z kodu AT ASCII na kod ekra- 
nu. Możliwe jest również inne rozwiązanie. 
Procedura tworzenia okna przygotowuje tylko 
obsfhr ekranu, w którym za pomocą instrukcji 
PRINT możemy umieścić stosowny komuni- 
kat. A zatem wykonuje ona te same funkcje co 
poprzednio, za wyjątkiem wyprowadzania 
informacji na ekran. Oczywiście może być 
używana w taki sposób wyłącznie w trybie 
tekstowym GR.0. 

Poprzednio prezentowane procedury włą- 
czane były do programu. Początkowo wystę- 
powały w liniach DATA, a następnie umie- 



szczane były w zmiennych tekstowych. Poni- 
żej prezentujemy inne rozwiązanie, zaczer- 
pnięte z czasopisma „Analog Computing” No- 
vember 1986, w którym podprogramy otwie- 
rania i zamykania okien stanowią jakby roz- 
szerzenie systemu operacyjnego. Umieszczo- 
ne są w pamięci komputera poza obszarem 
przeznaczonym dla programu w języku BA- 
SIC. Odpowiednie dla nich miejsce uzysku- 
jemy poprzez przesunięcie, w górę pamięci, 
dolnej granicy obszaru BASIC’u. 

Rozwiązanie to wydaje się być niezbyt wy- 
godnym, lecz jego zalety ujawniają się podczas- 
pracy ze stacją dysków. Umieszczenie proce- 
dur w zbiorze AUTORUN.SYS zapewnia 
automatyczne wprowadzenie ich do pamięci 
po włączeniu komputera. 

Ze względu na interesujące rozwiązanie 
oraz fakt, że nie każdy z czytelników dysponu- 
je stacją dysków, opracowaliśmy również 
wersję taśmową tych procedur. Dlatego pro- 
cedury otwierania i zamykania prezentujemy 
w dwóch wersjach: dyskowej i taśmowej. 

Program nr 2 automatycznie tworzy na 
dyskietce zbiór AUTORUN.SYS i wprowa- 
dza do niego oba podprogramy. Program 
nr 3 tworzy zbiór na taśmie magnetycznej, 
który może być wprowadzony do pamięci po 
włączeniu komputera z wciśniętym klawiszem 
(START). 

Aby uzyskać odpowiednie zbiory należy 
wprowadzić do pamięci komputera, najlepiej 
za pomocą Edytora BASICa, program nr 
2, jeśli dysponujemy stacją dysków, lub pro- 
gram nr 3, jeśli możemy korzystać tylko z 
magnetofonu. Radzimy przechowywać w pa- 
mięci zewnętrznej kopie wprowadzonych 
programów, aby uniknąć ponownego ich 
wprowadzania w wypadku wystąpienia ja- 
kiegokolwiek błędu. Przygotowujemy dy- 
skietkę zawierającą DOS (bez zbioru 
AUTORUN.SYS) lub czystą taśmę magne- 
tyczną i uruchamiamy program przechowy- 
wany w pamięci komputera. Po odliczeniu w 
dół od 640 do zera program nr 2 utworzy 
zbiór AUTORUN.SYS i zapisze do niego 
odpowiednie procedury, a program nr 3 za- 
sygnalizuje chęć zapisania na taśmie magne- 
tycznej. Zapisze je po włączeniu magnetofonu 


na zapis i naciśnięciu dowolnego klawisza. 
Zbiór taśmowy jest typu BOOT, to znaczy 
samoładujący się. 

W obu wypadkach załadowanie procedur 
wymaga uprzedniego wyłączenia komputera. 
W wypadku używania stacji dysków wcho- 
dzą one do pamięci RAM bezpośrednio po 
wprowadzeniu DOS-u'(bez wyłączania BA- 
SI C-a). W wypadku wprowadzania ich za 
pomocą magnetofonu należy wcześniej prze- 
winąć taśmę i ustawić na początku zbioru, a 
następnie włączyć komputer z wciśniętym 
klawiszem (START). 

Obie wersje, taśmowa i dyskowa, różnią się 
tylko sposobem wprowadzania do pamięci 
komputera. Ich działanie jest identyczne. 

W celu otwarcia okna należy podać sześć 
parametrów. Pierwszym jest adres procedury 
otwarcia okna — 7459. Następne dwa określa- 
ją lewy górny róg okna w postaci współrzęd- 
nych X, Y. Wartości X mogą zmieniać się od 
0 do 39, a wartości Y od 0 do 23. 

Czwarty i piąty parametr określają wielkość 
okna, Czwarty to szerokość, która może zmie- 
niać się od 1 do 40 znaków. Piąty określa wy- 
sokość, od 1 do 24 znaków. 

Ostatni parametr jest wskaźnikiem ramki. 
Jeśli podana jest wartość 0, to nie ma ramki. 
Wartość między 1 a 127 powoduje wykreśle- 
nie normalnej ramki. Wartość powyżej 127 — 
ramki w negacji. 

Poniższe wywołanie otworzy okno o wiel- 
kości 10 na 5 znaków, bez ramki, w lewym, 
górnym rogu ekranu: 

X=USR(7459, 0, 0, 10, 5, 0) 

Zamykanie okna jest zawsze łatwiejsze. 
Przekazywany jest tylko jeden parametr, adres 
procedury zamknięcia okna. 

X=USR(7826) 

zamknie ostatnio otwarte okno. 

Używanie okien jest bardzo proste. Trzeba 
jednak pamiętać o kilku sprawach. Jeśli otwie- 
ramy okno, które jest mniejsze niż 3x3 znaki, 
nie powinno ono mieć ramki. W przeciwnym 
wypadku wystąpią dziwne zjawiska. Jeśli 


przechodzimy do D.OS-u, procedury będą 
likwidowane, o ile nie użyjemy zbioru MEM. 
SAV. Podczas otwierania lub zamykania okna 
zalecane jest ustawianie kursora poza plano- 
wanym obszarem okna. Jeśli kursor jest w 
oknie podczas zamykania, istnieje szansa, że 
znak nie ostanie podmieniony. Jeśli kursor 
jest w pobliżu okna, które jest otwierane lub 
zamykane, możemy nie martwić się o niego. 
Wstawienie zera do komórki o adresie 8045 
przekaże procedurom informację, że aktualnie 
żadne okno nie jest otwarte. 

Podczas uruchamiania programu zalecane 
jest zerowanie licznika okien, zwłaszcza w 
wypadku, gdy jakieś okna pozostały otwarte 
w poprzednio działających programach. 

Normalnie do kreślenia okna używane są 
negatywy spacji. Ten znak wypełniania może 
być zdefiniowany przez użytkownika. Wsta- 
wienie wybranej wartości do komórki 7625 
zmieni znak używany do kreślenia tła okna. 

Procedura otwierania okna wyznacza adres 
lewego górnego rogu na podstawie dostarczo- 
riych współrzędnych X i Y. Znaki schowane 
poza oknem przechowywane są na stosie, któ- 
ry rozpoczyna się od góry pamięci i rozrasta 
w dół, w kierunku programu w BASIC-u. 
Oprócz znaków na stosie umieszczane są rów- 
nież parametry. Podczas zamykania okna na- 
stępuje proces odwrotny. Najpierw zdejmo- 
wane są ze stosu parametry. Następnie znaki, 
które zapamiętywane są w obszarze pamięci 
ekranu, odtwarzając pierwotny stan ekranu. 

Podczas otwierania lub zamykania okna 
zwracaną wartością jest adres dołu stosu. Po- 
winniśmy śledzić tę wartość, aby uniknąć 
konfliktu z naszym programem, którego gór- 
ny adres przechowywany jest w komórkach 14 
i 15 następująco: 

GORPRO=PEEK (14)+256*PEEK (15) 

Przed otwarciem okna powinniśmy spraw- 
dzić, czy stos nie zejdzie poniżej górnej grani- 
cy programu. 

Poprzez użycie prezentowanych procedur, 
ich wybór pozostawiamy czytelnikom, two- 
rzone amatorsko programy mogą uzyskać pro- 
fesjonalny wygląd. 


FK 1 REM **************** 

FJ 2 REM * * 

XA 3 REM * Proaram nr 1 * 

FL 4 REM * * 

F0 5 REM **************** 

NL '6 REM 

SH 100 GRAPHICS 0 POKE 752,1'POKE 
82,4 

AD 110 ? -? " OKNA TEKSTÓW 

E “ 

RL 120 ? ■? " W TRYBACH GRAFI 
CZNYCH" 

KR 130 DIM W*< 1 16) , K0M*< 11), R0B*< 
22*16), E*<263),A*<1 1*16), F*<20 
0) 

BN 140 ? ■? "WCZYTANIE W*" 

ME 150 FOR 1=1 TO 116’READ A-W*<I 
, I)=CHR*<A) -NEXT I 
ND 160 ? '? "WCZYTANIE E*" 

VL 170 FOR 1*1 TO 263 -READ A-E*<I 
, I)=CHR*(A) NEXT I 
OD 171 ? -? "WCZYTANIE FS" 

X0 172 FOR 1=1 TO 147 READ A-F*<I 
, I)=CHR*<A)NEXT I 
EB 175 G-15-W-40 GRAPHICS G+16-G0 
SUB 268 

CY 176 G*14W=20' GRAPHICS G+16-G0 


SUB 260 

WR 180 G-8-W-40- GRAPHICS G+16'GOS 

WM *130 G=7 - W=40 - GRAPHICS G+16'GOS 
UB 260 

US 200 G=6W«20 GRAPHICS G+16-G0S 
UB 260 

UN 210 G-5W-20 GRAPHICS G+16-G0S 
UB 260 

TX 220 G*4-W=10- GRAPHICS G+16'GOS 
UB 260 

TS 230 G-3-W-18- GRAPHICS G+16'G0S 
UB 260 

TW 240 GRAPHICS 0-POKE 82,2'? '? 
" KONIEC PROGRAMU " 1 END 

NL 250 REM PODPROGRAM WYŚWIETLANI 
A KOMUNIKATÓW 

LI 260 SETC0L0R 0, 9, 10 - SETC0L0R 1 
,3,6-SETCOLOR 2, 3, 0 : SETC0L0R 4 
, l,2'C=<INT<G/2)=<G/'2)) 

II 270 REM ZEROWANIE CIĄGU 

UZ 275 C0L0R i -PLOT W*3,0 FOR 1=1 
TO 40 - X=RND < 0 ) *W*4 - Y=RND < 0 ) * W 
*2 DRAWTO INT<X),INT<Y)-NEXT I 

VW 280 ROB*=CHR*<0) - ROB* <22*16)=R 
OB* R0B*<2)=R0B* - K0M*=R0B* 

OB 290 FOR L*1 TO 3 


IZ 300 REM TWORZENIE OKNA 

LX 305 A*=CHR*<0) - A*( 1 1*16)=A* - A* 
<2)=AS 

MP 310 K0M*="Gr, " - K0M*<6-LEN<STR 
*<G)))-STR*<G) 

HS 315 IF C=0 THEN ASM=USR < ADR < E* 

) , ADR < A* ) , ADR < KOM* ) , LEN < KOM* ) , 

ML 317 IF C-l THEN ASM-USR < ADR <F* 

) , ADR<A*), ADR < KOM*) , LEN < KOM*)) 

KM 320 R0B*=A* 

YW 325 IF C-0 THEN WSK=<LEN<K0M*) 
-0)*16+1 

IM 326 IF C-l THEN WSK-<LEN<K0M*) 
-0)*8+l 

HT 330 K0M*»"TYE " -K0M*<5)-STR*<L 

MD 335 A*=CHR*<0) - A*< 1 1*16)=A* - A* 
<2)=A* 

HJ 340 IF C-0 THEN ASM-USR < ADR < E* 

) , ADR < A* ) , ADR C KOM* ) , LEN < KOM* ) , 

L) 

MC 342 IF C-l THEN ASM-USR < ADR <F* 

) , ADR < A* ) , ADR < KOM* ) , LEN < KOM* ) ) 

XX 345 ROB*(WSK)-A* 

XC 360 REM UMIESZCZANIE OKNA ^ 

OD 370 FOR 1-1 TO 5 W 


5 


Ł KQ 360 IF C-0 THEN ASM«USR<ADR<W* 
w • ),ADR<R0B*),W*8+W/2-5, 16,LEN<K 
0M*)*2,W) 

AC 382 IF Ol THEN ASM-USR< ADRCW* 
> , ADR < ROB* > , W*B+W/2-5 , 1 6 , LEN < K 
OM*), W) 

WK 383 FOR J-15 TO 0 STEP -15/100 
AG 386 SOUND 0,L*75, 14, J 
HO 387 NEXT J 

CE 390 NEXT I'NEXT L- RETURN 
BV 400 REM PODPROGRAM UMIESZCZANI 
A OKNA 

OG 410 DATA 104,104,133,206,104,1 

33.203.104.141.1.6.104.141.0. 6 
NZ 430 DATA 104,133,208,104,133,2 

07. 104. 104. 133.209. 104. 141.3.6 
,104,141,2,6 

AT 450 DATA 163,88,133,203,165,89 
, 133,204,24, 165,203, 109,0,6, 13 
3 

JA 470 DATA 203,165,204,109,1,6,1 

33. 204. 160. 0. 177. 203. 170. 177. 2 
05,145 

OC 490 DATA 203,138,145,205,200,1 

96.209.208.241.169.0. 198.207. 1 

• 97,207,208 

MU 510 DATA 6,197,208,240,30,198, 
208,24, 152, 101 , 205, 133, 203, 144 
,3,230 

XF 538 DATA 206,24,165,203,109,2, 
6, 133,203, 165,204, 109,3,6, 133, 

204.24. 144. 197.96 

CR 560 REM PODPROGRAM KONWERSJI Z 
HAKÓW NA FORMAT CZTEROKOLOROWY 

BK 570 DATA 104,104,133,204,104,1 
33,203,104,133,212, 104,133,211 
,104,104,133 

MK 590 DATA 216,10,133,217,104,10 
4,41,3,24,106,106, 106,41,192,1 
33,207 

XX 610 DATA 133,208,169,0,133,219 
, 169,4, 133,220, 169,0. 168, 145,2 
19,200 

GL 630 DATA 192,16,208,249,169,25 

5.133.215.160.0. 177.211.201.12 

8, 144,4 

TV 650 DATA 132, 215, 73, 128, 201 , 96 
, 144,4, 160,3, 176, 1.9,201,64, 144 
,4 

RS 670 DATA 160,1,176,11,201,32,1 
44,5,176,5,24,144,205,160,2,41 
JA 690 DATA 31,10,10,10,133,213,2 

4. 152.109.244.2.133.214.160.0, 
132 

RU 710 DATA 209,132,210,162,0,134 
,205, 164,210, 177,213, 133,206, 1 

64.209.165 

BJ 730 DATA 206,48,6,177,219,5,20 

7.145.219.24.102.207.24.102.20 

7.6 

IZ 750 DATA 206,232,224,4,208,231 
,165,215,240,5,56,241,219,145, 

219. 165 

HE 770 DATA 208,133,207,230,209,2 

30.205. 165.205.201.2.208.208.2 

30.210.164 

UG 790 DATA 210,192,8,208,190,240 
, 3, 24, 144, 160, 165, 203, 72, 165, 2 
04,72 ' 

EN 810 DATA 160,0,177,219,145,203 
,200, 192,2,208, 247, 177,219, 170 
,200,177 

XA 830 DATA 219,72,200,132,218,16 
4,217, 138, 145,203, 104,200, 145, 

203.24.165 

LA 850 DATA 203,101,217,133,203,1 

44. 2. 230.204. 164. 218. 192. 16. 20 
8,220, 104 

JB 870 DATA 133,204,24,104,105,2, 
133,203, 144, 2, 230, 204, 230,21 1 , 

208.2 

KP 890 DATA 230,212,198,216,208,1 

77.96 

WE 999 REM PODPROGRAM KONWERSJI Z 
NAKOW NA FORMAT DWUKOLOROWY 
ZN 1000 DATA 104,104,133,206,104, 
133,205, 104, i:!3, 204, 104, 133,20 
3, 104, 104, 133,207, 133,208, 160, 
„ 0,177,203,41, 127 


CK 1010 DATA 168,42,42,42,42,41,3 
,170,152,41,159,29,73,251 
HN 1020 DATA 133,212,169,0,162,3, 

24, 10,6,212, 144,2, 105,0,202,20 
8,245,24, 109,244,2, 133,213 


OM 1030 DATA 165, 205, 72, 165, 206, 7 

2, 162, 0, 160,0, 169, 255, 133, 209, 

IS&^^M 4 - 169 ' 0 ' 133 

UR 1035 DATA 145,205,232,224,0,24 
0,23 

CIA 1040 DATA 165,212,24,105,1,133 
,212,144,2,230,213, 165,208,24, 

101 . 205. 133. 205. 144.2. 230. 206, 
24, 144,204 

UH 1050 DATA 104,133,206,104,24,1 
05, 1 , 133, 205, 144,2, 230, 206,24, 

230 . 203 .208.2. 230 .204.198. 207 , 
208,129,96,-1 


FK 

FJ 

« 

FO 

NL 

HY 

EY 

NO 

CV 


RM 

EB 


QF 

YY 

IU 

ZN 


BM 

W 


KX 

NS 

BZ 

NP 


GW 


SU 


IU 


W 


DD 


AG 


XR 


OH 


GI 


YP 


RA 


XK 


OZ 


1 REM **************** 

2 REM * * 

3 REM * Profr*m nr 2 * 

4 REM * * 

5 REM **************** 

6 REM 

7 REM WgrŁjft.d*ŁkQtfł 

8 REM Prflfifdur 

9 REM 

10 DIM A*<641) -GRAPHICS 0-POKE 

752,1 

15 POSITI0N 12,10-7 "Prósz# cz 
#k*c . . . " i 
20 FOR 1-1 TO 641 
25 POSITION 19,14-7 641-1)" 

30 READ A - IF A— 1 THEN 70 
40 A*<I, I)-CHR*<A) 

60 NEXT I 

70 IF A 0-1 THEN 7 "8LAD W DAN 
YCH" -END 

80 OPEN W 1 , 8 , 0 , 11 D - AUTORUN . SYS " 
90 POKE 766,1-7 #1;A*J-P0KE 76 
6,0 

100 CLOSE #1 
110 END 

1000 DATA 255,255,0,29,111,31 
1005 DATA 165,12,141.14,29,165 
,13,141,15,29 

1010 DATA 76,16,29,32,255,255, 

169,0,141,231,2,169,32,141,232 

,2 

1020 DATA 169,13,133,12,169,29 
, 133,13,96, 104, 104, 104, 141, 100 
,31,104 

1030 DATA 104,141,99,31,104,10 

4.141.101.31.141.103.31.104.10 
4,141,102 

1040 DATA 31,141,104,31,104,10 

4,141,98,31,41,128, 141,106,31, 
173,99 

1050 DATA 31,133,203,169,0,133 
,204,24,6,203,38,204,24,6,203, 
38 

1060 DATA 204,24,6,203,38,204, 
165,203,141,96,31,165,204,141, 

97,31 

1070 DATA 24,6,203,38,204,24,6 
, 203,38,204,24, 165, 203, 109,96, 

31 

1080 DATA 133,203,165,204,109, 

97.31.133.204.24.173.100.31.10 
1,203,133 

1090 DATA 203,165,204,105,0,13 
3,204,24, 165, 203, 101 , 88, 133,20 
3, 141,107 

1100 DATA 31,165,204,101,89,13 
3,204,141,108,31,56,169,40, 237 
, 101,31 


1110 DATA 141,105,31,173,109,3 
1,208, 13,173,229,2,133,205,173 
,230,2 

1120 DATA 133,206,32,51,31,238 
,109,31,160,0, 177,203, 145,205, 
169,128 

1130 DATA 145,203,32,9,31,32,5 
1,31,206,103,31,173,103,31,208 
,232 


UE 1140 DATA 206,104,31,173,104,3 

1 . 240. 23.24. 165. 203. 109. 105. 31 
,133,203 

ZK 1150 DATA 165,204,105,0,133,20 
4,173,101,31,141,103,31,76,194 
,29,32 

SW 1160 DATA 37,31,165,203,145,20 

5.32.51.31.165.204. 145.205.32, 

51.31 

FB 1170 DATA 173,105,31,145,205,3 

2.51.31.173.102.31.145.205.32, 

51.31 

TL 1180 DATA 173,101,31,145,205,3 

2.51.31.173.98.31.208.3.76.0. 3 
1 

VP 1190 DATA 174,101,31,202,202,1 

42. 1 10.31.172. 102.31 . 136. 136. 1 

40.111.31 

Q1 1200 DATA 173,107,31,133,203,1 

73,108,31,133,204, 169,81,13,10 
6,31, 160 

ZA 1210 DATA 0,145,203,32,65,31,1 

72. 101.31.136. 169.69. 13. 106.31 
,145 

XX 1220 DATA 203,32,82,31,169,124 
, 13, 106,31,160,0, 145,203, 172, 1 

01.31 

YK 1230 DATA 136,145,203,32,82,31 
,206,111,31, 173, 111,31, 288, 230 
, 169,90 

CA 1240 DATA 13,106,31,160,0,145, 
203,32,65,31,169,67,13, 106,31, 
172 

YJ 1250 DATA 101,31,136,145,203,7 

6.0. 31. 104.173.109.31.208.3.76 

,0 

QU 1260 DATA 31,32,23,31,206,109, 

31.160.0. 177.205.141. 181.31. 14 
1,103 

PY 1270 DATA 31 , 32, 23, 31 , 177, 205, 

141.102.31.141.104.31.32.23.31 
,177 

TD 1280 DATA 205,141,105,31,32,23 
, 31 , 177, 205, 133, 204, 32,23, 31 , 1 

77.205 

WV 1290 DATA 133,203,32,23,31, 177 
,205,145,203,32,23,31,32,37,31 
,206 

HV 1300 DATA 103,31,173,103,31,20 
8,238, 173,101,31,141, 103,31,56 
,165,203 

ST 1310 DATA 237,105,31,133,203,1 
65, 204, 233,0, 133, 204, 206, 104, 3 
1,173, 104 

FK 1320 DATA 31,208,210,32,51,31, 
165,285, 133,212, 165,206, 133,21 
3,96,24 

VP 1330 DATA 165,203,105,1,133,20 

3.165.204.105.0. 133.204.96.24, 

165.205 

IB 1340 DATA 105,1,133,205,165,20 

6. 185.0. 133.206.96.56. 165.203, 

233.1 

XP 1350 DATA 133,203,165,204,233, 
0, 133, 204, 96, 56,165, 205,233, 1 , 

133.205 

LA 1360 DATA 165,206,233,0,133,20 

6.96. 160. 1. 174. 110.31. 169.82. 1 
3,186 

QP 1370 DATA 31,145,203,208,202,2 
08,250,96,24, 165,203, 105,40, 13 
3,203,165 

OE 1380 DATA 204,105,8,133,204,96 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
El 1398 DATA 0,8,0,0,0,0,255,255, 

224.2.227.2.0. 29.34.29,-1 


FK 1 REM **************** 

FJ 2 REM * * 

ff i 1 Pro,r * m " r 3 i 

FO 5 REM **************** 

NL 6 REM 

EA 7 REM UtrjJjŁ tlłfafiWi 
EY 8 REM procedur 
NO 9 REM 

CK 10 DIM A* <622) -GRAPHICS 0-POKE 

752,1 


6 


ZY 13 POSITION 12,10-? "Proszę cz 
ekac. . . " ; 

QX 20 FOR I-I TO 622 

DG 25 POSITION 19,14-? 622-1;" 

QF 30 READ fl-IF fl— 1 THEN 70 

YY 40 AS<I,I>=CHR#<A> 

IU 60 NEXT I 

ZN 70 IF RO-1 THEN ? "BLAD W DRN 
YCH" - END 

CI 80 OPEN #1,8, 128, "C = " 

W 90 POKE 766, 1>? #1;AS; -POKE 76 

6,0 

KX 100 CLOSE #1 

NS 110 END 

DL 1000 DRTR 0, 5, 3, 29, 9, 29,* 169, 60 
,141,2,211,169,0 

MY 1005 DRTR 141,231,2,169,32,141 
,232,2,169,34 

CK 1010 DRTR 133,10,169,29,133,11 
,24,96,96 

EO 1020 DRTR 104,104,104,141,100, 
31,104 

IU 1030 DRTR 104,141,99,31,104,10 

4.141.101.31.141.103.31.104.10 
4,141,102 

W 1040 DRTR 31,141,104,31,104,10 

4,141,98,31,41,128,141,106,31, 
173,99 

DD 1050 DRTR 31,133,203,169,8,133 
,204,24,6, 203 ,38,204,24,6, 203 , 
38 

RG 1060 DRTR 204,24,6,203,38,204, 
165,203,141,96,31,165,204, 141, 

97,31 

XR 1070 DRTR 24,6,203,38,204,24,6 

. ,203,38,204,24,165,203.109,96, 

31 

OH 1080 DRTR 133,203,165,204,109, 

97.31.133.284.24. 173. 108.31.10 
1,203,133 

GI 1090 DRTR 203,165,284,105,0,13 
3,204,24,165,203, 101,88,133,20 
3,141,107 

YP 1100 DRTR 31,165,284,101,89,13 
3, 204, 141 , 108, 31 , 56, 169, 40, 237 
,101,31 

RR 1110 DRTR 141,105,31,173,189,3 
1,208,13,173,229,2,133,205,173 
,238,2 


XK 1120 DRTR 133,206,32,51,31,238 
, 109, 31, 160,0, 177, 203, 145, 205, 

OZ Ifle^RTR 145,203,32,9,31,32,5 
1,31,206,103,31,173,103,31,208 
,232 

UE 1140 DRTR 206,104,31,173,104,3 

1.240.23.24.165.203. 109.105.31 
,133,203 

ZK 1150 DRTR 165,204,105,0,133,20 
4, 173,101,31,141,103,31,76, 194 
,29,32 

SU 1160 DRTR 37,31,165,203,145,20 

5. 32. 51.31. 165. 284. 145. 205.32, 

51.31 

FB 1170 DRTR 173,105,31,145,205,3 

2.51 . 31 . 173. 102.31. 145. 285.32, 

51.31 

TL 1180 DRTR 173,101,31,145,205,3 

2,51,31,173,98,31,208,3,76,0,3 
1 

VP 1190 DRTR 174,101,31,202,202,1 

42,110,31,172,102,31,136,136,1 

40.111.31 

QI 1280 DRTR 173,107,31,133,203,1 

73, 188,31,133,204, 169,81,13, 10 
6,31, 160 

ZR 1210 DRTR 0,145,203,32,65,31,1 

72. 101.31.136. 169.69. 13. 106.31 
,145 

XX 1220 DRTR 203, *32, 82, 31 , 169, 124 
, 13, 106,31, 160,0, 145,203, 172, 1 

01.31 

YK 1230 DRTR 136,145,203,32,82,31 
, 206 , 1 1 1 , 3 1 , 1 73, 1 1 1 , 3 1 , 208 , 230 
,169,90 

CR 1240 DRTR 13,106,31,160,0,145, 
203,32,65,31,169,67,13,106,31, 
172 


YJ 1250 DRTR 101,31,136,145,203,7 

6. 0. 31 . 104. 173. 109.31 . 208.3. 76 

,0 

QU 1260 DRTR 31,32,23,31,206,109, 

31.160.0. 177.205.141.101.31.14 
1,103 

PY 1270 DRTR 31,32,23,31, 177,205, 

141,102,31,141,104,31,32,23,31 
,177 

TD 1280 DRTR 205,141,185,31,32,23 
,31,177,205,133,204,32,23,31,1 

77. 205 

WV 1290 DRTR 133,203,32,23,31, 177 
, 205, 145,203, 32,23,31 , 32, 37, 31 
,206 

HV 1300 DRTR 103,31,173, 103., 31, 20 
8,238,173,101,31,141,103,31,56 
,165,203 

ST 1310 DRTR 237,105,31,133,203,1 

65 . 204 . 233.0. 133.204.206.104.3 
1,173,104 

FK 1320 DRTR 31,208,210,32,51,31, 
165, 205, 133,212, 165, 206, 133,21 

VP 165,203,105,1,133,20 

3.165.204.105.0. 133.204.96.24, 

165.205 

IB 1340 DRTR 105,1,133,205,165,20 

6. 105.0. 133.206.96.56. 165.203, 

233.1 

XP 1350 DRTR 133,203,165,204,233, 
0, 133, 204, 96,56, 165, 205,233, 1 , 

133.205 

LR 1360 DRTR 165,206,233,0,133,20 

6.96. 160.1.174.110.31.169.82. 1 
3,106 

QP 1370 DRTR 31,145,203,200,202,2 
08,250,96, 24, 165, 203, 105, 40, 13 
3,203,165 

Q£ 1380 DRTR 204,105,0,133,204,96 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
IR 1390 DRTR 0,0, 0,0,0, 0,-1 


FK 1 REM **************** 

FJ 2 REM * * 

ZI 3 REM * Pros ram nr 4 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

EX 100 REM Pr osram demon* trać* Jna 
UN 110 UOTW-7459 - WZRM-7826 
RG 120 UYP-7625-LICZ-8045 
ZU 130 POKE LICZ, O -POKE UYP, 128 
BL 140 DIM TEKST # < 38 > - POKE 712, PE 
EK<710) 1 POKE 752,1-? CHR#<125> 
; -LIST 318,510 
UU 158 REM TYTUŁ 

NY 160 RESTORE - PX-2 - PY- 1 - SX-36 ■ S 
Y-5 - RAMKA* 1 - GOSUB 460 • POS I T I ON 
PX+8, PY+2 - GOSUB 500 
UF 170 PX*2 - PY*7 - SX*36 1 SY* 1 2 - RRMK 
R*1 -GOSUB 460 - POSITION PX+13,P 
Y+l -GOSUB 580 
GM 188 REM ULRSNOSC I 
FU 190 FOR X*3 TO 5 -POSITION PX+3 
,PY+X- GOSUB 500 - NEXT X 
FR 208 REM ROŻNE UIELKOSCI 
CY 210 POSITION PX+3 , PY+6 - GOSUB 5 
00 

UT 220 FOR X-3 TO 7-PX«X-2-PY-10+ 
X - SX*X - SY*X - RAMKA* 1 28 - GOSUB 46 
0-PX*42-X-X- GOSUB 460-NEXT X 
MB 230 FOR X*1 TO 400=NEXT X-FOR 
X*1 TO 10 -GOSUB 480 - NEXT X 
OC 240 REM Ul ELE KOLOROU 
ZF 250 PX-2-PY-7- POSITION PX+3,PY 
+7 -GOSUB 500 

CU 260 POKE UYP , 0 - PX*6 - PY* 1 6 - SX*9 
- SY-5- RAMKA* 1 -GOSUB 460 
ZJ 270 POSITION PX+2, PY+2- GOSUB 5 
00 

RR 280 POKE UYP ,128- PX*25 - RAMKA* 1 
28 -GOSUB 460 

GC 290 POSITION PX+2, PY+2 -GOSUB 5 
00 -FOR X-1 TO 400 - NEXT X- GOSUB 
480 -GOSUB 480 
BM 300 REM RAMKI 

AE 310 PX-2-PY»7 -POSITION PX+3,PY 
+8 -GOSUB 500 


PK 320 PX*2 - PY*20 - SX-36 - SY*3 - RAMK 
A*0- GOSUB 460 -POSITION PX+5,PY 
+1 -GOSUB 508 

QA 330 RAMKA* 1 -GOSUB 460 -POSITION 
PX+5,PY+1- GOSUB 508 
CM 340 RAMKA- 128- GOSUB 460 - POS I TI 
ON PX+5,PY+1 -GOSUB 508 
ZL 350 FOR X*1 TO 3 -GOSUB 480 -FOR 
Y-l TO 100 - NEXT Y - NEXT X 
NG 360 REM ROZUIJANE MENU 
BU 370 PX-2-PY-7- POSITION PX+3,PY 
+9 -GOSUB 500 

OJ 380 FOR Z*2 TO 36 STEP 9 
SG 390 SX-9 - SY*1 - RRMKA-0 - FOR Y-l 9 

IR 4^8 ^X-Z - PY-Y - GOSUB 460<NEXT Y 
-POSITION PX, 20 -GOSUB 500-POSI 
TI ON PX+4, 22 -GOSUB 500 
IN 410 FOR X-19 TO 23 -GOSUB 480 >N 
EXT X-NEXT Z 

OK 420 REM ZAMYKANIE USZYSTKICH O 
KIEN 

KC 430 FOR X-1 TO 400-NEXT X 
TJ 440 FOR Y-l TO 2 ■ X-USR<UZAM) -F 
OR X-1 TO 200 - NEXT X-NEXT Y-GO 
TO 168 

IU 450 REM OTUIERRNIE OKNA 
FZ 460 U I NDOU-USR < UOTU , PX , PY , 8X , 8 
Y,RRMKA> -RETURN 
VX 470 REM ZAMYKANIE OKNA 
FP 480 U I NDOU-USR < UZAM > - RETURN 
US 490 REM UYSUIETLANIE TEK8TU I 
OCZEK IUANIE 

HU 500 RE AD TEKST# - ? TEKST#- POS IT 
ION 0,0-? -FOR U-l TO 300 
•NEXT U -RETURN 
MF 510 REM TEKST 

KR 520 DATA fl.K ti fl ti*I±A 

a 1. l . Ulasnoscl - , -Cala kod u J 

UY 

ch..nir« ^£dp.QM8 . .na. P,E££T~ 

, -Okna mota mieć rożne rozmiar 



DP 540 DfiTfi -Okn, not 4 b,e 
olorgue , Czarne, B 

,.ppcjonal 
kz 550 bflTR Okno z namiiMua 

, Okno t ramka u «Migi 


MY SŚaTjsTfi M »~inr .2. M . n u 
• S' B .11. ,1 


IJint w# nu - JL-Ł-ii-u, 1 


FK 1 REM **************** ' 

FJ 2 REM * * 

AC 3 REM * Proiram nr 5 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

EX 100 REM Pros ram demonstracyjna 
FO 110 UOPEN-7459 - UCLOSE-7826 
TM 120 POKE 8045,0 -POKE 752,1-TRfl 
P 120 

PG 130 ? CHR#<125); "ILE OKIEN UTU 
ORZYC" 

HG 140 INPUT N-N»INT<RBS<N>> 

FE 150 IF N-0 OR N>255 THEN 130 
QJ 160 POKE 752,1-? CHR#<125); -LI 
ST 

YN 170 FOR C-l TO N- POSITION 0,0- 
? CHR#<30);CHR#<31); 

GZ 180 SX-INT <RND<0>*20)+4 
GO 190 SY-INT <RND<0)*10)+4 
PY 200 PX-INT <RND<0)*<39-SX) )+l 
LO 210 PY-INT <RND<0)*<23“SY> ) + l 
BS 220 Z-USR<UOPEN,PX,PY,SX,SY, 12 
8) 

YM 230 POSITION PX+1,PY+1-? C 
BQ 240 PROG-PEEK < 1 4 ) +256*PEEK < 1 5 ) 
AG 250 IF PR0G+256>Z THEN 270 
DU 260 NEXT C 

YO 270 FOR C-l TO N- POSITION 0,0- 
? CHR# < 30 > ; CHR# < 3 1 ) ; 

VP 280 Z-USR<UCLOSE) -NEXT C-GOTO 
170 

Tomasz MROWIEĆ, 
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Otrzymujemy sporo listów i tele- 
fonów w sprawie programu „Edytor 
BASICa” zamieszczonego w nume- 
rze , JKS-a” z 1987 roku. Przyznajemy, 
Jest w nim Jeden niewidoczny znak 
(nie z naszej winy) oraz Jeden znak 
trudny do interpretacji. Poza tym 
program nie zawiera błędów. Więk- 
szość problemów z Jego uruchomie- 
niem wynika z niedokładnego (lub 
błędnego) wprowadzenia liczb za- 
wartych w liniach DATA. Ze wzglę- 
du na to, a takie na fakt, te w prze- 
ciągu minionego półtora roku przy- 
było posiadaczy komputerów ATA- 
RI (i mamy nadzieję naszych czytel- 
ników), ośmielamy się zamieścić, 
głównie dla nich, wydruk programu 
„Edytor BASICa”. 

Program zachowuje wszystkie własności 
edycyjne interpretera, dopuszcza także stoso- 
wanie skrótów instrukcji. Umożliwia także 
sprawdzenie całego programu, jeśli został on 
wprowadzony w sposób konwencjonalny, z 
wykorzystaniem wbudowanego edytora. 


Wprowadzenie edytora 

W celu utworzenia własnej kopii Edytora 
BASICa należy dokładnie wykonać jedną z 
poniższych instrukcji. 

Wersja dyskowa 

1) Wprowadzić Wydruk nr 1 starannie i 
bez błędów. 

2) Przechować program na dysku za po- 
mocą SAVE „D:EDYTORWl. BAS”. 

3) Oczyścić pamięć komputera rozkazem 
NEW. 

4) Wprowadzić Wydruk nr 2. 

5) Dla bezpieczeństwa przechować na dy- 
sku za pomocą »D:EDYTORW2. BAS”. 

6) Uruchomić program instrukcją RUN i 
wykonać wyświetlone na ekranie polecenia. 
Zbiór danych o nazwie ML. DAT zapisany 
zostanie na dysku. 

7) Załadować do pamięci pierwszy pro- 
gram rozkazem LOAD „D.EDYTORWl 
BAS”. 

8) Dołączyć zbiór utworzony przez pro- 
gram nr 2 instrukcją ENTER „D:ML.DAT". 

9) Przechować program wynikowy rozka- 
zem LIST „D:EDYTOR.LST". 

Węrsja taśmowa 

1) Wprowadzić Wydruk nr 1. 

2) Przechować program na kasecie za po- 
mocą CSAYE (nie przewijać taśmy). 


3) Oczyścić pamięć komputera rozkazem 
NEW. 

4) Wprowadzić Wydruk nr 2. 

5) Dla bezpieczeństwa przechować pro- 
gram na taśmie. 

6) Uruchomić program rozkazem RUN i 
wykonać wyświetlone na ekranie polecenia. 
Zbiór zostanie zapisany na kasecie. 

7) Przewinąć taśmę i wprowadzić pierwszy 
program rozkazem CLOAD. 

8) Dołączyć zbiór utworzony przez pro- 
gram nr 2 rozkazem ENTER „C:". 

9) Na innej kasecie przechować program 
wynikowy rozkazem LIST „C:". 


Używanie Edytora 

Spójrzmy na wydruki programów zamie- 
szczanych w ramach cyklu „W szponach 
ATARI”. Zauważmy, że każda linia progra- 
mu poprzedzona jest przez kod dwuliterowy. 
Jest to suma kontrolna tej linii, a nie część 
programu. 

W celu wprowadzenia programu załaduj 
Edytor rozkazem ENTER i uruchom go. Zos- 
taniesz zapytany, czy chcesz używać skrótów 
instrukcji. Jeśli tak, to wprowadź T i naciśnij 
RETURN. W przeciwnym razie podaj N. 
Ekran telewizora (monitora) zostanie podzie- 
lony na dwa „okna”. W górnym wyświetlana 
będzie każda linia po przetworzeniu przez 
Edytor oraz suma kontrolna tej linii. W dol- 
nym oknie odbywa się wprowadzanie i po- 
prawianie linii. 

Gdy program oczekuje na wprowadzenie, 
kursor pojawia się przy lewym marginesie 
okna wprowadzania. Wprowadź linię pro- 
gramu i naciśnij RETURN. Nastąpi spraw- 
dzenie jej poprawności oraz obliczenie sumy 
kontrolnej. Linia programu pojawi się w oknie 
komunikatu wraz z wyznaczoną sumą kon- 
trolną. Jeśli wyświetlony kod zgadza się z 
zamieszczonym w wydruku, można przejść do 
wprowadzania następnej linii programu. W 
przeciwnym wypadku należy podać rozkaz E 
(Edit) i nacisnąć RETURN. Ostatnio wpro- 
wadzona linia pojawi się w dolnym oknie, 
gdzie może zostać poprawiona. Po wprowa- 
dzeniu poprawek naciśnij RETURN. 

Można wywołać dowolną linię programu, 
wcześniej wprowadzoną, którą chcemy po- 
prawić, za pomocą rozkazu E z numerem linii. 
Na przykład, E230 wyświetli linię 230 w oknie 
wprowadzania. 

Jeśli używamy skrótów instrukcji, obie 
wersje rozkazu Edit działają różnie. Rozkaz E 
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bez numeru linii wyświetli ją w takiej postaci, 
w jakiej została wprowadzona. Po dodaniu 
numeru będzie ona wyświetlona w postaci 
rozwiniętej (bez skrótów). 

W dowolnej chwili można wyjść z Edytora 
poprzez naciśnięcie klawisza B (Basic). Można 
teraz przejrzeć wykonaną pracę. Zauważmy, 
że linie o numerach 32600 i wyżej, należą do 
Edytora. Nasz program ma niższe numery. 
Aby powrócić do Edytora, należy podać 
GOTO 32600. 

W czasie wprowadzania dłuższych progra- 
mów możemy mieć ochotę na robienie 
przerw, oczywiście po uprzednim zabezpie- 
czeniu naszej pracy. W tym celu wprowadza- 
my L i RETURN, a następnie przechowuje- 
my program w wybranej pamięci zewnętrznej 
w postaci umożliwiającej późniejsze łączenie. 

Jeśli ktoś nie chce używać Edytora 
BASICa, preferując wbudowany edytor Atari, 
także może sprawdzić i ewentualnie poprawić 
wprowadzony już i przechowany w pamięci 
zewnętrznej program. W tym celu należy za- 
ładować go do pamięci, następnie dołączyć 
Edytor BASICa rozkazem ENTER i uru- 
chomić go (GOTO 32600). Na propozycję 
używania skrótów musimy odpowiedzieć N. 
Gdy Edytor pojawi sięfna ekranie, należy po- 
dać rozkaz P i pierwsza linia programu pojawi 
się w oknie wprowadzania. W celu jej prze- 
tworzenia należy nacisnąć RETURN. Linia 
programu, wraz z sumą kontrolną, pojawi się 
w górnym oknie. Jeżeli suma kontrolna zga- 
dza się z podaną w wydruku, należy dwa razy 
nacisnąć RETURN i przetwarzana będzie na- 
stępna linia programu. 

Po stwierdzeniu, że musimy poprawić ak- 
tualną linię, podajemy rozkaz E i zostanie ona 
przesunięta do okna wprowadzania. 

Może się zdarzyć, że po wprowadzeniu 
programu za pomocą Edytora BASICa nie 
działa on właściwie. Możliwe są dwie przy- 
czyny takiej sytuacji. Po pierwsze, mogło się 
zdarzyć, że nie wykonaliśmy dokładnie ins- 
trukcji wprowadzania programu. Dlatego za- 
wsze należy wcześniej przeczytać artykuł do- 
tyczący programu. Pod drugie, chociaż mo- 
żemy zaufać Edytorowi, że unikniemy błędów 
wprowadzania linii programu, nie może on 
nam powiedzieć, czy nie opuściliśmy pew- 
nych linii. Jeśli program nie chce działać, na- 
leży upewnić się, czy wszystkie linie zostały 
wprowadzone. 

Edytor BASICa zgodny jest z podobnymi 
programami używanymi aktualnie przez 
„ANALOG Computing” i „ANTIC”. Opra- 
cowany został na podstawie następujących 
programów: BASIC Editor, BASIC Editor II 
i Ty po II. Dzięki temu można go wykorzystać 
do wprowadzania programów zamieszczanych 
w tych czasopismach, a także w „Bajtku". 
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32395 REM Edytor BASIC' u 
32397 REM Wydruk nr 1 

322SI IFTL THEN 32616 

32602 DIM L#< 1 15) , SV#< 1 15) , C2# 
<2>,B#<115),M#<119>,S#<98>,E#< 
69 > , A# < 1 > - FL- 1 ' STMT AB-PEEK < 1 36 
)+PEEK<137)#256 

32604 GRAPHICS 0'POKE 710,0'P- 
0-ABR-0-? "CZY CHCESZ UŻYWAĆ S 
KROTOW INSTRUKCJI"; 

32603 INPUT A#'IF A#-"T" OR A# 
■ "t" THEN ABR-1 

32606 B#< 1 )■" "'B#<115)«" "'B$ 
<2>-B* 

32616 OPEN #17,4,0, "E*"'L#-" " 

' GOSUB 32662 ' START-0 
32618 POKE 766,1'POKE 83, 39 -PO 
SITION 1,3' IF LEN < Li) <39 THEN 
? L# 1 GOTO 32624 

32620 IF LEN<L$> <77 THEN ? L#( 
1,38)'? L#<39,LEN<L#>) 'GOTO 32 
624 

32622 ? Lid, 38) '? L#<39,76>-? 
L#<77,LEN<L#>> 

32624 POKE 732,0 POKE 766,0 ‘PO 
KE 539, 34 'POKE 82,1 -POKE 83,38 
1 POSITION 0,10'? " INPUT #1 
7; L# 'POKE 766,1 

32626 IF <L#-"P" OR L#-"p") AN 
O START-0 THEN P-l-L#-"" 

32628 IF L#-"E" OR L#-"t" THEN 
E-l 'POSITION 1,10-? SV# 1 GOTO 
32624 

32630 IF L#-"L" OR L#-"l" THEN 
GOSUB 32704 

32632 IF L#-"" AND P-l THEN 32 
686 

32634 IF L#-" " THEN 32624 
32636 IF L#-"B" OR L#-"b" THEN 
GRAPHICS 0‘? "WPROWADŹ 'GOTO 
32600' W CELU KONTYNUACJI" 'END 
32638 IF L#d,l)-"E" OR L#d,l 
>-"*" THEN E-l 'TRAP 32624 >EL-V 
AL<L#<2>> -POSITION 1,9'LIST EL 
■GOTO 32624 

32640 SV#-L# ' TRAP 32624 -X-VAL< 
L# ) 

32642 START- 1 1 IF P AND NOT E 
THEN 32652 

32644 GOSUB 32674- IF NOT ABR 
OR P THEN 32632 

32646 POKE 766,0'? CHR#d25)'P 
OS I T I ON 0,3'L»VAL<L*)'LIST L'? 

'? '? "CONT" 1 L#-B# 

32648 POSITION 0,0' POKE 842,13 
'STOP 

32650 POKE 842,12' A-USR < ADR < Si 
>,ADR<L#),4) -L#-L#< 1 , A) 

32652 CHKSUM-USR < ADR < M# ) , ADR < L 
#) , LEN<L# ) ) ' CHKSUM-CHKSUM+PEEK 
< 1542) *65536 


32654 CHK-CHK8UM- < I NT < CHK8UM/6 
76 >#676) 'HI-INT<CHK./26) 'LO-CHK 
-<HI*26) ' C2#< 1 )-CHR#<HI*65> 1 C2 
# < 2 ) -CHR# < LO+65 ) 

32656 IF NOT P OR E THEN E-0' 
GOSUB 32662' IF NOT P THEN 326 
60 

32658 POKE 83,39 POKE 752, 1 FO 
R X-3 TO 5 POSITION 1,X*? Bid 
, 38) ' P08ITI0N 1 , X*7 ' ? B#<1, 38) 

1 NEXT X ' POKE 83,38 
32660 POKE 766,1 POKE 83,38 PO 
SITION 7,7-? C2# 1 POKE 752,0 GO 
TO 32618 

32662 GOSUB 32702 POKE 766,0 P 
OKE 752, 1 ' ? CHR#d25> POKE 82, 

1 * DL-PEEK < 568 ) *256*PEEK C 56 1 ) +4 


32664 POKE DL- 1,70 POKE DL*2,6 
POKE DL*3, 112 POKE DL+4,112 P 
OKE DL*5, 112 POKE DL*13,112 PO 
KE DL* 14, 112 

32666 POKE DL*22, 112 POKE DL *2 
3,112 POKE DL+24,65 POKE DL *25 
, PEEK < 560 ) POKE DL+26 , PEEK ( 56 1 
) - POKE 83,39 

32668 POSITION 20,0 ? td» 
tor bisie POS I T I ON 0,7 ? 

" OKNO 


32670 POSITION 0,1'? " 

55672 POKE 559, 34 'RETURN 
32674 GRAPHICS 0 POKE 559,0 PO 
KE 766,1'POKE 82,0 'POKE 83,39 
POSITION 0,3'? L#'? ? "? •? " 

CONT" 'POSITION 0,0 
32676 POKE 842,13 STOP 
32678 POKE 842, 12 TRAP 32682 A 
-USRf ADP(E#> , VAL(Li) ) IF A-4 T 
HEN POP GOTO 32682 
32680 RETURN 

32682 GOSUB 32662 SOUND 0,75,1 
0,8 FOR X-1 TO 20 NEXT X SOUND 
0 , 0 , 0 , 0 ' POS I T I ON 1,3? "BLAD 
SKŁADNI! "'POKE 766,1 
32684 POKE 83,38 POSITION 1,10 
=? SV# ' GOTO 32624 
32686 LINE-PEEK(STMTAB)*PEEK<S 
TMTAB+1 >*256 ' IF LINE> 32599 THE 
N 32690 

32688 0FS-PEEK<STMTAB*2) STMTA 
B-STMTAB+OFS POSITION 1,9'LIST 
LINĘ -GOTO 32624 
32690 POSITION 1,10'? "Numer 
inil ni# może byc większy od 
32599 ! " 

32692 FOR 1-1 TO 1000 NEXT I«G 
OTO 32624 

32702 POKE 16, 112 'POKE 53774,1 
12 'RETURN 

32704 POSITION 5,12'? "KASETA 
CZY DYSKIETKA"; 'INPUT L#'IF L# 
O "K" AND L#<>"D" THEN 32704 
32706 IF L#»"D" THEN 32714 
32708 POSITION 1,12'? "Przylot 
uJ kisete i nicisnij RETURN" -G 
OSUB 32720 

32710 LIST "C'", 1,32599 'GOTO 3 
2718 

32714 POSITION 0,12? "NAZWA Z 
BIORU <D'FILENAME.EXT> ";CHR 
#<30>;CHR#<30);CHR#<30); -INPUT 

L # 

32715 TRAP 32716 -OPEN #1,4,0,L 
# 1 CLOSE #1 1 GOTO 32722 

32716 LIST Li, 1,32599 

32718 POSITION 0, 12'? " <36 

znaków spacji) " 

- RETURN 

32720 GET #17, A RETURN 
32722 ? CHR#< 125); "ZBIÓR JUZ I 
STNIEJE ! " 1 ? "CZY WYKASOWAĆ GO" 
;- INPUT A# - TRAP 32722- IF A#-"T 
" THEN 32716 

32724 FOR X«12 TO 15 'POSITION 
0,X-? Bi - NEXT X • GOTO 32714 


2 REM Edytor BASIC' u 

3 REM Wydruk nr 2 

4 REM 

10 DIM Li< 120) , ML#< 119), Ai(l) 
20 GRAPHICS 0 POKE 710,0-? "Dy 
sk czy K*setA"; 1 INPUT Ai • IF A# 
<>"K" AND Ai<> "D" THEN 20 
30 IF Ai-"K" THEN 50 
40 ? "Umieść sformstowAnA dysk 


ietke w stecJi dysków, ";'? "n 
Astepnie nicieniJ RETURN" -I NPU 
T Li 

45 INPUT Li -OPEN #1,8,0, "D- ML. 
DAT" -GOTO 60 

50 ? -? "Przyeotuj kASete, nAC 
i sni) RETURN"; -INPUT Li 'OPEN # 

60 L#-"32608 Mi<l)-"'L#<13)-CH 
Ri<34) 

70 N-l 19 -GOSUB 130 - L#<14)-ML#< 
1,58) -L#<LEN<L#)+l)-CHRi<34) '? 
#1 ;Li 

80 Li< 1 )-"32610 Mi<59)-"-Li<14 
)-CHRi<34) 'LiC15)-MLi<59) *Li<L 
EN<L#)+1 )-CHR#<34> - ? #l;Li 
90 L#<1 >-"32612 Si-"-Li<10)-CH 
Ri<34) 

100 MLi-""'N-98' GOSUB 130 -Li<l 
1 ) -ML# < L# < LEN < L# ) +1 > -CHR# < 34 > ' 
? #1 ; L# 

110 L#<1 >-"32614 E#-"-L#<10>-C 
HR#<34) 

120 ML#-" "-N-69' GOSUB 130'L#<1 
1 )-ML# - L#<LEN<L#)*1 )-CHR#<34> ■ 
? #1; L# -END 

130 FOR X-1 TO N-READ A'ML#<X) 

»CHR#<A) <NEXT X' RETURN 

140 DATA 104,104,133,204,104,1 

33. 203. 104. 104. 133.205. 169.0. 1 
41,3,6,141,2,6,141,4,6,141,5,6 
150 DATA 141,6,6,238,3,6,32,68 
,218, 172,2,6, 177,203, 133,212,3 
2,170,217,32,182,221,32,68,218 
160 DATA 173, 3, 6, .133, 212,32, 17 
0,217,32,219,218,32,210,217,16 

5.212.141.0. 6. 165.213.141.1.6, 
24 

170 DATA 173,0,6,109,4,6,141,4 

,6,173,1,6,109,5,6,141,5,6,144 

,3,238,6,6,238,2 

180 DATA 6,172,2,6,196,205,208 

, 176, 173,4,6, 133,212, 173,5,6, 1 

33,213,96 

190 DATA 10 4,104,133,204,104,1 
33,203, 104,104, 141,255,6,169,0 
, 133,213,216, 165,88, 133,205, 16 
5,89,133,206 

200 DATA 174,255,6,24,165,205, 
105,40,133,205, 144,2,230,206,2 
02, ?08, 242, 160,0, 177, 205,201 , 6 
4, 144, 18 


210 DATA 201,96,144,19,201,128 
, 144, 18,201,192, 144,6,201,224, 
144,7, 176,8,24, 105,32, 144,3,56 
,233 

220 DATA 64,145,203,200,192,11 
4,240,2,208,215,177,203,201,32 
,208,3, 136,208,247,200,132,212 
,96 

230 DATA 104,104,141,254,6,104 
,141,253,6,169,0,133,213,216,1 
65, 136, 133, 205, 165, 137, 133, 206 
,160,0,177 

240 DATA 205,205,253,6,208,8,2 
00, 177,205,205,254,6,240,15, 16 
0,2,177,205,24,101,205,133,205 
, 144,228 

250 DATA 230,206,176,224,160,4 
, 1 77 , 205 , 20 1 , 55 • 240 , 4 , 1 60 , 0 , 24 
0,0,132,212,96 


Wobec częstych pytań informujemy, ie tylko 
autorzy dysponują kopiami (na taśmie magnety- 
cznej) wszystkich programów zamieszczonych w 
ramach cyhlu » W szponach Atari". Zaintere- 
sowanych kopiami tych programów (i leniwych) 
prorimy o bezpośrednie skontaktowanie ńę z 
jednym z autorów. 

Podajemy adres: Ludwik PIELA 

Ul. Topograficzna 1/2 
06-918 WARSZAWA 


9 


Helios — monitorem 


Wielu użytkowników mikrokomputerów korzysta z telewizora po- 
łączonego z komputerem poprzez wejście antenowe. Jakość uzyski- 
wanego tak obrazu nie jest zadowalająca i najczęściej nie ma dźwię- 
ku. Rezygnacja z toru wysokiej częstotliwości telewizora (i kompute- 
ra) daje znaczną poprawę jakości obrazu otaz umożliwia uzyskanie 
fonii. Opisany w artykule układ — moduł monitora umożliwia wyko- 
rzystanie jako monitora telewizora kolorowego HELIOS TC 500. 
OTV HELIOS jest fabrycznie przygotowany do zainstalowania tego 
modułu i w związku z tym wymaga niewielu przeróbek. Należy w 
tym miejscu zaznaczyć, że układ .ten nie zapewnia uzyskania koloro- 
wego obrazu z komputera, jeżeli telewizor nie posiada dekodera 
PAL. Przy wyposażeniu tylko w dekoder SECAM obraz będzie 
czarno-biały. Moduł monitora umożliwia współpracę telewizora z 
dowolnym mikrokomputerem mającym wyjścia kompletnego sygna- 
łu wizji (ang. composite video) i fonii. W rozwiązaniu modelowym z 
Heliosem współpracuje Atarii 130XE. Możliwa jest również współ- 
praca telewizora z magnetowidem. 



Schemat źródłowy modułu przedstawiono na rysunku nr 1. Za- 
daniem układu jest dopasowanie sygnałów wizji i fonii z komputera 
do poziomu wymaganego przez układy telewizora oraz wyłączenie z 
pracy części w.cz. odbiornika. Przełączenie telewizora w tryb pracy 
monitora odbywa się przełącznikiem „W”. Przez jego styki podawane 
jest napięcie +12 V zapewniające pracę wzmacniacza wizji (Tl, T2, 
T3) i fonii (T4) oraz powodujące blokowanie części w.cz. telewizora: 
modułu pośredniej częstotliwości MP, sygnału różnicowego fonii w 
module MF oraz zmianę stałej czasu w module synchronizacji MH. 
Część w.cz. musi być wyłączona, aby umożliwić współpracę z ze- 
wnętrznym źródłem sygnału wizji i fonii. Powrót do pracy w trybie 
odbiornika TV odbywa się poprzez ustawienie przełącznika „W” w 
przeciwne położenie. 

Układ zamontowano na jednostronnie drukowanej płycie (rys. 
2 i 3). Moduł wyposażono w 14-stykowe gniazdo (tego samego typu, 
jak pozostałe moduły telewizora), a w bloku BS 2030 w miejscu ozna- 
czonym „MM” wlutowano 14 kołeczków stykowych. Ponadto konie- 
czne są jeszcze przeróbki bloku BS 2030 (rys. 4): 

— połączenie punktu 3 złącza z punktem 5 gniazda G 355, 

— rozcięcie ścieżki dochodzącej do punktu 1 1 (ST.CZASU) złą- 
cza MH i połączenie rozciętej ścieżki diodą D5, 

— doprowadzenie napięcia +12 V z punktu 8 złącza MD do 
. punktu 7 złącza MM. 



rys. 2 




rys. 4 
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rys. 5 

Doprowadzenie zewnętrznych sygnałów wizji i fonii do modułu 
zrealizowano poprzez 5-stykowe gniazdo magnetofonowe zamonto- 
wane w miejscu firmowego gniazda służącego do nagrywania na 
magnetofon (firmowe połączenia z tym gniazdem należy usunąć). Po- 
łączeń między gniazdem, płytką potencjometrów PP 2030 a blokiem 
BS 2030 należy dokonać ekranowym przewodem (rys. 5). Włącznik 
„W” umieszczono z tyłu telewizora przy gniazdku antenowym. 

Do połączenia komputera z telewizorem wykorzystano ekranowa- 
ny przewód dwużyłowy zakończony z obu stron 5-stykowymi wty- 
kami magnetofonowymi (rys. 6). 


wtyk wtyk 



rys. 6 


Po wykonaniu powyższych czynności oraz sprawdzeniu ich popraw- 
ności umieszczamy moduł w złączu MM w bloku BS 2030 i przystę- 
pujemy do regulacji. Potencjometry montażowe R5 i R7 ustawiamy, 
w środkowym położeniu. Włączamy telewizor i przyłączamy w tryb 
pracy monitora (włącznikiem „W”). 

Do gniazda Gm doprowadzamy sygnał z komputera. Regulację 


najlepiej jest przeprowadzać gdy wytwarzany przez komputer obraz 
jest nieruchomy i kolorowy. 

Może to być np.: program 256 kolorów z programu demonstracyj- 
nego ATARI. Regulujemy. potencjometrem R5 tak, aby uzyskać na 
ekranie wytwarzany przez komputer obraz. Następnie ustawiamy po- 
tencjometr R7 tak, aby obraz był stabilny a odtwarzanie kolorów 
właściwe. Ewentualnej korekty nasycenia barw możemy dokonać 
zmieniając ponownie ustawienie R5. Na tym regulację kończymy. W 
wypadku współpracy z innym komputerem (lub magnetowidem) 
może zajść konieczność zmiany wartości rezystora R15 w torze fonii 
modułu. Należy w tym wypadku kierować się zasadą, aby przy ta- 
kim samym położeniu suwnka regulacji głośności uzyskać podobne 
natężenie dźwięku w obu trybach pracy odbiornika. 

Bieżącej korekcji jasności, nasycenia, kontrastu i głośności dokonu- 
jemy elementami regulacyjnymi telewizora. 

Spis elementów 
Tranzystory 

Tl, T4 - BC 308, BC 178 
T2, T3, T5 - BC 238, BC 108 

Diody 

Dl-j-D5 — BAVP 17, 18, 19 

Rezystory 
Typu MŁT 0,125 W 
o wartościach jak na schemacie, 

R5, R7 — miniaturowe potencjometry montażowe (poziome). 
Kondensatory 

Elekt rolityczne napięcie 16 V 
C3 ~ ceramiczny. 

Inne 

W — przełącznik suwakowy miniaturowy dowolnego typu. 
Gniazdo 14-stykowe. 

Kołeczki stykowe — 14 szt. 

Gniazdo magnetofonowe 5-stykowe typu GM. 

Wtyki magnetofonowe 5-stykowe typu WM. 

LITERATURA: 

[/] Instrukcja serwisowa HELIOS TC 500 — Wema 1985 
Warszawa, 

[2] M.DEC. Monitory, monitory... — Komputer 9/1986 

Bogusław LIPCZYŃSKI 



Makatka 


i BGR0ER O: CL 5 O IM bt (54.) : 

POINT PRPER O.bS: LET j=l: LET 

•3 =2 LET U3 LET CZ=4: LET 4=11 

: LET f =12: LET * s 15 : LET h = 16 

LET i =31: LET *=31: LET i. =13: LE 

T p =5 : LET o =3_ DIM = S LET 

3S= —W' T ' • * A V t • • *-*.-■ 4 

i i l l i łjh"vT^ł - I" + 'wmm 

a PhPER INT i 4.+RND*4) INK IN 
T (AND *4) LET a *C Z 4 INT (RND4-JI : 

LET o = INT •. RND 4P ' LET C»INT ( R 
ND *0 ) : POINT PT b+d , C . 31 '3 + j) . PT 

4 - b . •- Hiłrti . RT o+4 j 3-C) SJ iitd 
) ,hT i - a a s 1 a 4 c z > . OT b 4-d , c 

; a i ( j j ) , hT * - o . c -t-h ; a $ ( a ♦ t ) ; PT o 
+d , k - c ; a $ i a +d :> ;flT 4 - o , k - c ; a t a 4 ■: 
Z > > RT b 4 f . C . a 4 La 4 j . RT i - b ■ C i 1S ^ 


ZX SPECTRUM 

4 ł*t. ) , RT o t f , 3 - C . 1 S 1 s 4>3 > i RT i - b . 3 
- •: ; a f ( a 4 •: z ) ; RT b 4 f asia + j) ; R 

T i - b.Cth, 3 * . RT b 4 f a % t 

a 4.3 ) ; RT i - b , H- C ; i * v a 4 C Z ) : GO TO 

•3 

3 5 RL'E "MiKiUa" LINĘ 1 
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To może się przydać 


Wyznaczanie rozwiązania układu równań 
różniczkowych zwyczajnych I rzędu 

Wojciech KOZERA 


Program służy do graficznego przedstawienia roz- 
wiązania układu równań różniczkowych, opisujących, 
w wypadku ogólnym, wielowymiarowe obiekty dyna- 
miczne nieliniowe, w oparciu o metodę Rungego-Kutty 
czwartego rzędu (i) (str. 325). Treść programu w języ- 
ku BASIC na komputer Amstrad/Schncider została 
opracowana na podstawie prac (2), (3). 

Dane początkowe 

Przed uruchomieniem programu należy wstawić do programu 
głównego instrukcje określające równania wyjścia (zgodnie z komen- 
tarzem w liniach 110 — 126) oraz instrukcje określające prawe strony 
równań stanu obiektu dynamicznego (zgodnie z komentarzem w li- 
niach 286—296). 

W trybie konwersacyjnym zadawane są wartości następujących 
danych: 

n — liczba zmiennych stanu obiektu, 
x°(m) — wartość i — tego elementu wektor a stanu w chwili począt- 
kowej (m = l...n), 
tp — chwila początkowa, 
tk — chwila końcowa, 
kr — krok wydruku, 

Iw — liczba wykresów (patrz komentarz w liniach 1 10 — 126 pro- 
gramu głównego, 

mik — najmniejszy dopuszczalny krok, 
eps — względna dokładność rozwiązania, 
eta — oczekiwany rząd odpowiedzi. 

Ponadto, na pytanie o wydruk wyników na drukarce, należy na- 
cisnąć klawisz (T) dla akceptacji, lub (N) — w przeciwnym wypadku. 

Wyniki końcowe 

Efektem działania programu jest wyświetlenie na ekranie monito- 
ra, a przy wybranej opcji druku — także wydruk na drukarce, prze- 
biegów w czasie wybranych zmiennych oznaczonych kolejno małymi 
literami alfabetu (literze a odpowiada przebieg pierwszej zmiennej). 

, Przykład testowy 

Program sprawdzono, między innymi, na przykładzie obiektu jed- 
nowymiarowego opisanego równaniami: 

*i(t) = (!) 

x,(t) = — 4 ■ x,(t) — 1.6 ■ x,(t) + 8 • u(t), (2) 

y(t) = x,(t). (3) 

u(t)=l. (4) 



Instrukcje, określające prawe strony równań (l) i (2), mają postać: 
d(l) = yw(2), (5) 

d(2) = 4 * yw(l) — 1.6 * yw(2) + 8 (6) 

a instrukcje, określające równania wyjścia, przyjęto w postaci: 
w(le,l) = y0(l) — przebieg odpowiedzi y(t) obiektu, oznaczony na 
wykresie literą a, 

w(le,2) = y0(2) — przebieg składowej x 2 (t) wektora stanu x(t) obiek- 
tu, oznaczony na wykresie literą b, 
w(le,3) = 1 — przebieg wymuszenia u(t) = l(t), oznaczony na 

wykresie literą c. 

Dla n = 2, x0(l) =x0(2) = 0, tp =0, tk = 10, kr = 0,02, Iw = 3, mik = 
eps = eta = 1E-6 oraz wybranej opcji druku uzyskano przebiegi 
przedstawione na rys. 1 . 

4 REM ***WYzI5aCZAnTe*R0ZWI AZYWAN*A*UKLADIJ # R0I<NW4*** 

6 REM * RÓŻNICZKOWYCH ZWYCZAJNYCH 1-60 RZĘDU * 

B » J°^ ciech Ko2era i Szczecin 1988 * 

12 DEF1NT i-n 
14 MEMORY Ł9FFF 
16 G0SUB 488 

18 MODĘ 2: WINDOM #1,42,80,15,16 
20 PRINT SPC06) ; 

22 PRINT CHRI (24) ; " PROGRAM WYZNACZANIA ROZWIĄZYWANIA UKŁADU ";CHR$(24> 

24 PRINT SPCU6); 

26 PRINT CHRI (24);" R0WNAN RÓŻNICZKOWYCH ZWYCZAJNYCH I-GO RZĘDU ";CHR*(24) 

28 ir=-l 

30 LOCATE 20, 5i PRINT CHR*(7)|: INPUT "Liczba zmiennych stanu n=“,n 

32 DIM d <n) ,y (n) ,yfl(n) ,yl (n> ,y2(n) ,y3<n) ,yh(n> .yetln) 

34 LOCATE 25.6: PRINT "Warunki początkowe : x0("; 

36 FOR (Hl TO n 

38 LOCATE 50,6:PRINT SPACEt (20) : LOCATE 50,6 
40 PRINT USIN6 (“#"); a; :PRINT CHR*(7) 

42 INPUT "=“,y0(e) 

44 NEXT ■ 

46 LOCATE 20, 6: PRINT SPACEt (59) i 

48 LOCATE 20,6:PRINT CHR* (7) ; : INPUT "Chwila początkową tp*\tp 

50 x0=tp p p 

52 LOCATE 20,7:PRINT CHRK7);: INPUT "Chwila końcowa tk»\tk 

54 LOCATE 20,8:PRINT CHR»(7)j: INPUT "Krok wydruku kr=" rkr 

56 LOCATE 20,9:PRINT CHR* (7ł :: INPUT "Liczba wykresów lw=" lw 

58 LOCATE 20,10:PRINT CHR$(7);"Czy drukować wykresy <T/N> ? : 

60 s$=UPPERt(INKEY$):IF (s»="'') TrEN GOTO 60 
62 IF (s*=T) TkCN PRINT "Tak" ELSE PRINT "Nie" 

64 LOCATE 18, 12: PRINT CHRI (7); 

66 INPUT "Najuniejszy krok dopuszczalny .... i»ik=",r»ah 
68 LOCATE 18,13:PRINT CHR$(7); 

70 INPUT "Względna dokładność rozwiązania .. eps=“,eps 
72 LOCATE 18,14:PRINT CHR*(7); 

74 INPUT "Oczekiwany rząd odpowiedzi eta=“,eta 

76 LOCATE 18.15:PRINT CHR$(7); "Podpis pod rysunkiem 
78 INPUT #1 j .t*:tl=" "+t$+" " 

80 IF (s»0*T"l THEN GOTO 94 
82 i=-l 
84 WHILE i 

86 IF (INP(J>F500) AND 641=0 THEN i=0 

88 IF i THEN LOCATE 30,24:PRINT CHR$(7); "Wlacz drukarkę !"; 

90 NEND 

92 PRINT #8,CHR$(27); "1 ":CHR$(101 ; 

94 LOCATE 24,24:PRINt CHfi*(24);" Chwila aktualna t=’:CHRt(24); 

96 «le=4000/iw 
98 DIM w(ele,lw) 

100 lt=LEN(t»)/2:lt=40-lt:le=0 
102 WHILE (x0<tk) 

104 LOCATE 51 ,24: PRINT SPACE* (28): LOCATE 51,24 

106 PRINT CHR* (24) : INT 1x0*1000000+0, 5) *0.000001: CHR* 124) : 

108 le=le+l 


110 " 




Podaj równania wyjścia o postaci: 
w(le,m)=fm(y0(l) ,y0(2) ,... ,y0(n) ,x0) ; »=l..lw 


w(le,l)=y0(l) 

w(le,2)=y0(2) 

w(le,3)=i 
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138 xl=x0+rkr 

140 epsl=0.025«eps:wl=rkr:sh=0 

142 IF (mKB) THEN sh=-l 
144 1F ( h 1 >0 ) THEN sh=l 
146 nt=0 

148 IF ir THEN h=wl : prh=h: i r=B: GOTO 156 
150 h=prli 

152 IF (ABSIhKrmah) THEN h=rmah*sh:prh=h 
154 IF (1x0+1. 25*h-xl)*sh>=0) THEN h=wl ELSE nt=-l 
156 na=-l 


FOR i=l TO n 
^U)=y0(i) 


166 BOSUB 274 
168 FOR i=l TO n 
170 yl(i)*yh(i) 

172 NEXT i 
174 hh=0.5*h 
176 FOR i=l TO n 
178 y(i)=y0(i) 

180 NEXT i 
182 x=x0:hp=hh 
184 GOSUB 274 
186 FOR i=l TO n 
188 y2 ( i ) =yh < i ) 

190 NEXT i 
192 FOR i=l TO n 
194 y ( i ) =y2 ( i ) 

196 NEaT i 
198 x=x0+hh:hp=hh 
200 GOSUB 274 
202 FOR 1=1 TO n 
204 y3(i)=yh(i) 

206 l£XT i 
208 w4=0 
210 FOR k=l TO n 

212 Hl=yl(k) :M3=y3<k):w2=ABS<Nl-M3):wl=ABS(Hl) : m3=ABS(m3) 

214 IF (m1<w 3) THEN wl=w3 

216 IF IwKeta) THEN wl=eta 

218 h1=n2/w1 

220 IF (h1 >w 4) THEN w4=wl 

222 NEXT k 

224 IF (w4<=eps) THEN GOTO 246 
226 na=0 

IF (ABS(hh)>=r«iah) THEN GOTO 240 


230 CIS 


232 

234 

236 


PRINT CHR»(7):"»* Nie można osiągnąć zadanej dokładności ep^ ="j 
PRINT " W 

PRINT " - nawet przy zmniejszeniu kroku do wartości kr =";rmah; 


238 END 
240 h=hh:prh=h:nt=-l 
242 FOR k*l TO n:yl (k)*y2(k) :NEXT k 
244 GOTO 174 
246 FOR k=l TO n 

248 w3=y3(k):y0(k)=w3+6.66666667E-02*(w3-yl(k)> 

250 NEXT k 

252 IF (nt=0) THEN GOTO 262 
254 x0=x0+h 

256 IF ( (w4<eps) AND na) THEN h=h+h:prh=h 
258 IF ( (x0+1.25*b-xl)*sh>=0) THEN h=xl-x0:nt=0 
260 GOTO 156 
262 x0=x 1 

264 IF (le>=mle) THEN GOTO 268 

266 MEND 

268 GOSUB 320 

270 END 

272 REM 

274 w4=0.5*hp:wl=w4:w2=x 

276 FOR k=l TO n:yw(k)=y(k):yti(k)=0:NEXT k 

278 FOR i=l TO 4 

280 ON i GOTO 282.284,284,282 

282 w3=w4:G0T0 286 

284 . w>hę 


I ' Przypisz zmiennym dli) wartości pochodnych zgodnie z układem rownan: 
! ' d(i)=f i (yw(l) ,yw(2) ,.. . ,yw(n) ,w2) ; i«l..n 


d(l)«yw(2) 

d(2)=-4*yw(l>-1.6*yw<2)+8 


6 FOR k*l TO n 

B w2=d(k):yh(k)«yh(k)+w3*w2:yw(k)=y(k)+wl»w2 
0 NEXT k 
2 w2=x+wl:wl=w3 
4 NEXT i 

6 FOR k=l TO n:yh(k)«y(k)+0.333333333*yh(k):NEXT k 
8 RETURN 

2 REM = PROCEDURA SPORZĄDZANIA WYKRESU = 

4 REM ============================== 

6 kk=le MOD 506 

B IF (kk>0) THEN kk=l ELSE kk=fl 
a kk=le\506+kk 
2 ymin=lE+10: ymax=-lE+10 
4 FOR i=l TO iw 
6 FOR j=l TO le 
B t=w(j.i) 

0 IF (t>vmax) THEN ymax=t 

2 IF (t<ymin) T)€N ymin=t 

4 NEXT j 

6 NEXT i 

B ysk=336/(ymax-ymin) 

0 FOR k=l TO kk 
2 CLS 

4 IF (s*=“n THEN GRAPHICS PATER 0:BRAPHICS PEN liGOTO 360 


356 HINDOH 12,75,2,23:PAPER 1:PEN 0:CLS cy o ■ 

358 GRAPHICS PAPER 1: GRAPHICS PEN 0 -V\WA • £ 


NINDOH 1,80,1 ,25: PAPER 0:PEN 1 
ia=-B 
FOR i«l TO 8 

ia=ia+4B:PLOT 90,ia:DRAHR 2,0:ib=92 
FOR j*l TO 63 
ib*ib+8:PL0T ib,ia 
NEXT j 
NEXT i 
ia=-20 

FOR i=l TO 5 


ia=36 

FOR i*l TO 10 
ia=ia+56:ib=40 
FOR j»l TO 42 
ib=ib+8:PL0T ia,ib 
NEXT j 
NEXT i 
ia=36 

FOR i=l TO 5 

i a-i a+1 12s PLOT ia,378:DRANR 0,2 
NEXT i 

tpl=506*(k-l) «rkr+tp: tkl=tpl+505srkr 
LOCATE 12-2*1**, 1 

FOR i=l TO IhiRRINT CHW(96+i)}’,"pNEXT i 
ysk l= (^max-gmin) /7: t=y*ax 

LOCATE l,3*i-l:PRINT USINGC«.#«Hr' AA -) jt:t=t-yskl 
NEXT i 

LOCATE 76 ,24: PRINT “fj 

xsk=(tki-tpl)/9:t=tpl+xsk:LOCATE 11,1 
FOR i=l TO 5 

PRINT " ■;USIIffiC»l.##W AAAA ")itj:t=t+2*xsk 
NEXT i 

t=tpl iLOCATE 4,24 
FOR 1*1 TO 5 

PRINT “ " ; USI NB ( “ M . t»M AA AA ‘ ) 1 1 i : t =t+2*x sk 

NEXT i 

ia=506*(k-l)+l:ib=ia+505:IF (ib>le) THEN ib=le 
FOR i=l TO lw 

1=1: PLOT 92,INT(ysk#(w(ia,i)-ymin)+0.5)+40 
FOR j=ia+l TO ib 

DRAW l+92,INT(ysk»(w(j,i)-ymin)+0.5)+40 
1=1 + 1 
NEXT j 

1 =YPOS+8: MOVE 593+1*8,1 
TAG: PRINT CHR»(96+i)::TAG0FF 
NEXT i 

IF (tpl*tkl>0) THEN GOTO 462 
PLOT INT (0. 5-1 /rkr*tpl )+92,40: DRANR 0,344 
IF (ymin*y«ax>0> THEN GOTO 466 
PLOT 92, INT (0. 5-ysk*yai n ) +40: DRAWR 507,0 
LOCATE lt.25 

IF (sł="T") THEM PRINT t»;:CALL 6A000 ELSE PRINT CHFrt(24) jt*;CHR$(24) ; 
PRINT CHR*(7): 

UM1IP IMkPYfc' 1 ". 


486 REM ================ 

488 FOR i=6A000 TO 6A0BF 
490 READ k:POKE i ,k:l=l+k:NEXT 
492 DATA 6cd,6ba,ibb,6cd,6e7,6bb,632,6bd 
494 DATA 6a0,6cd,66c,6a0,621,68f ,M1,622 
496 DATA 6be, 6a0, 61 1,600, 600, 63e, 607, 632 
498 DATA 6c0,6a0,6cd,67c,6a0,60e,6O0,63a 
500 DATA 6c0,6a0,647,6e5,6d5,6c5,6cd,6f0 
502 DATA 6bb,6d,6dl,621,6bd,6a0,6be,6el 
504 DATA 637,620,601,6a7,6cb,611,62b,62b 
506 DATA 610,6e9,6cd,6af,6a0,679,6cd,6a6 
508 DATA 6a0,613,6e5,621,67f ,602,637,6ed 
510 DATA 652,6el,638,605,62a,6be,6a0,618 
512 DATA 6cc, 623, 67c,6b5,6c8,62b, 61 1,600 
514 DATA M0,622,6be,6a0,63e,607,6bd,620 
516 DATA 6b9,67c,6b4,620,6b5,63e,604,632 
518 DATA 6c0,6a0,618,6ae,63e,61b,6cd,6a6 
520 DATA 6a0,63e,631,6cd,6a6,6a0,600,600 
522 DATA 600,600,600,6c9,6e5,63e,642,6cd 
524 DATA 61e,6bb,6el ,628,M2,6el,6c9,63e 
526 DATA 60d,6cd,6a6,6a0,63e,60a,6cd,6a6 
528 DATA 6a0,63e,61b,6cd,6a6,6a0,63e,64c 
530 DATA- 6cd,6a6,6a0,63e,67F,6cd,6a6,6a0 
532 DATA 63e,602,6cd,6ać,6a0,6c9,6cd,62e 
”* DATA 6bd,638,6fb,6cd,62b,6bd,6c9,63a 
DATA 6c0,6a0,6fe,607,6c8,6af,6cb,611 
DATA 6cb.611.6cb,611,6c9,600,600,600 


□ unm mu, 7,<mn , m 

B IF 1023151 tHEN PRINT CHR*(>); 
2 RETURN 

4 REM ================ 


’** BI ad w DATA ! 


Wojciech KOZERA 


LITERATURA: 

(1) H. Górecki. Praca zbiorowa: Algorytmy i programy sterowania, WNT, War- 
szawa 1980. 

(2) ELWRO: ODRA— Algol. Procedury. Opis 1204— VIII— 11, Wrocław 1970. 

(3) Schneider CPC - 6128. Bemitserhandbuch. 
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INFORMATYKA W SZKOLE 
PRIMUM NON NOCERE, 

czyli jak chcemy uczyć podstaw informatyki 


Primum non nocere, zasada ta obowiązuje także nauczycieli. Mają oni bo- 
wiem ogromne możliwości kształtowania naszej wiedzy. Pozwala nam ona da- 
lej żyć godnie, dostrzegać dobro i zło, ułatwia poruszanie się w otaczającym 
świecie. A nie jest to proste u schyłku wieku, który wraz z poprzedzającym go 
tworzą najburzliwszy okres ze stu wieków, mijających od początku, gdy na 
Ziemi rozpoczął swoje panowanie homo sapiens. 


Po sile pary, potędze elektryczności, pozna- 
jemy teraz moc informacji. Stało się to za 
przyczyną stosunkowo młodziutkiej gałęzi 
wiedzy, jaką jest informatyka. Fundamenty jej 
tworzono od bardzo dawna, jednak dopiero 
(jut?) 50 lat temu pierwszy komputer wspo- 
mógł intelektualną pracę człowieka. Pozwoliło 
to dostrzec czubek przysłowiowej góry lodo- 
wej. Tworzy ją tutaj znaczenie efektywnego 
(szybkiego!) wykorzystania i przetworzenia 
informacji. Dzień dzisiejszy pozwala nam za- 
uważyć zarysy, wcześniej niewyobrażalnego 
ogromu problematyki związanej z informacją i 
jej przetwarzaniem lub inaczej z INFOR- 
MATYKĄ, prościej — z komputerami. 

Jednak mimo ogromnej rangi, jaką ostatnio 
zdobywa sobie informatyka, należy pamiętać, 
że jest to dziedzina wiedzy dająca nam narzę- 
dzia, które mogą wspomagać każde działanie 
ludzkie. Poza specjalistycznymi kierunkami 
studiów, informatyka nie powinna występo- 
wać zatem samodzielnie, jako cel działania — 
mamy w tym zakresie duże i jednocześnie 
smutne doświadczenia — piękne ośrodki obli- 
czeniowe — duma dyrekcji..., senne zajęcia o 
komputerach, programy pisane za resztki sty- 
pendium. 

Przystępując zatem do nauczania podstaw 
informatyki (PI), należy pamiętać — „po 
pierwsze nie szkodzić”, przez zniechęcanie do 
informatyki. Przyczynia się temu między in- 
nymi bardzo ryzykowne traktowanie informa- 
tyki jako samodzielnej nauki — przedmiot ten 
staje się wówczas abstrakcyjny, mało użyte- 
czny. Motywacja do nauki gwałtownie topnie- 
je (widać to po twarzach uczących się, cień za- 
interesowania pozostaje tylko u nielicznych 
entuzjastów. 

Pierwszym zatem postulatem „by nie szko- 
dzić” jest ścisłe powiązanie nauczania pod- 
staw informatyki z jej praktycznymi zastoso- 
waniami. Nie historia komputerów, system 
dwójkowy, a atrakcyjne (spektakularne) zasto- 
sowania komputerów powinny być tematem 
pierwszych zajęć. Gwarantuje to, iż już pod- 
czas pierwszych zajęć nie stracimy „kredytu 
zainteresowania” naszych uczniów. Kredyt 
ten, mimo pozorów, jest bardzo niewielki — 
ukształtowany zazwyczaj „modą” lub trakto- 
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waniem komputerów jako urządzeń do zaba- 
wy. Warto w tym miejscu podkreślić pozy- 
tywne efekty nieograniczonego dostępu do 
komputerów w celu wykorzystania ich do za- 
bawy. Okazuje się, że zabawy te zmniejszają 
okres poznawania podstawowych czynności 
manualnych, które należy wykonywać pod- 
czas obsługi komputera. 

Drugim postulatem w myśl zasady „nie 
szkodzić” jest wyeliminowanie zajęć z pod- 
staw informatyki w szkołach, gdzie nie można 
zapewnić swobodnego dostępu wszystkim 
uczącym się tego przedmiotu (dwie osoby na 
jedno stanowisko). Przy małej liczbie kompu- 
terów jest to oczywiście kwestia odpowiednie- 
go podziału na grupy i liczby nauczycieli... 

Trzeci postulat — na każdych zajęciach na- 
uczyciel powinien wykorzystywać komputer. 
Wiąże się to z koniecznością wcześniejszego 
przygotowania odpowiednich programów 
demonstracyjnych, także obrazów kompute- 
rowych. Konkretne propozycje tego typu 
pomocy dydaktycznych zawarte będą w cykli- 
cznych odcinkach stanowiących rozwinięcie 
zaproponowanego dalej programu zajęć z PI. 

Pominięte zostały założenia zerowe. Jed- 
nym z nich jest to, by uczący się nie uczyli 
nauczycieli. Innym założeniem zerowym jest 
przygotowanie odpowiedniej literatury. 
Oczywiście kolejne odcinki zawierały będą 
propozycje uzupełniającej literatury, jednak 
konieczne jest bazowanie na jednym, spraw- 
dzonym zwartym wydaniu, jest nim np. 
„Komputery osobiste” D. Madeja i innych. 

Zgodnie z naszą deklaracją, z wakacyjnego 
numeru „IKS-a”, prezentujemy własną (zweryfi- 
kowaną) propozycję programu „Podstaw in- 
formatyki”. Zakłada się w nim, że minimalna 
liczba godzin zajęć powinna wynosić 50, przy 
proporcji 2 do 3, na korzyść ćwiczeń. Znając 
naszą „rzeczywistość informatyczną” należy 
założyć, że owe ćwiczenia odbywać się będą w 
połowie z wykorzystaniem sprzętu (w sali 
komputerowej) i w połowie „na sucho” bez 
komputera. Przeplot ten pozwoli, by na przy- 
kład sala z 10 komputerami była wystarczająca 
dla 40 uczących się (dwie grupy po 20 osób). 


Włodzimierz GOGOŁEK 

Przedstawiony poniżej program będzie cy- 
klicznie uzupełniany wspomnianymi odcin- 
kami, które w miarę dokładnie prezentowały 
będą treści kolejnych zajęć. Zdając sobie jed- 
nak sprawę z tego, że nasza propozycja może 
być dyskusyjna, przy każdym odcinku PI, bę- 
dziemy .zamieszczali opinie państwa, ale tylko 
te, które poza krytyką zawierały będą kon- 
kretne propozycje. Uzupełnieniem każdego 
odcinka będą także materiały naszych 
współpracowników — rozszerzające propo- 
nowane treści nauczania, w tym także wspo- 
mniane obrazy dydaktyczne i programy. Do- 
pełnienie całości tworzyć będzie lista źródeł 
materiałów do zajęć — głównie wybrane arty- 
kuły z krajowej prasy informatycznej. 

PODSTAWY INFORMATYKI 
(Tematy wykładów wraz z tezami) 

1. Wprowadzenie do podstaw informa- 
tyki. 2 godz. 

Omówienie niektórych (atrakcyj- 
nych) zastosowań komputerów. 
Proponowany jest przykład przetwa- 
rzania obrazów, a w tym: analiza 
obrazów uzyskiwanych z kosmosu, 
komputerowe wspomaganie zabie- 
gów konserwatorskich obrazów na 
przykładzie Mony Lisy. 
Zastosowanie maszyn do identyfika- 
cji autorów tekstów. 

Krótka historia rozwoju technologii 
budowy komputerów (generacje). 

2. Sprzęt informatyczny. 2 godz. 
Reprezentacja informacji w kompu- 
terze — system binarny, a cyfry 
dziesiętne, litery i obrazy (kod 
ASCII, atrybuty obrazów). 

Budowa mikrokomputera, funkcje, 
podstawowe parametry jego podzes- 
połów (mikroprocesor, pamięć 
RAM, ROM). 

3. Programowanie. 4 godz. 

Algorytm — jego istota i przezna- 
czenie. 

Interpretacja terminu „instrukcja”. 
Cechy charakterystyczne niektórych 
języków programowania: Basic, Pas- 
cal, Logo, C i Assembler. 

Istota funkcji kompilatora (i inter- 
pretera) — „szybkość programu”. 
Wybrane instrukcje Basica. 


UWAGA Po trzecim temacie, powinien 
nastąpić początek zajęć prak- 
tycznych, zgodnie z odręb- 
nym planem. Celowe jest w 
tym czasie polecić wykonanie 
uczącym się (indywidualnie 
lub w grupach) opracowania 
nt. „Najciekawsze zastoso- 
wania komputerów”. 

4. Sprzęt informatyczny — urządzenia 
zewnętrzne. 2 godz. 

Przeznaczenie, zalety i wady urzą- 
dzeń wejściowych, wyjściowych i 
pamięci zewnętrznych (magnety- 
cznych). Klawiatura, monitor, dru- 
karka, pióro świetlne, joystick, mysz, 
OCRy. Przeznaczenie, zalety i wady 
pamięci typu: dyski elastyczne i szty- 
wne oraz dyski optyczne i streamery. 

5. Profesjonalne komputery. 2 godz. 
Zastosowania, zalety i wady. IBM 
PC jako przykład unifikacji podzes- 
połów, urządzeń zewnętrznych i 
standaryzacji oprogramowania. 
Informacja o dużych komputerach 
serii ODRA, RIAD oraz superkom- 
puterach — CRAY, ETA. 

6. Oprogramowanie systemowe. 1 
godz. 

Podstawowe cechy systemów opera- 
cyjnych na przykładzie CPM’a i 
DOS’a. 

7. Oprogramowanie użytkowe. 2 godz. 
Omówienie oprogramowania („ży- 
czliwości komputerów”) na przykła- 
dzie: 

— redagowanie tekstów (Wordstar, 
Chiwriter, Fontasy), 

— bazy danych (dBase III Plus), 

— programy kalkulacyjne (Visi- 
Calc), 

— programy graficzne (Paint- 
brush), 

— gry komputerowe. 

Proponowane przykłady powinny 
być zastąpione odpowiednim opro- 
gramowaniem, które jest dostępne w 
szkolnych komputerach. 

8. Oprogramowanie własne, szczegól- 
nego przeznaczenia. 

Omówienie możliwości praktyczne- 
go wykorzystania wcześniej przygo- 
towanych programów. Np. progra- 
my: sortujący, zbierający i przetwa- 
rzający dane z dziennika lekcyjnego 
(pensum nauczycieli, obecności, 
średnie oceny, itp.). t 

9. Sieci komputerowe, wielodostęp, te- 
letransmisja informacji. 1 godz. 
Międzykomputerowa łączność — 
przesyłanie wszelkiej postaci infor- 
macji, także obrazów, przykłady. 
Szybki dostęp (przekazywanie) do 
superaktualnych informacji. Zasa- 
dy dostępu do światowych baz da- 
nych na przykładzie International 
Computing Centre. 

10. Zastosowanie komputerów w 
„szkolnej branży”, np.: w muzyce, 
sporcie, pedagogice, wojsku. 2 godz. 


Wykład gościnny profesjonalisty 
(z „darem dydaktycznym”) lub wy- 
cieczka do firmy świadczącej infor- 
matyczne usługi. 

11. Problematyka dialogu człowieka z 
komputerem. 2 godz. 
Niepowodzenia sztucznej inteligen- 
cji. Ekspert-systemy. Porozumie- 
wanie się z komputerami w języku 
naturalnym — głosem i za pośred- 
nictwem informacji pisanych. Ży- 
czliwość komputerów. 

12. Prezentacja najciekawszych opraco- 
wań nt.: „Najciekawsze zastosowa- 
nie komputerów”. 2 godz. 

PODSTAWY INFORMATYKI 
(Tematy ćwiczeń wraz z tezami) 


(T)Trżykłady^HgoPyfmizacji zadań. 
2X 1 godz. 

Znaczenie konwersacyjnego wpro- 
wadzania danych. Kontrola za- 
kresów danych podczas ich 
wprowadzania oraz wyświetlanie 
komentarzy. 

(P) Sprawdzenie działania wybra- 
nych instrukcji Basica. 4X 1 godz. 
PRINT (PRINT „X”,a), GOTO, 
FOR, NEXT, DIM, INPUT 
(INPUT „X”,a) i w dalszej kolej- 
. ności IF, THEN. 

3. (T) Języki programowania. 2X 1 godz. 
Podstawowe cechy charakterysty- 
czne języków: Basic, Pascal, LO- 
GO, C, Plan, Cobol. Zalety i wa- 
dy Assemblera (szybkość, unikal- 
ność). Kompilatory i interprete- 


ry- 

(T) Przeznaczenie, zalety i wady 
urządzeń zewnętrznych kompu- 
terów różnej skali miniaturyzacji. 
Urządzenia wejściowe i wyjścio- 
we, pamięci magnetyczne. 

Analiza różnic między kompute- 
rami: ODRA, RIAD, PC, super- 
komputery. 

(P) Budowanie własnych, krótkich 
programów w języku Basic. 6 
godz. 

Zwrócenie uwagi na poprawną 
konstrukcję komentarzy genero- 
wanych przez komputer po uru- 
chomieniu własnego programu — 
teksty wyświetlane przy wykorzy- 
staniu instrukcji INPUT”” i 
PRINT””. 

4. (T) Analiza dostępnego oprogramo- 
wania na komputery szkolne. 
4X1 godz. 

Nauka korzystania z dokumenta- 
cji, określania poprawnych para- 
metrów. 

(P) Nauka i ćwiczenie samodzielnego 
uruchamiania wybranych pro- 
gramów dostępnych na szkolne 
komputery. 4X1 godz. 



Uwagi wstępne 

Założono, że dwugodzinne ćwi- 
czenia odbywać się będą jednocześ- 
nie w dwóch grupach — przemien- 
nie: jedna godzina zajęć teorety- 
cznych (T) i w sali komputerów go- 
dzina zajęć praktycznych (P). 

1. (T) Reprezentacja informacji w kom- 

puterze. 2X1 godz. 

System binarny a cyfry dziesięt- 
ne, litery i obrazy, kod ASCII. 
iJ*) Obsługa mikrokomputera na 
przykładzie dostępnego sprzętu. 
2X1 godz. 

Włączenie i wyłączenie zestawu 
mikrokomputera. Rozmieszcze- 
nie klawiszy QWERTY. Klawi- 
sze funkcyjne (systemowe) itp. 

2. (T) Budowa mikrokomputera. 2X1 

godz. 

Wprowadzanie liczb do pamięci 
komputera, obliczanie sumy/róż- 
nicy/ilorazu/iloczynu, wyświet- 
lanie wyniku. 

Mikroprocesor, pamięci półprze- 
wodnikowe, układy współpracy z 
urządzeniami zewnętrznymi. 


— Pan chce ml wmówić, że myśmy to zaprogramowali? 
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INFORMATYK/ 

WPROWADZENIE 
DO PODSTAW INFORMATYKI 


(Materiały do Podstaw Informatyki cz. 1) 

Rozpoczynamy, zapowiadane już wcześniej, drukowanie materiałów, któ- 
re stanowią naszą propozycję uzupełnienia treści nauczania podstaw in- 
formatyki (PI). Wydaje się, że w proponowanym zakresie przedmiot ten 
może być prowadzony w klasie maturalnej szkoły średniej. Zważywszy na to, 
iż tematyka ta nie ma zbyt dużych tradycji, sądzimy, że może także znaleźć 
się w programie szkół pomaturalnych. 


Pragnę podkreślić, że materiały poświęco- 
ne PI, adresowane są głównie do uczących się, 
stąd „beletrystyczna” forma ich prezentacji. 

Zacznijmy od takiego wstępu, który nie 
powinien zmniejszyć potencjalnego zaintere- 
sowania informatyką naszych słuchaczy. Nie 
straszymy ich zatem procedurami i algoryt- 
mami, bajtami i pojemnością pamięci — 
przynajmniej na początku. Celowe wydaje 
się natomiast zwrócenie uwagi na to, że już 
dzisiaj praktycznie nie ma sfery życia, której 
nie może wspomagać komputer. „Jutro kom- 
puter będzie wszędzie tam, gdzie dzisiaj jest 
długopis”, wiedza informatyczna stanie się 
niezbędna podobnie jak umiejętność pisania. 

Zawsze frapowało mnie, jak jest faktycznie 
z XIII księgą „Pana Tadeusza”. Mickiewicz, 
Fredro, a może jeszcze ktoś inny jest jej au- 
torem? Problem ten, dla laika w tej dziedzinie, 
wydawał się nie do pokonania. Okazuje się 
jednak, że rozwiązywanie tego typu zagadek 
ma już wieloletnią tradycję i to nie bez sukce- 
sów. Wystarczy bowiem policzyć częstotli- 
wość używania przez autora określonej dłu- 
gości słów i otrzymujemy krzywą (oś X tworzą 
długości słów, Y — częstotliwość ich wystę- 
powania) identyfikującą jego „styl”. Można 
by dyskutować czy jest to „styl" czy nie — 
fakt pozostaje bezsporny, że krzywe te bez- 
błędnie rozróżniają dzieła napisane np.: Szeks- 
pira i Bacona. Niestety okazało się, że identy- 
fikator ten jest kiepski (podobny) dla dzieł 
Marlowa i twórcy Makbeta. Szukano zatem 
dalej innych identyfikatorów jak np.: często- 
tliwość występowania określonych słów, poje- 
dynczych liter. Wszystkie te metody, po set- 
kach godzin mozolnej pracy okazywały się 
prawie dobre. Wydawało się, że sprawa jest 
przegrana. Do chwili, gdy z pomocą przyszedł 
komputer. Czasochłonne okazało się tylko 
wprowadzanie tekstu do komputera — dalej 
rachowała już samodzielnie maszyna. Dzięki 
jej pomocy zauważono, że częstotliwość uży- 
wania nie pojedynczych liter, a ich par lub 
nawet triad jest niemal jednoznacznym iden- 
tyfikatorem „stylu” autora. „Ręczne” liczenie 
częstotliwości używania par i triad liter jest 
praktycznie niewykonalne. Komputer nato- 
miast jest bardzo szybki i z łatwością policzył 
wspomniane krzywe częstotliwości par liter 
bezbłędnie identyfikując, że autorem „Mro- 
wiska” jest ...? 


Maszyny cyfrowe są szybkie i często 
wykonują te zadania, które dotychczas były 
odkładane na półki — wymagały bowiem zbyt 
dużo czasu — trwającej dziesiątki lat „pracy 
ręcznej”. Komputery zmieniły ten stan rzeczy 
— przedsięwzięcia niewykonalne, z powodze- 
niem przekazano do realizacji. 

Prawdopodobnie jednym z najsłynniej- 
szych obrazów jest Mona Lisa (La Gioconda) 
Leonarda da Vinci. Obecnie portret ten pozo- 
stał ledwo cieniem swej oryginalnej postaci. 
Jest to efekt działania czasu i niestety zabie- 
gów wielu pokoleń konserwatorów dzieł sztu- 
ki. 

Nadal jednak zabiegi konserwatorskie trze- 
ba wykonywać — powietrze bowiem nie staje 
się wcale mniej aktywne chemicznie („żrące”), 
a czas płynie nieubłaganie. Pozostaje zatem 
wiara w uczciwość (artyzm?) konserwatorów, 
dobrą jakość farb i innych chemikaliów mają- 
cych bezpośredni kontakt z płótnem. 

Przystępując do odtwarzania obrazu — za- 
biegów konserwatorskich — powstaje pytanie 
podstawowe: jak wyglądał oryginał, chwilę po 
tym, gdy Leonardo da Vinci odłożył pędzel. 
Zważywszy na to, że fotografii wówczas nie 
było, pozostaje intuicja, wyobraźnia — jed- 
nym słowem zabawa w głuchy telefon. Usiłu- 
jąc zmienić ten stan rzeczy grupa amerykań- 
skich entuzjastów postanowiła wykorzystać do 
tego celu komputer. 

Okazało się to stosunkowo proste. Przyjęto, 
że portret La Giocondy składa się z 20 milio- 


nów punktów (każdy z nich, to fragment obra- 
zu o wielkości 0,02 mm). Czarny punkt (pi- 
ksel) oznaczono jedynką, biały natomiast ze- 
rem — stąd tylko krok do komputera, a ściślej 
do jego pamięci. Wiadomo bowiem, że kom- 
puter, co jak co, ale zera i jedynki doskonale 
zapamiętuje. Pozostało zatem jedynki i zera 
odzwierciedlające obraz przenieść do kompu- 
tera, by maszyna miała w swej pamięci nasz 
portret. 

Można wyrazić wątpliwość co do wierności 
zapamiętanego w ten sposób obrazu. Liczba 
pikseli nie budzi wątpliwości — jest wystar- 
czająca, by wzrok nasz nie dostrzegł „ziarni- 
stości obrazu", ale zagubiona została w ten 
sposób subtelność barw, cieni. Pomyślano i o 
tym, bowiem każdy piksel portretu naszej 
niewiasty zapisywany był nie jedynką lub ze- 
rem, ale liczbą od zera (czerń) do 255 (biel) 
dla każdego z trzech kolorów standardu RGB. 
Wielkości te dowodzą ogromnej precyzji „cy- 
frowej reprezentacji” obrazu w pamięci kom- 
putera. Odzwierciedla ona wszystkie dostrze- 
galne okiem subtelności dzieła. Spełniony 
został w ten sposób podstawowy warunek, 
wykorzystania potencjału obliczeniowego ma- 
szyn do przetwarzania obrazu. Aby zatem roz- 
jaśnić obraz, wystarczy by komputer dodał 
np. 10 do każdej z wartości opisujących treść 
wyróżnialnych pikseli obrazu. Podobnie, 
zmniejszenie jasności obrazu lub jego frag- 
mentów jest bardzo proste — wystarczy odej- 
mować odpowiednie wartości. 

W profesjonalnej praktyce wykorzystywane 
są bardziej wyrafinowane metody przekształ- 
cania obrazu, pozwoliły one uzyskać na ekra- 
nie monitora komputerowego obraz Mony 
Lisy w formie niemal identycznej z oglądaną 
pięć wieków temu. Ukazał się, twórcom tej 
metody, portret, na którym kolor nieba z brą- 






a) Fotografia strony tytułował zaszytu programów komputarowych nr 3 

b) Fotografia wydruku z komputara fragmentu strony 
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Ry>. nr 2 Oryginał (a) 

I „komputerowa kopia” (b) fragmentu strony ładnego z naszych zeszytów. 



zowego stał się niebieski, skóry dziewczyny z 
żółtej na alabastrowy, a z sukni bohaterki wy- 
dobyto odcień pięknej zieleni. 

Oczywiście proces wprowadzania informa- 
cji o treści każdego piksela obrazu do pamięci 
komputera odbywa się automatycznie. Służą 
temu tak zwane skanery. Urządzenia te wypo- 
sażone są w kamery TV. Kamera zamienia 
światło odbite np. od portretu lub od testowej 
karty egzaminacyjnej (zob. rys. nr 1) na sygnał 


elektryczny (trwa to 1/50 sck.), ten z kolei 
zostaje zmieniony na liczby, które po chwili 
„układane" są po kolei w pamięci komputera. 

Nie przypadkiem wspomniałem tutaj o kar- 
cie egzaminacyjnej, mając bowiem jej obraz w 
pamięci maszyny, nie człowiek, a komputer 
(jego na „kawę” nie zaprosisz) może spraw- 
dzić jej treść. Gdy treść stanowią zakreślone 
kratki (egzamin testowy), komputer naty- 
chmiast rozpozna czy jedynki (zakreślone pole 


a) Fotografia „Chopina" zaciemnio- 
nego 

b) Fotografia „Chopina" rozjaśnio- 
nego 


Rys. nr 3 Komputerowe odwzorowanie 
fragmentu banknotu, 



a) po dodaniu wartości 4 do każdego pik- 
sela oryginału, 



b) po odjfciu wartości 4 od każdego pik- 
sela oryginału. 

karty testowej) są w odpowiednim miejscu 
analizowanego dokumentu. 

Urządzenie takie zostało zbudowane i z 
powodzeniem wykorzystane cztery lata temu 
w WAP. Odczyt i analiza 87 odpowiedzi trwa 
około 2 sek. Należy w tym miejscu podkreślić, 
że współczesny sprzęt informatyczny raczej 
się „nie męczy", pozwoliło to m.in. wczytać 
10 000 kart bez przerwy. 


INFORMATYKA W SZKOLE 


Zasygnalizowane możliwości komputerów 
stały się realne dzięki bardzo szybkiemu roz- 
wojowi, najpierw sprzętu, krótko potem 
oprogramowania. 

Początek informatyki (umowny), to maszy- 
ny elektromechaniczne. Tworzą one tak zwa- 
ną zerową generację komputerów. Budo- 
wane były głównie z przekaźników elektro- 
magnetycznych. Płynący przez ich uzwojenie 
prąd powodował, iż „kowadełko” było przy- 
ciągane — jedynka. Brak prądu — kowadeł- 
ko odciągała sprężynka — zero. (Podobnie 
jak w dzwonku nad drzwiami — 0,1, 0,1,0.... 
dzwoni). Szybkość, gabaryty, pobór prądu 
komputerów tej klasy była gorsza niż zła. Nie- 
zadowolenie z tego stanu rzeczy spowodowało 
szybki postęp. Pojawiły się komputery pier- 
wszej generacji — lampowe. W większości 
przekaźniki zastąpiono układami lampowymi. 
Miniaturyzacji nie osiągnięto. Na przykład 
reprezentant tej generacji ENIAC ważył 30 
ton, ale szybkość działania komputeri zwię- 
kszono znacznie. W czasie jednej sekundy wy- 
konywał około 5000 operacji dodawania. Jed- 
nak moc pobierał ogromną (150 KW), co w 
połączeniu z ograniczoną żywotnością lamp 
stanowiło o tym, iż lepiej tych komputerów 
(gdy pracowały dobrze) nie wyłączać. Ponow- 
ne bowiem włączenie niosło z sobą ryzyko 
(niemal pewność), że parę lamp w tym mo- 
mencie dokona swego żywota. 

Rewolucyjną zmianę w technice cyfrowej 
spowodowały dopiero półprzewodniki — 
osławiony (dziś już czterdziestoletni) tranzy- 
stor, dioda i inne podobne elementy. Zbudo- 
wane z nich komputery — druga generacja 
pracują zapewne do dzisiaj — ODRA 1304. 
Urządzenia te wykonywały niemal 30 000 
prostych operacji arytmetycznych w czasie 
jednej sekundy. Wielkość ta w połączeniu ze 
stosunkowo małymi gabarytami oraz dużą 
niezawodnością pozwoliła by sprzęt tej gene- 
racji wysłano w kosmos. To zastosowanie ma- 
szyn cyfrowych przyczyniło się do dalszej 
miniaturyzacji sprzętu, tym samym zmniej- 
szenia poboru mocy, zwiększenia nieza- 
wodności przy jednoczesnym zwiększaniu 
szybkości działania. Są to (były) w zasadzie 
cztery podstawowe kryteria pozwalające w 
miarę jednoznacznie klasyfikować komputer 
do określonej generacji. 

Kolejny etap doskonalenia sprzętu infor- 
matycznego — trzecia generacja — kom- 
putery budowane z układów scalonych. Mo- 
torem tego postępu był (i jest) nadal kosmos. 
Sputniki wymagały bowiem coraz doskonal- 
szych komputerów o małym ciężarze, lepszej 
niezawodności, a źródłem prądu pozostały 
nadal mało wydajne baterie słoneczne. 

Spowodowało to, iż „upakowano” wiele 
elementów w jeden układ scalony, tak zwaną 
„kość”. W zależności od stopnia upakowania 
(„integracji”) mieści w sobie ona różną liczbę 
elementów (zazwyczaj są to: tranzystory, dio- 
dy, oporniki, kondensatory). Układ małej ska- 
li integracji (SSI) zawiera do 100 elementów, 
średniej (MSI) do 1000 elementów, dużej ska- 
li integracji (LSI) ma aż do 100 tysięcy ele- 
mentów, a nie jest to ostatnie słowo „upako- 
wywania”). 


Przykładem komputerów III generacji są 
nasze ODRY, 1305 i 1325. Te nasze „starusz- 
ki” stanowią jeszcze dzisiaj (niestety) podsta- 
wowy potencjał obliczeniowy zainstalowany w 
naszym kraju. Sądzę, że stwierdzenie to wy- 
woła u części czytelników oburzenie — prze- 
cież mikrokomputery. Owszem są i to w dużćj 
ilości (biorąc na wagę), ale to już odrębny 
problem... 

Faktem jest natomiast, że mikrokomputery 
reprezentują już IV generację. Wykorzysta- 
no w nich dwa charakterystyczne dla tej gene- 
racji typy układów, które poprawiają wszyst- 
kie parametry sprzętu informatycznego, są to: 
mikroprocesor i pamięć półprzewodni- 
kowa. 

Mikroprocesor, to kolejny krok integracji, 
tym razem nie elementów, a całych układów. 
Jest to już bardzo duża skala integracji 
(VLSI). Współczesne mikroprocesory (jeden 
układ) zbudowane są już z milionów elemen- 
tów, a szybkość wykonywanych przez nie 
mikrooperacji mierzona jest w milionach. Ta 
sama technologia pozwala nam budować pa- 
mięci komputerów z układów scalonych (je- 
szcze niedawno potrzebne były do tego rdze- 
nie ferrytowe), które mają pojemności sięgają- 
ce setek tysięcy znaków w jednej obudowie. 

Czwarta generacja stworzyła warunki do 
budowy mikrokomputerów przeznaczonych 
do domu, wysyłanych na Marsa, a także sta- 
wianych na biurkach. Budowane są w tym 
samym czasie superkomputery, nazywane 
czasami hiperkomputerami (jest ich na świę- 
cie mniej niż 300), które dzięki specjalnej me- 
todzie przetwarzania^ informacji (procesory 
macierzowe) wykonują np.: dodawanie w cza- 
sie, gdy światło przebiega w latarce drogę od 
. żarówki do chroniącego ją szkiełka (3 cm!). 

Wydawać by się mogło, że osiągnięto szczyt 
technologiczny doskonalenia komputerów 
(bariera szybkości światła), prowadzone są 
jednak nadal badania, słyszymy o kompute- 
rach optycznych, pracujących w warunkach 
nadprzewodnictwa, hybrydach łączących 
urządzenia z żywymi tkankami. 

Sądzę jednak, że najbardziej obiecującym 
kierunkiem doskonalenia komputerów -jest 
„zrównoleglanie” operacji wykonywanych 
przez maszynę — na wzór najdoskonalszego 
modelu, jakim jest mózg ludzki. 

Wracając do naszych generacji — kolejną 
jest piąta. W tym względzie zdania uczonych 
są podzielone. Mało kto kwestionuje fakt, że 
nie jest to kolejny etap doskonalenia sprzęto- 
wych parametrów komputera, a doskonalenie 
oprogramowania. Wydaje się, że piąta genera- 
cja komputerów to „życzliwość maszyn”. 
Zdaję sobie sprawę, że jest to dosyć ryzykow- 
ne określenie, kryje jednak ono w sobie ideę 
sztucznej inteligencji, ekspert-systemów i 
analizy języka naturalnego (mówionego i pi- 
sanego). Wszystko to zmierza do zaspokojenia 
naszych oczekiwań już w momencie kupienia 
komputera — bez względu na planowaną sfe- 
rę jego zastosowań. 

Komputer piątej generacji przede wszyst- 
kim z nieograniczoną cierpliwością, także 
przystępnie, nauczy nas korzystać z jego moż- 
liwości, są one ogromne. Dziennikarzowi po- 


magają w redagowaniu tekstów, (ortografia, 
synonimy, tłumaczenia itp.). Maszyna staje 
się wysokiej klasy partnerem w fachowej dy- 
skusji na wybrane, aktualne tematy. O aktua- 
lizację wiedzy naszego komputera dbają inni, 
nasza maszyna korzysta bowiem (via sieć tele- 
foniczna) z innych baz danych, rozsianych po 
całym świecie, ale to już odrębny temat na- 
szych podstaw informatyki. 

Włodzimierz GOGOLEK 


Tezy do pierwszych zajęć z podstaw In- 
formatyki 

Temat: WPROWADZENIE DO POD- 
STAW INFORMATYKI 

1. Omówienie przykładów Ilustrujących 
potrzeby (I możliwości) praktycz- 
nych zastosowań komputerów 

— znaczenie szybkości przetwarzania 
informacji i pojemności pamięci 
komputerów: 

— możliwości wykorzystywania kompu- 
terów w różnych dziedzinach życia. 

— cyfrowa reprezentacja obrazu — 
wstęp do systemu dwójkowego, po- 
jęcie „pojemność pamięci". 

2. Podstawowe etapy rozwoju Informa- 
tyki 

Generacje komputąrów. System bi- 
narny a elementy pamiętające (nie lo- 
giczne) np w zerowej generacji. Poję- 
cie „szybkość" komputera. Podstawo- 
we parametry charakteryzujące 
generacje (miniaturyzacja, szybkość, 
moc pobierana, niezawodność). 

Propozycja materiałów pomocniczych: 

1 Na początku był ENIAC. „IKS" nr 6/86 

2. Krótka historia mikroprocesorów. „IKS" 
nr 3/86 

3. Komputer i stylistyczne linie papilarne, 
„IKS”, nr 4/87. 

4. Komputer u kompozytora, „Komputer", nr 
2. 3. 4/87 

5. Timeworks Publisher. „Komputer". 5/88. 

6. Kosmos, medycyna i komputer, „IKS" nr 
12/87 

7. Mona Lisa i komputer, „IKS” nr 1 1 /87. 

Włodzimierz GOGOŁEK 


UWAGA. 

Ilustracje „obrazów kompu- 
terowych" mogliśmy wyko- 
nać dzięki uprzejmości Dy- 
rektora Zakładu Projektowo- 
-Wdrożenlowego ATM. N, 
który udostępnił nam, zbu- 
dowany tam skaner sygnału 
telewizyjnego. Serdecznie 
dziękujemy. 


Nuty z komputera (4) 

Krzysztof POŹNIAK, Jarosław ZIEMBICKI 


Zbliżamy się do końca pracy nad 
edytorem sekwencera. Nie oznacza 
to niestety zakończenia naszego 
programu. Pozostaje praktycznie 
nie omówiony do tej pory problem 
współpracy z instrumentami muzy- 
cznymi. O tym w dalszej części na- 
szego artykułu. 

Zamieszczony obecnie program wypełnia 
ostatnią „dziurę" w oprogramowaniu edyto- 
ra sekwencera. Jest to edytor utworu. Dzięki 
niemu z utworzonych do tej pory taktów bę- 
dziemy mogli budować całe kompozycje, 
korygować ich struktury itp. Od strony pro- 
gramowej utwór jest ciągiem taktów wyko- 
nywanych w ściśle określonej kolejności. 
Przewidzieliśmy stosowanie pętli (podob- 
nych do pętli FOR— NEXT w Basicu) pozwa- 
lających objąć „klamrą" powtarzające się 
fragmenty utworu. 

Przypominamy: zamieszczony wydruk na- 
leży dołączyć do opublikowanych poprzed- 
nio programów. Istniejące już linie o tych 
samych numerach należy zamienić na 
obecnie prezentdwane 

EDYTOR GŁÓWNY 
— nowe funkcje 


uwaga: wprowadzenie taktu na istniejącą 
już pozycję powoduje przesunięcie taktów 
umieszczonych poniżej o jedną pozycję w 
dól. Podanie pozycji o jedną większą od już 
istniejących pozwala na umieszczenie no- 
wego taktu na końcu utworu. 


OH (Jftkawskich 

Utwór aktualnie tworzony za pomocą 
edytora utworu jest trzymany w zmiennej 
tekstowej r. Strukturę utworu wygodniej jest 
przedstawić za pomocą „trójkąta pętli". Na 
rysunku nr 1 przedstawiliśmy strukturę 
utworu z rysunku nr 3 Proponujemy, aby 
czytelnicy sami znaleźli powiązania obu ry- 
sunków. 

Dzięki takiej formie zapisu bardzo wygod- 
nie kontroluje się warunki meprzecinania 
się pętli. Każda nowo wprowadzana pętla 




drogi 

zabronione 
- przecięcie 
PłtH 


Klawisz W — wywołanie utworu zapisa- 
nego w pamięci (zmiennej tekstowej u$) 
parametry: 1 ) numer utworu. 

Klawisz U — utworzenie utworu — wywo- 
łanie edytora utworu 

parametry: 1 ) nazwa utworu (zasady takie 
same. jak przy tworzeniu nazwy taktu) 
Klawisz K — kasowanie utworu zapisa- 
nego w pamięci (zmiennei tekstowej u$) 
parametry: 1 ) numer utworu 
Klawisz L — lista utworów 
parametry: brak 

EDYTOR UTWORU 

Klawisz d — dołączenie taktu do utworu 
parametry. 1 ) numer pozycji na którą bę- 
dzie wprowadzony takt, 2) numer taktu, 


wortolć 0 - brak pytli 


pozycja 

początku 

pętli 



pozycjo końca pętli 


Rys. 1 


Klawisz I — wywołanie listy taktów 
parametry: brak 

Klawisz w — wywołanie taktu z pamięci 
— wejście do edytora taktu 
parametry: 1 ) numer taktu 
Klawisz k — kasowanie taktu w utworze 
parametry: 1 ) numer pozycji w utworze, na 
której znajduje się dany takt 
uwaga: następuje kasowanie wszystkich 
pętli, które bezpośrednio zaczynały się lub 
kończyły na danej pozycji. 

Klawisz p — utworzenie pętli powtórzeń 
parametry: 1) numer pozycji, od której 
rozpocznie się pętla powtórzenia. 

2) numer pozycji, przed którą pętla się za- 
kończy. 

3) ilość powtórzeń taktów w pętli (maksym, 
do 99). 

uwaga: pętle nie mogą się wzajemnie 
przecinać, mogą się natomiast zagłębiać w 
sobie. Prawidłowo poprowadzone pętle pre- 
zentuje rysunek nr 3. 

Klawisz k — kasowanie pętli powtórzeń 
parametry: 1 ) numer pozycji początku pęt- 
li 

2) numer pozycji końca pętli 
Klawisz S — wyświetlanie aktualnej struk- 
tury utworu 
parametry: brak 

Klawisz z — zapis utworu do pamięci 
(zmiennej tekstowej u$) 
parametry: brak 

uwaga — stara wersja danego utworu zos- 
taje skasowana. 

Klawisz • — powrót do edytora głównego 
Na rysunku nr 3 przedstawiliśmy przykła- 
dowy utwór utworzony za pomocą edytora 
utworu, 


podlega w programie tego typu kontroli. Ry- 
sunek nr 2 przedstawia sytuację wprowa- 
dzania pętli od pozycji nr 6 do pozycji nr 4 i 
warunki jej umieszczenia. Zakreskowane 
pola muszą posiadać wartość 0. 

tytui u moru: MMHU 

1 l i 

2 a mji.i— i 
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EDYTOR UTWORU 

Pora zastanowić się. w jaki sposób połą- 
czymy komputer z elektronicznym instru- 
mentem muzycznym i co za jego pomocą 
będziemy sterować Zanim weźmiemy się 
do solidnej pracy konstruktorskiej warto po- 
znać trochę historię i budowę syntezatorów. 

Krótka historia 

Historia elektronicznych urządzeń muzy- 
cznych zaczęła się na przełomie XIX i XX 
wieku. Kiedy to zbudowano pierwsze organy 
elektromechaniczne. W pewnym sensie by- 
ły one powtórzeniem koncepcji organów pi- 
szczałkowych, ponieważ każdy klawisz miał . 
przydzielony własny generator drgań elek- ^ 
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▲ .trycznych o odpowiedniej częstotliwości. 

▼ Koncepcja ta z niewielkimi zmianami, domi- 
nowała w konstrukcjach instrumentów przez 
kilkadziesiąt lat. Konsekwencją stosowania 
dużej liczby generatorów o dosyć prostej 
konstrukcji było uzyskiwanie mało zróżni- 
cowanych brzmień. 

Pierwsze próby rozbudowy syntezatorów 
umożliwiające kształtowanie dźwięku z dużą 
dowolnością zaczęły się już w latach pięć- 
dziesiątych, ale dopiero konstrukcje dr. 
Roberta Mooga bazujące na elementach 
półprzewodnikowych, spowodowały rewo- 
lucję w elektronice muzycznej. Syntezator 
Mooga składał się z modułów, z których 
każdy uczestniczył w kształtowaniu innego 
parametru dźwięku. Ponieważ koncepcja ta 
jest stosowana do dzisiaj, omówimy ją nieco 
szerzej 

Zasadniczym blokiem jest generator 
drgań akustycznych. Określa on wysokość 
dźwięku. Sygnał z generatora jest podda- 
wany filtrowaniu (precyzyjnej regulacji 
barwy) pewne częstotliwości składowe da- 
nego dźwięku mogą zostać stłumione lub 
wzmocnione, końcowym blokiem jest 
wzmacniacz, który wpływa na głośność 
dźwięku Wymienione moduły mogą być 
sterowane zewnętrznie (np. za pomocą na- 
pięcia) przez tzw moduły sterujące Typo- 
wym modułem sterującym jest klawiatura: 
na skutek naciśnięcia klawisza wysyła ona 
sygnały sterujące powodując generację 
odpowiedniego dźwięku. Innym źródłem 
sterującym jest generator drgań wolno- 
zmiennych (LFO), który umożliwia wibrację 
dźwięku (uzyskujemy efekty typu: vibrato, 
tremolo). Generator obwiedni kontroluje 
amplitudę dźwięku w czasie: ustala szyb- 
kość narastania, trwania i wybrzmiewania 
dźwięku. Uniwersalnym modułem jest gene- 
rator szumu. Może on być źródłem dźwięku, 
może także tym dźwiękiem sterować wpro- 
wadzając przypadkową modulację amplitu- 
dy lub częstotliwości. Jest bardzo przydatny 
przy imitacji naturalnych źródeł dźwięku. 

Omówiony układ stanowi tor syntezy po- 
jedynczego dźwięku, stąd pierwsze (naj- 
prostsze) syntezatory były jednogłosowe 
Okazało się, że podłączenie do każdego 
klawisza po jednym torze syntezy jest bar- 
dzo trudne technicznie i nieekonomiczne. 
Przecież tak naprawdę podczas gry uru- 
chamiamy nie więcej jak kilka (w wyjątko- 
wych wypadkach kilkanaście) klawiszy 


naraz. Rozsądnym wyjściem jest zastosowa- 
nie sterownika, który na podstawie stanu 
klawiatury uruchamiałby odpowiednią ilość 
torów syntezy. Na skonstruowanie takiego 
sterownika trzeba było poczekać do lat sie- 
demdziesiątych. Wtedy pojawił się pierwszy 
wielogłosowy syntezator — Polymoog — 
zawierający wspomniany sterownik klawiatu- 
ry. Sterownikiem był zazwyczaj mikroproce- 
sor, Przeglądał on stan klawiatury i za po- 
mocą przetworników cyfrowo /analogowych 
sterował analogowymi modułami dźwięko- 
wymi. Wkrótce pojawiły się syntezatory cał- 
kowicie cyfrowe o bardzo różnorodnych 
koncepcjach syntezy dźwięku. 

Odrębną grupę elektronicznych instru- 
mentów muzycznych stanowią urządzenia 
perkusyjne. Początkowo były realizowane 
techniką analogową, obecnie prymat wiodą 
urządzenia wyłącznie cyfrowe. Najczęściej 
generują one dźwięk w ich pamięci. 

Ubogą namiastką wymienionych urzą- 
dzeń mogą być generatory dźwięku zainsta- 
lowane w naszych komputerach. 

Znamy już urządzenia, którymi będziemy 
sterować. Warto zastanowić się nad kolej- 
nym problemem: 

Jak będziemy 
sterować instrumentami 
elektronicznymi 

(koncepcja kanałów) 

Koncepcja kanałów jest bardzo wygodną 
i wypróbowaną metodą współpracy z urzą- 
dzeniami zewnętrznymi. Zastanówmy się w 
tym momencie nad prostym przykładem: 
posiadamy w pamięci zbiór tekstowy (np, 
program). Możemy wyświetlić go na ekra- 
nie, wydrukować na drukarce, zapisać na 
dysku, nagrać na magnetofonie, wręcz 
przesłać do innego komputera Ponieważ 
każdemu z tych urządzeń przypisany jest 
określony numer kanału, stąd o tym, gdzie 
treść zbioru zostanie przekazana decyduje 
podany przez użytkownika numer kanału. 
Na tej podstawie zostaje uruchomiona od- 
powiednia procedura transmitująca. Uni- 
wersalność tej metody jest oczywista: 
po pierwsze — możemy dowolnie przypi- 
sywać urządzenia do kanałów w zależności 
od ich ilości 

po drugie — możemy współpracować z 
dowolnymi urządzeniami; wystarczy dopi- 


sać procedurę transmisyjną i przypisać ją 
odpowiedniemu kanałowi. 

Dla sekwencera urządzeniami zewnętrz- 
nymi będą instrumenty elektroniczne. Każ- 
dy z nich wymaga odpowiedniego standar- 
du transmisji i formatu przesyłanych danych. 
Ten problem rozwiążą procedury transmitu- 
jące Użytkownik będzie je dobierał w zale- 
żności od typów wykorzystywanych instru- 
mentów. Dobór odpowiedniego kanału na- 
stąpi automatycznie, ponieważ każda ścież- 
ka w takcie jest przyporządkowana konkret- 
nemu instrumentowi. 

Sposoby 

przesyłania danych 

W programie wykorzystamy trzy najbar- 
dziej rozpowszechnione sposoby transmisji: 

a) transmisja wewnętrzna — używana 
przy przesyłaniu danych w obrębie jednego 
obszaru pamięci. Wykorzystamy ją sterując 
generatorami w komputerze. 

b) transmisja równoległa — pozwala na 
jednoczesne wysłanie całego bajtu. Często 
jest wykorzystywana do sterowania instru- 
mentami perkusji elektronicznych. 

c) transmisja szeregowa — bit po bicie 
Standard wykorzystywany przez system 
MIDI. 

System MIDI 

MIDI to skrót angielskiej nazwy: Musical 
Instrument Digital Interface (cyfrowy inter- 
fejs instrumentów muzycznych). Oznacza 
ogólnie przyjęty w świecie standard przesy- 
łania informacji między urządzeniami muzy- 
cznymi. Pozwala na łączenie instrumentów 
w większe zestawy, umożliwia współpracę z 
komputerem. Łączenie instrumentów w jed- 
nolitą całość zwiększa możliwości brzmie- 
niowe, pozwala na grę wielogłosową, W 
epoce syntezatorów analogowych ekspe- 
rymenty tego typu były bardzo kłopotliwe w 
realizacji i zmuszały do prowadzenia li- 
cznych przewodów sterujących między ins- 
trumentami 

Standard MIDI zaproponowała firma Se- 
quential Circuits i jest on dzisiaj jedynym te- 
go typu standardem liczącym się na świe- 
cie. 

Pojedyncze złącze MIDI składa się z na- 
dajnika, linii łączącej (dwa przewody) i od- 
biornika. Stanem biernym linii jest brak 
przepływu prądu — oznacza to logiczną je- 
dynkę. Logiczne zero jest prezentowane 
przez płynący w linii prąd (standardowo 
5 mA). 

Najmniejszą jednostką informacji jest bajt. 
Transmisja bajtu polega na wysłaniu kolejno 
dziesięciu bitów: bitu startu równego 0, oś- 
miu bitów przesyłanego bajtu (od najmłod- 
szego do najstarszego) oraz bitu stopu rów- 
nego 1 . 

Przestawienie każdego bitu trwa 32 mi- 
krosekundy bitów. Bit stopu wprowadza linię 
MIDI w stan bajtu. Taki sposób przesyłania 
danych nosi nazwę transmisji szeregowej 
asynchronicznej. 

Mimo że wiele komputerów posiada złą- 
cza transmisji szeregowej (np. do współpra- 
cy z drukarkami), najczęściej ich parametry 
czasowe i elektryczne nie odpowiadają 
standardowi MIDI. W najbliższym czasie 
opublikujemy schemat prostego nadajnika 
MIDI, który będzie można podłączyć do 


sygnały 


sterujące 


wyjście 

sygnału 


generator 

szumu 


E 


moduły 

sterujące 


klawiatura 


Podstawowy blokowy schemat syntezatora 
analogowego 


Rys. 4 
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komputera niezależnie ód pozostałych jego 
interfejsów. 

Podstawowe 
Konfiguracje 
urządzeń 
w systemie MIDI 


Do łączenia urządzeń standard przewidu- 
je trzy gniazda: 

bit 

startu bajt (8 bitdw) 


Nazwa komunikatu 

1 BAJT 

p.:lloteęso (9inbeiv 

2 BAJT 

H 0 qb 0 'C noyn'.') 

/ 3 BAJT 

bajt stanu 

dane 

dane 

klawisz wciśnięty 
klawisz puszczony 
Przełączenie brzmienia 

1001 nnnn 
lOOOnnnn 
1 lOOnnnn 

Okkkkkkk 

Okkkkkkk 

Obbbbbb 

Oddddddd 

00000000 


bit 

stopu 












(C 

logiczne 1 


0 

1 

2 

3 

i 

5 

6 

7 

777 _ 










i; 


logiczne 0 


3 2 jus 

Forma transmisji MIDI dla pojedynczego bajtu 
Rys. 5 


1 ) MIDI IN 


2) MIDI OUT 


3) MIDI THRU 


- wejście do przyjmowa- 
nia danych przesyła- 
nych z innych urządzeń, 

- wyjście z urządzenia 
wysyłające dane z tego 
urządzenia. 

- („przelotka"), wyjście 
odwzorowujące dane 
przychodzące do gniaz- 
da MIDI IN pozwala na 
szeregowe łączenie ins- 
trumentów w większe 
zestawy 



Rys. 6 

Przykłady połączeń: 

1 ) najczęściej spotykany zestaw składa się 
z dwóch urządzeń nadajnika (urządzenia 
A) i odbiornika (urządzenie B). W tym 
wypadku wyjście MIDI OUT urządzenia 
A łączymy z wejściem MIDI IN urządze- 
nia B. 


2) jedno urządzenie sterujące (np. synteza^ 
tor, sekwencer, komputer) steruje kilko- 
ma urządzeniami odbiorczymi (mogą być 
inne syntezatory, ekspandery, itp). 


rza to możliwość wybiórczego sterowania 
instrumentami. Istnieją także komunikaty 
nie wymagające numeru kanału dotyczą 
wszystkich urządzeń w systemie. 

wyjaśnienia: 

1) nnnn - jest numerem kanału MIDI, dla 
którego komunikat jest przeznaczony: 
(zakres: 1 — 16). Np.: rmnri - 0000 — ka- 
nał 1 , nnnn =1111— kanał 1 6, 

2) kkkkkkk — jest binarnym zapisem nu- 
meru klawisza (zakres: 0—127). Klawi- 
sze są ponumerowane w kolejności od 
tonów niskich do wysokich. Np. typowa 
klawiatura pięciooktawowa (od C do c 4 ) 
obejmuje klawisze o numerach od 36 do 
96, 



Urządzenia podporządkowane łączymy 
szeregowo za pomocą gniazd MIDI IN 
- MIDI THRU. 

Komunikaty 
transmisji MIDI 

informacje podstawowe 


Wszystkie informacje w systemie MlDfsą 
przesyłane w formie komunikatów Najwa- 
żniejsze dla naszego programu komunikaty 
przedstawia tabela 1 . 

Każde z urządzeń w systemie MIDI po- 
siada przypisany mu numer kanału. Stwa- 


urządzenia sterowane 
Rys. 7 

3) ddddddd — dotyczy siły uderzenia w 
klawisz (zakres: 0—127). Jest to para- 
metr wykorzystywany przez syntezatory z 
tzw. klawiaturą dynamiczną. Pozostałe 
syntezatory ignorują ten parametr usta- 
wiając maksymalną dynamikę (ddddddd 
= 1111111) lub jej połowę (ddddddd 
= 1000000), 


4) bbbbbbb — numer brzmienia (zakres: 
0—127). Jeżeli instrument posiada 
mniejszą ilość brzmień, to bierze pod 
uwagę odpowiednią ilość młodszych bi- 
tów wartości bbbbbbb 


9 DEF FN *(y,X)sC0DE rj ( (y- 1 ) 
♦ y/ą+K^: bEF Ffł u (y) =S56fC0t>e u$ 
(y +1) +CODE . u $ ( u ) 

55 LET u $ =CHr % ® 

1001 LET łtsCODE m $ ( 1 ) : LET iu=C 
ODE U$(l) 

1010 GO SUB 9198: PRINT AT 19, O; 
••EDYTOR C-LOUNY" 

1013 IF X$="U" AND i U > O THEN GO 
SUB 1165: GO TO 1005 
1015 IF x*r"U" AND i t >0 THEN GO 
SUB 3000: GO TO 1005 
1025 IF X|t"K" AND i U > 0 THEN GO 
SUB 1135: GO TO 1010 
1032 IF X$="L" AND iu>0 THEN GO 
•SUB 1190: GO TO 1010 
1122 LET 2i = "podaJ nr utworu:*': 
LET Adsiu: LET q=0: GO TO 9190 
1131 LET zapłS^O: IF q=l THEN GO 

SUB 8640: RETURN 

1435 GO SUB 1122: IF q=® THEN RE 

TURM 

1136 LET v«9: GO TO 382® 

1165 GO SUB 1122: IF q=0 THEN RE 

TURN 

1166 LET nu =9 : LET l =FN U(2*q): 
LET itusCODE U* U): LET b$=U$(lł 


l. + i 1 + i 


1 TO l + 10 + 1 t U ) : LET r * ~u $ ( 

tu TO l+10 + itU + itU*(ttU+I) 

O TO 3010 

1190 CLS : PRINT "nr nazwa 
i t • : PRINT 

1191 FOR t=l TO 1 U : LET n=FN U (2 

*t) : PRINT t ; T RB 3; INUERSE l;ut 

(n+1 TO n+10); INUERSE ®:TAB 17, 
CODĘ U $ (n ) 

1193 NEXT t: RETURN 

1913 PRINT TAB 5; "U - wywołanie 

utworu " 

1915 PRINT TAB 5; "U - utworzenie 
utworu ” 

1919 PRINT TAB 5; "K - kasowanie 
u tworu " 

1933 PRINT TAB 5; "L - Usta UtWO 
roW" 

3005 LET ' SUB3B00 : IF k< 

siu OR " THEN RETURN 

3006 LET b*=q$: LET nU=iUłl 

3007 LET i tU =0 : LET r$-"" 

3010 GO SUB 3900 

3020 GO SUB 9198: PRINT AT 19,0, 
"EDYTOR UTUORU" 

3025 LET X $ * INKEY $ : IF THE 

N GO TO 3025 
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3030 IF xf*"d" 0 ND 1 tu <6 THEN GO 
3U0 3100: 00 TO 3020^ _ M M 
3035 IF xi = "f THEN 00 SUB 1180: 
GO TO 3020 

3040 1F x $ = •'*" THEN 00 SUB 3900: 
GO TO 3020 

3045 IF xl»"P" fiND ł 1U>0 THEN GO 


SUB 3200 


3050 IF xi»"k" fiND itu>0 THEN GO 


SUB 3300 


GO TO 3020 


00 TO 3020 


3055 IF xl«"K" fiND i tU>0 THEN GO 

SUB 3400: GO TO 3050 

3060 IF x $ = " Z ' ' fiND itu>0 THEN GO 
TO 3500 

3065 IF x$="e" THEN GO TO 3600 
3070 IF X $ = " w ' ‘ THEN GO SUB 1115: 
GO SUB 3900: GO TO 3020 
3090 GO TO 3055 

3100 LET z $ = "do i . takiu na poz. 
nr": LET fodaitUłi: LET q=0: GO S 

»JB 9190: IF qrO THEN RETURN 

3115 LET k=q: GO SUB 1120: IF q a 

0 THEN RETURN 

3120 LET Z $ * " FOR 1=1 TO H: LE 

T z$=Z$>CHR$ 0 : NEXT l: LET ja U 
( k - 1 ) / 2 ♦ 1 : LET r| = r«i TO j- 1)42 1 

łr*(j TO f 

3121 FOR l.eK+1 TO itU4l: LET jat 

*<l.-l)/2łk: LET f < = r $ ( TO j-l)+C 

HRf 0Łf$(j TO ): NEXT l: LET b$« 
b*i TO 9 ♦ k ) +CHR f q4b$(10+k TO ) : 

LET ituaitu+l: GO TO 3900 
3200 LET z$s"po«t. od pozycji nr 
: LET ffi d * i t U : LET q=0: GO SUB 9 
190: IF q=0 THEN RETURN 

3210 LET Krq. LET Z$a"poWt. do P 
ozycji nr" LET LET 9=0: O 

O SUB 9190: IF q*0 THEN RETURN 

3220 FOR U=q TO K-l: FOR X=1 TO 
5-1: IF PTI J < y , X > < > 0 THEN GO TO 
3250 

3225 NEXT X : NEXT y 
3230 FOR y*k + 1 TO i tu : FOR X=9 + l 
TO k; IF FM e (' J,X) < >0 THEN GO T 
O 3250 

3235 NEXT X: NEXT y ■ , 

3240 LET i =q LET Z$*ll« POWtOr 
2 b n ": LET q =0 : LET wd=99: GO 5UB 
*3 190' IF q 50 THEN RETURN 
324 5 LET r $ ( ( k ~1) *k /24 l ) *CHR$ q: 
Gu TO 3900 

3250 RRINT PT 19,0; FLfiSH .1 ; ' BL 
fiD STRUKTURALNY ~ l j-P, lcr : 
PfiUSE 1: PAU5E 0: RETURN 
3300 LET Z$s' , U5. pOWt. Od POZ. 
nr": LET mdsilU: LET q=0: GO SUB 
9190: IF q s0 THEN RETURN 

3310 LET K=q LET Z 1 = " k a S . POWt. 
do poz. nr": LET rodak; LET q=0: 
GO SUB 9190 IF q =0 THEN RETURN 

3320 LET f$( (k-1) *k/2+q) «CHR1 0: 
GO TO 3900 

340O LET z$ = "mowani« pozycji n 
r"; LET md =i tu : LET q«0 GO SUB 
9190: IF q=0 THEN RETURN 

3410 LET i s iq-l) *q /2 : LET rfortC 
TO U*rl(Uqłl TO i : FOR 1*1 TO 
i t u _q LET K =q> I. LET k = (K-l)*k 
/ a - 1. : lei r« = r$( TO k)+r$(fc+2 TO 
) : NEXT l 

3420 LET b$=b$i TO 9+q)+b$(ll*q 
TO ): LET itUr»tU-l: GO TO 3900 

3500 LET q = 1 LET Z 1 = "P 0 W f O t Z Z 
apisem’? tal:": GO SUB 9190: IF q 

=0 THEN GO SUB 9198 GO TO 3010 
3502 LET Vsn U: IF V < = i U THEN GO 

SUB 3820 
3505 GO TO 3810 

3600 LET z$* "powrot. bez zapisu l 
-tak". LET wdał: LET q a 1 : GO SUB 
9190: IF q a 1 THEN RETURN 

3610 GO 1 0 302 ~ 

3800 rem mm 

3802 LET w.d = 10 : le i z $ = "nazwa Ut 
W o r U : : LET q|s"": GO SUB 8980: 

IF q $ a " " THEN RETURN 


3805 FOR K * 1 TO iU: LET l =FN U (2 
*k)+l; IF U$(l TO lł9)*q$ THEN G 
O TO 8979 
3807 NEXT 

3810 REM B , 

3812 LET b$=ĆHR$ itU+bf 

3814 IF V > i U THEN FOR 1=2 TO 2*i 

U 3T£P 2: LET U$(t TO UDsFN Z* 

(FN U (U +2): NEXT t: LET U*=Ul< 

TO 2 * i u + 1 ) +FN Z $ (LEN U*43)+Uf(2* 
iU+2 TO )+b$łrf: GO TO 3817 

3815 LET naFN U(2*V): LET k *LEN 

bf+LEN r % : FOR t =2 TO 2*i'J STEP 
2: LET U 1 ( l TO l+l)=FN Z$<FN U(l 

) +k * ( I. > =2*V ) +2) : NEXT t 

3816 LET U t*ul( TO 2*V-1>+FN Zl ( 
n +2) +u 1 ( 2#v TO n-1) ♦bl + r 1+ul (n T 
O ) 

3817 LET l u »IU 41: LET uf(l>«CHRl 

sos® nEM J 8ll|HraaHara»t®n) 

38S3 tET u .EN U ( 2 *v ) : LEI Uf.EN 
U C2+24V ) * (V <1U I ł (LEN Uł + 1) * (V = iO 
) -EN u(2*V>: FOR l =2 TO 2 * ł U STE 
P 2: LET U*(l TO t + 1 ) .EN Z*(PN O 
(U -ur*<l>*<2+2*v) ) -21 : 

3824 LET u*=Uł( TO 2 łv - 1) tu * (2 12 
*V TO u-l)+U*(UłUr TO ) 

3828 LET IU«1U-1: LET u»Il».CHPt 
lu: RETU£‘' 

3830 REM 

3832 FOR V*V TO i U : LET C«FN u (2 
»V) : LET » i .0006 U * < C ) : LET P«1 

3833 FOR pep TO » 1 : !=£ nl 
u»(p+10 + cl: 1E 8d>t T tJEN UET u * ( 
p+10 + c)»CHR$ ttd-l) : 00 TO 3835 

3834 IF łdet THEN 00 TO 3840 

3835 LET P»P+1: 00 TO 3833 

3837 HEXT P : LŻT V«V + 1: 00 TO 38 
32 

Uli ?^Ho 8U8 3820 : O 

3841 F0R^k*V4l TO 1 U : LET 
LET uf(l TO l+l)"PN Z i (FM U (2*k 
lr«l -\L± le 



3845 

lłP TO ) : 
aCHRl a i : 

3900 REM 

3910 CL 5 :‘ RRINT "tytuł UtWOfU: 

" ; INUERSE 1 . b$ i 1 Tu 10.' 

3920 FOR y -1. TO itU: LET t=3łFM 
Z(2*00DF. b$ ■ 10 ♦ fc > ł PRINT TfiB 6. 
"I". THB O.k.TRB 2, INUERSE 1 ; M 1 ( 
• Tu U9i . IH"ERSE O , TfiB 6, I": 

NE X I k 

3930 FOR k e0 TO i U» - L : POR X-1 f 
O itu-k LET y a x f k : LET q»PH • (y 

, X) : IF q<>0 THEN GO SUB 3940 

3935 MEXT X: NEXT k: RETURN 

3940 PRINT PT 3*x-2,7;"< " 

FOR 1=1 TO k: PRINT " N 

EXT l 

3942 FOR t a 3 ♦ x - 1 TO 3*y-fi: PRINT 

OT l , 14ł3*k ; ” I " : MEXT l 

3943 PRINT PT t , 1343*k + (q < 10) j q 

3945 PRINT PT 3*y,?;" " ; : 

FOR 1 = 1 TO k: PRINT M NEX 

T l 

3950 RETURN „ B 

8828 LET it=it-l: LET fft 1 ( 1 ) *CHR 1 
ł t : LET lu $ = W $ ( TO t. - 1 ) 4W $ ( 1 1 1 T 

O ): IF 7. 3 p i S = 0 THEN GO SUB 3830 

8829 RETURN _ . _ „ 

8905 GO SUB 9198 PRINT PT 19,0; 
'•EDYTOR POLP PKTYUNOSCI" 

9025 GO SUB 9198; PRINT PT 19,0; 
"EDYTOR TAKTU" : GO SUB 150 
9226 LET zapis =1: LET q*nt: IF q 

(sil THEN LET Uq GO SUB 882S 
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OWfl "b"e|X ^1 


ZX SPECTRUM 


Nowe litery 


ĆLEaPwB 15: rŃWi 

OHT O: CLS : BOPDEP 6: LET Z 
NOUB LITERY " : DIM <J*(96): 00 SU 
B 330 

130 POKE 33609,50 „ 

140 PRINT RT 6.0i PRPER Bi 9* 

150 FOR d«l TO 13: PRINT PRPER 
5; IHK 6;ftT 7.Słdła:ll(d): NEXT 

d 160 LET »•- ■•RBCOEFOHIJfc l»noP*r* 

'itI^OoIuB 330: BEEP .3.36 BEE 
P .3.14 BEEP .3,3 
300 IF PEEK 560010 134 TMEN 00 
SUB 340 

310 PRINT RT 3<®i: r,9 R .. n * 3a »I9n 
143. 00 SUB 330: PRINT " "i BRIO 
MT liCHRI n; BRIOHT 0j: 00 SUB 3 
30: PRINT CMR« n. BRIOHT 0; " "J: 

314 T LET lnv«0 LET POZ ■ (33 -LEN 
»|)/8: PRINT RT IB . 0 i INUEPSE 0: 

y 31B FOR n«l TO B ; LET 1 0V »RBS i 
IW: IMUERSE łnv: 00 SUB 830: PRU 
SE 50. BEEP .05,36: PRINT RT 19. 
POZi BRIOHT liii 00 SUB 330: PR 
USE 50: BEEP .05,33: PRINT RT 19 
, PO Z i BRIOHT l;«t: LET łnv«łOV-l 
: NEXT n 

816 INPUT (■«*. 38 Zn«M 

) LINĘ H: IF LEN «6>33 THEN 

BEEP .8 . -10: GO TO 316 
317 CO TO 314 
330 POKE 83606.1 
•- REM 


WWFM l 


_: RETURN 
330 POKE 3 


|607.3 
^7,60 

340 RESTÓRE”: TO 56 

363 STEP 8: LET iu*0: FOR P*0 TO 
7: RERD bt: POKE m+n.bt: LET 1U 
•SUłbt. NEXT M; RERD fik : IF SIO 

*U THEN PRINT b«.ad ¥ ¥i«f*ZU "i 
( (n-55360) /6I 41000: . ^ 

350 PRINT RT 7,14, BRIOHT 1 i CHR 

J ( (0-55360) /6) : NEXT n: RETURN 
033 DRTR 0.0, 0,0. 0,0, 0.0.0 
1033 DRTR 0,34,34.34.34,0.34.0,1 
30 

1034 DRTR 0,103,34,0,0,0,0,0.136 
1035 DRTR 34,06,103,116,110.103. 

103? ‘ DRTR 0.84, 136 . 68 . 136 . 36 , 136 
, 84 , 540 

1037 DRTR 0,98,100.8,16,36,70,0. 

1038 DRTR 0,0.60,108.134,96.66.6 
.446 

1039 DRTR 0.34.6.0,0,0,0,0.33 
1040 DRTR 0,13.84,34,34.84,18.0. 
130 

1041 DRTR 0,46.34,34,34,34,46,0, 
198 

‘ 04L _ 

<o, 376 

1043 DRTR 0.0,34,34.136.34,34,0. 
383 

1044 DRTR 0.0,0,0,0,34,84.8,56 
1045 DRTR 0,0.0.0.63.0.0.0,63 
1046 DRTR 0,0,0.0,0,34,34.0.48 
1047 DRTR 0.0,6,13.34,48.96.0.18 
6 

1048 DRTR 0.60,103.110.113,103.6 


0,0,553 
1049 DR' 


ITR 0,36.44.13,13,18.30.0, 

1050 DRTR 0,80,103,6,60.96,186,0 
,450 

1051 DRTR 0.60,70,13,6,70,60,0.3 

76 

1053 DRTR 0.13.38,44.76,136,18.0 
,396 

1053 DRTR 0.136.96,134,6.70,60.0 
,458 

1054 DRTR 0.60,96,134,103,103.60 
,0,544 

1055 DRTR 0,136,6,13,34,46,96,0, 
313 
1051 

i©Ś7°DRTR 0.60, 103 . 103 .63,6,60,0 
.393 


106© DRTR 0,0.13.34,43,34 ,13.0.1 


ii: 


6? DRTR O 


1064 DRTR 0 
95 

1065 DRTR O 

8.0. 516 

1066 DRTR 0 

134.0. 675 

1067 DRTR O 
0.516 

1068 DRTR 0 

130.0. 660 

1069 DRTR O 
,0,664 

1070 DRTR 0 
0,634 

1071 DRTR O 
.0,530 

107 fi DRTR 0 

103 .0. 636 

1073 DRTR O 
0,34* 

1074 DRTR 0 
83 

1075 DRTR 0 

99.0. 539 

1076 DRTR 0 
,606 

1677 DRTR 0 

03.0. 600 
1076 DRTR O 

6.0. 600 
1079 DRTR O 


6.0. 644 
1081 DRTR 
0,6,534 
1083 DRTR 

102.0. 663 

1083 DRTR 
384 

1084 DRTR 
,346 

1085 DRTR 

60.0. 570 

1086 DRTR ■ 

4 .0. 493 

1087 DRTR i 

36.0. 570 
1086 DRTR i 
0,373 

1089 DRTR i 

0.439 ^ 

1090 DRfR 1 
0,360 

1091 DRTR i 
,3,667 
1093 DRTR 
16F 


166 

1093 


l694 DRTR 1 
346 

1095 DRTR 1 

1096 DRTR 1 

6.0. 656 

1097 DRTR 1 
94 

1096 DRTR i 

4.0. 644 

1099 DRTR ( 
13 

1100 DRTR 1 
340 

1101 DRTR ( 
,443 

1103 DRTR I 
376 

1103 DRTR l 
,394 

1 104 DRTR ( 

3.0. 623 

1105 DRTR . 


.103.13.34.0.34,0. 
.0.60,6.63. 103 .63.3.8 
,34.60. 103 . 103 . 136 . 10 
. 134 , 103, 134 , 103 . 103 . 

: 60. 103. 96. 96, 103.60. 

. 130. 106. 103 . 103 . 108. 

. 136,96 . 134 .96,96. 186 
.136.96.134,96.96,96. 

. 60 . 103 .96.110. 103 . 60 
,103.103.136.103.102. 

, 136,84 ,34.34,34, 136 . 
.6.6.6. 103 . 103.60 .0.3 
. 103 . 106 . 130 . 106 . 102 . 
.96.96.96.96,96.136.0 
.66.103. 136 . 103 . 103 . 1 
.70 , 103 .118. 110. 103.9 
.60.102.103.103.103.6 
.134.103.103.134.96.9 
.60.103.103.103,103.6 
.184.103.103.134.108. 
.60.96,60.6.103.60.0. 

. 136.34 .34 .34.34.34.0 
.103.103.103.103. 103. 

. 103 , 103 . 103 . 103 .60,3 
. 103 . 103 . 103 . 103 . 136 . 

. 103 .60.84.34.60. 103 . 

. 195 . 103.60.34 .34.34. 
.136.13.34.34.40.136, 
.136,96.134.96.96.136 
.34.86.36.34.56.36.0. 
.84.60. 103 . 103 . 136 . 10 
,34.60.90.34,34.84,0. 

.0.0.0.0,0,0,355.355 

.96.108.130.113.96.13 

.0.63.6.62. 103.63,0.3 
.96.96, 134 . 103 . 103 , 13 
.0.60,96.96.98.60.0,4 
,6.6.63.102.103.63.0. 
.0.60.103 . 134.96.60.0 
.38.46,56.46.48.46.0. 
.0.63.103. 103.63.6,60 
.96,96 . 134 , 103,103.10 
.34,0.56.34.34.60.0,1 
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1106 DRTR 0.13,0.13,13,13,108.56 

i 107 DRTR 0,96,108,130.180.108.1 
03,0,654 

1106 DRTR 0,56.24.34,24,34.26.0. 
180 

1109 DRTR 0,0,108.86.66.86,88.0, 


.124.103.103.103.10 


452 

1110 DRTR 1 
3.0,533 

1111 DRTR 0.0.60.103.102.103.60. 
0,4 36 

1113 DRTR 0.0.134.103.103.134,96 
, 96 . 644 

1113 DRTR 0.0.61,103.103.63.6,7, 
•14 1 

1114 DRTR 0 . C , 60 . 103 , 96 , 96 .96,0. 


1115 DRTR 
46 

1116 DRTR 
164 

1 117 DRTR 
.0 .470 
1116 DRTR O 
54 

1112 DRTR O 

1130 DRTR O. 

. 345 

1131 DRTR O. 

C.434 

1133 DRTR 0, 

, 336 

1133 DRTR 6,4.60,99.96.96.60,0.4 
33 

1134 DRTR 34,0.136.13.34.46.136. 
0,360 

1135 DRTR 6,4.63.96.60,6.134,0,3 

1136 DRTR 34.136.12.34.34,46,136 


0.0.60,96.60.6. 134 .0.3 
O . 34 . 60 . 24 . 34 . 24 , 56 . O . 
0.0.102.102 .102.102.62 
0.99,99.54.64.26.0.3 
0.70,66,66,86,44,0.3 
0.102.60.24,60.102.0 
.102,102.102.62.6.6 
.126,13,34.46,126.0 


i i»T^DR' 


DRTR 12,6.124,103.102.102.1 

02,0.552 

4000 FOR r, .55616 TO 56383 STEP 6 
POKE 23692.355 PRINT CHR* ( (n 
-55360) /©•." LET *u. 0 BEEP 

.05.36. FOP PaO TO 7 PRINT PEEK 

(n**) . , , : LET sw»su*peek <n*i» 

): NEXT ft ; PRINT BRIOHT l,*u PR 

INT ; NEXT 


9996 rek tBrtMjBMMjOBMB 

f 999 CLS : SRuE "NOUELITERY" LIN. 

1 BEER .2,3: SfiUE "no w t i t 4 r v 
"CODĘ 55616.766 PRINT INK 2. BR 
ICHT 1, FuftSM l.RT 11,12." UERIF 
V "• PRINT RT 0.0. BEER .5.-10. 

UERIF Y ": UERIF', CODĘ REST 

ORE ; CO TO 160 




Lilavati (8) 

. 

Wilk i owce 

Danuta KWASIŻUR, Mieczysław SKONIECZNY 

'ii 


W dzisiejszym odcinku mikrokomputerowych anegdot matema- 
tycznych chcemy zaproponować grę pod ogólnie znanym tytułem 
„Wilk I owce". Jest to gra o nierównych szansach, przeznaczona 
dla 2 graczy: jeżeli grający owcami nie popełni rażącej pomyłki, 
powinien wygrać. 

Gra jest realizowana na standardowej szachownicy o 64 po- 
lach. Jeden z graczy ma 4 owce (ponumerowane 1 —4), drugi na- 
tomiast jednego wilka. Zarówno wilk, jak 1 owce mogą się przesu- 
wać na skos o jedno pole tylko tej samej barwy. Owce mogą się 
przesuwać jedynie do przodu, gdy tymczasem wilk ma również 
prawo do ruchów do tyłu. 

Na początku gry należy odpowiedzieć na 2 pytania wyświetlane 
w prawym dolnym rogu ekranu: 

Na jakich polach gramy: 

B - białe 
C — czarne 
Podaj kod literowy: 
oraz 

Kto pierwszy robi ruch: 

O — owce 
W - wilk 
Podaj kod literowy: 

wciskając odpowiednie klucze literowe. 

Następnie rozpoczyna się gra wg parametrów wprowadzonych 
uprzednio. Początkową sytuację po 2 ruchach prezentuje poniższy 
rysunek: 
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B 
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Przebiegu gry nie komentujemy, gdyż jest on oczywisty I nie po- 
winien sprawiać Czytelnikom problemów. 

Trzecie dolne okienko po prawej stronie ekranu Jest przezna- 
czone na komunikaty o sytuacjach błędnych, które są następują- 
ce: 

TO POLE JEST ZAJĘTE 

TAK NIE WOLNO 8I{ PRZESUWAĆ 

Gra kończy się wygraną wilka, gdy przedostanie się poza szereg 
owiec. Owce wygrywają wtedy, gdy osaczą wilka tak 2e nie może 
on dokonać żadnego ruchu. 

Wersja źródłowa programu jest przedstawiona na załączniku 1 


10 SYMBOL AFTER 207 

20 SYMBOL 247, 0,0, 0,2, 7, 15,31,31 

30 STNB01 240,0,0,120,253,235,235,253,253 

40 SYMBOL 24», 0,0, 0,102, 224, 240, 240, 240 

30 SYMBOL 250,31,63,43,03,63,03,63,31 

00 SYMBOL 251,103, 120,0,0,0,0, 120, 103 

70 SYMBOL 232,240,232,252,232,252,232,232,240 

00 SYMBOL 253,31,31,13,7,3 

00 SYMBOL 254,235,233,233,253,233,120 

100 STRB0L 233,240,240,240,224,102 

110 'Ekran inforoacyjny , 

120 M0DE lilNK 0,261]* 1,0|INK 2,611* 3, lBiBORDER OlPAPER ltCLSiPEN 0 
130 MIMDOM £1,1, 40, 1,3) PAPER El.OlPEM £!,liCL0£t 
140 NIN00N £2, 1,40, 23,23l PAPER £2,0rPER £2,1.CLS£2 
150 L0CATE fl,10,2lPRl»T£l,'PR06RA« - NIUC 1 0NCE* 

160 L0CATE £2, S, 2l PRIMTE2, ■NACISKI J D0M0LNY KLAMI8Z* 

170 CLEAR «PUTiAI*I*E»4 
1B0 IF AA*" GOTO 170 

100 'Dikliricji kol oroś I okien o trybie I 
200 M0DE 1 r INK 0,20rl* l,0ll« 2,6tlW 3,10 
210 PAPER ErOORDER 6iCU 

220 H INDOM £1 , 28, 40, 1 , 3. PEM £1 , 1 iPAPER £l,0tCL8£l 

230 N1ND0N £2,20,40,3,10lPEN £2,lrPAPER £2,0tCL8£2 

240 MIMDOM £3,2B,40,I2,I6|PEN £3,||PAPER £3,0tCLS£3 

230 'Ryiosifllo llltkosolty 

260 PAPER OlPEN liFOR 1>0 TO 6 STEP 2 

270 POR 11*411*1 TO 611*3 

280 FOR 12-1 TO 4 

200 PRIMT CHRII1431|CHRII143I|CHR0II43I|' *, * 

300 NEIT 1 2l PRIMT i NETT II 
310 FOR 11-681*4 TO 611*6 
320 FOR 12-1 TO 4 

330 PRIMT ■ , |CHRKI431|CHRII1431|CHRIfl43)j 

340 NEIT 12.PRINTI NEIT lliNEIT I 

350 PAPER 2i PRIMT* 1 2 3 4 3 6 7 8* 

340 FOR 1*1 TO 8 1L0CATE 23,143-liPRlNT USIK*1'|||REIT 
370 'Nytor koloru poi no których graoy 
380 L0CATE 28,10iPRINT*Na jakidlMOCATE 28,20lPRINT*polach graoyt*| 
30 *2l'W>RT-S-blala-iLDCATE 30,22.PRINT*C-ciama 
400 L0CATE 28,23lPRINT*Po0aj fcod*lL0CATE 28,24lINPUT*lltorosyi*,kolorP 
410 tolorO-tlPPEROtkolorOl 
420 IF kolor 00'B* GOTO 4SÓ 
430 FOR 1*1 TO 4iowceti , lk-281 toaacafl ,2)-l |NEXT 
440 NlItl!l>2lll*IIITiRI(0l4ll-Iisllkt2l*Bl60T0 520 
430 IF kolorPO‘0* GOTO 480 
440 FOR 1*1 TO 4iosctll,l)s2ll-lioscoll,2ls|rNEIT 
470 tał 1 k 1 1 k -28 < 1 *IMT TRUD 8 4 )łiMlIk£2ł-8l 60T0 320 
480 L0CATE 28,23lPRINT*BLA0 III* 

490 FOR t*l TO 2000INEIT 

300 LOCATE 2B,24rPRINT SPC 1 121 iLOCATE 2S,23lPRINT SPCI9I 
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310 60TO 400 

320 'Mybor kto zaczyni 

330 FOR 1-19 TO 24iLKATE 28 t iiPftINT SPC(13)|lNEXT 

540 LKATE 28,19iPRINT'Kto p i truazy' 1 LOCATE 28,20iPRINT*robi ruchi* 

330 LOCATE 30,21iPRINT*0-omci*iLKATE 30, 22łPftINT a M-Hilk a 

SAO LOCATE 28, 23iP8IMT a Pod*j kod* : LOCATE 28,24iINPUT*litacoMyi\ruch* 

370 ruchl«UPPERI(ruch*) 

380 IF ruchl-*0* OR ruchl«*N* 60T0 630 
390 LOCATE 28, 23i PRIHT a BLAD !!!* 

600 FOR t>l TO 2000i NETT 

. 610 LOCATE 28,24iPRlNT SPC ( 12) (LOCATE 28,25iPRINT SPCI9) 

620 6OT0 360 

630 FOR 1*19 TO 24 t LOCATE 2B,iiPRINT SPC( 13) t »MEXT 

640 'PKzatkOMtuatiMiinii Milki ni tzichOMnicy 

630 IF kolor t**!' THEN PAPER oiPEN 1 ELSE PAPER liPEN O 

660 K-3tMilkil)-2iL0CATE «,22iPRINT CHRK247);CHRI<248)|CHRI(249) 

670 LOCATE *,23lPRINT CHR»I230)|CHRI(231)|CHR*<232) 

6B0 LOCATE x,24iPRINT CHR« ( 233 ) | CHRt ( 234 ) | CHRf ( 233 ) 


W trakcie realizacji gry wielokrotnie są wywoływane podpro- 
gramy. których rola jest następująca: 

1 . Podprogram podawania współrzędnych ruchu 


690 'Początkowi uitiHiinii owite ni szichonnicy 
700 FOR i*l TO 4 

710 K -3to«c* ( i , 1 ) -2l LOCATE x,iiPRINT CHRK247)|CHRI(248> jCHR«(249) 
720 LKATE i,2iPRINT CHRI ( 230 ) j CHRIł 251 )|CHRI 1232) 

730 LOCATE i,3lPRINT CMR* ( 253 > \ CHRI ( 234 )| CHRI (235) 

740 IF kolor •■*C* THEN PAPER OiPEN 1 ELSE PAPER liPEN 0 
730 LOCATE **l,2iPRINT USIN 6 •fil 
760 IF kolorfC* THEN PAPER liPEN 0 ELSE PAPER OiPEN 1 
770 NEXT 

780 'Rtallzacja kolejnego ruchu 

790 60SUB 860 

800 bl id a 0t 609UB 1130 

810 IF blad*l 80T0 790 

820 60SUB 1420 

830 60SUD 1670 * 

840 IF ruchfO* THEN ruchf-*N* ELSE ruch*«*0* 

830 6OT0 780 


2. Podprogram badania dopuszczalności ruchu 


860 'Podprograa podawania uapolrztdnych ruchu 

870 IF ruchl>'N' 60T0 1040 

880 CL3 £li LOCATE £1,2,2 

890 PRINTC1 , "RUCH ONCY 1 

900 CLS £2i LOCATE £2,2,2iPRINT£2,*PODAJ NUHER* 

910 LKATE £2,2,3z INPUT £2,'0NCYi , ,nroMcy 

920 IF nro»cy>0 AND nroucy<5 60T0 930 

930 aMz 60SUB 1090 

940 LKATE £2,2,3iPRINT£2,SPC(12)iGOTO 910 
930 LOCATE £l,U,2iPRINT £l,nroNcy 
960 LOCATE £2, 2, 3i INPUT £2,*K0LUHNYi\nrkol 
970 IF nrkol >0 AND nrkol<9 60T0 1000 
980 i>8i60SUB 1090 

990 LKATE £2,2,3iPRINT£2,SPC(121i60T0 960 
1000 LOCATE £2, 2, 4i INPUT £2,*NIERSZAi\nruiar 
1010 IF nruiir>0 AND nruitr<9 60T0 1080 
1020- i a 8i60SUI 1090 

1030 LKATE £2,2,4iPRINT£2,8PC(12)i60T0 1000 
1040 CLS £1 (LOCATE £1,2,2 
1030 PRINT£1,'RUCH MILKA* 

1060 CLS £2i LOCATE £2, 2, 2i PRINT£2, ‘PODAJ NUHER’ 
1070 60T0 960 
1080 RETURN 

1090 'Koaunikit o biedzie 

1100 LOCATE £3,3,2iPRINT£3,*TEN NUHER* 


1110 LKATE £3,3,3iPRINT£3, a HUSI bVC* ’ * r 
1120 LKATE £3,3,4:PRINT£3,*0D 1 DO ’jUSIN 6 *£*fi 
1130 FOR t"! TO 20001 NE1T 
1140 CLS £3i RETURN 


3. Podprogram realizacji ruchu 


1130 'Podprograa badani i dopuszczalności ruchu 
1160 Badania zijetosci pola 
1170 IF nrkol «wilk(l) AND nrwi ar -wilk ( 2 ) GOTO 1220 
1180 FOR i-1 TO 4 

!!!? GOTO 1220 

1200 NEIT 16 OTO 1270 

1210 'Koaunikit o biedzie 

1220 LOCATE £3, 4, 2i PRINTC3, a T0 POLE* 

1230 LOCATE £3,3,3łPRINT£3, "JEST* 

1240 LKATE £3,4, 4iPRINT£3, "ZAJETE* 

1230 FOR t>l TO 2000i NEIT 

1260 CLS £3iblad>ti60T0 1410 

1270 IF ruchl»'N* 60T0 1330 

1280 'Badania ruchu owcy 

1290 IF owct<nrowcy,2)MOnrwier GOTO 1360 

!^ T J"'* (nrow 7»n-l<>nrkol ANO owca (nroucy,!) MOn^ol GOTO 1360 
1310 60T0 1410 
1320 'Badania ruchu ulika 

1330 IF NilkdlOnrkol-l AND wilklUOnrkold GOTO 1360 

1340 IF ul Ik (2) Onrui ar- 1 AND Mtlk<2)OnrNitrM 60T0 1360 

1330 GOTO 1410 

1360 'Koaunikit o bladzia 

1370 LKATE £3,4,2lPRINT£3,’TAK NIE* 

1380 LKATE £3, 3, 3i PRINT£3, a MOLNO 8 IE* 

1390 LKATE £3, 3, 4i PRINTE3, a PRZEBUMAC* 

1400 FOR t«l TO 2000i NEKTi bl ad* 1 
1410 CLS £3l RETURN 


4. Podprogram badania i realizacji końcą gry 


1420 

1430 

1440 

1430 

1460 

1470 

1480 

1490 

1300 

1310 

1320 

1330 

1340 

1330 

1360 

1370 

1380 

1390 

1600 

1610 

1620 

1630 

1640 

1630 

1660 


'Podprograa realizacji ruchu 

IF ruchl«*0* GOTO 1340 

'Prztauniacia Milka 

i a 3 lwilk(l)- 2 iy« 3 lwilk( 2)-2 

FOR i«0 TO 2l LKATE x,y*i 

PRINT SPCI3) iNEIT 

x*3lnrkol -2i y»3lnruiar-2 

FOR i»0 TO 2i LKATE *,y*i 

FOR j-0 TO 2IPRINT CHRI(247ł3li+J)jiNEXT 

NEIT 

wi 1 k ( 1 ) »nr kol 1 wi 1 k 12 ) «nrui ar 
GOTO 1660 
'Prztauniacia owcy 

i»3lOMca(nroMcy,I)-2iy»3IOMca<nroMcy,2)-2 

FOR i«0 TO 2l LKATE i,y*i 

PRINT SPC(3)iNEIT 

x» 3 tnrkol- 2 iy 3 lnrwiar -2 

FOR i-0 TO 2.-L0CATE x,y+i 

FOM-O TO 2IPRINT CHRf(247*3»i+J)jiNEXT 

IF kolorfC* THEN PAPER OiPEN 1 ELSE PAPER liPEN 
LKATE aM.yfljPRINT USIN 6 *£*|nroMcy 
IF kolorl-*C* THEN PAPER liPEN 0 ELSE PAPER OiPEN 
OMca (nroucy, 1 ) »nr kol 1 omci ( nroucy, 21 «nrui ar 
RETURN 


0 

r 


1670 'Podprograa badania i realizacji końca gry 

1680 'Nygrana Milka 

1690 IF Milk(2)«l THEN a«HG0T0 1960 

1700 FOR i«l TO 4 

1710 IF ailk(2)>0Mce(i,2) 6 OT 0 1750 
1720 NEIT 
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1730 a*li6OT0 1960’ : j;; ' 

1740 'Nygrana owiec 

1750 1F Mllk(l)<>l GOTO 1810 

1760 FOR b*nilkł2)-l TO «1M2)*1 STEP 2 

1770 FOR i*t TO 4 

1780 IF o«ce(i,l)«2 AND o«c»<i,2)«b GOTO 1800 

1790 NETT ii60T0 2080 

1800 NETT b:60T0 1950 

1810 IF »ilk(l)<>8 GOTO 1870 

1820 FOR b*nilk(2)-l TO nilk(2)M STEP 2 

1830 FOR i«l TO 4 

1840 IF ONCtU.lW AND owceii,2ł«b 60T0 1860 

1850 NETT ii60T0 2080 

1860 NETT b:60T0 1950 

1870 FOR b*»ilk(2)-l TO «ilk(2)M STEP 2 

1880 FOR c»«ilk(l)-l TO wilHlM STEP 2 

1890 FOR i«l TO 4 

1900 IF owc»<i f 1 ) =c AND wc«(i,2)*b GOTO 1930 
1910 NETT 
1920 GOTO 2080 


Różne sposoby 
kopiowania ekranu 
mikrokomputera 
na drukarce 

Wśród użytkowników mikrokomputerów znanych jest sporo 
programów kopiujących zawartość ekranu na drukarkę. Stanowią 
one wygodną formę uzyskiwania ciekawych rysunków. Technika 
współpracy z takim programem jest najczęściej następująca: 

1 Przygotowanie rysunku jako zbioru na dysku. Realizuje się to 
instrukcją: SAVE „rysunek", b, AcOOO. &4000. wydrukowany 
zbiór zajmuje 1 7 kB pamięci i ma dopełnienie. BIN. 

2. Wprowadzenie do pamięci mikrokomputera programu 
kopiującego, zainicjowanie jego pracy i wprowadzenie nie- 
zbędnych parametrów (jest to najczęściej nazwa zapisana 
na -dysku zbioru). 

3. Wydruk rysunku. 

Chcemy zaproponować Czytelnikom wygodny w użyciu pro- 
gram. który wykonuje kopie ekranu dwoma różnymi sposobami: 

1 Normalnym — ścisłe odwzorowanie ekranu na papierze 
Wydruk powstaje przez kolejne kopiowanie wierszy od góry 
do dołu. 

2 Powiększonym — odwzorowanie ekranu na papierze w ska- 
li 1 :2. Wydruk powstaje przez kolejge kopiowanie kolumn od 
strony prawej do lewej. 

Poniższe 2 rysunki pokazują kopie tego samego rysunku wyko- 
nane ww. sposobami. 



1930 NETT:NETT 
1940 'Czy koniec gry 
1950 **2 

1960 CIS EliLOCATE £l,2,2:PRINTfl, 'KONIEC GRY' 

1970 CIS £2sl0CATE £2,4,2 

1980 IF ««1 TREN PRINT£2,'NY6RAL* ELSE PRINT£2,'NY6RALY' 

1990 L0CATE £2,5,4 

2000 IF 4*1 TREN HUNTC, a MLK a ELSE PRINT£2,'0NCE' 

2010 L0CATE ES.A^iPRINTES/CZY GREM0CATE £3, 3, 3sPRINT£3, -POWTÓRZYĆ- 
2020 L0CATE £3,5,4:INPUT £3, a tT/N)i a ,dał*jl 
2030 dalej«*UPPER<(dil»jl) 

2040 IF dilijMT GOTO 190 
2050 PAPER 2:CLS 

2060 L0CATE 16,12:PRINT'K0NIEC GRY* 

2070 GOTO 2070 
2080 RETURN 


Danuta KWASIŻUR 
Mieczysław SKONIECZNY 



rys. 2 


Jak widać, pierwszy sposób nieznacznie spłaszcza obiekt, na- 
tomiast drugi go wydłuża. Mamy jednak nadzieję, że te drobne 
mankamenty nie będą przeszkadzały użytkownikom tego progra- 
mu. Program pracuje w trybie konwersacyjnym, a więc na kolejne 
pytania należy udzielać następujących odpowiedzi: 

1. PODAJ WARIANT KOPIOWANIA: 

Wprowadzamy liczbę 1 lub 2 w zależności od sposobu, któ- 
rym chcemy kopiować. 

2. PODAJ NAZWĘ ZBIORU: 

Wprowadzamy nazwę zeskładowanego na dysku zbioru bez 
dopełnienia (program sam uzupełnia ją o dopełnienie, BIN) 

3. PODAJ TRYB, W KTÓRYM UTWORZONO OBRAZ: 
Wprowadzamy liczbę całkowitą z przedziału (0,2). 

Na bieżąco jest przeprowadzana kontrola formalna wprowadza- 
nych danych. W wypadku próby podania błędnego parametru 
program sygnalizuje to jednym z komunikatów 

BŁĘDNY WARIANT 

ZA DŁUGA NAZWA ZBIORU 

BŁĘDNY TRYB 

i żąda ponownego wprowadzenia tej danej. Następnie po włożeniu 
w stację odpowiedniej dyskietki i przygotowaniu drukarki wykonu- 
je się kopia ekranu. Po wykonaniu rysunku program wraca do sta- 
nu początkowego, co pozwala wykonać jednorazowo więcej niż 1 
rysunek. 

Segrąent sterujący programu opracowano w języku BASIC 
mikrokomputera AMSTRAD CPC 6128 i ma on następującą po- 
stać: 
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10 REH 'Prograi kopiowania ekranu ai krokoaputera AMSTRAD CPC 6128' 

20 HODE 1 i INK 0, Ol INK 1,14:INK 2,26: INK 3,&iPAPER OlCLSiBORDER 0 
30 WINDOM £1,7,33, l,3iPAPER £l,l:CL8 £HPEN £1,0 
40 REH ’ Nozliwołci prograau’ 

30 LOCATE £1,2, 2l PRINT £1,'PR06RAH KOPIOWANIA EKRANU* 

60 PEN 1: LOCATE 2,7:PR!NT *1. KOPIOWANIE NORMALNE* sPRINTiPRINT * 2. KO 
PIONANIE POWIĘKSZONE (Skala 2:1)' 

70 WINDOM £2,l,40,13,20iPAPER £2,2 
80 REN * Wprowadzania wariantu kopiowania* 

90 OLS £2t PEN £2,0lL0CATE £2,2,2iINPUT £2, 'PODAJ WARIANT KOPIOWANIA: 1 

WK 

100 IF WK<1 OR NK>2 THEN PEN 3 1 LOCATE £2,2,4:RRINT £2, 'BIEDNY WARIANT* 

iFOR T»1 TO 1000:NEITi60T0 90 

110 REN ' Wprowadzania nazey zbioru' 

120 LOCATE £2,2,4: INPUT £2, ‘PODAJ NAZWĘ ZBIORU: ',A! 

130 IF LEN ( At) >8 THEN PEN 3:L0CATE £2,2,6:PRINT £2,'ZA DLUBA NAZWA ZB1 
ORU* i FOR T«1 TO 1000: NEXTi LOCATE £2,2,6:PRINT £2,6PC(30):PEN O 
(LOCATE £2, 21 , 4: PR1NT £2, SPC ( 19) | : BOTO 120 
140 A$«A»ł\BIN* 

130 REH 'Wprowadzani# trybu obrazu' 

160 LOCATE £2,2,6i INPUT £2, 'PODAJ TRYB W KTORYN UTWORZONO OBRAZ: ', TRY 

B 

170 IF TRYB<0 OR TRYB>2 THEN PEN 3lL0CATE £2,2,BlPRINT £2, 'BŁĘDNY TRYB 
': FOR T»1 TO IOOO 1 NEIT 1 LOCATE £2,2,8:PRINT £2,8PClll>iPEN OiLO 
CATE £2,39,6:PR1NT £2,' '(GOTO 160 

180 PAPER 0: PEN liLOCATE l,22iPRINT 'Jeżeli aatz n stacji dyeku dyekie 
tke z obrazee i drukarka Jeet gotowa do pracy to nadani j dow 
olny klawisz. ' 

190 CLEAR INPUT 
200 bl*INKEYI 

210 IF bl«" THEN 60T0 200 

220 REN 'wydruk obrazu na drukarce’ 

230 HODE tryb 
240 LOAD a! 

230 HEHORY 39999 
260 ON wk 60SU8 470,280 
270 60T0 10 


Poszczególne sposoby kopiowania są realizowane przez nastę- 
pujące podprogramy, opracowane w języku wewnętrznym: 

1 Kopiowanie powiększone 

Podprogram ten zajmuje obszar 415 bajtów o adresach od 
40000 do 40414. Jego postać poszerzona o instrukcje łado- 
wania go do pamięci i wywoływania jest następująca: 


280 REH 'Podprograi kopiowania powiększonego’ 

290 RESTORE 370 
300 FOR aMOOOO TO 40414 
310 REAO x 
320 POKE 1,1 
■330 NEIT a. 

340 CALL 40000 
350 1C0PY 
360 RETURN 

370 DATA 1,96,136,33,92,156,203,209,188,201,164,74,46,87,46,47,49,37,5 

6.33.47.87.73.73.67.79.80.217.0. 0.0.0.88.156.237.113.223.137.2 
05, 190, 157,62,27,203, 184, 137,62,49,203, 184, 137 

380 DATA 62,253,50,113,157,33,79,192,62,81,50,223,137,62,8,50,226,137, 
203, 203, 136, 38, 223, 157, 61 , 40, 33, 30, 225, 157, 205, 1 89, 1^6, 38, 226, 

157, 71, 61, 30, 226, 157, 62, 8, 144, 71,205, 43, 157, 58, 226 

390 DATA 157, 61, 183, 32, 219, 6, 1,205, 19?, 136, 24, 207, 62, 240, 50, 113, 157, 20 

5,189,156,203,138,157,201,38,226,137,71,205,43,137,203,93,137, 

205.131.137.201.229.253.33.174.138.6.23.17.0. 8.229.14 

400 DATA 8,126,205,239,136,233,119,0,233,35,25,13,32,243,225,17,80,0,2 

3.16.230.225.43.201.197.6.0. 79.230.85.183.40.2.6.15.121.230.17 
0,183,40,2,62,240,176,193,201,213,197,79,6 

410 DATA 4,175,203,1,203,23,203,1,203,1,203,1,203,1,203,23,87,203,15,2 

03, 19,203, 15,203,19, 122, 1*9, 95, 16,227, 193,209,201,201,4,5,200, 

221,33,230, 157,253,33, 174, 158, 175, 14,200,197,253 

420 DATA 203, 0,14, 221, 203, 0,22, 221,- 182, 0,16, 243, 221, 35, 253, 35, 193, 13, 3 

2,234,71,38,227,137,79,120,30,227,137,177,30,228,137,201,58,22 

8, 157, 183,200,6,200,221,33^230, 157,203, 167 f 137,221,126 


430 DATA 0, 203, 47,230,255,203, 184, 157,205, 184, 137,203?m, 157,205, 184, 

157,221,35,16,233,201,62,13,205,184,157,62,10,205,184,137,221, 

229,253,229,229,203,9,187,218,213,157,223,253,223,221,225,201,62 

440 DATA 27,205,184,157,62,64,24,17,62,27,203,184,157,62,76,205,184,13 

7,62,32,205,184,157,62,3,205,43,189,48,231,201,33,209,157,205, 

17,188,135,79,6,0,9,94,35,86,237,83,218,156,201 

450 DATA 239,156,3,137,42,137,203,138,137,237,123,223,137,201 


2. Kopiowanie normalne 

Podprogram ten zajmuje obszar 177 bajtów o adresach od 
40960 do 41 136. Jego postać poszerzona o instrukcje łado- 
wania go do pamięci i wywoływania jest następująca 

460 REN 'Podprograi kopiowania noraalnego’ 

470 RESTORE 330 

480 FOR 1-IA000 TO 6A0B0 

490 READ vi POKE l,v 

300 NEIT i 

310 CALL IA000 / 

320 RETURN 

530 DATA 205,166,160,62,27,203,137,160 
340 DATA 62,49,203,137,160,203,186,187 
330 DATA 203,231,187,30,180,160,17,0 
360 DATA 0,33,143,1,34,178,160,62 
370 DATA 7,50,177,160,62,10,203,137 
380 DATA 160.62,13,203,157,160,62,27 
390 DATA 203,157,160,62,76,205,157,160 
600 DATA 62,127,205,157,160,62,2,203 
610 DATA 157,160,14,0,58,177,160,71 
620 DATA 229,197,213,203,240,187.209,193 
630 DATA 33,180,160,190,223,35,32,1 
640 DATA 167,203,17,43,43,16,233,38 
630 DATA 177,160,234,7,40,7,173,203 
660 DATA 17,203,17,203,17,121,203,137 
670 DATA 160,19,229,33,127,2,33,237 
680 DATA 82,225,56,3,42,178,160,24 
690 DATA 193,35,124,181,40,32,43,17 
700 DATA 0,0,34,178,160,62,7,189 
710 DATA 32,146,124,180,32,142,62,4 
720 DATA 50,177,160,24,133,205,46,189 
730 DATA 56,251,203,43,189,201,62,27 
740 DATA 203,137,160,62,64,203,137,160,201 
Jeżeli Czytelnicy dysponują innymi programami kopiowania 
ekranu, to w prosty sposób mogą je dołączyć do tego prograjnu 
wykonując następujące modyfikacje: 

1 . Poszerzyć liczbę wariantów i zmienić sposób kontroli (ins- 
trukcje 60—100), 

2 Zmienić instrukcję 260 dopisując do skoku z przełącznikiem 
etykiety dołączonych podprogramów 
3. Dopisać nowy podprogram kopiujący wraz z jego wywoła- 
niem. 
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Dodatkowe zestawy 
znaków graficznych 
do tworzenia ramek i tablic 

Danuta KWASIŻUR Mieczysław SKONIECZNY 


M ikroko a»pi!ft£¥' 'KM S^PRAU ‘tńljt w ręce 
użytkownika 256 symboli graficznych. Sym- 
bole o nr. 0—127, to standardowe znaki kodu 
ASCII, których nie powinno się zmieniać. 
Pozostałe symbole (nr. 128—255), to dodfit- 
kowe możliwości graficzne, które można zde- 
finiować instrukcjami SYMBOL- AFTER I 
SYMBOL. 

Sporo programów użytkowych wyprowa- 
dza wyniki obliczeń w postaci tabelarycznej. 
Ważne, /. punktu widzenia użytkownika, jest 
otrzymanie tabel w czytelnej i estetycznej po- 
staci. Spełnienie tego postulatu niejednokrot- 
nie warunkuje pozytywną ocenę programu. 

Chcemy zaproponować zestaw 3 typów linii 
do modelowania ramek i tabelek. Dwa pier- 
wsze zestawy, to symbole zdefiniowane (nu- 
mery 234 — 244 oraz 245 — 255), natomiast 
trzeci zestaw wykorzystuje istniejące symbole 
(numery: 147, 149, 150, 151, 153—159). 

Program pokazowy przedstawia wszystkie 3 
dostępne zestawy symboli graficznych w na- 
stępującej kolejności: 

1 . Linie pojedyncze 

2. Linie podwójne 

3. Linie pogrubione 

Po przedstawieniu tytułu tabeli oraz jej za- 
wartości akcja programu została wstrzymana 
do momentu interwencji użytkownika — na- 
ciśnięcia dowolnego klawisza. 

Wszystkie zestawy linii są prezentowane w 
trybie 1 . Można rozszerzyć działanie progra- 
mu tak, aby również wyświetlał te same treści 
w trybie 0 i 2. Tę modyfikację pozostawiamy 
zainteresowanym Czytelnikom. 

Program pokazowy opracowano w języku 
BASIC, a jego postać jest następująca: 

i* S.fll 

M *ft 1:05* TDil* B.JiilK I.HMECT «:Ka 1 
O S8SU! IW 
90 DIII rtf:li»l'T) 

DO rofcliMtU^WJCMK/E* 

70 ro4j|iMt2l*‘roN8JK‘ 

W rofllli*lfJI»'FCW.’DIOIC' 

99 'lyMiatlaoia 1 :a:tiaw :ukm • palli 
V FIN •»:■! TB 1 



l*t I9UIE 11, ';r.*lta*<«:l 

M ' laatMtMt ilcji Itogru. 

IDO CUM TNPUTiif^lMUkt 

170 1F aM-SDOTO IDO 

180 '(/Mictlcma tatalkl ■ 

IW Cl! » 

2C0 ‘bglMtk titłikl 

210 lUCSIF l.liWlul 0mi:ltri,lll| 

2» F9» 1*1 10 H:«WT 0NSI:(sri.4łi|iKZT 
723 IKSIE l«.!:»»IW 0Mlltan,7» 

R* UOlt 3.1:WHE CM<t(ar:.7)lilK«lt M.l 

TM ttlUT DMtiiari.tliiMifl QMUUri,2ll|' Cl.ialTtF *| 

210 f»l«! CWEi(m,}Jli* Hr.ZMta ‘i 

290 wini OMIiltii,2ll|‘ reatac *|MM(i(ari,»l 

2*0 P9IB1 Ciwuinri,łll| • 

270 EM 1*1 TO 52iMI*f CMI lllltfl.llluKlT 
290 MINI CHMIłlori.IO)) 

200 UKSU lUirtmi CnMliInriilll) 

T0O IKSIE B.TiMWT CMi<i<art,ll)l 

110 'ayuitUaaia • mli kolija,ck nart:/ Ulali 

J» f* m T9 10 

B» IKS TE l,2ta*0:FtllET aa«li(an,21U* tl*| 

TM win ISIS *{’iari|imn','|«li« •ETlMll 
J»»Wl 'iO«i'iiari,2lli* ■ *|USI« •Ul*i:iiłi,nll| 

» MliiT" •iDMiim.ail* 'lOMUtari.iallli 

TM Miar CMlI.-Inri.tllum I>1 TO 12>nilT OMliłari.OtiiKIT 
300 OSIMI CHMIIInri.IOIliLICSTE U,2l.-5lMIIMT CMtlalnri.lt 1 1 
400 L1ICSTE B,21„*JlrtWT CHMU lara, ! 199 
110 KIT ■ 

120 LKSIE Ił.BiPPWT UMlilnu.OlliLOCSlE 1,29:0(1111 MlUlari,!)) 

110 IKSIE TC.TCiSaiMT DNI U lar: ,91 U LOCSTE »,B:MIDT CIMIi(ir:,9ll 
MO łtuau aut Mcii HrftM 
190 CUM l«r.»;lM!*‘*a 
M 1» Bit 190 

171 KII •>: 

*» ajwn-2i:*Ti»WiBM»:w7:MW 20M: i4t>M0i>:i«B:,»-9iiOM 2000 
9M IKS TE H.ttlHWrMMC Kac, pra/ua* 

910 (STO 910 

Do tego programu należy dołączyć podpro- 
gram, który zrealizuje następujące czynności: 
— definiowanie dwóch pierwszych zesta- 
wów linii: 


a) symbole 234 — 244, to 1 zestaw zna- 
ków (linie pojedyncze); 

b) symbole 245—255, to 2 zestaw zna- 
ków (linie podwójne). 

— wprowadzenie numerów symboli 
wszystkich 3 zestawów do dwuwymia- 
rowej tablicy Z (3,11). 

Projektując tabele z wykorzystaniem pre- 
zentowanych 3 typów linii można postępować 
w dwojaki sposób: 

— korzystać z elementów tablicy Z (i, j) 
gdzie: 

i to nr zestawu (1 — 3); 
j to nr znaku (1—11); 
przykład: PRINT CHRS (z (2,10) 

Tak postępowano w programie poka- 
zowym. 

— bezpośrednio używać nr. symbolu; 
przykład: PRINT CHR$ (254) 

Efekt uzyskany na ekranie w obu przykła- 
dach będzie oczywiście identyczny. 

Wersja źródłowa tego podprogramu jest 
następująca: 

1000 SYMBOL AFTER 234 
1010 'Piemszy 2 tst» zn*ko» 

1020 SYMBOL 234.0,0,0,31,16,16,16,16 

1030 SYMBOL 235,16,16,16,16,16,16,16,16 

1040 SYMBOL 236,16,16,16,31 

1050 SYMBOL 237,0,0,0,255 

1060 SYMBOL 238,16,16,16,240 

1070 SYMBOL 239,0,0,0,240,16,16,16,16 

1080 SYMBOL 240,0,0,0,255,16,16,16,16 

1090 SYMBOL 241,16,16,16,255 

1100 SYMBOL 242,16,16,16,31,16,16,16,16 

1110 SYMBOL 243,16,16,16,240,16,16,16,16 

1120 SYMBOL 244, 16,16, 16,255, 16, 16, 16, 16 

1130 'Drugi zestau znakoii 

1140 SYMBOL 245,0,0,63,32,47,40,40,40 

1150 SYMBOL 246,40,40,40,40,40,40,40,40 

1160 SYMBOL 247,40,40,47,32,63 

1170 SYMBOL 248,0,0,255,0,235 

11B0 SYMBOL 249,40,40,232,8,248 

1190 SYMBOL 250,0,0,248,8,232,40,40,40 

1200 SYMBOL 251,0,0,253,0,239,40,40,40 

1210 SYMBOL 232,40,40,239,0,253 

1220 SYMBOL 233,40,40,47,32,47,40,40.40 

1230 SYMBOL 234,40,40,232,8,232,40,40,40 

1240 SYMBOL 235,40,40,239,0,239,40,40,40 

1250 'Mpronadzamt nuitrow syabol i do tablicy 

1260 DIH 7(3,11) 

1320 FOR i«l TO 2 
1330 FOR j=l TO 11 
1340 z(i, j)*233+j*U-lltll 
1350 NEXT jzNEKT i 
1360 FOR j*l TO 11 
1370 READ z(3,j)iNEXT J 

1380 DATA 150, 149, 147, 154, 153, 136,158, 155, 15U57, 159 
1390 RETURN 

Dodatkowo chcemy, zaproponować pod- 
program rysowania ramki wykorzystujący 
wcześniej zdefiniowane symbole graficzne. 
Jego wykorzystanie w programach użytko- 
wych wymaga nadania przed wywołaniem 
wartości następującym parametrom: 

NRZ — numer zestawu znaków (1 — 3); 

X,Y — współrzędne znakowe lewego, 


górnego rogu ramki (dopuszczalne 
przedziały dla X są uzależnione od 
trybu, a dla Y = <1»25>); 

SZE — szerokość ramki w znakach; 

WYS — wysokość ramki w znakach. . 
Wersja źródłowa tego podprogramu -jest 
następująca: 

2000 'Podprogra* ryioainla raili 
2010 'Paraaetry Najsciwe 
2020 ' nr z -nr zestawi znakon 

2030 ’ K,y-Nspolrzidne leuigo, gonego rogu okna 

2040 ’ szt-szerokosc okni 

2050 ' „ys-uysokcsc okna 

20*0 10CATE a,y:PRlNT CWWzlnrz, l>)j 

2070 FOR p*l TO Mł-2 

2080 PRINT CHR4(z(nrz,4));:NUT p 

2090 PRINT CHRt(z(nrz,i)l 

2100 FOR p*l TO uys-2 

2110 L0CATE *,y*p:PRINT CHRKz (nrz,2) ) 

2120 10CATE x*szł-i,yłpiPRINT CHR»(z(nrz,21) 

2130 NETT p 

2140 LDCATE «,y»»rs-liPRINT CHRI<zlarr,!»( 

2150 FOR p>l TO sz»-2:PRINT CHRIlz (orz, 4) IjilCIT p 
21*0 PRINT CHRSizInrz.Slls 
2170 RETURN 

Oczywiście proponowane symbole grafi- 
czne można także wykorzystać do innych ce- 
lów— budowa schematów organizacyjnych, 
plansz czy chociażby labiryntów. Na zakoń- 
czenie chcemy przedstawić 3 tabele utworzo- 
ne tymi symbolami, a przedstawiające: 

— element tablicy zawierający dany sym- 
bol; 

— numer znaku; 

— postać znaku. 
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• INFORMATYCZNY SŁOWNIK ANGIELSKO-POLSKI 


PI RST-CONE FIRST-SERVED - pierwszy zgłoszony pierw- 
szy obsłużony < w teorii kolejek), 

FIRST— COME LAST-SERYED - pierwszy zgłoszony ostatni 
obsłużony <w teorii kolejek), 

FIRST FIT - metoda pierwszego odpowiadającego (meto- 
da podziału pamięci), 

FIRST FIT ALGORITHM - algorytm dopasowywania, 

FIRST FIT DECREASI NG ALGORITHM - algorytm dopasowa- 
nia uporządkowanych zadań, 

FIRST -IN FIRST -OUT - pierwszy na wejściu pierwszy na 
wyjściu (w teorii kolejek), 

FIRST -IN L AST -OUT - pierwszy na wejściu, ostatni na 
wyjściu (w teorii kolejek), 

FI RST-I N-NOT-USED-FI RST-OUT - metoda wymiany stronic 
(segmentów) pamięci w systemach z pamięcią wirtual- 
ną, polegająca na usuwaniu stronic do których przez 
długi czas nie było odwołań, 

FIRST-ITEM - pierwsza pozycja, 

FI RST-LEVEL ADDRESS - adres pierwszego poziomu, 

FIRST LEVEL INDEX TABLE - tablica indeksów pierwsze- 
go stopnia, 

FIRST LEVEL OVERFLOW BUC KET - porcja (blok programo- 
wy) w obszarze przepełnień pierwszego stopnia, 

FIRST LEYEL OVERFLOW ROUTINES - procedury przepeł- 
nień pierwszego poziomu, 

FIRST -ORDER LOGIC - logika pierwszego rzędu, 

FIRST -ORDER SUBROUTINE - podprogram pierwszego rzędu, 
FIRST RULES OF ARITHMETIC - działania arytmetyczne 
podstawowe, 

FITNESS FOR USE - zdatnośó użytkowa, 

FITTING - dopasowanie, montaż, 

FIT TOGETHER - pasować do siebie, 

FI VE-LEVEL CODĘ - kod pięciościeżkowy, 

FIK - poprawianie, sprostowanie, ustalanie, także: 
poprawiać, sprostować, ustalać, umacniać, 

FIXED - stały, ustalony, nieruchomy, 

FIXED ADDRESS - adres stały, 

FIXED AREA - obszar ustalony, 

FIXED DISK - dysk stały, dysk wymienny, 

FIXED HE AD DI SC - dysk z nieruchomą głowicą, 

FIXED INFORMATION LENGTH - stała długość Informacji, 
FI XED INSTRUCTION LENGTH - stała długość rozkazu, 

FI XED-LENGTH ADDRESSING - adresacja ze stałą dłu- 
gością adresu (dot. sposobu adresacji w sieci kom- 
puterowej) , 

FI XED-LENGTH COMPUTER - komputer ze słowem o stałej 
dł ugości , 

FI XED-LENGTH FIELD - pole stałej długości, 

FI XED-L£NGTH RECORDS - zapisy (rel<aPdy> o stałej 
długości, 

FIXED LINĘ - łącze stałe, 

FIXED POINT - przecinek stały, 

FIKED-POINT ARITHMETIC - arytmetyka stał opozycyjna, 
arytmetyka stał oprzeci nkowa, 

FIKED-POINT CALCULATI ON - rachunek stal oprzeclnkowy , 
FI XED— POI NT INSTRUCTION - rozkaz stał opr z ec i nkowy , 
FIKED-POINT NOT ATI ON - zapis stal oprzeci nkowy , 
FIKED-POINT NUMBER - liczba stał oprzeci nkowa, 

FI XED-POI NT OPERAT I ON - operacja stał oprzeci nkowa, 

FI XED-POI NT REPRESENT ATI ON - przedstawienie liczb 
stałoprzecinkowych, 

FIKED-PROGRAM COMPUTER - komputer o stałym programie 
(mający na stałe, ustaloną kolejność wykonywanych 
rozkazów) , 

FIXED RADI X NUMERATION SYSTEM - system liczbowy o 
stałej podstawie, 

FI XED RETENTION - stałe członkostwo, ustalone człon- 
kostwo, 

FI XED ROUTING - ustalona trasa (droga), 

FI XED STORAGE - pamięć stała, pamięć wielkości sta- 
łych, pamięć martwa, 

FIXED WIRE - sznur do łączenia na stałe, tablicy po- 
łącz ert, V 

FIXED WORD LENGHT - ustalona długość słowa, 

FIXING - ustalanie, utrwalanie, 

FLAD BED PLOTTER - ploter stołowy (płaski), 

FLAG - znacznik, flaga, sygnalizator, znak sygnali- 
zujący, także: bit oznaczający granice pola, « 

FLAG BIT - znacznik, 

FLAG FIELD - znacznik pola, 

FLAG PAGE - strona tytułowa, 

FLAG REGISTER - rejestr flagowy, 

FLAG SEQUENCE - znacznik transmisji oddzielający 
obrazy przesyłane na monitor w sieci komputerowej, 
także: znacżnik wielobitowy, ramka, 

FLASHING - podświetlanie szablonu (jako tła obrazu), 
FLASH PHOTOGRAPHI C PRINTER - drukarka fotograficzna 
błyskowa. 


FLAT - płaski, także: spłaszczmć, równąć, 

FLAT ADDRESSING - adresacja prosta. 

FLATBED PLOTTER — pisak planszetowy, ploter plansze- 
towy, 

FLAT FILE - plik (zbiór) składający się z zapisów 
(rekordów) tego samego typu, 

FLATPAOC - płaska obudowa typu krab (mikroukładu), 
FLAT SUBASSEMBLY - pakiet, 

FLATTEN - równać, spłaszczać, 

FLEXI BILI TY - giętkość, podatność, elastyczność, 
FLEXIBLE - giętki, podatny, elastyczny, 

FLEXIBLE ARRAY - tablica o zmiennym rozmiarze, 
FLEXION - druga pochodna, 

FLEXOWRI TER - kodopis, 

FLEX POINT - punkt przegięcia, 

FLIOCER - niepożądane migotanie, miganie, mruganie, 
FLI CICER NOISE - szum migotania, 

FLIGHT PATH COMPUTER - przelicznik toru lotu, 

FLIGTH COMPUTER - komputer do celów nawigacji (lot- 
niczej lub kosmicznej), 

FLIMSY - rozdzielająca karta dziurkowana, 

FLIP - przerzucać (z jednego położenia w drugie), 
FLIP-FLOP - przerzutnik, mul ti wibrator bistabilny, 
FLIP OFF - wyłączyć, zgasić (np. światło), 

FLIP ON - włączyć, zapalić (np. światło), 

FLIPPY DISK - dyskietka dwustronna z niezależnie 
używanymi stronami , 

FLOAT — płynny, 

FLOATING - wahający się, zmienny, pływający, 

FLOATING ADDRESS - ad^es symboliczny, adres pływa- 
jący, adres zmienny, 

FLOATING GATE - pływająca bramka, 

FLOATING POINT - zmienny przecinek, 

FLOATING-POINT ARITHMETIC - arytmetyka zmiennopozy- 
cyjna, arytmetyka zmiennoprzecinkowa, 

FLOATING-POINT BAR - podstawa liczenia ze zmiennym 
przecinkiem, 

FLOATING-POINT CALCULATI ON - rachunek zmiennoprze- 

FLOATING POINT CHARACTERI STI C - cecha liczby zmie- 
nnoprzecinkowej , 

FLOATING POINT COMPUTATION - rachunek' zmiennoprze- 
cinkowy^ 

FLOATING-POINT INSTRUCTION - rozkaz zmiennoprzecin- 
kowy, 

FLOATING-POINT NOT ATI ON - zapis zmiennoprzecinkowy, 
FLOATING-POINT NUMBER - liczba zmiennoprzecinkowa, 
FLOATING-POINT OPERATION - operacja zmi ennoprzecin- 

FLOATI NG-POI NT OPERATIONS PER SECOND - liczba opera- 
cji zmiennoprzecinkowych na sekundę (określenie szy- 
bkości działania procesora) , 

FLOATING-POINT PACKAGE - program zmiennoprzecinkowy, 
program zmiennopozycyjny, 

FLOATING POINT REPRESENT ATI ON - przedstawienie liczb 
zmiennoprzecinkowych, 

FLOATING-POINT WORD - słowo zmiennoprzecinkowe, 
FLOODING - kaskadowy wybór trasy, także: rozpływowy, 
FLOPOVER — przesuwanie się obrazu w pionie (na ekra- 
nie monitora), 

FLOPPY-BASED - urządzenie pamięciowe z dyskami elas- 
tycznymi , 

FLOPPY DISK - dysk elastyczny, minidysk, dyskietka, 
FLOPPY DISK DRI VE - napęd dyskietkowy, 

FLOPS - patrz: FLOATING-POINT OPERATIONS PER SECOND, 
FLOW - przepływ, także: sterowanie, 

FLOW AUGMENTING PATH - droga powiększająca przepływ, 
FLOW CHART - schemat czynności, diagram przebiegu, 
sieć działań, schemat działania programu, schemat 
blokowy programu, 

FLOWCHARTER - program sporządzający schemat blokowy, 
FLOWCHARTI NG - sporządzanie schematu blokowego, 

FLOW CHART SYMBOL - element schematu blokowego, 
FLOWCHART TEMPLATE - szablon do pro jektowani a, 

FLOW CONTROL - sterowanie strumieniem danych, stero- 
wanie przepływem (w sieciach komputerowych), 

FLOW DIAGRAM - schemat działania programu, schemat 
blokowy programu, sieć działań, 

FLOW DIRECTION - kierunek przebiegu (przepływu) na 
schemacie blokowym, 

FLOWLINE - linia obiegu, linia łącząca dwa symbole 
na schemacie blokowym, 

FLOW OF CURRENT - przepływ prądu elektrycznego, 

FLOW OF INFORMATION - strumień informacji, 

FLOW SHOP PROBLEM - przepływowy problem obsługi, 

FLOW TIME - czas przepływu (dot. przebywania zadania 
w systemie obsługi), 

FLUCTUATI ON - wariacja, 

FLUID - płyn, także: płynny, 

FLUID COMPUTER - komputer na elementach strumienio- 
wych, 

FLUTTER - drżenie dźwięku, . 

FLUX - strumień. J 
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cmi, logistyka, 

FORMAL PARAMETER - parametr formalny, 

FORMAL SPECI FI CATI ON - opla formalny, 

FORMAT - format (sposób przedstawiani a danych na no- 
śniku), 

FORMAT BUFFER - pamięć formatu formularza, 

FORMAT CHARACTER - znak sterujący formatem, 

FORMAT EFFECTOR - f ormatyzator , 

FORMAT ERROR - błąd formalny, błąd formatu, 

FORMATION - tworzenie się, powstawanie, 

FORMAT LABEL - etykieta formatu, 

FORMATLESS - bez formatowy , 

FORMATTED - formatowany, sformatowany, 

FORMATTED CAPACITY - pojemność nośnika danych, poje- 
mność użytkowa, 

FORMATTER - program edycji tekstdw tworzący formaty, 
FORMATTING - formatowanie (rozpl anowywanie tekstów 
na ekranie monitora), 

FORM FEED - przesunięcie strony, przesuw formularza, 
nowa strona, 

FORMFEED - patrz i FORM FEED, 

FORM FEED CHARACTER - znak zasilenia (drukarki) for- 
mularzem, także: znak przesuwu strony, 

FORM FEEDING - przesuw formularza, 

FORMING - kształtowanie, formowanie, tworzenie, 

FORM OVERLAY - szablon (tabela, siatka lub mapa sta- 
nowiąca element tła obrazu), 

FORM SET - zestaw formularzy, 

FORMS FLASH - podświetlanie szablonu, (jako tła ob- 
razu) , 

FORMULA - wzór, wyrażenie, 

FORMULA LANGUAGE - język formuł, 

FORMUŁ ATI ON - sformułowanie, wyrażenie za pomocą 
wzoru, 

FORMULA TRANSLATI ON - patrz: FORTRAN, 

FOR TECHNICAL PURPOSES - do celów technicznych, 

FORTH - wysokopoz i omowy Język programowani a , 

FOR THE TIME BEING - na pewien czas, tymczasowo. 

FOR THIS PURPOSE - w tym celu, 

FORTRAN - język proceduralny do zastosowań naukowych 
i technicznych, 

FORWARD - nadawać, transmitować, komunikować, 

FORWARD CHAINING - także: wnioskowanie uprzedzające 
(w systemach ekspertowych ), 

FORWARD CHANNEL - kanał docelowy, 

FORWARD-COMPATI BLE - zgodny, kompatybilny (o progra- 
mie, który może pracować na innym typie komputera), 
FORWARD DECLARATION - wstępny (częściowy) opis obie- 
ktu programu, 

FORWARD DIRECTION - kierunek przewodzenia, 

FORWARDER - urządzenie przesyłania danych (w sieci), 
FORWARDING - przesyłanie danych (do miejsca wykorzy- 
stania) , 

FORWARD REFERENCE - odsyłacz, odnośnik użytkowany 
wstępnie, 

FORWARDS - do przodu, 

FORWARD SPACING - przesunięcie do przodu, 

FORWARD SUPERVI SI ON - sterowanie wprost, 

FOUNT - patrz: FONT, 

FOUR-ADDRESS - czter oadresowy, 

FOUR - ADDRESS INSTRUCTION - rozkaz czteroadresowy , 
FOURTH-GENERATION COMPUTER - komputer czwartej gene- 
racji , 

FOUR-WIRE COMMUNICATION - przesyłanie czteroprzewo- 
dowe, 

FOUR-WIRE LINĘ - łącze czteroprzewodowe, 

FOX MESSAGE - standardowy komunikat kontroli popraw- 
ności transmisji, zawierający wszystkie litery alfa- 
betu łacińskiego (postać komunikatu stanowi zdanie: 
"A quick brown fox jumps over the lazy dog 123436789 
0 "), 

FPLA - patrz: FI ELD-PROGRAMMABLE LOGIC ARRAY, 

FPROM - patrz: FI ELD-PROGRAMMABLE ROM, 

FRACTION - ułamek, także: frakcja, część, 

FRACTIONAL - ułamkowy, także: frakcjyjny, częściowy, 
FRACTI ON AL DIGIT - cyfra po przecinku, 

FRACTIONAL EXPONENT - wykładnik ułamkowy, 

FRACTIONAL NUMBER - liczba ułamkowa, 

FRACTIONAL PART - mantysa, 

FRACTION BAR - kreska ułamkowa, 

FRAGMENT - fragment, odłamek, także: fragmentować, 
FRAGMENTARY - częściowy, f ragmentaryczny , 

FRAGMENT ATI ON - f ragmentac Ja, rozdrabnianie, 

FRAME - 1. grupa (blok) danych, 2. rządek bitów po- 
łożonych w poprzek taśmy, 3. system odczytu, 4. kadr 
(w sieciach - przesyłana porcja danych), 5. karkas, 
korpus, ramka, 

FRAME BUFFER - bufor obrazu, bufor ramki, 

FRAME CHECK SEOUENCE - ciąg kontrolny ramki, 

FRAME DEL.ETI0N - skasowanie obrazu, skasowanie ramki 
(fragmentu lub całego ekranu monitora), 

FRAME GRABBER - urządzenie wprowadzania i zapisywa- 
nia obrazów (fragmentu lub całego ekranu monitora). 


FLUXING - Tipi \*nni ani e (nadawani *--tłtvnno£Ti ) . rskże: 
uplastycznianie, zmiękczanie. 

FLX - patrz: FILE EXCHANGE UTILITY. 

FLYBACK - szybki rucn powrotny, powrót, 

FLYING HEAD - głowica magnetyczna zapi su/odczytu nie 
dotykająca nośnika danych lecz unosząca się nad mm 
na cienkiej warstwie powietria, 

FLYING LEAD - cienki drut, łączący pole kontaktowe 
z nóżką obudowy np. tranzystora, układu scalonego, 
FLYING SPOT - ruchoma plamka świetlna. 

FLYING SPOT SCAN - skaning (system kodowania obrazu 
za pomocą techniki omiatania rastrowego, uwzględnia- 
jący jaskrawość obrazu). 

FLYING-SPOT SCANNING - wvbieranie ruchomą plamką 
świetlną, 

FM - patrz: FREOUENCY MODULATI ON, 

FM-RECORDING - patrz: FRLOUENCY MODULATI ON REC0R- 
DING, 

FMT - patrz: FORMAT. 

FOCAL POINTS - punkty skupiające, 

FOLD - składać (np. dane w celu zwartego przedsta- 
wienia) . 

FOLDABILITY - podatność na zginanie, 

FOLD DI STANCE - odstęp zagięcia, 

FOLDER - określenie kartoteki plików (zbiorów) teks- 
towych w systemach, 

FOLDING - składany, 

FOLI ATE - rozwarstwiać się, 

FOLLOWED BY . . . - także: zakończone ... 

FOLLOWER - powtarzacz, także: człon bierny, człon 
napędzany, 

FOLLOWING - kolejny, następny, 

FOLLOW INSTRUCTIONS - postępować według wskazówek, 
FOLLOW UP - nadążać, 

FOLLOW-UP - dalsza obróbka, dalsze opracowanie, 
FOLLOW-UP FILE - plik uporządkowany według klucza, 
inicjowanego określonym zdarzeniem w systemie, 

FONT - zbiór znaków graficznych o określonym kroju, 
krój pisma, 

FONT-CHANGE CHARACTER - znak zmiany kroju czcionki. 
FONT RECTICLE - miejsce na papierze lub ekranie, 
na jeden znak, 

FOOLPROOF - bezpieczny przy nieostrożnym lub nie- 
umiejętnym obchodzeniu się, także: zabezpieczać 
urządzenie przed skutkami nieostrożnego lub nieumie- 
jętnego obchodzenia się, 

FOOL-TOLERANCE - odporność (wytrzymałość) na nie- 
umiejętne obchodzenie się, 

FOOTAGE COUNTER - licznik długości taśmy, 

FOOTER - stopka (opis powtarzający się na dole każ- 
dej strony tekstu) , 

FOOTING - zsumowanie, 

FORBIDDEN - zakazany, niedopuszczalny, wzbroniony, 
FORBIDDEN TERM - askryptor, nondeskryptor , termin 
zakazany, , 

FORCE - siła, także: wciskać, wtłaczać, wymuszać, 
FORCED - wymuszony, 

FORCE OUT - wypychać, 

FORCING INPUT - wejście przełączające (przerzutni ka) 
FORECAST - prognoza, 

FORECAST DEMAND - zapotrzebowanie przewidywane, 
fORECASTING - prognozowani e, przewidywanie, spekula- 
cja, 

FOREDESIGN - projekt wstępny. 


FOREGROUND-BACKGROUND SCHEDULING - szeregowanie wie- 
lopoziomowe, 

FOREGROUND COLOR - kolor przedniego planu obrazu, 
FOREGROUND IMAGE - przedni plan obrazu, 

FOREGROUNDING - wykonywanie zad art o wyższym priory- 
tecie, obsługa priorytetowa, 

FOREGROUND MUSIC - muzyka pierwszoplanowa, 

FOREGROUND CPRIORITYJ - o wyższym piorytecie, pierw- 
szoplanowy, 

FOREGROUND PROCESSING - przetwarzanie pierwszopla- 
nowe, 

FOREGROUND PROGRAM - program pierwszoplanowy, 

FOREIGN ICEY - klucz zewnętrzny, 

FOREIGN MATTER - obce ciało, 

FORESEE - przewidywać, 

FORESEEABLE - przewidywalny, możliwy do przewidzenia, 
dający się przewidzieć, 

FOREST - las, wielka liczba drzew (w teorii grafów), 
FORGETFULLNESS - brak działania następczego, wtórne- 
go (w teorii masowej obsługi), 

FORK - rozgałęzienie, rozwidlenie, 

FORM - formularz, druk, sformatować, także: druk, 
f or mularz , 

FORMAL - formalny, 

FORMALI ZATI ON - formalizacja (opisu, problemu), 
FORMALIZE - fornalizować, 

FORMAL LANGUAGE - Język formalny. 
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ZADANIE 1 

Od dwóch kawałków stopu, o różnej zawartości procento- 
wej miedzi, ważących m kilogramów i n kilogramów, odcięto 
jednakowe wagowo kawałki. Każdy z odciętych kawałków 
stopiono z pozostałą resztą drugiego kawałka stopu i oka- 
zało się, że procentowa zawartość miedzi w otrzymanych 
stopach jest jednakowa. Ile ważył każdy z odciętych kawał- 
ków? 

ZADANIE 2 

Łódź motorowa płynąc z prądem rzeki przebywa odległość 
między dwoma miastami w czasie a = 4 h, a płynąc pod 
prąd odległość tę przebywa w czasie b — 12 h. W jakim cza- 
sie belka niesiona prądem rzeki przebędzie tę odległość? 

ZADANIE 3 

Zboże zawiera k % zanieczyszczeń. Po każdorazowym 
oczyszczeniu ilość zanieczyszczeń zmniejsza się o q%, przy 


czym ilość czystego ziarna nie ulega zmianie. Ile razy trzeba 
powtórzyć oczyszczenie zboża, aby jego zanieczyszczenie 
zmniejszyło się do / % (JL q)? 

ZADANIE 4 

Dziesięć litrów wody o temperaturze 13°C zmieszano z 
12, 5 litrami wody o takiej temperaturze, że po ustaleniu się 
temperatury mieszanina miała temperaturę wyższą od 
25°C. Lecz mniejszą od 30°C. Jaką temperaturę miała wo- 
da dolana? 

ZADANIE 5 

Mamy 24 gramy radioaktywnego pierwiastka o czasie po- 
łowicznego rozpadu T, = 7 lat i 3 gramy innego radioak- 
tywnego pierwiastka. Jaki jest czas połowicznego rozpadu 
T 2 drugiego pierwiastka, jeżeli po 21 latach ilości obu pier- 
wiastków są równe? 


Rozwiązania zadań prosimy przesyłać do redakcji do końca listopada br. z dopiskiem „Liga Myślących”. Punktacja zaleiy od liczby prawi* 
dłowych rozwiązań. Wśród uczestników rozlosujemy ksiąiki, a na zwycięzców „Ligi” czekają dodatkowe nagrody. 


Tylko dla informatyków 


JĘZYK D 

Zdecydowana większość oprogramowania napisana zosta- 
ła indywidualnie na określone typy komputerów. Natomiast 
niewiele jest programów, które pracuję na wszystkich kompu- 
terach. 

Obecnie oprogramowanie tworzone jest głównie na kom- 
putery „marki” VAX. Jest to zapewne przyszłościowy kompu- 
ter, w każdym razie w naszych warunkach. Stanowi on ogni- 
wo pośrednie między sprzętem PC, a superkomputerami. 
Stąd też często nazywa się ten sprzęt — minikomputery, cena 
wywoławcza (umowna?) djcoło 100 (stu) milionów zł. 

Wśród 25 pakietów przetwarzania tekstów tylko LEX (stwo- 
rzony przez Ace Mlcrosystem) pracuje na wszystkich VA- 
Xach, PDP-11 i systemach Rainbow'a. Stało się to możliwe 
dzięki temu, iż LEX napisany jest w języku D. 

LEX był pierwszym zintegrowanym systemem przetwarza- 
nia tekstów z jednoczesną obsługą bazy danych. Oryginalnie 
(w 1979 roku) napisano go na PDP-11. Komputer ten święcił 
wówczas swe najlepsze dni. 

LEX napisany został w języku RPL. Język ten miał pewne 
ograniczenia, które dosyć szybko dały o sobie znać. Wynikało 
to z tego, iż kompilator RPLa został napisany w MACRO as- 
semblerze. Decydowało to o tym, że tworzone oprogramowa- 
nie mogło wyłącznie pracować na PDP-11. By pokonać ten 
problem stworzono właśnie język D. 

D jest językiem unikalnym, opartym o elementy, które jego 
twórcy (bardzo młodzi — D. Medford i T. Barnard) nazywają 
— „tabele decyzyjne”. Język ten rozpowszechniany jest przez 
National Computlng Centra jako Flletab-B. 

Języki: RPL i D mają podobną syntaktykę, która pozwala 
przekładać programy z RPLa na D. 

Wydaje się, że najważniejsza jest ta możliwość kompilatora 
języka D, która polega na tym, iż tworzy on kod maszynowy 
dla różnych (wybranych) maszyn. 

Należy jednak pamiętać, że D nie Jest narzędziem na zmia- 
nę istniejącego oprogramowania napisanego na PDP-11 na 


programy pracujące na VAXie (za wyjątkiem gdy użytkownik 
napisał swoje oprogramowanie na PDP-11 w jednym z Języ- 
ków: D lub RPL). 

Omawiana własność Języka D stwarza całkiem nowe wa- 
runki dla nowego oprogramowania, które bez żadnych zmian 
może pracować nie tylko na PDP, VAXIe, ale na wielu innych 
komputerach. Podstawową zaletą języka D okazuje się właś- 
nie to, że użytkownik (posługujący się nim) nie jest skazany 
na PDP lub VAXa. Ilustracją tego może być przykład przenie- 
sienia programu źródłowego z RIADa na ODRĘ... 

Program w języku D składa się ze zbioru tabel decyzyjnych. 
Zawierają one szereg warunków tworzących kolejne „strony" 
programu. 

Jak Już zostało wspomniane, język D był projektowany z 
zamiarem stworzenia możliwości Jego implementacji na różne 
komputery. 

Zbiór dostępnych komend i operatorów oraz odpowiadają- 
ce im kody maszynowe, które muszą być generowane, są 
przechowywane jako modyfikowalny zbiór danych — TMC 
(wybrany kod maszynowy) — zbiór ten wykorzystywany jest 
przez kompilator. 

TMC tworzony Jest ze zbioru danych ASCII przez program 
nazywany D Compller Compller. Zbiór ten nazywany Jest 
CGT. Liczba zbiorów tego typu jest równa liczbie proceso- 
rów, na które język D może być implementowany. 

Specyfikacja zbiorów CGT przewiduje wymagania odpo- 
wiedniego procesora — jego architekturę, specjalistyczne 
zadania Itp. Zatem, gdy na rynku pojawia się nowy procesor, 
tworzony jest odpowiedni zbiór CGT. Następnie używając 
Compller Compller powstaje zbiór TMC — kompilator języka 
D na nowy procesor Jest gotów. Możliwe staje się tworzenie 
kodu maszynowego dla komputera z nowym typem proceso- 
ra, przy użyciu do prac programowych oczywiście Języka D. 

Należy równocześnie dokonać pewnych zabiegów przysto- 
sowujących eksploatowany system operacyjny do progra- 
mów napisanych w Języku D. Obecnie dostępne są wersje 
LEXa na 28 różnych systemów operacyjnych. 

Język D okazał się bardzo użyteczny, także na popularny u 
nas sprzęt mikrokomputerowy oraz na minikomputery (od 
PDP, VAXa do sprzętu budowanego na Motoroli 68000 i Intelu 
8086). Wydaje się, że język D staje się bardziej użyteczny, niż 
jakikolwiek Inny, taki Jak na przykład język C. 

Opracowane na podstawie: 

D. Medford, A Language Created for Riding the Rangę, dec/com- 
puting, 20 stycznia 1 988. 
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CPC , - craTika 


10 REM •*••••• GRAFIKA •••••••aa 

20 DEFINT b,c,x 
30 MODĘ 2 

40 b«RND*5 + l:c-RND*5 ♦ 1 

50 ORIGIN 320,200 

60 FOR a«0 TO 1000 STEP PI/30 

70 x-100*COSCa5:MOVE x.x 

80 ORAW 200*COSCa/b).200«SINCa/c> 

90 IF INKEYSO"" THEN 30 

100 NEXT: GOTO 30 


Litery z ponumerowanych kratek 
od 1 do 25 utworzą 5 terminów 
związanych z komputerami, które 
wystarczy podać jako rozwiązanie 
zadania przesyłając pod adresem 
redakcji na kartach pocztowych w 
terminie do końca listopada nakle- 
jając kupon „IKS-a”. Wśród auto- 
rów prawidłowych odpowiedzi 
rozlosujemy bony pieniążne i na- 
grody książkowe. 
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„IKS" — dodatek „Żołnierza Wolności". Redaguje Wiesław Cetera (kierownik zespołu); Rada programowa: Krzysztof 
Chmarra, Romuald Głąb, Włodzimierz Gogołek, Janusz Janiec, Henryk Krasuskl, Ireneusz Miernik, Ludwik Piela, Jacek 
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Komputerowa rewolucja 

— Wkrótce uzyskamy możliwość rozmowy z komputerami, później zaś zbudu- 
jemy człekopodobne komputery z inteligencją nadczłowieka — oświadczył Clive 
Sinclair. To, co się dzieje w tej dziedzinie, potwierdza tę opinię. Niemal każdy 
dzień przynosi dowody na błyskawiczny rozwój komputeryzacji. 


W szponach Atari (18) — str. 5 

Gra w tysiąca — str. 11 

Rady i porady 

programisty (cz. 2) — str. 13 

Schowek — str. 14 

Informatyka w szkole — str. 16 
Projektant — znaki — str. 20 
Programowanie nie jest trudne, 
czyli MINI-GEN — str. 22 

Dwa głosy na 

Spectrum — str. 22 

Wydruk ekranu — str. 23 

Lilavati (8) — str. 24 

POLSCRIPT — edytor tekstu 
z polskimi literami 
dla C-64 — str. 25 

SF: Zagadka — str. 27 

Giełda Pomysłów — str. 28 
Słownik informatyczny — str. 29 
Liga Myślących — str. 31 

Trałowanie — str. 31 

Grafika komputerowa — str. 32 


I tak amerykańska firma „Cray” wprowa- 
dziła na rynek urządzenie oznaczone symbo- 
lem Y-MP. Ten superkomputer kosztujący 20 
min dolarów może przeprowadzić 2 do 4 mld 
operacji arytmetycznych w ciągu sekundy! To 
cudo techniki skonstruował Steven Chen, któ- 
ry nie pracuje już w „Cray’u”, a tworzy obec- 
nie w International Business Machines. 

Z kolei ów koncern elektroniczny ogłosił 
niedawno, że jego konstruktorzy dokonali 
nowego przełomu, budując chip — podsta- 
wowy element pamięci komputerowej — zdolny 
do przyjęcia bitu informacji w ciągu 20 mi- 
liardowych części sekundy, czyli trzykrotnie 
szybszy od chipów stosowanych dotychczas. 
IBM wprowadza też w swych wyrobach nową 
architekturę budowy komputerów pozwalają- 
cą znacznie zwiększyć zasób informacji gro- 
madzonych w pamięci maszyny oraz ułatwia- 
jący dostęp do nich. Taka konstrukcja daje 
możliwości około 8 tys. razy większe niż do- 
tychczasowe systemy rozszerzonej pamięci, 
stosowane w komputerach IBM. Umożliwi to 
użytkownikom dużych komputerów dostęp do 
prawie 16 bilionów jednostek informacyjnych. 
Tego rodzaju konstrukcje, o czym są przeko- 
nani specjaliści, odegrają decydującą rolę w 
informatyce lat dziewięćdziesiątych. 

Tymczasem także w Japonii trwają inten- 
sywne badania nad komputerem nowej gene- 
racji. Maszyna ta będzie mogła rozmawiać i 
myśleć podobnie jak człowiek, czyli podej- 
mować samodzielne logiczne decyzje na pod- 


stawie posiadanych danych, a nie jak obecnie 
pracować tylko zgodnie z wprowadzonymi 
programami. 

Opracowany został już w tym kraju typ 
komputera optycznego, który jest w stanie 
uczyć się, jak odróżniać obrazy. Jego budowa 
oparta jest na elektronicznych obwodach imi- 
tujących strukturę neuronów ludzkiego móz- 
gu. W rezultacie ten „neuro-komputer" może 
sam siebie zaprogramować ucząc się rozpo- 
znawania znaków. Jest to na razie konstrukcja 
w początkowym stadium rozwoju. Komputer 
w trakcie uczenia się odtwarza znaki czy 
kształty w sposób niedokładny, co wynika z nie- 
dokładnej pamięci komputera. Jednakże po 
przeanalizowaniu różnic między znakami „na 
wejściu” i „na wyjściu” koryguje on swą pa- 
mięć i odwzorowuje właściwe znaki, nawet 
jeśli są one trochę zniekształcone. Takie koja- 
rzenie oznacza, że w przyszłości komputery 
optyczne będą czytały znaki pisane ręcznie. 

W niezwykle szybko rozwijającej się kom- 
puteryzacji nie zamierzają próżnować specja- 
liści RWPG. Rozwiązali oni główne problemy 
techniczne i technologiczne budowy kompu- 
tera, który potrafi przeprowadzić do miliarda 
operacji na sekundę. Obecnie w dalszych ba- 
daniach najważniejszą sprawą jest zapewnie- 
nie niezawodności środków techniki oblicze- 
niowej i jakości ich obsługi technicznej. 

(RAJ> 


POMOC — AMSTRAD 6128 


Jeżeli chcesz usprawnić proces uruchamiania 
własnych programów i ustrzec się przed nieprze- 
widzianymi skutkami jego działania, skorzystaj z 
POMOCY. 

Program umożliwia, w dowolnej chwili, skopiowanie 
64 k bajtów pamięci do drugiego bloku tej samej wielkości. 
Po tej operacji można wprowadzić do testowanego progra- 
mu dowolne zmiany. Jeżeli uznasz, że są niepoprawne, to 
możesz odzyskać poprzednią postać programu. 

POMOC działa poprawnie tylko na Amstradzie 6128 
lub 464/664 z rozszerzoną pamięcią pod warunkiem, że 
drugi blok 64 k bajtów, nie podłączony aktualnie do szyny 
adresowej, nie będzie przez program wykorzystywany. 

Wprowadź do komputera zamieszczony program. Jeśli 
nie będzie w nim błędów, to kod maszynowy zostanie au- 
tomatycznie nagrany na dyskietce. 

W celu skopiowania pamięci należy (w dowolnej chwili) 
wgrać POMOC. BIN i wykonać CALL&BFOO, nato- 
miast aby ją odzyskać — CTRL— SHIFT, CALL&BFOO, 1 . 

Kod maszynowy został umieszczony od adresu 
&BFOO, ponieważ obszar &BFOO — &BFFF jest stosem 
i podczas zerowania pamięci przez CTRL — SHIFT — ESC 
nie jest niszczony. 


10 'POMOC - AMSTRAD 6128 ! 

20 'ZACHOWANIE ZAWARTOŚCI PAMIĘCI 

30 ' 

40 adr=8<BF00: ln*200 

50 FOR i=0 TO 5 

60 sum=0: READ a«.d 

70 FOR j«l TO LEN <aS) STEP 2 

80 ba jt=VAL <“&"+MID* (a*. j,2)> 

90 P0KE adr ,bajt: 3um*sum+bajt • 

100 adr=adr+l 
110 NEXT 

120 IF iua<>d THEN PRINT "Zla dana w linii "jlniEND 
130 ln=ln+10 
140 NEXT 

150 SA0E “ IP0M0C.BIN" , b,5cBF00,5c5E 

160 PRINT "Przesianie pamięci: CALL StBFOO" 

170 PRINTiPRINT "Odzyskanie pamięci: CALL &BF00, 1“ : PRINT 

200 DATA A72006214ABFCDlCBF2154BFCDlCBF3E,5c6B9 

210 DATA C001007FED79CDllBCC31CBD0605C5E5.Sc791 

220 DATA CD2ABFE12323C1 10F5C97EE60FC6C001 , 5:866 

230 DATA 007FED797EE6F057237EE60FC63F477E,5c7FO 

240 DATA E6F0670E00596BEDB0C947C146804401„&788 

250 DATA C04145C1C54140C1C74 18640044 10000,5:621 


Rafał FOLTYNIEWICZ 
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Konkurs 

rozstrzygnięty 

Do ogłoszonego na łamach „Żołnierza Wolności” i 
„IKS-a” konkursu na scenariusz programu kompute- 
rowego, którego tematem była historia i tradycje lu- 
dowego Wojska Polskiego zgłoszono kilkadziesiąt 
prac. Zadanie, jak się okazało było trudne, wymagało 
bowiem nie tylko inwencji twórczej, ale także umiejęt- 
ności nadania scenariuszowi takiej formy, która po- 
zwoliłaby na jego podstawie napisać program kompu- 
terowy. 

Jury nie miało łatwego zadania. Spośród ocenianych 
prac za najlepszy uznano scenariusz zatytułowany 
„Ucieczka Orła”. Autorem tej pracy i zarazem zdobywcą 
pierwszego miejsca jest płk dr ini. Andrzej Grzesiak. 

Drugie miejsce zajął zespół programistów z Wyższej 
Oficerskiej Szkoły Wojsk Pancernych w Poznaniu w 
składzie: Danuta Kwasiżur, kpt. Mieczysław Skonie- 
czny i Robert Zugehort, za zbiór scenariuszy i pakiet 
programów przeznaczony na mikrokomputer Amstrad 
CPC 6128. 


Redaktor naczelny „Żołnierza Wolności” płk Zdzis- 
ław Janoś wręcza nagrodę (mikrokomputer TIMEX) 
zwycięzcy. 


INFOGRYF ’88 


W zasadzie zrezygnowałem z planowanego 
wyjazdu na Infogryf 88 — koszt uczestnictwa 
w tej konferencji okazał się bowiem zbyt duży. 
Szczęśliwie dyrektor okazał się jednak hojny i 
opłata w wysokości około 55 tys. zł została do- 
konana. 

Tradycyjnie już otwarcia Infogryfu dokonał 
prof. dr hab. Tadeusz Wierzbicki. Stwier- 
dził, iż jeśt to dziewiąte spotkanie informaty- 
ków na tego rodzaju imprezie. Liczba uczest- 
ników wynosiła około 300 osób (stosunkowo 
mało — cena!) w tym goście z Bułgarii, Fran- 
cji, NRD, RFN i ZSRR. 

Na konferencję nadesłano 115 referatów, 
które zostały opublikowane w czterech to- 
mach. Każda sekcja to oddzielny tom. Są tam 
referaty „perełki” (mało) i referaty „nie pereł- 
ki” (dużo), w sumie zamiast zadrukowania 
239+297+269+215=1020 stron można by 
„całkiem spokojnie” zużyć 100 może 105 kar- 
tek (np.: streszczając część materiałów). Gwo- 
li ścisłości należy wymienić wyróżnione sek- 
cje/tytuły tomów: 

— sekcja pierwsza: Informatyka w zarządza- 
niu przedsiębiorstwem (nowe generacje sy- 
stemów), Systemy Informatyczne zarządzania 
(struktury — funkcjonowanie — rozwój), 

— sekcja druga: Informatyka w zarządzaniu 
przedsiębiorstwem (nowe generacje syste- 
mów), Systemy wspomagania decyzji (istota, 
zasady, możliwości zastosowań), 

— sekcja trzecia: Informatyka w zarządzaniu 
przedsiębiorstwem (nowe generacje syste- 
mów), Metody tworzenia i rozwoju systemów 
(stan i perspektywy rozwoju — praktyczne 
zastosowanie), 

— sekcja czwarta: Mikroskala’88 (wersje i 
kontrowersje zastosowań mikrokomputerów), 
Informatyka w zarządzaniu przedsiębior- 
stwem (nowe generacje systemów). 

Prawda, że z tych tytułów „emanuje” pre- 
cyzja informatyczna? 


Referaty uzyskano z tak zwanego wolnego 
naboru, to znaczy wynagradzając PT Autorów 
satysfakcją, iż ich materiały zostały przepisane 
(nie bez błędów) i powielone w 320 plus 3 
egzemplarzach (wszystkie!). Jest także tom piąty 
(stron: 451, czyli łącznie 1471 kartek razy 
323), a raczej pierwszy, zawierający (na dużo 
lepszym papierze) referaty programowe kon- 
ferencji w następujących językach: angiel- 
skim, niemieckim, polskim i rosyjskim (dla 
informatyków poliglotów?). 

Zważywszy jednak na fakt, iż większość, to 
MY Polacy — tematy poruszane na konfe- 
rencji, według słów profesora, dotyczyły będą 
naszych problemów — znad Wisły. Potwier- 
dził te nadzieje (życzenia?), w sposób nie- 
zmiernie barwny w swym wystąpieniu, a 
konkretnie w „publicystycznym wykładzie 
inauguracyjnym” doc. dr hab. Wojciech 
Olejniczak — sekretarz naukowy konferencji. 
Wystąpienie owo było zresztą „awaryjne”, 
planowany bowiem wykład nie mógł się odbyć 
bo prelegent nie dojechał. 

Pan docent „obśmiał” chyba wszystkie 
przywary naszej informatyki, może nawet 
trochę więcej, zresztą wstęp wystąpienia wiele 
wyjaśnia. Oto cytat: „Referat ma charakter 
publicystyczny; w tym sensie rozmyślnie do- 
konano w nim przejaskrawień i aby było wese- 
lej, dla prezentacji obrazu użyto kilku krzy- 
wych zwierciadeł. Innymi słowy w referacie 
nie zawsze mówi się prawdę (choć nie są to 
kłamstwa), nie zawsze mówi się wszystko, lecz 
zawsze mówi się dokładnie to, co się chce po- 
wiedzieć”, koniec cytatu. 

Prelegent mówił jeszcze o pociągach: o pędzą- 
cym superekspresie i pociągu osobowym, któ- 
ry stoi przed semaforem..., korzystał także je- 
szcze z wielu innych metafor. Po tej, w sumie 
trochę przydługiej inauguracji, szefowie ko- 
lejnych sekcji zarządzili, by autorzy referatów 


(115) zgłosili się do nich i „się zobaczy”, kto 
będzie występował, a kto nie. Pozostawiam tę 
konkurencję bez komentarza. 

Równolegle odbywały się także imprezy 
towarzyszące, znacząco zwróciły one na sie- 
bie uwagę, pomijam oczywiście spotkanie 
towarzyskie (a 1500 zł), chodzi mi o firmy 
wystawiające sprzęt, a szczególnie kompeten- 
cje fachowców tam pracujących. Nadzwyczaj 
interesujące było dla mnie spotkanie z 
dr. Andrzejem Niemcem, reprezentującym 
ELWRO. Rozmowa z nim (na tematy zasto- 
sowań mikro do obliczeń statystycznych) była 
nieporównywalnie wartościowsza od szeregu 
referatów. Jaką mamy bowiem korzyść z wy- 
słuchania np.: referatu, który dotyczył kom- 
pleksowego komputeryzowania stoczni na ba- 
zie sprzętu i oprogramowania rodem z VANGa? 

Z założeniem, iż stocznia ma dolary — dosta- 
tecznie dużo dolarów. 

Spotkanie towarzyskie minęło bez eksce- 
sów — jednak informatyka zdominowana jest 
przez mężczyzn, a szkoda... 

O świcie następnego dnia rozpoczęła się 
Mikroskala równolegle z jeszcze inną sekcją. 
Zważywszy na nasze („IKS-a”) zainteresowania 

— oczywiście wybrałem Mikroskalę. Na 
wstępie dzielenia się wrażeniami z tego 
uczestnictwa pragnę zwrócić uwagę na głośną 
sprawę sądową, o której opowiedział jeden z 
organizatorów. Oskarżonym była nasza ro- 
dzima mikroinformatyka, po wysłuchaniu obu 
stron — prokuratora i obrońców, sąd orzekł 
odroczenie sprawy — oskarżona jest po prostu 
nieletnia (to wiele tłumaczy). 

Jako pierwszy wystąpił pan doktor z Poli- 
techniki Warszawskiej, mówiąc o trendach w 
rozwoju systemów operacyjnych dla mikro- 
komputerów. Był to w zasadzie wykład o sy- 
stemach operacyjnych od „początku świata” 
plus totalna negacja wszelkich krajowych 
osiągnięć. Prelegent mówił o tysiącach osobo- 
lat, które spędzono na budowie systemów 
operacyjnych dla dużych maszyn typu ODRA 
1305, o CPM-ie, DOS-ach (i ich popularności 

— 10 milionów instalacji), o UNIX-ie i oczy- < 
wiście o OS2, który obecnie jest w trakcie bu- ^ 
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. dowy. Od trzech lat pracuje nad nim 35 osób. 
^ Wydaje się, że PS2 — jest nowym głównym 
kierunkiem „rynkowym” IBM-a, który mię- 
dzy innymi przez „nałożone” patenty pragnie 
odciąć się od kłopotliwej konkurencji Dale- 
kiego Wschodu. Niemniej za DOS-em opo- 
wiada się 50 proc. użytkowników, 25 proc. za 
OS2, pozostali za mutacjami UNIX-a. Wy- 
kładowca wspomniał o problemie komunikacji 
użytkownika z komputerem (ikony, ekrany 
dotykowe). W tym miejscu nie mogę sobie 
podarować uwagi co do znacznej zbieżności 
przedstawionych treści o zawartości ostatnich 
BAYT-ów. Pan doktor mówiąc o problemach 
krajowych nie powiedział dokładnie nic. 

Pan Kajkowski jako pierwszy zabrał głos w 
dyskusji i zadeklarował kompetentną pomoc 
w sprzężeniu DOS-a z UNIX-em... 

Kolejnym problemem był WIRUS — 
czarny strach padł na większość uczestników 
konferencji, w tym na piszącego te słowa. 
„Zasady” są podobne do AIDS-a, przekłada- 
jąc je na język użytkowników mikro należy: 

— korzystać z zablokowanych (na zapis) dy- 
skietek, 

— skopiować (natychmiast!) wszystkie pro- 
gramy i zbiory, 

— nowe programy powinny przechodzić 
kwarantannę na wyróżnionym w firmie 
komputerze, sprzęt ten trzeba odciąć od 
sieci — wirus biega także po drutach! 

Oto kilka fragmentów głosów w tej kwestii: 
„czy jest szczepionka”, „widziałem w akcji 
wirusa z Austrii”, „północna Polska jest zaka- 
żona", „nie ma skutecznej ochrony”, „znalaz- 
łem wirusa w COM”, „porządne firmy za- 
chodnie nie dają wirusa”, itp. 

Cóż na pewno należy się wystrzegać przy- 
padkowych kontaktów naszego komputera z 
obcymi... dyskietkami (asceza?). Choroba ta 
przenosi się natychmiast na inne programy, 
BlOS-a i wylęga się. Trwa to pewien czas 
„bczobjawowo", a potem tragedia — twardy 


trzebi sformatować, bez wcześniejszej możli- 
wości skopiowania czegokolwiek. 

Po tych informacjach dostrzegłem za 
oknem piękne słońce — to był wspaniały spa- 
cer brzegiem morza. 

Po obiedzie była giełda systemów i kolejne 
wystąpienia, między innymi, jak wykorzystać 
mikro do optymalizacji wykrojów (blachy). 
Temat „dyżurny", bo już w 1972 roku na 
komputerze ODRA 1013 w ZETO Bydgoszcz 
został ten problem rozwiązany. Na marginesie 
— ZETO Bydgoszcz ma doskonale pracującą 
sieć na bazie R32 i trzech JSG zainstalowa- 
nych we Włocławku (do 8 monitorów) w 
Grudziądzu (do 8 monitorów) i w Bydgoszczy 
tyle samo. Informacje „biegają” między mia- 
stami z szybkością 4800 bodów! Efekty tego 
systemu mogą ocenić niektórzy klienci ZUS. 

Infogryf nabierał rozmachu. Wieczorem o 
20.00 (to już maraton) rozpoczęła się giełda 
firm komputerowych. Czego tam nie było? 
Komputery z Singapuru, Tajwanu, wielodo- 
stęp, galanteria (komputerowa), Junior, 
801 AT („madę in ELWRO” — „kości” z 
Tajwanu, obudowa nasza, 512 KB, 6 MHz, 
Hercules, DOS kupiony formalnie i twardy 
20 MB — 60 ms!, cena 3,8 miliona zł, oczeki- 
wanie 6 miesięcy), OA Link (bardzo ciekawa 
sieć — do 6 terminali będących samodziel- 
nymi komputerami, które w postaci kart 
zainstalowane są w gniazdach płyty głównej 
centralnego AT), Winchestery 380 MB, plo- 
tery, streamery, pamięci taśmowe, 32-bitowe 
PCty z zegarem 25 MHz. 

Była także dyskusja, czasami zabawna, 
między panami dyrektorami firm kompute- 
rowych, a uczestnikami konferencji. Powstał 
między innymi problem, czy system finanso- 
wo-księgowy instaluje się dwa dni czy rok...? 
Zdania były podzielone, pan prowadzący („po 
amerykańsku” z ręką w kieszeni) ledwo zapa- 
nował nad emocjami dyskutantów. 

Dowiedzieliśmy się także, że miesięcznik 


„Mikroklan„ będący blisko bankructwa wykupi- 
ło ELWRO. Redaktorem naczelnym został 
dyrektor fabryki. Działem programowania 
kieruje dr A. Niemiec, który zadeklarował 
tematykę miesięcznika: „powyżej XT", pro- 
mocja polskich programów, sieci i wielodo- 
stęp oraz szeroko pojęta edukacja kompute- 
rowa. 

Następnego dnia, także o świcie, zważyw- 
szy na to, iż Mikroskala dobiegła końca, uda- 
łem się do sali IKARa, by posłuchać nowości 
w zakresie systemów wspomagania decyzji 
(DSS). „Wysokie loty” (IKAR) prelegentów 
przypominały mi tragiczną historię Ikara, 
im wyżej leciał tym słabsze były jego 
skrzydła... Dużo mówiono o DSS-ach sensu 
stricto i largo, osiągnięciach Zachodu i kraju za 
oceanem, różnicach między bazami danych i 
bazami wiedzy, systemach ekspertowych 
(eksperckich? doradczych?). Dopiero pod- 
czas wystąpienia gościa bułgarskiego powiało 
nieco praktyką (programy: gromadzące wie- 
dzę ekspertów, tworzące bazy danych i prze- 
twarzające te dane i wiedzę). Ale już za 
chwilę, po pewnym akcencie futurologi- 
cznym, pojawił się temat: „Zastosowanie teo- 
rii zbiorów rozmytych do symulacyjnego 
wspomagania decyzji” — natychmiast się 
„zmyłem”. Słońce pięknie świeciło, mimo to 
zacząłem spisywać te oto słowa, bo termin 
składania mija za kilkanaście godzin. 

Kończąc te na gorąco spisane wrażenia z 
INFOGRYFU’88, wydaje mi się konieczne 
podkreślenie faktu, iż większość luminarzy 
nauki związanych z informatyką nie docenia 
(wręcz nie dostrzega) fachowości tych na „do- 
le" — autentycznych specjalistów (prakty- 
ków) wdrażania komputerów we wszystkich 
dziedzinach naszego życia codziennego. 
Trzeba obecnie tworzyć język, nowy język, 
porozumiewania się wielkiej nauki z praktyką 
komputerową nad WISŁA. 

Kołobrzeg 20.10.88 
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Trzy placówki badawcze w USA poinformowały ostatnio o 
opracowaniu bardzo zaawansowanych komputerowych sy- 
stemów rozpoznawania ludzkiej mowy. Mogą one rozróżnić 
do tysiąca słów wypowiadanych stosunkowo szybko, bez 
długich pauz między nimi. Również firma IBM jest bliska za- 
kończenia prac nad tego rodzaju systemem o nazwie Tangora. 
Współpracowałby on z komputerami personalnymi. 

Najdoskonalszy spośród trzech wspomnianych systemów 
opracowany został w Carnegie Mellon University, w Pensyl- 
wanii przez Kai-Fu-Lee. System o nazwie Sphinx wykorzystuje 
w swym działaniu tzw. statystyczny model rozpoznawania i 
generowania mowy. Dźwięk w tym systemie przedstawiany 
jest w postaci cyfrowej. Najważniejsze jest jednak to, że jest to 
system rozpoznający słowa niezależnie od tego, kto je wypo- 
wiada. Dotychczasowe natomiast wymagały zaprogramowa- 
nia na określonego mówcę. 

Dokładność rozpoznawania słów wynosi 96 proc. (gdy zda- 
nia są proste). Odsetek błędów rośnie do 10,1 proc., gdy zda- 
nia są bardziej skomplikowane. Nieco gorszy pod tym wzglę- 
dem jest drugi system opracowany w laboratoriach MIT, gdyż 
odsetek błędów wynosi 13,6 proc. 

Trzeci system rozpoznający ok. 1 tys. słów powstał w pry- 
watnym laboratorium Bolt, Deranek and Newman w Cam- 
bridge, Massachusetts. Ten system, którego autorem jest John 
Makhoul określa się jako „adaptujący się do mówcy". Przez 30 
minut przygotowuje się on do rozpoznawania określonego 
głosu. 


Mimo tych niewątpliwych osiągnięć nadal systemy rozpo- 
znawania mowy znajdują się w początkowej fazie rozwoju. 
Specjaliści m.in. z Carnegie Mellon University są zdania, że na 
urządzenie, które będzie w stanie rozpoznawać spontani- 
cznie wypowiadane zdania, a więc nie będzie stwarzało ża- 
dnych ograniczeń, mówiącemu poczekać trzeba będzie co 
najmniej 10, a może nawet 30 lat. 

* • • 

Japońskie firmy komputerowe: NEC, Hitachi i Fujitsu opra- 
cowały własne konstrukcje superkomputerów, nie ustępujące 
rodukcji światowego potentata w tej dziedzinie — amery- 
ańskiej firmie Cray Research Corp. 

Obecnie funkcjonuje na świecie ok. 260 superkomputerów. 
Najszybsze z nich potrafią wykonać ponad miliard działań w 
ciągu sekundy, zaś każdy z nich może zastąpić przeszło sto ty- 
sięcy komputerów osobistych. 

Z ostatnich nowości: Cray Research wprowadził niedawno 
nowy superkomputer, który umożliwia trójwymiarowe mode- 
lowanie. Maszyna nazwana Y-MP — kosztująca 20 min dola- 
rów — wykorzystuje jednocześnie osiem mikroprocesorów. 

Roboty wielkości ... komara, które mogłyby np. przedosta- 
wać się naczyniami krwionośnymi do serca, aby usunąć zagra- 
żające życiu ludzkiemu schorzenia tego organu, powstają w 
laboratoriach amerykańskich w wyniku wytrawiania zaprojek- 
towanych wzorów na płytkach krzemowych, a więc dzięki 
technologiom stosowanym w mikroelektronice. Tą samą 
techniką wytwarzane są mikroskopijne mechanizmy, trybiki, 
turbinki i silniczki. W laboratoriach amerykańskiego koncer- 
nu ATT otrzymano już kółka zębate, których ząbki mają zale- 
dwie 15 mikronów szerokości! 
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Animacja w trybie znakowym 

Tomasz MROWIEĆ, Ludwik PIELA 


Jedną z mocniejszych stron 8-bitowych 
komputerów Atari byta zawsze animacja, 
czyli ruchome rysunki. Podstawą większqści 
animacji jest grafika znakowa, prosty i efek- 
tywny sposób tworzenia własnych kształtów 
poprzez składanie odpowiednio dobranych 
znaków, którymi mogą być litery, cyfry i zna- 
ki interpunkcyjne. 

Atari dostarcza także pewnych „specjal- 
nych" znaków, które mogą być używane do 
kreślenia rysunków. Gdy uda się je pomys- 
łowo połączyć, można otrzymać interesują- 
ce kształty (patrz program nr 13). 

Rysunki w trybie znakowym możemy two- 
rzyć za pomocą instrukcji PRINT i POSI- 
TION, w taki sam sposób jak tekst. Grafika 
znakowa jest bardzo efektywna pod wzglę- 
dem zajętości pamięci. Na przykład ekran w 
trybie o wysokiej rozdzielczości (CGRA- 
PHICS 8) wymaga około 8000 komórek pa- 
mięci do przechowania wszystkich liczb 
reprezentacji bitowej. Używając znaków w 
zwykłym trybie tekstowym możemy zmieś- 
cić ten sam ekran w 960 bajtach pamięci 
(40 kolumn razy 24 wiersze). 

Może wydawać się. że jesteśmy ograni- 
czeni przez dysponowanie tylko dostępnymi 
w Atari znakami. Możliwe jest jednak two- 
rzenie własnych znaków, dostosowanych 
do naszych aktualnych potrzeb. Zwykle nie 
musimy przerabiać całego zestawu znaków. 
Często kilka zmian wystarczy do utworzenia 
takiego obrażu, jaki chcemy, 

Sposób tworzenia I wyświetlania zna- 
ków na ekranie opisaliśmy w drugim od- 
cinku naszego cyklu zamieszczonym w 
„IKS-le” nr 3 z 1987 roku. Dlatego postaramy 
się uniknąć powtarzania ograniczając się 
tylko do przypomnienia pewnych Istotnych 
informacji. 

Dobrze znanym sposobem umieszczania 
znaków na ekranie są instrukcje PRINT oraz 
POSITION. Poniżej przedstawiamy dwa 
mniej znane sposoby, Pierwszym z nich jest 
umieszczanie (za pomocą POKE) kodów 
znaków bezpośrednio w obszarze pamięci 
ekranu. W tym celu najpierw musimy zna- 
leźć adres początku pamięci ekranu. Robi- 
my to następująco: 

1 0 PAMEKR = PEEK (88) + 256-PEEK (89) 

Znając adres początku pamięci ekranu 
umieścimy w nim literę. W tym celu wpro- 
wadźmy następującą linię i RUN dla pro- 
gramu: 

20 POKE PAMEKR, 33 

W lewym górnym rogu ekranu pojawi się 
litera A. Kod wewnętrzny umieszczony w 
odpowiednim miejscu pamięci spowoduje 
wyświetlenie znaku na ekranie, 

Musimy pamiętać, że podczas ustawiania 
do pamięci używamy kodów wewnętrznych, 
a nie ATASCII. Obejrzymy teraz cały zestaw 
znaków komputera. W tym celu wprowadź- 
my następujące linie i RUN dla programu. 


5 GRAPHICS 0 

20 POSITION 2. 15:PRINT „Wstawia- 
nie" (POKE)" 

30 FOR X=0 TO 255 
40 POKE PAMEKR+X,X 
50 NEXT X 

Na ekranie otrzymamy wszystkie 128 
znaków, a następnie negatywy każdego z 
nich. W taki sposób możemy umieścić znaki 
bezpośrednio gdzieś w pamięci. 

Innym sposobem umieszczania znaków 
na ekranie jest użycie instrukcji PLOT w try- 
bie tekstowym. 

10 GRAPHICS 1 
20 COLOR (33+160) 

30 PLOT 5,7 

Powyższe instrukcje umieszczą niebieską 
literę A w miejscu o współrzędnych 5, 7. 
Nic nie stoi na przeszkodzie aby następną 
instrukcją było: 

40 DRAWTO 15,7 

Teraz jesteśmy już przygotowani do ani- 
macji pewnych znaków. Wystarczy użyć 
jedną z powyższych technik do zmiany zna 
ków w tym samym miejscu ekranu. Mały pro 
gram, przedstawiony poniżej, będzie an 
mował litery ABC. 

Wprowadźmy NEW, a następnie poniższ- 
linie: 

10 GRAPHICS 0 
20 POSITION 10,10 
30 PRINT „A" 

40 POSITION 10,10 
50 PRINT „B" 

60 POSITION 10,10 
70 PRINT „C" 

80 GOTO 20 

Odbywa się to dosyć sżybko. Szybkością 
możemy sterować za pomocą pętli opóźnia- 
jącej. Wykona to prosta pętla FOR— NEXT 
Dodajmy zatem poniższe linie: 

5 OPO=100 
35GOSUB 100 
55 GOSUB 100 
55 GOSUB 100 

1 00 FOR 1-1 TO OPO: NEXT LRETURN 

Sterowanie szybkością uzyskamy po 
przez zmianę wartości zmiennej OPO w lit' 
5. 


Powyższy efekt, z wykorzystaniem liter 
ABC, nie jest zbyt interesujący. Aby uzyskar 
naprawdę ciekawe efekty, konieczne jest 
dysponowanie znakami o odpowiednich 
kształtach, które musimy utworzyć sam 
Wiadomo że cały zestaw znaków zajmui' 
1024 bajty pamięci. Za pomocą instrukci 
POKE można zmienić kształt dowolneg. 
znaku, Pewne kłopoty sprawia fakt umie 


szczema ich w pamięci ROM, której zawar- 
tości nie można zmienić. 

Zestaw znaków jest zbiorem wzorów, któ- 
re definiuje kształt każdego znaku. Standar- 
dowy zestaw znaków Atari przechowywany 
jest w pamięci ROM. W celu utworzenia 
własnych znaków musimy umieścić nowy 
ich zestaw gdzieś w pamięci, a następnie 
poinformować komputer, aby używał nowe- 
lo zestawu w miejsce starego. Podstawową 
sprawą jest określenie gdzie umieścimy 
nowy zestaw znaków. 

Jeden ze sposobów rozwiązania powyż- 
szego problemu sugerowany jest w Dodatku 
12 książki „Mapping the Atari". Specjalny 
program kopiuje system operacyjny z ROM 
do RAM i wyłącza ROM. Zatem komputer 
„widzi" ukryty obszar RAM Po wykonaniu 
tego możemy, za pomocą POKE, umieścić 
własny zestaw znaków w obszarze zajmowa- 
nym początkowo przez zestaw międzynaro- 
dowy. Zaletą tej techniki jest to, że nowe 
znaki nie zmniejszają wielkości pamięci do- 
stępnej dla naszego programu. W podobny 
sposób rrtożemy zmienić kształt dowolnych 
znaków w standardowym zestawie. 

Inny sposób polega na utworzeniu włas- 
nych znaków w wybranym obszarze RAM i 
poinformowanie o tym systemu operacyj- 
nego, Jest to czynność pracochłonna i wy- 
konywana bardzo rzadko, bowiem wymaga 
zdefiniowania całego zestawu znaków. Łat- 
wiejsze i mniej pracochłonne jest modyfi- 
kowanie istniejącego zestawu, po uprzed- 
nim przepisaniu go z pamięci ROM do RAM. 

W obu wymienionych ostatnio sposobach 
istotne jest wybranie bezpiecznego miejsca 
w pamięci dla przechowania zestawu zna- 
ków. Zawsze musimy chronić dane poprzez 
umieszczenie Ich w takim miejscu, gdzie nie 
będą zniszczone. A system operacyjny, po- 
dobnie jak BASIC, stale przemieszcza swój 
kod. Na szczęście istnieje łatwy sposób 
tworzenia bezpiecznego miejsca. 

Granice używanej pamięci sterowane są 
przez RAMTOP w komórce 106 i MENTOP 
w komórkach 741 i 742. Komórki te prze- 
chowują wartości reprezentujące 256-bajto- 
we stronice pamięci. Poprzez zmianę ich 
wartości możemy „przekonać" komputer, że 
pewien nieużywany obszar pamięci jest już 
zajęty, 

RAMTOP przechowuje najwyższy numer 
stronicy wolnej pamięci RAM dostępnej do 
użycia. System operacyjny nie chce używać 
pamięci powyżej tej stronicy. Poprzez 
zmniejszenie jej numeru możemy używać 
RAM między oryginalną granicą I tą nową bez 
zakłóceń. 

Po przesunięciu RAMTOP w dół o 2 KB (8 
razy 256) otrzymamy bezpieczny obszar 
pamięci. Czasami pierwsze 1024 bajty są 
wciąż niepewne, dlatego będziemy używać 
drugiego 1 KB dla naszego zestawu zna- 
ków. 

Komouter wymaga, aby zestaw znaków w. . 
trybie graficznym 0 zaczynał się od adresu W 
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^ podzieinego przez 1024 (dla GR.1 lub 2 
podzielny przez 5120. Oznacza to dwie, 
albo cztery stronice naraz. 

Jesteśmy już gotowi do rozpoczęcia ani- 
macji. Musimy zmodyfikować trzy znaki. 
Lecz najpierw musimy przesunąć standar- 
dowy zestaw znaków z ROM do RAM. Mo- 
żemy to zrobić następująco: 

100 NOWYZ=PEEK (106) 

110 NOWYZ=NOWYZ-8:POKE 106, 
NOWYZ 

120 GRAPHICS 0 
1 30 CHSET=57344 
140 FOR BAJT=0 TO 1023 
150 POKE NOWYZ*256+BAJT, PEEK 
(CHSET+BAJT) 

160 NEXT BAJT 


888 = 00111000 = se 

888 8 - 01110100 - 116 

8888888 a 11111110 > 254 

88888 » 01111100 « 124 

fltl a 01000100 a 66 

tt a O a 10100100 a 16U 

a a 00000100 a a 

aa a 00001010 a 10 


170 ZESaN0WYZ#256 
160 FOR ZNRKa65 TO 67 
190 FOR BRJTaO TO 7 
200 READ ORNE 

210 POKE Z£S+ZNAK*8+BAJT/ ORNE 
220 NEXT BAJT 
230 NEXT ZNRK 


Wykonanie powyższego programu zajmu- 
je około 1 5 s. Lepiej będzie wykorzystać do 
tego procedurę w języku maszynowym. Nie 
musimy wiedzieć jak ona działa, wystarczy 
umieć ją użyć. To znaczy, jak włączyć ją do 
programu w BASIC-u oraz jak wywołać i z 
jakimi parametrami. 

10 DIM MM $ (41 ) 

20 FOR ZNAK=1 TO 41 
30 READ KOD 

40 MM $ (ZNAK, ZNAK)=CHR$ (KOD) 
50 NEXT ZNAK 

60 DATA 1 04, 1 04, 1 33, 207, 1 04, 1 33, 
206, 104, 133, 209,104, 

70 DATA 1 33, 208, 1 04, 1 70, 1 60, 255, 
138, 208, 2,104, 168,177 
80 DATA 206, 145, 208, 136, 192, 
255, 208, 247, 230, 207, 230 
90 DATA 206, 202, 224, 255, 208, 233, 
96 

130 CHSET=57344 

140 X=USR (ADR) MM$, (CHSET, 
NOWYZ‘256, 1024) 

Teraz zestaw znaków Atari jest już w 
chronionym obszarze RAM. Możemy to 
sprawdzić zmieniając wartość CHBAS: 

POKE 756, NOWYZ 

Następnie należy podjąć decyzję, którym 
znakom chcemy nadać nowe kształty. Nie 
mamy potrzeby używania którejkolwiek z li- 
ter, dlatego podmienimy znaki CONTROL-A 
do CONTROL-C. Normalnie są to znaki gra- 
ficzne Atari, ich kody ATASCII mają odpo 
wiednip wartości od 1 do 3. 

Jak już wspomnieliśmy, zestaw znaków 
ma inną kolejność niż ATASCII. W podrę 
czniku języka BASIC możemy sprawdzić, ze 
znaki te mają kody wewnętrzne 65 do 67, 

Poniżej prezentujemy trzy różne kształty 
robota, a także linie programu, które to reali- 
zują: 


888 
8 888 
8888888 
88888 
8 8 
8 8 8 
8 

8 8 


888 
88 88 
8888888 
88888 
8 8 
8 8 
8 8 
8 8 8 8 


b 00111000 * 56 

• 01011100 - 92 

- 11111110 c 254 

« 01111100 - 124 

■ 01000100 ■ 68 

- 01001010 ■ 74 

■ 01000000 ■ 64 

o 10100000 6 160 


B 00111000 B 56 
B 01101100 B 108 
B 11111110 B 254 
B 01111100 B 124 
B 01000100 B 66 
B 01000100 B 66 
B 01000100 B 68 
B 10101010 s 170 


1000 DATA 56/ 92/ 254/ 124/ 68, 74, 64, 160 
1010 OATA 56, 106, 254, 124, 66, 68, 66, 170 
1020 DATA 56, 116, 254, 124, 66, 164, 4, 10 

Nasz zestaw znaków jest już gotowy do 
działania, poinformujemy komputer, gdzie on 
jest: 

240 POKE 756, NOWYZ 

Wprowadźmy teraz kod poruszający robo- 
ta: 

250 POKE 752,1 
260 POSITION 10,4 
270 PRINT CHR$(4) 

280 RESTORE 1100 
290 FOR LP=1 TO 3 
300 READ ZNAK 
310 POSITION 10,2 
320 PRINT CHR$ (ZNAK) 

330 FOR CZEK=1 TO 2 
340 NEXT CZEK 
350 NEXT LP 
360 GOTO 270 
1100 DATA 1,2,3 

Zauważmy, że animacja robota polega na 
wyprowadzaniu różnych wersji, jednej po 
drugiej, w tym samym miejscu ekranu, z ma- 
łym opóźnieniem między nimi, w celu umoż- 
liwienia obejrzenia każdego z obrazów. Po- 
dobna technika używana jest przez część 
programów do realizacji prostej animacji, 

Jeśli chcemy wypróbować zestaw zna- 
ków w trybach GR.1 i 2, dokonujemy nastę- 
pujących zmian w programie: 

120 GRAPHICS 1:REM LUB 2 
240 POKE 756.NOWYZ+2 
270 PRINT#6 CHR $ (4) 

320 PRINT #6 CHR $ (ZNAK) 

Serca możemy usunąć z ekranu poprzez 
przedefiniowanie znaku serca na znak spa- 
cji. Jeśli potrzebne nam są wielkie i małe li- 
tery, możemy to uzyskać poprzez przedefi- 
niowanie zestawu znaków tak, aby znaki 
graficzne stały się wielkimi literami. W celu 
szybkiego dokonania modyfikacji możemy 
użyć procedury przechowywania w zmien- 
nej MMs. Następująca instrukcja przesunie 
wielkie litery w miejsce znaków graficznych 
w pamięci. 

X=USR (ADR (MM$), 57377, NOWYZ * 

256+65,26) 

Teraz naciśnięcie CTRL-A da nam wiel- 
kie A. 
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Jeśli chcemy szybko przełączyć kilka ze- 
stawów znaków możemy wykorzystać jedną 
z poniższych technik: 

1. Możemy wprowadzić kilka kształtów 
znaków do RAM i przełączać wskaźnik po- 
czątku zestawu na odpowiedni krój. Jest to 
nieefektywne, ponieważ musimy przecho- 
wywać w pamięci wiele zestawów znaków. 

2. Możemy wykorzystać procedurę MMs. 
Przesunie ona nasz zestaw znaków ze 
zmiennej tekstowej do RAM, a wskaźnik po- 
czątku zestawu pozostaje niezmieniony. Po- 
trzebny jest tylko jeden obszar dla wszyst- 
kich danych. 

Po tej części opisowej wprowadźmy do 
komputera program nr 2 i połączmy go z 
programem nr 1 Program nr 3 przygotu- 
je nam linie 1 10 i 150, które również należy 
dołączyć. 

Program wynikowy wykonuje animację 
poprzez wyprowadzanie zmodyfikowanych 
znaków w tym samym miejscu ekranu. 

Otrzymana sylwetka jest bardzo mała i 
wykonuje ruchy w miejscu. Można ją po- 
większyć poprzez użycie do kreślenia kilku 
znaków. W tym celu wprowadźmy program 
nr 4 i przechowajmy go w pamięci zewnętrz- 
nej. Program nr 5, po wprowadzeniu i uru- 
chomieniu, przygotuje nam linie 21 1 0—21 20, 
które należy dołączyć (za pomocą ENTER) 
do programu nr 4. 

Program ten dodaje pewne nowe linie do 
poprzedniego, w celu powiększenia sylwetki 
robota, i usuwa inne. Dlatego wprowadźmy 
wszystkie instrukcje REM, które usuwają 
stare linie, Połączmy go z programem po- 
przednim. 

W programie nr 4 występują dwa interesu- 
jące chwyty. Pierwszym jest przechowanie 
kształtu znaków w zmiennej tekstowej. Poz- 
wala to zaoszczędzić pamięć, ponieważ 
każda liczba (jak np.: 240) przechowywana 
wcześniej w instrukcji DATA, teraz jest za- 
pamiętana w jednym bajcie. Drugi chwyt, w 
liniach 200 i 210, powoduje szybkie przes- 
łanie nowych kształtów do nowego zestawu 
znaków. 

Prostym sposobem sprawdzenia po- 
prawności utworzonych znaków jest zatrzy- 
manie komputera po dokonanu przez niego 
zmiany znaków. Teraz wystarczy nacisnąć 
odpowiednie klawisze, aby zobaczyć na ek- 
ranie nowe kształty. W naszym wypadku 
naciśnijmy następujące klawisze: 

abc def ghi jkl mno pqr 

Powinno to wyświetlić różne części no- 
wo utworzonych kształtów. W ten sposób 
wygodnej jest obejrzeć nowe znaki niż pod- 
czas działania programu (są one nierucho- 
me). 

Jak widać z powyższego spisu, tworzenie 
własnych znaków nie jest zadaniem trud- 
nym, lecz jakże pracochłonnym. Dlatego w 
celu ułatwienia pracy proponujemy wyko- 
rzystać prezentowany edytor znaków. 
Oprócz normalnych własności posiada on 
dwie dodatkowe: animacje wybranego cią- 
gu znaków oraz łączenie czterech znaków w 
jedną większą jednostkę. 

W celu uzyskania własnej kopii edytora 
należy wprowadzić program nr 6 i prze- 
chować go w pamięci zewnętrznej. Program 
nr 7 przygotowuje pewne linie dla programu 
nr 6, które ciężko byłoby wprowadzić z wy- 
druku. Dlatego po wprowadzeniu programu 
nr 7 należy uruchomić go i otrzymane w 
pamięci zewnętrznej linie dołączyć do pro- 
gramu nr 6. 


Po uruchomieniu programu wynikowego 
zobaczymy ekran podzielony na pięć pod- 
stawowych obszarów roboczych. 

1 . Siatka edycji — każdy z 64 kwadratów 
w siatce reprezentuje bit — każdy poziomy 
wiersz bitów reprezentuje bajt Jest to pod- 
stawowy obszar dla edycji lub animacji zna- 
ków 

2. Obraz znaku — podczas 'edycji widzi- 
my, jak będzie wygląda) znak w trzech róż- 
nych trybach graficznych. Każdy znak jest w 
innym kolorze, lecz tylko dla wyróżnienia go. 

3. Menu — wykaz podstawowych rozka- 
zów edytora. W celu wybrania funkcji należy 
wprowadzić literę umieszczoną z lewej 
strony. Po wybraniu funkcji (me należy naci- 
skać klawisza (RETURN) tekst podświetlany 
jest na niebiesko. 

4. Obraz zestawu znaków — reprezenta- 
cja aktualnych kształtów znaków. 

5. Obszar we— wy — służy do wyświetla- 
nia komunikatów błędów i innych informacji. 

Tryb kursora u góry menu, podświetlany 
jest na niebiesko, kiedy działamy w siatce edy- 
cji, W tym trybie dostępne jest sześć nastę- 
pujących funkcji: 

1. Przesuwanie kursora. Do ustawienia 
kursora używamy klawiszy strzałek. Nie na- 
leży naciskać (CONTROL) lub (SHIFT). 


2. Kreślenie. Używarriy^ej clo kreślenia i 
kasowania wewnątrz siatki edycji, Jeśli kur- 
sor jest na pustym kwadracie, naciśnięcie 
(CONTROL) i klawisza strzałki wypełni go. 
Jeśli kursor jest na wypełnionym kwadracie, 
użycie (CONTROL) i klawisza strzałki 
oczyści go. Kursor przesuwany jest w kie- 
runku naciśniętej strzałki. 

3. Powrót. Naciśnięcie (H) przesuwa kur- 
sor do pozycji początkowej: lewego górnego 

' rogu siatki edycji. Naciśnięcie (CONTROL) 
(H) przesuwa kursor do prawego dolnego ro- 
gu siatki. 

4. Przesuwanie siatki. Naciśnięcie 

(SHIFT) i klawisza strzałki przesuwa znak w 
siatce edycji o jeden wiersz w kierunku 
strzałki. 

5. Wartość bajtu. Aby zobaczyć wartość 
bajtu każdego wiersza, należy nacisnąć (N). 
Dla wyłączenia tych wartości naciskamy 
(CONTROL) (N). 

6. Przełączanie kursora. Naciśnięcie 

klawisza (SPACEBAR) wyłącza kursor. Na- 
ciśnięcie klawisza strzałki — włącza. 

Funkcje wprowaź (L) i przechowaj () służą 
do przemieszczania zestawów znaków z do 
pamięci zewnętrznej. Po wybraniu ich musi- 
my podać nazwę zbioru lub C:. 

W celu pobrania znaku do siatki edycji na- 
leży nacisnąć (G) i (RETURN). Klawisze 


strzałfek’ ustawiają kursor na znaku, który 
chcemy poprawiać. 

W celu przeniesienia znaku z siatki edycji 
i umieszczenia go w zestawie znaków nale- 
ży nacisnąć klawisz (P). Jest to funkcja 
odwrotna do pobrania. Można ją wykorzy- 
stać do tworzenia wielokrotnych kopii. 

Naciśnięcie (C) czyści siatkę edycji. Ka- 
suje tylko wybrany znak. Nie zmienia innych 
znaków 

Funkcja (I) inicjuje działanie edytora. 
Odtwarza wszystkie znaki w ich oryginal- 
nych kształtach. 

Naciśnięcie (A) umieszcza kolejno znaki 
zarówno w siatce edycji, jak i obok niej. 
Przedtem musimy podać znaki, które będą 
animowane, 

Składany znak wygląda podobnie jak du- 
ży znak, lecz jest aktualnie składany z kilku 
standardowych. Naciśnięcie (B) powoduje 
przejście do budowy złożonego znaku i wy- 
maga wprowadzenia czterech znaków. Po- 
jawią się one w obszarze wyświetlania w 
trybie GR. 2. 

Naciśnięcie () kończy pracę programu. 
Upewnia się on dodatkowo, czy na pewno 
chcemy to zrobić. Jakkolwiek odpowiedź 
inna niż (T) powoduje powrót do programu. 

Animacia w trybach graficznych wymaga 
nieco innego podejścia i być może będzie 
przedstawiona w ramach cyklu. 


FK i rem **************** 

FJ 2 REM * * 

Xfl 3 REM * Pro* ran nr 1 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

ON 1040 GRAPHICS 0'POKE 752,1 
IX 1050 SETCOLOR 2, 0, 0 « SETCOLOR 1 
,0,10 

VY 1060 FOR R-15 TO 22 
,L0 1070 POSITION 2, R'? 

JI 1080 NEXT R 

GI 1090 POSITION 2,14'? "H " 

WO 1100 POSITION 3,13'? "PPPpPP " 
HH 1110 POSITION 1,15'? "H" 

KV 1120 FOR R“6 TO 13 
MG 1130 POSITION 8,R ? " " 

IY 1140 NEXT R 
AL 1150 POSITION 1,9'? "RWRRWR “ 

RU 1160 POSITION 1,10? " " 

RH 1170 POSITION 1,11'? "2fl0EE" 

QF 1180 POSITION 13,0'? 

DH 1190 FOR R=1 TO 6 

LW 1200 POSITION 13-R, R ' ? "H" 

NF 1210 POSITION 14+R,R-? "J" 

IU 1220 NEXT R 
JO 1230 FOR R=6 TO LI 
KZ 1240 POSITION 19,R'? 

JD 1250 NEXT R 
MV 1260 POSITION 20,11 

BS 1270 ? " " 

OU 1280 POSITION 24,10 

LM 1290 ? " , " 

SZ 1300 FOR R-lOo 22 
MX 1310 POSITION 33,R ' ? 

IU 1320 NEXT R 

FK 1370 POSITION 13,5'? "FMMMG" 

RZ 1380 POSITION 13,6'? "V Es" 

JT 1390 POSITION 13,7'? “GNNNF " 

EE 1400 POSITION 0,23 

MD 1410 FOR 1=1 TO 39'? : NEXT 
I 

OM 1420 RESTORE 1480 

EB 1430 FOR GU=1 TO 10 

ET 1440 READ C,R POSITION C,R«? " 

SU 1450 NEXT GU 

VG 1480 DATA 2,1,3,3,19,0,23,0,29 
,0, 18,2,24,5,26, 1,31,2,38,2 


FK 1 REM **************** 
FJ 2 REM * * 
XU 3 REM * Pro* ram nr 2 * 
FL 4 REM * * 
FO 5 REM **************** 
NL 6 REM 


QM 100 REM 
QS 130 REM 

IK 140 DIM ZNACZKI *<24 ) 

MV 160 TM=PEEK< 106) 

MD 170 CB-TM-8 - CA=CB*256 ' NCA=CA+2 
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PI 180 POKE 106,CB-8 
SI 190 X«USR< ADR < MM*), 224*256, CR, 
1023) 

NY 200 X«USR < ADR < MM*), ADR (ZNACZKI 
*),NCA, 24) 

PK 2000 POKE 756, CB 
QN 2010 C-5'R=22 
AS 2020 POSITION C,R 
MF 2030 ? #6;"#"; 'GOSUB 2090 
AY 2040 POSITION C,R 
MX 2058 ? #6;"*% 'GOSUB 2090 
BE 2060 POSITION C,R 
NP 2070 ? #6; "X" ; 'GOSUB 2090 
OY 2080 GOTO 2020 
GJ 2090 FOR 1-1 TO 50 
ES 2100 NEXT I 
AF 2110 RETURN 

FK 1 REM **************** 

FJ 2 REM * * 

YO 3 REM * P roi ram nr 3 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

PJ 35 REM UTWORZENIE LINII 110-15 
0 

KA 45 REM ZMIEŃ LINIE 70 JEŚLI PR 
ACUJESZ ZE STACJA DYSKÓW 
MG 50 DIM FN*<20) , TEMP*(20) , AR*(9 
3) 

HO 60 DPL=PEEK< 10592) 'POKE 10592, 
255 

AJ 70 FN*-"C'" 

YS 80 GRAPHICS 0'? " ANTIC'S 
GENERIC BASIC LOADER" 

CD 90 ? , "BY CHARLES JACKSON" 

PW 100 POKE 1 0592, DPL- TRAP 170 
JO 110 ? '? •? "Tworzenie " ; FN* ' ? 

"...proszę czekac." 

LQ 120 RESTORE 'READ LN‘LM=LN'DIM 
A*(LN)<C-1 

BK 130 AR*-" "-READ AR* 

XW 140 FOR X-1 TO LEN (AR*) STEP 3 
-POKE 752,255 

DT 150 LM-LM-1 'POSITION 10,10'? » 
(Odl iczanie. . . T-" s INT(LM/10) > " 

) 


UY 

OT 


WU 


AL 

PP 

TY 

FK 

IT 


ZF 


SZ 


MG 


160 A* < C , C ) “CHR* < VAL < AR* < X , X+2 
))) 'C-C+l 'NEXT X 1 GOTO 130 ' 

170 IF PEEK (195) -5 THEN ? '? ’ 
? CHR*< 125) ; "ZA DUŻO LINII DAT 
A !"'? "UTWORZENIE ZBIORU NI EM 
OZLIWE! " >END 

180 IF CCLN+l THEN ? «? CHR*<1 
25); "ZA MAŁO LINII DATA!"'? "U 
TWORZENIE ZBIORU NIEMOŻLIWE!"' 
END 

200 OPEN #1 , 8, 0, FN* 

210 POKE 766,1'? # 1 ; A* ; 1 POKE 7 
66,0 

220"CLOSE #1' GRAPHICS 0'? "fe&tł 
1000 DATA 104 

1010 DATA 04904904803206807307 
703207707703604005204904 1 05807 
707703606 1 034 1041041 33207 10413 
3206104133209 

1020 DATA 10413320810417016025 
5 1 38208002 1041681 77206 1 45208 1 3 
6 1 9225520824723020723020920222 
4255208233096 

1030 DATA 03415504905304803209 
007806506709007507303606 1 03405 
6092254 1 24068074064 1 60056 1 0825 
4124068068068 

1040 DATA 17005611625412406816 
4004010034155 


FK 1 REM **************** 

FJ 2 REM * * 

21 3 REM * Proa ram nr 4 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 
NA 99 GOTO 110 

EH 100 FOR 1=1 TO 50 ' NEXT I ■ RETUR 
N 

OS 130 REM 

IH 140 DIM ZNACZKI* ( 76)' DL Y= 100 
GW 150 REM 
GY 160 REM 

ET 170 CB-PEEK < 740 ) -4 ' POKE 106, CB 
-12 'CA=CB*256' GRAPHICS 0 
RC 180 REM 

TU 200 CA«CA+( 96*8) 'FOR SEC=0 TO A 
1 ' GOSUB 2 1 1 0+ 1 0*SEC ' X=USR < ADR < W 
MM* ) , ADR < ZNACZK I * ) , CA , 75 ) 
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GF 210 CA-CA+76 - NEXT SEC 
0V 1040 POKE 752, 1 
HX 2080 REM 
XB 2010 X-5 1 Y-20 
AJ 2020 POKE 756,CB+2 
SJ 2030 POSITION X,Y<? #6; "*b" -PO 
SITION X/ Y+l 1 ? #6; "cd" 'POSITIO 
H X, Y+2 1 ? #6, "ef " - GOSUB DLY 
QU 2040 POSITION X,Y>? #6;"«h"-P0 
SITION X, Y+l 1 ? #6;"iJ" -POSITIO 
N X,Y+2-? #S; "k 1 " - SCROLL-SCROL 
L+2- GOSUB DLY 

PZ 2050 POSITION X, Y- ? #6;"mn"-P0 
SITION X, Y+l - ? #6; "op" -POSITIO 
N X, Y+2 - ? #Sj"qr" - SCROLL-SCROL 
L+4- GOSUB DLY 
PF 2060 GOTO 2030 
IS 2070 REM 
IV 2080 REM 
IY 2090 REM 
HZ 2100 REM 


FK 1 REM **************** 

FJ 2 REM * * 

AC 3 REM * Prot r am nr 5 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

GI 35 REM UTWORZENIE LINII 2110-2 
120 

Kfl 45 REM ZMIEŃ LINIE 70 JEŚLI PR 
RCUJESZ ZE STACJA DYSKÓW 
MG 50 DIM FN*<20) , TEMP*(20) , AR*(9 
3) 

HO 60 DPL-PEEK( 10592) -POKE 10592; 
255 

AJ 70 FN*-"C ' " 

YS 80 GRAPHICS 0-? " ANTIC' S 
GENERIC BASIC LOADER" 

CD 90 ? , "BY CHARLES JACKSON" 

PW 100 POKE 10592, DPL- TRAP 170 
JO 110 ? -? -? "Tworzeni* "jFN*-? 

"...proszę czek sc." 

LQ 120 RESTORE -READ LN-LM-LN-DIM 
A*(LN)-C-1 

BK 130 AR*-"" -READ AR* 

XW 140 FOR X-1 TO LEN < AR*) STEP 3 

i pnićF 7^0 . 

DT 150 LM-LM-1 -POSITION 10,10-? " 
(Odliczenie. . . T-" j INT(LM/10) i " 
) 

UY 160 A*(C,C)-CHR*(VAL(AR*(X, X+2 
))) -C-C+l -NEXT X - GOTO 130 
WE 170 IF PEEK( 195)-5 THEN ?<?< 
?• CHR*(125)J"ZA DUŻO LINII DAT 
A !"-? "UTWORZENIE ZBI ORUNI EMO 
ZLIWE ! " -END 

WU 100 IF C<LN+1 THEN ? -? CHR*<1 
25); "ZA MAŁO LINII DATA!"-? "U 
TWORZENIE ZBIORU NIEMOŻLIWE !" - 
END 

AL 200 OPEN #1,8,0, FN* 

PP 210 POKE 766,1-? #1;A*j -POKE 7 

66,0 

TY 220"CLOSE #1 -GRAPHICS 0'? 

GH 1000 DATA 214 

IX 1010 DATA 05004904904803209007 
806506709007507303604004904405 
505404 1 06 1 03400000000000000000 
0000000000003 

EX 1020 DATA 00501101101100500300 
024023221224413223224000400901 
101901901701603101620020013620 
0200008248001 

GA 1030 DATA 00300701402805606006 
01281921 92224096 1 1 20600600070 1 
102302302301 100700822420816823 
2008200224016 

BH 1040 DATA 00901701701703405800 
2069084065082078032 1 5505004905 
004803209007806506709007507303 
6040049044055 


LG 1050 DATA 05404106103401601603 
1 003208200200232232008248 1 9200 
30030 1 5062 12011 2056024 19219219 
2192192192240 


Z8 1060 DATA 24000701102302302301 
100700822420816823200820822401 
60090090 1701601601 603 100320020 
0232248120008 

EK 1070 DATA 24819200300700700701 
501501501522422419212812819219 
200003405808206908408508207803 
2155 


FK 1 REM **************** 

FJ 2 REM * * 

AW 3 REM * Proeram nr 6 * 

M i BER i C2 - 1 I 

FP 6 REM **************** 

*NM 7 REM 
IC 2110 REM 
SC 2120 GOTO 2640 
ZY 2130 REM WCZYTANIE CIĄGU ZNAKO 
W 

ZB 2140 X-1 

DX 2150 POSITION 1,22'? D*>M*; -M* 

IA 2160 GET #1 , KEY - ? CHR*(KEY)j 
JS 2170 IF KEY- 155 THEN 2210 
NY 2180 IF KEY 0 126 THEN 2200 
IT 2190 IF X>1 THEN X-X-l-GOTO 21 
60 

VJ 2200 M*(X)-CHR*(KEY) - X-X+l - GOT 
O 2160 

GU 2210 POKE 702, 64 -POSITION 1,22 
-? D*; 

AK 2220 RETURN 

GY 2230 REM POBRANIE NAZWY ZBIORU 
ZNAKÓW 

DV 2240 IF M*-"" THEN M*-"Q" 

QE 2250 IF M*-"Q" THEN POP -GOTO 
3170 

YQ 2260 F*«"D - " - IF M*»"C<" THEN F 
*-M* - GOTO 2350 

DZ 2265 IF LEN<M*)<3 THEN 2300 
ZC 2270 IF M*<2, 2)»" - " THEN 2290 

GA 2280 IF M*<3, 3) O THEN 2300 

RB 2290 F*-M* - GOTO 2310 
TW 2300 F*(3)-M* 

I 2310 FOR 1-1 TO LEN(F*) 

HP 2320 IF F*< I , I )-" . " THEN 2350 
FF 2330 NEXT I 

DD 2340 F*(LEN(F*)+1 )-".FNT" 

PQ 2350 TRAP 3820 -POKE 752,1-? F* 

AY 2360 RETURN 
DY 2370 REM MALUJ MATRYCE 
GI 2380 POKE 752,1 -POSITION 1,3-? 
OQ 2390 X-USR < ADR < PX* ) , ADR < X* ) , MA 
) 

ZG 2400 FOR 1-0 TO 7 
DN 2410 POSITION 10,1+5'? " ";C 

HR*<30) ; CHR*<30) , CHR*<30) ; 

GH 2420 IF N-l THEN ? PEEKCI+CHA) 
FH 2430 NEXT I 
AU 2440 RETURN 
IU 2450 REM 

LT 2460 IF CH<32 THEN CHR-CH+64 
IY 2470 IF CH>31 THEN CHR-CH-32 
SA 2480 IF CH>95 THEN CHR-CH 
TE 2490 CHA-CA+CHR*8 
QP 2500 X-U8R < ADR < MB* ) , CHA , ADR < X* 
)) 

MR 2510 POKE SA+22+4*40, CHR 
FU 2520 X-USR < ADR < MM* ) , CHA , PA+542 
,7) 

EM 2530 IF BLD-0 THEN 2610 
DA 2540 X-USR < ADR < MM* ) , BA < 1 ) , PA+6 

90.7) 

OV 2550 X*USR < ADR < MM* ) , BA < 3 ) , PA+6 

98.7) 

GU 2560 X-USR < ADR < MM* ) , BA < 2 ) , PA+8 

18.7) 

2570 X-USR < ADR < MM* ) , BA ( 4 ) , PA+8 

26.7) 

BI 2580 RETURN 

ZS 2590 X-USR < ADR < FM* ) , PA+640 ,0,2 
55) 

UG 2600 BLD-0 -POKE 53249,138 
NO 2610 X-USR < ADR < MM* ) , CHA , PA+693 
,7) 

AS 2620 RETURN 


FK 1 REM **************** 
FJ 2 REM * X 
AW 3 REM * P roi ram nr 6 # 
VZ 4 REM * cz. 2 * 
FM 5 REM * * 
FP 6 REM **************** 
NM 7 REM 


ZN 

WF 

PZ 

UM 

AV 


YK 

MZ 

OZ 

YZ 

GA 

FG 

JX 


KD 

.FU 

QL 

FP 

Z1 

FT 

XT 

ZY 

OQ 

AZ 

GH 

SR 

RP 

SN 


PV 

BC 

FY 

MX 

EJ 

UQ 


NQ 

RV 

zx 

XR 


FP 

FR 

AB 

YU 

AJ 

CQ 

RK 

IA 

SL 

DA 

EL 

KP 

IE 

OS 

ZA 

CQ 

OM 

HP 

FE 

CR 

SB 


2630 REM DEKLARACJE 

2640 DIM B*(4),BA(4),C*(26),D* 

(38) 

2650 DIM F*(20),M*(40),P(26),X 
*(64) 

2660 X*(1)-CHR*(127)-X*(64)-X* 
- X*(2)-X* 

2670 D*( 1 )-" " - D*( 19)-D*( 1 ) -D* 
(2)-D* 

2680 FOR K-20 TO 38 -D*(K,K)-CH 
R*(30) - NEXT K 
2710 TM-PEEK( 106) 

2720 PB-TM-4 - PA-PB*256 
2730 CB-PB-4 - CA-CB*256 
2740 POKE 106,CB-4 
2750 GRAPHICS 0-REM POKE 559,0 
2760 P08ITI0N 1,3'? 

2770 DL-PEEK ( 560 ) +PEEK (561) *25 
6 

2780 8A-PEEK ( DL+4 ) +PEEK ( DL+5 ) * 

2790 MA-SA+ 1+5*40 
2800 FOR 1-1 TO JLEN(C*) 

2810 IF I <18 THE!N B-PA+920 
2820 P(I )-B+4 - B-B+4 
2830 NEXT I 
2840 GOSUB 5000 
2850 OPEN #1,4,0, "K-" 

2860 REM GRAFIKA P/M 

2870 POKE 54279, PB -POKE 53277, 

3 

2880 POKE 623, 1 

2890 POKE 53256,0 -POKE 53257,1 
2900 POKE 53258,1 -POKE 53259,3 
2910 POKE 704, 84 -POKE 705,38 
2920 POKE 706, 38 -POKE 707, 132 
2930 X-USR ( ADR ( FM* ) , PA+5 1 2 , 0 , 5 
12) 

2940 POKE 53248, 150 -POKE 53249 
,138 

2950 POKE 53250, 146 -POKE 53251 
,170 

2960 GOTO 3020 

2970 REM INICJOWANIE ZNAKÓW 

2980 POSITION 1,22-? D*; 

2990 ? "INICJACJA (T/N)? "j 'GE 
T #1 , KEY 

3000 POSITION 1,22'? D*J 
3010 IF KEY O 84 THEN 3160 


3020 X-USR ( ADR (MM * ) , 224*256 , CA 
, 1024) 

3030 FOR I-O TO 7 

3050 p 88I sama” 

3060 IF 1-0 THEN POKE CA+ 127*0 
,0 

3070 IF 1*7 THEN POKE CA+7+127 
* 8,0 

3080 NEXT I 

3090 C1-15-R1-2- CH-A8C ("11") 
3100 POKE 756, CB- POKE 82,1 
3110 POKE 709, 10 -POKE 710,0 
3120 POKE 559,46 
3130 REM MALUJ ZNAK 
3140 GOSUB 2460 -GOSUB 2380 -POK 
E 752,0 

3150 REM WEJŚCIE Z KLAWIATURY 
3160 C-1'R-1-CX-1-RX-1 
3170 POSITION C/R+4-? CHR*(31) 
;CHR*<30); 

3180 GET #1, KEY -POKE 752,0 

3190 REM KASUJ BLAD 

3200 IF NOT E THEN 3250 

3210 POKE 752,1 

3220 POSITION 1,22-? D*-E-0 

3230 POSITION C,R+4-? CHR*(31> 

i CHR*<30) i 

3240 POKE 752,0 

3250 FOR B-l TO LEN(C*) 

3260 IF KEY-ASC(C*(B, B) ) THEN 
3300 

3270 NEXT 8 

3280 POSITION 1,22'? CHR*(253) 

J r 
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OL 3250 E-1'GOTO 3170 

OY 3300 X-USR(ADR<FM#),P<1),0,40) 

VQ 3310 X-USR(ADR(FM#),P(B),255,4 
) 

YR 3320 ON B GOTO 4380.4590,4600, 
4610 

OD 3330 ON B-4 GOTO 4630,4640,465 
0,4660 

PR 3340 ON B-8 GOTO 4350,4330,455 
0,4350 

CY 3330 ON B-12 GOTO 3430,3440,34 
60,3480 

TL 3360 IF B-17 THEN 3300 

BL 3370 IF NOT BLD OR 8-26 THEN 
3390 

NI 3380 IF B<20 OR B>21 THEN GOSU 
8 2590 

HR 3390 ON B-17 GOTO 4240,3360,33 
20,3860 

UZ 3400 ON B-21 GOTO 2980,3690,38 
60,3730 

DF 3410 IF B-26 THEN 4890 


fk i rem mm#*##**#*## 

FJ 2 REM * » 

RW 3 REM * Prof r*m nr 6 * 

ffi i RH i “■ 3 ! 

FP 6 REM ***##**##*##*##* 

NM 7 REM 

HF 3420 REM KUR80R POZ. POCZ. 

NK 3430 C-l 'R-l -CX-C'RX«R'GOTO 31 
70 

8X 3440 C-8 1 R-8 • CX-C 1 RX-R 1 GOTO 31 
70 

IV 3450 REM 

XK 3460 N-1'GOSUB 2400 ■ GOTO 3170 
JB 3470 REM 

XI 3480 N-0 1 GOSUB 2400 'GOTO 3170 
HP 3490 REM WYLRCZ KURSOR 
PB 3300 POKE 752,1 'GOTO 3170 
IL 3310 REM 

G8 3520 X-USR(ADR(FM#> , ADR(X#) , 12 
7,64) 

HR 3330 X-USR < ADR < MS# ) , ADR ( X# ) , CH 
. A) 

QU 3540 GOTO 3140 
EX 3350 REM BLD 

DN 3560 M#-"4 ZNRKI? " ' G08UB 2140 
B8 3570 B#-M#-IF M#-"Q" THEN 3170 
DH 3580 IF LEN(B#)-4 THEN 3600 
10 3590 ? CHR#< 253) 'GOTO 3560 
0V 3600 X-U8R < ADR ( FM# ) , PA+690 ,0,1 
6) 

JM 3610 POKE 33249, 130- BLD- 1 
RF 3620 X-USR<ADR<FM#),PA+818,0,i 
6) 

VN 3630 FOR 1-4 TO 1 STEP -1 
PM 3640 CH-ASC<B*(I, I)) -GOSUB 246 
0 

FP 3650 BA< I )-CHA 
FV 3660 NEXT I 
RF 3670 GOTO 3140 
DR 3680 REM LĄDUJ ZNAKI 
UZ 3690 M#-" LĄDUJ? " 

LS 3700 GOSUB 2 140 -GOSUB 2240 
QX 3710 OPEN #3,4,0,F#'POKE 732,1 
Al 3720 X-USR(ADR<CC#) , 3, 7, CA, 100 
8) 

WC 3730 GOTO 3790 
CW 3740 REM ZAPISZ ZNAKI 
JG 3750 M*-" ZAPISZ? " 

MK 3760 GOSUB 2 140 -GOSUB 2240 
TT 3770 OPEN #3, 8, 0, F* ' POKE 752,1 
EE 3780 X-USR(ADR(CC#),3, 11, CA, 10 
24) 

PA 3790 CLOSE #3 

CN 3800 POSITIGN 1,22'? Di 

MQ 3810 POKE 752,1 -GOTO 3140 


OD 3820 CLOSE #3'P08ITI0N 1,22'? 
O*) 

OU 3830 ? CHR#<253) ) " ZLA NAZWA Z 


FX 3840 E- 1 ■ POKE 732,0'GOTO 3170 
YA 3830 REM WEZ44STAW ZNAK 
MR 3860 IF NOT BLD THEN 3940 
PK 3870 M#-"WYBIERZ "'M#<9)-B* 

PA 3880 M#< 13)-"? " -GOSUB 2140 
ZD 3890 FOR 1-1 TO 4 


IJ 3900 IF M#-B#<r,T) r THEN 3930 
FM 3910 NEXT I 

LU 3920 ? CHR$< 253) -GOTO 3870 
ZQ 3930 CH-ASC<M$) 'GOTO 3140 
DA 3940 POSITION C1+20,R1+15'? CH 
R#<31 ) > CHR#<30) J 

DD 3950 POSITION C1+20,R1+15'? CH 
R#<31)jCHR#<30); 

IA 3960 GET #1,K 

TM 3970 CHA-CA+(C1-1+<R1-1)*1B>*8 
AA 3980 IF K-81 THEN 3170 
FR 3990 IF K-42 THEN Cl-Cl+1 
GH 4O00 IF K-43 THEN Cl-Cl-1 
EZ 4010 IF K-45 THEN Rl-Rl-1 
CG 4020 IF K-61 THEN Rl-Rl+1 
FR 4030 IF R1*0 THEN Rl-7 
EK 4040 IF Rl-8 THEN Rl-1 
IF 4050 IF Cl-0 THEN Cl-18 
KO 4060 IF Cl-19 THEN Cl-1 
HC 4070 IF KO 155 AND KO 82 THEN 
3860 

DN 4080 CHR-<CHA-CA)/8 
JR 4090 IF CHR<64 THEN CH-CHR+32 
QQ 4100 IF CHR>63 THEN CH-CHR-64 
ML 4110 IF CHR> 93 THEN CH-CHR 
ZV 4120 IF K<>82 THEN 4170 
LI 4130 RA-<224*256)+<Cl-l+(Rl-l) 
#10)#0 

BZ 4140 X-USR(ADR(MM#) , RA, CHA, 7) 
QM 4150 GOSUB 2500 'GOSUB 2380 
TF 4160 POKE 752,0 'GOTO 3940 
0X 4170 IF B<>21 THEN 4200 
RH 4180 X-USR < ADR < MB# ) , CHA , ADR < X# 
>) 

RC 4190 GOTO 3140 
GM 4200 X-USR < ADR < MS# ) , ADR < X# > , CH 
A) 

OG 4210 GOTO 3140 


FK 1 REM #«#«»*#***«**»»* 

FJ 2 REM * * 

AW 3 REM * Pro# mm nr 6 * 

XF 4 REM * es. 4 # 

FM 5 REM * * 

FP 6 REM *«*«««»»#««»»*#» 

NM 7 REM 

ZL 4230 REM ANIMACJA 
NS 4240 D-4- N-0 -Mi- "ZNAKI? "'GOSU 
B 2140 

HN 4250 IF LEN (Mi) <2 THEN 3160 
IR 4260 POKE 752,1'? "WOLNO SZYBK 
O KONIEC" 

MK 4270 X-U8R(ADR(MBi),CA,ADR(Xi) 

) 

DV 4280 GOSUB 2380 
MX 4290 K-PEEK < 764 ) 1 POKE 764,255 
TJ 4300 IF K-255 THEN 4420 
ZY 4310 IF K<>46 THEN 4350 
MF 4320 D-D+4-F-l'IF D>32 THEN D- 
32 

QU 4330 POSITION 1,22'? " WOLNO SZ 
YBKO" 

RM 4340 GOTO 4420 
CS 4350 IF K062 THEN 4390 
LW 4360 D-D-4'F-l'IF D<1 THEN D-0 
Ul 4370 POSITION 1,22'? "WOLNO 22 
YBKO " 

RY 4380 GOTO 4420 
CS 4390 IF KOS THEN 4420 
ES 4400 POSITION 1,22'? D#J 
QK 4410 GOTO 3140 
SF 4420 FOR 1-1 TO LEN < Mi) 

UT 4430 CH-ASC<M#<I,I>) -GOSUB 246 
0 

OF 4440 X-USR < ADR < PX# ) , ADR < X# ) , MA 

) 

MT 4450 FOR WAIT-i TO 0'NEXT WAIT 
FS 4460 NEXT I 
CL 4470 IF F-0 THEN 4530 
JF 4480 P08ITI0N 1,22 'F-0 
PS 4490 IF D-0 THEN ? "WOLNO 

TZ 4500 IF D-32 THEN ? " 8ZY 
BKO" 

FH 4510 IF D-0 OR D-32 THEN 4530 
WP 4520 ? "WOLNO SZYBKO" 

UC 4530 GOTO 4290 
NM 4540 REM PRZESUNIECIE 


JN 4550 POKE 752, 1 1 X-USR(ADR(SF#) 

NN 4560 GOSUB 2500 'GOSUB 2380 -GOT 
O 3170 

FW 4570 REM RUCH KURSORA 
JQ 4580 R-R-l 1 GOTO 4680 
JB 4590 R-R+l 1 GOTO 4680 
AS 4600 C-C-l 1 GOTO '4680 
AD 4610 C-C+l ' GOTO 4680 


IR 4620 REM 

RA 4630 R-R-l ■ W- 1 -GOTO 4680 
QL 4640 R-R+l -W- 1- GOTO 4680 
JE 4650 C-C-l ■ W- 1 -GOTO 4680 
ZT 4660 C-C+l'W-1 
WE 4670 REM GRANICE RUCHU KURSORA 
WY 4680 IF R>8 THEN R-l 
YS 4690 IF R<1 THEN R-8 
GN 4700 IF 08 THEN C-l 
IH 4710 IF C<1 THEN C-8 
WQ 4720 IF NOT W THEN 4830 
JC 4730 REM PISZ BIT 
YL 4740 P-CX+(RX-1)*8'M#-X#(P,P) 
CB 4750 IF M#-CHR#< 126) THEN M#-C 
HR#< 127) -GOTO 4770 
YV 4760 IF M#-CHR#< 127) THEN M#-C 
HR# ( 1 26 ) 

JI 4770 X#(P, P)-M# • ? CHR#<27) > Mi; 
CHR#(30); 

JL 4780 REM WYŚWIETL OBRAZ 
QB 4790 POKE 752, 1 
GY 4800 X-USR < ADR < MS# ) , ADR ( X# ) , CH 
A) 

NA 4810 GOSUB 2510 'POKE 752,0 
IV 4820 REM 

UQ 4830 IF NOT N THEN 4860 
JA 4840 P08ITI0N 10,RX+4 
TQ 4850 ? " " ; CHR#(30 ) ) CHR#<30) 

i CHR# < 30 ) > PEEK < RX- 1 +CHA ) 

XP 4860 CX-C ' RX-R - W-0 
SX 4870 GOTO 3170 
XE 4880 REM KONIEC 
TD 4890 IF BLD THEN GOSUB 2590 -GO 
TO 3160 

FC 4900 POSITION 1,22'? D#> 

NE 4910 ? "KONIEC <T/N)? "i 'GET # 
1,KEY 

WS 4920 IF KEY-84 THEN 4940 
GL 4930 POSITION 1,22'? D#'GQTO 3 
160 

OZ 4940 POKE 106, TM 'GRAPHICS 0 
BG 4950 POKE 53248,0 -POKE 53249,0 
PS 4960 POKE 53250,0 -POKE 53251,0 
MZ 4970 POKE 82,2 
VD 4980 X-USR(ADR< "hlLTOŁ " ) ) 

GZ 5000 FOR 1-0 TO 959'READ A'POK 
E SA+ 1 , A - NEXT I 
AG 5010 RETURN 

FK 1 REM ##*»«*###«****#* 

FJ 2 REM * # 

AW 3 REM * Pro* mm nr 6 * 

XV 4 REM # cz. 5 * 

FM 5 REM * * 

FP 6 REM i#*#**###***##*# 

NM 7 REM 

TI 19990 REM EKRAN 
IH 20000 DATA 81,82,82,82,82,82,8 

2,82,82,82,82,82,82,82,82,82 
XE 20010 DATA 82,82,82,82,87,82,8 

2.82.82.82.82.82.87.82.82.82 
RO 20020 DATA 82,82,82,82,82,82,8 

2,69, 124, 128, 165, 164, 185, 180, 1 
75,178 

BU 20030 DATA 128,128,128,128,128 
, 186, 174, 161 , 171, 175, 183, 128, 1 
24,128,175,162 

XN 20040 DATA 178,161,186,128,124 
, 128, 128, 128, 173, 165, 174, 181,1 
28,128,128,124 

JA 20050 DATA 90,82,82,82,82,82,8 

2. 82. 82. 82.82.82.82.82.82.82 
TR 20060 DATA 82,82,82,82,83,82,8 

2,82,87,82,82,82,83,82,82,82 
GW 20070 DATA 82,82,82,82,82,82,8 
2 , 68 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
BA 20080 DATA 0,0, 0,0, 0,0,0, 0,0,0 
,0,0,124,0,0,0 

QF 20090 DATA 124,0,0,0,124,0,0,4 
3,53,50,51,47,50,0,0,124 
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MD 20100 DATA 0, 0,0, 0,0, 0,0, 0,0,0 XK 
, 0 , 0 , 0 , 0 , 0,0 
LJ 20110 DATA 0,0,0,0,124,0,0,0,1 NG 

24.0. 0.0. 124.33.0.33 
VI 20120 DATA 46,41,45,33,33,42,3 TY 

3. 124.0. 0.0.0.0.0.0.0 
AJ 28130 DATA 0,0, 0,0, 0,0, 0,0, 0,0 EP 

,0,0,124,0,0,0 
IQ 20140 DATA 124,0,0,0,124,34,0, UF 

34.53.36.47.53.33.0. 0. 124 
MX 20150 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 WJ 

, 0 , 0 , 0 , 0 , 0,0 
RM 20160 DATA 0,0,0,0,124,0,0,0,1 MP 

24.0. 0.0.124.35.0.43 
LW 20170 DATA 33,51,53,42,0,0,0,1 XF 

24.0. 0.0.0.0.0.0.0 
PE 20180 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 MK 

,0,0,65,82,82,62 
VX 20190 DATA 88,82,82,82,68,39,0 RO 
,55,37,58,0,0,0,0,0,124 
MG 20200 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 EX 
, 0 , 0 , 0 , 0 , 0,0 

ZJ 20210 DATA 0,0,0,0,124,0,0,0,0 

,0,0,0,124,41,0.41 Q2 

YO 20220 DATA 46,41,35,42,53,42,0 

,124,0,0,0,0,0,0,0,0 YE 

AM 20230 DATA 0,0, 0,0, 0,0, 0,0, 0,0 
,0,0,124,0,0,0 

VR 20240 DATA 0,0,0,0,124,44,0,44 
,33,36,53,42,0,0,0,124 


NA 20250 DATA 0,0, 0,0, 0,0, 0,0, 0,0 

, 0 , 0 , 0 , 0 , 0,0 

UX 20260 DATA 0,0,0,0,124,0,0,0,0 
,0,0,0,124,48,0,55 
OM 20270 DATA 51,52,33,55,0,0,0,1 

24.0. 0.0.0.0.0.0.0 

8G 20280 DATA 0,0, 0,0, 0,0, 0,0, 0,0 
,0,0,124,0,0,0 

PU 20290 DATA 0,0,0,0,124,51/0,58 
,33,48,41,31,58,0,0,124 
MJ 20300 DATA 0,0, 0,0, 0,0, 0,0, 0,0 
, 0 , 0 , 0 , 0 , 0,0 

QK 20310 DATA 0,0,0,0,124,0,0,0,0 
,0,0,0, 124,49,0,43 
KE 20320 DATA 47,46,41,37,35,0,0, 

124.0. 0.0.0.0.0.0.0 

OQ 20330 DATA 0,0, 0,0, 0,0, 0,0, 0,0 
,0,0,65,82,82,82 

YN 20340 DATA 82,82,82,82,88,82,8 
2,82,82,82,82, 82, 82,82,82,68 
ND 20350 DATA 8, 0,0, 0,0, 0,0, 0,0,0 
, 0 , 0 , 0 , 0 , 0,0 

RU 20360 DATA 0,0,0,0,124,128,128 
, 186, 165, 179, 180, 161 , 183, 128, 1 
28, 186 

CW 20370 DATA 174, 161 , 171 , 175, 183 
,128,128,124,0,0,0,0,0,0,0,0 
PK 20380 DATA 0,0, 0,0, 0,0, 0,0, 0,0 
,0,0,65,82,82,82 

TN 20390 DATA 82,82,82,82,82,82,8 
2,82,82,82,82,82, 82, 82,82,68 
MM 20400 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 
, 0 , 0 , 0 , 0 , 0,0 

LU 20410 DATA0,0,0,0, 124,0,1,2/3 
,4, 5, 6, 7, 8, 9, 10 

OE 20420 DATA 11,12,13,14,15,16,1 

7. 124.0. 0.0.0.0.0.0.0 

DP 20430 DATA 0,0, 0,0, 0,0, 0,0, 0,0 
,0,0,124,18,19,20 


20440 DATA 21,22,23,24,25,26,2 

7.28.29.30.31.32.33.34.35.124 
20450 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 
,0,0, 0,0, 0,0 

20460 DATA 0,0,0,0,124,36,37,3 

8,39,40,41,42,43,44,45,46 

20470 DATA 47,48,49,50,51,52,5 

3,124,0,0,0,0,0,0,0,0 

20480 DATA 0,0, 0,0, 0,0, 0,0,0, 0 

,0,0,124,54,55,56 

20490 DATA 57,58,59,60,61,62,6 

3.64.65.66.67.68.69.70.71. 124 
20500 DATA 0,0, 0,0, 0,0, 0,0, 0,0 
, 0 , 0 , 0 , 0 , 0,0 

20510 DATA 0,0,0,0,124,72,73,7 

4.75.76.77.78.79.80.81.82 
20520 DATA 83,84,85,86,87,88,8 

9. 124.81.82.82.82.82.82.82.82 
20530 DATA 82,82,82,82,82,82,8 
2,82,82,82,82,82,68, 90,91, 92 
20540 DATA 93,94,95,96,97,98,9 
9, 100, 101 , 102, 103, 104,105,106, 

107.124 

20550 DATA 124,0,0,0,0,0,0,0,0 

0/ 0,0,0, 124, 108, 109 
,110,111,112,113,114,115,116,1 
17,118 

20570 DATA 119,120,121,122,123 
, 124, 125, 124, 90, 82, 82,82, 82,82 
,82,82 

20580 DATA 82,82,82,82,82,82,8 

2. 82. 82.82. 82. 82.88.82. 82. 82 
2O590 DATA 82,82,82,82,82,82,8 
2,82,82,82,82,82,82,82,82,67 

1 REM **************** 

2 REM * * 

3 REM * Pro* ram nr 7 * 

5 REM * * 

6 REM **************** 

7 REM 

35 REM UTUORZENIE LINII 1170-1 

590 I 2690-2700 

45 REM ZMIEŃ LINIE 70 JEŚLI PR 

ACUJESZ ZE STACJA DYSKÓW 

50 DIM FN*<20) , TEMP* < 20 ), AR* <9 

3) 

60 DPL"PEEK < 1 0592 ) ' POKE 10592, 
255 

70 FN* es "C | " 

80 GRAPHICS 0'? " ANTIC'S 
GENERIC BASIC LOADER" 

90 ? , "BY CHARLES JACKSON" 

100 POKE 10592, DPL' TRAP 170 
110 ? '? •? "Tworz#ni# " ; FN* ' ? 

"...proszą cz#kac. " 

120 RESTORE 'READ LN'LM-LN'DIM 
A*(LN)'C-1 
130 AR*-"" 'READ AR* 

140 FOR X-1 TO LEN < AR*) STEP 3 
i PflKF 

150 LM-LM-1 'POSITION 10,10'? " ' 
(Odliczani#. . . T-" / INT(LM/10> ; " 

> 

160 A*<C,C>»CHR#(VAL<AR*<X,X+2 
>>>'C"C+1'NEXT X 1 GOTO 130 
170 IF PEEK<195)-5 THEN ? *? ■ 

? CHR*(253);"ZA DUŻO LINII DAT 
A !"«? "UTWORZENIE ZBI ORUNI EMO 
ZLIWE! " ‘END 



_ (J tr+C/ l'( {ńę *, ... 


ZB 180 IF C<LN+1 THEN ? <? CHR*<2 
53); "ZA MAŁO LINII DATA!"'? "U 
TWORZENIE ZBIORU NIEMOŻLIWE!"' 
END 

AL 200 OPEN #1,8,0,FN* 

PP 210 POKE 766,1'? #1 ; A*; 'POKE 7 
66,0 

TY 220"CLOSE #1 'GRAPHICS 0'? "KQti 

IK DATA 1307 

PG 1010 DATA 04904905504803208708 
403604004904 1 06 1 034 1041041 7022 
4000240025 169255141 255006 13816 
0006162255202 

HS 1020 DATA 20825313620824803415 
504904905604803208708403604005 
005204 1 06 1 03420625500620824 1 1 7 
02O2208231104 

NX 1030 DATA 17022400024001814125 
5006 1 60006 1 62255034 1 5504904905 
704803208708403604005205404 1 06 
1034202208253 

BY 1040 DATA 13620824820625500620 
824 1 096034 1 5504905004904803206 
807307703207007703604005305204 
1058082069077 

Ol 1050 DATA 03207007307607706907 
7046079066074 1 5504905005004803 
207007703604004904 106103410410 
4133205104133 

BV 1060 DATA 20410410413320610417 
02240002400 1 6 1 60255 1 65206 1 4520 
4034 1 5504905005 1 04803207007703 
6040050052041 

OC 1070 DATA 06103413620825114520 
4230205202208240 1041681 9200024 
00141 65206 1 36 1 92000240034 1 5504 
9050052046032 

MO 1080 DATA 07007703604005205404 
1 06 1 034005 1 45204 1 3620825 1 1 4520 
4096034 1 5504905005404803206807 
3077032077077 

DT 1090 DATA 03604005205704105808 
206907703207707908607706907704 
6079066074 1 5504905005504803207 
7077036040049 

TU 1100 DATA 04106103410410413320 
71041 33206 1 04 1 33205 1 04 1 33204 1 0 
41702240002400181 60255 1 7720603 
4155049050056 

NO 1110 DATA 04803207707703604005 
005204 1 06 1 034 1 45204 1 36 1 9225520 
8247230207230205202208238 10416 
8177206145204 

CT 1120 DATA 13619203415504905005 
704803207707703604005205404 1 06 
1 034255208247096034 1 5504905 1 04 
9048032068073 

AZ 1130 DATA 07703206706703604005 
1 05504 1 05808206907703206707307 
9067084076046079066074 1 5504905 
1050049032067 

QX 1140 DATA 06703604004904106103 
41041041041701 69O00024 10501620 
2208250 1701041041 57066003 10415 
7069003104034 

HJ 1150 DATA 15504905105104803206 
706703604005005204 i 06 1 034 1 5706 
8003 1 04 1 57073003 1 04 1 5707200307 
6086228034155 

FO 1160 DATA 04905105304803206807 
307703207708303604005605004 1 05 
808206907703207707908608308408 
2046079066074 

UE 1170 DATA 15504905105404803207 
708303604004904 106103410410413 
3205 1 04 1 33204 1 04 1 33207 1 04 1 3320 
6169000141000 

XW 1180 DATA 00716900014100100703 
4 1 5504905 1 05504803207708303604 
005005204 1 06 1 034 1 69000 1 4 1 00200 
7169128141003 

UN 1190 DATA 00716200817200000723 
8000007 1 7720420 1 1 26034 1 5504905 
1 05604803207708303604005205404 
1061034208009 

ER 1200 DATA 17300200701300300714 
1 002007078003007024202208228 1 7 
200 1 007238034 155049051 05704803 
2077083036040 
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SH 1210 DATA 05405604106103400100 
7 1 73002007 1 45206 1 7300000720 1 06 
4208 1 98096034 1 5504905204904803 
2068073077032 

IB 1220 DATA 07706603604005704904 
1 05808206907703207707908606608 
9084046079066074 1 5504905205004 
8032077066036 

KR 1230 DATA 04004904106103410410 
4 1 33205 1 04 1 33204 1 04 1 33207 10413 
3206 1 60000 1691271 45206200 1 9206 
4208034155049 

QZ 1240 DATA 05205104803207706603 
604005005204 1 06 1 034249169000 1 4 
1 000007 1 69000 1 4 1 00 1 007 1 7200 1 00 
7177204141002 

AX 1250 DATA 00716912814103415504 
905205204803207706603604005205 
404 1 06 1 034003007 1 62008 1 7200 1 00 
7173002007056 

QS 1260 DATA 23700300704801014100 
2007 1 72000007034 1 5504905205304 
803207706603604005405604 106103 
4169126145206 

CC 1270 DATA 07800300723800000720 
220822523800 1 007 1 7300000720 1 06 
4208034 1 5504905205404803207706 
6036040057048 

CZ 1280 DATA 04106103420009603415 
504905205604803206807307703208 
307003604004904905604 1 05808206 
9077032083072 

AB 1290 DATA 07307008408904607906 
6074 1 5504905205704803208307003 
604004904 106103410410410417010 
4133205133207 

XK 1300 DATA 10413320413320622400 
92400402240 1 0240009224034 1 5504 
905304804803208307003604005005 
2041061034011 

CE 1310 DATA 24007322401224005009 
6 1 60007 1 77204 1 33208230206 13617 
7204 1 45206 1 36034 1 5504905304904 
8032083070036 

VD 1320 DATA 04005205404106103420 
8249 1 77204 1 45206 1 65208 1 98206 1 4 
5206096 1 60000 1 77204 1 3320823020 
4177834155049 

HE 1330 DATA 05305004803208307003 
604005405604 1 06 1 034204 1 4520620 
0 1 92007208247 1 65208 1 45206096 1 6 
0000177204024 

AR 1340 DATA 07414400302403415504 
905305 1 04803208307003604005704 
804 1 06 1 034 1051281 45204200 1 9200 
8208240096160 


ZQ 1350 DATA 00017720402401014400 
3024 1 0500 11450341 5504905305204 
803208307003604004904905004 1 06 
1034204200192 

EL 1360 DATA 00820024009603415504 
905305404803206807307703200008 
803604005405004 1 05808206907703 
2080065073078 

GM 1370 DATA 08408804607906607415 
504905305504803208008803604004 
90410610341041041332051041 3320 
4104133207104 

GM 1380 DATA 13320616200816000017 
7204 1 45206200 1 92034 1 5504905305 
604803208008803604005005204 1 06 
1034008208247 

ZN 1390 DATA 20224003216520402410 
5008 1 33204 1 44006 1 65205 1 05000 1 3 
3205 1 65034 1 5504905305704803208 
0088036040052 

DG 1400 DATA 05404106103420602410 
5040 1 33206 1 442 lfi 1 65207 1 05000 1 3 
3207 1 442 1 0096034 1 5505005405704 
8032077036061 

IZ 1410 DATA 03410416201616900715 
7066003 1 04 1 57069003 1 04 1 5706800 
31041 57073003 1 04 1 5707200307608 
6228034155050 

WN 1420 DATA 05504804803206703606 
1 03404506 1 04304202802903003 1 09 
5 1 240920940720080780 1 403206506 
6067071073076 

AE 1430 DATA 080083081034155 

Tomasz MROWIEĆ 
Ludwik PIELA 


GRA W TYSIĄCA 


Jest to gra waszych ojców. Może brać 
w niej udział dwóch graczy tzn. ty i 
twój komputer. Jak w klasycznej grze, 
tak i tu wykorzystano talię składającą się 
z 24 kart (od asa do „9”). Obowiązuje na- 
stępująca hierarchia wartości: as — 11 
punktów, „10” — 10, król — 4, dama — 
3, walet — 2 oraz „9” — bez punktów. 

Każdy z graczy posiada po 5 kart, któ- 
re rozdaje generator liczb losowych. W 
związku z tym, że jest to tysiąc dobierany 
nie ma początkowej licytacji. Rozpoczy- 
nając grę wychodzisz pierwszy, nato- 
miast komputer jest pierwszy w następ- 
nym rozdaniu. Na ekranie masz zobra- 
zowany aktualny stan kart „na ręku”. 

Nie obawiaj się, że komputer w mo- 
mencie podejmowania decyzji będzie 
podglądał twoje karty, z pewnością tego 
nie uczyni. Jeśli wychodzący ma parę, 
czyli damę i króla w tym samym kolorze, 
powinien to zameldować, a następnie 
wyjść w damę. Za meldunek gracz 
otrzymuje: 100 punktów za kier, 80 dla 
kar, 60 dla trefli oraz 40 dla pików. Gdy 
skończy się talia, komputer tasuje karty, 
podaje aktualny wynik, a następnie pro- 
ponuje dalszą grę. Wygrywa ten, który 
zdobędzie jako pierwszy 1000 punktów. 

Przyporządkowanie klawiszy poszcze- 


1000 REM *********************** 


1002 REM * * 

1004 REM * GRA U TYSIACA * 

1006 REM * * Atari * * 

1007 REM * * 


1008 rem mmmm*********** 

1050 REM DEKLARACJA ZMIENNYCH 
1052- DIM CZ*C 15) , D*C 1 ) , DD*C 1 ) , WW 
*C4) , 0D*C5) 

1055 DIM TAC4,6),H0*C5),K0*C4),W 
AC6),W*C1),T*C1) 

1060 I4Y-0 « SUC-0 ■ SUG-0 

1065 REST0RE 1088 

1066 FOR B=1 TO 6 : READ D‘WACB)=D 
:NEXT B 

1067 WW*="KCTP" 

1068 CZ*=" 

1070 K0*C 1 , 1 )=CHR*C0) ! K0*C2, 2)=C 
HR* (96) > KO* <3, 3)=CHR*C 16) > K0*C4, 
4)<=CHR*C 123) 

1081 DATA *AS* , A 

1082 DATA *10* ,1 

1083 DATA KR0L ,K 

1084 DATA DAMA ,D 

1085 DATA WALET, W 

1086 DATA * 9 *,9 

1088 DATA 11,10,4,3,2,0 
1100 REM ZEROWANIE CZĘŚCI DANYCH 
1105 GRAPHICS 0<RE»0:KT=0:PO=1 
1150 REM TWORZENIE TABLICY 
1155 FOR A=1 TO 4 ; FOR B-l TO 6 
1160 TA(A,B)=0 ! NEXT B NEXT A 
1200 REM ILE KART W TALII 

1204 ? CHR*C 125) 

1205 LI=0 


Janusz JANIEC 


gólnym kolorom oraz honorom kart 
przedstawia poniższa tabela. 


KOLOR 

KLAWISZ 

KIER 

K 

TREFL 

T 

KORO 

C 

PIK 

P 

HONOR 

KLAWISZ 


A 

»10« 

i 

KRÓL 

K 

DAMA 

O 

WALET 

W 

« 9 * 

9 

MAM 
MELD . 

M 


Program można podzielić na dwa za- 
sadnicze bloki. Pierwszy dotyczy wyko- 
nywania poleceń wydawanych przez 
ciebie i drugi tworzący z komputera 
gracza. Poszczególne podprogramy są 
oddzielone komentarzem. Powinno to 
ułatwić zrozumienie algorytmu progra- 
mu oraz dociekliwszym umożliwić 
dokonanie przeróbek. 


1206 FOR A=1 TO 4>FQR B=1 TO 6 

1210 IF TA<A, B) x 0 THEN LI*LI+1 

1215 NEXT B : NEXT A 

1220 IF LI=0 THEN 1354 

1250 REM LOSOWANIE KARTY 

1255 Y® INT C RND C 0 ) *4 ) + 1 1 X® INTC RND 

(0)*6)+l 

1300 REM SPRAWDZANIE CZY BYŁA 

1301 REM JUZ LOSOWANA KARTA 
1305 IF TACY, X) <>0 THEN 1255 
1307 RE=RE+1 ! BE=1 : G0SUB 2005 
1310 IF WY»0 THEN TACY, X>«1 > GOTO 

1352 

1315 TACY, X)=2 

1350 REM POBRANIE DANYCH HONORU 

1351 REM KARTY I WYŚWIETLENIE NA 

1352 REM EKRANIE. 

1354 RZ=0 1 ? CHR*C 125) 

1355 FOR A®1 TO 4 FOR B=1 TO 6 
1360 IF TACA,B)®2 THEN 1385 
1365 RESTORE 1080+8 

1370 READ HO* 

1372 IF LI=0 AND TACA,B)*1 THEN 
2105 

1375 IF RE=10 AND TACA,B)=1 THEN 
RZ=RZ+ 1 ! P0S I T I ON 5, 4+RZ : ? HO*;" 
";K0*CA, A) 

1385 NEXT B = NEXT A 

1388 IF LI>0 AND RE<10 AND WY*1 

THEN WY®0 ! GOTO 1205 

1390 IF LI>0 AND REC10 AND WY»0 

THEN WY- 1« GOTO 1205 

1400 REM CZY KONIEC ROZDANIA I 

1405 IF RE®0 AND LI-0 THEN 1500 
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4. 1410 REM KTO WYĆHOfcfcl '' ^ ^ 

W 1415 IF KT-1 THEN 1805 

1420 POSITION 20,5'? "WYCHODŹ ! 

1425 POSITION 20,6'? " 

1430 POSITION 27,0'? " "'POSITIO 

N 20,8'? "Kolor INPUT W*'IF W 

*<> "M" THEN 1460 

1435 FOR A-l TO 4 

1437 IF TA<A, 3) = 1 AND TA<A,4>-1 

THEN 1442 

1439 NEXT A 

1441 POSITION 11,16'? "Nie Q*zuk 
uJ '"'FOR CZ-1 TO 300 ' NEXT CZ'PO 
SITION 11,16'? CZ* ’ GOTO 1430 

1442 POSITION 11,16'? "Masz meld 
unek" -POSITION 11,17'? "nie kłam 
iesz !" 

1444 SUG*SUG+120-20*A'GOTO 1430 
1460 POSITION 20,9'? "Honor "i -I 
NPUT D* 

1465 REM ODNALEZIENIE KOLORU W 

1466 REM TABLICY 

1470 FOR A-l TO 4'IF WW*<A,A)=W* 
THEN 1600 

1480 NEXT A -GOTO 1625 

1500 REM SUMOWANIE WYNIKÓW TABLI 

CY 

1505 FOR A-l TO 4 -FOR B«1 TO 6 
1510 IF TA(A,B>=3 THEN SUG-SUG+W 
A<B) ' GOTO 1520 
1515 SUC=SUC+WA<B) 

1520 NEXT B ' NEXT A -REM ********* 
1530 ? CHR* <125) 'GRAPHICS l'POSI 
TI ON 4,6 =? #6 ;" SUMA PUNKTÓW" 

1535 POSITION 4,7'? #6;" 

1540 POSITION 4,9'? #6;"** TY ** 
" ; SUG 

1545 POSITION 4,11'? #6; "KOMPUTE 
R " ; SUC ' SETCOLOR 0,8,14 

1550 IF <SUC<1000> OR <SUG<1000> 
THEN ? •? " Czy srasz dale 

i CT/ND " ; • INPUT T* 

1552 IF T*="T" THEN 1105 

1555 ? '? " * KONIEC *" 

1560 ? CHR* < 125) ' END 'REM ****** 

1600 FOR B=1 TO 6 

1605 RESTORE 1080+B 

1610 READ HO*, DD* 

1615 IF DD*=D* AND TA<A,B>=1 THE 
N 1645 
1620 NEXT B 

1625 FOR CZY-8 TO 11 'POSITION 20 
, CZY ' ? CZ*'NEXT CZY 
1630 POSITION 11,16'? "Nie oszu.k 
u J !" 'FOR CZ-1 TO 300 1 NEXT CZ'PO 
SITION 11,16'? CZ* 

1635 GOTO 1430 

1640 REM KOMPUTER SPRAWDZA CZY 

1641 REM MA TEN KOLOR I HONOR 


1645 V-A'X-B 

1648 REM * CZY MA WYZSZY HONOR * 

1650 FOR B=1 TO 6 

1655 IF TA<Y,B>-2 AND X>B THEN T 

A<Y,B)-4'TA<Y,X)-4'KT-1 'GOTO 174 

5 

1660 NEXT B 

1663 REM DAJE NAJNIŻSZY HONOR 
1665 FOR B-6 TO 1 STEP -1 
1670 IF Tfl<Y,B>»2 AND X<B THEN T 
A<Y, B>»3 ' TA<Y,X>-3 ' KT-0 • GOTO 174 
5 

1675 NEXT B 

1678 REM ZRZUTKA GDY BRAK DANEGO 

1679 REM KOLORU 

1680 B-6 

1685 FOR A-4 TO 1 STEP -1 

1690 IF TA<A,B>-2 THEN TA<A,B>*3 

' TA<Y, X)“3 1 KT*0 1 GOTO 1745 

1700 NEXT A 

1705 B=B-1 

1710 GOTO 1685 

1745 RE-RE-2 

1750 POSITION 5,12'? "KOMPUTER D 
A JE ' " 

1760 RESTORE 1080+B 
1770 READ HO* 

1785 POSITION 20,12'? HO*;" ";KO 

*<A,A> 'FOR CZ-1 TO 300'NEXT CZG 

OSUB 2000 

1790 GOTO 1205 

1800 REM WYCHODZI KOMPUTER 

1805 FOR CZY-5 TO 11 'POSITION 20 

, CZY ' ? CZ* 1 NEXT CZY 

1810 POSITION 20,5'? "WYCHODZĘ ! 

1815 POSITION 20,6'? " — 

1820 REM CZY NIE NA MELDUNKU 
1825 FOR A=1 TO 4 
1830 IF TA<A,3>*2 AND TA<A,4)-2 
THEN POSITION 11,16'? "MAM MELDU 
NEK ! " ■ SUC-SUC+ 1 20-20*A ' X=4 • GOTO 
1843 

1835 NEXT A 

1837 GOTO 1860 

1840 REM WYCHODZI W DAMĘ 

1843 HO*=" " ' HO*="DAMA" 

1845 POSITION 20,9-? HO*;" ";KO* 
<A, A) 

1850 GOTO 1912 

1855 REM WYCHODZI W NAJSTARSZA K 
ARTE 

1860 FOR A-l TO 4 'FOR B=1 TO 6 
1865 IF TA<A, B)-2 THEN 1875 
1870 NEXT B ' NEXT A 
1875 X-B 

1880 FOR B=1 TO 6 
1885 RESTORE 1080+B 
1890 READ HO* 

1895 IF X-B THEN 1905 
1900 NEXT B 



1905 POSITION 20,8'? HO*;" ">KO* 
<R, A) 1 GOSUB 2000 
1910 REM GRACZ DOKŁADA 
1912 Y-A 

1915 POSITION 20,10-? "KOLOR "; « 
INPUT W* 

1920 POSITION 20,11'? "HONOR ■ 
INPUT D* 

1925 REM ODNALEZIENIE KOLORU W T 
ABLICY 

1930 FOR A-l TO 4'IF WW*<A,A)-W* 
THEN 1940 

1935 NEXT A 'GOTO 1915 
1940 FOR B=1 TO 6 
1945 RESTORE 1080+B 
1950 READ OD* , DD* 

1955 IF DD*-D* AND TA<A,B>»1 THE 
N 1980 
1960 NEXT B 

1965 FOR CZY- 10 TO 11 -POSITION 2 
0, CZY 1 ? CZ*'NEXT CZY 
1970 POSITION 20,8'? "Nie oszuku 
j ! " ' FOR CZ-1 TO 200 ' NEXT CZ 
1975 POSITION 20,8'? CZ*'GOTO 19 
15 

1980 REM PORÓWNANIE KART I ZAKOD 
OWANIE WYNIKU 
1983 RE-RE-2 

1985 IF A-Y AND B<X THEN TA<A,B) 
=3 ' TA< Y, X)-3 ' KT-0 ' GOTO 1205 
1990 TA(A, B)=4 ' TA<Y, X>=4 ' KT-1 ' GO 
TO 1205 

2000 REM ROZDAWANIE KART 
2005 FOR A2-1 TO BE 
2010 FOR B2-2 TO 14 
2015 SOUND 0, 0, 0, B2 

2020 NEXT B2 
2025 SOUND 0,0, 0,0 
2035 IF PO-0 THEN 2050 
2040 NEXT A2 
2045 PO-0 

2050 RETURN -REM ********* 

2100 REM ***************** 

2105 RZ-RZ+1 

2110 POSITION 5, 4+RZ ' ? HO*;" ";K 
0*<A, A) 

2115 GOTO 1385 

* SUMO KONTROLNA / ETYKIETA * 


TE 10001 FW 10021 FK 10041 LV 1006 

GG 10071 UK 10081 IY 10501 UY 1052 

GI 10551 JW 10601 SI 10651 EG 1066 

WO 10671 JW 10681 RS 10701 HN 1081 

YI 10821 AM 10831 El 10841 EP 1085 

BF 10861 CV 10881 EH 11001 ZZ 1105 

YI 11501 DG 11551 JR 11601 UL 1200 

GP 12041 UE 12051 CX 12061 HY 1210 

NZ 12151 HE 12201 TK 12501 QQ 1255 

VN 13001 YN 13011 PI 13051 YP 1307 

BU 13101 CH 13151 QF 13501 KQ 1351 

TI 13521 MP 13541 DK 13551 LV 1360 

NI 13651 VZ 13701 OG 13721 YT 1375 

OW 13851 TN 13881 SU 13901 QZ 1480 

CN 14051 JH 14101 MZ 14151 CK 1420 

VN 14251 XJ 14301 VT 14351 QI 1437 

DG 14391 ZE 14411 HR 14421 00 1444 

CF 14601 KB 14651 VW 14661 IG 1470 

PX 14801 JH 15001 CZ 15051 0V 1510 

UN 15151 ZH 15201 TA 15301 PV 1535 

WV 15401 PF 15451 LM 15501 LG 1552 

DI 15551 ZA 15601 WM 16001 MW 1605 

TV 16101 SA 16151 CI 16201 XD 1625 

HR 16301 RM 16351 RH 16401 IZ 1641 

LN 16451 JG 16481 XB 16501 MP 1655 

CU 16601 JH 16631 UU 16651 EQ 1670 

DR 16751 YZ 16781 RQ 16791 WI 1680 

TS 16851 XL 16901 BT 17001 IJ 1705 

WR 17101 XT 17451 SH 17501 MW 1760 

WH 17701 OY 17851 RT 17901 BE 1800 

VL 18051 TW 18101 VS 18151 GB 1820 

VY 18251 TD 18301 CY 18351 VH 1837 

TA 18401 YR 18431 TB 18451 TM 1850 

WT 18551 DD 18601 QU 18651 OJ 1870 

FX 18751 X0 18801 NY 18851 WP 1890 

UB 18951 CI 19001 RD 19051 BB 1910 

ET 19121 LX 19151 IS 19201 VD 1925 

TC 19301 RX 19351 XE 19401 NO 1945 

SK 19501 VG 19551 DA 19601 LI 1965 

NR 19701 RX 19751 IG 19801 YB 1983 

IT 19851 RD 19901 YX 20001 NJ 2005 

PK 20101 EU 20151 YZ 20201 HX 2025 

GR 20351 YU 20401 XB 20451 WM 2050 

TJ 21001 JH 21051 KO 21101 VQ 2115 
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Rady i porady 
programisty (cz. 2) 


Kontynuując rozpoczęty cykl o progra- 
mach, które powinny znaleźć się w Twojej 
biblioteczce programów-narzędzi, przedsta- 
wiam program przeznaczony do porządkowa- 
nia (sortowania) elementów zawartych w tab- 
licy. 

10 ’ tttłt FORRZADKOWANIE CIĄGÓW ttttt 
20 INPUT-DLUGOSC CIA6U";n 
30 DIII x (n) 

40 FOR i=l TO n 
50 INPUT 
60 NEXT i 

70 PRINT" WARTOŚCI WCZYTANEGO CIĄGU" 

80 G0SUB 140 
90 G0SUB 230 

100 PRINT-CIAG UPORZĄDKOWANY" 

110 G0SUB 140 
120 STOP 


Poniższy program jest segmentem sterują- 
cym pozwalającym na wprowadzenie liczby n 


— długości ciągu i wartości do tablicy x, wy- 
wołanie podprogramu drukującego. 

130 'Uttt PODPROGRAM DRUK »»««» 
MO PRINT 
150 i=0 

140 NHILE iOn 
170 i=i+l 
180 PRINT x ( i ) ; 

190 MEND 
200 PRINT 
210 RETURN 

Podprogram drukujący wywoływany jest 
dwukrotnie, pierwsze wywołanie drukuje 
elementy nieuporządkowanej tablicy, drugie 
zaś wartości tablicy po uporządkowaniu. W 
segmencie sterującym umieszczone jest wy- 
wołanie podprogramu sortującego. 

220 'ttttt P0DPR0GRAN SORTOWANIA tttttt 

230 j=n 

240 j=INT (j/2) 


250 IF j*0 THEN 380 
260 s=n-j 
270 FOR r*l TO i 
280 i =r 
290 v»i+j 

300 IF x(i)<*x(v) THEN 360 
310 h«x(i) 

320 x (i)*x (v> 

330 x (v)*h 
340 i*i-j 

350 IF i>0 THEN 290 
360 NEXT r 
370 GOTO 240 
380 RETURN 

Podprogram sortowania umożliwia ustawie- 
nie elementów tablicy w porządku rosnącym, 
jeśli badany warunek w linii 300 ma postać 
x(i) <= x (v), w porządku malejącym warunek 
ma postać x(i) > x(v). 

Jeżeli w linii 30 zmienimy definicję tablicy 
ze zmiennej numerycznej na łańcuchową, tj. 
linia 30 przyjmie postać DIM x$ (n) i w 
miejsce x wpiszemy x$, będziemy mogli po- 
rządkować łańcuchy znaków — np. ułożyć al- 
fabetycznie dowolną listę nazwisk. 

Jak ważne jest posiadanie tego podprogra- 
mu w twojej bibliotece przekonasz się o tym 
czytelniku jeszcze nieraz. 

Zdzisław ŁUKASZEWICZ 


/•• ••#**#*##«#»*«#»##«###«/ 

/* */ 

/* 8 K R R B */ 

/* OTRRI */ 

/# #/ 

Z######*###***####*#######/ 

ta* ino % c 

char Marunah, z, nuwcei, piarwceij 

char wydr ci 73; 

int c, a, b, x', y, p, q; 

c— i m l Oj /# inicjał, biblioteki */ 
do* C 

x»0j y »0j 
a-rnd c i 93 - i 0 ; 
b«rnd C 1 93 - 1 0; 
pr int f C"Sf "3; 
d o* c 

pr int f C "SnK iarunak N, 8, O, u r**3; 
kiarunak«?a t char c 3 > 

9« tchar C 3 ; 

i f Ckiarunakaa'N'3 y--; 
aisa if Ck iarunaka- 1 s • 3 v+*j 
eisa if c k i a runa k««'U'3 x--; 
e'lse if Ck iarunak-- • o • 3 x + +; 
a i»a *c printf r\nuuflOR r*3; 

forccal ; C < *30; C + + 3 
• OUndC0, 1 00, 10, 9 3; 

»oundC0, 0, 0, 03; 

printf C"\nTylkO : N, 8, O lub U*'3; 

*3 

q«b-y; P«a-X; z-p*p+q*q; 

C— i f p CZ, num3 ; 
c— aqrt enum, p iarwj ; 
c—f a*c cp iarw, wydr3; 
printf C"\nDo akarbu wydr 3 ; 

f or Cc* 1 ; c < *30; C + ♦ 3 
aoundce, 100 , 10 , 93; 
ftOUnd C0, 0 , 0, 03 ; 

*3 

Wh i 1 a C Z > 0 3 ; 

printf C"\nSkarb X-Xd Y*Xd", a, b3; 
*3 whi la Cczyda la jC3 3; 

* 3 


PY 590 REM ************************ 
YS 592 REM * * 

DE 594 REM * SKARB * 

TT 595 REM * * ATARI * * 

ZH 59? REM * * 

QU .598 REM ************************ 
YW 600 DIM K*<2>'X=0'Y-0 
UJ 602 PRINT CHR*<125> 

TK 604 A»INT(RND(0)*19)-10 
TV 606 B-INT<RND<0>*19>-10 
KZ 608 ? "KIERUNEK N,S,0,W ”, 'INPUT 
K* 

CS 610 IF K*»"N" THEN Y-Y+1'GOTO 63 
0 

HA 612 IF K*»"8" THEN Y«Y-1 'GOTO 63 
0 

HM 614 IF K*="W" THEN X-X-l 'GOTO 63 
0 

CG 616 IF K*«"0" THEN X«X+l'GOTO 63 

0 

TS 618 ? '? "UWAGA !"'GOSUB 650 
RF 620 GOTO 608 

NI 630 P-A-X'Q=B-Y'Z"SQR<P*P+Q*Q) 

DO 634 IF z»0 THEN 640 
NC 636 ? "DO SKARBU " i INT<Z*100)xl0 
0'GOSUB 650 'GOTO 608 
BN 648 ? '? “SKARB • X="jAj" Y»"jB 
UR 642 ? '? "SZUKAMY JESZCZE RAZ ?" 
XQ 644 ? '? " ";CHR*(212>J 

YC 646 ? V"jCHR*<206)j » INPUT K* 

GC 648 IF K*-CHR*<84> THEN 602 
PE 649 END 

CP 650 FOR C*1 TO 15'SOUND 0,100,10 
, 9 ' NEXT C ' SOUND 0,0, 0,0 
ZS 652 RETURN 
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ATARI 



SCHOWEK 


„Schowek” — to procedura pomocnicza, która może się przydać 
przy pisaniu złożonych programów w standardowym BASIC-u 
ATARI. Umożliwi ona dostęp do tych obszarów pamięci RAM 
komputerów ATARI XL i XE, które normalnie są niewidoczne z po- 
ziomu BASIC-a, gdyż zasłania je ROM systemu operacyjnego lub 
sam BASIC. Prawie całą tę przestrzeń można wykorzystać do czaso- 
wego przechowywania danych. Miejsca do wykorzystania jest sporo, 
22 kB „Schowek” organizuje tę pamięć w umowne sektory po 128 
bajtów, numerowane od 0 do 175, dostępne — niezależnie od siebie 
— do zapisu bądź odczytu. Wymiany danych dokonuje się za pomocą 
funkcji USR z parametrami. 

USR {adres, numer, bufor, zapis), gdzie: 
adres — adres programu maszynowego, 
numer — numer sektora, 

bufor — adres bufora danych o pojemności 128 bajtów, 

zapis — znacznik kierunku operacji: 0 to odczyt z pamięci, 1 to 

zapis. 

Program maszynowy jest przemieszczalny, można więc umieścić 
go w zmiennej tekstowej w BASIC-u. Numer sektora winien się za- 
wierać w granicach 0 do 175. Podanie zbyt dużego numeru spowo- 
duje niewykonanie przez program maszynowy jakiejkolwiek operacji, 


funkcja USR przybiera wtedy wartość równą adresowi wywołania. 
Gdy numer będzie o wiele za duży (powyżej 255), to może nastąpić 
zapis lub odczyt z sektora o innym niż podany numerze. Można się o 
tym dowiedzieć z wartości funkcji USR, gdyż jeśli wykonała ona ja- 
kieś operacje na pamięci, to przybiera wartość równą numerowi od- 
powiedniego sektora. Jako adres bufora danych najwygodniej podać 
adres zmiennej tekstowej. 

„Schowek” warto wykorzystywać tylko wtedy, gdy rzeczywiście 
brakuje miejsca, np. gdy chcemy mieć w pamięci jednocześnie trzy 
wykresy w grafice 8, a mieści się tylko jeden, albo gdy w programie 
typu disasemblera zakładamy jednocześnie duży bufor programu i 
duży zbiór etykiet itp. „Schowka” możemy także użyć do przekazy- 
wania danych między różnymi programami uruchamianymi kolejno, 
bez wyłączania komputera. W każdym z takich wypadków trzeba po- 
święcić trochę pracy na szczegółowe rozwiązanie współpracy pro- 
gramu w BASIC-u ze „Schowkiem”, stosownie do potrzeb. 

Dołączony program w BASIC-u zawiera procedurę maszynową w 
liniach DATA, oraz ilustruje samą zasadę wykorzystania „Schowka”. 
Drugi program, w składni dostosowanej do Atari Macroassembler’a. 

Robert MIZIŃSKI 


RACJA DZIAŁANIA SCHOHK 


• REM Prograh EfriłOllIH H 

1 REN Autor: Robert flizinski 

2 REM 

i© rem BBEHMiź 

20 O IM SCH0MEK$(96) 

30 FOR 1=1 TO 96 : RE AD A : SCHOMEK$ CI) =CHR$ (A) : NEKT I 

40 DATA 104,104, 104, 201 , 176, 144,5, 104, 104, 104, 104,96,162,0,133 

41 DATA 212,134,213, 74,144,2,162,126,134,216,24,105, 160,201,208 

42 DATA 144,2,105,7,133,217,104,133,215,104,133,214,104,104,208 

43 DATA 16, 166,216,165,214,134,214,133,216,166,217,165, 215,134,215 

44 DATA 133,217,165,20,197,20,240,252,120,173,1,211,73,3,141 

45 DATA 1,211,160,127,177,214,145,216,136,16,249,173,1,211,73 

46 DATA 3,141,1,211,88,96 

50 ? "Dewonstrac ja:":? " tekstowa 113 lub graficzna (2)" 

60 ? :? "Wybierz cy f re" , : INPUT I 
70 IF 1=2 THEN 300 

8o rem rfluzftru rr-tiwr-mi 
90 DIM BL1F0R$ (128) 

190 FOR 1=1 TO 128:BUF0R$(I,I)="1":NEXT I 

105 ? " ZAPIS CZY ODCZYT?":? "Cl - ZAPIS, © - ODCZYT)" 

116 INPUT ZAPIS : IF ROT ZAPI5 THEM 130 

126 ? "WPROWADŹ ZNAKI DO BUFOR A" : I MPUT BUFGRS 

130 ? "KTÓRY NUMER SEKTORA INPUT SEKTOR 

146 K=USR (ADR (SCHOWEK^) , SEKTOR , ADR (BUFOR $) , ZAPIS) 

150 IF X = ADR (SCHOWEK$> THEN ? "QZLY NUMER" : GOTO 100 
166 IF ZAPIS THEM ? "ZAPISANO"; : GO TO 180 
176 ? "ODCZYTANO"; 

180 ? " SEKTOR ";X 
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190 
200 
290 
308 
310 
320 
330 
406 
418 
42 0 
430 
440 
450 
460 
470 
480 
490 
560 
510 
526 
530 
546 
550 


IF MOT ZAPIS THEN ? "OTO BUFOR : " : ? :? BUFOR*—. 
GOTO 100 

GRAPHICS 8 : COLOR 1 

FOR 1 = 6 TO 159 STEP 2 s PLOT 0,I:DRAI4TO 319,X:NEXT 
? "Zapis do schowka ekranu i" 

ZAPIS=1 : SEKT0R=1:G0SUB 500 
GRAPHICS 8: COLOR 1 

FOR 1=1 TO 319 STEP 2 : PLOT X,0:DRAKTO X,159:NEXT 
? "Zapis do schowka ekranu 2" 

ZAPIS=1 :SEKT0R=51:G0SUB 500 


? "Odczyt ze schowka ekranu 1" 
ZAPIS=6 :SEKTOR=l:GOSUB 500 
? "Odczyt ze schowka ekranu 2" 
ZAPIS=0 : SEKT0R=51 : GOSUB 500 
GOTO 440 


IZAPIS/ ODCZYT EKRANU ZE SCHOHKAl 


EKRAN=PEEKC88)+256*PEEKC89) 

FOR 1=0 TO 49 

K=USR<ADRCSCHOHEK$) , SEKTOR , EKRAN+I*128 , ZAPIS) 
SEKTOR= SEKTOR 41 
NEKT I 
RETURN 


I 


I 


PProcedura “Schowek" 

PAutor* Robert, Mizinski 
5 

PWarunki wejścia* 

PNa stosie leży od góry* ile parametrów* 
Pnumer sektora HI» L0» 

Padres bufora danych HI* LOr 
Pznacznik zapis-odczyt HI* LO. 


RTCLOK 

EQU 

*14 

Pdef inic je 

PORTB 

EOU 

*D301 

Petykiet 

FR0 

EQU 

*D4 

Psystemowych 

ZRODLO 

EOU 

FR0+2 

Prezerwac ja 

CEL 

EQU 

FR0+4 

Patrony 0 


ORG 

*600 



PLA 


Pile parametrów 


PLA 


PHI numeru aektora 


PLA 


PLO numeru 


CMP 

#C*58»23 

Psprawdz wartość 


BCC 

DOBRZE 

Pnumeru 

ZLE 

PLA ł 

PLA! PLA! 

PLA! RTS 

DOBRZE 

LDX 

*0 

Pzwrot numeru 


STA 

FR0 

Psektora 


STX 

FR0+1 

Pdo BASIC'a 


L3R 

A 

Poblicz LO 


BCC 

JESTLO 

P rzeczywistego 


LDX 

#*80 

Padresu 


Sprzedam drukarkę ATARI 1029 
oraz magnetofon ATARI 1010. 
Informacja w redakcji. 


JESTLO 

STX 

CEL 

Pschowka 


CLC 


Poblicz HI adresu 


ADC 

#*A0 



CMP 

#*D0 

Pomiń obszar 1/0 


BCC 

PODD0 



ADC 

*7 


PODD0 

STA 

CEL+1 



PLA 




STA 

ZRODLO+1 



PLA 




STA 

ZRODLO 



PLA 


PHI znacznika 


PLA 


PLO znacznika 


BNE 

PRZĘŚL 

Pidz jeśli zapis 


LDX 

CEL 

Ptu odczyt 


LDA 

ZRODLO 

Pzamiana 


STX 

ZRODLO 

Pcelu ze zrodlem 


STA 

CEL 



LDX 

CEL+1 



LDA 

ZRODLO+1 



STX 

ZRODLO+1 



STA 

CEL+1 


PRZĘŚL 

LDA 

RTCLOK 

Pczekanie na brak 

CZEKAJ 

CMP 

RTCLOK 

Ppr zerwań 


BEQ 

CZEKAJ 



SEI 




LDA 

PORTB 

Pzamiana ROM(»)RAM 


EOR 

#*00000011 


STA 

PORTB 



LDY 

#*7F 

PI icznik 

PĘTLA 

LDA 

(ZRODLO) . 

>Y 


STA 

(CEL) t Y 

Pprzeslanie danych 


DEY 




BPL 

PĘTLA 



LDA 

PORTB 

Pzamiana RAM(=)ROM 


EOR 

#*00000011 


STA 

PORTB 



CLI 



DODOSA 

RTS 


Ppowrot do BASIC'a 


END 

DODOSA 

Plub DOS "a 
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INFORMATYK/ 


Temat nr 2: REPREZENTACJA 
INFORMACJI W KOMPUTERZE 

1. System binarny, a cyfrowy zapis 
czarno-białego obrazu. 

2. Liczby w systemie binarnym i dzie- 
siętnym. 

3. Interpretacja terminów: bit i bajt. 

4. Przykłady operacji artymetycznych 
i logicznych na liczbach zapisanych w sy- 
stemie binarnym. 

5. Interpretacja „kodu znaku” i jego 
graficznego zapisu. Kod ASCII. 

6. Atrybuty pikseli. 

Temat nr 3: BUDOWA 
MIKROKOMPUTERA cz. 1 

1. Pamięć RAM. Podstuwowe para- 
metry (pojemność, czas cyklu) 1 prze- 
znaczenie. 

2. Pamięć ROM — przeznaczenie. 

3. Mikroprocesor, przeznaczenie, pa- 
rametry. 

4. Różnice między procesorami (ze- 
gar, liczba bitów). 

Propozycja materiałów 
pomocniczych: 

1. Komputery osobiste, D. Madej i in- 
ni, Warszawa WKiŁ 1987. 

2. Mikrokomputery, A. J. Dirksen, 
red., Warszawa 1985, WKił. 

3. Sami tworzymy symbole graficzne, 
M. Skonieczny, R. Zugehor, „IKS” nr 
6/1988, s. 26. 

4. Mikroprocesory 32-błtowe, A. J. 
Piotrowski, „Komputer” nr 4/87, s. 38 

SPRZĘT INFORMATYCZNY cz. 1 
(Materiały do podstaw informatyki cz. 2) 

• Usiłując zrozumieć znaczenie podsta- 
wowych parametrów sprzętu informaty- 
cznego nie można, niestety, uniknąć te- 
matu: „system dwójkowy (binarny)”. 

Podczas ostatnich wakacji miałem okazję 
rozmawiać z Anglikiem. Rozmowa zeszła na 
temat mieszkań (tu i tam) i ich wielkości. Po 
krótkiej chwili okazało się, że porównanie 
wielkości mieszkań stanowi nic lada problem. 
Przyzwyczajeni jesteśmy bowiem do różnych 
miar. Dla niego 10 m 2 było tak abstrakcyjnym 
pojęciem, jak dla mnie 50 stóp kwadratowych. 
Na szczęście w rozmowie tej pomogła nam 10- 
-letnia córka mego rozmówcy. Zna bowiem (ze 
szkoły) relacje obu miar. 

Wydaje się, że przykład ten ilustruje kłopo- 
ty zrozumienia zwrotu „pojemność pamięci 
komputera” lub uświadomienie różnic mię- 
dzy procesorami 8- a 16-bitowymi, osobie któ- 
ra nie zna pojęcia bit lub bajt. 

W poprzednim nrze „IKS-a" omówiona została 
relacja między rzeczywistym obrazem, a jego 
cyfrową reprezentacją (zero-jedynkową) w 
pamięci komputera. W ten sposób zostało 
wskazane, iż zera i jedynki nie są abstrakcyj- 
nymi pojęciami — odzwierciedlają bowiem 
czarne i białe punkty obrazu komputerowego 
lub inaczej mozaikę tworzącą wyświetlany na 
monitorze obraz. Zatem pamięć maszyny 
przechowuje informacje w postaci zer i jedy- 
nek. 


Tezy do zajęć 
z Podstaw Informatyki 

(Materiały do Podstaw Informatyki cz. 2) 


Oczywiście w pamięci komputera zapisy- 
wane są nie tylko obrazy — przede wszystkim 
liczby, liczby i jeszcze raz liczby. W jaki spo- 
sób? Skoro dysponujemy tylko zerami i je- 
dynkami. Możliwe jest to dzięki systemowi 
dwójkowemu, który różni się od stosowanego 
przez nas na co dzień tym, że wykorzystywane 
są w nim właśnie tylko dwa znaki 1 i 0 — stąd 
nazwa systemu — „dwójkowy", „binarny”. 

Zatem w komputerze każdą liczbę zapisu- 
jemy nie kombinacją dziesięciu cyfr (od 0 do 
9), a tylko dwóch — zero i jeden. Zasada bi- 
narnego zapisu liczb jest prosta i wygląda na- 
stępująco: 

dziesiętny 

0 
1 
2 

3 

4 

5 

itp. 

Należy zwrócić uwagę, że każdej cyfrze 
dziesiętnej odpowiada aż osiem znaków w za- 
pisie maszynowym — ogromne marnotraw- 
stwo! Osiem znaków, by zapisać jeden! Rze- 
czywiście tak jest. Pamięć komputera zbudo- 
wana jest z „szufladek”, niezmiennej wielkoś- 
ci „kontenerków”, każdy z nich to osiem ele- 
mentów pamiętających zero lub jedynkę. Za- 
pisując zatem w komputerze liczbę 123 wyko- 
rzystujemy aż 24 elementy pamiętające — 
BITY lub inaczej trzy kontenerki — BAJTY. 
Czyli zapis owej liczby wygląda następująco: 

00000001 (pierwszy bajt) 

00000010 (drugi bajt) 

00000011 (trzeci bajt) 

Oczywiście istnieją inne, bardziej ekonomi- 
czne, sposoby zapisywania liczb, jednak ze 
względu na ogólny charakter niniejszych roz- 
ważań proponuję poszukać ich opisu w do- 
wolnej książce mającej w tytule „komputer" 
lub „mikrokomputer”. 

Wydawać by się mogło, że binarny zapis 
liczb jest nadzwyczaj sztuczny. Jak bowiem 
dodawać takie wartości, mnożyć, dzielić? 
Okazuje się, że nie jest to wcale trudne. Na 
przykład przy dodawaniu należy tylko pamię- 
tać, że: 0+0=0, 1+0=1, 0+1 = 1 i 1+1=... 
właśnie, przecież nie ma znaku 2, czyli wynik 
należy zapisać w postaci „10”. 

1+2 w komputerze wykonuje się: 


000001 1 — to jest właśnie 3. 


System 

binarny 

(komputerowy) 

00000000 

00000001 

00000010 

00000011 

00000100 

00000101 


3+3 — 0Ó000011 
+00000011 
00000110 


czyli 6. 


System binarny pozwala w sposób bardzo 
prosty wykonywać wiele ciekawych i użyte- 
cznych operacji. Na przykład dzielenie lub 
mnożenie przez 2, 4, 8, itp., polega na „prze- 
suwaniu" określonej liczby w lewo lub w pra- 


4, 0 = 000001 00 2 dzieląc przez dwa, prze- 
suwamy w prawo liczbę dwójkową o jedno 
miejsce — 00000010j=2 10 . Podobnie mnoże- 
nie przez dwa polega na przesunięciu, ale w 
lewo, zatem w wyniku otrzymujemy: 
000001000 3 =8 io (oznaczenia, wskaźniki wy- 
różniają system w jakim zapisana jest liczba). 

Wydaje się, że możemy teraz uznać, iż rozu- 
miemy sposób zapisu czarno-białych obrazów 
oraz liczb w komputerze. Wiadomo jednak, że 
korzystając z maszyny, w zasadzie nigdy nie 
widzimy bitów. Na ekranie monitora kompu- 
tera oglądamy normalne znaki, co prawda 
brakuje zazwyczaj wśród nich polskich liter 
(ń, ś itp.), ale dwójka to „2”, a litery są podob- 
ne do tworzących te słowa. Jak to jest możli- 
we? 

W tym miejscu bardzo ważne jest popraw- 
ne zrozumienie pojęcia „kodu znaku” i odpo- 
wiadającego mu „obrazka”. 

Jeśli idzie o „obrazek znaku”, wiemy już, 
że w pamięci komputera tworzy go mozaika 
zer i jedynek, a na ekranie odpowiednio uło- 
żone białe i czarne „punkty" (piksele). Pow- 
szechnie, a konkretnie w standardzie ASCII 
(„aski” obrazków cyfr, małych i dużych liter, 
znaków interpunkcyjnych jest aż 96 (128—32 
znaki sterujące). Każdy z tych obrazków ma 
swój kod lub inaczej „liczbową nazwę". Na 
przykład cyfry od 0 do 9 mają kody od 48 do 
57, małym literom od „a” do „z" odpowiadają 
kody od 97 do 122, dwukropek to 58, itp. 

Zatem w jednej części komputera zapisane 
mamy obrazki znaków, W drugiej natomiast 
kody znaków tworzące wprowadzane przez 
nas do komputera słowa. Na przykład w ma- 
szynie słowo „IKS” zapisane jest w trzech baj- 
tach (umownych kontenerkach, każdy po 8 bi- 
tów!). W pierwszym bajcie mamy kod litery I 
— 73, w drugim — 75 (K) i w trzecim 83 (S). 
W postaci binarnej wygląda to następująco: 


1001001 (I) 

1001011 (K) 

1010011 (S) 

Przykład ten jeszcze raz zwraca uwagę na 
to, iż w pamięci komputera zapisywane są tyl- 
ko liczby! Liczby te — to owe kody lub ina- 
czej „nazwy" znaków, które maszyna potrafi 
wyświetlić. Natomiast obrazy znaków, a właś- 
ciwie ich szablony, czcionki, komputer ma 


V W SZKOLE 


zapisane w specjalnej „trwałej” części pamię- 
ci. 

Nasuwa się w tym momencie pytanie — a 
gdyby zmienić tylko szablony? Właśnie tak się 
robi! Zmieniając pamięć „trwałą” ze starymi 
wzorcami na nową, np.: gdzie zamiast danych 
o postaci obrazka znaku (kod — 38) 
odzwierciedlona będzie, odpowiednio ułożo- 
nymi jedynkami, postać naszej polskiej litery 
„ł”. Zatem, gdy komputer „zechce” wyświet- 
lić znak o kodzie 38, „pobierze” ze swej pa- 
mięci, odpowiadający temu kodowi obrazek, 
szablon litery „ł”. Czyli na ekranie pojawi się 
nie znak a litera „ł”. W podobny sposób 
można zmienić postać wszystkich szablonów, 
tak by komputer „posługiwał się” cyrylicą lub 
znakami chińskimi. 

Kończąc tematykę relacji: obraz na ekranie 
— jego cyfrowy zapis w pamięci komputera, 
celowym wydaje się przypomnienie, iż często 
na ekranie monitora ukazują się migające, a 
nawet kolorowe obrazki. Uzyskuje się to dzię- 
ki odpowiedniej elektronice oraz „mniej 
oszczędnemu" wykorzystaniu pamięci kom- 
putera. Upraszczając problem — każdy punkt 
obrazu, który dotychczas zapisywany był jako 
zero lub jedynka (w jednym bajcie mieściło się 
aż 8 punktów obrazu) zapisywany jest w jed- 
nym bajcie. Oznacza to, iż każdemu punkto- 
wi obrazu można przyporządkować liczbę 
mieszczącą się w jednym bajcie — od 0 do 
256, innymi słowy 257 kolorów — od bieli 


przez szarości, żółty, niebieski, czerwony i in- 
ne, do czerni. Dzieje się to niestety kosztem 
wykorzystanej do tego celu pamięci. Przy ta- 
kim sposobie zapisu obrazu potrzebujemy jej 
osiem razy więcej (nic za darmo!). Dlaczego 
256? W każdym bajcie można zapisać 256 
różnych kombinacji zer i jedynek. 

Wydaje się, że można już uznać, że prze- 
brnęliśmy jeden z najmniej ciekawych etapów 
naszego wstępu do informatyki. Było to jed- 
nak niezbędne, choćby po to, by móc odpo- 
wiedzieć na pytanie: co możemy zapisać w 
pamięci wielkości 48 000 bajtów (pamięć ZX 
SPECTRUM)? Przyjmując, że kartka ma- 
szynopisu ma 30 wierszy po 60 znaków, to w 
pamięci tej wielkości można zarejestrować... 
ponad 26 stron. Mało! 

Sądzę, że usiłując omówić budowę mikro- 
komputera (bardzo ogólnie) uzasadnione jest 
rozpoczęcie od pamięci. Wiemy już bowiem 
do czego służy (przechowywanie informacji w 
postaci liczb binarnych), potrafimy także sza- 
cować jej wielkość (bajtami). Praktycznie sto- 
suje się jednak nieco większe miary poje- 
mności pamięci: 

1 KB (kilobajty) tj. około 1000 bajtów (do- 
kładnie (1024) 

1MB (megabajty) — 1 000 000 bajtów 
1 GB (gigabajt) — 1 000 000 000 bajtów. 

Typowy IBM PC/XT wyposażony jest w 
pamięć 512 KB (tj. 512 000 bajtów). 

Należy podkreślić, iż jest szereg różnych 


pamięci. Umownie dzielimy je na: zewnętrzne 
i wewnętrzne. Na początek zajmiemy się pa- 
mięcią wewnętrzną — o niej to właśnie do- 
tychczas mówiliśmy. Tworzą je małe elemen- 
ty elektroniczne, tak zwane układy scalone 
(„kości”) wielkości niewielkiej gumki do wy- 
cierania. W komputerach klasy IBM PC wy- 
korzystuje się najczęściej kostki o pojemności 
64 i 256 Kb (kilobity). Obecnie dostępne są 
także pojemniejsze kostki — nawet do jednego 
mega! Mówimy teraz o tak zwanych kostkach 
RAM. Tworzą one pamięć dostępną dla nas 
— użytkowników komputera. Możemy w niej 
zapisywać informacje i odczytywać. RAM za- 
zwyczaj przechowuje aktualnie wykonywany 
program oraz przetwarzane dane (np. kolu- 
mny sumowanych liczb). 

Poza pojemnością ważna jest szybkość pa- 
mięci, to znaczy czas wyszukania i odczytania 
(lub zapisania) np. jednego z 500 000 znaków 
(które wcześniej były zapisane w pamięci). 
Czas ten (czas cyklu) zazwyczaj wynosi mniej 
niż 400 ns (ns— nano sekund tj. 10“ 9 s.). Ozna- 
cza to, że podczas jednej sekundy można użyć 
tę pamięć (czytając z niej lub zapisując) aż 
dwa i pół miliona razy (obecnie dostępne są 
oczywiście także znacznie szybsze pamięci). 

Niestety nie wszystkie cechy RAM są takie 
„sympatyczne". Wystarczy bowiem, że wyłą- 
czą prąd i wszystkie zapisane w niej pracowi- 
cie informacje bezpowrotnie giną! Przydała 
by się zatem taka pamięć, która nie gubi in- 


...aż człowiek stworzył komputer 


Szybki w latach osiemdziesiątych rozwój techniki komputerowej, powstanie mikrokomputerów 
mających zdolności obliczeniowe dużych komputerów z lat siedemdziesiątych, spowodowały 
ogromne zainteresowanie możliwościami coraz doskonalszej techniki obliczeniowej. A jakie były 
początki urządzeń liczących. Kogo i co możemy dzisiaj uważać za antenatów czy protoplastów 
współczesnych twórców komputerów i coraz doskonalszych maszyn liczących. 


Za przodków komputera uznać należy wszystkie urządzenia służą- 
ce do liczenia. Zanim jednak zaczęto myśleć o urządzeniach musiano 
nauczyć się liczyć. Zaczynano od liczenia na palcach. Liczby ozna- 
czano węzełkami, muszelkami czy kamyczkami. Przodkiem kompu- 
tera było z pewnością liczydło wynalezione 5000 lat temu, w Babilo- 
nie i rozpowszechnione następnie w Chinach, Japonii, Egipcie, Gre- 
cji i Rzymie. Około 3000 roku p.n.e. powstał pierwszy przyrząd do 
przeprowadzania obliczeń zwany abakusem. Początkowo były to de- 
ski posypane piaskiem, na których zaznaczano kreskami zliczane iloś- 
ci, a następnie deski z wyżłobionymi rowkami, w których przesuwano 
przedmioty np. kamyczki, Około 200 roku p.n.e. w starożytnej Grecji 
opracowano „kalkulator analogowy” używany do obliczeń ruchu 
gwiazd i planet. W sto lat później Heron z Aleksandrii opracował 
licznik drogowy, zwany drogomierzem Hcrona, który dokonywał 
samoczynnego pomiaru długości drogi przebytej przez pojazd. 

Pod koniec pierwszego wieku n.e. Arab Alfazari zastosował cyfry 
0,1, 2, 3, 4, 5, 6, 7, 8, 9 używane do dnia dzisiejszego. Cyfry są pochodze- 
nia indyjskiego, do Europy Zachodniej zostały przeniesione w 
X— XII wieku (według niektórych publikacji w 1226 roku). W 960 ro- 
ku Gerbert z Francji udoskonalił abakus, co pozwoliło na doko- 
nywanie obliczeń pozycyjnych. Około 1200 roku wprowadzono pier- 
wsze liczydła skonstruowane na bazie stosowanego powszechnie aba- 
kusa. W 1464 roku niemiecki matematyk i astronom Regiomontanus 
wprowadził tablice sinusów dla ułatwienia mnożenia dwu liczb wie- 
locyfrowych. W 1494 roku Wioch L. Pacioli opisał system księgo- 
wości podwójnej, uważany za początek prowadzenia ewidencji o zja- 


wiskach gospodarczych w sposób kompletny i ciągły. W 1614 roku 
szkocki matematyk John Napier wprowadził pojęcie logarytmu. 
Opracowane tablice logarytmów uprościły czynności mnożenia, dziele- 
nia, potęgowania i pierwiastkowania. W 1617 roku John Napier za- 
stosował sztabki rachunkowe do obliczania wielokrotności liczb cał- 
kowitych (metodą dodawania logarytmów). 

Sztabki rachunkowe znane są również jako „kostki Napiera". W 
1620 roku E. Gunter wynalazł suwak logarytmiczny, mający dwie 
ruchome skale logarytmiczne do wykonywania mnożenia i dzielenia. 
Należy tu zaznaczyć, że w niektórych publikacjach Gunterowi przy- 
pisuje się wynalezienie skali logarytmicznej, natomiast suwaka loga- 
rytmicznego — Oughtredowi (w 1621 lub 1624). W 1623 roku pro- 
fesor języków biblijnych i astronomii w Tybindze Wilhelm Schic- 
kard wynalazł pierwszą maszynę do dodawania i odejmowania 
(a więc pierwszy arytmometr), która wykonywała przeniesienie liczb 
dziesiętnych przez sześć miejsc. 

Można było również, za pomocą tabliczki mnożenia, wykonywać 
operacje mnożenia i dzielenia. Niezależnie od Wilhelma Schickarda 
w 1645 roku francuski matematyk i filozof Blaiae Pascal przedsta- 
wił skonstruowaną w 1642 roku maszynę do sumowania, opartą na 
zasadzie obrotowych kół zębatych. Liczby były przedstawione za 
pomocą wielkości kątowych. Arytmometr Pascala miał możliwość au- 
tomatycznego przeniesienia dziesiętnego, wykonywania odejmowa- 
nia przez odwrotny obrót tarczy liczącej oraz mnożenia przez wielo- 
krotne dodawanie. Urządzenie to było maszyną jednookresową, tzn. 
ustawianie cyfr liczby i otrzymanie wyniku realizowane było w tym 
samym cyklu pracy. W 1666 roku skonstruował maszynę do sumo- 


INFORMATYKA W SZKOLE 


formacji takie wówczas, gdy wyłączymy zasi- 
lanie. Rolę tę pełnią pamięci zewnętrzne (o 
czym będzie mowa innym razem) oraz tak 
zwana pamięć ROM. Trwałość zapisu w 
ROM uzyskana jest niestety kosztem możli- 
wości zapisania w niej czegokolwiek. Oznacza 
to, że informacje zawarte w niej są niezmienne 
— to co wpisał do ROM producent można 
czytać tysiące razy, ale nigdy zmienić. Pamięć 
Tylko Do Czytania. Potrzebę takiej pamięci 
uzasadniają „szablony znaków” — raz zapisa- 
ne w fabryce mogą niezmiennie być używane 
przez lata. Pozostałe cechy pamięci ROM są 
podobne do RAM. 

Wracając do szybkości RAM, po co tak du- 
ża? Kto w pełni wykorzysta tę cechę? Jest je- 
den jej „współpracownik”, w zasadzie „pra- 
codawca” — mikroprocesor (procesor) — 
także układ scalony. Praktycznie to w nim 
wykonywane są wszystkie operacje związane z 
przetwarzaniem informacji. Układ ten między 
innymi dodaje, mnoży, dzieli, porównuje. 
Czynności te (i wiele innych) wykonywane są 
bardzo szybko, w takt tak zwanego zegara. W 
popularnym procesorze 8066 wymusza on 
(zegar) wykonanie do 10 milionów mikroope- 
racji (10 Mega) w czasie jednej sekundy. Jest 
to jednak już przeszłość, dzisiaj bowiem coraz 
częściej słychać o procesorach z zegarem po- 
wyżej 20 Mega. Co to praktycznie oznacza? 
Każdy takt zegara to wykonanie przez proce- 


sor jednej mikrooperacji typu: 1. Pobierz z 
RAM pierwszy argument, 2. Pobierz z RAM 
drugi argument, 3. Dodaj oba argumenty, 
4. Wynik zapisz w RAM. To przykładowe 
dodawanie dwóch liczb składa się z. czterech 
mikrooperacji. W wypadku, gdy zegar ma 
szybkość 4 Mega — czas wykonania przez 
procesor operacji dodawania (zgodnie z poda- 
nym przykładem) wyniesie 1/1000000 s. Owe 
mikrooperacje, to nic innego, jak czynności 
wykonywane przez nas, gdy korzystamy z 
kalkulatora — wprowadzanie argumentów i 
zapisywanie wyniku w zeszycie. Różnica po- 
lega głównie na szybkości. Aby wprowadzić 
do kalkulatora liczbę, jedna sekunda może się 
okazać zbyt krótkim czasem — komputer wy- 
konuje tę czynność co najmniej milion razy 
szybciej. Możliwe jest to dzięki temu, iż mi- 
kroprocesor sam odczytuje argumenty — stąd 
potrzeba dużej szybkości RAM, aby procesor 
się nie „nudził” czekając na podanie kolejnych 
argumentów. 

Argumenty, to oczywiście liczby — jak du- 
że? Zależy to od procesora. Taki, który może 
operować na ośmiu bitach jednocześnie — na 
przykład dodawać liczby mieszczące się w 
jednym bajcie każda, nazywamy procesorem 
ośmiobitowym. Zatem procesor taki w jed- 
nej chwili może dodawać liczby nie większe 
od wartości równej 256 — taką bowiem ma- 


ksymalną liczbę można zapisać w ośmiu bi- 
tach. Gdy chcemy sumować większe liczby, 
robi się to, „na raty”. Na przykład najpierw 
komputer dodaje jedności, potem dziesiątki, 
itp. Wpływa to znacznie na szybkość działania 
komputera. Stąd postęp technologii budowy 
komputerów widoczny jest w budowie szes- 
nastobitowych procesorów (np.: 80286) — 
mogą operować one, w każdym takcie, licz- 
bami o wielkości do 32 000. Na przykład ope- 
rację 31245:13567 komputer 16-bitowy z ze- 
garem 10 Mega wykona w czasie: 1 s/10 7 x- 
-liczba mikrooperacji niezbędnych do wyko- 
nania operacji dodawania. 

Obecnie coraz częściej słychać o proceso- 
rach 32-, a nawet 64-bitowych! 

Wszystko jest jasne, prawie wszystko — bo 
skąd on (procesor) wie, i to tak szybko, gdzie 
znajdują się argumenty (mogą przecież być 
ich setki tysięcy) i co z nimi zrobić? Dzielić? 
Dodawać? Co zrobić z wynikiem? Gdzie go 
zapisać? Przecież pamięć jest bardzo duża. 
Odpowiedzi na wszystkie pytania (także na 
inne) bardzo sprawnie i szybko (tak by się 
procesor nie nudził) udziela RAM. Odpowie- 
dzi te, to instrukcje naszego programu kompu- 
terowego — jednego z tematów naszego na- 
stępnego spotkania. 

Włodzimierz GOGOŁEK 


^ wania, którą następnie ulepszy! Ch. Mahoń wprowadzając mecha- 
nizm przeniesień. 

W 1674 roku niemiecki matematyk Gottfried Wilhelm Leibniz 
opracował model arytmometru działającego na zasadzie walców 
schodkowych stosowanych także we współczesnych konstrukcjach. 
Konstrukcja modelu przewidywała wykonywanie 4 działań arytme- 
tycznych tj. mnożenia, dzielenia, dodawania i odejmowania. Aryt- 
mometr był maszyną dwuokresową, tzn. w jednym cyklu ustawiało 
się cyfry liczby, natomiast w drugim — za pomocą ruchu korbką 
ustawione cyfry, liczby były wprowadzone do licznika. 

W następnych latach G. W. Leibniz opisał operacje rachunkowe 
w systemie dwójkowym oraz opracował projekt maszyny liczącej 
w systemie dwójkowym, by w 1694 roku skonstruować pierwszy dzia- 
łający model arytmometru. Udoskonalony przez Charlesa Thoma- 
sa de Calmara arytmometr Leibniza był pierwszą, sprzedawaną 
maszyną liczącą. 

W 1784 roku francuski matematyk L. Carnot założył pierwsze w 
świccie biuro obliczeniowe. Na początku XIX wieku Joseph M. 
Jacąunrd wynalazł automatyczny warsztat tkacki, w którym zastoso- 
wał zasadę przedstawiania informacji przez rozmieszczenie otworów 
w karcie papierowej. Za pomocą tych otworów realizowane było stero- 
wanie zmian koloru przędzy przy produkcji wielobarwnej tkaniny. 
Powszechnie uważa się, że zastosowana przez Jacquarda papierowa 
karta dziurkowana stała się pierwowzorem kart dziukowanych. 

W dalszym wyliczaniu nazwisk wybitnych uczonych i wynalazców 
warto dłużej zatrzymać się przy nazwiskach Charles’a Babba- 
ge’a i Hermana Holleritha. Angielski uczony Charles Babbage 
opracował koncepcję, a następnie zbudował „machinę różnicową prze- 
znaczoną do obliczania i drukowania tablic matematycznych” (np. 
tablic kwadratów liczb, dużych tablic wielomianów, itp.). W 1833 ro- 
ku zaprojektował „maszynę analityczną” będącą ideą automatycznej 
maszyny liczącej ze sterowaniem programowym. Maszyna ta nie zos- 
tała jednak wykonana, gdyż potrzebne do jej budowy części mechani- 
czne, w tym przede wszystkim koła zębate, nie mogły być wykonane 
dostatecznie precyzyjnie. 

Maszyna analityczna Ch. Babbagc’a zawierała wszystkie elementy 
współczesnego komputera. Program oraz dane miały być wprowa- 
dzane do pamięci z kart dziurkowanych (według zasady Jacquarda). 
Mogły być przechowywane w pamięci, a także istniała możliwość 
modyfikacji obliczeń w zależności od użytkowych wyników. 
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W 1887 roku amerykański wynalazca Herman Hollerith opracował 
mechaniczny system rejestrowania danych przez wycinanie dziurek 
w długim pasku taśmy papierowej oraz zbudował maszynę sortującą 
do zliczania opracowanych danych. Dziurkowany pasek papieru 
przesuwany był ręcznie z szybkością 50—75 kart na sekundę nad po- 
jemnikami z rtęcią. Rząd igieł teleskopowych badał kartę i w wy-„ 
padku stwierdzenia dziurki zamykał obwód elektryczny, powodując 
w ten sposób zwiększenie stanu odpowiedniego licznika o 1 . Wynala- 
zek Holleritha zastosowano w pracach statystycznych, a przede 
wszystkim do opracowania wyników spisów ludności (1890 rok — 
USA, 1891 rok — Kanada, 1897 rok — Rosja). Było to pierwsze 
urządzenie, zastosowane na tak szeroką skalę do przetwarzania da- 
nych. Pozwoliło na skrócenie czasu opracowania wyników z 6 lat do 6 
tygodni. Po raz pierwszy zastosowano masowo technikę kart dziur- 
kowanych. W 1896 roku Herman Hollerith założył przedsiębiorstwo 
Tabulating Machinę Company, które zajęło się produkcją i sprzedażą 
maszyn jego konstrukcji. Przedsiębiorstwo to po reorganizacji i z 
dwoma innymi przedsiębiorstwami przyjęło w 1911 roku nazwę 
Computing. Tabulating-Rccording Company zmienioną w 1924 
roku na International Business Machines Corporation (IBM). W 
tym też roku po raz pierwszy na świecie uruchomiono produkcję ma- 
szyn licząco-analitycznych. Firma IBM jest obecnie największym na 
świecie producentem komputerów wraz z oprogramowaniem i sprzę- 
tu komputerowego. 

Warto zwrócić uwagę, że w Polsce po raz pierwszy do prac staty- 
stycznych zastosowano maszyny licząco-analityczne w roku 1921. 
Prace nad stworzeniem pierwszego komputera prowadziło wiele ze- 
społów naukowo-badawczych. W 1936 roku Allan M. Turing 
przedstawił teoretyczny model uniwersalnej, abstrakcyjnej maszyny 
liczącej zwanej później „maszyną Turinga”. W tym samym czasie 
John von Neumann zaproponował zastosowanie w maszynach li- 
czących dwójkowego systemu liczenia w miejsce stosowanego do- 
tychczas systemu dziesiętnego, a Ludwik Conffigual opisał sterowa- 
ną programem maszynę cyfrową mającą pracować w systemie dwój- 
kowym. W 1939 roku Georg Stibitz skonstruował przekaźnikową, 
cyfrową maszynę liczącą nazwaną Complex Computer, a rok później 
pokazał współpracę prostej maszyny przekaźnikowej połączonej linią 
telefoniczną z końcówką. Wydarzenie to traktowane jest obecnie jako 
pierwsze zastosowanie zdalnego dostępu. W 1941 roku Kondrat Zu- 


se opracował pierwszą całkowicie sterowaną programowo maszynę 
cyfrową nazwaną 23, pracującą na przekaźnikach, uznaną nawet 
przez niektórych uczonych za pierwszy, pracujący komputer. 

W latach 1939—1944 zespół pod kierownictwem Amerykanina 
Howarda Aikena z uniwersytetu Harwarda we współpracy z firmą 
IBM prowadził prace nad skonstruowaniem maszyny elektromecha- 
nicznej (przekaźnikowej) opartej na idei maszyny liczącej Charlesa 
Babbage’a. Zbudowaną maszynę, którą nazwano Automatic Sequevi- 
ce Controlled Colenlator, sterowano automatycznie za pomocą pro- 
gramu zapisanego na dwudziestoczterościeżkowej taśmie dziurko- 
wanej. Maszyna ta zwana również Mark I uważana jest za pierwszy 
komputer. Maszyny pracujące na przekaźnikach elektromechani- 
cznych zaliczane są obecnie do zerowej generacji komputerów. 

W 1946 roku J. M. Bralnerd, J. P. Eckert, J. W. Mauchly i H. 
H. Goldstine z Uniwersytetu Pensylwańskiego zakończyli budowę 
pierwszej na świecie elektronicznej maszyny cyfrowej do celów obli- 
czeniowych nazwanej ENIAC (Elektronie Integrator and Compu- 
ter), która zapoczątkowała erę współczesnych, elektronicznych kom- 
puterów. W pierwszych komputerach elektronicznych używano lamp 
elektronowych. Maszyny te zajmowały bardzo dużo miejsca, pobie- 
rały bardzo dużo prądu i był)' zawodne np. ENIAC zbudowany z 
około 1800 lamp elektronowych zajmował przestrzeń 150 m 2 i pobie- 
rał 150 KW energii. Mimo zawodności ENIAC pracował jak na owe 
czasy bardzo szybko. W czasie pracy wykonywał 10000 operacji w 
każdej sekundzie. Dla przykładu podamy, że czas dodawania dwóch 
liczb dziesiętnych, dziesięciopozycyjnych wynosił około 0,2 ms. 
ENIAC zbudowany na potrzeby amerykańskiej artylerii do wykony- 
wania obliczeń balistycznych został praktycznie zastosowany w 1947 
roku po zainstalowaniu na poligonie Aberdeen w Instytucie Balistyki 
Szefostwa Artylerii Armii USA. Na kolejne wersje lepszych maszyn 
nie trzeba było długo czekać. Już w rok po zainstalowaniu ENIAC-a 
John von Neuman przedstawił koncepcję komputera cyfrowego ope- 
rującego na liczbach binarnych. Według koncepcji von Neumana 
program powinien być zapamiętywany w pamięci operacyjnej. Roz- 
kazy i dane należało przedstawić w pamięci operacyjnej jednakowo, 
tzn. w postaci liczb binarnych, a rozkazy powinny być wykonywa- 
ne automatycznie. Opierając się na tej koncepcji zbudowano na po- 
trzeby armii amerykańskiej komputer EDVAC (Electronic Discrete 
Varizble Automatic Computer). Pierwszym komputerem z pamięta- 
nych programem był skonstruowany w 1948 roku pod kierunkiem 
M. W. Wilkesa z uniwersytetu Cambridge komputer EDSAC (Elec- 
tronic Delay Starage Automatic Calculator). 

W 1949 roku zbudowano pierwsze komputery uniwersalne umoż- 
liwiające zastosowanie w problematyce przetwarzania danych. Były 
to skonstruowany w USA — UNIVAC, a w Wielkiej Brytanii — 
LEO. 

Maszyny pracujące na lampach elektronowych zaliczane są obecnie 
do pierwszej generacji komputerów. 

Na początku lat pięćdziesiątych pojawiły się pierwsze języki pro- 
gramowania jako interpretery. Grace Hopper z firmy Remington 
Rand opisała pierwszy kompilator. Uwzględnienie w konstrukcji 
komputerów możliwości adresowania symbolicznego oraz adresowa- 
nia pośredniego umożliwiło rozwój języków programowania. W 
1956 roku zostaje wprowadzony przez firmę IBM wysokopoziomowy 
język programowania FORTRAN. W roku 1960 wprowadzono języ- 
ki ALGOL i COBOL. 

Postęp w elektronice umożliwiał dalszy rozwój komputerów. W la- 
tach sześćdziesiątych lampy elektronowe zastąpiono tranzystorami. 
Sam tranzystor wynaleźli J. Bardeen, W. H. Brattai i W. Shockly w 
1948 roku. Pierwszy tranzystor został wyprodukowany w laborato- 
rium firmy Bell. Pierwszy tranzystorowy komputer zbudowano w 
1956 roku w Massachusettes Institute of Technology, a w cztery lata 
później firma IBM uruchomiła seryjną produkcję komputerów tej 
klasy. 

Na początku lat sześćdziesiątych uzyskano szybkość pracy kompu- 
tera równą jednemu milionowi operacji na sekundę, a także skons- 
truowano pierwsze układy scalone (początkowo układ scalony zawie- 
rał w jednej obudowie kilkadziesiąt tranzystorów i innych elementów 
elektronicznych), które zaczęto stosować przy budowie nowych ma- 
szyn. Dzięki temu komputery stały się znacznie mniejsze, a jedno- 
cześnie zwiększyła się szybkość ich działania. 

Maszyny pracujące na tranzystorach zalicza się obecnie do drugiej 
generacji, a na układach scalonych do trzeciej generacji komputerów. 

W 1965 roku w USA rozpoczęto seryjną produkcję komputerów 
cyfrowych serii IBM 360 zaliczanych do trzeciej generacji oraz poja- 
wiły się pierwsze komputery analogowe zbudowane na układach sca- 
lonych. 

W roku 1967 również w USA zastosowano pierwsze abonenckie 
systemy informatyczne, pracujące w systemie podziału czasu, a także 


rozpoczęto produkcją komputerów hybrydowych na układach scalo- 

Z ciekawostek warto dodać, że w tym samym roku odbył się pierw- 
szy mecz szachowy pomiędzy radzieckimi i amerykańskimi kompu- 
terami. Rozegrano cztery partie. Dwie partie wygrał program opra- 
cowany w ZSRR, dwie partie zakończyły się remisem. 

W latach sześćdziesiątych udoskonalono urządzenia zewnętrzne 
wspomagające pracę użytkowników sprzętu komputerowego. W 1968 
roku rozpoczęto produkcję czytników dokumentów przystosowanych 
do automatycznego odczytu, a także graficznych urządzeń zewnętrz- 
nych tj. grafoskopów i alfaskopów, miniaturyzacja elementów elek- 
tronicznych, produkcja układów scalonych o coraz większym upako- 
waniu podstawowych elementów elektronicznych doprowadziła do 
skonstruowania pierwszych minikalkulatorów (kalkulatorów) na 
układach scalonych LSI (large scalę integradion — dużej skali inte- 
gracji), a także pojawiły się pierwsze kalkulatory kieszonkowe. W 1969 
roku wydawca nowojorski William Morrow and Co. dokonał pier- 
wszej próby. wykorzystania komputera do wykonania składu książki. 

Na przełomie lat sześćdziesiątych i siedemdziesiątych dokonał się 
ogromny skok w dziedzinie mikroelektroniki. W 1969 roku projek- 
tanci z amerykańskiej firmy Datapoint zaprojektowali bardzo prosty 
procesor i zlecili firmom Texas Instruments i Intel wykonanie go w 
postaci jednego układu scalonego. Z postawionego zlecenia wywią- 
zała się firma Intel, choć okazało się, że pierwszy mikroprocesor dzia- 
łał z szybkością około 10 razy mniejszą od szybkości oczekiwanej 
przez firmę Datapoint. Z tego powodu zerwano umowę, ale Intel 
wykonał jednak prototyp zaprojektowanego procesora. Zdecydowano 
się także na produkcję seryjną procesora. W ten sposób na rynku po- 
jawił się pierwszy mikroprocesor Intel 4004, o długości słowa równej 
czterem bitom. W 1974 roku pojawiły się mikroprocesory na ulep- 
szonych układach scalonych i większej długości słowa (8 bitów) i sło- 
wa adresowego (16 bitów). W tym samym roku odbyły się pierwsze 
komputerowe mistrzostwa świata w szachach. Rozegrano je w Sztok- 
holmie na kongresie IFIP, (International Federation for Information 
Processing). Uczestniczyło 13 programów z 8 krajów. Tytuł mi- 
strzowski zdobył program „Kaissa” opracowany w ZSRR. W 1976 
roku opracowano pierwszy mikrokomputer zawierający się w jednym 
układzie scalonym (seria Intel MCS-48). 

Szybki postęp w technologii produkcji układów scalonych (zaczęto 
wytwarzać układy scalone bardzo dużej skali integracji VLSI-very 
large scalę integradion) oraz komputerów sprawił, że zaczęto mówić o 
rewolucji komputerowej. Komputery zbudowane z układów VLSI 
zaczęto zaliczać do czwartej generacji. 

W początkowym okresie komputery dla pojedynczego użytkowni- 
ka produkowano w Hewlett-Packard i IBM. Komputery te były 
zaprojektowane dlii naukowców (kosztowały około 10 000 $), a można 
je było programować w Basicu i używać od razu po włączeniu do sie- 
ci. 

Pierwszym mikrokomputerem był Mark 8 opisany jako konstruk- 
cja dla amatorów w czasopiśmie Radio-Electronics w lipcu 1974 ro- 
ku. W styczniu 1975 roku rozpoczęto produkcję komputera Altair, 
opartego na 8-bitowym procesorze Intel 8080. 

W połowie lat siedemdziesiątych Stere Woźniak i Stere Computer 
— Apple dla masowego odbiorcy (cena początkowa około 900 $) Ap- 
ple był zbudowany na bazie mikroprocesora typu 6502 firmy MOS 
Technology, współpracował z klawiaturą oraz wykorzystywał ekran 
telewizyjny. Wszystkie układy komputera były umieszczone na jed- 
nej płytce. Po udanej konstrukcji Apple wyprodukowano znacznie 
ulepszony komputer osobisty Apple II, który ciągle modyfikowany, 
produkowany jest do dziś. Kolejnym sukcesem firmy Apple cieszyła 
się konstrukcja z 1983 roku Macintosh. W ciągu 100 dni wyprodu- 
kowano około 70 000 sztuk tego komputera. 

Z innych bardzo udanych modeli mikrokomputerów należy wy- 
mienić wyprodukowany w 1980 roku przez firmę Clive Sinclaira 
Z 80 — pierwszy komputer na każdą kieszeń, w cenie poniżej 200 $. 
W 1981 roku Sinclair wyprodukował ZX 81, a w rok później tak popu- 
larny w Polsce ZX Spectrum. Obecnie kierunek rozwoju kompute- 
rów osobistych wytyczają Atari serii ST, Commodore Amiga oraz 
IBM. 

Największy na świecie producent sprzętu komputerowego, amery- 
kańska firma IBM (około 70% produkcji światowej), przystąpił do 
produkcji komputerów osobistych w 1981 roku. Opracowano od razu 
komputer IBM PC z 16-bitowym procesorem, choć w tamtym okresie 
powszechnie stosowano mikroprocesory 8-bitowe. Konstrukcję IBM 
PC łatwo jest modyfikować poprzez wymianę lub dołączanie nowych 
modułów, co zwiększa możliwości obliczeniowe i graficzne komputera 
oraz pozwala na dołączenie nowych urządzeń zewnętrznych. Model 
IBM PC stał się standardem komputera osobistego przeznaczonego 
do zastosowań profesjonalnych. oprać. Jacek SZANIAWSKI 
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Projektant — znaki 


Szanowna Redakcjo ł 

U numerze 3 Uaszego pisma za- 
mieszczono program na 'C-6-i; 
"Pr o je k t an t -zna k. i " . a ponieważ 

Posiadam podobny program na 
ZV SPECTRUM "UCC-" . wiec 

Postanowiłem przerobić go r, a 
j ez y k polski i wysłać jego 
w y d r u k d o U a « . 

Program działa be z bł ed n i e , . o 
czym może 4 w i a d •: z y ć fakt , ze 
polskie u tery , k tórymi sie 
właśnie posługuje zostały 

utworzone na tym programie. 

P r o g r a m ten po przepisaniu na 
komputer natęży zapisać na t a s m e 
i ns t ru kej 



St. L i. .01. 
iii) GO TO 8000 

100 PI. OT 63,96 LPRU 129,0 

no n nr i; . s . .iro rr/fiu o, 129 
Tl II' o 

i5o ir ifibE.s-' tmcii go to i?o 

130 IF i THEN l.r.T atl 

LET n •- E I u- ■ 

135 IF IMbP. /•$•» " 4 •* I MfU Gu UB 1 
800 

140 1T INF E r S“"0" TMr.ll I FT i *0 

LEI i*? * I.FI I I- 

lt r -. IF JUKĘ t-’ :• T HEM 00 SUE 1 

000 

u;* ir Iłlt r 5" T MHI •>(.• -UF 1 

334 

150 LEI lMLE.S 
155 RPIII1 RT y,/,b$ 
ie.0 LEI xs/łi7<?"6" OMF.- 
> $e"5" HMD > ' 8* 

iro LEI y sy ♦ I ■* $*"*>■ RNL 'J ' 1 ' - 1 

y % - " T " RND *J 2 • 

ISO PPTMT fiT y . ' , . , 

i n , ir - 1 piru r o mii i . ■ , i . ■ 'i 

1 ,i i .r.' i .o nur.' r-OIin 1 • i • 

-O TMEtl 10 iOO . 

1*0 ir - io -i lutu rfci i ' ^ 

195 LET C = ■ b -1 1 »1C*'1 -1 . , 

SOO ]F POINT 1 *5.1, 175-9»S^*1 

'irr?jńrr:;.;i # 3 :* s ? 
T S35il 

' lic^PLC^^III^^of^OOEr. 0*11 OMD P 
OIMT 1 -3. 177 - yi =1 HlIC- a =0 • , * . 

" 1 Ś3Ó y pL0T IIIK O, O l, EI.«' 1 LoV C 51 
OIMT (222** ■ 17 .-u ' "I HtlD a=0',23 

"*255 FP IMT ST u . 2 * ' b-1; ‘25, " c 
2*0 PPIUT OT y ,*♦ • b- 1' -- 

TPŚ a i C » • IMF 0.4*0 

l*o sefp^ . o? . - 10 eifCP .os . o e- 
F.EF .02 ■ lf 
300 0-0 TO 100 


r 

~ 

•ji E 


k 

- 

KONIE 

THEN 

GO 

SUB 

i 

THEN 

GO 

5UB 

\ 

runi 

GO 

si ir< 

i 

r urn 

GO 

sur 

L 

10 Tu 


o _ 



ZX SPECTRUM 


400 POKE 23609.60 CL -• RPIIIT 
PT 5 . 1? , ”| C ' ' , RT 9,13 I Ifl 

■ : HT 10 , Ul 111 II I OT 1 1 , 13. * 

■ ■ *v . ot^ ii- . ia . ■ *■ phuee 100 

iif i^f^w^w^ffl^**^******* 

s _ S.fci ip_ 

J.015 PPTin tll.RT 1 . 

1030 PR IMT nr 30.0 
C C - CONTIMUn 
1035 RRINT nr 31.0 

1030 IF 1NKEY $ - 5*'p ” 

100 

104 0 Tr IMF F . t* f " * *' 

300 

1050 ir turr . t ' ► 
tioo 

loeo ir nn r.v4- • 

700 : RE I IJRI 1 
107 O BEEP .005. 

1 1 ___ 

PONIŻSZE ŻURKI !BT GPRF ICZNE ! 
1110 PRINT RT 19,0; "R B C D 
EEGHIJK" 

1120 PRINT RT 20,0, "L M N O 
P O P S T U 
1125 FOR n =1 TO 30. NEXT n: LET 
m«0: POKE 23658,8: FOR f*l TO i 
1130 PRINT tt 1 , RT 1,1, f;". Litera 
(R-U) LET p*«INKEY* 

1183 IF CODĘ P * = 1 3 THEN FOR n?l 
TO 30: NEXT n GO TO 1155 
1140 IF CODĘ PS <65 OP CODĘ PS >85 
THEM GO TO 1130 

1160 FOR n =0 TO 7: LET m 4 1 : PO 
KE USP CHP $ (CODĘ P * 179) en , a < m ) : 
NEXT n 

1165 PEM 

liro ppiriT ht Ij,o, m b u u 
E E G H I J K" 

1180 PRINT RT 20,0; "L M U O 
p O R S T U 

1183 NEXT f 

1185 POKE 23658,0 PRINT ttl,PT 1 

{l90 RRINT RT 21,0; OUEP 1;" 

Uc i s " 4CHRS 8+” nij dowolny klawi 
S Z ! " ; PRU5E 0. RETURN 

1 30O 

PONIŻSZE. ZIIRKI PI3 GPRE ICZNE 
1310 RRINT RT 19 70, "R B C D 
EFGHIJK” , 

1320 PRINT RT 20,0, "L M N O 
P O R S T U 

1321 EOP n*l TO 30: NEXT n 

1322 GO TO 1330 _ „ ^ .. 

1324 PRUSE 5: PRINT ttl,RT 1,9;* 

OOPY ? (t/n)": IE INFE/4=' ' THE 

N GO TO 1324 

1325 IF INKEY $ = " t " THEN PPIMT RT 

y , X ; "■" : COPj : PRINT RT y,x;aS 

13^:6 GO 5UB 1700. RETURN 
1327 FOR n=l TO 30 : NEXT n 
1 PR TIK U 1 .Tir 1,0." 5 

nut " it ru ir iiifey ♦«:•••■ t 

HEN I*,.;. TO 13 30 

13'‘ IF INI t, 1-Ti" TMF.M RF.TURM 
IJ-T-e. IF 1 1 II f i S ' rilFII GO TO 13 

I 10 II H Ml "IIWM ■ f* ♦ IF I FM 

i t | O I Mi M >■" I " I <M> 

IM- II li I lir II I I I l'ł i . 1 • i 

I * 

I SCO '. H' 'I r 4' "I ’F 1 1 '". | / II . I • •• ' 
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135 3 I uN Ii-L 10 *-0 ME.A T fi 
l?r r . PPTIIJ R 1 . AT 1,8," UEP.IFY 7 
( t. / n ' " . (F INK f. / $ - " " FHEM Gu TO 

1*56 IF INKEYtO" » •• T HEN PETURN 
1360 PPINT OT 19,0 i” 

";AT 10,0; P 
LR8H li OUEP l ; "Pr zew i n " +CHR$ 8 + 
t. as " fCHP t- 8 ♦ " ’ nie •• aCHP* 8f‘, • 
" , OT 20,3," UEPIFY ' 

1365 PPIIH OT 18,0 
1370 ','ER IF i P*C0DF. 

1 3 8 0 JP E l U R 1 1 .. 

Ł*. »| 


NUai n 
Bi" KONIEC 7 
" TMEM GO TO 


1500«S«, 

J 5 10 FOR n - 1 -TO 30 
1550 PR INI ttliOT 1, 

1. 1. / n » " IF INKĘ/* a" 

1520 

1525 IP IMF E/ *s M t " THEN GO TO 99 

If^&T 

1.710 PPINT PT 19,1;" 1 -RYSUJ 

O -MOZ " 4 CHP * 8; OUEP 1 

1720 PPINT OT 20,1;" 3 -MENU 
4 -CL 5 2-COPY " 

1725 PRINT R 1 ; OT 1,0; " ^ 

1730 RETURN 

1820 PRINT tt 1.; OT 1.0," 

Cl. 3 7 U ni ; IF INKEY 

$ = " " THEN GO TO 18.30 
1330 IF INKĘ , t '• THEN GO TO 90 
00 

1340 PPINT tli; AT 1,0." 

" RETURN 

500 

8005 OOP DER 7 ; PAPER 7. INK O 
3010 CLS . PPINT OT 0,5; "User De 
iined Gr a Pb i ■: - " i OT i , 4 ; --m— mmmmmm 


3020 ' PR INI " P r o Qi s fci i. e n u m o z l i w i 
a l worz® nie 21 wiasnuch symboli 
gr a f i cznuch . " PLOT 12 . 1,150 

8O30 PRINT "M a. ket V" prz<» su 

w 3 Ti y i s t k u r s o f smi i 5 - 8 > . " 

8 O 3 6 r P I NT "U y b o r l i t. •= > u , P o d k t 
ora id? linio- w n m zostanie d a r» y 
symbol ■ jest dowolny." PLOT 27, 
111: PLOT 27 . I 10 PLOT 155 .111; 

plot 155 .110 plot i :«* . 105 plot 

175 , 106 

©040 PRINT "No 7 l i '«y j€5t zapiS 
wszy s U 1 cK « y m bo l i na taśmie l 

m b o t r z y m a n i e t p i 1 n a d r Kar c * 

• w y m a -i a ko zmiany jednej 7 i n s 

t i*.M K •: 1 i '), ■ PLOT 19.79: PLOT 1 

07,71. PLOT 107,70 
805O ppint Zestaw symboli na l 
asmie można załadować zleceniem 

LORD CODĘ i wykorzystać i 

nnym programie." PLOT 163.39: P 
LOT 163,35 PLOT 219.39: PLOT 18 

,27: PLOT 20 , 23 PLOT 21,29: PLu 
T 68,31 : PLOT 68,30: PLOT 100,23 

: PLOT 100.23 

806O PP INT a 1 ; AT 1 , 3 ; u'.'F P l ; "Uę 
ls"tCHR* 8f' nij dowolny klawisz 
l " 

8100 PRU5E 0 

1 0 0 

LS 

90 10 PP INT AT 0.5, U:' e r De f i ne d 

Gr aph i cs " 

9015 INK O PLOT 38.166: DRAM 17 

2,0 

9020 PLOT 63,160. DRAU 129,0: DP 
AU 0 . - 129 DPAU -129.0: DPAU 0 . 1 
29 


90JF PL OT 63,96 DRFHJ 159.0 PLO 
T 129.160; ORfllJ 0,-159 
9030 FOR n«SS TO 161 STEP 133 

9010 FOR I. =61 TO 193 STEP 6 

9050 PLOT m.n: DPPII 0,2; ME TT ffl ; 
NE-T n 

9060 FOR n=60 TO 195 STEP 134 

9070 FOR B =32 TO 161 STEP 8 

9090 PLOT n.F DRPU 2,0 MEXT m; 
NE>T n 

9090 PRIMT PT 20.1i" 3 -MENU 
1-CL5 2-COPY" 

9095 PRIMT PT 19.1," 1-RY9UU 

0-MPZ" ‘CHP* 9: OUEP 1 

iloA FOR n-F TO 59 STFP 23 FOR 
n, =5 ro 1.’ PRIMT PT m.n; INK o; O 
: ME X T m: ME T l n 

9110 PRIMT PPPEP 7; OT 0,0;" ”;P 

T 1,0;" " ; PT 0,30;" " ; PT 1,30 

9120 INK O PLOT 0,159 DRRU 16, 


9120 > INK O. PLOT 0.159 PPR" I*, 
0 DPR" 0.16; DPR" L.O DPH" 0.- 
1 7 • DPAU -17.0. D RA U 0 , - 1 ; PPRU 
18,0 DPAU 0.18 ^ _ 

^180 PLOT 237.175. DPR" 0.-18: D 
PRU 18,0: DPR" 0.1: DR RU -17.0: 

DPAU 0,17, DPAU 1,0 DPR" O, - l*: 

D P R U 16 . 0 : II U- 0 

9 5 o o«a^x»raTiLifWiip«*f"a* 

9510 LEI 9=2; LEI ” =5 O IM » >40' 
9520 LET 3-0 LET J*«"l ' 

9530 LET b*=" LET b=l 
9995 GO TO 180 _ 

qqoci EOPDEP O. CL 5 PRINT AT t , 

O . * F L R 3 H li " Podanie instrukcji 
rniir imuf. powodu,"? wyzerowani 

ć k •*> m p M».era." ST OP P Al ID"M I Z E 

Osp o 


A«jt.or.(zy> nk 
•JURGA ' '■ 


50 f t . 


u u ni a cli 

I. HO. 1120.1170.. U?0, 1310 i 1320 

U, -4 ,r.lUim,IKl. PPTMT 53 

z n a k a m i graficznymi ' 

p i •= f 5 Z e M '■ U C K W' i s Tii e P l 'N 4 00 

następne PUM . 

•JYtllK 


DZ IRLRN IR PPOGPRI UJ 



1-PYSUU O -MAS 

3 -NEMU 4 -Cl 3 2-CC'P . 
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DWA GŁOSY 
NA SPECTRUM 

Powszechnie znane ułomności popularnego ZX- 
Spectrum, to jego małe możliwości akustyczne. W kom- 
puterze tym zainstalowany jest jeden generator aku- 
styczny, który ma tylko dwa zmienne parametry: wy- 
sokość tonu i czas trwania dźwięku. 

Pozornie niemożliwe jest naśladowanie jakichś instrumentów, czy 
też granie melodii na dwa głosy. Zamieszczony niżej zestaw trzech 
programów niemożliwe czyni możliwym. Pierwszy z nich naśladuje 
dźwięk mandoliny; gra na dwa głosy starą rosyjską melodię „Samotna 
harmonia”. Po wprowadzeniu do pamięci uruchamia się go dyrek- 
tywą RUN. 

Następnie, nie wymazując poprzedniego programu, dopiszcie treść 
drugiego. Nie zrażajcie się, jeśli powtórzy się wiersz o jakimś nume- 
rze. Dyrektywa RUN spowoduje zagranie drugiej, równie pięknej 
melodii „Suliko”. 

Jeśli, nie wymazując dwu pierwszych programów, wprowadzicie 
trzeci, to będziecie mogli wybierać na zmianę: pierwszą lub drugą me- 
lodię. Aktualnie wybierana melodia wskazywana jest przez mrugają- 
cy kursor. Zmiany wyboru dokonujemy klawiszem SPACE, a wybór 
potwierdzamy klawiszem ENTER. Stop programu następuje po na- 
ciśnięciu klawisza BREAK. 


1 RFM 9*motn* harmnnl * 

5 OFr FN m()»l-2* INT (1/7) 

10 PATA "/»CEC*?HnrF»Ht>ffvHr DPFF 
CHCDFF nr fłDCHaHCDFFFFfiF PrFnf TltWlł Inr * " 
70 PATA f palICnrrn f rhn?ntli:t)l) 

*7 *uri>rnn«» z aHcdrdf of t>r>r,l II In .• r-n 


40 IFT t-IRł I.FT f w- 7 *.4 77 
70 IFT h~ 1« LFT «— 0t IFT rt-?«LM »-4ł 
IFT ł-5s I ET g-7«LFT r-fl» IFT «-9 l 
Rffl RFAD p*i RFAD rt* 

1*50 FOR li»l Ul 3 
160 I.Et i~t 
170 FOR 1"t Tt) 6 

)F)0 LFT buf "1 *7+ FM mOa TOR 1 "i 
TO buli GflSUR 1010! NFKT il IET T-L* 

IS- FM «())l GMBUB 10101 LET ł«1*ll 
l ET t-IB 

l?l<l NFXT 1 
?H0 NFXT K 
1000 n Hi RTOF 

I01M I. ET W"* VAI p*<i>« IFT n- UAI HMO 
1070 IF d*<i> <■ "7" THEN I.FT w"w*l? 

1030 IF p4(l> <■ ”7" THEN I.ET u«u+12 

1040 POKE tm.0 

1050 BEEP 1/60. ni BEEP 1/40. u 
1040 POKE tm, PEEK tm*2l IF PEEK t« < t 
THEN GOTO 1050 
1070 RETURN 
2 REM Bul 1 ko 

30 DATA "qg«fg«fg0HHHHHDUC0CCMCDnuHng**gg»qgB0" 

40 DATA "«#cd»fd»0gggggHggffnngnHnq»g»nf f P0ri<*0c0" 

50 PATA ”111121 1B71 111211 A7 11111111 2251 1 I 1 21 1 B7" 

40 I.ET t»18i LET tm-73672 

70 LET h— ll I ET r-0! LET d»7i LFT •-*4i LET f*-5t 
LET g^7i LET i"Ri LET «-9 

70 RFAP n*l I Rt-AT) h*! RFA11 v*i 1*0 TO 750 
750 I OH 1-1 TO T. 

740 Li: T »« ll GOSUB 1700 
270 LET. ><-19iG0SUB 1200 
2B0 NEXT k 

1700 FOR 1»X TO LEN q* 

1210 IF q«<l> -. ”0” THEN FAUSE t* UAL v*<l)«GOTO 1290 
1720 LET w* VAL q*(l> 

1230 LET u- VAL b4<i> 

1740 IF q*ll> <- "Z” THEN LET w-w+12 
1250 IF b*«l> <= "Z" THEN LET U»U*12 
1240 POKE tw, 0 

1270 BBEP 1/40, wi BEEP 1/40, u 

12B0 POKE t», PEEK tm+2i IF PEEK tm < UAL v*(ł> THEN 
GOTO 1270 

1290 NEXT 1 
1500 RETURN 


90 READ q9i READ b*l READ vt 
95 DTM *9(2,14)1 LET «♦ < I ) »«Sł.mntn* h.rmonii 
I FT *4(2) ■•"Bul 1 ko" 

100 PRINT AT 10, I { O' 'ER CHR9 B; ", r ; 

CIR* O;", melodie-jCMR* Rj", wyt*i n*r ?" 

I05 FRINT AT 12, 4j s* ' I 1 • AT | 4 , . i r T 

110 PRINT AT 17*1,1} p r.|i !.•••• 

120 ŁF INKEYł -" " rur*. PR tut AT 12*1.1;" "■ 
IFT lOOl LFT 1-FM iM)s GOTO M,a 

130 IF IMKEY* - Cl IR* 13 THEN CLS s FRIH ' A r 
10;r*(Hl): GOTO 150*1 ł Ifii? 

140 GOTO 120 

1000 CLS i GOTO 100 


•A 


M P 


Programowanie nie jest trudne, 

czyli MINI-GEM 


Siadając do pracy przy komputerze, trudno sobie uzmysłowić, że je- 
szcze klika lat temu te elektroniczne cacka nie były tak przyjaźnie „usto- 
sunkowane” do człowieka jak dzisiaj. Starsi informatycy ze wstrętem 
wspominają czasy, gdy program wprowadzano do komputera za po- 
mocą kart perforowanych, albo nawet taśmy dziurkowanej. 


Jeszcze przed pięcioma laty tekst pro- 
gramu wprowadzało się do pamięci maszy- 
ny za pomocą prostego edytora, a trzeba 
było przed przystąpieniem do pracy dokład- 
nie przestudiować instrukcję jego obsługi 
Kto raz pracował na dzisiejszym komputerze 
oprogramowanym w systemie GEM, ten 
nigdy dobrowolnie nie będzie chciał wrócić 
do wcześniejszych metod. 

Co to jest GEM? Jest to skrót od wyrazów 
angielskich, które można zinterpretować: 
„Zarządzanie środowiskiem komputerowym 
za pomocą symboli graficznych" Wyko- 
nanie jakiejś funkcji można sprowokować 
nie poprzez pracowite wystukiwanie dyrek- 
tywy na klawiaturze z możliwością popeł- 
nienia błędu, lecz dzięki wskazaniu na moni- 
torze komputera odpowiedniego symbolu 


graficznego Zamiast pisać „DEIETE" 
(usuń) wystarczy wskazać na ekranie sym- 
bol kosza na śmieci. Wyboru symbolu do- 
konujemy strzałką, która wędruje po całym 
ekranie dzięki, tzw. myszy. Pomyłka jest 
prawie wykluczona 

Wbrew pozorom nie jest to takie trudne 
nawet wtedy, gdy nie mamy do dyspozycji 
„myszy". Nieco mniej komfortowym urzą- 
dzeniem jest joystick Poza tym można wy- 
korzystać klawisze ze strzałkami, które 
znajdują się na klawiaturach wszystkich mi- 
nikomputerów 

Żeby nie być gołosłownym przedstawia- 
my wam krótki program, dzięki któremu mo- 
żemy przesuwać w jednym z czterech kie- 
runków dowolny tekst. Program napisany 
jest w BASIC-u dla komputera ZX-Spec- 


trum Widać więc. że nawet w tak bardzo 
ganionym języku i jednocześnie na tak ma- 
łym i prostym komputerze można zaimple- 
mentować opisaną wcześniej metodę ste- 
rowania programem 

Dla ułatwienia wspomnę, że zmiany jed- 
nej z sześciu opcji dokonujemy klawiszem 
SPACE, a wybór potwierdzamy klawiszem 
ENTER. Dwie „niekierunkowe opcje to: 

C — czytaj tekst, 

R — ruch całego tekstu, 

Resztę powiedzą wam symbole. Stop pro- 
gramu nastąpi po wciśnięciu klawisza 
BREAK. 

10 FOR n = 0 TO 79: READ a: 

POKE USR "a" + n.a: NEXT n 
20 GOSUB 9000: LET t* = u*: 
GOSUB 9000: LET i = 0: GOTO 
1000 

30 LET t = 1*4+1: PRINT AT 10,2 
; t*(l TO t); FLASH l;t*(t+l TO 
t+2) ; FLASH 0; t*<t+3 TO LEN 
tt) r TAB 2; u* < 1 TO t)j FLASH 
1; u*<t+l TO t+2) ; FLASH 0; 
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ATARI 


Wydruk ekranu 


Czy zawsze, gdy chcesz coś wydrukować, 
potrzebujesz edytora tekstu lub programu 
graficznego? Z pewnością nie. Do pro- 
stych prac przy formacie 40 znaków X 24 
wiersze, może posłużyć Ci poniższy pro- 
gram. Trudno oczywiście mówić o two- 
rzeniu złożonej grafiki, gdy pracujemy w 
trybie graficznym 0. Można jednak, wyko- 
rzystując zestaw znaków możliwy do uzy- 
skania na drukarce 1029, tworzyć nie- 
skomplikowaną grafikę, tabele, teksty o 
maksymalnie 40-znakowym wierszu. 

Po uruchomieniu programu, wybieramy 
rodzaj drukowania. Chodzi o to, że w try- 
bie tekstowym stosuje się odstęp między 
wierszami. W ten sposób na jeden cal 
wchodzi sześć wierszy tekstu. W trybie 
graficznym nie stosuje się odstępu między 
wierszami, dzięki czemu w jednym calu 
mieści się dziewięć wierszy. Gdy dokonasz 
wyboru, program przejdzie w stan wycze- 
kiwania. Będzie gotów do tworzenia 
obrazu. Przesuwanie kursora po ekranie 
odbywa się tradycyjnie, np. naciśnięcie 
klawisza CONTROL i któregoś ze strzałką, 
przesuwa kursor w kierunku wskazywanym 
przez strzałkę; naciśnięcie klawisza RE- 


TURN powoduje przesunięcie kursora na 
początek następnego wiersza, itd. 

Drukowanie inicjuje się przez naciśnię- 
cie klawisza ESC. W związku z tym, że 
obraz przechowywany jest tylko w pamię- 
ci ekranu, po wydrukowaniu zostaje ska- 
sowany. Jest to z pewnością niedogod- 
ność, którą rekompensuje fakt, że obrazy 
czy teksty drukowane tą metodą, będzie 
można otrzymać znacznie szybciej niż 
przy zastosowaniu np. złożonych edyto- 
rów, których czas wprowadzania jest zna- 
czny. 

Fragment zaczynający się od etykiety 
600, a kończący się na 670, to zasadnicza 
część drukująca. Może ona również służyć 
jako podprogram drukujący dowolne 
fragmenty wykonującego się programu 
np. tekst, tabele itp. Sens wykorzystania go 
do tego celu jest jednoznaczny. Przy dużej 
różnorodności zmiennych, stosowanie do 
każdej z nich instrukcji LPRINT staje się 
często niewygodne, gdyż z reguły chcemy 
również oglądać je na ekranie. Program 
niepotrzebnie rozrasta się, jak również 
staje mniej czytelny. Nie należy przy tym 
zapomnieć o zadeklarowaniu długości 
ciągu tekstowego a$. 


PK 100 REM ttt**t**tt*t**t**tttttt 
KL 103 REM * * 
GR 110 REM * TWORZENIE PROSTEJ * 
BH 115 REM * GRAFIKI I WYDRUK * 
LZ 120 REM * NA DRUKARCE 1029. * 
KP 125 REM * * 
PO 130 REM ****t*t*****tt***t*t*tt 
JX 200 REM * * 
DV 203 REM * RODZAJ DRUKOWANIA * 
JZ 210 REM * * 
GU 230 GRAPHICS 0'OPEN #2,8,0, "P-" 


ZU 235 ? 
PK 240 ? 
CV 243 ? 
AM 250 ? 
UN 255 ? 


? "RODZAJ DRUKOWANIA 


«? CHR*<177>/" TEKSTOWE" 
•? CHR*<178>/" GRAFICZNE" 
. _ 1 INPUT RD 

UV 260 IF RD-2 THEN PRINT #2/CHR$< 
27)/ "9"; 

KV 345 REM * * 

UE 350 REM * TWORZENIE GRAFIKI * 
KX 355 REM * * 

MA 360 OPEN #1,4,0, "K'"'P0KE 82,0 
TT 365 GRAPHICS 0'DIM A$<48) 

TS 370 FOR C-l TO 20'? CHR#<31>; 'N 
EXT C-FOR C*1 TO 11'? CHR*<29>/ 
>NEXT C 

KS 375 GET #1,R 
OB 380 IF R-27 THEN 600 
SH 385 ? CHR*<R>/ 

SB 390 GOTO 375 

KA 500 REM * * 

AG 505 REM * PROGRAM REALIZUJĄCY * 
IN 310 REM * DRUKOWANIE ZAPRO - * 
MK 515 REM * JEKTOWANEJ GRAFIKI. * 
KE 320 REM * * 

QA 600 FOR A»0 TO 23 
XU 610 A*-"" 

VB 620 FOR B-0 TO 39 

LN 630 LOCATE B,A,X 

GB 640 D-B+l <A#<D,D)»CHR*<X> 

DO 650 NEXT B 

YD 660 IF RD-2 THEN PRINT #2 /A# 'GO 
TO 670 

HT 663 LPRINT A* 

DI 670 NEXT A 

KC 700 REM * * 

MI 710 GRAPHICS 0'POKE 82,4 
DF 720 ? i? "CZY CHCESZ KONTYNUOWA 
C T/N" 

AV 730 ? 'INPUT TN 
OC 748 IF TN-84 THEN RUN 
OG 750 END 

Janusz JANIEC 


u* < t+3 TO LEN u*) 

50 IF INKEY* - "" THEN GOTO 50 
60 IF INKEY* - CHR* 13 THEN 
GOTO 300+ i 

70 IF INKEY* « " " THEN LET i 
- i+li IF i >6 THEN LET i * i 
80 GOTO 30 

300 GOTO 1000 

301 GOTO 1010 

302 GOTO 1050 

303 GOTO 1250 

304 GOTO 1200 

305 GOTO 1100 

306 STOP 

999 REM Czytanie tekstu 

1000 CLSs INPUT "Napisz jakiś 
tekst" 'LINĘ p*s GOTO 30 

1009 REM Przesuw w lewo 

1010 FOR k = 0 TO LEN p*-l 
1020 FOR L - 30 TO k STEP -1 
1030 PRINT AT 15, 1 ;p$(k+l) 5 " " 
1040 NEXT ls NEXT ks GOTO 30 

1049 REM Przesuw w prawo 

1050 FOR k - LEN p*-l TO 0 
STEP -1 

1060 FOR 1 » 0 TO 31 -LEN p*+k 
1070 PRINT AT 15,1 ";p*(k+l> 
1080 NEXT 1j NEXT ks GOTO 30 

1098 REM Płynny ruch całego 

1099 REM tekstu w lewo 


1100 LET g* » " 11 
1110 FOR k = 1 TO 5 
1120 LET g* - g*+g* 

1130 NEXT k 

1140 LET oS » g*+p*+g$+" " 

1150 FOR k - 1 TO LEN o*-32 
1160 PRINT AT 15, 0; o$ (k TO 
k+31 ) s PAUSE 5 
1170 NEXT ks GOTO 70 

1199 REM Przesuw do góry 

1200 LET w = LEN p*s IF n > 21 
THEN LET w - 21 

1210 FOR k ■ 1 TO w 
1220 FOR 1 = 20 TO k-1 STEP -1 
1230 PRJNT AT l,0;p*(k)s PRINT 
AT 1+1,0}" « 

1240 NEXT łs NEXT ks GOTO 30 

1249 REM Przesuw do dołu 

1250 LET w » LEN p$s IF w > 21 
THEN LET w - 21 

1260 FOR k - w TO 1 STEP -1 
1270 FOR 1 - 1 TO k 
1280 PRINT AT 1 , 0? p* ( k ) s PRINT 
AT 1-1,0}" •' 

1290 NEXT ls NEXT ks GOTO 30 

7999 REM Grafika użytkowa 

8000 DATA 192,96,48,24,12,6,3,1 


nici iw DH1R 


80?0 DATA 24,24,’ 24,’ 24,’ 24,’ 24,’ 2 


8030 DATA 0,0,0,255,255,0,0,0 
8040 DATA 31', 31, 24, 24, 24, 24, 31 
, 3T 

B050 DATA 252,254,7,3,3,7,254 
,252 

8060 DATA 0,7,15,28,24,24,24,24 
8070 DATA 24,24,24,24,28,15,7,0 
8080 DATA 0,254,255,3,0,0,0,0 
8090 DATA 0,0,0,0,3,255,254,0 

8799 REM Plansza 

8800 DATA 150,152,32 
8810 DATA 32,145,147,32 
8820 DATA 32,147,144,32 
8830 DATA 32,146,146,32 
8840 DATA 32,1.45,144,32 
8850 DATA 32,148,149,32 
8060 DATA 32,146,145,32 
8900 DATA 151,153,32 
9910 DATA 32,3.44,147,32 
8920 DATA 32,147,145,32 
8930 DATA 32,144,145,32 
8940 DATA 32,146,146,32 
8950 DATA 32,1.46,144,32 
8960 DATA 32,146,144,32 

8999 REM Czytanie planszy 

9000 LET u* - " " 

9010 FOR k - 1 TO 27 

9020 READ as LET u* - u*+CHR* a 
9030 NEXT ki RETURN 


Mieczysław PŁACHETA 
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l—i tSL\/a.ti ( 9 ) 


Spłowiałe rękopisy 


Danuta KWASIŻUR Mieczysław SKONIECZNY 


Z treścią dzisiejszego zadania rozwiązywanego z udziałem mi- 
krokomputera zapoznaje użytkownika ekran informacyjny, który 
pokazuje się po zainicjowaniu pracy programu. Jego zawartość 
jest następująca: 



KLAUI82E STERUJĄCE I 


(lo sterowania kursorm I 

EiSSISI • Im ii f v * - B iS? •? ?olSY«x, 

zadania 

NACI SNU DOMOLNY KLAHI82 


azUUanla 


Do rozwiązania jest 8 zadań, których kolejność wykazuje coraz 
większą skalę trudności. Po naciśnięciu klawisza ENTER na ekra- 
nie wyświetla się Informacja o poprawności rozwiązania. Jeżeli 
rozwiązanie było błędne to pada pytanie: 

„CZY CHCESZ SPRÓBOWAĆ JESZCZE RAZ (T/N)?" 

I dalsza akcja programu jest uzależniona od odpowiedzi użytkow- 
nika. 

Wersja źródłowa segmentu głównego programu zajmującego 8 
KB pamięci RAM jest następująca: 


10 MODĘ 1 1 INK 0.24HNK I, Ol INK 2,6lINK 3,26iB0RDER OiPAPER O1CL8 
20 SYMBOL AFTER 126 
30 SYMBOL 126,0,0,0,233,0,0,0,0 
40 KEY DEF 13,1,126 

30 PEN lilOCATE 1 , SiPRINT 1 Odmliziono bardzo cenna, itara rako- piiy aitiaity 
cmi, która Jadnak aikutak nltuliiciwgo przichoayRi 

nil iploNlily tik dii ki, x« tylko nryiy niektórych cyfr aozni było odroznic. 
60 NIND0N £1,3,36, 10, ISiPAPER Cl.liCLB fliPEN £1,0 

70 L0 CATE £1,2,2iPRINT £1, 'Cyfry nieczytelna ozmezom »i'iPRINT £ 1,' galazdkaoi 
. Należy w Ich •iijici , iPRINT £1,' wstawić pierwotni 
1 tu wpisane'iPRINT £1,' cyfry.' 

BO L0CATE 2,17iPRINT 'KLANISZE STERUJĄCE)' 

90 PRINTtPRINT ' do łtiroNinii kuriom 1 •|CHRI(240)i','iCHRI( 241>| ViCHRt(242 
)|','CHR»(243) 

100 PRINT ' klawisz 'z' - Hutwlinii cyfry 

110 PRINT ' kluiiz 'ENTER' - konltc rozaiizyainia zadania* 

120 L0CATE 5,24iPRINT ‘NACISNIJ DOMOLNY KLAMISZ’ 

130 CLEAR INPUT 

140 IF INKEYI-” THEN 60T0 140 
130 FOR k*l TO S 

160 READ Myalk, 1 > , wyeik, 2) ,11 (k)iNEIT k 

170 DATA 3,4,4,3,3,3,3,4,4,3,4,4,3,4,4,6,8,17,6,8,18,10,14,27 

ISO FOR k*l TO B 

190 M0DE liLOCATE 14, SiPRINT " ZADANIE* | K 

200 NIND0M £1,14, 14**ya(k,i)ł2,8,8*wya(k,2)*liPAPER £1,1 iCLB fliPEN £1,0 

210 N1ND0N £2, 1,40,1,31 PAPER £2,liPEN £2,0iCL8 £2 

220 603U6 380 

230 608UB 700 

240 60SU8 1020 

230 IF BL»0 THEN 60T0 330 

260 CLB £2i PRINT £2,* TNOJE R0ZMIAZANIE ZAMIERA BLEDY !!'i INPUT £2,' CHCESZ 8PR0 

B0NAC JESZCZE RAZ (T/N) '| Tl 

270 IF TI«'T' 0R Tl-'t' THEN CLB £2l60T0 230 
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260 IF TI»'N" 0R TMV THEN 60T0 300 

290 60T0 260 

300 IF Nł THEN GOTO 370 

310 INPUT £2,' NASTĘPNE ZADANIE (T/N)'|TI 

320 IF T»«'T' 0R Tl»'t' THEN CIS £2iG0T0 360 

330 IF TMT 0R T$»V THEN 60TO 370 

340 GOTO 300 

330 PRINT £2,' TNOJE ROZMIATANIE JEST P0PRANNE ! fiGOTO 300 
360 NEIT k 
370 ENO 


Do programu głównego jest dołączonych 5 podprogramów 
spełniających następujące funkcje: 

1 . Podprogram wczytywania danych do aktualnego zadania. 


3B0 REH 'podprogru wczytywania danych do aktualnego zadania’ 

390 IF k)l THEN ERA8E tiblliERASE GNIA 
400 DIN tabl* (wya (k,2) , wya (k, 1 ) ) 

410 DIN 6NIA ( IL(K) , 3) 

420 FOR i-1 TO nya(k,2) 

430 FOR J»l TO aya(k,l) 

440 READ tabltdp J) iLOCATE £1, 1*J, 1+iiPRINT £1 , t abl 8 ( i , J ) 

430 NEIT J 
460 NEIT i 

470 FOR 1-1 TO II Ik) 

480 READ 9Nllll,l),gaii(i,2),gifli(l,3) 

490 NEIT i 
300 RETURN 

310 DATA ' VI , , , IV4 , , , tVł , l , 2V* , l , t , , , 3V \ M V'V*V % V -,'6*,'3* 

,'2', *9' 

320 DATA 1,2, 3, 1,3, 6, 2, 3, 6, 2, 4,8 

330 DATA ' ',' V1V0', , SV ', 'I', 'I', ’1', '7*, *♦■, 'S*, *8', 'I', *1', 

• , *•*» '0“ f '•', *4', "6' 

340 DATA 2, 2, 4, 2, 3, 9, 3, 4, 2, 3, 3, 4, 3, 1,1 

330 DATA ' *, , 3 , , , t , l '1', '7', "♦•, *1', ■4■,■| , , “I*, ' V*V*V'V*V ','6','8' 

, *1', '*' 

360 DATA 1,3, 3, 2, 2, 1,2, 4, 9, 4, 3, 3 

370 DATA ' ', '8', '•', '•', *7', *t', ■3', '5', '•', ' V % V*V %, , ,% V W,*!* 
,'7', '7* 

380 DATA 1,3, 3, 1,4, 2, 2, 2, 2, 2, 3,0 

390 DATA ' V3 , ,'«V3V7V-', , IV9','B\'I',' ','|' 

,T,'6' 

600 DATA 1,3, 4, 2, 2, 2,2, 3, 1,4, 4, 7 

610 DATA ' ',' •,'|','|','|' 1 ' ■,«,' *,'4','3','7',' V M , M V*V % V*V 

V " , " I', '7', '0*, "S", * 

',' ,% ' f ■*■,•••, *•', "I", ■•', '•', 

620 DATA 1,4, 3, 1,3, 4, 1,6, 1,4, 3, 2, 4, 4, 3, 4, 3, 8, 4, 6, 7, 6, 1,1, 6, 2, 3, 6, 3, 6, 6, 4, 4, 8, 1,1 
,8, 2, 3, 8, 3, 3, 8, 4, 8, 8, 3, 3, 8,6, 7 

630 DATA ' ',' *,••', •••,'•', '3', ' •*', 'I', 1 ■ ■,•••,' ■«,»«,' 

V , iT,'7V0V*V " , "f , "2', '1*, , 3*, " 

B'i'4', '9', ' ■*', ■*', '•*, ••', '*•, *t', '•', 'I' 

640 DATA 1,3, 1,1, 4, 2, 1,3, 1,2, 4, 3, 2, 3, 1,2, 6, 8, 4, 3, 9, 4, 6, 4, 3, 2, 1,6, 1,3, 6, 2, 6, 6, 3, 3 
,8,1,3, 8, 2, 8, 8, 3, 3, 8, 4, 7, 8, 3, 3, 8, 6, 4 

630 data ■ ■,* ','r, , r,'B',*r,' v *,■ ',• v % V % V % V % V % V*V V * 

,. •,■!', 'I', ••", ■!■, •••, 

,'1','t',' *,' V V V *1* V*V*V % V ■,* V V *,* ',' ■ 

660 DATA '3', *0', '2*, *•", ' V ■,*•', *6', '9*, *3', * ■ 

670 DATA • ',« ■ 

.* V V , , , 3', 'I', ' ',' ',' ' 


OBU UH I H ", , , , , , , ' 

690 DATA 1, 3, 1, 1, 4, 7, 1,6, 6, 3, L, 6, 3, 2, 8, 3, 3, 7, 3, 4, 6, 3, 3, 1,3, 6, 0,3, 8, 3, 3, 9, 8, 3, 10, 

3,4,1,3,4,2,8,4,3,3,6,4,6,7,1,2,9,2,3,9,3,2,10,3,0,1 

0,3,0,12,4,3,12,6,0,13,3,2,13,4,3,13,3,1,13,6,0 


2. Podprogram sterowania kursorem na ekranie. 


4. Podprogram z komunikatami o błędach. 


700 REN 'podprogram sterowania kursorea’ 

710 i»ls j«l 

720 PAPER £1,3: PEN £l,2iL0CATE £1 , j+1 , i +1 j PRINT £1 , tabl « ( i , j ) 

730 aWNKEY* 

740 IF a**" THEN GOTO 730 
750 IF INKEY (6) *0 THEN RETURN 
760 IF a**"z*' 0R AUT THEN GOTO 900 
770 IF a$«CHRI(240) THEN GOTO 820 
780 IF al*CHR«(241) THEN GOTO 840 
790 IF aUCHRt<242) THEN GOTO 860 
800 IF at*CHRt ( 243) THEN GOTO 880 
810 SOUND 1,458) GOTO 730 
820 IF i«l THEN GOTO 810 
830 60SUB 1200: i *i -1 1 GOTO 720 
840 IF i>wya(k,2) THEN GOTO 810 
850 60SUB 1200: i «ł ♦! : 60TO 720 
860 IF j«l THEN GOTO 810 
870 60SUB 1200: J*j-li60T0 720 
880 IF j>wya(k,l) THEN GOTO 810 
890 GOSUB 1200: j«J+l: GOTO 720 
900 FOR V«1 TO Il(K) 

910 IF J S 6NIA(V,2) AND I>6NIA(V,1) THEN GOTO 940 
920 NEXT V 

930 GOSUB 1130: GOTO 730 

940 LOCATE £2,2,2)PRINT £2, 'KPISZ CYFRĘ" 

950 CLEAR INPUT 
960 AUINKEYI 

970 IF AU" THEN 60T0 960 

980 IF ASC (At) >47 AND ASC(A*)<58 THEN GOTO 1000 

990 GOSUB 1190: GOTO 940 

1000 PAPER £1 , 0: PEN £1,1)L0CATE £1, J+l, I+l: PRINT £1 , At: TABL* ( I, J ) -A» 
1010 CLS £2: GOTO 720 


3. Podprogram badania poprawności rozwiązania. 

1020 REN 'podprograa badania poprawnoici rozwiązania’ 

1030 bl-0 

1040 FOR »-l TO il(k) 

1030 IF J»6KIA(»,2) AND I* 6 NIA(v,l) AND tibltli.j) OT THEN PAPER £1,0 iPEN £1, 
li LOCATE £l,j*l,i*liPR!NT £l,tablt(i, JłiEOTO 1080 
1060 NEXT v 

1070 PAPER £1,1) PEN £1,0)L0CATE £l,J*l,i*liPRINT Cl.tablłli, j) 

1080 FOR V*1 TO IL(K) 

1090 IF RI6NTt(8TRt(8NIA(V,3)) r l) a TABLt(6NIA(V,l),GHIA(V,2)) GOTO 1110 
1100 8L»1 
1110 NEKT V 
1120 RETURN 


1130 REN 'podprograay z koauni kataai o biedach’ 

1140 CL 8 £2) LOCATE £2,2,2 

1130 IF tabltd, JK'1' OR trtUti ,])>•?' THEN 60T0 1170 

1160 CLS £2iLOCATE £2,2,2)PRINT £2, 'TEJ CYFRY NIE NOŻNA ZRIENIACiBOTO 1180 

1170 CLS £2i LOCATE £2,2,2iPRINT £2, 'TEJ POZYCJI NIE NOŻNA ZMIENIAĆ 

1180 SOUND 1 , 438i FOR T-l TO IOOOiNEIT TiCLS £2i RETURN 

1190 CLS £2) LOCATE £2,2,2)PRINT £2, 'TO NIE JEST CYFRA” > SOUND 1,43B|F0R T-l TO 10 

OOiNEIT TiCLS £2: RETURN 

5. Podprogram badania pozycji cyfry. 


1200 REN 'podprograa badania pozycji cyfry’ 

1210 FOR V>1 TO IL(K) 

1220 IF J-6NIA(V,2) AND I*6NIA(V,1) AND tabltd, J) <>'l* THEN PAPER £1,0)PEN £1, 
I 16 OTO 1230 
1230 NEIT V 

1240 PAPER £i, liPEN £1,0 

1230 LOCATE £1, Jtl.iłliPRINT £1, tabltd, JhRETURN 


Przykładowa postać jednego z zadań jest następująca: 

ZADANIE 8 
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Życzymy Czytelnikom bezbłędnego rozwiązania wszystkich 8 za- 
dań. * 

Danuta KWASIŻUR, 
Mieczysław SKONIECZNY 


POLSCRIPT - edytor tekstu 
2 polskimi literami dla C-64 


I. Wstęp 

POLSCRIPT jest przeróbką programową znanego edytora tek- 
stu EASY SCRIPT, który został opracowany w wersji pierwotnej 
przez Simona Tranmera i wypuszczony na rynek angielski przez 
firmę Precision Software Limited w roku 1 982. Poniższy opis, bar- 
dzo skrótowy (oryginalny opis EASY SCRIPT zajmuje kil- 
kadziesiąt stron), dotyczy zarówno wersji oryginalnej, jak i polskiej 
modyfikacji, ponieważ różnice między nimi są minimalne. 

Autor zetknął się z przeróbkami programu dla drukarek 
MPS-801, MPS-802, MPS-803, z tym, że na co dzień używa 


wersji dla drukarki MPS-803, ponieważ pracuje z nią poprawnie po- 
siadana drukarka (OKIDATA-120). 

II. Uruchomienie programu 

POLSCRIPT jet programem rezydującym i współpracuje rów- 
nie dobrze z magnetofonem, jak I stacją dysków. 

Zajmuje w pamięci komputera 73 bloki (Polscript 803). Po zała- 
dowaniu I uruchomieniu edytora komendą RUN ukazuje się menu 
główne, gdzie jesteśmy proszeni o podanie: 

— szerokości tekstu (jest to szerokość tekstu na monitorze, naj- 
częściej wynosi ona 40 znaków), 
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— rodzaju urządzenia (stacja dysków czy magnetofon), 

— rodzaju drukarki (dla drukarek Commodore i zgodnych należy 
wybrać 0). 

Następnie pytani jesteśmy o rodzaj liter (polskie, czy angielskie) i 
układ klawiatury (polski, czy angielski (OWERTY)). 

Przechodzimy do trybu: „EDIT" — pisanie tekstu. Do dyspozycji 
mamy praktycznie cały ekran monitora. W górnej części ekranu 
(STATUS LINĘ) znajduje się informacja o trybie pracy, w jakim ak- 
tualnie znajdujemy się oraz o położeniu kursora (wiersz i kolumna). 
Zmianę kolorów ramki, tła i kursora uzyskuje się przez równoczes- 
ne naciśnięcie klawiszy CTRL i odpowiednio 3,2 i 1 . 


III. Pisanie tekstu 

Każdy nowo tworzony dokument (pisany tekst) powinien zostać 
zatytułowany. W tym celu należy nacisnąć klawisz F3, napisać nb, 
podać w cudzysłowie nazwę dokumentu (pliku) i nacisnąć RE- 
TURN. 

Klawisz F3 służy' zawsze do zaznaczenia początku linii komend, ’ 
w której podaje się między innymi, oddzielone od siebie dwukrop- 
kiem następujące komendy dotyczące formatu wydruku pisanego 
tekstu: 

lmxx — lewy margines (xx — nr kolumny), 

rmxx — prawy margines, 

plxx — długość strony, 

tlxx — długość tekstu, 

spx(1 ,2,3) — odstęp między liniami, 

1 nxx — ilość pustych wierszy w tekście, 

1 pxx — ilość wierszy na cal, 

txx — ilość liter na cal. 

Każda komenda lub linia komend musi być zakończona klawi- 
szem RETURN. Standardowe ustawienie powyższych parametrów 
wygląda następująco: lm=1, rm=80, pl=66, tl=60, lp=6, pt=10. 

Klawisz RETURN służy do rozpoczynania nowego akapitu (pa- 
ragrafu). Pojedyncze znaki usuwa się klawiszem DEL. Naciśnięcie 
CTRL i W powoduje przejście do pierwszej litery następnego sło- 
wa, a CTRL i „O" do ostatniej litery ostatniego słowa. 


IV. Uzyskiwanie polskich liter 

Polskie litery uzyskuje się następująco: 

ą — średnik 

ę - SHIFT + średnik 

ś — SHIFT + przecinek 

ń — SHIFT + kropka 

ć- SHIFT + „/" 

ó - „ó" 

ź - SHIFT + „or” 
ż — znak „+" 

1 - SHIFT + znak „+" 
ł — dwukropek 
Ł — SHIFT + dwukropek 

Ulega również zmianie znączenie niektórych klawiszy tj: 
klawisz „gwiazdka" =„:" 

SHIFT + „gwiazdka" = 

SHIFT + =„+" 

„strzałka pionowa" =„zł" 
znak funta =,$" 

SHIFT + „6" =„?" 

V. Znaczenie klawiszy funkcyjnych 

Klawisz FI służy do zmiany trybu pracy. Podstawowe kombina- 
cje z klawiszem FI to: • 

— F1+0+V — przeglądanie tekstu na monitorze w postaci, w ja- 
kiej będzie wydrukowany (do przesuwania tekstu służą klawisze 
kursora, klawisz Commodore, F5, F7, SPACJA. 

— FI +0+ P — drukowanie tekstu. Dodanie „C" powoduje wydruk 
ciągły. Przejście od „oglądania" strony na ekranie do wydruku na- 
stępnej na drukarce uzyskuje się po naciśnięciu „P". 

— F1+L — załadowanie pliku (dokumentu) do pamięci kompute- 
ra (po podaniu nazwy i naciśnięciu RETURN), 

— FI +F — zapisanie pliku (zamiast wpisywania nazwy pliku mo- 
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żerny ją skopiować, o ile plik został uprzednio zatytułowany za po- 
mocą klawisza F2) 

— FI +E+A — usunięcie całego kształtu tekstu, 

— FI +E+R — usunięcie tekstu od pozycji kursora w dół, 

— FI 4-E+P — usunięcie paragrafu, 

— FI +E+S — usunięcia zdania, 

_ F1+D — usunięcie tekstu podświetlonego kursorem, 

_ F1+I — przejście do trybu pracy z rozsuwaniem tekstu (IN- 
SERT) lub odwrotnie, 

— FI +G+E — przejście kursora na koniec tekstu, 

— F1+G+xx — przejście kursora do linii xx, 

— F1+SPACJA — wyświetlenie zawartości następnego ekranu, 

— F1+SHIFT+SPACJA — wyświetlenie zawartości poprzednie- 
go ekranu, 

— FI +INST/DEL — usunięcie linii, 

— FI+R+oświetlenie kursorem — definiowanie zakresu, 

— FI +T+H lub V — tabulacja (pozioma i / lub pionowa), 

F7 — przejście do następnej pozycji i tabulatora przy tabulacji 
poziomej, 

F8 — jw.. tylko przy tabulacji pionowej, 

FI +C — kasowanie tabulacji, 

FI +a — duplikacja tekstu (po zaznaczeniu zakresu (RANGĘ), 
Fl-ł-S — wyszukiwanie tekstu i zastępowanie, 

F5 — załączanie dużych liter, 

F4 — przejście do trybu operacji dyskowych. W trybie tym istnieje 
możliwość między innyrńi; 

a) wyświetlenia katalogu dyskietki na ekran lub jego wydrukowa- 
nia (odpowiednio F4+„$" i F4+„+"+„$"+0+P, 

b) załadowania dowolnego pliku z katalogu do pamięci kompute- 
ra przez kombinację klawiszy: F4+„+"+„$"+L+F2, 


VI. Inne możliwości programu 

Omawiany program pozwala również między innymi na: 

— formatowanie dyskietki, 

— usuwanie, kopiowanie i zmianę nazwy plików, 

— justyfikację i centrowanie tekstu, 

— drukowanie w nagłówku i w stopce. 

— automatyczną numerację stron, 

— tworzenie długich dokumentów za pomocą wiązania plików 
(linked files) i obróbkę takich dokumentów (formatowanie, wy- 
druk), 

— tworzenie nowego pliku z zaznaczonych paragrafów, 

— wydruk pogrubiony, podkreślony i odwrócony (reverse), 

— resetowanie programu bez naruszenia tekstu znajdującego się 
w pamięci (RUN) STOP +RESTORE) lub z jego skasowaniem 
(F1+RUN) STOP). 

Program umożliwia również definiowanie własnych znaków. 
Maksymalna wielkość tworzonego pliku wynosi 764 wiersze 
przy 40 kolumnach. 


VII. Podsumowanie 

Z przedstawionego powyżej, z konieczności skrótowego opisu 
edytora POLSCRIPT (EASY SCRIPT) wynika, że w zasadzie 
spełnia on wszystkie wymagania stawiane „poważnym", pro- 
fesjonalnym programom tego typu. Niewątpliwą jego wielką za- 
jętą jest „pisanie po polsku". Sam program nie jest może zbyt 
„przyjazny", bo komend koniecznych do zapamiętania jest du- 
żo, ale z doświadczeń autora wynika, że jest to tylko kwestia 
ilości godzin, czy też stron napisanych za pomocą programu. 
Zaletą programu jest również możliwość współpracy z magne- 
tofonem. Jedyną wadą programu odkrytą w ciągu kilku miesię- 
cy jego użytkowania jest zniekształcanie liter po znakach i 
" przy stosowaniu automatycznej numeracji stron. Zjawisko 
to występowało zarówno podczas używania drukarki MPS-803, 
jak i OKIDATA -120. Nie potrafiąc sobie z tym problemem po- 
radzić autor niniejszego artykułu zastosował „ręczne" numero- 
wanie stron. A może ktoś z czytelników i użytkowników pro- 
gramu POLSCRIPT-803 wie, jak powyższą wadę usunąć? 

Tadeusz CISEK 


ZAGADKA 

Martin CARR 


Alma Cari nie była sobą, jej głos zna- 
ny doskonale wszystkim mieszkańcom 
Dean Verry, driał i łamał się, a twarz z 
nienaturalnym uśmiechem wyglądała 
niczym maska. 

Frank C.traks, który dopiero teraz 
włączył swój odbiornik zdążył usłyszeć 
tylko końcowy fragment komunikatu: 
— Dlaczego z Banku Myśli zginął mózg 
arcyzbrodniarza Cltta Seana — trudno 
w tej chwili odpowiedzieć. Prezydent 
policji zapowiada, iż sprawą zajmie się 
osobiście. 

Teraz dopiero Frank zrozumiał dla- 
czego został w trybie pilnym wyrwany 
ze swego urlopu. Jadąc do centrum 
starał sobie przypomnieć co wiedział o 
Citt Seanie. Tak... to musiał być nie- 
zwykły facet, jeżeli przez całe dziesię- 
ciolecia prowadził swoją prywatną 
wojnę z cywilizacją ziemską. Miał takie 
słowo na określenie sylwetki — anar- 
chista niepodporządkowujący. Zwal- 
czająca go policja kontynentalna była 
bezsilna. Jego dziełem było uprowa- 
dzenie najnowocześniejszego na owe 
czasy pojazdu kosmicznego i wymu- 
szenie za zwrot od Rady Obywatelskiej 
wysokiego okupu — 10 weryklejsów 
czyli jego udziału w 10 ekspedycjach 
pozagalaktycznych. On też porwał 
prom kosmiczny na Eksporą Gardis i 
poleciał nim na wycieczkę w przestrzeń 
Oriona. 

Kiedy wreszcie umarł, Jego mózg tra- 
fił do gabinetów najwybitniejszych 
uczonych psychiatrów i neurologów. 
Ich ekspertyza była wyczerpująca, do- 
patrzyli się wielu odchyłek I nieprawid- 
łowości w funkcjonowaniu. Nazwali go 
mózgiem arcyzbrodniarza I zalecili 
umieszczenie w Banku Myśli. Olbrzymi 
materiał badawczy, jaki zgromadzono, 
posłużył do opracowania nowej teorii, 
a zarazem nowej dziedziny nauki zwa- 
nej przez opracowujących mianem 
HMC. Rada Obywatelska wydała wtedy 
zezwolenie na wprowadzenie korekt u 
nowo narodzonych, jeżeli stwierdzono 
jeden z symptomów Cltta. Dzięki temu 
przez całe wieki nie zdarzało się nic, co 
mogłoby żle wpłynąć na cywilizację 
ziemską, a życie toczyło się spokojnie. 

Kiedy Frank trafił do centrum policji 
spostrzegł niezwykłe ożywienie. Na 
ekranach monitorów widać było, Jak 
cymborgi i roboty funkcjonalnie uzbro- 
jone w analizatory poszukiwawcze 
przeczesywały teren, dom po domu, 
rezydencja po rezydencji, biurowce i 
zakłady produkujące. Kiedy wyświetlił 
swój numer Identyfikacyjny usłyszał: 
proszę iść niebieską drogą i naty- 
chmiast wyświetliły się niebieskie świa- 
tełka. Ruszył. Szedł przez kilka kon- 
dygnacji, aż znalazł się przed gabine- 
tem prezydenta policji. Tam na niego 
czekano, nie zdążył bowiem nawet na- 
cisnąć guzika, kied^ drzwi się rozsunę- 
ły i wszedł do gabinetu. Na jego powi- 
tanie podniósł się ubrany w mundur po- 
licji miejskiej wysoki mężczyzna. 


Wskazał mu miękki fotel, sam podsunął 
wózek z napojami i zajął miejsce na- 
przeciw. 

— To, co teraz powiem należy do 
najściślejszych tajemnic nie znanych 
ogółowi naszego miasta, przecieki mo- 
gą wywołać niepotrzebne napięcia. 
Dlatego proszę o zachowanie tego dla 
siebie. Jest pan najlepszym ekspertem 
w rozwiązywaniu niejasnych spraw. To 
że zaginął mózg arcyzbrodniarza to 
jedno, ale wiąże się z tym cała seria in- 
nych wydarzeń. Dziesięć dni po jego 
zaginięciu spłonął Bank Centralnych 
Danych, dwa dni po tym Centrala Roz- 
dzielnictwa Dóbr. Przyczyn pożarów i 
sprawców nie ustalono. Poprośiliśmy 
wtedy o pomoc policję kontynentalną. 
Gdy awioloty z posiłkami lądowały w 
naszym mieście został obrabowany 
Bank Funduszów — zginęło 1000 re- 
gredów czyli środki na utrzymanie I za- 
pewnienie wymogów życiowych dla 
1000 naszych obywateli na Jeden rok. 

Nasza hipoteza jest taka: osoba lub 
grupa osób wykradła mózg I wbudowa- 
ła go jakiemuś cymborgowl, po to, aby 
destabilizować sytuację w naszym 
mieście. Nie mamy tylko odpowiedzi — 
dlaczego? To, co się jeszcze może zda- 
rzyć trudno przewidzieć. Prosząc pana 
o pomoc liczymy, że pan potrafi sprawę 
rozwiązać, ze swej strony udostępnimy 
wszystko czego będzie panu potrzeba. 

Rozmowa była skończona i Frank 
postanowił wrócić do siebie, musiał 
głęboko się zastanowić, Jak rozwiązać 
postawione przed nim zadanie. 

Ale jeszcze tego dnia dowiedział się, 
że z oddalonego o dwadzieścia mil od 
miasta ośrodka terninku kosmicznego 
zginął ładunek trafiańu, najnowszego 
paliwa do awiolotów B, używanych, ja- 
ko niszczyciele kosmicznych meteory- 
tów. Następnego dnia rano niezidenty- 
fikowany pojazd z serii awiolotów B 
zniszczył prom kosmiczny z Luksoru 
przywożący ładunek platyny, dwa dni 
później ten sam los spotkał prom z Al- 
gera-1. Rada Ziemi podjęła wtedy de- 
cyzję wysłania eskadr ochronnych. Nie 
na wiele się to zdało, gdyż w niewyjaś- 
nionych okolicznościach zaginął kolej- 
ny statek kosmiczny, tym razem z ła- 
dunkiem almogeru niezbędnego do 
produkcji walidu, materiału, z którego 
budowano pokrycia promów kosmi- 
cznych. 


W czasie, kiedy wystąpiły te tajemni- 
cze wydarzenia Frank pracował z naj- 
większym napięciem. Za pomocą pro- 
gramów symulacyjnych sprawdzał 
własną hipotezę. Po kolejnej chyba 
dwudziestej serii wszystkie wydarzenia 
zaczęły układać się w jedną spójną ca- 
łość. 

Jak później, już po rozwiązaniu spra- 
wy, mówił na konferencji prasowej nie 
był pewny, czy poszedł dobrą drogą. 
Najpierw bowiem udało mu się ustalić 
listę potomków Citta Seana. Później 
przebadał je jedną po drugiej i wtedy 
znalazł rozwiązanie. Okazało się, że 
tylko dwaj ludzie nie byli przebadani na 
HMC i to do tego właśnie Harry i Reed 
Seanowie. Motorem działania był Har- 
ry, którego Rada Lekarska z powodu 
obniżonego progu inteligencji skiero- 
wała na najniższy X poziom kierowania. 
Tam stykając się bezpośrednio z robo- 
tami I cymborgami rozpoczął wbudo- 
wywanie Im układów posłuszeństwa 
wobec siebie. Mając wielkie aspiracje, 
a jednocześnie zdając sobie sprawę z 
tego, że nie będzie mógł być podnie- 
siony na wyższy poziom, postanowił 
sam doprowadzić do własnego awan- 
su. O co mu chodziło? Chciał zostać 
dyktatorem Ziemi. Kiedyś w młodości 
znalazł gdzieś kasetę magnetowidową 
z zapisem o dyktatorach. To mu się 
spodobało. A ponieważ jego umysł nie 
został skorelowany z potrzebami wo- 
bec cywilizacji, działał bez skrupułów. 
Miał swego pomocnika w bracie, który 
znajdując się w najwyższym pułapie 
kierowniczym poziomu A-l dostarczał 
potrzebnych informacji. Jak wykazały 
badania był szantażowany i kilkakrot- 
nie naruszono jego nietykalność oso- 
bistą. Roboty, które były w dyspozycji 
Harrego, kilkakrotnie niszczyły ulubio- 
ne sprzęty Reeda i to wystarczyło. 

Kradzież mózgu przodka miała dać 
legendę i zarazem natchnąć odwagą do 
działania. 

Muszę zapewnić państwa, że obyd- 
waj znajdują się w ośrodku zdrowia 
psychicznego i właśnie w tej chwili 
poddawani są zabiegowi dostosowania 
społecznego. Wyciągnęliśmy też dale- 
ko Idące wnioski. Nigdy już tak nie bę- 
dzie, aby ktoś nie był badany na HMC. 
Rada Obywatelska podjęła decyzję, 
aby certyfikat HMC był stale noszony 
na lewej ręce. To byłoby wszystko — 
zakończył. 
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GIEŁDA POMYSŁÓW 


Szanowna Redakcjo! 

Od pierwszych numerów „IKS-a” 
jestem jego stałym czytelnikiem. 
Posiadam mikrokomputer Atari 
800XL, stację dysków LDW 2000 oraz 
drukarkę Atari 1025. Od kilku mie- 
sięcy układam programy w języku 
Basic, Pascal, Asembler. Jeden z 
nich chciałbym opublikować na ła- 
mach waszego pisma. 


Program ten służy do robienia 
spektoramu pamięci komputera. Po 
wpisaniu go do pamięci komputera 
podajemy adresy, w zakresie których 
program ma robić spektoram. Pro- 
gram ten pracuje w trybie grafi- 
cznym 8. Po zapisaniu całego ekra- 
nu następuje jego zamazanie i zary- 
sowanie od początku. Program 
umożliwia wczytanie dowolnego 
programu z dysku do pamięci kom- 


putera i późniejsze wykonanie wy- 
kresu. 

Myślę, że program ten przyniesie 
wiele satysfakcji w „badaniu” bu- 
dowy programów. Ciekawe efekty 
można uzyskać w posiadaniu róż- 
nych programów np.: 

Ciekawych efektów w zakresie 
spektografii komputerowej 
— życzy autor. 

Maciej STANUSCH 


0 DIM NA*<14> 

5 GOTO 125 

10 SETCOLOR 2. 07 0:? CHR* ( 125'.' : P0SZT10N 0.5 

15 ? " PODAJ OD JAKIEGO ADRESU MAM TESTOWAĆ PAMIĘĆ ADR1-" »■ INPUT A 
20 POSITION 0,10:? "PODAJ DO JAKIEGO ADRESU MAM TESTOWAĆ PAMIĘĆ ADR2“" 1 * INPUT B 
25 GRAPHICS 8:SETC0L0R 2,0,0:COLOR 1 1 POKE 752,1 

30 FOR Q=A TO B#X-X+1*IF X=320 THEN X=0 sGRAPHICS 3*SETC0L0R 2,0,0!iCGLOR 1 : POKE 7 
52, 1 

35 PLOT X , 150: DRAWTO X, 1S0-PEEK<Q) *0. 58823 
40 IF PEEK (53279) -6 THEN RETURN 
45 ? , Q, PEEK(G!> »NEXT O 

50 ? CHR$ (125) s ? "GOTOWE...":? "NACISNIJ START" 

55. IF PEEK C 53273) OS THEN 55 
S0 RETURN 

S5 REM WCZYTANIE PROGRAMU Z DYSKU 

70 GRAPHICS 0 : SETCOLOR 2, 0, 0 1 POSITION 0>5»? "PODAJ NAZWĘ ZBIORU W POSTACI D»NAZW 
A": POSITION 5, 7 a INPUT NA$ 

75 MEMLO-PEEK C 14) +25G*PEEK (15) 

30 APPMHI“PEEK(741 )+256>kPEEKC742) 

85 TRAP 105:Q™MEMLO 

30 OPEN #1, 4, 128, NA* : POKE 553,0 

35 GET #1, X«MEML0«MEML0+1 « IF MEML0*APPMH1 THEN 105 

100 POKE MEMLO, X : GOTO 95 

105 GRAPHICS 0 » SETCOLOR 2,0,0:CLOSE #1 

110 ? "ZAŁADOWANO " 5 MEMLO-G! t " BAJT0W " 

115 ? : ? "OD ADRESU "?Gt" DO ADRESU "ł MEMLO"? 

120 GOSUB. 15 .. 

125 REM MENU 
130 X«0 

135 GRAPHICS 0: SETCOLOR 2,0,0 = COLOR U? «? »? »? »? 

140 ? "1. TESTOWANIE PAMIĘCI":? 

145 ? "2. WCZYTANIE PROGRAMU Z DYSKU":? 

150 ? : ? :? "PODAJ NR OPCJI I NACIWMIJ RETURN" : INPUT SKOK 
155 ON SKOK OOSUB 10,65 
160 GOTO 125 


Postscriptum 
do programu „Enigma” 

W zamieszczonym programie „ENIGMA" (4/88 „IKS") 
nie ma błędu. Opis jego autor przedstawił może zbyt la- 
konicznie, ale wyraźnie napisał, że składa się z trzech 
części. Każdą z tych części należy wprowadzić na taśmę 
oddzielnie. 

Pierwsza z nich, to fragment o etykietach 0, 1, 2, część 
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druga rozpoczyna się od etykiety 3, a kończy na 11, za- 
sadniczy fragment programu zaczyna się od etykiety 20. 
Każdą z części wprowadzamy kolejno na kasetę instruk- 
cją CSAVE. Program pierwszej części ładujemy z taśmy 
przez wpisanie CLOAD. Gdy zostanie wprowadzony, 
program zatrzyma się — będzie oczekiwał na wpisanie 
instrukcji RUN. Gdy to nastąpi rozpocznie się wprowa- 
dzanie następnych części, które będą uruchamiały już 
automatycznie. 


Janusz JANIEC 



INFORMATYCZNY SŁOWNIK 
ANGIELSKO-POLSKI 


FRAME TABLE - tablica w systemach operacyjnych ze 
stroni cowyra podziałem pamięci wirtualnej, ustalająca 
zgodność między stronami wirtualnymi a -fizycznymi, 
FRAMEWORK - plan, szkielet, struktura, 

FRAMING - ramkowanie, obramowanie, takźei ustawianie 
obrazu, synchronizacja obrazu, 

FRAMING BIT - bit ramki, 

FREE - wolny, swobodny, takźei bezpłatny, 

FREE-FORM - dowolnego formatu, dowolnej struktury, 
FREE FORM CODING - kodowanie niepozycyjne, 

FREE FROM ... - nie zawierający ..., pozbawiany ..., 
wol ny od . . . , 

FREE FROM INTERFERENCE - niezakłócony, 

FREE-HAND DRAWING - tryb rysowania swobodnego, tryb 
rysowania odręcznego, 

FREE OF CHARGE - bezpłatny, 

FREE OF ERROR - bezbłędny, 

FREE OF TURN - bez czekania w kolejce, poza kolej- 
nością, 

FREE-RUNNING MODĘ - tryb swobodnego dostępu, 

FREE SRACE - wolna pamięć, wolna przestrzeli pamięci, 
FREE VARIABLE - zmienna swobodna, 

FREE VECTOR - wektor swobodny, 

FREEZING - zamrożenie, 

FREOUENCY - częstotliwość, 

FREOUENCY DI VI SI ON MULTI PLEXI NG - zwielokrotnienie 
częstotl iwości , 

FREOUENCY MODUŁ ATI ON - modulacja częstotliwościowa, 
FREOUENCY MODULATION RECORDING - zapis z modulacją 
częstotliwościową, zapis FM, 

FREOUENCY SHIFT KEYING - kluczowana modulacja 
częstotliwości , 

FRICTION FEED - podawanie papieru przy pomocy wałka, 
FRIENDLY ENVI RONMENT - otoczenie sprzyjające, oto- 
czenie dopasowane, dopasowanie, 

FRIENDLY SOFTWARE - oprogramowani e "przyjazne", op- 
rogramowanie dopasowane, oprogramowani e sprzyjające, 
FROM ABOVE - z góry, od góry, 

FRONT -E ND - interfejs zewnętrzny, takźei procesor 
komunikacyjny, preprocesor, 

FRONT-END COMPONENT - podsystem dostępu, takźei pod- 
system wstępnego opracowania danych, 

FRONT-END COMPUTER - komputbr czołowy, 

FRONT-END DATA PROCESSING - przetwarz ani e danych 
czół owe, 

FRONT-END INTERFACE - interfejs zewnętrzny, 

FRONT-END PROCESSOR - procesor czołowy, specjalizo- 
wany procesor wprowadzania i wyprowadzania (danych), 
takźei procesor komunikacyjny, 

FS - patrz i FILE SEPARATOR, 

FSK - patrz i FREOUENCY SHIFT KEYING, 

FULL ADDER - sumator pełny, 

FULL DUPLEX - pełny dupleks (Jednoczesna komunikacja 
w obu kierunkach) 

FULL-DUPLEX CHANNEL - kanał dupleksowy, 

FULL PATHNAME - pełna (kompletna) ścieżka nazwy, 
FULL-SCREEN EDITOR - edytor pełnoekranowy, 

FULL STOP - znak kropki, 

FULL WORD - słowo maszynowe, 

FULLWORD - patrz i FULL WORD, 

FULLY CONNECTED NETWORK - sieć w pełni połączona, 
FULLY INYERTED FILE - plik (zbiór) całkowicie zmie- 
niony (np. przez indeksację według Innego indeksu), 
FULLY STARTED JOB - zadanie w pełni uruchomione, 
FUNCTION - funkcja, 

FUNCTIONAL - funkcyjny, takźei funkcjonalny, czynno- 
ściowy, 

FUNCTIONAL CHARACTER - znak sterujący, znak funkcyj- 
ny* 

FUNCTIONAL DEPENDENCE - zależność funkcyjna, 
FUNCTIONAL DESIGN - projekt (schemat) funkcjonalny, 
FUNCTIONAL DIAGRAM - patrz I FUNCTIONAL DESIGN, 
FUNCTIONALITY - możliwości funkcjonalne, 

FUNCTIONAL LANGUAGE - Język funkcjonalny. Język fun- 
kcjonalnego programowania, 

FUNCTIONAL OUALITY - Jakość użytkowa, 

FUNCTIONAL UNIT - zespół funkcjonalny, 

FUNCTION BUTTON - klawisz funkcyjny, 

FUNCTION CALI. - wywołanie funkcji, 

FUNCTION GENERATOR - generator funkcji, 

FUNCTION KEY - patrz l FUNCTION BUTTON, 

FUNCTION KEYBOARD - klawiatura funkcyjna, 

FUNCTION MENU - wykaz (spis) funkcji, menu, 

FUNCTION MULTIPLIER - układ mnożący dla funkcji, 
FUNCTION TABLE - tablica funkcji, 

FUNCTOR - funktor, element logiczny. 


FUNDAMENT AL - podstawowy, 

FUNDAMENT AL FORMULA - wzór podstawowy, 

FUNDAMENTAL TYPE - typ podstawowy (danych), 

FURNISH - zaopatrywać, wyposażać, 

FURNISH INFORMATION - dostarczać informacji, 

FUSE BASE - gniazdo bezpiecznikowe, 

FUZZY - postrzępiony, rozmyty, takźei niedokładny, 
nieścisły, 

FUZZY LOGIC - logika nieścisła, logika niedokładna 
(w systemach ekspertowych). 
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GAI N - wzrost, takźei korzyść, wzmocnienie, 

GAIN EXPERI ENCE - zdobyć doświadczenie, 

GAMĘ - gra, takźei grać, 

GAMĘ THEORY - teoria gier, 

GAMĘ TREE - drzewo gry, 

GAMING - teoria gier użytkowych, 

GAMI ST - specjalista teorii gier, 

GAMM-MIX - mieszanka GAMM, 

GANG-PUNCH - masowe wprowadzanie do kart dziurkowa- 
nych Identycznej treści, 

GANGPUNCHI NG - kopiowanie wieloseryjne (kart dziur- 
kowanych), 

GAP - przerwa mi ędzybl okowa, przerwa blokowa (np. 
między dwoma blokami na taśmie lub dysku magnetycz- 
nym), takźei brak impulsu lub sygnału, 

GAP DIGIT - cyfra techniczna, 

GAPLESS - bezszczel i nowy , 

GAPLESS TAPE - taśma magnetyczna z ciągłym zapisem 
danych, 

GAPPED TAPE - taśma magnetyczna z blokami danych, 
GARBAGE - dane zbędne, dane pomyłkowe, 

GARBAGE COLLECT - czyścić pamięć (usuwać zbędne da- 
ne) , 

GARBAGE COLLECTION - usuwanie danych zbędnych (np. 
z ciągu znaków), 

GARBAGE COLLECTOR - program czyszczący pamięć (usu- 
wający zbędne dane) , 

GARBAGE IN, GARBAGE OUT - wprowadzisz błędne dane, 
to uzyskasz błędne wyniki, 

GASP - Język informacyjnego modelowania, 

GAS PANEL - monitor plazmowy (Jarzeniowy), 

GAS-PLASMA DISPLAY - monitor plazmowy, 

GATE - bramka, element logiczny, 

GATE CIRCUIT r układ bramkowy, 

GATED - bramkowany, 

GATEWAY - śluza w sieciach komputerowych (sprzętowe 
1 programowe środki zabezpieczające łączność w sie- 
ci ) , 

GATEWAY SERVER - stacja łączności z zewnętrzną sie- 
cią komputerową, 

GATHER WRITE - pisanie rozproszone, wypis rozproszo- 
ny (z pamięci), 

GB - patrz i GIGABYTE, 

GE - sieć komputerowa GE, 

GE - patrz i GREATER OR EGUAL , 

GEM - patrz i GRAPHICS ENVI RONMENT MANAGER, 

GENERAL - ogólny, 

GENERAL FLOW - ogólna sieć działań, 

GENERALI ZATI ON - uogólnienie, 

GENERALIZE - uogólniać, 

GENERALIZED DATA BASE - baza danych ogólnego prze- 
znaczeni a, 

GENERALIZED FORMULA - wzór ogólny, 

GENERALIZED ROUTINE - program ogólny, program uni- 
wersalny, 

GENERAL LOCAL NAME - ogólna nazwa lokalna, 

GENERALLY ACCEPTED - powszechnie przyjęty, 

GENERAL PROBLEM SOLVING PROGRAM - ogólny program 
rozwiązywania problemów, 

GENERAL-PURPOSE - ogólnego zastosowania, uniwersalny, 
wlelocelowy, 

GENERAL-PURPOSE COMPUTER - komputer uniwersalny, 
komputer wielozadaniowy, 

GENERAL PURPOSE INTERFACE BU5 - wspólna magistrala 
wejścia/wyjścia, 

GENERAL-PURPOSE REGISTER - rejestr wielozadaniowy, 
GENERAL REGISTER - rejestr ogólnego przeznaczenia, . 
^ENERATE - wytwarzać, wywoływać, generować, I 
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GENERATED ADDRESS - adres generowany, 

GENERATE CT05 - generować, 

GENERATING PROGRAM - generator programów, program 
generujący, 

GE NE RAT I OM - generacja (np. komputerów) , takżei ge- 
nerowanie, wytwarzanie, 

GENERATION NUMBER - numer generacji, 

GENERATI VE - wytwarzający, 

GENERIC - rodzajowy, uniwersalny, ogólny, 

GENER1C DESCRIPTION - opis uogólniony, 

GENERIC FUMCTION - funkcja ogólna, 

GENERIC NAME - nazwa ogólna, 

GENERIC OPERATION - operacja ogólna, 

GENERIC PACKAGE - pakiet uniwersalny, pakiet z moż- 
liwością strojenia, 

GENERIC PROCEDURĘ - procedura ogólna, 

GENERIC TYPE - typ uniwersalny, typ ogólny, typ pa- 
rametryzowany (pojgcie programowani a dotyczące kla- 
sy typów danych), 

GENUINE - autentyczny, prawdziwy, 

GEOMETRICC AL) - geometryczny, 

GEOMETRICAL PROGRESSION - postąp geometryczny, 
GEOMETRIC MEAN - średnia geometryczna, 

GEOMETRY - geometria, 

GET - otrzymywać, uzyskiwać, dostać, stać sią, wpły- 
wać, takiei powstać, 

GET ACOUAINTED WITH ... - zapoznać sią z .... 

GET WORSE - pogarszać sig, psuć sią, 

GIBSON -XIX - mieszanka Gibsona, 

GIGABYTE - gigabajt (1048S76 bajtów), 

GIGACYCLE - gigacykl (1048576 cykli), 

GIGO - patrz i GARBAGE IN, GARBAGE OUT, 

GIVE INFORMATION - dostarczać informacją, 

GIVEN OUANTITY - wielkość dana, 

GIVE C PROFESSIONAL) AD VI CE - konsultować, 

GIVE SER VI CES - świadczyć usługi, 

GKS - patrz i GRAPHICS KERNEL SYSTEM, 

GLASS TELETYPE - "szklany dalekopis" (wykorzystanie 
monitora dla sukcesywnego wprowadzania lub wyprowa- 
dzania linii tekstu bez uiycla operacji ekranowych 
i sterowania kursorem) , 

GLOBAL - globalny, takiei ogólnoświatowy, 

GLOBAL IDENTIFIER - identyf i kator globalny, oznacz- 
nlk globalny, 

GLOBAL OPTIMIZATION - globalna optymalizacja (opty- 
malizacja programu na poziomie instrukcji i proce- 
dur), takiei znajdywanie minimum lub maksimum funk- 
cji celu, 

GLOBAL VARI ABLE - zmienna globalna, 

GLOSSARY - słownik (wyjaśniający, specjalistyczny), 
OLOW - Jarzyć sią, żarzyć sią, śwletllć, 

GLUABILITY - sklejalność, 

OLUE - kleić, sklejać (np. fragmenty tekstu w trak- 
cie edycji), 

GLUING - klejenie, sklejanie, 

GO - id i, takiei stawać sią, zapalać sią (o lampie), 
GOAL DRIVEN - wnioskowanie wsteczne (w systemach 
ekspert owyc h) , 

GOAL FUMCTIOM - funkcja celu (w zadaniach optymali- 
zacji), 

GOAL-I NYOKED I NTERPRET ATI ON - interpretacja od celu 
(proceduralna interpretacja zasady "Jeśli A to B">, 
GOTO - przejście, przechodzenie, przekazanie stero- 
wenie, 

GOTO STATEMENT - instrukcja "GOTO", instrukcja przej- 
ścia, 

GOVERNIMG - regulacja, sterowanie, 

OOVERMOR - regulator, 

GPS - patrz I GENERAL PROBLEM SOLVING, 

GRACEFUL DEGRADATI ON - "amortyzacja uszkodzeń", tak- 
iei płynne obnlienie efektywności, 

GRADU AL - stopniowy, 

GRADU ALLY - stopniowo, 

GRADUATE - kończyć (np. szkołą, uczelnią), 

GRAINED - ziarnisty, 

GRAMMAR - gramatyka, 

GRAMMATI CAL - gramatyczny, 

GRAMMATI CS - patrz i GRAMMAR, 

GRANDF AT HER - grupa danych starsza o dwa pokolenia 
od danych rozpatrywanych, 

GRAND TOTAL - suma całkowita, suma ogólna, suma 
łączna, 

GRANULARITY - stopi ert detalizacjl, takiei granulacja, 
GRAPH - wykres, graf, 

GRAPH COLORING - kolorowanie grafu, 

GRAP HE ME - grafon (elementarna Jednostka tekstu np. 
litera) , 

GRAPH FOLLOWER - urządzenie wprowadzania konturowych 
obrazów graficznych, 

GRAPHIC - znak drukarski (np. litera, cyf ra) , 

GRAP HI CAL - wykreślny, graficzny, 

GRAPHI CAL DATA PROCESSING - przetwarzanie danych gra- 
ficznych, 

GRAP HI CAL DE VI CE - patrz i GRAPH PLOTTER, 


GRAPHI CAL DISPLAY UNIT - grafoskop, ekranopis grafi- 
czny, 

GRAPHI CAL KERNEL SYSTEM - system Jądra graficznego, 
GRAPHI CAL LANGUAGE - Jązyk graficzny, 

GRAPHI CAL METHOD - metoda wykreśl na, 

GRAPHI CAL OUTPUT PRIMITIVE - niepodzielny element 
obrazu (np. kropka, przecinek, myślnik, ltp.), 

GRAPHI CAL SYMBOLS - symbole graficzne, 

GRAPHIC ART - grafika, 

GRAPHIC CHARACTER - znak graficzny, 

GRAPHIC DATA - dane graficzne, 

GRAPHIC DISPLAY - zobrazowanie graficzne, 

GRAPHIC FORMAT - postać graficzna, 

GRAPHIC FORMULA - wzór strukturalny, 

GRAPHIC INPUT DEVICE - graficzne urządzenie wejścio- 

GRAPHIC INTERFACE - interfejs graficzny, środki gra- 
ficznego współdziałania (oddziaływania), 

GRAPHIC LANGUAGE - Jązyk graficzny, 

GRAPHIC PALLET - paleta graficzna (zgodność pomiądzy 
kodami kolorów, a kolorami zobrazowanymi na ekranie 
mon i tor a) , 

GRAPHIC PRIMITI VE - element obrazu (np. punkt, odci- 
nek, znak alfanumeryczny, itp.), 

GRAPHIC PROCESSOR - procesor graficzny, 

GRAPHICS - grafika, 

GRAPHIC SCHEDULE - harmonogram, 

GRAPHICS CURSOR - kursor graficzny, 

GRAPHICS DIGITIZER - urządzenie (cyfrowe) wprowadza- 
nia obrazów, 

GRAPHICS EDITOR - edytor graficzny, edytor zobrazo- 
wania, 

GRAPHICS ENVI RONMENT MANAGER - zarządzanie środowis- 
kiem grafiki, 

GRAPHICS KERNEL SYSTEM - bazowy system graficzny, 
GRAPHICS MODĘ - tryb graficzny, 

GRAPHICS PAD - plansza graficzna, rysownica graficzna, 
GRAPHICS PROGRAMMING LANGUAGE - Jązyk graficzny, 
GRAPHICS TERMINAL - terminal graficzny, 

GRAPHIC TABLETT - rysownica graficzna (urządzenie do 
wprowadzania konturów obrazów, składające sią z tab- 
liczki oraz specjalnego pióra świetlnego), koordyna- 
tograf , 

GRAPHIC VIEWPORT - wziernik graficzny, 

GRAPH PLpTTER - urządzenie rysujące, pisak cyfrowy, 
plater, 

GRAPH THEORY - teoria grafów, 

0RAVE ACCENT - znak akcentu, 

GRAY CODĘ - kod Gray’a, 

GRAY LEVEL - poziom Jaskrawości (dla obrazów czarno- 
-blałych) , 

GRAY SCALĘ - skala Jaskrawości, 

GRAY -SCALĘ IMAGE - zobrazowanie półtonowe (z różną 
skalą Jaskrawości), 

GRAY SCALĘ SI GNAŁ - sygnał skali kontrastów, 

GREATER OR EQUAL - wląkszy lub równy, 

GREATER-THAN SIGN - znak wląkszoścl ("wląkszy od"), 
GREATER THEN - wiąkszy od, 

GREAT MAJORITY - znaczna wiąkszość, 

GROSS ERROR - gruby błąd, 

GROSS INDEX - indeks główny, indeks podstawowy, 

GROUND - uziemienie, 

GROUND COLOUR - kolor tła, 

GROUNDWORK - podłoże, baza, podstawa, fundament, 

GROUP - grupa, zespół, 

GROUP DELAY - opóźnienie grupowe, 

GROUPED RECORDS - zapisy zgrupowane, 

GROUPING - grupowanie, 

GROUPING OF DATA - grupowanie danych, 

GROUP SYMBOL - symbol grupy, 

GROWING SYSTEM - system rozszerzalny, system dosto- 
sowany do rozbudowy, 

GT - patrz i GREATER THEN, 

GUARANTEE - gwarancja, porączenie, takźei gwaranto- 
wać, zapewnić, 

GUARANTEE CERTIFICATE - karta gwarancyjna, 

GUARANTEED ACCURACY ALGORITHM - algorytm o zagwaran- 
towanej dokładności, 

GUARD - zabezpieczenie, osłona, dozór, takżei osła- 
niać, zabezpieczać, 

GUARD BIT - bit zabezpieczenia, 

GUARD DIGIT - pozycje chronione (wyniku), 

GUARDED COMMANDS - komendy zabezpieczone, 

GUARD PLATĘ - płyta ochronna, 

GUESS - domysł, przypuszczania, próba, 

GUIDANCE - wskazówka, wytyczne, 

GUIDE - poradnik, takżei prowadzić, 

GUIDE BOOK - poradnik (książka), przewodnik (ksią- 
żka), informator, 

GUIDE HOLE - dziurka prowadząca, dziurka przesuwu, 
GUIDE ROLLERS - rolki prowadzące (np. taśmą magnety- 
czną) , 

GUIDE TO OPERATION - wprowadzenie do pracy, 

GULP - grupa bajtów przetwarzana Jako Jedna całość. 
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LIGA MYŚLĄCYCH 

ZADANIE 1 ZADANIE 3 


Dwa ciała poruszają się po okręgu w tym samym kie- 
runku i spotykają się co 56 minut. Gdyby ciała te poru- 
szały się z tymi samymi prędkościami w przeciwnych 
kierunkach, to spotykałyby się co 8 minut. Przy ruchu w 
przeciwnych kierunkach odległość (mierząc po okręgu) 
między zbliżającymi się ciałami zmniejszyłaby się z 40 
metrów do 26 metrów w ciągu 24 sekund. Ile metrów na 
minutę przebywa każde ciało oraz jaki jest obwód 
okręgu, po którym poruszają się oba ciała? 


ZADANIE 2 

Naczynie ó pojemności 8 litrów napełniono powie- 
trzem zawierającym 1 6% tlenu. Z naczynia tego odpro- 
wadzono pewną ilość powietrza i doprowadzono taką 
samą ilość azotu, po czym ponownie odprowadzono ta- 
ką samą (jak za pierwszym razem) ilość mieszaniny i 
ponownie doprowadzono taką samą ilość azotu. W 
powstałej mieszaninie było 9% tlenu. Wyznaczyć po ile 
litrów gazu odprowadzono i doprowadzono za każdym 
razem z naczynia. 


Barka o ładunku 600 ton była wyładowana w ciągu 3 
dni, przy czym pierwszego i trzeciego dnia wyładowano 
2/3 całego ładunku. W drugim dniu wyładowano mniej, 
niż w pierwszym, a w trzecim mniej niż w drugim, przy 
czym różnica między procentowym zmniejszeniem wy- 
ładunku trzeciego dnia w stosunku do wyładunku dru- 
giego dnia i procentowym zmniejszeniem wyładunku 
drugiego dnia w stosunku do wyładunku pierwszego 
dnia była równa 5. Ile ton ładunku wyładowano każdego 
dnia? 

ZADANIE 4 

Należy wyznaczyć kąt rozwarcia stożka, opisanego 
dookoła czterech równych kul ułożonych w ten sposób, 
że każda z nich jest styczna do trzech pozostałych. 

ZADANIE 5 

Z całej ilości towaru a % sprzedano z zyskiem p %, 
zaś b % sprzedano z zyskiem q %. Jaki był zysk sprze- 
daży pozostałej części towaru, jeżeli ogólny procent zy- 
sku wyniósł r %? 


Rozwiązania zadań prosimy przesyłać do redakcji do końca grudnia br., z dopiskiem „Liga Myślących”. Punktacja zależy 
od liczby prawidłowych rozwiązań. Wśród uczestników rozlosujemy książki, a na zwycięzców „Ligi” czekają dodatkowe 
nagrody. 



ATARI 


Znane przysłowie wojskowe mówi, 
że saper myli się tylko raz. Dotyczy ono 
również i załogi trałowców. Pewną róż- 
nicą charakteryzującą ich zadania jest 
to, że miny na morzu mogą zmieniać- 
swoje położenie. Potrzeba dużo czasu i 
cierpliwości, by je unieszkodliwić. Do 
pomocy mamy urządzenia wykrywają- 
ce. Po każdym ruchu meldują nam. w 
którym kierunku mamy poruszać się, 
aby dotrzeć do miny np. miny z lewej. 
Okrętem sterujemy za pomocą kla- 
wiszy: L — lewo, P — prawo, N — na- 
przód, W — wstecz. 


Jeśli na otrzymany meldunek zarea- 
gujemy prawidłowo, to zostaniemy po- 
wiadomieni, że miny są bliżej. Po kilku 
ruchach minę należy zdetonować. Gdy 
to ci się nie uda, uważaj się za jednego 
z tych pechowców, którzy pomylili się 
ten jeden raz. 


PG 500 rem ************************ 

Yfi 502 REM * * 

HY 504 REM * TRAŁOWANIE* 
GS 505 REM * * A t * r i * * 

YP 507 REM * * 

QH 509 REM ************************ 
MK 510 DIM T*<65),TS*<8),A*<1),B*<1 
> 

VG 515 DATA Z LEWEJ ,Z PRAWEJ, Z PRZ 
ODU 

QX 516 DRTfl Z TYLU ,W LEWO ,W PRfl 
WO , NAPRZÓD , WSTECZ ,K 
CI 520 RESTORE 

MF 525 FOR K=1 TO 9'RERD TS* 

FK 530 T$<LEN<T*)+1)«TS*‘NEXT K 
BR 535 ? CHR$< 125) 

FB 537 ? "T R A L O W A N I E" 

Gfl 539 EP=3 * GOSUB 800 
LL 541 M®5+INT<RND<0>*6>'KA*0'N=M 
XB 545 FOR K-l TO N ' A*®" " ' B*=" " ' OD® 
INT <RND<0)*3>+3 
TR 548 P=0 1 R*INT<RND<0)*4>+1 
DV 552 ? "M I N Y ! ";'RR»R*8'? T*< 
RR-*7> RR) 

EC 555 GOSUB 800'A*P'IF R>2 THEN 61 
0 

TB 560 ? T*<33,40);"/";T*<41,46);"- 

QR 565 ? "L/P" ; ' INPUT fl$ 

MK 570 IF <A*="L" AND R®1> OR <A$»" 
P" AND R®2> THEN P-P+ 1 < GOTO 650 
PQ 580 GOTO 640 

DV 610 ? T*<49,56);"/";T*<57,64);"» 


TX 620 ? "N/W" ; 'INPUT B* 

CK 630 IF <B*®"N" AND R*3) OR <B$»" 
W" AND R®4) THEN P=P+1'G0TQ 650 
UJ 640 P-P-l 

AW 650 IF P>A THEN ? " MINY BLIŻEJ 

OJ 660 IF P<A THEN ? " MINY DALEJ ! 

FN 665 EP-2« GOSUB 800 

RC 670 IF P>2 THEN ? "DETONUJESZ ?" 

■EP«3' GOSUB 800 -GOTO 730 
QQ 680 GOTO 552 

NY 690 Q-0+l' GOSUB 830'? Q;" MINA Z 
NISZCZONA" 

XJ 700 NEXT K 'WYNIK® INT<<N* 100) /M) 
GR 705 ? "ZNISZCZONO "; WYNIK;" X MI 
N" 

DV 710 ? "TRAŁUJEMY T/N"; 'INPUT A* 
JS 715 IF A*="N" THEN ? CHRi<125)'E 
ND 

YK 720 Q®0 ' GOTO 535 

LH 730 ? " T/N ";■ INPUT A$ 

CV 735 IF R#®"T" AND P=OD THEN 690 
ZN 740 IF P“OD THEN ? "WPADŁEŚ NR M 
INE !" 'GOSUB 830 END 
AF 745 IF A$="T" AND PCOD THEN ? "p 
UNKT KARNY 1 " ' KA=KA+1 
XG 746 IF KR=3 THEN N»N-1'KA®0 
QL 750 GOTO 552 

RI 800 FOR BE®1 TO EP'FOR G=10 TO 0 
STEP -1 

WK 805 SOUND 0, 100, 10,G'NEXT G'NEXT 
ZG 810 RETURN 

GO 830 FOR S-20 TO 240 STEP 3 -SOUND 
0, S, 4, 8 ' NEXT S- SOUND 0,240,0,14 
DF 840 FOR S®0 TO 40-NEXT S 
IJ 850 FOR S*15 TO 0 STEP -1'POKE 7 
06, 62 -SOUND 0, 250, 4, S' SOUND 2,24 
0,0,S'NEXT S 
ZQ 860 RETURN 


Janusz JANIEC 


' W algorytmie programu wykol zystano pomyś< 
J. Millera 
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wystarczy podać jako rozwijanie zada- 
nia, przesyłając pod adresem redakcji na 
kartach pocztowych, w terminie do koń- 
ca grudnia, naklejając kupon „IKS-a". 
Wśród autorów prawidłowych odpowie- 
dzi rozlosujemy bony pieniężne I nagro- 
dy książkowe. 


GRAFIKA 
KOMPUTEROWA I 

Jedną z najbardziej dynamicznie 
rozwijających się dziedzin zastoso- 
wania maszyn cyfrowych jest grafika 
komputerowa. Jeszcze do niedawna 
była ona domeną szybkich kompute- I 
rów profesjonalnych. Obecnie dzięki 
zastosowaniu nowoczesnych techno- 
logii mogą się nią posługiwać posia- 
dacze współczesnych komputerów 
osobistych. 

Z tą myślą ciekawe i tanie rozwiązanie 
zaproponowała angielska firma Digithrust 
Ltd. Oferuje ona zestaw składający się z 
pakietu programów i pełnowymiarowej 
karty rozszerzającej do komputerów 
zgodnych z IBM PC AT, która pozwala po- 
łączyć komputer z magnetowidem lub 
kamerą wideo. Używając tego zestawu 
można zapamiętać obraz w postaci cy- 
frowej — na monitorze RGV z rozdziel- 
czością 640 na 400 punktów. Specjalny al- 
gorytm pozwala uzyskać efekt płynnego 
przejścia między sąsiednimi kolorami i 
uzyskać ten sam obraz na monitorze i kar- 
cie EGA. Obraz można zapamiętać na 
nośniku magnetycznym w postaci akcep- 
towanej przez programy graficzne PC 
Paint, GEM Paint i Ventura Publisher. 
Funkcja „format” określa, w której części 
ekranu ma pojawić się przetworzona gra- 
fika. Aby przyspieszyć operacje ustawienia 
kierunku, ostrości i przysłony kamery 
przewidziano możliwość przyjęcia przez 
komputer obrazu czarno-białego. Grafika 
komputerowa jest narzędziem o niekwe- 
stionowanej już dziś przydatności w pracy 
architektów, inżynierów czy lekarzy. Dla- j 
tego coraz więcej firm oferuje dodatkowe j 
karty graficzne, -które zainstalowane J 
wewnątrz komputera znacznie rozszerza- 
ją jego możliwości i to pod względem 
rozdzielczości obrazu, jak i szybkości rea- j 
lizowania skomplikowanych operacji 
ekranowych. 

Nowością w tej dziedzinie jest karta VTP j 
amerykańskiej firmy Verticom. Jej prze- j 
znaczeniem jest monochromatyczny tryb 
1280 na 960 punktów, chociaż może też I 
pracować w trybie CGA. W karcie zasto- 
sowano najnowszy procesor graficzny 
INTEL 82786 — o nie wykorzystanych do 
końca możliwościach — taktowany z czę- 
stotliwością 20 MHz, 512 KB pamięci RAM 
i 8 KB ROM. VTP współpracuje z szeroko 
rozpowszechnionymi programami, na 
przykład Microsoft Windows, Auto CAD 
ADI, GEM, Ventura Publisher. Zainstalo- 
wanie takiej karty porównywalne jest ze 
wstawieniem drugiego komputera do 
jednej obudowy. 

(RAJ) 
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Jeśli ocenialibyśmy poziom informa- 
tyki i jej zastosować na podstawie ilo- 
ści i rozmachu imprez targowych poświe- 
conych tej dyscyplinie to z pewnością 
znali li byśmy sie w ścisłej czołówce 
paćstw europejskich i na czele krajów 
socjalistycznych. 

Niestety gala trwa tylko kilKa dni 
i zaraz po niej pojawia sie szara 
rzeczywistość. Komputer 88, Infosystem. 
88,TargiPoznat\sh.ie,Softarg i Informac- 
ja 88 w Katowicach przyciągały do swoich 
stoisk kolorowymi monitorami. A że forma 
dla pospolitego "oglądacza” ważniejsza 
jest niż treść , kiedy na koronie 
katowickiego Spodka na ustawionch 
tam kilkudziesięciu monitorach zaczęto 
wyświetlać filmy, arena opustoszała. 

Nie oznacza to oczywiście, aby 
podobne imprezy były zbedne. 
lnformatykas twór żyła zdrowy rynek 
(jeden z nielicznych) i wszelkiego 
rodzaju targi .wystawy czy pokazy 
pozwalają wyłowić nowości, a i w konsek- 
wencji urealnić ceny. A jeśli już o nie 
chodzi to ceny sprzętu dyktowane są 
przez czarnorynkowy kurs dolara, zaś 
cena oprogramowania zależy od podaży, 
popytu i jego wartości. 

Oprogramowanie jest coraz lepsze. 
Gołym okiem - już widać jego 
profesjonalizm. W Katowicach, pomimo iż 
zabrakło tam wielu softwarowych 
potentatów nie brakowało ciekawych 
propozycji. , 



Oczywiście Informacje 88 można 

(i słusznie) skrytykować. Ale jej 
największa zaletą jest fakt, że po 
prostu była. Rodzima informatyka z 

pewnością na tym nie ucierpi. Wypada 
mieć nadzieje, że organizatorzy w 
przyszłym roku znacznie uatrakcyjnią 
formę, a i zwiedzającym przedstawią 

zanacznie więcej wzstawcow. 

I jeszcze kilka słów o katowickim -1 
Spodku: najlepsze naszym zdaniem 

propozycje programowe opiszemy na 

naszych łamach. Już w następnym numerze^ 
przedstawimy oprogramowanie 

dziennikarzowi najbliższe - czyli 
polska wersja Oeskop Publishing Rolanda 
Wacławka. 
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Drukarka laserowa firmy Hewlett 
Packard model Laser Jet II Jest w chwili 
obecnej najbardziej popularnym typem 
drukarki laserowej na Swlecle, nie tylko 
ze względu na niska cene. ale przede 
wszystkim z powodu bardzo dużych 
możliwości użytkowych. 

Standardowo jest ona wyposażona w 
pamięć 512 kB RAM z możliwości* 
rozszerzenia do 1HB, 2MB. lub 4 HB. Jako 
jedna z nielicznych drukuje na papierze 
każdego rodzaju, foliach 
przezroczystych, foliach 1 papierach 
samoprzylepnych typu JAC. 

Przy zastosowaniu scanera można 
wykorzystywać Ja Jako kopiarkę z 
możliwością obróbki cyfrowej obrazu 1 
druku. Znajduje szerokie zastosowanie w 
malej poligrafii do składania druku i 

zdjęć. 

Jedna z nielicznych firm oferujących 
ten model drukarki laserowej Jest znana 
z wysokiej JakoSci sprzętu służącego do 
opracowań graficznych przy zastosowaniu 
techniki komputerowej BIURO OBSŁUGI 
IMPORTU 1 EKSPORTU BOI1E maJace siedzibę 
w Warszawie przy ulicy Chłodnej 35/37, 
pawilon la. telefon 24 75 18, tlx 817073 
BOI 1E PL. 

Ostatnim szlagierem proponowanym 
przez firmę BOIiE Jest stacja graficzna 
APOLLO w standardowej konfiguracji 4MB 
lub 8 MB RAM, 187 MB hard dysk i 
rozdzielczości 1024 z 1024 z 1 MB 
pamięci RAM na dwudziestocalowym 
kolorowym monitorze. 

Ha zorganizowanym w listopadzie br. 
pokazie sprzętu mikrokomputerowego nowej 
generacji oprócz drukarek laserowych, 
stacji graficznych. zaprezentowano 
różnego rodzaju zestawy komputerowe i 
kartę do obróbki cyfrowej obrazu. 
Atrakcyjna forma tej prezentacji, z 
wykorzystaniem dużych ekranów wizyjnych 

1 profesjonalnych mikserów video, 
cieszyła sic dużym zainteresowaniem. 
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Firma Dell zapowiedziała 
rozpoczęcie, z końcem bieżącego 
roku, produkcji komputera bę- 
dącego pierwszym odpowiedni- 
kiem IBM PS/2 jaki ukaże się na 
rynku. Jednakże zanim to nastą- 
pi najlepszym komputerem fir- 
my pozostanie najnowszy model 
o nazwie System 310, bazujący 
na mikroprocesorze 80386, z czę- 
stotliwością zegara 20 MHz, 
pracujący w standardzie AT. Je- 
go pamięć statyczna RAM jest 
ograniczona do 32 kbajtów, jed- 
nakże zastosowanie procesora o 
częstotliwości 20 MHz i układu 
kontrolującego Intel 82385 po- 
woduje, że jest on jednym z 
szybszych komputerów tej klasy. 
Jego cena bez wyposażenia do- 
datkowego 2699 dolarów USA. 


Komputery firmy Elxsi są 
najczęściej wykorzystywane do 
symulacji i modelowania w cza- 
sie rzeczywistym, a ich duża 
szybkość działania czyni je bar- 
dzo przydatnymi do obsługi du- 
żych baz danych. Podstawę 
konstrukcji komputerów Elxsi 
stanowi bus danych pracujący z 
szybkością 320 Megabajtów na 


sekundę. Zastosowanie wspólne- 
go busu pozwala na łatwą roz- 
budowę systemu poprzez wy- 
mianę procesora na szybszy i 
zwiększenie pamięci. W najnow- 
szych komputerach Elxsi zasto- 
sowany jest 64-bitowy procesor 
równoległy 6460 i pamięć o po- 
jemności 2000 megabajtów. 

Wspomagający procesor neu- 
ronowy ANZA-Plus firmy 
Hecht-Nielsen Neurocomputers 
umożliwia komputerom IBM 
PC-AT lub kompatybilnym pra- 
cę jako komputer neuronowy 
wykonujący obliczenia w czasie 
rzeczywistym. Tak „przerobio- 
ne” komputery znajdują zasto- 
sowanie szczególnie przy anali- 
zowaniu obrazów i sygnałów. 
Sieci neuronowe mogą być sto- 
sowane z dowolnymi kombina- 
cjami nie więcej niż 2,5 miliona 
elementów obliczeniowych i po- 
łączeń między nimi. Maksymal- 
na szybkość działania takiego 
systemu wynosi 10 milionów po- 
łączeń na sekundę. Wszystkie 
funkcje wiążące się z działaniem 
sieci neuronowej wykonywane są 
w pamięci procesora wspomaga- 
jącego umożliwiając tym samym 
niezależną obsługę funkcji wejś- 
cia/wyjścia komputera. 

Firma Hetch-Nielsen Neuro- 
computers (HNC) z San Diego 
uzyskała zamówienie od armii 
Stanów Zjednoczonych na za- 
projektowanie sieci komputera 
neuronowego do analizowania i 
rozwiązywania problemów współ- 
czesnego pola walki. Na opraco- 
wanie projektu architektury 
wojskowego komputera sieci 
neuronowej firma otrzymała za- 
liczkę wysokości 50 tys. dolarów 
USA i pół roku na jego zapre- 
zentowanie. Przewiduje się, że 
komputery sieci neuronowej 


Na amerykańskim rynku 
komputerowym coraz większą 
popularność zdobywa firma 
Elxsi, której siedziba znajduje 
się w San Jose w Kalifornii. Fir- 
ma produkuje szeroki asorty- 
ment komputerów konkurują- 
cych wysoką jakością wykonania 
i niższą ceną z produktami ta- 
kich renomowanych firm jak 
IBM czy Digital Equipment 
Corporation. W 1987 roku obro- 
ty jej osiągnęły wielkość 25,2 min 
dolarów USA, co stanowi wzrost 
o prawie 9 min w stosunku do 
roku poprzedniego, natomiast w 
roku bieżącym przewidywany 
jest wzrost o prawie 10 min. 


znajdą zastosowanie głównie 
przy analizie danych z urządzeń 
kontrolnych, czujników oraż 
przy rozwiązywaniu problemów 
naukowych współczesnego pola 
walki, takich jak obróbka sygna- 
łów radarowych, sonarowych 
czy obrazów. Ponieważ kompu- 
tery sieci neuronowej tworzą 
własne algorytmy, ich sposób 
rozróżniania szczegółów jest 
podobny do ludzkiego, to mogą 
być przydatne w przewidywaniu 
zachowań przeciwnika na pod- 
stawie obserwacji z ćwiczeń. 
Wyraża się nadzieję, że kompu- 
tery te poprzez obserwację 
czynności człowieka, będą w 
stanie nauczyć się sterowania 
robotami zastępującymi czło- 
wieka tam, gdzie jest to szcze- 
gólnie niebezpieczne lub tam, 
gdzie wykonywane czynności są 
stale powtarzane. Przewiduje się 
także, że przyczynią się one do 
powstania nowych generacji 
broni, które będą eliminować 
zmęczenie ludzkie, samoczynnie 
naprawiać uszkodzenia powstałe 
w wyniku działań bojowych oraz 
uwzględniające zmiany zacho- 
dzące na polu bitwy. 

Firma GTE Governement Sy- 
stems Corp. otrzymała za- 
mówienie wartości 7,3 min dola- 
rów USA od dowództwa amery- 
kańskich sił powietrznych na do- 
starczenie oprzyrządowania kom- 
puterowego wraz z oprogramo- 
waniem dla elektronicznych sy- 
stemów ćwiczebnych strategi- 
cznego lotnictwa bombowego. 
Za pomocą tych systemów załogi 
samolotów bombowych wykonu- 
ją symulacje lotów bojowych, w 
trakcie których doskonalą się w 
wyszukiwaniu celów strategi- 
cznych i zwalczaniu obrony 
przeciwlotniczej przeciwnika. 
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Kasetowy system 
operacyjny 2T06 TURBO 


Program K.S.O ?T06 powstał jako sy- 
stem usprawniający programowanie i po- 
sługiwanie się programami narzędziowymi 
(SPEEDSCRIPT, SOUNDMACHINE i inne), 
dzięki zwiększeniu szybkości i wygody ob- 
sługi magnetofonu. Program umożliwia ko- 
rzystanie z takich języków, |ak: ASSEMBLER- 
-EDYTOR, MAC-65, BASIC-XL, MI- 
CROSOFT -BASIC i innych, eliminując dłu- 
gie oczekiwanie na wgranie się używanego 
języka i uruchamianego programu. W prak- 
lyce jest możliwe wykorzystanie programu 
także do przyspieszonego wczytywania gier 
Uzyskano szybkość transmisji około 3000 
bit/sek. W obrębie rekordu, co daje efektyw- 
ną prędkość transmisji około 2003 bit/sek 
(oznacza to, że na przykład gra „TOMA- 
HAWK' ładuje się 4 minuty zamiast 20). 
Przy zastosowaniu dość dobrego magneto- 
fonu (M 8010) i taśm z nośnikiem AGFA lub 
BASF program działa pewnie. Jeśli wystąpią 
kłopoty, należy skontrolować równomier- 
ność przesuwu taśmy i czystość głowicy 
Przy używaniu magnetofonu innego typu niż 
M 8010 mogą się okazać konieczne nastę- 
pujące zmiany: 

— rezystor RS należy dobrać tak. aby 
uzyskać właściwą wartość sygnału na 
wejściu magnetofonu przy zapisie. 

— można pobierać sygnał z gniazda słu- 
chawkowego magnetofonu, jeśli sygnał na 
wyjściu DIN jest zbyt słaby. 

— można pobierać sygnał z gniazda słu- 
chawkowego magnetofonu, jeśli sygnał na 
wyjściu DIN jest zbyt słaby 

Aby było możliwe przenoszenie progra- 
mów między magnetofonami, konieczna jest 
także staranna regulacja skosu głowicy. Dla 
pełnego wykorzystania funkcji programu 
konieczne jest sterowanie przez komputer 
pracą silnika magnetofonu. 

W dalszym ciągu artykułu będzie opisany 
interfejs dopasowujący sygnały komputera i 
magnetofonu oraz sterujący silnikiem oraz 
opis koniecznej przeróbki magnetofonu 

Niestety, me jest możliwe przerobienie w 
prosty sposób magnetofonów „firmowych" 
Większość z nich zawiera kondensator (nie- 
zbędny do normalnej pracy) dołączony 
równolegle do głowicy uniwersalnej, co 
poprawia zapis i odczyt częstotliwości uży- 
wanych w zapisie „firmowym", ale uniemoż- 
liwia zapis i odczyt impulsów używanych 
przez system TURBO. Oznacza to, że ci. 
którzy korzystają z magnetofonu firmowego, 
będą musieli dołączyć do zestawu zwykły 
magnetofon, ale jeśli ktoś używa zwykłego 
magnetofonu z dołączonym interfejsem (a 
jest to dość powszechne), może dołączyć 
do niego także interfejs TURBO 

Jak otrzymać program 
TURBO 

Do artykułu dołączone są dwa listingi Są 
to programy napisane w języku ATARI-BA- 
SIC. Aby wygenerować program K.S.O. 
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2T06 należy wprowadzić do komputera 
PROGRAM1 Po uruchomieniu zapisze on 
na kasecie K.S.O. 2T06 jako plik 300T 
(przed uruchomieniem dobrze by było zapi- 
sać ten program na kasecie instrukcją 
CSAVE). 

Program 2 umożliwia otrzymanie progra 
mu kopiującego, pozwalającego przenosić 
pliki dowolnej długości między dyskietkami 
a taśmą w systemie TURBO 

Po uruchomieniu na dyskietce zostanie 
zapisany program kopiujący pod nazwą D: 
KOPIARKA, TUR. 

Wgrywanie programu 

1. Jeżeli chcesz pracować w języku 
ATARI-BASIC, to włącz komputer trzymając 
wciśnięty klawisz START. Jeżeli BASIC ma 
być wyłączony — trzymając OPTION I 
START 

2 W magnetofonie firmowym umieść ka- 
setę z K.S.O. 2T06 i wciśnij klawisz PLAY 
(START w niektórych magnetofonach). 

3. Naciśnij RETURN i program powinien 
się wczytać do komputera Jeżeli był wyłą- 
czony. to na ekranie pojawi się napis REA- 
DY. a o tym. ze program wgrał się popraw- 
nie. mozesz się przekonać wprowadzając 
instrukcję DOS. Powrót do BASIC-a umoż- 
liwia opcja C menu K.S.O (UWAGA 1 Jeżeli 
po wgraniu systemu nie był naciskany kla- 
wisz RESET. to przejście do K.S.O i powrót 
do BASIC-a spowoduje skasowanie pro- 
gramu w BASIC-u). 

UWAGA! Niektóre programy mogą dzia- 
łać błędnie, jeśli po wgraniu K.S.O był uży- 
wany klawisz RESET (dotyczy to zwłaszcza 
programów kopiowych z cartridge ów. przy- 
kładem jest THE LAST STARFIGHTER) 


Menu K.S.O. 

KSO 2T06 umożliwia współpracę me 
tylko z magnetofonem w trybie TURBO, ale 
także z magnetofonem firmowym. Dlatego w 
menu K.S.O. 2T06 znajdują się opcje zwią- 
zane ze zwykłym trybem transmisji 
D — długie przerwy, 

K — krótkie przerwy 

Powyższe funkcje służą do ustalenia ro- 
dzaju przerw międzyrekordowych w plikach 
ładowanych funkcjami R lub L z magnetofo- 
nu firmowego 
E — włączenie silnika. 

H — zatrzymanie silnika 
Te funkcje dotyczą także magnetofonu 
firmowego. Ich zadaniem jest ułatwienie 
odnalezienia początku pliku na taśmie, co 
przy klasycznym trybie zapisu jest sprawą 
niezwykle ważną Ponieważ tryb TURBO 
jest odporny na ustawienie taśmy daleko 
przed początkiem zbioru, a ponadto interfejs 
jest wyposażony w wyłącznik umożliwiający 
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włączanie silnika niezależnie od sterowania 
przez komputer, nie wprowadziłem podob- 
nych funkcji dla magnetofonu TURBO 
Następne funkcje dotyczą obu rodzajów 
magnetofonów 

R — załadowanie : uruchomienie pro-, 
gramu w kodzie maszynowym, 

L — załadowanie programu w kodzie ma- 
szynowym. 

Wyczerpujące omówienie działania tych 
funkcji wymaga przedstawienia struktury 
plików wczytywanych przez system DOS 
Na początku takiego pliku znajdują się 
dwa bajty FF określające rodzaj pliku. Po 
nich następują segmenty pliku. Każdy seg- 
ment na początku zawiera cztery bajty o 
specjalnym znaczeniu. Dwa pierwsze okreś- 
lają adres komórki, w której znajdzie się 
pierwszy bajt segmentu Następne dwa 
określają adres, pod który zostanie wpisany 
ostatni bajt segmentu. Ilość bajtów segmen- 
tu. które są zapisane po tych czterech baj- 
tach. jest oczywiście równa ADRES KON- 
CA-ADRES POCZĄTKU. Niektóre pro- 
gramy generujące pliki w formacie DOS 
oddzielają segmenty dwoma bajtami $FF 
(np. KYAN PASCAL). 

Specjalne znaczenie mają komórki 
736.737,738 i 739 Jeśli wczytany segment 
zapisze mezerową wartość do komórek 738, 
739, to K.S.O. uruchamia procedurę zaczy- 
nającą się od wpisanego tam adresu. Jeżeli 
owa procedura zakończy się instrukcją 
RTA, to będzie kontynuowane ładowanie 
pliku. Zawartość komórek 736, 737 jest ba- 
dana po zakończeniu wczytywania pliku 
Jeśli jest tam wpisana wartość niezerowa, to 
nastąpi uruchomienie programu od adresu 
podanego w tych dwóch komórkach. Jeśli 
nie, to gdy program był ładowany opcją L. 
nastąpi powrót do MENU K.S.O., jeśli zaś by- 
ła użyta funkcja R„ nastąpi skok na począ- 
tek ostatniego wczytanego segmentu pliku. 
Przeciętnemu użytkownikowi wystarczy in- 
formacja. ze funkcja R może służyć do ła- 
dowania większości programów wczytywa- 
nych normalnie przez loader „z wykrzykni- 
kiem" lub BLC. Programy takie można pró- 
bować po przekopiowaniu ich (np. progra- 
mem FCOPY) wczytywać w systemie TUR- 
BO 

C — powrót do cartridge a 
Ta funkcja umożliwia powrót do BASIC-a 
(lub programu umieszczonego na cartrid- 
ge u) po wywołaniu K SO instrukcją DOS. 
Funkcja ta działa oczywiście tylko wtedy, 
gdy włączony jest BASIC lub włożony car- 
tridge z innym programem 
— zimny start systemu 
Ta funkcja nie wymaga komentarza 

Nazwy plików 

Nazwa pliku może zawierać do 10 zna- 
ków. Użycie nazwy w instrukcji np. SAVE 
pokazane jest na poniższym przykładzie. 


SAVE „D: $01 23456789" 

Znaki „D:” stanowią identyfikator urządze- 
nia. Użyto identyfikatora takiego samego, jak 
dla stacji dysków ze względu na zgodność 
z takimi programami narzędziowymi jak 
S0UNDMACHINE czy MAGIC PAINTER 
Zrląk „s" jest znakiem steruiącym, ważnym 
tylko w trybie zapisu. Informuje on system, 
czy ma nastąpić rzeczywiście zapis pliku, 
czyjego weryfikacja. Umieszczenie na jego 
miejscu znaku „V" powoduje nie zapisywa- 
nie nowego pliku, lecz weryfikację tzn po- 
równanie tego, co ma być zapisane na taś- 
mie z tym, co się na niej znajduje. W poniż- 
szych przykładach znakiem sterującym jest 
V (dla weryfikacji) albo spacja (dla zapisu). 
Niektóre programy (np. program graficzny 
KOALA) nie tolerują jednak spacji w nazwie 
pliku. Można wówczas dla zapisu użyć zna- 
ku sterującego będącego dowolną literą 
różną od „V" 

PRZYKŁAD 

Używamy programu SPEEDSCRIPT. 
chcemy zapisać znajdujący się w pamięci 
tekst na taśmę pod nazwą „TEKST- 12". W 
tym celu naciskamy CONTROL+S, poda- 
jemy nazwę pliku „Ó: TEKST-12". naciska- 
my RETURN, włączamy ZAPIS i START w 
magnetofonie i naciskamy RETURN jeszcze 
raz. Po zapisaniu programu należałoby 
sprawdzić poprawność zapisu. Dyrektywa 
CONTROL+L wprowadza tekst z urządze- 
nia zewnętrznego za kursor, usuwając tekst 
znajdujący się tam wcześniej. Gdybyśmy 
chcieli jej użyć do wczytania właśnie zapi- 
sanego tekstu, to przy ustawieniu kursora 
na końcu zapisywanego tekstu mogłoby za- 
braknąć wolnej pamięci Natomiast po 
ustawieniu kursora na początku ewentualny 
błąd spowodowałby utratę całego tekstu Na 
szczęście K.S.O. 2T06 oferuje TRYB WE- 
RYFIKACJI. 

Cofamy taśmę do początku pliku, naci- 
skamy CONTROL+S podajemy, nazwę pliku 
„D „TEKST-12". naciskamy RETURN, włą- 
czamy START w magnetofonie i naciskamy 
RETURN jeszcze raz Ewentualne przekła- 
manie zostanie zgłoszone jako błąd 145. 
143, 140 lub 136. 

Posługiwanie się trybem weryfikacji w ję 
zyku ATARI-BASIC (i niektórych innych) 
nastręcza pewne trudności: mianowicie ins- 
trukcja SAVE zapisuje także linię wprowa- 
dzoną w trybie bezpośrednim, a więc zapi- 
sana zostaje także podana nazwa pliku. Mo- 
Zna sprawdzić, że zapisanie programu ins- 
trukcją SAVE „D: PROGRAM 1" i zweryfiko- 
wanie go instrukcją SAVE „D: VPRO- 
GRAM1" zakończy się błędem 145. Przy- 
czyną tego jest właśnie różnica między na- 
zwami pliku użytymi w pierwszej i drugiej 
instrukcji. Nie oznacza to jednak, że instruk- 
cja SAVE nie może współpracować z try- 
bem weryfikacji. Podam jeden ze sposobów 
uniknięcia tego kłopotu: Należy wprowadzić 
obie instrukcje SAVE w jednej linii, a więc 
piszemy SAVE „D: PROGRAM 1" SAVE „D: 
N/PROGRAM 1" i naciskamy RETURN, włą- 
czamy ZAPIS t START w magnetofonie i 
naciskamy ponownie RETURN. Program 
zostanie zapisany. Następnie cofamy taśmę 
do początku zapisanego właśnie zbioru i 
naciskamy RETURN Teraz weryfikacja na- 
stąpi w sposób właściwy 

Te kłopoty występują jednak tylko przy 
użyciu instrukcji SAVE. Znaki „01 23456789" 
w pierwszym przykładzie oznaczają nazwę 


pliku i są za pisy wane w jego na główk u na 
taśmie!* Nazwy Krotsz^l^ uzliFfSnitfflfe spa- 
cjami do 1 0 znaków, nazwy dłuższe są „ob- 
cinane". 

Oto odpowiednie przykłady 
SAVE „D: TEXT" zapisze na taśmie plik o 
nazwie „TEXT". 

SAVE: „D: PROGRAM BARDZO CIEKAWY" 
zapisze plik o nazwie „PROGRAM BA". 

Nazwa może zawierać dowolne znaki po- 
za trzema zastrzeżonymi: *, /, @. Te znaki 
spełniają ważne funkcje przy odnajdywaniu 
na taśmie zbiorów przy odczycie lub weryfi- 
kacji. 

ZNAK / oznacza, ze dany znak nazwy nie 
będzie porównywany przy identyfikacji pliku. 

Na przykład: 

Instrukcja LOAD „D: PROGRAM1 5" może 
spowodować wczytanie zarówno programu 
„PROGRAM15", jak i programu „PROGRA- 
MY5" (w zależności od tego. który będzie 
znaleziony wcześniej). 

Znak @ oznacza, ze identyfikację nazwy 
należy zakończyć na tym znaku. 

Na przykład 

Instrukcja LOAD: „D: PR@" spowoduje 
wczytanie pierwszego programu o nazwie 
zaczynającej się od znaków „PR" (na przy- 
kład „PROGRAMY" „PRZYKŁADY" itp.). 

Znak • powoduje, że jeżeli znaki występu- 
jące przed nim były zgodne, to zostaje 
wprowadzona pełna nazwa pliku z pytaniem 
czy jest on właściwy. 

Przykład: 

Instrukcja LOAD „D: KW*" po napgtkaniu 
na taśmie pliku o nazwie „KWIECIEŃ" spo- 
woduje wyprowadzenie komunikatu „KWIE- 
CIEŃ (T/N)" i czekanie na decyzję użyt- 
kownika. Naciśnięcie klawisza „T" oznacza 
akceptację pliku i przejście do jego czytania 
(weryfikacji), naciśnięcie innego klawisza 
powoduje szukanie następnego pliku 

Ważne 

dla „Hackerów” 

Kasetowy system operacyjny w swej ak- 
tualnej wersji umożliwia także niestandar- 
dowe wykorzystanie trybu TURBO — 
transmisja przebiega wtedy bez podziału na 
bloki, czyli znacznie szybciej Poza tym pro- 
gram tak zapisany jest trudniejszy do sko- 
piowania. 

Oto informacje niezbędne do wykorzy-, 
stania tych możliwości: Pod adresem 
1 792($700) znajduje się instrukcja skoku do 
procedury transmisji Procedura ta wymaga 
jako danych wejściowych adresu początku 
bloku danych, adresu końca bloku danych, i 
kodu operacji. Informacje te wprowadzamy 
w następujący sposób: 

— adres początku umieszczamy w ko- 
mórkach $50. $51 , 

— w komórkach $52, $53 umieszczamy 
adres pierwszego bajtu po przesłanym blo- 
ku (bajt ten nie będzie już przesłany), 

— kod operacji umieszczamy w akumu- 
latorze i w komórce pamięci $704 w nastę- 
pujący sposób: mezerowa zawartość ko- 
mórki 704 wymusza tryb weryfikacji bez 
względu na zawartość akumulatora, zero w 
akumulatorze oznacza zapis, a wartość róż- 
na od zera — odczyt. 


Procedura transmisji zapisuje lub ock^k ■ 
*Mazany blok dany<^?\^J5?nionJp” 
sumą kontrolną. 

Informację o wyniku operacji zawiera re- 
jestr Y. podobnie jak przy innych operacjach 
1 / 0 . 

Struktura zapisu 
na taśmie 

Do zapisu na taśmie wykorzystuje się sy- 
stem uproszczonej modulacji częstotliwości 
(podobnie jak w ZX SPECTRUM). 

Występują trzy rodzaje impulsów gene- 
rowanych na taśmie: 

1 — impuls synchronizacji (stan wysoki 
przez 800 cykli zegara i stan niski przez 800 
cykli zegara), 

2 — impuls „1" (stan wysoki przez 400 
cykli zegara, i stan niski przez 400 cykli ze- 
gara), 

3 — impuls „0" (stan wysoki przez 200 
cykli zegara i stan niski przez 200 cykli ze- 
gara). 

Blok tworzony na taśmie przez procedurę 
transmisji skłacra się z 4096 impulsów syn- 
chronizacji. po któtych następują impulsy 
kodujące bajty danych (od najstarszego do 
najmłodszego bitu), a po nich bajt sumy 
kontrolnej utworzonej jako suma modulo 
256 (nie EXOR!) wszystkich nadanych baj- 
tów. 

Przy korzystaniu z urządzenia D: na taś- 
mie mogą być zapisane następujące bloki: 

1 — blok nagłówka (zawsze na początku 
pliku). 

2 — pełny blok danych (ilość tych blo- 
ków zależy od długości pliku), 

3 — blok końca pliku (zawsze na końcu 

pliku). 1 

BLOK NAGŁÓWKA ma długość 12 baj- 
tów Na początku zawiera bajty 0,255 sta- 
nowiące identyfikator nagłówka, a następ- 
nie 10 bajtów będących kodami ATASCII 
znaków nazwy pliku. 

PEŁNY BLOK DANYCH ma długość 3074 
bajtów Na początku znajdują się bajty 0.12 
(0+12*256=3072) informujące o ilości baj- 
tów danycfi, a potem 3072 bajty danych. 

BLOK KOŃCA PLIKU ma długość 3074 
bajtów Na początku znajdują się dwa bajty 
L.H informujące o ilości bajtów danych 
(L+255*H= ilość bajtów danych). Potem 
postępują bajty danych, a za mmi bajty uzu- 
pełniające blok do długości 3074 bajtów. 

Oczywiście każdy z tych bloków poprze- 
dzony jest impulsami synchronizującymi i 
zakończony bajtem sumy kontrolnej. 


Przeróbki 

„sprzętowe” 

Podstawowym urządzeniem koniecznym 
do korzystania z K.S.O. 2T06 jest interfejs 
zmieniający analogowy sygnał z magneto- 
fonu w cyfrowy sygnał doprowadzony do 
komputera 

Schemat tego układu i sposób jego reali- 
| zacji opiszemy w kolejnym numerze IKS-a. 
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t Dostępne 

oprogramowanie 

Niektóre programy mogą pracować w sy- 
stemie TURBO bezpośrednio po ich prze- 
kopiowaniu ze zwykłego magnetofonu. Nie- 
które wymagają dość daleko idących prze- 
róbek. 

Możliwe jest przerobienie na standard 
TURBO nawet tak długiego programu jak 
TOMAHAWK 

Wśród programów użytkowych istnieją 
specjalnie dostosowane do pracy w syste- 
mie TURBO; ASSEMBLER-EDYTOR i 
MAC85 (uzupełnione dodatkowo ramdy- 
skami) VISICALC. Wiele języków (wśród 
nich znakomity TURBO-BASIC XL) nie wy- 
maga żadnych przeróbek dla współpracy z 
systemem TURBO. 

Istnieje ponadto program umożliwiający 
przenoszenie plików dowolnej długości 
między dyskami i taśmą w systemie TURBO 
oraz program umożliwiający kopiowanie pli- 
ków o długości do 55 KB w systemie TUR- 
BO , 

Oto niektóre (jest ich znacznie więcei) 
programy działające z TURBO K.S.O. 2T06 
BEZ ŻADNYCH PRZERÓBEK 
GRY: Alley Cat, Spindizzy. Combat Leader. 
Submarme Commander. Colossus Chess. 
Computer War, Pole Position. Moon Patrol, 
Behind Jaggi Lines, Boulder Dash, Monte- 
zumas s Revange. JĘZYKI: Pascal, Turbo 
Basic XL, ACTION!, Microsoft Basic, As- 
sembler OSS. 

Jak używać 
Kyan Pascal 
w systemie Turbo 

System TURBO umożliwia korzystanie z 
KYAN PASCALA bez żadnych przeróbek 
(poza oczywiście skopiowaniem z dysku na 
taśmę w systemie TURBO). Wykorzystuje 
się tu możliwość pracy z dwoma magneto- 
fonami Można umięścić tekst źródłowy na 
magnetofonie normalnym i kompilować na 
magnetofon TURBO zleceniem PC/C-OD 
Xnazwa. Nie każdy magnetofon firmowy 
zdąży zatrzymać się i ruszyć w czasie tr wa- 


ta REM PROGRAM 1 

20 REM G«n*ruj* K.S.O. 2T06 jako 
Plik BOOT na k*s*ci*. 

30 REM Hi* woźna zmieniać numerów 
linii DflTfi ! ! ! 

40 GRAPHICS 0 ! ? "►►PROSZĘ CZEKAC" 

50 REAO LB 

60 DIM A*(LB) . B*<22) 

70 L I CZN*0 « CHKSUM=0 

80 FOR I»1 TO LB 

90 IF LICZN-0 THEN REAO B* 

100 GOSUB 270 At<I BYTE) 

110 CHKSUM-CHKSUM+BYTE CHKSUM=CHK 
SUM-256* < CHKSUM> 255 ) 

120 LICZN-LICZN+1 

130 IF LICZNO 10 ANO IOLB THEN 1 

70 

140 GOSUB 270 

150 IF CHKSlłMOBYTE THEN A«10*INT 
<<I-1>/10>4320>? "BLAO DANYCH U L 
INI I ";A‘LIST A END 
160 LICZN*0 
170 NEXT I 

180 POKE 764, 255 ‘GRAPHICS 0 
190 ? " Prósz* wloz»c do m**n*tof 
onu kaset*, " 
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nia przerwy między rekordami, mogą więc 
wystąpić" kfópoty z wczytywaniem tekstu 
źródłowego 

Po wprowadzeniu zlecenia kompilacji 
kompilator zażąda dostępu do magnetofonu 
firmowego (ton pojedynczy) i po wciśnięciu 
klawisza RETURN wczyta tekst źródłowy 
Jeśli nie zostaną wykryte błędy składniowe, 
to komoilator zażąda dostępu do magneto- 
fonu TURBO (ton poczwórny) i po wciśnię- 
ciu klawisza RETURN zapisze na nim na- 
główek pliku z kodem wynikowym, a na- 
stępnie pojedynczym tekstem zasygnalizuje 
konieczność powtórnego wczytania pliku z 
tekstem źródłowym Należy wówczas cof- 
nąć taśmę z tekstem do początku zbioru, Po 
naciśnięciu RETURN nastąpi powtórne 
wczytanie tekstu źródłowego z równoczes- 
nym generowaniem kodu wynikowego 

Aby uruchomić program należy wgrać go 
dyrektywą >D1 :nazwa lub >D1 .*. Po wczy- 
taniu kodu komputer zażąda wprowadzenia 
zbioru b: biblioteki, który musi być skopio- 
wany na taśmę pod nazwą D XLIB Po jegc 
załadowaniu program powinien się uru- 
chomić. 

Przy pracy z PASCALEM konieczne jesl 
dokładne wprowadzanie nazw plików. Plik 
AUTORUN. SYS może być skopiowany pod 
dowolną nazwą, ale pliki edytora, kompilato- 
ra i biblioteki muszą być nazwane D XED 
D:XPC i D:XLIB (X dowolna litera różna od 
V) Edytor i kompilator po wgraniu pliku AU- 
TORUN muszą być ładowane dyrektywami 
>D1 :ED i >Dl PC bez żadnych znaków spe- 
cjalnych. także postać zlecenia kompilacji i 
wczytywania kodu należy zachować bez 
zmian (zamiast słowa „nazwa" należy wsta- 
wić litery tworzące nazwę programu). 

Program 
do kopiowania 
z dyskietek 

Przedstawiony program po załadowaniu 
ze stacji dysków (przez odpowiednią ins- 
trukcję DOS-a) umożliwia przenoszenie 
zbiorów dowolnej długości między taśmą w 
systemie TURBO i dyskiem (w obie strony), 
możliwa jest też weryfikacja, to znaczy po- 
równanie zbioru na taśmie ze zbiorem na 


20€i ? " na ktoreJ ma b*c zapisana 
pros ram" 

210 ? " w formie Pliku BOOT, wcis 
mac PLAY" 

220 ?“ i RECORD w masnetofoni* i 
naci snąc" 

230 ? " RETURN." 

.240 OPEN #1,8, 128, "C' M 
250 ? #1,A»; =CLOSE #1 
260 END 

270 B-ASC<B#<LICZN*2+1>> GOSUB 30 

0 ■ BYTE-Y 

288 B-ASC<B#<LICZN*2+2>> ‘GOSUB 30 
0 1 BYTE“Y«- 1 6CBYTE 
290 RETURN 

300 Y»<B-48)*<B<58>+<B-87>*<B>96> 

‘RETURN 
310 DATA 2856 

320 DATA 0011f306c208a93c8d0248 
330 DATA d318604c8d08000d2135d7 
340 DATA 4991 9936 Ibcad9fd60b*50 
350 DATA 0407200c07a9008d90d397 
360 DATA a9008dlad0adltd0f01l54 
370 DATA b*0507200c07a9d f 8d0066 
380 DATA d3a9088dlad060a0804c2d 
390 DATA 6208a20886300a43a000*9 


dysku. Przy operowaniu zbiorami na taśmie 
obowiązują te same reguły co przy K.S O., z 
jedną różnicą: identyfikatorem magnetofonu 
TURBO jest T: a nie D . 

Oto przykłady użycia programu: 

Aby skopiować zbiór LIB PASCALA trze- 
ba podać 

Plik wejściowy: D:LIB 

Plik wyjściowy: T :XLIB 

Aby następnie sprawdzić poprawność 
zapisu: 

Plik wejściowy: D:LIB 

Plik wyjściowy: T:VLIB 
lub 

Plik wyjściowy: T :V 

j, P j- 

Wprowadzenie zamiast nazwy pliku wyjś-. 
ciowego lub wejściowego *1 spowoduje 
podanie zawartości dysku w stacji pierwszej 
(*2 — w drugiej itd ). 

Aby skopiować plik TOMAHAWK z taśmy 
na dysk pod nazwę TOM.GRA należy po- 
dać: 

Plik wejściowy: T:XTOMAHAWK 

Plik wyjściowy: D:TOM.GRA 

Uwagi 

Procedura TURBO używa procesora do 
pomiaru czasu impulsów, w związku z tym 
konieczne było zablokowanie przerwań, 
czego konsekwencją jest zablokowanie 
klawisza BREAK. Przerwanie transmisji 
osiąga się przez równoczesne wciśnięcie 
klawiszy OPTION. SELECT i START. 

TURBO me toleruje starszych wersji sy- 
stemu operacyjnego, dlatego też nie będzie 
pracować poprawnie z TRANSLATOREM, 
czy z innymi programami symulującymi sta- 
re wersje ROM-u. Oczywiście nie może 
pracować także na starych modelach ATA- 
RI. 

Ewentualnych użytkowników systemu 
TURBO chciałbym ostrzec przed mogącymi 
się pojawić na giełdach wcześniejszymi 
wersjami (oznaczonymi iT ...). Ze względu na 
inny sposób generowania sumy kontrolnej i 
niepełną diagnostykę błędów występuje w 
nich niebezpieczeństwo niewykrycia błędu 
transmisji (co na przykład przy kopiowaniu 
będzie prowadzić do wytworzenia błędnej 
kopii). Przy częstym korzystaniu z systemu 
jego wgrywanie może okazać się uciążliwe. 
Została w związku z tym opracowana także 
wersia umieszczona na cartndge'u, zgodna 
z wersją wgrywaną z kasety. 


400 DATA 9002*00220 100768c630b2 
410 DATA f 008*20c200c074c3 f 07 1 d 
420 DATA 60*008adlfd0f0d7*d0035 
430 DATA d330 f 6a9008d 1 *d0*a*8*0 
440 DATA 30 1 **d00d3 1 0 f 8*9688d f 4 
450 DATA Ud0*c0*07b00b6649*c31 
460 DATA 0b07263088d0d460244992 

470 DATA 30cfa08c4cS208209b0836 
480 DATA *900*0 1085309848*004c8 
490 DATA 20 100768*8c630d0f 38850 
500 DATA d0f 03432*9008532*202** 
510 DATA 200c079348b 13248 1865*5 
520 DATA 3 1 853 1 68203b0768*8c82* 
530 DATA f005c4004cc*07*633c4*5 
540 DATA 34d009*535c533d0064c*6 
550 DATA * 1 07****e *4cb407 *53 1 69 
560 DATA *201200c07203b07*00142 
570 DATA 4c62084c3607209b08*0e4 
580 DATA 00*9ff8549a200adlfd098 
590 DATA f 0ed*d00d330 f 6*9008d5 1 
600 DATA I*d0*830*c*d00d310f8c7 
610 DATA *9088dlad0ec0*0790d450 
620 DATA c8d0d**432*90085329890 
630 DATA 4820580768*8*530*e03*d 


640 DflTfl 07d0269 132 18653 18531 11 
650 DATA c8d002©633c434d0©2*513 
660 DflTfl 33c535d0dc205807*0010c 
670 DflTfl *530c531 f 002*08 f4c62*6 
680 DflTfl 08d 1 32 »0d3*03Uec 10821 
690 DflTfl 9* *9408d0ed4*9228d006b 
700 DflTfl d4*9388d02d3*9008d00b8 
710 DflTfl d3*93c8d02d35860863444 
720 DflTfl 8435*2 f*8632*20©8633b* 
730 DflTfl *e0307d006**d0034c90* 1 
740 DflTfl 074cf307*9008d0ęd4858b 
750 DflTfl 3 1 8d00d4*9088d 1 f d0*9 f 3 
760 DflTfl 388d02d3*9608d00d3*99 f 
770 DflTfl 3c8d02d378ba©8e88©c 1 8© 
730 DflTfl 086000*90c850b*9b f 8528 
798 DflTfl 0**91*350f3de802*3fc*5 
800 DflTfl 850e8de702*9808d280*9b 
818 DflTfl *244*90**0 Ib4c86e4*949 
820 DflTfl 3 1 *00e 20250c*2 1 0*90ce0 
830 DflTfl 9d420320c8094cb00c 1 8d3 
840 DflTfl 900 1 386648207e0c*20399 
850 DflTfl *9009d*062c*10f**21047 
860 DflTfl *9039d4203*9209d440382 
870 DflTfl * 90b9d4503*9049d4*03b2 
880 DflTfl *d280*9d4b0320c809203d 
890 DflTfl 980990b5209809b0 fb*988 
900 DflTfl 079d4203*90*9d4503*9b2 
910 DflTfl 1 99d4403*9029d4803*9eb 
920 DflTfl 009d490320c809386e 1681 
930 DflTfl 0**.dl70*9d4403*d 18w*0c 
940 DflTfl 9d450338*dl90*ed 170*07 
950 DflTfl 9d4803*dl*0*edl80*9d6c 
960 DflTfl 4903 f*4803d003t ©49031© 
970 DflTfl 20c809*d©202d005*d#:-305 
980 DflTfl 02f00b201 30**9008d©257 
990 DflTfl 028de7024c3 1091 86© 1 6©d 
1000 DflTfl 0**21 0*90 79d4 203*90*©© 
1010 DflTfl 9d4503*9179d4403*90222 
1020 DflTfl 9d4803*9009d490320c884 
1030 DflTfl 09*d 1 70*2d 1 80ac9 f f f 062 
1048 DflTfl 02 1 86038602056©4983096 
1050 DflTfl 0 1 6048*90c9d420320564c 
1060 DflTfl ©4682cl60*3024c988d059 
1070 DflTfl 20*d©002d0Oc*d©102d044 
1080 DflTfl 07*548300 f4cbf0c*d©0 Ib 
1090 DflTfl 028dl70**d©1028d 180*0* 
1100 DflTfl 6c 1 70*48*948*00©2025c3 
1110 DflTfl 0c*00068204c0c4cb00c5 7 
1120 DflTfl 6c©20200bf 0c0000500*cc 
1138 DflTfl 390bcl0b6«0bl00cl20c8f 
1140 DflTfl 000086438444*001*9006* 
1150 DflTfl 9143*9ffc891 43c8b 1 24 l f 
1160 DflTfl c99b f 0089 1 4 3o8c00dd0b4 
1170 DflTfl f 360*9209 1 43c8c00dd009 
1180 DflTfl f960*9008d0307854585fl 
1190 DflTfl 46*52*290cc904 f035c9f 6 
1200 DflTfl 08 f 00 160*00 2b 1 24c956©5 
1210 DflTfl f 025*90420 f c f d30 1 b*2*d 
1220 DflTfl f 9*00© 20290**900*206 f 8 
1230 DflTfl *00 f2081082C 1400983058 
1240 DflTfl 05*980854 5604c840b38c3 
1250 DflTfl 66461 86647*90320 fcfdf 9 
1260 DflTfl 30 f 0*901 *206*00 f 208 lbb 
1270 DflTfl 08c080 f6©39830f0*22d5d 
1280 DflTfl *00b20290a*200bd2©0bf3 
1290 DflTfl c92ff00dc92af016c940ea 
1380 DflTfl f00*ddf*0©d0d3©8©00c40 
1310 DflTfl d0©720 140c*00 184456801 
1320 DflTfl *2028* 48bd f *0©20b0 f 2 f e 
1330 DflTfl 68**©8©00cd0fl*2008*dl 
1340 DflTfl 48bd 1 *0b20b0 f 268**©8b7 
1350 DflTfl ©006d0fl*9ff8dfc0220bl 
1360 DflTfl fdf2295f09404820b0f27b 
1370 DflTfl *99b20b0 f 268c954 f 0bcb2 
1380 DflTfl 4c* 1 0*2028542 f4e29442f 
1390 DflTfl *908*0c42086e4*24c*965 
1408 DflTfl 08*0d02086©4*24e*90b0b 
1410 DflTfl *0552086©4*446 100*20*© 
1420 DflTfl O20b98103©c088d026*03f 
1430 DflTfl 01 *545 1020*900*891 437 f 
1440 DflTfl ©643d002©644*9 l*c54470 
1450 DflTfl d0ef*9fcc543d0©9*9003© 
1460 DflTfl *2 f c*0 1 *208 1 0860*44689 
1470 DflTfl 1 0 188d270a20c20bc000 1 c 
1480 DflTfl 300dcd270* f 008*091*929 
1490 DflTfl 008545854660*44530033* 
1500 DflTfl *08760*00031 43©643d02e 


1510 DflTfl 02e644©ef*0©d003©©fb0c 
1520 DflTfl 0©*d fb0eo90o f 003*00 1 39 
1530 DflTfl 60*900*2 fc*0 1*208 10843 
1540 DflTfl 981004*9008545201400*2 
1550 DflTfl 60*44588 f003*08360*d96 
1560 DflTfl f *0©0d f b0ed022*547 10*2 
1570 DflTfl 03*08860*90 1*2 fc*01 *2 f 
1580 DflTfl 2081 0820 Ic0c93309c*92d 
1590 DflTfl 0ccdfb0©f005386647d0b9 
1600 DflTfl d6*000bl4348©643d00266 
1610 DflTfl ©64438*df*0©e9018df*©e 
1620 DflTfl 0e*dfb0ee9008dfb0e6899 
1630 DflTfl *00160*9008df*0e8dfb60 
1640 DflTfl 0©*90©8544*9 t c854360bb 
1650 DflTfl *20084cc85cbl869029dld 
1660 DflTfl 44039369009d4503*000©* 

1670 DflTfl b 1 cb9d4803c8b 1 cb9d49 78 
1680 DflTfl 03*90b9d42034c56©485 1 c 
1690 DflTfl d484d520**d920©6d8*973 
1700 DflTfl 0085cd f 00520b0 f 2©6cd2 f 
1710 DflTfl *4cdb9808510f 4498020Gb 
1720 DflTfl b0f24c770c*92020b0f2c7 
1730 DflTfl ©6cd*906c5cdd0f 360*987 
1740 DflTfl 8 l*00e 202500*200*90557 
1750 DflTfl 9d4203*90b9d4503*9209b 
1760 DflTfl 9d4403*90«9d4803*900c7 
1770 DflTfl 9d4903205b©4 1 004c08967 
1780 DflTfl d0 1 6bc480388 f 0 1 060* 9© 5 
1730 DflTfl 5©*00©20250c*9ff8dfc73 
1800 DflTfl 0220 fdf2*2f f 9**90 185ee 
1610 DflTfl 09*900852b*30c852*20d4 
1820 DflTfl 8©©f*917*00d20250c*dbc 
1830 DflTfl 280* 1 00**328*00©2025cc 
1840 DflTfl 0c4c©e0c*920*00e2025d* 
1350 DflTfl 0c*95 l*00d20250c*9ff 86 
1860 DflTfl 8dfc0220f df 2295 f *00850 
1870 DflTfl d99 f 0© f 00588 1 0 f 830b43 f 
1880 DflTfl 980**8b9*90e48b9*80©b0 
1390 DflTfl 48603800cb©lf3©5f4©ff7 
1906 DflTfl f 7 f 9*0 f 3 f 9 f 3 f 4e5©d*0cc 
1910 DflTfl eff0e5f2el©3f9«*e©f910 
1920 DflTfl *0d7d*el©2*0b2d4b0b6b0 
1930 DflTfl 9b9b2020202020202050 1 6 
1940 DflTfl 727*657277793*20202063 
1950 DflTfl cd009b9b7f7f*0cd*0c53b 
1960 DflTfl *0c©*0d5a09b9bcc2d4c34 
1970 DflTfl 6 1 646 f 776 1 6e696520700c 
1980 DflTfl 6c696b7520d22d4c6 1 64 f 1 
1390 DflTfl 6 f 776 16©6 9652069207390 
2000 DflTfl 746 1 72749bd32d53746 1 0© 
2010 DflTfl 72742070726 f6772616d0c 
2020 DflTfl 752020 Ib9d2d5*696d6©44 
2330 DflTfl 792073746172749bcb2d9© 
2040 DflTfl 4b726f746b696520707279 
2050 DflTfl 7*6572777920c42d446c7b 
2060 DflTfl 756769652070727*657278 
2070 DflTfl 77799bc52d5572756368fc 
2080 DflTfl 6f6d6965b©696520202042 
2090 DflTfl 20c82d5*61 74727*796d58 
2100 DflTfl 6 1 6©69659b202fl73696c 1 8 
2110 DflTfl 6©696bbl2020202020207b 
2120 DflTfl 2020202020 73696c6©693* 
2130 DflTfl 6b6 1 9bc32d506 f 77726 f *3 
2140 DflTfl 7420646f20636l7274724b 
2158 DflTfl 69646765276 1 9b0600445 1 
2160 DflTfl 4c5547494507004b524fb* 
2170 DflTfl 544b494515009b7ffd5*6d 
2180 DflTfl 6c7920666 * 726d6 1 7420 1 b 
2190 DflTfl 706c696b 75202 J14009b30 
2200 DflTfl 7ffd426o6 1642074726 136 
2210 DflTfl 6©736d69736?693*2021f© 
2220 DflTfl 009b202020202020*0c©c7 
2236 DflTfl el©3©9f 3©©©9e**0©4© f9b 
2240 DflTfl f7ef©ce©f9?0©b©cel f 7 *3 
2250 DflTfl ©9 f 3 f **0 1 C009b 20202030 
2260 DflTfl 2020202020506 f 646 1 6*b© 
2270 DflTfl 206©6 1 7*776520706c6968 
2280 DflTfl 6b759b3f4c52534b4445e7 
2290 DflTfl 48 1 d43 f 908 f C08 f ©09b954 
2300 DflTfl 0©cl0ec90edl0©f 10ed©c4 
2310 DflTfl 0e*9808d280*4cbf 0c*97a 
2320 DflTfl 008d280*4cb f 0c*9348db* 
2330 DflTfl 02d34cb f 0c*93c8d02d3©d 
2340 DflTfl *9038d0fd24cbf0c*df8c3 
2350 DflTfl 03d0f8*9Td8d01d320©f*4 
2368 DflTfl 0©6c f *b f 6c f ©b f *90 1 8d37 
2370 DflTfl 44026c fcf f00©4 


10 REM PROGRAM 2 

20 REM Zapisuj© n* dyski©tc© u pI 

ikuD- KOPIARKA. TUR 

30 REM pro* ram przenosząca pliki 

*i«dzy svst«M©«* TURBO i dyskami 

40 GRAPHICS 0 ? “►►PROSZĘ CZEK AC" 

50 READ LB 

60 DIM fl*(LB> ,B#<22> 

70 LICZN*0 CHKSUM-0 

80 FOR 1-1 TO LB 

90 IF LICZN-0 THEN READ B* 

100 GOSUB 270 A*<I)»CHR*<8YTE> 

110 CHKSUM-CHKSUTHBYTE CHKSUM-CHK 
SUM- 256* < CHKSUM> 255 > 

120 LICZN-LICZN+1 

130 IF LICZNO 10 AND IOLB THEN 1 

70 

140 GOSUB 270 

130 IF CHKSUMOBYTE THEN A- 10*1 NT 
<< 1-1 )^10>+320 1 ? “BLAO DANYCH U L 
INI 1 ";fi‘LIST fl*END 
160 LICZN-0 
170 NEXT I 

180 POKE 764, 255 GRAPHICS 0 
190 ? " Prósz© wlozyc do stać i i d 
yskow dys- " 

200 ? " kietk© n* ktor©j m« byc z 

apisany “ 

210 ? " prosran kopiujący i nacis 
n*c" 

220 ? " RETURN. " 

230 POKE 764,255 GET #16, ft 

240 OPEN #1,8, 128, "D KOPIARKA. TUR 


250 ? #1 iMi -CLOSE #1 

260 END 

278 B-flSC<B*<LICZN*2+l>> GOSUB 30 

0 BYTE-Y 

280 B-ftSC<B*<LICZN*2+2>> GOSUB 30 
0 : BYTE"Y©16*8YTE 
290 RETURN 

300 Y»<B-48)*<B<58)+<B-87)#<B>96) 

1 RETURN 

310 DflTfl 1865 

328 DflTfl ffff00209©224c8d21B0d8 
330 DflTfl 0d2 1354991 9936 lbc*d899 
340 DflTfl fd60b©0420200c20*900cd 
350 DflTfl 8d00d3*9608d 1 *d0*d 1 f 1 9 
360 DflTfl d0f011b©0520200c20*9c2 
370 DflTfl d f 8d00d3*9086d 1 «d06089 
380 DflTfl *0804c6221 *20886300«©2 
390 DflTfl 48*0009002*0022010204© 
400 DATA 68c630f 008*200 200c209© 
410 DflTfl 4c3f2060#008*dlfd0f0dd 
420 DflTfl d7*d00d330 f 6*9008d 1 **« 
430 DflTfl <J0**e8301©*d00d3i0f8*2 
440 DflTfl *9088dl*d0ec0*20b00bdb 
450 DATA 6688©c0b20263088d0d462 
460 DflTfl 602488300 T*08c4cb22 168 


470 DflTfl 30c f *08c4c6208209b0836 
480 DflTfl *900*0 1085309848*004c8 
490 DflTfl 20 100768*8c630d0f 38850 
500 DATA d0f 8*432* 9008532*202©* 
510 DATA 200c079348b 13248 1865*5 
520 DATA 3 1 853 1 68203b0768*8c82e 
530 DATA f005c4004cc©07©633c4e5 
540 DflTfl 34d009*535c533d0064c©6 
550 DflTfl *107©*©*ea4cb407*53163 
560 DflTfl *201200c07203b07*00142 
570 DATA 4c62084c3607209b08*0©4 
580 DATA 00*9ff3549*200*dlfd098 
59 0 DflTfl f0©d*d0Od330f6*9008d51 
600 DflTfl 1 *d0©830©c*d00d3 1 0 f 8c7 
610 DflTfl *90G8dl*d0ec0*0790d450 
620 DflTfl c8d0d**432*90085329890 
630 DflTfl 4820580?68*8*530*©03©d 
640 DflTfl 07d0269 132 186531 8531 11 
650 DflTfl c8d002©633o4 34d0©2*5 1 3 
660 DflTfl 33c535d0dc205807*0010c 
670 DflTfl *5300531 f 902*08 f4c62*6 
680 DATA 08d 1 32 f0d8*09l *©010821 
690 DflTfl 9a*9408d0©d4*9228d006b 
700 DATA d4*9388d02d3*9008d00b8 
710 DATA d3*93c8d02d35860863444 
720 DflTfl 8435*2 f *8632* 20©8633b* 
730 DflTfl *©0307d006**d0034c90* 1 
740 DflTfl 074cf307*9008d0©d4858b 
750 DflTfl 3 1 8d00d4*9088d 1 f d0*9 f 3 
760 DflTfl 388d02d3*9608d00d3*99 f 


Ł 1710 DATA 207*6 17761 72746 f 7363*6 
W 1720 DATA 206479736b75206*9b50*f 
1730 DATA 6c696b20776S6*73636994 
1740 DATA 6 f 7779203* 11009b506cb3 
1750 DATA 6 96b 2077796*7363696 f b 1 
1760 DATA 7779203* 1 3009b4b6 f 70d8 
1770 DATA 696 f 776 1 6*6965207 *6 1 b f 
1780 DATA 6b6 f 6e637 *6 f 6*65209b* 1 
1790 DATA 06019b7d202020202020c0 
1800 DATA 4b6 f 70696 1 726b6 1 204456 
1810 DATA 59534b3c3*545552424 f 53 
1820 DATA 544 1 50459b9b2070726 f 24 
1830 DATA 67726 1 6d206 f 70726 1 6300 
1840 DATA 6 f 776 1 6*792070727 *650 f 
1850 DATA 7*9b202020202020202024 
1860 DATA 20202020202020576 f 6*34 
1870 DATA 636965636861 205*6 162ce 
1880 DATA 6 f 6c6 f 746*65676 f 9b9b6b 
1890 DATA 2020202020776572736*36 
1900 DATA 6 1 20322*36202050494 1 67 
1910 DATA 53344 f 5720203 1393838C* 
1920 DATA 9b9b55574 14741 20212 ldb 
1930 DATA 2 1 204 1 627920756*696b0 f 
1940 DATA 6*6 1 63206b6 f 6c697 *6* f 4 
1950 DATA 69207*652073746 1 2d9b8c 
1960 DATA 636*6 1206479736b6f777b 
1970 DATA 20696465G*747366636b62 
1980 DATA 61746 f 72656d206d6 1 673 f 
1990 DATA 6*65746 f 666 f2d9b6*7575 
2000 DATA 20545552424 f 206*657383 
2010 DATA 7420543*2061206*696582 
2020 DATA 20443*206*6 16b2077202d 
2030 DATA 7379732d9b74656d696568 
2040 DATA 204b2e532*4 f 2*205455c6 
2050 DATA 52424 f 9b48*220a90b9d* 1 
2060 DATA 4203*9009d48039d490360 
2070 DATA 682056*460*2 10*9079d81 
2080 DATA 4203*9009d48039d490340 
2090 DATA 2056*460*00 1 b 1 868d4d*c 
2100 DATA 27204023*903*2 109d4295 
2110 DATA 03*94c9d4403*9279d4523 
2120 DATA 03*906 9d4*03*9009d4b50 
2130 DATA 032056*4301**907*21059 
2140 DATA 9d4203*9009d48039d49b2 
2150 DATA 032056e4300620b0 f 24o53 
2160 DATA 2827c088d0034cb*244c37 
2170 DATA 2b25444d3*2*2e2*00*0b4 
2180 DATA 02©102**246b 


1840 DATA 0c4c**0c*920*00*2025d* 
1850 DATA 0c*951*00d20250c*9ff86 
1860 DATA 8d f C0220 fdf 2295 f *00850 
1870 DATA d99 f 0* f 00588 1 0 f 830b43 f 
1880 DATA 980**8b9*90e48b9*80*b0 
1890 DATA 48603800Gb* If3*5f4*ff 7 
1900 DATA f 7 f 9*0 f 3 f 9 f 3 f 4*5*d*0cc 
1910 DATA eff0*5f2el*3f9e*e*f910 
1920 DATA *0d7d**l*2*0b2d4b0b6b0 
1930 DATA 9b9b2020202020202050 1 6 
1940 DATA 727*657277793*20202063 
1950 DATA Cd009b9b7 f 7 f *0cd*0c536 
1960 DATA *0c**0d5*09b9bcc2d4c34 
1970 DATA 6 1 646 f 776 1 6e696520700c 
1980 DATA 6c696b7520d22d4c6 1 64 f 1 
1990 DATA 6 f776 16*69652069207390 
2000 DATA 746172749bd32d5374610e 
2010 DATA 72742070726f6772616d0c 
2020 DATA 752020 Ib9d2d5*696d6*4 4 
2030 DATA 792073746172749bcb2d9* 
2840 DATA 4b726f746b696520707279 
2050 DATA 7*6572777920c42d446c7b 
2060 DATA 756769652070727*657278 
2070 DATA 77799bc52d5572756368 f c 
2080 DATA 6f6d69656*696520202042 
2090 DATA 20c82d5*61 74727*796d58 
2100 DATA 6 1 6*69659b202A73696c 1 8 
2110 DATA 6*696bbl2020202020207b 
2120 DATA 202020202073696c6*693* 

2138 DATA 6b6 1 9bc32d506 f 77726 f *3 
2140 DATA 7420646 f 20636 I7274724b 
2150 DATA 69646765276 19b0600445l 
2160 DATA 4c5547494507004b524fb* 
2170 DATA 544b494515009b7f fd5*6d 
2180 DATA 6c7920666 f 72Sd6 1 74 20 1 b 
2190 DATA 706c696b 75202 114909b30 
2200 DATA 7 f f d426c6 1 642074726 J 86 
2210 DATA 6*736d69736? 693*2021 f* 
2220 DATA 009b202020202020*0c*c7 
2230 DATA *le3*9f3***9e**0*4*f9b 
2240 DATA f7* f*ce* f3?0*b*ce 1 f 7*3 
2250 DATA e9f3f**81c009b20202030 
2266 DATA 2020202A20506f646l6*b* 



1690 DATA 736d69736*693*202d0022 
1700 DATA 9b2*6* 20706 f 646 1 6*65*8 


770 DATA 3c8d02d378ba*8*88*c 1 8e 
780 DATA 086000*90c850b*9b f 8528 
790 DATA 0**91 *850 f3d*302*9tc*5 
808 DATA 850*8d*702*9808d280*96 
810 DATA *244*90**0 Ib4c86*4*949 
820 DATA 31*00*20250c*210*90c*0 
830 DATA 9d420320c8094cb00c 1 8d3 
840 DATA 9001386648207*00*20399 
850 DATA *9009d*002c*10f**21047 
860 DATA *9039d4203*9209d440382 
870 DATA *9»3b9d4503*9049d4*03b2 
880 DATA *d280*9d4b0320c809208d 
890 DATA 980990b5209809b0 f b*988 
900 DATA 079d4203*90*9d4503*9b2 
910 DATA 1 99d4403*9029d4803*9*b 
920 DATA 009d490320c809386* 1681 
930 DATA 0**dl70*9d4403*d 180*00 
940 DATA 9d450338*dl90*ed 170*07 
950 DATA 9d4803*d 1 *0**d 1 80*9d6c 
960 DATA 4903 fe4803d003f *49031* 
970 DATA 20c809*d*202d005*d*305 , 
980 DATA 02f00b20130**9008d*257 
990 DATA 028d*7024c3 1091 86* 1 6*d 
1900 DATA 0**2 1 0*9079d4203*90**e 
1010 DATA 9d4503*9179d4403*90222 
1020 DATA 9d4803*9009d490320c884 
1030 DATA 09*d 1 70*2d 1 80*c9 f f f 062 
1040 DATA 02186038602856*4983096 
1050 DATA 0 1 6048*90c9d420320564c 
1060 DATA *4682c 160*3024c988d059 

1670 DATA b 1 cb9d4803c8b 1 cb9d4978 
1680 DATA 03*90b9d42034c56*4851c 
1690 DATA d484d520**d920*6d8*973 
1700 DATA 0085cdf 0052060 f2*6cd2f 
1710 DATA *4cdb9800510f4498020cb 
1720 DATA b0f24c770c*92020b0f2c7 
1730 DATA *6cd*906c5cdd0f 360*987 
1740 DATA 8 1 *00e20250c*200*90557 
1750 DATA 9d4203*90b9d4503*9209b 
1760 DATA 9d4403*.90*9d4803*900c7 
1770 DATA 9d4903205b*4 1 004C08967 
1780 DATA d0 1 6bc480388 f 0 1 060*9*5 
1730 DATA 5**00*202500*9 ff8dfc73 
1800 DATA 0220 f d f 2*2 f f 9**90 1 85ee 
1810 DATA 0S*900852b*90c852*20d4 
1820 DATA 8**f*917*00d20250c*dbc 
1836 DATA 280*100**328*00*2025cc 


Losowy start 
generatora RND 


Basic przewiduje możliwość ustawienia generatora za pomocą 
rozkazu RANDOMIZE, ale trzeba ją ustalić samodzielnie. Jeśli za- 
leży nam na całkowicie losowym (i niezależnym od użytkownika) cią- 
gu liczb losowych, to w standardzie Basic’a tego nie zrobimy. 

Musimy skorzystać z komórek pamięci zliczających ramki (licznika 
ramek). Licznik zwiększa swoją wartość o 1 co 1/50 sekundy. Z dużą 
dokładnością możemy założyć, że ustalenie startu generatora RND 
na podstawie dwóch młodszych bajtów licznika zapewni całkowicie 
niepowtarzalny ciąg liczb. 

Pierwsze liczby generatora RND. 


Generator RND w ZX Spectrum posiada pewną niedogodność: po 
włączeniu komputera do sieci wartość wyjściowa generatora jest ze- 
rowana, czyli cały cykl generacji jest zawsze jedną i tą samą sekwen- 
cją: 


10 REM Krzysztof Pozniak ©1988 
losowy start generatora 
liczb pseudo losowy ch 
20 RANDOMIZE 1: REM ustawienie 
stałego startu 
generatora RND 
30 RANDOMIZE 256*PEEK 23672+PE 
EK 23673: REM losowe ustawienie 
genetatora RND 
40 PRINT RND 
50 GO TO 20 


2 liczba 

3 liczba 

4 liczba 

5 liczba 

6 liczba 

7 liczba 

8 liczba 

9 liczba 
10 li cz ba 
lll i cz ba 
12li cz ba 

13 l i cz ba 

14 li cz ba 
15 1 i cz ba 


.0011291504 

.08581543 

0.43719482 

0 . 79025269 

0.2691803 

0. 18934631 

0.20188904 

0.14257813 

0.69433594 

.075531006 

0.6658783 

0.94125366 

0.59408569 

0 . 55688477 

0.76686096 
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W związku z rozpoczęciem publikowania na łamach 
„IKS-a” artykułów dotyczących języka „C", chciałbym 
przedstawić program napisany w Basic-u oraz jego imple- 
mentację w „C". Początkujący zwolennicy języka „C" mogą 
w ten sposób obejrzeć i porównać efekty pracy obu języ- 
ków. Aby nie rozbudowywać programu napisanego w „C”, 
wykorzystano w nim funkcję czydalej (J) z drugiego nume- 
ru zeszytów programów „IKS-a". Zbiór wskazówek tego pro- 
gramu dla linkera składa się z następujących nazw: 


PG 500 REM 

Yfi 502 REM * * 

VQ 504 REM * LOTERYJKA * 

TE 506 REM * * ATftRI * * 

YS 508 REM * * 

pi 518 rem jmmmjmjm********* 
JA 511 POKE 752,0 
LL 512 PRINT CHR$<125> * J=0 1=0 
MS 514 DIM J$<255) , I$< 15) : J$=" " 

TJ 515 DIM T$< 1 ) : OPEN #1,4,0, "IO " 

AL 516 PRINT "ILU GRACZY ";=INPUT N 
UD 517 PRINT 

GY 518 FOR K=1 TO N«? "GRACZ ";K 
VX 528 ? "IMIĘ "; * INPUT 1* 

TN 521 PRINT 

BQ 522 J$<LEN< J$>+1 >=I$ : I=LEN< I$)+l 
PP 523 FOR DL»I+<K*10> TO 9+<K*10> 
ND 524 J$<LEN<J*)+1)=CHR$<32> 

KU 525 NEXT DL 

OR 526 I=L£N< I$)+l 

IIJ 527 J*<LEN<J*)+1)=CHR$<44)'J=J+I 

UD KJPVT k 

RY 536 FOR K-l TO NSOUND 0,99,10,5 

DO 537 KS*<K-1>*10 

MD 538 FOR KK=1+KS TO 9+KS 

XU 539 PRINT J$(KK,KK >j 

MG 540 NEXT KK 

FN 542 SU=0 

PL 543 FOR G=1 TO 5'SOUND 0,0, 0,0 
FF 544 W=1+INT<RND<0)*8)'SU»SU+W 
DV 546 PRINT CHR$<32);W; «NEXT G 
CV 547 PRINT " ";SU 
JM 548 IF K=J THEN 550 
HY 549 NEXT K 

EE 550 ? ■•? "GRAMY DALEJ ?*' 

JW 551 POKE 752,1 

KL 552 ? «? " ";CHR$<212);V 

" ; CHR$<206> ; : GEJ #1,T 
UE 554 IF TO 78 THEN ? »? ! GOTO 536 
OW 556 END 


LOTEc 

AIO 

PRINTF 

GRAPHICS 

DBC.OBJ 

CZYDALEJ 

Pierwszy wiersz, to oczywiście nazwa samego programu, 
którą można zmienić. Pozostałe związane są z biblioteką. 
Całość zostanie skomplikowana pod warunkiem uczynienia 
tego samego z funkcją czydalej (J). 

Zadanie programu jest proste. Po wprowadzeniu ilości 
graczy, a następnie ich imion, komputer losuje pięć liczb w 
zakresie od 1 do 7 oraz oblicza ich sumę. Wygrywa ten, kto 
zdobędzie więcej punktów. Można do tej zabawy podejść 
od innej strony. Mechanizm jej przypomina trochę grę w 
kości. Będzie wygrywał ten, kto uzyska więcej par, trójek itd. 
o większej liczbie oczek. 

J. J. 

z**************************/ 

/* */ 

LOTERYJKP #/ 

/* ATARI */ 

/* */ 

/**************************/ 
ntainoic 

int c, i lu, dl, i, i, K, g, su, t; 
char w, ubC 100], imiaCi03; 
prinif C"\f Ilu graczy cmax 33?"3; 
l iu = ge tchar C 3 > 
c«getcharCJ; 

f ortdl »0; dl <»i 1U-U9) dl++3iC 

pr int f c "\nGrtcz v.d 
prłnt i C "\nlniie " 3 ; 
ga t» C i m i e j j 
t as tr lanc imię}; 

fOr( ia0; ł < t ; i++3*C 
i* i +d i # i 0; 

♦.ab c JJ ■ im i a c i 3 i 

*3 

forci -t; ł < *5; i + + 3 * C 
Ja i +d 1 « 1 0; 
t ab C j 3 ■ 32 ; *3 

♦ 3 

do* C 

pr int f C "sn" 5 ; 
i or Cfc-0; h < a i 1U-45) lt + + 3 
♦C*OUndC0, 53, 10, 53; 

pr int i c ,r \n" 3 > 
for(i>10*kj i <«10*k+5; i + + 3 
pr intf C“Xc", t ab C i 3 3 ; 
ftound(0, 0, 0, 03; 

*Ua0; 

/ or Cga i ; g < «5j g++3 ♦ C 
wa i +rnd CS3 i 

SU*ftU + W; 

pr int i c " y. d", w ) , 

♦ 3 pr int i C " d", SU3 ; 

♦ 3*3 

whi letczydala jC)3; 

♦ 3 



Programy narzędziowe 
na CPC - AMSTRAD 6128 



W niniejszym opracowaniu przedstawiamy niezbędne w 
pracy z komputerem CPC— AMSTRAD 6128 programy 
narzędziowe: DYSKMAPA, SEKTORED, KATALOG, 

DYSKCOPY i binarny program PROGBIN wykorzystywany 
przez każdy z wymienionych powyżej programów. 

Program PROGBIN jest niezbędny przy operacjach wy- 
konywanych na zbiorach. Warto wprowadzić i zachować 
na dyskietce jeszcze jeden program: JOB (wydruk 6), który 
ułatwi nam ściąganie prezentowanych programów do pa- 
mięci z jednoczesnym ich uruchomieniem. 

Najpierw proponujemy wprowadzić i uruchomić komen- 
dą RUN program PROGBIN (wydruk 1). Jeśli wprowadza- 
jąc program nie popełniłeś błędu pojawią się komunikaty: 

OK - WSZYSTKIE DANE PRAWIDŁOWE 

WŁÓŻ DYSKIETKĘ DO ZAPISU PROGRAMU BINAR- 
NEGO - WCIŚNIJ DOWOLMY KLAWISZ. 

Jeśli postąpiłeś zgodnie z komunikatem to możesz uwa- 
żać, że masz poza sobą wprowadzenie (i zachowanie na 
' dyskietce) najbardziej żmudnego z wymienionych progra- 
mów. 

Programy narzędziowe DYSKMAPA, SEKTORED, KA- 
TALOG. DYSKCOPY. 

Opublikujemy w kolejnych numerach „IKS-a" 


10 RESTORE 200: #*14000 

20 FOR K*1 TO 2561REH 234 - liczba linii DATA zaulerajacych po 20 bajton kodu 
30 SWK*0 
40 FOR 1*1 TO 20 
30 REAO IAJT 
40 SUW«SWr«|AJT 

70 R0« W-I.MJT * 

80 KIT I 
40 REAO SUM 

100 1F SUMO SUK THER RAWT 'BIED* DAtt 8 linii 'iKlSTOP 
110 A*A»20iREIT * 

120 CLStLDCATE l.ltRRIKT * 0* - WSZYSTKIE dane RRAdlOŁOKE" 

130 LOCATE 1,12 

140 RRIRT **.02 DYSKIETKĘ 00 2AFISU PR06RARU 01NARRE60 - KCISWJ D0Y0LKY KLAWISZ* 

130 IF IKEYI*',' THEN 130 

140 SAVE ‘pro^bin. Din', 0,16000, 3120 

200 DATA 143.31,14, 143. 134, 14, 143, 43, 16,143,177, 14,0, 143, 14*. 144, 144, 143, 200, 144. 2474 

210 DATA 201, 147, 143, 144, 144, 144,143, 200, 1H, 201, 147, 17,233, 1,203, 72, 16, 30, 0,221, 2481 

220 OATA 84, 0,223, 40, 14,33,13, 16,224,223, 81,16.223, 48,11, 38, 81, 140, 114,33, 1743 

230 OATA 123, 254, 31, 32, 734, 173, 30, 12, 16, 17, 0,10, 123, 273.84, 16, 122,223, 07, 16,1833 

240 DATA 201,108,147,7,114,202,7,3,148,7,44, 144,7,221,14,0,221,44,2,221,2144 

250 DATA 126,4,243,213,71,17,22,0,221,224,223,23,204,221,33,146,16,126,221,114,2534 

260 DATA 0,221,114,2,221,35,221,33,221,33,221,33,43,43,16,237,241,234,4,40,2244 

270 DATA 4,62,1,24,2,62,143,213,223,236,16,204,33,146,16,273,234,16,201,221,2340 

280 DATA 86,0,221,78,2,721,110,4,221,102,3,30,0,223,242,16,201,221,86,0,2064 

240 DATA 221,44,2,221,78,4,221,110,4,221,102,7,223,243,16,201,4,0,143,2,2171 

300 DATA 4,0,148,2,4,0,144,2,4,0,144,2,4,0,143,2,4,0,200,2,1016 

310 DATA 4,0,146,2,4,0,143,2,4,0,148,2,0,0,0,0,124,147,7,82,1020 

320 DATA 148,7.102,148.7,78,148.7,0,0,0,0.0,0.0.0,224,224,224.224,1711 

330 OATA 224,224,224, 224, 224.224, 224, 224, 224, 224, 224, 224, 224, 224, 224.224, 224, 224, 224, 224,4380 

340 DATA 224,224, 224, 224, 224.224,224.224.224, 224.724, 224,224, 224.224.224.224,224, 224,224,4380 

330 OATA 224,224,224,224,224.224,224,224,224,224,224,224,224.224.224,224,224,224,224,224,4580 

340 DATA 224, 224, 22®, 224, 224, 22®, 22®, 224, 229, 224, 224, 224, 229, 224, 224, 224, 224, 224, 224, 22°,4380 

370 DATA 224,224,224.224,224,224,224,224,224,224,224,224.224,224,224,224,224,224,224,224,4380 

380 DATA 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224,224,224,224, 224,224, 224, 224, 224, 224, 4380 

'340 DATA 224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224.4380 

400 DATA 224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,4580 

410 DATA 224, 22», 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 4380 

420 DATA 224, 224, 224, 224, 224, 224,224, 224, 224.224, 224, 224, 224, 224.224, 224, 224,224,224, 224.4380 

430 OATA 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 4580 

440 DATA 224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,4580 

450 DATA 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224,224, 224, 224, 224,4580 

460 DATA 224, 224 ,22®, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224,4360 ■ 

470 DATA 224,224,22*,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,4380 

480 DATA 224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224, 4380 

440 DATA 224,224,224,224.224,224,224,224,224,224,224,224,224.224.224,224,224,224,224,224,4580 

10 


300 BATA 224,724,224, 224, 224, 224, 224,224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224.224, 224, 4310 
310 DATA 224,224,224.224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,4580 
320 DATA 224,224,224, 224,224, 224,224, 224, 224,224, 224, 224. 224, 224, 224, 224, 224, 224, 224, 229, 4380 
530 DATA 224,224,224,229,229,224,224,224,224,224,224,224,229,229,224,224,224,224,224,229,4380 
340 DATA 224,224,224, 224,224. 224,224, 224, 224,224, 224,229. 224. 224, 229.229. 224, 229,229, 224, 4380 
350 DATA 22®, 224, 224, 224, 224, 224, 229, 229, 224, 229, 224, 224, 224, 224, 224, 224, 224, 224, 229, 229, 4380 
560 DATA 224, 224, 229.224.224.224.229,224, 224, 224.2^.229.224.224.224, 22«. 224.224, 224.22«, 458! 
370 DATA 22*. 224, 224. 224, 224. 224, 224, 224, 224, 224, 22®. 224. 229, 224, 22*. 224, 224, 224, 22*, 22®, *380 
380 DATA 224, 224, 229.224,224, 224.224,224, 221, 110, 0,221, 102, 1,6, 14, 147, 224, 6, 16,24!'' 

34! DATA 126, 203, 61, 19, 62, 32, 203, *0,187, 55, 16,244, 6, 5,203, 40,167, la, 23'., 223,22*3 
600 TATA 6. 16. 126, 234, 52. 18, 2, 62, 4e, 205, 40, 137, 33. 16, 243. 62, 13,203,90,187,1423 
610 DATA 62, 10,203, 40.187, 143, 16.204, 201, 245, 13, 13, 13, 13.203, 70, 14.241, 250,13, 2253 
420 DATA 148, 144, 39. 204, 64, 34, 143,90, 187, 224, 224, 229, 224, 224, 22®. 22®, 229, 224, 224, 224, 3681 
630 DATA 22®, 224, 229, 229, 229, 224, 229.229, 229, 229, 229, 229, 229. 229. 229, 229, 229, 229, 229,224,4380 
640 DATA 224, 224, 229, 229, 22®, 22®, 22®, 229, 229, 229, 229, 229. 22®, 22®, 229, 224, 224, 229, 229, 229, 4380 
630 DATA 22®, 224.229, 229, 229, 279, 229, 229. 22®, 224, 22®, 224, 229, 22®, 22®, 22®. 22*. 22®. 22=,2: : , 4580 
660 DATA 224, 22®, 224, 22®, 229, 229, 224, 229. 22®, 22®, 229,224, 229, 22®, 22®, 224. 72®, 229, 229, 22®, 4380 
670 DATA 22®. 22®. 224, 22®, 22*. 229,229, 22®, 229, 22®. 229, 229, 229, 22®, 22®,229, 22®. 22®, 224, 22®. 1380 
6B0 DATA 224, 224, 22®. 224,224, 22®. 22®. 22®. 22®. 224, 229, 22®. 22®, 22®, 22®. 22®, 22®, 22®, 229, 22®. *58 
640 DATA 22®, 22*. 22®, 22®, 22®, 22®. 22®. 22®. 22®, 22®, 22®, 22®, 22®, 22®. 22®, 22®, 22®, 22®, 22 : .22‘, 4380 
700 DATA 22®, 229, 22®. 22®. 22®. 22*. 224, 22®, 22®. 22®. 22*. 22®. 22®, 22*! 22®. 22®! 22*! 22®! 27®] 22®] ‘3S0 
710 DA T A 22®. 27®, 224, 22®, 224. 22®, 22®. 22®, 22®, 224, 229, 22®. 229. 229. 22®. 274. 274. 22®, 22®, 22®. *580 

770 DATA 224, 224, 224, 774, 274, 724, 724, 224, 274, 224, 224, 224, 274, 224, 224, 224, 724.224, 724, 724, 4380 
730 DATA 224,224,224,224,224,224,224,224,224,224,224,224,279,224,224,224,274,274,224,229,9380 
790 DATA 224,224.229, 224, 274,224,229, 224, 224,229, 224, 224, 224, 224, 224, 224, 224, 229, 229, 229,9380 
730 DATA 224,224,224,229,224,224,224,224,229,229,229,224,224,229,224,224,224,229,229,229,9580 
760 DATA 224,224,224,229,224,224,229,229,224,224,229,224,229,224,229,224,224,229,224,224,9380 
770 DATA 224,224,224,224,224,224,224,229,229,224,224,229,224,224,224,224,224,229,224,229,9580 
78C DATA 224,224,224,224.224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,9380 
740 DATA 224,224,224,224,229,224,224,224.224,224,224,224,224,274,224,224,224,224,224,274,9380 
800 DATA 224,224,224,274,224,224,224,224,224,224,224,224,224,274,274,224,224,224,224,224,9380 
810 8ATA 224,224,224,224,224,774,224,224,224,224,224,224.224,224,224,224,224,224,274,224,9380 
820 DATA 224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,9380 
83C DATA 224,224,224,224,224,224,224,224,274,224,224,224,224,224,224,224,224.274,224,224,9380 
890 DATA 224,224,224,224,224,224,224,274,224,224.224,224,224,224,224,224,224,229,224,224.9380 
830 DATA 224,224,224,229,224,224,224,224,224,224,229,274,229,224,224,224,224,274,224,224,9380 
860 DATA 229,224,224,229, 224, 279, 229, 229, 224,229, 224, 229, 224, 224, 229, 224, 224, 224, 229, 229, 9380 
870 DATA 224,224,229,224,224,229,224,229,224,224,229,224,224,229,229,229,224,229,229,224,9380 
880 DATA 224,224,224,229,229,224,224,224,224,224,724,229,224,224,224,229,224,229,224,224,9580 
840 DATA 224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,229,9380 
400 DATA 224,224,224,224,274,224,224,224,224,224,229,229,224,224,224,224,224,224,229,224,9380 
410 OATA 224,224,224,224,224,224,224,224,224,224,224,224,224,224.274,224,224,224,224,224,9380 
420 BATA 224, 224, 224, 224, 224, 224, 224, 27®, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 224, 22®, 9380 
430 DATA 224,224,224,274,224,224,224,224,224,224,224,224,224,224,274,224,224,224,224,224,9380 
490 DATA 224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,9380 
430 DATA 224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,9380 
460 DATA 224,224,224,729,224,224.224,224,224,224,224,224,224,224.224,224,224,224,224,224,9580 
470 DATA 224,224,224,229,224,224,224,224,224,229,224,224,224,224,224,224,224,229,224,224,9580 
480 DATA 224,229,224,229,229,229,229,224,224,229,229,224,229,224,229,229,229,224,229,224,9380 
440 DATA 229,224,229,229,224,229,224,224,229,229,229,229,229,229,224,224,224,229,224,229,9380 
1000 DATA 224,229,224,224,224,224,224,224,224,224,224,229,229,279,224,229,224,224,224,224,9580 
1010 BATA 224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,9380 
1020 DATA 224,224,224,224,224,224,224,224,224,224,224,224,224.224,224,224,224,224,224.224,9380 
1030 OATA 224, 224, 224, 274, 224, 724, 224, 274, 27®, 224, 224, 224, 224,224, 224.224.224, 224, 224, 224, 9380 
1090 BATA 224,224,224.224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,224.9380 
1030 OATA 224, 774, 224, 274, 224, 224, 224, 22®, 2^, 22®, 224, 274, 224, 22®, 224, 224, 224, 224, 224, 274, 9380 
1060 DATA 224,224,224,224,224,224,224,224,224,224,224.224,224,224,224,224,224,224,274,224,9580 
1070 DATA 274,224,224,224,224.224,224,224,224,224,224,224,224,224,224,224,224,224,224,224,9380 
1080 DATA 224,224,224,224,224,224,224,224,224,224,279,224,229.224,224,224,224,224,224,224,9380 
1040 DATA 224,224,224,224,224,229,274,224,224,224,229,224,224,224,224,224,224,224,224,229,9380 
1100 DATA 224,224,229,229,224,224,224,224,729,224,229,229,224,224,224,224,224,229,224,229,9580 
1110 DATA 224, 224,224, 224, 224, 229, 224, 229, 224, 229, 224, 229, 224, 224, 229, 224, 224, '224, 224, 279, 9580 
1120 DATA 224.224,224,224,224,224,224,224,224,224,224,224,224.274,224,224,224,224.224.224,9580 
1130 DATA 724,224,224,274,224,224,224,224,224,224,224,224,224,224,224,224,224.224,224,231,9382 
1190 DATA 274,224,224,224,224,224,224,224,224.224.224.224,224,224,224.224,224,224,224.224,9380 
1130 DATA 224,224, 22®, 224,274, 224, 224, 22®, 774, 224, 274.224, 224, 224, 224, 224,224, 22», 224, 229, 9310 
1160 DATA 224, 224, 274, 72®, 224, 274, 724, 224, 224,224, 224, 224, 224, 224, 274, 224, 274.724, 224,224, 9580 
1170 DATA 224,224,224,274,224,224,224,229,224,224,224,224,224,224,224,224,224.224,224,224,9380 
1180 DATA 724,224.224,224,224,224,224,224.224,224,224,224,224,224,224,224,224,224,224,224,9380 
1140 DATA 224,224,229,224,224,224,224,224,224,224,224,224,224,224.224,224,224,224,224,224,9380 
1200 DATA 224,224,229.224,224,224,229,229,224,224,229,224,224,224,224,224,224,224,224,229,9380 
1210 DATA 229,224,229,224,224,224,224,229,229,224,224,224,274,224,229,224,224,229,224,229,9380 
1220 DATA 224,224, 229, 229,229,229,229, 224, 229,229,224,229, 224, 274,229, 224,224,229, 224, 229, 9300 
1230 DATA 224, 224, 229, 224, 224, 224, 224, 224, 224, 224, 224, 224, 229, 229, 274, 279, 224, 274, 224, 224, 9580 
1290 DATA 224,224,224,224,224,224,224,224,224,224,224,224,224.724,229,224,224.224,224,224,9380 
1230 BATA 224, 224, 724, 224, 224, 274, 27®, 224, 22®, 224, 224, 224, 224, 224.22®, 224, 224, 224, 224, 224, 9580 
1260 DATA 224,224,224.224,224,224,224,224.224,224,224,224,224,224,224.224,224,224,224,224,9380 
1270 DATA 224,224,224,224,224,224,224,224,224,224,224,224,224.224,224,224,224,224,224.224,9380 
1290 DATA 224, 224, 224, 224, 724, 274, 224, 724, 224, 224, 224. 22®. 224, 774, 224, 724, 724, 224, 22*. 224, 9380 
1240 BATA 224,274,224,224,274,274,224.224,724,224,224,224,224,224,224,224,224,224,224,224,4380 
1300 DATA 224,224.224,224,224,224,224,224.224.224,224,224,224.224.224,224,224,224,224,224.4380 
1310 DATA 224,224,224,224,224,224,224,229,224,224,229,224,224.229,229,224,224,224,224,224,4580 


■. p_ ... 

1320 DAT# 229.229, 229, 229,229,229, 229, 229, 229, 229, 229, 229, 229, 229, 229, 229, 229, 229, 229, 22?. 4380 
1330 DATA 229.229, 229,229, 229.229.229, 229, 229, 229, 22?, 229, 229.229, 229.229,22?, 229, 22?, 220.4380 
1340 DATA 229, 229, 229, 229, 229, 229, 229, 229, 229, 22?, 229, 229, 22’, 229. 229, 229, 229, 22®, 229. 229, 4380 
1330 DATA 229, 22*. 229, 229, 237, 140,243,39,32,206, 196. 33. 113. IT3.29.21, 27,!!*, 231. 36.2990 
I3M DATA 232, 149, 16J.34, 118, 129,89, 3*, 223, 224, 194, 61, !88, 100, 38. 18. 20?, 44, 232, 100,2477 
IWO DATA 113,118, 164, 64. 12, 71, 8.213, 17,236, 139, 230, 34, Tl, 212, 4, 30, 180, 204.96, 2249 

t DATA 246.11.109,178,22.97,203,198.16.113.83,73,47,204,139,137,148,214,103,21,2408 
DATA 126, 68, 194, 93, 149, 22, 226, 191, 21, 82, 176, 176, 178, 118, 138, 139,132,247, 99, 199, 2776 
1400 DATA 208, 72. 175, 149, 167, 229, 196, 149, 64, 43, 158,247, 116, 88, 46, 142, 133,83, 134, 32, 2631 
MłO DATA 193,102,39,188,24,232,209,52,47,172,211,230,74,193,100,82,3,33,214,124.7364 
1420 DATA 177,137,161,148,121,218,6,145,210,83,82,216,11,188.22,39,97,113,58,74,2330 

■4430 DATA 107, 180, 41, 79, 164, 88, 230, 116, 252, 159, 248, 113, 68, 99, 93, 24, 17, 243, 216, 45, 2604 
1440 DATA 233,143,86,64,91,103,254,83,162,137,188,177,68,73,169,128,110,233,139,165,2814 
14*0 DATA lii, H3, 140, 88, W, 217, 88, 7, 15,147, 190, 7!, 49, 173, 170,210, 142, W, 113, 135,7767 
1460 DATA 173.98,3,48,82,173.122,35.47,102,182,48,210,238,29,53.242,14,204,82,2203 
1470 DATA 62,136,167,169,31,137,140,37,214,215,8,68,119,133,132,78,182,130,200,198.2398 
1480 DATA 74,174,166,37,243,200,240,28,147,103,109,44,200,99,168,143,216,13,234,198,2840 
1490 DATA 111,116,38,67,126,188,210,233,198,236,122,210,233,172,29,41,106,113,232,173,2980 

1300 DATA 100,180,214,34,75,23,79,126,43,64,21,59,161,102,118,249,90,224,13,79,2038 
1510 DATA 37, 220, 192, 160, 63, 80, 1,150, O, 204, 212, 19, 206, 46, 107, 34, 120, 174, 52, 196, 2295 
1520 DATA 18,170,32,94,39,13,19,61,13,139,163,182,148,133,64,178,235,103,233,223,2310 
1530 DATA 79,161,86,12,163,197,178,220,5,128,58,133,182,133,96,134,238,138,122,103,2568 
1540 DATA 39. 140, 193, 18, 23, 27, 37, 70, 130, 61, 166, 190, 10, 106, 21, 206, 167, 20, 35, 78, 1781 
1530 DATA 49,53,201,164,167,49,37,29,217,232,97,91,156,188,136,168,204.241,88,227,2834 
1560 DATA 114,207,253,93,34,13,122,41,168.143,43,247,3,133,137,34,138.200,4,24,2227 

1570 DATA 22, 100, 203, B8, 82, 3, 214, 71, 201, 43, 234, 106, 93, 198, 55, 241, 65, 135, 231, 112, 2301 
1580 DATA 88,193,84,37,23,17,174,163,140,110,47,104,139,111,198,147,161,236,244,240,2728 
1590 DATA 79,186,103,183,2,113,243,107,122,100,129,176,154,161,217,6,126,23,97,246,2377 
1600 DATA 4,173,163,31,190,137,247,11,213,173,247,234669,67,48,24,211,212,60,59,2377 
1610 DATA 71,179,169,231,163,174,246,103,42,100,224,146,236,232,209,11,209,91,254,41,3153 
1620 DATA 213,173,124,111,208,9.227,184,233,234,40,2,234,226,126,100,200,78,234,7,2485 
1630 DATA 219,65,198,79,31,119,46,89,98,254,70,246,109,233,11,61,226,76,165,78,2473 
1640 DATA 44,38,13,183,206.189,148,143,12,117,152,246,164,100,31,220,89,103,163,243,2630 

1630 DATA 34, 83, 141, 173, 9, 178, 47, 44, 22, 141, 41, 169, 39, 45,146, 206, 1«, 173, 109, 11, 1963 
1660 DATA 70.230,113.172,236,107,142,2,143,215.6,180,112,33,221,31,219,178,183,104,2699 
1670 DATA 33, 248, 131, 107, 48, 139, 139, 173, 13, 73, 168,2, 210, 133, 226, 33, 139, 231, 118, 16, 2486 
1680 DATA 130,61,206,114.47,117,119,37,187.180,120.120,13,11,237,50,102,131,208,73,2283 
1690 DATA 129,27,146,147,232,234,141,251,33,21,181.132,112,123,18,146,19,3,161,242,2580 
1700 DATA 143, 122, 189, 216, 220, 232, 76,30, 81, 37, 219, 199, 148, 222, 122, 17, 149, 186^43, 18, 2889 
1710 DATA 199, 213, 238, 201, 9, 3, 216, 183, 233, 60, 162, 163, 169, 13, 119, 239, 61, 7, 1®, 138, 2693 
1720 DATA 22,173,234,67,248,211,2,104,254,207,168,227,114,62,113,139,19,176,8,83,2633 

1730 DATA 73,68,49,84,142,196,169,53,186,251,44,230,40,27,51,151,213,179,222,113,2563 
1740 DATA 116, 1B9, 243, 214, 140, 27, 203, 233, 220, 96, 172, 103, 196, 126, 32, 148, 237, 146, 147, 187, 3217 
1750 DATA 6,233.13,173,37,65,116.232,39,18,218,67,69,9,93,203,14,208,223,30,2130 
1760 DATA 53, 49, 217,103, 167, 179,48, 180, 170, 38, 109, 17, 90, 32,216, 44, 79, 30, 100, 101, 2046 
1770 DATA 230, 178, 183,216, 1,193, 234, 108,233, 223, 208, 136, 73,^4,236, 150, 30, 22,237, 137, 3276 
1780 DATA 10, 36, 27, 10, 205, 147, 33, 101, 204, 22, 180, 54, 42, 118, 123, 210, 106, 20, 63, 246, 1997 
1790 DATA 38,4,132,160,33,104.101,181,244,107,129,213,123,108.209,234,183,221,48,47,2661 
1800 DATA 223,234,68,133,203,230,174.133,26.21,16,160,63,232,26.88,30,104,5,232.2447 

1810 DATA 119,233,139,16,121,31,202,202,180,81,230,129,198,101,83,28,98,743,95,91,2682 
1820 DATA 32,133,161,77,14,68,93,39,84,12,114,147,151,183,139,176,204,202,32,24,2109 
1830 DATA 7, 10, 182, 233, 1B4, 164, 16, 9, 197, 4, 129, 39, 202, 194, 45, 139, 41, 216, 146, 163, 2322 
1840 DATA 74,187,192.76,89.101,1,23,127.29.243,24,83,159,19,94,194,231,24,107,2079 
1850 DATA 91, 29, 106, 39, 13, 54, 109, 81, 240, 73, 146, 9, 130, 250, 202,41, 96, 16, 119,168, 2012 
1860 DATA 127.113,232.84.211.111,131.61,17,77,165.236.240,72.206.46,30,74,39,73,2370 
1870 DATA 80, 132, 189, 86. 183.217, 43, 243, 209, 10, 33, 47, 200, 131, 213, 148, 92, 152, 12, 4, 2424 
1880 DATA 159, 114, 132.52, 204,203,108, 185,149.34, 44, 169, 2. 98, 36,203, 226, 203, 92,211, 2690 
1890 DATA 121,12,148.107,74.96.204,174,232.224,212,163,23,27,70.101.154,227.102,20,2491 


~ 22flH)»TA 105,108, 41^103:^7, "Pfjlfl, 193, 225, 10, 133,38, 211, 21, 188, 232;9S5, 98, 2490 
2220 DATA 202,103,189,70,252.192,176,143,233,134,94,221,91,140,166,60,83,228,141,52,2990 
2230 DATA 31,239,212,207,227,243,134,19,192,113,208,17,232,108,177,132,237,153,23,238,3164 
2240 DATA 233,117,230,123,134,241,190,232,120,97,179,103,234,80,31,52,0,0,0,0,2447 
2230 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2260 DATA 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 
2270 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2280 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2290 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2300 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2310 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2320 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2330 DATA O, O, O, O, O, 0,0, O, 0,0, O, O, O, O, O, O, O, O, O, O, O 
2340 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2350 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2360 8ATA 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 
2370 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2380 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2390 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2400 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2410 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2420 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2430 DATA O, O, O, O, O, O, O, O, O, O, 0,0, O, O, O, O, O, O, O, O, O 
2440 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2430 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2460 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0,0, 0, 0, 0, 0 
2470 DATA O, O, O, 0,0, O, O, O, 0,0, O, O, O, O, O, O, O, O, 0.0, O 
2480 DATA 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0 
2490 DATA O, O, O, O, O, O, O, O, O, O, O, O, 0,0,0, O, O, O, O, O, O 
2300 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2310 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0 
2320 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2330 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2540 DATA 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0 
2530 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2360 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2370 DATA O, O, O, O, O, O, O, O, O, O, 0,0,0, O, O, O, O, O, O, O, O 
2380 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2390 DATA O, O, O, O, O, O, O, O, O, O, O, O, 0,0, 0,0, O, O, O, O, O 
2600 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2610 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2620 DATA 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 
2630 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2640 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2630 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2660 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2670 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2680 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2690 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2700 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0,0 
2710 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2720 DATA O, O, O, O, 0.0, O, O, O, O, 0,0, O, O, O, O, O, O, 0,^,0 
2730 DATA O, O, O, O, O, 0.0, 0.0, O, O, 0,0, O, O, O, O, O, O, O, O 
2740 DATA O, O, O, O, O, 0.0, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
2730 DATA 0.0, O, O, O, O, O, O, O, O, O, O, O, O, O, O, D, O, O, O, O 

Jacek Szaniawski 


1900 DATA 43.200.31,160,104,28,88.73.92,189,211,218.236,174,127,88,48,203.141,142,2602 
1°I0 DATA 103,31,209.80,83,123,119,100,111.131,146,62.184,130.14.212,26,149,220,59,2321 
1920 DATA 224,3. 123, 216, 191,38, 186, 30, 30, 238, 200, 226, 242,213, 143, 13, 243, 139, 159, 18,2921 
1930 DATA 138, 122, 137, 136, 5,134, 187, 136, 174, 48, 161, 23, 241, 33, 19, 70, 209, 146, 240, 223, 2624 
1940 DATA 12,14,68,128,161,137,234,129,114,157,110,68,196,60,199.26,46,0,210,148,2237 
1930 DATA 78, 122, 50, 186, 100, 13, 212, 198, 34, 114, 88, 179, 232, 243, 134, B2, 192, 37, 156, 131, 2623 
1960 DATA 163,122, 30, 190, 223,20, 118, 156, 133.209.42, 230, 139, 143, 127,17, 203, 236, 148, 11, 2704 

1970 DATA 73, 143, 63, 163,0, 73,29, 36,133, 150, 60,83, 233, 63.248, 13, 232.244,33.237,2^9 

1980 DATA 48.208.129, 34.1:9.6.88, 248,2,4, 53,58. 164, 88, 27, 93,31, 43, 23, 233, 1755 

1990 DATA 92, 84,49, 1,104, 44, 144, ?3.153.47,lMi39, 230,82, 242, 104, 6, 85, 218, 202,2231 

2000 DATA 231, 24, 64, 237, 194, 103,98, 170, 161, 101, 88. 146, 74, 228. 181, 233,179, 176, 143. 12.2843 

2010 DATA 77.61. 236, 3, 1*9, Ml. 54.29, 30, 4. II, !?, 146, 21. 178, 247, 67, 198, 97, 110, 2030 

2020 DATA 249,217,230,68,110,197,130,102.201.141,234,206,19,122,99,187.184,203,117,86,3102 

2030 DATA 173, 151.243.246, 76, MO. 105,196,144, 130, 22, 153, 32,116.44, 240, 209, 13.44, 83, 2622 
2040 DATA 13, 130, 2*6, 133, 18®, :'9, 20, 2**, 3*. 28, 161. 223, 233, 187, 168, 162, 242, 181,138,83,3053 
2030 DA f A 188.196, 37. 114, 104.92, 210, 184, li®. 187.258.248, 93. 193.92.231, 6, 47.47.131, 2727 
2060 DA’4 218.51, 80, 24. 17?, 115. 50, 184,43. 60. 30,226,88, 4, 216, 166. 131,93, 175, 107, 2244 
20’0 DATA l’\45,:9e. 109.248.4, 197.44.3. 171,72.209, ',46, 46.53, 132, 128. 117, 144,164.2428 




:.:» e .2!i,7T,i;,ij*,23*,iT4.:ii, 84,110, 3059 




2110 DATA 180.!,3!.:B9.1« 

i.::3.56.ie.202.!si,:: 

;9.^:,io:.!46.::o.i3o,n?.3o,i43.:9,2Jio 


2120 DATA 4,200.60.22.30,17,119. 164. 144, *3, 108. 223, 102, 83, 127, 19,2,233,112,31,1920 
2130 DATA ”, 9.246. ::.|9S.:::. 35. 88. 24e, 30, 163. 126, 174,157, 203.31, 2*3. 178, 81, 128.2639 

2140 DATO 219, 35, 5, 231, 17,42, 29, 59, 230, 178, 216, 109, 49,'l27, 90, 18, 20,140, 30, 146, 2032 
2150 OATA 129,128,119,64,230,106,130,133,42,21,92,134,93,201,247,242,120,80,238,6,2619 
2160 DATA 5,69,224,179,44,242,91,88,242,80,164,166,82,127,91.81.124,63,240,210,2612 
2170 DATA 13, 116, 136, 193,239, 131, 230,39, 41, 93, 193, 169, 228, 86, 16°, 191,133, 127,172, 199, 2904 
2180 OATA 197,79, 46, 226, 113, 127, 219, 229,168, 157,67,224, 132, 93, 130, 186, 123,34, 236, 214, 3004 
2190 DATA 27,87,27,113,112,2,172,133,23,220,233,48,13,137,253,179,73,232,33,216,2419 
2200 DATA 187,149,47,227,73,148,8,24,91,247,211,54,116,7,232,64,196,248,182,137,2668 



Nie martw się kochanie! 

Za życia wyglądałeś jeszcze gorzej. 
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Ust \/sl t i (10) 


KAMELEON 

Danuta KWASIŻUR, Mieczysław SKONIECZNY 


W kolejnym, niejako jubileuszowym odcinku cyklu poświęcone- 
go rozwiązywaniu anegdot matematycznych przy użyciu mikro- 
komputera. prezentujemy prostą grę planszową przeznaczoną dla 
jednego gracza o nazwie „Kameleon" Zasady tej gry są bardzo 
proste, a prezentuje je program w początkowej fazie realizacji na 
ekranie monitora. Kopia tego obrazu ma następującą postać: 



Po zapoznaniu się z tekstem informacyjnym rozpoczyna się 
właściwy etap gry. Widok planszy i początkowego rozstawienia 
krążków jest widoczny na poniższym rysunku: 


K 



L 


Wersja źródłowa programu opracowanego w języku BASIC jest 
następująca 

io • 

20 ' Fkran mfpreacyjny 

30 ' 

40 HOOF li INK 0, l«:INk I.OsINK 2,6,26: INK 3,24:B0RDER I4:PAPER OiCLS 
50»PFN l:PRINT *Na osaiu wierzchołkach gwi azdy osaio- raeiennej i a jej środku 
rozmieszczone s< czarne krążki . Ponad krarkaai sto 

ja litery, które • kierunku obiegu wskazow-ki zegara skladaja poczaaszy od aier 
z- cholka gornego sloao KAHFLE0N. Oprócz* 

40 PRINT *t*go jest 8 luźnych ruchomych krazkoa, na których aypisane sa te saae 
litery: K,A,N,F,l,E,0,N. krążki ruchoee ustaaio-ne 


sa a przypadkoaej kolejności na osaiuzeanetrznych kraikach gaiazdy. Krążek sr 
odkoay pozostaje nie zajęty. 6ra pole-*; 

70 PfilNT *ga na taki* kolejny* przesuaaniu krazkoaruchoaych, aby aypisane na nic 

h litery znalazły sie obok takich saeych liter za 

pisanych zeanatrz gaiazdy, a aiec utaorzyly ayraz KAMELEON. 

80 PEN 3: PRINT * STERONANIE RUCHEH KRAZKOHi ' 

90 PEN 1 : PRINT ‘Kolejne naciskanie SPACJI poaoduje oigo-tanle liter na kolejnych 
krezkach. Naciśniecie klaaisza ENTER spoaoduje 

przesuniecie krezka z eigoczaca litera na pusty krezek /jeżeli takie przesu 
nie-cie jest eozliae/.* 

100 PEN 3:PRINT 'NACISNIJ D0N01NY KLANISZ* 

110 CLEAR INPUT 
120 alMNKEYI 

130 IF a* 1 ** THEN 60T0 120 
140 * 

150 ' Segaent sterujący 

140 ’ 

170 60SUB 920 
180 60SUB 440 
190 PAPER 1:PEN 0 
200 FOR k«2 TO 9 

210 L0CATE wsp (k, IM, wsplk, 21+1 1 PRINT LITSItabl (ki) 

220 NETT k 
230 PAPER lll'l 
240 K»1 

250 IF TABLIKM THEN k«M:6OT0 250 

240 PEN 2:10CATE asplk, IM, asplk, 2M:PRINT litlltabl Iki) 

270 CLEAR INPUT 

280 elMNKEYI 

290 IF tU” THEN 60T0 280 

300 IF INKEY (6i =0 THEN 60T0 340 

310 IF a»=* * THEN 60T0 330 

320 S0UND 1 , 450: 60T0 280 

330 PEN 0:10CATE asplk, IM, asplk, 2M:PRINT litlltabl (ki) 

340 IF k*9 THEN GOTO 240 

350 k*M:G0T0 250 

340 FOR v*l TO 4 

370 IF poa(k,vM THEN GOTO 400 

380 NETT v 

390 S0UND l,5O0iL0CATE fl,2,2iPRINT fl,*PRZESUNIECIE*:PRINT fi,* NIEH0ZLINE a iF0R 
T»1 TO 1000: NETT TiCLS £li60T0 230 
400 PEN OiLOCATE asp(L,IM,wsp<L,2MiPRINT litlltabl (k)) 

410 10CATE asp (K, 1 1 *1 ,asp IK, 21 *1 : PRINT * *:TA8t(U*TABL(K>:TABLIKM:L*K 

420 G0SU8 770 

430 ON M.M GOTO 180,240 


W segmencie głównym programu znajdują się wywołania pod- 
programów. których rola i wersje źródłowe są następujące: 

1 . Definiowanie symboli własnych (kształt krążka) oraz sparame- 
tryzowane wpisywanie symbolu na ekran (wg wartości para- 
metrów x,y będących współrzędnymi znakowymi). 

440 ' 

450 ’ Podprograa definicji syaboli własnych 

440 ’ 

470 SYMBOL AFTFR 125 

480 SYMBOL 125,0,0,0,0,3,7,15,15 

4°0 SYHROl 124,0,0,40,255,253,255,255,255 

500 SYHROL 127,31,31,43,43,43,43,31,31 

510 SYHBOl 128,248,248,252,252,252,252,248,248 

570 SYHBOL 179,15,15,7,3 

530 SYHBOl 130,255,255,253,255,255,40 

540 SYHBOL 131,240,240,224,192 

550 SYHBOL 132,0,0,0,0,192,224,240,240 

540 RETURN 

570 10CATE »,yiPRINT CHRIH25);CHfił<I24);CHRIIl32> 

580 L0CATE i,yM:PRINT CHRSII27I ;CHR»(143I;CHRI(128> 

590 10CATE «,y«2:PRINT CHRK129);CHRK130);CHRS(131) 

400 RETURN 
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2. Losowe generowanie początkowego ustawienia liter na plan- 
szy. 

610 ’ 

620 ’ Podprogrj* losowgo ust muruj liter na plantzy 

630 • 

6*0 lo<*2*!MT(RMDt8) 

650 tjbim<lttall(2)*!os 
660 FOR »«3 TO 9 
670 Im*2*INT(RNDI8) 

680 FOR i*2 TO M 
V 490 IF tabl (i )*los THFN GOTO 670 
’ 700 NEIT i 
710 tabl (bl*loi 
720 NETT k 
730 RETURN 

3 Badanie poprawnego rozwiązania zadania — zakończenie gry i 
ewentualne powtórzenie gry 
740 ‘ 

750 ’ Podprogra* badania poprawotci zadania 

,j 760 ' 

770 81*0 

780 FOR J»l TO 9 

790 IF TA8l(J)*J THEN GOTO 810 

800 BL*l 

810 NETT J 

820 IF 81*1 THEN RETURN 

830 10CATE ri,2|2iPRINT £1, 'BRANO 1 *)PRINT £1,* UDAŁO SIE! 1 

840 FOR J«0 TO 26iB0RDER J:F0R T*1 TO IOOiNEIT TlNEIT J 

850 CIS flrPRINT fliPRINT £1, 'SPRÓBUJESZ' :PR1NT Cl, 'JESZCZE RAZ’ 'jINPUT £1,'(T/ 

N) \T* 

B60 IF T*«'T' OR T**'t' THEN LOCATE 1J,13 iPRINT ' ':CIS £1: RETURN 
870 IF T»*'n' OR TI«'N' THEN STOP 
ARA 60T0 850 


4 Rysowanie planszy gry 


890 ’ 

900 ’ Podprogram rywnania planszy 

910 ’ 

920 HODE 1 

930 DIN »sp I9,Zh DIN po*(9,4) 

940 60SUB 470 

950 FOR i*l TO 9: FOR j*l TO *:READ pomli, jliNEIT JiNEIT i 

960 DATA 2,4,6, 8, 1,5, 7, 0,6, 8, 0,0, 1,7, 9, 0,8, 2, 0,0, 1,3, 9, 0,2, 4,0, 0,1, 3, 5,0, 6,4,0, 0 

970 FOR 1*1 TO 9: READ «sp(i,l),«pti,2l:NEIT i 

980 DATA 12,12,12,2,20,5,22,12,20,19,12,22,4,19,2,12,4,5 

990 DIN LIT»I9)iF 0R i*l TO 9: READ LITKiliNEIT I 

1000 DATA ' ', 'K', 'A*. 'H', 'E', •L , , , E',"0','N“ 

1010 PEN 1:6RAPHICS PEN 1 

1020 FOR 1*1 TO 9iI*NSP(I,t):Y«NSP(I,2):60SU8 570iNETT I 

1030 FOR 1*2 TO 4 STEP 2 

1040 FOR r*Słll-2> TO 7MI-2I 

1050 PLOT NSPII, 1)116*9, (24-NSPII, 21)116*7 

1060 DRAŃ NSPir, 1)116*9, (24-NSP(IC,2)lll6«7 

1070 NETT K 

1080 NEIT I 

1090 FOR K*3 TO 5 

1100 PLOT NSPI8, 1)116*9, (24-NSPI8, 211116*7 
1110 DRAŃ NSPIK, 11116*9, (24-NSPiK, 21)116*7 
1120 NETT K 

1130 MINDON f 1 , 27 ( 40, 1 1 , 15s PAPER £I,1)CLS CltPEN £1,3 

1140 FOR K«3 TO 9 STEP 6 

1150 PLOT NSPI6, 1)116*9, (24-NSPI6, 21)116*7 

1160 URAN NSPIK, 1)116*9, (24-NSPIK, 2) )tl6*7 

1170 MIT K 

1180 PEN 3: LOCATE 13,liPRINT'K':L0CATE 23,6:PR1NT'A':L0CATE 25,13iPRINT'H':L0CAT 
E 23, 20: PR1NT’E*: LOCATE 13,25:PRINT'L'iL0CATE 3,20łP 
RINT'E':LOCATE 1,I3:PRINT'0':L0CATE 3,6:PRINT'I4' 

1190 RETURN 


Rady i porady 
programisty < 2 > 


Pisząc program rzadko zwracam uwagę na jego elegancję i 
rozwiązania konstrukcyjne, dążąc najprościej do osiągnięcia 
zamierzonego celu. Pamiętać jednak należy również o tym, że 
dobry program, to nie tylko taki program, który się „nie za- 
cina”, ale również jest czytelnie napisany. Przez czytelność i 
elegancję programu rozumiemy ograniczenie do minimum 
wierszy, zawierających kolejno po sobie występujące ins- 
trukcje, instrukcje ”go to”, czyli unikanie zbędnych skoków. 
O tym i o wielu innych problemach wpływających na przej- 
rzystość programów wielokrotnie pisano na łamach „IKS-a”. 

Jednym ze sposobów uniknięcia tych błędów jest posiadanie 
biblioteki krótkich, sprawdzonych podprogramów najczęś- 
ciej używanych w pracy programisty-amatora. Takim przy- 
kładem jest podprogram umożliwiający sterowanie w pro- 
gramie w zależności od wybranego klawisza. 

10 ’*****STEROWANIE PRZY UŻYCIU KLAWIATURY***** 
20 RESTORE 80 
30 FOR r%=l TO n 
40 READ s% 

50 IF INKEY (s%)=0 THEN 90 
60 NEXT 
70 GOTO 20 
80 DATA KI, K2, .... Kn 
90 ON r% GOSUB El, E2, ..., En 

W podprogramie rzeczywiste wartości zastąpiono parametra- 
mi, i tak: 

n — liczba klawiszy użytych do sterowania; 

KI, ..., Kn — numery klawiszy użytych do sterowania 
(numery umieszczone są na obudowie stacji 
dysków); 


Z. ŁUKASZEWICZ 


El, ..., En — numery linii, w której zaczynają się podpro- 
gramy, które należy wykonać po wciśnięciu 
klawisza o numerze Kn. 

Aby ułatwić zrozumienie przedstawiono poniżej przykład, 
w którym do sterowania użyto czterech klawiszy o numerach 
64, 65, 57, 56 czyli „1”, „2”, „3”, i „4”. 

Zastosowanie tego podprogramu w twoich programach na 
pewno poprawi ich przejrzystość i czytelność. 

Spróbuj, sprawdź! 


10 MODĘ 2 

20 WINDOWĄ, 30, 50, 12, 12 
30 ’**** PRZYKŁAD *** 

40 CLS£1 
50 RESTORE 110 
60 FOR r%=l TO 4 
70 READ s% 

80 IF INKEY (s%)=0 THEN 120 
90 NEXT 
100 GOTO 50 
110 DATA 64,65,57,56 
120 ON r% GOSUB 150,160,170,180 
130 CALL &BB06 
140 GOTO 40 

150 CLEAR INPUT: PRINT^l,” 
1”:RETURN 

160 CLEAR INPUT: PRINT^l,” 
2”:RETURN 

170 CLEAR INPUT: PRINT£1,” 
3”:RETURN 

180 CLEAR INPUT: PRINT^l,” 
4”:RETURN 


WYBRANO KLAWISZ 
WYBRANO KLAWISZ 
WYBRANO KLAWISZ 
WYBRANO KLAWISZ 


13 



■ II 


F I 


W SZKOLE 


Lektura poprzednich dwóch „odcinków” omawiających tematy naszej 
propozycji podstaw informatyki upoważnia już nas zapewne do przyjrzenia 
się niektórym problemom programowania komputerów. Komputerów? 
Tak. Komputerów, nie ma bowiem większego znaczenia, jak wielki jest to 
sprzęt, mikro, mini, stołowy czy też super lub hiper, ogólne zasady progra- 
mowania są niezmienne. 


Aby choć w części zasady te zrozumieć, ko- 
niecznie trzeba wiedzieć co to jest mikroproce- 
sor, pamięć i oczywiście bajt! Wróćmy do na- 
szego przykładu dodawania dwóch liczb. Za- 
łóżmy, że są one zapisane w pamięci (oczywiście 
RAM) komputera. Pierwsza liczba np.: 123 w 
komórce nr 100, druga natomiast np.: 056 w 
komórce nr 101. Pozostałe komórki pamięci są 
„puste" (w wypadku Spectrum, pozostaną 
wolne następujące komórki: od 0 do 99 i od 102 
do 48 000). Usiłując dodać, za pomocą kom- 
putera, owe liczby (123+056) maszyna powin- 
na wykonać określone czynności: 

1. Pobrać (odczytać) zawartość setnej komórki 
pamięci i przekazać (tę zawartość = 123) do 
proeesora. 

2. Pobrać drugi argument z komórki sto jeden 
(056) i przekazać do procesora. 

3. Wysterować procesor tak by dodał wcześniej 
wprowadzone argumenty (123+056=179). 

4. Przekazać z procesora wynik do komórki np. : 

102 . 

W efekcie wykonania podanych operacji 
wynik dodawania (179) będzie umieszczony w 
komórce nr 102. Operacje te (czynności), w 


podanym przykładzie, tworzą pewien „prze- 
pis” — przykład prostego algorytmu procesu 
dodania dwóch liczb przez komputer. Innymi 
słowy jest to opis kolejnych czynności, któ- 
rych wykonanie umożliwia nam osiągnięcie 
zamierzonego celu. Zatem algorytm ułatwia 


Nareszcie możemy przystąpić do próby na- 
pisania programu. Polega to na tłumaczeniu 
treści zawartych w algorytmie na taką postać, 
która jest „zrozumiana” przez maszynę. Po- 
dobnie jak tłumaczenie, osobie posługującej 
się tylko językiem angielskim, poleceń wypo- 
wiadanych w języku polskim. W praktyce nic 
jest to takie łatwe, procesor bowiem wykonuje 
tylko bardzo proste operacje — podobne do 
wykorzystanych w podanym wcześniej przy- 
kładzie. Mikroprocesor jest jak małe dziecko 
— należy mówić do niego, wyraźnie (bez błę- 


Programowanie 

(Materiały do Podstaw Informatyki cz. 3) 


poprawne, jednoznaczne i czytelne sprecyzo- 
wanie czynności, tworzących pracę powierzo- 
ną maszynie. Czyli przed przystąpieniem do 
pisania programu celowe jest zbudowanie al- 
gorytmu. Zadanie to jest nieco ułatwione 
przez stosowanie umownych symboli grafi- 
cznych. 



z — treść opisująca czynność wykonywaną na początku lub na końcu algorytmu 
y — czynności związane z przetwarzaniem informacji 

z — sprawdzenie warunku i odpowiednie skierowanie do wykonywania kolejnych czynności 
Rys. 1 Niektóre symbole graficzne stosowane w algorytmach 


dów), bardzo prostym językiem — najlepiej 
pojedynczymi słowami: idź, dodaj, skocz, 
przesuń. Oczywiście owe polecenia mają swo- 
je kody — „liczbowe nazwy” — na przykład 
operację dodawania wykona procesor na „po- 
lecenie” (rozkaz) 10000010. Zatem, aby dodać 
dwie liczby musimy „tylko” przekazać do 
procesora z dziesięć odpowiednich kodów 
operacji i „już” mamy wynik. Trzydzieści, 
dwadzieścia lat temu był to zresztą jedyny 
sposób programowania komputerów. Dzisiaj 
komputery są bardziej „życzliwe” („doros- 
ły”), możemy bowiem opisywać nasz algo- 
rytm (pisać program) niemal w języku natu- 
ralnym, na przykład: PRINT A-ł-B. Ten pro- 
sty zapis spowoduje dodanie przez komputer 
zawartości komórki A do komórki B i wy- 
świetlenie wyniku na ekranie. Jeśli wcześniej 
do A wpisaliśmy 123 (LET A=123), a do B 
wprowadzono liczbę 056 (LET B=56), na 
ekranie ukaże się wynik: 179. 

Tak wielkie zbliżenie języka programowa- 
nia do tego jakim posługują się ludzie, możli- 
we stało się dzięki specjalnym programom 
tłumaczącym. Należy bowiem pamiętać, że 
mikroprocesory nadal „rozumieją ' kody tylko 
bardzo prostych operacji. Zatem wspomniany 
„tłumacz” zamienia naszą jedną instrukcję 
np.: PRINT A+B na kilkadziesiąt kodów 
„rozumianych” przez procesor. 

Innymi słowy mamy dwa rodzaje, a po- 
prawniej — dwa poziomy języków. Język 
składający się z kodów (liczb) wymuszających 
proste operacje — jest to tak zwany język 
wewnętrzny (maszynowy). Bardzo szybki, 
elastyczny, ale kłopotliwy w użyciu. Mówi się 
o nim, że jest to język niskiego poziomu. Inny 
dla każdego typu procesora. Zważywszy jed- 
nak na niezmiennie dużą użyteczność języka 
wewnętrznego, a jednocześnie na kłopoty wy- 
nikające z konieczności stosowania kodów 
operacji w postaci liczb — powstał assemb- 
ler. W języku tym posługujemy się literowy- 
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mi, bardziej czytelnymi niż liczby, kodami 
jOpe racji (także adresów). Na przykład zamiast 
kodu 10000100, piszemy ADD (ang. dodaj), 
zamiast kodu 010000100, piszemy MOV (ang. 
MOVE — przesuń). W przykładach tych, ma- 
jąc na uwadze ich czytelność, pominięto kwe- 
stię adresacji, zainteresowanym polecam np.: 
„Mikrokomputery”, A. J. Dirksen, WKiŁ, 
Warszawa 1985. Kończąc tę krótką prezenta- 
cję assemblera należy pamiętać, że czas pisa- 
nia programu w tym języku jest średnio osiem 
razy dłuższy od programowania w językach 
wysokiego poziomu. Jednak należy mieć na 
uwadze to, że zysk ten powstaje kosztem zna- 
cznego zmniejszenia szybkości działania pro- 
gramów. 

Różne zastosowania komputerów wymusiły 
tworzenie odpowiednich języków wysokiego 
poziomu. Na przykład do oprogramowania 
obliczeń matematycznych stosuje się język 
FORTRAN (także w superkomputerach), do 
przetwarzania tekstów LISP, do budowy 
oprogramowania systemowego — język C, 

itP- 

Warto w tym miejscu trochę więcej miejsca 
poświęcić wspomnianym „tłumaczom” języ- 
ków wysokopoziomowych na język wewnętrz- 
ny komputera. Wykorzystuje się do tego ce- 
lu, kompilatory lub interpretery. Kompi- 
talor jest to (w znacznym uproszczeniu) pro- 
gram komputerowy, który zamienia instrukcje 
języka wysokopoziomowego na język wew- 
nętrzny. Wprowadzamy zatem do komputera 
nasz program napisany np. w Basicu, tam (w 
pamięci komputera) czeka na niego kompila- 
tor. Następnie rozpoczyna się proces kompi- 
lacji po jej ukończeniu, w pamięci komputera 
pozostaje nasz program, ale już zupełnie w 
innej postaci — jako program napisany w ję- 
zyku wewnętrznym (zrozumiałym dla proce- 
sora). W takiej właśnie postaci jest on dalej 
wykonywany. 

Natomiast interpretery, to także programy 
tłumaczące, ale „na żywo". Oznacza to, że za 
każdym razem, gdy uruchamiamy program 
napisany np.: w Basicu, jest on (w trakcie rea- 
lizacji) tłumaczony (przez interpreter) ins- 
trukcja po instrukcji na język wewnętrzny i 
dopiero wykonywany przez komputer. Zatem 
wykonanie takiego programu jest znacznie 
dłuższe (wolniejsze), bowiem do okresu wy- 
konania każdej instrukcji programu zawsze 
dodaje się czas jej tłumaczenia. 

W większości domowych Komputerów, 
właśnie w pamięci ROM, najczęściej zapisane 
mamy interpretery Basica, (były także, nie- 
udane ze względu na brak zainteresowania 
próby z Pascalem, Logo i innymi programa- 
mi. 

Zważywszy na informacyjny zakres naszej 
nauki podstaw informatyki należy zwrócić 
uwagę na ryzyko, jakie niosła by obecnie sobą 
próba zbyt dokładnego poznania jakiegokol- 
wiek języka programowania. Dlatego też, 
zważywszy na konieczność równoległego 
uczestniczenia PT Czytelników w zajęciach 
praktycznych, proponuję analizę funkcji tyl- 
ko kilku instrukcji języka BASIC: PRINT, 
INPUT, DIM, GO TO, FOR, NEXT. 
Wcześniej jednak koniecznie powinniśmy po- 
znać klawiaturę naszego komputera (klawisze 
funkcyjne, sposób pisania komend systemo- 
wych i instrukcji, itp.). Niestety pamiętać tak- 


że trzeba, iż istnieją różne „dialekty” języka 
Basic. Oznacza to, że nie wszystkie nasze 
przykłady będą bezpośrednio dotyczyły róż- 
nych komputerów, dotyczą one bowiem, na- 
dal najpopularniejszego u nas mikrokompute- 
ra Spectrum. W szczególności dotyczy to ins- 
trukcji DIM, która jest odmiennie interpre- 
towana w Spectrum i innych komputerach 
np.: w Amstradzie. Proponuję w tej sytuacji 
przestudiować dokładniej niektóre fragmenty 
dokumentacji dostępnego komputera. 

Wiemy zatem, że komputer dysponuje pa- 
mięcią, mikroprocesorem, szeregiem innych 
ciekawych elementów (mowa o tym będzie 
innym razem) — w sumie — zdolnością wy- 
konywania (bardzo szybko) instrukcji w róż- 
nych językach programowania. 

Przystępując do analizy niektórych zagad- 
nień związanych z programowaniem kompu- 
terów należy przyjąć pewne założenie doty- 
czące interpretacji słowa „komórka". Wcześ- 
niej bowiem, dla ułatwienia, termin ten był 
jednoznaczny z bajtem. Jednak w językach 
wysokopoziomowych komórka staje się już 
wyróżnionym obszarem pamięci, składającym 
się z wielu bajtów. Istotnym ułatwieniem jest 
sposób identyfikacji owych komórek — mają 
one swoje (nadawane przez nas!) nazwy. Na 
przykład: IKS, nowa, PI 3, itp. Chcąc zatem 
cokolwiek zapisać do komórki (lub odczytać), 
posługujemy się jej nazwą, a nie numerem. 
Znakomicie ułatwia to pisanie programów. 
Szczególnie ten sposób adresowania miejsca 
w pamięci (jedna nazwa dla wielu bajtów) 
przydatny jest gdy chcemy posługiwać się 
wieloma danymi tego samego typu. Na przy- 
kład rejestrując w pamięci skróty informaty- 
czne (zob. „IKS" nr 5/1988) budujemy tak 
zwaną tablicę o wielkości umożliwiającej za- 
pamiętanie wielu skrótów. Np.: A$(a,b). Znak 
$ oznacza, że w tablicy o nazwie A zapisywane 
będą teksty, a — ile będzie skrótów, b — ile 
przewidujemy znaków dla każdego skrótu. 
Ten sposób gospodarki pamięcią okaże się 
bardzo przydatny. Aby można było korzystać z 
takiej tablicy należy wcześniej wykonać ins- 
trukcję DIM. Jej działanie można porównać z 
pracą mającą na celu dzielenie naszej działki 
na grządki: tu cebula, tam marchew, itp. 
Działka — to cała pamięć, grządki to jej części 
przydzielone różnym informacjom. DIM 
„pilnuje” porządku, np. by nie zrobić zbyt 
wielu grządek, bo po prostu działka okaże się 
zbyt mała. Stosując zatem DIM, należy podać 
ile danych chcemy wprowadzić — np. 200 
skrótów i jak wielki jest każdy skrót (ile zaj- 
muje znaków), np. dziesięć. Zapisujemy to 
następująco: DIM A$(200, 10). 

Oznacza to, że w komputerze zostanie zare- 
zerwowany obszar — nasza tablica A o wiel- 
kości 2000 bajtów z przeznaczeniem na 
dwieście skrótów, każdy po 10 znaków. Lub 
inaczej — w RAM zostanie zarezerwowane 
200 komórek, każda po 10 znaków. Czyli ko- 
mórki: 

A$ (1, 10) —• komórka nr 1 
A$ (2, 10) — komórka nr 2 
A$ (3, 10) — komórka nr 3 


AS (199, 10) 


AS (200, 10) — komórka nr 200. 

Wróćmy teraz do naszego głównego tematu 
— programowanie. Na dobry początek 
wprowadzamy do pamięci komputera in- 
strukcję: 

INPUT „ALA”, a 

Po jej uruchomieniu (klawisz RETURN 
lub ENTER), na ekranie ukaże się słowo: 
ALA?, ze znakiem zapytania. Jest to efekt 
„bezmyślnego” odtworzenia przez maszynę 
tekstu w cudzysłowie (ALA) i komputer czeka 
na to byśmy napisali jakąś liczbę. Po napisa- 
niu tej liczby, np. 18, zostanie ona zapamięta- 
na w pamięci RAM. W którym miejscu 
(przecież pamięć jest bardzo duża)? W ko- 
mórce o nazwie a. Jest to możliwe do realizacji 
w tak prosty sposób dzięki interpreterowi Ba- 
sica. Szybko nadaje on, wymyślone przez nas 
nazwy kolejnym komórkom pamięci RAM. W 
naszym Wypadku jedna z komórek będzie 
miała nazwę „a”. 

Gdy napiszemy: INPUT „ALA”, nic 
nazwa naszej komórki brzmi „nic”. Z do- 
świadczenia wiadomo, iż zrozumienie relacji 
nazwy komórki i jej zawartości jest dosyć kło- 
potliwe. Dlatego omówienie tego tematu zos- 
tało powtórzone. Warto zresztą wrócić do tego 
tematu, jeśli nie pamiętamy w tej chwili zawar- 
tości komórki „a”? 

Wobec powyższego, instrukcja INPUT 
może wyświetlić dowolny tekst „w uszach” (w 
cudzysłowie) oraz, co najważniejsze, wprowa- 
dzić do pamięci pod określony adres dowolną: 
liczbę. Czy tylko liczbę? Mogą być także lite- 
ry, ale wówczas, jak już było wcześniej — 
mówione — nazwę komórki musi kończyć 
znak $. 

Na przykład: INPUT „Podaj nazwę mia- 
sta”, m$ 

Po uruchomieniu tej instrukcji na ekranie 
ukaże się: 

Podaj nazwę miasta? 
w odpowiedzi piszemy: 

Ciechocinek 

zatem w komórce m$ będzie zapisana nazwa 
naszego pięknego uzdrowiska. 

Podsumowując naszą wiedzę o instrukcji 
INPUT, należy podkreślić, iż komputer wy- 
konując ją wypisuje dowolny tekst „w uszach” 
(najlepiej, gdy dotyczy on treści oczekiwanej 
przez komputer informacji) i czeka na przeka- 
zanie mu (przez nas) danych. 

W ten sposób, niestety dosyć złożony, mo- 
żemy stwierdzić, iż wiemy jak wprowadzić do 
komputera dowolną liczbę lub tekst. Mało te- 
go — wiemy także, gdzie wprowadzone przez 
nas informacje są zapisane, np. w komórce: a, 
nic, m. 

Wróćmy do przykładów. Każda instrukcja 
budowanego przez nas programu musi mieć 
swój numer (żeby interpreter Basica się nie 
pogubił, w jakiej kolejności ma wykonywać 
wprowadzane przez nas instrukcje). W prak- 
tyce instrukcje numeruje się od 10 z odstępem 
też 10. Jest to uzasadnione potrzebami, które 
szybko podczas pracy z komputerem okażą się 
istotne. 

Gdy wprowadzimy do komputera instruk- 
cje: 

10 INPUT „Podaj swoje nazwisko”, nS ^ 

15 


o 


INFORMATYK] 


20 INPUT „Podaj swoje imię”, i$ 
po ich uruchomieniu i udzieleniu odpowiedzi 
(Abacki Tadeusz) w RAM zapisane zostanie 
nazwisko i imię. I co dalej? Po co to wszystko? 


W rezultacie w komórce o adresie ACK — 
zapisana zostanie interpretacja tego skrótu, 
pod adresem ACU, ADA i innych podobnie. 
Zatem pisząc: 


Trzeba jednak bardzo szybko zaznaczyć, ie 
program ten jest fatalny — INPUT powtó- 
rzone 249 razy? Stwierdzenie to sugeruje, że 
istnieją inne sposoby konstrukcji programów. 


Programowanie 


(Materiały do Podstaw Informatyki cz. 3) 


Przejdźmy zatem do wykorzystania tak 
pracowicie wprowadzonych informacji. Shiży 
temu, w sposób bardzo czytelny, instrukcja 
PRINT. Działa ona akurat odwrotnie od 
„INPUTa”. Oznacza to, że gdy wykonamy 
instrukcję: 

PRINT „Twoje nazwisko brzmi ”, n 
na ekranie ukaże się tekst: 

Twoje nazwisko brzmi: Abacki 

Czyli PRINT wypisuje „bezmyślnie” tekst 
„w uszach” oraz to co wcześniej wprowadzi- 
liśmy do komórki n. 

Realizacja instrukcji: PRINT „Mieszkam 
w:”, i będzie następująca: 

Mieszkam w: Tadeusz 
Bez sensu! Właśnie przykład ten wskazuje, 
że tekst w uszach musi mieć sens związany z 
treścią wypisywanej komórki. Zatem popraw- 
nie powinno być: 

PRINT „Mieszkam w:”, m 
Na ekranie ukaże się: 

Mieszkam w: Ciechocinek 
Prawie dobrze. 

Uporaliśmy się zatem z tekstem wyświetla- 
nym na ekranie (skąd się on bierze? I po co?) 
oraz danymi, które wprowadzamy, by móc je 
w dowolnej chwili odczytać. Można powie- 
dzieć, że jest to bardzo odległe od praktyki. 
Czyżby? 

Wyobraźmy sobie, że „Inputami" wpro- 
wadziliśmy do pamięci komputera oryginalną 
interpretację wszystkich skrótów informaty- 
cznych, np.: 

10 INPUT ACKS (pomijamy tekst w uszach) 
20 INPUT ACUS 
30 INPUT ADAŚ 
40 INPUT ADLCS 


249 INPUT WPRS 

Po uruchomieniu naszego programu, ko- 
rzystając z »IKS-a” nr 5 wpisujemy kolejno: 
Affirmative Acknowledgment (AA) 
Automatic Calling Unit (ACU) 

AU Points Addressabie (ADA) 


PRINT ACU Wróćmy do algorytmu. Algorytm naszego 

na ekranie ukaże się nam pełna interpretacja dotychczasowego programu wygląda następu- 
tego skrótu. jąco: 



lip. , ltp. , ltp. 

Rys. 2 


itd. 




Wygląda to okropnie. Na szczęście można znacznie prościej, czytelniej: 



Rys. 3 


dzy instrukcjami FOR i NEXT dla wypad- 
ków gdy n= 1 , n --2 , 0 "3 aż do n~20O — czyli 
200 razy. Komputer wykonując instrukcję 
zawartą w linii nr 20 ustala wartość n, począt- 
kowo wynosi ona jeden, i „idzie” dalej do linii 
30. Jej wykonanie powoduje wyświetlenie na 
ekranie monitora tekstu: 

Podaj kolejny skrót (minimum 4 znaki/ i je- 
go interpretację: w odpowiedzi piszemy np.: 
ACU — Automatic Calling Unit, 
tekst ten zostanie zapamiętany w komórce S$ 
(1, 100). Należy zwrócić uwagę, że skrót ten 
musi mieć co najmniej cztery znaki. Jeśli jest 
krótszy, należy uzupełnić go odstępami (o tak 
zwane „spacje”). Potrzebę tę uzasadnia kons- 
trukcja dalszego ciągu naszego programu. 
Instrukcja NEXT n z linii nr 40 dodaje je- 
dynkę do n i „na warsztat" dostaje się komór- 
ka S$ (2, 100), ponadto sprawdzany jest wa- 
runek czy n nic jest większe od 200, jeśli tak, 
to koniec programu, jeśli nie — program au- 
tomatycznie wraca (pętla!) do linii 20 i proces 
wprowadzania danych powtarza się, ale już 
dotyczy to komórki S$ (2, 100). 

Proszę zwrócić uwagę, że pięcioma instruk- 
cjami zastąpiliśmy 249! Efekt pracy obu pro- 
gramów jest ten sam (niemal). Wskazuje to na 
rangę problemu poprawnego pisania progra- 
mu. Programy wykonujące tę samą pracę mo- 
gą być napisane na dziesiątki sposobów, le- 
piej, gorzej. Wskazuje to na rangę problemu 
poprawnego pisania programu — kwalifikacii 
programisty. 

Analizując rozwiązywanie naszego proble- 
mu — dokładnie widać, że dane są sprawnie 
wprowadzane do komputera. Umknęła nam 
jednak kwestia zasadnicza — po co to wpro- 
wadzanie? Aby móc szybki wyszukiwać 
wprowadzone w ten sposób informacje. W 
związku z tym nasz pięciolimowy program 
powinniśmy uzupełnić o fragment (modół. 


A jak to będzie wyglądało w postaci pro gramu? 


10 DIM SSC200.100D 
20 FOR n = 1 to 200 

30 INPUT "Podaj kolejny skrót minimum 4 znaki" i Jego interpretacj 
saCn.l to 2003 
40 NEXT n 
SO STOP 


Prawda, że prościej. W tym miejscu należy 
przedstawić kilka słów wyjaśnienia o znacze- 
niu kolejnych linii naszego nowego programu. 
Linia 10 DIM SS (200, 100) to wspomniana 
wcześniej rezerwacja miejsca w pamięci dla 


wprowadzanych przez nas informacji — 200 
skrótów (każdy może zajmować do 100 zna- 
ków). Kolejne linie naszego programu tworzą 
tak zwaną pętlę. Jej wykonanie polega na wie- 
lokrotnej realizacji czynności zapisanych mię- 


część), którego wykonanie przez komputer 
powoduje, iż maszyna zapyta nas — użyt- 
kowników, jaki skrót chcemy rozszyfrować. 
Modół ten powinien także oczywiście wyszu- 
kiwać w pamięci owo rozszyfrowanie — pełną 


INFORMATYKA W SZKOLE 


interpretację podanego przez nas skrótu. Za- Podaj skrót, którego interpretację poszuku- 
tem nasz program, wraz z uzupełnieniem bę- jesz: i czeka na nasze pytanie. Podajemy je pi- 
dzie wyglądał następująco: sząc skrót, np.: ACU. Zostaje on wpisany do 

10 DIM SSC 200 , 1 002) 

20 FOR n = 1 to 200 

30 INPUT "Podaj kolejny skrót minimum 4 znaki 
" i Jego interpretacje:"; SSCn.l to 2003 
40 NEXT n 
50 STOP 

110 INPUT "Podaj skrót, ktorego interpretacje 
poszukujesz"; aS 120 FOR n = 1 to 200 
130 IF a* = SSCn.l to 43 THEN <30 TO 150 
140 NEXT n 

150 PRINT SSCn.l to 1003 
160 GO TO 110 

Gdy uruchomimy naszą nową część pro- komórki a$. Znając działanie instrukcji / linii 
gramu (należy napisać GOTO 1 10) instrukcja 120 i 140, przyjrzyjmy się nowej: 
z linii 1 10 wypisze na ekranie tekst: IF a$ = S$(n, 1 to 4) THEN GO TO 150 


IF to po prostu pytanie „czy? (jeśli?)" za- 
wartość komórki aS (a tam jest nasze pytanie: 
skrót ACU) jest identyczna z zawartością 
pierwszych czterech znaków komórki S$ (n.'1 
to 4) — zapis ten oznacza, że przedmiotem 
naszego zainteresowania jest komórka nr n, a 
konkretnie znaki od 1 do 4 (to w jęz. ang. 
oznacza „do”). Zamieszanie to z czterema 
znakami wynika z tego, iż wpisywane przez 
nas pierwsze cztery znaki każdej pełnej in- 
formacji o skrótach, to cztery pierwsze znaki 
skrótu. Jeśli odpowiedź jest twierdząca (znaki 
pytania są identyczne z początkowymi zna- 
kami interpretacji) to oznacza, że w tej właśnie 
komórce S$(n, 100) mieści się pełna interpre- 
tacja skrótu o poszukiwanej interpretacji. 
Wobec tego program „każe iść” komputerowi 
do linii nr 150 (GO TO 150). W linii nr 15Ó 
jest instrukcja wyświetlająca oczekiwaną przez 
nas informację — pełną informację o skrócie 
ACU: 

ACU — Automatic Calling Unit 

Po wyświetleniu tego tekstu wykonuje się 
linia nr 160 — czyli skok (idź do) do linii nr 
1 10. Zabawa zaczyna się od nowa — możemy 
zapytać o interpretację kolejnego skrótu. 

Jeśli wynik porównania pierwszych czte- 
rech liter zawartych w komórce a$ i SS (n, 
100) jest negatywny (litery są różne), wykonu- 
je się znana nam już instrukcja w linii 140 -p 
czyli dodanie jedynki do n (n=n+l) i powrót 
na początek do linii 120, aż do chwili, gdy n 
będzie większe od 200 — wówczas, to już pra- 
ca domowa. 

Niewątpliwie omawiany przykład nie jest 
prosty podczas pierwszego czytania. Sądzę 
jednak, że wkrótce będziemy mogli przejść do 
kolejnego tematu. Ale to już w następnym 
numerze „IKS-a”. 

Włodzimierz GOGOŁEK 


...aż człowiek stworzył komputer (2) 


Kontynuując temat podjęty w poprzednim numerze 
,4KS-a” przedstawimy osiągnięcia polskiej myśli techni- 
cznej, polskich twórców komputerów, przedstawimy 
wreszcie rys historyczny rozwoju informatyki w Pols- 
ce. 

W 1921 roku po raz pierwszy w Polsce zastosowano maszyny liczą- 
co-analityczne do prac statystycznych. 

W 1950 roku Zbigniew Pawlak zbudował pierwszą w Polsce cyf- 
rową maszynę liczącą na przekaźnikach, którą zastosowano do celów 
dydaktycznych. W cztery lata później zbudowano pierwszy ekspery- 
mentalny, elektroniczny analizator równań różniczkowych specjal- 
nych. 

W 1958 roku zespół konstruktorów Zakładu Aparatów Matematy- 
cznych PAN zbudował pierwszy w Polsce komputer cyfrowy pier- 
wszej generacji XYZ. Komputer XYZ był zbudowany na przerzut- 
nikach dynamicznych lampowo-tranzystorowych i zawierał pamięć 
operacyjną rtęciową o pojemności 1024 słów 18-bitowych. Był mode- 
lem laboratoryjnym i wykonywał 800 dodawań na sekundę. W tym 
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samym roku z inicjatywy Zakładu Aparatów Matematycznych Insty- 
tutu Matematycznego PAN założono pierwszy w Polsce usługowy 
ośrodek obliczeniowy na bazie komputera XYZ pod nazwą Biuro Ob- 
liczeń i Programów. 

W 1959 roku w związku z produkcją sprzętu komputerowego utwo- 
rzono Wrocławskie Zakłady Elektroniczne, a rok później w Zakładzie 
Doświadczalnym Instytutu Maszyn Matematycznych PAN zbudo- 
wano komputer ZAM 2. Otwierał on serię komputerów wyproduko- 
wanych w kraju i zaliczanych do pierwszej generacji. Komputer 
ZAM 2 miał pamięć operacyjną o pojemności 1024 słów 18-bito- 
wych, urządzenie wejściowe w postaci czytnika tasiemki dziurko- 
wanej, a niektóre egzemplarze były także wyposażone w czytnik kart 
dziurkowanych. Urządzenie wyjściowe tworzyły dziurkowane ta- 
siemki oraz pamięć zewnętrzna, zawierająca do 4 jednostek pamięci 
bębnowej, każda o pojemności 16 Ksłów. Wyniki obliczeń były 
odtwarzane z tasiemki dziurkowanej na dalekopisie. ZAM 2 pracował 
z szybkością 1000 dodawań na sekundę. Pracą sterował prosty system 
operacyjny, a w skład oprogramowania wchodziły dwa języki pro- 
gramowania SAS (skrót od pierwszych liter wyrazu pełnej nazwy: 
SYSTEM ADRESÓW SYMBOLICZNYCH) i SAKO (SYSTEM 


AUTOMATYCZNEGO KODOWANIA), które umożliwiały oblt- 
czenia naukowo-techniczne, a nawet proste przetwarzanie danych. W 
tym samym mniej więcej okresie we Wrocławskich Zakładach Elek- 
tronicznych ELWRO zbudowano pierwszy model komputera OD- 
RA 1001. 

W 1961 roku opracowano translator dla pierwszego języka pro- 
gramowania SAKO, stworzonego w Instytucie Maszyn Matematy- 
cznych w Warszawie. Rok później w zakładach ELWRO we Wroc- 
ławiu skonstruowano komputer ODRA 1003, którego seryjna pro- 
dukcja ruszyła od 1964 roku. Komputer ODRA 1003 był pierwszym 
małym komputerem (produkowanym do 1965 roku), przeznaczonym 
do obliczeń naukowo-technicznych i sterowania procesami technolo- 
gicznymi. Był zbudowany na zasadach techniki tranzystorowej. Przy 
operacji dodawania pracował z szybkością około 1000 operacji na se- 
kundę. W skład zestawu komputera wchodziły: arytmometr, układ 
sterowania, pamięć bębnowa, urządzenia wejścia-wyjścia (czytniki i 
dziurkarka tasiemki papierowej oraz dalekopis). 

W 1963 roku na podstawie projektu Katedry Budowy Maszyn Po- 
litechniki Warszawskiej, Wrocławskie ELWRO rozpoczęło pierwszą, 
seryjną produkcję komputerów uniwersalnych typu UMC-1 (UNI- 
WERSALNA MASZYNA CYFROWA). Komputer UMC-1 wy- 
konywał 100 operacji na sekundę i był wyposażony w pamięć bębno- 
wą o pojemności 4096 słów 36-bitowych. Urządzenia zewnętrzne to 
czytnik tasiemki dziurkowanej i dalekopis. W Wojskowej Akademii 
Technicznej im. J. Dąbrowskiego skonstruowano cyfrowy analizator 
różnicowy JAGA 63. 

W 1964 roku w Instytucie Maszyn Matematycznych PAN opra- 
cowano komputer ZAM 21 do obliczeń naukowo-technicznych. Jego 
produkcję rozpoczęto w 1966 roku. W skład zestawu komputera 
ZAM 21 wchodziła jednostka centralna z pamięcią operacyjną o po- 
jemności 8 Ksłów 24-bitowych i cyklu pamięci 10 ms. Na urządzenia 
zewnętrzne składały się: monitor dalekopisowy, czytnik kart dziur- 
kowanych, czytnik tasiemki dziurkowej, dziurkarka tasiemki papie- 
rowej, pamięć -bębnowa, a później także dziurkarka wierszowa i pa- 
mięć na taśmie magnetycznej. 

W 1965 roku Wrocławskie Zakłady Elektroniczne ELWRO skon- 
struowały i rozpoczęły produkcję komputerów ODRA 1013, będących 
udoskonaloną wersją komputera ODRA 1003. Komputer ODRA 
1013 był kolejnym małym komputerem produkowanym po zaniecha- 
niu w 1965 roku produkcji komputera ODRA 1003 i w odróżnieniu 
od niego miał pamięć operacyjną ferrytową o pojemności 256 słów 
40-bitowych i zwiększoną wydajność obliczeń. Kolejnymi osiągnię- 
ciami ELWRO były : komputer ODRA 1 103, nazwany elektroni- 
cznym kalkulatorem dziesiętnym, przeznaczonym do współpracy z 
maszynami licząco-analitycznymi i komputer ODRA 1204, którego 
produkcję rozpoczęto w 1968 roku. Komputer ODRA 1103, dzięki 
możliwości zastosowania operacji mnożenia i dzielenia wykorzysty- 
wano w stacjach maszyn licząco-analitycznych do przyśpieszania i 
usprawnienia obliczeń. Był wyposażony w pamięć operacyjną ferry- 
tową oraz w pamięć bębnową. Szybkość pracy przy operacji dodawa- 
nia lub odejmowania (liczby 8-cyfrowej) wynosiła 0,18 ms, mnożenia 

— 2 ms, dzielenia 20 ms. Komputer ODRA 1204 był komputerem 
drugiej generacji, przeznaczonym głównie do wykonywania obliczeń 
naukowo-technicznych oraz sterowania procesami technologicznymi 
w czasie rzeczywistym. W skład zestawu wchodziły: jednostka cen- 
tralna z pamięcią operacyjną o pojemności od 4 do 64 Ksłów 24-bi- 
towych i cyklu dostępu do pamięci równym 6 ms oraz z możliwością 
dołączenia do kanałów obsługujących urządzenia zewnętrzne do 8 
urządzeń wejścia-wyjścia. Urządzenia zewnętrzne: pamięć bębnowa 
w postaci do 4 jednostek po 64 Ksłów 24-bitowych każda i czasie do- 
stępu około 10 ms, czytnik tasiemki dziurkowanej, monitor w postaci 
elektrycznej maszyny do pisania, dziurkarka tasiemki papierowej, 
drukarka wierszowa. Szybkość działania przy operacji dodawania lub 
odejmowania liczb stałoprzecinkowych wynosiła 16 ms, a mnożenia 

— 80 ms. 

W 1966 roku opracowano prototyp komputera ZAM 41 — pierw- 
szego komputera do przetwarzania danych, wyprodukowanego w 
kraju w ramach rodziny komputerów ZAM. 

ZAM 41 składał się z jednostki centralnej, zawierającej pamięć 
operacyjną o pojemności do 20 Ksłów, pamięci zewnętrznej taśmo- 
wej i bębnowej, urządzeń wejściowych w postaci czytników tasiemki 
dziurkowanej i kart dziurkowanych oraz urządzeń wyjściowych w 
postaci dziurkarki tasiemki papierowej i drukarki wierszowej. Szyb- 
kość działania wynosiła około 40 000 dodawań na sekundę, a organi- 
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Tiacfł Inompaterowa umożliwiała pracę wieloprogramową. Oprogra- 
mowanie pozwalało użytkownikom na korzystanie z następujących 
języków programowania: COBOL, ALGOL, SAKO, SAS, CEM- 
MA i ZAM-GPSS. Łącznie wyprodukowano i zainstalowano od 
1968 roku 16 egzemplarzy komputera ZAM 41. 

W 1968 roku rozpoczęto prace koncepcyjne nad stworzeniem ro- 
dziny komputerów wspólnej produkcji państw socjalistycznych, na- 
zywanej początkowo rodziną komputerów RIAD, a później rodziną 
komputerów Jednolitego Systemu. W tym samym roku utworzono 
Zakład Obsługi Technicznej Maszyn Matematycznych MERA- 
ELWRO-SERWIS, świadczący usługi w zakresie dostaw sprzętu, 
serwisu technicznego i oprogramowania oraz szkolenia użytkowni- 
ków. 

W 1969 roku w Zakładach Mechaniki Precyzyjnej w Błoniu pod 
Warszawą rozpoczęto produkcję drukarek wierszowych (montaż na 
podstawie licencji) oraz czytników tasiemki dziurkowanej CT-1001 i 
dziurkarki tasiemki papierowej D-102. 

Na początku lat siedemdziesiątych we Wrocławskich Zakładach 
Elektronicznych ELWRO rozpoczęto produkcję komputerów do 
przetwarzania danych: ODRA 1304 (1970 rok), ODRA 1325 (lata 
1971 — 1972), ODRA 1305 (1972 rok), pracujących do chwili obecnej 
w wielu ośrodkach w kraju. Komputer ODRA 1304 jest wielopro- 
gramowym komputerem drugiej generacji produkowanym w ramach 
rodziny komputerów ODRA z pamięcią operacyjną o pojemności 32 
Ksłów 24-bitowych i cyklu pamięci 6 fis. Ma możliwość dołączenia 9 
kanałów dla urządzeń zewnętrznych m.in. kanału multiplekserowe- 
go. W skład zestawu komputera mogą wchodzić między innymi: 
czytnik kart dziurkowanych, czytnik tasiemki dziurkowanej, dziur- 
karka tasiemki papierowej, monitor operatorski, drukarka wierszowa, 
jednostki pamięci taśmowej. Szybkość operacji dodawania dla liczb 
stałoprzecinkowych wynosi 26 m*, mnożenia — 96 ms, skoku — 9 ms, 
a dla liczb zmiennoprzecinkowych szybkość operacji dodawania 
wynosi 160 ms, mnożenia — 450 ns. Komputer ODRA 1304 może 
być wykorzystywany zarówno do przetwarzania danych, jak i do obli- 
czeń naukowo-technicznych. Do oprogramowania (zgodnego zresztą 
z óprogramowaniem komputerów firmy ICL serii 1900) oprócz pro- 
gramów usługowych i standardowych, zarówno dla potrzeb przetwa- 
rzania danych, jak i obliczeń naukowo-technicznych, wchodzą nastę- 
pujące języki programowania: PLAN, ALGOL, COBOL, FOR- 
TRAN. Komputer ODRA 1325 jest komputerem trzeciej generacji, 
skonstruowanym na obwodach scalonych TTL i produkowanym w 
ramach rodziny komputerów ODRA. Pamięć operacyjna wynosi od 8 
do 128 Ksłów 24-bitowych, a cykl dostępu równy jest 1 ms. Do jed- 
nostki centralnej można podłączyć do 16 kanałów dla urządzeń ze- 
wnętrznych, w tym jednego kanału multiplekserowego. W skład ze- 
stawu mogą wchodzić wszystkie urządzenia komputera wieloproce- 
sorowego, wieloprogramowego i wielodostępnego. W wypadku 
liczb stałoprzecinkowych szybkość wykonywania operacji dodawania 
wynosi 2,6 ms, mnożenia — 12 ms, skoku — 7 ms, a dla liczb zmien- 
noprzecinkowych szybkość operacji dodawania wynosi 9 ms, a mno- 
żenia — 16 ms. Komputer ODRA 1325 jest przeznaczony do stero- 
wania procesami technologicznymi, do obliczeń naukowo-techni- 
cznych i przetwarzania danych. Komputer ODRA 1305 jest także 
komputerem trzeciej generacji zbudowanym na obwodach scalonych 
TTL i produkowanym w ramach rodziny komputerów ODRA. Pa- 
mięć operacyjna może dochodzić do pojemności 256 Ksłów 24-bito- 
wych, a cykl pamięci wynosi 1 ms. ODRA 1305 jest komputerem wie- 
loprogramowym (może pracować do 16 programów), wielodostęp- 
nym (do 60 użytkowników) oraz dwuprocesorowym. Szybkość pracy 
dla operacji dodawania dwóch liczb stałoprzecinkowych wynosi 
1,6 ms, mnożenia — 9 ms, a operacji skoku — 1 ns. Komputer ODRA 
1305 jest w pełni zgodny funkcjonalnie i programowo z systemami 
komputerów serii ICL 1900, stąd można zarówno korzystać z opro- 
gramowania tych komputerów, jak i komputerów ODRA 1304 i 
ODRA 1325. Jest przeznaczony głównie do przetwarzania danych, 
obliczeń naukowo-technicznych oraz do sterowania szybkimi proce- 
sami zachodzącymi w czasie rzeczywistym. 

W 1970 roku w Wojskowej Akademii Technicznej zbudowano 
pierwszy komputer hybrydowy WAT 1001 oraz grafoskop. W skład 
elementów analogowych komputera hybrydowego WAT 1001 wcho- 
dzą między innymi: wzmacniacze całkujące i sumujące, pamięci ana- 
logowe, generatory funkcji nieliniowych, układy mnożące, generato- 
ry zmiennych losowych, układ samodzielnego sterowania cyfrowego 
itp. Komputer WAT 1001 może pracować w trybie pracy ciągłej z rę- 
cznym i automatycznym sterowaniem oraz w trybie pracy powtarzal- 
nej. Wprowadzanie programu odbywa się za pomocą wymiennych 
tablic programowania oraz klawiatury. Wyniki obliczeń można wy- 
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prowadzić na ekran monitora, drukarkę rejestratory lub woltomierz. 
Do układu sterowania można podłączyć komputer cyfrowy, który 
może sterować zarówno blokami operacyjnymi, jak i programem li- 
czenia. Komputer WAT 1001 jest przeznaczony do syntezy i analizy 
układów dynamicznych opisywanych równaniami różniczkowymi 
zwyczajnymi lub cząstkowymi oraz do obliczania układów równości 
algebraicznych. 

W 1970 roku w Zakładach Wytwórczych Przyrządów Pomiaro- 
wych ERA w Warszawie opracowano model i prototyp minikompu- 
tera K-202. Był to pierwszy w Polsce komputer na układach scalo- 
nych. Głównym projektantem i konstruktorem był Jacek Karpiński. 

W 1972 roku w Instytucie Maszyn Matematycznych PAN w War- 
szawie opracowano minikomputer MOMIK 8b. MOMIK 8b jest 
zbudowany na obwodach scalonych TTL i zawiera pamięć operacyj- 
ną o pojemności 2, 4, 8 — 16 Ksłów 8-bitowych i czas cyklu równy 
1,8 MS. Pracuje z szybkością od 1 50 tysięcy do 0,5 miliona operacji na 
sekundę. Wyposażony jest w kanał multipleksowy i kanał bezpośred- 
niego dostępu. Do kanałów można maksymalnie podłączyć 32 urzą- 
dzenia zewnętrzne. MOMIK 8b jest wykorzystywany jako jednostka 
centralna w minikomputerach rodziny minikomputerów MERA 300. 
W tym samym roku we Wrocławskich Zakładach Elektronicznych 
ELWRO zmontowano pierwszy w Polsce egzemplarz komputera 
Jednolitego Systemu o symbolu R-30, produkowany następnie od 
1975 roku seryjnie już przez Centrum Komputerowych Systemów 
Automatyki i Pomiarów MERA ELWRO (dawne Wrocławskie Za- 
kłady Elektroniczne ELWRO) jako komputer IS-1032. Komputer 
IS-1032 jest przeznaczony do przetwarzania danych oraz rozwiązy- 
wania obszernych i skomplikowanych zadań naukowo-technicznych. 
Pamięć ma pojemność od 128 do 1024 Kbajtów. IS-1032 jest kompu- 
terem wieloprogramowym i wielodostępnym. Ma jeden kanał multi- 
plekserowy, umożliwiający podłączenie do 256 urządzeń wejściowo- 
-wyjściowych, 3 kanały selektorowe, umożliwiające podłączenie do 
kanału 8 jednostek sterujących maksymalnie do 256 urządzeń wejś- 
ciowo-wyjściowych oraz procesowo. Czas dostępu do pamięci opera- 
cyjnej wynosi 0,5 n$, a cykl podstawoi^y komputera wynosi 300 /us. 

W 1973 roku rozpoczęto w Zakładach Wytwórczych Przyrządów 
Pomiarowych ERA produkcję minikomputera systemu MERA 300 i 
komputera biurowego MERA 302. 

W 1976 roku na 48 Międzynarodowych Targach Poznańskich 
Centrum Komputerowych Systemów Automatyki i Pomiarów ME- 
RA-ELWRO wystawiło przewoźny Ośrodek Obliczeniowy, w które- 
go wyposażeniu znajdował się komputer ODRA 1325, umieszczony 
w typowym kontenerze. 

W 1981 roku powstało i ukonstytuowało się Polskie Towarzystwo 
Informatyczne. 



Dłużej zatrzymaliśmy się na produkcji lat siedemdziesiątych — 
komputerów serii ODRA, gdyż były one i są nadal udaną konstrukcją 
sprzętową z bardzo bogatym oprogramowaniem. 

A co przyniosły lata osiemdziesiąte — niestety przede wszystkim 
znaczne pogłębienie się luki technologicznej między krajami przodu- 
jącymi w dziedzinie techniki komputerowej a Polską. W Polsce brak 
jest układów dużej skali integracji, mikroprocesorów, pamięci pół- 
przewodnikowych, a w szczególności pamięci dyskowych. Aktualnie 
w Polsce produkuje się mikroprocesor MCY 7880 oparty na przesta- 
rzałym 8-bitowym mikroprocesorze Intel 8080, pamięci zewnętrzne 
na dyskach elastycznych, choć należy zauważyć, że produkcja ta nie 
zaspokaja wewnętrznego popytu i nie jest najwyższej jakości. W 
związku z tymi trudnościami produkcja mikrokomputerów nie od- 
powiada potrzebom. W ostatnich latach powstało wiele prywatnych 
zakładów (część z nich powstała w kooperacji z firmami zachodnimi), 
które zaczęły montować mikrokomputery z elementów produkowa- 
nych w innych krajach (najczęściej krajów Dalekiego Wschodu), 
bądź zajęły się tylko pośrednictwem w sprzedaży zestawów mikro- 
komputerowych. Z mikrokomputerów produkowanych obecnie czy 
w najbliższej przyszłości należy wymienić: MERITUM I, MERI- 
TUM II, COMPAN 8, MK 4501/2, KRAK-86, cała seria mikro- 
komputerów ELWRO, czy w końcu MAZOVI A 1016. Aktualnie nie 
wszystkie z wymienionych mikrokomputerów są produkowane, inne 
okazały się po prostu niewypałem. Zatrzymajmy się przy mikrokom- 
puterach ELWRO 800 Junior i MAZOVIA 1016. 

Model mikrokomputera osobistego ELWRO 800 Junior opraco- 
wano, z myślą o zastosowaniu go w polskich szkołach, w Instytucie 
Automatyki Politechniki Poznańskiej w Poznaniu oraz w Instytucie 
Komputerowych Systemów Automatyki i Pomiarów we Wrocławiu. 
ELWRO 800 Junior zawiera: 8-bitowy mikroprocesor Z80 A lub je- 
go odpowiednik U880 produkowany w NRD, stronicowaną pamięć 
operacyjną, kolorową grafikę (obraz może być 16-kolorowy i może 
migotać), prosty generator dźwięku, pakiet lokalnej sieci kompute- 
rowej, sterownik pamięci na dyskietkach, łącze magnetofonowe oraz 
dodatkowe układy wejścia-wyjścia. Format zapisu informacji na 
taśmie i adresy urządzeń zewnętrznych są identyczne z mikrokompu- 
terem ZX Spectrum, co zapewnia ELWRO 800 Junior dostęp do ob- 
szernej biblioteki oprogramowania. ELWRO 800 Junior jest wypo- 
sażony w dyskowy system operacyjny CP08, w pełni zgodny z syste- 
mem CP/M wersja 2.2. Można więc używać wielu programów na- 
rzędziowych i użytkowych. Do ELWRO 800 Junior przez wbudowa- 
ne łącze równoległe o standardzie Centronics i szeregowe RS-232 G 
można podłączyć drukarkę znakową lub graficzną, manipulator drąż- 
kowy (joystick), pióro świetlne, myszkę i wiele innych urządzeń. Do 
końca 1986 roku planowano wyprodukować 500 sztuk tego kompute- 
ra, do końca 1 987 roku 5000 sztuk, a produkcja docelowa (tylko kiedy 
to nastąpi) miała wynosić 30000 sztuk rocznie. 

Drugim mikrokomputerem osobistym, na który warto zwrócić 
uwagę, jest długo oczekiwany, a montowany przez spółkę z ograni- 
czoną odpowiedzialnością .Mikrokomputery” w pełni zgodny z IBM 
PC/XT mikrokomputer MAZOVIA 1016. MAZOVIA 1016 ma 16- 
-bitowy mikroprocesor INTEL 8086 lub jego odpowiednik 
K1810WM86 produkowany w ZSRR, pamięć operacyjną o poje- 
mności 256 Kbajtów (może być rozszerzona do 640 Kbajtów), 
pamięć stałą ROM o wielkości 48 Kbajtów. Podstawowym dysko- 
wym systemem operacyjnym jest spolszczony MS DOS. Twórcy 
MAZOVII 1016 przystosowują do potrzeb polskiego użytkownika 
również inne systemy operacyjne jak: CP/M86 czy XENIX. Poza 
tym do sprzedaży przygotowano spolszczone oprogramowanie typu: 
bazy danych, programy kalkulacyjne, edytory tekstów itp. 
MAZOVIA 1016 ma tworzyć podstawowe wyposażenie wyższych 
uczelni oraz instytutów naukowo-badawczych. Do końca 1986 roku 
planowano wyprodukować 500 sztuk tych komputerów, a w 1987 ro- 
ku około 5000 sztuk. Do chwili obecnej produkcji nie uruchomiono. 

Należy zauważyć, że zarówno konstrukcja ELWRO 800 Junior, 
jak i MAZOVII 1016 są już przestarzałe w porównaniu ze sprzętem 
tej klasy produkowanym w przodujących w dziedzinie techniki kom- 
puterowej krajach Świata. 

J. s. 
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Komputerowe piractwo 
— niebezpieczeństwo XXI wieku 


Okazuje się, iż komputer — spełniający tak wiele pożytecznych 
czynności — może być też narzędziem przestępstwa. I to nie prze- 
stępstwa drobnego czy pospolitego, ale takiego, o którym przed pa- 
roma laty nikomu się nawet nie śniło. To wielki problem dalszego 
rozwoju komputeryzacji, który może zaważyć na obliczu wielu 
istotnych spraw świata w XXI wieku. 


Przed paroma miesiącami niezwykle 
zaszokowany poczuł się premier Belgii, 
Wilfried Martens. Za pośrednictwem 
prasy dowiedział się bowiem, że w pa- 
mięci „Bistela”, czyli rządowego syste- 
mu informacji komputerowej — od Bel- 
gian Information System by Telephon 
— zupełnie swobodnie porusza się kom- 
puterowy pirat. 

Prasa nazwała pirata tajemniczym 
„X”. Wyposażony w normalny kompu- 
ter osobisty łatwo złamał wszystkie sy- 
stemy zabezpieczające. Kluczem do tego 
były inicjały premiera: W. M. Dzięki te- 
mu mógł śledzić na ekranie wymianę ko- 
respondencji między członkami rządu, 
miał dostęp do najświeższych wiadomoś- 
ci agencyjnych, notowań giełdowych, 
prognoz gospodarczych i informacji do- 
tyczących sytuacji ekonomicznej kraju. 
Ów „X” wprowadził też do systemu 
pewne poprawki blokujące tym dostęp 
do informacji niektórym ministrom. Na 
marginesie, oni sami tego wcale nie za- 
uważyli! Być może sprawa nadal pozo- 
stałaby nie odkryta, gdyby pirat się nie 
znudził i swych możliwości nie zade- 
monstrował dziennikarzom. 

Premier Martens wprawdzie zapew- 
nił, że komputer w pamięci nie posiadał 
żadnych tajnych informacji, ale opinia 
publiczna wcale nie była przekonana, czy 
bystry posiadacz komputera nie wszedł 
w posiadanie jakiejś tajemnicy państwo- 
wej. Rządowi specjaliści skwapliwie za- 
powiedzieli skonstruowanie takiego sy- 
stemu zabezpieczającego, który unie- 
możliwi podobną sytuację. Widać zapo- 
mnieli, że analogiczny przypadek wyda- 
rzył się trzy lata wcześniej i wówczas też 
zapewniano o nowym niezawodnym za- 
bezpieczeniu... 

Dużo poważniejsze następstwa miało 


błahe z pozoru wydarzenie z lipca 1986 
roku. Wówczas do komputera-matki 
firmy Philips za pomocą tajnego kodu 
„włamał się” ktoś nieupoważniony. Fir- 
ma, by rozwikłać zagadkę, kto i po co to 
uczynił, postanowiła przeprowadzić 
śledztwo. Okazało się, że piraci nie 
zmienili programu ani części jego da- 
nych, ale zaatakowali cały system i do ich 
urządzeń wprowadzili wiele tajnych pro- 
gramów, które nie tylko modyfikowały 
programy Philipsa, ale mogły też je ni- 
szczyć. 

W' takiej sytuacji sprawę przejęła bry- 
gada finansowa paryskiej policji. Szybko 
odkryła piętnastocyfrowy kod piratów. 
Jego pięć pierwszych cyfr wskazywało, 
że pochodzą oni z RFN. Z kolei policja 
zachodnioniemiecka stwierdziła, iż po- 
dany kod identyfikacyjny należy do... 
uniwersytetu w Heidelbergu. Zaś władze 
uczelni nic nie wiedziały o takim wyko- 
rzystaniu ich komputera. 

Ale i piraci popełnili błąd. Porozu- 
miewając się za pomocą komputera mię- 
dzy sobą użyli skrótu CERN. A to ozna- 
cza Centrum Badań i Poszukiwań Nu- 
klearnych z siedzibą w Genewie. Prowa- 
dzący śledztwo poszli tym śladem i udali 
się do Szwajcarii. Tam czekała na nich 
niespodzianka. Fizycy pracujący w cen- 
trum wyjawili, że kłopoty z piratami ma- 
ją już od ponad roku. A ich komputery 
Vax są połączone z 300 laboratoriami na 
całym świecie. 

Stało się jasne, że piraci uzyskali do- 
stęp do ścisłych tajemnic zachodniego 
świata nauk fizycznych. Obawy te pot- 
wierdził Interpol. Wreszcie przestali być 
tajemnicą. Tym „komputerowym pos- 
trachem” okazali się być członkowie ofi- 
cjalnego klubu CCC — Chaos Computer 
Club, z siedzibą w Hamburgu i skupiają- 
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cego prawie stu ludzi. W swym progra- 
mie deklarują — ich status złożony jest i 
zarejestrowany w sądzie — że w infor- 
matycznym świecie panuje olbrzymi 
chaos w zakresie bezpieczeństwa. By tę 
tezę udowodnić, rozpracowywali najbar- 
dziej zawiłe programy. 

Tu zaczęły się kłopoty i. dyskusje mię- 
dzy zachodnioniemieckim a francuskim 
wymiarem sprawiedliwości. W RFN nie 
istniały jeszcze przepisy prawne karzące 
za tego typu przestępstwa informaty- 
czne. We Francji też nie, ale policja za- 
kwalifikowała te czyny jako... włamanie i 
zniszczenie. Nie mogąc się dogadać 
Francuzi kontynuowali śledztwo na te- 
renie swego kraju. W krótkim czasie wy- 
łapali prawie dwustu piratów grasują- 
cych we francuskiej sieci komputerowej. 

Tymczasem członkowie Chaos Com- 
puter Club rozpoczęli ofensywę i w ciągu 
pół roku „włamali się” do 135 kompute- 
rów ważnych instytucji naukowych — i 
nie tylko — świata. Między innymi roz- 
szyfrowali w NASA program wahadłow- 
ca kosmicznego i dane związane z 
„gwiezdnymi wojnami”. 

Ale niemieckie prawodawstwo poszło 
z duchem czasu. Podczas rewizji w sie- 
dzibie klubu znaleziono kilka wręcz wy- 
bitnych pirackich programów oraz kilku- 
setstronicowy spis z kodami i hasłami 
wejściowymi do olbrzymiej ilości kom- 
puterów. Członkowie klubu bronili się, 
że dopięli tego , co zamierzali. Zwrócili 
uwagę na luki, które mogą zagrażać całej 
ludzkości. Bo skoro można zawładnąć w 
ten sposób tajnymi informacjami czy ba- 
daniami lub wpłynąć na wystrzelenie czy 
lot rakiety jądrowej — to jak tę sytuację 
inaczej nazwać? 

Śledztwo trwa. Nie ma bowiem pew- 
ności, jak wielu podobnych, a bardzo 
zdolnych piratów, będzie chciało poba- 
wić się w cudzym oprogramowaniu. 
Pewnych systemów zabezpieczających, 
jak widać, nie ma. To problem do jak 
najszybszego rozwikłania i przez praw- 
ników, i informatyków. 
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CHIŃCZYK 


Gra znana jest chyba wszystkim, ale dla 
porządku przypomnę.jej zasady. 

W grze bierze udział od 2 do 4 graczy. 
Zadaniem każdego z nich jest jak najszyb- 
sze dotarcie do własnego pola końcowe- 
go. O ruchu decyduje rzut kostką. Po roz- 
poczęciu rozgrywki piony graczy znajdują 
się w polach startowych. Wyrzucenie 
kostką 1 lub 6 oczek uprawnia jeden z 
pionów do wejścia na planszę. Piony po- 
ruszają się o tyle pól do przodu, ile oczek 
wyrzucono kostką. Nie wolno wymijać in- 
nych pionów (nawet własnych), jeżeli 
ruch zostanie zakończony na polu, na któ- 
rym stoi pion przeciwnika, to pion prze- 
ciwnika uważany jest za zbity I wraca na 
swoje pole startowe. Po wyrzuceniu 6 
oczek i wykonaniu ruchu na planszy (a nie 
wyjścia z pola startowego) gracz nabywa 
prawo do powtórnego rzutu. 

Po uruchomieniu programu na ekranie 
ukazuje się plansza atrybutów: 



opracował K. Późnią* * ©1980 
> GRRCZ 1 0 RUTO 

GRRCZ 2: + RUTO 
GRRCZ 3: X RUTO 
GRRCZ 4.: □ RUTO 
OPCJE : 

<6>,<7> - wybór gracza 
<fc > - kolor piona 
<z > - znak piona 
<s > - typ sterowania 
<t> - kolor tia planszy 
<a > - kolor atraaentu 

<p > - PLRY 


Gracz może wybrać znak, kolor i typ 
sterowania każdym pionem. 

Typy sterowania: 

AUTO — gracz automatyczny sterowa- 
ny przez komputer, 

STER — gracz sterowany przez użyt- 
kownika z klawiatury, 

STOP — gracz wyłączony z rozgrywki. 

Uruchomienie gry odbywa się po naciś- 
nięciu klawisza <p>. Na ekranie ukazuje 
się plansza gry z początkowym ustawie- 
niem pionów: 


• ♦ t + + 

♦ ♦ 0 + ♦ 

♦ 

□ 0 □ □ _ + + +_ +_ 

11 X 

X 

□ jol _ X _ |x|x 

□ □ X XX 


GRRCZ X 
STER 


<p > -pi on 
<r >-ruch 
<s >-stop 
<a >-at ryb 


Gracze „rzucają" kostką po kolei. Jeśli 
gracz ma tryb AUTO, to posunięcie od- 
bywa się automatycznie, jeśli tryb STER, to 
nad graczem kontrolę przejmuje użyt- 
kownik: 
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1) nad kostką pokazuje się napis: LO- 
SOWANIE. Wciśnięcie dowolnego klawi- 
sza zatrzymuje ten proces i wyświetla wy- 
losowaną liczbę oczek; 

2) użytkownik w tym momencie może 
posłużyć się klawiszem: <p> — wybór 
piona (wybrany pion jest wyświetlany w 
trybie FLASH), <r> — wykonanie ruchu 
wybranym pionem. 

UWAGA: klawiszem <p> mamy dostęp 
jedynie do pionów mogących wykonać 
ruch. 

Jeśli żaden pion nie może się ruszyć, to 
na dole ekranu ukazuje się napis: RUCH 
NIEMOŻLIWY i gracz traci kolejkę. 
Funkcje dodatkowe: 

klawisz <a> — zmiana atrybutów 
pionów i planszy. Po zmianie gra jest kon- 
tynuowana. 

klawisz <*> — ostateczne przerwanie 
g'Y- 

Nie wyjaśnię dokładnie, jak porusza się 
pion w trybie AUTO. Zapewniam jednak, 
że nie jest to ruch całkowicie losowy (po- 
mijając oczywiście rzut kostką). Ruch każ- 
dego piona określany jest pewnym priory- 
tetem. Wybiera się ruch o najwyższym 
priorytecie. Tylko wtedy, gdy najwyższy 
priorytet posiada kilka pionów, wybór 
jednego z nich jest losowy. Zdradzę jedy- 
nie, że źródło decyzji ukryte jest w liniach 
1200 — 1260 . 


1 REM łlł*iHmt«lfłlłłłł«»ł 

2 REM 

3 REM , ©1988 

* REM Krzysztof Poznia* 

5 REM 

6 REM CHIŃCZYK 

7 REM gra dla 1 - 4 osob 

8 REM 

9 REM »*»*******•*•*»**•*+«*• 


x c. i/in i i»,o/ : u 

IM **(7,7): OIM p(2,40): DIM=b<4 
,2,4) : ÓIM t (4,2,4.) 

14 LeT inl»7: U ET pap«r*0 

15 INK i ni: PRPER pap«r: BOROE 
R Paper: CLS 

18 LET t — USR “a“ : POR 1*1 TO 1 
+31: RERD a. POKE 1 ,a : NEXT 1 

20 FOR a = l TO 40: FOR 0 = 1 TO 2 
: RERD a. LET p(n,»)*a: NEXT n: 
NEXT a 

21 FOR a*l TO 4: FOR ft«l TO 4: 
FOR 1«1 TO 2: RERD 4: LET b(B,l 

,n)*a: NEXT 1 NEXT n NEXT • 

22 FOR a=l TO 4: FOR n=l TO 4: 
FOR 1=1 TO 2: RERD a: LET S (■ , 1 

,n ) =a : NEXT 1: NEXT n : NEXT m 

23 FOR 1=1 TO 7: RERD a*: LET 

t»(l)=aS: NEXT 1 

24 FOR 1=1 TO 4: LET i (1,3) =7 
LET i (1,4) -CODĘ "♦••+1-1 LET i( 

1,6) =10+1-9: NEXT 1 

25 LET 1=USR ” r " : FOR 1=1 TO 1 
+7. FOR 1=0 TO 24 STEP 8: RERO a 
: POKE 1 + 1 ■ a : NEXT l : NEXT 1 

40 REM 

41 FOR 1=1 TO 4: LET i (1 ,5) =0 
NEXT 1 

42 LET StOP =0 : LET aUtO*4 


45 60 S UB eooe 

1O0 rem MM-imyi . .. 

110 LET ion»ec«0: DIM a(4,4) u 
IM d (40) : DIM l (4.4) POR 1«1 TO 

4: LET i (1,1) »4 : LET 1(1.2) --4: 
NEXT 1 

112 GO SUB 9800 
115 LET X*1 

120 IF i (X , 9) <2 THEN PRIWT RT 2 
,23 ; "ORACZ : INK ł(X,3),CHR$ i 

(X ,4) ; RT 4,25; INK inl, rftUTO" fi 
ND NOT i (x ,5) ) ; ("STER" RND i(X,5 

125 LET 8=0: GO SUB 9000: LET r 
U 130 IF 1 (x , 6) =0 TMEN GO SUB 100 

*140 IF i (X , B) =1 THEN GO SUB 200 

0 

150 IF X* = "S , ‘ TMEN GO TO 40 
160 IF xi»"a" THEN LET pa»X=X: 
GO SUB 8000: GO SUB 9800: LET x= 
paax: GO TO 120 

170 IF ruch THEN GO SUB 2200: I 

F M =6 THeN GO TO 125 
180 IF lonł«C»3-StOP THEN GO SU 

B 200: GO TO 40 

190 LET X=X+1: IF X >4 THEN GO T 

f 'ffiuERSE 


210 CLS 


i UL.O r N ilN I mi d,o, iriytfioŁ 

C H I N C Z Y K" i RT S,8, FLR 


IF q<=2 THEN GO TO 240 
230 PRINT RT 3+q-l, 5; "• ł « JSC e 
-2;" - gracz : INK l(l,3);C 


; q- 2 ; “ - grac 
HR» ł (1,4) 


240 NEXT 1: PRINT 80, TfiB 4; INU 
ERSE 1 , "NRCISNIJ DOUOLNY KLRUISZ 
1 

1005 LET X $ = INKEY $ : IF X* = ”S" OR 

X»*"a" TMEN RETURN 
1010 LET « =INT (6+RND) +1 : GO SUB 

9000 

1020 GO SUB 8300: IF NOT ruch TM 

EN GO TO 2400 
1030 GO SUB 1100 

1040 LET 1-INT (4+RND) +1 : GO TO 

2150 ____________ 

1110 LET *S 1 


1130 NEXT q 
1140 FOR q«l 
HEN LET l (q,b, =« 

1150 NEXT g: RETURN 

1200 rem MHlIHBBBBBnii 

1205 LET i (q ,8) =1. LET «=i (q, 

RND (i (q,7) < > i (X ,6) 1 
1210 IF e >0 TMEN IF d (e ) =0 TMEN 
LET «l-a(x,q): IF (x=l RND el>=2 
1) OR (x =2 RND NOT (el> = ll RND e 
1 < =30) ) OR (x =3 RND el<=20) OR ( 
x =4 RND «1> = 11 RND tl<=30) THEN 
LET i ( q , 8 ) =2 : GO TO 1250 
1212 IF e >0 THEN IF d(«)<>0 THEN 
IF 1 (d («) ,2) <1 (X,2) THEN IF e< 
>1 RND tOll RND e<>21 RND e < >31 
TMEN LET i(q,8)=3: GO TO 1250 
1214 IF e>0 THEN IF dt«)<>0 THEN 
IF i (d (e) ,2) >«i (X ,2) THEN LET i 
(q,8) =4+ (i (d (e) ,2) >•» (X ,2) +1) : G 
O TO 1250 

1216 IF e <0 THEN IF a(X,q) >0 THE 


7) 


22 


N LET i(q,8>-4: 00 TO 1250 
1218 1 F t*0 THEN IF d Ci <X ,6) ) *0 
AND W-l THEN LET i Cq,8)s3: 00 TO 
1250 

1220 IF e-0 THEN IF dCi(X,6>>>® 
RND w-l THEN IF ł (d (i (X , 6 ) > ,2) <i 
(X , 2 ) THEN LET i<q,8)«4. GO TO 1 
250 

1222 IF €*0 THEN IF dCi(X,6))>0 
RND W = 1 THEN IF i <d ( i (X , 6) ) , 2) > = 
i (x , 2) THEN LET i(q,8>s4: GOTO 

1250 

1224 IF e-0 THEN IF d(i<X,6)>>0 
RND W *6 THEN IF i ( d (i (X . 6) > . 2> > - 

.2) THEN LeT i (a. 8) -3: GO TO 


Ulf 

1221 


8 ) 

1260 RETU* 

2090 REH | 

2010 GO SL 

2020 IF X|b"i" OR x9-"9" THEN RE 
TURN 

2030 GO 5UB 9000 

2035 GO 3UB 8300: IF NOT ruch TH 

EN GO TO 2400 

2038 LET k —4 : GO 5UB 2120 

2040 LET X*sINKEY»: IF X*-"" THE 

N GO TO 2040 

2045 BEEP .05,20 

2050 IF X OR X " THEN RE 

TURN 

2052 IF X|s”P" THEN GO SUB 2100 
2054 IF 
2090 GO TÓ 
2100 REH T 

2110 GO 81 

2120 GO SUB 2150 


iii! °° T0 8418 j 

2152 LET k*t+l-4*(k*41 


2152 
2154 IF 
2156 RETU] 
2200 REM ' 


i THEN GO TO 2152 


2210 IF aTx.k) »« 

- 00 TÓ 2350 


* , 7) ) : uu i 
2220 IF «(X 
k) > -0 

2230 IF e (X, k) <0 THEN LET * (X , -• 

(X ,1) ) *0 

2240 FOR 1=1 TO W GO SUB 8420. 
GO 3UB 6370. GO SUB 8430: NEXT l 

2260 IF a (x , K ) >0 THEN LET e =d (a ( 
X.k>): LET d (1 (X , 1) ) =X : IF e < >0 

THEN GO SUB 2300 

2270 IF a (X , k» <0 THEN LET k(X,-a 
(X , k ) ) «1 : IF a (X ,k) =i (X ,2) THEN 
LET i (X .2) -i (X ,2) tl: IF NOT 
2) THEN LET k on i e c =k on i e c *1 
i (x ,5) -koniec +2 

2290 RETURN 

2300 REM UUłKKlllJ 

2310 LET i ( e , 1 ) > i l e , 1 > +• 1 : LET pa 

■x=x: LET pamk*k 

2320 FOR 5*1 TO 4: IF a (e , S ) -a (X 
, k) THEN LET xaS: LET k =fc : LET a 
(X,k)*0: GO SUB 8430. LET x=pamx 
: LET k-pank: RETURN 
2330 NEXT s : STOP 
2350 REH mnOHBiB 
2352 LET »*1: GO SUB 8420 LET a 
(X ,k> -i (X ,5) : LET i (X , 1) »i (X , 1) - 
1: LET d (a (X , k)) -X : GO SUB 3430 
IF «<>0 THEN GO SUB 2300 

2354 RETURN 

2400 reh nnBNnnnMnRa 


) >0 THEN LET d (a (X , 


LE* 


2410 PRiNTnny7S^T7?n iN5rTńFr p 

RPER Paper; FLRSH l; r, RUCH NIEMOZ 
LIUY" : BEEP .03,20: PRUSE 50: PR 
INT #0; RT 1,8; " 

RETURN 


R paptf CLS : PRINT TAB 8; INUE 
RSE 1;"C H X N C Z Y K" 

8015 PRINT RT 1 , 16; " , "; RT 2,1;" 
opracował K.Pozniak @1988" 

8020 FOR XBl TO 4: GO SUB 8100 

NEXT X LET X * 1 

8030 PRINT RT 12 , 12; "OPCJE : " 

8032 PRINT RT 14 , 4 ; <6 > , <7 > - wy 

' * r gracza ", trb 4, <k> - kolor p 
na”; 


iona“;TRB 4;"<z> - znak piona";T 
RB 4;"<s> - typ »terowania";TRB 
4;"<t> - kolor tla p lan»zy";TRB 
4;"<a> - kolor atra»entu"; ' 'TAB 
4;"<p> - PLRY" 

8038 PRINT RT 2*X +2 . 6 ; " > ” 

8040 LET x*=INKEVt IF *9-"" THE 
N GO TO 8040 
8045 BEEP .05,20 

8050 IF X§="6” THEN PRINT RT 2*X 

♦ 2,6,” . LET X -X 1 1-4# (X ci) GO 

TO 3035 

8051 IF x»*"7" THEN PRINT RT 2łX 
♦2,6," " LET X *x - 1 +4 * < x =1 ) . GO 

TO 8035 

8052 IF X*«”K" THEN LET i(x,3)-i 

(X ,3) +1-8* (i (X ,3) =7) : GO SUB 810 
0: GO TO 8040 

8053 IF x»*”z" THEN LET i(x.4)«i 

(X ,4) łl-4ł (CHRC i (X, 4) *”□"): GO 

SUB 8100 GO TO 8040 

8054 IF x $ * " 5 ” THEN LET q«i (x ,5) 

: LET *tOP=StOP-(q=2) f(q*l) LET 
auto*auto-(q=0) ♦ (q=2) LET i (X , 
5) =q ♦ 1 ♦ < q < =2 ) -3ł < q=2 > : GO SUB BI 




00: GO TO 8040 

8055 IF x*=”t" THEN LETeip a pe r =P a 
per ♦l-e* (pap® r *7) : GO TO 8010 

8056 IF X$="8" THEN LET ink=ink* 

l-8#Cink-7): GO TO 8010 

8057 IF xf="p" RND StOP>*3 THEN 
BEEP .1,20: BEEP .1,30 PRINT 80 
; TRB 2, FLASH 1;"TR ROZGRYUKR NI 
E MA SENSU \ " : PRUSE 100 INPUT 

8058 IF X9*"P" RND St0P<3 THEN R 
ETURN 
8060 BEEP 

8100 REH L__— _ 

8110 PRINT ftt 2#X f2,Ó; "GRACZ 

INK i (x , 3) , CHR* i (x ,4) ; I 
NK ink; C" RUTO" RND (i<x,5J*0>), 

I " STER" RND (i (x ,5) *1) > ; (" 5T0P 
" RND fi (X ,5) > =2) ) 

8120 RETURN 

S200 rem imŁlMMimMI 

8210 PRINT RT 7,23, FLRSH l,"LOS 
OUANIE” 

8220 LET W -RND: LET X»-INKEY»: I 

F X THEN GO TO 822© 


836® fcSH 

8310 FOR . - , 

6320 IF a (x , k) <1 (x ,2) THEN GO TO 
6326 

8322 IF a<X,k)>0 RND (W -6 OR W-l 
) RND d (i (X ,6) ) < >X THEN LET i U , 

7) *i (X ,61 : GO TO 8330 

0324 IF a (X , k) O0 THEN GO 6U6 03 
50 : IF i (k ,7) <>a fX,k) THEN GO TO 
8330 

8328 LET i ( k , 7) -a ( x , fcl : LET ilfc, 

8) -0 GO TO 8336 

8330 LET i ( k , 8 ) ■ 1 : LET ruch-1 
8335 NEXT k: RETURN 

8350 REH MMMMMIIMB 

8382 LET p99-a (X,k J : FOR q«l TO 
W: GO SUB 8360: IF <lX,k)f>pai T 
HEN NEXT q : LET i ( k , 71 -a (X , k) : L 
ET a (X ,k ) spal : RETURN 
83B4 LET iU.7lsp««: LET a(X.k)> 

8380 ReH U ipBBHHHMaBiHHHDi 

8362 GO SUB 6370 

9364 IF 9(X,M<0 RND a(X,k)>--4 
THEN IF NOT k(X,-a(X,k)) THEN RE 
TURN 

8365 ZF a (X , k ) >0 THEN IF d<a(X,k 
n B0 OR (qs«f RNO d ca (X , k > ) < >x ) T 
MEN RETURN 

8366 LET t (x ,k) =P4B; RETURN _ 

8370 REH ■SDBBEBnnBDnBBnBBI 

8372 IF a(x.k)s40 RND xol THEN 
LET a(X,k)sl: RETURN 

8373 IF a (X,k> *l-i (X ,6) +40* (X-l) 
THEN LET 9(X,k)«-l: RETURN 

8374 IF a (x , k) >0 THEN LET a(X,k) 

=a cx , k ) +i - Return 

8375 IF a(X,k) <0 THEN UET a CX , k ) 


8375 ZF • (X, k) <0 
=a (X ,k) -1 : RETUR 

8400 REH ■MMI 
8402 LET q-0. LE 




846 




GO TO 845 


8432 LET . 

8450 REH procedura wykonawcza 
8452 IF a (X , k ) <0 THEN PRINT RT b 
(x , 1 ,-a (x , kń , b (x ,2, -a Cx , k) ) ; in 
UERSE NOT V, INK ł(X,3); FLRSH q 
, CHR* i (X ,4l 

8454 IF a (X , k> >0 THEN PRINT RT S 
Cx , 1 ,kl ,* (x ,2, k) , INK i (x ,3) ; fl 
RSH q; I" " RND NOT v) ; CChR* i lx , 
4) RND V) 

8458 IF «(X,kl>0 THEN PRINT RT p 
11,9 (X ,kł> ,P (2,9 CX,i) J ; INK i (X , 
3) ; FLASH q; (" " RND NOT V»;CCHR 
9 i (x , 4) RND W ) 

6488 Return 

9000 REH ■»■■■■■ 

9020 PRINT RT 9 , 25 ; k f Cw ♦! , II ; RT 
9 , 27; k * ( w + 1 , 2) ; RT 9,29; k((wel,3) 

; RT 11 ,87; k|(w+l,4);AT 13,2B;kf( 
w*l,5);RT 13,27; k*(w+l,6) ;RT 13, 
29; k0(w+l,7I 
9030 RETU RN 

9800 REH MMMMMM 

9810 FOR fcsO TO 3: PLOT 66,171-1 
6*k : DRRU 48,0: NEXT |_ 

9811 FOR k-0 TO 3: PUOT «. 107-10 
•k: DRRU 176,0: NEXT |_ 

9812 FOR ksO TO 2: PLOT 68,43-10 
«k : DARU 48,0: NCXT k 

9813 PRINT 90; RT 0,8; INK ink; P 
RPER Paper; "Ł— 1 — 1 — 1 " 

9814 FOR k-0 TO 3: PLOT 44k#16.5 
9: DRRU 0,40: NEXT k 

9818 FOR k-0 TO 3: PLOT 68*16«k, 
0. DRRU 0,171: NEXT k 
9816 FOR k s0 tO 3: PLOT 132+ktl8 
,50: DRRU 0,48 NEXT k 

9020 FOR k-0 TO 0: PLOT 132*4 f 18 
,123: DRRU 0.32: MEXT k: FOR k-0 
TO 2: PLOT 132 , 123>k *16 : DRRU 3 


2,0: NEXT k 

0021 FOR k-0 TO 2: PLOT 132+ktl6 
,11: DARU 0.32: NEXT k: FOR k-0 
TO 2: PLOT 132 , ll4k #16: DRRU 32, 
0: NBCT k 

9022 FOR k-0 TO 2: PLOT 20*k*16, 
11: DRRU 0,32: NEXT k: FOR k-0 T 
O 2: PLOT 20,ll*k»18: ORRU 32,0: 
NEXT k 

0023 FOR k-0 TO 2: PLOT 20+k*16, 
123: DRRU 8,32: NEXT l: TOR k *0 
TO 2: PLOT 20 , 123*k *18 : DRRU 32, 

0: NEXT k 

9830 PLOT 197,106: DRRU 45,0: DR 
RU 0,-45: DPRU -45,0: DRRU 0,45 

9832 FOR X — 1 TO 4: GO SUB 9880 . 
NEXT X : GO SUB 9840 

9833 IF auto =4 THEN PRINT RT 0 . 2 


, , . ip»-pton";R 

T 18,23; "<r>-ruch";RT 19.23;”<s> 

-stop";RT 20,23; , <a>-atryb" 

9835 RETU RN 

9841 FOR 4 : 

GO SUB 8430 *NEXT k NEXT X 
9843 RETU RN 

9850 REM | 

9851 FOR 

1, k) , b (x ,2, ki ; PAPER i Cx , 

Paper, CHR* i(X,4): NEXT 
9352 RETURN 

9900 REH BBHMD 

9901 DRTR BIN 08011000 

9902 DRTR BIN 01111110 

9903 DRTR BIN 01111110 

9904 DRTR BIN 11111111 

9905 DRTR BIN 11111111 

9906 DRTR BIN 01111110 

9907 DRTR BIN 01111110 


DATA BU^M11000 
DRTR 

DRTR BIN ©©fil®#® 

DRTR Sin OO0H000 . 

DATA BIN 11111111 
DATA BIN 11111111 

data bin 

DRTR BIN | 

DRTR , 



9922 

9923 

9924 

9925 

9926 

9927 

9928 
999# 
MSI 
9932 


11111111 


9933 DATA BIN 11000011 

9934 DRTR BIN 11O0OO11 

9935 DATA BIN 11009011 

9936 DRTR BIN 11009011 

9937 DRTR BIN 11111111 

993B DRTR 

9950 ReH I 

9951 DRTR 


■ M W 


ł,ia,a, 1375 , 13,7, 

u, w, 13, 9, 15, 9, 17,9, 10,9,21,11,2 
1, 13,21,13, 19,13,17. 13,15.13, 13, 
15,13, 17,13,19,13,21. 13,21,11 
9952 DRTR 21,9,19,9,17,9,15,9,13 
,9.13,7,13,8,13,3, 13,1,11,1.9,1, 
9, 3. 9. 5. 9 , 7, 9. 9, 7. 9, 5, 9. 3. 9. 1.9 

9955 REM BMIMlWB 

9956 DRTR 3,11,5.11,7,11,9,11 

9957 DRTR 11,19,11,17,11,16,11,1 
3 

9958 DRTR 19,11,17,11,15,11,13,1 


61 DATA 3, 3,3. B. 5, 3, 5,8 

62 DATA 3,17,3.10.5,17,5,19 

83 BATA 17,17,17,19,19,17,19,1 


DATA. 

REH | 


17,3. 17 . B , 19,3.19,5 



9971 DRTR 

9972 DATA 

9973 DRTR 

9974 DRTR 

9975 DRTR 

9976 DRTR 

9977 DRTR 

0960 REM » 

9961 DRTR BIN O0OBOOOO.BIN 00001 
oee.BiN eoeeieee.BIN 00001000 

9962 DATA BIN 00080000, BIN 00001 
000, BIN 00001008, 8 IN 00001000 

9983 DATA BIN 00800000, BIN 00001 
900 , BIN 00001080, BIN 09001000 

9984 DRTR BIN 00080000, BIN 00001 
000. BIN 0OO01OO0 .BIN 00001090 
9986 ORTR BIN 11111111, BIN 0001 
111, BIN 11111111, BIN 11111000 
9986 DRTR BIN 00000000. 8IN 0001 
000 , BIN 00000000, BIN 0*000000 
90B7 DRTR BIN O0O00O00.BIN 00000 
000, BIN 00000000.BIN 0*000000 
9986 DRTR BIN 00000000.BIN 00000 
900, BIN 00000000 , B IN 0O0O0000 

111 ! 

E 1: UERIFY "chińczyk" 
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Jak płynnie i szybko przesuwać... 

Danuta KWASIŻUR, Mieczysław SKONIECZNY 


BASIC mikrokomputera AMSTRAD pozwala na ..płynny" ruch 
dowolnych obiektów na ekranie dzięki odpowiedniemu zastoso- 
waniu instrukcji TAG. MOVE oraz właściwie zorganizowanej pętli 
FOR To narzędzie satysfakcjonuje użytkownika przy małych wy- 
miarach obiektu (powierzchnia kilku znaków). Im większy obiekt 
tym satysfakcja coraz mniejsza. „Płynność" okazuje się ruchem 
skokowym (każdy wiersz jest przesuwany osobno), co daje się za- 
uważyć na ekranie, a i szybkość takiego ruchu pozostawia wiele 
do życzenia. 

Mankamenty te można usunąć stosując odpowiednio sparame- 
tryzowane podprogramy w języku wewnętrznym. Chcemy zapre- 
zentować i omówić 4 podprogramy, które przesuwają dowolnie 
zadeklarowany obiekt w 4 kierunkach: 

— do góry (ruch pionowy) 

— na dół (ruch pionowy) 

— w lewo (ruch poziomy) 

— w prawo (ruch poziomy) 

Ilustracją zastosowania ww podprogramów jest program de- 
monstracyjny. który steruje ruchem obiektu dość dużego (6x9 
znaków) po ekranie mikrokomputera w 4 kierunkach. Oczywiście 
wymiar obiektu jest zmienny, co nie ogranicza stosowania pod- 
•programów. Dla czytelników, którzy pokuszą się o wprowadzenie 
programu demonstracyjnego z klawiatury do pamięci mikrokom- 
putera i zainicjują jego działanie, kształt ruchomego obiektu będzie 
niespodzianką (patrz instrukcje 50—150) 

W wierszu 40 określono wymiary ruchomego obiektu graficzne- 
go: 

XI — szerokość obiektu (w znakach) 

Y1 — wysokość obiektu (w znakach) 

W naszym wypadku XI =9. Y1=6, a więc obiekt ma powierzch- 
nię 54 znaków. Deklarowany obszar, który zostanie przesunięty, 
/est traktowany jak prostokąt Poszczególne fragmenty programu 
realizują następujące czynności: 

210—270 — wywołanie podprogramu na ruch poziomy w pra- 
wo. Zmienne x,y w wierszu 240 określają współrzędne znakowe 
prawego, górnego rogu obiektu. 

280—360 — wywołanie podprogramu na ruch p.'£*n owy w góro 
Zmienne x.y w wierszu 31 0 określają współrzędne znakowe lewe- 
go. górnego rogu obiektu. 

410—480*— wywołanie podprogramu na ruch poziomy w lewo. 
Zmienne x,y w wierszu 370 określają współrzędne znakowe lewe- 
go, górnego rogu obiektu. 

500—580 — wywołanie podprogramu na ruch pionowy w dół. 
Zmienne x,y w wierszu 390 określają współrzędne znakowe lewe- 
go. dolnego rogu obiektu. 

Współrzędne, którego rogu należy podać dla odpowiedniego ru- 
chu, pokazuje poniższy rysunek (strzałkami oznaczono kierunek 
ruchu). 



Zmienna L we wszystkich wypadkach określa, o ile znaków na- 
leży przesunąć obiekt. 

Pomocniczą rolę odgrywa podprogram: 


10 MODĘ li INK 0.0 

20 SPEED INK 20,20: INK 1. 26.4: INK 2.14.26 
30 PAPEP 0: BOEDER 0:CLS:PEN 1 
40 vl*6:xl*9 

50 LOCATE 7. ?: PRINT CHRf (213): CHR$ (1431: CHR« (143): CHR« (215) 

60 LOCATE 8. 10:PRINT CHR*(213):CHR«(143):CHR$(143):CHRS(215> 
70 LOCATE 9. 1 lsPRIHT CHRf (212): CHR« ( 143) : CHR$ (143): CHRt ( 21 5) 
90 LOCATE 9. 12: PRINT CHRt (214) : CHRf ( 143) : CHRt ( 143) :CHR< (212) 
90 LOCATE 8, 13:PRIHT CHRf (214): CHRf ( 143) : CHRf < 143) s CHRf (212) 
100 LOCATE 7, 14: PRINT CHRf (214) : CHRf ( 143) ? CHRf ( 143) sCHRf (2124 
110 GRAPHICS PEN 1* 

120 PLOT 192. 222: ER AMR 46, 46: PLOT 192. 222: DRAUR 46,-46 
130 PEN 2: LOCATE 16, 12:PRINT a lNF0RtlATYKN* 

140 LOCATE 16, 13:PRINT , K0lłPUTERY ł 
150 LOCATE 16,14:PRINT-SYSTEHY- 
160 FOR tM TO 500:NEXT 
170 x»7:v*9: 1*6: GOSUB 1020 
180 60SUE 410 

190 xM:vM4:lMl:60SUB 1020 
200 G0SUB 500 
210 60SUB 730 

220 P0KE i7F78.yl:P0KE l7FBl,2txl 

230 P0KE 67FBD, 21x1-1 :P0KE 17F9A, 79*2txl 

240 x *9: y*20: 1*31: GOSUB 1020 

250 P0KE l7F7B.nl: FOR Z*n2+1 TO 211 

260 FRAf1E:P0KE 17F7A. Zs CALL Ł7F76 

270 FOR tM TO 5:NEXT:NEXT 

280 60SUB 590 

290 P0KE l7F01.yllB:P0KE Ł7F5A,2!xl 

300 P0KE *7F60,2»xl 

310 x*32:y*20:lM9:60SU8 1020 

320 P0KE 67F74,n2:P0KE l7F75,nl 

330 FOR B=1 TO 1 

340 FOR CM TO 8 

350 P0KE Ł7F02. c: CALL 67F00 

360 FOR tM TO 2:NEXT:NEXT:FRANE:NEXT 

370 x *32 :y*l: 1*31: GOSUB 1020 

380 60SUB 410 

390 X*1 : Y*6: L*19: GOSUB 1020:G0SUB 500 
400 60T0 210 
410 GOSUB 950 

420 P0KE l7F78,yi:P0KE l7FBl,2txl 

430 P0KE Ł7FBD, 257-21 x 1 i P0KE &7F9A,Bl-2lxl 

440 POKE l7F7B,nl 

450 FOR 2*n2 TO N2-2I1M STEP -1 

460 POKE (7F7A,ZiCALL 17F76 

470 FRAHE: FOR t*l TO 5:NEXT:NEXT 

480 RETURN 

490 X=1:Y*6:LM9:G0SUB 1020 
500 60SUB 800 

510 POKE Ł7F01,ylt8:P0KE l7F5A.2lxl 

520 POKE l7F60,2txl 

530 POKE 17F74,N2:P0KE 17F75,N1*56 

540 FOR BM TO L 

550 FOR CM TO 8 

560 POKE Ł7F02,c:CALL 17F00 

570 FOR tM TO 2: NEXT: NEXT: FRAHE: NEXT 

580 RETURN 
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Który przelicza współrzędne znaKowe x,y na adresy tych znaków 
Oczywiście w mikrokomputerze AMSTRAD CPC 6128 adres po- 
czątkowy ekranu wynosi 491 52 

Podprogramy na ruch pionowy 

Podprogram na ruch w górę ma następującą postać: 

590 REETORE 610: FOR i=l7F00 TO 17F73 

600 READ v:P0KE i.v:NEXT 

610 DATA 1,0.1,42,116,127,16,93 

620 DATA 229.124,198,56,103,17,80,0,237,82,84 

630 DATA 93,225,197,229,213,205,95,127,209,98,107 

640 DATA 34,116,127,225,193,13,40,46,6,7,84,93,124 

650 DATA 198,8,103,197,229,213 

660 DATA 205,95,127,209,225,193,13,40,26,16,236 

670 DATA 84.93,124,214,56,103,213,17,80,0,237,90 

680 DATA 209,197,229,213,205,95,127,209,225,193 

690 DATA 24,207,54,0,84,93,19,1,0,0,237,176,201 

700 DATA 1,0,0,237,176,201,124,214,8,87 

710 DATA 93,229,98,107,34,116,127,225,24,187,201 

720 RETURN 

Podprogram na ruch w dół ma następującą postać: 

730 REST0RE 750: FOR i=l7F76 TO 67FA1 

740 READ v : P0KE i,v:NEXT 

750 DATA 1,8,0,33,39,192,84 

760 DATA 93,19,197,1,0,0,237,184,193,35,54,0 

770 DATA 13,40,6,17,0,8,25,24,234,5,40,12,124 

780 DATA 214.56,103,17,0,0,25,14,8,24,219,201 

790 RETURN 

Jedno wywołanie podprogramu daje efekt na ekranie przesu- 
nięcia obiektu o jedną linię (1 /8 znaku) odpowiednio w górę lub w 
dół. Adres początkowy (ustalony po wyjściu z podprogramu 1 020) 
obiektu jest ładowany do adresów & 7F74 i & 7F75 za pomocą ins- 
trukcji POKE (wiersze 320 i 530 programu demonstracyjnego) 
Jak widać w wierszach 800 i 590 oba podprogramy są wymiennie 
ładowane w ten sam obszar pamięci określony adresami & 7F00 
- & 7F73. 

Podprogramy na ruch poziomy 

Podprogram na ruch w prawo ma postać: 

800 REST0RE 820: FOR i=l7F00 TO I.7F73 

310 READ v:P0KE i,v:NEXT 

820 DATA 1,0,1,42,116,127,16,93,229 

330 DATA 124,214,56,103,17,80,0,237,90,84 

840 DATA 93,225,197,229,213,205,95,127,209 

350 DATA 98,107,34,116,127,225,193,13,40,46 

860 DATA 6,7,84,93,124,214,8,103,197,229,213 

870 DATA 205,95,127,209,225,193,13,40,26,16,236 

880 DATA 84,93,124,198,56,103,213,17,80,0,237,82 


O ,^BTSW\ 

890 DATA 209, 197, 229, 213,^05, 95, 127 

900 DATA 209,225,193,24,207 

910 DATA 54,0,84,93,19,1,0,0,237,176,201 

920 DATA 1,0,0,237,176,201,124,198,8,87 

930 DATA 93,229,98,107,34,116,127,225,24,187,201 

940 RETURN 


Podprogram na ruch w lewo ma postać: 


950 REST0RE 970: F0P i=l7F76 TO 17FA1 

960 READ v:P0KE t,v:NEXT 

970 DATA 1,8,0,33,36,192,84,93 

980 DATA 27,197,1,0,0,237,176,193,43.54,0 

990 DATA 13,40,6,17,0,7,25,24,234,5,40,12,124 

1000 DATA 214,56,103,17,0,0,25,14,8,24,219,201 

1010 RETURN 


Jedno wywołanie podprogramu daje efekt na ekranie przesu- 
nięcia obiektu o pół znaku odpowiednio w lewo lub w prawo. Adres 
początkowy jest analogicznie ustalony w podprogramie 1 020 i ła- 
dowany za pomocą instrukcji POKE pod odpowiednie adresy. Oba 
podprogramy są wymiennie ładowane w ten sam obszar pamięci 
(& 7F76-&7FA1). 

Wszystkie opisane wyżej podprogramy przesuwania wykorzy- 
stują następujące rejestry: 

bc — przechowuje liczbę, określającą wielkość obiektu; 

hl — przechowuje adresy obiektu; 

de — roboczy do obliczania adresów. 

Wywołanie odpowiedniego podprogramu w języku wewnętrz- 
nym w programie użytkowym ma postać 


CALL adres startowy 

gdzie adres startowy jest początkiem obszaru rozmieszczania 
podprogramu w pamięci (odpowiednio & 7F00 — ruch pionowy i 
& 7F76 — ruch poziomy). 

Odpowiednie efekty na ekranie otrzymuje się przez umiejętne 
zorganizowanie pętli FOR wykorzystującej parametry wl i w2 
(otrzymane z podprogramem 1020) oraz L 

1020 A=(Y-i)t80*(x-l)l2 
1030 N1 S INT (a/256) 

1040 N2=a-Nlt256 
1050 wl=192**l • 

1060 RETURN 

Efekt spowolnienia ruchu może użytkownik uzyskać przez od- 
powiednie zastosowanie pętli FOR w postaci: 

FOR i=1 to T: NEXT 

gdzie T jest uzależniony od wymogów ruchu. 

Na zakończenie życzymy zainteresowanym czytelnikom cier- 
pliwości we wprowadzaniu programów oraz ciekawych efektów 
przy formowaniu własnych, odpowiednio zdefiniowanych obiek- 

Danuta KWASIŻUR 
Mieczysław SKONIECZNY 


s Rakieta 
n w cel 

W rejon bronionego przez 
ciebie odcinka pola walki nadle- 
ciał nieprzyjacielski helikopter. 
Ustaw więc odpowiednio kąt wy- 
rzutni, np. 40°, 70° itp. i odpal 
rakietę klawiszem „ENTER”. Z 
tej walki wyjdzie cało tylko je- 
den, gdyż w wypadku, kiedy 
nie trafisz w helikopter, zrzuci 
on na Twoją pozycję bombę. 

j.j. 


10 PRINT PT 20, 27; "J " 

15 INPUT B 

20 LET C=27*COSCPI*B/1603*COSC 
PI*B/180J 

25 FOR R=1 TO 19 
30 GOSUB 100 

• 35 LET N*27-INTCSQRCfl/19D*CJ 
37 R=1 THEN GOTO 50 
40 PRINT RT 21 -A, 27-INTC5QRC Cfi 
-13 7193 *C3 ; " " 

45 PRINT RT 19,2 7;" " 

50 PRINT RT 20-fl, N; "• " 

55 IF R*»l 9 AND A=N THEN GOTO 1 

20 

60 IF A* 19 THEN GOTO 70 
65 NEXT R 
70 FOR A=20 TO 27 
75 GOSUB 100 

76 IF A«27 THEN GOTO 130 
80 NEXT R 


100 PRINT RT 0, fl-2; " "; RT 1 

, fl-3; *’ 

105 PRINT RT 0, A-l;" - RT 1 
, R-2; "—H" 

110 PRINT RT 0, A-l RT 1 

, R-2; "*-er 

115 RETURN 

120 PRINT RT 0, 18; " 

125 FOR A=1 TO 2© 

127 PRINT RT A-l, 17; " "; RT 

R, 17; 

128 IF A=20 THEN GOTO 140 

129 NEXT R 

130 FOR A=3 TO 20 

132 PRINT RT fl-1, 27; " RT R, 
27;"*" 

134 IF A=20 THEN STOP 

135 NEXT fl 

140 PRINT RT 5, 10; "RAKIETA TRfl 
FILA" 
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ZX-81 

POLE 

MINOWE 

Twoim zadaniem jest przejście przez pole mino- 
we do punktu oznaczonego na ekranie literą „X”. Po 
każdym ruebu gwiazdki wskutek drgań, następuje 
eksplozja dziesięciu min oznaczonych literą „M”. 
Jeżeli któraś z min wybuchnie w miejscu znajdowa- 
nia się gwiazdki, następuje zakończenie gry, gdy 
nie, możesz zabawę kontynuować. Ruch gwiazdce 
nadaje się za pomocą klawiszy: 5, 6, 7, 8. Gdy prze- 
stanie zadowalać cię stopień trudności, możesz 
zmienić ilość wybuchających min. Dokonuje się te- 
go przez zwiększenie lub zmniejszenie cyfry 10 w 
wierszu o etykiecie 25, 

JJ- 


1 REM *********************** 

2 REM * POLE MINOWE * 

3 REM * ZX-81 * 

4 REM *********************** 

5 LET fi=7 
10 LET B=7 

15 PRINT fiT 7, 14; "X" 

20 PRINT PT fi, B;”*" 

25 FOR 1=1 TO 10 
30 LET X=INTCRND*14+1J 
35 LET Y=INT C RND* 1 4+ 1 D 
40 IF CX=7 fiND Y=14J 0R X=7 fi 
ND Y=03 THEN GOTO 30 
45 PRINT AT X, Y; "M" 

50 IF X=fl HND Y=B THEN GOTO 1 

10 

55 NEXT I 
60 INPUT fli 
65 PRINT fiT fl, B;" " 


70 

IF 

fi*="8" 

THEN 

LET 

B=B+1 

75 

IF 

fi*="5" 

THEN 

LET 

B=B-1 

ee 

IF 

ft*="6" 

THEN 

LET 

fi=fi+ł 

65 

IF 

A*="7" 

THEN 

LET 

fl=fl-l 


30 IF fl=7 AND 6=14 THEN GOTO 
100 

35 GOTO 20 

100 PRINT " WYGRAŁEŚ 1 1 

105 STOP 

110 PRINT "JUZ PO TOBIE !" 


ATARI 

Drugie prawo dynamiki 


0 REM *** DRUGIE PRAWO DYNAMIKI 
*** 

1 DIM A* <200) : A* 3 " 


2 A* <21.. 100)*" DRUGA ZASADA.. 

DYNAMIKI 


6 GRAPHICS 2 ; POKE 752/ 1 POKE 710 
/ 0 : POSITION 0,3 

7 FOR T=1 TO 76 * SOUND 0,RND<0>*5 
0/12/15=? #6;A#<T,T>; < SOUND 0.0/ 
0/0 

8 FOR C=1 TO 1500 STEP TNEXT C' 
NEXT T 

9 ? " NACISNIJ DOWOLNY KLAW 

ISZ" 

10 OPEN #1/4.0/ "K'"'GET #1,6 

20 GRAPHICS 1+16'? #6;" KLAWI 
SZ NR 1 CZESC TEORETYCZNA"'? 
# 6 ;" " 

30 ? #6;" KLAWISZ NR 2 CZ 
ESC SYMULACYJNA" TRAP 20 
40 GE1 # 1 / S 1 S=S-48 = ON S GOTO 100 
,212 

50 GOTO 40 


100 REM 

105 REM CZESC TEORETYCZNA 

110 REM 

115 GRAPHICS 0 ' POKE 710,0 'POKE 8 
2,1 'POKE 752,1 'POKE 709,0 
120 ? CHR#< 125) ' ? CHR# < 127) ; " D 
RUGA ZASADA DYNAMIKI "> CHR# <29 ) 
125 ? "Jeżeli na ciało działa st 
ala siła, to" 

130 ? "Porusza sie ono wzaledem 
inercjalnego układu"; 

135 ? " odniesienia ruchem jedno 
stajnie zmiennym z przyspie"; 

140 ? "szeniem wprost pro- PorcJ 
onalnym do si ly , 

145 ? "a odwrotnie pro- porcjon 
alnym do masy ciała." 

150 ? "Kierunek i zwrot wektora 
przy ", 

155 ? "spieszeniasa zeodne z kie 
runkiem i",'? " zwrotem wekto-"; 
168 ? "ra siły."'? =? =? '? CHR# 
<127); "NACISNIJ DOWOLNY KLAWISZ" 
165 FOR T=0 TO 10 STEP 0.3 POKE 
709, T ' NEXT T'GET #1,S 
170 ? CHR#< 125) 1 ? CHR#< 127) ; " DR 


J. GOLLA 

UGA ZASADA DYNAMIKI" 

175 ? CHR#<127); "SILR=MASA*PRZYS 
PIESZENIE" 

176 ? CHR#< 127), CHR#< 127); "_ _ 


180 ? CHR#<127);CHR#<127>; "F=m*a 
" ; CHR# < 29) 

185 ? CHR# <127)," PRZ YSP I ESZEN I E= 
S I LA/MASA " ; CHR# < 29 ) 

186 ? CHR# <127), CHR# < 1 27 ) ; " _ 

190 ? CHR# <127) ,CHR# <127); "a*F/m 
" ; CHR#<29) 

195 ? "Przebyta DROGA jest wproś 
t proporcjo- nalna do"; 

200 ? " przyspieszenia w stałych 
prze-dzialach czasowych." 

205 ? '? '? '? '? 

210 ? CHR#<127); "NACISNIJ DOWOLN 
Y KLAWISZ" GET #1,S 
212 GRAPHICS 2 

215 ? #6; "przyspieszenie jest 
proporc Jonalne do siły" 

REM Tekst napisz w I NVERSE VIDE 

0 

220 ? #6; "PRZYSPIESZENIE JEST 00 


26 


WROTNIE PROPORCJO- HALNE DO M 
ASY" 

223 POKE 710,0 'POKE 752/1 
230 ? " DOWOLNY KLAW I SZ : WYBÓR 

SYMULACJI." 

235 ? CHR$< 127) ; "RETURN TO START 
SYMULACJI." 

240 GET #1 , S = IF S=155 THEN ON A 

GOTO 1000/2000 

245 IF L»0 THEN POSITION 2,7 = ? * 
6; "mas* jest stała" : REM Tekst na 
Pisz w INVERSE VIDEQ=A=2= GOSUB 2 

70 

250 L— 1-L 

255 IF L*0 THEN POSITION 2/7=? 4 
6 ) "SILĄ JEST STAŁA" =A=1 'GOSUB 26 

5 

260 GOTO 240 

265 POKE 708/ 15' POKE 711,3'RETUR 

N 

270 POKE 711/ 15 POKE 708,3'RETUR 

fi 

1000 REM 

1010 REM SILĄ JEST STAŁA 

1020 REM 

1040 GRAPHICS 0 = POKE 710,0'PGSIT 
ION 12/2=? "SILĄ JEST STAŁA" ;CHR 
*(253) 

1050 POSITION 14,4 ? "F1=F2=F3=1 
N" = IF X=1 THEN X=0 = GOTO 1400 
1060 POSITION 2 ,20=? "MASA WOZKO 
W MOZĘ PRZYJMOWAĆ" 

1070 ? "WARTOŚĆ 1/2, 3, 4 lub 5 ka 

1080 POSITION 2/15=? "PODAJ MASĘ 
NR 1 ?"/CHR$<253>/ GET #1,M1 
1090 M 1 =M 1 -48 = I F M 1 > 5 OR Ml <1 TH 
EN '■ =? " ZLA WARTOŚĆ." GOTO 1080 
1100 POSITION 10,8=? "Ml=" ,M1 , "k 
a" 

1110 POSITION 2,16 ? "PODAJ MASĘ 
NR 2 ?"/ CHRf ( 253 > ; « GET #1, M2 

1120 M2=M2-48 IF M2>5 OR M2<1 TH 
EN ? =? " ZLA WARTOŚĆ" -GOTO 1110 
1130 POSITION 17,8? "M2=";M2;"k 

a" 

1140 POSITION 2/17=? "PODAJ MASĘ 
NR 3 ?";CHRf <253); =GET #1,M3 
1150 M3=M3-48 = IF M3>5 OR M3<1 TH 
EH ? =? " ZLA WARTOŚĆ" = GOTO 1140 
1160 POSITION 25,8=? "M3=";M3;"k 
a" >? CHR$ < 29 ) ; CHR$ < 29 ) 

1170 ? "CZY MASY SA PODANE PRAWI 
DLOWO<VN) ?";CHR*<253); GET #1, 
S 

1180 IF S*84 THEN GOTO 1200 
1190 GOTO 1040 

1200 H“0 > I F MK-412 AND Ml <=M3 TH 
EN M=M1 = GOTO 1220 
1210 M=M3 = IF M2<=M3 THEN M=M2 
1220 GRAPHICS 7 = SETCOLOR 4,4,4 
1 230 COLOR 1 = SETCOLOR 0,1,0 = PLOT 
1,10 

1240 DRAWTO 159, 10= PLOT 1,40 DRA 
WTO 159, 40= PLOT 1,70= DRAWTO 159, 
70 

1250 FOR T=18 TO 159 STEP 14.1-P 
LOT T , 1 1 = PLOT T, 41= PLOT T,71=NEX 
T T 

1260 PP=PEEK <106) -32 = POKE 106, PP 

-32 POKE 54279, PP 

1270 ? CHR$< 127); "PROSZĘ POCZEKA 

C 10 SEKUND !"= POKE 559,62 

1280 PL=PP*256+ 1 024 = FOR I=PL TO 

PL+ 1024 = POKE 1,0 = NEXT I=POKE 532 

77,3 

1290 POKE 704, 8 'POKE 705, 15= POKE 
706,1 

1300 POKE 53256,1= POKE 53257, 1=P 
OKE 53258,1 

1310 POKE 53248, 50= POKE 53249,50 
POKE 53250,50 

1320 RESTORE 1510 = P=FL+51 = FOR 1= 
P TO P-6*Ml-5 STEP -1 

1321 READ B = POKE I,B=NEXT I 
1330 RESTORE 1510 = P=PL+367 = FOR I 
=P TO P-6*M2-5 STEP -1 


1331 READ B = POKE !,B = NEXT I 

1340 RESTORE 1510^P*Pt+€«3’FOR I 
=P TO P-6*M3-5 STEP -1 

1341 READ B 1 POKE I,B=NEXT I=GOSU 
B 6000 

1350 ? CHR$ < 28 ) ; " KAŻDY KLAWISZ T 
O START SYMULACJI " 

1360 ? "SPACJA TO WYKONANIE OBLI 
CZEN CWICZ." = GET #1,S 
1370 IF S=32 THEN X=1=PGKE 106.P 
P+ 1 6 = POKE 53277, 0 = GOTO 104O 
1380 H=© = GOSUB 7020 GOTO 1540 

1390 REM 

1400 REM BLOK OBLICZENIOWY 

1405 REM 

1410 POKE 53248,0= POKE 53249,0=P 
OKE 53250,0 

1420 POSITION 8,6=? "rol*";Ml ; "ka 
" , "m 2=" ; M2; "ka " , "m3=" ; M3; "ka " = ? 

s? 

1450 GOSUB 9000 

1455 POSITION 7,14=? "al=";INT<< 
1/M1)*100>/100; 

1456 ? " a2=",INT(<l/M2)*100)/10 
0; 

1457 ? " a3="; INT<<1/M3)*100)/10 
0; " Cm/s A 2D " 

1460 POSITION 7,16=? "S1=";<M*10 
8)^1 'POSITION 14,16 ? " S2="; <M 
*100)/M2 

1465 POSITION 22,16'? " S3=";<M* 
100)/M3 

1470 POSITION 30,16=? " "= 

? ■? 

1480 ? CHR$< 127); "KLAWISZ N TO N 
OWA SYMULACJA" 

1490 ? " INNY KLAWISZ TO POWR 
OT DO MENU" 

1495 GET #1 ,S= IF S=78 THEN GOTO 
1040 

1500 GOTO 20 

1510 DATA 66,66,231,165,231,0,25 

5 . 255 . 255 . 255 .255.0. 255 . 255 . 255 , 
255 

1520 DATA 255,0,255,255,255,255, 

255 . 0. 255. 255 . 255 . 255 .255.0 
1530 DATA 255,255,255/255,255,0. 
0,0 

1540 ? CHR$<28) ; CHRf <28) ; "KAŻDY 
KLAWISZ ZATRZYMUJE SYMULACJE" 
1560 D=H ,S 2 

1570 POKE 53248, 50+D*Cl/Ml)= POKE 
53249 , 50+D* < 1 /t12 ) 

1575 POKE 53250, 50+D»(l/M3) 

1580 IF (1/M)*D+40>177 THEN 1350 
1590 IF PEEK< 764 >0255 THEN FOR 
T=1 TO 100 = NEXT T = POKE 764, 255 = G 
OTO 1350 

1600 H=H+0. 44 = GOTO 1560 

1900 REM 

1950 REM MASA JEST STAŁA 

1960 REM 

2000 GRAPHICS 0 POKE 710.0=POSIT 
ION 12,2? "MASA JEST STAŁA" ;CHR 
f <253) 

2010 POSITION 12,4'? "ml«w2=m3=l 
CkaT" = IF X=1 THEN X=0 = GOTO 3400 

2015 POSITION 2,20? "SILĄ DZIAŁ 
AJACA NA WÓZEK MOZĘ" 

2016 ? "PRZYJMOWAĆ WARTOŚĆ 0,1,2 
,3,4 lub 5CN3 " 

2020 POSITION 2,15? "PODAJ SILE 
NR 1 ? " ; CHRt < 253 ) ; GET # 1 , F 1 

2022 F1-F1-48IF Fl>5 OR FI <0 TH 
EN ? '? " ZLA WARTOŚĆ" =GOTO 2020 
2025 POSITION 5,8'? "F1=";F1;"CN 
J" 

2030 POSITION 2,16'? "PODAJ SILE 
NR 2 ?",CHRt<253) , 'GET #1,F2 
2032 F2»F2-48=IF F2>5 OR F2<0 TH 
EN ? =? " ZLA WARTOŚĆ" 'GOTO 2030 
2035 POSITION 15,8=? "F2=",F2/"C 
ND" 

2040 POSITION 2,17'? "PODAJ SILE 
NR 3 ?",CHR$<253>; =GET #1,F3 
2044 F3=F3-48 = IF F3>5 OR F3<0 TH 
EN ? =? " ZLA WARTOŚĆ" = GOTO 2040 


2050 POSITION 25,8'? "F3=";F3;"C 
NJ"-? "" 

2060 ? "CZY SIŁY SA PODANE PRAWI 
DLOWO<T/N) ? " , CHRS < 253 ) ; GET #1, 

S 

2070 IF S=84 THEN GOTO 2100 
2075 GOTO 2000 

2100 H=0 ' IF F1>=F2 AND F1>*F3 TH 
EN F**F1 'GOTO 3000 
2300 F=F3 = IF F2>=F3 THEN F=F2 
3000 GRAPHICS 7 SETCOLOR 4,4,4 

3004 COLOR 1= SETCOLOR 0,1,0 PLOT 
1,10 

3005 DRAWTO 159, 10= PLOT 1,40= DRA 
WTO 159, 40 =PLOT 1,70 'DRAWTO 159, 

70 

3007 FOR T=18 TO 159 STEP 14.1=P 
LOT T, 11 =PLOT T, 41 PLOT T,?1=NEX 

T T 

3010 PP=PEEK< 106) -32 ' POKE 106, PP 
-32 -POKE 54279, PP 
3015 ? CHR* <127);" PROSZĘ POCZEKA 
C 10 SEKUND !"= POKE 559,62 

3020 PL=PP*256+1024 = FOR I=F'L TO 
PL+ 1024 = POKE 1,0 = NEXT I=POK.E 532 
77,3 

3021 POKE 704, 15 =POKE 705,15=POK 
E 706,15 

3022 POKE 53256,1 =POKE 53257, 1=P 
OKE 53258,1 

3023 POKE 53248, 50 'POKE 53249,50 
'POKE 53250,50 

3030 RESTORE 4000 = F-PL+27 = FOR 1= 

P TO P+34 = READ B'POKE I ,B = NEXT I 
3040 RESTORE 4000 = P=PL+343 ; FOR I 
=P TO P+34 =READ BPOKE I,B=NEXT 
I 

3050 RESTORE 4000 =P=PL+659 FOR I 
=P TO P+34 READ B=POKE I,B NEXT 
I 

3060 GOSUB 7050 

3070 ? CHR$<28>; "KAŻDY KLAWISZ T 
O START SYMULACJI " 

3080 ? "SPACJA TO WYKONANIE OBLI 
CZEN CWICZ. "GET #1,S 
3090 IF S=32 THEN X=1=P0KE 106, P 
P+16'P0KE 53277, 0 = GOTO 2000 
3100 H=0= GOSUB 7020 'GOTO 4560 

3399 REM 

3400 REM BLOK OBLICZENIOWY 

3401 REM 

3402 POKE 53248,0 'POKE 53249,0'P 
OKE 53250,0 

3410 POSITION 8,6? "F1=";F1;"CN 
3", "F2=";F2; " CN3 " , "F3=" ;F3; "CN3" 

, '? '? 

3417 GOSUB 9000 

3420 POSITION 8,16=? "S1=";<F1*1 
00)/F=POSITION 16,16=? " S2=" ; <F 
2*100)/F 

3421 POSITION 24/16=? " S3*";INT 
<<(F 3*100)/F)*100)^100 

3422 POSITION 9,14>? "al»";Fl=PO 
SITION 16,14=? " a2=";F2 

3423 POSITION 24,14=? " a3=";F3; 

" Dr./s A 2D":? '? '? '? 

3450 ? CHR$< 127); "KLAWISZ N TO N 
OWA SYMULACJA" 

3460 ? " INNY KLAWISZ TO POWR 
OT DO MENU" GET #1,S=IF S=78 THE 
N 2000 

3470 GOTO 20 

4000 DATA 255,255,255,255,255,25 
5,255, 255 , 255 , 255 , 255 , 255 , 255 , 25 

5,255 

4010 DATA 255,255,255,255,255,23 
1,165,231,66/66,0,0,0,0/0,0,0/0/ 
0 / 0 , 0,0 

4560 ? CHR$<28);CHR*<28); "KAŻDY 
KLAWISZ ZATRZYMUJE SYMULACJE" 

4565 D=H' S 2 

4600 POKE 53248, 50+D*Fl =POKE 532 
49 , 50+D*F2 = POKE 53250 , 50+D*F3 
4610 IF F*D+40>178 THEN 3070 . 

4615 IF PEEK< 764) 0255 THEN FOF p 
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>t=i ‘to a© t 1 - 3*3^; 

OTO 3070 

4620 H=H+0. 13 ; GOTO 4565 

6000 COLOR 2 : RESTORE 6010 FOR T= 

1 TO 15 REńD 8,B,C,D PLOT 8,B 

6001 DR8WT0 C,DNEXT T= RETURN 
6010 D8T8 18, 6, 70, 6, 68, 5, b9, 5, 68 
,4,68,4,68,7,69,7,68,8,68,8 

7000 D8T8 18,36,70,36,68,35,69,3 
5 , 68 , 34 , 68 , 34 , 68 , 37 , 69 , 37 , 68 , 38 , 
68,38 

7001 D8T8 18,66,70,66,68,65,69,6 
5,68,64,68, 64,68,67,69,67, 68, 68, 
68,68 

7020 COLOR 0 fl=4 GOSUB 7030 8=34 
= GOSUB 7030 8=64 : GOSUB 7030 RETU 
RN 

7030 FOR T=8 TO 8+4 • PLOT 0, T ! DRfi 
WTO 90, T NEXT T 

7040 ? CHRf <28> ; "SIŁY DZI8L8J8 D 
O ZRTRZYMRNIR WÓZKÓW RETURN 

7050 COLOR 2 : RESTORE 8000 : PLOT 1 
8,6 : DR8WT0 18+14*F1 , 6 = 8=14*F1 * B= 
4 

7051 GOSUB 7100 

7055 RESTORE 8000 PLOT 18,36 : DR8 
WTO 18+14*F2,36‘8=14*F2‘B=34 

7056 GOSUB 7100 

7060 RESTORE 8000 PLOT 18,66 DRfl 
WTO 18+14*F3,66 8=14*F3 B=64 

7061 GOSUB 7180 RETURN 

7100 FOR T=1 TO 5 : RE8D C-PLOT 18 
+8,B DRBWTO C+8 , B : B=B+ 1 : NEXT T 

7101 RETURN 

8000 D8T8 18,19,20,19,18 

9000 ? “DROGI WÓZKÓW S8 WYR8Z0NE 
W LICZB8CH" 

9001 ? "NIEMI8N0W8NYCH. DR0G8 N8J 
SZYBSZEGO" 

9002 ? "W0ZK8 Z0ST8L8 PRZYJETR J 
8K0 100. " ■? RETURN 


* SUMA KONTROLNA / ETYKIETA * 


MY 


201 KY 


QH 1001 CA 
BR 1201 BY 
NK 1401 NR 
CR 1601 OF 
MG 1761 RR 
WG 1301 AZ 
FT 2101 TR 
VJ 225 I ZD 
FV 2451 NE 
PX 2651 SE 
CG 10201 RC 
PR 10701 ZF 
CY 11101 CF 
MG 11501 XE 
PR 11901 LF 
CS 12301 GE 
IW 12701 SY 
QV 13101 EE 
DU 1331 I BC 
FR 13601 OS 
UM 14001 UC 
AY 14501 OY 
TY 14601 TI 
ZO 14901 PN 
MK 15201 EL 
JP 15701 ZG 
HP 16001 PJ 
EU 20001 XI 
PZ 20201 LL 
OK 20321 WH 
GK 20501 OZ 
UO 21001 WF 
GK 30051 RU 
SE 30201 JE 
FD 30301 TX 
RZ 30701 FT 
VT 33991 UO 
TZ 34101 BQ 
VB 34221 OG 
Ol 34701 OB 
CR 45651 XK 
MU 46201 CF 
GL 7000 1 BX 
MY 70401 YI 
BJ 70561 JQ 
PF 71011 PU 
LC 90021 


II GX 
81 XD 
301 PO 
1051 QJ 
1251 BY 
1451 TN 
1651 LA 
1801 PA 
1951 EV 
2121 DN 
2301 KF 
2501 JD 
2781 CA 
10401 TO 
10801 PC 
11201 RA 
11601 LW 
12001 VX 
12401 RJ 
12801 El 
13201 DR 
13401 LN 
13701 WO 
14051 UC 
14551 HW 
14651 PE 
14951 PN 
15301 TJ 
15751 MY 
19001 YG 
20101 PN 
20221 AT 
20351 ZD 
20601 YC 
23001 QT 
30071 UF 
30211 KG 
30401 DT 
30801 IA 
34081 TO 
34171 VY 
34231 HM 
40001 BG 
46001 DI 
60001 FZ 
70011 IB- 
70501 AP 
70601 JC 
80001 CP 


401 SN 
1101 AU 
1301 HE 
1501 AN 
1701 JU 
1851 FI 
2081 OK 
2151 EA 
2351 ZM 
2551 NV 
1000 I ZO 
10501 RY 
10901 KI 
11301 HT 
11701 YH 
12101 RB 
12501 UW 
12901 
13211 
1341 I 
13801 
14101 
14561 
14701 HT 
15001 DJ 
15401 BU 
YD 


KG 


JZ 


UO 


19581 
20151 
20251 
20401 VR 
20781 OP 
30001 CX 
30101 IW 
30221 RG 
38501 CP 
30901 AS 
34011 UJ 
34201 JA 
34501 ZR 
40101 TS 
46101 AW 
6001 I SI 
70201 YL 
70511 RG 
70611 WX 
90001 RM 9001 
|. 


115 
135 
155 
175 
186 
205 
220 
240 
268 
1010 
1060 
1100 
1140 
1180 
1220 
1260 
1308 
1330 
1350 
1390 
1420 
1457 
1480 
1510 
1560 
1590 
1960 
2016 
2030 
2044 
2075 
3004 
3015 
3823 
3060 
3100 
3402 
3421 
3460 
4560 
4615 
6010 ' 
7038 
7055 . 
7100 


ŻEGLOWANIE 


Nowa pasja, jaka ogarnęła Long Terry 
zaczęła się pięknego majowego dnia na 
lekcji historii cywilizacji ziemskiej. Wie- 
my, że nie należę one do najchętniej wy- 
słuchiwanych przez uczniów szkoły ele- 
mentarnego przygotowania do życia. 
Być może stary profesor Duck Long, 
mówiący monotonnym głosem i niezbyt 
często ilustrujący tezy wykładu ekspona- 
tami nie umiał zapalić do nich swoich 
uczniów. Tym razem jednak zamiast 
chorego profesora po włączeniu monito- 
rów uczniowie VI oddziału zobaczyli wy- 
sokiego eleganckiego mężczyznę o syl- 
wetce sportowca. Ten mając przed sobą 
pulpit, na którym włączyły się numery 
identyfikacyjne słuchaczy, uśmiechnął 
się szelmowsko i rozpoczął wykład. Mó- 
wił o sposobach pokonywania prze- 
strzeni wodnych na różnego rodzaju 
pływadłach bez silników. Większość 
uczniów nie dawała temu wiary, jak to 
bowiem może być możliwe, żeby gdzieś 
w odległych latach od ich XXX w. ludzie 
płynąc z szybkością przysłowiowego 
żółwia mogli pokonywać olbrzymie prze- 
strzenie oceanów i mórz. 

Kiedy po zajęciach dzielili się swymi 
uwagami Tom Caurt zaproponował: słu- 
chajcie możemy przecież spróbować 
zbudować coś takiego do pływania i 
sprawdzić. Praktycznie pomysł został 
przyjęty bez sprzeciwu. 

No ...i zaczęło się. Najpierw za po- 
mocą komputerów zgromadzili wiado- 
mości o żeglowaniu i żaglowcach, pó- 
źniej rozpoczęli opracowywanie doku- 
mentacji. Nie należało to do najszyb- 
szych i bezkolizyjnych zadań. Raz po raz 
musieli pokonywać bariery. Bo oto nie 
można było zdobyć drewna na budowę 
łodzi. Wszystkie drzewa w myśl konwen- 
cji o ochronie przyrody były objęte pra- 
wem. Jack wymyślił użycie serganu ma- 
sy plastycznej z ubiegłego wieku, imitu- 
jącej drewno, ale okazało się. że nigdzie 
jej już nie produkują. I kiedy sytuacja 
wydawała się bez wyjścia Tom Frank, 
który był z rodzicami na wycieczce, 
przywiózł wiadomość, że czterdzieści mil 
od miasta stoją opuszczone domy wyko- 
nane z tego materiału. Konieczne było 
uzyskanie zgody na rozebranie i trans- 
port. Koniec końców poszło łatwiej niż 
przypuszczali. Materiał zwieźli i trzeba 
było przystąpić do prac. Okazało się, że 
żaden z robotów nie potrafi wykonywać 
czynności związanych z obrabianiem ser- 
ganu. Dobrze, że ojciec Jacka jest pro- 
gramistą, napisał i zaprogramował dwa 
roboty i praca ruszyła. Zawsze po lek- 
cjach cały oddział VI był w swojej stoczni 
(takie starożytne słowo). Chłopcy przy- 
wiązali się do miejsca robót. Gdzieś na 
początku czerwca wszystko było gotowe. 
Długa na dwanaście metrów łódź z trze- 
ma masztami gotowa była do przetrans- 
portowania na wodę. Na wszelki wypa- 
dek zainstalowano na niej wyposażenie 
ratownicze, takie jakie mają pływoloty, 
ster automatyczny, wspomagane kom- 


puterem identyfikatory. I wtedy okazało 
się, że nie ma żagli i olinowań. Po długich 
poszukiwaniach zamiast figurującego w 
zapisach płótna żeglarskiego użyto ster- 
sonu, materiału używanego do ochrony 
przed deszczem. 

To było wielkie święto, kiedy łódź zos- 
tała spuszczona na wodę. Okazało się, że 
jest bardzo przyjemnie, kiedy kołysze się 
na falach. Przez najbliższe dni wszyscy 
uczyli się komend i czynności związa- ■ 
nych z obsługą pływadła. Instrukcje te 
zdobył gdzieś niezawodny jak zwykle 
Jack. I wreście nadszedł dzień pierwsze- 
go rejsu. Padły komendy, naciągnięto 
żagle i nic, żadnego ruchu. Ich pływadło 
pie chciało się ruszyć. W końcu jednak 
wypłynęli budząc olbrzymią sensację. 
Nauczyli się powoli manewrować swoim 
żaglowcem, wzmacniając lub osłabiając 
nadmuch i szło. Najgorzej było przy wy- 
konywaniu zwrotów. Z początku dopły- 
wali do jakiejś wyspy i tam opuszczali 
żagle, później zaczepiali liny i obracali 
statek, podnosili żagle i płynęli z powro- 
tem. Fajne to były przejażdżki. Rodzice z 
początku z pobłażaniem przyglądali się 
ich wyczynom, później z coraz większym 
zainteresowaniem. W tym czasie chłopcy 
nauczyli się manewrowania swoim stat- 
kiem. Ponieważ kończył się rok szkolny 
postanowili odbyć długi rejs. Gromadzili 
zapasy, zbierali wiadomości o warun- 
kach żeglowania. Podczas jednego z rej- 
sów, dopłynęli do domu wykorzystując 
wiatry. I to co niejasne stało się jasnym. 
Kiedy swą decyzję wypłynięcia w długi 
rejs zgłosili Radzie Obywatelskiej naty- 
chmiast znaleźli się dziennikarze, którzy 
chcieli razem z nimi płynąć. Na szczęście 
podczas jednej z przejażdżek większość 
zachorowała na starą, jak świat chorobę 
morską i mieli ich z głowy. 

Rejs ich był transmitowany na bieżąco. 
Prawie w każdym dzienniku pokazywano 
ich jak sobie radzą, a radzili sobie dob- 
rze. Kiedy powrócili do swego miasta 
czekali na nich rodzice i znajomi. Ale nie 
to było najważniejsze, nabrali tężyzny fi- 
zycznej, sprawności, jakiej nie miał nikt z 
ich kolegów. Rada Lekarska wydała wte- 
dy oświadczenie zmieniające dotychcza- 
sowy zakaz wykonywania prac fizy- 
cznych, dopuszczając je, gdyż rozwijają 
możliwości człowieka. 

Od ich powrotu nie było prawie dnia, 
aby ich statek nie był zwiedzany przez 
wycieczki szkolne, inżynierów, techni- 
ków. Dało się zauważyć również i to, że 
uruchomiono produkcję sergentu, a także 
budowę podobnych pływadeł. Te wkrót- 
ce zdominowały całe wybrzeże, co z ko- 
lei doprowadziło do konieczności wyda- 
nia określonych przepisów porządko- 
wych. 

Tylko chłopcy z VII już wtedy oddziału 
myśleli o nowym pomyśle. Miał nim być 
statek podwodny z XX w. Kiedy to piszę, 
przystąpili właśnie do jego budowy. 

Martin CARR 


28 


INFORMATYCZNY SŁOWNIK 
ANGIELSKO-POLSKI 

H 

HACKER — 1. programi sta, potrafiący pisać programy 
bez wstępnego zapoznawania się ze szczegółowym opi- 
sem, a także potrafiący nanosić poprawki do działa- 
jących programów, nie posiadając dokumentacji, 

2. użytkownik systemu komputerowego (sieci kompute- 
rowej) , zajmujący się poszukiwaniem sposobów dostą- 
pu do zabezpieczonych danych (włamywacz do zabez- 
pieczonych programów, systemów łub baz danych), 

HALF - połowa, połówka, 

HALF-ADDER - pół sumator, sumator jednocyfrowy, 

HAL F AD J l/ST - zaokrąglać, 

HALF-BYTE - pół bajt, 

HALF CARRY — przeniesienie pomocnicze, 

HALF DUPLEX - pół dupleks, dupleks częściowy (nie jed- 
noczesna komunikacja w obu kierunkach), 

HALF DUPLEX C HANNĘ L - kanał pół dup lek sowy, 

HALF-DUPLEX CIRCUIT - patrzi HALF DUPLEX CHANNEL, 

HALF -Dl/P LEX DATA PATH - pół dupl eksowy tor przesyła- 
nia danych, 

HALF-DUPLEX OPERATION - system pracy pół dupleksowej, 
HALF-Sl/BTRACTOR - układ odejmujący jednocyfrowy, 

HALF TITLE - tytuł wstępny, przedtytuł, 

HALF -TI TLE PAGE - strona przedtytuł owa, 

HALF -TONĘ - 1. półton, 2. półtonowy, 

HALF-TONI NG - wytwarzanie półtonów, 

HALF -WORD - półsłowo, 

HALT - zatrzymanie (np. pracującego komputera), 

HALT INSTRUCTION - rozkaz stopu, rozkaz zatrzymania, 
HALYE - dzielić na połową, 

HALVING - dzielący na pół, 

HAMMER - młotek (np. drukarki ) , 

HAMMERLOCK - zastawka blokująca młotek drukarki, 
HAMMER SPRING TENSION - naciąg sprężyny młotka (dru- 
karki), 

HAMMING CODĘ - kod Hamming a, 

HAMMING DI STANCE - odstąp Hamminga, dystans Hamminga, 
HANDBOOK - podrącznlk, poradnik (książka), 

HANDBOOK FOR PROGRAMMED LEARNING - podrącznlk pro- 
gramowany, 

HANDFUL - garść (czego*) , partia (np. kart), 

HAND-HELD - test podrączny, 

HAND-HELD COMPUTER - komputer podrączny, 

HANDHELD MI CROCOMPUTER - ml krokomputer podrączny, 
HANDLE - wykonywać, mieć do czynienia, manipulować, 
HANDLER - 1. podprogram współdziałania z urządzenia- 
mi zewnątrznymi , manipulator, 2. program obsługi sy- 
tuacji wyjątkowej, 

HANDLING - manipulowanie, obsługiwanie, przenoszenie, 
operowanie, 

HANDSHAKE - dwuszynowa metoda kontroli przesyłania 
Informacji , 

HANDSHAKING - 1. przesyłanie z potwierdzeniem, 

2. uzgadnianie transmisji, 3. procedura synchronizu- 
jąca (transmisją), 

HANDSHAKING S3GNALS - sygnały uzgodnienia, 

HANDWRITTEN - napisany rącznie, 

HANDY - poręczny, podrączny, 

HANGI NG INDENT - wystąp, przesunlącie w lewo (np. 
tekstu) , 

HANGUP - zawieszenie (stan systemu komputerowego, 
w którye nie wyprowadza on Już komunikatów i nie 
reaguje na zewnątrzne przerwania), 

HANG-UP - przerwanie (wykonywania programu), 

HAPHAZARD - 1. przypadek, 2. przypadkowy, dorywczy, 
HAPPEN - zdarzać sią, 

HARD - 1. twardy, sztywny, 2. stały, niezmienny, 

HARD ADDER - przyrostowy sumator sztywny, 

HARD COPY - trwała postać zapisu informacji, wydruk 
na drukarce ekranu monitora, 

HARD-COPY TERMINAL - końcówka drukująca, terminal 
drukujący, 

HARD DATA - dane w postaci liczb i wykresów, (w od- 
różnieniu od opisów Jakościowych) , 

HARD DISC - dysk twardy, 

HARD DISK - patrzi HARD DISC, 

HARD ERROR - błąd stały, 

HARD PAGE BREAK - "twarde" zakończenie strony 
(w systemach edycji tekstów, przejście do nowej 
strony, stosowane przy rozpoczynaniu np. nowego 
rozdziału) , 


HARD-SECTORED DISK - dysk ze stałym rozmieszczeni en 
sektorów (dysk magnetyczny o Stałym podziale na se- 
ktory, rozmieszczenia których me można zmienić pro- 
gramowo) , 

HARD SECTORING - odpowiedni zapis na ścieżce kolej- 
nych sektorów poprzez umieszczenie obok otworu in- 
deksowego dyskietki kolejnych otworów, określających 
połażenie początkowe sektorów, 

HARD SPACE - "twarda" spacja (spacja wprowadzona do 
tekstu przez użytkownika, w odróżnieniu od spacji 
wprowadzanej automatycznie podczas Justowanla), 

HARD TO DISTINGUISH - trudny do odróżnienia, 

HARD TO REACH - trudno dostąpny, 

HARDWARE - sprząt komputerowy, hardware, 

HARDWARE BŁOCK PRINT ROUTINES - procedury drukowania 
zawartości pakietu blokami fizycznymi, 

HARDWARE CHECK - kontrola realizowana tylko za pomo- 
cą sprzątu, 

HARDWARE COMPATI BI LI TY - wymienność sprzątowa, 
HARDWARE -COMP ATI BLE - wymienny sprzątowo, 

HARDWARE CONTROL - sterowanie układowe, 

HARDWARE DI VI SI ON - dzielenie maszynowe, 

HARDWARE ENVI RONMENT - środki sprzątowe (sprząt kom- 
puterowy wykorzystywany w trakcie pracy programu) , 
HARDWARE ERROR - błąd sprzątowy (błąd spowodowany 
złą pracą sprzątu), 

HARDWARE -I MPLEMENTED PROCESS SCHEDULING - sprzątowe 
sterowanie przebiegiem procesu, 

HARDWARE I NTERRUPT - przerwanie sprzątowe (przerwa- 
nie od urządzenia zewnątrznego np. po błądzie wyko- 
nywanego rozkazu, itp.), 

HARDWARE MODEL - model fizyczny, 

HARDWARE MULTI PLICATION - mnożenie sprzątowe (wyko- 
nanie operacji mnożenia rozkazem procesora a nie 
przez podprogram) , 

HARDWARE PROGRAM COUNTER - wbudowany licznik rozka- 
zów, i 

HARDWARE -SOFTWARE TRADE-OFF - podział zadań miądzy 
sprząt a oprogramowani e, 

HARDWARE SPRITE - sprzątowe środki tworzenia dynami- 
cznego zobrazowania graficznego, 

HARDWARE STACK - stos sprzątowy, 

HARDWARE SUPPORT - wsparcie sprzątowe, pomoc sprzą- 
towa, realizacja sprzątowa, 

HARDWIRED - 1. sprzątowo zaszyty, 2. realizowany 
środkami sprzętowymi , 3. z wbudowanym konstrukcyjnie 
układem sterowania lub programowani a, 

HARDY - mocny, odporny, wytrzymały, 

HARMFUL - szkodliwy, 

HARMLESS - niegroźny, nieszkodliwy, 

HARMOMIC - harmoniczny, 

HARMONIC DI ST ORION - zniekształcenie harmoniczne, 
HARTLEY - jednostka miary informacji równa informa- 
cji reprezentowanej przez Jedną cyfrą dziesiętną, 
HASH - informacja pozbawiona praktycznego znaczenia, 
znajdująca sią w parni ąci, 

HASH ADDRESSI NG - adresowanie z haszowaniem (patrzi 
HASHING) , 

HASH DATA - dane zbądne, dane pomył kowe, 

HASHING - haszowanie (sposób organizacji struktur 
danych, zapewniający efektywne wyszukiwanie i aktu- 
alizacją danych, tzw. tablice HASH), 

HASHING ALGORITHM - algorytm haszowania (patrzi HA- 
SHING) , 

HASHING FUNCTION - funkcja rozmieszczania, funkcja 
haszowani a, 

HASH TABLE - tablica przewodnik, 

HASH TOTAL - suma kontrolna, 

HASP - patrzi HOUSTON AUTOMATIC SPOOLING PROGRAM, 
HASTEN COMPLETION - przyspieszyć zakończenie (np. 
prac programowych) , 

HAVE A BEARNI NG ON . . . - wywierać wpływ na .... 

HAVE AN EFFECT ON . . . - wpł ywać na .... 

HAVE A REST RAI NI NG EFFECT - działać hamująco, 

HAVE AT ONE* S DI SP OS AL - rozporządzać (czymś), 
HAZINESS - nieostrość (np. obrazu na ekranie moni- 
tora) , 

HDAM - patrzi HI ERARCHI CAL DIRECT ACCESS METHOD, 
HDLC - patrzi HIGH LEVEL DATA LINK CONTROL. 

HDLC ST ATI ON - stacja protokołu HDLC, 

HDR - patrzi HIGH DENSITY RECORDING, 

HD - patrzi HIGH DENSITY, 

HD TV - telewizja wysokiej jakości, 

HE AD - głowica, takźei nagłówek, 

HE AD COMPUTER - komputer główny, 

HEADER - nagłówek, etykieta początkowa, 

HEADER CARD - karta inicjująca, karta wskazująca, 
HEADER ENTRY - pozycja tytułowa, 

HEADER LABEL - etykieta początku zbioru danych, za- 
pis początku, 

HEADER LABEL CHECK - sprawdzanie etykiety nagłówko- 
wej (np. na taśmie magnetycznej), 

HEADER RECORD - zapis (rekord) nagłówkowy, 

HEAD GAP - szczelina głowicy magnetycznej, takźei 
przerwa miądzy głowicą magnetyczną a nośnikiem da— 
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t HEADING - patrz i HEADLINE, 

W HEADLINE - nagłówek, " ' 

HE AD NOVEMEMT - przesuw głowicy, 

HE AD POSITIONING TIME - czas szukania, czas ustawia- 
nia głowic, 

HE AD SPACING - rozstaw głowic magnetycznych, 

HE AD STACK - zespół głowic magnetycznych dla zapisu 
wielość i eźkowego, ' 

HEAD-TO-TAPE GAP - przerwa między głowicą magnetycz- 
ną a taśmą, 

HEAP - 1. stos (dynamiczny obszar pamięci), 2. wie- 
lka ilość, 3. gromadzić, 

HEAP MANAGER - program zarządzający stertą (dynami- 
cznym obszrem pamięci programu) , program dynamicz- 
nego rozdziału obszaru pamięci, 

HEAVY - 1. intensywny. 2. ciężki. 3. silny, 

HE AVY LGSS - znaczna strata, poważna strata, 

HEIGHT - wysokość, 

HEIGHT-BALANCED TREE - drzewo o zrównoważonej wyso- 
kości , 

HEIGHT OF TREE - wielkość drzewa, 

HELP - tekst objaśniający, objaśnienie, opis, help, 
HELP l^BRARY - biblioteka tekstów objaśniających, 
biblioteka opisów (objaśnieh), 

HELP LINĘ - wiersz (na ekranie monitora) z tekstem 
objaśniającym, 

HERCULES GRAP HIC CARD - karta grafiki Hercules, 

HE-SI T ATI ON - opóźnienie, przerwa w przetwarzaniu, 

HET EROGENEOUS - niejednorodny, różnorodny, 
HETEROGENEOUS COMPUTER NETWORK - niejednorodna sieć 
komputerowa, 

HE URI STIC - heurystyka, 

HE URI STIC PROGRAM - program heurystyczny, 

HE URI STIC ROUTING - heurystyczny wybór trasy, 
HEWLETT-PACKARD COMPANY - firma amerykańska, produ- 
kująca między innymi mini— i mi krokomputery , przy- 
rządy pomiarowe oraz tworząca oprogramowani e kompu- 
terowe, 

HEX - patrz: HEX ADECI MAL , 

HEX ADECI MAL - szesnastkowy, 

HE X ADECI MAL DIGIT - cyfra szesnastkowa (tzn. Jedna 
z wielkości: O, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, 
D, E, F), 

HEX ADECI MAL FORMAT - format szesnastkowy (przedsta- 
wienie danych w systemie szesnastkowym), 

HEX ADECI MAL NOT ATI ON - szesnastkowy system liczenia, 
HEXADECI MAL NUMBER - liczba szestnastkowa, 

HEX ADECI MAL NUMBER SYSTEM - system szesnastkowy, sy- 
stem heksadecymalny, 

HEX FILE - plik (zbiór) typu szesnastkowego, 

HGC - patrz: HERCULES GRAP HIC CARD, 

HIBERNATING PROCESS - proces zatrzymujący, proces 
zawi eszający, 

HIBERNATING TASK - zadanie zatrzymujące, zadanie za- 
wieszające, 

HI BERN ATI ON - stan oczekiwania, stan wyczekiwania, 
HIC - patrz: HYBRID INTEGRA TED CIRCUIT, 

HI DAM - patrz: KIERARCHICAL INDEKED DIRECT ACCESS 
METHOD, 

HIDDEN - 1. ukryty (np. plik), 2. ukryć, schować, 
HIDDEN LIMĘ - linia ukryta (np. linie niewidoczne 
w dwuwymiarowym rzucie bryły), 

HI DDEN-LI ME RE MO V AL - usunięcie linii niewidocznych 
(w grafice komputerowej sposób odzwierciedlenia 
trójwymiarowego obiektu), 

HIDOEN SURFACE - niewidoczna powierzchnia, 

HI DDEN-SURF ACE RE MO V AL - usunięcie niewidocznych po- 
wierzchni (w grafice komputerowej sposób odzwiercie- 
dlenia trójwymiarowego obiektu), 

HI DE - ukryć, schować, 

HI ER ARCHI CAL ACCESS METHOO - hierarchiczna metoda 
dostępu, 

HI ERARCHI CAL ADDRESSI NG - hierarchiczna adresacja 
(sposób przedstawienia obiektu w sieci komputerowej 
przy pomocy złożonego identyfikatora, odzwiercie- 
dlającego strukturę sieci i drogę dostępu), 

HI ERARCHI CAL COMPUTER NETWORK - hierarchiczna sieć 
komputerowa, 

HI ERARCHI CAL DATA BASE - hierarchiczna baza danych, 
HI ERARCHI CAL DIRECT ACCESS METHOD - hierarchiczna 
metoda bezpośredniego dostępu, 

HI ERARCHI CAL INDEXED DIRECT ACCESS METHOD - hierar- 
chiczna metoda bezpośredniego dostępu z wykorzysta- 
niem indeksacji, 

KIERARCHICAL INDEKED SEOUENTI AL ACCESS METHOD - hie- 
rarchiczna indeksowo-sekwencyjna metoda dostępu, 
KIERARCHICAL NETWORK - sieć hierarchiczna, 
KIERARCHICAL SEOUENTI AL ACCESS METHOD - hierarchicz- 
na sekwencyjna metoda dostępu, 

HI ERARCHI CAL ST ORA GE - hierarchiczna pamięć kompute- 

HIERARCHY - kolejność ważności, hierarchia, 

HIERARCHY OF SETS - hierarchia zbiorów, 

HIGH - 1. duży. 2. większy (przy porównywaniu dwóch 
wielkoSci > , 


HIGH BIT - górny bit (najbardziej znaczący bit), 

HIGH DENSITY - wysoka gęstoSć (sposób zapisu infor- 
macji na dysku), 

HIGH DENSITY RECORDING - zapis o dużej gęstoSci, 

HIGH -DENSITY STORĘ - pamięć o dużej gęstoSci zapisu, 
HIGH-DUTY - o dużej wydajności, wysokosprawny, 
HIGHER-LEVEL LANGUAGE - Język wyższego poziomu, 

HIGHER ORDER EOUATION - równanie wyższego rzędu, 

HIGH LEYEL - wyższy poziom, 

HI GH-LEVEL COMPILER - kompilator wyższego rzędu, 

HIGH LEVEL DATA LINK CONTROL - protokół HOLC, 
HIGH-LEYEL GO AL - kres wysokiego poziomu, 

HI GH-LEVEL LANGUAGE - Język wysokiego poziomu, 

HIGH -LEYEL PROT OC OL - protokół wysokiego poziomu, 
HIGHLIGHT - uwypuklać, uwydatniać, podświetlać, roz- 
jaśniać, błyszczenie (migotanie lub podświetlanie 
elementu obrazu), 

KtGHLIGHTING - wydzielenie, uwydatnienie, wyodręb- 
nienie (w grafice komputerowej wyodrębnienie częSci 
tekstu lub fragmentu obrazu na ekranie monitora po- 
przez podświetlenie, migotanie, itp.), 

HIGH -ORDER DIGIT - cyfra o najwyższej wartości (np. 
w liczbie) , 

HIGH-ORDER POSITION - najstarsza pozycja (pierwsza 
z lewej strony pozycja bajtu, słowa, czy wiersza), 
HIGH-PERFOMANCE - szybko działający, 

HIGH -DUALI TY - wysokiej jakoSci, 

HI GH-RESOLUTI ON MODĘ - tryb graficzny wysokiej roz- 
dzielczości , 

HI GH-SPEED CARRY - przenoszenie szybkie, 

HIGH-SPEED MEMORY - pamięć szybka, pamięć o dostępie 
szybkim, 

HIGH-SPEED MEMORY BŁOCK - blok pamięci ultraszybkiej, 
HIGH-SPEED PAPER FEED - szybkie zasilanie drukarki 
papierem, 

HIGH-SPEED PRINTER - drukarka szybka, 

HIGH-SPEED STORAGE - patrz: HIGH-SPEED MEMORY, 
HIGH-SPEED STORĘ - patrz: HIGH-SPEED MEMORY, . 
HIGHWAY - szyna, magistrala, 

HIGH-YIELD - wysoka wydajnoSć, 

HI RED LINĘ - łącze dzierżawi one, 

HI SAM - patrz: KIERARCHICAL INDEKED SEOUENTI AL 
ACCESS METHOD. 

HIT - pozytywny wynik porównania dwóch wartości, 
HITACHI - firma japohska, produkująca sprzęt kompu- 
terowy kompatybilny z wyrobami firmy IBM, 
HIT-ON-THE-FLY PRINTER - drukarka wierszowa drukują- 
ca w ruchu, 

HIT RATĘ - współczynnik zgodności, współczynnik zbie- 
żności , 

HLL - patrz: HI GH-LEVEL LANGUAGE, 

HLS MODEL — model "barwa— JaskrawoSć-nasyceni e" (w 
grafice komputerowej charakterystyka koloru za pomo- 
cą trzech parametrów: barwy, jaskrawości i nasyce- 
nia) , 

HOŁD - przechowywać (np. w pamięci), zatrzymywać, 
znajdować się, mieścić (w Sobie), także: uważać że, 
utrzymywać, 

HOLD-DOWN - przytrzymywać (np. naciśnięty klawisz), 
HOLDER - oprawka, uchwyt, 

HOLDING - 1. zabezpieczanie, przechowywanie (np. da- 
nych), 2. stan posiadania (np. taSm magnetycznych w 
b 1 lotece) , 

HOŁD TIME - czas utrzymywania informacji (np. na 
wejściach bloków sekwencyjnych), 

HOLE - dziurka (np. w karcie), 

HOLE COUNT - liczenie dziurek (np. na karcie), 

HOLE DENSITY - gęstoSć dziurek, 

HOLLERITH CARD - 80-kol umnowa karta dziurkowana 
z nadrukiem w kodzie Hollerith'a, 

HOLLERITH CODĘ - kod Hollerith’a (kod wykorzystywany 
do przedstawi ani a informacji tekstowej na karcie 
dziurkowanej) , 

HOLLERITH CONSTAMT - wielkoSć tekstowa (w Języku 
Fortran) , 

HOLOGRAF HIC MEMORY - pamięć holograf iczna, 

HOLOGRAF HIC STORAGE - pamięć holograficzna, 

HOLOGRAPHI C STORĘ - patrz: HOLOGRAPKIC STORAGE, 
HOLOGRAPHY - holografia, 

HOME - początek, pozycja początkowa, (w grafice kom- 
puterowej, określenie prawego, górnego rogu ekranu 
mon i tora) , 

HOME ADDRESS - adres własny (np. pole Ścieżki dysku, 
zawierające adres tej Ścieżki), 

HOME BŁOCK - blok początkowy, 

HOME BUCKET - porcja macierzysta, 

HOME COMPUTER - komputer domowy, 

HOME LOCATION - komórka podstawowego obszaru, obszar 
podstawowy, 

HOME POSITION - pozycja główna, pozycja podstawowa, 
HOME RECORD - zapis (rekord) główny (pierwszy zapis 
w pliku), zapis (rekord) odniesienia (pierwszy 
w łahcuchu zapisów) 
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LIGA MYŚLĄCYCH 


ZADANIE 1 

Pięciu studentów, powtarzających trzeci rok studiów wybie- 
ra losowo — każdy niezależnie od pozostałych, jedną z trzech 
równoległych grup. Jakie jest prawdopodobieństwo, że: 

1) wszyscy studenci znajdą się w pierwszej grupie, 

2) wszyscy studenci znajdą się w tej samej grupie, 

3) w ustalonej grupie znajdzie się dokładnie trzech studen- 
tów? 

ZADANIE 2 

Ile średnio powinno przypadać rodzynków na bułeczkę aby z 
'prawdopodobieństwem nie mnie/szym niż 0,99 twierdzić, że w 
bułeczce znajduje się choćby jeden rodzynek? 

'ZADANIE 3 

Dwaj piechurzy wyszli w jednakowym czasie naprzeciw sie- 
bie i spotkali się po trzech godzinach i dwudziestu minutach. W 
jakim czasie każdy z nich przejdzie odległość, jaka dzieli 


miejsca, z których wyszli, jeżeli pierwszy przyszedł na miejsce, 
z którego wyszedł drugi, o 5 godzin później? 

ZADANIE 4 

Po przejściu w ciągu godziny 3,5 km, pasażer idący do po- 
ciągu, zorientował się, że idąc dalej z tą samą prędkością spó- 
źni się na pociąg o 1 godzinę. Dlatego pozostałą drogę prze- 
szedł z prędkością 5 km/h, przybywając na stację, na 30 minut 
przed odejściem pociągu. Wyznaczyć drogę, jaką przebył pa- 
sażer. 

ZADANIE 5 

Dwóch turystów idzie naprzeciw siebie — jeden z miejsco- 
wości A, a drugi z miejscowości B. Pierwszy turysta wyszedł z 
miejscowości A o 6 godzin później i przy spotkaniu okazało się, 
że przeszedł o 12 km mniej niż drugi. Kontynuując dalej podróż 
z tą samą prędkością, pierwszy turysta przyszedł do miejsco- 
wości B po 8 godzinach, a drugi do A po 9 godzinach. Wyzna- 
czyć odległość AB oraz prędkość obu turystów. 


Rozwiązania zadań prosimy przesyłać do redakcji do końca stycznia br., z dopiskiem „Liga Myślących". Punktacja 
zależy od liczby prawidłowych rozwiązań. Wśród uczestników rozlosujemy książki, a na zwycięzcę „Ligi” czekają 
dodatkowe nagrody. 


GIEŁDA POMYSŁÓW 


ZX-81 

Szukanie dziury 

1 REM ********************* 

2 REM * SZUKANIE DZIURY * 

3 REM * ZX-81 * 

5 REM ********************* 

10 FOR A-l TO 32 

15 PRINT CHR$ 7; 

20 NEXT A 

25 IF A-32 THEN GOTO 30 
30 LET S-0 
35 LET J-INT RND*16 
40 GOSUB 145 

"0 "r“ AT 9,7; "ODLEGLOSC?" 
55 INPUT A 


60 PRINT AT 9,7; " // 

65 PRINT AT 17. J;"" 

70 J-J+INT ( A/3+RND ) 

75 GOSUB 145 
80 LET S-S+l 

85 PRINT AT 5.12; " ILOSC PODE 
JSC: " ;S 

90 IF J< 27 THEN GOTO 50 
95 IF J >27 THEN GOTO 120 
100 PRINT AT 17.27; "" ; AT 18 
27; U Q" 

105 LET U-J-S*2 
110 PRINT "ILOSC PUNKTÓW;"; U 
ZA TRAFIENIE" 

115 GOTO 125 

120 PRINT "BEZNADZIEJNIE " 

125 FOR G-l TO 100 
130 NEXT G 
135 CLS 
140 RUN 

145 PRINT AT 17, J; "O" 

150 RETURN 
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W rozwiązaniu krzyżówki wystarczy po- 
dać, ile razy w diagramie występują lite- 
ry: I, K, S. Rozwiązanie zadania należy 
przesłać pod adresem redakcji na kar- 
tach pocztowych, w terminie do końca 
stycznia, naklejając kupon „IKS-a". 
Wśród autorów prawidłowych odpowie- 
dzi rozlosujemy bopy pieniężne i nagro- 
dy książkowe. 



Nauka • Technika 

Nowoczesna technika w strukturze kole- 
jowej. to przede wszystkim wysokiej klasy 
łączność sygnalizacyjna — czyli zabezpie- 
czenie ruchu coraz szybszych pociągów i 
szeroko podjęta informacja, realizowana 
dzięki wykorzystaniu komputerów. Instytuty 
badawcze kolejnictwa, zespoły naukowców 
z każdym rokiem oferują coraz to nowsze, 
bardziej korzystne ekonomicznie i techni- 
cznie rozwiązania z użyciem m in. mikropfo- 
cesorów i światłowodów 

Zastosowanie techniki komputerowej do 
kontroli biegu pociągów i łączności między 
dyspozytorniami i maszynistami zapewnia 
kolei efektywniejszą działalność. Zdalne 
pomiary z lokomotywy umożliwiają wy- 
chwycenie każdej najmniejszej niedokład- 
ności w poszczególnych urządzeniach ha- 
mulcowych w składzie badanego pociągu. 
Zastosowanie elektronicznego systemu 
wykrywania wadliwego działania urządzeń 
hamulcowych wpływa na osiąganie przez 
pociągi lepszych efektów eksploatacyjnych. 
Przekazywanie informacji do komputera w 
lokomotywie zapewnia nie tylko efektywną 
kontrolę biegu pociągu, ale umożliwia zdal- 
ne śledzenie trasy, sygnałów podawanych 
na semaforach, zamykanych rogatek na 
przejazdach itp. Biegiem pociągu kieruje 
maszynista, nadzoruje go komputer, który 
jednocześnie podaje podobne dane do dy- 
spozytora. posiadającego łączność radiową 
z maszynistą. 

Kierunki podawanej drogi z komputera w 
lokomotywie do dyspozytora me tylko umoż- 
liwiają zlokalizowanie pociągu na trasie, ale 
także automatyczne nastawianie drogi 
przebiegu oraz uzyskanie pełnej kontroli nad 
pociągami poruszającymi się w danym kie- 
runku. Umożliwia to wprowadzenie na trasę 
w bezpiecznych odstępach dodatkowych 
pociągów towarowych. 

Handlowcy w Stanach Zjednoczonych 
oferują dzieciom komplót do demonstracji 
zjawiska nadprzewodnictwa To, co nie 
tak dawno mogła obserwować tylko mała 
grupa naukowców zatrudnionych w kilku 
najlepszych ośrodkach badawczych świata, 
obecnie bawi i uczy młodzież szkolną. 

Prototyp zabawki skonstruowali specja- 
liści z amerykańskiego Uniwersytetu Wis- 
consin, W skład zestawu wchodzi naczynie 
z przezroczystego tworzywa połączone ze 
zbiornikiem na ciekły azot oraz mała płytka o 
średnicy 25 mm. Krążek ten wykonany zos- 
tał ze związków Itru. baru i miedzi z tlenem. 
Po obniżeniu temperatury w plastykowym 
naczyniu, płytka zaczyna unosić się w po- 
wietrzu. zaś mierniki badające własności 
próbki rejestrują zmiany w przepływie prądu 
efektonicznego oraz zachodzące przeobra- 
żenia pola magnetycznego. 

Producent zabawki dołącza do niej także 
rękawice i okulary ochronne, wszak ekspe- 
rymentator ma do czynienia z ciekłym azo- 
tem Model przedstawiający nadprzewod- 
nictwo można nabyć za 25 dolarów 
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Proponuj «m r Pańitwu nową rubrykę w naazyt 
pumie, dziełu niej bedziecle mo«U Pańatwc 
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NASZYM CZYTELNIKOM I SYMPA TYKOM 

ŻYCZYMY 

SZCZĘŚLIWEGO NOWEGO ROKU 

REDAKCJA 


KONKURS - 8 
SF - 24 
SŁOWNIK - 29 





lyin numerem, rrzydziestym już od 
chwili ukazania si$ pisma, kończymy rok 
1988. liył to kolejny rok rozwoju 
informatyki i coraz powszechniejszych 
jej zastosowań. Wprowadzanie tej 
technologii wymuszane jest koniecznością 
nie tylko postępu technicznego, ale i or- 
ganizacyjnego. W czasach, w których 
informacja jest towarem, tym cenniejszym 
im świeższym, komputery nabierają 
wartości. Oczywiście mówiąc o komputerze 
pod uwagę braó trzeba także 

oprogramowanie, które z kupy żelastwa 
czyni sprzęt użyteczny. W konsekwencji 
już wkrótce powstanie sytuacja, w której 
prestiż człowieka zaiezeó będzie nie od 
tego jakie posiada informacje, ale jak 
z nich potrafi skorzystać. Ł jednej 
strony intormaty ka znacznie usprawni 
procesy decyzyjne w przedsiębiorstwie 
dostarczając aktualny obraz kondycji 
ekonomicznej firmy, ale z drugiej 
pozbawi dogodnego tt umączenia w razie 
wpadki typu: ja jersscse tego nie 
• w i eós i cii em. 

Ale to wszystko być może w 
przyszłym roku, który już na wstępie 
zachęca przedsiębiorczych do twórczego 
działania, a zdolnym i pracowitym daje 
szansę, choć bez gwarancji sukcesu, 
którego naszym Czytelnikom; i Sympatykom 
życzymy. 

Wszystkiego najlepszego w Nowym 

koku . 

REDAKCJA 


W NUMERZE: 


Nowe instwukcje ZX-81 — sir. 3 

Współpraca ATARI 800XL z drukarkami 
D-100x, DZM-180 KSR I monitorem 


MERA 

„Ucieczka Orła” 

Przesuwanka 
Lilavatl <”> 

zanim powstanie mapa 
Informatyka w szkole 
Twarde dyski — ceny 
Atarl symuluje zjawiska falowe 
Zmiana liczb podanych cyfrowo 
na postać słowną 
Telegrafista 
SF — Geny 
Giełda pomysłów 

Programy narzędziowe na CPC6128™ 
Informatyczny słownik 
Liga myślących 
Krzyżówka 

Komputerowi włamywacze 
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ATARI 

Zamek cyfrowy 

Tytuł ten jest trochę zwodniczy. Prezentowany 
program nie służy do programowania komputera 
jako sterownika zamka elektronicznego. Komputer 
w zależności od stopnia trudności, który wynosi od 
2 do 15 cyfr, kodowanych losowo liczbami od 1 do 9. 
Twoje zadanie, to odgadnięcie szyfru. Możesz po- 
mylić się dwa razy, trzecia pomyłka powoduje 
wszczęcie alarmu, a tym samym zakończenie gry. 

J-J- 

PS 750 REM ************************ 


YM 752 REM * * 
RG 754 REM * ZAMEK CYFROWY * 
TG 756 REM * * ATARI * * 
ZB 757 REM * * 


QQ 758 REM ************************ 
RU 759 DIM S$a>,X*a5> 

BK 760 ? CHR* ( 125) 

WT 762 ? •? "ILE CYFR ";‘INPUT N 
LW 764 IF M<2 0R H>15 THEN GOSIJB 81 
0 ■ GOTO 760 
EZ 766 FOR K=1 TO N 
OJ 768 S*=CHR*( IHT (RND(0)*10) ) 

BV 770 X$(LENCXt>+l>=S*'NEXT K 
HY 784 Q=0 
FD 786 FOR K=1 TO N 
FZ 787 IF Q=3 THEH ? •? "ALARM !"-F 
OR C=1 TO 1 5 : GOSUB 810'NEXT Ć‘EN 
D 

FE 788 ? Ki" CYFRA*" i ■ INPUT Z 
GO 790 X=ASC<X*<K,K.:>> 

VI 794 GOSUB 810’Q=Q+1 
RE 798 IF Z=X THEN ? "ODGADŁEŚ "i Ki 
“ CYFRĘ" '■ 0=0 '■ NEXT K 
WD 800 IF Z<X THEW ?" WYZSZA" 'GOTO 
787 

DF 802 IF Z>X THEN ? "NIZSZA" ' GOTO 
787 

JV 804 ? i? "SZYFR*" i i FOR K=1 TO N' 
? ASCCX*CK,K)>i : NEXT K > END 
JJ 810 FOR D=15 TO 1 STEP -l'S0UND 
0, 100, 10, D ■' NEXT D ; SOUND 0,0, 0,0 
ZM 812 RETURN 


Poszukujemy dostawcy sprzętu komputerowe- 
go: IBM (40 MB), POLSET 03, drukarki NB 2415 i 
drukarki laserowej. 

Oferty prosimy nadsyłać pod adres: 

Wojskowa Drukarnia 
Gdynia 

ul. Św. Piotra 12 



Nowe instrukcje ZX-81 


Najtańszym mikrokomputerem na naszym rynku jest ZX 81. Jest 
to już klasyczny model o parametrach i możliwościach znacznie 
gorszych od produkowanych obecnie. Jednak niska cena długo je- 
szcze zapewni mu powodzenie. Ireneusz Paratiańczuk przedstawia 
sposoby wprowadzenia 5 nowych instrukcji w celu zwiększenia moż- 
liwości ZX 81. Są to instrukcje READ DATA, natychmiastowa in- 
wersja ekranu, a także podawanie liczby wolnych bajtów pamięci. 


W celu wprowadzenia nowych instrukcji 
należy wpisać program z wydruku 1 (linię 1 
REM, w której musi być nie mniej niż 120 
gwiazdek lub innych znaków, najlepiej jest 
wprowadzić w trybie FAST. (Ną^tępnie nale- 
ży go uruchomić, wtedy ukaże się liczba 
16 514 i znak zachęty do wprowadzenia 
zmiennej łańcuchowej. Liczba 16 514 jest ad- 
resem komórki pamięci, od której zaczyna się 
program. 


WYDRUK 1 » 


1 REM fcMMMMMMMMMMMMMKMMttMHMMM 

********** ******************* KM* 



***************************** *M* 

MMMMMMHi4MMMMMWKMMMM*MMMMKMMK 

10 LET A=VAL "16514" 

. 15 LET 8=0 ' 

20 SCROLL 

30 PRINT A; 

40 INPUT AS 

50 IF LEN AS THEN GOTO VAL "10 
O" 

60 LET A=A-SGN PI 

70 IF A< VAL "16514" THEN GOTO 
VAL "10" 

80 LET B=B-PEEK A 

90 GOTO 20 
100 POKE A, VAL AS 
HO LET B*B+PEEK A 
IZO PRINT TAB 10;AS;TAB 20;B 
130 LET A=A+SGN PI 
140 IF A< 16634 THEN GOTO 20 
150 STOP 

Należy wprowadzać kolejno liczby ze środ- 
kowej kolumny wykazują, obserwując cały 
czas numer komórki pamięci oraz sumę kon- 
trolną w trzeciej kolumnie. Jeżeli popełnimy 
błąd po wprowadzeniu liczby, należy jeszcze ' 
raz nacisnąć NEW LIWE, a program powróci 
do poprzedniego adresu (naciskając ciągle 
NEW LINĘ można powrócić do adresu po- 
czątkowego). Po wprowadzeniu ostatniej licz- 
by pojawi się komunikat o kodzie 9/150, co 
oznacza, że program został zatrzymany na po- 
lecenie STOP w linii nr 150. 


W ten sposób wszystkie nowe instrukcje 
znajdują się w linii 1 REM. Wpiszmy polece- 
nie LIST, a zobaczymy tylko linię 1 REM, w 
której są dziwne znaki. Jest to właśnie nasz 
kod maszynowy. Aby wylistować pozostałe li- 
nie, należy wpisać LIST w 10. Pozostaje nam 
tylko usunąć (skasować) wszystkie linie 
oprócz 1 wpisując numer linii i klawisz ENTER. 
Następnie nagrać kod maszynowy z linii 1 na 
kasetę (w celu późniejszego wykorzystywania) 
przez wprowadzenie linii 9998 SAVE 
„KOD" i napisanie w trybie bezpośrednim 
GOTO 9998. Po zapisaniu programu na kase- 
tę (najlepiej zapisać w dwóch miejscach) mo- 
żemy do niego dopisywać nowe linie wyko- 
rzystując nowe instrukcje znajdujące się w li- 
nii 1 REM. Po wpisaniu nowych instrukcji li- 
nię 9998 należy skasować (ponieważ nowy 
program może mieć inną nazwę) lub wpisać 
nową nazwę programu i dopisać linię 9999 
GOTO 10, a następnie nagrać go na kasetę 
poleceniem GOTO 9998. W ten sposób na- 
grany progranj po wczytaniu go z kasety do 
pamięci za każdym razem zostanie urucho- 
miony. A oto wykaz nowo otrzymanych ko- 
mend, sposób ich wywołania i opis. 

RAND USR 16608 zawiera wszystko, co 
jest na ekranie na jego inwencję. Może służyć 
do natychmiastowego zaczernienia ekranu. 

. PRINT USR 16593 - podaje liczbę wol- 
nych bajtów pamięci. 

500 REM 10.3 SIN A, są to dwie przykła- 
dowe linie 

520 REM ABE, ALFA, z instrukcjami 
PSEUDO-DĄTĄ. 

Zawartością ich mogą być liczby lub łańcu- 
chy, rozdzielone przecinkami. UWAGA! W 
całym programie (z wyjątkiem linii 1 nie może 
być żadnych innych linii z instrukcją REM 
zawierającą coś innego niż dane PSEUDO- 
-DATA, cżyli nie może w nim być żadnych 
komentarzy, nawet nazwy programu. 

RAND USR 16514 Wykonuje komendę 
RESTORE. Musi być 
użyte, zanim jakakol- 
wiek DATA będzie 
odczytywana. Może 
być również wykony- 
wane dla odczytania 
danych więcej niż je- 
den raz. 

10 LET AS — Sekwencja ta zastę- 

20 RAND USR 16556 puje instrukcję READ. 
30 LET A VAL AS Czyta kolejne dane 
z instrukcji REM i 
podstawia ją pod 
, zadeklarowaną wcze- 
śniej pustą zmienną 
łańcuchową (nie mu- 


Ireneusz PARAFIAŃCZUK 

si to być konieczne 
AS, ale także BS czy 
ZS. W wypadku od- 
czytywania łańcu- 
cha znakowych nale- 
ży pominąć linię 30, 
w wypadku liczb 
jest ona konieczna. 

Chcąc wykorzystać nowe instrukcje razem z 
innymi programami w kodzie maszynowym" 
należy bardzo uważać, gdyż może się okazać, 
iż ten drugi program również znajduje się w 
linii 1 (spotkałem się z tym już kilkakrotnie). 
W tym wypadku niezbędne jest dostosowanie 
naszego programu (gdyż nie znamy możli- 
wości ani uwarunkowań tamtego programu) w 
miejsce pamięci niedostępne dla programów 
(żaden program tam nie „wejdzie”), a także 
dla instrukcji NEW czy CLEAR. Jest to tzw. 
RAMTOP, miejsce pamięci określane przez 
zmienne systemowe tzn. ustawiane po włą- 
czeniu komputera do sieci, ale które można 
zmienić, tzn. przesuwać. Zmienna RAMTOP 
(adres pamięci) jest zapisany w dwóch ko- 
mórkach o adresie 16388 i 16389 — jest to 
drugi sposób zwiększenia liczby instrukcji. 
Najwygodniejsze dla ZjX 81 z pamięcią 16 K baj- 
tów i 64 K bajtów jest zapisanie naszego pro- 
gramu w ten sposób: 

to ustawienie nowego adresu RAMT(JP-32618 


10 POKE 16388,136 
20 POKE 16389,127 
30 CLS 

40 POKE 32648,33 
50 POKE 32649,250 
60 POKE 32650,64 

i tak dalej aż do komórki o numerze 32767 
opisując kolejne liczby z wykazu. 

Zmieniając niektóre wartości: dla komórki 
o numerze: 32649 zmienić na 130 
•• ” 32684 " 139 

” 32685 ” 127 

” 32700 ” 165 

” 32701 ” 127 


Na zakończenie napiszemy linie: 

9997 NEW 

9998 SAVE „KOD” 

9999 GOTO 10 


Dla wersji 1 K bajtów- niezbędne są nastę- 
pujące zmiany w programie zasadniczym: 
ustawienie RAMTOP dla wersji z 1K bajtem 
pamięci 


10 POKE 16388,136 
20 POKE 16389,67 
30 CLS 

40 POKE 17288,33 
50 POKE 17289,250 
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i dalej numery komórek aż do 17407, wpisując 
liczby z wykazu, lecz zmieniając niektóre war- 
tości. I tak dla: 

komórki o numerze 17289 zmienić na 130 
” 17324 " 139 

” 17325 ” 67 

” 17340 ” 165 

” 17341 ” 67 


Na koniec programu dla wersji 2 x 91 1K 
należy wpisać te same linie co dla wersji 16K i 
64K pamięci tzn. 

9997 NEW 

9998 SAVE „KOD” 

9999 GOTO 10 

\ 

Program nasz przeniesiony za RAMTOP 
będzie miał inne adresy do wywoływania po- 
szczególnych instrukcji. Zmienione adresy 
zamieszczone są w tabeli: 


instrukcja 

wersja pamięci 

1K 

16K i 64K 

PSEUDO-RESTORE 
(RAND USR...) 

17 288 

32 648 

PSEUDO-READ 
(RAND USR...) 

17 330 

32 690 

INWERSJA EKRANU 
(RAND USR...) 

17 382 

32 742 

SPRAWDZANIE PAMięCI 
(PRINT USR...) 

17 367 

32 727 

16514 

33 


33 

16515 

250 


283 

16516 

64 


347 

16517 

62 


409 

16518 

234 


643 

16519 • 

1 


644 

1 6520 

255 


899 

16521 

255 


1154 

16522 

237 


1391 

16523 

177 


1568 

16524 

1 


i 569 

16525 

5 


1574 

16526 

0 


1574 

16527 

187 


1741 

16528 

237 


1978 

16529'’ 

66 


2044 

16530 

62 


2106 

16531 

118 


2224 

16532 

190 


2414 

16533 

40 


2454 



18534 

18535 

16536 

16537 

1 6538 

16539 
18540 

16541 

16542 

18543 

18544 

16545 

16546 

16547 

16548 

16549 

16550 

16551 

16552 

16553 

16554 

16555 


16557 

16558 
18559 

16560 

16561 

16562 

16563 

16564 

16565 

16566 

16567 

16568 


16570 

16571 

16572 

16573 

16574 

16575 

16576 

16577 

16578 

16579 

18580 

18581 

18582 

16583 

1 6584 

16585 

16586 

16587 

16588 

16589 

16590 

16591 


5 
9 

34 
123 
64 
201 

. 9 
24 
230 
42 
123 
64 
62 
118 
190 

204 
133 
64 
128 

35 
24 
236 

42 
20 
64 

43 
229 
43 
43 
227 
229 

205 
159 
64 
225 

6 
26 
184 
40 
13 
119 
35 
227 
52 
32 
3 

35 

52 

43 

227 

167 

48 

233 

227 

225 

O 

195 

157 


2459 

2468 

2502 

2625 

2689 


2923 
3153 
3195 
3318 
3382 
3444 
3562 
3752 
3958 
4089 
41 53 
4279 
4314 
4338 
4574 
4616 
4636 
4700 
4743 
4972 
5015 
5058 
5285 
5514 
5719 
5878 
5942 
6167 
61.73 
6199 
6383 
6423 
6436 
6555 
6590 
6817 
6869 
6901 
6904 
6939 
6991 
7034 
7261 
7428 
7476 
7709 
7936 
8161 
8161 
8356 
8513 


1 6592 20 

1 6593 42 

1 6594 28 

1 6595 64 

•16596 68 

1 6597 77 

1 6598 33 

16599 O 

16600 O 

16601 / 57 

1 6602 . 1 91 

1 6603 . 237 


1 6604 66 

1 6605 68 

1 6606 77 

1 6607 201 

1 6608 42 

16609 12 

1 661 0 64 

1 661 1 68 

16612 . 77 

1 661 3 22 

1 661 4 59 

16615 203 

16616 ^34 

1 661 7 42 

1 661 8 16 

1 661 9 64 

1 6620 1 O 

1 6621 1 86 

16622 • 40 

1 6623 3 

16624 198 

1 6625 1 28 

16626 2 

16627 3 ' 

16628 191 

1 6629 237 

1 6630 66 

1 6631 32 

1 6632 240 

1 6633 201 


8533 

8575 

8603 

8667 

8735 

8812 

8845 

8845 

8845 

8902 

9093 

9330 

9396 

9464 

9541 

9742 

9784 

9796 

9860 

9928 

10005 

10027 

10086 

10289 

10323 

10365 

10381 

10445 

10455 

10641 

10681 

10684 

10882 

11010 

11012 

11015 

11206 

11443 

11509 

11541 

11781 

11982 


Po wpisaniu całego programu (modyfiko- 
wanego zależnie od używanej wersji pamięci) 
przenosimy go na kasetę instrukcją GOTO 
9998 (w trybie natychmiastowym). Program 
najpierw zostanie nagrany na kasetę, po czym 
sam się uruchomi i wykona. Po wykonaniu 
programu jako niepotrzebny skasuje się, zos- 
tawiając za RAMTOP kod maszynowy. I teraz 
za każdym razem, gdy .chcemy załadować no- 
we instrukcje, piszemy po prostu LOAD 
„KOD”, włączamy magnetofon, naciskamy 
NEW LINĘ, a program załaduje się do pa- 
mięci, sam się uruchomi, wykona i skasuje. 
Dla sprawdzenia, czy kod maszynowy jest w 
RAMTOP — napiszemy PRINT PEEK 
32648. Powinna pokazać się cyfra 33. Można 
również dodać linię na 35 PRINT „LĄDUJE 
SIE KOD”, aby naocznie się przekonać, że 
program się wykonuje (gdyż ekran po załado- 
waniu będzie cały czas czysty). Na koniec dwa 
programy wykorzystujące nowe komendy: 
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„KSrAZKA TELEFONICZNA” (WY- 
DRUK 2), w której imiona i numery telefo- 
nów wpisuje się w linii 130 (można oczywiście 
dopisać nowe linie, ze swoimi numerami tele- 
fonów. Kursor znacznika linii ustawić na linię 
130 i wcisnąć SHIFT + EDIT. 

Linia 150 musi kończyć program. 


WYDRUK 2 

20 PRINT "PODAJ IMIĘ" 

30 INPUT A* 

40 RAND USR 32648 
50 LET B*="" 

60 RAND USR 32690 
70 IF B*="NN" THEN PRINT "OSOB 
A NIEZNANA" . 

75 IF B*="NN" THEN GOTO VAL "2 
O" 

80 LET C*="" 

90 RAND USR 32690 
100 IF B*OA* THEN GOTO' VAL "50 

110 PRINT A*;"="|C* 

120 GOTO VAL "20" 

130 REM JACEK, 245-457, ZYGMUNT, 8 
7-03-21 , ZOSIA, 132384, 

150 REM NN, 

1000 SAVE "KSIAZKA" 

1050 GOTO VAL "20" 

„WYKRESY” (WYDRUK 3) kreśli na ek- 
ranie wykresy różnych funkcji (zawartych w 
instrukcji REM) oraz pozwala na wprowadze- 
nie własnej funkcji. 

10 LET F-SGN PI 
20 GOTO CODĘ " COPY " 

24 CLS 

25 IF F THEN PRINT "FUNKCJA" 

30 INPUT A* 

35. IF F THEN PRINT "DOLNA GRAN 
ICA" " 


40 INPUT X 

45 IF F THEN PRINT "GÓRNA GRAN 
ICA" 

50 INPUT A 
60 LET K-X 
70 FAST 
80 CLS 

85 LET F=NOT PI 

90 LET DX-<A-X> /CODĘ "Z" 

100 LET H-VAL A* 

•110 LET L-H 

120 FOR I-NOT PI TO CODĘ "Z" 

130 IF H< VAL A* THEN LET H=VAL 

A* 

140 IF L>VAL A* THEN LET L-VAL 

A* 


150 LET X— X+DX 
160 NEXT I 
170 LET X— K 
180 SLOW 

190 FOR I-NOT PI TO CODĘ "Z" 

200 PLOT I , VAL "43"*<VAL A*-L)/ 
(H-L) 

210 LET X— X+DX 

220 NEXT I 

230 GOSUB VAL "400" 

240 GOTO VAL "30" 

300 RAND USR 32648 
310 FOR A=VAL "-2" TO VAL "10" 
320 FOR B-NOT PI TO UAL "24" ST 
EP VAL "8" 

330 LET A*-"" 

340 IF B OR A<NOT PI THEN RAND 
USR 32690 

350 IF NOT B AND A>-SGN PI THEN 

LET A*-STR* A 

360 PRINT TAB B|A*| 

370 NEXT B 
380 NEXT A 

390 REM ***, WYBÓR, FUNKC J4 , ***,N 
UMER, FUNKCJA, ZAKRES, , WPROWADŹ , SW 
OJA, FUNKCJE, 

400 INPUT B 


420 IF NOT B THEN RETURN 

430 RAND USR 32648 

440 FOR A-SGN PI TO VAL "3*B+8" 

450 LET A*-"". 

460 RAND USR 32690 
470 NEXT A 

480 FOR A--SGN PI TO SGN PI 
490 LET B*-"" 

500 RAND USR 32690 

510 IF A<NOT PI THEN LET A*=B* 

520 IF NOT A THEN LET X-VAL B* 

530 NEXT A 

540* LET A»VAL B* 

550 GOTO VAL "60" 

1000 REM SIN X , O, 2*P I , COS X,0,2* 
PI, TAN X,-l, 1,SIN X+SIN <2*X)+SI 


N <3*X) ,0,4*FI, ASN X, -1 , 1 , LN X, . 
1,2.7, EXP X , -1 , 1 , ABS (X-INt X-.5 
) ,0,3, 1/X, . 1,2,EXP -<X*X>,-2,2, 
2005 SAVE "WYKRESY" 

2010 GOTO UAL "10" 

Oba’ programy napisane są w sposób wyko- 
rzystujący nowe instrukcje znajdujące się za 
RAMTOP dja wersji 64K i 16K. Aby pro- 
gramy działały z kodem w linii 1 REM, a tak- 
że dla wersji 1K (za RAMTOP), należy wsta- 
wić odpowiednie adresy wywoływania no- 
wych funkcji (wg tabeli lub wg wykazu ko- 
mend na początku artykułu) w linie wykorzy- 
stujące kod maszynowy. 

Dla wersji programu z kodem w linii „1” 
należy zmienić adresy wywoływania nowych 
instrukcji. 

Ireneusz PARAFIAŃCZUK 



ZX-81 ' 

Skoki 

narciarskie 


1 REM *###*•*##*##***#*##***** 

2 REM * SKOKI NARCIARSKIE * 

O REM * ZX-61 * 

a REM *********************** 
10 PRINT “SKOKI NARCIARSKIE" 

15 LET A=INTCRND*53+100 ' 

20 PRINT "ODLEGŁOŚĆ "j Aj " METR 
OW" 

25 PRINT "WYSOKOSC SKOKU ?" 

30 INPUT B 
35 PRINT "WAGA ?" 

40 INPUT C 
42 CLS 

45 LET D»INT 

50 PRINT " SZYBKOSC "j Dj " KM./ 
GODZ. " 

55 PRINT 

60 LET E=INTCCD*CB/103*CRND*5+ 

53 3/101 

65 IF E< A THEN GOTO 80 


70 PRINT "ZA DUŻA SZYBKOSC" 

•75 GOTO 160 

60 IF E<50 OR D<20 THEN GOTO 9 

0 

85 GOTO 100 

90 PRINT "SKOK ZBYT WOLNY" 

95 GOTO 160 

105 IF RND*5+lnl THEN GOTO 115 
110 GOTO 130 

115 PRINT "SŁABE ŁADOWANIE" 

130 PRINT "MAX. WYSOKOSC "j A 

135 print "Osiąg ";e 
140 LET F=INTCRND*113 
145 PRINT "POMYŁKA "; INTCRND#1 
13 

150 PRINT "PUNKTY "j 300-A-CF*7 
3 

155 STOP 
160 PRINT 

165 PRINT "UPADEK" 
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Współpraca ATARI 800XL 
z drukarkami D-100, DZM-180 KSR 
i monitorem MERA-7952 


(CZĘŚĆ 1) 

Użytkownikom mikrokomputera ATARI 
800XL (oraz kompatybilnych ATARI 
130XE i 65XE) mającym również dostęp do 
takich urządzeń, jak monitor Mera-7952 i 
drukarka D-100 (lub DZM-180KSR), pro- 
ponujemy stworzenie podręcznego i przydat- 
nego zestawu komputerowego przedstawio- 
nego na rys. 1. Z punktu widzenia pokazanego 
połączenia w dalszęj części artykułu ograni- 
czono się do podania danych technicznych 
wykorzystywanych złącz standardowych, 
zwanych popularnie interfejsami. Znana i w 
ostatnich latach bardzo reklamowana w naszej 
literaturze drukarka D-100 produkcji polskiej 
wyposażona jest najczęściej w dwa złącza 
wejścia-wyjścia: CENTRONICS i V-24. W 
konfiguracji pokazanej na rys. 1 wykorzystany 
został interfejs V-24. Jest on przeznaczony 
dó szeregowej trąpsmisji informacji między 
komputerem a drukarką. Interfejs ten wyko- 
rzystuje 25-stykowe złącze szufladowe „Can- 
non”. Poziomy i przeznaczenie sygnałów za- 
mieszczono w tabelach 1 i 2. 


Drukarka DZM-180KSR i monitor 
MERA-7952 również mają wspomniany in- 
terfejs V-24 i wykorzystują go do współpracy 
z komputerem. Czytelnicy i praktycy kompu- 
terowi znają dobrze wszechstronne zastosó-. 
wanie tego interfejsu. Pomimo że istnieje 
obecnie wiele innych, często znacznie lep- 
szych rozwiązań, nadal z powodzeniem sto- 
sowany jest standard V-24 i jego odpowiednik 
RS— 232C. Składa się na to między innymi 
niski koszt realizacji, przydatność w różnych 
zastosowaniach i prosta konstrukcja. Jego 
uniwersalność pozwala na zredukowanie licz- 
by linii (w całości wyróżnionych w tabeli 2), a 
nawet w minimalnych zestawach wykorzysta- 
nie tylko linii transmisji danych. 


Mikrokomputer Atari 800XL nic ma w ze- 
spole wejścia-wyjścia interfejsu V-24. Dlatego 
też wykorzystano jedno z gniazd joysticków, 
które wewnątrz ATARI połączone są z pro- 
gramowalnym 8-bitowym portem wejścia- 
-wyjścia tzw. PIA (układ 6520). Są to 9-sty- 
kowe gniazda typu „Cannon”. Opis styków 
tych gniazd zawiera tabela 3. Porty układu 
PIA pracują w standardzie TTL, co uniemo- 
żliwia bezpośrednie podłączenie do nich linii 
interfejsu V-<24. 


W celu osiągnięcia połączenia wykonany 
został układ dopasowujący* Jego schemat 
ideowy przedstawia rys. 2. Układ dopasowu- 
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Rys. 1. Szkic sprzężeń podstawowych elementów mikrokomputera. 


POZIOM 

WARTOŚCI 

NAPICIA 

eunrcja 

sterująca 

LOGIC ZNAJ' 

-12V— 5V 

NIE /NEGACJA/ 

LOGJCZNE.O' 

+3V-m12V 

TAU /POZYCJA/ 


Tabela 1: Poziomy w standardzie V-24 


NR 

ST¥UU 

NP 

SYGNAŁU 

NA2WA- 

SYGNAŁU 

OPIS SYGNAŁU 

i 

104. 

P6ND 

Ziemia ochronna /ełłnam/ 

? 

102 

S.GND 

Ziemia sygnałowa 

£ 

' 103 

T*D 

Dane ruadaniane 

3 

104 

P*D 

Dawe od bienane 

4 

105 

RTS 

Żądanie nadawania. 

3 

106 

CTS 

Gotowość nadawania 

6 

10? ' 

DST! 

Gotowość i jrządzenia "t Van— 
Ł-wtsji danych . 

20 

100 

DTP 

Gotowość 

8 

109 

DCR 

Poziom sygnału odbieranego 
^>rzez urządzenie. 

25 


LB"RM 

Zaiętdść bufora drukarzu 


Tabela 2: Sygnały Interfejsu V-24 





jący zasadniczo spełnia dwa zadania: — dopa- 
sowuje poziomy logiczne sygnałów w stan- 
dardzie TTL i V-24, — pozwala na równoleg- 
łe podłączenie do jednego wyjścia mikrokom- 
putera dwóch urządzeń zewnętrznych (dru- 
karka, monitor). 

Układ został uproszczony do minimum, 
zapewniając jednak możliwości wykorzystania 
wszystkich trybów pracy drukarki D-lOfll 
Dzięki temu uzyskano niski koszt układu oraz 
możliwość wykonania go przez średnio za- 
awansowanych amatorów. Sposób wykorzy- 
stania linii interfejsu V-24 i gniazda joysticka 
przedstawiono w tabeli 4. Od strony mikro- 
komputera do podłączenia układu dopasowu- 
jącego wykorzystane zostały 4 styki pierwsze- 
go gniazda, z których dwa do transmisji (1 i 2 
styk, tj. 0 i 1 bit portu A układu PI A). Pozo- 
stałe dwa styki to „ziemia sygnałowa” i napię- 
cie + 5V. Z urządzeniami zewnętrznymi 
układ dopasowujący współpracuje za pośred- 
nictwem 7 styków (tabela 4). Na uwagę 
zasługują: 


— LBRM — sygnał zajętości bufora, wystę- 
pujący tylko w drukarkach, 

— CTS, DSR, DCR — sygnały informujące 
urządzenia zewnętrzne o operatywności kom- 
putera, 

— TxD — sygnał wyjściowy urządzeń' ze- 
wnętrznych; w tej konfiguracji jest on cały 
czas ,1" logiczną, czyli ma napięcie ujemijp, 
które wykorzystano do zasilania układu dopa- 
sowującego. 

Oprócz układowej realizacji dopasowania, 
w celu sprzężenia mikrokomputera z urzą- 
dzeniami, należało stworzyć aparat progra- 
mowy, który będzie przedstawiony w drugiej 
części artykułu. 

Zbigniew FIGUŁA 
Artur KOŁOSOWSKI 



NAZWA 

STYUU 

NAZWA SYGNAŁU 

1 

Jot) Stic — Forward 

z 

Joystic -Bacll 

3 

Jot) Stic — Zeft 

4 

Joijstic — Rtqłrlr 

5 

-Analoq - B /PadcLle/ 

6 

Trtqqer 

? 

5 Volts 

8 

G-totu-icL 

9 

■AitaLog - A/Paddte/ 


Tabela 3: Sygnały gniazda Joyatick’a 


ZŁĄCZE JOYSTICK 
MIKROKOMPUTERA 

ZŁĄCZE V-24 

URZĄDZENIA 
ZEWNĘTRZNE 
WYKORZYSTU- 
JĄCE SYS. 

KIERUNEK SYGNAŁU 
I OPIS 

NT. 

ST* KU 

Nazwa 

SYGNAŁU 

NR 

styku 

NAZWA 

sygnału 

1 

PORWARD 

3 


Dr u Icarlci 

Mo-mtuy 

eKremowcj 

P/rzesyTariie dano cK z wi- 
K/roŁo/mputezra ao 
u rządzeń 

z 

BACK. 

21 

25 

LBRM 

Drulcarlci 
2.\ -D2M- 180 KSR 
25 'D too 

P-TZcsAjLantc sygnału zaję- 
tv£ci z drułia rek. do 
wiKrokz>-mpuł&/a 

7 

+ 5 V 

5 

6 
S 

CTS 

DSR 

DCR 

X>r\jVxxrk.i 

Monitor 

e-kranowej 

BłzesyTdrue sygnału ope- 
ratywności /gotowości/ z 
łnikfdco-thputT. do drukarek 

8 

GROUND 

7 

5-Gnd 

Druł ccxrki 

Mcmttor 

e-kranowy 

Zgarnia, sygnałowa 

- 

- 

2 

T*D 

UkTad. 

dopCLfeOWU— 

Uj««n<ne /na. pięcie zasi- 
lające okład, dopaso- 


Tabela 4: Zestawienie sygnałów dopasowujących 
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W tegorocznym konkursie na scenariusz gry komputerowe, I miejsce zajęła „Ucieczka Orła”. Dziś druku- 
jemy ten scenariusz ogłaszając tym samym li etap konkursu. 

Do 1 maja 1989 r. czekamy na program komputerowy (sprzęt dowolny) napisamy na podstawie zwycię- 
skiego scenariusza, bądź też oparty na własnym, oryginalnym pomyśle. 

Na zwycięzcę czeka komputer. 


I. Ogólny opis gry 

Gra składa się z siedmiu epizodów: 

1 ) odwrócenie „Orła" dziobem w kierunku wyjścia z portu, 

2) uniemożliwienie demontażu żyrokompasu, 

3) sondowanie portu, 

4) ucieczka, 

5) przejście przez Bałtyk, 

6) przejście przez pole minowe na Skagerraku, 

7) wejście do portu w Rosyth. 

W każdym epizodzie gracz ma prawo do wykonania trzech prób. 
Zaliczenie epizodu sygnalizowane jest pojawieniem się planszy z 
ręką zaciśniętą w pięść i kciukiem skierowanym w górę, niezali- 
czenie — podobną planszą, ale z kciukiem skierowanym w dół. 

Po zakończeniu epizodu gracz powinien mieć możność: 

1 ) rozpoczęcia gry od początku, 

2) przejścia do następnego lub dowolnie wybranego epizodu. 
Pozwala to na doskonalenie umiejętności w trudniejszych dla da- 
nego gracza epizodach bez konieczności powtarzania całej gry od 
początku, w pierwszym okresie poznawania gry oraz wybór tylko 
ulubionych epizodów, gdy gra jako całość już się znudzi. 

Gra jest zakończona, gdy gracz pomyślnie zaliczy wszystkie 
epizody. Gracz jest dodatkowo punktowany, przy czym: 

1 ) dostaje ujemne punkty za każdą nie zaliczoną próbę lub stor- 
pedowanie jednostki sojuszniczej, 

2) dostaje dodatnie punkty za storpedowanie każdego statku lub 
okrętu nieprzyjacielskiego oraz niezauważenie przez nieprzyja- 
cielskie jednostki. 

Podstawową umiejętnością, którą powinien opanować gracz, 
jest prowadzenie (manewrowanie) okrętu podwodnego. Komendy 
(dokładna lista komend do ustalenia w czasie programowania) na 
stery, silniki itp., powinny być wprowadzane z klawiatury w pełnym 
brzmieniu np.: „ster lewo 15", „oba motory naprzód" itp., wyświet- 
lane na ekranie, a błędy sygnalizowane ( błędnie wydana komen- 
da nie może być wykonana). 

Oczywiście, skala czasu (i pochodne, a przede wszystkim skala 
grafiki) powinna być tak dobrana, aby pozwalała na symulowanie 
rzeczywistego tempa rozwoju zdarzeń. W tym też celu w trakcie 
programowania należy uwzględnić podstawowe parametry ruchu 
okrętu podwodnego. 

Ważnym elementem gry powinien być dźwięk. Podjęciu przez 
gracza odpowiednich decyzji (wydaniu komend) powinny towa- 
rzyszyć określone sygnały dźwiękowe, na przykład klakson na 
zanurzenie czy dzwonki alarmowe. Należy również symulować: 
szum motorów (diesli), szum śrub jednostek przechodzących nad- 
„Orłem". 

Grę otwiera plansza ukazująca sylwetkę „Orła" (widok z boku z 
podniesioną banderą), słychać pierwsze takty piosenki „Morze 
nasze morze". 

II. Przebieg gry 

Epizod 1. Odwrócenie „Orła” dziobem w kierunku wyjścia z 
portu 

Po internowaniu „Orla" zabrano z niego dziennik nawigacyjny i 
mapy, a po przeholowaniu go w głąb basenu portowego przystą- 
piono do jego rozbrajania: skonfiskowano znajdującą się na okrę- 
cie broń palną, wyjęto z dział zamki i rozpoczęto wyładowanie tor- 
ped. 

W momencie, gdy załoga podjęła decyzję o ucieczce, wyłoniło 
się kilka zasadniczych spraw, które warunkowały jej powodzenie. 
Przede wszystkim okręt musiał zostać obrócony dziobem w kie- 
runku wyjścia z basenu portowego. Następnie należało uniemoż- 
liwić dalsze rozbrajanie okrętu, demontaż żyroskopu i radiostacji 
oraz rozłączenie wałów śrubowych. Należało również przeprowa- 
dzić pomiary głębokości basenu w celu znalezienia bezpiecznego 
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przejścia. Trzy pierwsze epizody nawiązują do tych przygotowań. 

Aby „Orzeł" został odwrócony dziobem w kierunku wyjścia z 
portu gracz musi wygrać (w ustalonej liczbie ruchów) grę typu 
„Master Mind". 

Plansza podzielona jest na dwie części. Dolna część przedsta- 
wia widok z góry na „Orła" przycumowanego do nabrzeża, rufą do 
wyjścia z portu. W górnej części dwie sylwetki ludzkie dowódcy 
„Orfa" i dowódcy portu stojącego obok tablicy. Po kilku sekundach 
dowódca portu ruchem ręki „rzuca" na tablicę cztery znaki zapy- 
tania. Zaczyna się gra. Po odgadnięciu liczby „Orzeł" zostaje 
obrócony dziobem w kierunku wyjścia z portu. 

Epizod 2. Uniemożliwienie demontażu żyrokompasu 

Uniemożliwienie demontażu żyrokompasu polega na wygraniu 
gry zręcznościowej. Plansza może przedstawiać labirynt stylizo- 
wany na przekrój łodzi podwodnej. W centralnym punkcie labiryntu 
znajduje, się żyrokompas. Zadaniem gracza jest niedopuszczenie 
członków ekipy demontującej do żyrokompasu. 

Epizod 3. Sondowanie portu 

Zadaniem gracza jest znalezienie bezpiecznego przejścia przez 
basen portowy i na trasie wyjściowej z basenu na redę. 

Gracz może znajdować się w dwóch stanach: 

a) sondowanie (odpowiedni rysunek bączka), który jest stanem 
początkowym, 

b) łowienie ryb (odpowiedni rysunek bączka). 

(Przejście ze stanu ą) do b) odbywa się na przykład przez pod- 
wójne naciśnięcie przycisku Fire). 

Plansza przedstawia zarysy portu z przycumowanym „Orłem", 
obok którego stoi bączek. Sterując nim gracz szuka bezpiecznego 
przejścia: Basen portowy (i trasa wyjściowa) ma kilka poziomów 
głębokości (np. cztery), które sygnalizowane są dźwiękami o róż- 
nych wysokościach) i dodatkowo różnym stopniem zaczernienia 
specjalnego wskaźnika). Najniższy dźwięk świadczy o tym, że bą- 
czek znajduje się w punkcie o właściwej głębokości. W basenie 
(na trasie) jest kilka bezpiecznych przejść (labirynt) przedzielonych - 
płyciznami. Gracz po znalezieniu się w punkcie o odpowiedniej 
głębokości zaznacza to miejsce (naciśnięcie odpowiedniego kla- 
wisza), co powoduje pojawienie się w tym miejscu krzyżyka, i pły- 
nie dalej wsłuchując się w dźwięk i zaznaczając kolejne miejsca. 
Jeżeli dwa kolejne punkty nie są przedzielone płycizną, to na ekra- 
nie pojawia się łącząca je podświetlona linia. Jeżeli linia (i krzyżyk) 
nie pojawi się, to gracz musi rozpocząć poszukiwanie od ostatnio 
zaznaczonego punktu. Trasę przejścia wyznacza się aż do ustalo- 
nej linii wytyczonej bojami na redzie. 

W wykonaniu zadania przeszkadzają kręcące się po porcie mo- 
torówki. Gracz musi maskować swoje poczynania, albowiem jego 
misja może być rozpoznana, ą tym samym ucieczka udaremniona. 
W tym celu gracz przechodzi w stan „łowienia ryb". Przejście w 
stan „sondowanie" wymaga pewnego czasu i umiejętności. 
Ściągnięcie wędek odbywa się przez 2—3-krotne powtórzenie (z 
klawiatury) określonej sekwencji cyfr, ukazujących się w wybra- 
nym miejscu ekranu. Pomyłka powoduje, rozpoczęcie czynności 
od nowa (inna sekwencja cyfr), a przy tym liczba powtórzeń 
wzrośnie. 

Czas wykonania zadania jest ograniczony (od świtu do zmroku). 
Układ labiryntu powinien być losowo zmieniany po każdym rozpo- 
częciu gry. 

Epizod 4. Ucieczka 

Plansza przedstawia basen portowy z przycumowanym „Orłem" 
i wytyczoną trasą przejścia (widok z góry). Zadaniem gracza jest 
wyprowadzenie „Orła" z basenu po wytyczone / trasie z określo- 
nym, ale wąskim marginesem. Wyjście poza margines oznacza 
unieruchomienie okrętu na mieliźnie i koniec ucieczki. Ciekawym 
efektem zwiększającym atrakcyjność gry byłaby możliwość spro- 
wadzenia okrętu z mielizny w wypadku, gdy wszedł na nią z nie- 
wielką prędkością. Ucieczkę w basenie portowym utrudniają jedy- 


nie reflektory rozjaśniające linie trasy, przez co jest ona momen- 
tami slltoo widoczna. Odgłosy serii z karabinów maszynowych i 
smugi pocisków są tylko dodatkowym efektem wizualnym. Dopie- 
ro po wyjściu z basenu portowego gracz trafia na dodatkową trud- 
ność — ostrza artylerii nabrzeżnej. Z lewej i prawej /strony ukazują 
się pociski zmierzające w rejon znajdowania się okrętu. Gracz 
manewrując okrętem w granicach wytyczonego szlaku (margines 
większy niż w basenie) musi uniknąć trafienia pociskiem. 

Ucieczka uwieńczona zostaje sukcesem, gdy okręt po osiąg- 
nięciu linii wyznaczonej bojami zacznie się zanurzać. 

Epizod 5. Przejście przez Bałtyk 

Po udanej ucieczce „Orła" z portu w Tallinie jego dowódca, ka- 
pitan Grudziński, podjął decyzję: pozostać na Bałtyku i tropić nie- 
przyjacielskie okręty i statki tak długo, jak na to pozwoli zapas pa- 
liwa, prowiantu i słodkiej wody do picia, następnie zaś przedostać 
■się przez Cieśniny Duńskie i dotrzeć do Anglii. Epizod 5. Nawiązuje 
do bałtyckiej odysei „Orła". 

Zadaniem gracza jest przeprowadzenie „Orła" przez Bałtyk i 
ewentualne tropienie nieprzyjacielskich okrętów i statków. Zagro- 
żeniem są samoloty i okręty nieprzyjacielskie. 

Epizod jest dzielony programowo na odcinki długie: dzień (kilka 
minut) i krótkie: noc (kilkadziesiąt sekund). Przejście odbywa się w 
dzień, noc jest przeznaczona na ładowanie akumulatorów i odno- 
wienia zapasu powietrza. To założenie, niezgodne z rzeczywistoś- 
cią, służy uatrakcyjnieniu gry. 

Okręt poruszać się może w położeniu nawodnym lub podwod- 
nym (w tym na głębokości peryskopowej z wysuniętym perysko- 
pem). W położeniu podwodnym okręt porusza się dwa razy wolniej 
niż w położeniu nawodnym. Zapas powietrza starcza na 2/3 dnia, 
a bateria akumulatorowa na ruch z prędkością optymalną przez 
połowę dnia. To zmusza gracza do stosowania odpowiedniej tak- 
tyki prowadzenia okrętu: zasadniczo w położeniu nawodnym, a tyl- 
ko w chwili zagrożenia w położeniu podwodnym. Dodatkowo tak- 
tykę taką należy wymusić przez zwiększenie (zwiększanie) liczby 
zagrożeń po upływie określonej liczby dni. 

Ekran podzielony jest na trzy części. W lewej górnej części wy- 
świetlane są: komendy gracza, kurs okrętu, aktualny kąt obserwa- 
cji wzrokowej Uczony względem osi podłużnej okrętu, zapas powie- 
trza, stan baterii akumulatorów, wskaźnik „noc — dzień". W prawej, 
górnej części ekranu zobrazowana jest mapa Bałtyku z zaznaczo- 
ną linią brzegową, ważniejszymi miastami itp. W trśkcie gry kreś- 
lona jest na niej trasa „Orła". 

Dolna część ekranu może przedstawiać w zależności od sytua- 
cji 3 obfazy: 

a) widok morza w położeniu nawodnym okrętu, 

b) widok morza przez peryskop, 

c) sylwetkę okrętu (przekrój poprzeczny) na ciemnym tle (w zanu- 
rzeniu). t 

Uwaga I Ideałem byłoby zastosowanie w wariancie c). grafiki 
trójwymiarowej. 

W położeniu nawodnym (i na głębokości peryskopowej) gracz 
musi vy sposób ciągły prowadzić obserwację dookólną. Okręty i 
statki ukazywać się będą jako sylwetki widziane z boku lub przodu 
(wtedy idą kursem zbieżnym). Sylwetki muszą być charakterysty- 
czne, umożliwiające rozpoznanie rodzaju jednostki przez gracza. 
Należy zaprogramować co najmniej cztery typy sylwetek z okresu 
II wojny światowej: ścigacz, niszczyciel, statek handlowy nieprzy- 
jaciela, statek handlowy sojuszniczy. 

Skuteczny atak torpedowy możliwy jest wyłącznie wówczas, gdy 
okręt (statek) widziany jest z boku. Po podjęciu decyzji o ataku na 
ekranie pojawia się celownik i dane o odległości celu; naprowa- 
dzanie na cel całym okrętem. W trakcie przeprowadzania ataku 
gracz powinien być informowany o zbliżaniu się innego niż atako- 
wany obiekt. 

Okręty i samoloty po zauważeniu „Orła" atakują go bombami 
głębinowymi. Należy przewidzieć cztery sytuacje, zależnie od 
szybkości reakcji gracza i zanurzenia okrętu po zauważeniu nie- 
bezpieczeństwa: 

a) okręt (samolot) w ogóle nie zauważa „Orła" na skutek jego 
szybkiego zanurzenia (sytuacja punktowana), 

b) „Orzeł" przed zanurzeniem zostaje zauważony z dużej odleg- 
łości — rozrzut bomb przy ataku duży, 

c) „Orzeł" przed żanurzeniem zostaje zauważony ze średniej 
odległości — rozrzut bomb rhniejszy, 

d) mała odległość — rozrzut bomb mały. 


Odległości związane z powyższymi sytuacjami muszą być inne, 
gdy „Orzeł" znajduje się w położeniu nawodnym, i jeszcze inne, 
gdy znajduje się na głębokości peryskopowej. 

Okręt w położeniu podwodnym odpiera ataki bombowe przez 
manewrowanie. W trakcie zmian głębokości zanurzenia należy 
uważać na dno i jego ukształtowanie (skały), aby nie rozbić okrętu. 
Opadające bomby widoczne są na ekranie, głębokość wybuchu 
ustawiona jest losowo. 

Epizod 6. Przejście przez pole minowe 

Po przybyciu na wody Skagerraku, w odległości 15 mil od 
okrętu latarniowego „Skaw", „Orzeł" trafia na pole minowe... 

W tym epizodzie gracz musi się wykazać dobrym słuchem oraz 
umiejętnością szybkiego, precyzyjnego manewrowania okrętem. 

Ekran jest prawie ciemny z lekko zarysowaną sylwetką okrętu 
(przekrój poprzeczny), niezmienny w czasie, jedynie w razie wybu- 
chu miny rozjaśnia się pokazując gnieciony wybuchem okręt. 

Trafienie na linę utrzymującą minę sygnalizowane jest dźwię- 
kiem. Informacja o tym, po której stronie okrętu jest lina, zawarta 
jest w wysokości dźwięku. W miarę przesuwania się liny po burcie 
(wzdłuż podłużnej osi symetrii okrętu) wysokość dźwięku rośnie. 
Jeżeli lina zbyt długo przesuwa się wzdłuż burty, mina wybucha 
(przy określonej wysokości dźwięku). Oczywiście, im prędkość 
okrętu jest większa, tym szybciej wybuchnie mina, a więc reakcja 
gracza powinna być szybsza. Ten sam efekt (ale w znacznie szyb- 
szym tempie) powinno wywoływać „przemieszczenie" się liny (tej 
znajdującej się przy burcie, lub innej znajdującej się w pobliżu) 
wzdłuż poprzecznej linii symetrii okrętu; może się to zdarzyć w 
czasie gwałtownie wykonanego zwrotu lub zwrotu niewłaściwie 
wykonanego, tzn. na znajdującą się przy burcie linę. Czas wyko- 
nania zadania jest ograniczony. 

Epizod 7. Wejście do portu w Rosyth 

Po przejściu przez Morze Północne „Orzeł" znajduje się 
w pobliżu wybrzeży szkockich na wysokości Firth ofForth. Wobec 
braku szyfru okręt otwartym tekstem sygnalizuje swoje przybycie. 
Sytuacja jest w dalszym ciągu niebezpieczna, albowiem Anglicy 
mogą podejrzewać mistyfikację, a Niemcy po przechwyceniu ra- 
diogramu mogą skierować do miejsca, gdzie znajduje się „Orzeł", 
swoje jednostki. 

Plansza przedstawia widok z góry na stojącego w prawej części 
ekranu „Orła", z lewej strony widoczne są cztery przylegające do 
siebie {dwoma bokami) kwadraty. Gracz musi nadać sygnałami 
Morse‘a radiogram: „Przypuszczalna pozycja 0630 na wyznaczo- 
nym miejscu dla polskiej Marynarki Wojennej. Proszę o pozwole- 
nie wejścia i o pilota, ale nie mam map. Orzeł " 

Treść tekstu jest autentyczna, można ją skrócić. Jeżeli tekst 
zostanie nadany prawidłowo, przyjdzie zakodowana odpowiedź 
wskazująca, do którego kwadratu ma udać się okręt. „Rozszyfro- 
wanie" kodu polega na odgadnięciu w grze typu „Master Mind" 
dwóch dwucyfrowych liczb (współrzędnych kwadratów). Po od- 
gadnięciu współrzędnych kwadraty zostają opisane i „Orzeł" bę- 
dzie atakowany torpedami wystrzelonymi przez nieprzyjacielski 
okręt podwodny. Uniknąć ataku można jedynie przez szybki ma- 
newr nawodny. 

Gracz, który nie odgadnie współrzędnych w trzech próbach, ma 
jeszcze szansę na zakończenie gry, ale musi się wykazać dosko- 
nałym opanowaniem „manewrówki" , prowadząc okręt pod zma- 
sowanym ogniem artylerii nabrzeżnej do dowolnego kwadratu (tyl- 
m ko jedna próba). 

Pomyślne zakończenie tego epizodu (i wszystkich poprzednich) 
jest równoznaczne z pomyślnym zakończeniem gry. 

III. Zakończenie gry 

Na zakończenie gry pojawia się plansza ukazująca sylwetkę 
„Orła” (widok z boku z podniesioną banderą) przesuwającą się na 
tle zabudowań portowych i słychać pierwsze takty Mazurka Dą- 
browskiego. W dolnej części planszy podawana jest liczba nie- 
udanych prób, liczba storpedowanych jednostek oraz liczba uzy- 
skanych punktów. W wypadku gdy gra zostanie zakończona bez 
zaliczenia wszystkich epizodów, efekt końcowy ograniczony jest 
tylko do obrazu płynącego na tle portu „Orła". 

Andrzej GRZESIAK 
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SPECTRUM 


Przesuwanka 


Gra polega na przesuwaniu pasów 
planszy tak, aby nasze piony znalaz- 
ły się w miejscu uprzednio uzgodnio- 
nym z przeciwnikiem (najczęściej jest 
to startowe pole przeciwnika). Każdy 
gracz ma dwa ruchy: przesunięcie wy- 
branego pasa w pionie i w poziomie. In- 
formacje o dostępnych klawiszach 
znajdują się na ekranie. 


oprać 

Gra przeznaczona jest dta dwóch 
graczy. Graczowi w jednej Kolej- 
ce przysługują dwa ruchy: piono- 
wy i pozioey. Gracze saai usta- 
laja położenie pionow. Które 
Kończy gre 


ustalanie ruchu w pionie 
Klawisz < s > - w lewo 
Klawisz <6 > - w prawo 
ustalanie ruchu w pozioiie 
K law isz <6 > - w do l 
Klawisz <7 > - w gore 
Klawisz <r> - wyKonanie ruch 
Klawisz <s > - Koniec gry 

wciśnij <s > 


plansza informacyjna gry 


U 


<5>-lewo 
<6>-prawo 
<r >-ruch 
<s >-stop 


podpis: początkowe ustawienie pionów. 
Wyróżniony pas planszy wskazują: .. 


Życzę przyjemnej zabawy 

Krzysztof POŹNIAK 


«łłłłł«Httłtł 


REM 
REM 

REM , ©1908 

REM Krzysztof PozniaK 
REM 

REM PRZESUURNKR 
REM gra planszowa 

REM 

REM ****»•«***•«•**•«•«*«•• 


20 D IM X f 6 , : DZM y(6, . DIM n (8 


111 S5 M S ulł U 

120 PRINT OT 21,0; FLASH 1; 8RI 
GHT l; " DEMONSTRACJA - wciśnij K 
lawisz" 

130 LET X«INT <6*RND, 42: GO SUB 

14-00. LET M-INT <6*RND>+2. GO S 
UD 1300: IF' INKEY »»••" THEN GO YO 
120 

200 rem nBBsnnnRiii 

210 CLS 

220 BEEP .1,10 BEEP .1,20: BEE 
“ 1,30 

r — 

i 

40 

300 rem nami 

310 CLS 

320 GO 3UB 3000: GO 5UB 900 

330 PRIf- — “ — — 

4, " pion 
T 16,23 
-stop" 




3Uo JUBB U U 3UD 900 

I^T RT 3,25, "ruch”, RT 5,2 
na " ; RT 10,23; "Klawisz", R 
; "<r>-rueh";AT I8,23;"<s> 


i , co, m ,ni o . co , 

••<B>-lewo Ł ;RT 14 , 2 


4-00 REM I 
♦ 10 PRIN. ... 

■’ ■* " ; RT 12,23; 

3; " <6> -prawo " 

4-20 GO SUB 1500: GO SUB 1400 

430 PRINT RT 12 . 23 ; " <6 > -dO l " 

T 14,23; ' 

440 GO i 
500 REM . 

510 PRIN1 
" ■ " ; RT 12,23; 

3; " <8>-prawo" 

520 GO SUB 1500: GO SUB 1400 
530 PRINT RT 12,23; " <6> -do l ";R 


600 GO TO 400 
800 GO SUB 1500. GO SUB 1400 i 
O SUB 1600: GO SUB 1300: GO TO : 

lii for 

NEXT X 

920 FOR y-2 TO 7: GO SUB 1340: 


1010 I F n (W .X) >1 


ikl>"nV 

l&śi ł PLO-f 16 *X, 
,0: DRPU 0,-16: 




PRINT RT 2 


#y +1 ■ 2*x ; " ■ " 

75- io*y : DRRU 16 
DRRU -16,0. DRRU 


1050 RETURN 
1100 REM H" 
1110 IF X 


RN 

Mi 1 , i m 


110 IF X (X -11 =0 THEN PRINT RT 0 
2*x ; " ■'’ ; RT l,2*x; " ■ ";flT IB, 2* 
; " " ; RT 19 ,2*x; " 

* ”0 IF X ( X — 1 1 ' 

*x ; " i ••; RT 

"/RT 1,2 


... -1, »1 THEN PRINT RT _ 
1 ; RT I9,2#x; " ■'•'; RT 0,2 
, , u r 1 , 2*x : •* '• 

1130 PLOT 16*X,31: DRRU 16,0 

1140 RETURN 

ii?! SW-iiaiJJ |l!Lf JIT. 


*W / IB; "■■■" ; RT 2*y *1, 18; •• 
. »y,0;" ^;AT 2#U4l.0;" 
1230 PLOT 144', 176-16*y : 


1320 IF y(y-l»«0 THEN FOR X «1 TO 
7: LET n <y ,x, *n <y,X4l, . NEXT X: 
LET n (y ,8) -0 

1 ? 3 S-3C y<V-l, «1 THEN FOR X »7 TO 
1 STEP -1: LET n (u , x 41) =n (y , x , : 
NEXT X: LET n (y , 1,-0 
1340 FOR *»l TO B: GO SUB 1000 
NEXT x : GO SUB 1200 

???? Bęr.uR^ 


1400 REM L- 

tS 7 x ‘X -1> *NÓT X łx-l, 

1420 IF X ( X - 1 , =0 THEN FOR y-1 TO 
/^.LET^n^jO wn (y + l,x, NEXT y : 


1430 IF X (X— 1, ■ 1 THEN FOR y«7 TO 
l 5 7ep • L ET n(u + i,x»«n(y,x, : 
NEXT y : LET n <l,x) =0 
1440 FOR U-l TO 8: GO SUB 1000: 
NEXT W: 00 SUB 1100 Ą 

1450 RETU RN 

1500 REM iBHraEinilHHBnM 

1510 LET X»2 : 00 TO 1540 

1520 GO SUB 2000: PRINT RT 21. 2« 

1530 IF X0«"B' AND X >2 THEN LET 
X.X-1: GO TO 1540 

1531 IF xf."5" RND 

X-7: 00 TO 1540 

* <7 then let 
i?” ; e " 7 THEN LET 

T i 


J O ' 

r i 


GO TO 


1610 LET U >2: GO TO 1640 

1620 GO SUB 2000. PRINT PT 2*y , 2 

1, " ■’ , RT 2*y 41 , 21, '• •• 

1630 IF«X»- r, 6" RND y<7 THEN LET 
y «*v 41: GO TO 1640 

1631 IF x f ■"B" RND y*7 THEN LET 
y«2 GO TO 1640 

1632 IF X 0»"7“ RND y >2 THEN LET 


1633 IF x*o"7" RND y*2 THEN LET 
y-7: 00 TO 1640 

1634 IF X|«'T " THEN RETURN 

1640 PRINT RT 2łU .21; ••*", RT 2«y4 

Mfi ...L 

KEY % : BEEP .05,30: JF X*0"S ,T TH 


— 

EN RETURN 
2020 RUN 
3000 REM ‘ 


3010 DIM x7tT 


ET u ( 
3030 


DIM y (6, : DIM n(B 


3020 FOR K«4 TO 6 LET X(K,»1: L 
tli , -1 : NEXT K 

. _ FOR K =2 TO 4: FOR l =2 TO 6- 
LET n (K , I ) »1 LET n (9-K ,9- l, ■ 
* NEXT l : NEXT K 

3040 RETURN 

4000 REM pipBBSHSaHBBBiHHBn 
4010 PRINT TRB 10; INUERSE 1, "PR 
ZESUURNKA"; INUERSE 0, TRB 7; f, wer 
sja Komputerowa"; TRD 3;"opracowa 

l K. PozniaK ©1966 Gra przezn 

aczona jest dla dwochgraczy. Gra 
czowi w jednej Kolej-ce przysług 
uja dwa ruchy: piono-wy i pozioa 
y. Gracze sami usta- łaja poloze 
nie pionow, które Kończy gre” 
4020 PRINT TRB 7; INUERSE 1; "dO 
stpne Klawisze:"; inuerse 0, - "u s 

talanic ruchu w pionie: k law 

isz <5/ - w lewo Klawisz <6> 

- w prawo ustalania ruchu w p 

OZiOMiC: Klawisz <6 > - W dO l 


iec gru” Klawisz <s> - Kon 

is?". p łl 1N T ™ »•; rLHSM i, bri 

GHT l; "wciśnij <s > 

4060 RETURN 

9000 ReM pnnBBHnBni 

9010 CLERR • 5RUE "przesuw • Rp ‘ L 
INE 1: UERIFY "prztSUW.KP 7 
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L //a \/a ti (11) 


Odcyfrowywanie 


Duże podobieństwo do zadań polegających na rozszyfrowaniu 
spłowiałych rękopisów; prezentowanych w odcinku 9 „IKS" nr 
1 0/88), mają dzisiaj prezentowane 3 przykłady, Ich istota sprowa- 
dza się do odgadnięcia, jakimi cyframi zakodowano poszczególne 
litery. Dokładną informację na ten temat otrzymuje użytkownik po 
zainicjowaniu pracy programu na ekranie, którego kopię przed- 
stawia poniższy rysunek: 


Mus i sa 

mi?, 


„jjrcss-iS- 


•danin . L 
zadaniu 
«•_ cyfr 


i : 




STEROM ANIE KLAHIS3AHI, 


odstauio cyfrę 
on i ero 


•o wykonywań 1 a 


NACISNIJ DOWOLNY KLAWISZ 

W dalszej częścj program kolejno prezentuje 3 zadania, 
Przejścje do następnego zadania odbywa się ^ 2 sytuacjach: 

— poprawnego rozwiązania bieżącego przykładu; 

— odpowiedzi twierdzącej na pytanie: 

„POPEŁNIŁEŚ BŁĘDY. SPRÓBUJESZ JESZCZE RAZ?" 

Przykładowa postać zadania na ekranie monitora jest przedsta- 
wiona na poniższym rysunku: 


Wersja źródłowa programu w języku Basic jest następująca: 

10 ’ 

20 ’ ekran inforwacyjny 

30 ’ 

*0 MODĘ 1 : INK 0,0: INK 1 ,26:INK 2,9: INK 3, 6: B0RDER 0:P«RER OiCŁSPEN I 
50 PRINT "Musi sz rozwiązać 3 zadania. Litery oznł-r?»jł cyfry. W każdy 
■ zadaniu te sawe litery oznaczaja te sa*e cyfry, ale nie “<? 
wszystkich raze» wziętych. ■ 

60 PR!NT:PRINT:PRINT 'STEROWNIE KLAHISZAHI: ' 

70 PRJ NT: PRINT • - •;CHR*(2ł0t;' , ■;CHR»(24H ; • - przesuwanie lyrso 

ra do* 

80 PRINT SPC(I3) j'Iitery, pod Kora chcewy' 

90 PRINT SPCI13); "podstawie cyfr,* 

100 PRINT ' - ’ENTER’ * koniec wykonywania z»d?aia* 

110 LOCATE 7,I8:PRINT 'NACISN1J DOWOLNY KANTC?' 

120 IF INKEYf=" THEN GOTO 120 
130 ’ 

MO ’ segnent sterujący 

130 ’ 

160 N00E 1 

170 FOR 0=1 TO 3: READ ILLIA,|),IUIA,2):NE*T A 

180 DATA 5,15,6,15,6,21 

190 DIII MSP(21,2>rDIH LITERY* (21 > 



UE 12:12 

1 2 


Danuta KWASIŻUR 

200 FOR 1=1 TO 3 - - 

210 N0DE I 

220 PAPER 1 : PEN OsSRAPHICS PEN 0 
230 ON I 60SU8 720,740,760, 

240 G0SUB 780 

250 NIND0N f3,8,40,3,4:PAPER 12,1 
260 FOR J=l TO ILL(I,2> 

270 10CATE NSP(J,I),NSP(J, 21 SPRINT LITERY* ( J i 
280 NETT J 

290 FOR J«1 TO ILLMJ) 

300 L0CATE 24, 9*J:PRINT LITIłJ) 

310 NETT J 
320 k=10 

330 L0CATE 23,k:PRINT CHR* (243) 

340 al=INKEY* 

350 IF a*=" THEN GOTO 340 

360 IF INrEY(6)=0 THEN GOTO 520 

370 IF a*=CHR»f240) THEN ROTO 4łO 

380 Il p ~e»=CHR*ł24ll THEN Mtrn 4f,0 

390 IF ASC(A*K4B 0R ASCtA*) >57 THEN GOTO 430 

400 L0CATE 25,K:PRINT '=’;A» 

410 CYFt <K-9)=VAL(A*> 

420 60TO 480 

430 S0UND 1,400: GOTO 340 
440 IF k=10 THEN GOTO 43* 

450 L0CATE 23,k:PRINT ' ':k=M:R0T0 330 
460 IF k=U| (IJI49 THEN GOTO 430 
470 LOCATE 23, k: PRINT • ':f!*kM:6ÓT0 330 
480 FOR V=1 TO 

490 IF UTERY«IV)=UT*(K-9) THEN LOCATE NSP(V,D ,M?PfV,2> SPRINT i|«TTNG 
i CYF1 (K-9) . 

500 NETT V 

510 GOTO 340 

520 G0SU8 980 

530 IF bl =0 THEN 60T0 580 

540 CLS £3: PRINT £3, 'POPEŁNIŁEŚ BŁĘDY. ': PRINT £3, 'SPRÓBUJESZ JESZCZE R 

AZ’ (T/N)'(:INP!JT f3,' ',Tł 

550 IF Tł='T* 0R T«="t" THEN CIS £2:CLS £3: GOTO 260 

560 IF T*=V 0R TI='N’ THEN GOTO 630 

570 GOTO 540 ‘ # 

580 PRINT £3, "BRANO " I ": PRINT £3, 'ZADANIE NYttONANE POPRAWNIE" 

590 FOR G=26 TO 0 STEP -I 

600 B0RDER G: FOR T*1 TO 200.-NFTT T 

610 NETT 6 

620 IF 1=3 THEN END ^ 

630 IE i =3 THEN El)® 

640 CŁS £3: INPUT £3, 'NASTĘPNE ZADANIE (T/NP ',T* 

650 IF Tł='T* 0R T*='t' THEN GOTO 680 
660 IF TI=V 0R Tl='N* THEN END * 

670 60T0 630 
680 NETT l 


W segmencie sterującym wykorzystuje się podprogramy, któ- 
rych rola jest następująca: 

1. Trzy podprogramy realizujące wykonanie ekranów dla po- 
szczególnych zadań (linie 690—770) 

690 1 

700 ’ Podprogramy rysowania ekranów 'dla poszczególnych zadań 
710 ’ 

720 WIND0N £1, 11,18,7, 17:PAPER £1,!:CLS £1::L0CATE 13. I0:PRINT TiPLO 
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t * 192,232: DRAKR 64,0:PL0T 192, 184 j DRAW *4,0 
W 730 MINDON £2,22,27,9, 15: PAPER £2,I:CLS £2: RETURN 

740 HINDON £1 , 1 1 , 18, 7, 17:PAPER fl,l:CLS £1::L0CATE IJ,!0:PRINT -R-jPLO 

T 1 92, 232: DRAWR 64,0:PL0T 192, 184: DRAW 64,0 

750 N INDON £2, 22, 27, 9, 16: PAPER £2,1:CLS £2: RETURN 

760 MINDOH £1,1 1,20, 7, 20: PAPER £1,1:CIS £1 : iLOCATE 17, lliPRINT V:PLO 

T 192, 248: DRANR 64,0:PL0T 192, 200: DRAW J2,0:PL0T 208,1S2:DRAH 

R 32,0: PLOT 208, 104: DRANR 48,0 

770 NINDON £2,22,27,9, 16:PAPER £2,1:CLS £2: RETURN 


2. Podprogram wczytywania danych organizacyjnych do po- 
szczególnych zadań (linie 780—970) 


780 ’ 

790 ’ Podprogram wczytywania danych do aktualnego zadania 
800 ’ 

B10 FOR KM TO 111(1, 1>:READ LITtdOf NEXT K 
820 FOR KM TO 111(1, 2)lREAD LITERY* (K):NEXT K 
830 FOR K«1 TO 111(1, 2):REA0 NSP(K,I),NSP(K,2I:NEXT K 
840 FOR KM TO i 11 (1, 1) :READ cyf (K) :NEXT K 
850 RETURN 

860 DATA *A*, , C , , , I*, , N','T* 

870 DATA MYCYCYIYNYNyTYTYIYCYCYr/AYNYT 1 
880 DATA 14,9,15,9,16,9,15, 10, 16, 10, 14, 12, 15, 12, 16, 12, 13, 13, 14, 13, 15, 1 
3,13,15,14,15,15,15,16,15 


890 DATA 7,4, 1,2,8 

900 DATA MYLYNYOYSYU* 

910 DATA "I".“M*,"U* I , M","U","L","M","U", , 'N“,"U" l “S“,"0 , ,*I",“N","U" 

920 DATA 14,9, 15,9, 16,9, 15, 10, 16, 10, 14, 12, 15, 12, 16, 12,13,13, 14,13, 15, 1 

3,13,15,14,15,15,15,16,15 

930 DATA 1,6, 2, 3, 0,5 

940 DATA "A YEYHYSYTYU* 

950 DATA "EY"YAYUYEYNYAY"YAY"YAYTYNYAYSY 
eynYAYEYRYA' 

960 DATA 14, 9, 15, 9, 16, 9, 13, 11, 14, U, 15, 11, 16, II, 18, 11, 19, 11, 13, 12, 14,1 
2, 14, 14, 15, 14, 14,15,15', 15, 14, (7,15,17, 16, 17, 14, 18, 15, 18, 16, 18 
970 DATA 5, 1,2, 0,6, 3 


3. Program badania poprawnego rozwiązania zadania (linie 
980-1060) 

980 ’ 

990 'Podprogram badania poprawności zadania 
1000 ’ 

1010 bl=0 

1020 FOR zM TO iii lift) 

1030 IF cyf (z)«cyM(z) THEN GOTO 1050 
1040 blM 
1050 NEXT z 
1060 RETURN 

Danuta KWASIŻUR 


Zanim powstanie mapa 



1) Izabela Grochala na podstawie wykonanych uprzednio zdjęć lotniczych uaktualnia dane na istniejącej już mapie. 
To urządzenie, zainstalowane w pracowni autografów, jest w tym bardzo pomocne. Obserwując w okularze zdjęcia 
— z zastosowaniem metody stereoskopii — otrzymujemy przestrzenny obraz badanego terenu. Przed dobrym fa- 
chowcem nie ukryje się żaden element czy szczegół na obserwowanym obszarze. Oczywiście możliwe są nie tylko 
poprawki czy korekty na mapie, ale opracowanie jej od podstaw. 


2) To urządzenie jest analogiczne do poprzednie- 
go, ale znacznie nowocześniejsze, dużo szybsze 
i precyzyjniejsze. Wymaga jednak od operatora, 
mgr inż. Barbary Komendackiej doskonałego 
wzroku, który jest jakby punktem wyjścia. Resztę 
wykonuje komputer. 
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4) Na tych urządzeniach Ewa Jesion pracuje nie tylko 
przy mapach. Przygotowywany jest na nich także Ma- 
gazyn Informatyczny Horyzontów Techniki — „Mi- 
kroklan”. CR terminal służy do składu i edycji tekstów. 
Monitor o przekątnej 380 mm wyświetla znaki alfanu- 
meryczne. Klawiatura wyposażona jest w 58 dodatko- 
wych klawiszy funkcyjnych programowanych przez 
użytkownika. Z prawej strony Typeview 300 — urzą- 
dzenie podglądowe, pokazujące na pionowym ekranie o 
formacie zbliżonym do A4 rzeczywisty obraz składu 
typograficznego. 

5) Logoscanner z komputerem IBM PC XT — wszyst- 
ko firmy Linotype. To także urządzenia wielofunkcyj- 
ne. Piotr Kurzec opracowuje całe nazewnictwo do 
mapy. 

6) Pominęliśmy wiele etapów powstawania mapy. Nie 

były tam bowiem aż tak bardzo wykorzystywane tech- 
niki komputerowe. A właśnie w fotoreportażu chodziło 
o pokazanie roli komputera we współczesnym tworze- 
niu mapy. Ostatecznie jednak wychodzą one spod tra- 
dycyjnych maszyn drukarskich. j raJCH 

(Foto: J. Zelman) 


3) fDla>'Jprzyrządów analitycznych, a 
które prezentuje mgr inż. Jerzy Sa- 
czuk, nie ma rzeczy niemożliwych. 

W tej chwili na ploterze powstaje 
obraz lasu. Szybkość kreślenia jest 
wręcz nieporównywalna z tempem 
pracy kreślarza. Urządzenie też mo- 
że grawerować. Dokładność kreśle- 
nia wręcz nieprawdopodobna: 0,02 
mm! Cała mapa zapisana jest i za- 
chowania na nośniku magnety- 
cznym. W razie potrzeby może zos- 
tać przeniesiona na papier. W każdej 
postaci. Komputer można zapro- 
gramować tak, że wyrysowany zos- 
tanie tylko konkretny fragment ma- 
py lub na papier nanieść można wy- 
brane elementy całości, na przykład 
sieć dróg, zalesienie czy zabudowa- 
nia. 


Chochlik znowu narii namieszał. 

, Tym razem „pomógł” w redagowaniu jednego 
z programów w numerze 11. 

Oto prawidłowy wydruk drugiego programu: 

KASETOWY SYSTEM 
OPERACYJNY 2T06 TURBO 


10 REM PROGRAM 2 

20 REM Zapisuje na dyskietce w p! 
iku D> KOPIARKA. TUR 
30 REM pros ram przeńoszacy pliki 
miedzy systemem TURBO i dyskami 
40 GRAPHICS 0 : ? "►►PROSZĘ CZEKAC" 
50 READ LB 
60 DIM 

70 LICZN»0 • CHKSUM=0 

30 FOR 1*1 TO LB 

30 IF LICZN-0 THEH READ *6* 

100 GOSUB 270 : AJ < I > =CHR* C BYTE ) 

1 1 8 CHKSUM=CHKSUM+BYTE « CHKSUM=CHK 
SUM-r256:r < CHKSUM> 255 > 

120 LICZN=LICZN+1 

130 IF LICZNO 10 AND IOLB THEN 1 

70 

140 GOSUB 270 

150 IF CHKSUMCOYTE THEN A* 10*1 NT 
<<I-l>/10)+320 ? "BLAD DANYCH W- L 
INI I "/A ; LIST A ' END 
160 LICZN*0 
170 NEXT I 

180 POKE 764, 255 'GRAPHICS 0 
190 ? " Proszę wlozyę do stacji d 
yskow dys- " 

200 .? " kietke na której ma byc z 
a p i sany " 

210 ? " prosram kopiujący i nacis 
nac" 

220 ? " RETURN." 

230 POKE 764,255 : GET #16, A 

240 OPEN #1,8, 128V "D« KOPIARKA. TUR 

250 ? #1;A$; ‘CLOSE #1 
260 END 

270 B=ASC<B*<LICZN*2+1>> GOSUB 30 
0 = BYTE*Y 

280 B=A3C < B$ ( L I CZN*2+2 > ) : GOSUB 30 

0'BYTE=Y+16*BYTE 

290 RETURN 

300 Y=<B-48)*<B<58)+<B-87)*<B>96> 

' RETURN 

310 DATA 1865 

328 DATA f f f f00209e224c8d2100d8 
330 DATA 0d2 1354991 9336 lbcad039 
340 DATA f d60be0420200c20e.900cd 
350 DATA 8d00d3a3008d 1 adOad 1 f 1 9 
360 DATA d0f011be0520200c20a9c2 
370 DATA df8d00d3a.9088dlad06089 
380 DATA a0304c6221a20886300ae2 
330 DATA 48a8009002a0022010204e 
400 DATA 68c630f008a20c200c203e 
410 DATA 4c3f2060a008adlfd0f0dd 
420 DATA d7ad00d330f6a9008dlaaa 
430 DATA d0aae8301ead00d310f8e2 
440 DATA a9088dlad0ec0a20b00bdb 
450 DATA 6688ec0b20263088d0d462 
460 DATA 60248830C f a08c4c622 1 63 
470 DATA 209b21a900a010853098ea 
480 DATA 48a00420102068a8c6302c 
490 DATA d0 +388d0 f 0a432a300853b 
500 DATA 32a202200c209848b 13220 
510 DATA 48 186531 853 168203b20af 
520 DATA 68a8c8f005c4004cce207a 
530 DATA e633c434d009a535c53336 
540 DATA d0064ce 1 20eaeaea.4cb4 1 7 
550 DATA 20a531a201200c20203b57 
560 DATA 20a0014c62214c362020a9 
570 DATA 9b21a000a9ff8588a2005c 
580 DATA adlfd0f0edad00d330f67b 
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530 DATA a9008dl ad0e830ecad004c 

609 DATA d310f8ł9088dlad0ec0a45 

610 DATA 2090d4c8d0daa432a300ba 
620 DATA 8532984820582068a8a53e 
630 DATA 30ae0320d0269 1321 865d5 
640 DATA 3 1 853 1 c8d002e633c43467 
650 DATA d0e2a533c535d0dc20580f 
660 DATA 20a001a530c531f002a02d 
670 DATA 8 + 4c622 1 d 1 32 f 0d8a09 1 87 
680 DATA aec 1 2 1 9aa9408d0ed4a9b2 
690 DATA 228d00d4a3388d02d3a921 
700 DATA 008d00d3a93c8d02d35820 
710 DATA' 6086348435*2528632*241 
720 DATA 278633ae0320d006aad042 
738 DATA 034c90204cf320a3008dd6 
740 DATA- 0ed485318d00d4a9088d0d 
750 DATA 1 f d0*9388d02d3a9608dd5 
760 DATA 00d3*93c8d02d378bae803 
770 DATA e88ec 121 6000C f 2 1 b8223b 
780 DATA 4023ed228f239 123000063 
790 DATA *3008d032085838582a570 
800 DATA 2*290cc304 f 035c908 f 082 
810 DATA 0 1 60a002b 1 24c956 +0258e 
828 DATA *90420 f c f d30 1 ba25 1 *032 
830 DATA 2720fd23a900a25ea02709 
840 DATA 208121209323983005*317 
850 DATA 808583604C032338668291 
860 DATA 1 8668 1 a.90320 f c f d30 f 075 
870 DATA *301*25ea027208121c068 
880 DATA 80 f 0e39830 f 0a2ac*02283 
890 DATA 20fd23a200bdad22c92te3 
900 DATA f 00dc92* f 0 1 6c940 f 00*e2 
910 DATA dd5227d0d3e8e00cd0e766 
920 DATA 299323*00 1848360*202*8 
930 DATA 8a48bd522720b0 f 268a*c4 
940 DATA e8e00cd0f I*2008a48bd8a 
950 DATA 992220b0f268*ae8e006e7 
960 DATA d0+la9++8d+c0220+d+2ea 
970 DATA 235f09404820b0f2a99b09 
980 DATA 20b0f268c954f0bc4c2068 
390 DATA 222028542 +4e29b92252+ 9 
1000 DATA 27*482 100*2041 2398 108c 
1018 DATA 3ec088d026*001*58310el 
1020 DATA 20*900*891 84e684d002a3 
1030 DATA e685a933c585d0e f *954 f 0 
1040 DATA C584d0e9*900*254a03364 
1058 DATA 208 121 60a482 101 88dce2 + 
1060 DATA 21204123c000300dcdce6c 
1070 DATA 21f008a091a900858285eb 
1080 DATA 8360*4833003*08760*04 f 
1090 DATA 009 1 84e684d002e685ee f 9 
1100 DATA 5227d003ee5327ad5327d4 
1118 DATA c90cf 003*80 160*900a2e8 
1120 DATA 54*033208121381004*926 
1130 DATA 00858320932360*4838813 
1140 DATA + 003a08360ad52270d530 f 
1150 DATA 27d022a.5811003*08860e9 
1160 DATA *901 *254*0332081 21 203e 
1170 DATA 9b2398309c*90ccd53275c 
1180 DATA f 00538668 1 d0d6a000b 1 67 
1190 DATA 8448e684d002e68538adb f 
1200 DATA 5227e9018d5227ad53274f 
1210 DATA e9008d532768*00 168*951 
1220 DATA 008d52278d5327*92785b3 
1230 DATA 85*954858460*20084cc90 
1240 DATA 85cbl869029d4403386348 
1250 DATA 009d4503*000bl.cb9d482e 
1260 DATA 03c8blcb9d4903*90b9daf 
1270 DATA 42034c56e485d484d5204c 
1280 DATA aad320e6d8*90085cdf098 
1230 DATA 0520b0f2e6cda4cdb380bc 


1 300- DAi« .05 10 t'4498020b0 f 2*c +'632 
1310 DATA 23a92020b0f2e6cdi.906a2 
1320 DATA c5cdd0 +36086848485*00* 
1330 DATA 0 1*90091 84*9 +fc891844e 
1340 DATA c9b 1 24c93b ł 0089 1 84c824 
1350 DATA c00dd0+360*9209184c8b* 
1360 DATA c08dd0+ 960303 1323334** 
1370 DATA 3536373839303 1323334b7 
1380 DATA 353637383930303 13233C0 
1390 DATA 343536373839303 13233cd 
1400 DATA 34353637383930*972*0++ 
1410 DATA 2520*423*200*9059d423* 
1420 DATA 03*9243d4503a3254c7c85 
1430 DATA 24*9*1*02520*423*20041 
1440 DATA *9059d4203*9243d450383 
1450 DATA *93*9d4403*9139d4803ee 
1460 DATA *9009d49032056e41004ee 
1470 DATA c089d02cbc490388 +026d9 
1480 DATA bd44038586bd45038587 +9 
1490 DATA *000bl86c92*d0034c+ee0 
1500 DATA 2660*254*92 l*0c220862e 
1510 DATA e4*9ce*02520*423*9 + +dd 
1520 DATA 8d+c02204+2420672420c6 
1530 DATA 4025*2 10*9039d4203*3 14 
1540 DATA 049d4*03*9003d4b03*93 + 
1550 DATA 259d4403*9249d4503201* 
1560 DATA 56e4303+*220*9039d4210 
1570 DATA 03*9089d4*03*9009d4b3 + 
1580 DATA 03*93*9d4403*9249d45b8 
1530 DATA 032056e4301 f20eb2630c5 
1600 DATA 0720d62630 1 5 1 0 f 4C08873 
1610 DATA d00+204025300a*9b4*014 
1620 DATA 2520*4234cbe249848204e 
1630 DATA 4025*955*02520*423*0 +d 
1640 DATA 006820cb234cbe24*2 1053 
1650 DATA *90c9d42032056e4*22006 
1660 DATA *90c9d42032056e4601b72 



1690 DATA 736d69736*693*202d0022 
1700 DATA 9b2*6e20706 +646 1 6*65e8 
1710 DATA 207*6 17761 72746 f7363e6 


1720 DATA 206479736b75206e9b50a + 
1730 DATA 6c696b2077656a73636994 
1740 DATA 6+7779203*1 1009b506cb5 
1750 DATA 696b2077796*7363696 +b 1 
1760 DATA 7779203* 1 3003b4b6 f 70d8 
1770 DATA 696 f 776 1 6e6965207 *6 1 b f 
1780 DATA 6b6+6e637*6+6e65209bel 
1790 DATA 06019b7d202020202020c0 
1800 DATA 4b6 +70636 1726b6 1204456 
1810 DATA 53534b3c3e545552$24+53 
1820 DATA 544150459b9b2070726+24 
1830 DATA 67726 16d206 +70726 16300 
1840 DATA 6+77616e792070727*650+ 
1850 DATA 7*9b202020202020202024 
1860 DATA 20202020202020576+6*34 
1870 DATA 636965636861 205*6 162ce 
1880 DATA 6 +6c6 +746e65676 +9b9b6b 
1890 DATA 2020202020776572736*36 
1300 DATA 6 1 20322e36202050494 1 67 
1310 DATA 53544 f 5720203 1393838ce 
1928 DATA 9b9b55574 14741 2021 2 ldb 
1930 DATA 212041627920756e696b0+ 
1 340 DATA 6e6 1 63206b6 +6c697*6* f 4 
1950 DATA 69207*652073746 12d9b8c 
1960 DATA 636*6 1206479736b6+777b 
1370 DATA 206964656e747966696b62 
1980 DATA 61746 +72656d206d6 1673 + 
1990 DATA 6e65746+666+2d9b6e7575 
2000 DATA 20545552424+206*657383 
2010 DATA 7420543*206 1206e696582 
2020 DATA 20443*206*6 16b2077202d 
2030 DATA 7379732d9b74656d696568 
2040 DATA 204b2e532e4 +2e205455c8 
2050 DATA 52424 +9b48*220*90b3d*l 
2060 DATA 4203*9003d48039d490360 
2070 DATA 682056e460*210*9079d81 
2080 DATA 4203*9009d48039d490340 
2090 DATA 2056e460*00 1 b 1 868d4dac 
2100 DATA 27204025*903*2 109d4295 
2110 DATA 03*34c9d4403*9279d4523 
2120 DATA 03*9069d4*03*3009d4b50 
2130 DATA 032056e430 1**907*2 1059 
2140 DATA 9d4203*9009d48039d49b2 
2150 DATA 03205be4300620b0 +24c53 
2160 DATA 2827c088d0034cbe244c37 
2170 DATA 2b25444d3*2*2e2*00e0b4 
2180 DATA 02el02*e246b 


INFORMATYKA W SZKOLE 


Usiłując pogodzić wymagania logiki 
przedmiotu z jednej strony, a kwestie 
metodologiczne z drugiej, trochę nie- 
oczekiwanie przerwaliśmy analizę cie- 
kawej problematyki budowy sprzętu in- 
formatycznego, na korzyść programo- 
wania. Było to niestety konieczne, przy 
założeniu, że chcemy równolegle uczest- 
niczyć w ćwiczeniach praktycznych. Te 
zaś wymagają umiejętności budowy al- 
gorytmu oraz „opisywania go np.: w Ba- 
sicu. Bo ile można poświęcić czasu na 
analizowanie budowy komputera pod- 
czas ćwiczeń? 

Teraz mając materiały (fundamenty) na wie- 
le ciekawych godzin przy komputerze (pro- 
gramowanie) możemy wrócić do budowy 
mikro, a ogólniej do budowy sprzętu informa- 
tycznego. Znajomość tych zagadnień ułatwi 
nam zrozumienie wielu podstawowych kwe- 
stii związanych z użytkowym wykorzystaniem 
maszyn w praktyce życia codziennego. 

Wróćmy na chwilę do komputera, a w za- 
sadzie do jednostki centralnej — pudełka 
gdzie mieszczą się podstawowe elementy tego 
urządzenia. Mówiliśmy już o pamięciach 
RAM i ROM, mikroprocesorze oraz „wszę- 
dobylskich” liczbach, które reprezentowane 
są tutaj w systemie dwójkowym, w postaci 8- 
-bitowych kontenerków — bajtów. Pozwoliło 
to nam zrozumieć między innymi różnicę 
między 8- a 16-bitowymi procesorami, potrze^ 
bę dużej szybkości pamięci wewnętrznej i jej 
wielkości. Można powiedzieć, że w tej postaci 
nasza jednostka' centralna może pracować sa- 
ma na siebie — program steruje procesorem, 
ten zaś liczy i przekazuje wyniki do pamięci i 
tak w kółko. Podobnie jak 1000-osobowa ad- 
ministracja może pracować (bardzo ciężko) 
sama na siebie; polecenia, kontrole, zestawie- 
nia, ‘aktualizacje, pensje... polecenia, kontrole. 
To błędne koło łatwo jest przerwać w wy- 
padku naszego komputera — wystarczy wyłą- ‘ 
czyć prąd lub dalszą pracę maszyny uwarun- 
kować informacjami z zewnątrz — podobnie 
jak miało to miejsce w przykładach z instruk- 
cją INPUT. Oczekujemy także na wyniki 
(PRINT). Zatem w komputerze niezbędne są ' 
elementy elektroniczne, które pośredniczą w 
komunikacji komputera zc światem zewnętrz- 
nym — wprowadzanie i wyprowadzanie in- 
formacji. Są to specjalistyczne układy wejścia/ 
/wyjścia (we/ wy). Umożliwiają one podłącze- 
nie bardzo wielu różnych urządzeń. we/ wy. 



Zacznij ny od podstawowego urządzenia — 
jest riim klawiatura, która mimo wielu wy- 
siłków konstruktorów i programistów w stwo- 
rzeniu lepszego sprzętu, pozostaje niezmien- 
nie podstawowym pośrednikiem informacji 
adresowych do jednostki centralnej. 


Sprzęt 

informatyczny 


monitor i klawiatura. 
KLAWISZE FUNKCYJNE 




1. Szkic sprzężeń podstawowych elementów mikrokomputera. 


Warto pamiętać, iż klawiatura zbudowana 
jest zgodnie ze standardem nazywanym 
QWERTY od nazw pierwszych sześciu klawi- 
szy liter w maszynach do pisania (w krajach 
anglosaskich). Niestety zazwyczaj, a w zasa- 
dzie prawie zawsze, pie ma tam liter polskich. 
Dostępne są za to, poza literami (duże i małe), 
cyframi i znakami interpunkcyjnymi jeszcze 
dwie grupy klawiszy: funkcyjne i specjalne. 
Podział ten jest umowny (podobnie zresztą jak 
ceny) i dotyczy klawiatur „zbliżonych” do 
sprzętu klasy IBM PC. Jednak nie odbiega 
zasadniczo np.: od Commodore, Amstrada, 
natomiast Spectrum w tym względzie jest 
bardzo nietypowym komputerem. 


15 




INFORMATYK/ 


W chwili, gdy naciśniemy na przykład kla- 
wisz litery Q, układy elektroniczne klawiatu- 
ry (w IBM PC jest to zazwyczaj mikroproce- 
sor 8048) generują odpowiedni „zestaw” zer i 
jedynek, który, w znanym nam już kodzie 
ASCII, odpowiada właśnie temu znakowi. 
Podobnie rzecz się ma wobec wszystkich kla- 
wiszy. 

Klawisze funkcyjne, mają bardzo ciekawą 
własność — można zaprogramować ich funk- 
cje. Na przykład, jeśli komputer wykorzysty- 
wany byłby przez Fredrę, to przepisując swój 
rękopis, ,za pomocą komputera pan Ale- 
ksander mógłby znacznie ułatwić sobie pracę, 
gdyby naciskając klawisz (funkcyjny) np.iFl, 
komputer generował zwrot „mocium panie”. 
Zatem naciskając tylko jeden klawisz — kom- 
puter drukuje w tym wypadku aż 12 zna- 
ków. Innymi słowy, zadanie każdego klawisza 
funkcyjnego może zależeć od nas, od tego jak 
je „oprogramujemy”. Bywa, że niektóre in- 
terpretery BASIC-a przyporządkowują po- 
szczególnym klawiszom klawiatury całe ins- 
trukcje, czyli zamiast naciskać pięć różnych 
klawiszy tworzących instrukcję PRINT, wy- 
starczy nacisnąć F3 i na ekranie ukaże się owa 
instrukcja, itp. Idzie zatem o to, by ułatwić 
nam współpracę z komputerem, by móc po- 
święcić się sprawom ważniejszym niż wielo- 
krotne, bezmyślne naciskanie klawiszy. Oczy- 
wiście jest to szczyt pływającej góry lodowej 
— możliwości, jakie stwarzają sobie klawisze 
funkcyjne. Wydaje się, że zasada ich stosowa^ 
nia jest zawsze taka sama — usprawnienie 
przekazywania informacji do komputera. 
Ilustruje to jeden z podstawowych obecnie ce- 
lów twórców^ sprzętu i oprogramowania kom- 
puterów!. — ułatwienie jak najpełniejszego 
wykorzystania ogromnego potencjału sprzętu 
informatycznego. 

„W parze" z klawiaturą występuje moni- 
tor. Jest to z kolei podstawowe urządzenie 
wyjściowe maszyny. Zdecydowaną ilość in- 
formacji wyjściowych komputer przekazuje 
użytkownikowi właśnie za pośrednictwem 
monitora. Urządzenie to obecnie mogło by 
stanowić przedmiot odrębnego wykładu — 
tak wiele można o nim powiedzieć. 

Zacznijmy od początku. Ekran. Jest wiele 
technik tworzeijia obrazu. Najpopularniejsze 
są ekrany podobne do telewizyjnego (na bazie 
lampy kineskopowej) — mają jednak co naj- 
mniej dwie poważne wady: — wymagają sto- 
sunkowo wydajnego źródła prądu (baterie nie 
wchodzą w rachubę) — mają ujemny wpływ 
pa zdrowie użytkowników (głównie narażone 
są oczy). Alternatywą „usiłuje być” ekran cie- 
kłokrystaliczny (LCD). Technologia ta od 
kilku lat zdaje egzamin (z różnym skutkiem) 
np. w niektórych zegarkach elektronicznych i 
kalkulatorach. Ekrany tego typu pobierają 
bardzo mało prądu i mogą pracować „na bate- 
rie”, ale są to jednocześnie „ekrany dla jednej 
osdby”, mało wyraźne, wymagające zewnętrz- 
nego źródła światła. Wadę tę wyeliminowano 
w „gas-plazma” ekranach. Technologia ta ma 
podobno same zalety? 

We wszystkich typach ekranów obraz bu- 
dowany jest z małych punktów — tak zwa- 
nych pikseli (elementów obrazu). Odpowied- 
nio ułożone piksele różne od zera (zero — 
biel, jedynka — czerń) tworzą obraz na ekra- 


nie. Steruje tym odpowiedni podzespół w 
jednostce centralnej komputera. Oczywiście 
im więcej punktów składa się na obraz — tym 
jest on lepszej jakości. W monitorach mono- 
chromatycznych (o nich jest właśnie mowa) 
czyli niekolorowych — biel (ze względu na 
mniejszą szkodliwość dla oczu) zastępowana 
jest różnymi odcieniami zieleni, bursztynu i 
innych „bezpiecznych” dla oczu kolorów. 

Jednym z podstawowych parametrów opi- 
sujących monitor (i związane z nim sterowa- 
nie) jest rozdzielczość. Typowa wartość tego 


Wyraźną niedoskonałością takiego zestawu 
jest brak pamięci zewnętrznych, nazywanych 
także pamięciami masowymi. 

Najpowszechniejszymi pamięciami tego 
typu są różne „odmiany” dysków. Zacznijmy 
od najprostszych — dysków miękkich, na- 
zywanych także dyskami elastycznymi lub 
po prostu „flopy”. Jest to urządzenie, tak 
zwany „napęd” najczęściej zamontowane w 
jednostce centralnej komputera. Napęd 
umożliwia zapisywanie i odczytywanie infor- 
macji, której nośnikiem jest dyskietka. 
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(Materiały do Podstaw Informatyki cz. 4) 


parametru waha się w granicach: 700x600 pi- 
kseli. Należy pamiętać jednak, że w profesjo- 
nalnych zastosowaniach graficznych wyko- 
rzystywane są monitory o ogromnej rozdziel- 
czości, np.: 4000x3000 pikseli, przy czym 
każdy z nich może przyjmować miliony róż- 
nych odcieni wszystkich barw tęczy. Mówiąc 
o barwach warto wspomnieć, że najczęściej są 
one tworzone z „mieszanki” odpowiednich 
proporcji barw podstawowych: czerwień, zie- 
leń i barwa niebieska. Jest to tak zwany stan- 
dard RGB. Barwy są uzyskiwane, jak dotąd, 
głównie na monitorach budowanych trady- 
cyjną technologią. Piszę, że „głównie”, wi- 
działem bowiem na listopadowej wystawie 
Audio-Video telewizor firmy Hitachi wiel- 
kości pudełka zapałek (10 paczek) o ekranie 5 
cali — LCD, piękne kolory! 

Jednostka centralna, klawiatura i monitor 
stanowią podstawowy, minimalny zestaw 
komputera, który można wykorzystywać w 
praktyce. Przykładem komputera pracującego 
w takim właśnie zestawie jest „laptop”, co w 
wolnym tłumaczeniu oznaczę komputer skła- 
dany (walizkowy). 


4. Przykład „składanego” (laptop) kom- 
putera. 


5. Dyskietka tui przed włożeniem do na- 
pędu. 


Dyskietka to magnetyczny nośnik informa- 
cji w postaci krążka (podobnie jak płyta), róż- 
nej wielkości, najczęściej 5,25 cala, 3,5 cala i 
rzadko 8 cali. W celu zwiększenia bezpieczeń- 
stwa przed fizycznym zniszczeniem dyskietki 
przechowywane są w dwóch kopertach, jedna 
w typowej postaci, druga natomiast jest na 
stałe „zalepiona” i krążka dyskietki z niej nie 
można wyjąć. Tak opakowaną dyskietkę 
.wkładamy do napędu. Promienisty otwór w 
stałej kopercie pozwala dotrzeć głowicy zapi- 
sująco-ooczytującej w każdy punkt owego 
krążka. Możliwe jest to dzięki temu, że napęd 
wprawia dyskietkę w ruch obrotowy wokół 
krążka. 


Typowymi pojemnościami dyskietek są: 
360 KB i 1,2 MB. Bywają także dyskietki o 
innych pojemnościach, nawet do 10 MB. 

W ten sposób poznaliśmy uniwersalne 
urządzenie zewnętrzne komputera, może słu- 
żyć do wyprowadzania, jak i wprowadzania in- 
formacji. Bardzo cenną zaletą dysku elasty- 
cznego jest jego wymienność. Oznacza to, że 
wszelkiego typu informacje (dane, programy) 
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możemy wczytywać z dyskietki zapisanej na 
innym komputerze. Dzięki tej własności, pra- 
cowicie wprowadzane dane do komputera 
możemy przepisać (stosunkowo szybko) na 
dyskietkę, po to, by za rok lub dwa bardzo 
szybko ponownie wprowadzić do maszyny 
przechowywane informacje w celu ich dalsze- 
go przetwarzania. 

Niestety tej ogromnej zalety — wymienności 
— nie mają dyski twarde, tak zwane win- 
chestery. Są to także napędy, najczęściej 
wbudowane do jednostki centralnej kompute- 
ra. O ich użyteczności przesądziły dwie inne 
cechy: duża pojemność i szybki dostęp (czas 
odszukania) do informacji zapisanych „na 
twardym”. Czas ten w zasadzie nie przekracza 
20 ms (są dyski o czasie 10 ms i powyżej 50 
ms). Zatem na twardym możemy tysiące razy 
zapisywać informacje, kasować je i odczyty- 
wać. Ogromna użyteczność tych pamięci 
spowodowała, że już coraz częściej się mówi o 
produkcji winchesterów wymiennych — re- 
welacja! Sądzę jednak, że niska cena dyskietek 
będzie długo konkurencyjna wobec tej no- 
wości. Póki co, dysk twardy jest nie wymienny 
(zamknięty szczelnie jak konserwa), a jego po- 
jemność waha się od 20 MB do setek MB. 
Chwilę (kilka sekund) po włączeniu kompute- 
ra mamy dostęp do pracowicie Zgromadzo- 
nych tam informacji — zazwyczaj są to naj- 
częściej używane programy, w tym oczywiście 
operacyjny, który będzie przedmiotem jedne- 
go z naszych kolejnych spotkań. 

Co się stanie, gdy dysk twardy po prostu się 
zepsuje? Albo zostanie zarażony wirusem? 
Koniec. Wszystko co było tam zapisane prze- 
pada bezpowrotnie. Zważywszy na to, że czę- 
stokroć cena informacji zgromadzonych tam 
jest ogromna — skonstruowano streamer, ko- 
lejny typ pamięci (wolno stojące lub wbudo- 
wane do komputera). Jest to odmiana magne- 
tofonu, który zapisuje zamiast muzyczki — 
„bajty z komputera”, oczywiście na specjalnej 
taśmie (podobnej do stosowanej w wideo). Po- 
jemność streamera (ilość informacji, jaką może 
zarejestrować) jest większa od pojemności 
winchestera. Wynika to z przeznaczenia tego 


„magnetofonu” — archiwizowanie wszystkich 
informacji zapisanych na dysku (na wszelki 
wypadek). Jest to pamięć sekwencyjna (zapi- 
suje się i czyta po kolei) i służy wyłącznie do 
zabezpieczania informacji przed ich ewen- 
tualną stratą. 

Bywa, że często korzystamy z ogromnych 
zbiorów stosunkowo niezmiennych informa- 
cji. Na przykład w czytelni zapewne przydał 
by się komputer dysponujący informacjami z 
Dużej Encyklopedii (50 tys. stron), Słownika 
Wyrazów Obcych (2 tys. stron), Słowników: 
polsko-angielskiego, polsko-francuskiego, 
polsko-niemieckiego, polsko-rosyjskiego i 
odwrotnie, razem około 48 tys. stron. Łącznie 
około 100 tys. stron. Dane te zajęły by zna- 
cznie mniej miejsca niż wynosi pojemność po- 
łowy pamięci dysku optycznego, którego 
pojemność szacuje się w gigabajtach GB. 
Urządzenie to ma (jak do dzisiaj) jedną dużą 
wadę — informacje zapisane tam (fabrycznie) 
są niezmienne. Ale już i to staje się nieaktual- 
ne, na świtowym rynku pojawiły się bowiem 
dyski optyfczne WORM o pojemności od 200 
MB w górę, które można „zapisać raz i czytać 
wiele razy”. Zatem kupujemy WORM czysty 
— tabula rasa — i zapisujemy go u siebie do- 
wolnie przygotowanymi informacjami. Pozo- 
stają one tam na zawsze. 

Poznaliśmy zatem dyski: elastyczne, twar- 
de, optyczne i WORM, a także streamery — 
są to podstawowe rodzaje pamięci masowych, 
nazywanych także umownie; pamięci ze- 
wnętrzne. Wszystkie te urządzenia są stosun- 
kowo niedrogie (względem ceny komputera) i 
co bardzo ważne są one zgodne z przyjętym 
standardem światowym. Dyskietkę zapisaną 
na komputerze IBM PC w Ciechocinku, od- 
czytamy bez kłopotu w Brazylii. 

Dysponujemy, doskonałymi pamięciami, 
wspaniałymi monitorami, ale wprowadzanie 
informacji przez użytkownika do komputera 
nadal, w większości, odbywa się za pośred- 


6. Mysz. 



nictwem klawiatury. Aby ograniczyć tę niedo- 
skonałość skonstruowano wiele różnych urzą- 
dzeń 'ułatwiających przekazywanie informacji, 
przez człowieka, do komputera. Służą temu 
między innymi: „myszy”, pióra świetlne, digi- 
tizery, ekrany dotykowe, analizatory dźwię- 
ków mowy ludzkiej. Ograniczają one nieco 
konieczność posługiwania się ponad setką 
klawiszy mikrokomputera. Praktycznie 
wszystkie te urządzenia, poza analizatorem, 
służą do wskazywania wybranego punktu na 
ekranie monitora. Uzyskuje się to dzięki prze- 
suwaniu znacznika (kursora, białej lub kolo- 
rowej, -także migającej plamki) po ekranie. W 
tym czasie na monitorze wyświetlany jest je- 
den z zestawów poleceń, które komputer po- 
trafi wykonywać samodzielnie (zagadnienie to 
stanowić będzie część odrębnego tematu na- 
szych zajęć). Jest to tak zwane menu (w for- 
mie podobnej zresztą do tego z restauracji). 
Wracając do znacznika — gdy przesuniemy 
go tak, że „dotknie” wybrane przez nas pole- 
cenie, np.: wczytaj program XYZ z dysku, 
drukuj możliwości programu XYZ, uruchom 
program XYZ, maszyna natychmiast przy- 
stępuje do jego wykonywania (oczywiście 
wskazanego polecenia). 

Pióro świetlne podobne jest do używanego 
przez nas na co dzień, tyle, że łączy je z ma- 
szyną kabel i oczywiście piszemy nie na papie- 
rze, a na ekranie monitora. Podobnie funkcjo- 
nuje digitizer, w tym wypadku miejscem 
pracy jest specjalna tabliczka umieszczona za- 
zwyczaj na stole przed monitorem. Rysując na 
tabliczce powodujemy na ekranie wierne 
odwzorowanie naszych ruchów. Narzędziem 
pracy jest specjalny czujnik w postaci pióra 
mechanicznego lub lupa z celownikiem (by 
lepiej było widać kreski, po których przesu- 
wamy ów czujnik). Urządzenie to ma szerokie 
zastosowanie wszędzie tam, gdzie istnieje ko- 
nieczność przeniesienia do pamięci kompute- 
ra skomplikowanego rysunku, np.: projektu 
architektonicznego mostu. Wodzimy wówczas 
„celownikiem” po kreskach schematu, który 
wcześniej mocujemy na wspomnianej tablicz- 
ce, w pamięci maszyny powstaje dokładne 
odzwierciedlenie oryginału. 

Bardzo popularna już dzisiaj mysz — to pu- 
dełko z zamocowaną w jego dnie ruchomą 
kulką (jak kulka w czubku długopisu) lub 
ostatnio mechanizm ten zastąpiono układem 
optycznym. Przesuwając mysz po płaszczy- 
źnie biurka, kulka się obraca — jest to źród- 
łem sygnałów elektrycznych przekazywanych 
kablem do komputera. W efekcie powoduje to 
ruch kursora po ekranie (zgodny z ruchem 
myszy po stole). Gdy kursor „dotknie” wy- 
braną przez nas pozycję menu — naciskamy 
„ucho” (ma ich zazwyczaj aż trzy) myszy i ma- 
szyna wykonuje wskazaną operację. Nato- 
miast na monitorze dotykowym, wystarczy 
wybrany punkt ekranu dotknąć palcem lub 
długopisem czy papierosem (najlepiej zgaszo- 
nym), by przekazać pełną informację o 
umiejscowieniu (współrzędne X i Y) wyró- 
żnionego przez nas obszaru ekranu. 

Zasygnalizowane rozwiązania mają na celu 
uproszczenie czynności związanych z przeka- 
zywaniem informacji do mikrokomputera. 
Jednak niemal wszyscy, po cichu, oczekujemy, 
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by komputer słuchał tego co mówimy, a co 
najważniejsze, by rozumiał nas. Przykładem 
próby takiego rozwiązania jest twór brytyj- 
skiej firmy APRICOT — mikrokomputer, 
który rozpoznaje do 4000 słów. Nowy właści- 
ciel tego sprzętu musi określić, które komendy 
(słowa) mają być przez maszynę rozpoznawa- 
ne i potem zobowiązany jest do wypowiedze- 
nia kolejnych komend po pięć razy, aż kom- 
puter nauczy się je rozpoznawać. Jednak pro- 
fesjonalny rynek oczekuje mikrokomputera ze 
słownikiem 20 000 słów, jednym słowem eks- 
peryment się nie powiódł. 

W uzupełnieniu informacji dotyczących 
urządzeń wejściowych komputera z przyje- 
mnością (bo wiele lat spędziłem nad budową i 
eksploatacją tego typu urządzeń) pragnę 
przypomnieć sprzężenie kamery TV z kom- 
puterem. Są to, omawiane już wcześniej, 
skanery, obecnie dostępne nawet- w wersji 
„ręcznej” — ręczne skanery, wraz z odpo- 
wiednim oprogramowaniem rozpoznającym 
pismo maszynowe (niestety tylko kodu AS- 
CII). Przesuwamy takim skanerem po tekście 
gazety — jest on natychmiast odczytywany 
(rozpoznawane są znaki) i wpisywane do pa- 
mięci komputera. W sumie bardzo ciekawe 
urządzenie. 

Świadomie pominąłem starsze typy urzą- 
dzeń wejściowych maszyn cyfrowych, jak na 
przykład: czytniki kart perforowanych, czyt- 
niki tasiemki perforowanej oraz magnetyczne 
rejestratory danych. Sprzęt ten jest jeszcze u 
nas w kraju wykorzystywany, ale kontakt z 
nim mają tylko profesjonaliści, stąd też uzna- 
łem, że można sobie podarować te, w zasadzie 
już „wiekowe” urządzenia. 

Pora wspomnieć o urządzeniach wyjścio- 
wych komputerów. Niezmiennie od początku 
historii mikrokomputerów są to drukarki. 
Obecnie urządzenia te, w wersji dla mikro- 
komputerów są małe, ciche, w miarę nieza- 
wodne i... bardzo wolne (w stosunku do dru- 
karek wierszowych, które stosowane są na 
ogół do dużych komputerów). Zważywszy 
jednak, że większość informacji generowa- 
nych przez mikrokomputer użytkownikowi 
przekazywana jest za pośrednictwem monito- 
ra, małe drukarki są niezmiennie bardzo uży- 
teczne. Zasada pracy tych drukarek polega na 
tym, iż każdy znak przez nie drukowany two- 
rzony jest przez mozaikę odpowiednio ułożo- 
nych kropek, stąd popularna nazwa tych 
urządzeń — drukarki mozaikowe. W gło- 
wicy drukarki, która przesuwana jest odpo- 
wiednim mechanizmem wzdłuż kolejnych li- 
nii tworzonego tekstu na kartce papieru, 
mieści się zestaw igieł — prostopadle do pa- 
pieru. Igły te uderzając przez taśmę barwiącą 
w papier pozostawiają ową mozaikę — znak 
lub fragment ryciny. 

Usiłując podnieść jakość wydruków stosuje 
się coraz większą liczbę, coraz cieńszych igieł. 
Ostatnim osiągnięciem w tej dziedzinie jest 
zastąpienie igieł promieniami świetlnymi. 
Wykorzystywana jest do tego Celu technika la- 
serowa, stąd — drukarki laserowe. Obszar 
O' wielkości 1 mm 2 „uderzany” jest równo- 
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miernie przez 12x12 (i więcej) „świetlnych 
igieł”. Zatem jakość tworzonych tym sposo- 
bem wydruków stanowi nadzwyczajną konku- 
rencję nawet dla profesjonalnego sprzętu wy- 
korzystywanego w drukarniach. Poprawiła się 
także nieco szybkość — typowa wydajność 
drukarki laserowej — 8 stron A4 w czasie jed- 
nej minuty. 

Bardzo użytecznym uzupełnieniem druka- 
rek są plotery. Są to urządzenia umożliwiają- 
ce rysowanie ciągłych różnokolorowych linii 
na kartkach papieru od A5 do A0. 


Tyle w wielkim skrócie o urządzeniach sta- 
nowiących „zmysły” i „narządy wykonawcze” 
naszego mikrokomputera. Sądzę zatem, że 
prezentację „idei” komunikowania się użyt- 
kownika z komputerem mamy już (nareszcie?) 
za sobą. Jeśli idzie o szczegóły — są one bar- 
dzo czytelnie przedstawione w bogatej litera- 
turze, także we wcześniej polćcanej pozycji 
„Komputery osobiste” D. Madeja i innych 
oraz niemal w każdym numerze „IKS-a”, 
„Komputera”, „Bajtka”, czy „nobliwego” 
„Mikroklanu”. 

Włodzimierz GOGOŁEK 
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DYSKI TWARDE - CENY 


dalszy ciąg ze str. 1. 

HOUNTAIN 


- DC020, 20MB 551 $ 

- DC030, 30MB 621 $ 

- DC050, 50MB, 54ms 698 $ 

MINISCRIBE 

- 3053, 40MB, HH, 28ms 540 $ 

- 3650, 40MB, HH 347 $ 

- 3675, 60MB, RLL 373 $ 

- 6085, 70MB, FH 720 $ 

- 8425, 20MB, 3.5", HH 252 $> 

- 6438, 30MB, 3. 5", HH 259 $ 

- 9380, 336MB ESDI, 16ms 2200 $ 


PRIAM 

- E40 , 40MB ext. , FH, ST506 1041 $ 

- E60 , 60MB ext. , FH, ST506 1093 $ 

- 1 40 PW , 40MB z Kontr. 970 $ 

- 145AT2 , 45MB ST 506, FH 756 $ 

- 160PW , 60MB z Kontr. 1093 $ 

- 162AT2 , 62MB ST 506, FH 969 $ 

- 175RF , 74MB, RLL z Kontr. 1025 $ 

- 1100 PC, 103MB z Kontr. 1164 $ 

- 1100 RC, 103MB RLL Z Kontr. 1200 $ 

- 1130 AT, 133MB ST506, FH, 1 3ms 2046 $ 

- 1230 RC, 233MB z Kontr. FDD-HDD 2367 $ 

- 1230 RF, 233MB RLL z Kontr. 2336 $ 

- 1330 EC, 237MB ESDI z Kontr. 3528 $ 

SEAGATE 


- 

125 , 

20MB, 

3. 5 H , HH MFM 

267 

$ 

- 

125-1, 

20MB, 

3. 5", MFM, 2 8ms 

310 

$ 

- 

138 , 

30MB, 

3. 5", MFM 

344 

$ 

_ 

1 38N , 

32MB, 

3. 5", SCSI, 40ms 

389 

$ 

- 

1 38R , 

32MB, 

3. 5", RLL , 40ms 

358 

$ 

- 

1 57R , 

49MB, 

3. 5", RLL , HH 

468 

$ 

- 

1 57N , 

49MB, 

3. 5", SCSI, # 40ms 

519 

$ 

- 

225 , 

20MB, 

HH MFM 

239 

$ 

- 

238 , 

30MB, 

HH RLL 

255 

$ 

- 

251 , 

40MB, 

HH MFM, 40ms 

399 

$ 

- 

251-1, 

40MB, 

HH MFM, 28ms 

546 

$ 

- 

277R , 

65MB, 

HH RLL, 40ms 

576 

$ 

- 

296N , 

80MB, 

SCSI HH 

1096 

$ 

- 

4053 , 

40MB 

FH 

577 

$ 

- 

4096 , 

80MB 

FH 

863 

$ 

- 

4096N, 

80MB 

SCSI FM, 17ms 

1043 

$ 


Ceny według firmy : 

"JB TECHNOLOGIES, INC. " 

21011 ITASCA ST. , NF CHATSWORTH, CA 91311 
5 1/4” HARD DISK FH 


- IHI 5018 H, 1 5MB 185 $ 

- Tandon TH503, 15MB 185 t 

- CMI 6426, 15MB 115 $ 

- Rodime 202E, 15MB 275 i 

- Seagate 4026, 20MB 295 * 

- CMI 6425, 20MB 250 * 


Tandon TM703CXT, 26MB 

275 

$ 

Rodime 203E, 30MB 

415 

$ 

Tandon TM703AT, 30MB 

3^5 

$ 

Seagate 4038, 30MB 

• 375 

$ 

CDC BJ7D5, 30MB 

425 

$ 

CDC 91455-36, 30MB 

425 

$ 

CMI 6640, 32MB 

350 

$ 

Ouantum Q540, 32MB 

695 

$ 

Micropol is 1333, 35MB 

475 

$ 

Atasi 3046, 39MB 

415 

$ 

Hitachi DK511-5, 42MB 

515 

$ 

Fujitsu 2242AS, 42MB 

495 

$ 

Miniscribe 6053, 44MB 

525 

$ 

Rodime 204E, 44MB 

495 

$ 

Priam V170, 60MB 

820 

$ 

Brand Tech 8085, 72MB 

795 

$ 

Miniscribe 6085, 72MB 

,740 

$ 

Micropolis 1325, 72MB 

795 

$ 

CDC 94155-86, 72MB 

805 

$ 

Priam V185, 72MB 

876 

$ 

Brand Tech 8128 RLL, 108MB 

9,95 

$ 

Maxto,r XT 1140, 120MB 

1625 

$ 

Newbury 1140 28ms, 120MB 

1495 

* 

Newbury 1140 25ms, 120MB 

1849 

$ 

Maxtor XT2190 28ms, 150MB 

1995 

$ 

Newbury 2190 25ms, i 60 MB 

1875 

$ 


5 1/4" HARD DISK HH 


NEC 5126, 20MB 


245 

$ 

Microscience HH725, 20MB 


195 

$ 

CMI 3426, 20MB 


195 

$ 

01 ivetti 5220/2, 20MB 


230 

$ 

Tandon TM702AT, 20MB 


279 

$ 

Seagate ST 225, 20MB 


225 

$ 

Seagate ST 238RLL, 30MB 


245 

$ 

Epson HMD 860 RLL, 30MB 


255' 

$ 

NEC 5146, 42MB 


425 

$ 

Seagate ST 251, 40MB 


425 

$ 

Tandon TM 755, 42MB 


395 

$ 

5 1/4 SCSI HARD DISK 

FH 



Newbury 3170S, 147MB 


1395 

$ 

Newbury 3280S, 244MB 


1595 

$ 

Newbury 3380S, 320MB 


1995 

$ 

5 1/4 ESDI HARD DISK 

FH 



Micropolis 1355, .175MB 


1495 

$ 

Newbury 4175, 175MB 


1295 

$ 

Siemens Megafile 1300, 275MB 

1495 

$ 

Newbury 4380, 380MB 


1999 

$ 

Maxtor 4380, 360MB 


-2495 

$ 

8" HARD DISK 




Ouantum 02010, i OMB 


89 

$ 

Ouantum 02020, 20MB 


235 

$ 

Mitsubishi 2860-ls, 20MB 


295 

$ 

Ouantum 02040, 40MB 


595 

$• 

Mitsubishi 2860-2S, 50MB 


630 

$ 

Mitsubishi 2860-3S, 80MB 


710 

$ 

Ouantum 02010, 10MB 


725 

$ 
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Popularne u nas .dysaki ; firmy "Seagate" 
oferujfe bardzo tanio na amerykańskim 
rynku firma 

"LYCOCOMPUTER Marketing & Consultants" 


ST 

125-0, 

3. 

5" , 

20MB, 

40ms 

302 

$ 

ST 

125-1, 

3. 

5", 

20MB, 

28ms 

350 

$ 

ST 

1 38R , 

3. 

5", 

30MB, 

40ms 

332 

$ 

ST 

157-0, 

3. 

5 H , 

50MB, 

40ms 

520 

$ 


- 

8® 

225 , 

20MB, 

65ms 

MFM 

215 

$ 

- 

ST 

225N, 

20MB, 

SCSI 


290 

$ 

- 

ST 

238R, 

30MB, 

RLL 


230 

$ 

- 

ST 

251 , 

40MB, 

40ms 

MFM 

345 

$ 

- 

ST 

251-1, 40fIB, 

28ms 

MFM 

430 

$ 

- 

ST 

277R, 

65MB, 

40ms 

RLL 

390 

$ 

- 

ST 

277N, 

64MB, 

SCSI 


440 

$ 

- 

ST 

125 , 

3. 5", 

20MB, 

40ms, 

MFM 235 

$ 

- 

ST 

125N, 

5", 

20MB, 

SCSI 

300 

$ 

- 

ST 

1 38R, 

3. 5", 

30MB, 

RLL 

250 

$ 

- 

ST 

1 38N, 

3. 5", 

30MB, 

SCSI 

330 

$ 

- 

ST 

1 57R, 

3. 5", 

40MB, 

RLL 

400 

$ 

- 

ST 

1 57N, 

3. 5", 

48MB, 

SCSI 

440 

$ 

- 

ST 

4053, 

40MB, 

28ms, 

MFM 

470 

% 

- 

ST 

4096, 

80MB, 

28ms, 

MFM 

570 

$ 


A teraz dla porównania podamy ceny 
najtańszych firm w RFN. 


PROSOFT GmBH" D- 

■5400 

Kobleuz 

-Goldgrube 

ST 

225 , 20MB, 

65ms 


277 

$ 

ST 

2 38R, 30MB, 

65ms 

RLL 

302 

$ 

ST 

251-1, 40MB, 

28ms 


514 

$ 

ST 

277R, 65MB, 

40ms 

RLL 

508 

$ 

ST 

4096, 80MB, 

28ms 


750 

$ 

ST 

4144R, 122MB, 

28ms 

; RLL 

1150 

$ 


Jak widać ceny w RFN są dużo wyższe 
niż w USA pomimo iż firma "PROSOFT GmBH" 
ma najniższe w RFN ceny dysków (oprócz 
oczywiście przedstawiciela firmy Seagate 
w Monachium ).tadzie zatem szukać 
powodzenia w dobrym i tanim zakupie 
twardych dysków, wliczając w to ryzyko 
embarga ?. Pozostaje tylko Singapur, 
który przy zwyżce waluty TaiwańskieJ o 
11Z i mocnym kursie walut Korei 
Południowej i Hong Hongu staje sie 
najtańszym źródłem zaopatrzenia. Do 
zakupu dysku w Singapurze skłania , 
również fakt istnienia tam wielu 
montowni i fabryk Jak np. Seagate, 
Priam, itp. 


Matriały zostały przygotowane przez firmę 
BOliE sp. z o.o. — Biuro Obsługi Importu i Expor- 
tu, 00—867 Warszawa ul. Chłodna 35/37 paw. 1 A, 
tel. 247818, tlx 817073 BOIIE PL. 


Atari symuluje 
zjawiska falowe 


Jan GOLLA 


Dobre .efekty N w zobrazowaniu 
ugięcia, odbicia i załamania fal za 
pomocą komputera można osiągnąć 
przez zapełnianie ekranów kolej- 
nymi fazami mchu, a następnie 
\ szybkim ich przełączaniu (page 
flipping). W czasie inicjacji kompu- 
ter wprowadza kolejne obrazy, róż- 
niące się nieznacznie od siebie, do 
swojej pamięci, a następnie szybko 
wyświetla je kolejno na ekranie, co 
obserwatorowi daje złudzenie ruchu 
ciągłego (podobnie jak w kinemato- 
grafii). Tak rozwiązano tu wszystkie 
zjawiska oprócz ruchu pojedynczej 
fali przed jej ugięciem. Za pomocą 
klawiszy S (szybciej) oraz W (wol- 
niej) odbieramy najkorzystniejszą 
dla obserwacji prędkość rozchodze- 
nia się fal. Najdłużej trwa inicjacja 
ekranów przy symulacji ugięcia cią- 
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gu fal (około 140 sek.), czas ten mo- 
żna wykorzystać w trakcie lekcji na 
omawianie tego zjawiska lub na po- 
wtórkę. 

19 REM ***0C>BICIE FALI*** 

20 GRAPHICS 2 : P0SITI0N 4,4= ? #6; 
"ODBICIE FOLI" =P0KE 657,8 

30 ? "HRCISNIJ DOWOLNY KLAWISZ": 
P0KE 764 , 255 : PGKE 755, 0 « SETC0L0R 
2 , 0,0 

48 IF PEEK < 764 ) =255 THEN 40 
60 GRAPHICS 0 ‘ SETC0L0R 2,0,0'POK 
E 82, 2-fiPKE 83,38 
70 P0SITI0N 2,4:? "PROGRAM POKAZ 
UJE ODBICIE FALI POD WYBRANYM 
KATEM" 

80 TRAP 60 

96 P0SITI0N 8,7:? "PODAJ KAT PAD 
ANIA <0-70)"; = INPUT K 1 DEG :OP=10 
95 IF K>70 0R K<0 THEN 60 
100 POSITION 7,10:? "PROSZĘ CZEK 
AC OK. 30 SEKUND" =P0KE 755,0 
110 FOR 0=1 TO 1000=NEXT 0 



120 P0KE 106,160 
130 FOR E=1 TO 5 
140 P0KE 106,160-E*16 
150 GRAPHICS 6 = C0L0R PPOKE 559, 
0 

160 SI=SIN<K) :C0=C0S<K) 

170 P0KE 82 , 8 : F‘0KE 755,0‘POKE 65 
7,8 

180 ? "KLAWISZ S-SZY6CIEJ" ■• ? "KL 
AWISZ W-W0LNIEJ" 

190 ? "KLAWISZ ESC-N0WY KAT" 

200 PLOT 80, 1 1 DRAWT0 80,80=SETCO 
LOR 2,0,0 

210 FOR PZ=-10 TO 110 STEP 5 
220 TRAP 250 

230 PLOT 80+<PZ+E>*SI-12*CO,80-< 
P7+F > *rn- 1 94-ci T 

240 DRAWTO 80+ < PZ+E > *S I + 1 2*C0 , 80 

-<PZ+E)*C0+12*SI 

250 NEXT PZ 

260 FOR PZ=-10 TO 80 STEP 5 
270 TRAP 300 

280 PLOT 80-<PZ-E>*SI+12*CO,80-< 
PZ-E)*C0-12*SI 

290 DRAWTO 80- < PZ-E > *S I - 1 2*C0 , 80 




-cf^§> # co+i2lS!P^ ,aM0S • d - z 

30GT FlEXT PZ 

310 FOR Ffl=78 TO" 83 STEP 0.05’TR 
AP 340 

320 PLOT 80-FA*S I + 1 4*00 , 80-FA*CO 
-14*SI 

330 DRAW TO 80-FA*S 1 - 1 4*C0 , 80-Fft* 

00+14*31 

340 NEXT Ffl 

350 NEXT E 

360 GRAPHICS 6= POKE 559.34 
370 FOR EK= 1 35 TO 87 STEP -16 -PO 
KE 561,EK 

380 FOR flS=l TO 'OP 

390 IF P£EKC764> <255 THEN GOTO 4 

40 

400 NEXT AS 
410 NEXT EK 
420 GOTO 370 

430 REM ***REGULACJA PRĘDKOŚCI** 
* 

440 IF PEEK (764) =28 THEN CLR ! GO 
TO 60 

450 IF PEEK (764 >=46 THEN 0P=GP+1 
460 IF PEEK (764) =62 AND 0P>2 THE 
N 0P=0P-1 

470 POKE 764, 255 -GOTO 380 


* SUMA KONTROLNA ✓ ETYKIETA * 


FT 

101 

UP 

201 

NN 

301 

QQ 

40 

0X 

501 

PX 

601 
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10 REM ***UGIECIE FAL*** 

20 D I M MIH ( 60 > , AK ( 60 ) • POKE 566 , 1 5 
8 : POKE 764, 255 -POKE 83,37 
30 GRAPHICS 2 : SETCOLOR 2, 0,0’ ROK 
E 755,0 : POSITION 4,4 
40 ? #6; "UGIECIE FALI" 

50 POKE 657,8 = ? 11 NACI SN IJ DOWOLN 
iY KLAWISZ" 

60 IF PEEK < 764 > =255 THEN 60 
70 GRAPHICS 0- SETCOLOR 2,0,0 POS 
ITION 2, 5: POKE 755,0 
80 POSITION 2,1:? "PROGRAM SKŁAD 
A SIE Z DWÓCH CZĘŚCI:" 

90 ? : ? "CZE SC 1: UGIECIE JEDNEJ 
FALI"*? "CZESC 2= UGIECIE CIĄGU F 
AL" 

100 POSITION 2,7-'? "KLAWISZ ESC 
POWODUJE PRZEJŚCIE DO CZĘŚCI 2 

1 1 0 POS I T I ON 9,10:? •• TRWA I N I CJA 
CJA CZĘŚCI 1." 

120 POSITION 7,12? "PROSZĘ CZEK 
AC OK. 30 SEKUND." 

130 FOR MT=1 TO 6000*łJEXT MT 
140 REM ***UG I EC I E POJEDYNCZEJ F 
ALI*** 

150 FOR KQ=6. 3 TO 8 STEP 0.03=N= 
N+ 1 : MH ( N > =S I N < KO > : AK C N)=COS( KO > « 
NEXT KO 

1 60 BS=PEEK < 1 06 > - 1 6 : POKE 1 06 , BS = 
POKE 559,0: POKE 54279, BS , 

170 MS=BS*256+ 1024+72 * 

180 FOR X=MS TO MS+ 109= POKE X, 12 
8 : NEXT X = FOR ST=0 TO 5 
190 POKE 106, 160-ST*16= GRAPHICS 
6+16 : COLOR 1:P0KE 559,0:GOSUB 31 
0 

200 RK= 1 0+ST *10: FOR N=2 TO 52 = X0 
=MH < N > *RK+ 1 00 : YO=AK < N > *RK+47 
210 TRAP 230 

220 PLOT XQ, YO : PLOT X0,95-Y0 
230 NEXT N : NEXT ST 
240 GRAPHICS 6+16 = POKE 53277,14' 
POKE 559, 62 : GOSUB 310 


2'50 '^<E^ 784, 8 : FOR PK±6t* TO -148 X 
STEP 0.8^ POKE 53248, PK 
260 FOR RM=1 TO 7:IF PEEK ( 764 > =2 
8 THEN POKE 53248,0: GOTO 330=NEX 
T RM 

270 NEXT PK = POKE 704,0 

280 FOR GD* 151 TO 64 STEP -16* PO 

KE 561, GD 

290 FOR PZ«1 TO 14' IF PEEK C 764 >= 
28 THEN POKE 53248,0* GOTO 330 
300 NEXT PZ : NEXT GD -GOTO 250 
310 FOR P=95 TO 100 -PLOT P, 1 : DRA 
WTO P, 45= PLOT P, 50 ; DRRWTO P,95:N 
EXT P 

320 FOR KZ= 1 0 TO 15 -PLOT KZ,20 : D 
RAW TO KZ,75 : NEXT KZ : RETURN 

330 GRAPHICS 0= SETCOLOR 2, 0,0: PO 
KE 755, 0=OP 1=20: POSITION 9,4 
340 ? "CZESC 2= RUCH CIĄGU FAL" 
350 ? ! ? "W CELU ZWIĘKSZENIA PRE 
DKOSCI FAL NA CISKAJ KLAWISZ S" t 

360 ? "W CELU ZMNIEJSZENIA PREDK 
OŚCI FAL NACISKAJ KLAWISZ W" 

370 ? "W CELU ZATRZYMANIA PROGRA 
MU NACI ŚNIJ KLAWISZ ESC" 

380 POSITION 9,14:? "TRWA I NIC JA 
CJA CZĘŚCI 2."- 

390 POSITION 7,16:? "PROSZĘ CZEK 
AC OK. 140 SEKUND." 

400 FOR R6=l TO 6000 = NEXT RB = FOR 
ST=1 TO 6 

410 REM ***IJG I EC I E CIĄGU FAL*** 
420 FOR ST=1 TO 5 
430 GRAPHICS 6+16 = SETCOLOR 2,0,0 
: COLOR 1 = POKE 559,0: POKE 106,160 
-ST* 16 

440 FOR G» 1® TO 15= PLOT G, 20= DRA 
WTO G . ^5 : NEXT G 

450 FOR P=95 TO 100 -PLOT P,1=DRA 
WTO P, 45: PLOT P, 50 : DRAW TO P,95=N 
EXT P 

460 FOR F=9+ST TO 94+ST STEP 5-P 
LOT F, 20* DRftWTO F,75NEXT F 
470 FOR RK=1+ST TO 72 STEP. 6 
480 FOR N*2 TO 57XO-MH(N)*RK+10 
0 ■' YO=AK ( N > *RK+47 
498 TRAP 500: PLOT X0 , YO PLOT X0, 
95- YO 

500 NEXT N : NEXT RK : NEXT ST 

510 POKE 764, 255: POKE 77, 0 : ROKE 

764,255 

520 POKE 708, 40: POKE 709,202'PGK 
E 559,34 

530 FOR EK* 1 35 TO 64 STEP -16 -80 

KE 561 , EK t 

540 FOR OF-1 TO 0P1 = IF PEEK <764 > 

<255 THEN. 580 

550 NEXT OP •' NEXT EK 

560 GOTO 530 

570 REM ***REGULAC JA PRĘDKOŚCI C 
1 AGU FAL*** 

580 IF PEEK <764 >=46 OR OP1<0 THE 
N OP 1 =0P 1+0.4 

590 fh PEEK <764 >=28 THEN END 
600 IF PEEK <764 >=62 OR OP1>50 TH 
EN OP 1 =0P 1 -0 . 4 
610 POKE 764, 255 -GOTO 550 


* SUMA KONTROLNA / ETYKIETA * 
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,•101 REM N*** ZAŁAMAŃ I E FAL. I *** 

20 GRAPH I CS 1 : SETCOLOR 0 , 2 , 1 2 * PO 
SITION 3,8 « ■ 

30 ? #6; "ZAŁAMANIE FALI" 

40 ? CHR$ < 253 > : ? "ZATRZYMAJ MAGN 
ETOFON. " 

50 ? "NACI ŚNIJ DOWOLNY KLAWISZ." 
60 POKE 764, 255= TRAP 80 
70 IF PEEK <764 >=255 THEN 70 
80 POKE 764, 255- GRAPHICS 0=POSIT 
I ON 2, 10: POKE 106, 160: m= 5 
90 ? "PODAJ KAT PADANIA A, < SIŃCA 
> <n ) " ; I NPUT A:POSITION 2,12‘TRA 
P 100 

100 ? "PODAJ WSPOLCZ. ZAŁAMANIA" 
j : I NPUT N •• DEG : GRAPH I CS 0 : POS I T I 
ON 8,10 
110 POKE 755,0 

120 ? "PROSZĘ CHWILE POCZEKAĆ." 
130 FOR GP=1 TO 500 : NEXT OP 
140 FOR EK=1 TJD 5 
1 50 B= ATN < C S I N < A > /N > • / SQR < - < S I N < A 
VN>*CSINCA>/N) + 1>) 

1 60 S I A=S I N < A > : COflaCOS ( A > = S I B=S I 
N < B > ; COB=COS C B > 

170 REM *** ZAPEŁNIANIE EKRANÓW 
*** - 
180 GRAPHICS 6= POKE 559,0=SETCOL 
OR 2, 0,0: COLOR 1 
190 POKE 106, 160-EK*16 
200 ? "DO REGULACJI PRĘDKOŚCI SL 
UZA KLAWISZE:" 

210 ? "S-SZYBCIEJ ".**? " W-WOLNI 

EJ " ; : POKE 755,0 

220 ? " ESC-NOWA FALA" 

230 FOR G=42 TO 79 = COLOR 1PL0T 
1 , G : DRAW TO 159, G * NEXT G 
240 FOR D=-20 TO 120 STEP 4 
250 TRAP 290 
260 COLOR 1 

270 PLOT 80- < D-EK > *S I A+ 1 0*COA , 40 
- < D-EK > *COA- 1 0*S I A 
280 DRAWT O 80- C D-EK > *S I A- 1 0*COA , 
40- < D-EK > *CQA+ 1 0*S I A 

300 PLOT 80+<D+EK>*SIB-10*COB/CO 
A*COB , 40+ < D+EK > *COB+ 1 0*COB/COA*S 
IB 

310 DRAWTO 80+CD+EK>*SIB+10*COB/ 
CO A*COB , 40+ < D+EK > *COB- 1 0*COB/COA 
*SIB 

320 NEXT D 
330 NEXT EK 
340 POKE 559,34 

350 REM *** PĘTLA ANI MACY JNA *** 
360 FOR X=151 TO 87 STEP -16 
370 POKE 561 , X 
380 FOR Q=1 TO M 

390 IF PEEK (764 >=46 THEN GOSUB 4 
60 

400 IF PEEK (764 >=62 THEN GOSUB 4 
70 

410 IF PEEK (764 >=28 THEN 80 
420 NEXT Q 
430 NEXT X 
440 GOTO 360 

450 REM *** REGULACJA PRĘDKOŚCI 
*** 

460 M=M+0. 1 : POKE 764, 225 -RETURN 
470 M=M-0 . 1 : POKE 764 , 255 = RETURN 


* SUMA KONTROLNA / ETYKIETA % 
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Zamiana liczb podanych 
cyfrowo na postać słowną 


Przy wielu problemach rozwiązanych przez mikrokomputery 
występuje potrzeba rozkodowywania liczb zadapych cyfrowo 
na postać alfanumeryczną. Algorytm zamiany wbrew pozorom 
nie jest prosty. Trzeba bowiem analizować końcówki (np. tysiąc, 
tysiące, tysięcy). Stopień trudności rośnie proporcjonalnie do 
górnej granicy podziału, który podlega zamianie. , 

Poniższy program demonstracyjny obsługuje przedział 
(1,999999). Jego wersja źródłowa jest następująca: 

10 ’ Program demonstracyjny 
20 GOSUB 330 

30 ' Deklaracja kolorow i okien 
40 MODĘ 1 

50 INK 0,26: INK 1,0 
60 PAPER 1 : CLS: BORDER 0 
70 WINDOW £1,1.40,1.4 
80 PAPER £1,0: CLS £1:PEN £1,1 
90 WINDOW 4 *- "• 

100 I 


WINDOW £2; 1,40,23,25 
PAPER £2, 0: CLS £2: PEN £2, 


oknie 1 

Zamiana liczby pod 


postać słowna 


110 ’ wypisanie komunikatu 
120 LOCATE £1 , 5, 2: PRINT£1-, 
anej cyfrowo" 

130 LOCATE £1,3, 3: PRINT£1 
zakresu 1-999999" 

140 ’ Wprowadzenie liczby 
150 PEN 0: LOCATE 1,7 
160 PRINT"Poda j liczbę: " 

170 INPUT "".dana 

180 ' Kontrola dopuszczalności liczby 
190 IF dana>0 AND dana< 1000000 GOTO 230 
200 LOCATE £2, 7, 2: PRINT£2, "Ni edopuszczal na li 
czba ! ! ! " 

210 FOR t=l TO 2000: NEXT 
220 GOTO 60 
230 GOSUB 440 

240 ’ Wypisanie postaci rozkodowanej 
250 LOCATE 1,11 

260 PRINT"Postac rozkodowana:" 

270 PRINT sl* 

280 LOCATE £2,2,2:PRINT £2, "Następna liczba < 
T/N):": 

290 INPUT £2, "",d* 

.300 IF d*="t ‘‘ OR d*="T" THEN 60 

310 CLS: LOCATE 10, 10: PRINT"KONIEC PROGRAMU" 

320 GOTO 320 

W trakcie realizacji tego programu są wykorzystywane 2 
podprogramy o zasadniczym znaczeniu dla zamiany liczb na 
postać słowną: 

1. Podprogram wczytywania słów do tablicy 

W czterdziestoelementowej tablicy znakowej t1$ przechowy- 
wane są stałe znakowe, które służą do sklejania rozkładowe} 
liczby w postaci słownej. Wersja źródłowa tego podprogramu 
jest następująca: 

330 ' Podprogram wczytywania slow do tablicy 
340 DIM tl*(40> 

350 FOR i =1 TO 40 
360 READ 1 1 * ( i ) 

370 NEXT 

380 DATA " ", "Jeden", "dwa", "trzy". "cztery", "p 

- 4 — - J ~c", "dzl 


lec " 
sie 


"szesc" 


"siedem' 1 , "osiem", "dziewiec" 


400 DATA "dwadzieścia". "trzydziesc_ 
i esc i ", "pięćdziesiąt", "sześćdziesiąt", "siedem 
dziesiat , "osiemdziesiąt", "dziewiecdziesia 

410 DATA "sto", "dwieście". "trzysta", "czteryst 
a". "piecset", "szescset", "siedemset", "osiemset 
" , ł, dzi ewietset" 

420 DATA "tysiąc", "tysiące", "tysięcy" 

430 RETURN 

2. Podprogram rozkodowywania i sklejania liczb 

Zmienne pomocnicże wykorzystywane w tym podprogramie 
odpowiednio reprezentują: 
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Danuta KWASIŻUR 

St — rząd tysięcy; 
dt — rząd dziesiątek tysięcy; 
ts —rząd jedności tysięcy; 
s — rząd setek; 
d — rząd dziesiątek; 
j — rząd jedności; 

Zmienna Sl$ po wyjściu z tego programu zawiera rozkodo- 
waną liczbę. Wersja źródłowa tego podprogramu jest następu- 
jąca: 


440 * Podprogram rozkodowywania liczby 
450 st=FIX (dana/ 100000) : dan l=dana-st * 100000 
460 dt=FIX (dan 1/10000) : dan2=dan 1 -dt * 1 0000 
470 ts=FIX (dan2/ 1000) :dan3=dan2-ts* 1000 
480 s=FIX <dan3/100) : dan4=dan3-s# 1 00 
490 d=FI X <dan4/ 10) : j=dan4-d* 10 
500 sl*="" 

510 IF st-0 THEN 530 
520 sl *=sl *+t 1 * ( st+28) +" " 

530 IF dt-0 THEN 570 

540 IF dt= 1 THEN 560 

550 sl *=sl *+t 1* ( 19+dt ) +" " : GOTO 570 

560 sl*=sl*+tl*(ll+ts)+" " : GOTO 620 

570 IF ts=0 THEN 620 

580 sl*=sl*+tl*( 1+ts) + " " 

590 IF (ts=l AND dana>2000) OR ts>4 THEN sl*= 
sl *+t 1 * ( 40) +" " : GOTO 630 

600 IF ts=l THEN sl *=sl *+t 1 * < 38) + GOTO 630 

610 sl*=sl*+tl*<39>4" " : GOTO 630 

620 IF DANA >999 THEN sl *=sl * «-t 1 * (40) +" " 

630 IF s=0 THEN 650 
640 sl*“sl*+tl*<28+s>+" " 

650 IF d=l THEN 680 

660 IF d=0 THEN 690 

670 sl*=sl*4tl*(19+d)+" ": GOTO 690 

680 3l*»3l$4tl*(ll+j)+" ": RETURN 

690 IF J=0 THEN RETURN 

700 sl*=sl*4tl*(l+j> : RETURN 


Stosując dość proste modyfikacje można zwiększyć górną 
granicę przedziału liczb dopuszczalnych — co pozostawiam za- 
interesowanym. 

Jeżeli wybrednego użytkownika razi w postaci rozkodowanej 
brak liter charakterystycznych dla języka polskiego (ś, ć, ą, itp.), 
to można dołączyć do wersji źródłowej jeden z licznych pod- 
programów obsługi dodatkowego zestawu tych liter. Wystarczy 
wtedy zmodyfikować stałe znakowe w pierwszym podprogra- 
mie i problem jest rozwiązany. 



AT A Dl 
ATARI 

Telegrafista 


Programy telegraficzne zwykle realizowane 
są przez zapisanie kodów znaków alfabetu 
Morse’a instrukcją DATA, a następnie odczy- 
tywanie ich instrukcją READ. Gdy zastosu- 
jemy automatyczne nadawanie, pojawia się 
jednak wada (szczególnie widoczna przy 
większych tempach) polegająca na nierów- 
nych odstępach pomiędzy czytanymi znakami 
z początku listy DATA, a tymi z jej końca. 

Poniższy program, nie mający tej wady, 
spełnia szereg innych funkcji, które mogą być 


5 DIM TX< 1000) , SK#< 120) , SKD#<2> 
10 OPEN #1,4,0, "K" 'POKE 710,192; 
PGKE 32 , 0 : POKE 731,1 
20 ? CHR# < 1 25 ) : POS ITT ON 7,8;? "P 
ROSZĘ CHWILE POCZEKAĆ "'POSITION 
7,10=? "PROGRAM JEST INICJOWANY 
" ' GOSUB 1000 
30 GOTO ,1710 

40 REM **** GENERACJA ZNAKÓW *** 
50 ? CHR# CLI D; 

55 RD=L 17+1495; D-PEEK < AD > ‘ AD* 1 58 
6+D ; DL=PEEK C AD ) < AD2=AD+ 1 ; AD 1 = AD2 
+DL-1 

60 FOR I=AD2 TO AD1 ! TGN«PEEK< I > > 
TON 1 = TON* FAST * SOUND 0,70, 10, 15 : F 
OR J= 1 TO TONI 

70 NEXT J> SOUND 0,0, 0,0* FOR 1=1 
TO FAST ; NEXT J«NEXT I 
80 FOR 0*0 TO FAST/4 >NEX.T 0 
90 ON N GOTO 310,1310,1590,1730 
100 REM *** MENU GŁÓWNE *** 

110 POKE 755,0;? CHR#<1 25) •• POSIT 
1 ON 0,0;? CHR# ( 1 7), ■ FOR L I = 1 TO 
30 ; ? CHR# < 1 8 H < NEXT L I « ? CHR# < 5 ) 
115 POSITION 0,1;? "I T 

ELEGRAFIH ' I “ 

120 POSITION 0,2> ? "I 

, , 

by SP5N0D <01987 
I" ‘POSITION 0,4 

130 ? CHR# <26)1 'FOR Ll=l TO 38 ■?' 
CHR# < 1 8 > i * NEXT L I * ? CHR* < 3 ■ 

135 POSITION 9,7‘? "M E N U G 
L O W N E" 

140 POSITION 8,8; ? 

145 POSITION 8,10 ? CHR# < 177) i ", 
Nadawan i*" = POS I TI ON 8. , 1 2 « ? CHR# < 

1 73 ) / " . W Pis t^k stu do ru i <?c i " 

1 50 POS I T I ON 8,16 ; ? CHR* < 1 80 ) ; " . 
Ładowanie z kasety" 

151 POSITION 8,14? CHR* <179); 
Zapis na kasecie" 

155 POSITION 8,18'? CHR*<1 81 1 : " . 
Wyświetlenie zawartości par**. " 

156 POSITION 8,20;? CHR*<182) i 

IstrukcJa" ' 

160 POKE 755, 2 'POSITION 7,22,*? " 

",1'GET #1 , M ; M=M~48 ; IF M<1 OR M> 

6 THEN.160 


przydatne zarówno dla krótkofalowców ope- 
ratorów, jak i dla osób uczących się telegrafii. 
Dzięki możliwości uzyskania dużych pręd- 
kości nadawania program może być pomocny 
przy nawiązywaniu łączności meteorytowych i 
zorzowych. 

Program realizuje: 

— nadawanie bezpośrednio z klawiatury, 

— zapis w pamięci tekstu o długości do 899 
znaków, 


170 ON M GOTO 200-, 1100. 1145, 1220 
,1910,1800 

200 REM *** MENU NADAWANIA *** 
205 POKE 755,0 

210 ? CHR*< 125) -POSITION 5,5«? " 
MENU NADAWANI A" 

215. POSITION 4,6'? " V 

•, posiTZON 4,8 

228 ? CHR# <177). i ".Nadawanie z kl 
awiatu.ry " 

221 POSITION 4,10'? CHR# <178);" 
Nadawanie z Pamięci "> POSITION 4, 
12'? CHR#<179); ".Ustalenie predk 
ości" 

230 POSITION 4,14'? CHR#<180>/". 
Powrot do MENU GŁÓWNEGO" 

240 POKE 755, 2 POSITION 3,16'? " 
GET #1,N=N»N-48'IF A<1 OR N> 
4 THEN 240 

250 ON N GOTO 300,1270,430,100 
290 REM *** OBSŁUGA KLAWIATURY * 
tt 

300 ? CHR# < 125) ' GOSUB 420 
318 IF PEEK< 764 >0255 THEN 360 
320 IF PEEK <53279) =6 THEN FAST-F 
AST + 1 : POKE 53279, 7 'GOSUB 420 
330 IF PEEK<732)=17 THEN FAST=FA 
ST- 1 'POKE 732,0 'GOSUB 420 
340 IF PEEK < 53279 ) =5 THEN X=X~1 •• 
XI *=X 1—1 'GOTO SBR 
350 GOTO 310 

360 GET #1 ,L1T = IF LIT-32 THEN ? 

" 'GOTO 310 

365 IF LIT=27 THEN N*2 ' GOTO 1270 

370 IF LIT <20 THEN 1350 

380 IF LIT=42 THEN 200 

390 IF LIT>90 THEN 360 

408 IF PEEK < 94) =2 15 AND PEEK < 95) 

=159 THEN ? CHR# <125) 'GOSUB 420 

410 GOTO 50 

420 POSITION 1,0'? "SPEED ";FAST 
; " " ' RETURN 

430 TRAP 440'? CHR*< 125) ' POSITIO 
N 0,4'? " PODAJ PRĘDKOŚĆ NADAWAN 
I A < 1 - 1 00 >:■•;: I NPIJT FAST ; GOTO 200 
440 ? ' ? " BŁĄD PODAJ LICZBĘ '! 
"'SOUND 0,255, 10, 15 -FOR BL=0 TO 
500 : NEXT BL = SOUND 0,0, 0,0 'GOTO 4 
30 

1000 REM tt.tt KODY ZNAKÓW **** 


— nagranie tak zredagowanego tekstu na 
taśmie oraz jego odczyt, 

Ponadto ma możliwość 

— nadania jednego z 20 tekstów o długości 
do 120 znaków umieszczonych na stałe w pro- 
gramie, 

— wybór prędkości nadawania i jej szyb- 
kiej zmiany. 

Nadawany automatycznie tekst może być 
zatrzymany w dowolnym momencie, a na- 
stępnie odtwarzany od miejsca przerwania 
(OPTION — przerwanie, SELECT — kon- 
tynuacja). Zmiany prędkości nadawania mogą 
być dokonywane klawiszami START i 
HELP. Wyjście z trybu nadawania uzyskuje 
się po naciśnięciu klawisza Po wciśnięciu 
ESC w trybie nadawania z klawiatury zostanie 
uruchomione nadawanie tekstu z pamięci. 

Komputer można podłączyć do nadajnika 
za pośrednictwem specjalnego interfejsu do- 
łączonego do wyjścia AUDIO lub do szyny 
Systemu. W tym drugim wypadku przy ins- 
trukcjach AOUND 0,70,10,15 i SOUND 
0, 0, 0,0 należy odpowiednio umieścić instruk- 
cje POKE ADR,1 i POKE ADR, O, gdzie 
ADR jest adresem interfejsu. Należy pamię- 
tać o sprzężeniu transoptorowym w celu odizo- 
lowania komputera od wysokich napięć indu- 
kujących się na obudowie nadajnika. 

M. DUDA (SP5N0D) 


1810 FOR 1 = 1528 TO 1786 READ Ff 

OKE I , P ' NEXT I' RETURN 

1020 DATA 0,0, 0,0, 0,0, 0,0, 8,0,0, 

0, 0, 7, 14, 20, 26, 32, 38, 44,50, 56,62 
, 68, 74, 0,0 .0, 80, 0, 86,0, 93, 96, 101 
,106 

1030 DATA 110,112,117, 121,126,12 
9*134, 138, 143, 146, 149, 153, 158, 16 
3, 167, 171 , 173, 177, 182, 186, 191 , 19 
6 

1040 DATA 6,3,3, 1, J , 3, 3, 6, 1 , 3, 1 , 

3, 1,3, 5. 3, 1., 1,3, 1,5, 3, 3, 3, 3, 3, 5, 

1.3. 3. 3. 3. 5. 1.1. 3. 3. 3. 5. 1.1. 1.3, 

3.5. 1.1. 1.1.3 

1050 DATA 5,1,1,11,1,5,3,1,1,1, 

1.5. 3. 3. 1. 1. 1.5. 3. 3. 3.1. 1.5. 3. 3, 

3, 3, 1,5, 3, 1,1, 1,3/6, 1, 1,3, 3, 1,1 
1060 DATA 2, 1,3, 4, 3, 1,1, 1,4, 3,1, 

3. 1.3. 3. 1.1. 1.1. 4. 1.1. 3. 1.3. 3. 3, 

1.4. 1.1.1. 1.2. 1.1.4. 1.3, '3, 3, 3, 3, 
1,3,4, 1,3, 1,1 

1070 DATFr 2, 3, 3, 2, 3, 1,3, 3, 3, 3, 4, 
1,3,3, 1,4, 3, 3, 1,3,3, 1,3, 1,3, 1,1, 

1.1. 3. 3. 1.1. 3. 4. 1.1. 1.3. 3. 1.3. 3, 

4.3. 1.1.3 

1080 DATA 4,3, 1,3, 3, 4, 3, 3, 1,1 
1090 REM *** WPISYWANIE TEKSTU * 

1100 ? CHR# <125) 'POSITION 1.0=? 

" MOZESZ PISAĆ TEKST > " ; X*0 
1110 GET #1 , TX = ? CHR#<TX); ' TX<X) 
=TX= IF TX=155 THEN 100 
1120 X=X+1 : IF X>839 THEN ? "PRZY 
KRO MI • KOMIEC PAMIĘCI DLA TEKSTU 
" =TX<900)=155'GET #1, BYK GOTO 10 
0 

1130 GOTO 1110 

1140 REM *** ZAPIS NA KASECIE U 
t 

1145 ? CHR# <125) 'POSITION 1,0'? 

" WCIŚNIJ 2 RAZY 'RETURN ' " 

1146 GET # 1 , LOR ' ? CHR# < 125) ' POS I 
TI ON 1,0'? " TEKST JEST NAGRYWhN 
Y " 

1150 IF TX<0)=0 OR TX< 1 )=0 THEN 
POSITION 2,5'? "Zbiór pusty i wc 
isnij >GET #1, BYK GOTO 100 . 

1160 X=0 : OPEN #2,8,0, "C” * 

1170 TX=TX<X) ' PUT #2 , TX ' I F TX=15 W 
5 THEN GOTO 1190 
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1180 x-x+i'«<j6fo n?e “ 

1130 CLOSE #2 -GOTO 100 

1210 REM *** ODCZYT Z KASETY *** 

1220 X*0*? CHRi < 1 25 > • POS I T I ON 1, 

0 : ? 11 WCIŚNIJ 'RETURN' " 

1221 OPEN #2,4,0, "C" •? CHR$<125) 
■POSITION 1,0*? " CZYTANY TEKST 

* " * TRAP 1255 

1230 GET #2,TX>? CHR$<TX)J >TX(X) 
=TX * IF TX=155 THEN 1250 
1-240 X=X+ 1 ! GOTO 1230 
1250 CLOSE #2 > ?- ■? " WCIŚNIJ DOW 
OLNY KLAW I SZ " ; = GET # 1 , PDM ■ GOTO 1 
00 

1255 CLOSE #2 1 ? <? " 8LAD LADOWh 
NIA.SPROBOJ JESZCZE RAZ. “<? " N 
Apl SN IJ DOWOLNY KLAWISZ" ;« GET #1 
, BYK* GOTO 1220 

1260 REM ** CZYTANIE ZAW. PAMIĘĆ 
. I ** * 

12 70 X=0 * SBR*=1310 * ? CHR$( 12S> 1 GO 
SUB 420 ^ 

1280 LIT=TX(X) * IF LIT=155 THEN S 
BR=3 1 0 * N= 1 * GOTO 310 ■ 

1290 IF PEEK<53279)=3 THEN N=1*G 
OTO 310 

li'95 IF LIT=32 THEN GOTO 1330 
1380 GOTO 50 

1310 X=X* 1 * N=2 * GOTO 1280 , 

1330 FOR 1-1 TO FAST * NEXT I>? " 

" i * GOTO 1310 

1340 REM *** 20* TEKST :*** 

1350 ON LIT GOTO 1360,1370,1380, 
1390, 1400, 1410,1420, 1430, 1440, 14 
50, 1460, 1476, 1480, 1490, 150O, 1510 
,1520,1530,1540 

1360 SK$*"CG CQ, CO DE SP3N0D SP5 
NOD SP5N0D CQ CO CO DE SP5N0D SP 
5N0D SP5N0D PSE K" * GOTO 1550 
1370 SK$="GRZ ?" * GOTO 1550 ' 

1380 SK$="MY NAME NAME NAME IS I 
S IS MARK MARK MARK ES MY OTH OT 
H OTH IS IS IS PŁOCK PŁOCK PLGpK 
*=" * GOTO 1550 

1390 SKś="MY RIG IS TX ABT 50 WT 
TS * ANT IS DIPOLE G5RV * COMPUT 
ER ATARI 800 XL »" *GOTO 1550 
1480 SK$="UR RST RST RST IS" 'GOT 
O 1550 


1410 

SK#*"NW 

VY TNX FOR 

OUR NI CE 

GSO 

= V6 73 

73 73 

ES MNI 

BEST D 

XS = 

GB GL ES HPE 

CUAGN 

= 

' GOTO 

1550 

1420 

SK$=" " 

GOTO 

1550 



1430 

SK*=" " 

GOTO 

1550 



1440 

SK$=" " 

GOTO 

1550 



1450 

SK$=" " 

GOTO 

1550 



1460 

SK$=" " 

GOTO 

1550 



1470 

SK$=" " 

GOTO 

1550 



1480 

SK$=" •" 

GOTO 

1550 



1490 

SK*=" " 

GOTO 

1550 



1500 

SK$=" " 

GOTO 

1558 



1510 

Sk;*«" " 

GOTO 

1550 



1520 

SK$=" " 

GOTO 

1550 



1530 

SK*= 

GOTO 

1550 



1540 

SK$="CQ 

CQ CG 

TEST 

TEST TES 

T DE 

SP5N0D SP5N0D 

SP5N0D 

TEST T 


EST TEST DE SP5N0D SP5N0D SP5N0D 
KK" * GOTO 1550 

1550 SBR=1530 * N*3 = Xl=l * IF LEN(SK 
$) <2 THEN M=M1 * SBR=310 = GOTO 310 
1 560 SKD*-SK**XT , X 1 ) ' L I T=ASC < SKD 
$>-IF SKD$=" " THEN ? " "j 'GOTO 
1610 

1570 IF PEEK< 53279 )**3 THEN N=1'G 
OTO 310 
1580 GOTO 50 

1590 IF X1=LEN(SKŚ) THEN N*=1=SBR 

=310 'GOTO 310 

1608 GOTO 1620 

1610 FOR U=0 TO FAST * NEXT U 

1620 X1=X1+1 =N=3=G0T0 1560 

1700 REM *** CZOLOWKA #** 

1710 SK$=" TELEGRAFIA" 'GRAPHICS 2 
+ 16 * FAST=30 * N=4 * POSITION 4,5 = X=1 


1720 SKD*«SK*<X,'tf5 < LIT=AŚC(SKD*) 

'? #6; CHR$(LIT) ; -GOTO 55 

1730 IF X=10 THEN 1750 

1740 X*X+1 * GOTO 1720 

1750 IF PEEK<53279)=6 THEN X=0=G 

RAPHICS 0 * POKE 710, 192 'GOTO 100 

1760 GOTO 1750 

1800 REM *** INSTRUKCJE *** 

1810 ? CHR* < 125) 1 POSITION 12,1=? 
" OBJAŚNIENIA *" 

1811 POSITION 2,4*? "Klawisze z 
CCONTROLD uruchamia Ja 20 w-Pisam 
vch ma"; 

1820 ? " dole prosramu. tekstów < 
nume-ry ich linii =1360"; 

1821 ? "-1540). Można Je dowol-n 

ie zmieniać, lecz ich dlusosc n 
ie może "i « 

1830 ? "przekroczyć 120 znaków ( 
ze spacjami). Czytanie pamięci 
można zatrzymać w kaz-deJ chwi 
li poprzez "> 

1840 ? "przytrzymanie w od po-wie 
dnirn momencie klawisza") 

1841 ? " COPTION3 , a na-stepnie m 
oznf Je wznowić od momentu za-t 
rzyma " i 

1850 ? "ni a. Prędkość nadawania w 
ozna zwie-kszac"; 

1851 ? " (tylko w opcJi nadawani 
a z klawia-tury) za pomocą kl 
-awisza CHELPD"; 

1860 ? " oraz zmniejszać za porno 
ca klawisza CSTART3 . " 


1870 POSITION 10,20*? "MILEJ 2AB 
AWY !! '"'POSITION 6,22'? " WCISN 
'IJ DOWOLNY KLAWISZ"; *GET #1,*INS- 
GOTO 100 

1980 REM *** WYSW.ZAW.PAM. *** 
1910 ? CHR*< 125) 'POSITION 1,0'? 

" ZAWARTOŚĆ PAMIĘCI * " * X=0 
1920 ? CHRf (TX(X) ) ; ' IF T>i(X)=155 
THEN ? •? " WCIŚNIJ DOWOLNY KLA 
W I SZ " ; * GET # 1 , CON * GOTO 1 80 
1925 IF PEEK<532?9)»3 THEN ? '? 

" WCIŚNIJ DOWOLNY KLAWISZ" ;« GET 
#1, CON 'GOTO 100 
1930 X=X+1 * GOTO 1920 
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Tajemnicze w swej istocie przypad- 
ki, które przez kilka tygodni trzymały w 
napięciu miasto Artemidos, zarazem in- 
trygując mieszkańców całego konty- 
nentu, dziś miały zostać wyjaśnione. 
Nic więc dziwnego, że w kierunku ko- 
pulastej, wykładanej blało-złelonymi 
płytami rotundy policji miejskiej, gdzie 
miała się odbyć konferencja zmierzało 
wiele pojazdów. Raz po raz na lotni- 
sku lądowały małe awionetki i wirówce. 

Sala konferencyjna szybko się za- 
pełniała. Pięć minut przed rozpoczę- 
ciem spotkania z tzecznikiem policji I 
przewodniczącym Rady Obywatelskiej 
pięćset miejsc przed pulpitami fotora- 
mów było zajętych. Na stanowiskach 
kwadrotelewizji czuwali operatorzy 
sześciu stacji kontynentalnych. Niektó- 
rzy zdążyli zaprogramować zapis prze- 
kazu, teraz spokojnie popijali dostane 
przez urządzenia podawcze soki i inne 
zamówione napoje. Zapóżnieni szybko 
programowali fotoramy wciskając kla- 
wisz. Większość miała czas rozglądać 
się po sali, wymienić uwagi z sąsiadem. 
Podniecenie powoli zaczęło narastać. 

Trzy minuty przed rozpoczęciem 
spotkania zapaliła się kontrolna lampka 
na ekranach fotoramów i miły kobiecy 
głos zapowiedział rozpoczęcie konfe- 
rencji. 

W centralnym miejscu sali otworzyła 
się podłoga i na powierzchnię wyjechał 
pulpi\ sterowniczy, stół prezydialny i 
fotele. Bezszelestnie otworzyły się drzwi' 
i do sali weszło trzech mężczyzn. Zajęli 
miejsca za stołem, za ich plecami ods- 
łonił się centralny ekran fotoramu. 

Ubrany w beżowy garnitur I takąż ko- 
szulę siwowłosy mężczyzna Calla Wer- 
tena, przewodniczący Rady Obywa- 
telskiej, wcisnął guzik mikrofonu i za- 
czął konferencję. 

— Szanowni państwo! — zaczął — 
wydarzenia, jakie rozegrały się w na- * 
szym mieście, nie są bliżej znane na- 
szej społeczności, dlatego pojawiły się 
domniemania i plotki. Padło i takie 
stwierdzenie, iż staliśmy się przedmio- 
tem ataku innej cywilizacji. Zanim uda- 
ło się nam wyświetlić całą sprawę, 
upłynęło trochę czasu. 

/ Myślę, powiedział, że najlepiej spra- 
wę wyjaśnią — rzecznik policji, Ed 
Cant, mówiąc to wskazał ręką na ubra- 
nego w mundur policji miejskiej wyso- 
kiego mężczyznę o suchym obliczu i 
przesłoniętych ciemnymi okularami 
oczach. Ten lekko skłonił głowę. 

— Aby, jednak w pełni sprawa była 
znana, poprosiliśmy też pana profe- 
sora Legera, specjalistę od metapsy- 
chologii i psychiki. 

— Pierwszy ma głos pan Cant. Ten 
zdjął okulary i spojrzał na salę. Zaczął: 

— Wydaje się, że wszyscy państwo 
wiecie, że chodzi o całą serię wydarzeń 
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związanych ze znikaniem przedmiotów 
i rzeczy. Z myślą o porządkowaniu 
przebiegu wydarzeń przypomnę pod- 
stawowe fakty. 

25 marca z naszego miejskiego mu- 
zeum techniki ginie bez śladu lawator. 
Nieobeznar.ym z historią techniki 
przypomnę, że był to pojazd wielokrot- 
nego wykorzystania, mogący poruszać 
się po wodzie, lądzie, i w powietrzu. 
Mógł na krótko zagłębić się do 200 me- 
trów pod wodą i wznosić się do 20 nad 

G E 


ziemię. Modele wykorzystywane były 
na początku naszego wieku do badania 
Galaktyki Oriona. Jego wygląd, powie- 
dział wciskając przycisk na pulpicie,' 
zobaczycie państwo na ekranie. Godzi 
się przypomnieć, że legendarny ba- 
dacz, Dean Deder spenetrował za jego 
pomocą planetę Olfar. 

Widząc obraz wyświetlany na ekra- 
nach kontrolnych swoich pulpitów wie- 
lu z uczestników konferencji nacisnęło 
przyciski robiąc powiększenie, aby 
mieć wyraźniejszą dokumentację. 

W tym czasie rzecznik policji mówił 
dalej. — Jak wiadomo konwencja 25 z 
Warszawy zobowiązywała Rady Oby- 
watelskie do likwidacji silników ato- 
mowych na całym naszym globie. Po- 
nieważ lawator był nimi napędzany, a 
nowy silnik parafotonowy niezbyt pa- 
sował i zwiększał koszty, zapadła de- 
cyzja zniszczenia wszystkich pojaz- 
dów, poza tymi, które po uprzednim 
zdemontowaniu silnika przeznaczone 
były do muzeów oczywiście. Ten eg- 
zemplarz, który zaginął, należał, jak już 
powiedziałem, do legendarnego już za 
życia Deana Dedera. Muszę państwu 
zwrócić uwagę, że był pewnym szczeb- 
lem do dzisiejszych pojazdów Alfa. 
Sama idea zachowania w muzeum la- 
watora sprowadzała się do tego, aby 
nasza młodzież mogła w żywym oglą- 
dzie poznawać starą technikę. 

Zniknięcie pojazdu nikogo by nie za- 
niepokoiło, gdyby... Były wypadki, iż ten 
czy ów miłośnik techniki wypożyczał 
eksponaty, aby odtworzyć ten czy inny 
pojazd, zawsze jednak po kilku dniach 
pojazd wracał. Tym razem było inaczej. 
Zmuszeni byliśmy do ogłoszenia zda- 
rzenia w środkach masowej informacji i 
prosić o zwrot eksponatu, ale to nie na- 
stąpiło. 

To było pierwsze wydarzenie. 

Gdzieś około dwóch tygodni później, 
z Kompleksu Budowy Silników do Alfa 
— zaginął eksperymentalny najnow- 
szy model silnika Carbo Ax. 


Dzień później z Kompleksu Paliw gi- 
ną baterie zalitowe przeznaczone do 
małego prdmu kosmicznego. Rex— 1. 
Ich czas pracy jest praktycznie nie- 
ograniczony. 

Do czwartego wypadku doszło w 
Agrokompleksie— 1, produkującym 
żywność dla załóg promów. Tym razem 
znika i to bez śladu 2-letni zestaw po- 
siłków dla załóg kosmolotów. 

Pojawiło się równocześnie kilkanaś- 
cie rozbieżnych hipotez. Zresztą zaczę- 
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liśmy je sprawdzać po kolei, jedna po 
drugiej. Być może trwało to długo i w 
końcu byśmy doszli do istoty, ale zde- 
cydował przypadek i dzięki niemu 
sprawa została przyspieszona. — Właśnie 
w Agrokompleksie zarządzona została 
przerwa rekreacyjna, wszystkie urzą- 
dzenia i roboty miały być sprawdzone i 
przejść okres odpoczynku. Inżynier 
Waren, prowadzący sprawdzanie robo- 
tów typu Goliat, przeznaczonych do 
najcięższych prac, znalazł u jednego z 
nich wmontowany dodatkowy obwód, 
który uczynił robota posłusznym inne- 
mu nieznanemu decydentowi. Szef po- 
licji polecił wtedy dokładną kontrolę 
wszystkich robotów tego typu. Było ich 
więcej — jeszcze dwa podobne modele 
mające wmontowane układy nadste- 
rownicze odkryto tam, gdzie wydarzy- 
ły się wcześniejsze wypadki. Układy 
bardzo prymitywne, ale skuteczne. Na- 
si znawcy ocenili Je. Urządzenia wyko- 
nał ich zdaniem człowiek niezbyt obe- 
znany z techniką. 

Nie będę państwa zanudzał szcze- 
gółami dalszych naszych poszukiwań. 
W końcu znaleźliśmy sprawcę. Okazał 
się nim dwunastoletni syn naczelnego 
konstruktora Kompleksu Rozwiniętej 
Techniki — Rexa Dedera — Adaś. On 
to wmontował układy robotom. I one na 
jego życzenie dostarczyły mu tych 
przedmiotów. 

Jak to się stało, że urządzenia, w cza- 
sie przerw regeneracyjnych, pozba- 
wione dopływu energii na okres dwu- 
godzinny, zdołały wykonać polecenia 
chłopca, pozostanie na razie tajemnicą. 

On sam zapytany o przyczyny podję- 
cia takiego działania, stwierdził, że 
oglądając stare filmy zapragnął być no- 
wym Gregiem Berry — legendarnym 
zdobywcą planety Arfa 4 w galaktyce 
Fixa. 

Z tą myślą rozpoczął przygotowanie 
własnego pojazdu, aby wyruszyć na 
nieznaną planetę. 


Teraz głos oddałbym profesorowi 
Legerowi, który postara się wyświetlić 
samo zjawisko. 

Sam problem, który chcę państwu 
przybliżyć, faktycznie nie jest znany 
naszej cywilizacji, nie oznacza bowiem 
pojęcia kradzieży, albo inaczej zaboru 
mienia społeczności. Jest to pojęcie hi- 
storyczne wykreślone z języka przed 
wielu, wielu laty. 

Wyobraźnię chłopca opanował fik- 
cyjny bohater, który doznawał wielu 
przygód i zawsze zwalczał przeciwnoś- 
ci, zabijał mityczne potwory, uwalniał 
przyjaciół z różnego potrzasków losu. 

Tu dopatrujemy się poważnego błę- 
du wychowawczego. Jeżeli ojciec 
chłopca interesował się starymi filmami, 
to do ich wyświetlania nie powinien 
dopuszczać chłopca. Zgodnie bowiem 
z naszym założeniem wychowawczym 
stare filmy mogą oglądać ludzie doroś- 
li. 

Po trzecie właśnie, wykryliśmy w ge- 
nach chłopca zakodowaną chęć przy- 
gód i zdobywania. Sądzę osobiście, że 
wypływa to z dziedziczenia. Jest on 
bowiem spokrewniony w linii prostej z 
Deanem Dederem. Z badań wynika, że 
jest dzieckiem w niczym nie odbiegają- 
cym od normy, może tylko niekiedy 
przejawia zbyt dużo inicjatywy. Teraz 
przebywa na specjalistycznym lecze- 
niu, aby zatrzeć w nim cechy nieprzy- 
datne w naszym życiu społecznym. 

Dyskusja ciągnęła się jeszcze dłuż- 
szy czas. Na koniec głos zabrał Cali 
Werten. 

— Nasze prawo nie przewiduje od- 
powiedzialności za chłopięce marze- 
nia. Toteż po zwróceniu uwagi rodzi- 
com, sprawa, jeżeli można to nazwać 
sprawą, została zamknięta. 


Martin CARR 



Krzysztof WALCZAK 
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GIEŁDA POMYSŁÓW 


Gra zręcznościowa 

BARMAN 

Mikrokomputer Meritum ma niewielkie oprogra- 
mowanie. Jego słaba grafika, brak kolorów I nie- 
wielkie możliwości generowania dźwięku zniechę- 
cają do tworzenia programów, a szczególnie gier. 

Być może program „Barman” pozwoli użytkowni- 
kom tego mikrokomputera nieco się zabawić. Jed- 
nakże dobra zabawa w robota podającego piwo 
okupiona jest czasem potrzebnym na wpiąanie do- 
syć długiego programu. 

Program najlepiej jest wpisywać częściami, dopi- 
sując poszczególne linie. Należy pamiętać o utrwa- 
laniu na taśmie magnetofonowej stopniowo rozbu- 
dowującego się programu. Ze względu na możli- 
wość przypadkowego przekasowania pamięci. Linie 
4 i 6 blokują przerwanie BREAK i NMI, dlatego po- 
winny być wpisane dopiero po uruchomieniu pro- 

9ramu Piotr BIEDRZYCKI 

3 CLE AR 290 :6Q5UB 5093 

4 POKE 16390,175: POKE I6397,2«l 

5 DIM R.(5), Rx(5): A=2535# 

6 OUT 250,0 'BLOKADA NMI 

9 >— 

10 60SUB 1000 

15 POKE 16526,1151 POKE 16527,102 

17 U=USR(0) 'SKASOWANIE EKRANU 

18 GGSUB 2005 

1? POKE 16526,159: POKE 16527,101 

20 U=USR (0) 'URUCHOMIENIE PROGRAMU 

25 NW=PEEK (A) +256*P£EK (A+l) 

30 GOSUB 600 : GOTO 10 

35 , 

599 'WYŚWIETLENIE WYNIKU 

600 PRINT0 525, ' *5 

605 PRINT0 589,USING* ZAROBIŁEŚ 'fNWJ 

407 PRIKT0 653, ' *; 

610 FOR F=0 TO 900: NEXT F 

619 'SPRAWDZANIE WYNIKU 

620 FOR H=1 TO 5 

625 IF NW > R(H) THEN 655 

630 NEXT H 

635 RETURN 


654 'WYNIK JEDEN Z PIĘCIU NAJLEPSZYCH 

655 FOR J=5 TO H STEP -1 

660 R(J)=R(J-1>: Rx(J)=Rx(J-l) 

665 NEXT J 

668 CLS: PRINT CHRx(23> 

670 PRINT0 512,' TWOJE IMIĘ", 

672 INPUT lx 

673 I*=lxt' 

675 R(H)=NW : Rx(H)=LEFTx(Ix,6) 

680 RETURN 

999 'PIERWSZY EKRAN 

1000 CLS: PRINT CHRx(23) 

1005 PRINT: PRINT' BARMAN ' 

1010 PRINT 

1015 PRINT' 'W'-W GORE' 

1018 PRINT' PCDAJ KUFEL- 'ENTER'' 

1020 PRINT' 'S'-W DOL* 

1025 PRINT: PRINT' LISTA NAJLEPSZYCH WYPŁAT' 

1026 PRINT: FOR H=1 TO 5 

1130 PRINT * 'W - '5Rx(H);USIN6'«00x';R{H) 

1135 NEXT H 

1036 Ax=INKEYx 'KASOWANIE KODU OSTATNIEGO KL. 

1037 IF INKEYx=" THEN 1037 ELSE CLS 

1040 RETURN 

1999 'PLANSZA GRY 

2005 FOR H=0 TO 99 

2010 SET (H,10) : SET (H,28>: SET (H,46) 

2025 NEXT H 

2130 FOR L=0 TO 47 

2035 SET (127, L): SET (120, L) 

2040 NEXT L 

2042 PRINTi 189,CHRx(191)!CHR«(154); 

2045 PRINT0 573,CHRx(191)»CHRx(154) J 

2047 PRINT8 957,CHRx(l?l);CHRx(154>; 

2050 RETURN 

2888 'KOD WEWNĘTRZNY ZAJMUJE OBSZAR 

2889 'OD 6400H (25601) BO 696FH (26991) 

3999 'PODPROGRAM LĄDUJĄCY 

4000 FOR Z=A TO A+P§16-1 

4005 READ Ax:PRINTAx?' 'J 

4110 N=ASC( LEFTx(Ax,l>)-48 

4015 H=ASC(RIGHTx(Ax,l))-48 

4020 N=N-INT(N/12)*7 

4025 N=M-INT(N/12>»7 

4130 B=N*16+H: S=S+B 


00 

i 

X 


Nl 



1 REM ************************** 

2 REM * TRRFIRNIE KWRDRRTOW * 

3 REM * ZX-81 . * 

a REM ************************** 
10 LET 5=0 . 

15 CLS 

20 PRINT RT 18, 0; “ 


25 FOR F=1 TO 30 

30 PRINT RT RN0*15+2, RHD*18,; 

35 NEXT F i 

<10 LET L=10 

<15 FOR F=1 TO 17 

50 LET L=L+CINKEY$=“8"3 *-CINKEYŚ= 
5" RND L> 03 


55 PRINT RT F, L; 

60 LET P=PEEK.C256*PEEK 16353*PEE 
K 16358J 

65 PRINT ••Y" 

70 IF P=1S0 THEN GOTO 115 
75 IF P=128 THEN GOTO 55 
60 PRINT RT F, L; ' " 

85 NEXT F 

90 GOTO 115 

55 PRINT RT F, L; ■'*'■ 

10O LET 5=5+1 

105 J.F 5=20 OR S=<10 OR 5=60 OR 5 
=60 THEN GOTO 15 
■ 110 GOTO <15 

115 PRINT RT 1 5,0; "PUNKTY: 5 
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4035 POKE Z»B : NEXT Z 

4040 RETURN 

4999 'ŁADOWANIE KODU MASZYNOWEGO 

5 000 A =25600 :P=16 :S=0 :GOSUB4000 : 

IF S< >31417 THEN PRINT'BLAD $LOK l':ENB 

5001 DATA 80f80fB6fB3fBCfB3fB9f80f80f80f80fB2fB3fBFfB3fB1 

5002 DATA 80f80fB8fBEfB1fBBf9FfBFf8BfBDfB0f3Cf8Cf8Cf8Cf8C 

5003 DATA 8Cf8Cf8Cf8Cf80f80fB8?BFf80fBF»B4f90f80f00f00f00 
5W4 DATA 80f80fA0fB9fB6f90f80f80f80fB0f8BfAEf9DfB7fB0fB0 

5005 DATA 8Af95fBEfBFfBFfBDfAA?85f8CfBCf8Cf8Cf8Cf8CfBCf8C 

5006 DATA- 80f80.BFf9FfAFfBFf80f80f80f80fBBf91fA2fB7f80f80 

5007 DATA A4fA8fBCfB4f90f82fAFf24f9Df85f00f00f00f08f00f50 

5008 DATA 21f00f72f5Ef23f56f7AfA2fC8f2BfEBf2Bf7DfFEf00fCA 

5009 DATA 04f69fFEf80fCAf84f69fD3»FEf36f9Af2Bf36f8Ff23fEB 

5010 DATA 73f23f72f23f18fDDf21f00f72f5Ef23f56f23f7AfA2fCB 

5011 DATA EBf < 36i80f2Bf36f80fEBf18fF0f21f00f75f5Ef23»56t7A 
5412 DATA A2fC8f2BfEBf23f7DfFEf33f28f11fFEfB3f28f«Df36fBA 

5013 DATA 2Bf36fA5f23fEBf73f23f72f23f18fE1fD5fD5fD5f£5f11 

5014 DATA 80f00f2Af08f63f19fE5fD1fE1fCDf39f0AfA7fC2f04f69 

5015 DATA D1fCDfB9f&8fE1f23f23f01f0Qf01fEDfB9f2AfQ6fÓ3f23 

5016 DATA 22f06f63fE1f18fB6f21f00f75f5Ef23f56f23f7AfA2fC8 

5050 PRINT :A=Z :S=0 :GOSUB 4000 : 

IF S< >22940 THEN PRINT*BLAD BLOK 2*:END 

5051 DATA EBf36f80f2Bf36f80fEBf18fF0f2Af00f63fA7fC8fFEf08 

5052 DATA 20f0Ef11f40f00fEDf52f06f08f36f89f23f10fFBf18f11 

5053 DATA 00f11f80f01f19f11f00f40fCDf39f0AfFEfFFf20f02f18 

5054 DATA E6f2Af00f63f11f30f64f0Ef05fE5f06f03f1Af77f13f23 

5055 DATA 10fFAfE1fD5f11f40f00f19fD1fCBf74f28f05fCDf63f65 

5056 DATA 18f11f0Df20fE4fCDf63f65fCDf5Bf65f06f04f1Af77f23 

5057 DATA 13f10fFAf3Af10f63fFEf80f20»21fD5fE5f2Af00f63f11 

5058 DATA C0f00»19f36f8Cf06f06f23f36fBFf23f10fFBf36,8Cf11 

5059 DATA &f00fEDf52f36f9Ff2Bf36fAFfE1fD1f0Ef0AfD3fFEf3C 

5060 DATA 06f0Ai10fFEfD3fFEf06f0Df19fFEf3Cf0Df20fEFfC9fE5 

5061 DATA CDfA5f65fE1fC9f21f33f3Cf22f00>63fCDf27f69f22f02 

5062 DATA 63f22f00f70f22fA0f70f22f09f72f22f00f75f22f06f63 

5063 DATA 22f0Cf63f3Ef02f32»AFf40f32f0Ef63fEDf73f04f63fCD 

5064 DATA 31f65f18f23fCDf20f69»06f02fC5»3Af10f63fCDf3Df66 

5065 DATA CDf09f65f3Af10f63fA7f28f0Af«óf09fC5f06i90f10fFE 

5066 DATA C1f10fF8fC1f10fE3fC9f00f3Af02f63iFEf09fFCfB3f67 

5100 PRINT :A=Z :S=0 :GOSUB 4000 : 

IF S< >27142 THEN PRINT*BLAD BLOK 3":END . 

5101 DATA CDf51f68fCDf96f64fCD»F6»64fCDf31f69fCDf83f66fCD 
k 5102 DATA A9f64fCDf70f64fCDfFBf67»CDfD4f65f06f92fC5f10fFE 

5103 DATA C1f10fFAfCDf11f68fCDfF6»64fCDf96f64fCDfA9f64fCD 

5104 DATA 70f64fCDfFBf67fCDf77f68f18fBDf3Af04f38f11f40f00 

5105 DATA 2Af00f63fFEf80f20f10fA7fEDf52f7CfFEf3BfCBf22.00 

5106 DATA 63f3Ef80f32f10f63fC9fFEf08f20f13f19f11»40f3FfCD 

5107 DATA 39f0AfFEfFFfC0f22f00f63f3Ef0Bf32f10f63fC9fAFf32 

5108 DATA 10f63fC9fE5f01fFFf03f11f01f3Cf21f00f3Cf36f80fED 

5109 DATA B0fE1fC9f01f00f70f0AfA7fC8fCDfE5f67f03f0Af3CfFE 

5110 DATA 32fCAf04f69f02fC5f85f6Ff11f80f.00fA7fEDf52fCDf02 

5111 DATA 67f11f80f00f19f7DfFE»7Ff28f06fFEfFFf28f02f36f80 


5112 DATA C1f03f18fD2fO1fA0f70f0AtA7fCBfCDfE5f67f03f0AfJII 

5113 DATA FE»FFf28f24f02f85f6FfE5fC5f23f36f80fA7f11f81f00 

5114 DATA EDf52fCDf02f67fC1fE1f00f00f00f00f00f00f00f00f00 

5115 DATA 00f90f00f00f00f03f18fCFf36f89f0BfC5fC5fC5fD1fE1 

5116 DATA 23f23f01f40f00fEDfB0fC1f0Bf3Af02f63f3Gf32f02f63 

5150 PRINT :A=Z :S=0 :GOSUB 4000 : 

IF S( >26748 THEN PRINT*BLAD BLOK 4':END 

5151 DATA 18fE3f11f08f64f06f09fC5fD5fE5f06f05fC5f01f40f00 

5152 DATA 1Af77f09f7BfC6f09f5FfCBf74f20f14fC1f10fEEfE1fD1 

5153 DATA 2Bf1Bf7DfFEf7Ff28f0BfFEfFFf2Bf07fC1f10fD9fC9fC1 

5154 DATA 18fECfC1fC9fE5f0AfFEf06fFAf53f67f7EfFEfBFf28f06 

5155 DATA 2Bf7EfFEfBFf20f0Df23fCDf55f67fCDf90f67fCDf70f67 

5156 DATA CDfE7>68fE1fC9fE5fC5fC5f01f40f00f11fC0f70f21fBE 

5157 DATA 7#fEDfB8fC1f0Af32fA1f70f0B»0Af32fA0»70fC1fE1fC9 

5158 DATA •BFę,5FC5FC5FDlFElF23>23»eiF4«F0«FEDFB©FCl»0B»C? 

5159 DATA C5f0Ef7Ef11f00f72fEDf53f0Af63fE5fE5f2Af0Af63f5E 
5161 DATA 23f56f23i22f0Af63fE1?CD?39f0AfA7f28f06fE'1f0Df20 

5161 DATA E9fC1fC9f01f00f01f2Af0Af63fE5fD1f1Bf1BfEDfB0f8E 

5162 DATA 01f18fEAf21f10f00fCDf9Af0AfCDfC9f14fCDf37f0Bf3A 

5163 DATA 21f41fFEf04fF0f32f03f63fCDfE5f67f7EfFEf80fC0f01 

5164 DATA 40f00f11f40f70f21f3Ef70fEDfB8f3Af03f63f32f90f70 

5165 DATA AFf32f01f70fC9fFEf01f20f05f21f80f3Cf18f0CfFEf02 

5166 DATA 20f05f21f00f3Ef18f03f21fB0f3FfC9f00f01f00f70f0A 

5200 PRINT :A=Z :S=0 :GOSUB 4000 : 

IF S< >25902 THEN PRINT'BLAD BLOK 5':£ND 

5201 DATA A7fC8fCDfE5f67f03f0Af85»D6f04f6FfCDf34f67f03f18 

5202 DATA EEfCDfE3f03fFEf0DfC0f2Af00f63f11f7Ef00f19f11fB1 

5203 DATA 3CfCDf39f0AfA7f28f13f11f31f3EfCDf39f0AfA7f28f0A 

5204 DATA 11»B1f3FfCDf39f0AfA7f28»01fC9fE5fCDfD0f68f01f00 

5205 DATA 01f11f00f73f21fFEf72fEDfB8fD1f21f00f72f73f23f72 

5206 DATA C9f00f3AfB4f67fFEf09»F8f2Af06f63fED.5Bf0Cf63fED 

5207 DATA 52f11f0óf00fCDf39f0AfA7fFEf01fC0f2Af06f63f22f0C 

5208 DATA 63f21fB4f67f35f35fC9f09f3Af0Ef63f3Df32f9Ef63fA7 

5209 DATA C0f3Ef08f32f0Ef63f3Af02»63»A7fC8f21f08f00fCDf9A 

5210 DATA 0A>CDfC9f14fCDf37f0Bf3Af21f41fFEf04fF0fCCfE5f67 

5211 DATA 23?E5f01f00f01f11f00f76f21fFEf75fEDfB8fD1f21f00 

5212 DATA 75f73f23f72f21f02f63f35fC9fC5f0Ef23f3Ef78fD3fFE 

5213 DATA 47f10fFEf3Df3Df3DfD3fFE»47f10fFEf0Df20fF0fC1fC9 

5214 DATA C5f0Ef23f3Ef0CfD3fFEf47»10»FEf3Cf3Cf3CfD3fFEf47 

5215 DATA 10fFEf0Df20fF0fC1fC9iC5f3Af02f63f07f07f4Ff3Ef60 

5216 DATA 91f0Ef14f47fD3fFEf10fFEf3Tf47fD3fFEf47f10fFEf0D 

5250 PRINT :A=Z :S=0 :P=7 :GOSUB 4000 : 

IF S< >14326 THEN PRINT*BLAD BLOK 6':END 

5251 DATA 20fF1fC1fC9fEDf7Bf04f63f21f00f00f0EfFEf3Ef32fED 

5252 DATA B3fEDfB3fEDfB3fEDfB3»3Df20»F5fC9f54f52f55f44fB0 

5253 DATA CDf3Af66fCDf09f65fC9f21f18f00f22fB4f67f21f00f00 

5254 DATA C9f21f49f69f22f03f67fCDfB4f66f21f08f64f22f03f67 

5255 DATA C9f80f80fB6fB3fBCfB3fB9f80f80f80f80f*2fB3fBFfB3 

5256 DATA B1f80f8IfA0fBFf9FfB5fBFfBAfBFfBFfB4f8Cf8Cf8Cf8C 
5257 DATA 8Cf8Cf8Cf8CfBCf80fA0fB8fBFf89fBFfB4f80f80f50f2F 

5999 » KONIEC DANYCH 

6000 RETURN 'POWROT Z PODPROGRAMU LĄDUJĄCEGO KODY 


2 REM * GOLF * 

' 3 REM * ZX-81 

4 REM ******************** 

5 LET C-NOT PI 

6 Z-C 

10 LET E-INT ( RND* 120+200 ) 

15 LET Z-Z+l 

20 PRINT "ODLEGLOSC DO L. ":Z: 
;E 

23 LET C-C+l * 

25 IF E< 10 THEN GOTO 150 
30 FOR 1-1 TO E/10 
35 PRINT AT 12.1;"-" 

40 NEXT I 

45 PRINT AT 4 . O WYBIERAJ (1-20 
)?" 


55 IF S<1 OR S>20 THEN GOTO 50, 
60 CLS 

65 LET E-E~INT(RND*S*10+S) * 

'70 LET E-ABS E 
IF E>1 THEN GOTO 20 
80 PRINT "TRAFIŁEŚ DO' ";Z;" DZ 
IURKI" 

90 IF Z< 5 THEN GOTO LO 
95 CLS 

100 PRINT AT 10,0;" MASZ ";C;" U 
DERZEN PIŁECZKI" 

110 STOP 

150 PRINT AT 7. NOT PI; 

155 PRINT "Ł", 


ló!) PRiŁt 
165 GOTO 45 


O 

o 


N 

X 

ćo 


AT 14.E+T 
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• • 

Programy narzędziowe na CPC 6128 

(cz. II) 


Program DYSKMAPA sporządza mapę 
dyskietki. W wyniku uruchomienia programu 
dowiemy się, jakie ścieżki i jakie sektory zaj- 
mują programy (zbiory) zapisane na dyskiet- 
ce. Są to niezbędne informacje przy dokony- 
waniu jakichkolwiek zmian na poziomie poje- 
dynczego sektora. 

OPIS DZIAŁANIA PROGRAMU 

Po uruchomieniu programu komendą 
RUN następuje zaczytanie wszystkich ścieżek 
i sektorów z dyskietki. Następnie, wciskając 
klawisz ENTER, wyświetlimy na ekranie 
monitora nazwy wszystkich programów 
(zbiorów), znajdujących się na dyskietce wraz 
z opisem, który sektor, na której ścieżce zajmu- 
ją. Ścieżki opisują liczby od 0 do 39, a wiel- 
kości od Cl do C9 oznaczają sektory (gdyż na 
każdej ścieżce znajduje się 9 sektorów po 512 
bajtów każdy). 

Wyświetlanie mapy dyskietki możemy w 
każdej chwili przerwać przyciskając dowolny 
klawisz (wznowienie wyświetlania następuje 
także po wciśnięciu dowolnego klawisza). Po 
wyświetleniu nazw wszystkich programów 
(zbiorów) wraz z ich rozmieszczeniem na dy- 
skietce możemy wyświetlić mapę innej dy- 
skietki. 

Chcąc wydrukować mapę dyskietki na dru- 
karce należy wcisnąć klawisz P. 

10 POKE 6BDEE.6C?:KEY DEF £6,0,0,0,0:01! ERR0R 60T0 350 
20 IF HINEHOIFFF THEN OPENOUT-d*: MEMORY ŁFFF : CLOSEOUT i 
L0AD'progbin.bin‘, 61000 

30 H00E 2: INK 0,13iINK 1,0: B0RDER .13: Z0NE 21:PRINT*DYSK 
NAPA - (0 PR06RAN WYŚWIETLA NAPĘ DYSKIETKI a t WINDOW 1,8 
0,3,2SiWIDTH 253 

40 OIN t(39):xp*POSIIO):yp>VPOS<tO) 

50 L0CATE xp, yp:PRINT*WLOZ DYSKIETKĘ DO STACJI A: I NAC 
ISNIJ DOWOLNY KLAWISZ 1 1 WHILE INKEY$**’iH£ND 
60 CLS 

70 FOR x*0 TO 39: L0CATE xp,yp:PRINT*CZYTANIE DYSKIETKI 
- ŚCIEŻKA *x : CALL 11000, * 

80 tlxl«256:buff>6100D 

90 IF PEEKI6100CIO0 THEN tx>0:b>buff:60TD 130 
100 yPEEKIbufflilF y>tlx) THEN 130 
110 IF y<t(x) THEN t (x )-y:b*buł# 

120 buff*buff»I:60T0 100 
130 IF x*0 THEN spfbufł-b 
140 NEIT 

150 IF t(0)*6Cl THEN t*0:s a 6Cl 
160 IF t(l)»! THEN t«l:*»l 
170 IF t (21*141 THEN t*2:ł-641 
180 it‘tsii’s+4 

190 buf <>11100: FOR x=0 TO 3:CALL 11003, buf f , s+x , t : buf ł= 
buff+512iNEXT 

200 L0CATE xp,yp;PRINT'NCISNIJ ENTER DLA WYŚWIETLENIA 
NAPY DYSKIETKI, DOWOLNY KLAWISZ > PAUZA* 

210 il«**:RHILE il»* , :il a INKEYI:HEND:il>UPPER$li$):IF i 
$*CHRI(13) THEN pri«0:60TO 220 ELSE IF i»*’P* THEN pri« 
-I ELSE 210 

220 CLSiFOR x«6U01 TO 618FF STEP 32: IF PEEK(x-l)-6E5 T 
HEN 370 

230 FOR y»x TO x+7:PRINT CHRIllICHRUPEEKlyllj: IF pri 
THEN IF PEEK(y) >31 THEN PRINT«8,CHRt (PEEK(y) } ; ELSE PRI 
NT*8,'? , | 

240 NEIT:PRINT‘.*i:IF pri THEN PRINTI8, 

250 FOR y*x+8 TO x*10sq>PEEKIy):IF q>127 THEN q«q-128 
260 PRINT CHR4(l)CHRt(q);iIF pri THEN PRINT88, CHR« (q) ; : 
270 NEIT 

280 PRINT* SCIEZKA/SEKTOR *; :y*x+15:lc*0: IF pri THEN P 
RINTI8,' SCIEZKA/SEKTOR *| 

290 r*PEEK(y):IF r>0 THEN 350 

300 track«lNT(rl2/ept)isect«(rl2l-(track4spt)*t(track)i 

track>track+st 


310 60SUB 400 

320 sect*sect*l:IF sect>t(track)+spt-l THEN track*track 
♦l:sect't (tracki 
330 60SUB 400 

340 y*y*l:IF v<x*3l THEN 290 

350 IF INKEYłO** THEN NHILE INKEY*< >* *: WEND: WHILE INKĘ 
YI***iNEND 

360 PRINT:PRINT: IF pri THEN PRINTIB:PRINTI8 
370 NEIT: IF pri THEN PRINTtB, CHR« < 12) | 

380 PRINT*NAPA INNEJ DYSKIETKI ? (T/W) * : i »** *: WHILE il* 
"iit z INKEYt:M£ND:i$*UPPERt(it):IF il>*N* THEN CALL 0 
390 RUN » ' 

400 tl*STRł (tracki WMF track<10 THEN tl>* **tl 

410 PRINT t$|HEXS (ł«ct,2) ( : IF pri THEN PRINTI8,tl:HEXI( 

łtct,2); 

420 lc«lc*l:IF lc=8 THEN IF y<>x*30 THEN IF PEEK(y*l)<> 

0 THEN PRINT TAB(30) : ilc-0: IF pri THEN PRINTB3, TAB(30) ; 
430 RETURN 

Program SEKTORED pozwala na dokony- 
wanie wszelkich zmian na poziomie sektora 
(poprzez zmianę dowolnych bajtów danego 
sektora) wybranej ścieżki dyskietki. 

Chcąc poprawić program (zbiór) znajdujący 
się na dyskietce musimy wiedzieć, jakie ścieżki 

1 sektory zajmuje. Informacje te uzyskamy 
uruchamiając, prezentowany wcześniej pro- 
gram DYSKMAPA. 

OPIS DZIAŁANIA PROGRAMU 
Z chwilą uruchomienia programu SEK- 
TORED, u dołu ekranu zostanie wyświetlony 
opis używanych przy edycji klawiszy. Na- 
stępnie wybieramy interesujący nas numer 
ścieżki (od O do 39) i sektora (od Cl do C9). 
Na ekranie monitora, wybrany sektor wy- 
świetlany jest jednocześnie w kodzie hexade- 
cymalnym (lewa część ekranu) oraz w kodzie 
ASCII (prawa część ekranu). Każdy sektor 
zajmuje 512 bajtów. Na ekrariie monitora 
przedstawionych jest 256 bajtów wybranego 
sektora. Drugie 256 bajtów możemy wyświet- 
lić po wciśnięciu klawisza funkcyjnego F2. 

Mając programy DYSKMAPA i SEKTO- 
RED jesteśmy w stanie poprawić nasz język 
polski, obcojęzyczne opisy i komunikaty 
większości gier komputerowych. 

■V. 

1 ren mmmmmimitttmiiimmtmłitmtti 

2 REN I UNA6A ! I 

3 REN I N liniach 80, 100 w eiejsce znaku należy I 

4 REN 4 wpi sac znak, uciskając jednocześnie klawisz I 

5 REN I C0NTR0L oraz klawisz ze znakiei ł 

6 REN t a n eiejsce znaku ’t r należy wpisać znak, > 

7 REN t wciskając jednocześnie klawisz CONTROL oraz t 

8 REN t klawisz z litera ’R’. t 

9 fen tummmmmiMtimmittmimmitim 

10 POKE 6BDEE,6C9:KEY DEF 66,0,0,0,0:0N ERR0R 60T0 740 
20 IF HINEHOIrFFF THEN OPENOUT*d':HENORY BrFFFsCLOSEOUT 
:L0AD'progbin.bin*, 61000 

30 FOR x*l TO 3:KEY x,CHRI(x):NEXT 
40 N0DE 2: INK 0,13: INK l,0:B0RDER 13:I0NE 21:PRINT*SEK 
T0RED (Cl - PR06RAH UH0ZLINIA EDYCJE ZBIORU NA POZIOMI 
E SEKTORON NA DYSKIETCE* sNINDON 6,80, 3,20:NIND0NI1,6,8 
0,22,25 

50 PRINT*RL0Z DYSK DO STACJI A: i NACI£NIJ D0N0LNY KLA 
NISZ* 

60 NHILE INKFY$=* * : MEND 

70 CALL 61000,0: IF PEEK16100CIO 0 THEN PRINT CHR»(7!ł 
60T0 60 

80 INPUT;MKtora ścieżka (0-391 *,t:IF t<0 0R t>39 TH 
EN 80 

90 CALL 61000, t 

100 PRINT CHRI(13)MSciezka*t* *;: IF t<10 THEN PRINT 


110 PRINT-Sektory *j 

120 ei z 256:y x 6100D:yy s y 

130 p=PEEK (y I : IF p z ei THEN 160 

140 IF p<ii THEN ei=p:yy«y 

150 y z y+l:B0T0 130 

160 n=y-yy:IF n<8 0R n>9 THEN n=9 

170 FOR x z yy TO yy+n-l:P%NT HEX*(PEEK(xl,2ł* *;:NEXT: 

IF n=8 THEN PRINT* *j 

180 INPUT;* Który sektor *,sł:0N ERR0R BOTO 750 
190 s z VAL(*6*+sl) 

200 ON ERR0R BOTO 760 
210 page=l 

220 NIND0N SNAP 0,1:CLS:CALL 61003, 6M00, s, t: CLS: MIND0 
N SRAM,l:eenu z -l 

230 CLS:PRINT*Sciezka't* Sektor *UPPER$(s*l* Strona 
*page 

240 PRINT: start=61 100* (page-1 11256 
250 CALL 61300, start: IF eenu THEN B0SUB 630 
260 x B l:y z 3:buff=start 
270 L0CATE x,y 

280 i»«**:NHILE il z **:CALL 6B8BI:if z INKEYI:CALL 68884: 
REND: i z ASC ( i $ I : i $=UPPERI ( i 1 1 ■ 

290 IF i z 6E0 THEN 60SUB 700:60TO 280 

300 IF i >31 THEN 350 

310' IF i*l THEN 480 

320 IF i=0 THEN CALL 0 

330 IF i z 2 THEN page z 3-page:60T0 230 

340 IF i >3 THEN 100 

350 IF il<*0* 0R i*>*F* 0R (i$>*9* AND ił<*A*l THEN 42 
0 

360 PRINT ii; 

370 buf f "start +161 (y-3)+INT(x/3):pł z HEXI(PEEK(buff 1,2) 

380 p z 3t(x/3-INTtx/3)):HIDf (pt,p) z it 

390 pn=VAL ( *6*+p*l : POKE buff ,pn:L0CATE 52+INT(x/3),y 


400 IF pn<32 THEN pn z 46 

410 PRINT CHfta(pn) ; :x*x+l : x*x- (x/3*INT(x/3) ) : 60T0 430 

420 x*x+3l(i*6F2)-3l(i*6F3l:y*y-(i*6Fllł(i*6F0l:IF (x+ 

l)/3 z INT((x*l)/3) THEN x«x-l 

430 IF x<l THEN y z y-l:x z 46 

440 IF x >47 THEN x=l:y«y*l 

450 IF y<3 THEN y B 18 

460 IF y>18 THEN y=3 

470 60T0 270 

480 x=52łINT(x/3) 

490 L0CATE x,y 

500 il***:NHILE il«**:CALL 6BB81:il*INKEYI:CALL 6BB84: 
MEND: i»ASC<i$> 

510 IF i*6E0 THEN B0SUB 700:60TQ 500 
520 IF i >3 THEN 540 

530 IF i«l THEN x>U (x-52> «3: GOTO 270 ELSE 320 

540 IF i >6EF AND i<6F4 THEN 570 

550 PRINT i I; :buf f *start+16t (y-3) ♦x-32: POKE buff, i 

560 L0CATE l+(x-52l»3,y:PRINT HEX$(i,2lj:x z xłl 

570 x s x+ ( i>6F2l - ( Ż-ŁF3I : y*y- ( i =6F 1 1 ♦ ( i "6F0I 

580 IF x<52 THEN y*y-l:x=67 

590 IF x>67 THEN x>52:y>yłl 

600 IF y<3 THEN y«IB 

610 IF y>18 THEN y z 3 

620 60TO 490 

630 N INDOR SNAP 0,1 

640 PRINT CHRK240I* Przesuń do góry o bajt 

fl Zeiana kodu HEI na ASCII* 

650 PRINT CHRK241I* Przesuń w doi o bajt 

f2 Zeiana strony sektorów* 

660 PRINT CHRK242I* Przesuń w lewo o bajt 

f3 Zeiana sektora na ścieżce* 

670 PRINT CHRII243I* Przesuń w prawo o bajt 

COPY... Kopiuj sektor na dysk* 

680 eenu = 0 

690 RIND0N SRAP 0,1:RETURN 
700 RIND0R SRAP 0,1:CLS 

710 PRINT TAB(2I) ‘NAGRANIE ścieżki 'fsektora , HEXI(s,2 

720 PRINT TAB(28)*0K, (T/N) ? * j : q»** *: NHILE ql<>*T* A 
ND ql< >*N* : ql a I NKEYI : q l*UPPERI (ql):REND:PRlNT ql* *| 

730 IF ql=*Y* THEN CALL 61009, 61100, s,0,t 
740 CLS:60T0 640 
750 RESUME 80 
760 RUN 
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INFORMATYCZNY SŁOWNIK 
ANGIELSKO-POLSKI 

HOME TERMINAL - terminal domowy, 

HOMOGENEOUS - jednorodny, 

HOMOGENEOUS COMPUTER NETWORK - jednorodna (homogeni- 
czna) sieć komputerowa, 

HOPPER - zbiornik, 

HOR1ZONTAL DR1 VI NG - synchronizacja pozioma, 
HOR1ZONTAL KI CROCODI NG — mi krokodowanie poziome, 
HORIZONTAL MI CkOPROGRAMMI NG - mi kroprogramowanie po- 
ziome, 

HORIZONTAL PARITY - patrz. HORIZONTAL PARITY CHECK, 
HORIZONTAL PARITY CHECK - poprzeczna kontrola parzy- 
stości , 

HORIZONTAL REDUNDANCY CHECK - kontrola poprzeczna, 
HORIZONTAL TAB - znak tabulacji poziomej, 

HOST - główny, macierzysty, także. gospodarz, 

HOST COMPUTER - komputer główny, komputer gościnny, 
komputer macierzysty, komputer obliczeniowy, 

HOST INTERFACE - interfejs komputera obliczeniowego, 
HOST LANGUAGE - język uzupełnieniowy, 

HOST SYSTEM - 1. system główny, 2. komputer główny, 
HOT BACKUP - “gorące" składowanie (tworzenie kopii), 
HOT POTATO ROUTING - metoda najszybszej transmisji 
(kolejne węzły sieci starają mig przekazać paczkę 
danych Jak najszybciej dalej), 

HOT SPARE - patrz. HOT BACKUP, 

HOT STANDBY - patrz. HOT BACKUP, 

HOUSE - mieścić (w sobie), chować, przechowywać, 
HOUSEKEEPING - operacje porządkowe, 

HOUSEKEEPING INFORMATION - informacja organizacyjna. 
Informacja porządkowa, 

HOUSEKEEPING INSTRUCTION - rozkaz organizacyjny, 
rozkaz porządkowy, 

HOUSEKEEPING OPERATION - operacja porządkowa, opera- 
cja organizacyjna, 

HOUSEKEEPING OYERHEAD - systemowe koszty, systemowe 
nakłady, 

HOUSEKEEPING ROUTINE - program organizacyjny, 

HOUSTON AUTOMATIC SPOOLING PROGRAM - system HASP do 
sterowania zdalnym przetwarzaniem (pakietowy system 
operacyjny dla komputerów serii IBM/360) , 

HOWEYER - natomiast, • 

HRDWARE LOCKOUT - konstrukcyjne zabezpieczenie, 

HSAM - patrz. HI ERARCHI CAL SEOUENTIAL ACCESS METHOD, 
HSV MODEL - model “barwa-nasycenie-wielkość" <w gra- 
fice komputerowej charakterystyka koloru za pomocą 
trzech parametrów, barwy, nasycenia i wartości Jas- 
krawości), 

HT - patrz. HORIZONTAL TAB, 0 

HUB - gniazdo (krosownicy) , 

HUB RING - pierścień wzmacniający krawędź osiowego 
otworu (np. w dyskietce), 

HUE - 1. odcień barwy, ton barwy, 2. barwa, 

HUFFMAN CODĘ - kod Huffmana, 

HUMAŃ ENGINEERING - ergonomia, 

HUMIDITY - wilgotność (powietrza), wilgoć, 

HUMIDITY CONTROL EQUI PMENT - urządzenie do regulowa- 
nia wilgotności, 

HUNTING - szukanie błędu, 

HYBRID COMPUT ATI ON - obliczenia hybrydowe, 

HYBRID COMPUTER - komputer hybrydowy, maszyna hybry- 
dowa, 

HYBRID INTEGRATED CIRCUIT - hybrydowy układ scalony, 
HYPERBOLIC EQUATION - równanie hiperbol iczne, 
HYPERBOLIC LOGARITHM - logarytm naturalny, 

HYPHEN - łącznik (kreska), znak myślnika, znak 
HYPHENATI ON - przeniesienie, rozdzielenie słów w ce- 
lu przeniesienia. 


IA - patrz. INSTRUCTION ADDRESS, 

IAD - patrz. IMAGE ACOUISITION AND DISPLAY, 

I AS - patrz. IMMEDIATE ACCESS STORAGE, 

IBM - patrz. INTERNATIONAL BUSINESS MACHINES CORPO- 
RATION, 

IBM COMPATIBLE - kompatybilny (wymienny) z kompute- 
rami firmy IBM, 

IBM PC - komputer osobisty firmy IBM, oparty na 16- 
to bitowym mi kroprocesorze Intel 8088 lub jego mody- 
fikacjach (IBM PC XT z dyskiem stałym, IBM PC AT na 
bazie mi kroprocesora Intel 80286), 

IBM PC RT - 32-bitowy komputer osobisty firmy IBM, 
z mikroprocesorem zbudowanym w oparciu o architektu- 
rę RISC, 


IBM PS - częściowo zgodna z IBM PC seria mi krokomfjLS| 
terów charakteryzu jąca się podwyższonym stopniem in- 
tegracji oraz grafiką o wysokiej rozdzielczości (wy- 
korzystuje mi kroprocesory 8086, 80286 i 80386), 

IC - patrz. 1. INSTRUCTION COUNTER. 2. INTEGRATED 
CIRCUIT, 3. INFORMATION CONTENT, 

ICA - patrz: INTRA-APPLICATION COMMUNICATIONS AREA, 
ICAI - patrz. INTELLIGENT ęOMPUTER-ASSI STED INSTRU- 
CTION, 

ICAND - mnożna, 

IC FAMILY - rodzina układów scalonych, 

ICL - patrz. INTERNATIONAL COMPUTERS LTD. , 

IC LAYOUT - topologia układów scalonych,* 

ICON - piktogram (służy do wybierania rodzaju opera- 
cji lub jej argumentu) , 

IC SOCKET - gniazdko układu scalonego, podstawka 
układu scalonego, 

ID - patrz; 1. ItDENTIFICATION, 2. IDENTIFIER, 

3. IDENTIFY MARKER, 

IDAS - patrz. INDUSTRIAL DATA ACQUISJTION SYSTEM, 
IDEAŁ - 1. idealny, doskonały, 2. ideał, 

IDENTICAL — identyczny, 

IDENTIFICATION - identyfikacja, 

I DENTI FI CATI ONS BURST - ciąg identyfikacji systemu, 
IDENTIFICATION' DIVISION - część identyfikująca, 
IDENTIFICATION MARK - znak tożsamości, znak rozpoz- 
nawczy, 

IDENTIFIER - symbol identyfikujący, 1 dentyf i kator , 
oznaczni k, 

IDENTIFY - identyfikować, oznaczać, oznakować, roz- 
poznawać, 

IDENTIFY MARKER - znacznik identyfikacyjny, 

IDENTITY - tożsamość, równanie tożsamościowe, także, 
nazwa (umieszczana na etykiecie dla Określenia zawa- 
rtości ) , 

IDENTITY CHECK - kontrola zgodności, kontrola iden- 
tyczności , 

IDENTITY MATRIX - macierz jednostkowa, 

IDENTYFYING MARKER - znacznik identyfikacyjny, 

IDLE - jałowy, ni eobciążony, nieczynny. 

IDLE CAPACITY - ni ewykor z ystana wydajność urządzenia 
IDLE CHARACTER - ślepy symbol, symbol przesyłany po- 
przez łącze w przypadku . braku informacji, 

IDLE LIGHT - wskaźnik postoju urządzenia, 

IDLING CYCLE - pusty cykl maszyny, 

IDP — patrz. INTEGRATED DATA PROCESSING. 

IDS - patrz. INTEGRATED DATA STORĘ, 

IEEE - patrz. INSTITUTE OF ELECTRICĄL AND ELECTRONI - 
CAL ENGINEERS, 

IER - mnożnik, 

IF AND ONLY IF — 1. wtedy i tylko wtedy, 2. równo- 
IFF - patrz. IF AND ONLY IF, 

IFIP - patrz. INTERNATIONAL FEDERATION FOR INFORMA- 
TION PROCESSING, 

IF-STATEMENT - instrukcja (dyrektywa) warunkowa, 
operator warunkowy, 

IF-THEN-ELSE - patrz. IF-STATEMENT, 

IGNORE - nie brać pod uwagę, ignorować, 

ILL-ADAPTED - nieprzystosowany, 

ILLEGAL - nielegalny, niedopuszczalny, niedozwolony, 
nieprzepisowy, bezprawny, 

ILLEGAL CHARACTER - znak nieprzepisowy, znak niedoz-r 
wolony, 

ILLEGAL INSTRUCTION — rozkaz nieprzepisowy, rozkaz 
nie dający się wykonać, 

ILLEGAL OPERATION - operacja nielegalna, operacja 
ni edozwol ona, 

ILLEGAL SYMBOL - symbol niedopuszczalny, symbol nie- 
dozwol ony, 

ILLEGIBLE - nieczytelny, 

ILLOGICAL — nielogiczny, 

ILLUMINATE — oświetlać. Iluminować, także, podświet- 
lać, 

ILLUSTRATE - ilustrować, 

I I.LUSTR ATI ON - Ilustracja. 

IMAGE -1., informacja wizyjna, 2. obraz eksponowany, 
3. odtwarzać, odrysować (np. na ekranie monitora), 
IMAGE ACOUISITION AND DISPLAY - gromadzenie i wyś- 
wietlanie informacji wizyjnej, 

IMAGE FILE - 1. moduł sterujący, 2. zbiór obrazu za- 
dani a, 

IMAGE GENERATION - zestawianie obrazu, formowan-ie 
obrazu, 

IMAGE GRAPHIC - graf i ka rastrowa (obrazowa), 

IMAGE MEMORY - pamięć obrazu (pamięć, w której za- 
chowany jest obraz z ekranu monitora), 

IMAGE POSI TI ONI NG - ustawianie połażenia obrazu, 1 
IMAGE PROCESSING - przetwarzani e obrazów, 

IMAGE REGENERATION - regeneracja obrazu, odtwarzanie 
Obrazu (odtwarzanie zachowanego w pamięći obrazu ek- 
ranu monitora), 

IMAGE SET - zbiór obrazów, 

IMAGE SPACE - przestrzeń obrazowania, 

IMAGE UNDERSTANDING - rozpoznawanie obrazów. 
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* 

ŁMAiil NARY - rzekomy, pozorny, urojony, 

IMIS patrz: INTEGRATED MANAGEMENT INFORMATION SYS- 
TEM, 

I MMATKRI AL WARE - oprogramowanie, software, 

IMMEDIATE, - bezpośredni, natychmiastowy, 

IMMEDIATE ACCESS MEMORY - szybkodz i al a jące urządze- 
nie pamięciowe (urządzenie, w którym czas dostępu 
do komórki pamięci nie zależy od adresu, a cykl pra- 
cy. jest równy cyklowi pracy procesora), 

I MMEDI ATE-ACCESS STORAGE - pamięć szybka, pamięć 
operacyjna, 

IMMEDIATE ACTION - działanie bezpośrednie, działanie 
natychmi astc^ie, 

IMMEDIATE ADDRESS - adres bezpośredni, 

IMMEDIATE ADDRESSING - adresowanie bezpośrednie, 
adresowanie proste, adresowanie natychmiastowe 
(z argumentem bezpośrednim), 

IMMEDIATE DATA - 1. dana bezpośredni a. 2. oper and 

bezpośredni, 

IMMEDIATE MODĘ - tryb bezpośredni (używany do wpro- 
wadzania i, wykonywani a kolejnych poleceń z monito- 
ra), 

IMMEDIATE OPERAND — oper and bezpośredni, 

IMMOBI LIZĘ - unieruchomić, 

IMMOVABLE ~ nieruchomy, stały, 

IMMUNITY - odporność, ni ewr aż 1 i wość , 

IMF - patrz: INTERFACE MESSAGE PROCESSOR, 

IMPaCT - i. uderzenie, zderzenie, udar, 2. wpływ, 
patrz: I MPLEMENT AT I ON PLANNING AND CONTROL TECH- 
NIQUE, 

IMPACT PRINTER - drukarka uderzeniowa. 

IMPERATI VE - imperatyw, 

IMPERATIYE LANGUAGE — język Rozkazujący, 

IMPERATIVE STATEMENT - instrukcja rozkazująca, 
TMPERFECT - niedoskonały, ■ niezupełny, 

IMPERFECTION - niedoskonałość, 

1MPLEMENT - wprowadzić (w życie), wdrażać, 
IMPL.EMENTATION - 1. wdrażanie, wprowadzanie, wprowa- 
ćzsnie w życie, 2. realizacja. 

I MPLEMENT ATI ON MODULE - moduł realizacji. 

I MPLEMENT ATI ON PLANNING AND CONTROL TECHNIOUE - zas- 
'."sowanze metody planowania i sterowania, 

I MPLEMENT ATI ON SPECI FICATI ON - opis realizacji. 
IMPLEMENTS - narzędzia. 

IMPLTCATION - implikacja, wyniki, 

IMPLICIT — niejawny, domniemany, ukryty, dający się 
IMPLIED ADDRESS - adres niejawny, 

1MPLIED ADDRESSING - adresowanie niejawne, adresowa- 

1MPI Y ’ dawać do zrozumienia, implikować, wysuwać 

wriofei . wynikać, 

IMPORTED'- importowany, 

IMPORT LIST - lista importu, spis importu (w opisie 
modułu lista zacieki arowanych w innych modułach nazw 
w\^i or: /st‘ v wanych w danym module'. 

IMPRESSION ROLLER - >«iałek dociskowy, wałek drukujący, 
1 MPROPER - niewłaściwy (np. znak), 

IMPROVE - ulepszać, udoskonalać, 

IMPKOYEMENT - ulepszenie, udoskonalenie. 

IMPURL DATA - dane zmieniane, dane wymienne, 

IMPURE FUNCTfON/- -funkcja z ubocznym efektem, 

IMk patrz: 1 NTERRUPT-MASK REGISTER, 

IM' "i":: INFORMATION MANAGEMENT SYSTEM, 

INACCESSIBLE niedostępny, 

IN ACCORDANCE WI TH ....-zgodnie z ..., 

INacCURaCY niedokładność, 

I Na< < URaTE — rti ędol ł adny. nieścisły, 

INADLUUAfE niedostateczny, ni ewyst arcz a jący , 
j NAPMISSI Bl.E •— niedopuszczalny, 

IN BAD REF - Al R - w złym stanie.. 

IN BROAD TERMS - w szerokim ujęciu, 

1NBU1LI - wbudowany. 

IN i .)IP()NOL(XtICAL ORDER - w porządku chronologicznym, 
INCIDENT - or.- -.legły, incydentny (o wierzchołkach 

JNCIDENTAL. ERROR — błąd przypadkowy , 

1NC1F>ENTAL 1 NPUT - wejście przypadkowe. 

IN-CIRCUIT EMULATOR - wewnątrzobwodowy emulator, 

1 N( LUDĘ włączać, zawierać. 

1 N( LUD! NG włącznie. 

INci.tJsloN zawarcie, uwzglęBniem e. dołączenie. 

I NCLUSI VE OR OPERATTON -.urna logiczna.'' alternatywa, 

I NCLUSI VF PRoF'ERl Y < <\* doousz • ; a ląca , 

INCOMING DATA - dane wejściowe., 

IN COMMISSION - w eksploatacji, 

IN COMMOM USE - powszechnie używany, powszechnie 

stosowany, 

INCOMPARABLE - nieporównywalny, 

I NCOMPATI BI LI TY - niezgodność, niezdolność dopasowa- 
nia się, niekompatybi lność, 

I NCOMPATI BLE - niezgodny, medający się pogodzić, 
także: ni emi eszal ny . nie mieszający się, 

I NCONCLUSI VE RESULTS - wyniki ni eprzekonu jące, 
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INCONNECTOR - łącznik, wskazujący (na schemacie blo- 
kowym) dalszy ciąg przerwanej linii, 

IN CONSEOUENCE - w wyniku, 

INCONSISTENCY - sprzeczność, niekonsekwencja, nielo- 
giczność, 

INCONSISTENT - sprzeczny, także: nielogiczny, 
INCONSISTENT COMPILATION - kompilacja nieskoordyno- 
wana, kompilacja sprzeczna, 

INCORPORATE - włączyć, wprowadzić, wbudować, także: 
zawierać (w sobie) , -obejmować, 

INCORRECT — niepoprawny, błędny, 

INCREASING SEOUENCE - ciąg rosnący, 

INCREMENT - przyrost, powiększenie, inkrement, tak- 
że: powiększać, zwięksżać, 

INCREMENT AL COMPILER - kompilacja przyrostowa, 
INCREMENTAL COMPUTER - komputer przyrostowy, 
INCREMENT AL DISPLAY - zobrazowanie przyrostowe, 
INCREMENTAL REFINEMENT - oczyszczanie przyrostów, 
INCREMENTAL TAPE STORAGE - pamięć taśmowa krokowa, 
INCREMENTAL VECTOR - wektor względny, wektor przyro- 
stowy, 

INCREMENTER - rejestr następnikowy, 

INCREMENT OPERATION - operacja przyrostu, 

INCREMENT SIZE - 1. rozmiar przyrostu, 2. w grafice 
komputerowej odstęp pomiędzy sąsiednimi adresowanymi 
punktami powierzchni zobrazowani a) , 

IN CYCLES - cyklicznie. 

INDELIBLE — nieścieralny, niezmywalny, nieusuwalny, 
INDENT - patrz: I NDENT ATI ON , 

INDENTATION — 1. wcięcie (tekstu), przesunięcie 
(przemieszczenie) w prawo, 2. wcinać, przesuwać, 
przemieszczać, 

INDEPENDENCE - niezależność, 

INDEPENDENT - niezależny, 

I NDEPENDENTLY - niezależnie, 

INDEPENDENT TASKS - zadania niezależne, 

IN DETAIL - szczegółowo. 

I NDETERMI NAlE ERROR - błąd nieoznaczony, 

INDEX - wskaźnik, indeks, wykładnik (potęgi), także: 
skorowidz, sporządzać wykaz, 

I NDEX ABLF INSTRUCTION - rozkaz i ndeksowal ny . 

INDEX BUCKET - porcja (blok) z tablicą indeksów, 
porcja indeksowa, 

INDEX BUCKET INDICATOR - wskaźnik Dorcji indeksowej, 
INDEX BUFFER - bufor indeksowy, bufor na tablice in- 
deksowe, 

INDEX CARD - karta kartotekowa, 

I NDLXED ACCESS METHOD - metoda dostępu indeksowego, 
INDEXED ADDRESSING - adresacja indeksowa. 

INDEXED FILE - plik (zbiór) indeksowany, 

INDEXED SEOUENTIAL ACCESS METHOD - metoda dostępu 
i ndeksowo-sekwencyjna, 

I NDEXED-SEQUENTI AL DATA SET - zbiór danych mdekso- 
wo-sekwencyjnych , 

INDEX ENTRY - pozyWja w skorowidzu, 

INDEX FIELD - pole indśksowe, 

INDEX FILE - plik (zbiór) indeksowy, 

I NDEXI NG - indeksowanie, 

INDEXING LANGUAGE — Język indeksowania, język infor- 
macyjno— wyszukiwawczy, / 

INDEXING PROCEDURĘ - procedura indeksowania, 

INDEXING REGISTER - rejestr indeksowy, 

I NDEXI NG UNIT - blok modyfikacji, 

INDEX MODĘ - tryb indeksacji (warunki indeksacji), 
INDEX NUMBER - wskaźnik, 

INDEX OF A RADICAL - stopień pierwiastka, 

INDEX PART - część indeksowa, 

INDEX REGISTER — rejestr modyfikacji, rejestr B. 
INDEX -SEOUENTIAL ACCESS - dostęp i ndeksowo-sekwen- 

IND£X TABLE - tablica indeksowa, tablica danych uło- 
żona w określonym porządku, 

INDEX WORD - słowo indeksowe, modyfikator, 

INDICATE - wskazywać, zaznaczać, oznaczać, pokazywać 
(na rysunku) , 

INDICATION DEVICE — urządzenie wskazujące, 

INDICATION ERROR - błąd wskazania, 

INDlCATIVE DATA - dane charakterystyczne (dane iden- 
tyfikujące lub opisujące obiekt), 

INDICATOR - wskazówka (przyrządu), wskaźnik, indyka- 
tor, 

INDICATOR LIGHT - światło sygnalizacyjne, 

INDICATOR ROUTING - wskaźnik wyboru trasy, 

INDIRECT ADDRESS — adres pośredni , 

INDIRECT ADDRESSING — adresowanie pośrednie, 

INDIRECT FILE - 1. plik (zbiór) pośredni, 2. plik 
(zbiór) zależny, 

INDIRECTION - 1. pośredniośó, 2. wykorzystanie adre- 
sacji pośredniej, 

INDIRECTION LABEL - poziom pośredni ości , 

INDIRECTION OPERATOR - operacja zależności, operacja 
pośredniości , 

INDIRECT J UMP - 1. skok pośredni, 2. rozkaz skoku 
pośredniego, 

I NDI SCRI MI NATE - bezwładny, bez wyboru, przypadkowy, 


LIGA MYŚLĄCYCH 


v ZADANIE 1 

Liczba L jest czterocyfrowa i jest kwadratem innej 
liczby całkowitej 1. Dwie pierwsze cyfry' liczby L są 
jednakowe i dwie ostatnie cyfry są również jednakowe. 
Znaleźć liczby Lii. 


ZADANIE 2 

Miniaturowa wskazówka zegara elektrycznego" poru- 
sza się skokami w końcu każdej minuty. Jakie jest 
prawdopodobieństwo, że w losowo wybranej chwili ze- 
gar wskazuje godzinę różniącą się od rzeczywistej nie 
więcej niż o 20 sekund? 

ZADANIE 3 

Duże meteoryty upadają na Ziemię przeciętnie raz na 
miesiąc, przy czym prawdopodobieństwo, że meteoryt 


upadnie na dowolny obszar, jest proporcjonalne do po- 
la tego obszaru. Obliczyć prawdopodobieństwo zdarzenia, 
że w ciągu 1 0 lat spadną na terytorium Polski co naj- 
mniej dwa duże meteoryty. 


ZADANIE 4 

Jacek i Tomek grają w szachy tak długo, aż jeden z 
nich wygra dwie kolejne partie. Prawdopodobieństwo, 
że w pojedynczej partii wygra Jacek fest równe p, a od- 
powiednie prawdopodobieństwo, że wygra Tomek? 


ZADANIE 5 

Ani nigdy nie wykipiało gotujące się mleko, gdyż 
przegotowuje je w specjalnym garnku. Na czym polega 
szczególna właścjwość specjalnego garnka, z którego 
mleko nie kipi, mimo że temperatura mleka jest dokład- 
nie równa temperaturze wrzenia wody? 


/ 

Rozwiązania zadań prosimy przesyłać do redakc|l do końca lutego 1989 r. z dopiskiem „Liga Myślących”. Punktacja zależy od liczby prawid- 
łowych rozwiązań. Wśród czytelników rozlosujemy książki, a na zwycięzców „Ligi" czekają dodatkowe nagrody. 
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wiem założeniem jest, iż wszystkie „wa- 
żniejsze komputery” są podłączone do 
sieci telefonicznej) i można rozpocząć 
odgadywanie hasła. Oczywiście musimy 
dysponować komputerem I telefonem. 
Przy odrobinie szczęścia i pomysłowości 
podobno musi się udać. 

Jaka jest zatem na to rada? W zasadzie 
najpewniej Jest podłączać komputer do 
sieci telefonicznej, tylko wtedy, gdy za- 
mierzamy pracować w domu via telefon z 
firmą. Ewentualni „włamywacze", z an- 
gielskiego „hakerzy”, słyszą wówczas 
sygnał zajętości. W praktyce kompute- 
rowej, metoda ta jest do przyjęcia tylko w 
sporadycznych wypadkach, i propozycję 
tę należy traktować jako tudany żart. 

Wiele dziwacznych błędów popełniono 
w starszych systemach na przykład: has- 
ła były „instalowane” w nich na stałe. 
Można je- było oczywiście zmienić, ale 
użytkownikom po prostu się nie chciało. 
Nie przestrzegali podstawowej zasady: 
wszystkie sposoby zwiększania bezpie- 
czeństwa baz danych są dobre. Na przy- 
kład IBM dysponuje siecią NOSS z 
190 000 użytkowników. System nadzoru- 
jący tę sieć automatycznie wymusza co 
dwa tygodnie zmianę haąła (bezwarun- 


kowo). Nowe hasło nie mogło być użyte 
w ostatnich 6 miesiącach. Odrzucane 
jest także hasło zbyt banalne, jak np.: sy- 
stem, guest (gość), secret, help (pomoc), 
demo, manager, test, password (hasło) i 
inne. Tworzone są odpowiednie listy 
złych haseł, łącznie z tworzeniem „top 
ten". 


Komputerowi 

włamywacze 


W walce przeciw hakerom nie można 
polegać ani na organach ścigania, ani na 
prawie. Po pierwsze dlatego, iż gdy po- 
wiadomimy policję o „włamaniu do kompu- 
tera” dowiadują się o tym nasi klienci, a 
to jest bardziej kosztowne od strat wyni- 
kłych w efekcie włamania. W Wielkiej 
Brytanii straty te szacuje się na miliony 
funtów rocznie. Należy także pamiętać, 
że policja ma bardzo małe doświadcze- 
nie w tej problematyce. Na przykład 
„komputerowa komórka” londyńskiej Me- 
tropolitan Police, liczy zaledwie 5 osób. 
Zresztą w państwie tynrhakerstwo nie 
jest traktowane jako postępowanie 
sprzeczne z prawem. >łatomiast w Te- 


ksasie (tam zawsze coś muszą wymyś- 
leń) uznano takie działania jako prze- 
stępstwo. Od 1985 roku przyjęto, Iż 
czynności polegające na „szkodliwym 
korzystaniu z komputera” lub „działaniu 
mającym na celu wpłynięcie na normalne 
użytkowanie komputera” — kwalifiko- 
wane są jako przestępstwa. Aktualnie, 
toczy się sprawa przeciw hakerowi (w 
Ameryce), który wymazał w jednej z firm 
168 000 rekordów związanych z płacami. 
Grozi mu za to 10 lat więzienia! Ale gdy 
piszący te słowa telefonicznie z Warsza- 
wy spowoduje podobne szkody w... Te- 
ksasie, jakie prawo mnie dotyczy? 

Pora na wnioski. Po pierwsze: pilno- 
wać haseł, nie notować ich (ponoć mag- 
nez poprawia pamięć), nie mówić kole- 
gom I żonom (bez względu na to, czy 
własnym, czy cudzym). Po drugie, cl któ- 
rych zawodem jest dbanie o bezpieczeń- 
stwo danych zgromadzonych w pamię- 
ciach komputerów powinni mieć odpo- 
wiednie przygotowanie. Należy bowiem 
pamiętać, że „legitymowanie” użytkow- 
nika nie może pozostać jedynym zabez- 
pieczeniem przed hakerami. 


Więcej szczegółów w: How secure is 
your Computer? Global Business, Au- 
tumm 1988. 

W. G. 
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Litery z krateK ponumerowanych od 
1 do 19 dadzą hasło, które wystarczy 
nadesłać jako rozwiązanie zadania pod 
adresem redakcji, na kartach poczto- 
wych, w terminie do końca stycznia, 
naklejając kupon „IKS-a”. Wśród auto- 
rów prawidłowych odpowiedzi rozlosu- 
jemy bony pieniężne i nagrody książ- 
kowe. 
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Komputerowi 

włamywacze 


Jeszcze niedawno omawiając prze- 
stępstwa komputerowe mieliśmy te, któ- 
re odbywały się „tradycyjnymi” sposo- 
bami. Na przykład pewien zdolny (bar- 
dzo zdolny) programista, wykonując 
oprogramowanie finansowe dla dużej fir- 
my, był to zapewne bank, dołączył do tego 
program własny, prywatny fragmencik. 
Dzięki temu zabiegowi, „resztówki” ope- 
racji przeliczeniowych, np.: 1/3 centa, 
także 1/20 centa, których nikt nigdzie nie 
zauważał, przesyłane byty „całkiem spo- 
kojnie” na prywatne konto autora tego 
ciekawego pomysłu. Owo konto rosło 
niespodziewanie szybko aż do... 

Ale czasy się zmieniły, a z nimi rodzaje 
przestępstw. Dowiedli tego dwaj an- 
gielscy dziennikarze: Robert Schifreen i 
Steve Gold. Pokazali oni, jak niepewne są 
zabezpieczenia komputerów „włamując 
się” do jednej z najbardziej zabezpieczo- 
nych elektronicznych poczt Wielkiej Bry- 
tanii. Oczywiście „wytrychem" był kom- 
puter, a dokładniej hasło otwierające 
drogę, via telefon do sekretnych zbiorów 
owej poczty. Izba Lordów uniewinniła 
„włamywaczy”. 

Już ponad 20 lat temu dostrzeżono 
ogromne korzyści płynące z przecho- 
wywania danych, zamiast na papierze, w 
komputerowych pamięciach. Niestety po 
10 latach, a może nawet szybciej, pojawi- 
ły się szalone telefony do zastrzeżonych 
baz danych. Dzwoniący usiłowali je od- 
czytać lub co gorsze zmienić ich treść. 
Pouczający jest w tym względzie film 
sprzed paru lat pt.: „Gry wojenne”. Boha- 
ter owego filmu nie tylko odczytał tajną 
bazę danych ocen w szkole, ale przez te- 
lefon zmienił zawartość komputerowego 
dziennika! W 1985 roku nasi dziennika- 
rze, jako pierwsi w Wielkie] Brytanii zos- 
tali aresztowani pod zarzutem „włamania 
się” do komputerowego systemu PRE- 
STEL. Faktycznie uczynili to, by dowieść, 
jak mało bezpieczne są zgromadzone 
tam dane — nawet te najbardziej tajne. 
Nasi bohaterowie od połowy 1984 roku 
do wiosny 1985, starali się oszukać sy- 
stem, tak by móc dotrzeć do wszystkich 
zgromadzonych tam informacji. O finale 
sprawy już pisałem — uniewinnienie, 
„póki co”! 

W zasadzie nielegalne korzystanie z 
komputerów (także ze zgromadzonych w 
ich pamięciach informacji) nie wymaga 
wielkich nakładów, trochę gotówki na 
połączenia telefoniczne (milczącym bo- 
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Z ostatniej chwili 
— KOMPUTER ’89 


NFORMATYK 


OMPUTERY 


Wszystko gra 
SAMOTNIK, 
czyli komputerowa 
gra dla jednej osoby 
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Oby nam się... 
czyli zróbmy wreszcie coś 


Zaczynamy swobodny lot w stronę nowej gos- 
podarki, miejmy zatem nadzieję, że rządzącej się 
racjonalnymi prawami, surowymi dla wszelkiego 
pustosłowia i jednocześnie popierającymi eko- 
nomiczne efekty działania. 

Gospodarka bez gorsetu w nowym, szytym na 
miarę ambicji i wyobraźni fraku ustawy o działal- 
ności gospodarczej powinna być po prostu lep- 
sza. Łatwiej będzie też nam, informatykom, któ- 
rzy przywykli realizować funkcję celu w suro- 
wych kryteriach. Teraz tych ostatnich jakby 
mniej, a i cel nieco jaśniejszy. 

Mamy okazję, której stracić nie można, aby 
udowodnić, że informatyka jest koniecznością i 
to nie koniecznością propagandową. Tak się bo- 
wiem złożyło, że jeśli ktoś chce powiedzieć coś 
naprawdę dobrego natychmiast dopowiada, że 
„komputery, to owszem nasza rzeczywistość...” 
itd. Tymczasem sam ledwo odróżnia telewizor.od 
monitora, a przecież dostrzeganie odmienności 
fortepianu i komputerowej klawiatury nie daje 
jeszcze talentu mistrza Pendereckiego, czy 
choćby fizycznego daru słuchu. 

Tak i z wiedzą bywa. Bo teraz nastał czas nie 
tylko dobrych pomysłów, ale ich realizacji, a nic 
jak działanie nie weryfikuje możliwości. 


SPIS TREŚCI 


Małe jest piękne — 3 

Indyjska Krzemowa Dolina — 4 

Samotnik — gra — 5 

Tajemniczy rozkaz INPUT — 6 

Gra w kości (ZX-81) — 6 

Atarl I drukarki (II) — 7 

Rozlewanie wina — 9 

Trzy wymiary — 11 

Procedura Gauss — 12 

Informatyka w szkole —14 

Moc w obwodach prądu 

sinusoidalnego — 18 

Obcy (ZX-81) - 19 

Zmiany zawartości ekranu — 20 

Streamery — notowania giełdowe — 21 

Tendencje rozwojowe (Atarl) — 22 

Komputer '89 — 23 

CPC 6128 — programy narzędziowe — 24 

SF - 26 

Kasetowy system operacyjny — 
schemat interfejsu — 28 

Słownik — 29 


Pokonywać zatem trzeba kolejne bariery: jedną 
z nich są stale rosnące ceny sprzętu, które dyktu- 
je kurs zielonej waluty. Na komputery pieniądze 
się ma lub nie. Tu nie ma żadnego wyboru — ZX 
nie zastąpi PC, zatem albo go się kupi, albo nie. 

Nieco lepiej jest z oprogramowaniem. Progra- 
my standardowe bezczelnie kopiowane bez ja- 
kiejkolwiek licencji i ochrony praw autorskich 
krążą w spolszczonych wersjach i różnorakich 
cenach. Trzeba przyznać, że nie są to ceny wersji 
oryginalnych i to co „tam” kosztuje np. 1500$, u 
nas można „nabyć” za 200 tysięcy. Tak, tak, 
dwieście tysięcy i choć byłby to najkorzystniejszy 
przelicznik, o jakim nawet minister finansów nie 
śni, nie myśli się o eksporcie tej „oryginalnej” 
twórczości, bo szacunek do praw autorskich 
„tam” jakby większy, a i obawa przed byle czym 
niemała. 

Mamy też własne, naprawdę własne i oryginał-, 
ne oprogramowanie. Tu jednak też możemy za- 
dziwić świat. Na ogół myśl ludzka kosztuje więcej 
niż „żelastwo”. U nas natomiast informatyczną 
twórczość można kupić za ułamek ceny kompu- 
tera i część ta jest niemal z dnia na dzień mniej- 
sza. 

To tylko niektóre ekonomiczne szczegóły 
wstępu do informatyzacji. Dalej droga wcale nie 
usłana różami, bo jakiż rachunek zastosowań? 
Jeden komputer IBM PC, który w większości na- 
szych firm jest ostoją informatyki, kosztuje w 
USA czy w RFN mniej więcej tyle ile wynosi mie- 
sięczna gaża jego operatora — u nas (uwzględ- 
niając niekorzystny przelicznik przy zakupie 
sprzętu za złotówki) tyle ile... roczne zarobki 
trzech informatyków. Nieźle zatem trzeba się na- 
gimnastykować, aby te elektroniczne cacka za- 
częły na siebie zarabiać — czego wszystkim i so- 
bie życzę. 


WIESŁAW CETERA 
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małe 

JEST PIĘKNE 

Pierwszy przenośny komputer powstał w 1978 roku, 
był to OSBORNE 1. Początkowo wątpiono w jego przy- 
datność, tym bardziej że komputery tego typu wymaga- 
ły zasilania z sieci. TANDY 100 (wielkości A4) był już na 
baterie. Maszynę tę „wyposażono" w programy do 
przetwarzania tekstów, „notatnik elektroniczny" oraz 
programy komunikacyjne. Dzięki temu komputer ten 
można było podłączyć do sieci telefonicznej i bez 
względu na odległość przesyłać teksty lub inne zbiory 
danych z naszej przenośnej maszynki np. do komputera 
w macierzystej firmie. Zresztą jako pierwsi dziennikarze 
zaczęli z powodzeniem wykorzystywać tego typu sprzęt 
właśnie jako „notatniki elektroniczne" połączone z re- 
dakcyjnym komputerem. 

Przez pewien czas była wyraźnie widoczna różnica 
między prawdziwymi „laptopami" — tak właśnie nazy- 
wają się owe przenośne kpmputery — a tradycyjnymi 
komputerami klasy IBM PC. Laptopy bowiem, poza zasi- 
laniem bateryjnym, wyróżniały się niestety szeregiem 
uproszczeń (u nas nazwano by to „zubożona wersja"), 
szczególnie odczuwalny był brak pamięci masowych i 
bardzo mały, słabo czytelny ekran ciekłokrystaliczny. 

Jak można było się spodziewać, nieustanny postęp w 
technologii produkcji sprzętu elektronicznego, zaciera 
wspomnianą różnicę. Ekrany LCD stały się większe i bar- 
dziej czytelne, do tego stopnia, że wyświetlają tę samą 
liczbę znaków co tradycyjne stołowe monitory. Ponadto 
pojawiły się mniejsze, mniej energochłonne napędy dy- 
sków elastycznych (flopy), które mogły być z nieco więk- 
szym powodzeniem instalowane w komputerach mniej- 
szych od teczki. Niestety baterie umożliwiają tylko kil- 
kugodzinną pracę tego sprzętu. 

Pozwoliło to jednak wykorzystywać programy prosto 
„z biura", które były pisane na maszyny typu IBM PC. 
Mimo to, utrzymujące się kłopoty z zasilaniem (baterie 
pozostały nadal mało pojemne) przesądzały o opinii, iż 
sprzęt jest po prostu kiepski. Opinii tej nie zmieniły na- 
wet odpowiednio przystosowane dyski twarde, energia 
baterii bowiem starczała nadal tylko na kilka godzin pra- 
cy laptopa. Spowodowało to pojawienie się nowej klasy 
sprzętu, oferowanego przez Toshibę — „stołowe-prze- 
nośne". Maszyny te są laptopami/W wielkości i funkcji, 
ale mają zasilanie sieciowe, co w efekcie pozwoliło za- 
stosować wysokiej jakości ekrany, pojemne i szybkie dy- 
ski dyski twarde oraz większą moc obliczeniową. Toshi- 
ba 3100 — pierwszy komputer tej kategorii, jest tak szyb- 
ki jak najszybsze „PO-ty". Wyposażony jest w „gas-plas- 
ma" ekran, który wyświetla obraz podobnie do lampy 
neonowej. Może być zatem używany przy każdym świet- 
le zewnętrznym w przeciwieństwie do ekranu ciekłokry- 
stalicznego — obraz wyświetlany na nim widoczny jest 
tylko wówczas gdy otaczjące go światło jest dostatecznie 
mocne, chyba że mamy pod ręką latarkę. 

Istnieje jednak nadal zapotrzebowanie na komputery 
bardzo lekkie, przenośne, z których można korzystać w 
samolocie, w samochodzie (oczywiście będąc pasaże- 
rem) lub innym miejscu oddalonym od zasilającej sieci. 



Wydaje się, że brytyjski komputer Z88 stanowi pewien 
kompromis, jak każdy Tandy 100 ma bowiem wbudowa- 
ne oprogramowanie i mały ekran LCD (wyświetlający 
tylko kilka linii tekstu). Posiada jednak pewne istotne 
udoskonalenie — wymienne pamięci półprzewodniko- 
we, które z powodzeniem, w wielu zastosowaniach za- 
stępują energochłonne napędy dyskowe. 

Generalnie, na „rynku laptopów" toczy się walka 
między zapotrzebowaniem na energię, ze względu na 
„mobilnych użytkowników", a rozmiarem, wagą i moż- 
liwościami: przetwarzania, wyświetlania i składowania 
danych. 

W dużej mierze o zapotrzebowaniu na laptopy decy- 
dują ludzie, którzy dużą część roku spędzają w podró- 
żach służbowych — w samolocie, pociągu i samocho- 
dzie, w hotelu, także w domu. 

Szczęśliwie problemy te nie dotyczą nas jeszcze bez- 
pośrednio, aczkolwiek przydał by się taki laptop choćby 
podczas pisania tego tekstu (koniecznie ze słownikiem 
amerykańsko-angielskim). Pozwoliło by to także naty- 
chmiast zmniejszyć zużycie papieru do celów kompute- 
rowych. Zamiast bowiem setek stron wydruku odbiera- 
nego codziennie przez tysiące (to już miliony stron!) 
„korespondencyjnych" użytkowników komputerów, 
wręczano by im dyskietkę, może dwie z całością ocze- 
kiwanej Informacji, np.: z wynikami obliczeń skompli- 
kowanych problemów. Użytkownik ten może potem w 
dowolnej chwili odczytać owe dane, korzystając oczy- 
wiście z laptopa! Może być zasilany z sieci. 

W. G. 


Skorzystano z informacji zawartych w: „Smali is beautiful”, P. 
Jackson, Global Business, Autumn 1988. 
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Indyjska Krzemowa Dolina 


Indie, ze względu na swą wielkość, są siódmym krajem 
świata, drugim natomiast, jeśli idzie o liczbę obywateli. 
Ponad 70 proc. z nich pracuje w rolnictwie. W ostatnim cza- 
sie i ten kraj postawił na nowoczesną technologię, w tym 
także na informatykę. 

Od 1974 roku pracuje tam elektrownia atomowa, na 
orbicie okołoziemskiej umieszczonych jest już sporo 
indyjskich sputników, a 3 kwietnia 1984 roku pierwszy 
Hindus oglądał Ziemię z przestrzeni kosmicznej, dzięki 
radziecko-indyjskiej wyprawie. 

Trudno byłoby nie dostrzec kwitnącego przemysłu 
komputerowego, którego centrum znajduje się w indyj- 
skiej „Krzemowej dolinie” — mieście Bangalore w stanie 
Karnataka. W centrum tym między innymi ponad setka 
ekspertów pracuje nad badaniami podstawowymi, które 
dotyczą sztucznej inteligencji. O kompleksowości tych 
przedsięwzięć świadczy także fakt, iż przywódcy Indii 
otworzyli dwa lata temu granice dla obcego oprogra- 
mowania. Wiąże się to również z oczekiwaniami zna- 
cznego zwiększenia eksportu. Pierwsze znaczne efekty 
już są dostrzegalne — Amerykanie kupują programy 
„madę in India". 

Niestety podstawę „eksportu" Indii stanowią ludzie. 
Ten subkontynent ma trzeci największy na świecie po- 
tencjał doskonale przygotowanych naukowców. Każde- 
go roku blisko 12 000 doktorów i inżynierów wyjeżdża 
do pracy w Ameryce i Europie. Zważywszy na wspo- 
mniane zmiany, stan ten nieco się zmienia — wielu z po- 
tencjalnych emigrantów znajduje odpowiednią pracę u 
siebie w kraju. Dzieje się tak za sprawą wspomnianej 
„Doliny", w której poza badaniami, pracami programo- 
wymi, produkuje się trzecią część sprzętu elektroni- 
cznego. Miasto rośnie szybciej niż inne — staje się au- 
tentycznym centrum badań i przemysłu. Znajduje się tu- 
taj ponad 30 instytutów, między innymi Indyjski Instytut 
Nauki i Narodowe Aeronautyczne Laboratorium (NAL). 
W czerwcu 1988 roku NAL ogłosił uruchomienie pier- 
wszego indyjskiego komputera z równoległym przetwa- 
rzaniem danych. 

Oczekuje się, iż Bangalore stanowić będzie także łat- 
wo dostępne źródło nowoczesnej technologii dla całego 
przemysłlT Indii. Jednym z pierwszych tematów prowa- 
dzonych w tym kierunku prac jest telefoniczna łączność 
krajowa. Indie mają 3,8 miliona linii telefonicznych dla 
populacji przekraczającej 700 milionów ludzi. Dla po- 
równania w Wielkiej Brytanii przypadają 42 telefony na 
100 mieszkańców (danych z Warszawy niestety nie 
mam). W Indiach proporcja ta wynosi 0,54 na 100 miesz- 
kańców. Problemem tym, i wieloma innymi, zajął się 
wykształcony (i wzbogacony) w USA Hindus Pitroda. 
Średnia wieku pracujących nad tym problemem wynosi 
23 lata! Wprowadzane są, budowane według własnych 
projektów, cyfrowe centralne odporne na specyficzne 
warunki klimatyczne tej części świata. 

W dużej części postęp techniczny jest wynikiem po- 
trzeby aktywnego i praktycznego wykorzystywania kos- 
mosu (15 000 zatrudnionych). Potrzebę tę uzasadnia 
wielkość państwa — ponad 3,25 miliona kilometrów 
kwadratowych. Rozwiązuje się w ten sposób problem 
łączności. Dzięki satelitom pozwala ona na efektywną 
walkę z analfabetyzmem — programy edukacyjne do- 
cierają do najodleglejszych miejsc subkontynentu. 
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Urządzenia te służą także do oceny stanu (w tym aktual- 
nych potrzeb) ziemi rolnej, pogody (ostrzeżenia przed 
huraganami), ułatwiają szukanie wody i bogactw natu- 
ralnych. Prowadzone przez Hindusów kalkulacje wska- 
zują, że sputnik spłaca się już po trzech latach eksploata- 
cji. Według oceny Światowego Banku, w połowie przy- 
szłego wieku Indie będą miały ponad 1,6 miliarda ludzi. 
W tej sytuacji tylko „wysoka technologia" wydaje się być 
jedyną narodową szansą Hindusów. Umiejętne jej wyko- 
rzystanie powinno pomóc rozwiązać podstawowe prob- 
lemy życia — żywność, zdrowie i pracę. 

Zważywszy na to, że „wysoka technologia", to także, a 
może przede wszystkim powszechne wykorzystanie 
komputerów (w rolnictwie, w badaniach kosmicznych i 
w szkole), warto pamiętać, iż nie jest to modą, ale konie- 
cznością, także w naszych warunkach. 

Opracowane na podstawie: India: old world, new technology, 
Global Business, Autumn 1988. 

W. G. 


SAMOTNIK 
gra dla jednej osoby 


Gra znana jest chyba wszystkim, ale 
na wszelki wypadek przypomnę jej za- 
sady: na specjalnej planszy ustawia się 
37 pionów. Przed rozpoczęciem gry 
usuwa się jeden pion. Pionami ruszamy 
się skacząc jednym przez drugi. Usu- 
wamy z planszy pion, przez który się 
przeskoczyło. Celem gry jest pozo- 
stawienie na planszy jednego niezbite- 
go piona lub osiągnięcie z góry założo- 
nego układu pionów. 

Obsługa programu: 

1 . Program zgłasza się planszą in- 
formacyjną, na której przypomniane są 
podstawowe zasady gry (rys. 1 ). Naci- 
skając dowolny klawisz wywołujemy 
planszę gry. 


Gra polega na zbijaniu pionow, 
przez Które sie przesfcatOje. Na 
początku usuwa sie z planszy je- 
den pion (klawisz <r>l. 

Pion przeznaczony do przeskoku 
ustala sie Klawiszem <r> ( pole 
mryga) . Następnie ustala sie 
Kierunek przeskoku. 

celem gry jest pozbycie sie 
wszystkich pionow, z wyjątkiem 
ostatniego,. lub uzyskanie z góry 
założonego układu pionow. 


Rys. 1 

2. Na rysunku 2 poKazana jest plan- 
sza z początkowym rozstawieniem pio- 
nów. Zgodnie z zasadami gry należy 
usunąć z planszy jeden, wybrany przez 
siebie pion. Pion wybieramy za po- 
mocą klawiszy: 

5 — ruch znacznika w lewo 

6 — ruch znacznika w prawo 

7 — ruch znacznika w dół 

8 — ruch znacznika w górę 

(na rys. 2 oznaczone pole znajduje się 
w środku planszy) 

Naciskając klawisz „r" usuwamy 
oznaczony pion z planszy i przystępu- 
jemy do rozgrywki. 

3. Poruszamy się po planszy ska- 

cząc przez piony. Ustalamy pion, któ- 
rym zamierzamy skoczyć, ustawiając 
na jego polu znacznik. Następnie naci- 
skamy klawisz „r". Pole zaczyna mru- 
gać za pomocą klawiszy 5 8 usta- 

lamy kierunek skoku zaznaczonego 
piona. Komputer kontroluje popraw- 
ność skoku i nie dopuszcza do ruchów 
niezgodnych z zasadami gry. 


□□□ 
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5- lewo 

6- gora 

7- dO l 


r-ruch 
j-atryb. 
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wybór pozycji: dławisze 6,7 
wybór Koloru: Klawisze 5,3 

K-doniec ustalania 

i R y s - 3 

Funkcje dodatkowe programu: 

Ustalenie atrybutów koloru: 

klawisz „a” 

Na ekranie ukazuje się plansza po- 
kazana na rys. 3. Program pozwala 
ustalić kolory: planszy (tło), linii planszy 
i pionów. Standardowo został przyjęty 
tryb czarno-biały. Pozycję wybieramy 
za pomocą klawiszy 6 i 7. Jest ona za- 
znaczona trybem INN/ERSE (np. na rys. 
3 wybrana jest plansza). Kolor dobie- 
ramy za pomocą klawiszy 5 i 8. Powut 
ab gry: klawisz „k”. 

Przerwanie gry: klawisz „s” 

Wywołanie planszy informacyjnej: 

klawisz „i” 

Krzysztof POŹNIAK 


1 REM t»lłłłłłl»łł*ł**ł»łłł 

3 reh ■nnnHnm 

4 REM 

5 REM Ora dla jednej osoby 

6 REM 

7 REM ©1086 , 

8 REM Krzysztof Pozniak 

9 REM 

1® REM łM t łfłtfbf łil******** 
100 REM \ 

11® DIM _ . __ 

(S) «?: LET a (3) -7 
1S® GO SUB 9080 
130 GO SUB 9060 
140 GO SUB 9070 
180 GO SUB 3000 
200 GO SUB 9100 
210 LET y»4: LET X= 


1 


LET 


LET rucha 


1010 LET X • * INKEY • : IF X*a"" THe 

N GO TO 1010 . . 

1020 IF X • ■"5" AND t (y *1 , x > >0 RN 
D ruch <2 THEN GO SUB 8000: LET X 
sx — 1 : GO SUB 8100: GO TO 1010 

1021 IF X •a"6" AND t(y*a,X4l)>0 
AND ruch <2 THEN GO SUB 0000: LET 

°° 3A?®i 

h <: 

"U sub o iwo: »u i «j *«w 
x •■"8" AND t(y*l,x*2)>0 
AND ruch <2 THEN GO SUB 8000 : LET 
X«X4l: GO SUB 8100: GO TO 1010 

1030 IF X»a"r" AND ruch«0 THEN L 

ET t (y+l,X+l) =2: LET ruchał: GO 

SUB 8100: GO TO 1010 

1031 ir X|»'T" AND ruchał AND t< 

y*l,X4l> =1 THEN LET TUCha2: GO S 

UB 8200: GO TO 1010 

1032 IF X*»"r“ AND ruch»2 THEN L 

ET ruchał: GO SUB 8100: GO TO 1® 

ł§40 IF X$a"5" AND X >2 AND rucha 
2 THEN XF t (941, X-l) *2 AND t (y+1 
, X ) =1 THEN LET t Cy 41 , X *1) =2 : LET 
t (y+Ł ,X) »2: GO SUB 8000: LET t( 
y+l,X-i>-l: LET X«X-1: GO SUB 80 
00: LET X aX — 1 : GO SUB 8100: LET 
ruchał: GO TO 1010 

1041 IF X $ = "6" AND y <7 AND rucha 

2 THEN IF t (y+3,X+l) -2 AND t(y+2 
,X*1)=1 THEN LET t (y *1 , X *1) =2 : L 
ET t (y+2,X4l> =2. GO SUB 8000: LE 
T t Cy*3,X4l) al; LET y=y*l: GO SU 

B 8000: LET yay+1; GO SUB 8100: 
LET ruchał: GO TO 1010 

1042 IF X$a"7" AND y>2 AND fUCha 
2 THEN IF t(y-l,X4l)-2 AND t(u,X 
+ 1) =1 THEN LET t (W 4l,X4l) =2 : GO 
SUB 8000: LET t (y -1 , X +1) =1 : LET 
t(y,X + l)a2: LET yay-1: GO SUB 80 
00. LET yay-1. GO SUB 6100. LET 
ruchał: GO TO 1010 

1043 IF X«a"8" AND X <7 AND rucha 

2 THEN IF t (y *1 ,X *3) -2 AND t(y + l 
, X 42) * 1 THEN LET t (y 4l , X 4l ) >2 : G 
O SUB 8000: LET t (U 4l , X 43) =1 : LE. 
T t (Ułl,X48) »2: LET X=Xłl: GO SU 

B 8000: LET X»X4l; GO SUB 8100: 
LET ruchał: GO TO 1010 

1050 IF X»a"a" THEN GO SUB 2000 
1060 IF X*="S" THEN CLS : GO SUB 

9000: GO TO 120 

070 IF X*="i” THI 
GO SUB 2080: GO . ^ 

1090 BEEP .1,20: GO TO 1010 
2000 REM 

2010 INK 7: PAPER 0: BORDER 
LS 

2020 PRINT TAB 7, INUERSE 1; "S A 
M O T N I K"; INUERSE 0, AT 3,10 
; "KOLORY: " ; AT 15,3; "wybór pozycj 
i: klawisze 6,7"; AT 17,4;"wybor 
koloru: klawisze 5, 8”, AT 20,7;"k 
-koniec ustalania" 


AU 17,0: DRAU 0,-9: DRAU -17,0: 

DRAU 0,9: PRINT AT 442*1,18, PAP 

ER a(l);" ": NEXT l 

2040 LET la3. LET X*a"6": GO TO 

2060 

2050 LET X 8 a INKEY $ : IF X*a"“ THE 

N GO TO 2050 

2060 IF X*a"6" OR X*a'7“ THEN PR 

INT AT 442*1 ,8; t*(l) : LET 1=1*1- 

2* (X*="7“) : LET l a l -3 * ( l =4 ) *3* ( l 

=0) : PRINT RT 4*2* 1,8; INUERSE 1 
; tf (U 

2061 IF X«a"B" OR X $a ”8" TMEN LE 
T a (l) aa (l) 4l-8*(a (l) =7) : PRINT 
AT 4*2*1,18; PAPER a(l);" 

2070 BEEP .1,20: IF X*<>"k" THEN 
GO TO 2050 

2080 LET yp=y: LET xp =X : GO SUB 


3020 PRINT TAB 8; INUERSE 1; "S R 
M 0\T N I K" 

3030 PRINT AT 2,2; "Gra jest prze 


zbijaniu pionow, przez które sie^ 
przeskakuje. Na początku usuwa m 




sie z planszy je-den pion (klawi R a(l): CLS : FOR l*i TO a 

< r > ) • 9120 PLOT p (i, U ,P (2 I) - DRfin o < 

3050 PRINT -TRB 2; "Pion przeznac 3,u,0 ,p ,u DRRU pl 

zony do przeskokuusta la sie k law 9130 PLOT l?6-p (2 , i > , 176 -p ( i i> 
»sze«i <r> ( pole aryga). Naslepn drru 0,-p<s,i) ° 

ie ustala sie kierunek przesk 9110 next i 

3060 PRINT -TRB 2; "Ce lem gry ,jes R^x «1*~TQ 7° Z= ° r0R y=1 T0 7: P0 

SftatniegS/lSb 9 JS 0 IP t<y + 1 ' x + 1) “ 1 GO SUB 

uzyskanie z goryza łożonego ukla 
du pionom.” 

3070 PRINT 'TRB 4; INUER5E 1,"N 9170 NEXT X: NEXT V 

RCISNIJ DOUOLNY KLRUISZ" 9180 PRINT RT 0,23; INUERSE 1;"S 

3080 PRUSE 0 . RMOTNIK"; INUERŚE 0 ; RT 1?22; "K 


3090 RETURN 


ETURN 
8100 REM | 
8110 PRIN 


INK a(2)*(t(y + l,x + l)< 
(y + 1 ,x +1) =1) , PRPER a 
x+l) <>1) +a (3) *(t (y+l, 
3*y-2 , 3*X -2 ; " m " . RT 3 
RETURN 


9937 DRTR 
9940 REM | 
9950 DRTR 


1 REM m«»Młł»ł4»ł*lłłł 

2 REM « 

3 REM # © 190 

4 REM * , 

5 REM * Krzysztof Pozniak 

6 REM * 

7 REM * Rozkaz: INPUT "** 

8 REM * 

9 REM •«**«*»*******•*#**« 


J. JANIEC 


PROGRAM ZX-81 


0 : RETURN 

9010 DIM t 19,9) : RESTORE 9900 

9020 FOR y =1 TO 9: FOR X*1 TO 9 

9030 RERD t (y , X ) 

9040 

9060 DIM p(3 Tsi FOR x = 1 TO 6 F 
OR y=l TO 3: RERD p(y,X>: NEXT y 
: NEXT X : RETURN 

9080 DIM To™3 : 

RERD t $ ( l 

9110 PAPER Tm iNKa (2) : BORDE 


9170 NEXT x . NEXT y 
9180 PRINT RT 0,23; INUERSE 1;"S 
RMOTNIK"; INUERŚE 0; RT 1,22; "K. 
Pozniak ”; rt 6, 23, "5-lewo"; RT 7,2* 
3; "6-gora", RT 6,23; "7-dO l", RT 9, 
? 5 i= 8 ;S r ^ wo "' RT 1*^23; "r-ruch"; Ó 
T 16,23; "a-atryb. ", RT 18,23;"s-s 
top";RT 20,23; "i-inf 

9290 RETURN 

9900 REM 

9910 DRTR O, 0,0, 0.0,0, 0,0,0 

9911 DRTR 0,0, 0,1, 1,1, 0,0,0 

9912 DRTR 0,0, 1,1, 1,1, 1,0,0 

9913 DRTR 0,1, 1,1, 1,1, 1,1,0 

9914 DRTR 0 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 0 

9915 DRTR 0,1, 1,1,1, 1,1, 1,0 

9916 DRTR 0 , 0 , 1 , 1 , 1 , 1 , 1 , 0 , 0 

9917 DRTR 0 , 0 , 0 , 1 , 1 , 1 , 0 , 0 , 0 

9918 DRTR O,0.0.0.0,6.B.a.fl 


9931 DRTR 28,148,120 


9932 DRTR 

9933 DRTR 

9934 DRTR 

9935 DRTR 


4 . 124 . 168 

4. 100.168 
4, 76,168 
4, 52,168 


9952 DRTR " pionom! 


TAJEMNICZY ROZKAZ: INPUT 
dla komputera ZX Spectrum 


Jest to rozkaz, który zgodnie z prawid- 
łami języka BASIC nic nie robi!. Wywo- 
łujemy bowiem rozkaz, który ani nie dru- 
kuje tekstu, ani nie wczytuje danych. Ma 
on jednak dwie bardzo przydatne włas- 
ności: . 

po pierwsze: kasuje licznik scroITi i 
pozwala na ciągłe przewijanie ekranu. 
Nie musimy dzięki temu „półkować" do 
komórki systemowej 23692 wartości 
255. Często błąd podczas POKE kończy 
się zawieszeniem systemu. Przykładowy 
program znajduje się w liniach: 
100-150. 

po drugie : czyści okno systemowe nie 
wtrącając się w okno programu. Po wy- 
konaniu INPUT okno systemu ponownie 
zajmuje 2 linie na dole ekranu (odpo- 
wiada rozkazowi: „GLS#0”). Przykładowy 
program znajduje się w liniach: 
200—280. 

Krzysztof POŹNIAK 


TH^N GO TO 20 


INPUT M " 

NEXT k 

REM czyszczeni* okn* syste- 
Nowego 

CLS • 

PRINT "ten tekst znajduj* s 
oknie progmiu" 

for k -l TO 20 

PRINT #0; -liczba: ”;k;" w o 

sys temu" 

NEXT k 
PRUSE 10 
INPUT M " 

IF INKEY**"" TMEN GO TO 230 


• 2 ren ******************* 

3 REN * * 

4 REN * GRA W KOŚCI * 

5 REN * ZX-81 * 

6 REN * * 

7 REN **************** *** 
10 CLS 

15 FOR N=0 TO 20 
20 PLOT 45,I\HT0 
25 PLOT N+25, 30 
30 PLOT 25.N+10 
35 PLOT N+25. 10 
40 NEXT N 

43 LET Z=0 

44 FOR Ol TO 5 

45 LET A=l+ INI RND 6 

46 LET Z=Z+A 

47 PRINT AT 3.15;” 

48 PRINT AT 13.0; '» 

50 UNPLOT 30.15 
55 UNFLOT 30,20 
60 UNPLOr 30,25 
65 UNPLOT 40, 15 
70 UNPLOT 40.20 

75 UNPLOT 40,25 

76 UNPLOT 35.20 

80 IF A=I THEN PLOT 35.20 

81 IF A=1 THEN GOTO 165 
85 IF A=2 THEŃ GOTO 150 

90 IF A=3 THEN PLOT 35.20 

91 IF A=3 THEN GOTO 150 
95 IF A=4 THEN GOTO 130 
100 IF A=5 THEN GOTO 120 
105 IF A=6 THEN GOTO 110 
1 10 PLOT 30. 15 

120 PLOT 40.25 
130 PLOT 30.25 
140 PLOT 40,15 
150 PLOT 40,20 
160 PLOT 30.20 

165 PRINT AT il.OiA 

166 IF 0=5 THEN PRINT AT 1 
3.0:”SU"IA='’:Z 

180 NEXT C 

181 IF Z =20 THEN PRINT AT 
3, 15: "NIEZŁE” 

185 INPUT AS 
190 GOTO 43 



Współpraca ATARI 800 XL z drukarkami 
D-100, DZM-180 KSR z monitorem MERA-7952 

. Część II 


W pierwszej części artykułu opisana została układowa rea- 
lizacja sprzężenia mikrokomputera ATARI 800 XL z dru- 
karkami DZM-180 KSR, D-100 i monitorem ekranowym 
MERA-7952. Jak było wspomniane, w celu zapewnienia 
poprawnego funkcjonowania tak powstałego zestawu ko- 
nieczne jest także stworzenie właściwego aparatu progra- 
mowego. Rolę taką spełnia program sterujący, tzw. ste- 
rownik (ang. handler), napisany w asemblerze (MAC 
65). Sterownik zapewnia programową obsługę portu A 
układu PIA, realizując następujące zadania: 

— zmiana bajtu otrzymanego do wysłania, z postaci rów- 
noległej na szeregową, 

— podanie kolejno stanu wszystkich bitów na bit O portu A 
układu PIA, 

— odliczanie czasu trwania poszczególnych bitów. 

Sterownik zajmuje około 250 bajtów pamięci RAM i w ce- 
lu wykorzystania go przez programy napisane w BASIC-u 
umieszczono go na stronie 6 pamięci. Istnieje również moż- 
liwość łączenia go z popularnymi programami użytkowymi, 
jak edytory tekstu, bazy danych, arkusze elektroniczne itp., 
ale wówczas może nastąpić kolizja między „naszym" ste- 
rownikiem a programem zasadniczym. Konieczne będzie 
wówczas' umieszczenie sterownika w innym, wolnym 
miejscu pamięci. Program niestety nie jest relokowalny ze 
względu na zastosowanie rozkazów skoku do podprogra- 
mu JSR i w celu przeniesienia go w inne miejsce pamięci 
należy przed asemblacją programu źródłowego nadać 
zmiennej START wartość żądanego adresu umieszczenia 
sterownika w pamięci (aktualnie 0600, tj. początek 6 stro- 
my). Asemblacji można dokonać za pomocą makroasemb- 
lera MAC 65 lub asemblera ATARI Editor/Assembler. 

Po omówieniu układowej realizacji połączenia warto by- 
łoby podać ogólną zasadę funkcjonowania stworzonej kon- 
figuracji oraz jej możliwości. 

Głównym elementem zestawu jest mikrokomputer steru- 
jący przetwarzaniem informacji. Programy do komputera 
wprowadzane są ze stacji dysków. Na dyskietkach groma- 
dzi się również dane wejściowe oraz wyniki przetwarzania. 
Monitor telewizyjny, jak w każdym standardowym systemie 
mikrokomputerowym umożliwia bieżące kontrolowanie 
pracy systemu przez operatora. Drukarki są zasadniczymi 
urządzeniami przeznaczonymi do wyprowadzania wyników 
programów i danych wyjściowych z przetwarzania. Prakty- 
ka wykazała, że dla uzyskania ostatecznego układu grafi- 
cznego wyprowadzanych wyników często niezbędne jest 
wielokrotne uruchamianie programu i kolejne korekty 
kształtujące wydruk. Wiąże się to z dużym zużyciem papie- 
ru. Można temu skutecznie zapobiec używając do prób- 
nych wydruków lYionitora ekranowego. Możliwość taka 
wynika stąd, że układ graficzny wyprowadzanych wyników 
na monitorze ekranowym jest identyczny jak na drukarce 
(przy ograniczeniu szerokości strony do 80 znaków). W 
transmisji danych z mikrokomputera do urządzenia wyjś- 
ciowego pośredniczy układ dopasowujący. W czasie wy- 


prowadzania danych przez mikrokomputer układ dopasowu- 
jący wysyła je równocześnie do obu urządzeń. Zabloko- 
wanie wydruku na papier uzyskuje się przez oddzielenie 
drukarki, co pozwala na próbne wydruki na monitorze 
ekranowym. 

Stworzona konfiguracja daje wiele możliwości: 

— stanowi automatyczną maszynę do pisania (korzysta- 
nie z pełnego zestawu polskich liter jest możliwe po zasto- 
sowaniu dodatkowej pamięci EPROM w drukarkach); moż- 
liwe jest przechowywanie wielu różnych tekstów na dy- 
skietkach w celu późniejszego ich wykorzystania, 

— umożliwia wyprowadzanie wyników programów użyt- 
kowych na drukarkę lub monitor ekranowy w zależności od 
potrzeb, 

— pozwala na edycję tekstów z możliwością włączania ry- 
sunków. 

Istnieje jeszcze wiele innych możliwości zastosowania 
przedstawięnego zestawu w wojsku np. do: 

— rozwiązywania wielu zagadnień i problemów finan- 
sowych, ewidencyjnych i kadrowych, 

— sporządzania list, planów, wykresów i schematów, 

— pisania i redagowania pism, meldunków i rozkazów z 
drukowaniem ich w dowolnej ilości egzemplarzy. 

Istnieje jeszcze wiele innych możliwości, szczególnie po 
rozszerzeniu oprogramowania mikrokomputera o progra- 
my graficzne. W wypadku posiadania przez użytkownika 
tylko jednego z podłączonych urządzeń zewnętrznych 
(drukarka lub monitor) można zbudować zestaw w oparciu 
o mikrokomputer i posiadane urządzenie wg przedstawio- 
nego opisu. 


Zbigniew FIGUŁA 
Artur KOŁOSOWSKI 
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-000C 
*031 U 
"0302 
*0300 
-D40E 
*0400 


0101 

0102 

0103 

0104 
0103 
0106 

0107 

0108 
0109 
011 ® 
0111 
0112 

0113 

0114 

0115 
• 116 
0117 


D-100 INTFRFACE 


******* ************* 


DEKLARACJA STAŁYCH 


START 

DOS INI 

PRTVEC 

PAC TL 

PORTA 

flMIEN 

DMACTL 


*0600 

•0C 

*0310 

*0302 

*0300 

*D4»E 

*D400 


7 


0600 0F06 
0602 2606 
. 0604 2906 
0606 2C06 
®608 2606 
060A 2906 
060C 00000000 


061.0 

0610 A930 
0612 8D02D3 
0615 A901 
0617 880083 
061 A A934 
06 1C 880283 
061F A901 
0621 8D00D3 
0624 20CC06 


=0627 

=0627 

=062A 

=062A 


062D 
06 2 D 48 
062E C90D 
063® F 004 
06,32 0998 
0634 D031 

0636 A90D 
0638 206E06 
0638 A90A 
0638 206E06 


0640 ADF806 
0643 D00F 
0645 AE1F80 
0648 E005 
064A 801E 
0640 A901 
064'- RDFB06 
06! i -O6A06 
0654 AE1FD0 

0657 E007 
0659 F0F9 

0658 E005 
0658 F00B 
065F A900 
0661 8DFB06 

0664 4C6A06 
0667 206F06 
0664 68 
066B 4001 


0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 


♦80 1F 

♦9B 

♦08 

♦0A 

131 


ł TABLICA OPERACJI DRUKARKI 


.WORD OPEN-1 
..WORD CLOSE-1 
-WORD GETBYTE-1 
.WORD PUTBYTE-1 
.WORD STATUS- 1 
, ..WORD SPEC JAI...-1 
.BYTE 0.0,0, 0 
r 

!«*'»*»**»«»»»#«»**»*,»*»»*#»*»» 


0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 ! 

0153 

0154 

0155 I 

0156 

0157 

0158 

0159 
016® 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 * 
0189 
019® 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 


LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 


♦ ♦30 

PACTL 

♦♦01 

PORTA 

♦ ♦34 
PACTL 

♦ ♦01 
PORTA 
PRWAIT 


CLOSE 
STATUS - 
GETBYTE = 
SPECJAŁ = 


SUCCES 

SUCCES 

NOTIMPL. 

NOTIMPL 


»**«*«****«*«»*••«»**#*••««*** 


ROZKAZ PUTBYTE 


i BAJT DO WYSŁANIA POWINIEN 
? ZNAJDOWAĆ SIE W AKUMULATORZE. 


;*#»****#» **«««•*»««*««»««*»«*** 


PHA 

CMP 

BEO 

CMP 

BNE 


LDA 

JSR 

LDA 

JSR 


♦CR 

SEROUT 

♦LF 

SEROUT 


i SP,R. KLAW. FUNKC. 


LDA 
BNE 
LDX 
CPX 
BNE 
LDA 
STA 
JMP 
LDX 
CPX 
BEO NOPAM 
CPX 
BEO 
LDA 
STA PAM 


PAM 

NOPAM 

C0N90L 

♦ 5 
OUT 

♦ 1 
PAM 
OUT 

CONSOL 


OUT 


020? F 
»2»3 r 

0204 

0205 

0206 i 

0207 I 
•200 I 
• 209 I 


J8R SEROUT 


STA BUFFER 
. PRZERWAŃ 


0674 B80ED4 

0677 BD00D4 
067A BDFA06 

0678 A90B 
♦67F BDF906 


•686 6A 
06B7 9006 
•689 20CC06 
068C AC 82 06 


068F A 900 
0691 8 1100 03 
•694 20C606 


0697 ADE806 
069A 880083 
•69D 6A 
069E BViFB06 
06 Al 20C606 
06A4 9003 
06A6 E.EFA06 
06A9 CEF906 
06AC 80E9 


•6AE ADFA06 
06B1 8D00D3 
06B4 20C606 


06B7 A901 
06B9 9800D3 
06BC 20CC06 


06BF A9FF 
06C1 8D0ED4 
06C4 58 
06C5 60 


06C6 A283 
06C8 CA 
•6C9 D0FD 
06CB 60 


06CC A004 
04CE 20C606 
06D1 88 
06D2 D0FA 
06 D 4 60 


06 D5 

06D5 20E206 
06 D 8 

06D8 A900 
06DA 8D1B03 
06 DD A906 
06DF 8D1C03 
06E2 
06E2 60 

06E3 

06E3 A50C 
06E5 8DD606 
06EB A50D 
06EA BDD70Ó 
06ED A9D5 
06EF 850C 
06F1 A906 
06F3 850D 


BTA DMACTL 

LDA 08 
BTA COUNT 

I SPR.CZY WOLNA BRUK. 

1 

BUF Z L8A PORTA 
ROR A 
RUR A 
BCC BUFW 
JSR PRWAIT 
JMP BUF Z 

'232 I BIT STARTU NA WYJ8CTI 


'238 ; BITY INF 0-7 (• 


BTA BUFFER 
JSR BITWAIT 
BCC BIT0 
INC BP 
BEC COUNT 
BNE 8ŁNBBITE 

0249 » 

•250 I BIT PARZYST. NA WYJŚCIE 

0251 ; 

0252 

0253 

0254 

0255 ( 

0256 ; BITY STOP NA WYJŚCIE 

0257 ; 

LDA 01 
STA PORTA 
JSR PRWAIT 


I ZEROWANIE BP 
ILICZNIK BITÓW =B 


LDA BP 
STA PORTA 
JSR BITWAIT 


WŁĄCZENIE PRZERWAŃ 

LDA ♦♦FF 
STA NMIEN 
CLI 
RTS 


0258 

0259 
026® 

0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 I 

0269 5 

0270 

0271 J 

0272 » 

0273 » PODPROGRAM OPOZNIAJACY 

0274 f O CZAS 1 BITU. 

0275 J 

0276 BITWAIT LDX *K 

0277 LOOPK DEX 

0278 BNE LOOPK 

0279 RTS 

0280 * 

0281 » 

0282 

0283 

0284 

0285 PRWAIT LDY ®4 

0286 LOOPF JSR BITWAIT 

0287 / DEY 

0288 BNE LOOPF 

0289 RTS 

0290 t 

0291 I******************************* 

0292 t 

0293 ? 

0294 J PODPROGRAM DO AUTOMATYCZNEJ 

0295 t AKTUALIZACJI ADRESU STEROWNIKA 

0296 » DRUKARKI U TABLICY URZĄDZEŃ PO 

0297 5 "SYSTEM RESET". 

0298 i ■ 

0299 i 

0300 INITD08 


0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 


JSR TROJAN 


LDA 

STA 

LDA 

9TA 

RTS 


♦ < HANDL.TAB 
PRTUEC 

♦ >HANDLTAB 
PRTUEC+l 


I 

INSTALLDOSINI 

LDA D08INI 
STA 
LDA 
STA 
LDA 
8TA 
LDA 
STA 


IN1TD0S+1 

DOSINI+1 

INITD08+2 

♦ < INI T DOS 
808 INI 

♦ >INITD(JS 
D08INI41 


06F5 4CD806 


06FB 00 
06F9 00 
06FA 00 
06FB 00 


0320 JMP INITHAN 

0321 5 

0322 

0323 f 

0324 I TABLICA ZMIENNYCH 

0325 ; 

0326 BUFFER .BYTE 0 

0327 COUNT .BYTE 0 

0320 BP .BYTE 0 

0329 PAM .BYTE 0 


06FC 

02E2 E306 


0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 


{«•«**»*««*««**»««««««*»»«»*•*«» 

» 

5 ADRES STARTU ( DOS LOAD&RUN) 

ł 

*- 002Ę2 

.WORD INSTALLDOSINI 
i 


«»* ASSEMBL.Y ERRORSi 0 17265 BYTE8 FREE 


L i la \/ati (12) 


ROZLEWANIE WINA 

DANUTA KWASIŻUR, MIECZYSŁAW SKONIECZNY 


W rozdziale 1 zatytułowanym „Anegdoty matematyczne i 
zadania anegdotyczne" znajdujemy zadanie nr 48 o rozle- 
waniu wina. Mikrokomputerowe rozwiązanie tego problemu 
przedstawiamy w dzisiejszym odcinku. 

Po uruchomieniu programu użytkownik zapoznaje się z 
treścią zadania, która jest wyświetlona na ekranie monitora 
w następującej postaci: 


Sukces w grze jest sygnalizowany komunikatem: 
„BRAWO!!! WINO PRAWIDŁOWO PRZELANE 
PO 7 PRZELANIACH 
SPRÓBUJESZ JESZCZE RAZ? (T/N):" 
teraz można ponownie rozpocząć grę. Wersja źródłowa 
programu opracowanego w BASIC-u jest następująca: 


Dwaj przyjaciel* sprowadzili wspólni* 
oiMiolltroua boozulk* win*. Ten , który 
wino sprowadzi ł , na zatrzynaó beozulke 
se połowa jej zawartości . Drugi Jednak na 
tylko dwie beozulki, w których stale wi- 
no przechowuje i 

— jedna o po jennośc i 6 litrów 

— <lr uh*, o pojennołci 3 litrów. 

W jaki sposób noin* dokonać podziału po— 
sługując sit tyn i becz u łkań i ? 

NACISNIJ DOUOLNY KLAWISZ 

Po naciśnięciu dowolnego klawisza wyświetla się plan- 
sza gry i program oczekuje na wprowadzenie danych w 
następującej kolejności: 

nr beczułki, z której przelewamy wino, 

— nr beczułki, do której przelewamy wino, 

— ilość litrów przelewanego wina. 

t Poniższy wydruk pokazuje sytuacje po 1 przelaniu wi- 
na: 



1 PH’/ł,:i.f:WANTE WINO 

1 . Rocznika Oli trowa . 
ci . llcuzulka S- I i tr owa . 
3 , Ręcznika 3 - 1 itr owa . 


PHZFI.FWAM WTNO 25 BECZUŁKI NR 
DO RFC5ZUŁ.KT NR 

ILL LIIHOW W INO V 


a 


10 ’ 

20 ’ Ekran informacyjny 
JO ’ 

40 60SUB 1030 

50 M0DE 1: INK 0,26:INK 1,0: INK 2,6: INK 3,9 
60 pis* ■;pl0=STRIN6*<5, CHR4 (143) ) 

70 PAPER OjBORDER 26: CIS 

80 PEN liPRINT •Dwaj przyjaciela spromadzili mspolnie 
90 PRINT 'osaiolitroaa beczułki Mina. Ten, który * 

100 PRWmino spromadzil, aa zatrzymać beczułka 1 
110 PRINT'z poi oma jej zaMartoici. Drugi jednak aa 1 
120 PRINT"tylko dmie beczułki, m których stale mi- * 

130 PRINT"no przechomiji: 

140 PRINT ■ - jedna o pojemności 5 litrom 

150 PRINT" - druga o pojtanosci 3 litrom. " 

160 PRINT: PRINT "N jaki sposob można dokonać podziału po- " 

170 PRINT*slugujac lim tymi beczułkami?" 

180 L0CATE 6,25iPRINT"NACISNIJ D0N0LNY KLAWISZ" 

190 IF INKEYI*" THEN GOTO 190 
200 ’ 

210 ’ Rysomanie planszy gry 
220 ’ 

230 MODĘ 1 

240 mip ( 1 ) »2: msp (21 *5: msp (3> *7 
250 FOR a»l TO 3 
260 60SUB 840 
270 NE1T a 

280 FOR K»2 TO 9:L0CATE 5,K:PRINT CHR« ( 138) ; > PEN 2:PRINT STRIN6*(5,CHR*(143))|:P 
EN 1:PRINT CHRI(133):NEXT K 

290 GRAPHICS PEN 3:PL0T 48,400:DRANR 0,-146:PL0T 50,400:DRANR 0,-146 
300 FOR k«0 TO 8:P10T 46,382-kll6:DRANR -4,0:NEXT k 

310 GRAPHICS PEN 1: TAG: FOR k«B TO 1 STEP -1:H0VE 8,276t(k-l)ll6:PRINT USING "£*| 

k| iPRINT "1 " j :NEXT k 

320 H0VE 24, 260: PRINT "0"; sTAGOFF 

330 NIND0N £1,5,30, 12, 18:PAPER £1,3iCLS £1 

340 lp«lib(lf*8:b(2) s 0:b(3)*0 

350 ILN ( 1 ) *8: ILN (2) *5: 1LN (3 ) =3 

360 PEN £1,1:L0CATE £1,2,2:PRINT £1, USING "£"j lp; SPRINT £1," PRZELEWANIE NINA" 
370 PEN £1 , 0> L0CATE £1,2,4:PRINT £l,'l. Beczułka 8-1 itroma. " iPRINT £1," 2. Biczu 
lka 5-litroma. "iPRINT £1," 3. Beczułka 3-litroma." 

380 NIND0N £2, 2, 33, 20, 21 : PAPER £2,1:CLS £2 
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t 390 WINDOM £J, 2, 35, 22, 22: PAPER £3,llCLS £3 
▼ 400 WINDOM £4,2,35, 23,25: PftPER £4,tiCLS £4:PEN £4,0 
410 ’ 

420 ’ Segment sterujący 
430 ’ 

440 CIS £2lPEN £2,0:L0CATE £2,2,2: INPUT £2, 1 PRZELEWAM MINO Z BECZUŁKI NB ',NR 
430 IF URM OB NB-2 OB NB«3 THEN GOTO 470 
440 GOTO 410 

470 IF l(M))>0 THEN GOTO 490 
4 BO GOSUB 960:60T0 410 

490 CIS £3: PEN £3,0:L0CATE £3,2,1: INPUT £3,*D0 BECZUŁKI NB 

300 IF NR«NR1 THEN GOTO 490 

310 IF b(nrl)Mlwlnrl) THEN GOSUB 1000:60TO 490 

520 IF NR1-1 OR NR1*2 OR NR1«J THEN GOTO 540 

530 60T0 490 

340 CLS £4: PEN £4,0:L0CATE £4,2, li INPUT £4, Mli LITROM NINA? 

550 IF LN<0 OB LN>5 THEN GOSUB 990:G0TQ 540 

340 IF B(NR)-LN*0 OR LNłBINRl)MLN(NRl) THEN 60TO 580 

370 GOSUB 1010: GOTO 340 

380 IF B(NR)>*LN THEN 60TO 600 

590 GOSUB 970: GOTO 540 

400 IF B(NRl)tLH<*ILM(NRl) THEN GOTO 420 

410 GOSUB 980: GOTO 540 

420 FOR KM TO LN 

430 LOCATE 4* (NR-1 ) t8, 9-b (nr ) +K: PRINT pt 

440 NETT k 

430 PEN 2 

440 FOR KM TO LN 

470 LOCATE 4MNRl-l)tB,10-b(nrl)-K:PRINT pil 
480 NEIT k 

490 b(nr)*b(nr)-lw:b(nrl)«b(nrl)*lw 
700 lp-lp+1 

710 IF b(l)*4 AND b(3)łb(21«4 THEN GOTO 740 

720 PEN £!,1:L0CATE £1,1,2:PRINT £1,USIN6 ■££ , |lp 

730 CLS £2: CLS £3: CLS £4:60T0 410 

740 CLS £2: CLS £3: CLS £4 

730 LP*LP-1 

740 IF LP<8 THEN 60T0 830 

770 PRINT £2iPRINT £2,* NINO PRANI DL ONO PBZELANEMPRINT £3,* PO*|LP;' PRZELEWANI 
ACH. (NIN. 7) . “ • 

780 FOR A*0 TO 24: BORDER A: FOR T*1 TO 200: NEIT T:NEIT A 

790 PEN £4,3:PRINT £4: INPUT £4,* SPRÓBUJESZ JESZCZE RAZ? (T/N) *,T* 

800 IF TMM* OR Tł«*f THEN GOTO 230 
810 IF T4*'N' OR T»«V THEN END 
820 GOTO 790 

B30 PRINT £2: PRINT £2,’ BRANO'!! NINO PRANIDLONOMPBINT £3,' PRZELANE PO*|LP;" P 
RZELENANIACH. ’ : GOTO 780 


W Równej części programu wykorzysfuje się 3 podpro- 
gramy, które realizują następujące funkcje: 

1 . Podprogram rysowania dowolnej beczki. 

(instrukcje 840—920) 


840 ’ 

850 ’ Podprogram rysowania dowolnej beczki 
860 ’ 

870 PEN I: LOCATE 5+(a-l)»8,wsp(aM:PRINT CHR* ( 169) ; SPC £ 5) j CHR* (170) 
880 FOR K=wsp(a) TO 9 

890 LOCATE 5*(a-l)l8,K:PRINT CHRf (138) ;STRIN6*(5, ■ MjCHR$(133) 

900 NEIT k 

910 LOCATE 5+ (a-l ) 18, 10:PRINT CHR* ( 167) ; STRIN6$ (5, CHR$ ( 131 ) ) ; CHR* ( 168) 
920 RETURN 


2. Podprogramy z komunikatami o błędach, 
(instrukcje 930—1020) 


930 ’ 

940 ’ Podprogramy z kowuni katami o biedach 
950 ’ 


960 CLS £2: PEN £2,2:L0CATE £2,2,2sPRINT £2,'N TEJ BECZCE NIE HA NINA': 
GOTO 1020 

970 CLS £4: PEN £4,2:L0CATE £4,2,1:PRINT £4,'N BECZCE NR *;USING *£*;NR 
; : PRINT £4,' NIE HA TYLE WINA" : 60T0 1020 

980 CLS £4: PEN £4,2:L0CATE £4,2,1:PRINT £4,"W BECZCE NR “;USIN6 "£";HR 
1 PRINT £4.' NIE ZHIESCI SIEMPRINT £4,* TYLE WINA! !":60TO 10 
20 

990 CLS £4: PEN £4,2:L0CATE £4,2,1:PRINT £4, "NIE HOZNA PRZELENAC TYLE N 
INA': GOTO 1020 

1000 CLS £3: PEN £3,2:L0CATE £3,2,1:PRINT £3, 'TA BECZKA JEST JUZ PEŁNA' 
: 60T0 1020 

1010 CLS £4: PEN £4,2:L0CATE £4,2,1:PRINT £4, 'NIE HOZESZ ODHIERZYC TAKI 

EJMPRINT £4,' ILOŚCI WINA! ! !":60T0 1020 

1020 SOUND 1 , 300: SOUND 1,200: FOR TM TO 3000: NEIT T: RETURN 
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3. Podprogram definiowania polskich liter i symboli 
własnych. 

(instrukcja 1 030—1 400) 


1030 ’ 

1040 ’ Podrogram definiowania polskich liter i sywboli własnych ' 
1050 ’ 

1060 SYMBOL AFTER 167 

1070 SYHBOL 167,7,7,3 

1080 SYHBOL 168,224,224,192 

1090 SYHBOL 169,0,0,0,0,0,3,7,7 

1100 SYHBOL 170,0,0,0,0,0,192,224,224 

1110 SYHBOL 171,0,0,120,12,124,204,118,3 

1120 SYHBOL 172,24,60,102,102,126,102,102,3 

1130 SYHBOL 173,24,0,60,102,96,102,60,0 

1140 SYHBOL 174,24,60,102,192,192,102,60,0 

1150 SYHBOL 175,0,0,60,102,126,96,60,6 

1160 SYHBOL 176,254,98,104,120,104,98,254,3 

1170 SYHBOL 177,56,24,28,24,56,24,60,0 

1180 SYHBOL 178,240,96,112,96,226,102,254,0 

1190 SYHBOL 179,24,0,220,102,102,102,102,0 

1200 SYHBOL 180,24,198,230,246,222,206,198,0 

1210 SYHBOL 181,24,0,60,102,102,102,60,0 

1220 SYHBOL 182,12,56,108,198,198,108,56,0 

1230 SYHBOL 183,24,0,60,96,60,6,124,0 

1240 SYHBOL 184,24,60,96,60,6,102,60,0 

1250 SYHBOL 185,24,0,126,76,24,48,126,0 

1260 SYHBOL 186,254, 198, 140, 126,48, 102, 2$4, O 

1270 SYHBOL 187,12,24,126,76,24,48,126,0 

1280 SYHBOL 188,48,254,172,24,50,102,254,0 

1290 SYHBOL 189,0,0,0,0,0,12,12,24 

1300 KEY DEF 10,1,55,171,172 

1310 KEY DEF 11,1,56,173,174 

1320 KEY DEF 3,1,57,175,176 

1330 KEY DEF 20,1,52,177,178 

1340 KEY DEF 12,1,53,179,180 

1350 KEY DEF 4,1,54,181,182 

1360 KEY DEF 13,1,49,183,184 

1370 KEY DEF 14,1,50,185,186 

1380 KEY DEF 5,1,51,187,188 

1390 KEY DEF 15,1,189 

1400 RETURN 
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DANUTA KWASIŻUR 
MIECZYSŁAW SKONIECZNY 


TRZY WYMIARY 


W programie pokazano prosty sposób 
kontynuowania obrazu trójwymiarowego 
na bazie zobrazowania dwuwymiarowe- 
go. Zdefiniowane na płaszczyźnie figury 
program traktuje jako podstawy grania- 
stosłupów, które następnie zobrazowuje 
w postaci trójwymiarowej z ustalonymi 
wcześniej wysokościami. Graniastosłupy są 
przedstawione na wspólnej płaszczyźnie 
(o elewacji zerowej). 

Podczas wprowadzania wysokości po- 
szczególnych figur należy zwrócić uwagę 
na fakt, że na ekranie będą całkowicie wi- 
doczne tylko te, których wysokość jest 
mniejsza niż ilość jednostek na osi y. Wy- 
sokości graniastosłupów, które nie zmieś- 
ciły się na ekranie można zmienić podczas 
edycji obrazu. Omawiane zależności mo- 
żna rozpoznać doświadczalnie. 

Program, oprócz zmiany wysokości, 


Komunikat 

7.. Podaj ilość jednostek wsp. y— max. 30 

2. Kąt obserwacji 

3. Wysokość figury 

4. Pierwszy punkt 

5. Następny punkt 


6. Koniec rysowania 


7. Dorysowywanie figur (t/n) 


8. Edycja (t/n) 

9. Kąt obserwacji 

70. Podaj numer figury 


77. Nowa wysokość 


12. Początek programu (t/n) 


umożliwia modyfikację obrazu, poprzez 
zmianę kąta obserwacji (perspektywy) i 
dorysowywanie nowych figur. 

Definiowanie figur realizowane jest po- 
przez wprowadzaniewspółrzędnych (x, y) 
kolejnych punktów, które wyznaczają od- 
cinki (boki figury). Współrzędne wprowa- 
dzane są w jednostkach umownych ry- 
sunku, które ustala się na początku dzia- 
łania programu. Zdefiniowanie jednostek 
powoduje wyświetlenie osi wraz z po- 
działką, co ułatwia orientację figur na ek- 
ranie. Zakończenie definiowania poje- 
dynczej figury dokonuje się poprzez 
wprowadzenie punktu o współrzędnej 
x = 998 oraz dowolnej wartości współ- 
rzędnej y. 

Poniżej zamieszczamy przebieg i obsłu- 
gę operatorską programu: 


Operacja 

Wprowadzić ilość jednostek, maksymal- 
nie 30, która ma być odmierzona na osi y. 
Wprowadź w stopniach kąt obserwacji 
(perspektywę). 

Wprowadź, w jednostkach wysokość de- 
finiowanej figury. 

Wprowadź współrzędne (x, y) pierwsze- 
go punktu definiowanej figury. 

Wprowadź współrzędne (x, y) kolejnego 
punktu definiowanej figury lub współ- 
rzędne kończące definiowanie figury. 
Wprowadzenie litery: ,t" — zobrazowa- 
nie trójwymiarowe, — powrót do ko- 
munikatu 3. 

Wprowadzenie litery: J * — powrót do 
zobrazowania dwuwymiarowego i ko- 
munikatu 3. 

Wprowadzenie litery: ,t” — następni 
komunikat, J4" — komunikat 12. 
Wprowadź kąt obserwacji w stopniach. 
Wprowadź numer figury wynikający z 
kolejności definiowania. Numer większy 
niż liczba zdefiniowanych figur powo- 
duje wyświetlenie zmodyfikowanego 
zobrazowania trójwymiarowego i pow- 
rót do komunikatu 7. 

Wprowadź wysokość w jednostkach ry- 
sunku. Powrót programu do komunika- 
tu 1Ó. 

Wprowadzenie litery: „t" — realizacja 
programu od początku, J4” — zakoń- 
czenie działania programu. 

Zenon MAJCHRZAK 


io REHtttttmtmmtuuitumtmmtmmtm 

20 REMI I 

30 REMI 6RAN1AST0SLUPY t 

40 REMI • I 

50 REimmiiimittitiiiiiiimimimmmmit 

60 Din msd (501.2). rmso <S01,2.2).opis(S0.3> 

70 H0DE 1: INK 0.6: INK 1.13: INK 2. 1: INK 3.24 
80 B0RDER 0:PEN 1: PAPER 2 
90 CLS 

100 6RAPHICS PAPER 1:REH Tlo orafiki 

110 0RIBIN 0,16 

120 CLEAR INPUT 

130 HIND0N 1.40,25.25 

140 i kz=0 

150 INPUT"Poda j ilosc jednostek Msp. y-sax.30";skal 
160 IF skal >30 THEN GOTO 150 
170 skal=384/skat 

180 G0SUB 1 180: REH Rysowanie współrzędnych 
190 i 1=1 
) j*0 

210 INPUT"Kat obserwac j i * ; ak 

220 ak=aktPI/180 - 

230 INPUrNysokosc.fi 9 ury*;z 

240 z=ztskal 

250 opisti 1. l)=z 

260 INPUT "Pi er wszy punkt”;x,y 

270 GOTO 300 

280 INPUT’Nastepny punkt’sx,y 
290 IF x >998 THEN GOTO 360 
300 j«j+l 

310 IF j>1000 THEN GOTO 360 
320 wsp ( j . 1 ) »x Iskal : wsp I j ,2>=vtskal 
330 60SUB 1060: REN Rysuj odcinek 
340 ikz«l 
350 60T0 200 
360 ikz=0 


390 IF nkt^r THEN GOTO 440 
400 IF nk*«V THEN GOTO 420 
410 GOTO 380 
420 i l*i 1+1 
430 GOTO 230 
440 CL6 1 
450 nf=l 

460 FOR kkk*l TO il 
470 z=opis(kkk,l) 

480 i=opis(kkk,3> 

490 cak*C0S(ak) 

500 sak=SIN(ak) 

510 FOR k=nf TO i 

520 nwsp ( k , 1, 1 ) -wsp (k , 1 ) +wsp ( k , 2) tcak 
530 nwsp(k,2.1)=wsp(k,2)tsak 
540 nwsp (k, 1 , 2) s nwsp (k, 1,1) 

550 nwsp (k.2,2)=z+nwsp (k,2, 1) 

560 NEIT k 
570 FOR 1*1 TO 2 
580 FOR k=nf TO i*t 
590 x=nwsp (k , 1 , 1 ) 

600 y=nwsp (k,2, 1 ) 

610 x l=nwsp <k+ł , 1,1) 

620 vl s nw5p (k+1 , 2, 1 ) 

630 G0SUB 1110 
640 NEIT k 
650 NEIT 1 
660 FOR k=nf TO i 
670 x=nwsp(k, 1. 1) 

680 y=nwsp(k,2.1) 

690 xl=nwsp(k, 1,2) 

100 yl*nwsp(k,2,2) 

710 G0SUB 111Ó 
720 NEIT k 
'730 nf=i+l 
7 40 NEIT kkk 

750 INPUTtDorysowywanie figur (t/n)';nk* 

760 IF nk*=T THEN 60T0 790 

770 IF nk*=V THEN GOTO 830 

780 GOTO 750 

790 G0SUB 1180 

800 G0SUB 1400 

810 i!*il+l> 

820 GOTO 230 

830 INPUT’Edycja (t/n)‘:nk* 

840 IF nk$=’t* THEN GOTO 910 
850 IF nki =, n‘ THEN GOTO 870 
860 GOTO 830 

070 INPUT’Poczatek prograeu (t/n)'snk* 

880 IF nkl=T THEN GOTO 70 
890 IF nkS=’n‘ THEN 60T0 1530 
900 GOTO 870 

«10 INPUT-Kat obserwacji ’;ak 
920 ak=aktPI / 180 
930 INPUT*Podaj nr figury’;nr 
940 IF opi s (nr . 3ł =0 THEN GOTO 440 
950 INPUrNowa wysokosc':z 
960 opis(nr,l)=ziskal 
970 GOTO 930 

980 ren mutmumtttttmmmmttutmtut 
990 REH I 1 

1000 REHt PODPROGRANY I 

1010 REHt I 

1020 RENutitmmttmttmmttmmtmmtm 
1030 REH 

1040 REH Rysowanie definiowanego odcinka 
1050 REH . 

1060 GRAPHICS PEN 3: REH Stare współrzędne Ł 

1070 IF ikz=0 THEN PLOT wsp(j,l),wsp(j,2) ▼ 
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1080 DRAM «*sp( j, 1) ,wsp( j,2) 

1090 RETURN 
1100 REN 

1110 REN Rysowanie krawędzi graniastoslupa 
1120 REN 

1130 GRAPHICS PEN 0: REN Nowe współrzędne 

1140 PLOT x. y 

1150 DRAŃ xl. yl 

1160 RETURN 

1170 REN 

1180 REN Rysowanie układu współrzędnych 
1190 REN 
1200 CL6 1 

1210 GRAPHICS PEN 3: REN pioro współrzędnych 

1220 PLOT 0,400 

1230 DRAŃ 0,0 

1240 DRAŃ 640,0 

1250 wy=400/skal 

1260 **x=640/ skal 

1270 sk=skal 

1280 FOR i i=l TO wysREN Podzialka y 

1290 PLOT O.sk 

1300 DRAŃ 4, sk 

1310 sk=sk*skal 

1320 NETT ii 

1330 sk=skal 

1340 FOR i i=i TO wx:REN Podzialka x 

1350 PLOT sk,0 

1360 DRAŃ sk, 4 

1370 sk=sk+skal 

1380 NEXT ii 

1390 RETURN 

1400 REN 

1410 REN rysowanie pierwotnego obrazu 
1420 REN. 

1430 lx=l 

1440 FOR kk=l TO il 

1450 k 1 =op i s ( k k , 3 ) : REN Ilosc punktów figury 
1460 PLOT wsp(lx, 1) ,wsp(lx,2) 

1470 FOR px*=lx TO kl-1 

1480 DRAŃ wsp(pxłl,l),wsp(pxłl,2) 

1490 NEXT px 
1500 lx*kl+l 
1510 NETT kk 
1520 RETURN 


1523 

1530 

1540 

1550 

1560 


NINDON 1,40,1.25 

CLS 

CL6 1 

END 


REM ** 


** 

REM # 


* 

REM « 

BOMBARDOWANIE 

* 

REM * 

ZK-81 

# 

REM # 
REM ** 


* 

*# 


7 LET E=0 

8 LET F=0 

9 LET C=RND*15+5 
18 LET D=RND#8+28 

15 PRIHT AT 19,C;"M" 

28 PRINT AT 19, Dj'®' 

25 IMPUT AS 
38 FOR A=0 TO 27 
32 PRIMT AT 0,A-ij" 

TAB A+lj" *' 

35 PRINT AT 0, A;" k.4. "J TA 
B A^;"*" 

48 IF INKEYSO"" THEM 605U 

B 100 

58 MEKT A 

180 FOR B=2 TO 19 

105 PRIMT AT B-l,A+3;" " 

110 PRIMT AT B f At3; ,, . ,, 

115 IF B=19 THEMfPRIMT AT 
B^łS;*'#" ' 

120 MEKT B 
130 RETURN 


Procedura GAUSS 

KRZYSZTOF POŹNIAK 

procedura rozwiązuje układ rownan liniowych n-tego rzędu, 
nagłówek funkcji: int gauss (n , a , b, x ) 

gdzie:, n-stopien równania: . int n; 

a-tablica współczynników: float alnj(nj; 

b-tabl ica. wyrazów wolnych: float b(nj ; 

x-tablica wektora niewiadomych: float xlnj; 

V 

fpinclude <stdlib.h> 

void main() /"program testowy*/ 

tfdefine stopień 40 /"przykładowy stopień maksymalny*/ 
i 

int n; /"przykładowy stopień rzeczywisty*/ 
int y,xł; 

double a I stopień J I stopień J , b I. stopień J , x I stopień] , zmpom ; 

do 

{ 

ho 

1 

printf ( “poda j stopień układu <l,TLd>: n=" , stopień J ; 
s.canf ( "%d“ , dyn > ; 
printf ("\n" ) ; 

> 

wh i 1 e (. n < 1 i I n > 40 j ; 

/"tworzenie tablicy ąlJl.l, przy pomocy 
generatora liczb pseudolosowych* / 

for(y»0 ;y<n;y++) 

zmpom*0 . O ; 

for(xl»0;xl<n;xl++) 

i 

a l.y J lxl J =random( 100 ) ; 
zmpom=zmpom+a ly I Lxl I * ( l+xl > ; 

> 

b ly I *zmpom ; 

) 

print t ( "rozwiazywanie\n " ) ; 
lf (gauss(n,a,b,xi ) 
i 

printr t “układ rozwiązany: \n" ) ; 
torty=0;y<n; ) 

printf ( " x • %d.j »%f \n" , ++y , x ly J ) ; 
f 

el se 

print f ( “brak rozwiazan\n" ) ; 
printt(“czy dalej testujesz.' (t/n)\n“); 

> 

whi le(getchU== ’ t ’ ) ; 

) 

gaussCn, a , b, w) /"procedura rozwiązywania układu 
n-rownan liniowych metoda 
eliminacji Gaussa */ 

int n; # 

double alstopienj IstopienJ .bl.stopienj .wl.stopienj ; 
int k,x,y,wspx,wspy,przes IstopienJ ; 
double zmpom; 

for(y-0;y<n;y++) 
pjrzes lyj-y; 
for(k«0;k<n;k++j 
i 

zmpom=u . O ; 
tor(y=k;y<n;y++ ) 
f or ( x=k ;.x<h ; x ++ ) 

{ 
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itlabs(aiy) ixj )>zmDom) 

i 

zmpom=abs(a ty] lxj ) ; 
wspy»y ; 
wspx=x ; 

. > 

) 

if ( zmpom=»0 . O ) 
return(O) ; 
else 

for (x=k;x<n;x++) 

( 

zmpom=a IK J l.x J ; 
a lk.1 lxl «a [wspyj L x J ; 
alwspyj lxJ=zmpom; 

} 

zmpom*b l.kj ; 
blk.l ablwspyj ; 
b [wspyj =zmpom; 
for (y»0 ;y«n;y++) 

{ 

zmpom=a l.yj l.kj ; 


My j lk.1 =a ty i |wspxj ; 
a l.y J |.wspx l =zmpom ; 

) 

zmpom=przes l kj ; 
przes | k I =przes | wspx I ; 
przes I wspx .1 -zmDom ; 
for (y*k+i ;y<n; v++) 

zmpom=a l.yj Ikj /a l.kj Ikj ; 
tor (x=k+l ;x<n;x++) 

a l.y J I xj-=a Ikj (x J *zmpom; 
blyj-=blkl *zmpom; 

> 

> 

for (y»n-l ;y>»0;y — ) 

{ 

zmpom=0 ; 

for (x=y+l ;x<n;x++) 

zmpom+=w Iprzes l.x J J *a l.y] |.xj ; 
wlprzeslyj J = (b ly.l -zmpom) /a [yj tyj ; 

} 

return( 1 ) ; 
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INFORMATYKA W SZKOLE 


PROFESJONALNE 

KOMPUTERY 

(materiały do podstaw informatyki część 5) 

Poznane dotychczas „cegiełki gmachu”, powiedzmy „al- 
tanki" naszej wiedzy informatycznej, to już w zasadzie cały 
komputer. Wiemy bowiem co to jest pamięć, procesor, 
program, urządzenia wejścia/wyjścia. Nie są nam obce 
takie pojęcia jak bit, bajt i inne wymyślne słowa typu RAM, 
tlop, ploter. Informacje te miały charakter uniwersalny, do- 
tyczą bowiem w zasadzie wszystkich komputerów. Po- 
cząwszy od domowych poprzez personalne do dużych 
maszyn. Wszędzie mamy do czynienia ze sprzętem (pa- 
mięci, procesory, drukarki, monitory, itp.) oraz z oprogra- 
mowaniem (algorytmy, języki, instrukcje). Sądzę, że uni- 
wersalność owa długo będzie się broniła przed nieustan- 
nym postępem technologii. Szybkiej modyfikacji ulegają 
bowiem głównie parametry sprzętu informatycznego, a nie 
istota jego konstrukcji i użytkowania. Podobnie sprawa 
wygląda w kwestii oprogramowania. Nadal informacje mu- 
szą być wprowadzane do komputera, tam przetwarzane i 
następnie wyprowadzane w czytelnej (zazwyczaj), dla nas 
użytkowników, formie. 

Oczywiście zmienia się zakres i sposób wprowadzania 
informacji do komputerów, szybkość przetwarzania oraz 
sposób prezentacji wyników. Programy są coraz łatwiejsze 
w eksploatacji, ich użytkownikami stają się przedstawiciele 
niemal wszystkich zawodów, także i dzieci. Maszyny 
wspomagają pracę księgowego, „tworzenie" gazety, sa- 
mochodu i butów, lecą w kosmos i malują obrazy, bawią i 
uczą. Eksplozja zastosowań komputerów wydaje się nie 
podlegać żadnej ogólnej prawidłowości. Po prostu jak 
ogień pochłania wszystko wokoło. Nienaruszone pozostają 
tylko stare (najczęściej) twarde kamienie i inne głazy... 

Jednak nadal niezmiennie komputer odbiera informacje 
(gdy my tego chcemy, a nie maszyna), przetwarza je i wy- 
prowadza efekty swojej pracy. Kolejność^ tych czynności 
(WPN — Wprowadzanie, Przetwarzanie, Wyprowadzanie) 
jest taka sama w Spectrum, Amstradzie, Commodore, Ata- 
ri, a także gdy korzystamy z mikrokomputerów klasy IBM 
PC. 

Komputery IBM PC są najbardziej reprezentatywnym 
tworem informatyków ostatnich 20 lat. Im poświęcimy za- 
tem nieco więcej uwagi. Stanowią' one bowiem pewien 
ogólnoświatowy standard komputerów osobistych, które 
przeznaczone są do zastosowań zawodowych. Stosunko- 
wo niska cena tego sprzętu, a co najważniejsze całkowita 
autonomia działania, stworzyły sytuację dotychczas nie- 
możliwą do osiągnięcia — „SŚ" — „Święty Spokój". Ozna- 
cza to, że komputer ten możemy sobie włączyć w dowolnej 
chwili, a co najważniejsze, gdy jesteśmy sami (SŚ!). Nikt 
nie podgląda naszych (często nieudolnych) zmagań z kla- 
wiaturą, popełnionych błędów. Maszyna ma „anielską 
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cierpliwość" niemal jak papier, który przecież nigdy nie pro- 
testuje, nawet gdy piszemy na nim brzydkie słowa. Pozor- 
nie tylko jestem daleki od tematu, pragnę bowiem zwrócić 
uwagę na „intymność" naszego kontaktu z komputerem. 
Odpada ogromna bariera, tak wielka jak z Ciechocinka do 
Legionowa, wstydu, nieśmiałości, obawy przed kompromi- 
tacją. Nikt nie śledzi naszej mozolnej nauki. Potem możemy 
śmiało powiedzieć — „komputer? Przecież to bardzo pro- 
ste. Posiedziałem dwie godziny i wszystko jasne!" By po- 
pracować te kilka nocy nie potrzebowaliśmy żadnego 
personelu technicznego, operatorów (czytaj — świadków), 
zgody, przełożonych — po prostu pstryk i komputer jest 
TWÓJ. Wszystko to stało się dzięki „PCtom" — personal- 
nym komputerom, których parametry noszą pewne zna- 
miona profesjonalizmu (jak na razie). Oznacza to po prostu, 
iż ich szybkość, pamięć, są dostatecznie duże, by w każdej 
szkole lub małym przedsiębiorstwie można je było efek- 
tywnie wykorzystać. Szczęśliwie się stało, że PCty stano- 
wią pewien standard, który jak już kiedyś wspomniałem, 
pozwala nan „pożyczać" napisane w Meksyku programy i z 
powodzeniem je wykorzystywać w ciechocińskim liceum 
podczas zajęć z podstaw informatyki. Po prostu komputery 
te, podobnie jak samochody, którymi każdy (prawie każdy) 
może jeździć, mają od lat niezmienną konstrukcję (silnik, 
cztery koła, piąte przed siedzeniem kierowcy, a szóste w 
bagażniku). Natomiast mikrokomputer IBM PC ma płytę 
główną, kilka kart rozszerzających możliwości komputera, 
dysk twardy, flop, zasilacz, monitor i klawiaturę. Ten nad- 
zwyczajny twór geniuszu ludzkiego powstał stosunkowo 
niedawno (na pewno -za życia każdego z czytających te 
słowa) bo w 1 981 roku. Początkowo traktowany nieufnie, „z 
rezerwą", obecnie stanowi niekwestionowany światowy 
standard mikrokomputera personalnego o ogromnym 
oprogramowaniu użytkowym (kilkadziesiąt tysięcy) — sta-/ 
nowić to będzie przedmiot naszego odrębnego spotkania. 

O tym, że komputery IBM są nie tylko bardzo popularne, 
ale także nadzwyczaj opłacalne w produkcji szybko zorien- 
towali się „ludzie interesu" na Dalekim Wschodzie. Przyj- 
rzeli się dokładnie owej „maskotce madę in USA", zakupili 
nieco technologii i... rozpoczęli produkcję własnych PCtów 
(„klonów", „komputerów kompatybilnych"), które wcale nie 
są gorsze od, o wiele droższych, oryginałów zza Oceanu. Z 
zapartym tchem słuchałem wrażeń kolegi z podróży (służ- 
bowej) do Singapuru i Tajwanu, który widział tamtejszą 
produkcję, kontrolę jakości i „dodatki” do PCtów. Zbudo- 
wano tam takie karty rozszerzające do IBMów, których w 
Ameryce nigdy wcześniej nie produkowano. Przykładem 
mogą być karty doskonałych skanerów, układy współpracy 
z innymi urządzeniami, np. z instrumentami muzycznymi 
lub z monitorami ogromnej rozdzielczości. Ten fajerwerk 
pomysłów (praktycznie zrealizowanych!) ściągnął do Sin- 
gapuru przedstawicieli zza Oceanu (do górnej połowy jed- 
nej ze stupiętrowych „pagód"), którzy patrzą bardzo uważ- 
nie co też tam ONI robią? 

Podobno następca IBM PC — PS/2, nowe dziecko 
IBM'a ma być między innymi sposobem na oderwanie się 
od dalekowschodniej konkurencji. Wynika to z nadziei, że 
z PS/2, klona nie da się zrobić (?). 

Jakkolwiek by było, IBM PC jest standardem i pozostanie 
nim w naszych warunkach zapewne jeszcze ładnych parę 
lat. Nie uda się nam zatem uniknąć tego tematu. Co to jest 
IBM PC? Pudło, dokładnie pudło wielkości małej walizki 
(lub jak kto woli dużej teczki) z jednym, czasami dwoma lub 
trzema pstrykami i parą lampek. To wszystko. Nierozerwal- 



NFORMATYKAW SZKOLE 


ne Uzupełnienie naszego pudełka stanowi monitor (znany!) 
i klawiatura (też znana!). W owym opakowaniu mieszczą 
się wspomniane wcześniej składowe: 

P — płyta główna (systemowa, „matka"), 

K — karty rozszerzające, 

C — dysk twardy (winchester), 

A, B — dysk elastyczny (jeden lub dwa), 

Z — zasilacz (1 30—200 W). 

Poza włącznikiem zasilania pozostałe „pstryki", to 
czasami instalowany przełącznik szybkości pracy kompu- 
tera, a dokładniej zegara, który „napędza" procesor wolniej 
lub szybciej (turbo), na przykład 4,77 MHz lub 8 MHz. Inny 
„pstryk", to także tylko czasami instalowane, zerowanie 
procesora. Natomiast lampki najczęściej sygnalizują stan 
dysku twardego (pracuje czy nie) oraz wybraną szybkość 
pracy komputera (turbo czy normalną). 

Płyta główna usytuowana jest w pozycji horyzontalnej 
na dole naszego pudła. Zamontowano na niej same ważne 
elementy: procesor (8088 dla PC XT, 80286 w PC AT), 
kostki pamięci: RAM (od 512 KB doi MB w komputerach 
XT do kilku megabajtów w AT, ROM — zazwyczaj z in- 
terpreterem BASICa oraz BIOS'em (podstawowymi pro- 
gramami obsługi urządzeń zewnętrznych, w PC AT BIOS 
pamiętany jest w wyróżnionej, zasilanej bateriami, dlacze- 
go?, pamięci RAM), gniazda szczelinowe (na rysunku 
oznaczone są G1 — G5) — najczęściej jest ich od 5 do 8. 
Wkłada się do nich (pionowo) karty rozszerzające. 

Na płycie głównej jest także bateryjny zegarek, który 
można regulować i odczytywać programowo. Zainstalo- 
wano tam także jeszcze kilka kostek dbających o współ- 
pracę z pamięciami masowymi (dyski) i urządzeniami ze- 
wnętrznymi. Jest także głośnik, który podobnie jak zegar 
obsługiwany jest programowo. 

Wymienione elementy są w zasadzie niezmienne (jak 
silnik w samochodzie) i w znacznym stopniu decydują o 
parametrach komputera. Mówiąc o „silniku” warto zwrócić 
uwagę na „przyspieszenie" różnych typów — układy mik- 
roprocesorowe (.RISC). Po zamocowaniu w specjalnym 
gnieździe płyty głównej, powodują one znaczne zwiększe- 
nie szybkości działania komputera. Na przykład stosując 
NDP — 80-bitowy procesor! można nawet 100-krotnie 
przyspieszyć wykonywanie niektórych działań matematy- 
cznych. Należy podkreślić, iż omawiany efekt nie ma nic 
wspólnego z pracą „turbo", są to dwa odrębne sposoby 
skracania czasu wykonywania przez komputer operacji. 

Pozostałe składowe IBM'a PC można w ciągu kilku minut 
wymienić (po prostu wyjąć i włożyć nowe, lepsze jak aku- 
mulator lub świece w samochodzie). Dotyczy to także 
twardego dysku, który zamocowanyjest do obudowy kil- 
koma śrubkami, a łączy go z maszyną parę przewodów 
(pasm). Podobnie rzecz się ma z flopami. Przy okazji oma- 
wiania dysków, warto pamiętać, że w zasadzie „dysk 
twardy” oznacza sam nośnik informacji — talerze (krążki) 
pokryte odpowiednim materiałem. Także „dysk elastyczny", 
to nośnik (dyskietka), a nie urządzenie. Stąd też poprawcie 
należy mówić napęd dysku twardego/elastycznego. 

Zatrzymajmy się chwilę dłużej przy kartach rozszerzają- 
cych. Na każdej z nich mieści się ponad setka układów 
scalonych (lub mniej, są karty duże i małe), które sterują 
pracą. napędów (są to tak zwane kontrolery), monitorów 
(adaptery) oraz wykonują wiele innych funkcji, na przy- 
kład komunikowanie się z otoczeniem za pośrednictwem 
tak zwanych portów. Do nich to wpływają i wypływają „to- 



wary" w postaci informacji. Jeśli port jest „wąski” — po- 
średniczy w przesyłaniu informacji jedna za drugą („gęsie- 
go") jest to port szeregowy. Porty te obsługują urządzenia 
stosunkowo wolne, między innymi myszy (znane!). Gdy in- 
formacje muszą przepływać szybko — „osiem szeregów 
jednocześnie" stosowane są porty równoległe. Najczęściej 
dopina się dó nich drukarki. 

Na kartach rozszerzających montowane są najróżniej- 
sze urządzenia, które umożliwiają podłączanie kamer 
(skanery), mikrofonów, głośników (synteza dźwięków 
mowy ludzkiej), linii telefonicznej (do łączenia się z innymi 
komputerami — do tego rozwiązania jeszcze wrócimy). 
Wśród wielu innych typów kart wyróżniane są karty grafi- 
czne, które stanowią elektronikę do monitorów. Zważywszy 
na fakt, iż obraz na monitorze komputera jest podstawo- 
wym pośrednikiem informacji przekazywanych przez ma- 
szynę człowiekowi, karty graficzne zasługują na szczegól- 
ną uwagę. Od nich zależy między innymi jakość obrazu, 
która ma istotny wpływ na efektywność (także komfort) ko- 
rzystania ze sprzętu informatycznego. Wyróżniane są dwa 
umowne typy kart: do monitorów monochromatycznych 
oraz do kolorowych. 

Karta o sympatycznej nazwie HERCULES pozwala two- 
rzyć na ekranie monochromatycznego monitora obraz 
składający się aż z 720 razy 348 pikseli. Ta imponująca 
rozdzielczość maleje nieco w „kartach kolorowych”. Karty 
te po ich zainstalowaniu w komputerze (włożeniu do gniaz- 
da), umożliwiają korzystanie z monitorów kolorowych. Na 
przykład karta CGA wyróżnia 640 X 200 pikseli (gdy wyko- 
rzystywane są tylko dwa kolory), 320 X 200 (cztery kolory). 
Gdy wyświetlamy tekst: 25 wierszy po 80 znaków każdy, 
dostępne jest 1 6 kolorów. Znacznie lepsze parametry kolo- 
rowego obrazu gwarantuje .użycie, obecnie bardzo pow- 
szechnej karty EGA. Obraz tworzony przez tę kartę zbudo- 
wany jest z 640 X 350 pikseli dla 1 6 kolorów! 

Zważywszy na rangę grafiki komputerowej, należy zwró- 
cić uwagę, że dostępny jest szereg innych kart wraz ze spe- 
cjalnymi monitorami, które mają o wiele lepsze (od typo- 
wych) parametry (oczywiście poza ceną, która jest gor- 
sza). Są to’ karty do zastosowań profesjonalnych. Na przy- 
kład karta PGC pozwala operować 256 barwami z palety 
4096 kolorów, przy czym rozdzielczość wynosi 640 X 480 
pikseli, karta GS-1 280 gwarantuje rozdzielczość 1 280 X 960 
pikseli plus 1 6 barw z palety 4096 barw, natomiast GS-800 
ma nieco niższą rozdzielczość: 800 X 600 pikseli, ale sprzęt ^ 
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ten pozwala malować obrazki korzystając z 256 barw wy- 
branych z palety... 16 milionów barw! 

Kończąc temat „karty rozszerzające”, chcę zwrócić 
uwagę na oryginalny typ pamięci dodatkowych, pamięci, 
które nazywane są RAMdysk. Sama nazwa wskazuje istotę 
owej konstrukcji. Na karcie zainstalowano bowiem pewną 
liozbę kostek pamięci typu RAM, które komputer, dzięki 
specjalnemu oprogramowaniu, widzi jako dodatkową 
umowną pamięć dyskową o niebagatelnej pojemności wie- 
lu megabajtów. W pierwszej chwili pojawiają się wątpli- 
wości — po co komu taka pamięć, która zaraz po wyłącze- 
niu komputera gubi wszystkie zapisane tam wcześniej in- 
formacje? Bywa, iż podczas pracy program bardzo często 
wykorzystuje (odczytuje lub zapisuje) dane zapisane na 
dysku twardym. Czas odszukania każdej informacji wynosi 
około 20 milisekund, to jest 0,02 s (bardzo dobry dysk). Je- 
śli jednak wcześniej niezbędne nam dane przepiszemy do 
RAMdysku, nasz program będzie wyszukiwał potrzebne 
mu dane wiele tysięcy razy szybciej, czas dostępu w pa- 
mięci RAM wynosi bowiem około 200 nanosekund, to 
jest 0,0000002 s. Imponujące, prawda? 

Efektem walki o szybkość pracy komputera jest IBM PC 
AT. Różni się on od XT znacznie lepszym mikroproceso- 
rem i nowocześniejszymi układami scalonymi (szczegóły 
sobie podarujemy). Ważne jest także to, iż AT „widzi" zna- 
cznie większą pamięć RAMowską riiż komputer klasy XT. 
Bardziej dociekliwym czytelnikom pragnę zwrócić uwagę, 
że problem owego „widzenia większej pamięci” wiąże się z 
liczbą „drutów" (tak zwana szyna adresowa), które można 
podłączyć do mikroprocesora. Na nich podawana jest in- 
formacja (oczywiście w kodzie binarnym) o adresie wyró- 
żnionej części pamięci RAM. IBM PC AT ma tych „drutów" 
aż 24, XT natomiast tyle, iż można adresować zaledwie 
1 024 KB (zadanie domowe: ile bitów ma adres w XT?). 

Mówiąc o różnicach między komputerami XT a AT nale- 
ży wspomnieć o napędach dysków elastycznych. W IBM 
PC AT zainstalowano bowiem nieco precyzyjniejsze napę- 
dy, które umożliwiają zapisywanie (odczytywanie do 1,2 
MB na jednej dyskietce). Najczęściej w praktyce XT ma je- 
den lub dwa napędy flopów 360 KB, natomiast AT jeden 
napęd 360 KB i jeden 1 ,2 MB. 

Bardzo istotne uzupełnienie podanych informacji o kom- 
puterach IBM PC powinien stanowić opis oprogramowa- 
nia. Ono także zadecydowało, w stopniu porównywalnym 
do sprzętu (a może nawet większym) o użyteczności tej 
klasy maszyn. Temat ten pozostawmy sobie jednak „na 
potem". 

Komputery personalne, PCty, są bardzo dobre dla zasto- 
sowań o stosunkowo niewielkich „wymaganiach". To zna- 
czy takich, gdzie ilość przetwarzanych informacji jest nie- 
wielka (np.: szkoła, mała firma, dom...). Wobec tego stwier- 
dzenia można by sądzić, że rozwiązaniem może być (dla 
nieco większej fabryki) kupienie następnego PCta, może 
dwóch, dziesięciu... Okazuje się to nie takie proste. Naj- 
częściej bowiem przetwarzane dane są wspólne dla róż- 
nych użytkowników w tej samej firmie. Efekty pracy na jed- 
nym komputerze powinny być natychmiast dostępne na 
innym. Odpowiedzią na ten zarzut może być połączenie 
komputerów między sobą — tworzące tak zwaną sieć. Za- 
tem aktualizując listę pracowników na komputerze zainsta- 
lowanym w kadrach (Abackiego w końcu wyrzucili z pra- 
cy), informacje te, przez sprzęgający (łączący) komputery 
„drut" dostępne są natychmiast w maszynie eksploatowa- 
nej przez finanse (Abackiego skreślić z listy płac). 


Co zatem ostatecznie decyduje o potrzebie budowy 
większych komputerów? Odpowiedź jest niezmienna — 
zbyt mała moc tej klasy sprzętu. Oznacza to, że PCty po- 
trzebują zbyt dużo czasu na wykonywanie prostych opera- 
cji arytmetycznych na dużych zbiorach danych. Szybkość 
nawet kilku milionów operacji na sekundę okazuje się nie- 
wystarczająca. Ma to miejsce W każdym poważnym zasto- 
sowaniu, gdzie liczba przetwarzanych informacji jest ogro- 
mna. Dotyczy to między innymi: wspomagania prac kons- 
trukcyjnych (mostów, samolotów, samochodów, itp.), ba- 
dań nad nowymi lekami, obsługiwania baz danych (do- 
stępnych w sieciach komputerowych), tworzenia specjal- 
nych efektów do filmów i oczywiście nie można pominąć 
prac nad sztuczną inteligencją. Służą temu tak zwane su- 
perkomputery. Jest oczywiście pośredni sprzęt w postaci 
minikomputerów, np.: WANG, pozostańmy jednak przy gi- 
gantach. Najbardziej znane to wytwór Seymour'a Cray'a: 
komputery CRAY1, CRAY2, CRAY X-MP, CRAY Y-MP 
oraz superkomputery (z innej „stajni") serii ETA. Wszystkie 
je łączy ogromna moc obliczeniowa. Wyraża' się ją liczbą 
operacji na sekundę, ale operacji szczególnych — bardziej 
złożonych, tych które wykonywane są na tak zwanych licz- 
bach zmiennoprzecinkowych. Dzięki logarytmicznemu za- 
pisowi (cecha i mantysa) liczby te zapisywane są w bardzo 
ekonomiczny sposób. Ideę tę prezentuje następujący 
przykład: aby zapisać liczbę 1 000 000 musimy wykorzy- 
stać 7 znaków, lub... tylko trzy znaki — 1 .6, gdzie 1 oznacza 
wartość, a 6 liczbę zer. W praktyce jest to oczywiście bar- 
dziej złożona operacja, którą stosuję się zresztą także w 
kilku krajowych pokoleniach komputerowych. 

Typowa szybkość superkomputera — to miliardy FLOP- 
Sów — operacja na liczbach zmiennoprzecinkowych. 
Oczekuje się już wkrótce, że jeden superkomputer (jest ich 
na świecie około 300) zastąpi 1 0 milionów PCtów. Obrazu- 
je to skalę mocy obliczeniowych, które mimo wszystko 
okazują się nadal, dla części użytkowników, zbyt małe. 
Proste przeliczenie dowodzi, że superkomputer wykonuje 
jedną operację w czasie, gdy światło ppkona odległość 
równą zaledwie kilku centymetrom! 

Podarujemy sobie oczywiście próbę analizy budowy te- 
go sprzętu, aczkolwiek warto wiedzieć, że komputery tego 
typu muszą być podczas pracy chłodzone, a ogromne (co- 
raz większe) szybkości uzyskuje się przez wykorzystywa- 
nie wielu, pracujących równolegle, procesorów, Wydaje 
się, że sprzęt ten znacznie przybliża moment, gdy komputer 
poza „mocą" dysponował będzie inteligencją o której do- 
tychczas poważnie pisali tylko autorzy opowiadań fanta- 
stycznych. 

Póki co wracamy do naszych PCtów, ich oprogramowa- 
nia, ale to już podczas naszego kolejnego spotkania. 


Warszawa 18 grudnia 1988 
Włodzimierz GOGOŁEK 
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Moc w obwodach prądu sinusoidalnego 


Poniższy program może być wykorzysty- 
wany w zajęciach dydaktycznych z elektro- 
techniki w szkołach ponadpodstawowych i 
pomaturalnych o profilu elektrycznym oraz 
w zajęciach dydaktycznych z fizyki w szko- 
łach średnich. 

Z praktyki wiadomo, że wiadomości, dla 
zobrazowania których należy posłużyć się 
wykresami zawierającymi wiele krzywych w 
funkcji tej samej zmiennej, przekazywane 
przy wykorzystaniu rzutnika są mało czytel- 
ne. Zastosowanie komputera pozwala na 
rysowanie wykresów etapami (kolejne cha- 
rakterystyki) i ich wzajemne nakładanie się. 
Uzyskuje się przez to możliwość śledzenia 
przebiegu powstawania każdej z charakte- 
rystyk i łatwo można wówczas zrozumieć 
występujące zjawiska fizyczne. Konstrukcja 
programu umożliwia zobrazowanie przebie- 
gów czasowych mocy chwilowej w obwo- 
dach prądu sinusoidalnego zmiennego przy 
dowolnie założonym kącie przesunięcia fa- 
zowego pomiędzy prądem a napięciem, a 
zatem dla elementów idealnych i rzeczywi- 
stych (cewka indukcyjna kondensator, re- 
zystor). Założony kąt przesunięcia fazowego 
wprowadza się w linii 1 65 programu. 

W celu napisania programu należy w 
pierwszej kolejności wprowadzić do pamięci 
komputera podprogram 1 (linie 1000 do 
1260) i po uruchomieniu i sprawdzeniu za- 
pisać na taśmie magnetycznej lub dyskietce 
(komenda SAVE „mocs" SCREEN). Rysu- 
nek ten wywoływany jest później w progra- 
mie w linii 20. 

Program stwarza możliwość narysowania 
w trakcie jego realizacji 5 wykresów, które 
można wyświetlić w każdej chwili na ekranie 
monitora (linie 900—930). W tym celu nale- 
ży wprowadzić linię 1 REM i 35 dowolnych 
znaków. Następnie należy wykonać nastę- 
pującą procedurę: FOR i = 23760 To 
23794:READ k:POKE i, k: NEXT i : DATA 
33,88,1 47,24.1 3,33,88,1 74,24,8,33,88,201 , 

24.3.33, 88,228,1 7,0,64,26,78,1 1 9,1 21 ,1 8. 

35.19.122.254.91.32.244.201.33. Po wyko- 
naniu tego polecenia można przystąpić do 
zapisania właściwego programu (linie 
2-930). 

Po uruchomieniu i sprawdzeniu pra- 
widłowości działania należy program za- 
pamiętać (komenda SAVE „moc”). Linia 
925 (naciśnięcie klawisza p) pozwala 
powrócić do tej części programu, w któ- 
rej tworzone są wykresy i ponownie spo- 
rządzić ich nowe wersje. 

Eligiusz TARCZYŃSKI 



PODPROGRAM 1 


999 BORDER •« PAPER •« INK 7i CLS 

1SSS PLOT 9,9: DRAW 9,175* PLOT 9.87* DRAW 255.9 

ISIS PRINT AT 9,11'i'lAT 1,11'u'IAT 2. 1 1 "|»" I AT 12»311"t" 

1S2S LET y-87* LET w-4ePI/256 

1639 FOR x-9 TO 169 

1949 PLOT x > y+15eSIN <w*x> 

1959 PLOT xry+39*6IN <w«x-.25«PI> 

1969 PLOT >t»y+B8«SIN <w*x>*SIN (m«x- . 25*^1 > 

1979 NEXT x 

1989 LET t-44*C0S <.25*PI>+87 
1999 FOR a»9 TO 253 STEP 16 
1199 PLOT a.t* DRAW 8,9 
1119 NEXT a 

1139 FOR o-193 TO 177 STF.P 16 
1149 PLOT o.l+44r DRAW 8.9 
1159 NEXT o 

1169 FOR a-134 TO 177 STEP 16 
1179 PLOT a.t-44* DRAW 8.9 
1189 NEXT a 

1199 PLOT 175.1-44* DRAW 9.88* PLOT 174.161* DRAW 2.9* PLOT 173.169* DRAW 4.9* P 
LOT 173. t+2* DRAW 4.9* PLOT 174. t+1* DRAW 2.9: PLOT 174,1-1* DRAW 2.9: PLOT 173. 
1-2* DRAW 4.9* PLOT 173.76* DRAW 4.9* PLOT 174.75* DRAW 2.9 

1299 PLOT 294.87: DRAW 9.t-87: PLOT 293.88: DRAW 2.9* PLOT 292.89* DRAW 4.9* PLO 

T 292>t-2* DRAW 4.9* PLOT 293.1-1* DRAW 2.9 

1219 FOR a-87 TO 47 STEP -16 

1229 PLOT 16.a* DRAW 9.-8 

1239 NEXT o ■ 

1249 PLOT 16.54* DRAW 15.9* PLOT 17.53* DRAW 9.2* PLOT 18.52* DRAW 9.4 
1259 PLOT 39.159: DRAW 15.15: DRAW B.9J PLOT 117.57* DRAW 19.-19* ORAW 8.9* PLOT 
117.78* DRAW -42.-42* DRAW 29.9 

1269 PRINT AT 9.81 INUERSE 1 » » INUERSE SIAT 15»1I"*"?AT 16.111 INUERSE ll"i"l 
INUERSE 91 AT 16.171 INUERSE lł'u'1 INUERSE 91AT 4,22I"UI"1AT 9»ł2! "Ul" !AT 8.261 
~UIcot.ł"lAT 18.81 PAPER 21"pmux = Ul cos* + UI"IAT 20.81 PAPER 21"pmin - Ul cos* 
- Ul* 


PROGRAM WŁAŚCIWY 

. 2>CLEAR 37719* I.OAD *"M0C8'C0DE 37729*L0AD *'UDG.COD"CODE 
3 PAPER 6: INK 1* BORDER 4* CLS 
5 FOR 1-65394 TO 65394+63* POKE 1,7* NEXT i 

7 

8 INK 9* BORDER 1* CLS 

19 PRINT AT 8. 11 "PREZENTOWANY PROGRAM POZWALA PRZYSWOIĆ 80BIE ZAGADNIENIA 
DOTYCZĄCE WYDZIELANIA SI6 MOCY CHWILOWEJ W OBWODACH PRĄDU SINUSOIDALNIE 

ZMIENNEGO" * PAUSE 490 

12 CL8 s PRINT "Moc chwilowo w obwodach prądu sinusoidalnego definiowana jes 
t. jako iloczyn wartodci chwil owychnopięcia i prądu 

“I PAPER II INK 71" p - u i "1 PAPER 61 INK 91" 

Poniowui prąd i napięcie zmieniaj 

ą w funkcji czasu swą wartoóć bezwzględną jak równia* i znak, zatee aot chwilo 
wa także zmian i a się w czasie zarówno co da wartaftcl bazwzględnaj jak i co do 
znaku. " * PAUSE 9 

13 CLS * PRINT "Jeżeli u danej chwili znaki prądu i napięcia są zgodne 

wówczas "I INUERSE ll"p>9"ł INUERSE 91" - anargia jest dostarczana ze żró 

dła do odbiornika. Jeżeli natomiast znaki prądu i napięcia są pr 

zeciwne wówczas "1 INUERSE ll"p<9"l INUERSE 91" - energia junt zwracana z odblor 
nika do źródła. Zmiana znaku mocy chwilowej występuje tylko w ohwoda 

eh zawierających alamonty zachowawcze <L»C),"s PAUSE 9 

15 CLS , * PRINT 'W liniowym obwodzie elektrycznymwystępujące napięcie oraz prąd 
mają tę sumą częstotl iwo4ć lecz są pr zasunięte w fuzle o kąt f. Przyjmując faz 
q początkową prądu równą zero moi chwil.own 
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16 PRINT "wyniesie: "» P 

APER 1? INK 7? " p = u i = Umlm oin2*PI«f*t sin <2*PI*f *t-<f > " 

i PAPER A» INK 0?" Po przekształceniach s 

"I PAPER 15 INK 75 “p - Ul cotnf - Ul co«, ( 4«PI*ff 
5 PAPER A 5 INK 0!" przy czy*:" 

18 PRIN1 INUERSF lf"UI cos?"! INUFRSE 05" - składowa ot.nl a 

"5 INUERSF 15 "Ul cos <4*PI*N t-f > "I INUERSF 05" - składowa 
zmienna o częstotliwości. dwukrotnie większej od częstotliwości 

prądu i napięcia": PAUSE 0 

20 RANDOM I ZE USR 237 A0 

21 PAUSE 0 

22 t BORDER 0: PAPER 0: CIS : PAUSE 0 
40 LET s -=23755 

45 LET s*s+5s BORDER 0: PAPER 0: INK 7« CI.8 
50 PLOT 0 » 0 : DRAW 0,175 , 

55 PLOT 0.87: DRAW 255.0 
60 PRINT. Al O > 1 5 " i " 

Al PRINT AT 1.1 5 "i*" 

62 PRINT AT 2»lf"p" 

63 PRINT AT 12.315"t~ 

125 LET’ y“87 

127 LET w=4«PI/25A 

130 PRINT AT 17.275 FLASH 15"i(t>" 

, 1.40 KOR x=0 TO 254 
145 PLOT x»y+15*SIN' <w*x> 

150 NEXT x 

155 PRINT AT 17, 27 » " i <t> " 

160 PRINT A1 18.275 FLASH ir"u<t>" 


165 INPUT "Podaj kąt przesunięcia fazowego <f-...PI od -0.5 <lo 0.5 "5k 

166 IF k<-.5 OR k> .5 THEN GO TO 163 
168 GO 8UB 590 

170 FOR K-0 TO 254 

175 PLOT x»y+30*8IN <w*x4k*PI) 

180 NEXT x 

185 PRINT AT 10.275"u<t>r 

190 PRINT AT 19.271 FLASH 15"p<t>" 

195 FOR x-0 TO 254 

200 PLOT x.y+88»8IN (wsx>«SIN <w*x+k#PT> 

205 NEXT x 

210 PRINT AT 19.275"p <t> " 

215 PAUSE 0 

217 IF k>-.5 AND k< .3 THEN GO 8UB 600 

218 BORDER li PAPER 61 INK 0 

219 IF s-23780 THEN GO TO 900 

220 RANDOMIZE U8R •: CL8 1 PRINT AT 9»15"Dla zobrazowania przebiegów czasów 
ych o innych pru*etrach należy nacisnąć klawisz "5 INUERSE l!"T"5 INUERSE 05" 


ał 


natomiast nai 
lo programu" 

225 IF TNKEY6“"t" 
230 IF INKEY*-"n" 
235 GO TO 225 
500 -IF k— .5 THEN 
35'idaalnego kondor 


"5 INUERSE 1 5 *N" 5 INUERSE 05" zakończy dzi 


00 TO 900 


PRINT AT 18.35 PAPER 65 INK !5'Przebiegl czasowe dla "5AT 19 
isatora" 

505 IF k >- . 5 AND k<0 THEN PRINT AT 18,55 PAPER 65 INK 15"Przebiegi czasowe "5A 
f 19.55 "dla rzeczywistego " 5 AT 20,55" kondensatora 

SIO IF k-0 THEN PRINT AT 18,55 PAPER 65 INK 15'Przebiegi czasowe " 5 AT 19,55" 


dl 


18,35 PAPER 65 INK 15" Przebiegi czasowa 


5* 


rozystora 

515 IF k >0 AND_k< .5 THEN PRINT AT : 

IAT 19,35 "dla rzeczywistej cewki* 

520 IF k-.5 THEN PRINT AT 18.35 PAPER 61 INK 15"Przebiagl czasowe dla"5AT 19.3 
ideulnej cewki " I 

525 RETURN * 

600 LET t-44*C0S <k»PI)+B7 
605 LET tl-INT <t/8) 

610 FOR a-0 TO 253 STEP 16 
615 PLOT a » t : DRAW 8. 0 
620 NEXT a 

625 PRINT AT '(21-tl) ,265'UIcost" 

630 PAUSE 0 


635 RETURN 
900 PAUSE 0 
910 PAUSE 0 
915 PAUSE 0 
920 PAUSE 0 
925 IF INKEY*«"p" THEN 
930 GO TO 900 


RANDOMIZE U8R 23760 
RANDOMIZE USR 23765 
RANDOMIZE USR 23770 
RANDOMIZE USR 23775 
GO TO 40 


2 REM , ************** A * A A * 

3 REM * 

4 REM * TEST NA REFLEKS 1 

5 REM * ZX-8i 

6 REM * 

7 REM ******************* 

8 DIM A(4) 

9 LEI A=U 

10 FOR 1=1 TO 4 
20 PRINT 

25 FAST 

30 FOR J-l TO lOU^jMOflOO 
35 NEXT J 

37 IF INKEY$<s .> " " THEN GOTO 
37 

40 SLOW 

45 POKE 16437,255 
50 POKE 16436.255 
55 PRINT' "WCIŚNIJ TERAZ KLA- 
WISZ " 

60 IF INKEY$“ " " THEN GOTO 6 
0 

65 LET A ( I ) - l 255-PEEK 16437 
) *5+ ( 255-PEEK 1643o!/50 
67 IF A ( I ) >A THEN LET A-A(I 
) 

70 PRINT 

75 PRINT "S2YBKO0C REAKCJI " 
80 PRINT Ad):" SEKUND! " 

85 PRINT' 

90 PRINT "WCIŚNIJ ENTER " 

95 INPUT AS 
100 CLS 
105 NEXT I 
110 CLS 

115 PRINT "WYNIK" 

120 PRINT 

125 PRINT " TEST — > CZAS " 
130 POR 1=1 TO 4 
135 PRINT' I: " 

140 RUR J-l TO A(I) *30 STEF' 
32/ (A* 100) 

145 PRINT 'I": 

150 NEXT J 

155 PRIhrr - 

160 NEXT I j.j. 


REM ** 
REM * 
REM * 
REM * 
REM # 
REM ** 


OBCY 

ZK-8I 


15 PAUSE 50 
20 LET T=0 

30 LET H=INT(RND*7)*2 
40 LET X=1 
50 LET Y=X 
60 LET Z=H 
70 LET J=ll 
80 PRINT AT H+l.H-l;' 

90 PRINT AT Y,Z;'V 
100 IF H=Y AND X=Z THEN GO 
TO 280 

110 PRINT AT J,10; M ^ ai" 
115 PRINT AT J,li;"$k J" 
130 IF J=Y AND J=Z THEN PR 


INT T; 'MHHt OBCY Z NISZCZON 

£*** flłflffWlftlfcllfl 
G0V" 

135 IF J=Y AND J=Z THEN ST 
OP 

136 LET T=T+5 

140 IF W=Y AND X=Z THEN PR 
INT T; "*#* ZIEMIA ZNISZCZ 
ONA 

170 LET X=X+2*(INKEY$= ,, 8") 
-2*(INKEY$="5") 

180 LET H=H+2*CINKEY$="6") 
-2*(INKEY$="7") 

190 IF Y<H THEN LET Y=Y+1 
200 IF Y>H THEN LET Y=Y-1 
210 IF Y>M THEN LET Y=Y~1 
220 IF Z>X THEN LET Z=Z"1 
230 IF Z<X THEN LET Z=Z+1 
240 CLS 
260 GOTO 80 
280, GOTO 140 
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Ciekawe sposoby zmian zawartości ekranu 
mikrokomputera AMSTRAD CPC 6128 
z wykorzystaniem dodatkowych 64 kB pamięci RAM 


Przedstawione poniżej programy umożliwiają uzyskanie na 
monitorze dodatkowch efektów graficznych, polegających na 
przesuwaniu fragmentu ekranu i wsuwaniu części obrazka za- 
pamiętanego w drugim banku pamięci oraz na ciekawym spo- 
sobie przesyłania obrazu z dodatkowej pamięci na ekran. 

Pierwszy z programów o nazwie „PRZESPIO" umożliwia przesuwanie 
w pionie fragmentów ekranu oraz jednoczesne wsuwanie częś- 
ci obrazka znajdującego się na monitorze lub w drugim banku 
pamięci. 

Program ten uruchamiamy instrukcją: 

CALL adres, KIER, CON, KROK, ILE, XI, X2, SZ, NR, 

gdzie: 

Adres = 38800. 

KIER — jeśli przesuwamy z góry na dół to KIER = 1, jeśli 
przesuwamy z dołu do góry to KIER = 0. 

CON — jeśli chcemy, aby wsuwanie było kontynuowane od 
miejsca, w którym się zatrzymaliśmy (jeśli nie prze- 
sunęliśmy o cal wysokości ekranu) to CONT = 1, 
w przeciwnym' wypadku — jeśli wsuwamy frag- 
ment od początku to CONT = 0. 

KROK— co ile linii ma być przesuwany fragment ekranu, 
KROK = 1, 2, 4, 5, 8, 10, 20, 40, 50, 100, (im KROK 
jest większy, tym szybciej się przesuwa). 

ILE — ile razy mamy dokonać przesunięcia, ILE 
dobieramy tak, aby iloczyn KROKxlLE < 200. 

XI — współrzędna lewej części paska na ekranie (gdzie 
ma być wsuwany inny fragment), od 1 do 80. 

X2 — podobnie jak XI tylko, że dotyczy wsuwanego 
fragmentu z ekranu bądź innego obrazka zawarte- 
go w drugim banku pamięci. 

SZ — szerokość przesuwanego paska, od 1 do 80. 

Uwagal 

X1+SZ lub X2+SZ musi być mniejsze lub 
równe 80. 

NR — skąd ma być brany fragment obrazka, 

NR = 1 do 4 — kolejne bloki z drugiego banku 
pamięci, 

NR = 0 — widoczny obrazek na ekranie. 

Uwaga! 

Aby uzyskać efekt cyklicznego przesu- 
wania fragmentu na ekranie to NR = 0 i 
XI = X2. Jeśli NR = 0 i XI < > X2 to 
należy XI i X2 tak dobrać, aby paski były 
rozłączne. 

Jeśli NR = 0 i XI = X2 to za program 
musimy mieć KROKxSZ wolnych bajtów 
pamięci. 

Prezentowane niżej progamy w BASIC-u mają za zadanie za- 
ładować kody programów opracowanych w asemblerze pod 

wskazane adresy i nagrać je na dyskietkę. 

Pierwszy z nich, ładujący program „PRZESPIO" jest następu- 



iryv-3BG00i ilości In 1 1-20 


MIECZYSŁAW SKONIECZNY, PIOTR RAKOWSKI 


170 POKE odrasra 
180 t c »+a i adres=adrss+l 
190 NEXT j 

200 IF s< WAL <-&-♦«*> THEN PRINT"B1 ad u linii nr -»220+ł«10iSTOP 
210 NEXT I 
215 STOP 

220 SAOE-przesoi o". b .38800, 585 v 

230 DATA 1 SOEOOCOOOOO 14141400010101 0001 00DD7E00329997DD7E02329697DD7E » 07F A 
240 DATA 04329897DD7EO6329797DD7EO8329A97DD7E0A329C97DD7E0C329B97DD7E . 0DDC 
250 DATA 0E329F97B7284321807F2297982180FF22A79821C39922D69822F498221B.0D02 
260 DATA 9 9221F99222F 992 287992180FF22EA9822E D982100C0273A 9921 AE 992244 iOC2E 
270 DATA 9921C6992282993E4832809918412100402297982100C022A79821AE9922,OAFE 
280 DATA D69822F498221B99221F99222F992287992100C022EA9822ED982180FF22.0CE6 
290 DATA 3A9921C39922449921B199228299 3E783280993A979 721989 7BE20043E 00, 0BD0 
300 DATA 1 8023E01 329E973A9C97470E003EC8900CB720F B793D329D973A9997B728 , 0B5B 
310 DATA lA01FF7F57153EC482ED793A9B97B728052A9297181D21807F181B3A9B97rOB83 
320 DATA B728052A9297180D2180FF3A98974F0600092294973A9A97E52199973435,OB1A 
330 DATA E 120281 1D9992A9497F5E53A9C97F5E53A96974F0600EDB0E 1CDC399F 1 3D > 10B3 
340 DATA 20EE3A9E97B72803229497C 1F1F5E51 180FF2180FF3A9C97F5CDC399F 1 3D , 1121 
350 DATA 20F 83 A9797 4F 060009EB09EB3A9D97E5E5F53A9C97F5E5D53A96974F0600 , 0EC2 
360 DATA EDB0D1E1CDC399EBCDC399EBF13D20E7F1D1E1F53A9C97F5CDC399F13D20.151D 
370 DATA F8F13D20CE2100C03A9C973D2808F5CDAE99F13D20F83A97974F060009EB.ODCF 
380 DATA E1E53A98974F0600093A9997B7200321D9993A9C97F5D5E53A96974F0600.0D3C 
390 DATA 3A9997B72005E1EDB01809EDB0E17CFE48CD0699D1EBCDC399EBF13D20D9, 1248 
400 DATA 229297E12A9297AF3A98974F060OED42229297F13DC2B698O1FF7F3EC0ED.0FOE 
410 DATA 79C97CFEF828023809D6386701500009180401000809C97CFEC8300AC638.0A5F 
420 DATA 67015000AFED42C9AF010008ED42C90000000000 00000000000000000000, 060F 


Drugi z programów nazywa się „PRZESPOZ". Umożliwia on 
uzyskanie podobnych efektów — ale w poziomie. 

Program uruchamiamy instrukcją: 

CALL adres, KIER, CONT, KROK, ILE, Y1, Y2, SZ NR, 
gdzie: 

adres = 37750. 

KIER — KIER = 1, gdy przesuwamy w prawo lub KIER = 0, 
gdy przesuwamy w lewo. 

CONT — podobnie jak w poprzednim programie. 

KROK— KROK = 0 to przesuwamy na ekranie co punkt, 

KROK = 1 to przesuwamy co bajt, czyli w poszcze- 
gólnych trybach: 

a) tryb 2 co 8 punktów, 

' b) tryb 1 co 4 punkty, 

c) tryb 0 co 2 punkty. 

ILE — ile razy mamy dokonać przesunięcia, 

— jeśli KROK = 1 to ILE od 1 do 80, 

— jeśli KROK = 0 to ILE od 1 do: a) 640 dla trybu 2, 

b) 320 dla trybu 1, 

c) 160 dla trybu 0. 

Y1 — współrzędna górnej części paska przesuwanego na 
ekranie od 0 do 199. 

Uwaga! Numer 199 ma linia na górze ekranu, a 
numer 0 na dole. 

Y2 — współrzędna górnej części paska wsuwanego na 
ekran, bądź z innego obrazka z drugiego banku 
pamięci. 

SZ — szerokość przesuwanego paska, od 1 do 200. 

NR — podobnie jak w poprzednim programie. 

Postać źródłowa tego prpgramu jest następująca: 


OO 'kod maszynowy "primpoz" 

10 MEMORY 36299iadre*=37750l ilości Im 1=23 
20 RESTORE 230 
30 FOR 1>1 TO Ilości lnl 1 
40 s-OlREAD a*. w* 

30 FOR Jat TO 39 STEP 2 



210 NEXT i 
215 STOP 



:> DATA 
'■ DATA I 


* 0CJ28493DD7E0E328593B72f 

J 322D933E2B324D953E4F32927532A4953E1F32C69332DD9532EE933E1E32! OE 
' D8933E 1732CB9532D39332D49532D59S32E6933EBB32D7933E7732DF933E , OE 
' AA32EB933E3332F0933EOE321 F96 1B393E00320F9332 1 1 *33E0932 10933E .04 
> 3B372D933E23324D953E003:'929372A4933E1732C69332DD9?32EE953E1^.0E 
5 32C0933EIF32CB9332D39532D49332DS9337EA933E1 132D7933EEE32DF93, OE 
' 3E5S32E99S3EAA32F0933E06321F96210B9622269SCD1 1 BĆE603327893FE . OC 

* 00291 8FE0 1 230A2 1 C393222B953F.08 181221 D093222B953E04 18082 1 E395, OE 
' 222B933E02473A8493B7200778327C93321 2963A8393FE00280E21 F49322, OE 

* 2B9S 3E0 1 327C9332 1 2963A7D93B7281 63D0 1FF7F573EC482ED793A8493B7 . OE 
5 2BOADD2A7A9318203A7D9?.B7?0OE2IFF9S2226933A7F93Cr919518063A7F.0E 

* 93CDA393E30DE 1CD21 963A8093CD9 19301 4F00000900ED4BR1 93C3E3DDE3, K 
» DD21 4E963A7E9337E30000CDrF950E30CDB8932BOD20F9DD27ElCD(.49313. OE 
1 20E8DDE 1 7A7D97B7CC2 1 967A7C933D727C9720O30D23CD2 l °6E1 DD227A93, OE 
' rl 0B7RB120BA0 1 FF7F3EC0Er>79C97CFEF8280238O9Dfe386 7 0130O009 1804. OC 
5 0 1 0OOq09G9 7CFEC82802300ACA3B670 1 3000AFED42C9AF01 0008FD42C921 . O! 
I rD679^'0 7 0FK9 3A7 D 9TF SF * Ś D ‘ 0FSC '’ ? 1 Ó0.4O473EC790B7C8F37CFE7B, 1 1 

3C93A7993I F 1 F 1 FE* 1147 7E37799317EfrEEB077C93A79931FEt.33477E32! Ot 
'99 3 1 7 EAAhB'’77C93A7997477E3279937877C9DD'’E003279933efF 327C93. OF 
9TA7r93B720053E 08727C°?DD7E 00327 993m)CBOOOAC9E3DDES3A7E93DD.OF 
"JEIDD21 4E9646DD7000DD23F33A7D9 5B72003CDA49S 1 8067CF€78CD6-’9S , 0( 
1 3D20E4PDE 1 E I C9OOOOOOOOOOOOOOOOOOOOOO0OOOOOOOOOOOOOOOOOOOÓO , O! 


Trzeci program, o nazwie „ROL”, umożliwia przesłanie obrazka 
z drugiego banku pamięci na ekran, kolejno zmieniając linie. 
Na monitorze obserwujemy efekty nakładania nowego obrazka 
na starą zawartość ekranu. 

Wywołanie: 

CALL adres, KIER, NR, 
gdzie: 

adres = 36300, 

KIER — KIER = 1, jeśli linie mają się zmieniać z dołu do gó- 
ry lub KIER = 0 w przeciwnym wypadku. 

NR — NR = 0—3 numer bloku drugiego banku pamięci, 
w którym znajduje się obrazek. 

Postać źródłowa tego programu jest następująca: 


100 'kod Moszunouu "roi" 

110 MEMORY 36299jodrttB=3ć300: lloicl 

120 RESTORE 230 

130 FOR i=l TO ilości inl i 

140 s°0tREAD a*iw* 

; ISO FOR J«1 TO 59 STEP 2 
160 a=AML(-J."+MID*<ax. j.2>> 

170 POKE odrasta 
180 s*s+a:adres-adras+l 
190 NEXT J 
200 IF *OVAL 
210 NEXT I 
215 STOP 
220 SAVE-rol 


I THEN PRINT-Blad t 


•f2?0+i»10iST0P 


•36300.110 

230 DATA DD7E02B728172126BC2?1D8E22218E2100402?OB8E2100C0220£8E1815' , 1 .07F11 
haIa ^^iS° 40UOOC03ŁC8£:5D50l5000EtlBOulE1F5cl:i26BCEB C : 02óBCEBE52l.l027 

4.60 DATA E8032B7CB520FDElF13D20E001FF7F3ECOED79C900000000000000000000iOBlD 

Program demonstracyjny zawiera przykłady ?astosowania 
omówionych wyżej programów. Umożliwi on Czytelnikom do- 
kładniejsze poznanie możliwości opisanych programów. Poka- 


zuje on także, jak we własnych programach korzystać z pro- 
gramów: „PRZESPIO", „PRZESPOZ", i „ROL". 

Wersja źródłowa programu demonstracyjnego jest następu- 
jąca: 

1 'proaram demonstracyjny 
10 MEMORY 36299 

20 MODĘ 1 :LOAD'przesPoz.b i n" :LOAD"przesp i o.b i n" t L0AD"rol „b i n" 
30 poz=37750sp i o=38800:rol=36300 
35 FOR i=l TO 23 STEP 2 

40 LOCATE 4. i :PRINT"Przaklad cyklicznego przesuuan ia" 

42 LOCATE 12? i+l:PRINT”fraamentu ekranu" 

45 NEXT 

50 kier=lscon=0:krok=0:ile=32,0:yl=lll:y2=yl5sz=16:nr=0 

60 GOSUB 1000 
70 kier=0:krok=l: ile=80 
80 GOSUB 1000 

90 kier=0:krok=l: ile=200:xl=30:x2=xl:sz-10 
100 GOSUB 2000 

110 k i er=l skrok=2: i le=100:xl=50: x2=xl :sz=10 
120 GOSUB 2000 

130 k i er=0:krok=8: i le=25:xl=20:x2=xl :sz=40 

140 GOSUB 2000 

150 FOR i=l TO 23 STEP 2 

160 LOCATE 2? i :PRINT~Przyklad wsuwania frasmentow obrazków" 
16o LOCATE 8? i+lsPRINT"z drusieso banku pamięci" 

170 NEXT 


c=20:nr=2 


200 kier=0:krok=ls ile=80:yl=50:y2=199:s; 

210 GOSUB 1000 

220 kier=0:krok=4s ile=50sxl=50:x2=lssz=20:nr=3 
230 GOSUB 2000 

240 k ier=l:krok=2: i le=50:xl=10:x2=70:sz=10:nr=4 
250 GOSUB 2000 
255 CLS 

260 FOR i=l TO 23 STEP 2 

270 LOCATE 5? i :PRINT"Przyklad wymiany obrazka przez" 
275 LOCATE 10? i+l:PRINT"koleJne zmiany linii" 

280 NEXT 

290 kier=0:nr=0 

300 GOSUB 3000 

310 k ier=l:nr=3:CLS 

320 GOSUB 3000 

330 FOR i=l TO 500:NEXT 

340 CLS:LOCATE 3? 12:PRINT"Czy Powtórzyć demonstracje ' 
350 IF INKEY (51) < >0 AND INKEY (46)00 THEN 350 
355 IF INKEY <46)=0 THEN STOP 
360 CLS: GO TO 30 

999 STOP 

1000 CALL Poz?kier»< 

1001 RETURN 

2000 CALL Pio?kier?< 

2001 RETURN 

3000 CALL rol?kier?r 

3001 RETURN 


m?krok? ile?yl?w2?sz?nr 
•n .łtrok? ile?xl?x2?sz?nr 


STREAMERY 

Kontynuacją rozpoczętego t zeszlyn minerze cyklu artylnilł. 
pokazującycb ceny dolaroe sprzętu Konputero.ejo i jego peryferii 
jest zameszczony dzisiaj cenmK tainowycli parneei aagnetycznycb 
czyli streanerói. 

ceny zamieszczone poniżej opracwrane zostały na [odstane cenniHó. 


fiu: 

DISOTHT MICRO PRODUCT 
QIC REASB4RCH HC0RP(*AI!D 

Bumra cowrat wdocts 

Slreaiery; 

20 HB .emetrzny firiy ■IRYIKE" do PC JiT/AT 320 1 

20 HB zemetrzny firny ■mik 1 do PC XT/AT 330 t 

20 HB .emetrzny firny •łłliwaf do PC XT/AT 300 | 

20 HB zemetrzny firny ‘yAHGTH' do PC XT/Af eio t 

« HB .emetrzny firny •APCHIVF‘ do PC CT/AT 300 » 

40 HB .emetrzny firny ■UtYIHS 1 do PC XT/AT 320 s 

40 HB zemetrzny firny ‘IWIK 1 do PC XT/AT 430 1 

00 HB .emetrzny firny ■HOUHTAIH- do PC XT/AT t PS2 440 * 

00 HB zemetrzny firny 'HOtiHTAM* do PC XT/AT i PS2 550 1 

60 HB .emetrzny firny do PC XT/AT 550 t 

60 HB zemetrzny firny 'APOJIYB 1 do PC XT 620 1 

60 HB .emetrzny firny ‘AKHIYS - do Cmpaif 630 1 


60 HB zemetrzny firny -msac do PC JiT/AT 540 t 
60 HB .emetrzny firny TOC- do PC XT/AT 650 ( 
60 HB zemetrzny finty ■A«CHIVB‘ do.PC AT 670 1 
60 HB .emetrzny firny -AMm do PC AT 600 1 
60 HB zemetrzny firny •nuc do PC XT/AT 690 t 
60 HB .emetrzny firny ■łAHGIB- do PC XT/AT 700 1 
60 HF .emetrzny firny ‘Sysnap do PC XT/AT 700 1 
60 HB .emetrzny firny ■Gm GALAIT' do PC XT/AT 720 ( 
60 HB .emetrzny firny ■^A^GTB: , do PC HT/AT i PS2 7 50 ) 
60 HB zemetrzny firny ■SYSOHC do PC XT/AT 750 , 
60 HB zemetrzny fimy •Aram- do PS2 770 j 
60 HB zemetrzny firny -GHHOA GALAIf do PC XT/AT 600 i 
60 HB zemetrzny firny -yAHGra - do PC XT/AT 600 t 
60 HF zemetrzny firny •HAfHBSTRfiAH' do PS2 570 | 
I20HB .emetrzny fimy -łAHGW do PC XT/AT 900 ) 
120HF zemetrzny firny ‘HAHGTBI' do PC JT/AT 1190 t 


I20HB zemelrzny firny ■HOI*TAIH-'noiHI conpatltly 
I50HB zemetrzny firny ■HOWTAll" do PS/2 
300HB zemetrzny limy ■H00mn‘ do PC XT/AT PJ/2 
600HB zemetrzny firny ■HOUITAH 1 do PC AT 

Materiały zostały przyiolotane przez firne BOHB sp. ni - Biuro 
Obsługi Importu i aportu, 00-667 łarsza.a ul. (Wodna 35/37 pa. IA, 
tri. 201116 tlx 817073 BOIB Pt 
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WYODRĘBNIONE 
TENDENCJE ROZWOJOWE 

ANDRZEJ GRZESIAK 


Program służy do wyodrębniania tenden- 
cji rozwojowe) (trendu) metodą analityczne- 
go wyrównywania szeregów czasowych, po- 
legającą na tym, że tendencję rozwojową 
szeregu wyraża się za pomocą funkcji ma- 
tematycznej. W programie można aproksy- 
mować równanie trendu następującymi 
funkcjami: liniową, parabolą drugiego stop- 
nia. parabęlą trzeciego stopnia, wykładni- 
czą, hiperboliczną. Równania, według któ- 
rych oblicza się parametry funkcji trendu 
otrzymuje się stosując klasyczną metodę 
najmniejszych kwadratów (patrz: K. Zając 
Zarys metod statystycznych, PWN, War- 
szawa 1971 ). Oprócz parametrów równania 
trendu program oblicza wartości równania 
dla wszystkich wartości argumentu (dane 
teoretyczne) oraz średni błąd szacowania, 
który jest pierwiastkiem kwadratowym ze 
średniej arytmetycznej kwadratów odchyleń 
danych empirycznych od danych teore- 
tycznych. 

Podstawową zaletą programu jest to, że 
pozwala na szybkie dobranie najwłaściw- 
sze) postaci funkcji trendu, to znaczy takiej, 
która zapewnia najmniejszą wartość śred- 
niego błędu szacowania. 

Program zbudowano w taki sposób, aby 
po jednorazowym wprowadzeniu danych 
(dane empiryczne) pozwalał na wielokrotne 
powtarzanie obliczeń przy różnych funk- 
cjach aproksymujących. Dane wprowadza 
się instrukcjami DATA poczynając od linii 
1 600. Jeżeli krok dyskretyzacji czasu równy 
jest 1 , to wystarczy wprowadzić tylko war- 
tości szeregu czasowego, a program sam 
uzupełni brakujące wartości • czasu 
(zmienna T). Jeżeli krok dyskretyzacji czasu 
jest różny od jedności, to program należy 
uzupełnić instrukcjami powodującymi wczy- 
tywanie czasu (linie 160—210). Wczytywa- 
ne wartości danych są pokazywane na ek- 
ranie monitora, co pozwala na sprawdzenie 
poprawności procesu wczytywania. Proces 
można przerwać w dowolnym momencie, 
naciskając jednocześnie klawisze CTRL i 1 
(wymaga to pewnej wprawy), powtórne na- 
ciśnięcie klawiszy wznawia proces. 

Maksymalna liczba prób N wynosi 100. 
Można ją zwiększyć przez zmianę deklaracji 
zmiennych w linii 110. 


0 GOTO 80 

:0 ? -? "UWAGA! " = ? ’? 

;0 ? "Dane wpisujemy instrukcjam 
DATA poczynaj ac od linii 1600. 
lezę l i krok dyskretyzacji czasu. 

■owny jest 1"> 

tO ? 'Sto wpisu je-my tylko warto 
>ci szeresu czaśoweso. Jezel i kro 
• dyskretyzacji czasu jest rożny 
od l,to"; 

jpi ? " należy dokonać zmian w li 
- ni ach 168-210<wczytywanie czas 


u : T<F> >'. " 

60 ? i ? "Wpisz dane! 
78 CLR : STOP . 
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80 GRAPHICS 1 ! SETCOLOR 2,0,0-POS 
ITION 3,9 

90 ? #6; "Wyodrębnianie" 

100 POSITION 0,12=? #6; "tendencj 
i rozwojowej "-FOR ZMP=1 TO 1500- 
NEXT ZMP 

110 DIM T<100),Y<100),A<4,4),B<4 
),QS<1),X<4), YTR <100) 

120 ? CHR$< 125) - ? "Liczba Prób H 
■"> - IHPUT N-? 

138 TRAP 20 
140 GRAPHICS 0 
150 ZMP=1 
160 FOR F-l TO N 
170 READ L 

180 T<F)-ZMP-? "T<";Fj ">*";T<F> 
190 Y<F)-L-? "Y<";F; ")"";Y<F) 

200 ZMP-ZMP+1 
210 NEXT F 

220 ? -? "Koniec wczytywania dan 
ych" 1 ? -? "c.d. po nac. RET. "-IN 
PUT Q$ 

230 ? CHR$< 125) 

240 S 1 =0 - S2-0 - S3-0 - S4=0 - S5=0 ■ S6* 
0 - S7“0 - S8=0 - S9=0 - S 1 0«0 - S 1 1 «0 - S 1 2 
=0 - S13-0 - S14=0 - S15=0 - S16-=0 - S17=0 
-SI 8=0 

250 FOR F*1 TO N 
260 S1=S1+Y<F) -S2=S2+Y<F)*T<F) 
270 S3=S3+Y<F)*T<F) A 2-S4=S4+Y<F) 
*T<F) A 3 

280 S5=S5+T <F) - S6*S6+T<F) A 2 
290 S7=S7+T <F) A 3 - S8=S8+T<F) A 4 
300 S9-=S9+T <F) A 5 - S10=S10+T<F) A 6 
310 S12=S12tCL0G<Y<FJ) -S13=S13+T 
<F)*CL0G<Y<F)) 

320 S14=S14-K1/T<F))*Y<F)-S15=S1 
5+<l/T<F)) 

330 S16»S16+<1/T<F) A 2> 

340 NE*T F 

350 B<1)«S1 -B<2)=S2-B<3)=S3-B<4) 
*S4 

360 A< 1,1 )*N - A< 1 , 2)=S5 = A< 1 , 3) s S6 
- A< 1 , 4)*S7 

370 A<2,1)=S5-A<2,2)*S6-A<2,3)=S 
7-A<2,4)»S8 

380 A<3,1)*S6=A<3,2)»S7=A<3,3)=S 
8 - A(3, 4 )=S3 

390 A<4, 1 )=S7 - A<4, 2)=S8 - A<4, 3)=S 
9- A<4,4)*S10 

400 ? CHRS <125)-? ••? "Jaka funkc 
Ja trendu?" 1 ? =? "1. liniowa" -? - 
? "2. kwadratowa" -? -? "3. parabol 
a III stopnia" 

410 ? -? "4. wykładnicza"-? -? "5 
•hiperboliczną" >? 

420 INPUT FT-ON FT GOTO 430,570, 
710,860, 1030 

430 REM liniowa funkcja trendu 

440 LR=2 

450 GOSUB 1180 

460 ? CHR*< 125) -POSITION 8,8>? " 
LINIOWA FUNKCJA TRENDU" 

470 POSITION 7,11=? "y«","<";Xa 
);")+<"iX<2);")*t" 

480 ? -? -? >? "c.d. po nac. RET 
."-INPUT GS 

490 ? CHRS< 125) > ? "Wartości funk 
Ji trendu"-? 

500 ZMP=1 

510 FOR F=1 TO N 

520 YTR=X<1)+X<2)*T<F) -YTR<F)=YT 
R 

530 ? "YTR<";E; ")="; YTR<F) 


540 ZMF-ZMP+1 - IF ZMP=16 THEN ZMP 
=0-? "c.d. po nac. RET. "-INPUT Q 

S 

550 NEXT F 
560 GOTO 1480 

570 REM kwadratowa funkcja trend 
u 

580 LR=3 
590 GOSUB 1180 

680 ? CHRS< 125) - POSITION 7,8-? " 
KWADRATOWA FUNKCJA TRENDU" 

610 POSITION 2, 1 1 - ? "y=" ; " < " > X<1 
>f ">+<"; X<2>; ")*t"; "+< ";X<3> ; ")* 
t'"2" 

620 ? -? =? -? "c.d. po nac. RET 
."•INPUT GS 

630 ? CHRS <125)-? "Wartości funk 
cji trendu"-? 

640 ZMF'= 1 

650 FOR F=1 TO N 

660 YTR=X<1)+X<2)*T<F)+X<3)*T<F> 

A 2 - YTR<F)=YTR 

670 ? "YTR<!';F;")-";YTR<F) 

680 ZMP=ZMP+1 -IF ZMP= 1 6 THEN ZMP 
=0-? -? "c.d. po nac. RET. " - INPU 
i w* 

£90 NEXT F 
700 GOTO 1480 

710 REM parabola III stopnia 

720 LR«4 

730 GOSUB 1180 

740 ? CHR»<125) -POSITION 10,8'? 
"PARABOLA III STOPNIA" 

750 POSITION 2,11-? "y«";"<">X<l 
>} ">+<"jX<2); "+<"jX<3>j")* 

t A 2 

760 POSITION 12,13-? "+<,";X<4);" 
)*t A 3" 

770 ? -? -? -? "c.d. po nac. RET 
."-INPUT Q$ 

780 ? CHRS <125)-? "Wartości funk 
cJi trendu"-? 

790 ZMP=1 

800 FOR F*1 TO N 

810 YTR=X<1)+X<2)#T<F)+X<3)*T<F) 

A 2+X<4)#T<F) A 3 - YTR<F)=YTR 

820 ? "YTR<"jF; ")=";YTR<F> 

830 ZMP=ZMP+1 - IF ZMP= 1 6 THEN ZMP 
=0-? -? "c.d. po nac. RET."-INPU 
|4§ $ NEXT F 
850 GOTO 1480 

860 REM funkcja wykładnicza 
870 LR=2 

880 B<1)=-S12'B<2)-=S13-A<1,1)=N'A 
< 1 , 2)=S5 - A<2, 1 )=S5 - A(2, 2)=S6 
890 GOSUB 1180 

900 ZMW1=10 A X< 1 ) - ZMW2= 1 0 A X < 2 ) 

910 ? CHRS <125) 

920 POSITION 8,9-? "WYKŁADNICZA 
FUNKCJA TRENDU" 

930. POSITION 8,12-? "y="j"<";ZMW 
1 ; " )*<" i ZMW2.i "> A t" 

940 ? -?“'? =? "c.d. po nac. RET 
."-INPUT GS 

950 ? CHRS < 125) - ? "Wartości funk 
cji trendu"-? 

960 ZMP=1 

970 FOR F=1 TO N 

980 YTR=ZMW1*<ZMW2) A T <F) - YTR<F)= 
YTR 

990 ? "YTR<";Fj ")*"j YTR 
1000 ZMP=ZMP+1 - IF ZMF‘= 1 6 THEN ZM 
F'=0 - ? -? "c.d. po nac. RET. " - INP 
UT GS 

1010 NEXT F 
1020 GOTO 1480 

1030 REM funkcja hiperboliczną 
1040 LR=2 

1050 B< 1 )=S1 - BC2)=S14 - A< 1, 1 )=N - A 
<1,2)=S15=A<2, 1)=S15'A<2,2)=S16 
1060 GOSUB 1180 

1070 ? CHRS< 125) -POSITION 7,6-? 
"HIPERBOLICZNĄ FUNKCJA TRENDU" 
1080 POSITION 7,9-? "y*";"<";X<l 
);")+";"< l/t)#< " i X<2) ;") " 

1090 ? -? -? -? "c.d. po nac. RE 
T. "-INPUT GS 



1100 ? CHR$( 125) : ? "Wartości fur. 

.i i trendu"’? 

1110 ZMP*1 

1120 FOR F=1 TO N 

1130 YTR=X< 1 )+< 1/T<F) )*X<2) « YTR< 

F)=YTR 

1140 ? "YTR<"jF; " )*" ; YTR<F) 

1150 ZMP=ZMP+1 1 IF ZMP=16 THEN ZM 
P=0’? :? "c. d« po nuć. RET. " : INPU 
T Q$ 

1160 NEXT F 
1170 GOTO 1480 

1180 REM Obliczanie układu równa 
n 

1190 EPSM.0E-07 
1200 FOR K=1 TO LR 
1210 MRX=EPS 
1220 FOR F=K TO LR 
1230 T=R<F,K) 

1240 IF RBS<T)>R6S<MRX) THEN MRX 
=T : G=F 


1250 NEXT F 

1260 .IF RBS<MRX) <=EPS THEN ? "Uk 

lad nie ma rozwiązania" -FOR ZNP= 

1 TO 500 1 NEXT ZNP > GOTO 400 

1270 FOR F=K TO LR ’ T"fi<G>F) : fl<G^ 

F)=fl<K>F) ; ROC/F)=T ’NEXT F ; T=B<G) 

; B<G)=B<K) : B<K)=T 

1280 IF K=LR THEN GOTO 1370 

1290 FOR F=K+1 TO LR 

1300 T»fl<F,K)/MRX 

1310 FOR G=K+1 TO LR 

1320 FKFrG)»fl<F,G)-T*R<K,G) 

1330 NEXT G 

1340 B<F)=B<F)-T*B<K) 

1350 NEXT F 
1360 NEXT K 

1370 X<LR)=B<LR)/fl<LR,LR) 

1380 FOR K=LR- 1 TO 1 STEP -1 
1390 X<K)=B<K)/fl<K,K) 

1400 FOR G*K+1 TO LR 


1410 X < K >-fl /fl <f K) *x£g? 

1420 NEXT G ‘ 

1430 NEXT K 

1440 FOR F=1 TO LR 

1450 X<F)=INTCX<F>*10000+j0.5)/l0 

000 ; , V 

1460 NEXT F 
1470 RETURN 

1480 REM Obliczanie bledu 

1490 SI 1=0 

1500 FOR F=1 TO N 

1510 SI 1=S1 1+(Y<F)-YTR<F) ) A 2 

1520 NEXT F 

1530 SY=SQR < < 1 / < N-LR ) ) £S 1 1 ) 

1540 ? = ? "Średni blad szacowani 
a=";SY 

1550 ? "c.d. po nac. RET. " < IN 

PUT Q$ 

1560 GOTO 350 



Programy narzędziowe 
na CPC - AMSTRAD 6128 


Program KATALOG dostarcza in- 
formacji o plikach (zbiorach) umie- 
szczonych w pamięci dyskowej, poz- 
wala na zmianę stanu pliku (zbioru), 
umożliwia edycję na poziomie pliku 
(zbioru). 

Podaje następujące informacje o 64 
plikach (tyle plików można maksymal- 
nie zapisać na dyskietce): 

— nazwa pliku (zbioru), 

— typ pliku (zbioru), 

— numer logiczny użytkownika sy- 
stemu (CP/M), 

— stan pliku (zbioru). 

Numer logiczny użytkownika syste- 
mu (CP/M) jest liczbą całkowitą z 
przedziału 0—1 5 i określa wydzielony 
obszar pamięci dyskowej dla poszcze- 
gólnych użytkowników systemu (ma- 
ksymalna liczba różnych użytkowników 
wynosi 16). W ten sposób pliki (zbiory) 
utworzone przez jednego użytkownika 
nie są bezpośrednio dostępne dla dru- 
giego użytkownika. Na wstępie system 
CP/M przyjmuje, że użytkownikiem sy- 
stemu jest użytkownik o numerze 0. 

Każdy plik (zbiór) może znajdować 
się w jednym z czterech stanów: 

1) R/O (READ/ONLY) — plik (zbiór) 
z dozwolonym tylko odczytem 
informacji (zapis jest niemożliwy); 
próba zapisu do zbioru powoduje 
komunikat błędu, 

2) R/W (READ/WRITE) - plik (zbiór) 
z możliwością odczytu i zapisu in- 
formacji, 

3) SYS — oznacza plik (zbiór) syste- 
mowy, nie wyprowadzony w zlece- 
niu DIR, 

4) DIR — usuwa atrybut pliku (zbioru) 
„systemowy”. 


Poprzez wyszczególnione opcje pro- 
gramu KATALOG możemy: 

— zmienić nazwę pliku (zbioru), 

— skasować plik (zbiór), 

— odzyskać skasowany poprzednio 
plik (zbiór), 

— zmienić stan pliku (zbioru), 

— zmienić numer logiczny użytkowni- 
ka systemu, 

— zmienić stronę przeglądanych pli- 
ków (zbiorów), 

— przejrzeć spis plików (zbiorów) innej 
dyskietki, 

— „wyjść" z programu KATALOG pod 
BASIC AMSTRADA. 


OPIS DZIAŁANIA PROGRAMU 

Po uruchomieniu programu KATA- 
LOG dyskietkę z interesującymi nas 
plikami (zbiorami) umieszczamy w na- 
pędzie dyskowym i wciskamy dowolny 
klawisz. 

W dolnej części ekranu monitora wy- 
świetlony zostanie opis wszystkich op- 
cji programu. Powyżej opisu opcji pro- 
gramowych ukaże się opis pierwszych 
trzydziestu dwóch plików (zbiorów) za- 
pisanych na dyskietce. 

W celu przfejrzenia opisu drugich 
trzydziestu dwóch plików (zbiorów) na- 
leży wciskać klawisz P (opcja zmiany 
strony). Po przejrzeniu opisu plików 
(zbiorów) dyskietki i, dokonaniu nie- 
zbędnych poprawek należy nagrać 
wprowadzone zmiany, wciskając w tym 
celu klawisz N (opcja — nagranie 
zmian). 

Chcąc przejrzeć inną dyskietkę wci- 
skamy klawisz I (opcja — inna dyskiet- 
ka), a powrót do BASIC-a umożliwi 
nam wciśnięcie klawisza X (opcja — 
ucieczka). 

Program DYSKCOPY służy do ko- 
piowania dyskietek. 


OPIS DZIAŁANIA PROGRAMU 

Po uruchomieniu programu na ekra- 
nie monitora pojawi się komunikat: 
PODAJ ILOŚĆ STACJI DYSKÓW 
Jeśli korzystamy z jednego napędu 
dyskowego (znajdującego się w kom- 
puterze) wciskamy klawisz z cyfrą 1 , a 
jeśli korzystamy dodatkowo ze stacji 
dysków, to wciskamy klawisz z cyfrą 
2. Kolejne czynności, jakie należy wy- 
Konać przy kopiowaniu dyskietek będą 
wyświetlane na ekranie monitora. Po- 
przez jedno uruchomienie programu 
DYSKCOPY możemy przekopiować 
dowolną ilość dyskietek. 

Życzymy powodzenia w korzystaniu 
z prezentowanego oprogramowania 
użytkowego dla CPC AMSTRAD 61 28. 

oprać. J. SZANIAWSKI 


to reh uitfiitimmmmiMitmittmtittmmti 

20 REH t » 

30 REH « PP06RAH KATALOG » 

40 REH I « 

30 reh itmmtmtmmmmmmtimmtmmi 

60 P0KE &BDEE,ltC9:KEY DEF 66,0,0,0,0:ON ERR0R 6010 710 
70 IF HIHEHOI.FFF THEN OPENOUT^d’ :HEH0RY fcFFF: CL0SE0UT 
:L0AD •pro 9 bin.bin*, H000 

00 HODE 2: INK O.lJiINK l.liBORDER 13sZ0NE 21iPRINT ’KA 


TAL06 (0 - PR06RAH DOKONUJE ZHIAN NA POZIOMIE ZBIOROM 
NA DYSKIETCE" s MIND0M 1 , 80, 3, 23: WINDOM 11,1,00,22,23 
90 PRINT‘NL0Z DYSK DO STACJI Al I NACISNIJ D0M0LNY KLA 
NISZ " : NHILE INKEYt*" " : MEND 
100 CLSiCALL 61000,01 IF PEEM6100000 THEN 90 
110 s»ct»PEEK(6100D)iIF iact<9 THEN PRINT" IBH "lutet 
*1 :tr*ck*l iGOTO 140 

120 IF sect<64A THEN PRINT’ SYSTEH ’|isect»641:track«2 
: GOTO 140 

130 PRINT’ DATA ’i:i»ct«6Cl!track*0 
140 PRINT’F0RHAT’: PRINT 

150 buff-fcllOOiFOR x»0 TO 3: CALL 61003, buf f,sact,track 

:buf f «bułł+512:*ect*s*ct^I :NEXT:*»ct*s»ct-4 

160 buf f *61 101: 1*1 : l*t*33 

170 NHILE KlstsPRINT 1’ ’j:IF KIO THEN PRINT’ ’| 

100 G0SUB 1 90ibułF*buf f +24: 1*1 łl: MEND: l*l-32i GOTO 290 
190 u*PEEK (buf f-1 ) : s*PEEK (buf f > 

200 FOR x*0 TO 7sPRINT CHR* ( 1 ) CHR$ (PEEK (buf f ) ) ; : buf f *b 
uff+l:NEXTi 

210 PR I NT ’ . ’ ; : r -PEEK ( buf f ) : d *PEEK ( buf f ♦ 1 ) : f *PEEK ( buf 
2 ) 

220 r$*’ ’!«*’ ’ 

230 IF i*6E5 THEN u»*’PUSTY " : GOTO 200 ELSE IF u«6E 
3 THEN ul*’SKAS0NANY’:60T0 260 ELSE u»*’USER’*STR$(U)ł 
’ *:IF LENIulKB THEN uł-uł*’ ’ 

240 IF r>127 THEN r»«’R/0 ’ ELSE r$«’R/M * • 

230 IF d>127 THEN d*«’SYS ’ ELSE dł«’DIR ’ 

260 IF d>127 THEN d*d-120 
270 IF r >127 THEN r*r-120 

200 PRINT CHRI ( 1 ) CHR4 tr ) CHRS ( I ) CHRI (d ) CHR4 ( 1 ) CHRt ( ł) * 
’u*r»d»,:RETURN 
290 NIND0N SNAP 0,1:CLS 

300 PRINT’ Z...Zaiana luźny K...Kaso»ania 0... 
Odzyskiaanie S... Zalana na SYS D...Ziiana na DIR 
R...Ziiana na R/0 M...Zaiana na R/M U...Ziiana U 
SER’ a P...Zaiana strony N... Nagranie zalań I... In 
na dyskietka X... Ucieczka* 

310 PRINT”; 

320 i$»”:NHILE i»*”:ił*INKEY»:ił*UPPER»(i»)iMEND 
330 REST0RE 700:oot=l:F0R o*2 TO IJsREAD ol:IF o$*i» T 
HEN opt=o 

340 NEXT:0N opt 60T0 320,350,440,490,300,340,300,390,6 
00,610,640,670,600 

330 CLSiLINE INPUT ;’No»a nazw zbioru...? ",nn4:lnn* 
LEN(nnt) : IF lnn-0 0R lnn>12 THEN 330 
360 dot=INSTR(l,nnł,’.’hlF INSTR(dotM,nn»,’.’K>0 TH 
EN GOTO 350 

370 IF dot*0 THEN dot*lnnM 

300 naaet*LEFTtlnnt,dot-l):extf*HIDt(nn«,dotM,lnn)iIF 
LEN(naael>>0 0R LEN(ext»)>3 THEN 350 
390 IF LEN(naae4)<8 THEN naael*naaet+' ’:60T0 390 
400 IF LEN(ext*)<3 THEN ext»*ext»*’ ’:60T0 400 
410 60SUB 690 

420 nn$*UPPERł'naaeł+ext»):F0R x*0 TO 10:P0KE buff*x,A 

SC(HID»(nn»,xM)):NEXT 

430 60T0 470 

440 np*6E5 

430 60SUB 690 

460 POKE buff-l.np 

470 IF 032 THEN f*f-32 

58'' BINDOM SMAP 0,1:LDCATE 48-(8«(f/2-lNT(f/2>!),2*CI 
N T (/'2>:60SUB 190:60T0 290 
np=0:60TO 450 
500 off=9 

510 G0SUB 690:np=PEEK łbuff+off ) 

520 IF np< 128 THEN POKE IbutOoO) ,npł!28 
530 GOTO 470 
540 0/O9 

550 GOSUB 690:no= p EEK fbuff+off) 

560 IF np>127 THEN POKE (buf f »of f ) , np- ! 28 

570 GOTO 470 

580 of f *8: GOTO 310 

3 S 0 of f *8:GOTO 330 
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600 CLS:INPUT 'Podaj nueer nowego USER’ a - ',np:IF np< 

0 OR n>15 THEN 600 ELSE 450 

610 MINOON SNAP 0, 1:L0CATE lj3sPRINT"; 

620 IF 1*1 THEN l«33:lst*65:buff«61501 ELSE l*l:lit*33 
ibuFf *lrl 101 
630 GOTO 170 

640 CLSiPRINT TABI33) 'Nagranie zeian':PRINT TAB(34>* Q 

K. ? IT/N) ■)M»*":NHILE i»<>'N' AND i*< >"T" s i *»INIfEY 

»:il*UPPER»U*):NEND:IF i»*'N' THEN 660 

650 buff=6J100:F0R **0 TO 3:CALL 61009,buff ,sect,0,tra 

ck:buff=buff+512:sect»sect+l:NE!(T:5ect 3 sect-4 

660 HINDON SNAP 0,1:60TO 290 

670 RUN 

600 CALI O 

690 CLS: INPUT * Podaj nueer zbioru - \f:IF f<l OR f>l 
♦31 THEN 690 ELSE bułł* (f-1 ) «32+lcI 101 1 CLS: RETURN 
700 DATA Z,K,B,S.D.R,H,U,P,N, I,X 
710 RUN 

1 reh iimummmtitfitmtiimmimmtttmi 

2 REH I » 

3 REN I UMA 6 A 1 I 

4 REN I N liniach 50, 160, 240, m eiejsce znaku ’♦’ I 

5 REN I należy wpisać znak, wciskając jednocześnie I 

6 REH I klawisz CONTROL oraz klawisz z litera V t 

7 REN I I 

8 ren mtmmmmmtmttmmmtttitmmttt 

10 POKE 6BDEE,6C9:KEY DEF 66 , 0, 0,0,0: ON ERROR 60TD 320 
20 IF HIHEH06FEE THEN OPENOUT’d':NENORY 6FEE:CL0SE0UT 
:L0AD'pr ogbin.bin*, 61000: FOR x= 6 FEF TO 6 FFF: READ a:POK 
Ę- t k,a:NEIT:CALL 6 FEF: 0 ATA 63E,6FF,6DF,6FA,60F,63E,601 , 
6DF, 6FD, 60F, 6C9, 672, 6CA, 607,603, 6C6.607 
30 NODE 2: INK O, 13: INK 1,0:BORDER 13: ZONĘ 40:PRINT'DYS 
KCOPY - (0 PROGRAH KOPIUJĄCY DYSKIETKI* : NINDOM 1,00.7 
,80 

40 PR I NT 'PODAJ ILOSC STACJI DYSKON ?*; : i *=** : MHILE il 
OT AND ilO , 2 , :i*=INKEY$:NEND:PRINT CHR$( 8 )ił:d*VAL 
(i*>-l:PRINT:xp=POS(fO):yp=VPOS(IO) 

45 DIN ł(7,8),n(7) 

50 LOCATE xp,yp:PRINTVNLOZ DYSK ZRODLONY DO A: *;:IF 
d*l THEN PRINT'a DYSK NA ZAPIS DO B: 

60 PRINHICISNIJ DONOLNY KLAMISZ‘CHR* < 13) ; : MHILE INKEY 
ł=":NEND 

80 FOR g*0 TO 4: buf f *61 100 
90 FOR t*0 TO 7:track=gt8+t:go*l 
100 CALL 61000, track:IF PEEK (6100000 THEN go=goTIF 
goOlOl THEN 100 ELSE n(t)*0:G0T0 160 
110 ei*256:y*6100D:yy*y 
120 p=PEEK(y):!F p*ii THEN 150 
130 IF p(ei THEN «i*p:yy*y 
140 y*y+l:60T0 120 

150 n(t)*y-yy:IF n(t)>9 OR (n(t )<8 AND n(t)OO) THEN n 
(t)*9 

160 LOCATE xp,yp:PRINT'+CZYTANIE SCIEZKI'track' *;:IF 
track<10 THEN PRINT* 'i 

170 PRINT'SEKTORY: 'jiIF n(t)*0 THEN PRINT 'BLEDNE' 

180 FOR s *0 TO n(t)-lsf(t,s)*PEEK(s+yy): PRINT HEX*(f(t , 
,s), 2 )‘ 'i 


190 CALL 6 FEF 1 CALL 61003,buff ,f (t,s) , tracksbuff =buff *5 
12:NEIT 

200 NEIT:buff*61100:CALL 61000,0 

210 IF d*0 THEN PRINT:PRINT:PRINT'NLOZ DYSK NA ZAPIS D 

O A: - WCIŚNIJ DONOLNY KLAWISZ*: WHILE INKEY*=":NEND 

220 FOR t *0 TO 7:track«gl8+t: IF n(t )*0 THEN 240 

230 CALL 61006,f (t,0),f (t,ll,f (t,2),f (t,3),f (t,4),f (t, 

5),f(t,6),f(t,7),flt,8),n(tl,d,track 

240 LOCATE xp, yp:PRINT**ZAPISUJE SCIEZKE'track' * S :IF 

trackdO THEN PRINT* ■; 

250 PRINT*SEKTORY: *; : IF n(t )=0 THEN PRINT'BLEDNE' 

260 FOR s*0 TO n(t)-l:CALL 61009, buff ,f (t,s),d,track:P 
RINT HEIKf (t,s),2)* *;:bufł*=bu#f+512:NEXT:PRINT CHRS( 
13); 

270 NEIT 

280 IF d=0 AND track <39 THEN PRINT:PRINT:PRINT*NŁOZ D 
YSK ZRODLONY DO A: - WCIŚNIJ DONOLNY KLANISZ'CHR» (13) ; 
:NHILE INKEY»*":NEND 
290 NEIT 

300 PRINT:PRINT:PRINT*CZY KOPIUJESZ NASTĘPNY DYSK (T/N 
“j : WHILE 1I<>*T* AND i»<>'N': 
i»=INKEY»:i$*UPPER»(i»):NENO:PRINT i$ 

310 IF i»**T* THEN 50 ELSE CALL O 
320 RUN 

10 immmtmtmtmmmmtmmm 
20 1 * 

30 ł PR06RAM JOB I 

40 I i 

30 mimmtmimmmtmmimmm 

60 P90DE 1 

70 ^RINT * . PROGRAMY NARZĘDZIOWE * 


30 PRINT * ======================== • 

.90 PRINTjPRINT; PRINT 

100 PRINT " DYSKMAPA 1* 

110 PRINT 

120 PRINT ' SEKTORED 2* 

130 PRINT 

160 PRINT * KATALOG 3’ 

150 PRINT 

160 PRINT " DYSKCOPY 4" 


170 LOCATE 1,22:PRINT "WCIŚNIJ KLAWISZ Z NUH 
EREM PROGRAMU (1-4) * 

180 IS=INKEYS: . IF I$=" THEN 180 

190 IF If=*l* THEN 240 

200 IF I*=*2* THEN 250 

210 IF I$='3* THEN 260 

220 IF I*="4" THEN 270 

230 GOTO 180 

240 RUN" ' DYSKMAPA 

250 RUN" 'SEKTORED 

260 run"! Katalog 

270 RUN' ! DYSKCOPY 


2 REM ******************* 

3 REW * 

4 REM * SPADAJACA CEGŁA * 

5 REM * ZX-81 * 

6 REM * * 

7 REM *************** A.- * * 

8 LET A“0 
10 LET B-10 
15 LET OO 
20 LET A$=“ 

25 LET 0=0 

30 LET E“INT(RND*15) 

35 LEr C-C+l 

40 IF C-20 THEN GOTO 130 
45 PRINT AT D.E; " " 

50 PRIN1 AT ll.B: "W" 

55 PRINT AT D+ 1,E: "0'' 

60 LEI’ D=1>1 

65 IF I>12 THEN GOTO 75 

70 GOTO 85 

75 LET A$(B+1)*-"EJ'‘ 

80 GOTO 25 

85 PRINT AT ll.B: “ " 

90 PRINT AT 12.0:A$ 

95 IF INKEY$="5" THEN LEI' 
B-B-l 

100 IF INKEY$=*8'' THEN LE 
T B=B+1 

105 IF E-B AND D-ll THEN 

GOTO 115 

110 GOTO 45 

115 LET A-A+l 

120 LET A$(B+1)-'' " 

125 GOTO 25 

130 PRINT " TRAFIONO: ";A 
; " RAZY " 
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TAJEMNICA FORTU WRIGHT-PETTERSON 


W niewielkim hallu było ciasno i du- 
szno. Tę duchotę potęgowało jeszcze pod- 
niecenie emanujące z twarzy oczekują- 
cych, ich zachowanie i rozmowy. Co rusz 
ktoś spoglądał na obite dekoracyjnie 
czarną skórą drzwi mieszczącego się obok 
gabinetu. Każda ze znajdujących się tu 
osób dałaby wiele, żeby znaleźć się po ich 
drugiej. stronie. 

Zza dźwiękoszczelnych drzwi nie do- 
cierał jednak żaden odgłos; ani strzępek 
rozmowy, ani nawet stukot maszyny do 
pisania. Ponure i ciemne, skutecznie 
strzegły tajemnicy wnętrza. 

— Do licha, sterczymy tu już dwie go- 
dziny i ani o krok nie posunęliśmy się do 
przodu. — Arian Robertson, sława miejs- 
cowej popołudniówki , „Dayle News”, 
zmiął niedopałek kolejnego papierosa. 
Czuł jak z każdą chwilą ulatniało się jego, 
zawodowe przecież, opanowanie. Kolejny 
dzień i kolejna porażka. Przychodził tu już 
czwarty raz w tym tygodniu i tak jak 
wszyscy, chciał wreszcie dowiedzieć się 
czegoś więcej. Czegoś sensacyjnego, od- 
krywczego. Rozwikłać tę pasjonującą taje- 
mnicę, o której wszyscy wiedzieli coś nie- 
coś. Zdawali sobie sprawę, że ujawnienie 
faktów może wywołać rewolucję w świa- 
domości społeczeństw. 

Czwarty raz i kolejna klapa. Żadnych in- 
formacji. Co wymyśleć, co napisać, żeby 
uspokoić i zadowolić opinię publiczną. 
Jak wywiązać się z obowiązków, skoro nie 
wie nic, nie ma żadnych danych. Tych kil- 
ku sloganów, które powtarzają od ponie- 
działku wszystkie dzienniki, ani nikt nie 
potwierdził, ani nie zdementował. Co za 
idiotyczna sytuacja. Minął już prawie ty- 
dzień od wydarzeń, a oni wciąż nie znają 
prawdy. Zresztą... Cóż to takiego jest, 
prawda? Co jest prawdziwe? Ciągnie każ- 
dy tę prawdę na swoją stronę, okrawa, 
spłaszcza, przecedza przez sito własnych 
imaginacji, zapamiętuje to, co mu odpo- 
wiada, co pasuje do jego układanki obraz- 
ka prawdy i świata. 

Poirytowany i zniechęcony zaczął 
przeciskać się w kierunku wyjścia. 

— Ari, spotkajmy się wieczorem w klu- 
bie — Peggy Norton filuternie zastąpiła 
mu przejście. 

— Daj spokój, innym razem — odbur- 
knął. Nie miał dziś ochoty ani na bar, ani 
na jej towarzystwo. Wychodził już z sali, 
kiedy zaskoczyła go cisza za plecami. Roz- 
gadane, nerwowe towarzystwo nagle 
zamarło w milczeniu. Podejrzliwie od- 
wrócił się i przez ramię, kątem oka, spojrzał 
w kierunku drzwi. Były uchylone... Na- 
reszcie...! Otworzyły się w chwili, kiedy 
zdecydowany był już odejść. Ech, gdzie 
jego dziennikarski instynkt.;.? Przecież 
gdyby wyszedł minutę wcześniej... 

Snop ostrego światła z gabinetu oświetlił 
stojącą w nich sylwetkę niewysokiego 
mężczyzny z rudawą bródką i okularach w 
złoconej oprawce. Zza szkieł wodziły po 
zebranych bystre oczy. Wydawało się, że 
żaden szczegół nie jest w stanie ujść ich 
uwagi. 


Arian bezwiednie zbliżył się do wcho- 
dzącego. Nie chciał uronić ni słowa. Pro- 
fesor Stringfield, bo to był właśnie ów 
słynny Stringfield, którego nazwisko od 
poniedziałku było na ustach niemal całego 
świata, raz jeszcze obrzucił zebranych ba- 
dawczym spojrzeniem. Przez krótką chwi- 
lę, jakby zastanawiał się, czy rzeczywiście 
powinien podzielić się z tymi ludźmi 
swoimi infor/nacjami. Odetchnął w końcu 
i stłumionym nieco głosem rozpoczął. 

— Drodzy państwo, raz jeszcze prag- 
nąłbym potwierdzić moje poniedziałkowe 
wystąpienie na sympozjum naukowym. 
Oświadczam państwu, że jestem w posia- 
daniu zdjęć, które mogą udokumentować 
wszystkie moje słowa, nie ma w tym nic z 
szalbierstwa, przyrzekam. Fotografie te 
ukazują obcych humanoidów. Tak, nie jest 
to nieporozumienie. 

— Ależ dowody, profesorze, dowody! 

— Prosimy o zdjęcia! 

— Proszę nam przedstawić dokumenty! 

Gwar, jaki zapanował w hallu, był reak- 
cją nie tyle na sensacyjne wiadomości, co 
na fakt, że ktoś wreszcie przerwał ten za- 
klęty krąg milczenia. Zebrani dziennikarze 
chcieli dowiedzieć się wszystkiego. I to tu, 
teraz. Natychmiast. Przekrzykiwali się wza- 
jemnie, rzucali pytanie po pytaniu. Leo- 
nard Stringfield, z niezmąconym spoko- 
jem, podniósł obie ręce do góry i gdy się 
nieco uspokoili, powtórzył: 

— Tak, tak. Mówię o forcie Wright-Pat- 
terson. Bo tam właśnie znajdują się ciała 
przybyszów z kosmosu. Są dobrze zabez- 
pieczone w szklanych pojemnikach wy- 
pełnionych ciekłym azotem. Nie grozi im 
zniszczenie. O wszystkim się zresztą pań- 
stwo dowiedzą osobiście dziś wieczorem, 
na konferencji prasowej zorganizowanej 
przez pełnomocnika ministerstwa. 

— Profesorze, więcej szczegółów! — 
rozległy się zewsząd głosy. 

— Panowie, to wszystko co mogę wam 
w tej chwili zakomunikować. Wieczorem, 
reszta wieczorem. — Profesor spojrzał je- 
szcze w głąb sali i prawie nieznacznie ski- 
nął głową. Arianowi gest ten skojarzył się 
natychmiast z dawaniem komuś tajemne- 
go znaku. Odwrócił się. Za nim stała Peg- 
gy. Z jej twarzy znikł porozumiewawczy 
uśmiech. 


W samochodzie Robertson raz jeszcze 
wracał pamięcią do ostatnich wydarzeń. I 
to dziwne zachowanie się Peggy... Sama 
proponowała mu spotkanie, a w chwilę 
potem, kiedy zbliżył się do niej i objął ra- 
mieniem, rozdrażniona odepchnęła go i 
jakby z wymówką, wymyśloną na pocze- 
kaniu, dlatego mało przekonującą, pod- 
biegła w kierunku szybkobieżnej windy. 

Dogonił ją, czuł, że trafił na jakiś ślad, 
nie chciał, żeby mu się to jeszcze bliżej 
niesprecyzo.wane „coś" wymknęło. Peggy 
mogła być kluczem do tej zagadki. Tuż 
przed drzwiami złapał ją raz jeszcze za 
ramię. Nie mógł jej stracić z oczu. 

— Daj spokój, innym razem — powtó- 
rzyła z ironią w głosie jego niedawne sło- 


wa. Zdjęła dłoń Ariana ze swojego ramie- 
nia i zatrzasnęła drzwi. Na które piętro po- 
jedzie? Do kogo? Wpatrywał się w napię- 
ciu w przeskakujące nad drzwiami dźwigu 
świetlne cyferki. Co się jej stało? Nigdy 
przecież nie zachowywała się tak. Od 
dwóch lat byli dobrymi kumplami i takie 
tam drobiazgi, jak dotąd, nie miały zna- 
czenia. Dlaczego więc dziś nagle zawzięła 
się na niego? Urażona ambicja? 

• Gwałtownie skręcił przed jakąś cięża- 
rówką i wjechał w boczną ulicę, przy któ- 
rej mieściła się redakcja gazety. Obiecał 
coś ekstra, a wraca z niczym. Jak się z tego 
wywinąć? Już wie. Powie szefowi, że ma 
murowany hit do jutrzejszego numeru. Po 
wieczornej konferencji nie da już jej się 
tak łatwo spławić. Może nawet lepiej, że 
odjechała sama. Bez osób trzecich, w nie- 
skrępowanej atmosferze, łatwiej nawiązać 
kontakt z naukowcem. Był bowiem pe- 
wien, że Peggy udała się na spotkanie z . 
profesorem Stringfieldem. 

— Cześć Ari, no i co z twoimi sensa- 
cjami? — Ironiczny głos bossa nie wróżył 
nic dobrego. — Już prawie tydzień obie- 
cujesz mi historię nie z tej ziemi, a ja wciąż 
nie mam nic rewelacyjnego na pierwszą 
stronę — Charlie częstował go niezmien- 
nie owym przywitaniem, od kiedy rozpo- 
czął pracę w tym nędznym szmatławcu. 
Wiele razy chciał już rzucić to nie dające 
mu satysfakcji zajęcie, ale w momentach 
determinacji trafiała się niespodziewanie 
„prawdziwa bomba”... Tym sposobem 
trwał już tutaj prawie siódmy rok. 

— I będzie. Na pewno. Umówmy się na 
rano. Wiesz, że zawsze dotrzymuję słowa. 
Rano dostaniesz materiał z pierwszej ręki, 
na sto procent. — Grał va banque. W no- 
tesie nie miał nic, w głowie zupełną pust- 
kę. Wierzył jednak, że dzisiejsza konfe- 
rencja rozstrzygnie o wszystkim. W końcu 
muszą przecież coś ujawnić. 

— Charlie, stary, daj jeszcze setkę i od- 
licz ją z mojego honorarium. — Charlie, 
zadziwiająco dzisiaj hojny, bez sprzeciwu 
sięgnął do kieszeni marynarki. Z podni- 
szczonego portfela wyjął dwie pięćdzie- 
siątki. 

— Wiesz, że jeśli dobrze pójdzie, to to 
będzie tylko zaliczka — szef uśmiechnął 
się porozumiewawczo i jakby w jednej 
chwili zapomniał o ich rozmowie. Zniknął 
za pulpitem komputera zastępującego 
niegdysiejsze segregatory. 

Wieczór zapowiadał się nieźle. Mógł 
wreszcie wrócić do domu. Miał jeszcze 
dość czasu na kolację, gorącą kąpiel i 
zmianę koszuli. Z trudem zdecydował się 
na kolejność tych czynności. Był potwor- 
nie głodny i piekielnie zmęczony. 


— Panowie, mam do zakomunikowania 
przykrą wiadomość — prezes Stowarzy- 
szenia Futurologicznego wyraźnie zwracał 
się do męskiej części zebranych, choć 
wśród nich znajdowało się również kilka ko- 
biet. 

— Z przykrością muszę państwu 
oznajmić — poprawił się po chwili — że 
nasz znakomity kolega, wieloletni członek 
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stowarzyszenia, wybitny naukowiec, pro- 
fesor Leonard Stringfield, nie żyje. — W 
głosie profesora .Toubala nie było żadnej 
emocji. Jakby informował zebranych, że 
właśnie na zewnątrz zaczął padać deszcz. 

— Uległ wypadkowi samochodowemu 
w drodze na naszą konferencję. Właśnie 
dostałem telefon z kliniki pourazowej. 
Osiem minut temu, nasz nieodżałowanej 
pamięci kolega, nie odzyskawszy przyto- 
mności, zmarł. W tej sytuacji sami państwo 
rozumieją... konferencja nje odbędzie się. 
— Sala wypełniła się groźnym hałasem. 

— A zresztą, to był tylko propagandowy, 
chwyt naszego szanownego kolegi — 
próbował przekrzyczeć zebranych — któ- 
ry w sposób, powiedziałbym mało ele- 
gancki, chciał zdobyć sobie popularność 
w świecie nauki i przejść do historii jako 
ojciec niekonwencjonalnych odkryć. Nie 
chciałbym, w takiej chwili, pomniejszać 
naukowych osiągnięć mojego kolegi, ale 
sami państwo rozumieją, to było zwykłe 
nieporozumienie. Niesmaczny żart. 

Wypowiedź wstrząsnęła wszystkimi. Za- 
częto snuć różnorodne spekulacje. 


Arian siedział teraz w fotelu ze szklanką 
ginu. Mógł przecież to wszystko przewi- 
dzieć. Dlaczego takiego obrotu sprawy nie 
założył? Nie trzeba by było w ogóle ruszać 
się z domu. Z tego wygodnego fotela. Ta- 
kie niewiarygodne sprawy muszą mieć 
przecież tak idiotyczne zakończenie. Ale 
zaraz, zaraz...? Że też nie pomyślał o tym 
wcześniej... Peggy... To chyba przez ten 
otępiający alkohol. Peggy... Co się dzieje z 
dziewczyną? Nie było jej wśród oczekują- 
cych na konferencję. A czekali przecież 
dość długo na jej rozpoczęcie. Może nie 
zauważył jej, podekscytowany czekający- 
mi go wydarzeniami? 

Nie, to niemożliwe. Dlaczego więc nie 
przyszła? Jeśli była z profesorem...? Wy- 
kręcał już kolejny raz numer jej telefonu. 
Przeciągły sygnał monotonnie dźwięczał 
w słuchawce. Cholera, gdzie też ona się 
podziewa o tej porze? Na pewno wcześ- 
niej dowiedziała się o wypadku i szuka ja- 
kiegoś zaczepienia. Zbyt dziwny to przy- 
padek. 

A może...? Nie, to przecież niemożliwe. 
Chociaż...? Jeśli jechała razem z profeso- 
rem na tę konferencję...? W radiu poda- 
wali, że w wypadku zginęły trzy osoby, ale 
do diabła...! Nie, czyżby mogła być wśród 
nich Peggy...? 

Zadzwonił do szpitala, do którego 
przywieźli ofiary wypadku. W rejestrze 
rannych, ani zabitych w dzisiejszym dniu, 
nie figurowało nazwisko Peggy. Odetch- 
nął z ulgą. Ale gdzie ona w takim razie 
może teraz być? Znowu zaczął się nad tym 
zastanawiać. Rozmyślania przerwał mu 
jednak dzwonek do drzwi. 

— Pan Arni? — zupełnie obcy mężczy- 
zna wyciągnął do niego dłoń. — Nazwiska 
niestety nie znam. Jestem Horst. Horst 
Wermer. Wracam prosto z lotniska. Jestem 
trochę zaszokowany. Wszystko stało się 
tak nagle. Peggy nawet nie zabrała ze,«obą 
walizek. Wzięła tylko do podręcznej torby 
najpotrzebniejsze rzeczy. Myślę, że to ko- 
lejny jej żart, czy też wariacki wybryk. 
Nigdy nie znała w nich umiaru, prawda? 


Potok słów nieznajomego, jakby z opó- 
źnieniem docierał do niego. Nim się 
odezwał, mężczyzna wcisnął mu jeszcze 
do ręki dużą, szarą kopertę. Raz jeszcze na 
pożegnanie potrząsnął jego dłonią... 

— To od Peggy. Prosiła, abym dziś je- 
szcze dostarczył to panu. Nie wydawało mi 
się to takie pilne, ale dałem słowo. Acha, 
no i najważniejsze. Wyjechała na rok do 
Afryki. Tak przynajmniej powiedziała. 
Rozumie pan coś z tego? Z podręczną 
torbą na drugi koniec świata. Nigdy nie 
rozumiałem tej kobiety — głos jego do- 
biegał za wciąż jeszcze otwartymi 
drzwiami. Nieznajomy odszedł równie 
szybko, jak się pojawił. Jedynym świa- 
dectwem jego tu obecności była szara, za- 
klejona koperta. Bez adresu, bez nazwi- 
ska, bez podpisu. Cała Peggy... 


Wyjął z koperty kasetę. Pełen wątpli- 
wości i sprzecznych myśli włączył magne- 
towid. Na ekranie pojawiły się kolorowe 
pasy, szumy... Po chwili zaś... Tak, to wnę- 
trze gabinetu profesora Stringfielda. Po- 
znał je od razu. Był w nim kiedyś, podczas 
reportażu o UFO... Na skórzanej kanapie 
Peggy, obok w fotelu, Stringfield. Między 
nimi, na niskim/ szerokim stoliku stos 
zdjęć, jakieś dokumenty. Obok kaseta wi- 
deo, odtwarzacz. 

— A więc profesorze, to nie fantazja? — 
głos Peggy zabrzmiał ze szklanego ekranu. 

— Kochane dziecko, kiedy pani przeży- 
je już tyle lat co ja, niemożliwe wyda się 
pani możliwym. I odwrotnie. — Profesor 
mówił z lekkim uśmiechem na twarzy. — 
Mówiłem już, że mam dowody. Są to zma- 
terializowane, namacalne. Jak pani wia- 
domo opowiadałem o wypadku rozbicia 
się nieznanego pojazdu na Ziemi. Ostatni 
z nich miał miejsce właśnie w Nowym 
Meksyku. Z miejsca tej katastrofy prze- 
wieziono ciała rozbitych humanoidów 
samochodami wojskowymi do fortu 
Wright-Patterson. 

— A teraz proszę spojrzeć, dziecko — 
profesor wcisnął klawisz odtwarzacza. 

Na ekranie widać było wyraźnie jakieś 
ciała, zamknięte w szklanych pojemni- 
kach. Ciała „obcych" były nagie. Musku- 
larne istoty miały duże głowy, bez nosów i 
uszu. Były całkowicie bezpłciowe, pozba- 
wione owłosienia... Umięśnione ręce się- 
gały poniżej kolan... 

— Widzi pani, oglądałem tego osobni- 
ka — profesor wskazał na zbliżenie jednej 
z „trumien". — Proszę sobie wyobrazić, że 
w chwili katastrofy był on przygnieciony 
szczątkami pojazdu. Wielesetkilogramo- 
wym blokiem żelastwa. A niech pani 
zwróci uwagę — żadnych ran, żadnych obra- 
żeń... 

Peggy oczy miała szerokie ze zdziwie- 
nia. 

— Ależ profesorze, jak to możliwe? 

— Sam się dziwiłem. Ich delikatna skó- 
ra, jak wykazały moje późniejsze badania, 
okazała się warstewką niezwykłego plasti- 
ku, nałożonego bezpośrednio na warstwę 
mięśniową. Jest on odporny na wszelkiego 


rodzaju uszkodzenia mechaniczne, termi- 
czne, chemiczne i jakie pani jest w stanie 
sobie jeszcze wyobrazić. 

Podczas badań stwierdziliśmy niepod- 
ważalnie, że mózgi owych istot sprawiają 
wrażenie, jakby należały do osobników w 
bardzo zaawansowanym wieku. Pięćset, 
może nawet siedemsetletnich. Ciała ich 
natomiast mają wygląd istot zupełnie 
młodych, zresztą sama pani widzi. A mimo 
to, nie stwierdziliśmy żadnych śladów 
przeszczepów mózgów. 

Mój kolega, profesor Henderson, któ- 
rego poważam i skłonny jestem przyjąć 
jego koncepcję, wysunął hipotezę nie- 
prawdopodobną, acz możliwą. Otóż 
twierdzi on, że owe humanoidy, to nic in- 
nego jak... — profesor zawiesił na chwilę 
głos — jak roboty. 

Proszę sobie wyobrazić, że istoty te, po- 
nad wszelką wątpliwość, zachowują pod- 
stawowe czynności biologiczne, a przede 
wszystkim zdolności myślenia, kojarzenia, 
podejmowania decyzji. Nie są jednak isto- 
tami, w ścisłym znaczeniu, rozumnymi. 

Dziewczyna raz po raz spoglądała to na 
profesora, to na ekran. 

— To znaczy, że wykonują tylko czyn- 
ności, jakby to powiedzieć naszym języ- 
kiem... 

— Zlecone im. Czy to chciał mi pan za- 
sugerować? — zapytała Peggy. 

— Nie zasugerować, droga pani. To 
przecież oczywiste, że istoty te mają do- 
skonałe warunki do wykonywania bardzo 
dalekich, długotrwałych podróży kosmi- 
cznych. Trwających nawet tysiące lat... 

— Tysiące, to niewiarygodne...? 

— Dla nas tak, ale ich inna przemiana 
materii, brak absorbcji tlenu zastąpiony 
absorbcją azotu świadczą, że właśnie do 
takich misji je stworzono. Zamrożone do 
temperatury 179 stopni Celsjusza, prakty- 
cznie są nieśmiertelne.. 

Profesor mówił coś jeszcze. Peggy ner- 
wowo gestykulowała, ale nie słychać już 
było głosu. Po chwili na ekranie pojawiły 
się pasy i obraz znikł. 

Arian siedział jak osłupiały. Bomba, 
bomba, bomba. Tak, to jest sensacja. W 
forcie Wright-Patterson ukrywają dowody 
na istnienie pozaziemskich cywilizacji. Kto 
wie, ilu takich kosmicznych rozbitków tam 
się znajduje. Zaraz, zaraz... Jak to on po- 
wiedział? Zamrożone, są praktycznie nie- 
śmiertelne? Cofnął taśmę. Włączył magne- 
towid. Nic... Przewinął raz jeszcze. Po- 
nownie nic... 

Nie, to niemożliwe... Skasowany cały 
zapisl Cały zapis tej jedynej, unikatowej 
rozmowy, został skasowany. Niewiary- 
godne... Jak to^ię mogło stać? 

Ogarnęła go niepohamowana wście- 
kłość. Krew napłynęła mu do twarzy. Pod- 
szedł do telefonu, wykręcił numer. 

— Charlie...? Chciałem ci powiedzieć... 
Oszukali nas dranie... Ale to jest prawda.. 
Mają tych rozbitków, widziałem ich... Nie, 
nie można tego udowodnić... Ale mają 
ich, mówię ci... 

Odłożył słuchawkę. Nalał sobie do peł- 
na ginu i ciężko opadł na fotel. 


Anna KALETA 
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INFORMATYCZNY SŁOWNIK 
ANGIELSKO-POLSKI 


I 


I MDI VI DUAL COMPONENT ERROR - błąd cząstkowy, 
INDIYISIBLE - niepodzielny, 

INDUSTRIAL DATA ACOUISITION SYSTEM - przemysłowy sy- 
stem centralnej rejestracji danych, 

INEFFECTIVE TIME - czas strat, czas przestoju, czas 
nieefektywny, 

INEFFICIENT - niesprawny, niewydajny, ni eef ektVwny , 
INEQUALI TY - nierówność, 

I NEQUI VALENCE - niejednoznaczność, 

INESCAPABLE - nie do uniknięcia, 

INEVITABLE ERROR - błąd nieunikniony, 

INEXACT - niedokładny, 

IN EXCESS - w nadmiarze, 

INFER - wnioskować, 

INFERENCE - 1. wniosek, konkluzja, 2. wnioskowanie, 
INFERENCE CHAIN — ciąg wniosków,- łańcuch wniosków, 
INFERENCE ENGINE - mechanizm wnioskowania. 

INFERENCE METHOD - metoda wnioskowania,* 

INFERENCE RULE - reguła wnioskowania, zasada wnio- ' 
skowania, 

INFERIOR - podwładny, 

INFERIOR OUALITY - gorszy gatunek. 

IN FIG. - na rysunku .... 

INFINITE - nieskończony, 

INFINITELY SMALL — nieskończenie mały, elementarny, 
INFINITE MEMORY FILTER — filtr z nieograniczoną pa- 
mięcią, 

INFINITE POINT - punkt niewłaściwy, 

INFINITESIMAL - nieskończenie mały, elementarny, 
INFINITY - 1. nieskończoność, 2. liczba poza zakre- 
sem, 

INFIX NOT ATI ON — sposób zapisu wyrażeń arytmetycz- 
nych gdzie znak operacji binarnej umieszcza się po- 
między operandami, 

INFIX OPERATOR - operacja binarna, której znak zapi- 
sywany jest pomiędzy operandami, 

INFLUENCE - wpływ, oddziaływanie, 

INFO - patrz i INFORMATION FIELD, 

INFORM - informować, 

INFORMATICS — informatyka, 

INFORMATION - informacja, 

INFORMATION BIT - dwójkowa jednostka informacyjna, 
bit informacyjny, 

INFORMATION BŁOCK - blok informacyjny, 

INFORMATION CAPACITY — pojemność informacyjna, 

I NFORMATI ON-CARRYI NG MEDIUM - nośnik informacji, 
INFORMATION CENTRE - ośrodek informacji. 

INFORMATION C HANNĘ L - kanał informacyjny, 

INFORMATION CHARACTER - znak informacyjny, symbol 
inf ormacyjny, znak tekstowy, 

INFORMATION CONTENT - zawartość informacji, treść 
informacji , 

INFORMATION FIELD — pole informacyjne, 

INFORMATION FLOW - strumień informacji, przepływ in— 
f ormac j i , 

INFORMATION FLOW RATĘ - szybkość przesyłania infor- 
macji , 

INFORMATION FORMAT - postać informacji, 

INFORMATION HANDLING — przetwarz an i e informacji, 
INFORMATION HIDING - ukrycie informacji, zakrycie 
i nf ormac ji , 

INFORMATION INTERCHANGE — wymiana zakodowanej infor- 
macji między maszynami, 

INFORMATION MANAGEMENT SYSTEM — hi er archi czny system 
zarz 4dzania bazami danych opracowany przez firmę IBM, 
INFORMATION MESSAGE — wiadomość i nf ormacyjna, 
INFORMATION NOISE — szum inf ormacyjny , 

INFORMATION PATH - droga przesyłania informacji, 
INFORMATION PROCESSING — przetwarzani e informacji, 

I NFORMATI ON-PROCESSING MACHINĘ - maszyna informacyj- 

I NFORMATI ON RECEI VER - odbiorca (odbiornik) informa- 

I NFORMATI ON REPRESENTATI ON - reprezentacja informa- 
cji, sposób przedstawienia informacji, 

INFORMATION RETRI EVAL - wyszukiwanie informacji, 
INFORMATION RETRIEVAL LANGUAGE — język informacyjny, 
język inf ormacyjno-wyszuki wawczy, 

INFORMATION RETRIEVAL SYSTEM - system informacyjno— 
-wyszukiwawczy, 

INFORMATION SCIENCE - informatyka, 


INFORMATION SCIENTIST *- informatyk, ‘ 

INFORMATION SEPERATOR - znak rozdzielający, separa- 
tor , 

INFORMATION SOURCE - źródło informacji. 

INFORMATION STORAGE - zapamiętywanie informacji, 
INFORMATION SYSTEM - system i nf ormacyjny , system in- 
formowani a, 

INFORMATION TECHNOLOGY - technika i nf ormatyczna, 
INFORMATION THEORY - teoria informacji, 

INFORMATION TRACK - ścieżka informacyjna. 

INFORMATION UNIT - jednostka (ilości) informacji, 

IN FRONT - z przodu. 

IN GENERAL — na ogół , 

INHERENT REGULATION - samoregul ac ja, samowyrównywa- 

I NHERENT STORĘ - pamięć samoczynna, 

INHERITED ERROR — błąd propagowany, 

INHIBIT - hamować, wstrzymywać, przeszkadzać, unie- 
możliwiać, blokować, 

INHIBITING CIRCUIT - układ blokujący, 

INHIBITING SI GNAŁ - sygnał zakazujący, 

INHIBITORY GATE — bramka bloku iąca, 

INHIBITORY INPUT - wejście blokujące, 

IN-HOUSE - własny, wewnętrzny, 

I N-HOUSE LINĘ - cząstkowa linia komuni kacyjna, dołą- 
czona do sieci komputerowej ogólnego dostępu, 
IN-HOUSE TRAINING - przygotowanie spec lal istów z wy- 
korzystaniem własnych sił i środków, 

INI TI AL - 1. początkowy, 2. inicjał, 

INI TI AL ADDRESS — adres początkowy, 

I NI TI AL CONDITIONS — warunki początkowe, 

INI TI AL DATA - dane pierwotne, dane źródłowe, 

INITIAL INSTANT — chwila początkowa, 

I NI TI ALI SM — skrót literowy, 

I NI TI ALI ZATI ON — ini c jal i zac ja, . 

I NI TI ALI ZATI ON COMMAND WORD - słowo inicjujące, 

INI TI ALI ZE - i. inicjować, rozpoczynać, zapoczątko- 
wać, 2 . przygotować 

INITIALIZER — program wprowadzający, 

INITIALLY — początkowo, 

INITIAL PROGRAM LOAD - ładowanie początkowe, program 
ładowania początkowego, 

INITIAL PROGRAM LOADER — program ładowania początko- 
wego, praprogram ładujący, 

INITIAL VALUE - wartość początkowa, 

INITIATE - inicjować, rozpoczynać, zapoczątkować, 
powstawać, wystawiać, 

INK — atrament, tusz, farba drukarska, 

INK BEAM RECORDER - pisak strumieniowy, 

INK DENSITY — intensywność atramentu, 

INKED RIBBON — taśma nasycona tuszem, 

INKING - rysowanie, pozostawianie śladu (dot. grafi- 

PRINTER - drukarka strumi eni owa, 

IN *“ JET RECORDING - metoda druku strumieniem rozpy- 
lonej farby, 

IN-LINE - 1. wbudowany, wmontowany, 2. przyłączony, 
doł ącz ony, 

IN-LINE CHECK - sprawdzanie maszynowe, kontrola ma- 
szynowa, 

IN-LINE CODĘ - rozkazy maszynowe, 

IN-LINE PROCESSING - przetwarzani e (danych) swobodne. 
IN-LINE SUBROUTINE - podprogram podstawi al ny, pod- 
program otwarty, (w czasie kompilacji jest wstawiany 
w miejsce swojego wywołania), 

IN-LINE SUBROUTINE EXPANSION - wstawienie podprogra- 
mu w miejscu jego wywołania, 

INMOS - firma angielska, zajmująca się opracowywa- 
niem nowych komputerów (w firmie tej powstał między 
innymi transputer i język równoległego programowa- 
nia Occam), 

I NMUTABLE FILE - plik (zbŁór) stały, plik (zbiór) 
tylko do odczytu, 

INNER FACE - wewnętrzna strona (np. taśmy dziurkowa- 
ne j > , 

INNER LOOP - cykl wewnętrzny, 

IN OPERATION — w eksploatacji. 


- 1 me działający, niezdolny 

do wykonania czynności,' 

IN ORDER OF . . . - w kolejności..., w celu.. 

IN-OUT BŁOCK - blok wejści a/wyjści a, i 

IN OUTLINE — w ogólnym zarysie, 

IN PARALLEL - rówhoległe, 

IN PARAMETER - parametr wejściowy, 

IN PARTICULAR - w szczególności, 

n?u P ° SI ' CION ~ "* * Woim mi •J*cu, we właściwym położe- 
IN PRACTICE - w praktyce, 

IN PRESS - w druku, 

INPUT - 1. wejście, 2. dane wejściowe, 3. urządzenie 
dane) 10 ”*’ 4 ’ ® V9nał "•J*‘=iowy, 3- wprowadzać (np. 
INPUT AREA - obszar wejścia, 

INPUT BŁOCK - blok wejściowy. 
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& INl^UT BŁOCK COUNT - liczenie bloków na wejściu, 

INPUT BUFFER FULL - sygnał zapełnienia rejestru, 
INPUT CHANNEL - kanał wejściowy, 

INPUT DATA - dane wejściowe, 

INPUT DE VI CE - urządzenie wejściowe, 

INPUT FIL£ - plik (zbiór) wejściowy, 

INPUT INSTRUCTION - rozkaz wejścia, 

INPUT LANGU AGE - język wejściowy, język zewnętrzny, 
INPUT MODĘ - tryb wprowadzania", 

I NPUT-OUTPUT - wejście/wyjście (operacje przesyłania 
danych pomiędzy pamięcią operacyjną a urządzeniami 
. zewnętrznymi ) , 

INPUT /OUTPUT AREA - obszar wejścia/wyjścia, 

I NPUT -OUTPUT BŁOCK - blok we jści a/wyjćci a , 
INPUT/OUTPUT CALL - wywołanie wejść i a/wy jści a, 
INPUT/OUTPUT CHANNEL - kanał wejściowo/wyjściowy, 
INPUT/OUTPUT CHARACTER - znak wejścia/wyjścia, 
INPUT/OUTPUT CONTROLLER - jednostka sterująca wej- 
ścia/wyjścia, 

INPUT /OUTPUT CONTROL PROGRAM - patrz: INPUT /OUTPUT 

SYSTEM, 

INPUT /OUTPUT CONTROL SYSTEM - patrz: INPUT/OUTPUT 
SYSTEM, 

INPUT/OUTPUT OPERATI ON - operacja wejścia/wyjścia, 

I NPUT-OUTPUT SPECI FI C ATI ON - opis wejściowych i wyj- 
ściowych parametrów, 

INPUT/OUTPUT SYSTEM - system wejścia/wyjścia, system 
sterowania wejścia/wyjścia, program sterowania wej- 

; ści a/wy jśc i a, 

INPUT/OUTPUT UNIT - urządzenie wejściowo/wyjściowe, ' 
jednostka obsługi wejścia/wyjścia, 

INPUT PROCESS - wprowadzanie danych, 

INPUT PROGRAM - program wprowadzania, 

INPUT QUANTITY - wielkość wejściowa, 

INPUT REGISTER - rejestr wejściowy, 

INPUT SPEED - szybkość wprowadzania (informacji ) , 
INPUT STREAM - strumień wejściowy, 

INPUT UNIT - patrz: INPUT DEVICE, 

INClUIRY - 1. żądanie informacji, zapytanie, 2. do- 
chodzenie, badanie, 

;.,INQUIRY UNIT - urządzenie końcowe za pośrednictwem 
którego można żądać informacji od komputera i otrzy- 
mać odpowiedz,' 

INSCRIBE - wpisać, wypełniany dokument uzupełnić pi- 
smem czytelnym dla komputera, 

I NSCRI PTI ON - napis, ' 

INSECURE TAPE - taśma ni eskatal ogowana, taśma nieza- 
bezpieczona, 

IN SEOUENCE - kolejno, po kolei. 


IN SERIES - szeregowo, 

INSERT - 1. wkładać, wstawiać, wprowadzać, zakładać, 
2. wstawka, 

INSERTION - 1. wstawka, 2. wprowadzanie kart do ma- 
szyny, 

INSERT MODĘ - tryb wstawiania (w edytorach ekrano- 
wych, znak wprowadzany z klawiatury, wstawiany jest 
przed znakiem aktualnie podświetlanym przez kursor), 
IN SERVICE - w ekspl oatac ji , 

IN SERVICE REGISTER - rejestr obsługiwanego przerwa- 
ni a, 

INSIDE - strona wewnętrzna, wnętrze, 

IN SITU - na miejscu, 

INSPECTION LEVEL - poziom kontroli, 

INSTABILITY - niestabilność, 

INSTALL - urządzić, instalować, 

INSTALLATED TASK - zadanie zainstalowane, zadanie 
włączone, zadanie uruchomione, 

I NST ALLATI ON - urządzenie, instalacja, 

I NST ALL ATI ON PARAMETER - parametr instalacji, 
INSTALLATIONS DATĘ - data zainstalowania (uruchomie- 

I NST ANCE - 1. egzemplarz, 2. przypadek, 

INSTANT - chwila, moment, 

I NST ANT ANEOUS - chwilowy, natychmiastowy, bezzwłocz- 
ny, momentalny, 

INSTANT ANEOUS VALUE - wartość chwilowa, 

IN STEP - w takt, synchronicznie. 

INSTITUTE OF ELECTRICAL AND ELECTRONICAL ENGINEERS - 
Instytut Inżynierów o Specjalności Elektrotechniki 
i Elektroniki, 

I NSTRUCT - instruować, szkolić, 

INSTRUCTION - 1. instrukcja, rozkaz, 2. szkolenie, 
instruktaż, 

INSTRUCTION ADDRESS - adres rozkazu, 

INSTRUCTION CODĘ - kod rozkazowy, 

INSTRUCTION COMPLEMENT - uzupełnienie rozkazu, 
INSTRUCTION COUNTER - licznik rozkazów, 

INSTRUCTION COUNTING REGISTER - rejestr licznika ro- 

INSTRUCTION CYCLE - cykl rozkazu. 


INSTRUCTION DECODER - dekoder rozkazów, deszyfrator 
rozkazów, 

INSTRUCTION EXECUTION - wykonanie rozkazu, 
INSTRUCTION FETCH PHASE - faza wywoływania rozkazu, 
INSTRUCTION FIELD - pole rozkazu. 

INSTRUCTION FLOWCHART - schemat blokowy wykonywania 
instrukcji (rozkazów), 

INSTRUCTION FORMAT — struktura rozkazu, budowa roz- 
kazu, 

INSTRUCTION FOR USE - instrukcja użytkowania, 
INSTRUCTION INDEX - indeks rozkazu, 

INSTRUCTION LENGTH - długość rozkazu, 

INSTRUCTION LIST - patrz « INSTRUCTION SET, 
INSTRUCTION LOOP - pętla rozkazowa, pętla (progra- 
mowa ) , 

INSTRUCTION MI X - mieszanka rozkazów (program zbudo- 
wany z rozkazów różnych typów, wykorzystywany do ok- 
reślenia szybkości działania procesora lub systemu 
komputerowego) , 

INSTRUCTION PART - część rozkazowa. 

INSTRUCTION POINTER - wskaźnik rozkazów, 

INSTRUCTION REGISTER - rejestr rozkazów, 

INSTRUCTIONS DECODING - dekodowanie rozkazów, 
INSTRUCTION SEOUENCE - sekwencja rozkazów, 
INSTRUCTION SEOUENCE REGISTER - rejestr kolejności 
rozkazów, 

INSTRUCTION SET - repertuar rozkazów, lista rożka- ii 
zów, 

INSTRUCTION STREAM - łańcuch rozkazów (ciąg rozkazom 
przenoszonych z pamięci do procesora) , 

INSTRUCTION SYSTEM - system rozkazowy, 

INSTRUCTION TIME - czas wykonania rozkazu (maszyno- 
wego) , 

INSTRUCTION TYPE - typ rozkazu, 

INSTRUCTION WORD - słowo rozkazowe, 

INSTRUMENT - przyrząd, 

INSTRUMENT ATI ON - oprzyrządowani e, 

IN SUCCESSION - kolejno, 

INSULATE - izolować, 

INSURE - upewniać się, 

INSWAP - ładować, załadowywać, 

IN-SYSTEM PERFORMANCE - funkcjonowanie części w da- 
nym systemie, 

INT - patrz: 1. INTEGER, 2. INTERRUPT, 

INTANGIBLE - niewymierny, nieuchwytny, 

INTEGER CNUMBERj - liczba całkowita, 

INTEGER PROGRAMMING - programowani e całkowitolicz&fó— 

INTEGER- VALUED - cał kowi tol i czbowy , 

INTEGER VARI ABLE - zmienna liczba całkowita, 

INTEGRAL - 1. cał kowi tol iczbowy, 2. wbudowany, wmon- 
towany, 3. integralny, nierozdzielny, 4. całka, 
INTEGRAL TYPE - typ cał kowi tol iczbowy (typ danych 
przedstawiający liczby całkowite), 

INTEGRATE - łączyć w całość, scalać, komasować, in- 
tegrować, 

INTEGRATED CIRCUIT — układ scalony, obwód' scalony, 
INTEGRATED COMPUTING SYSTEM - zintegrowany system 
przetwarzania danych, 

INTEGRATED DATA BASE - zintegrowana baza danych, 
INTEGRATED DATA PROCESSING - zintegrowane przetwa- 
rzanie danych, 

INTEGRATED DATA STORĘ - kompleksowe magazynowanie 
danych, 

INTEGRATED ENVIRONMENT - środowisko zintegrowane, 
otoczenie z i ntegrowane, 

INTEGRATED MANAGEMENT INFORMATION SYSTEM - zintegro- 
wany system informacyjny kierownictwa, 

INTEGRATED MODEM - modem wbudowany, 

INTEGRATED PACKAGE - pakiet zintegrowany, 

INTEGRATED SOFTWARE - patrz: INTEGRATED SYSTEM, 
INTEGRATED SYSTEM - pakiet zintegrowany, system zin- 
tegrowany, 

I NTEGRATI ON - 1. łączenie w całość, 2. całkowanie, 
INTEGRITY - całkowitość, 

INTEL CORPORATION - firma amerykańska, opracowująca 
i produkująca między innymi elementy półprzewodniko- 
we (w firmie Intel wyprodukowano pierwsze mikropro- 
cesory Intel 4004 i Intel 8008) , 

INTELLIGENCE - 1. inteligencja, 2. wiadomość, infor — 
macja (przekazywana), wywiad, 

INTELLIGENCE OUOTIENT - iloraz inteligencji, 
INTELLIGENT COMPUTER-ASSISTED INSTRUCTION - inteli- 
gentny system nauczania komputerowego, 

INTELLIGENT DATA BASE - inteligentna baza danych, 
INTELLIGENT TERMINAL - terminal inteligentny (pro- 
gramowany), urządzenie końcowe inteligentne (z pa- 
mięcią i mi kroprocesorem) , 

INTELLIGIBLE - zrozumiały, 

INTENSE - intensywny, 

INTENSIFICATION - wzmacnianie, intensyfikacja, 

I NTENSI FI ER - wzmacniacz, 

INTENSIFY — intensyfikować, wzmacniać, 

I NTENSI ON OF A CONCEPT - treść pojęcia, 

I NTENSI TY - natężenie, intensywność, nasilenie, 

I NTENSI TY LEVEL - poziom intensywności świecenia. 
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ZADANIE 1 

Turysta wsiadł w Warszawie do samolotu, który poleci po 
najkrótszej trasie do pewnego lotniska położonego na równiku. 
Osoby odprowadzające turystę zauważyły, że samolot wystar- 
tował w kierunku zachodnim. Należy podać ile kilometrów 
(w przybliżeniu) wynosi długość trasy samolotu? 

ZADANIE 2 

Dziadek i babcia mają w sumie 154 lata. Dziadek ma dwa 
razy tyle lat, ile babcia miała wtedy, kiedy dziadek miał tyle, ile 
babcia ma obecnie. Proszę podać ile lat ma dziadek, a ile lat 
ma babcia? 


ZADANIE 3 

Na szpulę kasety magnetotonowej o promieniu zewnę- 
trznym r nawijana jest ze stałą prędkością liniową v taśma ma- 
gnetofonowa o grubości d. Należy obliczyć ile zwojów n taśmy 
nawinie się w ciągu czasu t? 


ZADANIE 4 . , 

W pewnym kraju afrykańskim, w wyniku nieurodzaju i klęsk 
żywiołowych podwyższono ceny na wszystkie towary, najpierw 
o 20 proc., a później jeszcze o 25 proc. O ile zmalała siła nabyw- 
cza pieniądza w tym kraju? 

ZADANIE 5 

Wiedząc, że liczba a=xy234z jest podzielna przez 396 
znaleźć cyfry x, y, z. 


Rozwiązania zadań prosimy przysyłać do redakcji do końca lutego br., z dopiskiem „Liga Myślących”. Punktacja 
zależy od liczby prawidłowych rozwiązań. Wśród uczestników rozlosujemy książki, a na zwycięzcę „Ligi” czekają 
dodatkowe nagrody. 








KRZYŻÓWKA NR 1 


7y dzid oUtydRlfM* ^ U v / 


Litery z kratek ponumerowanych od 
1 do 24 dadzą hasło, które wystarczy 
nadesłać jako rozwiązanie zadania 
pod adresem redakcji na kartach 
pocztowych w terminie do końca lu- 
tego, naklejając kupon „IKS-a”. 
Wśród autorów prawidłowych odę 
powiedzi rozlosujemy bony pienię- 
żne i nagrody książkowe. 


MT 


33 rukarki 

Najbardziej, znaną na rynku drukarek 
komputerowych w Polsce jest firma Star, 


której kolejne modele SG-10, NL-10, czy 
LC-10 podbiły n 
nim ulokowały. 


) nasz rynek i mocno się na 


Jedną z ostatnich nowości firmy Star jest 
drukarka 24-igłov\fa Multifont LC 24-10. 
Można w niej korzystać aż z czterech 
wbudowanych krojów pisma: Courier, 
Prestige, Script, Orator, z tym, że każda 
czcionka może być pisana normalnie lub 
pochyło. Prędkość druku nie jest imponu- 
jąca, lecz zastosowanie tej ilości igieł, za- 
miast jak zwykle 9, zdecydowanie poprawia 
jakość druku. Jest on zbliżony do tego z 
drukarek laserowych. 

Te ostatnie drukarki produkowane 
przez firmę Hewlett-Packard pojawiły się 
w 1984 roku . Bardzo duża prędkość i zna- 
komita jakość druku spowodowały, że 
błyskawicznie znalazły zastósowanie w 
komputerach. W rok później powstał 
standard opisu tekstu i grafiki w postaci 
języka opisu strony — PDL (Page Descrip- 
tion Language). Dzisiaj z tego języka ko- 
rzystają wszyscy producenci drukarek. 

Drukarki kodem w języku Post Script 
wydrukują każdą stronę. Mają własny 
komputer, własną pamięć, a często też 
dysk sztywny. Niedawno pojawiła się już 
pierwsza laserowa drukarka kolorowa. 
Pod nazwą QMS Color Script 100 wypro- 
dukowała ją firma QMS Inc. Jest ona wy- 
posażona w procesor 68020 z zegarem 16,7 
MH2, pamięć ROM-1MB, RAM-8MB i dysk 
sztywny — 20MB. Uzyskano bardzo 
dobry kolorowy obraz o rozdzielczości 
300 cpi, jaki daje normalna drukarka lase- 
rowa. Lecz cena za to kolorowo drukujące 
cudo jest „nienormalna" i wy nosi 25 tys. 
doi., co jest sumą kilkakrotnie yyyższą od 
cen normalnych drukarek laserowych. 

Badania prowadzone są jednak W bły- 
skawicznym tempie. Okazało się, że pa- 
rametry drukarek laserowych można za- 
chować usuwając z nich najdroższe ele- 
menty: laser i zwierciadła. Dokonano tego 
w drukarce Crystal Print VIII firmy Data 
Technology Corp. Bęben jest tam naświet- 
lany za pomocą 2400 oddzielnie kontro- 
lowanych wyświetlaczy ciekłokrystali- 
cznych. Uzyskano rozdzielczość podobną 
iak w urządzeniach laserowych, a i szyb- 
kość druku jest bardzo zbliżona — 8 stron 
na minutę. Drukarki działające na tej za- 
sadzie są całkowitą nowością i nazywane 
są drukarkami LCS (liquid-crystal-shutter). 

Podobną nowością jest wprowadzenie 
drukarek systemem Braille’a. Holenderska 
firma Resus wypuściła takie urządzenia 
oznaczone symbolem RS214 charaktery- 
zujące się wydajnością 200 linii czterdzie- 
stoznakowych na minutę. Drukarka może 
pełnić rolę terminala dla niewidomych, 
umożliwiając im czytanie danych wpro- 
wadzanych z klawiatury oraz wyników 
podawanych przez komputer. Dzięki niej 
można pisać listy, a także drukować cza- 
sopisma i książki. Cena ponad 10 tys. doi., 
d|a Polaków trochę szokująca, dla za- 
chodniego użytkownika nie jest wcale ta- 
ka wygórowana. 

J. RAJCH 


„IKS” — dodatek „Żołnierza Wolności". Redaguje Wiesław Cetera (kierownik zespołu); Rada progn 
Chmarra, Romuald Głęb, Włodzimierz Gogołek, Janusz Janiec, Henryk Kraauskl, Ireneusz Miernik, Ludwik Piela, Jacek 
Szaniawski. Adres redakcji: 00-950 Warszawa ul. Grzybowska 77, telefon centrali 20-12-61 w. 486. Telex 313664. Rękopi- 
sów nie zamówionych redakcja nie zwraca I zastrzega sobie prawo do skrótów. Nakładem: Wydawnictwa „Czasopisma 
Wojskowe", Warszawa ul. Grzybowska 77. Fotoskład I druk offsetowy — Wojskowe Zakłady Graficzne Im. gen. dyw. 
A. Zawadzkiego. Nr zam. 2136. Nr ind. 361662. A-52 
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Od zakończenia drugiej edycji „ Ligi Myślących" upłynęło ponad pół roku. Przypominamy: pierwsze miejsce zajął Zdzisław 
Bedynek, pozostałymi laureatami byli Wiesław Rychlicki, Magdalena Rojek, Andrzej Barcewicz I Adam Domlrtski. 

Zwycięzcy odebrali nagrody z rąk zastępcy redaktora naczelnego „ Żołnierza Wolności", płk. Marka Zdziecha. 


SPIS TREŚCI 


Work Statlon 
Superkomputery 
Skojarzenie czterech par 
Komputerowa analiza układów 
elektronicznych 

Jak oszczędnie przechowywać ekrany na 
dyskietce 

Systemy operacyjne I inna gotowe programy 
Program „MIERNIK” 

Funkcja dyskryminująca 
Niespodziewana wizyta 
CPC 6128 — programy narzędziowe 
Koniec „dżumy” 

Słownik 
Piotruś Pan 


— 3 

— 5 

— 7 

— 9 

— 15 

— 16 

— 19 
20 

-22 

-26 

— 28 
-29 
-32 


Ten numer „IKS-a” oddajemy do rąk Czytelnika 
z opóźnieniem. Przepraszamy. Mamy nadzieję, że 
w obliczu „uzdrawiania gospodarki” i stawiania 
spraw oczywistych „na nogi" terminowość uka- 
zywania się naszego pisma będzie ekonomiczną 
koniecznością, prawa rynku odgrywają również w 
naszej redakcyjnej pracy niemałą rolę. 

Sądzimy jednak, że nasze pismo nadal towarzy- 
szyć będzie Czytelnikom poszukującym ciągle 
nowej wiedzy o informatyce. Jaki będzie „IKS"? 
O tym decydują jak zwykle Czytelnicy. Uważnie 
czytamy Wasze listy, choć nie na wszystkie jesteś- 
my w stanie odpowiedzieć — ale każdą uwagę 
skierowaną pod naszym adresem starannie wyko- 
rzystujemy. Zatem czekamy na Wasze uwagi. 


FIRMA 

MODEL 

CPU 

FPU 

MIPS 

RAM 

(Mb) 

HRCH 

HARD 

DYSKI 

MONITOR 

Rozdzielczość 

System operacji 
(OS) 




68881-12 

aro 

4 

8 

80/155/330 

15” mono 

1024X800 


-COMPUTERS 

DN-4000 

68030-33 

68881-33 

ii 

8 

32 lub 64 

155/330/696 

19”color 

1024x1024 










19”color 

1024x1024 

Domain 


DN-10.000 

RISC 

- 

12 

64 

128 lub 256 

696 

19”color 

1280X1024 

Aegis 

SUN-Microsy- 

Sun- 3/50 
Sun-3/I60 

68020-15 

68020-25 

68881-16 

68881-25 

1.5 

4 

4 

8 

4 

16 

49 

141 

19”mono 

1152x900 

1152x900 

Sun (OS) 
(UNIX) 


Sun-4/260 

RISC 

1164/1165 

10 

32 

128 

560 

19”color 

1152x900 






2.2 

4 

16 

_ 

15“mono 

1280x1024 

Mtcroports 

systems 



80387-16 

2.2 

4 

16 

40 

17”color 


DOS-Merge 




2.2 

4 

16 


19”mono 




I9C 

80386-16 

80387-16 

2.2 

4 

16 

71 

19”color 






68881-25 

3.7 

8 

32 

80 

19”color 

1280X1024 

UP-Ux 

Packaril 

9000-8255 

RISC 

— 

8 

8 

56 

80/131 

19”color 


(UN1X) 

DEC 




0.9 

4 

6 

159 

15”mono 

1024x864 

ULTRIX 

2000 







15”color 


(UNlX) 

VMS 

XEROX 

XEROX 228S 

68020-16 

68881-16 

2.5 

4 

16 

86 

19”color 
19” mono 

1024x792 

1024X792 

Berkeley 
UNIX 4.3 

MASSCOMP 


68020-16 

68881-16 

2 


4 

71 

12"cok>r 

640X480 

RTV 

MC 5450 

68020-20 

68881-20 

2.5 

ma 

10 






2 


























WORK STATION 

— STACJE GRAFICZNE 
do zastosowań inżynierskich 


Już w roku 1980 użytkownicy 
komputerów; technicy, inżynie- 
rowie, naukowcy, architekci i 
różnego rodzaju projektanci — 
rozważali dwa ponure fakty: nie- 
wielką moc mikrokomputerów i 
bardzo wysokie ich ceny. Mikro- 
komputery posiadały niewystar- 
czającą moc jednostek central- 
nych (CPU), pamięci wspólnych 
zasobów, jak również nie posia- 
dały właściwej (odpowiedniej dla 
celów inżynierskich) rozdzielczoś- 
ci ekranów. Te cechy posiadały 
minikomputery, które z kolei nie 
umożliwiały interaktywnej pracy, 
ze względu na swoiste systemy 
operacyjne. Problemy te rozwią- 
zała najpierw firma APOLLO COM- 
PUTERS w 1981 roku komputerem 
DOMAIN DN 100, później firma 
SUN MICROSYSTEMS w 1982 ro- 
ku komputerem SUN-1 zapełnia- 
jąc lukę Stacjami Roboczymi 
ogólnego przeznaczenia. Syste- 
my te zostały stworzone dla po- 
trzeb inżynierskich i posiadały 
szybkie jednostki centralne 
(CPU), duże pamięci RAM, ekra- 
ny o wysokiej rozdzielczości, du- 
że pamięci dyskowe oraz możli- 
wości pracy w sieciach przy uży- 
ciu file serverów, jak również 
pozwalały połączyć ze sobą różne 
stacje z różnymi urządzeniami 
peryferyjnymi, takimi jak plottery, 
digitizery, scanery, drukarki itp. 

W szczególności APOLLO i 
kroczący tuż za nim SUN rozrasta- 
ły się gwałtownie tworząc nowe 
urządzenia dla elektroniki, pro- 
jektowania kosmicznego i lotni- 
czego, CAD-u, prac wydawni- 
czych, sztucznej inteligencji, 
wspomagania komputerowego 
prac inżynierskich, przetwarzania 
obrazów, trójwymiarowego mo- 
delowania struktur, jak również 
obsługi służb finansowych i księ- 
gowych. Tym samym wzrosło za- 
interesowanie innych firm kom- 
puterowych tego typu produkta- 
mi. 


STANDARD STACJI ROBOCZEJ 
(GRAFICZNEJ) 


Najprostsze stacje robocze są 
zadziwiająco podobne do siebie, 
a to za sprawą standardu prefe- 
rowanego od początku swej dzia- 
łalności przez firmę APOLLO. 

Podstawowy typ Stacji Robo- 
czej posiada jednostkę centralną 
(CPU) 32-bitową, 4 do 8 Mb RAM, 
40 do 80 Mb Karol dysk, ekran 
megapixelowy, połączenia sie- 
ciowe o szybkości transmisji rzę- 
du 10 Megaboadów, system ope- 
racyjny wielozadaniowy oparty na 
pamięci Virtualnej (tzw. wspoma- 
ganie herolwerowe grafiki). 
Większość z nich może pracować 
w sieci we współpracy z file sen/e- 
rem. Zarówno prekursor w dzie- 
dzinie produkcji stacji grafi- 
cznych — firma APOLLO, jak 
również SUN, HEWLETT PAC- 
KARD i prawie wszystkie współ- 
czesne stacje graficzne oparte są 
na Motoroli serw 68000 i kopro- 
cesorze 68881 z paroma wyjątka- 


mi, jak DĘC VAX Stadion 2000. 
Wszystkie firmy pragną maksy- 
malnie zwiększyć częstotliwość 
zegara, jednostki centralnej, sto- 
sując następny w generacji mik- 
roprocesor. Wreszcie wielu pro- 
jektantów jednostek centralnych 
zwraca się do własnych chipów, 
często opartych na technologii 
RISC (Reduced Instruction set 
Computer) — bezwzględnym 
liderem jest APOLLO z modelem 
DN 10000, którego wartość po- 
równywalna jest z dużymi super- 
komputerami CRAY-a. 

Komputery PC często mierzą 
swoje osiągnięcia szybkością ze- 
garów. Stacje graficzne natomiast 
opierają swoje osiągnięcia na mi- 
lionach operacji na sekundę 
(MIPS), od 1 MiPS-a w pierwszych 
modelach do MIPS-ów np. w 
APOLLO serii 4000, którego cena 
w rozbudowanej konfiguracji 32 
Mb RAM, 330 Mb nad dyskiem i 
kolorowym monitorem 19 o roz- 
dzielczości 1024X1024 wynosi 
około 115 000 dolarów, co wydaje 
się w porównaniu z innymi mini- 
komputerami dość niewygóro- 
waną ceną. 

Wszystkie stacje robocze za- 
pewniają wielozadaniowość po- 
przez system operacyjny i dzięki 
odpowiedniej architekturze wew- 
nętrznej gwarantują doskonałe 
osiągnięcia. Większość nowych 
systemów posiada na przykład 
pamięć typu Cache Memory 
(8 Kb), która stała się standardem. 
Wiele programów inżynierskich 
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kófżystują często inferaRTywną 11 
grafikę. Inżynierowie często ko- 
rzystają z wielozadaniowości 
dzięki czemu mogą przez cały 
czas pracować, podczas gdy dłu- 
gie i uciążliwe obliczenia doko- 
nywane są w tle. 

Cechą stacji, decydującą o suk- 
cesie są duże ekrany z dobrą roz- 
dzielczością mierzoną już w me- 
gapixelach, pozwalające prakty- 
cznie na stosowanie wielu okien 
jednocześnie, np. w modelu 
APOLLO serii 4000 rozdzielczość 
ekranu 19” wynosi 1280X1024, co 
jest obecnie absolutnym rekor- 
dem. 

OPROGRAMOWANIE 

Wspólną cechą wszystkich 
niemalże Stacji Graficznych jest 
ich system operacyjny (OŚ). Pra- 
wie wszystkie wykorzystują adap- 
tację UNIX — a łączącą osiągnię- 
cia systemu V z elementami sy- 
stemu BERUELEY 4.2. 

APOLLO rozpoczął pracę z 
własnym systemem o nazwie AE- 
GIS, ale wkrótce przeszedł na 
UNIX-a pociągając za sobą prawie 
wszystkie firmy. SUN krocząc tuż 
za APOLLO musiał nawet zatrud- 
nić bezpośredniego projektanta 
systemu UNIX 4.2., royśląc, że to 
właśnie pomoże mu w dotrzyma- 
niu kroku APOLLO. 

tirma DEC oferuje zarówno 
UNIX, jak i swój własny system 
operacyjny pod nazwą VMS, któ- 
ry z uwagi na długotrwałą obec- 
ność firmy na rynku prawie stał 
się standardem. 

Nowe firmy w branży; jak AP- 
PLE, czy-^Televideo, zdając sobie 
sprawę z popularności UNIX-a 
oferują go równolegle z własnym 
systemem. 

Większość użytkowników MAC- 
INTOSHY zaraz poczuje się jak 
w domu, pracując na stacjach ro- 
boczych, bo używają one okien 
do zarządzania systemem. Dwa 
systemy walczą tu o rangę stan- 
dardu. APOLLO i jego naśladow- 
cy DEC, HP i wielu innych popiera 
X-WINDOWS SYSTEM, pakiet 
stworzony na uniwersytecie MIT 
jako część projektu ATHENA oraz 
NEWS (Network-extensible win- 
dowing system) preferowany 
przez firmę SUN, który odstrasza 
potencjalnych klientów ze 
względu na zbyt trudny aparat 


użycia procedur nie znajdujących 
miejsca przy pracy w sieci. Szybka 
/integrowana sieć jest elementem 
vitalnym, jeżeli chce się wymie- 
niać informacje graficzne pomię- 
dzy użytkownikami, wspólnie ko- 
rzystać z drogich peryferii, jak 
plottery, drukarki, duże dyski la- 
serowe czy streamery. Najczęściej 
używaną siecią w świecie stacji 
graficznych jest Ethernet. Z uwa- 
gi na rolę sieci wielu producen- 
tów stacji wytwarza również ser- 
very, które są wyspecjalizowane 
w obsłudze węzłów sieciowych. 


Moim celem było przybliżenie 
problemu mało znanego i niedo- 
cenionego na polskim rynku 
komputerowym, a przecież trud- 
no sobie wyobrazić w wysoko 
uprzemysłowionych krajach świa- 
ta prace projektowo-graficzne 
bez WORUK STATION. 

Można optymistycznie przewi- 
dzieć wielkość postępu nauko- 
wo-badawczego w dziedzinie 
projektowania i grafiki w Polsce 
przy zwiększonych wysiłkach po- 
pularyzujących ten kierunek in- 
formatyki. 

BRYSKOW 
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Komputer w Uniwersytecie Illinois symuluje coś czego 
nikt wcześniej nie widział. Pierwsze chwile po „Big Bang'u". 
Można oglądać wydarzenia, które miały miejsce miliardy 
lat temu — fantastyczne kształty kolorowych obłoków ma- 
sy międzygalaktycznej. Owe kolory wskazują różnice gę- 
stości wędrujących chmur materii. Natomiast w Instytucie 
Massachusetts inny komputer usiłuje nauczyć się tego, co 
umie trzyletnie dziecko. Na przykład zdolności oceny róż- 
nicy między kubkiem a spodkiem. To, co dzieci dostrzegają 
natychmiast, komputer musi krok po kroku przeanalizo- 
wać. Najpierw rozpoznać klasę obiektu, fizyczne cechy 
różniące go od otoczenia, potem zwraca uwagę na atrybu- 
ty. itp. 

Eksperymenty te wskazują na paradoks istoty współ- 
czesnej informatyki. Z jednej strony gigantyczne moce ob- 
liczeniowe, z drugiej natomiast intelektualne zdolności, któ- 
re często są znacznie mniejsze od poziomu intelektualne- 
go kilkuletniego dziecka. Wyraźnie dominują typowe (tra- 
dycyjne) zastosowania komputerów — szczególnie tam, 
gdzie mamy do czynienia ze specjalizowanymi zadaniami. 
Mimo ich ogromnej skali, maszyny wykonują te prace w 
czasie kilku godzin — przed erą komputerów wymagało by 
to zaangażowania wielu ludzi w czasie kilku pokoleń... 

Od 40 lat naukowcy pracują nad tymi obiema drogami 
badań komputerowych. Jedna grupa zajmuje się szybkimi 
jak światło maszynami — i niezmiennie dąży do zwiększe- 
nia ich szybkości, mocy. Druga grupa pisze programy o 
znamionach początków sztucznej inteligencji. Obie te gru- 
py wybitnych uczonych, dysponując miliardami dolarów 
działają indywidualnie, jak gdyby druga grupa nie istniała. 

Ostatnio pojawiły się pewne oznaki, iż dwie szerokie 
drogi badań komputerowych mogą się połączyć. Być może 
wkrótce najlepsze komputery zostaną sprzężone w jeden 
elektroniczny mózg, który będzie nie tylko nadzwyczaj 
szybki, ale i mądry. Trudności owego „spotkania" należy 
głównie upatrywać w różnych poziomach zaawansowania 
tych prac. Sztuczna inteligencja właśnie rozpoczyna swoje 
życie. Pierwszy komercyjny projekt powstał zaledwie pięć 
lat temu. Mimo to ma on już dzisiaj wiele poważnych zasto- 
sowań. Jednak z drugiej strony fabryki produkujące sprzęt, 
o którym jest mowa, czyli superkomputery, zajmują się tym 
już od ćwierć wieku. Mają ogromne doświadczenia i 
sprawdzony rynek. Sprzedaż tych maszyn, a kosztują one 
od 5 do 25 milionów dolarów każda, rośnie o 25% każdego 
roku. 

Około 300 superkomputerów wykorzystywane jest do 
badań nad problemami paliwowymi, do analizowania struk- 
tury mięśni i tworzenia specjalnych efektów dla holly- 
woodzkich filmów. Ogromna moc superkomputerów do- 
stępna jest, via telefon i sputnik, dla każdego kto posiada 
personalny komputer. „Świat nigdy juz nie będzie ten sam" 
— twierdzi jeden ze współtwórców superkomputerów. 
„Wkrótce każda firma, każdy naukowiec, a nawet każdy 
krok życia będzie w pewien sposób związany z superkom- 
puterami”. 

Szybkość — podstawowa miara mocy — stanowi głów- 
ną różnicę między superkomputerami a ich mniejszymi 
krewniakami. Szybkość początkowo była mierzona tysią- 


cami FLOPS’ów (akronim od „floating-point operations per 
second”), innymi słowy — liczb zmiennoprzecinkowych. 
Owa miara w dzisiejszych maszynach wynosi giga-FLO- 
PS’y lub inaczej — superkomputery wykonują miliardy 
operacji na sekundę. Przewiduje się, że już wkrótce poje- 
dyncza maszyna będzie pracowała z szybkością tera- 
-FLOPS'ów, co daje moc dziesięciu milionów personal- 
nych komputerów pracujących „na pełen gaz". 

Superkomputery o największej mocy są zaskakująco ma- 
łe i estetyczne (lśniące). Wewnątrz bardzo upakowane — 
by nie tracić czasu na przesyłanie informacji zbyt długimi 
drutami. Jak już wspomniano, maszyna ta może być połą- 
czona kablami lub via satelita z setkami terminali, które 
zamieniają szeregi cyfr na przykład na piękną kolorową 
trzywymiarową grafikę. Sprzęt ten, jak każde intensywnie 
pracujące urządzenie, musi być chłodzony. Bardzo spryt- 
nie poradzono sobie z tym problemem w Uniwersytecie 
Minnesota — uzyskane tą drogą ciepło wykorzystywane 
jest do... ogrzewania garaży. 

Rynek superkomputerów zdominowany został przez jed- 
ną firmę: CRAY Research of Minneapolis, która wyprodu- 
kowała 1 78 komputerów o charakterystycznym kształcie li- 
tery C (jak Ciechocinek). Owe superkomputery zainstalo- 
wane są na całym świecie i stanowią około 60% potencjału 
tego typu sprzętu. Najpoważniejszym konkurentem CRAY'a 
jest Control Data Corp. CDC, firma, która w 1 983 roku stwo- 
rzyła superkomputer ETA. Maszyny te, to około 13% świa- 
towych superkomputerów. Natomiast 23% tego typu kom- 
puterów wyprodukowano w Kraju Kwitnącej Wiśni przez 
NEC’a, Hitachi i Fujitsu, począwszy od 1983 roku. 

Niespodziankę (oczekiwaną chyba przez wszystkich) 
szykuje gigant komputerowy IBM (sprzedaż w 1987 roku 
54,2 miliarda dolarów), który zatrudnił (podkupił?) mistrza 
od superkomputerów Steve'a Chen’a („odzysk" z 
CRAY’a). Propozycja IBM’a, to komputer z 64 pracującymi 
równolegle procesorami — źródło znacznego przyspiesze- 
nia pracy komputera. Uznawane jest to jako znacząca no- 
wość. 

Okazuje się jednak, że rozwiązanie takie nie jest orygi- 
nalnym pomysłem IBM’a, mówi się bowiem, że inni projek- 
tanci tworzą maszyny z setkami, a nawet tysiącami proce- 
sorów. Wiosną 1988 roku naukowcy z Snandia National 
Labolatories w Albuquerque ogłosili, że ich 1 024-proceso- 
rowy komputer jest 1000 razy szybszy od każdego kompu- 
tera z pojedynczym procesorem, sugerując jednocześnie, 
iż opracowali metodę proporcjonalnego zwiększania szyb- 
kości komputera w zależności od liczby zainstalowanych w 
nim procesorów. 

Większość badań nad superkomputerami w USA finan- 
sowana jest przez władze. Oczywiście najbardziej zainte- 
resowane wzrostem mocy komputerów jest wojsko i wy- 
wiad. W 1 987 roku Pentagon poświęcił setki milionów dola- 
rów na doskonalenie superkomputerów. Ponadto sprzęt 
ten stanowi znaczne uwarunkowanie postępów w podboju 
przestrzeni kosmicznej. Jednym ze spektakularnych tego 
typu zastosowań jest wspomaganie prac projektowych 
nad samolotem „fruwającym" z szybkością 25 razy więk- 
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szą od głosu. Potrzeba taka wynikła z braku dostępu do tu- 
nelu aerodynamicznego, w którym można by było symulo- 
wać eksploatację takiego wehikułu. Tradycyjny sposób 
testowania samolotów zastąpiony został w tym wypadku 
przez wykorzystanie komputera. Ponad 1 ,7 miliarda dola- 
rów ma kosztować superkomputer w 1990 roku, który 
przekroczy szybkość mierzoną tera-FLOPSami. 

Już od 1976 roku pierwszy CRAY pracował nad bombą 
wodorową. Inny „wczesny" CRAY przeznaczono do prac w 
National Security Agency, gdzie do dzisiaj rozwiązuje się 
„wojskowe zagadki", przegląda wywiadowcze dane. które 
każdego dnia napływają do agencji 

A inne zastosowania? Jest ich bardzo dużo. Na przykład 
przy projektowaniu sprzętu elektronicznego, finansiści ra- 
dzą się superkomputerów, gdzie można opłacalnie inwe- 
stować, biomedycy zaprzęgają maszyny do analizy mole- 
kuł, by stwierdzić, które z nich mogą się stać nowymi leka- 
mi ‘Natomiast inżynierom CRAY pomaga projektować sa- 
mochody, silniki, żaglówki, lodówki i nowe rośliny. Jednak 
najwięcej czasu z superkomputerami spędzają ludzie na- 
uki. Stało się to osiągalne dzięki wspomnianym wcześniej 
połączeniom (via telefon). Na przykład superkomputer 
Narodowej Fundacji Nauki (koszt 200 min doi.) „obsługuje" 
6000 naukowców oraz 200 innych instytucji. Wspomniane 
przedsięwzięcia najczęściej wspomagane są przez różne 
wersje CRAY'a (CRAY-2, CRAY X-MP). 

Mimo ogromnego postępu, użytkownicy superkompute- 
rów nie są w pełni usatysfakcjonowani parametrami tego 
sprzętu. Potrzebne są superkomputery 100 razy szybsze 
Wyścig w budowaniu szybszych superkomputerów jest na 
dobrej drodze. W dziesiątkach laboratoriów USA, Europy i 
Japonii prowadzone są bardzo intensywne prace nad do- 
skonaleniem superkomputerów. Podstawowym celem jest 
zbudowanie najszybszej maszyny. 

Podobnie jak Edison żarówkę. Bell telefon — Seymour 
CRAY stworzył superkomputer. Ten genialny inżynier za- 
projektował: CDC 1 604 (1960 rok). CDC (1964), CDC 7600 
(1969), CRAY-1 (1976) i CRAY-2 (1985). Każdy z tych 
komputerów zawsze był uznawany w danym okresie za naj- 
lepszy. Obecnie ten wybitny konstruktor zajmuje się budo- 
wą komputera CRAY-3, który ma być gotowy w 1 988 roku i 
zaraz potem należy spodziewać się kolejnej maszyny — 
CRAY-4. CRAY-3 będzie pierwszym komercyjnym kompu- 
terem. który zbudowano korzystając z układów scalonych 
produkowanych na bazie arsenku galu (zamiast krzemu) 
Podłoże to jest 1 0-krotnie szybsze dla wędrujących elek- 
tronów. W czwartym modelu CRAY’a zostaną zainstalowa- 
ne 64 procesory (numer 2 miał tylko cztery, w CRAY-3 za- 
instalowano 1 6 procesorów). 

Zapewne usłyszymy jeszcze nieraz o wybitnym uczniu 
Cray'a 44-letnim Chińczyku Chen. Udoskonalił on kons- 
trukcję swego mistrza i w efekcie z CRAY-1 powstał CRAY 
X-MP — dwuprocesorowa maszyna, jak dotychczas jest 
ona najlepiej sprzedawana (aż 120 instalacji). Kolejny 
wytwór Chena a. to CRAY Y-MP. Jednak różnica pokoleń, 
nawet tam za oceanem, dała znać o sobie i Chen. którego 
praca (zdaniem Cray'a) charakteryzowała się zbyt dużym 
rozmachem musiał pożegnać się z nauczycielem. Wizjo- 
nerstwo Chen’a nie przestraszyło IBM'a, gdzie może reali- 
zować swoje plany, a sięgają one 100 miliardów giga- 
-FLOPS'ów! 

IBM poza projektem Chen'a ma „na warsztacie" sześć 
innych przedsięwzięć. Jedno z nich to GF-1 1 , który zajmuje 
około 50 m 2 , inny komputer to RP-3, ale najbardziej ambit- 
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nym wytworem IBM’a jest.TF-^ ^a^uera^cy^300Ch dużęj 
szybkości procesorów Szybkość tej maszyny jest £000Ta- 
zy większa od dzisiejszych superkomputerów. IBM nie 
obawia się Cray’a, ale... konkurencji japońskiej — Hitachi, 
Fujitsu, i NEC'a. Superkomputery z Japonii (pierwsza gene- ' 
racja) świadczą o tym. iż amerykański przemysł kompul^- 
rowy zostanie „zniszczony” w ciągu 25 lat. Współcześoe 
maszyny madę in Japan są porównywalne z najszybszymi 
madę in USA, a w pewnych zastosowaniach są nawet lep- 
sze. Porównując najnowszy pojedynczy procesor Hitachi 
S-820/80 z dwuprocesorowym Cray’a X-MP, Hitachi jest 
10 razy lepszy. Japończycy skupili się na szybkich ukła- 
dach procesorov\fych. Przed nimi są jeszcze ogromne re- 
zerwy w budowie komputerów z wieloma procesorami 
W komputerach równoległych (gdzie pracuje wiele pro- 
cesorów jednocześnie), głównym problemem okazuje się 
oprogramowanie, całkowicie różne od oprogramowani 
komputerów jednoprocesorowych. To nowe oprogramo- 
wanie zaczyna dopiero „raczkować", mimo to efekty są 
widoczne — komputery równoległe są bezkonkurencyjne. 
Oprogramowanie na równi ze sprzętem decyduje o szyb- 
kości superkomputerów (równoległych) Powstały zatem 
warunki, wręcz konieczność połączenia wysiłków twórców 
techniki i specjalistów od oprogramowania, którzy dotych- 
czas zajmowali się sztuczną inteligencją. Efekt owej 
współpracy najlepiej widać na przykładzie, obecnie najdo- 
skonalszego równoległego komputera — Connection Ma- 
chinę. Urządzenie to zawiera 65 536 procesorów. Nie 
mniej zadziwiające jest to, że maszynę tę zaprojektował 31 - 
-letni Daniel Hillis. Na zakończenie warto zacytować jego 
wypowiedź: Jak jak nie można zbudować samolotu bez 
wcześniej skonstruowanego wystarczająco mocnego sil- 
nika, nie można tworzyć sztucznej inteligencji bez szybkich 
komputerów". Warto zatem nieco więcej uwagi poświęcić 
owej sztucznej inteligencji, która odradza się ostatnio, ale o 
tym już innym razem. 

WŁODZIMIERZ GOGOŁEK 


Opracowano na podstawie: TIME, March 28, 1988 
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SKOJARZENIE CZTERECH PAR 

DANUTA KWASIŻUR, MIECZYSŁAW SKONIECZNY 


Z szóstego rozdziału „ULAN/ATI" S. Jeieńskiego zatytu- 
łowanego „Z tajników szachownicy, kart i domina" wybra- 
liśmy grę nr 2, którą chcemy zaprezentować Czytelnikom 
w dzisiejszym odcinku mikrokomputerowych anegdot ma- 
tematycznych. 


Zasady gry pojawiają się po uruchomieniu programu. 



Po naciśnięciu dowolnego klawisza ukazuje się plansza 
gry, na której karty ułożone są w sposób losowy. Program 
oczekuje wprowadzenia dwóch numerów kart, które należy 
przesunąć. Muszą one leżeć obok siebie. 

Sytuację po pierwszym przesunięciu przedstawia poniż- 
szy rys. 


1 2 3 4 S 6 7 8 910 



1 PRZESUNIECIE 

PODAJ NUMER PIERWSZEJ KART V S 
PODAJ NUMER DRUGIEJ KARTY 6 

Gra prowadzona jest dalej w ten sam sposób do momen- 
tu poprawnego ułożenia kart. Wówczas pojawi się komuni- 
kat* 

„KARTY PRAWIDŁOWO UŁOŻONE 
PO n PRZESUNIĘCIACH 
SPRÓBUJESZ JESZCZE RAZ? (T/N)” 

i użytkownik może rozpocząć grę od początku z tym sa- 
mym ułożeniem początkowym kart lub nowym, losowo wy- 
branym przez program. 

Wersja źródłowa programu jest następująca: 

W segmencie sterującym wykorzystuje się 4 podpro- 
gramy, które realizują następujące funkcje: 

1 . Podprogramy z komunikatami o błędach: (instrukcje 
900-960) 

2. Podprogram badania sukcesu gry: (instrukcje 
970—1200) 

3. Podprogram rysowania dowolnej karty na ekranie: 
(instrukcje 1 270—1 41 0) 

4. Podprogram losowego ustalenia początkowego uło- 
żenia kart: (instrukcje 1420—1610) 

10 ’ 

20 ' Ekran informacyjny 
30 ’ 

40 HODE 1: INK 0,26: INK 1,0: INK -2,6:INK 3,9:PAPER 0: BORDER 26:CLS:PEN 1 

30 SYMBOL AFTER 160 

60 SYMBOL 160,3,13,31,31,63,63,63,63 

70 SYMBOL 161,192,240,248,248,252,252,232,252 


80 SYMBOL 162,63,63,63,63,31,31,15,3 
90 SYMBOL 163,252,252,252,252,248,248,240,192 
100 SYMBOL 164,63,63,63,63,63,63,63,63 
110 SYMBOL 165,252,252,252,252,252,252,252,252 
120 L0CATE 1,3 

130 PRINT *Na planszy gry zostały rozłożone w rząd" 

140 PRINT ‘cztery karty czerwonej i cztery czarnej* 

150 PRINT ‘aasci tak, ze barwy sie przeplatają: * 

160 PRINT ‘czerwona-czarna-czerwona-czarna itd. * 

170 PRINT ‘Po lewej stronie szeregu sa dwa eiejsca* 

180 PRINT ‘wolne. Na wolne eiejsca tozna przenieść* 

190 PRINT ‘tylko dwie karty obok siebie lezące, nie‘; 

200 PRINT ‘zeieniajac porządku w jakie leżały; i tak*; 

210 PRINT ‘saao na eiejsce oproznione aozna znowu * 

220 PRINT ‘przenieść dwie karty sąsiadujące. ‘ 

230 PRINT ‘Zadanie polega na tye, zęby w kilku * 

240 PRINT ‘poruszeniach przesuwając karty paraei ‘ 

250 PRINT "ulozyc je w ten sposob, by leżały kolo * 

260 PRINT ‘siebie pod rząd cztery czarne, a za niei*; 

270 PRINT ‘cztery czerwone karty. /Karty susza byc* 

280 PRINT ‘ułożone paraei/. Jeżeli w czasie gry 1 
290 PRINT ‘zrezygnujesz z rozwiązywania tego wa- * 

300 PRINT ‘tu wprowadź zaelast nuaery karty 11. ‘ 

310 L0CATE 8, 25: PRINT ‘NACISNIJ DONOLNY KLAWISZ - 
320 CLEAR INPUT 
330 A$=INKEY$ 

340 IF A*x‘‘ THEN 60T0 330 
350 ’ 

360 ’ Segeent organizacyjny 
370 ' 

380 M0DE 1 

390 DIM KARTY ( 10, 2) : DIM KARTY1(10,2) 

400 G0SUB 1450 

410 WINDOM £1,1, 40, 2, 10: PAPER £1,1:CLS £1 
420 NUH=1 : NUH1 =2 

430 B$=CHR$ ( 1 43 ) +CHRI ( 1 43) : B 1 $=CHR* ( 1 64 ) +B4+CHR* ( 1 65 ) 

440 FI64(1)*‘D‘:FI6»(2)=‘K‘ 

450 PAPER l.-PEN 0 
460 FOR 1*1 TO 10 

470 L0CATE 2* (1-1)14, 3: PRINT USING ‘££‘;I 

480 NEXT I 

490 FOR K*1 TO 10 

500 60SUB 1300 

SIO NEXT K 

520 LP*1 

530 WINDOM £2, 4, 35, 14, 15: PAPER £2, 3: PEN £2,0 
540 WINDOM £3,4,35, 16, 18:PAPER £3,3:PEN £3,0 
550 WINDOM £4, 4, 35 t 21 v 23: PAPER £4,2:PEN £4,0 
5*0 WINDOM £5,4,35,12,13:PAPER £5,3:PEN £5,0:CLS £5 
570 L0CATE £5,10,2:PRINT £5, ‘PRZESUNIECIE* 

580 CLS £2: CLS £3 

590 LOCATE £5,7,2:PRINT £5,USIN6 ‘££";LP 

600 CLS £2: LOCATE £2,2,2: INPUT £2, ‘PODAJ NUMER PIERNSZEJ KARTY *,NR 

610 IF nr<l 0R nr>ll THEN 60T0 600 

620 IF NR* 11 THEN 60T0 1150 

630 IF KARTY (NR, 1)*0 THEN 60SUB 930:6QTO 600 

640 IF nr=l AND karty(2,l)*0 THEN G0SUB 950:60T0 600 

650 IF nr*10 AND karty(9,l)*0 THEN 60SUB 950-.60TO 600 

660 IF karty (nr-l,l)*0 AND karty (nr*l,l)*0 THEN 60SUB 950:60T0 600 

7 



670 CLS £3] LOCATE £3,Z,2lINPUT £3, 'PODAJ NUBER DRUGIEJ KARTY ’,NR1 
680 IF nrlO OR nrl>U THEN 60T0 870 

490 IF NRl*li THEN 60T0 1150 

700 IF KftRTY (MR1 , 1 ł =0 THEN 60SUB 930i60T0 670 

710 IF NR=NR1+1 OR NR=NR1-1 THEN 60T0 730 

720 60SUB 940: 60T0 670 

730 IF NR<NR1 THEN BOTO 750 

740 B=NR: NR=NR1 : NR1=B 

750 FOR L*1 TO 5 

760 PEN O : PAPER llLOCATE 1+ (NR-1 ) «4, 4+Ls PRINT SPCI8I; 
770 NETT l 

780 KARTY (NUH, 1 ) =KARTY (NR, 1) 

790 KARTY (NUH, 2) 'KARTY (NR, 2) 

800 KARTY (NUN1 , 1 ) ‘KARTY (NR1 , 1 ) 

810 KARTY (NUH1, 2) =KARTY (NR1 ,21 

B20 KARTY (NR, 1 > =0: KARTY (NR, 2) =0 

830 KftRTY (NR1 , 1 ) =0:KARTY (NR1 , 2) =0 

840 K=NUH: 60SUB 1310 

850 K=NUni : 60SUB 1310 

860 NliH=NR:NUHl-NRl 

870 60SUB 1020 

B80 LP=LP+1 

890 60T0 580 


900 ’ 

910 ’ Podprogramy z koauni kataai o biedach 
920 ’ 

930 PAPER £4, 2: CLS £4:L0CATE £4,2,2iPRINT £4,'N TYM MIEJSCU NIE NA KARTY. *:60T0 
960 

940 PAPER £4, 2i CLS £4iL0CATE £4,2 ( 2 iPR 1NT £4, 'KARTY NIE LEZĄ OBOK SIEBIE. "iSOTO 
960 

930 PAPER £4, 2: CLS £4:L0CATE £4,2,2!PRINT £4, 'PRZESUNIECIE NIEH0ZLINE':6QT0 960 
960 SOUNO 1,300: FOR T«1 TO 2000:NEXT TiPAPER £4,0lCLS £4 1 RETURN 


970 ’ 

980 ’ Podprograa badania lukctsu gry 
990 ’ 

1000 IF karty(9,l)«0 AND karty(10,2)«0 THEN GOTO 1020 
10I-/RETURN 

1020 FOR J*1 TO 10 STEP 2 

1030 IF KARTYIJ,2)»KARTY(JM,2) THEN GOTO 1030 

1040 RETURN 

1050 NEIT J 

1060 FOR J*1 TO 4 

1070 IF KARTY(J,2>«2 OR KARTY(J,2)«3 THEN RETURN 
1080 NEIT j 

1090 CLS £3: CLS £2iCL8 £3 

1100 IF LP>10 THEN 60T0 1140 

1110 LOCATE £3,12,2iPRINT £3, 'BRANO! ' !' 

1120 LOCATE £2,3,2iPRINT £2, 'KARTY PRANIDLONO UŁOŻONE' l PRINT £3,' PO '|USIN6 
'££'; Ip| i PRINT £3, ' PRZESUNIĘCIACH." 

1130 GOTO 1130 

1140 LOCATE £2,3,2iPRJNT £2, 'KARTY PRANIDLONO UŁOŻONE 'i PRINT £3," PO '|U8IN6 
■££'|LP|iPRINT £3,' PRZESUNIĘCIACH.' 

1130 PAPER £4, 2: CLS £4iL0CATE £4,2,2:INPUT £4, 'SPRÓBUJESZ JESZCZE RAZ(T/N>'|T» 
1160 IF T*«'T' OR Tl«'t' THEN GOTO 1190 
1170 IF T*-V OR T»-'N' THEN END 
1180 GOTO 1130 

1190 CLS £4: LOCATE £4,2,2: INPUT £4, 'TEN SAN UKŁAD KART (T/N)'|T* 

1200 IF T4*'T" OR T4*'t* THEN MODĘ 1:60T0 1230 

1210 IF TM'n' OR T*»'N' THEN HODE liGOSUB 1430: 60TO 410 

1220 60TO 1190 


1230 FOR K«1 TO 10 

1240 KARTY IK, 1) “KARTY 1 IK, 1) :KARTY(K,2I»KARTY1 (K,2) 
1250 NEIT K 
1260 GOTO 410 


1270 ’ 

1280 ’ Podprograa ryiOHinii dowolnej karty 
1290 ’ 

1300 IF KARTY (K,1)«0 THEN RETURN 
1310 PAPER 1 : PEN O 

1320 LOCATE l*(K-l)t4,5iPRINT CHR$ ( 1 60 ) ; BI } CHR$ ( 1 61 ) | 

1330 FOR I»6 TO 8 

1340 LOCATE U(K-l) *4, ItPRINT Bil; 

1330 NEIT I 

1360 LOCATE 1*(K-1)I4,9iPRINT CHRK162) |B»|CHR$(163) | 

1370 PAPER O 

1380 IF KARTY(K,2)*1 OR KARTY(K,2)»4 THEN PEN liSOTO 1400 
1390 PEN 2 

1400 LOCATE 2*(K-1)I4,7«PRINT FI6I tKARTY(K,l>) ;CHR$(225+KARTY(K,2)) 
1410 RETURN 


1420 ’ 

1430 ’ Podprograa losowego ustalania początkowego ustawienia kart 
1440 ’ 

1450 KARTY ( 1 , 1 ) *0: KARTY ( 1 , 2) *0 
1460 KARTY ( 2 , 1 ) =0 : KARTY 
1470 karty(3,l)»l+INT(RNDI2) 

1480 karty(3,21»l9lNT(RNDI4) 

1490 FOR k=4 TO 10 
1500 łig=l*INT(RNDI2) 

1510 kol=l*INT(RNDI4) 

1520 FOR i =3 TO k-1 

1530 IF fig*karty(i,il AND kol=karty(i,2) THEN 60T0 1500 

1540 NEIT i 

1350 karty(k,l)«fig 

1560 karty(k,2) s kol 

1370 NEXT k 

1580 FOR K*1 TO 10 

1590 KARTY1 (K, 1 ) *KARTY (K, 1 ) : KARTY1 (K, 2) =KARTY(K, 2) 

1600 NEIT K 
1610 RETURN 
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KOMPUTEROWA ANALIZA 
UKŁADÓW ELEKTRONICZNYCH 

ANALIZA STAŁOPRĄDOWA - DC 


■aoiw ,c: 

uv-2 1 

Ri 


l TUqHIiS,S..M 3TA30Ji53 8J3 OYI 
iTOń K3HT ■ h Rfl |>h(J UJ)P«K 

gdzie Ut -2 jest napięciem 


występującym pomiędzy węzłami 1 i 2. 

Ponieważ interesują nas napięcia 
względem masy stąd: 

11,-2 = 11, - U 2 

Na tej podstawie prąd i, możemy zapi- 
sać jako: 


R, 


gdzie 


Chciałbym przybliżyć Czytelnikom 
metody wykorzystywane w kompute- 
rowej analizie układów elektroni- 
cznych. Ponieważ istnieje wiele profes- 
jonalnych programów tego typu, nie si- 
lę się na stworzenie jeszcze jednej ich 
wersji. Postaram się w możliwie czytel- 
ny i ogólny sposób przedstawić algo- 
rytm działania tych programów. 

Użytkownik wprowadza do kompute- 
ra strukturę układu, parametry elemen- 
tów elektronicznych (ewentualnie tem- 
peraturę otoczenia, tolerancje itp.). Na 
podstawie tych danych program gene- 
ruje układ równań (w ogólnym wypad- 
ku są to nieliniowe równania różnico- 
we). Rezultatem obliczeń są najczęś- 
ciej napięcia i prądy występujące w 
układzie. 

Zagadnienie podzieliłem na kilka 
części tematycznych. W pierwszym 
odcinku proponuję zająć się analizą 
stałoprądową zwaną inaczej analizą 
DC 

Rozważmy prosty układ elektroni- 
czny przedstawiony na rys. 1. Przypo- 
minam, że źródło prądowe wymusza 
przepływ stałego prądu między swoimi 
węzłami. Węzłem nazywamy punkt po- 
łączenia elementów (na schemacie 
punkty te oznaczone są kropkami i po- 
numerowane). Węzeł o numerze 0 (ze- 
ro) jest węzłem odniesienia i stanowi 
tzw. masę układu elektronicznego. 
Względem niego są obliczane napięcia 
występujące na pozostałych węzłach. 

Proponuję obliczyć napięcia wystę- 
pujące w układzie (oczywiście wzglę- 
dem węzła 0) wykorzystując liii prawo 
Kirchhoffa. Na schemacie zaznaczyłem 
rozpływ wszystkich prądów. Zgodnie z 
II prawem Kirchhoffa suma prądów 
wpływających i wypływających z 
węzła wynosi zero. Umówmy się: prąd 
wypływający z węzła jest dodatni, a 
prąd do niego wpływający jest ujemny. 
Analizując poszczególne węzły otrzy- 
mujemy: 

węzeł 1-: I, + l 2 — J = 0 
węzeł 2: — I, 4- 1 3 — l 4 = 0 
węzeł 3: — I* + l 0 — l 5 = 0 
Uwaga: Ponieważ suma prądów pły- 
nących w układzie wynosi 0 
(zero), to analiza węzła odnie- 
sienia nie ma sensu, gdy prą- 
dy wpływające i wypływające 


z tego węzła są w sposób 
jednoznaczny określone przez 
rozpływ prądów w pozosta- 
łych węzłach. 

Chcemy, aby wynikiem naszych ob- 
liczeń były napięcia, stąd podstawmy 
zamiast prądów wyrażenia zawierające 
napięcia. Np. prąd i, na podstawie 
prawa Ohma można zapisać następu- 
jąco: 


Y, : 


admltancja (stosujemy 


admitancję aby uprościć zapis) 
Analogicznie: l 2 = (U, — U 3 ) * Y 2 
I3 = (U2 — U 3 ) * Y 3 
U = U 2 * Y 4 
I5 = U 3 * Y 5 

Wyliczone prądy należy podstawić 
do bilansu prądów w węzłach. Po wy- 
mnożeniu i uporządkowaniu wyrażeń 
(proponuję czytelnikom samodzielnie 
wykonać te przekształcenia) otrzymu- 



wtal \ 


Ul 


-Y1 


-Y2 


U2 


Y1«Y3»Y4 


-Y3 


U3 


J 
0 

Y2*Y3+Y5| 0 


-Y3 


UKŁAD ROWNAN 
dla schematu z rysunku 1 

Ul . U2 . U3 - zmtmn* nkwMomi 


( Rys2 ) 



„ Uab 

wtal * wtal 

•W- 

weal\ 


Ua 


Ub 


Ut 

[ rTl 
r y 

Ub 







A 


Y 


-Y 


Szablon dla rezystora 

Uab-napiecie na rezystorze 
Ua-napiecie na wezle A wzgL masy 
Ub-napiecie na wezle B wzgL masy 







B 


-Y 


Y 


I Rys 3 J - 
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pmTnastfPDTąćy układ równań - : "" 

węzeł 1 : (Y, + Y 2 ) * U, + (-Y, + Y 3 ) * 

* U 2 + (— Y 2 ) . U 3 = J 

węzeł 2: ( — ^Y n ) *U 2 -4- (Y, + Y 3 + Y 4 ) * U 2 
+ (— Y 3 ) * U 3 = O 

* U 2 + (-Y 2 ) * U 3 = J 

węzeł 3: (— Y 2 ) * + U, + (— Y 3 ) * U 2 + 
+ (Y 2 + Y 3 + Y 5 ) * U 3 = O 

Otrzymaliśmy w ten sposób układ 
trzech równań z trzema niewiadomymi: 
U, , U 2 , U 3 Prąd źródła stałego (ponieważ 
nie zależy od żadnego napięcia) został 
przeniesiony na prawą stronę równania 
jako wartość stała. 

Osiągnęliśmy pierwszy sukces: 
wiemy jak na podstawie schematu, z 
praw Kirchhoffa, stworzyć układ rów- 
nań matematycznych obliczających 
napięcia we wszystkich węzłach 
układów względem węzła odniesienia 
(masy). 

Na rys. 2 przedstawiłem tablicowy 
sposób zapisu tego równania. Będzie 
on bardzo pomocny w późniejszych 
rozważaniach. Wiersze tablicy odpo- 
wiadają kolejnym węzłom, a kolumny 
kolejnym napięciom. W ostatniej kolu- 
mnie (nazwanej „b”, tzw. kolumnie wy- 
razów wolnych) umieszcza się prądy 
stałe, niezależne od napięć w układzie. 
Przedstawiona tablica dokładnie od- 
wzorowuje poprzednio napisane równa- 
nia. 

Zadaniem naszym jest stworzenie 
programu, który w sposób automaty- 
czny będzie generował układ równań i 
obliczał napięcia w węzłach układu. 
Przyjrzyjmy się np. rezystorowi R 2 . Jest 
on połączony z węzłami 1 i 3. W tablicy 
(na rys. 2) występuje w postaci admi- 
tancji Y 2 . Zaznaczyłem ją dla wyró- 
żnienia grubszą czcionką. Okazuje się, 
że występowanie admitancji Y 2 w tabli- 
cy jest określone przez węzły, do któ- 
rych ten rezystor jest dołączony: znaj- 
dują się na przecięciu wierszy 1 i 3 oraz 
kolumn U, i U 3 . Na rys. 3 przedstawi- 
łem uogólniony rezystor o rezystancji R 
(admitancji Y) podłączony do węzłów A 
i B. Uproszczona tablica obok przed- 
stawia miejsca występowania admi- 
tancji Y w rzeczywistej tablicy ukła- 
du. Niedowiarkom proponuję proste 
sprawdzenie: rozważmy występowanie 
admitancji dla naszego rezystora R 2 : 
wtedy węzłowi A będzie odpowiadać 
węzeł 1, węzłowi B węzeł 3, napięciu 
Ua napięcie U,, a napięciu Ub napięcie 
U 2 . Okazuje się, że admitancje Y po- 
krywają się z admitancjami Y 2 . Propo 
nuję czytelnikom sprawdzenie zgod 
ności tej metody dla rezystorów R, i R 3 . 
Uproszczona tablica z rys. 3 nazywana 
jest szablonem. W omawianym wy- 
padku jest to szablon dla rezystora. 
Każdy element występujący w układzie 
posiada swój szablon. Wtedy tworzenie 
tablicy dla dowolnego układu staje się 
bardzo proste: zgodnie z szablonem 
danego elementu dołączamy do tablicy 


o wyda jnosa prądowej J 


yi+y: 


tak nie jest: elementy te podłączone są 
do węzła zerowego, czyli węzła masy; a 
wszystko to, co dotyczy tego węzła jest 
odrzucane. Przypatrzmy się jeszcze raz 
szablonowi z rys. 3. Jeżeli np. węzeł B 
będzie węzłem masy, to wiersz szablo- 
nu opisujący węzeł B i kolumnę napię- 
cia Ub należy odrzucić — zostanie 
wtedy jeden współczynnik Y na prze- 
cięciu wiersza A i kolumny Ua (współ- 
czynnik ten zaznaczony jest dla wyró- 
żnienia grubszą czcionką). Taka właś- 
nie sytuacja zachodzi dla rezystorów 


układu odpowiednie współczynniki te- 
go elementu (dla rezystora będzie to 
jego admitancja). Znaleźliśmy w ten 
sposób algorytm tworzenia tablicy dla 
dowolnego układu. Komputer musi po- 
siadać następujące informacje: do któ- 
rych węzłów dany element jest podłą- 
czony i jaką ma wartość (wartością dla 
rezystora będzie rezystancja R, dla 
źródła prądowego wydajność prądowa 
J itp.) Na podstawie szablonu danego 
elementu i wyżej wymienionych infor- 
macji do odpowiednich miejsc tablicy 
układu dołączy współczynniki tego 
elementu. 

Dociekliwi czytelnicy na pewno spo- 
strzegli rażące odstępstwo od tych 
zasad dla rezystorów R 4 i R 5 . Jednak 


Reguła ta dotyczy wszystkich ele- 
mentów! 

Podobna sytuacja zachodzi dla źród- 



b 




J 




-J 


_ 


U3 

U4 





Y3 



Y4 





Ua 

| 


Ub 






-ys 


ys 






ys 


-ys 
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łffTJTgtJOWego; szaotm Którego' przed- 
stawiłem na rys. 4 

Dużą grupę elementów stanowią 
tzw źródła sterowane. Rozważmy pro- 
sty schemat (rys. 5a) zawierający źród- 
ło prądowe sterowane napięciem. 
Źródło takie wynuisza prąd Ju zależny 
od napięcia Us. w najprostszej wersji, 
którą będziemy stosować, Ju = ys*Us 
(ys jest współczynnikiem podawanym 
przez użytkownika). Do zasilania ukła- 
du zastosowałem źródło napięciowe o 
napięciu E. Wprowadzi ono trochę za- 
mieszania, bowiem bilans prądów w węz- 
łach będzie wymagał przyjęcia nowej 
zmiennej prądu źródła le: 

węzeł 1: — le + Ir — Ó 
węzeł 2: — I, -ł-l 2 = 0 
węzeł 3: — Is + l 3 = 0 
węzeł 4: — l 4 + Is = 0 
równanie gałęziowe źródła E: E =11, 
gdzie: I, = (U, — U,) * Y,, l 2 = U? * Y 2 , 
l 3 = U 3 * Y 3 , l 4 = U 4 *Y 4 , Is = Us * 
. ys = (U, - U 2 ) • ys 
Na rys. 5b przedstawiłem tablicę 
układu. Proponuję po(ównać z nią 
szablon modelu źródła prądowego (rys. 
6a, rys. 6b). Na rys. 7 przedstawiłem 
szablon źródła napięciowego. 

Uwaga: Wszystkie źródła o charakte- 
rze napięciowym wymagają 
wprowadzenia dodatkowej zmien- 
nej, jaką jest prąd przez nie 
przepływający. Ta dodatkowa 
zmienna wymaga dołączenia 
jeszcze jednego równania, 
tzw równania gałęziowego 
opisującego napięcie na węz- 
łach, do których podłączone 
jest źródło. 

Na rys. 8a przedstawiłem schemat 
wzmacniacza wstępnego magnetofonu 
szpulowego M 2405 S. Ten układ pod- 
dałem stałoprądowej analizie nume- 
rycznej. Na rys. 8b przedstawiłem mo- 
del tranzystora NPN, jaki stosuję w 
swoim programie: składa się on ze sta- 
łego źródła napięciowego i źródła prą- 
dowego sterowanego prądem prze- 
pływającym przez źródło napięciowe. 
Okazuje się, że nawet tak proste modele 
zapewniają dosyć dobrą dokładność. 

napięcia w węzłach układu: 
wezel 1 = 18.5 O 
wezel 2 = 17.575459 V 

wezel 3 = 1.3730188 U 
wezel 4 = 7.7550787 V 
wezel 5 = 0.72019338 U 
wezel ó = 0.72022136 V 
wezel 7 = 0.723018 77 V 
wezel 8 = .070193382 V 

SZN1 U+= 1 U-®0 

U = 18.5 V 
I - .0019671094 A 
P = .036391524 U 




R * 470 Ofn 
U = 0.92454142 O 
I = .0019671094 A 
P = .0018186741 U 

R2 U+=2 U-=4 

R = 5100 Om 
U = 9.8203799 V 
I * .0019255647 A 
P = .018909777 W 

R3 U+=2 U- =3 

R = 390000 Om 
U = 16.20244 V 
I = .000041544717 A 
P * .00067312578 U 


R = 270 Om 
U = .000027973903 V 
I = 1 . 0360705E-7 A 
P = 2.8982936E-12 U 

R5 U+=7 U-=ó 

R » 27000 ”Dm 
U ® .002797409 V 
I = 1.0360774E-7 A 
P = 2.8983322E-10 U 


R6 U+=4 U-=s8 

R = 100000 Om 


U+=l U-=2 
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u = 7.6848853 V 
I = .000076848853 A 
p = .00059057462 W 


R7 U+=8 U-=0 

R - 620 Om 
U = .070193382 V 
I ■ .00011321513 A 
P = 7 . 946953l£-6 U 

R8 U+=7 U-=0 

R = 390 Om 
U = 0.72301877 Y 
I = .0018538943 A 
P = .0013404003 W 

NPN1 B=5 K=3 E=8 

b = 350 rv/v:i 

Ube= 0.65 V 
Uce= 1.3028254 V 
Ib= 1 . 0360764E-7 A 
Ic= .000036262672 A 
Ie= .00003636628 
P - .000047311275 U 

NPN2 B=3 K=4 E=7 

b ■ 350 CV/V3 
Ube= 0.65 V 
Uce= 7.0320599 V 
Ib= 5 . 2820452E-6 A 
Ic= .0018487158 A 
Ie= .0018539979 
P => .013003714 W 


Program dopuszcza posługiwanie 
się 9 elementami: 

SZP — stałe źródło prądowe 
SZN — stałe źródło napięciowe 
ZPSN — źródło prądowe sterowań* 
napięciem 

ZPSP — źródło prądowe sterowań* 
prądem 

ZNSN — źródło napięciowe sterowa 
ne napięciem 

ZNSP — źródło napięciowe sterowa 
ne prądem 
R — rezystor 

NPN — tranzystor bipolarny NPN w 
stanie aktywnym 

PNP — tranzystor bipolarny PNP ,\ 

stanie aktywnym 

Dodatkowo można zasymulować: 

rozwarcie: źródło prądowe o zerow* 

wydajności prądowej 

zwarcie: źródło napięciowe o napięci 

E = 0 

wzmacniacz operacyjny: źródło na 
pięciowe sterowane napięciem * 
współczynniku i równym wzmocnieniu 
wzmacniacza operacyjnego 
Użytkownik za pomocą edytora 
wprowadza strukturę układu do kompu 
tera: podaje węzły, do których elemen 


ty śą 'podłączone i ich współczynniki. 
Program wykonuje analizę dwu- 
etapowo: 

etap 1: następuje stworzenie, ma- 
cierzy (odpowiednik naszej 
tablicy) danego układu. 
Jednocześnie następuje 
kontrola poprawności struk- 
tury układu. Każdą niezgod- 
ność komputer wypisuje na 
ekranie. Po stwierdzeniu 
błędu program nie przecho- 
dzi do drugiego etapu, 
etap 2: komputer rozwiązuje układ 
równań na podstawie ma- 
cierzy stworzonej w etapie I 
wykorzystując tzw. metodę 
Gaussa z wyborem elemen- 
tu głównego. Metoda ta, 
choć niezbyt szybka, jest 
bardzo dokładna numery- 
cznie. Efektem końcowym 
jest wyświetlenie wyników 
na ekranie. 

Krzysztof POŻNIAK 


©1983 

Krzysztof Poźniak 
analiz* DC układów elektron. 
H»łł«łłłł*M*H*ł*łłłłłłł*łłłł 

10 DCr FN Z (p ,k ,Z) a (Z <p) OR *2 
>k) OR (ZOINT Z) 

11 DEF FN u (k) =t (2,e (x , l , k) ) 

13 DEF — ‘ 

100 REM „ 

105 PRPE0 


HO LET n ax w =10 : 
120 GO SUB 7000 
130 GO SUB 7S00 
140 GO TO 9000 

1000 REM nu 
1010 LET n = lZ-l: 
ET X (k) «k : NEXT 

LET * =0 : FOR U> 

to r — — - 


LET » axn =20 


■ra 


IR k =1 TO n : 


k TO n : 


*RBS n (u , x ) .„ . — ..... 

1020 NEXT X. NEXT y: IF m =0 THEN 

PRINT '"Układ nie »a rozwiązani 
a •' : RETURN 

1030 FOR ł-1 TO n: LET *-n(k,l): 
LET n u, u =n (*y, l) : let n(»y , u 

=n : NEXT l: LET m=b(k): LET b(k) 

= b(ay); LET b(*y)=m: FOR l«l TO 
n : LET » *n ( I. , k ) : LET nll,U»n(l, 
X): LET n(likx)*l: NEXT łj_ LET 

=X (k) : LET y, (k) =x <*x> 


LET 


1040 FOR 1=141 TO n: LET * *n ( l , k 
)/n(k,k>: FOR j =k + 1 TO n: LET n( 
l , j) »n (ł , j) -n (k z j> #» . NEXT J: LE 

T b ( l) =b ( l) ~b (k ) *■ : NEXT l : NEXT 

k : FOR Un TO 1 STEP -1: LET » = 

0: FOR ł=k+l TO O: LET *a»+t(l,X 

(l))»n(k,l): NEXT ł : LET t ( 1 , X ( k 

) ) » <b(k) -a) /n (k ,k) : next k: let 
» = 1: PRINT "'analiza nuaeryczna 
zakończon a": RETURN 

5000 REM . 

5001 REM uwagi i biedy 

5005 IF e (X , l ,2) =e (X , l ,3) THEN P 
RINT "uwaga -zwa r te zrodlo S2P";e 
(x , l ,1) 

5008 IF e(X,l,4)=0 THEN PRINT "U 
waga-zerowa wyd. prądową SZP";e( 
x,ł,ll 

5010 REM tworzenie aacierzy 
5015 LET k =3 : GO SUB 6100: IF S t 
0P=1 THEN RETURN 

5020 IF «<X,l,2)>0 THEN LET b (FN 

u (2) ) «b 

5021 IF l 

u *3) ) =b (FN U(3lf-e*X,l,*l 

5022 RETURN 

5030 REM wizualizacja wyników 

5035 PRINT ' INUERSE l;"SZP”;e(X 
, i,l); INUERSE 0; trb 6;"iJ+ = ";e(x 
, l ,2) ; TRB 12; "U-t"; e <x , l ,3) 

5036 LET I) 1 =2 : LET *2=3: GO SUB 

6400: PRINT 'TRB 6; "U = " ; * ; " U" 

, TRB 6; " I = ",e(X,ł,4l," fi": PRI 
NT TRB 6 , “P a " , Klte (X , l ,4) ; " U" 
5040 RETURN 




5100 REM | 

5105 IF e (X , l , 4) =0 tHEN PRINT 
waga-zerowa wartość nap. SZN";e( 
x , i ,l) 

5106 IF 

RINT INvcnoc -t, Dtaa-zasi te z 
lo SZN"; e (x , ł , 1) : LET btad-1: hc 
TURN 

5110 REM tworzenie nacierzy 
5115 LET k =3 : GO SUB 6100: LET k 
=1: GO SUB 6200: IF 3top=l TMEN 

RETURN 

5120 IF e (X , ł ,2) >0 THEN LET n (FN 
u ( 2 ) , FN p * l p ) ) ■ 1 : LET n (FN p(lp 
) , FN U (2) ) a-l 

5121 IF e (x , l , 3) >0 TMEN LET n (FN 
U (3) , FN p (lp) ) w-1: LET n (FN p(l 

P ) , FN u (3) ) =1 

5122 LET b (FN P ( lp ) ) a -e (X , l , 4) 
5125 RETURN 

5130 REM wizualizacja wyników 

5135 PRINT ' INUERSE 1; "SZN"; e (X 
,1,1); INUERSE 0; TRB 6;"U+=";e(x 
,1,2); TRB 12; "U- = " ; e (x , l ,3) 

5136 LET *1=2: LET B2=3: GO SUB 

6400: PRINT TRB 6; “U = " ; m ; " U" 

; T RB 6 ; " I = ";-t(l,FN P( lp));" fl 

PRINT TRB 6, "P a ";-**t(l,FN 


lp) ) 


U" 


5140 LET 

5200 REM I 

5201 REM uwagi i biedy 

5205 IF e (X , l ,2) =e (X , l , 3) TMEN P 
RINT "uwaga-zwarte wezly ster. Z 
P5N" ; e (x , l , i) 

5206 IF e (X , l ,4) =e (X , l ,5) TMEN P 

RINT "uwaga-zwarte wezly prąd. Z 
PSN"; e (x , l , l) 

5207 IF e (X , 1,6) =0 THEN PRINT IN 
"ERSE l; "Blad-zerowy wspolczynni 

ZPSN"; e (X , l , 1) : LET Stop=l; RE 
TURN 

5210 REM tworzenie aacierzy 
5215 LET k =5 : GO SUB 6100: IF S t 

opal THEN RETURN 

5220 IF e(X,l,2)>0 RND «(X,l,4) > 
0 THEN LET n (FN U (4) , FN U (2) ) =n ( 
FN U (4) ,FN U (2) ) -e (X , l ,6) 

5221 IF e (x , 1,2) >0 RND e<x,l,5)> 
i THEN LET n (FN U (5) , FN U (2) ) =n ( 
N u (5) , FN U (2) > +e (X , l ,6) 

5222 IF e (X , 1,3) >0 RND e(X,l,4)> 
0 THEN LET n (FN U (4) , FN U (3) ) =n ( 
FN U (4) ,FN U (3) ) +e (X , l ,6) 

5223 IF C (X, 1,3) >0 RND e(X,l,5)> 
^ THEN LET n (FN U (5) , FN U (3) ) =n ( 

N u(S) ,FN U (3)3 -e (X , l ,6) 

5225 RETURN 

5230 REM wizualizacja wyników 

5235 PRINT ' INUERSE l;"ZPSN";e( 
x,l ,1); INUERSE 0;TRB 6; "S+=" ; e ( 
x, 1,2) ; TRB 12; "S-s";e (x, 1,3) ; TRB 

18; "I + = " ;* (x , l ,4) ; TRB 24; "I-=" ; 
e (x , l ,5) 

5236 LET (1-S: LET *2=3: GO SUB 

6400: LET Ula*. LET *1-4: LET *2 
=5. GO SUB 6400: PRINT 'TRB 6; "U 

r*";e(x,l,6); TRB 6; "Us= ",ul; " u 
" ; TRB 6; "U ■ U"; TRB 6,"I a 

"; ul*e (X , l ,8) ; " R": PRINT TRB 6 

, "P = "; * łu 1 *e (x, 1,6) ; " U" 

5240 RETURN ______________ 

5300 REM BfBlilf ■ Iff 1— IM 

5301 REM uwagi i biedy 

5305 IF « (x, 1,2) >C (X, 1,3) THEN P 
RINT "uwaga-zwarte wezly ster. Z 
P5P" ; c (x , l , 1) 

5306 IF e (X , 1,4) =e (X , 1,5) THEN P 
RINT "uwaga-zwarte wezly prąd. Z 
PSP"; e (x , l , 1) 

5307 IF e(X,t,6)a0 THEN PRINT IN 
UERSE 1; "Blad-zerowy wspolczynni 
k ZPSP” ; e (x , l , 1) : LET stop=l: RE 
TURN 

5310 REM tworzenie aiacierzy 
5315 LET k =5 : GO SUB 6100. LET k 

=1: GO SUB 6200. IF StOP=l THEN 

RETURN 

5320 IF e(X,l,2)>0 TMEN LET n (FN 
U (2) , FN p (lp) ) =1: LET n (FN p ( lp 

, ) , FN U (2) ) a-l 

5321 IF C (X , l , 3) >0 THEN LET n (FN 
u (3) , FN p (lp) ) a-l: LET n (FN p(l 

p ) , FN U (3) ) *1 

5322 IF e (X, 1.4) >0 THEN LET n (FN 
U ( 4) , FN p ( lp) ) =-e (X , l ,6) 

5323 IF e (X , l , 5) >0 THEN LET n (FN 
U (5) ,FN P ( lp) ) =e (X , l ,6) 

5325 RETURN 

5330 REM wizualizacja wyników 

5335 PRINT ' INUERSE l;"ZPSP";e( 
x , l , 1) ; INUERSE 0; TRB 6;"Sł*";e( 

"ri T " B 12; "S-*”; « (X , l ,3) ; TRB 
etx' 1 * 5 ) ; e (x , l ,4) ;TRB 24; 

5336 LET *1=4: LET *2=5 GO SUB 

nrcifTT 'TRB 6 ; ( x , 1,6 

•■'tor R^-n S= pupili" fl 

U = ;*•- U"; TRB 6 ; " I = 

_„;t(l,FN p ( tp) ) «e (x , l ,6) ; ” R" 

l 6^" P n" (1 ' FN P (l P 

5340 LET' 

5400 REM 

5401 REM uwag 
. 5405 IF e (X, l 

RINT "uwaga -zwa r te 
NSN"; e (x , l , l) 

5406 IF e(X,l,6)-0 THEN PRINT 
1 waga-zerowy wspolcz. ZNSN",e(x 
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540^- IF t (X, l ,4) =t (X j 1,5) THEN P 
RINT INUERSE 1; " b l ad -zw a r te wezl 
y nap. ZNSN" ; e (x , l , 1) : let stop = 
1: RETURN 

54-10 REM tworzenie macierzy 
5415 LET k=5: GO 5UB 6100: LET k 

=1: GO SUB 6200: IF 5top=l THEN 
RETURN 

5420 IF e(X,l,2)>0 THEN LET n (FN 
p(lp),FN U (2)) =-e (X , l ,6) 

5421 IF e (X , l , 3) >0 THEN LET n (FN 
p Cip) ,FN u (3) ) =e <x , l ,61 

5422 IF e(X,l,4)>0 THEN LET n (FN 
U(4),FN P ( lp ) ) o-l ; LET n (FN p(l 

P ) , FN u (4) ) =1 

5423 IF €(X,l,5)>0 THEN LET n (FN 
U ( 5) , FN pllpUal: LET n (FN pllp 

> , FN U (5) ) =-l 
5425 RETURN 

6430 REH wizualizacja wyników 

5435 PRINT ' INUERSE 1, "ZPSP" ; e < 
x,l,l); INUERSE 0;TfiB 6; "S+=",e( 
X , l ,2) ,TRB 12; "3- = "; e (X , 1,3) ; TRB 

18; "I+=" , e (x , l ,4) , TRB 24, "I-=" , 
e (x ,1,5) 

5436 LET *1=2: LET 1*2=3: GO SUB 

6400: PRINT TRB 6 ; " Ur = " ; e (X , l , 6 

) ; TRB 6; "Us = U", TRB 6; “u = 

" ; m*e (x , l ,6) ; " U";TRB 6;"l = ", 
t ( 1 , FN U ( lp ) ) ; " R": PRINT TRB 6, 
"P^= ", M te (X , l ,6) łt (1 ,FN U(lp)), 

5440 LET 

5500 REM | 

5501 REH uwagi i biedy 

5505 IF e (X , l , 2) =e (X , l , 3) THEN P 
RINT "uwaga -rwa r te wezly ster. z 
NSP"; e (x , l , 1) 

5506 IF e(X,l,6)=0 THEN PRINT "U 
waga-zerowy wspolcz. ZNSP";e(x,l 

5507 IF e (x , l , 4) ae (x , l , 5) THEN P 
RINT INUERSE l , " b i ad -z w a r t e wezi 
" n 2Łi..?M 5p " ; * (x < 1 » • let stop = 


1: RETURN 
5510 REM twórz 
5515 LET k *5 : GO SUB 6100 


zy 


LET 


*2: GO SUB 6200: IF St0P=l THEN 
RETURN 

5520 IF e (X , l , 2) >0 THEN LET n (FN 
U (2) , FN p(lp-l))=l: LET n (FN p( 

IP-l) , FN U (2) ) =-l 

5521 IF e (X , l , 3) >0 THEN LET n (FN 
U (3) , FN p ( lp-1) ) «-l ; LET n (FN p 

( IP-l) , FN U (3) ) <1 

5522 IF e(X,l,4)>0 THEN LET n (FN 
U(4),FN p ( lp ) ) >1 : LET n (FN p(lp 

> ,FN U (4) ) =-l 

5523 IF e (X , l , 5) >0 THEN LET n (FN 
U (5) , FN p ( lp ) ) =-l : LET n (FN p(l 


FN p (lp) ,FN p ( lp-1) 


. ) , FN U (5) ) 

5524 LET n ( 
e (X , l ,6) 

5525 RETURN 
5530 REM Wizualizacja wyników 

5535 PRINT • INUERSE l;"ZNSP";e( 
Xi 1,11 ; INUERSE 0; TRB &;"S + = ",e( 
x , l ,2) ;TRB 12; "S-="; « (x , l ,3) ; t«B 

18; "U+*";e (x , l ,4) ; TRB 24; "U-="; 
e (x .1 ,5) , 

5536 PRINT 'TRB 6; "UC ; e (X , l ,6) 
; TRB 6; " Is = ";l(l,FN p(lp>>;" R 1 
; TRB 6; -U = ";t(l,FN p(lp))*e(x, 
1,6);" U" ;TAB 6; "I = M ;t(l,rN p( 
lp + 1) ) ; " R’ : PRINT TRB 6, "P a " ; 
e (x , l ,6) łt (1,FN p (lp) ) #t (1,FN p( 
lp *1) ) ; " U" 

5540 LET lp=lPł2: RETURN 

5600 REM 


RINT "uwaga-zwarty rezysto 

(x , l ,1) 

5606 IF e (X , l , 4) =0 THEN PRINT IN 
UERSE 1; "Blad-zerowa rezystancja 
R" ; e (X , l , 1) : LET Stopal: RETURN 

5610 REH tworzenie macierzy 
5615 LET k =3 : GO SUB 6100 
5620 IF C (X , l , 2) >0 THEN LET n (FN 
U (2) , FN U (2) ) =n (FN U (2) , FN U (2) 


) , FN U (3) ) -1/t ( 

5621 IF e(X,l,3)>0 THEN LET n (FN 
U (3) , FN U (3) ) =n (FN U (3) , FN U (3) 
) +l/« (X, l ,4) : IF e (X, 1,2) >0 THEN 

LET n (FN u (3) ,FN U (2) ) =n (FN u (3 
) , FN U (2) ) -l/e (X , l ,4) 

5625 RETURN 

5630 rem wizualizacja wyników 

5635 PRINT ' INUERSE 1; S R" ; e (X , l 
,1); INUERSE 0 ; T RB 6; "Oł»" ; e (x , i 
,2) , TRB 12, "U~=";e (X, 1,3) 

5636 LET M 1*2: LET m2*3: GO SUB 

6400: PRINT 'TRB 6; M R a ";t(X,l, 

4);" Om " ; TRB 6; "U a U"; TRB 

6; "I - ";m/e (x , l ,4) ; " A" : PRINT 

TRB 6; "P = "; *»■/« (x , l ,4) ; " U" 
5640 RETUP*’ 

5700 REM ‘ 

5701 REM 

5705 IF e (X, 1,2) =e (X, 1,3) THEN P 


5706 ' IF e (X, 1,3) =e (X, 1,4) THEN P 
RINT "uwaga-zwarte : K i E NPN";e 

57Ó7 IF e(X,l,5)*0 THEN PRINT "u 
waga-zerowe wzmocnienie NPN”;e(x 
, 1 , 1 ) 


0708 IF e (X , l .2),ae (X , l. 4) THEN P 
RINT INUERSE 1; "b lad -żiar te V*B i 
T gR N p N";e(X.l,l): LET stopal: RE 

571g tworzenie macierzy 
0718 LET ka4: GO SUB 6100: LET fc 
Flj.. 00 SUB 6200: IF stopal THEN 
RETURN 

57S ?2. * (X , l , 2) >0 THEN LET n (FN 

LeT ntrN 

8722 IF C (X , l , 4) >0 tHEN LET n (FN 

“ P.( l£)) a-l-e (X, l ,5) : LET 

n (FN pj ip) ,r*‘ 

5723 LET b (Fl 
5725 RETURN 
5730 REM wizi 

5736 PRINT ' ... 

,1,1); INUERSE 0.TRB 6;" B«" e (x 
ia; " K-";« «x, l .3) ;TRB 
18;" Ea";e (X , l ,4) 

5736 LET ll»3: LET *2-4: GO SUB 
6400. PRINT 'TRB 6;”b = ";«(x,l, 
5);" IU/UJ ";TRB S;''Ubo 0.65 U"; 
TRB 5;"Uce= U";TRB 6; "łba 

';t(l,FN p ( lp i ) ; " R" ; TRB 6; "Ic = 
";t (X t l,8) »t (1,PN P ( lp) ) ; " fl" ; Tfl 


P ( lp ) ) ; " R ; Tfl 

® Si, ;t(i,FN p ( ip> ) * (i+e (x , 

5801 REM uwag i i b l e d y 
5805. IF e (X , l ,2) a« ( X , l ,3) THEN P 
RINT "uwaga-zwarte. B i K PNP";e 
(X , 1,1) 

5806 IF e (X , l ,3) -« (X , l ,4) THEN P 
RINT "uwaga-zwarte . K i E PNP";e 
(x, 1,1) 

5807 IF «(X, 1,51*0 THEN PRINT "U 
waga-zerowe wzmocnienie PNP";e(x 

5808 IF e (X, 1,2) -€ (X,l,4) THEN P 
RINT INUERSE 1; " blad -zwarte : 8 i 

E PNP";« (X, 1,1) : LET Stopal: RE 
TL’RN 

5810 REH tworzenie macierzy 
5815 LET k *4 : GO SUB 6100: LET k 
•1: GO 6UB 6200. IF StOP=l THEN 
RETURN 

5820 IF € (X . I , 2) >0 THEN LET n (FN 
U (2) , FN p ( lp) ) a-l : LET n (FN p(l 

p) , FN U (2) ) * 1 

5821 IF e (X , l , 3) >0 THEN LET n (FN 
u (3) , FN P (lp) ) a-e (x ,k ,5) 

5822 IF e (X , t , 4) >0 THEN LET n (FN 

U (4) ,FN p (lp) ) <lł« (X , l ,5) : LET 
n (FN P (lp) , FN U (4) ) a-l 

5823 LET b (FN P(lp))--.6S 
5825 RETURN 

5B30 REH wizualizacja wyników 
5835 PRINT ' INUERSE l;"PNP";e(x 
,1,1); INUERSE 0; TRB 6, " B = ";e(X 
,1,2) ; TRB 12;" K«“ , e (X , l , 3) ;TRB 
18; " C«";e (x , l ,4) 

5B36 LET ml-3 LET 02*4: GO SUB 

6400: PRINT 'TRB 8; "b = ";e(X,l, 
5);" CU/U) " ; TRB 3;"Ube* -0.65 U‘* 

; TRB 5;"Uce= " ; w , U”;TRB 6, "łba 
“ ; t (1 ,FN p ( lp 5 ) ; " R" ; TRB 6;"Ic = 
";e (x , l ,5) łt (1,FN pdp));" R";T 
RB 6;"le« ";t(l,FN p ( ip) ) ł (l+e (x 
, l,B));T«B 6; "P » < .65+młe (x , 

1,5) ) łt ( 1 ,FN p (lp) ) ; " U" 

5840 LET lpslp+l; RETU RN 

6000 reh ■BBBRHBHnBlBEi 

6010 CLS 

6020 GO SUB 8000+ 100 ł (X -1) 

6030 GO SUB 9800 
6040 GO SUB 9990 

6050 IF x$="P” AND i (X) >0 THEN L 

ET k =0 : GO SUB 9600: IF e>0 THEN 

GO TO 6070 

6051 IF x 4 = "d" RND i (X) <10 THEN 

LET i (X) ai (X) +1: LET e*i(X>: GO 

TO 6070 

6052 IF X$="5” RND i (X) >0 THEN G 
O SUB 9600: IF e >0 THEN GO SUB 8 
05Q+100ł (X -1) : GO TO 6000 

6053 IF X ł«" K " THEN RETURN 

6060 BEEP .1,20: GO TO 6040 

6070 GO SUB 8030+1004 (X -1) : GO T 

0 6000 

6100 rem HUHIiyjHyiBbMIMfi 

6105 IF lz+k>maxn THEN LET stopa 
1: PRINT "blad-przekroczono rożni 

1 a r macierzy": RETURN 

6110 FOR ja2 TO k: IF e(X,l,j)>0 
THEN IF t (2,e (X , l , j) ) =0 THEN LE 
T t (2,e (X , l , j) ) =12 : LET lz = lz+l 

6115 NEXT 

6200 REM | 

6205 IF ip+k >maxn /i 2 THEN LET sto 
pal: PRINT "blad-przekroczono il 
osc prądów": RETURN 
6210 FOR j=l TO k : LET t(2,lp+10 
) = l Z : LET lpalp+1: LET lZ = lZ + l: 

NEXT j- R ETURN 
6300 REM BBWW Blii fflFMBl W iaŁIHH 
6310 CLS : GO SUB 7500: LET Stop 

=0: LET IZal: LET lp=l: PRINT "a 
naliza układu rozpoczęta" ' ' 

6350 FOR x =1 TO 9: FOR 1 = 1 TO i ( 

X) : GO SUB 5000 + 100ł (X — 1) : NEXT 

l: NEXT X: IF StOP=l THEN PRINT 

'"biedy w ufc ladzie-koniec analiz 
y": GO TO 6395 

6351 IF 12=1 THEN PRINT "brak Ul 
adu - koniec analizy": GO TO 63 


95 


pocze ta" 

6360 GO SUB 1000: IF I«a0 THEN GO 

TO 6395 r 

6362 PRINT '“napięcia w węzłach-* 
układu:": FOR x =1 TO maxn/2: ir 

t (2 , X ) =0 THEN GO TO 6364 

6363 PRINT "wezel " ; x ; " * ";t(l, 
t (2,x) ) ; " U" 

6364 NEXT X 

6365 LET lp*2: FOR X«1 TO 9: FOR 
1=1 TO i (X) : GO SUB 5030 + 100ł(X 

-1) : NEXT l : NEXT X 

6370 PRINT - " 

iki? (t/n)" _ 

NPUT IF INKEY*a"t" THEN GO T 

O 6362 
6375 RETURN 

6395 PRINT «0;"nacisnij dowolny 
k lawiSZ^^PRUSE 1: PRUSE 0: INPU 

6410 LET TH 

EN LET X 1* t ( 1 , FN U (dl)) 

6420 LET X2=0: IF e(X, 1,1*2) >0 TH 

EN LET x2 = t(l,FN U (m 2 ) ) 

6430 LET * ~ 

7000 REM I 
7010 DIM . _ 

7020 RETU RN 

7500 REM m 

7510 DIM n (*axn ,maxn) ■ DIM b(max 
n) . DIM t(2,maxn): DIM x(maxn) 




8010 REM lista 
8015 PRINT "Stale Zrodla P 
PRINT 

8020 PRINT "nr element 1+ 


i en 

*="NZP” : GO SUB 9110: 


8025 LET 
RETURN 

8030 REH edycja elementu 

8040 LET k =0 : GO SUB 9500 

8041 LET x *="n r wezla I + ": GO SU 

§04i 0 LET x $ = ”n r wezla I-" GO SU 
_ 9500 
J43 LE ^ 

GO SUB 955i 
8045 RETURN 

8050 REM kasowanie elementu 
8055 LET t =4 
8060 GO SUB 9400 
8065 RETU RN 

8100 REM I 

8110 REM lista 
8115 PRINT "Stale zrodla Napięci 
owe": PRINT 

8120 PRINT "nr element U+ u- ucu 
i •• 

GO SUB 9110: 


8141 LET x $ = "nr 
B 9500 


lez la 
lez la 


8142 LET xf=“nr wezla u-": GO su 
8 9500 

8143 LET x$*"napiecie zrodla w C 

UJ " : GO SUB 9550 

8145 RETURN 

8150 REM kasowanie elementu 
3155 LET 1=4 
8160 GO SUB 9400 
3165 RETURN 
8200 REM 
3210 REM lista 

8215 PRINT "Zrodla Prądowe ste 
Napięciowo": PRINT 
8220 PRINT "nr element 5+ S- U+ 
U- uy 15) " 

8225 LET x*="ZPSN": GO SUB 9130 

RETURN 


3241 LET 
B 9500 
0242 LET X $ = "n r 


wezla S+": 
wezla 5-": 


GO SU 
GO SU 
GO SU 
GO SU 


B 9500 

8243 LET x*»"nr wezla U+" 

B 9500 

8244 LET x*="nr wezla U-" 

B 9500 
_ ~:45 LE 
. GO SUB 1 
8246 RETURN 

3250 REM kasowanie elementu 
8255 LET 1=6 
3260 GO SUB 9400 
8265 RETU RN 

3300 REM ati 

8310 REM lista 
8315 PRINT "Zrodla Prądowe Ster. 
Prądowo": PRINT 

8320 PRINT "nr element 5+ s- 1+ 
I- Uk CJ " 

3325 LET X*="ZPSP": GO SUB 9130: 

RETURN 

8330 REM edycja elementu 

8340 LET k=0: GO SUB 9500 

8341 LET x*="nr wezla S+": GO SU 
8 9500 

8342 LET x$*"nr wezla 5-”: GO SU 

B 9500 

3343 LET x*="nr wezla I+": GO SU 

B 9500 

3344 LET x*="nr wezla I-": GO SU 
B 9500 
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k CJ •• 

GO SUB 9550 
834-6 RETURN 
8350 REM Kasowanie elementu 
8355 LET 1=6 
8360 GO SUB 9400 

8365 RETURN 

8400 REM tWWBjBiaWHHMWIEM 
8410 REM lista 

8415 PRINT "Zr. Napięciowe Ster 
Napięciowo": PRINT 
8420 PRINT "nr element 
u- ut n " 

8425 LET X*='ZN3N 


S- U + 
GO SUB 9130: 


RETURN 

8430 rem edycja elementu 

8440 LET K =0 : GO SUB 9500 

8441 LET x*="nr wezla s + " 
B 9500 

8442 LET x*=”nr wez la S-" 


B 9500 


"nr wez la U + ' 


8443 LET X«: 

B 9500 

8444 LET x»*"nr wez la i 
B 9500 

8445 LET x t = "ws po l czy ni 
GO SUB 9550 

8446 RETURN 

8450 REM Kasowanie elementu 
8455 LET 1=6 
8460 GO 5UB 9400 


GO SU 
GO SU 
GO SU 
GO SU 

tir': 


8510 REM Usta 

8515 PRINT "Zr od la Napięciowe St 
er. Prądowo": PRINT 
8520 PRINT "nr element S + S- X + 
I- ur C0ml " 

8525 LET X*="ZNSP": GO SUB 9130: 
RETURN 

8530 REM edycja elementu 
3540 LET K=0: GO SUB 9500 

8541 LET x»*"nr wezla s + " 

B 9500 

8542 LET x*»"nr wezla S-" 

B 9500 „ „ 

8543 LET xi«”nr wezla l+" 

B 9500 

3544 LET x»«"nr wezla I-" 

B 9500 

8545 LET x *="wspo i czynn i K 
GO SUB 9550 

8546 RETURN 

8550 REM Kasowanie elementu 
8555 LET 1=6 
9400 


GO SU 
GO SU 
GO SU 
GO SU 
Y CS] " : 


mi 


8610 REM . . _ . _ 

8615 PRINT "Rezystory": PRINT 
8620 print "nr element u + u- R co 


GO SUB 9110: 


ml 

8625 LET 
TURN 

8630 REM edycja elementu 

8640 LET K =0 : GO SUB 9500 

8641 LET x*="nr wezla u+". GO su 
B 9500 

8642 LET x$="nr wezla U-": GO SU 
B 9500 

8643 LE. M 
GO SUB 955. 

8644 RETURN 

8650 rem Kasowanie elementu 
. 8655 LET 1=4 
'8660 GO SUB 9400 
3665 RETURN 
8700 REM |— 


INT 

8720 PRINT "nr element B K E 
b CR/fil •• 

8725 LET X*="NPN": GO SUB 9120: 
RETURN 

3730 REM edycja elementu 

8740 LET K =0 : GO SUB 9500 

8741 LET x ł="nr wezla B" : GO SUB 
9500 

8742 LET X*="nr wezla K" : GO SUB 
9500 

8743 LET x»=”nr wezla E": GO SUB 
9500 

8744 LET x <="wzmo cn i eni e b CR/RJ " 

: GO SUB 9550 

8745 RETURN 

8750 REM Kasowanie elementu 
8755 LET 1=5 
8760 GO SUB 9400 
3765 RETURN 

3600 rem anBSESBnaaa 

8810 REM lista 

8815 PRINT "Tranzystory PNP" : PR 
INT 

8820 print "nr element B K E 
b Cfl/fll " 

8825 LET X*=”PNP": GO SUB 9120: 

RETURN 


8841 LET x*="nr wezla B" : GO SUB 
9600 

3842 LET x*="nr wezla K" : GO SUB 
9500 

3843 let x|«"nr wezla E" : GO SUB 

9500 
144 l 

00 SUB 
8845 RETURN 

8850 REM Kasowanie elementu 
6655 LET 1=5 
8860 GO SUB 9400 


9010 GO SUB 9900 
9020 GO SUB 9990 

9030 IF X 9 > = "0" RND X*<="8" THEN 
LET X =URL X $ + 1 : CLS : GO SUB 60 
00: GO TO 90C~ 

1040 IF Xf=” 

00 TO 9000 

9041 IF X|»"n" TMEN PRUSE 1: PRI 

NT «0; "nowy układ? (t/n)": PRUSE 

0: INPUT IF INKEY$=" t " THEN 

GO SUB 7000: GO TO 9000 

9042 IF X»="l" THEN CLS : PRINT 

"lista elementów układu": FOR x= 
1 TO 9 GO SUB 8025 + 100* (X -1) : N 
EXT X: PRINT : PRINT «0;"NaciSni 

j dowolny klawisz”: PRUSE 1: PRU 
SE 0: INPUT "": GO TO 9000 

9045 BEEP .1,20 
9050 GO TC — 

9100 REM I - 

9110 REM 2 wezly.l parametr 
9115 FOR K = 1 TO i (X) : PRINT k;Tfl 
B 3;x*;e <x,k ,1) ;TfiB ll;e(x,k,2), 
TRB 14;e (V ,k ,3) ;TRB 17;e(x,k,4) 
NEXT k : RETURN 

9120 REM 3 weziy, i parametr 
9125 TOR k =1 TO i (X) ; PRINT k;TR 
B 3,xt;e (x,k,l) ;TRB li ; e (x , k , 2) , 
TRB 14; e (x , k ,3) ;TRB 17;e(x,k,4>; 
TRB 20; e (X , k ,5) : NEXT k: RETURN 
9130 REM 4 wezly,l parametr 


9135 FOR k=l TO i (X) : PRINT k;Tfl 
B 3; x $; e (x , k ,1) ; TRB ll;e(x,k/B); 
TRB 14;e (x ,k ,3) ;TRB 17,e(x,K,4>, 
TRB 20;e (x ,k ,5) ,TRB 23; e (x , k , 6) : 
NEXT k: RETURN 

9400 rem nnBm 

9410 LET i (X) »i (X) -1: IF e«10 TH 

EN RETURN 

9420 FOR k=e TO i(X>: FOR J=1 TO 

l 

9430 LET e <x ,k , j) =« (X ,k+l, J) 

9505 IF k=0 THEN LET X*»"nu*tr U 
kładowy elementu" 

9510 LET k =k +1 

9515 INPUT (X$);": ”;e(x,e,k) 
9520 IF FN z <K=l,maxw,e(x,e,k)) 
THEN GO TO 9515 


9530 RĘTURN^^^^^^^ 
9560 LET kff+U^N* 


9550 REM 


e (x ,e , k) 
9565 RETURI 


9600 REM L 

9610 INPUT "padaj nr elementu: " 
e: IF FN Z (0, i (X) ,e> THEN GO TO 

9610 

9620 RETURN 

9B00 REM aa __ - 

9810 PRINT RT 15,11; INUERSE lj " 
FUNKCJE: " 

9820 PRINT 

9830 IF i (X) >0 THEN PRINT TRB 5; 
-poprawienie elementu" 


9831 IF i (X) <10 THEN PRINT TRB 5 
,3 -do łączenie elementu" 

9832 IF i (X) >0 THEN PRINT TRB 5; 
”s -skasowani e elementu" 

9833 PRINT TRB 5;"k-koniec edycj 
i zbioru" 

9640 RETU RN 

9900 REH nHBHBBBHRHnB __ 

9910 CLS : PRINT TRB 7; INUERSE 
l; "FUNKCJE EDYTORR : " 

9915 PRINT 

9920 PRINT "0-Stalc Zrodlo Prado 
we ” 

9921 PRINT "1-Stale Zrodlo Napie 

9922*PRINT "2-Zr . Prądowe Ster. 
Napięciowo" 

9923 PRINT "3-Zr . Prądowe Ster. 
Prądowo" 

9924 PRINT "4-Zr. Napiecowe Ster 
. Napięciowo" 

9926 PRINT "5-Zr . Napięciowe Ste 
r. Prądowo" 

9926 PRINT "6-Rtzyttor" 

9927 PRINT "7-Tr»nzy s to r NPN" 

9928 PRINT "8-Tranzy s to r PNP" 

9930 PRINT : PRINT n w-wykonanie 
obliczeń" 

9931 PRINT 

9932 PRINT 
ladU" 

9940 RETURI 

9990 REM W 

9991 PRINT #C;RT 0,8; "wybierz fu 

9992 PRUSE 0: LET XfwINKEYf: IF 
x*<>"“ THEN INPUT " il : RETURN 

9993 GO T O 9991 

9999 
INE 1 


Zgadywanka — gra 


it wzorzec , i iczoa . i lczniK ; 
intr i liczoe wzorcowa podate pierwsza 
•intt l " osoba, druga ia zgaouje\n\n"' ) ; 

printt i "poda.) wzorzec <l)-vvv>i ')! 
wzorzec=dana ()! 
system ("cisi; 


printt l "trat 
1 lcznik) i 
1 iczba=dana ( ) ; 
if ( i iczba==wzorzec ) 


1 1 K< = ^0 ; l iczniK++) 

%d raz (wpisz liczbę <u-999>): 


l 

printt l" 
goto end; 
) 


ii le 


if 1 1 iczbaiwzorzec ) 
printt ( " - liczba za duza\n"); 


printfi" - liczba za mala\n"); 

i 

i 

printfi "\ntratiasz i trafiasz, az do znudzenia!."); 

printt (" Przerywam program! "); 

break; 

printt i " \nczy grasz ieszcze raz; lt/n)\n\n’); 

> 

ule igeteni )==-t' > ; 


dana () /“wczytanie 
l 

int licznik, liczbi 
char znak; 
wdetine maxchar j 
ffdefine enter 13 
for l 1 iczniK=l ; 1 i< 


czby J-cyrrowej*/ 


ik<«maxchar ; licznik++) 


znak=getch( )•; 

it ( l znak»=enter )&&( 1 icznikil ) ) 
goto end; 

> 

whi lei (znak< ’ O * ) 1 I (znaki '9' ) ) ; 
putchar ( znak) ; 

1 iczba=l iczba* lu+znak- ' U ' ; 
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Jak oszczędnie przechowywać ekrany na dyskietce 


MIECZYSŁAW SKONIECZNY, PIOTR RAKOWSKI 


Program demonstracyjny napisany w języku BASIC 
przedstawia, jak należy wykonać kompresję (linie 
120—360) i dekompresję obrazu (linie 380—520). 
Kompresowane obrazy są nagrywane na dyskietkę z 
rozszerzeniem CMP. Dekompresja jest realizowana 
także w zbiorach z rozszerzeniem CMP. Wersja 
źródłowa tego programu jest następująca: 


Obraz wyświetlany na ekranie mikrokomputera 
AMSTRAD CPC 6128 zajmuje 17 KB pamięci począw- 
szy od adresu C000. Można go przechowywać na dy- 
skietce, gdzie zajmuje okpło 10% zawartości jednej 
strony. Chcemy przedstawić programy do kompresji i 
dekompresji obrazów. Używając ich musimy ograni- 
czyć wielkość pamięci przeznaczonej na BASIC do 
16383 bajtów (instrukcja MEMORY 16383). Pierwszy z 
omawianych programów służy do kompresji ekranu. 
Skompresowany obraz jest umieszczony w pamięci 
od adresu 4002, a jego długość (potrzebna do nagra- 
nia na dyskietkę) można odczytać pod adresem 4000. 
Kompresja obrazu jest realizowana przez zastąpienie 
ciągu identycznych bajtów dwoma przedstawiający- 
mi ich wartość i długość ciągu. Program ten jest relo- 
kowalny w pamięci mikrokomputera. Wywołuje się 
go instrukcją: 

It> 'kod maszynowy "kompres" 

20 adres-38500illosclinii-5 
30 RESTORE 200 
40 FOR i«l TO ilosclinll 
50 s»0:READ a*,wS 
60 FOR J-l TO 29 STEP 2 
70 a-VAL<"V+MIDm<a*, j,2) ) 

80 P0KE adres, a 
90 s»*»ai adr eskadr es+1 
100 NEXT j 

120 NEXT < 1 >VAL<W * > THEN PRINT " Blad w lłnil nr "I 190+i*10iST0P 

130 SAVE"kompres",b, 38500, 63 

200 DATA U02402100c00ec80630c3*30e007», 1174 

210 DATA 0c23O52B0abe28f 8 1 279 1312131 8ee, 1 037 

220 DATA 127913121 3el7cfef 828023809d638 ,1423 

230 DATA 6701 300009 180401 000809c 1 0d20c > , 683 

240 DATA eb220040c900000000000000000000, 534 

CALL adres 

gdzie „adres" jest wartością, od której nagramy pro- 
gram do pamięci. Wersja źródłowa programu jest 
następująca: 

Drugi z programów służy do dekompresji obrazów 
utworzonych poprzednio programem „kompres”. 

Aby otrzymać obraz na ekranie należy wgrać do pa- 
mięci mikrokomputera od adresu 4000 skompreso- 
wany obrazek i wywołać program „dekompres” ins- 
trukcją: 

CALL adres 

gdzie „adres,, jest wartością, od której nagrywamy 
program do pamięci. Wersja źródłowa tego progra- 
mu jest następująca: 

10 'kod maszynowy "dakompres" 

20 adra«-38600iiloscllnli«4 
30 RESTORE 200 
40 FOR 1-1 TO Ilosclinll 
30 s-OsREAD a*, w* 

60 FOR J-l TO 29 STEP 2 
70 a-VAL < " łi " +M I D* ( a* , J , 2 ) ) 

80 POKE adres, a 
90 s-s+a: adres-adres+1 
100 NEXT J 

110 IF s<>VAL(w») THEN PRINT“B1 ad w linii nr " | 190+1 *10i STOP 
120 NEXT 1 

130 SAVE"dekompre",b, 38600,38 

200 DATA 21024011 OOc OOec 8d30630c57e234e ,1257 
210 DATA 23121 3030d20ł a78b720f 2c 1 d 1 c57a , 1 670 
220 DATA f ef 828023B0bd63857015000eb09#b , 1328 
230 DATA 1806010008eb09ebc 10d20cf C90000, 1 164 


10 'program demonstracyjny 
20 ‘kompresja i dekompresja ekranu 
30 ‘ 

40 HEHORY 16383 

50 HODE UNINDON £3, 12,28, 13, 18: PAPER £3,1:PEN £3,0:CLS £3 
60 PRIRT£3: PRIMT£3, " 1 - kompresja* 

70 PRIHT£3, • 2 - dekompresja* 

80 PRINT£3:PRINT£3,* Wybierz* 

90 a!*INKEY$: IF a*<>*l* AND a*<>*2* THEN 90 
100 IF a***2* THEN 380 
110 ' 

120 'kompresja 
130 HODE 2 
ltO LOACkospres 

150 HINOON £2, 20, 60, 21, 25: PAPER £2,1:PEN £2,0 
160 CLS£2 

170 PRINT£2:PRINT£2,* Nloz dyskietkę z obrazkiem do kompresji* 

180 PRINT£2, * i nacisnij dowolny klamisz.* 

190 CALL &BB06 
200 CAT 
210 CLS£2 

220 PRINT£2:PRINt£2, * Nazwa obrazki do kompresji s*;: INPUTE2, **, al 
230 PRINT£2, " Nazwa obrazka po kompresji :*;:INPUT£2,**,b» 

240 LOAD a$+*.scr*,bC000 
250 CALL 38500 
260 CLS: CLS£2 
270 PRINT£2 

280 PRINT£2,* Zmień dyskietkę i nacisnij dowolny* 

290 PRINTE2,* klawisz ,aby nagrać skompresowany * 

300 PRINTE2, * obrazek.* 

310 CALL 4BB06 

320 DL=PEEK ( 14000 ) *256 IPEEK ( 1400 1 ) - 1 6385 
330 SAVE b*+*.cmp*,B, 14002, OL 

340 CLS£2:PRlNTf2»PRINT£2, * Następny obrazek ? i*jtlNPUT£2,*\a» 

350 IF at-"t* CR al=*T* THEN 160 
360 RUN 
370 ’ 

380 'dekompresja 

390 HODE 2:L0AD"dekompre 

400 WINDOW £1,20,60,21 , 25: PAPER £1,1:PEN £1,0 

410 CLS£1:PPINT£1 

420 PRINTE1, * Nloz dyskietkę z obrazkiem do * 

430 PRINT£1,* dekompresji i nacisnij dowolny* 

440 PRINT£1,* klawisz.* 

450 CALL 4BB06 

460 CLS£1:CAT:PRINT£1:PRINT£1,* Nazwa obrazka do dekompresji s *; : INPUT£1 , **, a* 

470 PRINTfl :PRINT£1 , * N jakia trybie ?! *; : INPUTfl , *• , tryb 

480 HODE tryb 

490 LOAD a$ł*.cmp*,tt4002 

500 CALL 38600 

510 FOR i*l TO 1 0000: NEXT 

520 RUN 
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SYSTEMY OPERACYJNE 
IINNE 

GOTOWE PROGRAMY 


O sprzęci* powiedzieliśmy sobie Jul 
bardzo duło, 'w każdym razie wiele Jak na 
Podstawy Informatyki. Niestety w tym 
przypadku ilość nie "przechodzi" w 
Jakość. Urządzenia te. choćby wszystkie 
zgromadzone razem w Jednym miejscu b*da 
po prostu górą Czresztą pokaźną) złomu 
metali kolorowych, sztucznego tworzywa, 
szkła 1 innych składowych tego co 
potocznie nazywamy komputerem. 

Po "ożywieniu" sprz*t ten. Jak 
niegdyś. rranMenmtein, natychmiast 
przystępuję do działania. Szczęśliwie 

komputery nie zachowują sle J*k dziecko 
wyobraźni pani Shelly. są bardzo 

"łagodne", cierpliwe - po prostu są 
śycsltwe. Jest to możliwe dzięki 

specjalnej formie owego ożywienia. 
Polega ono na podaniu energii Cw Europie 
najlepiej 220V i BO Hz) oraz 

wprowadzeniu do pamięci maszyny 
odpowiedniego programu. Pamiętając o 
naszych doświadczeniach z programowaniem 
CIKS nr 11 ,"88) nie trudno Jest sobie 
wyobrazić ogrom pracy. Jaki trzeba 

włożyć w pisanie programów. które 
zapewnią prawidłowe działanie tysięcy 
komputerów. 

Wróćmy na chwile do monelrdw, które 
współcześnie nam "obrodziły". na 
przykład w filmach "Superglina" 1 
"Elektroniczny morderca". Ożywienie tych 
postaci polegało na przekazaniu naszym 
bohaterom zdolności CczytaJ programów) 
poruszania kończynami , widzenia i 
analizy obrazu, słyszenia i rozumienia 
mowy ludzkiej . Poza sposobem realizacji 
poleceń otrzymywanych przez owe istoty, 
gdy uwidacznia sie ich Indywidualność 
Cna przykład czarny charakter) 
pozostałe zdolności są typowe, 


morderca, czy Superglina - Istoty < 
wykonywały te same czynności. Jeśli 
okazałe by sle. że są to komputery, a 
było tak w istocie Cprawle), wystarczyło 
powielać ten sam zakodowany w ich 
• cłtrcsr.ym mómgu ( hompu 1 er reś) program, 
by standardowe zachowania owych postaci 
były realizowane. Nie trzeba zatem 
płacić ogromnych sum za oprogramowanie 
kolejnych egzemplarzy naszych bohaterów 
- przynajmniej w części dotyczącej ich 
podstawowych zachowań. i.Uimi w tym 
przypadku, poza chodzeniem, bieganiem, 
była nadzwyczajna celność strzelania z 
broni palnej. Można bowiem powielać 
program sterujący wykonywaniem typowych 
czynności . . . komputera w każdej podobnej 
maszynie. 

Te realistyczne przykłady mają na 
celu zwrócenie uwagi na idee konstrukcji 
tego typu programów: 

a) wykonywanie często powtarzanych przez 
użytkownika czynności, 

b) możliwość wykorzystania określonej 
wersji programu C systemu) w wielu 
komputerach. 

Kupując zatem nowy komputer, nie 
musimy budować od nowa programu, który 
na przykład przejre y nam dysk twardy 1 
wyświetli Jego zawartość, w czytelnej 
ila nas postaci. Podobnie przydałby sie 
programik. który automatycznie sprawdzi 
'łyskietke. czy Jest dobra Cbez dziur) 1 
o na niej zapisano. Mało tego. nawet 
ruch głowicy po powierzchni dysku też 
• i zęba oprogramować. Oznacza to. że 
• jżdą najdrobniejszą czynność wykonywaną 
pi zez maszynę należało wcześniej 
przewidzieć 1 opisać Cw Jeżyku 


wewnętrznym komputera). Zważywszy zatem 
na wspomnianą uniwersalność omawianych 
operacji napisano podprogramy C moduły), 
które złożone w całość stanowią o 
podstawowych zdolnościach komputera. Nie 
Jest to oczywiście chodsente, a na 
przykład czytanie Cz dysku). Wspomniana 
całość to SYSTEM OPERACYJNY - program, 
który wykonuje wszystkie standardowe 
C typowe) funkcje powierzane maszynie. 
Oczywiście mamy bardzo wiele typów 
systemów operacyjnych - małych i dużych. 

Przyjrzyjmy sle najpopularniejszemu 
Cna pewno u nas) - DOSowi - Dyskowy 
Oper a cyny System dla mikrokomputerów PC. 
Jego nazwa wskazuje. że program ten 
powstał głównie po to, by usprawnić 
wykorzystywanie dysków Ctwardych Ł 
elastycznych). 1 tak było faktycznie. 
Ale prm y ohamji nie pominięto 
zainstalowania tam modułów 

wspomagających inne bardzo ważne 
zdolności mikrokomputera. 

Zważywszy na to. że system 
operacyjny Jest tylko programem. po 
każdym włączeniu komputera DOS musi być 
od nowa wczytywany z dysku C do RAM). 
Ktoś to musi zrobić, w związku z tym. że 
RAM Jest pamięcią ulotną C zobacz IKS nr 
12^86). w maszynie, po włączeniu sieci, 
nie ma żadnego programu. Stanowiło to o 
konieczności zainstalowania w komputerze, 
takiej pamięci CROM lub RAM zasilanej 
bateryjką). która nie Mgvbi Cpo 
wyłączeniu sieci) programu, potrafiące- 
go wczytać DOSa. Jest to BIOS - program 
automatycznie uruchamiany zawsze po 
włączeniu maszyny do sieci. 

BIOS zajmuje etę także obsługą 
operacji związanych z wprowadzaniem 1 
wyprowadzaniem innych C poza DOSem) 
informacji. a także automatycznym 
testowaniem podstawowych układów 

komputera. Innymi słowy program ten 
(wspomagany przez programy MSDOS. SYS 
oraz IO. SYS) np. : automatycznie wpisuje 
(rudne liczby Cnp. : 1010101) do pamięci 
RAM następnie odczytuje Je by 
ostatecznie porównać to co zostało 


». Czy był to Elektroniczny 




rezultatem odczytania. Proces 




INFORMATYKA W SZKOLE 


owej kontroli Jest sygnalizowany na 
•kr ani* monitora - ukazują al* tam 
kolejne adresy Cl lczby) tratowanych 
komórek parni ec 1 . Wynik porównania róZny 
od tara oznacza. *• określona koatka 
parni *ci pracuj* błędni# 1 należy Ją 
wymienić. Tak wygląda w skróci* 
testowanie pamięci , od którego 
rozpoczyna prac* katdy komputer PC. 
Testowani* stanowi przykład 

standardowych czynności maszyny. Stanowi 
to. dla nas użytkowników. ciągi* 
odnawiany kredyt zaufania co do Jakości 
usług oferowanych przez komputer. Czyli 
raz napisany test powtarzany J*st 
codzienni* w .tysiącach mikrokomputerów 
określonego typu, np. i w IBM PCxXT. 

Podobnie Jest z procesem Ca Jest on 
dosyć złożony) obmTugi klawiatury czy 
monitora. Wykorzystywany Jest do tego 
celu specjalny program, który rosposno 
naciskany przez nas klawisz, umieć ci 
Jego kod w pamięci, pobierze odpowiedni 
wzorzec Cmozalk* punktów) tworzący znak 
1 ostatecznie wyśle t* mozaik* do 
monitora. Na szczęście wszystkie te 
czynnoScl wykonywane są przez 
oprogramowanie systemowe. JesteSmy 
zwolnieni od troski o te podstawowe 
zdolności maszyny. 

Oczywiście Jest to drobna czeSĆ 
uniwersalnych ezynnoSci komputera. DOS 
realizuje ich znacznie wl*cej. Na 
przykład dostałem Ckuplłem. załatwiłem) 
dyskietk* z doskonałym opisem edytora 
testów pod nazwą ZKSEDYT. CHI Niestety 
dyskietk* musze za kwadrans oddać. Nie 
aa problemu - wkładam dyskietk* do 
napędu oznaczonego literą A i na wszelki 
wypadek polecam DOSowi by sprawdził, czy 
aby na pewno Jest tam zapisany zbiór 
Cnasz opis edytora). Wystarczy napisać: 

DłR 

i na ekranie ukazują si* nam wszystkie 
zapisane na dyskietce zbiory. np. : 

IKSEDYT CHI 30000 10X01X80 Ol 35 
RAJBAJ CHI 30000 18X01X80 lOtll 

KOMKOM CHI 120000 10X12X88 Ol 03 

FlleCs) 180000 bytes free 


Okazuje si*. Ze mam ostatni., 
lv.k»etk*. na której moZe być troch.. 
•:.#isca. Wkładam Ją do napędu F- 
i /okazuj* DOSowi . aby teraz zaczai 
. liter esować si* napędem B pisząc B 
; wtarzam znane juZ nam polecenie DIR 
w odpowl edzl na ekranie ukazuje si*: 

TEST1 TKT 100000 10X12X88 11*12 

TEST 2 TXT 200000 10X1 0X87 12tll 

TEST i TXT 50000 8X08X88 4i 38 

NOWA TXT 150000 7x11X88 10l23 

4 Fileta) 310000 bytes free 

Powyiszy komunikat oznacza, że 
tam zapisne cztery zbiory Cfiles) 
wolne Jest aż 310 OOO bajtów Cbyt - 

free). Wróćmy do naszego remanentu iu 
dyskietce w napędzi* A. Okazuje si*. i" 
interesujący nas zbiór IKSEDYT. CHI 
wymaga tylko 30 OOO bajtów pamięci 
C druga kol usną). Zatem Jest dostatecznie 
duZo pamięci na mojej dyskietce. Wobec 
tego kopiuje interesujący śnie zbiór z 
napędu A na B. 

BA) COPY AJCSEDYT.CM 

w odpowiedzi maszyn* pisze: 

1 FleCs) COPCD 

Oznacza to. Z* kopiowanie zostało 
zakoóczone. Na wszelki wypadek sprawdzam, 
czy operacja została poprawnie wykonana 
WR 

Na ekranie monitora ukazuje si*: 

TEST1 TXT 100000 10X12X88 

iiiia 

TEST2 TXT 200000 10X10X87 

lilii 

TEST 3 TXT 50000 8x08x88 

4: 08 

NOWA TXT 150000 7X11X88 

lOtOO 

IKSEDYT CHI 30000 10X01X80 

Ol 55 

5 FlleCs) 280000 bytes free 

W związku z tym. Ze była to Jednak 
tylko demonstracja - szybko kasuj* efekt 
dotychczasowej pracy 'l sprawdzam 


B:\) ERASE KSEDYT.CHI 


B A} OR 

TESTl TXT lOOOOO 10X12X88 11*12 

TEST2 TXT 200000 10X10X87 12ill 

TEST3 TUT 50000 8X08X88 4i 38 

NOWA TXT 150000 7X11X88 10l23 

4 FlleCs) 310000 bytes free 

KoAcząc prezentowane przykłady, 
przy okazji wyświetlani* zawartości 

dyskietek. pragnę zwrócić uwag* na 

bardzo użyteczne informacje, które 
zawarte są w dwóch ostatnich kolumnach 
remanentów dyskietek, są to: data i czas 
załoZenia C zbudowani a) danego zbioru 

Poza przedstawionymi przykładami 
DOS potraf i także miedzy innymi: 
zmieniać pamiętaną przez maszyn* dat* i 
czas zegarowy. kasować. drukować, 
wyświetlać i szukać wybrane informacje, 
układać po Rolet czyli sortować np. : 
alfabetycznie. Pełna lista adolnogc i 
DOSa z krótkim opisem. Jak Je 
wykorzystać, to dokumentacja w postaci 
pokaźnego tomu. 

Jak JuZ kilkakrotnie wspominałem 
System Operecyjny - w naszym przykładzie 
DOS - Świadczy podstawowe. niezbędne 
kaZdesu użytkownikowi usfuei Wydaje 
si*. Ze można go przyrównać do solidnego 
fundamentu. Konstrukcja wznoszonego na 
nim budynku może być różna - zależna od 
praktycznego przeznaczenia owego dzieła. 
Ma przykład dla samochodziarzy bedżie to 
garaż, dla handlowców - hala targowa, 
dl* Dyrekcji PKS - dworzec autobusowy 

Wróćmy Jednak do komputera. Masz 
fundament to system operacyjny, budowla 
narzędziowe i użytkowe programy. 
Istnieją ich tysiące. Oznacza to. Z* 
Kupujemy komputer wraz z systemem 
operacyjnym. a dokupienie programu 
dostosowanego do naszych specyficznych 
potrzeb nie stanowi problemu. W wielu 
przypadkach C chyba w większości) 
użytkownicy sprzętu PC nie muszą tworzyć 
nowego. dostosowanego do ich potrzeb 
programu. Oznacza to. >Zw niemal na drugi 
dzień po kupieniu komputera i 
odpowiedniego oprogramowania możemy 
wykorzystywać maszynę do wykonywani* 
C wspomagani a) określonych prac. 


INFORMATYKA W SZKOLE 


Bardzo użyteczne okazały sie tak 
zwane programy narzędziowe. Jest ich 
bardzo wi elo C NORTON, PC TOOLS. XTPEE 1 
Innej. Każdy z nich to kolejny krok w 
uproszczeniu obsługi komputera Wykonują 
one bowiem wszystkie funkcje DOSa i 
Jeszcze sporo innych. Wywołanie, 
uruchomienie owych funkcji zazwyez.i 
polega na przesuwaniu kursora po ekran: ■■ 
lub napisaniu jednej litery 

monitorze wyświetlane jest bowiem 
kilkadziesiąt. ładnie ułożonych w 
tabelkach. słów i zwrotów C nl estety 
zazwyesj w Jeżyku angielskim*. Na 
przykład: Dysk. DRUKUJ. KASUJ. KOPIUJ 

Wystarczy kursorem dotknąć słowo DYSK 
lub napisać literkę D Cgdy wybieram 



znak K 1 odpowiednio - O dl a kopiowani aj 
.a na ekranie wyświetla sl* nam literki 
- imiona napędów dyskowych A. fi. C- 
Potykamy A i na ekranie wyświetlona 
zostaje lista zbiorów, które są zapisane 
na dyskietce C aktualnie włożonej do 
napędu AJ. Podobnie Jak miało to miejsce 
przy wykorzystaniu instrukcji DIR w 
DOSie. 


TEST1 TXT 
TEST2 TXT 
TEST 3 TXT 
NOWA TXT 
IK.SŁDYT CHI 


■5 Filer s> 


100000 19X12X88 iitir 

2.00000 1 0x1 0x07 Uill 

HOOOO 8X08X88 4: Ol' 

150000 7X11X88 10: Oo 

30000 1 flX01 X89 9: . 

230000 bytes free 


większa, a opisany, przykładowy, program 
tylko w drobnej części ilustruje 
możliwości omawianych narzędzi. Ich 
umiejętne wykorzystanie znacznie ułatwia 
proces współpracy z maszyną - staje sle 
-ma C praca i maszyna J coraz 

/mpatyeznl ej sza . 

A cóż te inne użytkowe programy 
mogą wykonywać? Na pewno wszystko to co 
t yło realizowane na starszym sprzęcie | 
. mputerowym! Świadom Jestem tego. że 
ystemy finansowe, kadrowe, materiałowe 
., Jest ich wleleJ są odległe od naszych 
.- unteresowań. Stąd też pragnę zwrócić 
:wage na kilka atrakcyjniejszych dla na-. 

• -tosowań. Przyjrzyjmy sle na przykład 
• lvtorowl tekstów Dr leki temu 

programowi . komputer zamienia sle w 
uniwersalną maszynę do pisania. To co 
napiszemy na klawiaturze zostanie 
wydrukowane. Nie prościej i taniej CO 
kupić sobie po prostu maszynę do 
pisania? Przede wszystkim edytor 
< typowyj dysponuje bogatym zestawem 
krojów czcionek Cnp. : 30 razy 3 - bo 

duże i małe 1 i ter yJ z nieograniczoną 
możliwością tworzenia nowych własnych 
rnaków - może to być cyrylica, znaki 
matematyczne, symbole elktroniczne lub 
hińskle obrazki , np. : 

u «nm n ] f&scxr 

■ osełll tlpC ncenrxxH 

aodf^fTtrff 


Po co ten program -7 Znakomicie 

usprawnia Cpr zyspieszaJ wykonywanie 
operacji narzędz i owych, choćby tylko 

przez to, że wystarczy dotknąć dane 
polecenie Ca nie napisaćJ 1 natychmiast 
Jest ono realizowane. Wróćmy do naszego 
przykładu. Po wyświetleniu zawartości 
dyskietki, także tym razem dotykam 
wybrany zbiór i. oznaczam go przyciskając 
klawisz FI C klawisz funkcyjny* Na 
przykład zbiór NOWA zostaje 

podświetlony C napisany t fu* tym druki om. J. 
Teraz wybieram Jedną z funkcji: kOpśJJ, 

Kasuj, oRukuj - w zależności od tego co 
zamierzam wykonać. Oczywiście lista 
dostępnych operacji Jest znacznie 


Wybór dowolnego kroju liter C znaków* 
■ doga na naciśnięciu Jednego lub dwóch 

• lawlszy. Mimo tych zalet cena komputera 

kilka milionów - budzi nadal duże 
wątpliwości co do celowości takiej 
nwestycji. 

Gdy piszemy, maszyna dba o to by 

* wżdy wiersz miał zaplanowaną przez nas 
: i czbe znaków. Polega to na tym, że 
piszemy ciiirktom - bez zastanawiania sie 


gdzie skończyć wi»i .z - kontroluje to 
maszyna przeno ■ . r I ■ . Móre powoduje 

przepełnienie zaplanowanej przez nas 
liczby znaków w wierszu do następnej 
linii tekstu. Aby wiersz z którego 
zabr ano wyr az był odpowi ednl o dł ugl ■ 
komputer dodaje w nim, miedzy 
poszczególne słowa, odpowiednią liczbę 
odstępów. Marginesy są Idealnie równe. 
Przykładem tego Jest niniejszy tekst, 
który był pisany właśnie przy pomocy 
omawianego edytora. Po ukończeniu całej 
strony. zauważam Coglądając Ją na 
ekranie monitora*, że ajadTom słowo i 
parę liter. Przesuwając kursor w 
odpowiednie miejsce wciskam tam 
brakujące słowa i znaki. Itp. , lŁp. 

Jeszcze o jednej własności 
niektórych tekstowych edytorów należy 
powiedzieć parę słów - wykluczają one 
błędy ortograficzne! Porównują każde 
pisane przez nas słowo z pamiętanym 
słownikiem ortograficznym - w efekcie 
komputer czasami buczy, oj buce y! 

Opisałem tutaj zaledwie drobną 
cześć dostępnych możliwości edytora 
tekstów. Mimo ich niewątpliwej 

atrakcyjności C także użyteczności* 
proponowane zastosowanie nie powinno 
stanowić koronnego argumentu podjęcia 
decyzji o zakupie komputera. Dodajmy do 
tego zatem kolejne argumenty 
propozycje Innych zastosowań maszyn. 
Uczynię to podczas naszego następnego 
spotkania Cto Już chyba wiosną?*. 
Przedmiotem VII części PODSTAW 
INFORMATYKI bedzie nieco inny i edytor 
tym razem obrazów C szkoda że nasz IKS 
nie Jest kolorowy). ciekawe programy 
obliczeń statystycznych oraz podzielę 
ie wrażeniami z przebiegu łączności 
i omputerowej . nie tylko w skali kraju. 


* W pracowniach 'feborat^yjrf^ch riaszych 
szkól jest szeroko wykorzystywany do pomia- 
rów miernik uniwersalny typu UM3 (lub po- 
dobny). Szybkie i prawidłowe odczytywanie 
wskazań mierników tego typu wymaga 
wprawy poprzedzonej długotrwałym trenin- 
giem. Zastąpienie w czasie treningu przy- 
rządu pomiarowego programem mikrokom- 
puterowym pozwala uniknąć ryzyka jego 
uszkodzenia i uatrakcyjnia proces nauki. 

Przedstawiany program „MIERNIK" służy 
spełnieniu przedstawionych wyżej celów. 
Został opracowany w języku Basic na mi- 
krokomputer typu ZX Spectrum (lub podobny). 
Po uruchomieniu na ekranie rysowana jest 
podziałka miernika UM3 z literowym ozna- 
czeniem amperomierza i woltomierza. 
Obrazy te są zapamiętywane do później- 
szego wykorzystania. Jest to część wstęp- 
na. przygotowawcza programu. W części 
głównej losowany jest rodzaj wykorzystania 
miernika (woltomierz, amperomierz), zakres 
pomiarowy oraz wartość wielkości mierzo- 
nej (pamiętana przez komputer). W efekcie 
na ekranie ukazuje się skala przyrządu ze 
wskazówką w położeniu odpowiadającym 
wylosowanej wcześniej wartości wielkości 
mierzonej. 

Rodzaj wielkości mierzonej (rodzaj pracy 
miernika) jest obrazowany przez wyświetle- 
nie symbolu „A" lub „U" poniżej podziałki. W 
oknie systemowym pojawia się komunikat o 
wylosowanym zakresie pomiarowym i pole- 
cenie wprowadzenia odczytanej przez tre- 
nującego wartości. Obraz ten jest' przed- 
stawiony na poniższym rysunku. Wprowa- 
dzona wartość jest porównywana z zapa- 
miętaną. Program dopuszcza popełnienie 
błędu odczytu nie większego niż 0,5 działki 
(1.5%). Wystąpienie większego błędu po- 
woduje wyświetlenie komunikatu o nim i po- 
lecenie dokonania powtórnego odczytu. Po 
trzecim błędnym odczycie na ekranie uka- 
zuje się informacja na temat prawidłowego 
postępowania podczas odczytywania 
wskazań mierników w/ielozakresowych. Po 
jej przeczytaniu ćwiczący kieruje program 
(przez naciśnięcie dowolnego klawisza) do 
początku, celem dalszego ćwiczenia. 

Podanie przez trenującego wartości z do- 
puszczalnym błędem powoduje automaty- 
czne powtórzenie ćwiczenia dla nowych 
wartości. 


Program „MIERNIK” 


10 KORDEK o: INK 0: PAPER 7: CLEAR 49999 

20 FOR i --50000 TO 50011! READ bi POKE i*b: NEXT i 

30 DATA 33*0 * 64,17*56*199* 1*0*27*237 *176,201 

40 PLOT 119*81! DRAW 0*13: DRAW 4*3! DRAW 3*0: DRAW 4*~5: DRAW 0.-13: DRAW 1* 
O: DRAW 0 . 13« DRAW -3*4: DRAW -3.0: DRAW -3,-4: DRAW 0.-13: DRAW 0.7? DRAW 8*0: 
DRAW 0*1: DRAW -8*0: GO SUK 2000: RANDOMIZE IJSR 50000 

50 PRINT AT 9,14?” " * AT 10*145" " 5 AT 11*145" PLOT 124*82: DRAW 1.0: D 

RAW 7*18! DRAW -1»0: DRAW -6,-17: DRAW -1*0: DRAW -4*17: DRAW -1»0« DRAW 7.-18! 
POKE 50004,144: POKE 50005,224: RANDONIZE USR 50000: POKE 50004,0: POKE 50005*44 
40 FOR i=0 TO 147: LET a=USR "o"+i: READ b: POKE a.b! NEXT i 

70 DATA 0,0. 54. 4 .40 .48, 40, 4, 0.40, 44, 44, 124, 44, 70. 8. 4, 8, 28, 32 .32, 32* 28 *0,8, 40, 8 
2*44,44*44,40*0*0,0*54,68*12©, 44, 40. 8.0, 124,44* 124*44*44, 126*12*16 *0*1 24 *8*16* 32 
,124,0,24,126.4,8,16,32,126,0,8,16,124,8, 16,32,124,0,8,126,20,8,16,32.126*0,0,64 
*72 *80 *96 *64 *126 *0,0* 14 *20* 24 *48 *16 *12*0 *8, 74 *98* 82 *74 *70 *46 *0*8 *14 *120 ,68 *68, 68 
*68 *0*8, 16, 56, 68, 68* 68, 56, 0.8, 60, 82. 66, 66, 66, 60, O, 0,60, 66, 46, 66, 36, 102, O, 36 *74, 7 
4*74,60,8,8,48*8*16*56*64,54,4. 170,0*8,60*64,60*2*44,60*0*0*0,34,34,34*34*93* 1.20 
80 

100 DIM 1(16): FOR i«l TO 16: READ 1(1): NEXT i 

110 DATA .0015* .006, .015*. 06*. 15 *.6* 1.5*4, 1.5*4*15,30,40,130.300,400 
120 LET K0N=49.3: LET ZAKREB'»KON-POCZ 

130 LET I--©: LET WSKAZ=RND*ZAKRES « LET MTER-INT (RND*16> s CLS 

140 IF MI ER (8 THEN POKE 50001*56: POKE 50002,199: RANDOMIZE USR 50000: GO TO 1 

60 

150 POKE 50001,144: POKE 50002,226: RANDOMIZE USR 30000 

160 UET KAT 1 * (POCZ+WSKAZ) /180*PI : LET DL--149: LET X©=123: LET Y0„0: PLOT X0*Y0: 
DRAW -1,0: LET XC=DI.*(SIN (KAT)): LET YC-»DL* (COS (KAT)): DRAW XC+1*YC: DRAW -XC+ 
2,-YC 

170 LET tt="U": IF MIER(8 THEN LET t*“"A" 

180 LET tO“STRi t (MIER+l) + t*: IF MIER<4 THEN LET t**-"0" + t* 

190 INPUT AT 0,75 "ZAKRES - ' 5 (t») » "PODAJ WARTOŚĆ MIERZONA : "5A: LET ODCZ^A*Z 

AKRES/t (MIER+l) 

200 LET BLAD=ABS (ODCZ-WSKAZ) 

210 IF BLAD(=1 .5 THEN 80 TO 130 
220 LET 1=1+1 

230 IF 1)2 THEN GO SlIB 1000: GO TO 130 

240 PRINT »1 5 "ZLY ODCZYT - SPRÓBUJ JESZCZE RAZ'. : PAUSE 100 
250 80 TO 170 
260 STOP 
270 

1000 CLS 

1010 PRINT " PAMIĘTAJ II! PRINT : PRINT 

1020 PRINT " Podczas korzystaniu z miernika PRINT "wiel ozkresowego należy pas 
ługi- wać sil? stałą podziułki »C’.": PRINT : PRlVlT 

1030 PRINT " zakres pomiarowy": PRINT ~ C=": PLOT 82,100: DRAW 138 

,0! PRINT " liczbu dziułek" : PRINT : PRINT : PRINT 

1040 PRINT "Aby otrzymać wurtoOć wielkoóci PRINT "mierzone,) należy Wbkazyuuną 
Ii-": PRINT "czbi? działuk pomnożyć przez stu-": PRINT "łą podziułki (dla aktuuln 
ie usta-": PRINT "lanego zakresu pomiarowego)." 

1050 PRINT 1 1 * " PO PRZECZYTANIU TEKSTU WCIŚNIJ DOWOLNY KLAWISZ" 

1040 PAUSE O: RETURN 
1070 

2000 LET P0CZ=-48.5 

2010 FOR i“0 TO 60 STEP 10: LET xi=l 23+130*SIN ( (pocz+l . 623*i > *PI/180> : LET yr = l 
50*COS ( (pocz+1 . 625*i ) *PI/ 1.80) : PLOT ><r*yr 

2020 LET xrn«i23+160*SIN ( (pucz+1 . 675*i ) *FI /180) : LET yrn=160*C0S ( (pocz+1 . 425*i 
) sPI/180) : DRAW xrn-xr *yrn-yr : NEXT i 

2030 PRINT AT 8,05"0": PRINT AT 4,45"3*: PRINT AT 1*9>"10": PRINT AT 0,155"15": 
PRINT AT 1*215 "20" i PRINT AT 4,261"25": PRINT AT 8»3O5"30" 

2040 FOR i=2 TO 60 STEP 2: LET xr=12D+150*SIN ( (pocz+1 .625* i ) *PI/1 80) : LET yr=15 
0*COS ( (pocz+l. 625*i)*PI/180 ) J PLOT xr*yr 

2050 LET xrn=125+158«SlN ( (pocz+1 .623*i > *PI/180> : LET yrn=158*C0S ( (pocz+1 .625«i 
> *PI/180> : DRAW xrn-xr *yrn-yr : MEXT i 

2060 FOR i=l TO 60 STEP 2: LET xr=125+150*SIN ( (pocz+1 .625* i) *PI/180> : LET yr=15 
0*COS ((pocz+1. 625*i)*PI/180 > : PI.OT xr,yr 

2070 LET xrn = 125+154*SIN ( (pocz+1 . 625*i ) *PI/180> : LET yvn*lG4*C0S ( (pocz+1. 625*i 
) *PI/180) : DRAW xrn-xr *yrn-yr : MEXT i 
2080 RETURN 


Program działa szybko dzięki zapamię- 
taniu obrazów z narysowanej podziałki i 
przenoszeniu ich za pomocą wstawki w ko- 
dzie maszynowym. 

Podstawowe uwagi dotyczące korzysta- 
nia z załączonego listingu programu. 

1 . Linie 20,30 — program w języku maszy- 
nowym do przenoszenia obrazów. Adres 
oryginału w komórkach 50001.50002; 
adres kopii w komórkach 50004,50005. 

2. Linie 40,50 i 2000—2000 — rysowanie i 
zapamiętanie obrazów z podziałkami 
amperomierza i woltomierza. 

3. Linie 60,70 — wczytanie do obszaru 
UDG polskich liter. 

4. Linie 1000—1060 — podprogram wy- 
świetlający instrukcję o prawidłowym 
postępowaniu podczas odczytywania 
wskazań miernika. 
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FUNKCJA 

DYSKRYMINUJĄCA 


Program „Funkcja dyskryminująca" 
stanowi narzędzie pomocne w trakcie 
prowadzenia analizy dyskryminacyjnej 
dla dwóch P-wymiarowych populacji o 
liczności prób NI i N2. Program oblicza 
podstawowe wielkości potrzebne w, 
trakcie analizy, a mianowicie: współ- 
czynniki liniowej funkcji dyskryminującej 
Fishera, L(P), odległość Mahalanobisa 
D2, statystykę F, wartości średnie 
funkcji dyskryminującej Y1SR i Y2SR, 
wartość funkcji dyskryminującej w ko- 
lejnych próbach dla obu populacji Y1 
(NI), Y2 (N2) oraz sumaryczną ma- 
cierz sum i iloczynów A (P, P) z 
(NI + N2 — 2) stopniami swobody. 
Powyższe obliczenia można również 
przeprowadzić dla zmiennych standar- 
dowych (o wariancji równej 1 ). Możliwa 
jest wówczas ocena wpływu poszcze- 
gólnych zmiennych (cech) na wartość 
funkcji dyskryminującej. Informacje ta- 
kie wykorzystywane są na przykład w 
tzw. złożonej metodzie oceny stanów 
techniki bazującej na analizie dyskry- 
minacyjnej (Devendra Sahal: Founda- 
tions of TechnometricS, Technological 
Forecasting and Social Change, Vol. 
27, Number 1, February 1985). 

Program testowany był w oparciu o 
dane z badań R. A. Fishera przytoczo- 
nych w monografii: M. G. Kendall, A. 
Stuart: The Advancend Theory of Stati- 
stics, Vol. 3, Second Edition (wyd. w jęz. 
rosyjskim z 1976 r„ str. 442). 

Dane, XI (P, NI), X2 (P, N2), wpro- 
wadza się instrukcjami DATA poczyna- 
jąc od linii 1300. Kolejność wprowa- 
dzania danych (dla P = 2): XI (1 , 1 ), X2 

(2, 1) XI (1 . NI). XI (2, NI ), X2 (1 , 1 ), 

x2 (2, 1 ),..., X2 (1, N2), X2 (2, N2). 
Wprowadzanie danych można przer- 
wać (bez uszczerbku w procesie 
wprowadzania) w dowolnym momen- 
cie, naciskając jednocześnie klawisze 
Control i 1 , wznowienie procesu wczy- 
tywania następuje po kolejnym naciś- 
nięciu klawiszy. 

W celu przyspieszenia działania pro- 
gramu ekran zostaje wyłączony (ins- 
trukcja POKE 559, 0) w trakcie obli- 
czeń sum kwadratów i iloczynów (linie 
.360—430) i wartości zmiennych stan- 
daryzowanych (linie 50—180), a te 
ostatnie obliczenia (szczególnie cza- 
sochłonne) umieszczone są w począt- 
kowych liniach programu. 

10 GOTO 1060 

20 REM Pod program ob li czarnie zmi 
ennych standa ryzowanych 
30 ? CHR$<125) : ? "OBLICZANIE F.D 
YSKRYM I NU JACE J DLA ZMIENNYCH STA 

20 


NDARYZOWANYCH" • ? ‘FOR G*1 TO 500 

■NEXT G 

40 POKE 553,0 

50 FOR G*1 TO P‘ZMP=0 

60 FOR F=1 TO NI ZMP=ZMP+<X1<G,F 

>-XlSR<G>)*<Xl<G,F)-XlSR<G>)‘NEX 

T F 

70 ZMP=ZMP/<N1-1)‘WAR1<G)=SQR<ZM 
P) 

80 NEXT G 

90 FOR G*1 TO P : FOR F=1 TO NI 
100 ZMP=X1 <G, F)vWARl <G) « XI <G, F)= 
ZMP 

110 NEXT F‘NEXT G 

120 FOR G*1 TO P=ZMP=0 

130 FOR F-l TO N2‘ZMP=ZMP+<X2<G, 

F) -X2SR<G))*<X2<G,F)-X2SR<G))‘NE 
XT F 

1 40 ZMP=ZMP/ < N2- 1 ) ‘ WAR2 < G ) =SQR < Z 
MP) 

150 NEXT G 

160 FOR G=1 TO P : FOR F=»l TO N2 
170 ZMP«X2<G,F)/WAR2<G)‘X2<G,F)= 
ZMP 

180 NEXT F ‘ NEXT G 

190 OFS-1'POKE 559, 34 ■? CHR$<125 

> 

200 REM Podprogram' obliczanie w 

artosci Pośrednich 

210 REM Obliczanie wartości X1SR 

<P),X2SR<p) 

220 FOR G=1 TO P‘ZMP=0 

230 FOR F-l TO NI ‘ ZMP=ZMP+X1 <G, F 

)‘NEXT F 

240 ZMP=ZMP/N 1 ‘ X 1 SR < G ) =ZMP ‘ ? "XI 
SR(“jG; ")■="; XI SR<G) 

250 NEXT G 
260 ? ■? 

270 FOR G=1 TO P‘ZMP*0 

280 FOR F=1 TO N2 ‘ ZMP=ZMP+X2<G, F 

)‘NEXT F 

290 ZMP=ZMP/N2=X2SR<G)=ZMP>? "X2 
SR<";G;")«";X2SR<G> 

300 NEXT G 

310 ? <? "c.d. po nac. ";CHR*<21 
0) ; CHR4< 197) ; CHR$<212) ! INPUT Q*‘ 

? CHR$< 125) 

320 REM Obliczanie wektora D 
330 FOR G*1 TO P ‘ ZMP=0 > ZMP=X1SR< 

G) -X2SR<G> • D<G)=ZMP ? "D< " ; G; " )= 
";D<G) ‘NEXT G 

340 ? «? "c.d. po nac. ";CHR*<21 

0);CHR$<137);CHR$<212) = INPUT Q$ ■ 

? CHR$< 125) -POKE 559,0 

350 REM Obliczanie iloczynów mie 

szanych 

360 FOR G=1 TO P=FOR J=G TO PZM 
P*0 

370 FOR F=1 TO NI ‘ ZMP=ZMP+<X1 <G, 
F)-X1SR<G) )#<X1 (J,F)-X1SR<J> ) =NE 
XT F 

380 SIX1<G,J)=ZMP 

390 NEXT J‘NEXT G 

400 FOR G=1 TO P ‘ FOR J=G TO P‘ZM 

P=0 

410 FOR F*1 TO N2=ZMP=ZMP+<X2<G, 
F)-X2SR<G))*<X2<J,F)-X2SR<J))‘NE 
XT F 

420 SIX2<G, J)=ZMP 

430 NEXT J‘NEXT G 

440 REM Obliczanie iloczynów sre 

dnich 

450 L 1=0 ‘POKE 559,34 

460 FOR G=1 TO P-FOR F=G TO P‘ZM 

P=0 ‘ L I =L I + 1 

470 ZMP=SIX1 <G, F)+SIX2<G, F) « ZMP= 
ZMP/<Nl+N2-2) 


480 A<G, F)=ZMP ' ? "A<";G;",";F; >, > 
= " ; A<G, F) 

490 IF GOF THEN A<F, G)=A<G, F) 
500 IF LI«15 THEN LI=0=? "c.d. p 

0 nac. " ; CHR$<210) ; CHR$< 197) ;CHR 
*<212)‘ INPUT Q* 

510 NEXT F ' NEXT G 
520 ? =? "c.d. po nac. ";CHR*<21 
0) ; CHR$( 197) ; CHR$<212) ‘ INPUT Q$ ■ 
? CHR$< 125) 

530 REM Podprogram' obliczanie w 
spolczynnikow funkcji dyskryminu 
jacej (układ rownan liniowych) 
540 FOR G=1 TO P ‘ ZMP=D<G) =R<G)=Z 
MP = NEXT G 
550 ZMP=1 . 0E-07 
560 FOR K=1 TO P‘ZMD=ZMP 
570 FOR F=K TO P ‘ T=A<F, K) ‘ IF ABS 
<T)>ABS<ZMD) THEN ZMD=T ‘ G*F > NEXT 
F 

580 IF ABS(ZMD) <=ZMP THEN ? "UKŁ- 
AD ROWNAN NIE MA -JEDNOZNACZNEGO 
ROZWIĄZANIA" =END 
590 FOR F=K TO P‘T=A<G,F) ‘A<G,F) 
=A(K,F) =A<K,F)=T‘NEXT F = T»R<G) =R 
<G)=R<K) ‘ R<K)=T 
600 IF K=P THEN GOTO 630 
610 FOR F=K+1 TO P‘T*A<F,K)^ZMD‘ 
FOR G=K+1 TO P‘A<F,G)=A<F,G)-T*A 
<K.,G) =NEXT fl‘R(F)=R<F)-T*R<K) ‘NE 
850 f NEXT K 
630 Z<P)=R<P)/A<P,P) 

640 FOR K=P-1 TO 1 STEP -l‘Z<K)= 
R<K)/A<K,K)‘FOR G=K+1 TO P‘Z<K)= 
Z<K)-A<K,G)/A<K,K)*Z<G) ‘NEXT G‘N 
EXT K 

650 REM Wydruk 
660 ? CHR$< 125) 

670 POSITION 2,2 =? "WSPÓŁCZYNNIK 

1 FUNKCJI DYSKRYMINUJĄCEJ"'? «? 

680 FOR F=1 TO P‘? " L";F;"=";Z 

<F)=NEXT F 

690 ? ‘FOR LI=1 TO 37 «? CHR$<160 
); ‘ NEXT LI 

700 ? '? "c.d. po nac. ";CHR$<21 
0) ; CHR$< 197) ; CHR$<212) * INPUT Q $ ' 
? CHR*<125) 

710 REM Podprogram' obliczanie w 
artosci funkcji dyskryminującej 
720 REM Obliczanie D2 
730 ZMP=0 

740 FOR G=1 TO P * ZMP=ZMP+Z<G)*D< 
G)‘NEXT G 

750 D2=ZMP = ? « ? ■ ? "D2=";D2 
760 REM Obliczanie statystyki 
770 ZMP=0‘ZMP=<N1*N2*<N1+N2-P-1) 
*D2)/<P*<Nl+N2)*<Nl+N2-2)) 

780 ? '? "STATYSTYKA=";ZMP 
790 REM Obliczanie wartości sred 
nich Y 
800 ZMP=0 

810 FOR G=1 TO P=ZMP=ZMP+Z<G)*X1 

SR<G)‘NEXT G 

820 ? >? "Y1SR= " ; ZMP 

830 ZMP=0 

840 FOR G=1 TÓ P‘ZMP=ZMP+Z<G)*X2 
SR(G) ‘ NEXT G 
850 ? "Y2SR‘=" i ZMP 
860 ? '? "c.d . po nac. ";CHR$<210 
) ; CHR$ <197); CHR* <212)1 NPUT Q$ ‘ ? 
CHR$< 125) 

870 REM Obliczanie wartości funk 
cji dyskryminującej 
880 ? "OBLICZANIE WARTOŚCI FUNKC 
JI DYSKRYMINU JACEJ 

"=? ‘FOR ZMP=1 TO 100 ‘ NEXT ZMP 
890 LI=0 

900 FOR F=1 TO N1‘ZMP=0 

910 FOR G=1 TO P‘ZMP=ZMP+Z<G)*X1 

<G,F)‘NEXT G 

928 ? "Y1<";F; ")="; ZMP 

930 LI=LI+1'IF LI=15 THEN LI=0‘? 

"c.d. po nac. ";CHR*<210);CHR$< 
197) ; CHR$<212) ‘ INPUT Q* 

340 NEXT F 

950 ? "c.d. po nac. ";CHR$(210); 
CHR*< 197) ;CHR$<212)‘ INPUT Q$‘? C 


HR*C125> 

960 LI=0 

970 FOR F=1 TO.N2=ZMP=0 

980 FOR G=1 TO P * ZMP=ZMP+Z<G)*X2 

<G/F) = NEXT G 

990 ? "Y2<";F.i ZMF' 

1800 LI=Li+l : IF LI=15 THEN LI=0 
? "c.d. po tłac. ";CHRt<210);CHRf 


< 197) i CHR$<212) ! INPUT Q$ 

1010 NEXT F 

1020 ? "c.d. po mc-. " > CHR$<210) 
iCHP*<19?>;CHR#<212) : INPUT Q* 
1030 IF 0FS=1 THEN END 
1040 GOTO 30 

1050 REM Strona tytułowa 
1060 ? CHP$< 125) 

1070 GRAPHICS 2 : SETCOLOR 2,8,0'P 
OS I T I ON 7,2= ? #6; "FUNKCJA" 'POSIT 
IOH 4,5-? #6; "DYSKRYMINUJĄCĄ" 
1080 FOR ZMP=1 TO 200 1 NEXT ZMP 
1090 ? "PODAJ LICZBĘ ZMIENNYCH P 
="; •INPUT P=? 

1100 ? "PODAJ LICZBĘ PRÓB Nl="j = 
INPUT Ń1 : ? 

1110 ? "PODAJ LICZBĘ PRÓB N2=".; « 
INPUT N2 

1120 DIM Xl<P,Nl),X2<P,N2),XlSR< 
P),X2SR<P)/Ó$<3> ' 

1130 DIM ACP,P),SIXKP,P),SIX2<P 
, P ) , D < P X, Z < P ) , R < P ) , WAR 1< P ) , WflR2 < 
P) 

1140 GRAPHICS 0 = TRAP 1200 
1150 REM Wprowadzanie danych 
1160 FOR F®1 TO NI ' FOR G=1 TO P 
READ L=X1(G,F)=L<? "X1<";G 
XI <G,F)'NEXT G : NEXT F 
1170 FOR F=1 TO N2 ; FOR G=1 TO P' 
READ L. : X2<G, F)=L ! ? "X2<",G; ", ";F 
;")=";X2<G,F)'NEXT G=NEXT F 
1180 ? * ? "Koniec wczytywania da 
nych" : ? "c.d.‘ po nac. "żCHR$( 210 
> ; CHR$ <1 97 > ; CHR$ < 2 1 2 > = I NPIJT 0* • ? 
CHRf <125) 

1190 OF S=0 1 GOTO 220 
1200 ? "Dane wprowadza sie instr 
ukc-iami DATA, poczynając od lini 
1300 . " i 


1210 ? "Kolejność wprowadzania d 
anych <dla P=2>*"«? >? "XI < 1,1), 

Xl<2, 1),X1<1,2),X1<2,2) "; 

1220 ? "XI <1, ND, XI <2, ND; Potem 
analogicznie X2<P, N2), adzie = " 
1230 ? ••? "XI, X2 - Pierwsza i dr 
usa srupa danych"'? "p - liczba 
zmiennych"'? "N1,N2 - licznosc p 
rob" 


1240 ? '? ' ? "Wprowadź dane!" 
1250 STOP 



20800 DflTfl 7. 0,3. 2, 4. 7/ 1.4 
20002 DflTfl 6. 4/ 3. 2/ 4. 5/ 1.5 
20004 DRTfl 6.9,3. 1,4.9, 1.5 
20006 DRTfl 5. 5/ 2. 3, 4. 0/1.3 
20008 DRTfl 6. 5/ 2. 8, 4. 6/ 1.5 
20010 DRTfl 5. 7, -2. 8, 4. 5, 1.3 
20012 DRTfl 6. 3/3. 3/4. 7/1, 6 
20014 DflTfl 4. 9/2. 4/3. 3/1.0 
20016 DflTfl 6. 6/ 2. 9/ 4. 6/ 1.3 
20018 DflTfl 5. 2/ 2. 7/ 3. 9/ 1.4 
20020 DflTfl 5. 0/2. 0/3. 5/ 1.0 
20022 DflTfl 5. 9/ 3. 0/4. 2/ 1.5 
20024 DflTfl 6. 0/2. 2/ 4. 0/1.0 
20026 DflTfl 6. 1/2. 9/ 4. 7/ 1.4 
20028 DflTfl 5:6/ 2. 9/ 3. 6/ 1.3 
20030 DflTfl 6.7/3. 1/4.4/ 1.4 
20032 DflTfl 5. 6/ 3. 0/4. 5/ 1.5 
20034 DflTfl 5L-8/2.7/4. 1/1.0 
20036 DflTfl #*2,2.2/ 4. 5, 1.5 
20038 DflTfl S.£, 2. 5, 3. 9, 1.1 
20040 DATFU5,-3,3.2,4.8,1.8 
20042 DflTfl 6. 1,2. 8, 4. 0,1.3 
20044 DflTfl 6. 3, 2. 5, 4. 9, U 5 
20046 DflTfl 6. 1,2. 8, 4. 7,1.2 
20048 DflTfl 6. 4, 2. 3, 4. 3, 1.3 
20050 DflTfl 6. 6, 3. 0,4. 4, 1.4 
20052 DflTfl 6. 8, 2. 8, 4. 8, 1.4 
20054 DflTfl 6. 7, 3. 0,5. 0,1.7 
20056 DflTfl 6. 0,2. 3, 4. 5, 1.5 
20058 DflTfl 5. 7, 2. 6, 3. 5, 1.0 
20060 DflTfl 5.5, 2. 4, 3,8, 1.1 
20062 DflTfl 5. 5, 2. 4, 3. 7/1.0 
20064 DflTfl 5. 8, 2. 7, 3. 3, 1.2 
20066 DflTfl 6. 0,2. 7, 5. 1, 1.6 
28068 DflTfl 5. 4, 3. 0,4. 5, 1.5 
20070 DflTfl 6. 0,3. 4, 4. 5, 1.6 
20072 DflTfl 6.7,3. 1,4. 7, 1.5 
20074 DflTfl 6. 3, 2. 3,4. 4, 1.3 
20876 DflTfl 5. 6, 3. 0,4. 1,1.3 
20078 DflTfl 5. 5, 2. 3, 4.0, 1.3 
20080, DflTfl 5.5,2. Ł4.4, 1.2 
20082 DflTfl 6.1,3i0,?V6, 1.4 
20084 DflTfl 3. 8, 2. 6, 4.0, 1.2 
20086 DflTfl 5. 0,2. 3, 3. 3, 1.0 
20088 DflTfl 5.6,2.7,4.2rl.-3 
20030 DflTfl 5.7, 3. 0,4. 2, 1.2 
20032 DflTflx5.7,2. 3-4. 2, 1.3 
20034 DflTfl 6.2, 2. 3,4.3, 1*3 
20036 DflTfl 5.1, 2.5.3. 0,1.1 
20038 DflTfl 5. 7, 2.8, 4.1, 1.3 



20100 D0T8 3. l,3.Jr,lr.4w«r» 
20102 DflTfl 4. 3, 3.0, 1,4, 0.2 
20104 DflTfl 4. 7, 3.2, 1.3, 0.2 
20106 DRTfl 4.6,3. 1,1. 5, 0.2 
20108 DflTfl 5, 0,3. 6, 1.4, 0.2 
20110 DflTfl 5.4, 3. 3, 1.7, 8.4 
20112 DflTfl 4. 6, 3.4, 1.4, 0.3 
20114 DflTfl 5. 0,3. 4, 1.5, 0.2 
20116 DflTfl 4. 4, 2. 3, 1.4, 0.2 
20118 DflTfl 4.3,3. 1, 1.5,8. 1 
20120 DflTfl 5. 4, 3.7, 1.5, 0.2 
20122 DflTfl 4. 8, 3. 4, 1.6, 0.2 
20124 DflTfl 4. 8, 3. 0, 1,4,0. 1 
20126 DflTfl 4. 3, 3.0, 1. 1,0. 1 
20128 DflTfl 5. 8, 4. 0,1. 2, 0.2 
20J30 DflTfl 5. 7, 4. 4, 1.5, 0.4 
20132 DflTfl 5. 4, 3. 3, 1.3, 0.4 
20134 DflTfl 5. 1,3. 5, 1.4, 8.3 
20136 DflTfl 5. 7, 3. 8, 1.7, 0.3 
20138 DflTfl 5. 1,3.8, 1.5, 0.3 
20140 DflTfl 5. 4, 3. 4, 1.7, 0.2 
20142 DflTfl 5. 1,3.7, 1.5, 0.4 
20144 DflTfl 4. 6, 3. 6, 1.0, 0.2 
20146 DflTfl 5. 1,3.3, 1.7, 0.5 
20148 DflTfl 4.8, 3. 4, 1.3,0. 2 
20150 DflTfl 5. 0,3. 0,1. 6, 0.2 
20152 DflTfl 5. 0,3. 4, 1.6, 0.4 
20154 DflTfl 5. 2, 3. 5, 1.5, 0.2 
20156 DflTfl 5. 2, 3. 4, 1.4, 0.2 
20158 DflTfl 4. 7, 3. 2, 1.6, 0.2 
20160 DflTfl 4.8,3. 1, 1.6, 0.2 
20162 DflTfl 5. 4, 3. 4, 1.5, 0.4 
20164 DflTfl 5.2,4. 1, 1.5,0. 1 
20166 DflTfl 5.5, 4. 2, 1.4, 0.2 
20168 DflTfl 4.3,3. 1, 1.5, 0.2 
20170 DflTfl 5.0, 3. 2, 1.2, 0.2 
20172 DflTfl 5.5, 3.5, 1.3, 0.2 
20174 DflTfl 4. 3, 3. 6, 1.4,0. 1 
20176 DflTfl 4. 4, 3.0, 1.3,0. 2 
20178 DflTfl 5. 1,3.4, 1.5, 0.2 
20180 DflTfl 5. 0,3. 5, 1.3, 0.3 
20182 DflTfl 4. 5, 2. 3, 1.3, 0.3 
20184 DflTfl 4. 4, 3. 2, 1.3, 0.2 
20186 DflTfl 5. 0,3. 5, 1.6, 0.6 
20188 DflTfl 5. 1-3.8, 1.3, 0.4 
20130 DflTfl 4. 8, 3. 0,1. 4, 0.3 
20132 DflTfl 5. 1,3.8, 1.6, 0.2 
20194 DflTfl 4. 6, 3. 2, 1.4, 0.2 

20196 DflTfl 5. 3,3. 7,1. 5, 0.2 

20197 DflTfl 5. 0,3. 3,1. 4, 0.2 
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Niespodziewana wizyta 


Czytał właśnie gazetę. Gorąca aro- 
matyczna kawa parzyła przyjemnie 
usta. Najbardziej lubił te chwile, przy 
porannej prasie. Niespieszne, dające 
jeszcze możliwość błogiego odpo- 
czynku po krótkich nocach spędzo- 
nych na szukaniu tematu, rozleniwia- 
jące, sycące energią, której tak wiele 
trzeba do całodziennej pracy. Dzien- 
nikarstwo, to paskudnie wyczerpują- 
cy zawód. 

Na pierwszej stronie, dużymi lite- 
rami, krzyczał tytuł „Tajemnicze za- 
ginięcie i co dalej? Czy policja wciąż 
będzie bezradna". Znowu tajemnicza 
afera. Wiedział, jak nikt inny, że czę- 
sto używa się takich chwytów celowo 
— dla zdobycia popularności, więk- 
szej liczby czytelników, zwiększenia 
nakładu.... Szczególnie, kiedy nad- 
chodził „sezon ogórkowy". A właśnie 
wakacje, lato w pełni, urlopy... 

Dlatego bez większego zaintere- 
sowania i z pobłażliwym uśmiechem 
przebiegł oczyma tekst. Trójkąt ber- 
mudzki? I to w pobliżu Phoenix w Ari- 
zonie. „Bzdury" — pomyślał. Jeden z 
jego kolegów po fachu donosił, że 
wczoraj na autostradzie z Phoenix do 
Preskott znaleziono kolejny porzu- 
cony autobus rejsowy bez pasaże- 
rów. Intrygujący był fakt, że po trzy- 
dziestoośmioosobowej grupie pod- 
różnych i dwuosobowej obsłudze nie 
pozostało ani śladu. 

Nie znaleziono żadnych bagaży, 
ani śladów użycia przemocy, jakiejś' 
walki czy paniki. Gdzie podziali się 
pasażerowie? Poszukiwania na szero- 
ką skalę nie dały żadnych rezultatów. 
Na te i wiele innych pytań nie znale- 
ziono, jak dotąd, odpowiedzi. Pikan- 
terii dodaje fakt, iż to jest czwarty w 
tym miesiącu tego rodzaju wypadek 
na tej właśnie trasie. 

Mark odrzucił gazetę na biurko i 
sięgnął po filiżankę, kiedy zadzwonił 
telefón. Podniósł słuchawkę. — Re- 
daktor Mark Henderson ? — Głos 
mówiącego zdradzał niepokój. — 
Nareszcie... Chcieliśmy się z panem 
skontaktować już wcześniej, ale... 

— Z kim mam przyjemność ? 

— O, przepraszam, zapomniałem 
się przedstawić. Doktor Martschew- 
ski z kliniki psychiatrycznej w Phoe- 
nikshill. Mamy do pana ogromną 
prośbę... Sprawa jest trochę nietypo- 
wa... Oto jeden z naszych pacjentów 
podaje się za pańskiego stryja... 

— Co takiego ? Mój stryj waszym 
pacjentem..! 1 

— Nie niepokoilibyśmy pana, gdy- 
by nie uporczywe żądania ze strony 
chorego... Domaga się konfrontacji i 


potwierdzenia swojej tożsamości 
przez pana. Proszę nas zrozumieć, 
przywieziono go bez dokumentów... 

— Mam tylko jednego stryja... 
Doktora Percivalla Hendersona... 

— Takie właśnie wymienił nazwi- 
sko... 

— Ale cóż na miłość boską mógłby 
robić brat mego ojca w waszej klini- 
ce ? Z tego co wiem, czuje się wspa- 
niale, jest cenionym chirurgiem... 
Czyżby ubiegał się o stanowisko kon- 
sultanta i? — Sytuacja, że doktor Hen- 
derson może być w klinice psychia- 
trycznej, jako pacjent była tak nie- 
prawdopodobna, że próbował żarto- 
wać. 

— Sprawa jest bardziej skompli- 
kowana, niż się panu wydaje... Czy 
mógłby pan przyjechać do nas ? jak 
najszybciej... 

Odłożył słuchawkę. Przez długą 
chwilę nie mógł zebrać myśli. Te 
dziwne niedomówienia doktora 
Martschewskiego... Klinika psychia- 
tryczna, stryj Percivall, najinteligent- 
niejsza osoba w rodzinie... Co to 
wszystko ma znaczyć? Wykręcił nu- 
mer telefonu stryja. Nikt nie podnosił 
słuchawki. Tyle razy prosił, żeby nie 
mieszkał sam, w tym niewielkim dom- 
ku na odludziu... 

* * * 

Asfaltową aleją podjechał niemal 
przed samo wejście kliniki. Po kilku 
zwyczajowych formalnościach przy 
tego rodzaju sytuacjach pokazano 
mu pacjenta. Nie mogło być żadnych 
wątpliwości. To był stryj Percivall. 
Wkrótce wpuszczono go do niewiel- 
kiego pokoju, w którym stało jedynie 
łóżko trochę dziwnej konstrukcji. 
Stryj, z rozwichrzonymi włosami, któ- 
re jakby posiwiały od czasu, kiedy wi- 
dział go po raz ostatni, przywitał go 
niecierpliwie, z kwaśnym uśmie- 
chem. 

— A więt jesteś... Nareszcie je- 
steś... No siadaj, siadaj... Chłopcze, 
żebyś ty wiedział, co oni tu ze mną 
wyprawiają... — To chłopcze brzmia- 
ło trochę groteskowo. Mówił prze- 
cież do prawie czterdziestoletniego 
mężczyzny. Było to jego ulubione 
słowo w rozmowie z Markiem. 

— Ale o co u licha chodzi ? Co się 
stało? Skąd stryj tutaj? 

— Spokojnie, spokojnie chłopcze. 
Zaraz ci wszystko opowiem. Tylko... 
Czekaj, może chcesz się upewnić, czy 
jestem normalny? No zadawaj pyta- 
nia... — Percivall zachowywał się zu- 
pełnie normalnie. Nic nie wskazywa- 


ło, że nagle oszalał. Doktor uprzedzał 
go jednak, że chory, na pierwszy rzut 
oka wygląda na normalnego i że 
pragnie w ten sposób uśpić czujność 
lekarzy i rodziny. 

Mark przysiadł na krawędzi łóżka. 
Mimo wszystko był nieco sceptycznie 
nastawiony do dziwnych nastrojów 
stryja. Czasem nawet miewał wątpli- 
wości... No cóż? Starość nie radość. 

— Wyobraź sobie — doktor był 
wyraźnie podniecony — że... A niech 
to... Nawet tobie boję się teraz to 
opowiedzieć... Przecież to właśnie 
przez to, ja... No wiesz, tutaj przez to 
trafiłem. To po prostu niesamowita 
historia... Słuchaj, nie ma chwili do 
stracenia... Tylko nie myśl, że zwa- 
riowałem... 

— Ależ stryju... 

— No dobrze już, dobrze... Tylko 
nie patrz tak na mnie i nie przerywaj, 
dopóki nie skończę. 


Za oknem zaszeleściły gałęzie le- 
szczyny rosnącej niedaleko przy 
nim. Percivall dorzucił kolejną szcza- 
pę do kominka. Chciał odpocząć po 
nurzącym dniu w klinice, przy herba- 
cie, w fotelu. Nie miał już tyle sił, co w 
młodości. Zdrzemnął się przez chwi- 
lę. Widocznie zmarzł trochę, bo 
przebudził się nagle. Teraz, kiedy 
płomienie obejmowały suche bier- 
wiono, przyjemne ciepło rozkwitło 
rumieńcem na jego policzkach. 

Usłyszał delikatne stukanie w szy- 
bę. Nasłuchiwał przez moment pil- 
nie. Czyżby się przesłyszał? Ale ten 
odgłos łamanych gałęzi... Nie, jest jak 
najbardziej realny. Podszedł do okna. 
Nie mylił się. 

— Niech mnie pan wpuści. Po- 
trzebuję pomocy. — Przez szybę, w 
gęstniejącym mroku, niewiele mógł 
dostrzec. Odniósł jednak wrażenie, 
że ten człowiek rzeczywiście potrze- 
buje natychmiastowej pomocy. Zda- 
wało mu się, że w jego oczach, w wy- 
razie twarzy, wyczytał jakby błagalną 
prośbę. 

— Niech pan wejdzie, proszę, co 
s/ę stało? 

W otwartych drzwiach stał mężczy- 
zna średniego wzrostu, mocnej bu- 
dowy ciała. Z całej jego postaci biła 
jakaś niezrozumiała groza. Opierał 
się na sękatej gałęzi, oderwanej nie- 
dawno z jakiegoś drzewa. Kikut jego 
prawej nogi owinięty był w popla- 
mioną twedową marynarkę. Spod pa- 
chy drugiej ręki zwisała odcięta, czy 
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też odrąbana powyżej kolana noga. 
Mężczyzna wysunął ku niemu rękę z 
resztką nogi. 

— Niech pan to potrzyma... No, 
proszę się nie bać. Jest pan przecież 
chirurgiem, prawda? 

— Tak, tak... Proszę wejść. Prę- 
dzej... — Profesor usiłował usadzić 
nieznajomego w fotelu. 

— już dzwonię do kliniki... Proszę 
się nie martwić. Uratujemy pana no- 
gę. — Mówił tak dla dodania otuchy 
mężczyźnie tak straszliwie doświad- 
czonemu przez los. 

— Niech pan nie dotyka telefonu. 

— Głos nieznajomego brzmiał ostro i 
twardo. Niezwyczajnie, jak na kogoś, 
kto uległ tragicznemu wypadkowi. 

Percivall ani myślał tego słuchać. 
Był zbyt doświadczonym lekarzem, 
aby nie wiedzieć, jakie to dziwne rze- 
czy wygadują ludzie w szoku powy- 
padkowym. 

— Proszę odłożyć słuchawkę. Nig- 
dzie pan nie będzie dzwonił — usły- 
szał rozkazujący ton. 

„Rzeczywiście jest w szoku" — 
pomyślał wystukując numer na kla- 
wiaturze telefonu. Nagle sękaty kij 
wytrącił mu słuchawkę z ręki. Trzas- 
nęła głucho o posadzkę. Kostur dusił 
teraz jego tchawicę. 

— Przyszedłem tutaj, żeby pan mi 
pomógł, a nie działał na moją szkodę 

— mężczyzna akcentował dobitnie 
każde słowo. — Szybko — narzę- 
dzia... Niech pan przygotuje wszystko 
do zabiegu. 


— Czy ty sobie potrafisz to wyo- 
brazić mój chłopcze? — Siwa głowa 
doktora trzęsła się w niespokojnym 
zdumieniu, jakby raz jeszcze przyszło 
mu to przeżywać na nowo. — Sam 
bym w to wszystko nie uwierzył, gdy- 
by nie... Fakty są najbardziej okrutne. 

ja do dziś nie mogę zrozumieć, 
jak to było możliwe... — Odchrzą- 
knął, bo poczuł nagle suchość w gard- 
le, która nie pozwalała mu mówić. Z 
oczu popłynęły łzy. 

— Wyjąłem oczywiście wszystkie 
narzędzia, jakie miałem w domu. On 
usiadł na ceratowej kozetce, wiesz tej 
co stoi w moim ambulatorium i... 
Drżącymi rękami pomagałem mu 
wiązać końcówki nerwów, ścięgien, 
wiązań... Łączyliśmy żyły, naczynia 
krwionośne, składaliśmy kości. 

Właściwie to on to wszystko robił. 

, Ja mu tylko pomagałem. Rozumiesz... 
Człowiek bez nogi dokonuje sam 
operacji... I to jak precyzyjnie... Te je- 
go zręczne palce... A przy tym twarz 
jego... Dziwnie- nieludzka... Ja wiem, 
że ból zmienia oblicze każdego. Wi- 
działem cierpienie i rozpacz na ludz- 
kich twarzach... On nawet nie zapy- 


tał, czy mam coś na miejscowe znie- 
czulenie. 

Uwierz mi, taką twarz widziałem po 
raz pierwszy, jakaś popielato-biała... 
Przez cały czas operacji nie drgnął na 
niej żaden mięsień, ani razu nie wy- 
krzywiła się w grymasie bólu. Wygląda- 
ło to wszystko tak, jakby przyszywano 
nogę manekinowi. To znaczy on 
przyszywał, bo ja mu tylko asystowa- 
łem. 

— Stryju, ale przecież... 

— A potem stała się rzecz najstrasz- 
niejsza. — Percivall opadł na po- 
duszki. Był tak wzburzony, że wyda- 
wało się, iż nie wykrztusi już z siebie 
ani słowa więcej. „Biedny stryjcio" — 
pomyślał Mark. Przez tyle lat był do- 
brym chirurgiem i nagle... Coś mu się 
w głowie widać jednak poprzestawia- 
ło... 

— To oni... Nie odchodź jeszcze... 
— wykrzyknął widząc, że Mark pod- 
nosi się z łóżka. — Nie opowiedzia- 
łem ci najważniejszego. 


Nieznajomy mężczyzna wstał z ka- 
napy. Chwiejnym nieco krokiem 
przeszedł przez pokój. 

— Trzeba jeszcze tylko ukrwic 
mięśnie i po wszystkim... Dobra robo- 
ta doktorze. 

— To przecież niemożliwe! — 
Percivall wrzucił narzędzia do steryli- 
zatora. — To wszystko nie może być 
realne... Chyba, że pan nie jest... 

— No proszę, niech pan dokończy 
doktorze. Chyba, że co...? Że nie je- 
stem człowiekiem, prawda? Tak pan 
chciał powiedzieć? — Nieznajomy 
przywołał na usta coś w rodzaju uś- 
miechu. — Ponieważ pomógł mi 
pan... No dobrze powiem panu 
prawdę, ale nie wiem, czy to panu 
wyjdzie na dobre. Czasem lepiej za 
dużo nie wiedzieć. 

No cóż, skoro pan chce... Na pew- 
nym etapie rozwoju cywilizacji, ro- 
zum może nauczyć się kierowania 
wszystkimi czynnościami biologi- 
cznymi każdego organizmu. Przyszy- 
cie nogi, ręki, głowy nawet, to wtedy 
nic nadzwyczajnego. 

Doktor patrzył ze zdziwienierh i 
niedowierzaniem na siedzącego 
obok człowieka. Człowieka? Czyżby 
był to... Nie, to jakiś koszmarny sen, z 
którego zaraz się zbudzi... 

— Nie, nie panie doktorze. Ma 
pan rację, to nie jest sen. — Percivall 
zawisł wzrokiem na nieznajomym. 
On przecież czytał w jego myślach. — 
Wy ludzie nie potraficie sobie wyo- 
brazić ogromu wszechświata, nie 
chcecie uwierzyć, że mogą istnieć w 
nim inne, zupełnie odmienne od wa- 
szej cywilizacje. 

Czy byłby pan w stanie uwierzyć, 
że istnieie cywilizacja, która wybrała 


drogę rozwoju tylko rozumu. I to Zu- 
pełnie w niewyobrażalnej dla czło- 
wieka postaci. Nic, tylko sam rozum. 

— To wszystko... To jest trudne do 
zrozumienia... — Doktor odzyskiwał 
powoli zimną krew. — Ale dlaczego 
pan... To znaczy czego wy od nas 
chcecie? Skąd wzięliście się na Ziemi i 
po co? 

— Właśnie chciałem o tym powie- 
dzieć. — Mężczyzna wstał i zaczął 
wolno przechadzać się po pokoju. — 
Już raz, przed tysiącami lat musieliś- 
my ingerować w wasz rozwój cywili- 
zacyjny. Wasz potencjał umysłowy 
rozwijał się zbyt wolno... Teraz czu- 
jemy się, jak to wy mówicie, moralnie 
zobowiązani do opieki nad wami. 


Traktujemy Ziemię, jako takie więk- 
sze trochę laboratorium. Ziemia jest 
nam potrzebna i jej mieszkańcy tak- 
że. Naturalny cykl rozwoju każdej 
cywilizacji zawsze zmierza ku samo- 
zagładzie. Tak było również z naszą 
planetą. Kiedy doszliśmy do pewnego 
etapu rozwoju techniki... Wy zbliża- 
cie się właśnie do tego apogeum. Jest 
już was ponad 5 miliardów. Przy ta- 
kim tempie prokreacji, jaki macie w 
Afryce, czy Azji, już wkrótce na każ- 
dego mieszkańca Ziemi przypadałoby 
najwyżej pół metra miejsca. Wy po- 
traficie tylko w jeden sposób rozwią- 
zać ten problem — poprzez wojnę. 

Nie macie w ogóle wyobraźni. Czy 
wiecie, jakie perturbacje wyniknęły- 
by w Układzie Słonecznym, gdybyś- 
cie rozsadzili planetę? Przed tysiąca- 
mi lat nasz rozwój szedł tym samym 
torem, na który skierowaliśmy was. 
Niestety, koniec był tragiczny. Została 
z nas tylko myśl. Czysty rozum. To 
tylko jest w stanie przetrwać we 
wszechświecie. 

— Dlaczego w takim razie nie da- 
waliście znaku życia przez tak długi 
czas? 

— Dlaczego? Wy nawet nie jesteś- 
cie w stanie nas pojąć. Ta ludzka pow- 
łoka jest po to właśnie, abyśmy mogli 
być wśród was. Byśmy mogli wykonać 
zadanie. Chcemy bowiem, dla wa- 
szego dobra, przetransportować 
część ludzi na inną planetę... Ciekawi 
pana na jaką, prawda? Na Marsa panie 
doktorze, na Marsa. 

jesteśmy tam już od dawna. Nawet 
narobiliście nam trochę kłopotu w 
swoim czasie wypatrując przez tele- 
skopy sieć kanałów niezbędną do ła- 
dowania naszej energii. Trzeba było 
szybko je zamaskować, abyście myśle- 
li, że to niewłaściwość przyrządów 
dała ten efekt. 

No i jak pan wie, udało się. Wymyś- 
liliście nawet „efekt oczekiwania", aby 
wytłumaczyć sobie rozbieżność w 
obserwacjach. Były kanały i ich nie 
ma. Pomyłka. Uczeni po prostu tak 
bardzo chcieli zobaczyć te kanały, że 
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w końcu je zobaczyli — tłumaczyliś- 
cie. 

— No dobrze, ale do czego po- 
trzebni 54 wam ludzie tam, na Mar- 
sie? 

— Są potrzebni... Bardzo potrzeb- 
ni. 


— Marku, musisz mi pomóc stąd 
się wydostać — Percivall chwycił go 
kurczowo za rękę — No i ratować 
tych ludzi, ja byłem już wszędzie. Na 
policji, u burmistrza... Nikt mi nie 
uwierzył. Ale ty możesz o tym napisać 
w prasie. Musisz o tym napisać. Trze- 
ba ostrzec ludzi. — Drżał teraz na ca- 
łym ciele, wyczerpany rozmową I 
strachem. 

— Biedny stary — Mark wytarł mu 


Przyszłość 

komputerów 

Tygodnik amerykański „PC Week” za- 
mieścił w swoich listopadowych numerach 
cykl artykułów Jamesa Martina, amerykań- 
skiego producenta sprzętu komputero- 
wego i autora wielu prac z zakresu techni- 
ki komputerowej, poświęconych perspek- 
tywom rozwoju sprzętu komputerowego 
w przeciągu najbliższych dwudziestu lat. 

Na początku lat dziewięćdziesiątych 
rozpocznie się międzynarodowy wyścig o 
dominacje w produkcji układów scalo- 
nych o submikronowych strukturach. Po- 
przez zastosowanie ultrafioletowych 
technik trawienia średnica pojedynczej 
struktury w układzie scalonym osiągnie 
wymiar między 0,6 a 0,8 mikrona. Pozwoli 
to na umieszczenie 100 milionów poje- 
dynczych elementów w układach pamię- 
ciowych i 1 miliona w mikroprocesorach. 

Dzięki nowym mikroprocesorom śred- 
niej klasy komputery będą działać z szyb- 
kością 15 milionów operacji na sekundę, 
wysokiej klasy komputery osobiste z szyb- 
kością 100 min operacji na sekundę, a pro- 
fesjonalne z szybkością 500 min operacji 
na sek., a superkomputery 40 miliardów 
operacji na sek. 

Pojawią się układy scalone, zawierające 
po kilka procesorów, umożliwiających 
równoległe przetwarzanie informacji. 
Powstanie tym samym nowa generacja 
komputerów tzw. komputerów równoleg- 
łych. 

Tak jak podstawowym osiągnięciem 
przemysłu Komputerowego w latach 
osiemdziesiątych było pojawienie się 
komputerów osobistych, tak w latach 
dziewięćdziesiątych ma nim być masowy 
rozwój sieci komputerowych umożliwia- 
jących powszechne korzystanie z banków 
informacji i komputerów specjalisty- 
cznych. 

Sieci te będą budowane ze światłowo- 
dów, w których szybkość transmisji będzie 
wynosić 2,2 miliarda bitów na sekundę. 

Coraz powszechniej będą stosowane 
techniki sztucznej inteligencji umożliwia- 
jące nieprofesjonalistom łatwy dostęp do 
pożądanej informacji. Tworzone będą 


ręcznikiem zroszone czoło. Czy to 
nie jest przypadkiem rodzinne? — 
pomyślał nagle. Najpierw babka, te- 
raz... 

Drzwi uchyliły się i Martschewski 
ruchem głowy wywołał go z pokoju. 

— Jest w ciężkim stanie — rzekł 
usprawiedliwiająco. — Powinien te- 
raz odpocząć. Być może kiedyś je- 
szcze powróci do zdrowia... Narobił 
nam wiele kłopotów. Biegał po mieś- 
cie, zaczepiał ludzi... Na niektórych 
próbował nawet rzucić się z nożem. 

— Biedny stryj — zgodził się z le- 
karzem. — jeżeli pan pozwoli, będę 
go czasami odwiedzał. — To taka 
przykra starość. 

— Tak, nikt z nas nie zna swojego 
końca — odrzekł lekarz. Uścisnęli so- 
bie ręce i już po chwili Mark pędził 
autostradą w stronę miasta. 


tzw. systemy ekspertów czyli wysoko spe- 
cjalistyczne oprogramowania dotyczące 
poszczególnych dziedzin nauki i techniki, 
dzięki którym możliwe będzie powszech- 
ne korzystanie z najnowszych osiągnięć w 
tych dziedzinach. 

Z końcem lat dziewięćdziesiątych 
przewiduje się wprowadzenie nowych 
technik wytwarzania układów scalonych, 
wykorzystujących promienie rentgenow- 
skie, umożliwiających umieszczenie w jed- 
nym układzie ponad 1 miliarda elemen- 
tów. Pozwoli to na dalsze zwiększenie 
szybkości pracy komputerów i doskona- 
lenie technik procesów równoległych. Za- 
stosowanie dysków optycznych umożliwi 
znacznie zwiększenie pojemności pamięci 
komputerów, dla dysków 4 i 3/4 cala do 8 
miliardów bitów, dla 3-calowych do 1 mi- 
liarda bitów, a dla 2-calowycn do 200 mi- 
lionów bitów. 

W latach dziewięćdziesiątych nastąpi 
sżybki rozwój neuroprocesorów umożli- 
wiających konstruowanie neurokompute- 
rów, czyli komputerów posiadających 
zdolność samodzielnego uczenia się, wy- 
korzystywanych m.in. do rozpoznawania 
mowy, rozróżniania i identyfikowania 
charakterów pisma, analizy rysunków itp. 
Przewiduje się, że na początku XXI wieku 


Patrol policyjny zatrzymał go dwa- 
dzieścia kilometrów od Phoenix. 

— O co chodzi? Chyba nie popełni- 
łem wykroczenia? — Mocne dłonie 
chwyciły go pod pachy. 

— Zaraz się pan wszystkiego do- 
wie. 

W asyście trzymających go mocno 
policjantów przeszedł przez las, 
gdzie na polanie... Chciał się wyrwać, 
ale było już na wszystko za późno. Jak 
zahipnotyzowany patrzył na okolony 
niebieskawym rozlanym światłem po- 
jazd w kształcie spłaszczonego jaja. 

— Więc stryj nie był wariatem, 
więc to wszystko p r awda — wyszeptał 
drewnianymi wargami, zanim ciśnię- 
to go w otwarty luk. 


ANNA KALETA 


neurokomputery będą zawierały ok. 120 
min neuronów i połączeń między nimi 
(obecnie do 0,5 min). 

Z początkiem XXI wieku zostanie osiąg- 
nięta bariera technologiczna możliwości 
budowy coraz szybszych mikroproceso- 
rów poprzez zmniejszenie wielkości po- 
jedynczych elementów. Wzrost mocy 
obliczeniowych komputerów będzie uzale- 
żniony przede wszystkim od liczby moż- 
liwych połączeń równoległych pracują- 
cych w nich procesorów. Pojawią się wó- 
wczas komputery szóstej generacji, w któ- 
rych oprócz wielu pracujących równoleg- 
le procesorów będą stosowane 
nadprzewodniki, elementy optyczne, po- 
łączone równolegle bazy danych o dużej 
pojemności na dyskach optycznych, neu- 
roprocesory i kanały optyczne o szybkości 
transmisji wielu miliardów bitów na se- 
kundę. Z końcem pierwszej dekady XXI 
wieku najtańsze komputery będą osiągać 
szybkość działania przekraczającą 80 min 
operacji na sekundę, a najdroższe super- 
komputery 10 bilionów operacji na se- 
kundę, natomiast programy komputerowe 
niejednokrotnie będą przekraczać 10 min 
instrukcji dochodząc nawet do 100 milio- 
nów. 


/^ymm aatari 

/ NASZYM PROGRAMEM' , 
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n 


To warto 


powtórzyć 


W podręczniku matematyki dla klasy III szkoły 
podstawowej znajdują się zadania dotyczące nie- 
dziesiątkowych systemów pozycyjnych. Wymagana 
jest między innymi umiejętność zapisywania liczb na- 
turalnych w systemach o podstawie mniejszej niż 10 
oraz zamiany zapisu z innego systemu ni zapis w 
systemie pozycyjnym dziesiątkowym. 


1 REM Kto łab i orzą ostatnia litere ? 

20 CLBi a-8+INT <RND*9) i b-GO+INT <RND*120) i d-b 

30 PRINT"Qra polaga na zabiaraniu przez graczy - na przemian - 
literek x" 

40 PRINT M W Jednym ruchu można ;abrac od 1 do "jaj" literek” 

50 PRINT"Nygra ten, kto weźmie ostatnia literka" 

60 PRINTiPRINTiPRINTiPRINT"s - start" 

BO a*-INK£Y* 

90 IF a*-"s" OR a*-"S" THEN 110 

100 GOTO 80 

110 CL8i LOCATE 1,8 

120 FOR i-1 TO biPRINT ■ x"||NEXT i 
130 LOCATE 1,1 i PRINT" Kto zaczyna?" 

140 PRINT"k - komputer "iPRINf"c - człowiek" 

160 a»-INKEY* 

170 IF a*<>-k“ AND a*<>"K" AND a*<>"c" AND a*<>"C" THEN 160 

180 LOCATE 3,20 

190 PRINT”Zabieraey od 1 do "|a|" literek" 

200 LOCATE 1,1 
210 FOR i-1 TO 4 
220 PRINT" 

230 NEXT i 

240 IF a*— "k" OR a*-"K“ THEN 270 
230 IF a*-"c* OR a*-"C" THEN 390 
260 BOTO 130 

270 IF b>4»a THEN c-l+INT(RND«a) iBOTO 300 
280 c-b-(a*l ) *INT (b/ (a+1 ) ) 

290 IF c-O THEN c-1 
300 LOCATE 1,1 
310 PRINT" 

320 LOCATE 1,1 

330 PRINT" Zabieram "|c 

340 b-b-ci 1-1 +c 

350 FOR t-1 TO 2000 1 NE X T t 

360 IF b-0 THEN PRINT"Ni estety , przegrał es" i GOTO 500 
370 LOCATE 1,8 

380 FOR i-1 TO 1 1 PRINT" ",iNEXT i 
390 LOCATE 1,3 
400 PRINT" 

410 LOCATE 1,3 

420 I NPUT "Ile zabierasz “,c 

430 IF cOINT(c) OR c<l OR c>a THEN 390 

440 b-b-c»l-l+c 

450 FOR t-1 TO 20001 NEXT t 

460 IF b<-0 THEN PRINT"Gratuluje, wygrałeś 1 1 ' " i GOTO 500 
470 LOCATE 1,8 

480 FOR i-1 TO ll PRINT" "||NEXT i 
490 GOTO 270 

500 PRINT "Dowolna litera - nowa gra" 

510 a*-INKEY« 

520 IF a*-“" THEN 510 
530 GOTO 10 


10 REM Zaaiana liczb naturalnych zapisanych w innych systemach poz 
ycyjnych na system dziesiątkowy 
20 CLSiDIM t. (30) 

30 PRINT" Podaj podstawę systemu i 2, 3, 4, 5, 6, 7, 8 lub 9 "tilNPUT a 
40 IF aOINT(a) OR a<2 OR a>9 THEN PRINT"Ni e oszukuj i GOTO 30 
50 PRINT"PodaJ liczbę w systemie o podstawia “|a|" "|iINPUT b 
60 d-b 

70 IF bOINT(b) OR b<0 THEN PRINT“PodaJ liczbę naturalna"iOOTO 50 
BO k-k+lil-10-k 
90 IF 1 >b THEN 110 
100 GOTO BO 

110 FOR i-k TO 1 STEP -1 
120 t <i )-INT<d/ <10 A (i-lł ł > 

130 IF t (i ) >-a THEN PRINT" M tym systemie nie ma takiej liczby, bo 
wiem nie ma cyfry "|t(l)iGOTO 50 
140 d»d-t<i>*10 A (i-l> 

130 NEXT i 

160 PRINT" Podaj zapis tej liczby w systeeie dziesiątkowym." 

170 PRINT"Jesli sie pomylisz, otrzymasz pomoc "|iINPUT m 
180 FOR m-1 TO k 
190 y-y+t <m>*a A (m-l) 

200 NEXT m 

210 IF M-y THEN PRINT"Doskonal a" i END 

220 PRINT“Ni estety , nie pamiętasz co oznacza zapis ")b|" w systemi 
e o podstawie "|a 

230 PRINT" Oznacza on, ze Jest to suma składników postacii “ 

240 PRINT 

230 FOR i-k TO 1 STEP -I 
260 PRINT t(i)|"*"|S|" A "|i-l 


270 NEXT 1 

2B0 PR I NT i PRINT "Pol icz teraz “|i INPUT x 
290 IF K-y THEN PRINT“Teraz dobrze" i END 
300 PRINT"DodaJ Jeszcze raz“iPRINT 
310 FOR 1-k TO 1 STEP -1 
320 PRINT t <i > | "*"ja A (i-i) 

330 NEXT i 

340 PR I NT i I NPUT x 

330 IF x»y THEN PRINT"Ter az dobrze"! END 
360 PRINT ■ PRINT"Doda J Jeszcze raz "i PRINT 
370 FOR i-k TO 1 STEP -1 
380 PRINT t (i )*a A (i-l> 

390 NEXT i 

400 PRINT i INPUT hiGOTO 330 


I REM Zamiana zapisu w systemie dziesiątkowym na zapis w 

innym systemie pozycyjnym 
3 CLS 

iO PRINT"Wybi erz podstawę systemu - 2, 3, 4, 3, 6, 7,8 lub 9 "i 

II INPUT a ' 

13 IF aOINT(a) OR a<2 OR a>9 THEN PRINT"Ni e oszukuJ"iG0T0 
20 PRINT-Wybiorz liczbę do zamiany ”|i INPUT b 

25 IF bOINT(b). OR b<0 THEN PRINT “Nie oszukuj " i GOTO 20 


50 GOSUB 199 
31 GOTO 40 
53 IF c >b THEN 65 
60 GOTO 35 
65 DIM t(i) 

70 FOR k-i-1 TO 0 STEP - 
73 PR I NT "Ile razy ”|a A k) 
76 INPUT t 


i potęgi "|i|" i INPUT c 


86 GOTO 75 

90 t <k)-ti f-di IF k-0 THEN 115 
95 PRINT" Ile zostaje INPUT d 
100 IF d«f-t*a A k THEN 110 

105 GOSUB 199 

106 GOTO 95 
110 NEXT k 

115 FOR m-0 TO i -1 1 y-y+t <m> *10 A m: NEXT m 

120 PRINT"Z zapamiętanych cyfr utwórz liczbę "i 

125 INPUT x 


130 IF x-y THEN 140 

135 GOSUB 199 

136 GOTO 125 

140 PRINT "To jest liczba "jbj“ zapisana w systemie"! "o podsta 
wie "ja 

143 IF 1-0 THEN PRINT "Gratuluje, zadanie rozwiązane bezbled 
nie "sEND 

ISO PRINT "Liczba błędowi ";1:END 

199 PRINT-Policz jeszcze raz“sl-l*l 

200 RETURN 
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Programy narzędziowe 
na CPC — AMSTRAD 6128 


DYSKEDYT 


Program DYSKEDYT umożliwia poprawianie dowolnych 
bajtów każdego sektora wybranej ścieżki dyskietki i jest 
szczególnie wygodnym narzędziem, gdy chcemy zmienić 
język polski na języki obcojęzyczne opisy występujące w 
większości gier komputerowych. 

Edycja wybranych bajtów programu (zbioru) odbywa się 
z poziomu pojedynczego sektora określonej ścieżki dy- 
skietki (interesujący nas sektor jest ściągany do pamięci 
operacyjnej, a stąd po dokonaniu zmian, zapisywany z 
powrotem na dyskietkę). Program sygnalizuje każdorazo- 
wo błędny odczyt lub zapis sektora. Po wybraniu i wyświet- 
leniu dowolnego sektora możemy wywołać opis dostęp- 
nych komend tzw. menu, przyciskając klawisz funkcyjny 
FO. Z opisem tym trzeba się koniecznie zapoznać, gdyż 
poniżej piszemy o niektórych tylko komendach używanych 
w programie. 

OPIS DZIAŁANIA PROGRAMU 

Po ściągnięciu programu do pamięci i uruchomieniu 
(komenda RUN „nazwa programu"), w górnym wierszu 
ekranu pojawi się nazwa programu, dalej wypełniająca 
prawie cały ekran tabela, a w dolnym wierszu — komuni- 
kat: dysk (0,1 ):. Jeśli korzystamy z napędu umieszczonego 
w komputerze, to wciskamy kolejno klawisze: "0" i ENTER 
(klawisz z cyfrą wciskamy, gdy dyskietka znajduje się w do- 
łączonej do komputera stacji dysków). Po wybraniu odpo- 
wiedniego napędu pojawi się komunikat: 
numer ścieżki: 

Po wpisaniu numeru ścieżki (z przedziału <0— 39>, na 
której znajduje się interesujący nas sektor i wciśnięciu 
klawisza ENTER pojawi się komunikat: 
numer sektora: 

Na każdej ścieżce dyskietki znajduje się 9 sektorów po 
512 bajtów każdy. Dla dyskietek sformatowanych jako 
DATA wybieramy numer sektora z przedziału 
<1 93—201 >, a dla sformatowanych jako SYSTEM z prze- 
działu <65— 73>. 

Po wykonaniu wyżej wymienionych czynności na ekra- 
nie monitora w podzielonej na trzy części tabeli ukażą się 
kolejno: w lewej części numer kolejnych szesnastu bajtów 
w kodzie szesnastkowym, dalej pierwsze 256 bajtów sekto- 
ra przedstawionych w kodzie szesnastkowym (drugie 256 
bajtów możemy wyświetlić wciskając klawisz funkcyjny 
F2), a w prawej części te same pierwsze 256 bajtów sekto- 
ra przedstawione w kodzie ASCII. 

Po przepisaniu programu DYSKEDYT (zachowaniu na 
dyskietce) i zapoznaniu się z całym opisem komend (kla- 
wisz funkcyjny FO) stwierdzicie, że warto mieć tego typu 
narzędzie w swojej biblioteczce oprogramowania. 

lo rem ttntnmuttnuntmmtmnntntttunntnt 

20 REM t * 

30 REM I AMSTRAD - EDYTOR SEKTOROM NA DYSKIETCE I 
40 REM t * 

50 rem tntnnntntunnnuttnnuntunutnnntn 
60 MODĘ 2: INK 0,1: INK 1,26:PAPER 0 
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70 MEMORY 67FFF:60SUB 1340:’ stanienie kodu aaszynoeego 

90 GOSUB 650:' inicjacja 

90 H INDOM SHAP 0,1 

100 GOSUB 800: ' opis ekranu 

110 CIS 

120 t»0:cc*0»cr*0:Md*4:*i*24:off*64:vl=dl 

130 PRINT CHR* (23) ; CHR$ ( 1 ) ; : TAG l*»d:G0SUB 560:P0KE 19080,180:60 

TO 340 

140 sl*":f*0:MHILE sl»":c*0:ł=f X0R 1:H0VE off*ccl«i+t*8,334- 
cr!16:PRINT t*<d,CHRI(143)j:NHlLE sl*” AND c<20:c»c*l:G0SUB 770 
: MEND: MEND: IF f*l THEN H0VE off+cd»»i*tlB,334-crll6:PRINT l*d,C 
URI (143) j 

150 address=PEEK <6908B)+PEEK (69080 t256+cc+cr 116 

160 IF ASC <sf ) <237 THEN 370 

170 IF ASC (s$) <239 THEN GOSUB 1300: IF hl='N' THEN 140 

180 IF ASC (sl) *237 THEN kl*'zapis sektora":6QSUB 500:G0T0 140 

190 IF ASC (sl) *238 THEN 1320 

200 IF ASC (s$) <244 THEN 1210 

210 IF ASC (sl) *246 THEN 1270 

220 IF ASC (sl) *247 THEN GOSUB 940:60SUB 800:60SUB 840:60T0 350 
230 cc*0«cr*0:t*0:CLS 

240 IF ASC (sl) *245 THEN P0KE Ł908C , PEEK ( Ł908C ) X0R 1 : GOTO 350 

250 IF ASC (sl) *251 THEN sector«sector+l 

260 IF ASC (sl) *250 THEN sector«sector-l 

270 IF ASC (sl) *248 THEN track»track*l 

280 IF ASC (sl) *249 THEN track*track-l 

290 IF ASC (sl) *244 THEN GOSUB 560;P0KE 69080,1(80 

300 IF sector>fsn*r THEN sector*fsn:trick*trackM 

310 IF sector<fsn THEN sector*fsn*r:track*track-l 

320 IF track<0 THEN track«39 

330 IF trick >39 THEN track»0 

340 kl«'odczyt sektora' : GOSUB 500: IF PEEK(690E3)<>0 THEN 140 
350 L0CATE •l,8,3:PRINTIl,drive:lOCATE II, 20,3:PRINTtl,track:L0 
CATE 11,32, 3: PRINTI1 , sector : L0CATE łl,44,3:PRINTIl,PEEK(690BC)A 
ND 67F:L0CATE łl,58,3:PRINTIl,al 

360 L0CATE »2, 1 , 1 : WINDOM SNAP 0,2:TA60FF Iwd: CLSf 3: CLSi4: CLSISi 

CALL 69000 :TA6 IwdiMINDON SMAP 0,2:G0T0 140 

370 IF t=l AND ed*4 THEN P0KE address, (PEEK(address) AND 6F0)*V 

AL('6Vsl) 

380 IF t*0 AND xd=4 THEN P0KE address, (PEEK (address) AND 6F)+VA 
l('6'*sl)ll6 

390 IF Md*5 THEN P0KE address, ASC (sl) 

400 L0CATE •l,9+ccl3,5*cr:kl*HEXI(PEEK(address)):IF LEN(kl)*l T 
HEN PRINTf 1 , *0" j 

410 PRINT41 , kl: L0CATE ll,59*cc,5+cr:kl*\':IF PEEK (address) >31 
THEN kl«CHRI (PEEK (address)) 

420 PRINTIl,kl| 

430 IF wd*4 THEN t*t X0R 1:IF t*0 THEN cc*cc+l 

440 IF Nd*5 THEN cc*cc+l 

450 IF cc*16 THEN cc*0:cr*cr+l 

460 IF cc*-l THEN cc*15:cr*cr-l 

470 IF cr«16 THEN cr«0 

480 IF cr-l THEN cr«15 

490 GOTO 140 

500 j*PEEK(690E5) :u*PEEK(690E6) 

510 P0KE 690E5, track: POKE 690E4,drive:P0KE 690E6,sector:P0KE 69 
0E3,0 

520 IF ASC(k!)*lll THEN CALL 690B1 ELSE CALL 690C3 


530 IF PEEMHOE3IOO THEN CLS:PRINT'BŁflD » -jkl;' * sciezk*:": 
track;* sektor : ";sector;CHR$ (7) 5 track s 'ji śector s u: nATlE 1$ 
= I NKEY * : WEND s CLS : RETURN 

540 IF ASC <k$) =122 THEN PRINT’prawidlowy zapis sektora" ;CHR$ (7) 
550 RETURN 

5& GOSUB 840 

52g CLS: LOCATE 1,1:PRINT" dysk (0,1): " ; : nc=l : al =0: aa=l : 60SUB B 
60:drive=VAL (w*) :LOCATE łl,B,3:PRINTłl,drive 
580 IF drive=0 THEN !A ELSE !B 

590 4sn=PEEK (PEEK (dph+16ldri ve) +PEEK (dph+l+16idri ve) 1256+15) 

600 r=8: IF fsn=&41 THEN a$='systea‘ ELSE IF fsn=ŁCl THEN a*=’da 
ta ■ ELSE a*=’iba ":r=7 
610 LOCATE #l,58,3:PRINTłl,a* 

620 CLS: LOCATE l,l:PRINT’nuaer ścieżki: ’;:nc=2:ai=0:aa=39:60SU 
B B60: track=VAL ( w* ) : LOCATE II , 19, 3: PRINTI1 , track 
630 CLS: LOCATE 1,1:PRINT CHR» (22) ; CHR* ( 1 ) ; "nuier sektora (’;CHR 
I (8) ; f sn ; CHRI (8 ) : ; CHRS (8 ) ; f sn+r ; CHR$ (8) ; " > : " ; CHR* (22) ; CHRf ( 
OO ; : nc =3 : *i =F sn : «a=ł sn+r : 60SUB B60:sector=VAL(w*):L0CATE *1,31, 
3:PRINTf 1 , sector; " * 

640 CLS: RETURN 

650 CALL &908E: 'inicjowanie kodu aaszynowego 

660 dph=PEEK (&BE40) -ł-PEEK (ŁBE4 1 ) *256+10: d* =, 0123456789ABCDEF" 

670 KEY DEF 14,0,245:KEY DEF 5,0,246 
680 KEY DEF 15,0,247:KEY DEF 20,0,237 
690 KEY DEF 12,0,238:KEY DEF 13,0,244 
700 KEY DEF 2,1,241,249,249 
710 KEY DEF 0,1, 240, 24B, 248 
720 KEY DEF 8,1,242,250,250 
730 KEY DEF 1,1,243,251,251 
740 POKE Ł908B, 0: POKE Ł908C,fc80 

750 NINDON II, 1,80,22,25:NIND0N I2,2,80,5,25:NIND0N *3,2,6,5,20 
: WINDOM #4,9,56,5, 20: WINDOW *5,59,75,5,20 
760 RETURN 

770 s*=INKEY*:IF (s*<CHR* (237) OR s*>CHR*(252) ) AND INSTR ( “*+v* 
,UPPER*(sl)Xl AND LEN(v$)>0 THEN s*=’’ 

780 IF v$<>" THEN s*=UPPER*(s») 

790 RETURN 

800 CLS #1 : PEN łl,l:LOCATE *1, 1, lsPRINTłl , “ANSTRAD - EDYTOR SEK 
TOROW NA DYSKIETCE’ 

810 MOVE O, 380: DRAWR 305,0 

820 MOVE O, 72: DRAWR 0,272:DRANR 600,0:DRANR 0,-272:DRANR -600,0 
: MOVER 48, 0: DRAWR 0,272:M0VER 405,0:DRANR 0,-272 
830 RETURN 

840 LOCATE ll,l,3:PRINTłl,’ dysk: ścieżka: sektor: 

strona: foraat: ’:RETURN 

850 nc=2:ai=2:aa=10 
860 w*=’’ 

870 s*=’ “ : WHILE s*=’’ OR LEN(wl)=nc AND s*< >CHR* ( 127) AND s$OC 
HR* (13) OR s*=CHR* (127) AND w$=’’:s*=INKEY$:NEND 
880 IF s*=CHR* ( 13) THEN 920 

890 IF s*-CHR* (127) THEN w*=LEFT* (**$, LEN (w*) -1 ) : PRINT CHR$(8);C 
HR* (16) ; 

900 IF s*< >CHR* ( 127) THEN PRINT s*;:w*=w*+s* 

3 10 50T0 870 

920 IF VAL(w*X«i OR VAL(w*)>aa THEN FOR a=l TO LEN (m*) : PRINT C 
HR*(8) ;CHR*(16> ; :NEXT:PRINT CHR* (7) GOTO 860 • 

930 RETURN 

940 NINDON SNAP 0,1: CLS 

950 ren tnntmununtmmnmtmmmnuumt 

960 REN * , 

970 REM 1 OPIS CZYNNOŚCI EDYCYJNYCH * 

980 REM I , 

990 rem ttnnununtmmnmmmmtmmumn 

1000 LOCATE 31 , 1 : PRINT CHR$(24);’ IOPIS KOMEND! ’;CHR*(24) 

1010 LOCATE 1 , 3: PRINT CHR$(24);’ustawienie ścieżki lub sektora: 

" ; CHR* (24) 

1020 PRINT* <shift> "+CHR* (243) +" ... następny sektor." 


To« ffinrr^<5hifff -+chr. 


Z40T+ ... następna* ścieżka. ’ 

1050 PRINT’ <shift> "+CHR* (241 )+’ ... poprzednia ścieżka.* 

1060 LOCATE 1,9:PRINT CHR*(24) ; ’ koaendy edycji :’;CHR*(24) 

1070 PRINT’ ’+CHR*(243)+* ... następny bajt.’ 

1080 PRINT’ "+CHR* (242) ♦" ... poprzedni bajt.’ 

1090 PRINT’ ’+CHR*(241)+* ... następna linia.’ 

1100 PRINT’ "+CHR* (240) +" ... poprzednia linia.’ 

1110 LOCATE 1,15:PRINT CHRK24);’ koaendy poaocnicze - klawisze 
t iiti k C y j i "|Cnn*(2t/ 

opis.’ 

nOwe paraietry dysku.* 
nuaer strony (O lub 1) sektora.’ 

(0-255 lub 256-511 bajta na stronę).’ 
edycja w kodzie hex lub ascii.’ 
zapisanie sektora na dysku.’ 
wyjście z prograeu.’ 

1190 LOCATE 30,24:PRINT CHR*(24);’ wyjście z opisu - SPACJA ’;C 
HR* ( 24 ) : s*= ” : NH I LE s*<>’ *:s*«INKEYI:NEND 
1200 CLS: NINDON SNAP 0,1: RETURN 
1210 IF ASC ( 5* ) *243 THEN 430 

1220 IF ASC (s*) *242 AND wd*4 THEN t*t X0R 1: IF t=l THEN cc=cc-l 

1230 IF ASC (s*)=242 AND wd=4 THEN 450 

1240 IF ASC (s$) =242 AND wd*5 THEN cc=cc-l:60T0 450 

1250 IF ASC (sl) =240 THEN cr«cr-l:60T0 470 

1260 cr=cr+l:G0T0 470 

1270 TA60FF łwd:wd=wd X0R 1:TA6 łwd:t=0 

1280 IF wd=4 THEN wi«24:off=64:v*=d* ELSE wi*8:off=464:v*=’’ 

1290 60T0 140 

1300 IF ASC(s*)=237 THEN kf=’zapis sektora * ELSE k*=’wyjscie z 


1120 PRINT 
1130 PRINT 1 
1140 PRINT 1 
1150 PRINT 1 
1160 PRINT 1 
1170 PRINT 1 
1180 PRINT 1 


prograau ’ 

1310 LOCATE 1,1: PRINT k*; ’- JESTES PEN I EN (T/N) ?’; CHR* (7) ; : h*=’ 
’ sNHILE INSTR ( ’ITN’ , h*X2:h*=UPPER* ( INKEY*) : WEND: CLS: RETURN 
1320 TAGOFF łwdsPRINT CHR* ( 23 ) ; CHR* ( 0) : HODE 1:CALL iBBOO 
1330 END 

1340 IF PEEK (19000) =ŁDD THEN RETURN 

1350 RESTORE 1430 

1360 checksua=0 

1370 FOR g=Ł9000 TO &90DC 

1380 READ b*: POKE g,VALCŁ’*bf) 

1 390 chec ksua=chec ksua+VAL ( ’8r ’ +b* ) 

1400 NEXT 

1410 IF checksua=30232 THEN RETURN 
1420 PRINT’a/c blad danych’; CHR* (7) 

1430 DATA dd,2a,8b,90,dd,e5,d,7B,e6,7f 
1440 DATA 32, Bd, 90, cd, 62, 90, 79, 32, 8d, 90 
1450 DATA cd, 62, 90, dd,e5, 06, 03, cd, 81, 90 
1460 DATA 06,10,dd,7e,00,32,8d,90,cd,62 
1470 DATA 90,3e,20,cd,5a,bb,dd,23,10,ee 
1480 DATA 06,02,cd,81,90,dd,el,06,10,dd 
1490 DATA 7e,00,fe,20,d2,45,90,3e,2e,c5 
1500 DATA cd,5d,bb,d,dd,23, 10,ed,3e,0d 
1510 DATA cd,5a,bb,3e,0a,cd,5a,bb,dd,e5 
1520 DATA cl,3e,00>b9,c2,04,90,c9,21,8d 
1530 DATA 90,ed,6f,cd,70,90,ed,6f,cd,70 
1540 DATA 90,c9,e6,0f ,c6,30,fe,3a,fa,7b 
1550 DATA 90,c6,07,c5,cd,5a,bb,d,c9,c5 
1560 DATA 3e,09.cd,5a,bb,d,10,f7,c9,00 
1570 DATA 00,00,dd,21,dd,90,21,db,90,cd 
1580 DATA d4,bc,dd,75,00,dd,74,01,dd,71 
1590 DATA 02,21,dc,90,cd,d4,bc,dd,75,03 
1600 DATA dd,74,04,dd,71,05,c9,21,00,80 
1610 DATA ed,5b,e4,90,3a,e6,90,4f,df,dd 
1620 DATA 90,d2,d5,90,c9,21,00,80,ed,5b 
1630 DATA e4,90,3a,e6,90,4f,df,e0,90,d2 
1640 DATA d5,90,c9,3e,ff ,32,e3,90,c9,84 
1650 DATA 85 
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źne niebezpieczeństwo. Obecnie, goy informacje o „dżumie 
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Koniec „dżumy 


komputerowej’’ grożącej sparaliżowaniem ekonomiki USA wy- 
pierają ze szpalt gazet wiadomości poświęcone największym wy- 
darzeniom politycznym, kłopoty Jerszowa stają się już pow- 
szechne. 

Istota sprawy tkwi w tym, że naprawdę straszny „wirus" pora- 
ził nie tylko amerykańskie, ale i radzieckie komputery. Udo- 
wodniono tym samym istotną prawdę: 

— dzisiejszy świat stał się nierozłączną całością. 

Ubiegłego lata w Pierwiesławiu Źalesskim, starym rosyjskim 
mieście; w Którym znajduje się jeden z najmłodszych instytutów 
akademickich — Instytut Systemów Programowych — odbywa- 
ło się tradycyjne już spotkanie uczniów radzieckich i zagrani- 
cznych, zarażonych „bakcylem" komputerowym. Na letni obóz 
komputerowy zjechały dzieci z USA, RFN, Włoch, Bułgarii i 
CSR5. I, prawdopodobnie zupełnie przypadkowo ktoś z gości 
przywiózł na swojej dyskietce „wirusa”, który został wprowa- 
dzony do komputera instytutowego. 

Kiedy odnaleziono infekcję komputerową, wydawało się 
prawdopodobne, że wiele programów zostało zniszczonych i 
zagłada grozi również pozostałym programom. A przecież 
koszt oprogramowania wielokrotnie przewyższa koszt najdroż- 
szego urządzenia — jakakolwiek maszyna licząca bez programu, 
to tylko skupisko elektronicznych i mechanicznych urządzeń. 

• Dyrektor Instytutu Systemów Programowych AN ZSRR, dok- 
tor nauk fizyczno-matematycznycn, profesor A Ajłamazjan 
opowiedział mi o pracy, która umożliwiła nie tylko uniesz- 
kodliwienie „wirusa” komputerowego oraz „oczyszczenie" z 
niego komputerów instytutu, ale również i odtworzenie 
wszystkich zniszczonych przez niego programów. Jej idea po- 
lega na tym, że do „wirusa” komputerowego badacze, na czele 
których stał kierownik laboratorium systemów programowych 
dla równoległych architektur S. Abramów, podeszli tak do zwy- 
kłego , wirusa białkowego. Krok po kroku, jakby pod mikrosko- 

R em, prześledzili „przestępczą” działalność „wirusa", sprawdzi- 
hipotezy o jego budowie, architekturze jego DNA (kwas de- 
zoksyrybonukleinowy), o możliwym mechanizmie działania 
„wirusa”, a następnie stworzyli antidotum tj. swego rodzaju 
program antywirusowy. 

Oczywiście jeszcze za wcześnie mówić o tym, że wynalezio- 
no uniwersalny środek walki z „dżumą komputerową", w ob- 
szarze fantastyki pozostają też marzenia o programach — 
szczepionkach „antywirusowych" dla komputerów. Ale pier- 
wsze kroki zostały uczynione. Udało się nie tylko pokonać jed- 
neso konkretnego „wirusa”, ale również wytyczyć kierunki 
walki z którymkolwiek z nich. 

'Herostrat — zył w IV w p.n.e.; chcąc zdobyć sławę, podpalił słynną 
świątynię Artemidy Efeskiej; skazano go na śmierć, a imię jego na zapo- 
mnienie; stał się synonimem człowieka zdobywającego rozgłos przez 
zbrodnię. 


Uczeni radzieccy szukają środka przeciwko niezwykłej cho- 
robie elektronicznej. 

W początkach działalności dziennikarskiej miałem szczęście 
przeprowadzić wywiad z samym Norbertem Winerem — „Oj- 
cem cybernetyki, jak go wtedy nazywano. 

„Człowiek nadaje maszynom cybernetycznym zdolność two- 
rzenia i tym samym stwarza sobie potężnego sojusznika — mó- 
wił on — ale właśnie tutaj czai się niebezpieczeństwo, które 
może powstać już w najbliższej przyszłości” 

Winera niepokoiła nasza niezdolność do przekazywania 
swoich życzeń maszynie w sposób dokładny i wyrazisty. Nie 
przychodziło mu do głowy, że stworzone z wielkim trudem pro- 
gramy, charakteryzujące się przejrzystością, dokładnością i jed- 
noznacznością, staną się przedmiotem świadomego niszczenia 
— „terroryzmu” komputerowego. Wątpliwym )est, czy już 
wtedy uświadamiał on sobie, że już w najbliższych dziesięciole- 
ciach ludzkość uzależni się od komputera. 

Pierwsze niepokojące informacje łączono z tajemniczą epi- 
demią, która „poraziła" komputery osobiste, należące do setek 
tysięcy Amerykanów. Udało się wykryć, że „wirus" został przy- 
wieziony z pakistańskiego miasta Lachore, a dokładnie z niedu- 
żego sklepu z programami komputerowymi, którego właścicie- 
lami byli dwaj bracia Alwi — 2b-letni Amdżad Faruk i 19-letni 
Basit Faruk. Sprzedawali oni dyskietki z zapisanymi na nich „fig- 
larnymi” programami po niezwykle niskich cenach. Naturalnie 
turyści ulegali pokusie i kupowali je tysiącami, darowując je 
przyjaciołom i znajomym, nie wiedzieli , że tym samym r ozpow- 
szecnniaja „wirusa” stwarzającego w pamięci maszyny coś na 
kształt elektronicznego konfetti. Podczas dochodzenia przyznali 
się, że chcieli „ukarać” Amerykanów. W późniejszym okresie, 
już we wrześniu br., 40-letni Amerykanin Donald j. Burleson, 
były programista jednej z firm. specjalnie „zaraził” komputery, 
żeby zemścić się za jakąś niesprawiedliwość, której w jego 
mniemaniu firma dopuściła się w stosunku do jego osoby. Wy- 
darzenia potoczyły się lawinowo. Jeden za drugim uszkadzały 
się komputery, nawet te wykonujące najpoważniejsze operacje. 
Nawet w Ministerstwie Wojny U5A komputery zatrzymywały się 
lub zmniejszały szybkość operacji, ponieważ ich pamięci wy- 
pełnione były bezsensownymi „programami-przybyszami*. I 
tutaj też stosunkowo szybko znaleziono winowajcę, który o ma- 
ło co nie stał się przyczyną ogólnonarodowej klęski. 

Programy — produkt absolutnie szczególnego rodzaju, za- 
wierają w sobie wielką potęgę intelektualną. Razem z rozwo- 
jem techniki komputerowej w tyle pozostały zagadnienia etyki. 
Zjawisko to stało się problemem natury międzynarodowej. 

Swego czasu akademik A. Jerszow, obecny prezes Rady Nau- 
kowej „Cybernetyka" Akademii Nauk ZSRR, jeden z najwięk- 
szych w swiecie teoretyków programowania, opowiadał, jak 
wysokie mogą być koszty jednego tylko błędu w programie 
komputerowym. 

Pewien programista w Wołżańskiej Fabryce Samochodów 
ulegający wszelkiego rodzaju zmartwieniom z powodu niedo- 
ceniania jego pracy, bawił się uświadamiając sobie swoją władzę 
nad tokiem procesu produkcyjnego — jak mówił. Znając dob- 
rze program kierujący główną taśmą produkcyjną, doszedł do 
wniosku, że wystarczy zmienić stan tylko jednego ogniwa w 
pamięci komputera, a program zacznie zachowywać się czasa- 
mi normalnie, to znów całkowicie bezsensownie. W pewnym 
momencie stał się niewolnikiem swojej idei — nie dawała mu 
ona spokoju. Myśl o takiej możliwości nie odstępowała go. 
Pewnego razu nieszczęśliwiec wykonał naprawdę szalony za- 
mysł. Załamał się cały system podawania detali na taśmę. Próbo- 
wano znaleźć błąd w programie, lecz znajdowano jedynie nie- 
przewidywane odchylenia. Gdy ostatecznie udowodniono wi- 
nę programiście, przyznał się on do przestępstwa. 

— I co zrobiono z współczesnym Herostratem 1 ? — zapyta- 
łem. 

— Sądzono. Był to u nas pierwszy tego rodzaju proces. Oka- 
zało się, że brak w tej sprawie dowodów rzeczowych popełnio- 
nego przestępstwa, nie było uszkodzenia sprzętu, niczego nie 
ukradziono. Występek poasądnego można było zakwalifikować 
również iako chuligaństwo w produkcji. Ale sprawa nie leży w 
problemie prawhym, a w tym, że programy muszą posiadać 
niezawodne zabezpieczenie, znacznie większe niż np. mosty 
czy obrabiarki. Nie zdajemy sobie sprawy z tego, że uszkodzo- 
na konstrukcja np. mostu, będąca skutkiem inżynierskiej po- 
myłki w obliczeniach, jest nieporównywalnie bardziej kosz- 
towna od ceny (zresztą stosunkowo niewysokiej) dokładnego 
sprawdzenia programu. Zdarzenie to miało miejsce przed kil- 
koma laty. 

O współczesnej „dżumie" elektronicznej — epidemii, po- 
dobnie jak zaraza wirusowa rażącej pamięć komputerową. 


Na podstawie artykułu K. Lewitina Koniec „dżumy”? opublikowanego 
w 317 numerze „Prawdy” z 12.11.1988 r. 


Opracowali: 

- W. JACUPOW 
A. KUROCZKIN 


INFORMATYCZNY SŁOWNIK 
ANGIELSKO-POLSKI 


I 


INTERACTION — wzajemne oddziaływani*, interakcja, 
INTERACTION RANGĘ - obszar wzajemnego oddziaływania, 

I NTERACTI VE - interakcyjny, dialogowy (np. o syste- 
mie, któremu użytkownik wydaje polecenia w trakcie 
działania programu) , 

INTERACTIVE DEBUGGER - program umożliwiający popra- 
wianie innych programów poprzez dialog z komputerem, 

I NTERACTI VE ENVI RONMENT - system konwersacyjny, 
INTERACTIVE GRAP HI C — ekranopis przystosowany do 
dialogu z komputerem, 

I NTERACTI VE GRAPHICS - grafika interakcyjna <1. or- 
ganizacja pracy systemu graficznego w którym użytko- 
wnik obserwuje i modyfikuje na bieżąco obraz na ek- 
ranie monitora, 2. dziedzina programowania związana 
z opracowywaniem systemów grafiki interakcyjnej), 
INTERACTIVE LANGUAGE — język konwersacyjny, język 
bezpośredniego dostępu, 

I NTERACTI VEL Y SELECT - wybór w trybie konwersacyjnym, 
I NTERACTI VE MODĘ — tryb konwersacyjny, tryb interak- 
cyjny, 

INTERACTIYE OPERATION - praca konwersacy jna, praca 
interakcyjna, 

INTERACTIYE PROCESSING - przetwarzanie konwersacyjne, 
I NTERACTI VE SYSTEM — system konwersacyjny, 

INTERACTIVE UTILITY - konwersacy jny program narzą— 

INTERBLOCK GAP - przerwa mi edzybl okowa (na nośniku 
informacji), przerwa blokowa, 

INTERCHANGE - 1. wymiana (wzajemna), 2. wymieniać, 
przestawiać, 

I NTERCHANGEABLE — zamienny, wymienny, 

I NTERCHANGEABLY - na przemian, 

INTERCHANGE POINT — punkt wymiany, 

INTERCOMPUTER COMMUNI C ATI ON - komunikacja (łączność) 
międzykomputerowa, 

INTERCONNECT - łączyć wzajemnie, 

INTERCONNECTION - wzajemne połączenie, połączenie 
sprzęgające (sieci), 

I NTERCONVERSI ON - przetwarzanie reprezentac ji danych, 
INTERDEPENDENCE - współzależność, wzajemna zależność, 
INTERFACE — 1. interfejs, łącze, sprzęg, złącze 
standardowe, 2. sprzęgać, 

INTERFACE BOARD - tablica złącza (sprzęgu), tablica 
połączeń interfejsu, 

INTERFACE CIRCUIT - układ sprzęgający, 

INTERFACE COMPUTER — komputer interfejsowy, 

INTERFACE DEVICE - urządzenie złącza (sprzęgu), 
urządzenie interfejsu (urządzenie zapewniające połą- 
czenie mikrokomputera z urządzeniami zewnętrznymi, 
siecią komputerową lub innymi mi krokomputerami ) , 

I NTERF ACE-MESSAGE COMPUTER - komputer komunikacyjny, 
INTERFACE MESSAGE PROCESSOR - procesor komunikacyjny 
(służy do przełączania pakietów, marszrut komunika- 
cyjnych, podłączania terminali, utrzymywania łączno- 
ści z satelitami, szyfrowania informacji, itp.), 
INTERFACE MODULE - moduł złącza (sprzęgu), moduł in- 
terfejsu, 

INTERFACE PROCESSOR - procesor wejścia/wyjścia, pro- 
cesor sprzęgający, 

INTERFACE SPECIFICATION - opis złącza (sprzęgu), 
opis interfejsu, 

INTERFACING - sprzęganie, łączenie, 

INTERFERE - wpływać, kolidować, 

INTERFERENCE - zakłócenie, interf erencja, 

INTERFERENCE REJECTION - eliminacja zakłóceń, 
INTERFERENCE SUPPRESSION - patrz: INTERFERENCE RE- 
JECTION, 

INTERFERENCE SUPPRESSOR - eliminator zakłóceń, 
INTERFERENCE TRANSMITTER - nadajnik zagłuszający, 
INTERFERE WITH ... - kolidować z ..., 

INTERFERING FREOUENCY - częstotliwość zakłócająca, 
INTERIOR - wnętrze, 

INTERLACE - mi ędzyl i ni owość , 

INTERLACED SCANNING - wybieranie eiędzyl i ni owe. 


I NTERLE AVE - przekładać (warstwami), poprzekładać, 
przeplatać, 

INTERLEAVED MEMORY — pamięć o dostępie przeplatanym, 
INTERLINE FLICKER - migotanie międzyliniowe, 
INTERLISP - odmiana języka Lisp opracowana w firmie 
X*rox PARC, 

IMTERLOCK - blokada, uzależnienie, urządzenie ryglu- 
jąc* (programowe lub sprzętowe środki synchronizacji 
procesów, zapewniające nieprzerwaną pracę w syste- 
mach, sieciach, itp.), 

I NTERLOCKI NG - blokowanie, uzależnianie, ryglowanie, 
I N 1 ERMEDI ATE — pośredni (np. produkt pośredni, pół- 
produkt ) , 

I NT ERMEDI ATE DATA CARRIER - nośnik danych pośredni, 

I NT ERMEDI ATE LANGUAGE — Język pośredni (język na 
który tłumaczony jest program w trakcie pierwszego 
przebiegu translatora i z którego następuje dalsza 
translacja) , 

I NT ERME DI AT E STORAGE - pamięć pośrednia, 

INTERMITTEMT - nieciągły, przerywany, nietrwały, 
przejściowy, 

INTERMITTEMT ERROR - błąd przejściowy, błąd sporady- 
czny, 

INTERMODULAR REFERENCE - odniesienie międzymodułowe, 
odwołanie międzymodułowe (np. wykorzystywanie w mo- 
dule nazw zmiennych deklarowanych w innych modułach) 

INTERNAL - wewnętrzny, 

INTERN AL ABEND — awaryjne zakończenie (np. przetwa- 
rzania) spowodowane przyczynami wewnętrznymi, 
INTERNAL CHECK — kontrola wewnętrzna, 

INTERNAL COMMAND — polecenie rezydentne, 

INTERNAL FILE - plik (zbiór) wewnętrzny, 

INTERNAL IMTERRUPT - przerwanie wewnętrzne, 

INTERNAL MEMORY - pamięć wewnętrzna, pamięć operacy- 
jna, 

INTERNAL NAME - nazwa wewnętrzna (np. nazwa dostępna 
tylko w module, w którym Jest deklarowana), 

INTERNAL PERFORMANCE — szybkość działania procesora 
(mierzona w liczbie wykonywanych operacji na sekun- 
dę) , 

INTERNAL REFERENCE - odwołanie wewnętrzne, odniesie- 
nie wewnętrzne, 

INTERNAL REPRESENTATION - przedstawienie wewnętrzne, 
przedstawienie maszynowe (przedstawienie danych w 
pamięci komputera, zapewniające łatwość ochrony 
i przetwarzania), 

INTERNAL SC HE MA — schemat wewnętrzny, projekt wew- 
nętrzny, 

INTERNAL SORT — sortowanie wewnętrzne, 

INTERNAL SPECIFICATION — opis wykonania (opis wewnę- 
trznej struktury programu i sposobu jego działania), 
INYERSLY PROPORTIONAL — odwrotnie proporcjonalny, 
INYERTED FILE - plik (zbiór) o odwróconym porządku, 
INVERTED OUTPUT — wyjście zanegowane, 

INYIGILATOR - sygnał i zator , 

INVISIBLE — niewidzialny, niewidoczny, ni.edostrzega- 
1 hy, 

INVOCATION - wywołanie (np. podprogramu, procedury), 

I NVOKE — wy woł y wać , 

IN WORDS - słownie, 

IN WRITING - na piśmie, 

I'0 - patrz: INPUT-OUTPUT, 

1^0 BOUND TASK — zadanie, którego czas wykonania og- 
ranicza szybkość działania urządzeń wejścia/wyjścia, 
I^O CONYERSI ON - przetwarzanie danych przy wprowa- 
dzaniu (z postaci tekstowej na wewnętrzną maszynową) 
i wyprowadzaniu z komputera (z postaci wewnętrznej 
na tekstową) , 

IOCS - patrz: INPUT^OUTPUT CONTROL SYSTEM, 

I'0 LIMITED PROGRAM — program, którego czas działa- 
nia ogranicza szybkość działania urządzeń wejścia/ 
wyjścia, 

I/D LIST - lista wejścia/wyjścia, 

1^0 PORT - port wejścia/wyjścia, 

IOS - patrz: INPUT^OUTPUT SYSTEM, 

I'0 WITH HANDSHAKING — przesyłanie z potwierdzeniem 
i cyklicznym testowaniem stanu urządzenia, 

IP - patrz: 1. IMAGE POSITIONING, 2. INSTRUCTION 
POINTER, 

IPL - patrz: INI TI AL PROGRAM LOADER, 

IRRATIONAL - niewymierny, 

IRREGULAR — ni eregul arny , nieprawidłowy, 

I RRE VERSI BLE PROCESS - proces ni eodwracal ny , 

IRS - patrz: INFORMATION RETRIEVAL SYSTEM, 

IS-A — "jest elementem" (zależność pomiędzy konkret- 
nym obiektem a pojęciem, którego jest on elementem), 
ISAM - patrz: INDEXED SEQUENTI AL ACCESS METHOD, 
ISARITHMIC CONTROL — sterowanie i zorytmi czne, 

ISN - patrz: INTERNAL SYSTEM NUMBER, 

ISO - patrz: INTERNATIONAL ST ANDARDS ORGANI SATI ON, 
ISOBITS - bity równowartości owe, 

ISO CODĘ - kod ISO (europejski odpowiednik amerykań- 
skiego kodu ASCII), 

ISOLATE - wyodrębniać, oddzielać, 

ISOLATED WORD - słowo wybrane, słowo wyodrębnione, 
ISOLATI ON - 1. wyodrębnienie, oddzielenie, izolowa- 
nie, 2. odłączenie (obwodu). 
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.inej ISO, 

ISR - patrz: 1. INTERRUPT SERVICE ROUTINE, 2. IN 
SER VI CE REGISTER, 

ISSUE - 1. wyjście, ujście, wydobywanie się, 2. wy- 
nik, rezultat, wydanie (publikacji), 

IT - patrz: INFORMATION TECHNOLOGY, 

ITEM - 1. pozycja (w spisie), 2- element danych, 

ITEM NUMBER - numer pozycji, 

ITEM SI2E - 1. rozmiar pozycji, 2. wielkość danych 
(w bitach, bajtach czy znakach), 

ITEM VALUE - wartość (wielkość) elementu danych, 
ITERATE - powtarzać, wykonywać iteracje, 

ITERATION - iteracja, powtarzanie, 

ITERATION STATEMENT - instrukcja cykliczna, instruk- 
cja iteracyjna, 

ITERATI VE - powtarzający się, 

ITERATI VE ALGORITHM - algorytm iteracyjny, 

ITERATI VE PROCESS - proces iteracyjny, proces powta- 
rzający się, 

INTERN AL STORĘ - patrz : INTERN AL MEMORY, 

INTERNAL SYSTEM NUMBER - identyfikator obiektu, 
INTERNAL TIMER - wbudowany regulator czasowy, 
INTERNATIONAL BUSINESS MACHINES CORPORATION - amery- 
kańska korporacja, największy na świecie producent 
sprzętu komputerowego, 

INTERNATIONAL COMPUTATION CENTRE - Międzynarodowy 
□środek Obliczeniowy, 

INTERNATIONAL COMPUTERS LTD. - największy w Wielkiej 
Brytanii producent sprzętu komputerowego, 
INTERNATIONAL FEDERATI ON FOR INFORMATION PROCESSING 
Międzynarodowa Federacja Przetwarzani a Informacji, 
INTERNATIONAL ST ANDARDS ORGANI SATI ON - Międzynarodo- 
wa Organizacja Normalizacji, 

INTERNATIONAL TELEGRAPHI C ALPHABET NO 2 - międzyna- 
rodowy kod telegraficzny nr 2, kod dalekopisowy 
CCITT nr 2 (przesyłany znak jest reprezentowany 
przez 3 bitdw) , 

INTERNET PROTOCOL - protokół wewnątrzsi eci owy , 
INTERNETTING - współdziałanie mi ędzysi eci owe, mię- 
dzysieciowe oddziaływanie wzajemne, 

INTERNETWORKING - współdziałanie mi ędzysi eci owe (ko- 
munikacja i wzajemne oddziaływanie pomiędzy węzłami 
różnych sieci komputerowych), 

INTERPOLATION - interpolacja, 

INTERPOLATOR - kolator, mieszacz, 

INTERPRET - tłumaczyć, i nterpr etować , objaśniać, 

I NTERPRET ATI ON - tłumaczenie, i nterpretac ja, 
INTERPRETER - program i nterpretu jący , interpreter, 
interpretator , 

I NTERPRETI VE EXECUTION - interpretac ja, realizacja 
(wykonywanie) w trybie i nterpretac j i , 

INTERPREtlVE LANGUAGE - język i nterpretacy jny , 

I NTERPRETI VE MODĘ - tryb interpretacyjny, 

I NTERPRETI VE PROGRAM - patrz: INTERPRETER, 
INTERPROCESS COMMUNICATION - współdziałanie procesów, 
INTERPROCESSOR INTERFERENCE - i nterf erenc Ja między- 
procesorowa, 

INTERRECORD GAP - przerwa między zapisami (rekorda- 
mi ) , 

I NTERREL ATI ON - współzależność, wzajemna zależność, 
wzajemne powiązanie, 

INTERROGATE - zapytywać, zadawać pytania (np. maszy- 

I NTERROGATE FEATURE - możność kierowania zapytań do 
maszyny cyfrowej, 

I NTERROGATI ON - zapytywanie, zgłoszenie, odzew, 

I NTERROGATI ON PROGRAM - program zapytywania, 

INTERRUPT - przerwanie czynności maszyny, 

INTERRUPT ACKNOWLEDGE - potwierdzenie przyjęcia 
przerwani a, 

INTERRUPT ADDRESS VECTOR - lektor adresów przerwań, 
INTERRUPT CHANNEL - kanał przerwań, 

I NTERRUPT-DRI VEN 1X0 - układ wejść i a/wyjścia stero- 
wany przerwani ami , 

INTERRUPT ENABLE - 1. zezwolenie na przerwanie, 

2. znacznik włączający lub wyłączający system przer- 
wań, 

INTERRUPT ENABLE FLIP-FLOP - przerzutnik zezwalają- 
cy na przerwania, 

INTERRUPT EVENT - zdarzenie powodujące przerwanie, 
INTERRUPT FEATURE - możliwość przerywania (np. rea- 
lizacji programu), 

INTERRUPT HANDLER - program obsługi przerwania, 

I NTERRUPTI ON - przerwa, przerwanie (np. programu) , 
INTERRUPT MASK - maska przerwania, 

INTERRUPT -MASK REGISTER - rejestr maskowania przer- 
wań, 

INTERRUPT PRIORITY - priorytet przerwania, 

INTERRUPT REGISTER - rejestr przerwań, 

INTERRUPT RE QUESTX ACKNOWLEDGE CYCLE - cykl przyjęcia 
przerwani a, 

INTERRUPT SER VI CE ROUTINE CISR) - podprogram obsługi 
przerwań, 

INTERRUPT SOFTWARE - 1. oprogramowanie obsługi prze- 
rwania, 2. oprogramowanie działające po wywołaniu 
przerwani a, 
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INTERRUPT STATE - patrz: INTERRUPT STATUS, 

INTERRUPT STATUS - stan przerwania, 

INTERRUPT SYSTEM - system przerwań, 

INTERRUPT TRAP - 1. przerwanie, 2. obsługa przerwa- 
nia, 

INTERRUPT VECTOR - wektor przerwania (jedna lub kil- 
ka komórek pamięci, zawierająca adres programu ob- 
sługi przerwania i ewentualnie słowo stanu proceso- 
ra, ustawiane przy wykonywaniu tego programu), 
INTERRUPT VECTOR REGISTER - rejestr wektora adresów 
przerwań, 

INTERSECTION - 1. część wspólna (zbiorów), 2. koniu- 
nkcja, iloczyn logiczny, 

INTERSECTION OF EVENTS - iloczyn zdarzeń, 

INTERSEGMENT LINK - połączenie międzysegmentowe, 
INTERSEGMENT REFERENCE - odwołanie (odniesienie) 
mi ędz y segmen t owe , 

INTERSPACE - odstęp, szczelina, 

INTERSYSTEM CROSS-TALK - przesłuch między zespołami, 
INTERTASK COMMUNICATION - współdziałanie między za- 
daniami, wzajemne oddziaływanie zadań, 

I NTERVAL - przedział czasu, odstęp, interwał, 
INTERVAL OF CONVERGENCE - przedział zbieżności, 

I NTRA- APPLI CATI ON COMMUNICATIONS AREA - obszar komu- 
nikacji wewnątrzzastosowaniowej (mi ędzyprogramowej ) , 

INTRICATE - skompl i kqwany, 

INTRINSIC - 1. wewnętrzny, wbudowany, 2. przeznaczo- 
ny, 

INTRINSIC CALL - wywołanie wbudowanej procedury, wy- 
wołanie procedury rezydentnej, 

INTRINSIC COMMAND - rozkaz rezydentny, 

INTRINSIC FUNCTION - funkcja wewnętrzna (nie wymaga 
definiowania) , 

INTRINSIC MULTIPROCESSOR - wi el oprocesbr wewnętrzny, 
INTRODUCE - wprowadzać, 

INTRODUCE INTO SERVICE - wprowadzić do eksploatacji, 
INTRUDER - użytkownik lub program, usiłujący bez ze- 
zwolenia dostać się do zbiorów danych, 

. IN TURN - kolejno, po kolei, w kolejności, 

IN USABLE ORDER - w stanie nadającym się do pracy, 

IN USE - 1. będący w użyciu, wykorzystywany, 2. za- 
jętość, 

INVALID - błędny, nieważny, 

INVALID CHARACTER - znak błędny, znak niepoprawny, 
INYARIABLE - niezmienny, 

INYARIANT - niezmiennik, inwariant, 

INVARI ANT SYSTEM - układ niezmienny, układ zerozmie- 
nny, 

I NYENTORI ES - zapasy (magazynowe), 

INVENTORY TAPE - taśma stanów, 

INVERSE - 1. odwrotny, 2. odwrotność, 

INYERSE IMAGE - przeć i wobraz , 

INVERSE MATRIX - macierz odwrotna, 

INVERSE VIDEO - obraz odwrócony <dot. grafiki), 
INVERSION - inwersja, odwrócenie. 
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JABBEK MONITOR - monitor nadmierne i długości pakietu, 
JACK - gniazdko. 

JAGGING - 1. nierówność. schodkowatv kształt (cze- 
goś). 2. w orafice rastrowej - zniekształcenie linii 
z powodu dużeqo rozmiaru elementów rastra, 

JCL - patrz: JOB CONTROL LANGUAGE, 

J-K FLIP-FLOP - przerzutnik J-K, 

JMP - patrz: JUMP, 

JND - patrz: JUST -NOTICEABLE DI FFERENCE, 

JOB - 1. zadanie (sekwencja programów) , 2. praca 
(zarobkowa), robota, 

JOB ACCOUNTING - rozliczanie zadania. 

JOB BATCH - pakiet zadań, 

JOB-BLENDING - łączenie w jednej osobie kilku funk- 
cji (np. analityka i programisty), 

JOB CONTROL - sterowanie zadaniami (rozdz i el em e za- 
sobów komputerowych pomiędzy zadania, ich załadowa- 
nie i uruchomienie, zabezpieczenie danych itp.), 
JOB-CONTROL CARD - karta sterująca pracy, 

JOB CONTROL LANGUAGE - język zarządzania zadaniami, 
język sterowania pracami . 

JOB-CONTROL STATEMENT - dyrektywa. 

JOB DECK - pakiet zadań (na kartach dziurkowanych), 
JOB DEFINITION - opis zadania, zdefiniowanie zadania, 
JOB DESCRIPTION - patrz: JOB DEFINITION, 

JOB DESCRIPTION FILE - zbiór opisu zadania, 

JOB-DI VI DING - dzielenie zadania do wykonania na 
części, 

JOB FILE - plik (zbiór) zadania (plik, zawierający 
opis przygotowanego do wykonania zadania). 



Co to jest 
„Gorąca linia” 


Minęło 25 lat od chwili, gdy między 
Moskwą a Waszyngtonem rozpoczęła 
pracę tzw. gorąca linia (hot linę), 
czyli linia bezpośredniej łączności 
między obu stolicami supermocarstw. 
Nastąpiło to w wyniku porozumienia 
podpisanego przez Nikitę Chru- 
szczowa i Johna Kennedy'ego, a bez- 
pośrednią przyczyną jej powstania 
były wydarzenia z jesieni 1962 roku. 
Wówczas, w trakcie kryzysu karaib- 
skiego świat zbliżył się bardzo nie- 
bezpiecznie do nowego konfliktu 
zbrojnego. 

Do tego nie doszło, lecz zdawano 
sobie sprawę, że takie zagrożenie ist- 
nieje^ nawet poprzez niedoskonały 
system wzajemnej informacji doty- 
czącej posunięć strategicznych obu 
stron. Rakieta balistyczna lecąca z 
jednej stolicy do drugiej potrzebowa- 
ła wtedy 30 minut na przebycie tej 
drogi. Telefonistka natomiast aż 
godzinę, aby uzyskać połączenie 
Moskwa — Waszyngton lub odwrot- 
nie. 

W powszechnej opinii gorąca linia 
kojarzy się z czerwonymi telefonami 
umieszczonymi w gabinetach prezy- 
denta USA i przywódcy radzieckiego.. 



Nic podobnego. Od początku istnie- 
nia tej linii łączność realizowana była 
za pomocą dwóch kanałów telekso- 
wych, którymi przekazywano zaszyf- 
rowane depesze. 

Praktycznie tak to wygląda do dziś. 
chociaż technika przekazywania ko- 
munikatów została unowocześniona i 
jest mocno skomplikowana. Począt- 
kowo przesyłano depesze za pośred- 
nictwem specjalnego kabla leżącego 
na dnie oceanu. Potem to łącze zdub- 
lowano systemem łączności radiowej 
na falach krótkich. Stacja przekaźni- 
kowa ulokowana została w Tangerze 
w Algierii. W 1977 roku, gdy nadeszła 
era łączności satelitarnej, gorącą linię 
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„Papilarny 

kluczyk” 

Ochrona danych dotyczących fir- 
| my i prowadzonych przez nią intere- 
I sów przed konkurencją, to problem 
wielu biznesmenów posługujących 
: się komputerem. Takie informacje 
przechowywane są dziś coraz częściej 
w pamięci tego urządzenia. Aby tę in- 
formację uzyskać trzeba znać okreś- 
lone hasło lub kod. Jak uczy praktyka, 
mogą one zostać rozszyfrowane lub 
wykradzione. 

W celu uchronienia się przed taką 
ewentualnością część firm elektroni- 
cznych specjalizuje się w produkcji 
zabezpieczeń nazywanych biometry- 
cznymi urządzeniami ochronnymi. Są 
to skomputeryzowane analizatory 
niepowtarzalnych cech fizycznycn 
człowieka, na przykład głosu czy linii 
papilarnych. Te urządzenia chronią 
przed dostępem do nich osób nie- 
powołanych. 

Niedawno firma łdentix specjalizu- 
jąca się w produkcji takich zabezpie- 
czeń wypuściła urządzenie przezna- 
czone dla komputerów osobistych. 
Dołączone przez złącze RS232C poz- 
wala „nauczyć” koryiputer rozpo- 
znawania właściciela po odciskach 
palców. Rozpoznawanie linii papilar- 
nych trwa pierwszy raz kilkanaście 
sekund, później nie przekracza na- 
wet dwóch sekund. Gdy ktoś nie 
upoważniony chce skorzystać z kom- 
putera, ten nie tylko nie daje się uru- 
chomić, ale też może włączyć system 
alarmowy. 

(Raj) 
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PIOTRUŚ PAN 


1 REM 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 

7 REM 

8 REM 

9 REM 
10 REM 
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Krzysztof Późnisz 

PIOTRUŚ RRN 
ara dla & osoby 


TR I X RU I 

srali* 


ERSE 0 OUER 0 BRIGKT 0 FLRSH 

0 90RDER 0: CL 5 
120 0IH (U) LET Kl)*7: LET Z 

(2) »6 LET 1(3) *2 : LET Z (4) >0 
130 REST ORE 9000 DIM a (8,2): F 
Oft 1*1 TO 8 RERD 4(1,1) ,*(1,2) : 
NEXT Z 

140 O IM p (8 , 4 ) : FOR Z-l TO 8: R 
ERD P (t,l) : F OR y»l TO p (Z,l) : R 
ERC* p U ,y+l) NEXT y : NEXT Z 

150 DIM n*(4,5): FOR K*1 TO 4: 

RERD n % (Z ) . NEXT Z 
160 DIM w (8) 

200 GO SUB 3000: BEEP .1,20 

300 GO 5 UB 1400 

1000OSBB Głowna pętla projrazy 

1005 GO SUB 2000 

1010 PRUSE 0 LET X $*INF EYS : IF 

x S = " TMEN GO TD 1010 
1015 BEEP .05,20 

102 0 IF x *»“••• TMEN GO SUB 1500: 
GO TO 1010 

1030 IF x**T" THEN GO SUB 1600: 
GO TO 1010 

1040 IF x * = “i " THEN GO SUB 3000 
GO TO 1005 

1050 IF x THEN GO SUB 1300 

PRUSE 1 GO TO 101O 
1060 IF x $*"Z " THEN GO SUB 4000 

GO TO 1005 

1090 6EEP .1,30: PRINT «0 ; ” ROZK 

f.2 NIĆZROZUMIRLT <i>-inf": PRUS 

r 100 LET XS=INK£V». INPUT 
If= :* = ••»•' THEN GO SUB 3030 GO T 

O 1005 

1100 GOTO 1010 
1300KH1 No, * a 9*"4 
1340 PRINT 
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Ce lew 9ry jest ułożenie pionow 
tcyfr) w/g z góry założonej Ko- 
lejności. Drogi ruchu pionow za- 
znaczone sa uniasi. Ruch polega 
na przesuwaniu wybranego piona 
(FLRSH) na wolne pole. 

OOSTEPNE ROZKRZY : 

<w > - wybór piona 
<r> - ruch piona 
<» > - inforeacja 
<z> - zolory planszy 
<n> - nowa gra 


Tur ao, " zaczynasz od now 


1320 PRUSE 0 LET x**INKEY8. ZHP 
IJT IF INKEY* = ' t THEN FOR Z* 

1 TO 6 BEEP . 05 , 10+5 *1 NEXT Z 
GO SUB 1400 GO SUB 2000 
““ PN 

J Losowe ustaw. pior.ow 
DOHIZE 256*PEEK 23672 -PC 

EK 23673 

1X20 LET xg="0l234567" FOR 1*1 
TO 10 LET ą aINT <7*RNOl*2 LET 
S = xf>2 TO x)*(|(l)ł«|(k»l tO ); 

NEXT Z 

1430 FOR K=1 TO 6 LET w(Ki*URL 
■ U' IF x t ( Z ) *"0" THEN LET p =Z 
1440 NE.VT Z LET r =2 RETURN 

Przesuniecie wszazniza 
1510 PRINT RT a <p (p , f> , 1) .a (P «P , 
r I . 2 ) , w (p (p . r > ) 

1520 LET r = r ♦ 1 IF p <p , 1) <r-l TH 

EN L ET r»2 

l530Bj£Bi wyświetlenie wszazniia 
1540 PRINT RT a (p (p , M , 1) , a ip <P , 
r),2). FLR5H l,w(p (p,r>) 

1550 RETUR N 

liOOE-Oi przesuniecie piona 
1610 LET W IP 1 *w (P (p , r) ) . LET w ip 

1620 PRINT RT a ip (p , f I , 1 » , a <P <P , 

n ,a» ; " “ 

1630 PRINT RT a(p,l) . 3 (P ,2* , FN P 

| (W (pl t 

1640 lET p=p(p,r» LET r*a GO S 

■JB 1 530 RETURN 

..'O 00 BU Rysowanie planszy 

2010 PRPER i (4). INK Z (2) : BORDE 
P Z (4) CL5 PRINT TRB 5: ZNUER 

-3 1 PIOTRUŚ PRN” 

^315 PE STORĘ 9100 


INUERSE 0. 


INUERSE 1;" 
; INUERSE 1 

2034 PRINT RT INUEPSE 1 

2040 NEXT Z 

2050 INK Z (3) . FOR !»1 TC 4. RER 
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Ce lew gry jest ułożenie pionow 
(cyfr) w/g z góry założonej ko- 
lejności . Drogi ruchu pionow za- 
znaczone sa liniaei. Ruch polega 


Dokończenie na stronie 31 


Co to jest 
„Gorąca linia” 

Dokończenie ze strony 31 

poprowadzono przez kosmos. Od 
czterech lat istnieje też zaszyfrowana 
łączność teleksowa, dzięki której mo- 
żna przekazywać dokumenty, mapy i 
inne informacje graficzne. 

Na Kremlu obecnie komputerowa 
końcówka (hot linę) składa się z 
czterech terminali. Dwa z nich — w ję- 
zyku rosyjskim i angielskim — obsłu- 
giwane są drogą satelitarną, trzeci 
podłączony jest do kabla oceani- 
cznego. Czwarty służy do kontak- 
towania się obsługi technicznej. By 
utrzymać stałą sprawność systemu go- 
rącej łączności, co godzinę Moskwa i 
Waszyngton nawiązują łączność. W 
obu ośrodkach całodobowe dyżury 
pełnią najwyższej klasy fachowcy — 
inżynierowie i tłumacze. W godzi- 
nach nieparzystych komunikaty kon- 
trolne nadaje strona radziecka, w go- 
dzinach parzystych — amerykańska. 
Są to teksty nie zawierające elemen- 
tów propagandowych, a najczęściej 
zawierają fragmenty literatury pię- 
knej lub opisy przyrody. Taki tekst 
kontrolny musi — w myśl wspólnego 
porozumienia — być neutralny i za- 
wierać wszystkie litery alfabetu łaciń- 
skiego. 

W ciągu ćwierć wieku istnienia go- 
rącej linii nie było wypadku, aby łą- 
czność się urwała. Współcześnie, nie 
likwidując starych łączy, a dodając 
wciąż nowocześniejsze, osiągnięto 
wielokrotne zdublowanie systemu łą- 
czności, które w praktyce uniemożli- 
wia przerwanie kontaktu między 
Moskwą i Waszyngtonem. 

Gorąca linia została uzupełniona 
specjalnymi ośrodkami zmniejszają- 
cymi ryzyko wybuchu konfliktu nu- 
klearnego. Takie porozumienie obie 
strony zawarły w ubiegłym roku. Oś- 
rodki te, wyposażone w supernowo- 
czesne urządzenia do przekazywa- 
nia tekstów i obrazów, służą do wy- 
miany niezbędnych informacji dla 
realizacji układu o likwidacji rakiet 
jądrowych średniego i krótszego za- 
sięgu, dwóch układów o ogranicze- 
niu podziemnych wybuchów jądro- 
wych, układu o zapobieganiu incy- 
dentom na morzu oraz porozumienia 
o środkach zmniejszania ryzyka wy- 
buchu wojny jądrowej. 

(M) 
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Adres redakcji: 00-950 Warszawa ul. Grzybowska 77, taiefon centrali 20-12-51 w. 456. Tale* 313554. Rfkopl- 
ch redakcja nie zwraca i zastrzega sobie prawo do skrótów. Nakładem: Wydawnictwa „Czasopisma 
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CeBIT 1989 


8 marca 1989 roku 3067 sprze- 
dawców przedstawiło swoją ofer- 
tę na światowej wystawie „Kom- 
putery i Komunikacja” w Hano- 
werze. Prezentowano bardzo sze- 
roki asortyment od dyskietek po 
duże systemy komputerowe, od 
kabli po centrale telefoniczne. W 
sumie było tak wiele do ogląda- 
nia, że gdyby ktoś chciał spędzić 
na każdym stoisku tylko 100 se- 
kund, tof-powinien przebywać na 
wystawie po 11 godzin przez 
wszystkie 8 dni tego spektaklu. 
Próbę tę (nie wiadomo czy skute- 
cznie) podjęło ponad pół miliona 
zwiedzających. 

W tym roku wystawę tę zdomi- 
nowały: sieci (komputerowe 

oczywiście), otwarte systemy i 
przetwarzanie obrazów. Oczy- 
wiście miało to swoje implikacje 
na prezentowane wytwory pro- 
fesjonalnej technologii informa- 
tycznej oraz gusty użytkowników. 

SIECI 

Wśród nowych dokonań w sfe- 
rze technologii informacyjnej — 
łączenie komputerów z urządze- 
niami komunikacyjnymi okazało 
się najbardziej znaczące. Było to 
widoczne na wielu stoiskach i 
podczas wielu imprez towarzy- 
szących. Warto w tym miejscu 
choćby tylko wymienić zaintere- 
sowanych tą problematyką. Oto 


oni: ALCATEL, DIGITAL, ERCS- 
SON, IBM, NIXDORF, NOVELL, 
PHILIPS i SIMENS. 

Ranga przypisywana łączności 
ma bezpośredni związek z ro- 
kiem 1992 — „wielką unifikacją 
Europy Zachodniej”. 

PRZETWARZANIE OBRAZÓW 

Kopiarki, laserowe drukarki, 
optyczne skanery, oprogramo- 
wanie graficzne i systemy typu 
desktop publishing ukazywały 
wyraźny postęp we wszystkim, co 
jest związane z przetwarzaniem 
obrazów. 

Przez lata owa dziedzina — wy- 
korzystywania komputerów do 
przetwarzania obrazów widoczna 
była tylko w profesjonalnych za- 
stosowaniach, takich jak medycy- 
na, biura projektów. Nigdzie wię- 
cej. Natomiast nowa generacja 
tego typu sprzętu i oprogramo- 
wania pracuje z powodzeniem na 
każdym obrazie (także na zna- 
kach) i może być z powodzeniem 
stosowana nawet w domu. Wio- 
dące w tej dziedzinie firmy, to: 
APPLE, CANON, RICOH i XEROX. 

Zatem przyszłość informatyki 
leży (stoi?) w sieciach i przetwa- 
rzaniu obrazów. 

Opracowano na podstawie: 
CeBIT 1989 Preview, NEWSWEEK 
(marzec 13/89) 
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CZŁOWIEK A KOMPUTER. CZY TYLKO BASN? 


Wszyscy dzisiaj jesteśmy zachwyceni komputerami, 
zachłystujemy się ich możliwościami, tym wszystkim, co 
przy ich wykorzystaniu możemy dokonać. Mówimy: oto 
zostały rozszerzone granice ludzkich możliwości, doko- 
nujemy nowych odkryć i pogłębiamy ludzką wiedzę. 
Wszystko to jest prawdą, ale opuśćmy na chwilę ten 
zgiełk peanów na rzecz komputera i stojąc z boku 
spójrzmy chłodnym okiem na ten niewątpliwy fenomen 
społeczny — komputeryzację. Nie jestem wrogiem 
komputerów, ale... zdejmijmy ten produkt człowieka z 
piedestału. 

Przyjmijmy tezę: komputer, to wróg człowieka, nie jest 
jego przyjacielem. Każdy człowiek obsługujący kompu- 
ter wchodzi w określone związki z przedmiotem swojej 
pracy, wytwarza się swoisty układ pomiędzy tymi dwoma 
składnikami sytuacji. Zależność ta niesie ze sobą okreś- 
lone, niestety negatywne konsekwencje. Zainteresujmy 
się ludźmi zawodowo trudniącymi się informatyką w 
szerokim tego słowa ujęciu. Zauważymy, iż stworzyli oni 
odrębny klan posługujący się swoim własnym językiem, 
określonymi rodzajami skrótów myślowych, odczytywal- 
nymi tylko przez wtajemniczonych. Powie ktoś: prze- 
cież to nic dziwnego, bowiem każda grupa zawodowa 
tworzy swój własny język oraz hierarchię wartości. Zga- 
dzam się, ale przecież nie w każdej grupie młodych lu- 
dzi hierarchię stanowi pojemność pamięci wytworu 
ludzkich rąk. 

Proponuję teraz mały spacer drogą zarysowaną w 
książkach S. Lema. Człowiek posługujący się kompute- 
rem i równocześnie obsługiwany przez ten komputer 
poczyna zatracać swoją ludzką istotę, tj. umiejętność 
posługiwania się swoimi szarymi komórkami. Wybierz- 
my jedno zdarzenie: poddano egzaminowi trzech stu- 
dentów, zadając im do rozwiązania prosty problem ma- 
tematyczny. Dwóch z nich nie podało żadnej odpowie- 
dzi, bowiem komputer znajdujący się w pokoju wyłą- 
czono. Trzeci zaś skierował się w stronę komputera 
umieszczonego na korytarzu, a przez zapomnienie 
egzaminującego, nie wyłączonego z sieci. Zabawne zda- 
rzenie, nieprawdaż? Ale, gdy przestaniemy się uśmie- 
chać, zwróćmy uwagę na fakt, iż żaden ze studentów nie 
wykorzystał swojego umysłu. Któż zaręczy, że sytuacja ta 
nie stanie się kiedyś powszechną? 

Przenieśmy się teraz do Krzemowej Doliny w Kalifor- 
nii, miejsca najbardziej „skomputeryzowanego” na kuli 
ziemskiej. Powinno ono stanowić miejsce powszechnej 
szczęśliwości, a jednak... Permanentnie wzrasta tam pro- 
cent samobójstw, psychoz i rozwodów. Okazuje się bo- 
wiem, że ów klan informatyczny zaczyna w sferze psy- 
chiki wykazywać cechy obsługiwanych przez siebie ma- 
szyn. Ludzie ci nabrali nawyków pracy komputerowej w 
formułowaniu swoich myśli i — co jest znacznie bardziej 
niebezpieczne — zaczęli językiem komputera przema- 
wiać do członków swoich rodzin. Przyznajmy, że nie jest 
to najlepszy sposób porozumiewania się ludzi najbliż- 
szych sobie uczuciowo. Czyż może nas teraz dziwić, że 
„skomputeryzowani" mieszkańcy Krzemowej Doliny 
oceniają postępowanie innych ludzi według skali 0 lub 1. 
Każde takie uzależnienie może stanowić realną groźbę 
braku interakcji między ludźmi lub silnego jej zuboże- 
nia. Nikt z nas przecież nie lubi, aby jego zachowanie 
oceniane było tylko z pozycji celowości i logiczności po- 
czynań. I jeszcze jedno. „Skomputeryzowanie” sposobu 
myślenia i sposobu porozumiewania się może negatyw- 
nie wpłynąć na podświadomość człowieka, powodując 
zanik marzeń i fantazji. A czymże bez tego jesteśmy? 

Każdy z nas słyszał chyba o terminie „potwór z Id”, 
stworzonym przez psychologię, a określającym strukturę 
funkcjonującą w podświadomości człowieka i niszczącą 


jego osobowość poprzez jej rozszczepienie. Któż nam 
może zaręczyć, iż wpływ komputera, przejęcie jego 
schematów myślowych nie przyczyni się do wytworzenia 
nowego jakościowo „potwora z Id"? Czy w przyszłości 
nie może dojść do rozpadu osobowości człowieka skut- 
kiem zarażenia się swoistym odpowiednikiem dzisiej- 
szego „wirusa komputerowego"? Czy taka możliwość 
naprawdę nie może zaistnieć? Jeszcze tak niedawno nikt 
z nas nie słyszał terminu „wirus komputerowy", a dzisiaj 
mówimy o nim wszyscy. 

W dzisiejszym świecie człowiek odbiera mnogość in- 
formacji poprzez odpowiedni dla siebie „kanał” oraz do 
określonego progu ich przyswajalności. W sytuacji na- 
tłoku informacji osiągających wartość ponadprogową 
powstaje swoisty „korek", a człowiek przestaje funkcjo- 
nować. Logika rozumowania wskazuje, że przypadek ta- 
ki może mieć miejsce w sytuacji człowieka obsługujące- 
go skomputeryzowany system rozpoznania operacyjne- 
go i czuwającego nad odpaleniem rakiet z głowicami 
jądrowymi. Cóż wówczas stać się może? 

Ogarnięci jesteśmy fascynacją światem komputerów. 
Dlaczegóż więc czujemy się w ich obecności niezbyt 
pewnie? Czyżby instynkt sygnalizował nam jakieś nie- 
bezpieczeństwo? Jeśli nie, to skąd wywodzi się dążenie 
do nadawania komputerom kształtów najbardziej mi- 
łych dla człowieka, w myśl hasła: komputer przyjacielem 
człowieka? 

Przyjrzyjmy się teraz wpływowi komputerów na psy- 
chikę dzieci. Japończycy prowadzący badania swych po- 
ciech zaobserwowali, że u dzieci bawiących się z kom- 
puterem przez wiele godzin pojawiają się dziwne obja- 
wy. Dziecko ma kłopoty z charakterystycznymi dla swe- 
go wieku zabawami, wykazuje trudności w kontaktach z 
rówieśnikami, następują zaburzenia snu. Najspokojniej- 
sze są w obecności swego komputera, pracując z nim. 
Czy nie obserwujemy tu związku z zachowaniem się lu- 
dzi z Krzemowej Doliny? Nie wspomnę tu już o szkodli- 
wym wpływie migotliwego, o nienaturalnych barwach 
ekranu monitora na wzrok programistów, czy też upo- 
śledzenia ich słuchu przez dźwięki komputera odbiega- 
jące od normalnych. 

Kończąc swoją opowieść chcę poruszyć jeszcze jeden 
aspekt fenomenu, o którym mówimy — aspekt moralny. 
Gry wojenne, tak modne wśród młodzieży, stanowią 
olbrzymie zagrożenie, bowiem wpajają jej nawyki zabi- 
jania w trakcie zabawy. „Nalot na Moskwę" wskazuje 
konkretny cel: ludzi z obozu socjalistycznego, nazywa- 
nego nie tak dawno przez b. prezydenta Reagana mia- 
nem „imperium zła”. Ten szkodliwy rodzaj indoktrynacji 
młodzieży powoduje odczłowieczenie wroga; nie jest 
on przecież wówczas człowiekiem, jest tylko celem. 
Doprawdy, argument, iż jest to tylko zabawa, nie trafia 
mi do przekonania. Amerykanie w czasie wojny wiet- 
namskiej stosowali tę samą metodę. Nie mówili: czło- 
wiek, Wietnamczyk, tylko pogardliwie „żółtek", nie za- 
bijali ludzi, tylko odpersonifikowanych „żółtków". 

A teraz coś z pogranicza czarnej baśni, która stała się 
jawą. Otóż na Zachodzie coraz częściej pojawiają się 
programy, które na domowych komputerach pozwalają 
oglądać obrazy pornograficzne. Ich jakość przewyższa 
klasę odtwarzania w systemie wideo. A komputer trafił 
tam już na podwórka. Czy jeszcze niedawno ktoś z nas 
to przewidział? 

Powiecie, to demagogia. Być może, ale baśń dzisiaj 
przeze mnie opowiedziana, jest nią już tylko częściowo. 
Jutro — może stać się przerażającą rzeczywistością. 

Powtarzam: nie jestem przeciwnikiem komputerów, 
ale... opracował: 

Maciej WASZKOWSKI 
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komputerze. Osoby noszące okulary 
a a „ogniskowe, powinny rrneć specjalne 
okulary do pracy Ekran winien być oddalo- 
ny 40—60 cm od oczu 

Przestrzeganie podanych podstawowych 
reguł powoduje, ze praca przy komputerze 
jest wydajniejsza i zwraca poniesione dla 
wygody i zdrowia koszty. 

Objaśnienia do zdjęć (z cennikiem): 

Zaprezentowane przedmioty mają przy- 
nieść zdecydowaną ulgę ciału przy obsłu- 
dze komputera. 

1 Ten filtr nałożony na ekran komputera 
eliminuje migotanie Cena tylko 69.95 doi. 

2. Nośnik na dokumenty (6,95 doi.). Wy- 
godny w obsłudze — nie trzeba kręcić szyją 
i „biegać oczami”, 

3. Dwupoziomowe biurko na obsługiwany 
sprzęt jest bardzo ergonomiczne Cena. ba- 
gatelka 599 doi 

4. Kąt pochylenia klawiatury — sprzętu 
stojącego na właściwym poziomie — powi- 
nien być przystosowany do natury nad- 
garstków 5 Tu korpus i nogi czują się jak 
trzeba Za jedyne 1200 doi. można sobie 
sprawić komfortowy i zdrowy anatomicznie 
fotel marki Girsberger (jeden z tańszych 
modeli) 

6. Gdy głowa pracuje, stopy muszą mieć 
wygodę 

Komputerowy podnóżek kosztuje 105 doi. 

(Na podst. US News and World (Report) 
opr. J. R. 


UCIĄŻLIWOŚCI 
PRZY OBSŁUDZE 
KOMPUTERA 


Miliony Amerykanów spędzają przy kom- 
puterach osobistych całe dnie; w pracy i w 
domu. Lekarze w tym kraju zainteresowali 
się. jak ten spędzony przy komputerowym 
ekranie czas wpływa na ich zdrowie. 

Niepokoi zwłaszcza sprawa — to wcale 
nie księżycowy problem — czy praca przy 
monitorach zwiększa ryzyko poronienia u 
ciężarnych kobiet Kwestia ta stanęła na 
porządku dnia w grudniu ubiegłego roku. 
gdy magazyn „USA Today ’ poinformował o 
badaniach dotyczących bardzo wysokiego 
wskaźnika poronień wśród kobiet obsługu- 
jących komputery Sugerują one między in- 
nymi. że winę za ten stan rzeczy ponosi 
promieniowanie emitowane przez displaye 
oraz napięty zazwyczaj harmonogram pra- 
cy, nie dający pracownikowi zbyt wiele cza- 
su na odpoczynek 

Narodowy Instytut do Spraw Bezpieczeń- 
stwa i Higieny Pracy prowadzi nawet bada- 
nia na ten temat, porównując wskaźnik po- 
ronień wśród 2 tys. operatorek telefoni- 
cznych pracujących na displayach z analo- 
gicznym wskaźnikiem 2 tys. innych, które 
nie mają z komputerami do czynienia. 

Inne badania ujawniły, ze użytkownicy 
terminali cierpią na różnego rodzaju bóle i 
zmęczenie oczu Powoduje to jaskrawe 
światło emitowane przez monitor, ale także 
nieodpowiednie krzesło i pulpit. 

Ergonomiści twierdzą, że od fizycznych 
reakcji organizmu na kontakt z displayami 
uzależnione jest samopoczucie i jakość wy- 
konywanej pracy. I tak klawiatura, której kąt 
nachylenia nie jest dostosowany do nad- 
garstków może wywołać tak zwany syndrom 
przewodu nadgarstkowego, czyli schorzenie 
wywołane zapaleniem ścięgien nadgarst- 
kowych Konsekwencją jest podrażnienie 
nerwów. W idealnych warunkach pracy 
stawy kończyn powinny znajdować się w 
pobliżu środków przestrzeni, w jakiej się 
mogą poruszać, aby ograniczyć tym sposo- 
bem ruchy do minimum. Krzesła czy fotele 
powinny być tak dopasowane, by stopy 
mocno opierały się o podłogę, a łydki pozo- 
stawały niemal w pionie Kręgosłup także 
powinien mieć pełne oparcie. 

Klawiatura powinna być umieszczona tak, 
aby ramiona były pionowe, zaś przedramio- 
na — poziome Linia wzroku w stosunku do 
ekranu powinna przebiegać pod kątem 
10—20 stopni poniżej linii horyzontalnej 
terminalu Większy kąt. to możliwość dręt- 
wienia szyi i barku 


Oczy męczą się wówczas, gdy wędrują z 
ekranu na kartkę papieru. Można to wyeli- 
minować Najprostszym sposobem jest 
ustawienie pulpitu w ten sposób, że papier 
jest na tej samej wysokości co ekran. Dob- 
rze jest też zmniejszyć oświetlenie wnętrza o 
połowę w stosunku do oświetlenia wyma- 
ganego przy innych pracach biurowych. 
Zbyt jasne światło powoduje bowiem migo- 
tanie ekranu displaya i zmusza oczy do sta- 
łego przystosowywania się do jego stosun- 
kowo matowej powierzchni. Służą temu 
specjalne filtry przeciwmigotliwe, które zało- 
żone na ekran rozpraszają zbędne odblaski 
światła Dobrze jest tak ustawić ekran, by 
nie padało na niego światło dzienne 

Czasami praca przy monitorach może 
wywołać zaburzenia w ostrości widzenia 
Podczas kontroli lekarskiej, lekarz musi 
wiedzieć, ile czasu pacjent spędza przy 


Osoby pracujące w domu mają łatwiejsze 
zadanie, gdyż same dobierają sobie właś- 
ciwe meble. Pracujący w biurach, pozba- 
wieni tej możliwości, wadliwie zaprojekto- 
wane wyposażenie mogą usprawnić przy- 
kładowo, podnóżkiem. Dobrze jest też robić 
kilkuminutowe przerwy podczas pracy 
Gdzieniegdzie wprowadza się nawet gi- 
mnastykę 


Jajo 

Zasada gry jest prosta. Trzeba naprowadzić znaczek 
przypominający jajko na wszystkie drzewa wyświetlone na 
ekranie, niszcząc je, przy czym każde zniszczenie drzewa 
wyczerpuje energię naszego jajka. Odnawiamy ją zbiera- 
jąc cyfry pojawiające się na ekranie. 

Świąteczny program JAJKO WELKANOCNE adresowa- 
ny jest do wszystkich użytkowników komputerów, posiada- 
jących jakikolwiek kompilator języka PASCAL. Mimo że 
napisany jest on w języku TURBO PASCAL na komputerze 
IBM PC. to jednak starałem się unikać wszystkich efek- 
townych, ale mogących sprawić kłopoty sztuczek 

Przystępując do przenoszenia tego programu na własny 
komputer (jeżeli dysponujemy językiem TURBO PASCAL) 
musimy ustalić, jakie znaki ASCII będą naśladowały grafi- 
kę. Zacznijmy od jajka. Wybieramy wśród znaków ASCII 
jakiś najbardziej przypominający jajko i jego numer pod- 
stawiamy pod zmienną „głowa". Następnie wyszukujemy 
znak przypominający drzewo i jego numer podstawiamy 
pod stałą „drzewo", po czym numer znaku zawierającego 
zaciemniony prostokąt pod stałą „rama" Następnie pod 
zmienne „ekranx" i „ekrany" podstawiamy liczbę wierszy i 
kolumn na ekranie. Jeżeli liczby te będą różne od 86X24 

Progran Jajka .Wielkanocne; 


iuwi crtj) (U wersji TURBO PASCAL 'a 4.0 i 5.0 usunąć nawiasy koaantarza) 


const rasa *177; 

(fkieer ASCII znaku ranki |) 

głowa *2; 

(Nuner ASCII znaku wybranego na głowę waza) 

ekrm*=80| 

(Ilosc znaków w wierszu) 

ekrany*24; 

(llosc ilnii na ekranie) 

drzewek; 

(Nuner znaku dla drzewa) 

góra « r ; 

(Klawsz poruszający jajko w gore) 

doi *c ; 

(Klawsz poruszający jajko w doi ) 

lewo » k'; 

(Klawsz poruszający jajko w lewo) 

prawo * 1 i 
var 

(klawsz poruszający jajko w prawo) 

ias:array(1..2,l 

.ekran*) of byte; (Tabela położenia drzew w lesie) 

jed zenie: arrayCl 

.3) of byte; (Położenie i wartość znaku energii) 

poziaatbyte; 

(Pozioa gracza) 

wykarczawibyt*; 

(Ilosc drzew wykarczowanych) 

noc: integer; 

(Aktualna posiadana noc) 

*,yibyte; 

(Położenie jajka na ekranie) 


Functlon readkeyichar; 

(Fteikcja odczytuje znak naciśniętej klawisza odpowiednik w TURBO PASCAL v4.0> 
(Przy urucnaeianiu tego prograau w wersji 4.0 lub 3.0 TIFBO PASCAL a procedurę 
należy usunąć i 
var aichar; 
begin 

repeat read(kbd.a); until aO"; 
readkey :*a; 
and; 

Procedurę rankaiopcjaibooleani ; 

(Procedura rysuje raake wokol ekranu, opcja ustala czy raaka aa byc rysowana 
czy tez czyszczona (opcja=false)) 
var i.jibyte; 
begin 

gotoxy(l,l>; 

for i:«ł to ekranx do (Linia goma ) 
begin 

if opcja tben writelchrlraea)) else writeC ); 
end; 

Tor j:«l to ekrany-1 do (Linie boczne) 
begin 

goto*y<l, j);if opcja then writeichriraaa) ) else writel I; 
90toiy(ekranx,j)|i4_ opcja then writelchriranal) else writel >; 
end; 

gotowy (1, ekrany); (Linia dolna) 

for ii«l to ekran* do 

begin 

if opcja then writelchr(raaa)) elsa writel ); 
end; 
and; 


będziemy musieli przeredagować procedury OPIS i 
CZOŁÓWKA. Reszta już powinna zadziałać prawidłowo. 

Jeśli zaś program chcielibyśmy uruchomić pod innym 
kompilatorem języka PASCAL może zaistnieć potrzeba 
dopisania na początku programu procedur: 
go to xy(x,y: integer) — ustawiającej kursor na ekranie w 
pozycji x.y; 
funkcji: 

random (x: integer) — podającej liczbę losową z zakresu 
O.X 

readkey — czytającą naciśnięty klawisz bez konieczności 
naciśnięcia ENTER po wprowadzeniu znaku: 
round (x: real) — zaokrąglającą liczbę rzeczywistą do cał- 
kowitej. 

oraz ustalenia typu okrojonego byle = 1 . 256; 
może również sprawić kłopot linia: 
if (a = góra) or (a = doi) or (a = lewo)... 
wtedy można ją zamienić na 
it (a = chr (góra))... lub if (a = ’r) or (a = 'c')... 

Tak więc tym razem nie daję gotowej zabawki do wkle- 
pania, ale proponuję trochę pracy przed zabawą. Na pew- 
no sprawi to znacznie więcej przyjemności. 

Po prawidłowym przeniesieniu programu proponuję już 
na własną rękę urozmaicić program np. przez wprowadze- 
nie grafiki, czy też licznika czasu itp. Konstrukcja programu 
jest podatna na wszelkie przeróbki. Autor pozostawia sobie 
jedynie prawo do nieusuwania swojego nazwiska. 

Życzę miłej zabawy zarówno intelektualnej. |ak i manuał- 
ne l CEZARY DOBROWOLSKI 

Procedur* opis; 

(Ukazuje na ekranie opis prograau) 

*ar aichar; ^ 

begin 

drscrj 

goto*y(l,3); 

writelnC JAJKO WIELKANOC* wybrało tie na wycieczkę do lasu. )| 

«riteln( Upadło taa w zasadzka, kiełki plac otoczony zabójczym ogrodzenie*. ); 

writalnC Uratuje eie jeśli zetnie wszystkie drzewa. Na eciecie drzewa potrze- '); 

writelnt buje energii która pojawia sie na ekranie w postaci cyfr równych *){ 

writelni’ wartości energii. >1 

writelnC Jeżeli zasób energii spadnie poniżej zera jajko ginie. '); 

writelnt ' Niekiedy zdarza sie ze energia zastaje uwiesić zona na drzewie i wtedy); 

writelnC jajko susi posiadać energie wystarczająca na eciecie drzewa i dopiero ); 

writelnC wtedy eozna syslec o odnowie energii. ); 

writelnC Po ekranie poruszaey sie uzywajac klawiszyi '); 

writelnC k - ruch w lewo ; '); 

writelni 1 - ruch w prawo; ’)| 

writelnt r - flich w gore ; •); 

writelnt c - ruch w doi ; •); 

writeln; 

writelni ZYCZE H1LEJ ZABANY '); 

rankaitrue) | 

repeat a; -readkey; until aO"; 
md; 

Procedurę tworz_lps; 

| (Wyznacza pozycje poszczególnych drzew i pokazuje je na ekranie) 
var ubyte; 

! begin 

far i:*l to ekran* do 
; begin 

repeat 

lasC 1 , i ) : =randoe lekran*- J) +2; 1 as(2, i J : *randon (ekrany-3) >2; 
until tlaŚL 1,1102) md (lasI2,i)<>2); 
gotowy (łasił, i), lasC2, i)) ;write(chr (drzewo) ) ; 

end; 


Procedurę Czolowka; 

(Pokazuje czolowke na ekranie) 
var aichar; 

i,jibyte; (Ze. paucmcze do obsługi pętli) 

tab:array(l..lll of string(BO); (Tablica przechowyjaca napis czolowki) 
poa:stringC801; (Za poeocnicza do zasiany » na |) 

begin 

clrscr; rankaitrue); twarz.las; 

tab£2):= • • • • »»’§*#••*## m • t hm'; 

tab[31i= * łtt s e*'ft**aaetea*t» •; 
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t*6(4}:»* * # » ** » •• ł ł i ł ł ł ii • »»•*• '; 

tab(5J:= ****** » • * ***** *********** | 

Ublili* • • • ***** ***** ********* **••• *****'• 

tab(7]:= ***** *** ***** ***** ’| 

Ub»]i>' » • * *•'*••; 

tab(9):? **• «•• **'J 

tabtlO):** • ***** * • •*''• * 'j 
Ub(ll):* ********* * ***'; 
tor i:*l to 10 do 
Degin 

tabti)i»"; pow:«tab(i*l]| 

tor ji« 1 to length(tab(i*l)) do (ZMienia znak * na |) 
begin 

ił pow(j> *' then tat>(i]:=tab[i]*chr(raaa> 
bIm tabU): s tab(i)*' | 
end; 
end; ' 

tor ii«l to 5 do (Drukują tekst nagłówka) 
begin 

qotoxy(6,3*i); writelnltabtil); 

•od; 

tor i:=6 to 10 do 
begin 

, 90to*y (20,5*1 > ; writeln(tabti)) ; 

■nd; 

gotoxyt round! fekranx-25) 12) , round <ekrany/2) *5) ; 
tri tein t autor: CEZARY DOBROWOLSKI ' ) ; 
gotoxy(5,ekrany-2);write( Wybierz poz i os gry (1,2,3,4,51 ')| 
repeat a:»readkey; until a tn tV, '2', ’3‘, - 4', ‘S l ]| 
case a ot (Wybór poziom gry) 

Ti pozios:*200; 

2' : pozioe:*150; 

3' i pozio*:=100; 

'4' i pozioei=50; 

'5' i pozioo: s 10; 
end; 

•nd; 

Procedurę wygrał; 
begm 

gotowy (round (iekr»x-ll)/2), round (ekrany/2) -2); 

writelnt W V 6RLES ); 

go toxv l round ( (ekranx-l 1 ) 12) , round (ekrany/2) ) ; 

■ri tein (JAJKO IRATOWAłC '); 
raaka(łalee); 
and; 

Procedur* przegrał; 
begin 

gotoxy (round I (ekranx-l 1 ) 12) , round lekrany/2) -2) ; 
writeln! PRZE6RALE S'); 
gotoxy (round ( lekranx-U)/2) , round (ekrany/2) i ; 
writelnl JAJKO ZGlbELO ); 
gotoxy(x,y)| writeC ’)| raeka(true); 


Procedur* czy_jedzenie; 

(Procedura sprawdza czy pobrano jedzenie a jeśli tak to uitduia nowa porcje) 
begin 

ił <x=jedz*ni*[l)) and ly*jedz*ni*(2]) then 
begin 

eoc:*eoc*jedzeme(3); 
jedzeń iel 11 : =rando* (ekranx-3> *2; 
jedzenie(21 s *randoe(ekrany-J) *2; 
ii«l: 
repeat 

ił las(l,i)»x then 
begin 

ił las(2.i)*y then 
begin 

las(l,i):=0; las(2,iJ:=0; 

aoc:=eoc-randoa<20>; 

wykarczow:*wykarczow*l; 

exit; (Wyjście w chwili wykarczowania drzewa) 
end; 

end; • 
ls*i*l} 

until (i>=ekranx); (Jajko nie znajduje sie na poz. wyst. drzewa) 
end; 

Procedurę Inicjuj; 

(Procedura ustala wartości początkowe zaiennvch ogólnodostępnych) 
begir. 

wykarczow:=0; «oc:*20; x:*2; yt*2; 
jedzenieCl 1 : =randae(ekranx-3) *2; 
jedzeń ie(2 1: =randoa (ekrany-3) *2; 


jedzenie[3):*randaa(10) ; 
end; 

Procedura, jajko; 

(Właściwa procedura gry) 

var old_x,old_y:byte; (Za. paaietajace poprzednia poz jajka) 

ołd_a,a:cnar; (Za. poeocn. paaietajace znak naciśniętego klawisz) 
koniec :boolean; (Za. warunkująca koniec gry po dotknięciu barierki) 
begin 

koniec: -talse; 

gotoxy ( jedzeń leC 1 1 , jedzeń ie(2) ) ; wr i te ( jedzeń ie( 3) ) ; 
gotoxy(x,y); writelchr (głowa) >; ^ 

r*P*at a:*readkey; until a<V; (oczekiwanie na pocz. nacisn. klawisza) 
rapeat 

old_«:*x; old_y:*y; old_a:*a; (opóźnienie zwalniające gre) 
delay(pozioa); 

ił keypressed then ai*re*dkey; 
czy_karczuje; 

czyjedzenie; • y 

goto>y(25,24);writ*( ‘ '); 

gotoxy(10,24);write( Posiadana aocs ,aoci; 
ił (a=gora) or (a>dol) or (a=l*wo) ar (a=prawo) or (a* ') then 
be 9 in (obsługa klawiatury) 

case a oł 

góra : ił y>2 then y:«y-l else koniec:=t n*; 

doi i ił y<ekrany-l then y:«y*l else koniec:=true; 

lewo : ił x>2 then x:*x-l else kaniec:*true; 

prawo: ił x<ekranx-l then xi=x+l else koniec:=true; 

end; 
end 

else a:*oid_a; 
gotoxy(old_x,old_y); 
writeC ); 
gotowy (x,y); 
writelchr(glowa)); 

until (koniec) or (aoc<0) or (wykarczo*>*80) ; 
end: 

BEGIN 

inicjuj; 

czolowka; 

opis; 

clrscnf 

raaka(true); 

tworzjas; 

jajko; 

lł wykarczOiHlO then wygrał else przegrały 
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KOMPUTEROWA ANALIZA 
UKŁADÓW ELEKTRONICZNYCH 

ANALIZA ZMIENNOPRĄDOWA - AC 


Analiza AC umożliwia badanie działania układów elek- 
tronicznych przy pobudzaniu sygnałem sinusoidalnym o 
zadanej częstotliwości f Do analizy wykorzystamy metodę 
wskazową i liczby zespolone. Nie będę wnikał w teorety- 
czne podstawy tej metody, a wszystkich zainteresowanych 
odsyłam do podręczników fizyki opisujących obwody prą- 
du zmiennego i metodę wskazową. 

Zgodnie z prawem Ohma zależność między napięciem 
i natężeniem prądu zmiennego dla rezystora wynosi: 
u = R * i. 


dla kondensatora wynosi: u = * i 

)*<u*C 

dla indukcyjności wynosi: u = j*6>*L*i 
gdzie: u — spadek napięcia na elemencie [V] 

i — prąd przepływający przez element [AJ 

j — liczba zespolona: j = \/^i 

co — pulsacja: oj = 2*tH [rad/s], tt = 3.14 

f — częstot. [Hz] 

R — rezystancja [QJ 
C — pojemność [F] 

L — indukcyjność H] 

• Problem można uogólnić używając impedancji: 

dla rezystora: u = ZR*i, Zr = impedancja rezystora 

dla kondensatora: u = Z c ‘i. Z c = . ' — im- 

)*w*C 

pedancja kondensatora 
dla indukcyjności: u = Z L *i. Zl = j*cu*L — impedancja 

indukcyjności 

Rozważmy prosty układ przedstawiony na rys. la. W 
miejsce elementów podstawmy ich impedancje. Obrazuje 
to rys. Ib. Powstały schemat przypomina sieć rezystorową 
z analizy DC. Tak jak poprzednio interesują nas napięcia w 
węzłach i prądy w źródłach napięciowych. Ponieważ w 
każdym obwodzie działają prawa Kircboffa, więc możemy 
zapisać (analogicznie, jak w analizie DC): 
węzeł 1 : —i* + i, + i 2 = 0 

węzeł 2: — i, + i 3 + i 4 = 0 

węzeł 3 — i 2 — i 3 + i 5 = 0 

źródło E: e — Ui = 0 

gdzie: izRi = ii = (ui — U 2 ) * Yri, Yri = 1 /Zri 

iZR 2 = I5 — U3 * Yr2. Yr2 = 1 / Zr2 

•zci — U = u 2 * Yci, Yci — 1 /Zci 

izc2 = i3 = (U2 — U3) * Y C2i Yc 2 = i/Zc2 

izu = i2 = (Ul — u 3 ) * Yli. Yu = i/Zu 

po podstawieniu prądów otrzymujemy, 
węzeł 1 : — Ie + Yri * Ui — Y r2 * U2 ■+■ Yli • Ui — Y li*U 3 = 0 
węzeł 2 : — Yri * Ui + Yri * U2 + Yci + u 2 — Yc2 . 
— Yc2 * U3 — 0 

węzeł 3: — Yli * Ui ■+■ Yli * U3 — Yc2 * U2 + Yc2 * U3 + Yr 2 * 

* u 3 = 0 

źródło E. e — Ui = 0 



po uporządkowaniu względem napięć i prądów otrzymu- 
jemy: 

węzeł 1: (Yri + Yli) * U, -Yri * U 2 —Yli * U 3 — iE = 0 

u- węzeł 2. —Yri * u, + (Yri + Yci + Ycż) * u 2 Yc 2 * U 3 = 0 

węzeł 3: -Yli * u, -Y C2 * u 2 + (Y u + Y C2 + Y R? ) * u 3 = 0 

źródło E: —u, = — e 

Tablicę admitancyjną przedstawia rys. 2. 
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Z przeprowadzonej analizy wynika kilka istotnych wnio- 
sków: 

1) mechanizm tworzenia macierzy admitancyjnej jest 
taki sam, jak w wypadku analizy DC. 

2) kondensatory i indukcyjności posiadają taki sam 
szablon, jak rezystory, z tą jednak różnicą, że ich im- 
pedancję należy obliczyć względem ustalonej czę- 
stotliwości (rys. 3, 4). 

3) analiza numeryczna polega na rozwiązaniu liniowego 
zespolonego układu równań. 

Jedyną istotną różnicą, w porównaniu z analizą DC, jest 
konieczność operowania na liczbach zespolonych. Musi- 
my nauczyć komputer rozwiązywać liniowy zespolony 
układ równań. Oto przykład takiego równania stopnia dru- 
giego: 

(a, , + j * b n ) * (x, + j * y, ) + (a 12 + j * b 12 ) * (x 2 + j * y 2 ) = 
= c, + j * d, 

(a 21 + j * b 21 ) • (x, + j * y, ) + (a 22 + j * b 22 ) * (x 2 + j * y 2 ) = 
= c 2 + j * d 2 

gdzie: a, , a 22 — część rzeczywista współczynników 

równania 

b n b 22 — część urojona współczynników rów- 

nania 

x, ,x 2 — część rzeczywista niewiadomych 

y, ,y 2 — część urojona niewiadomych 

c, , c 2 — część rzeczywista wyrazów wolnych 

d, . d 2 — część urojona wyrazów wolnych 

po rozpisaniu układu i rozdzieleniu części rzeczywistej i 
urojonej otrzymujemy: 

a n *x, +a 12 *x 2 -b n »y, -b 12 *y 2 + j*(b n *x, +b 12 * 

* x 2 + a,, * * y, + a 12 *y 2 ) = c, + j * d, 
a 2 i * x, + a 22 * x 2 - b 2t * y, - b 22 * y 2 + j * (b 21 * x, + 
+ b 22 • x 2 + a 2 , * y, + a 22 * y 2 ) = c 2 + j * d 2 
Ponieważ części: rzeczywista i urojona muszą spełniać 
równanie tożsamościowo, stąd układ dwóch równań ze- 
spolonych możemy zastąpić układem czterech równań 
rzeczywistych: 

an * xi + ai 2 * x 2 - bu • yi - bi 2 * y 2 = Ci 

a 2 i • xi + a 22 * x 2 — b 2 i * yi — b 22 * y 2 = c 2 

bu * Xi -ł- bi 2 * x 2 -ł- a,i * yi + ai 2 * y 2 = di 

b 2 i * Xi + b 22 * x 2 + a 2 i * yi + a 22 * y 2 = d 2 
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Z takim układem już sobie radzimy! 

Dla układu n-równań zespolonych: 

(aii+j*bii)*(Xi+j*yi)+...+(ain+j*bin)*(x n +j*y„)=Ci-ł-j*di 
(anl+j*b„i)*(Xi-f-j*yi)-ł-...-ł-(a„n+j*b nn )*(X n +j*yn)=Cn+j*dn 
uzyskujemy 2n-Vównań rzeczywistych: 


au * Xi + . 

.. + am * x n - bu * yi - . 

.. - bin 

* yn = Cl 

3nl * Xn "ł" . 

• • "ł” 3nn * Xn bni * yn • 

.. - bnn 

o 

II 

£ 

bu * Xi + . 

.. + bm * x n + au *yi + .. 

.. + am 

’•< 

II 

Q- 

bni * Xi + .. 

. + bnn * x n + a n i * yi + .. 

. + a nn 

* yn = dn 


Pora przypomnieć sobie parę użytecznych wzorów: 
k=a+j*b, k — liczba zespolona 
a — część rzeczywista 
b — część urojona 

|k|=V a*a+b*b — moduł liczby zespolonej k 
<p = agr (k)=arc tg ( |j-) — argument liczby zespolonej k 
Ponieważ rozwiązaniem układu równań są części rze- 
czywista i urojona napięć w węzłach i prądów przepływa- 
jących przez źródła napięciowe, stąd na podstawie powyż- 
szych wzorów otrzymujemy: 

dla napięć: moduł napięcia — napięcie mierzone przez 
woltomierz 

argument napięcia — przesunięcie fazowe na- 
pięcia • 

dla prądów: moduł prądu — prąd mierzony przez ampero- 
mierz 

argument prądu — przesunięcie fazowe prądu 
Układ wprowadza się identycznie, jak dla analizy DC. Po 
uruchomieniu analizy numerycznej (klawisz <w>) należy 
podać częstotliwość, dla której analiza ma zostać prze- 
prowadzona. 

WYJAŚNIENIE: dla tranzystora podajemy stały prąd jaki 
przepływa przez kolektor, czyli l c , obliczony 
podczas analizy DC. 

Krzysztof POŹNIAK 
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£**♦*»***+ 

10 DEF FN z ( p .. k , z ) s (z < p ) OR (z 
>k) OR (Z < > INT Z) 

11 DEF FN U ( k ) = t (S ,€ (X/ l , k ) ) 

13 DEF FN P(k)st(2,kł»ax»-1) 

14 DEF FN li ( r , i ) =SOR <r*r+i*i) 

15 DEF FN a ( r , i ) =180*SGN (i + (i 

=0) ) *RCS ( (SGN (r + (r=0) ) *SQR C ( r 
*r + ( ( r =0) RND ( i =0) ) ) / (r*r+i*i + ( 
(r=0 ) RND ( i =0 ))))),) /Pi 

I 00 | 2 l^|ini cjalizacja układu 
105 PRPER 0: INK 7: BORDER 0: C 

LS 

110 LET Ybe =1/2500: LET Ut=0.02 

5: LET l»axw = 10: LET b=n>axw+l: LE 
T aaxn=2*»axw 
120 GO SUB 7000 

130 GO SUB 7400 

140 GOTO 9000 
1000KIj32|roz k ład Gaussa 
1010 LET n=2*n: FOR K =1 TO n : LE 


T X ( K ) = K : NEXT K: FOR k = l TO n: 

LET m =0 : FOR y=k TO n: FOR X =k T 
On: IF RB5 n(y,x)>m THEN LET m = 

RBS n (y , X ) : LET my=y: LET »x=x 
1020 NEXT X: NEXT J : IF 11=0 THEN 

PRINT '"układ nie ma rozwiązani 
a " : RETURN 

1030 FOR 1 = 1 TO n : LET l=n (K , l) : 
LET n(k,l)«n LET n (my , u 

=«: NEXT L : LET n=b(k): LET b(k) 

= b ( re y ) . LET bdiy)*m: FOR 1=1 TO 
n : LET M =n ( l , k ) : LET n ( L , K ) =n ( l , 
RX) : LET n ( l ,rnx) SR : NEXT l : LET 

m=x(k): LET x(k)=X(»x) : LET X (f»X 

1040 FOR l = k+l TO n: LET W «n C l , k 
)/n(k,fc): FOR j =k +1 TO n: LET n( 
l . j) =n ( l , j) -n (k , j) *m : NEXT j: LE 
T bCU =b(U -b(k)*(l: NEXT l : NEXT 
k: FOR k=n TO 1 STEP -1: LET »■ 
0: FOR l = k + l TO n. LET ■ ««+t(l,X 
CU)łnCk,U: NEXT l: LET t.Cl,Xtk 

)) = (b (k) -m) /n (k a k) : NEXT k: LET 

n = 1 : PRINT "'analiza numeryczna 
zakończona': RETURN 

5000EŁ£3iSt.a le zrodla prądowe 
5001 REM uwagi i biedy _ 

5005 IF e (X , l >2) =e (X , l , 3) THEN P 
RINT "uwaga -zwa r te zrodlo SZP ; e 

5006 ' IF e(x,l,4)=0 THEN PP *NT "U 
waga -zerowa wyd • prądową SZP ;e( 
x , l , 1) 

5010 REM tworzenie macierzy 
5015 LET K=3: GO SUB 6100: IF S t 

OP = l THEN RETURN _ 

5020 IF e (X , l ,2) >0 THEN LET r <FN 
u (2) , b) =r (FN u (2) , b) +e (X , l , 4) 

5021 IF e(X,l,3)>0 THEN LET r (FN 
u(3),b)=r(FN u (3) , b) -e (x , l , 4) 

5022 RETURN 

5030 REM wizualizacja wyników 

5035 PRINT • INUER5E l;"SZP";e(x 
, 1 , 1 ); INUERSE 0;TRB 6; "U+ = " ; e (X 
,l.2);TRB 12; "U-=";e (x, l ,3) 

5036 LET 1111=2: LET »|2=3: GO SUB 

6400 LET HOdsFN ■ (Hf ,li) : LET a 

rg=FN almr.mil: PRINT 'TRB 6; "Re 
u = ";mr;" U";TfiB 6,"Ii»U = 

■■ y.TRB 6; "Usk = ";iłod;“ u";trb 
6;"arU = ";arg;" stop";TRB 6; ■ I 
sk = ";e(x,l,4);" fl";TRB 6; "P » 

" ; e lx , l , 4) *mr *» r ; " U" 

5040 RETU RN 

5100 B 33 «BSta le zrodla napięciowe 

5105 IF e(x,l,4)=0 THEN PRINT "U 
waga-zerowa wartość nap. 5ZN“ ; e t 

x , l , 1) 

5106 IF e tx , l ,2) =e (X , l , 3) THEN P 
RINT INUERSE 1; " b l ad -zw a r t e zrod 
lo SZN"; e tx , l , 1) : LET b lad =1 ; RE 
TURN 

5110 REM tworzenie macierzy 
5115 LET k=3: GO SUB 6100: LET k 

=1: GO SUB 6200: IF St0P=l THEN 

RETURN 

5120 IF e(X,l,2)>0 THEN LET r (FN 
U (2) , FN pllp))=rlFN U ( 2 1 , FN Pil 

pliki: LET r (FN p(lpl,FN U (2) 1 =r 
(FN p < lp i ,FN U (2) 1 -1 

5121 IF elx,t,31>0 THEN LET r ( F N 
U(3),FN p(lP))=r(FN U ( 3 ) , FN Pd 

p ) ) -1 : LET r (FN p(lp),FN U (3) 1 =r 
(FN P ( lp) , FN U (3) ) +1 

5122 LET r (FN p ( lp 1 , b 1 =r IFN p ( lp 
) , b) -e lx , l , 4) 

5125 RETURN 

5130 REM wizualizacja wyników 

5135 PRINT ' INUERSE l;"SZN";e(X 

,1,1); INUERSE 0 ; TRB 6,"U + = ";e(x 
, 1,2) ; TRB 12; "U- = " ; e (X , l ,3) 

5136 LET nl=2: LET m2=3: GO SUB 

640^: LET re=-t 11, FN p(lp)l: LET 


i II =-t ( 1 , n +FN P ( lp ) ) : LET mod=FN 

(U ( re , i Id 1 : PRINT 'TRB 6;"usk = " 
;mr;" U";TRB 6;"ReI = ";re," R"; 
TRB 6;"ImI = ";im;" fi “ ; TRB 6; "Is 
k = ";mod;" R " ; TRB 6;"Psk = ";mr 
*re ; " U" 

5140 LET lpslp+1: RETURN 

5200BaH3iz r . prądowe ster. nap. 
5201 REM uwagi i biedy 

5205 IF e (X , l , 2) =e (X , l , 3) THEN P 
RINT "uwaga -zwa r te wezly ster. Z 
PSN" ; e(x,l4) 

5206 IF e(x,l..4)=c (X;l,5) THEN P 
RINT "uwaga -zwa r te wezly prąd. Z 
PSN"; e (x , l , 1) 

5207 IF e (X , l ji 6) =0 THEN PRINT IN 
UERSE l; "Blad -ze rowy wspolczynni 
k ZPSN" ;e (x, LI) : LET stop = l. RE 

TURN 

5210 REM tworzenie macierzy 
5215 LET k=5: GO SUB 6100: IF S t 

O p = 1 THEN RETURN 

5220 IF e(x,l,2)>0 RND e(x,l,4)> 
0 THEN LET r (FN U(4),FN u(2))=r( 
FN u ( 4 ) / FN U (2) ) -e (X a l ,6) 

5221 IF e(X,t,2>>0 RND e(X,l,5)> 
0 THEN LET r (FN U (5) ,FN U(2))=r( 
FN U(5) ,FN U (2) ) 4-e (X > l ,6) 

5222 IF e(X,l,3)>0 RND e(X,l,4)> 
0 THEN LET r (FN U (4) , FN U (3) ) =r ( 
FN U(4) aFN U (3) ) +e (X > l , 6) 

5223 IF e (X , l , 3) >0 RND e(X,l,5)> 

0 THEN LET r (FN U (5) aFN U(3))=r( 
FN u(5),FN U (3) ) -e (X , l ,6) 

5225 RETURN 

5230 REM wizualizacja wyników 

5235 PRINT ' INUERSE 1; "ZPSN" ; e ( 
x , l « 1) ; INUERSE 0; TRB 6;"S + = ",e( 
x , l # 2) ; TRB 12; "S- = "; e (x a l / 3) ; TRB 

18; ■Tłs ,, ;t (X a l a 4) ; TRB 24; M I- = "; 

e(x,l,5) 

5236 LET fi 1=2: LET m2=3: GO SUB 
6400: LET mod =FN # (l»r alli ) : LET U 
r =m r : LET u i =mi: LET ml =4. LET n 
2=5: GO SUB 6400: PRINT TRB 7;" 
Yr = "a e (x a l >6) ; " S";TRB 5; "ReUs 

= ";ur;" U";TRB 5; "ImUs = ";ui; 
" U" ; TRB 5; "skUs = ";mod;" U";TR 
B 5;"arUs ■ " ; FN a(uraUi);" stop 
" ; TRB 6; " reU * ";i»r; M U";TRB 6;" 

1 mu = " ; » i ; TRB 6;"Usk = FN m (m 
r ,m i ) ; " U";TRB 6; "aru = " ; FN a (m 
r ,ii) ;TRB 6; ” Is k = ";mod« (x,la6 

R" : PRINT TRB 8; "P = " ; modłę 

(x, l ,6) *mr; " U" 

S240 RETU RN 

R^a macfc r . prądowe ster. prąd. 
5301 REM uwagi i biedy _ 

5305 IF e (X , l ;2) =e (X , l , 3) THEN P 

RINT "uwaga -zwa r te wezly ster. Z 
PSP" ;e (x,lal) , . o 

5306 IF e (X, 1,4) ce (X, 1,5) THEN P 
RINT "uwaga -zwa r te wezly prąd. Z 
PSP 1 e (x , l , l) 

5307 IF e(x,l,6)=0 TMEN PRINT IN 
UERSE l; "Blad-zerowy wspolczynni 
k ZPSP" ; e (X , l , 1) : LET S top =1 : RE 
TURN 

5310 REM tworzenie macierzy 
5315 LET k=5. GO SUB 6100: LET k 
=1: GO SUB 6200: IF 5tOP=l THEN 

RETURN 

5320 IF e (X , l ,2) >0 THEN LET r (FN 
U(2),FN p(lp))=r(FN U(2),FN pil 

p))+l: LET r (FN p(lp),FN U (2) ) =r 
(FN p ( lp) ,FN u (2) ) -1 

5321 IF e (X , 1,3) >0 THEN LET r (FN 
U (3) , FN ptlp))«r(FN U ( 3 1 , FN p(l 

p ) ) -1 : LET r (FN p(lp),FN U (3) ) «r 

(FN p dpi , FN U (3) ) +1 

5322 IF e (X , 1,4) TKEN LET r(FN 
U (4 ) , FN p ( Lp 1 1 *r (FN U £4) , FN PU 

5323* IF '« (X , l , 5) >0 THEN LET f (FN 



U(5),FN p(lp))=r(FN U(5),FN P ( l 
p ) ) +e (X , l ,6) 

5325 RETURN 

5330 REM wizualizacja wyników 

5335 PRINT ' INUERSE 1; "ZPSP" ; e ( 
x,l,l); INUERSE 0;TRB 6;"S + = ";e< 
x , l ,2) ; TRB 12; "S-s"; e (x , l , 3) ; TRB 

18; " !♦■" ; e (x , l ,4.) ;TRB 24; "i - = "; 
e (X , 1,5) 

5336 LET ir=t(l,FN p(lp)): LET i 

ist(l,n+FN PUP)): LET »Od=FN n ( 
i r , i i ) : LET Ml=4: LET n 2 =5 : GO 5 

UB 6400: PRINT ''TRB 8;"k = ";e(X 
,1,6);" CD " ; TRB 5; "Re Is = “;ir;" 

R" ; TRB 5 ; "Iw Is = ";ii; M R" ; TRB 
5;"skls s M ;*od; " fl" ; TRB 5;"arls 
= " ; fn a ( i r , i i ) ; ” stop"; TRB 6;" 
reu = ";n r;“ U"; TRB 6;"imU = ";m 
i ; TRB 6; "Usk = " ; FN n (» r , m i ) ; " U 
T RB 6; "arU = " ; FN a (nr ,n i ) ; TRB 
6; "Isk = " ; Mod #e (x , l ,6) ; " R" : P 
RINT TRB 8; "P = ";«od*e (X, l ,6) łi 


r;" U" 

5340 LET lp«lp»l: RETURN 
5400ES2Kzr. napiec, ster. nap. 
5401 REM uwagi i biedy 

5405 IF e(X,l,2) se (x,l,3) THEN P 
RINT "uwaga -zwa r te wezly ster. Z 
NSN " ; e (x , l,l) 

5406 IF e(X,l,6)B0 THEN PRINT "U 
waga-zerowy wspolcz. ZNSN" ; t tx , l 

, 1) 

5407 IF e (X, 1,4) se (X, 1,5) THEN P 
RINT INUERSE 1 ; " b l ad -zw a r t e wezl 
y nap. ZNSN"; e (x , l , 1) : LET stop= 
1: RETURN 

5410 REM tworzenie macierzy 
5415 LET k =5 : GO SUB 6100: LET k 
=1: GO SUB 6200: IF StOP=l THEN 

RETURN 

5420 IF e (X , l , 2) >0 THEN LET r (FN 
PUP),FN u (2) ) =r (FN p ( lp ) ,FN u( 

2) ) -e (X , l ,6) 

5421 IF e(x,t,3)>0 THEN LET r (FN 


p(lp),FN U (3) ) *r (FN p ( l p ) , FN U( 
3) ) +e (X , l ,6) 

5422 IF e(X,l,4)>0 THEN LET r (FN 
U(4),FN P ( lp ) ) =r (FN U (4 ) , FN p(l 

P))-1: LET r (FN p ( lp ) , FN U (4) ) =r 

(FN P ( lp) ,FN U (4) ) +1 

5423 IF 6 (X , l , 5) >0 THEN LET r (FN 
U (5) , FN p(lp))=r(FN U ( 5 ) , FN p(l 

P ) ) + 1 : LET r (FN p ( lp ) , FN U (5) ) =r 

(FN p ( lp) ,FN U (5) ) -1 
5425 RETURN 

5430 REM wizualizacja wyników 

5435 PRINT ' INUERSE 1, "ZPSP";e( 
X , l , 1) ; INUERSE 0 ; TRB 6; M S<fs“;e( 
x , t ,2) ; TRB 12; "S-s" ; e (x , 1,3) ; TRB 

18; " I-f s" ; e (x , l .4) ; TRB 24; "I-s"; 
e (X , l ,5) 

5436 LET ml=2: LET f»2=3: GO SUB 

6400: LET mod =FN rB(mr,mi): LET i 

r = t ( 1 , FN p(lp)): LET ii±‘t(l,n+FN 

p ( lp ) ) : PRINT TRB 7; "kr = ",e( 
x , l , 6) ; " CD " ; T RB 5; "Reus = ";ur; 


" U"; TRB 5; "ImUs = 
5; "s kUs = " ; mod; " 
= " ; FN a (ur ,ui) ; 


"; u i ; " U"; TRB 
U" ; TRB 5; "ar u 
stop"; TRB 6; 


7 re I = "; i r ; R" ; TRB 6;"i»i 
i i ; TRB 6 ; " Is k s " ; FN m ( i r , i i ) ; " 
U"; TRB 6 ; "a r I = " ; FN a ( i r , i i ) ; TR 
B 6; "Usk s ” ; nodłe (x , l , 6) ; " U": 
PRINT TRB 8 ; "P = “ ; modte (x , l , 6) ft 
i r; " U" 

5440 LET t P = t P + 1 : RETURN 

5500flB33izr. napiec, ster. prąd. 
5501 REM uwagi i biedy 

5505 IF e (x , 1,2) se (X, 1,3) THEN P 
RINT "uwaga -zwar te wezly ster. Z 
NSP"; e (x , l , 1) 

5506 IF e (X , l , 6) s0 THEN PRINT "U 
waga-zerowy wspolcz. ZNSP";e(x,l 
, 1) 


5507 IF e (X , l ,4) se (X , l , 5) THEN P 
RINT INUERSE l; " b lad -zwa r te wezl 
y nap. ZNSP"; e (x , l , 1) : LET stop= 
1 : RETURN 

5510 REM tworzenie macierzy 
5515 LET k =5 : GO SUB 6100: LET k 
■2: GO 5UB 6200: IF Stop*l THEN 

RETURN 

5520 IF e (X , l , 2) >0 THEN LET r (FN 
U ( 2) , FN p (lp-1) ) sr (FN u(2),FN P 

( lp -1) ) +1 : LET r (FN p(lp-l),FN U 

(2) ) sr (FN P(lP-l) ,FN u (2) ) -1 

5521 IF e(x,l,3)>0 THEN LET r (FN 
U ( 3) , FN p (lp-1) ) sf (FN u (3) , FN p 

(lp-l))-l: LET r (FN p(lp-l),FN U 

(3) )=r(FN p ( l p - 1 ) , FN U ( 3) ) + 1 

5522 IF e ( X , 1,4) > 0 THEN LET r (FN 
U ( 4) , FN p (lp ) ) sr (FN U ( 4 ) , FN p(l 

P))+1: LET r (FN pUp) ,FN U (4) ) =r 

(FN p (lp) ,FN U (4) ) -1 

5523 IF e (X , 1,5) >0 THEN LET r (FN 
U (5) , FN P ( l p ) ) s r ( FN u(5),FN p(l 

P))-l: LET r (FN p(lp),FN u (5) ) =r 
(FN PUp) , FN u (5) ) +1 

5524 LET r (FN pdp),FN p(lp-l)) = 
r (FN p ( lp ) , FN p ( lp -1) ) +e (x , l ,6) 
5525 RETURN 

5530 REM wizualizacja wyników 

5535 PRINT ' INUERSE 1; "ZNSP" ; e ( 
x , l , 1) ; INUERSE 0; TRB 6;"S + = ";e( 
x , l ,2) ; TRB 12; "S-s"; e (x , l , 3) ; TRB 

18; "U+s"; e (X , l ,4) ; TRB 24; “U-s"; 
e (x , l ,5) 

5536 LET ifst(l,FN p(lp)): LET i 
i *FN t ( 1 , n 4 FN p(lp)): LET »od=FN 

■(ar, ii): LET mr=FN t(l,FN P (lp 
+ 1)): LET m i =FN t ( 1 , n +FN p(lp+l) 
): PRINT 'TRB 7; "Rw = ";e(x,l,6) 
Om " ; TRB 5;"ReIs s ";ir;" R",T 
RB 5; " Im Is = " ; i i ; " R " ; T RB 5; "sk 
Is * ";i»od; " R" ; TRB 5;"arls = "; 
FN a ( i r , i i ) ; " stop”; TRB 6; "rei = 
";»r;" fl" ; TRB 6;"iml ■ " ; m i ; " fl 
"; TRB 6;"lsk s ** ; fn ■ (nr ,ni) ; a> R 
" ; TRB 6;"arl s ";FN a(ir,ii);" s 
top"; TRB 6; "Usk = "; aod*e (x , t ,6) 
U": PRINT TRB 8; "P s ";MOdłe( 

x , l ,6) ł«r ; " U" 

5540 LET l p a lp 4-2 : RETURN 

5600HERBPezys tor 
5601 REM uwagi i biedy 

5605 IF e (X, 1,2) se (X , 1,3) THEN P 
RINT "uwaga -zwa r ty rezystor R";e 
(x, l , 1) 

5606 IF e(x,l,4)s0 THEN PRINT IN 
UERSE 1; "Blad -ze rowa rezystancja 

R" ; e (X , l , 1) : LET stopsl: RETURN 


5610 REM tworzenie macierzy 
5615 LET K =3 : GO SUB 6100 

5620 IF e ( x , 1,2) 0 THEN LET r (FN 
u (2) ,FN u(2))*r(FN u (2) ,FN u (2) 

) -fl/e (X , l ,4) : IF e(x,l,3)>0 THEN 

LET r (FN U ( 2 ) , FN U(3))sr(FN U (2 
) / FN u (3) ) -l/e (X , l ,4) 

5621 IF e (X , l , 3) >0 THEN LET r (FN 
U ( 3) , FN U (3) ) =r (FN u (3) , FN u (3) 

) -fl/e (X , l ,4) : IF e(x,l,2)>0 THEN 

LET r (FN U (3) , FN U (2) ) =r (FN U (3 
) ,FN U (2) ) -l/e (X , l , 4 ) 


5625 RETURN 

5630 REM wizualizacja wyników 

5635 PRINT ' INUERSE 1; "R" ; e (X , l 
,1); INUERSE 0; TRB 6; "U + =" ; e tx , l 
, 2) ; TRB 12; "U-S".; e (X , 1,3) 

5636 LET 1*1=2: LET f*2=3: GO SUB 

6400: LET KOd =FN M(mr,Ai): PRINT 

'TRB 6; "R = "; e (x, l ,4) ; " Om"; 
TRB 6; "Usk = "; mod ; " U"; TRB 6;TR 
B 6 ; " Is k s "; mod/e (x , 1,4) ; " R" : 
PRINT TRB 6;"Psk = " ; mo d en od /e (x 
,1,4);" U" 

5640 RETURN 
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5700B3iKHKondensator 

3701 REM uwagi i biedy 

5705 IF € (X, 1,2) se (X, 1,3) THEN P 
RINT "uwaga-zwarty kondensator C 

e (x , l , 1 ) 

5706 IF e(X, 1,40=0 THEN PRINT IN 
UERSE 1; "B lad -zerowa pojemność C 

' ; e (X , l , 1) : LET Stopsl: RETURN 

5710 REM tworzenie macierzy 

5715 LET k =3 : GO 5UB 6100 

5720 IF e(X,l.2)>0 THEN LET U (FN 
U ( 2) , FN u (2) ) =U (FN U (2) , FN U (2) 

) +W *e (X , l ,4) : IF e(X,l,3)>0 THEN 

LET U (FN U (2) , FN U(3) )=U(FN U (2 
) , FN U (3) ) -w*e (X , l , 4- ) 

5721 IF e (X , l , 3) >0 THEN LET U (FN 
U(3),FN U (3) ) =U (FN U (3) ,FN U (3) 

) +W *e (X , l ,4) : IF e (X , l , 2) > 0 THEN 

LET U (FN U (3) , FN U (2) ) =U (FN U (3 
) , FN U (2) ) -W*€ (X , l , 4 ) 

5725 RETURN 

5730 REM wizualizacja wyników 

5735 PRINT ' INUERSE 1 ; "C" ; e ( X , l 
,1); INUERSE 0;TAB 6 ; "U + = " ; e ( X , l 
,2 ) ;tab 12; "U-s"; e (x, 1,3) 

5736 LET ml=2: LET m2=3: GO 5UB 

6400: LET aod=FN d (mr ; lli) : PRINT 

'TflB 6; "C = *; e (x , l ,4) ; " F";T 

RB 6, "Usfc = ";iod; " U",TAB 6;"Is 
k = " ; mod *e (x , l ,4) *w ; " fi" 

5740 RETURN 


5e00Ba@Mindu k cy jnos c 
5801 REM uwagi i biedy 

5805 IF e (X , l , 2) =e (X , l , 3) THEN P 
RINT "uwaga -zwa r ta indukcyjnosc 
L" ; e (x , l , 1) 

5806 IF e(X, 1,40=0 THEN PRINT IN 

UERSE 1; "Uwaga -ze rowa indukcyjno 
SC L" ; e (X , l , 1) : LET StOP=l: RETU 

RN 

5810 REM tworzenie macierzy 
5315 LET k =3 : GO SUB 6100 

5820 IF e (X , l , 2) >0 THEN LET U (FN 
U (2) , FN U (2) ) =u (FN U (2) , FN u (2) 

) -1/W/e (X / l ,4) : IF e (X , l , 3) >0 TH 

EN LET U (FN u(2),FN U(3))=U(FN U 

(2) , FN u (3)) +l/W/e (X , l ,4) 

5821 IF e(X,l,3)>0 THEN LET U (FN 
U (3) , FN U (3) ) =U (FN u (3) ,FN U (3) 

) -1/W /e (X , l , 4) : IF e(X,l,2)>0 TH 

EN LET U (FN u(3),FN u (2) ) =U (FN U 

(3) ,FN u (2) ) 4-1/W/e (X , l ,4) 

5825 RETURN 


5830 REM Wiz 
5335 PRINT ' 

, 1) ; INUERSE 
, 2) ; TRB 12; " 
5836 LET TOl= 
6400; LET fti O 
'TRB 6; "L 
RB 6; "USk = 
k = " , mod *e ( 
5840 RETU RN 
5900isaarrra 

5905 IF e (X , 
RINT "uwaga-' 
e (x , l , 1) 

5906 IF e (x , 
RINT "uwaga- 
e <x , l , lł 

5907 IF e (x , 
RINT "uwaga - 
e ( x , l , 1 ) 

5903 IF e (x , 
UERSE 1; "Uwa 


ualizacja wyników 
INUERSE i, "L" ; e cx , l 
0,'TfiB 6; "U + = " ; e (x , l 
U-="; e (x , 1,3) 

2: LET rri 2 =3 : GO SUB 

d =FN M(lhr,ai): PRINT 
= " ; e (x , l , 4) ; " h" ; T 
1 ; »od; " U".;ThB 6;"Is 
< , i , 4) *w ; " R" 

nzystor 

1.2) =e (x , 1,3) THEN P 

zwarte wezly b-e T"; 

l ,3) =e (X , l ,4) THEN P 
zwarte wezly K-E T"; 

1 .2) =e (x , l ,4) THEN P 
zwarte wezly B-K T"; 

1,5) =0 THEN PRINT IN 
ga-zerowe wzmocnieni 


e T"; e (X , l , 1) : LET Stop = l: RETUR 
N 

5910 REM tworzenie macierzy 
5915 LET K =4 : GO SUB 6100 
5920 IF e (X , 1,2) >0 THEN LET f (FN 
U ( 2) , FN U(2))=r(FN U (2 ) , FN 0(2) 

) 4Y be : IF e (X , l ,4) >0 THEN LET f< 


FN U (2) ,FN u(4))»r (FN U 
4) ) -Ybe 

5921 IF e (X , 1,4) >0 THEN 
U (4) , FN U (4) ) =r (FN U (4 

) +Ybe +e (x , l , 5) /Ut : IF e 

THEN LET r (FN U(4),FN 
N u (4) , FN u (2) ) -Ybe-e (x 

5922 IF e ( X , 1,3) > 0 RND 
0 THEN LET r (FN U(3),FN 
FN U (3) ,FN U (4) ) -e (X , 1 

5923 IF e (X , t , 2) >0 RND 
0 THEN LET r (FN U(3),FN 
FN u (3) ,FN u (2) ) +e (x , l , 
5925 RETURN 

5930 REM wizualizacja w 


(2) , FN U ( 

LET r (FN 
) , FN U (4) 
(X , l ,2) >0 
U (2) ) =r (F 
,1,5) /Ut 
e ( x , l , 4 ) > 
u (4) ) =r ( 
5) /Ut 
e (x , l , 3) > 
u ( 2 ) ) =r ( 
5) /Ut 

yni kow 

5935 PRINT ' INUERSE 1; "T" ; e ( X , l 
,1); INUERSE 0; TRB 6;" B = ";e(x,l 
, 2) ; TflB 12;" K = " ; e (x , l , 3) ; TRB 18 
; " E=” ; e (x , 1,4) 

5936 LET ml =2: LET m2=4: GO SUB 

6400; LET ursffif : LET ml=3: LET m 
2=4: GO SUB 6400: PRINT TRB 7;" 

Ik = " ; e (x , 1 ,5) ; " CA3";TAB 6; "Rb 
e = ";l/Ybe;TRB 4;"skUbe = ";ur; 
TRB 4; "skibę = urłfYbe , TRB 4;"R 
euce = ";rar;" U";TRB 4;"ImUce = 

" ; a i ; TRB 4; "skUce = " ; FN m(mr,mi 
) ; " U", TRB 4,‘arUce = " ; FN a (ar, 
»i);" stop";TRB 5,"sklc = ",e(x, 
l ,5) *ur*Ybe/Ut; " R" ; TRB 5;"skle 
= " ; ur*Ybe* (l+e (x , l ,5) /Ut ) ;trb 6 
; "Psk = " ; u r * (u r #Ybe +e (x , l , 5) #rar 
/ut ) ; " U" 

5940 RETU RN 

6Q00B31Sledy tor zbioru 
6010 CLS 

6020 GO SUB 8000+100* (X -1) 

6030 GO SUB 9800 

6040 GO SUB 9990 

6050 IF x$="P" RND i (X) >0 THEN L 

ET k=0: GO SUB 9600: IF £>0 THEN 

GO TO 6070 

6051 IF X $ = "d " RND i(X)<10 THEN 

LET i (X)=i (X ) +1 : LET e=i(X): GO 

TO 6070 

6052 IF X$="S" RND i (X) >0 THEN G 
O SUB 9600; IF e >0 THEN GO SUB 8 
050+100* (X-l) : GO TO 6000 

6053 IF X$="k" THEN RETURN 

6060 BEEP .1,20: GO TO 6040 
6070 GO SUB 8030 + 100+ (X -1) : GO T 

O 60 00 

fi i lokowanie wezlow 

6105 IF lz+k>2+maxw THEN LET sto 
P=i PRINT "biad-przekroczono ro 
zrtiar macierzy": RETURN 
6110 FOR j =2 TO k : IF e (X , l , j ) >0 

THEN IF t (2 ,e (x , l , j) ) =0 THEN LE 
T t (2,6 (X , l , j) ) =IZ : LET IZ = LZ+1 

6115 NEXT j: RETURN 

6200 H^SHlo kowan i e prądów 
♦205 IF lp+k>maxw THEN LET stop* 
1: PRINT "blad-przekroczono i los 
c prądów": RETURN 

6210 FOR jsl TO k; LET t(2,lP+I*a 
X W ) = l Z : LET l P = l P + 1 : LET lZ = lZ+l 

: NE XT j. RETURN 
6300fl^SSlit wo rżenie macierzy 
6310 CLS : INPUT "podaj czestotl 

iwosc W CHZ 3 = F = " j f : PRINT "CZ 

estotliwosc F CHz3 =" ; f ; "Hz" : IF f 

<=0 THEN GO TO 6310 
6315 LET W=2+PI*f 

6320 PRINT : GO SUB 7400: LET St 

OP=0: LET l Z = 1 : LET lp=l: PRINT 

"analiza układu rozpoczęta"'' 
6350 FOR X = 1 TO 10: FOR 1 = 1 TO i 
(X): GO SUB 5000 + 100* (X -1) : NEXT 

l: NEXT X: IF StOP=l THEN PRINT 

"biedy w uk ladz i e-kon i ec anali 
zy": GO TO 6395 


ii 



6351 IF l Z = 1 THEN PRINT "brak Ufc 
ładu - koniec analizy'*. GO TO 63 
95 

6352 PRINT "'analiza układu żako 
nczona" 

6358 GO SUB 7500: LET n = lz-l: FO 

R k =1 TO n: FOR 1=1 TO n. LET n< 

k,l)=r(k,l): LET n (n+k , n + l) =r (k, 
U: LET n (K ,n + l) =-U (k , l) : LET n ( 
n+k , l) su (k , l) . NEXT l: LET b ( k ) = 
r(k,b): LET b Cn +k) =U (k , b) : NEXT 

k 

6359 PRINT '"analiza numeryczna 
rozpoczęta" 

6360 GO SUB 1000. IF m=0 THEN GO 
TO 6395 

6361 LET n=n/2 

6362 PRINT '"napięcia w węzłach 

układu:": FOR x=l TO maxn/2: IF 

t(2,x)=0 THEN GO TO 6364 

6363 PRINT : LET r e = t ( 1 , t ( 2 , X ) ) : 

LET i m = t (l,n+t (2,X) ) : PRINT INU 

ERSE 1; "weze ł ";x; INUERSE ©'"Re 

U" ; x ; " = ";rc; " U Im U"; x; " 

= " ; i ii ; " U U*k";x; " = " ; FN 

»(re,in);" u arg (U" ; x ; ") = " ; FN 

a ( re , i m ) ; " stop" 

6364 NEXT X 

6365 LET lp=2: FOR X=1 TO 10: FO 

R 1=1 TO i (X) : GO SUB 5030+100*< 

X-l) : NEXT ł : NEXT X 

6370 PRINT 80; "czy powtórzyć wyn 
i ki? (t/n)": PRUSE 1: PRUSE 0: I 

NPUT IF INKEY $ = " t " THEN GO T 

O 6362 
6375 RETURN 

6395 print 80;"nacisnij dowolny 
klawisz": PRUSE 1: PRUSE 0: INPU 

T " " : RET URN 

6400B335Bo bliczanie napięcia 
6410 LET xrl=0: LET Xil=0. IF e( 
X > l 1) >0 THEN LET Xf l*t(l,FN U( 
ml)): LET x i l = t ( 1 , n +FN u (ml)) 
6420 LET XT2=0: LET xi2=0: IF e( 

X , l , fi* 2 ) > 0 THEN LET xr2=t (1,FN U( 
m2) ) : LET x i 2 = t ( 1 . n +FN U T f ft 2 > ) 

6430 LET mr=xrl-xr2: LET mi =xi 1- 
X i 2 RETU RN 

700omSBini c ja l . zbioru e lemen. 
7O10 DIM e (10,»axw , 7 ) : DIM i(10) 
7020 RETU RN 

7400B2IBBi n i c ja l i za c ja macierzy 
7410 DIM t(2,4*max*U DIM r (maxw 
, b) : DIM u ( m a x n , b ) 

7420 RETU RN 

750O||d^5|i ni cja l izacja tablicy 
7510 DIM n (2*maxn , 2*m axn ) : DIM b 
<2*maxn) : DIM x (2*maxn) 

7520 RETU RN 

8 00 0 Łst3BM s tale z rod la prądowe 
8010 REM lista 

3015 PRINT "Stale Zr od l a Prądowe 
PRINT 

3020 PRINT "nr element 1 + I- Isk 
CR) " 

8025 LET X $ = " NZP" : GO SUB 9110: 
RETURN 

3030 REM edycja elementu 
8040 LET k =0 : GO SUB 9500 

3041 LET X$ = "nr we Z la I + ”: GO SU 
B 9500 

3042 let x* = "nr we z i a I-” . go su 
B 9500 

8043 LET x$ = "prad z r od la w CR3 " 
GO SUB 9550 
8045 RETURN 

3050 REM kasowanie elementu 
3055 LET 1=4 
3060 GO SUB 9400 
8065 RETU RN 

8l00BaU2Bst.a le zrodla napięciowe 
3110 REM lista 

8115 PRINT "Stale Zrodla Napięci 


owe": PRINT 

8120 PRINT "nr element U+ U- Usk 
CU] " 

8125 LET X $ = " NZN " : GO SUB 9110. 
RETURN 

8130 REM edycja elementu 

3140 LET k =0 : GO SUB 9500 

3141 LET x$ = “n r we z la U + " : GO SU 
B 9500 

8142 LET x$ = "n r w e z la U-": GO SU 

B 9500 

8143 LET x$="napiecie zrodla w c 
U3 " GO SUB 9550 

3145 RETURN 

8150 REM kasowanie elementu 
3155 LET 1=4 
3160 GO SUB 9400 
3165 RETU RN 

3200flQsfidkZr . Prądowe Ster Nap. 
8210 REM lista 

3215 PRINT "Zrodla Prądowe ster. 

Napięciowo": PRINT 

3220 PRINT "nr element S+ 5- U+ 
U- uy CS3 " 

3225 LET x$="ZPSN": GO SUB 9130. 
RETURN 

8230 REM edycja elementu 

8240 LET K. = 0 : GO SUB 9500 

8241 LET x $ = "n r wezla 3 + ": GO SU 

B 9500 

3242 LET X$ = "rif wezla S-": GO SU 
B 9500 

3243 LET x$="nr wezla U+" GO SU 
B 9500 

8244 LET ;<$s"nr wezla U-": GO SU 

B 9500 

8245 LET x $ = "w s p o l cz y nn i k Y COm3 " 
: GO SUB 9550 

8246 RETURN 

3250 REM kasowanie elementu 
8255 LET 1=6 
8260 GO 5UB 9400 
3265 RETU RN 

8300 M33S I zr . Prądowe Ster Prąd. 
3310 REM lista 

8315 PRINT "Zrodla Prądowe Ster. 
Prądowo": PRINT 

3320 PRINT "nr element S+ S- 1+ 
I- Uk C3 " 

8325 LET X$="ZPSP" : GO SUB 9130. 

RETURN 

8330 REM edycja elementu 
3340 LET k =0 : GO SUB 9500 

8341 LET x$="nr wezla 5 + ": GO SU 
B 9500 

8342 LET x$="nr wezla S-": GO SU 
B 9500 

8343 LET x$="nr wezla I + " : GO SU 
B 9500 

8344 LET x*="nr wezla I-": GO SU 
B 9500 

8345 LET x $ = "wspq l czynn i k k C3 " : 
GO SUB 9550 

8346 RETURN 

8350 REM kasowanie elementu 
8355 LET 1=6 
8360 GO SUB 9400 
3365 RETU RN 

a400 Maai zr . Nap. Ster. Nap. 

8410 REM lista 

3415 PRINT "Zr. Napięciowe Ster. 

Napięciowo": PRINT 
3420 PRINT "nr element S+ S- U+ 
U- Ut C3 " 

3425 LET X*="ZNSN": GO SUB 9130: 
RETURN 

3430 REM edycja elementu 
3440 LET k =0 . GO SUB 9500 

8441 LET x$="nr wezla S+": GO SU 
B 9500 

8442 LET x$="nr wezla S-". GO SU 
B 9500 

8443 LET x$="nr wezla U+": GO SU 
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B 9500 __ 

34.4.4 LET x$="nr wezla U-'. u>0 sU 

B 9500 . „ 4 r , .. 

8445 LET x$="wspo l czynn 1 K t C3 
GO 5UB 9550 
3446 RETURN 

3450 REM Kasowanie elementu 
3455 LET 1=6 
3460 GO 5UB 9400 
8465 RETURN 


850Q gSF3>M Zr . Napiec. -Ster. Prąd. 
8510 REM lista 

8515 PRINT "Zrod la Napięciowe St 

er. Prądowo": PRINT 

8520 PRINT "nr element 5+ S- 1+ 


8525 LET 

X $ = "ZNSP" . GO SUB 

9130: 

3915 

PRINT "Tranzystory " 

PRINT 

RETURN 






8920 

PRINT "nr e 

lenent B 

K 

E 

3530 REM 

edycja 

elementu 



IK CR3 






8540 LET 

K =0 : GO SUB 

9500 



8925 

LET 

x $ = "T " 

GO 5UB 9120 

RE 

3541 LET 

x$="nr 

wezla 

S + " : 

GO 

SU 

TURN 






B 9500 






3930 

REM 

edycja 

e lenieniu 



8542 LET 

x$="nr 

wezla 

S-" : 

GO 

su 

3940 

LET 

K.=0: GC 

SUB 9500 



B 9500 





894 1 

Lbł 

x $ = "n r 

cez t a B" 

GO 

SUB 

8543 LET 

x$="nr 

wezla 

I + ": 

GO 

su 

9500 





B 9500 





8942 

LET 

x$="nr 

wezla K" : 

GO 

SUB 

8544 LET 

x$="nr 

wezla 

I - " : 

GO 

su 

9500 





B 9500 





3943 

LET 

x$="nr 

wezla E " 

GO 

SUB 

8545 LET 

x$="wspolczynniK 

Y CS3 


9500 






GO 5UB 9550 
3546 RETURN 

8550 REM Kasowanie elementu 

8555 LET 1=6 
3560 GO SUB 9400 
8565 RETU RN 
8600Ba33BRezys to ry 
8610 REM usta 

8615 PRINT "Rezystory". PRINT 
8620 PRINT "nr element u+ u- R CO 
m] " 

3625 LET X$="R" : GO SUB 9110: RE 
TURN 

8630 REM edycja elementu 

3640 LET K = 0 : GO SUB 9500 

3641 LET X$="nr wezla U + " : GO SU 

B 9500 

8642 LET x$="nr wezla U- M : GO SU 
B 9500 

8643 LET x$ = " rezys tan c Ja RCOm3": 
GO SUB 9550 

8644 RETURN 

8650 REM Kasowanie elementu 

3655 LET 1=4 

8660 GO SUB 9400 

8665 RETU RN 

a7QQ iKW Po jemnosc i 

8710 REM lista 

3715 PRINT "Kondensatory": PRINT 

8720 PRINT "nr element U+ u- C CF 
3 " 

8725 LET x*="C" : GO SUB 9110: RE 
TURN 

8730 REM edycja elementu 
3740 LET K =0 : GO SUB 9500 

8741 LET x $ = "n r wezla U + ": GO SU 
B 9500 

3742 LET x$ = "nr wezla UI-": GO SU 
B 9500 

3743 LET X $ = "P O Je m no S C C CF3 " : GO 

SUB 9550 

3744 RETURN 

8750 REM Kasowanie elementu 
3755 LET 1=4 
8760 GO SUB 9400 
8765 RETURN 

8800 Bd=HBlnduKcy jnosc i 
3810 REM lista 

8815 PRINT " Indu K cy jnos C i ’• : PRIN 

T 

8820 PRINT "nr element U+ U- L CH 
3 " 

8825 LET X$ = "L ,i : GO SUB 9110: RE 


TURN 

3330 REM edycja elementu 

8840 LET K =0 : GO SUB 9500 

8841 LET X$="nr wezla U + ": GO SU 
B 9500 

8842 LET x$="nr wezla U-". GO SU 

B 9500 

8843 LET X$ = “ induKcyjnosC L CH3 " : 
GO SUB 9550 

8844 RETURN 

3850 REM Kasowanie elementu 
8855 LET 1=4 
3860 GO SUB 9400 
3865 RETUR N 
8900ttS=lflil ranzystory 


8910 REM lista 


8944 LET x*="prad KoleKtora IK CR 

3": GO SUB 9550 

8945 RETURN 

3950 REM Kasowanie elementu 
8955 LET 1=5 
3960 GO SUB 9400 
8965 RETU RN 

9Q00 M3ągM edu tor elementów 

9010 GO SUB 9900 
9020 GO SUB 9990 

9030 IF X$>="0" RND X $ < = " 9" THEN 
LET X=URL X * + 1 : CLS : GO SUB 60 

00 GO TO 9000 

9040 IF X$ = ■ , w ,, THEN GO SUB 6300 
GO TO 9000 

904 1 IF X * = "n " THEN PRUSE 1: PRI 

NT 80; "nowy u Kład 7 ( t /t\ ) " : PRUSE 
0: IŃPUT : IF INKEY $ = " t ” THEN 
GO SUB 7000: GO TO 9000 
9042 IF X$="l" THEN CLS : PRINT 

"lista elementów u Kładu" FOR x = 

1 TO 10: GO SU6 3025 + 100 *( X - 1 ) : 

NEXT X: PRINT PRINT 30,'N3Cisn 

i .» dowolny Klawisz" PRUSE 1: PR 

U SE 0: INPUT " " : GO TO 9000 

9045 BEEP .1,20 

9050 GOTO 9020 . 

2 100ES9 Uity zbiorow 
9110 REM 2 wezly,l parametr 
9115 FOR K = 1 TO 1 lXJ : PRINT K , Th 

B 3; X $, e (X , r. , 1) ;TRB ll;e(x,K,2); 
TRB 14, e (X , K ,3) ;TRB 17;e(X,K,4>: 
NEXT K : RETURN 

9120 REM 3 wez ly , 1 parametr 
9125 FOR K = 1 TO i (X) : PRINT K , TR 

B 3 ; X * e (x , K , l) ; TRB 11 ; e (X ,2) ; 
TRB 14; e (x , K , 3) , TRB 17; e(x,K,4); 
TRB 20 ; e i X , K , 5) : NEXT K . RETURN 

9130 REM 4 wezly/l parame.tr 
9135 FOR K = 1 TO i ( X > t PRINT K ; TR 
B 3 ; x$; e (x, K , 1) ;TRB 1 1; e (x , K , 2) ; 
TRB 14, e (X , K ,3) ; TRB 17 ; e (x , K , 4 ) ; 
TRB 20 , e (X , K ,5) , TRB 23;e(X,K,6) : 
NEX T K : RETURN 

9400®S3BKasowan i e elementu 
9410 LET i (X) = i (X) -1: IF e=10 TH 

EN RETURN 

9420 FOR K=e TO i (X) : FOR j=l TO 

9430 LET e (x , K , j) =e (x , K -f 1, j) 

9440 NEXT j : NEXT K : RETURN 

9500lB@Gfllw prowadzenie wezla 

9505 IF K =0 THEN LET x$ = "numer u 
Kładowy elementu" 
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9510 LET *=*+1 

9515 INPUT ";e (x ,e ,K) 

9520 IF FN Z (K=l / f«axw / e ( x , e , K ) !< 
THEN GO TO 9515 
9530 RETU RN 

9550 »gHgB wp rowadzenie wartości 
9560 LET k*k+l: INPUT (X$);": " ; 

e (x , e , k > 

9565 RETU RN 

9600B3HDiwy bo r elementu 
9610 INPUT "padaj nr elementu 
; e : IF FN Z (0/i (X) / 6 ) THEN GO TO 

9610 

9620 RETU RN 

9600 la4 i*pdu tor zbioru 

9810 PRINT RT 15,11.; INUERSE 1; " 

FUNKCJE : " 

9820 PRINT 

9830 IF i (X)>0 THEN PRINT TRB 5; 
"p -pop r av i en x e elementu" 


9831 IF i (X) <10 THEN PRINT T RB 5 
;"d -dołączenie elementu" 

9832 IF i (x) >0 THEN PRINT TfiB 5; 
"s-sKasowanie elementu” 

9833 PRINT TRB 5, "K-Honiec edycj 
i zbioru" 

9840 RETU RN 

9900EEmin forma c ja edytora 
9910 CL5 : PRINT TRB 7; INUERSE 
1 . "FUNKCJE EDYTORR: " 

9915 PRINT 


9920 PRINT "0-5ta 
uie " 

9921 PRINT " 1-Sta 

c i o we " 

9922 PRINT "2-Zr. 
Nap ieciowo" 

9923 PRINT "3-Zr . 
Prądowo " 

9924 PRINT "4-Zr . 
. Napięciowo" 

9925 PRINT "5-Zr. 


le Zrodlo Prado 
le Zrodlo Napie 
Prądowe Ster. 
Prądowe Ster. 
Na piecowe Ster 
Napięciowe Ste 


r. Prądowo" 

9926 PRINT "6-Rezy s to r " 

9927 PRINT "7 -Kon d en s a t o r " 

9928 PRINT "8-lndu K c y j n o s c " 

9929 PRINT "9-Tranzys lor " 

9930 PRINT : PRINT " w -W y K.O na n i e 
obliczeń" 

9931 PRINT "n-nowy u Kład" 

9932 PRINT "i-lista elementów ufc 
ładu " 

9940 RETU RN 

9990B9S3w czy tani e znaku 

9991 PRINT 80, RT 0,8, "wybierz fu 
nkc je " 

9992 PRUSE 0: LET x*=INKEY$: IF 

X $ < > ** " THEN INPUT RETURN 

9993 GOTO 9991 

9998 »a^a zaPi s programu na tasme 
9999 CLERR : 5RUE "analiza RC" L 

INE 1. UERIFY "analiza RC" 


INFORMATYKA W SZKOLE 


ZASTOSOWANIA 

(materiały do podstaw informatyki cz. 7) 


Przebrnęliśmy już przez sześć spot- 
kań, podczas których informatyka oka 
zywała się nam coraz mniej tajemnicza 
(mam taką nadzieję). Zgodnie ze zo- 
bowiązaniem. z poprzedniego numeru, 
tym razem zamierzam omówić kilka 
praktycznych przykładów (sądzę, że 
atrakcyjnych) zastosowań komputerów 
klasy IBM PC. Przede wszystkim po- 
winniśmy być świadomi, iż maszyny te 
mają ograniczone możliwości wobec 
profesjonalnych zastosowań informa- 
tyki (pisałem o tym przy okazji super- 
komputerów w „IKS-ie" nr 2/89). Wyni- 
ka to ze stosunkowo niewielkiej pa- 
mięci (RAM — megabajty i dyskowej 
— setki megabajtów) oraz ograniczo- 
nej szybkości — pojedyncze miliony 
operacji na sekundę. Jednak nieza- 
przeczalną zaletą sprzętu tej klasy jest 
jego dostępność, bogate oprogramo- 
wanie i stosunkowo niewielka cena. 
Sądzę, że w najbliższych latach sprzęt 
ten całkowicie zdominuje naszą infor- 
matykę. 

Szczególnie korzystnym (efektyw- 
nym) sposobem wykorzystywania PC- 
-tów jest ich łączenie w tak zwane sieci 
lokalne. Zazwyczaj instalowane są 
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one w jednym budynku, na przykład w 
szkole, biurowcu, fabryce. Dzięki wza- 
lemnemu połączeniu komputery mogą 
pośredniczyć w przesyłaniu informacji 


(poczta elektroniczna), umożliwiać ko- 
rzystanie ze wspólnych (kosztownych) 
urządzeń — na przykład ze stacji dy- 
sków o dużej pojemności, drukarki la- 
serowej. a także pracować na ogólno- 
dostępnej bazie danych. 

„Apetyt rośnie w miarę jedzenia" — 
skoro połączyliśmy maszyny w jednym 
budynku, powstaje pytanie czy nie mo- 
żna ich połączyć w ramach miasta, 
państwa, a może w skali świata? Ow- 
szem istnieje taka możliwość — wyko- 
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rzystując istniejącą sieć telefoniczną. 
Wystarczy bowiem dokupić do nasze- 
go komputera urządzenie — modem 
(w postaci karty lub wolno stojącego 
pudełka) i już nasz komputer można 
włączyć do gniazdka telefonicznego 
(por. „IKS" nr 6/88). Jeśli w tym czasie 
inny komputer podobnie dołączymy do 
sieci telefonicznej np. w Ciechocinku 
lub Słupsku, a nawet za oceanem w 
Pało Alto. komputery te mogą między 
sobą ..uciąć pogawędkę". 


Efektem owych „pogaduszek jest 
przekazywanie określonych informacji-, 
w postaci zarówno tekstów, jak i obra- 
zów (w formie cyfrowej, por. „IKS" 
Ó/88). Maszyna wyręcza nas zatem w 
rozmowie telefonicznej — samodziel- 
nie przesyłając tekst (wcześniej zapi- 
sany w pamięci). Nie prościej i taniej 
po prostu porozmawiać samemu, bez 
komputerów'? W czasie jednej sekundy 
rozmowy wypowiadamy przeciętnie 
słowa składające się z 1 0—20 liter. Na 
tomiast konwersacja komputerów 
przebiega znacznie sprawniej — od 
dziesiątek do bilionów znaków na se- 
kundę. (jedną sekundę!) W praktyce, 
na którą pozwala „taka sobie" sieć tele- 
foniczna, są to szybkości od 30 do 150 
znaków w czasie jednej sekundy W 
owych „bilionowych transmisjach" np. 
prfeez ocean — wykorzystywane są 
sputniki oraz specjalistyczny sprzęt, 
który gromadzi informacje w tak zwane 
pfcrcje (paczki), następnie przesyłane 
dp adresata z niewiarygodną szybkoś- 

T 

I Omawiana „komputerowa konwer- 
sacja" wymaga oczywiście odpowied- 
niego oprogramowania, które realizuje 
najprzeróżniejsze funkcje. Na przykład 
nocą, gdy jest mniejsza opłata za roz- 
mowy telefoniczne, komputery łączą 
się (samodzielnie) między sobą i roz- 
poczynają „wielkie gadanie", czyli prze- 
syłanie całej korespondencji między 
firmami, także między prywatnymi 
użytkownikami komputerów domo- 
wych. 


W eksploatowanych u nas w kraju. 
PC-tach dosyć często wykorzystywany 
jest komunikacyjny program PRO- 
COMM. Realizuje on szereg bardzo 
użytecznych funkcji, które związane są 
z czynnościami użytkownika wykorzy- 
stującego łączność komputerową na 
przykład w sieci FIDO. Kilka razy mia- 
łem okazję sprawdzić tę możliwość łą- 
cząc się z redakcyjnym komputerem 
miesięcznika KOMPUTER pracującym 
właśnie w owej sieci 


Po uruchomieniu programu PRO- 
COMM. na ekranie ukazuje się bogate 
MENU ę 


Wybierając na przykład pierwszą po- 
zycję: „Dialing Directory" (przez jedno- 
czesne wciśnięcie dwóch klawiszy: 


ALT i Dfma ekranie pojawia nam się 
kolejne MENU. tym razem w postaci 
spisu telefonów: 

Gdy usiłuję połączyć swój komputer 
z komputerem w COMERS FIDO. naci- 
skam tylko klawisz jedynki, resztą (to 
znaczy „wykręceniem numeru") zajmie 
się sam komputer. Po uzyskaniu połą- 
czenia mogę przesłać uprzednio przy- 
gotowaną korespondencję lub odebrać 
adresowane do mnie „elektroniczne li- 
sty" (Send files i Receive files). Oczy- 
wiście teraz nie uda mi się omówić 
wszystkich możliwości PROCOMMa 
(są bardzo ciekawe). Może innym ra- 
zem? Jednak mam nadzieję, że udało 
mi się zasygnalizować ogólną ideę 
funkcjonowania komputerowej łą- 
czności. 

Omówiony program, mimo pozorów 
swej uniwersalności, jest tylko narzę- 
dziem. Uzupełniając go o pewną auto- 
nomię, na przykład zdolność groma- 
dzenia i udostępniania, przez sieć tele- 
foniczną. innym komputerom (u nas w 
domu) wyników ligi piłkarskiej, notowań 
listy przebojów, rozkładu jazdy pocią- 
gów, repertuaru kin, teatrów, słowni- 
ków: wyrazów obcych, „polsko-obcoję- 
zycznych" i odwrotnie, itp., otwiera się 
przed nami nowa, niedostępna wcześ- 
niej. jakość korzystania z potrzebnych 
nam informacji. Nietrudno jest bowiem 
sobie, wyobrazić taki program kompu- 


terowy. który rozpoznaje nasze pytania. 
Na przykład w postaci: „słownik angiel- 
sko-polski, cinema?" Pytanie owo 


N O T A I ING DIRECTORY 


1- KOMERS FIDO 
2 f IDO- Maciek Kolio 
3- hcc olivetti qg 
4 POI Y r IDO 
5- LI NI FIDO 

7- Airtel TBBS London 

8- Marctel l ondon 
9 NNBBS London 

lo- Twighlight Phone London 

'«> R Revi«e 

R LD Codes 
roli * 

Home Top Pag* 

Modem command: ATDP 


Numbei 

194391 
0,03120982502 
0,031 79517575 
0,04415801690 
0,04416396992 
312242 
0,04412003439 
0,04413467150 
0,04414556607 
0,04416245338 


Baud P D S 
1200-N-8-1 
300-N-B-l 
300-N-8- 1 
1200-N-8-1 
1 200-N-8- 1 
1 200-N-8- 1 
300-N-8- 1 
300-N-8- 1 
300-N-8-1 
300-N-8- 1 


End Bottom Page ESC Exit 

LD Codes Activei 


UlUUlUUllUUlUliinilll AUTO DIALER 1 1 1 1 1 1 1 1 1 1 1 1 U 1 łt 1 1 1 1 1 1 1 1 1 1 1 1 1 


linia telefoniczna 



MAJOR FUNCTIONS 

Dialing Directory . Alt-D 
Automatic Redial... Alt-R 
Keyboard Macros ... Alt-M 
Modem Parameters .. Alt-P 
Translate Table ... Alt-W 

Edltor Alt-A 

Em lt Al t-X 

Most Modę Al t-Q 

Chat Modę Al t-0 

DOS Gateway Alt-F4 

1 Command Files .... Alt-F5 

' Redlsplay Alt-F6 


UTILITY FUNCTIONS 


FILE FUNCTIONS 


Kermit Server Cmd 
Change Directory 
Clear Screen .... 

Toggle Duplex . . . 

Hang Up Phone . . . 

El apsed Time .... 

Print On/Off Alt-L 

Set Colors Alt-Z 

Toggle CR-CR/LF .. Alt-F3 
Break Key i. Alt-F7 


Alt-K 

Alt-B 

Alt-C 

Alt-E 

Alt-H 

Alt-T 


View a File 
Screen Dump 
Log Toggle . 
Log Hołd . . . 


. PgUp * 
. PgDn ; 
Alt-F i 
Al t-V i 
Alt-G i 
Alt-Fl i 
A1Ł-F2 i 
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(cztery słowa) wysyłamy z naszego 
komputera do centrum, oczywiście te- 
lefonicznie. Tam jest ono analizowane 
Pierwsza część pytania: SŁOWNIK 
kieruje komputer do odpowiedniej ba- 
zy, która nazwana została SŁOWNIKI 
Analiza dalszej części pytania prowa 
dzi nas do podbazy — słownik angiel- 
sko-polski, Ostatecznie następuje wy- 
szukanie polskiego słowa związanego 
z hasłem „cinema". Podany przykład 
dotyczy bardzo skromnej bazy danych 
W praktyce centra komputerowe dy- 
sponują setkami baz danych. Jednym z 
lepszych tego typu źródeł informacji 
jest DIALOG. 

Sieć ta (z centrum w Pało Alto) bazu- 
je na komputerze tysiące razy „silniej- 
szym" od PC-ta. Przypuszczam, że jest 
to jeden z przedstawicieli rodziny 
CRAYa, który, krótko mówiąc, w czasie 
jednej sekundy zdolny jest wykonać mi- 
liardy operacji (por. „IKS" nr 2/89). Ta 
moc umożliwia jednoczesne korzysta- 
nie z owych pracowicie (i kosztownie) 
założonych i ciągle aktualizowanych 
baz danych, tysiącom użytkowników z 
całego świata — włączając Polskę. Na- 
leży zwrócić uwagę, że jest to sieć ko- 
mercyjna. Oznacza to. że za każdą od- 
powiedź należy płacić. W praktyce 
wygląda to następująco. Łączymy nasz 
komputer z tak zwanym węzłem w 
Londynie (wybierając odpowiedni nu- 
mer telefoniczny, najpierw kierunkowy 
0,044 itd.) W węźle sprawdzane jest 
nasze upoważnienie (hasło) i już mój 
komputer zostaje dołączony do kompu- 
tera w Pało Alto via Londyn (drutem) i 
via sputnik (eterem). Najdłużej trwa 
uzyskanie połączenia z Londynem... 


Pytania zadajemy stosując, tak zwa- 
ne deskryptory — słowa opisujące 
nasze pytanie. W praktyce nie wyczu- 
wa się ograniczenia co do zakresu sto- 
sowanych słów podczas zadawania 
DIALOGowi pytań, można po prostu 


używać słów języka codziennego. Od- 
bierane są one w Pało Alto, gdzie natych- 
miast przygotowywana jest odpo 
.viedź (oczywiście przez komputer). Na 
początku jest to liczba pozycji (odpo- 
wiedzi). które mogą stanowić odpo 
wiedź na zadane pytanie. Na przykład 
na temat: „młodzież, narkotyki i szkoła' 
iost 4000 pozycji. Dodajemy kolejne 
ograniczenie: „kobiety. 19 lat", uzysku 
-•my odpowiedź (natychmiast): 98 po- 
zycji. Polecamy wszystkie owe pozycje 
wydrukować w postaci: 

Tytuł, autor, nazwa pisma i rok wy 
tania, gdzie można zdobyć oryginał 
ięzyk, w jakim jest napisany, materiał 
źródłowy, typ dokumentu, streszczenie, 
deskryptory oraz wiele innych bar- 
dziej szczegółowych informacji. 

W zależności od naszej „kieszeni", 
można uzyskać wydruk natychmiast 
bardzo drogo) lub jest przesyłany 
pocztą (znacznie taniej). Po wybraniu, 
na podstawie streszczeń, szczególnie 
interesujących pozycji — tą samą dro- 
gą — prosimy o przesłanie ich kopii lub 
wypożyczenie oryginałów. 

DIALOG dysponuje ponad 150 mi- 
lionami pozycji, które poukładane są w 
300 bazach danych, plus kompletne 
teksty 450 pism i gazet łącznie z dzi- 
siejszym wydaniem. 

Korzystanie z DIALOGU, sprawia 
ogromne wrażenie — siedzę wygodmr 
w Warszawie, a tam gdzieś daleko za 
iceanem jakiś superkomputer natych 
miast wyszukuje niezbędne mi in- 
• >rmacje O dalszych szczegółach być 
noże napiszę przy innej okazji. 

Wróćmy „na ziemię", a dokładnie do 
analizy innych możliwości wykorzysta 


nia naszego PC-ta. Dotychczas omówi- 
łem (z konieczności bardzo ogólnie) 
trzy zastosowania — pisanie własnych 
programów, edytor tekstów i szeroko 
rozumianą łączność między kompute- 
rami, Wydaje mi się, że bardzo atrak- 


cyjnym narzędziem programowym są 
edytory obrazów. Komputer wspaniale 
ułatwia budowę ilustracji, czego przy- 
Kładem są załączone ryciny. Może wy- 
konane są one trochę nieudolnie — ale 
w bardzo krótkim czasie (1.5 godziny) i 
samemu! Wykorzystywałem do tego 
celu Paint Brusha, który jest bardzo 
prosty w użyciu. Na początku wyświet- 
la się nam na monitorze „pole pracy", 
'Konki (po lewej stronie ekranu) oraz 
leden wiersz bardzo bogatego MENU. 

Wspomniane ikony ukazują funkcje, 
które PAINT potrafi wykonać. Jest ich 
Kilkanaście, a załączona ilustracja uka- 
zuje cztery przykładowe 



Gdy „dotkniemy" kursorem, stero- 
wanym myszą lub klawiaturą, pierwszą 
Konę kursor staje się narzędziem do 
malowania — przesuwając nim po two- 
rzonym rysunku — funkcjonuje, jak 
‘arba w sprayu". Oczywiście kolory 
lub w wersji czarno-białej zamiast ko- 
orów — różne wzorki) można dowolnie 
dobierać. Podobnie funkcjonuje „wałek 
malarski", z tą różnicą, że wystarczy 
mm dotknąć zamkniętej powierzchni, a 
cała automatycznie pokrywa się wy- 
branym kolorem lub wzorkiem (np. 
dach ilustracji „Szkoły przyszłości"). 
Duża litera „T", to symbol wyboru moż- 
liwości pisania na budowanym rysun- 
ku. dostępnych jest kilka krojów pism i 
Kilkanaście wielkości) „Nożyczki" 
pozwalają wyciąć kawałek budowane- 
go obrazka i przenieść ten fragmencik 
w dowolne inne miejsce ekranu. W tym 
wypadku mysz zamienia się w czarną 
- redę, którą obrysowujemy wybrany do 
przeniesienia obraz i już można go 
przesunąć w inne miejsce ryciny. 

Opisałem zaledwie drobną część 
możliwości PAlNTa i podobnych edyto- 
rów obrazów, Zawierają one niemal 
wszystkie, niezbędne podczas rysowa- 
nia i malowania zdolności (poza wy- 
mienionymi: drukowanie, mazanie, 

przesuwanie, powiększanie — tak, by 
poprawić obraz z dokładnością do jed- 
nego piksela, zapisywanie na dysk) i 
wiele innych, 





1 MMMMMMMMMM MMMMM MMMMMMMMMMMMMMMMMMMMMMM MM MMMMM t 
i 5TATGRAPHICS Statistical Graphics Bystam t 
HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMNMMMMMM' 


Inne, adresowane do bardziej przy- 
gotowanych Czytelników, zastosowa- 
nia komputerów umożliwiają programy 
statystyczne. Jednym z bardziej efek- 
townych jest STATGRAF. Na jego 
przykładzie widać wiele elementów 
wspominanej wcześniej życzliwości 
komputerów. 

Tytułem wstępu do tego tematu — 
kilka słów o przykładowym przezna- 
czeniu tego typu programów. Ostatnio 
dosyć często dziennikarze TV, radia i 
prasy powołują się na tajemnicze wy- 
niki badań. Rzecz polega na tym, że 
badaczom stawiane jest na przykład 
pytanie: „czy średnia ze szkoły średniej 
ma wpływ na efekty studiowania?”. Do 
chwili, gdy na owo pytanie nie otrzy- 
mamy odpowiedzi w postaci wymier- 
nej oceny, nasze osądy w tej kwestii, to 
tylko domysły, intuicja. Pomocy poszu- 
kuje się właśnie w badaniach (repre- 
zentatywnych, to znaczy takich, w któ- 
rych badana liczba, tak zwana próba 
abiturientów — nie badamy oczywiści*' 
wszystkich maturzystów tylko losowo 
wybraną grupę, próbę — odzwierciedla 
interesujące nas cechy wszystkich abi- 
turientów z prawdopodobieństwem po 
pełnienia błędu np.: jeden raz na 100 
przypadków, dopuszczając błąd sza 
cunku ocen od +1 do —1). 

Badania są źródłem poszukiwanei 
(wymiernej i reprezentatywnej) oceny 
związku wyników nauki w szkole i na 
studiach. (Owa wymierność oznacza 
po prostu liczbę. Na przykład stwier 
dzenie, że na stadionie było dużo kibi 
ców jest przeciwieństwem wymiernei 
oceny, którą wyraża po prostu liczba 
kibiców, wynosiła ona 12 345 osóbi 
Wracając do poszukiwania wymiernei 
oceny zależności efektów studiowania 
od ocen szkolnych, należy stwierdzić 
że nie jest to takie proste, jak miało tc 
miejsce „na stadionie". Na początki, 
naszej pracy musimy zgromadzić ko 
lumny cyfr (uzyskanych od reprezenta 
tywnej liczby osób). Jedną kolumnę 
stanowią średnie wyniki ze szkoły, dru- 
gą natomiast średnie wyniki uzyskane 
na wyższej uczelni. 

Wróćmy do naszego komputera, abv 
cokolwiek można było liczyć, wcześniej 
musimy wprowadzić dane do pamięć 
maszyny. Zobaczmy, jaką pomoc ofert, 
je w tym wypadku STATGRAF? 

Przedstawione MENU Statgrafa 
(niestety w języku angielskim) jest 
wierzchołkiem przysłowiowej pływają 
cej góry (możliwości) lodowej. Wybie 
ramy DATA MANAGEMENT, przesu 
wając kursor na nazwę wybranej „u 
sługi”. W odpowiedzi na ekranie zostaie 
wyświetlone kolejne MENU: 

Wybieramy możliwość nr 2 i po kilku 
sekundach od uruchomienia programu 
możemy przystąpić do wpisywania da 
nych źródłowych (kolumn ocen). Pole 
ga to na pisaniu cyf r w określonych 


DATA HANDLING AND SYSTEM UTILITIES 

A. Dat* Management 

B. System Environment 

C. Report Writar and Graphics Replay 

D. Plotter Intarface 

PLOT T ING AND DESCRIPTIVE BTATISTICS 

E. Plotting Functions 

F. DascriptWa Mathods 

G. Estlmation and Taating 

H. Dl str i but i on Functiona 

I. Exploratory Data Analyaia 

ANOVA AND REGRESSION ANALYSIS 

J. Analyaia ot Var lanca 

K. Regreaaion Analyaia 


miejscach wyświetlanej przez program 

tabeli 

Przewidziano oczywiście nasz*' 
ewentualne błędy, które łatwo można 
poprawić. Kontynuując przykład 
wprowadzamy pary kolumn wyników 
ze szkół średnich i studiów od trzech 
grup badanych osób z różnych części 
kraju. LOGR1 oznacza wyniki ze szkoły 
średniej (LO) uzyskane od grupy nr 
1 (GR1 ). STGR1 — oznacza wyniki ze 
studiów (ST) tej samej grupy (GR1). 
Podobnie oznaczono pozostałe wyniki 
dla GR2 i GR3. 


TIME SER I ES PROCEDURES 

L. Forecasting 

M. Ouality Control 

N. Smoothing 

O. Time Sar i es Analysis 

ADUANCED PROCEDURES 

P. Categorical Data Analysis 

Q. Mul t ivariate Mathods 

R. Nonparametric Methods 

S. Sampling 

T. Esperimental Design 

MATHEMAT ICAL PROCEDURES 

U. Numer tcal Analysis 

U. Mathematical Functions 


Tak wprowadzone dane możemy 
zobaczyć w postaci graficznej. Wystar- 
czy z głównemu MENU wybrać odpo- 
wiednią „usługę” i natychmiast otrzy- 
mujemy, np.: 

Oczywiście form graficznej prezen- 
tacji informacji jest bardzo wiele 

Oglądając kolumny wprowadzonych 
ocen trudno jest oszacować wymierną 
wartość miary zależności między wyni- 
kami nauki uzyskanymi w szkole i na 
studiach. Przechodzimy zatem do rea 
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Manipulate Defined Vanables 
Ful 1 -Screen Data Editor 
Read Variable Definitions from SG F: 
l. Writa to ST ATGRAPH I CS Fila 
i. Import Data from ASCII Data File 
>. Export Data to ASCII Data Fila 
Import Data from DIF Fila 
I. Export Data to DIF Fila 

Import Lotus 1-2-3 Worksheet 
). Enport Lotus 1-2-3 Workshaat 
Recode Missing Values 


Data Editor 

Data Updatadi 02/16/89 

logrl stgrl logr2 stgr2 logr3 stgr3 
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zmienne (kolumny ocen) są całkowicie 
od siebie zależne (r — —1 oznacza, fe 
wzrost jednej zmiennej powoduje ma- 
lenie drugiej zmiennej, r = +1 — wzrost 
jednej zmiennej powoduje wzrost dru- 
giej). Wartość r = 0 oznacza całkowitą 
niezależność zmiennych. 

Obliczone zostały współczynniki ko- 
relacji między wszystkimi zmiennymi. 
Nas interesują zależności tylko między 
ocenami dla tych samych grup. Wyniki 
wskazują, że istnieje bardzo duża zale- 
żność między wynikami ze szkoły, a 
efektami studiowania dla grup nr 1 
(—0,88852). W wypadku grupy nr 2 za- 
chodzi sytuacja odwrotna — dodat- 
nia korelacja (r = 0,79682). Natomiast 
w grupie nr 3, powtarza się pierwsza 
prawidłowość (r = —0,80328), co 
oznacza — czym lepsze wyniki w szko- 
le — tym gorsze na studiach. Oczywiś- 
cie to tylko przykład! 

W naszych podstawach informatyki 
coraz więcej miejsca poświęcamy 
omawianiu problemów bardzo odleg- 
łych od informatyki (RAMów, dysków. 
DOSów i innych bajtów). Nie jest to 
przypadkowe. W ten bowiem sposób 
usiłowałem zwrócić uwagę, że kompu- 
tery powinny być traktowane przez nas 
jako bardzo przydatne narzędzia. Su- 
gestia ta nie wynika z „mody", ale z au- 
tentycznej uniwersalności sprzętu in- 
formatycznego. Ważne jest zatem 
byśmy byli świadomi możliwości za- 
przęgnięcia komputera do naszej pra- 
cy Zakres tego typu pomocy wzrasta 
niemal każdego dnia, osiąga nadspo- 
dziewanie wysoki poziom, czy aby nie 
za wysoki..., ale o tym podczas następ- 
nego spotkania. 

Włodzimierz GOGOŁEK 


ĆORRELATION MATRI X 


l.ogr 1 
1 oyr2 
l ogr 3 
stgr 1 
st.gr2 
»tgr3 


logr 1 
1 . OOOOO 
. OOOOO 

. 49388 
- . 88852 
-.19243 
-.66118 


logr 2 logr3 

. OOOOO . 49388 

1 . OOOOO . 06844 

. 06844 1 . OOOOO 

-.06131 -.52873 

. 79682 - . 09543 

-.27375 -.80328 


stgr 1 
-.88852 
-.06131 
- . 52873 
1 . OOOOO 
. OOOOO 
. 79309 


logr l 
logr 2 
logr 3 
stgr 1 
stgr2 
stgr3 


stgr3 
-.661 18 
-.27375 
- . 80328 
m —mo9 
-.09543 
1 . OOOOO 


lizacji naszego podstawowego celu. 
Polecamy komputerowi policzyć war- 
tość, konkretną liczbę, która odzwier- 
ciedla nam poszukiwaną zależność. 


Ilustracja rozkładu ocen w grupie L0GF2 


40.0 


[2 oceny=3 
E3 oceny=4 
0 oceny=5 


-.09543 
.00000 
1 . OOOOO 
-.09543 


Miar takich jest sporo, wybieramy jed- 
ną z nich — współczynnik korelacji „r". 
Jego wartość może wynosić od —1 do 
+1. Gdy r = —1 lub +1 analizowane 


li^kres częstotliwości 
ocen u grupie 


Czestotliuosc poszczególnych ocen 
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NOWE EDYTORY 
TEKSTU DLA 
C-64 i C-128 


Zastanawiałem się nad odpowiednim zakończeniem 
cyklu artykułów na temat edytorów tekstu. Przypadko- 
wo natknąłem się w czerwcowym numerze miesięcznika 
RUN z 1988 r. na artykuł Michaela Cavanaugha pt. „ The 
latest word " prezentującego najnowsze tego typu pro- 
gramy przeznaczone dla komputerów C-64 i C-128. 
Autor omówił w nim: PAPERCLIP III, FONTMASTER 128, 
WORDPRO, GEOWRITE, WORKSHOP 128, WRITE 
STUFF. Poniższy tekst jest obszernym omówieniem arty- 
kułu p. Cavanaugha i mam nadzieję, że będzie dobrym 
zakończeniem zamieszczonych we wcześniejszych nu- 
merach „IKS-a” artykułów na temat edytorów tekstu. 

PAPERCLIP III 

Jest to program o bardzo szerokich możliwościach, 
przeznaczony zarówno dla C-64 jak i C-128. Firma, 
która go opracowała tj. Electronic Arts zrezygnowała z 
zabezpieczenia programu przed kopiowaniem, co rów- 
nocześnie umożliwia łatwe przeniesienie go na dyskiet- 
kę 3 i 1/2 cala i użycie stacji dysków 1581. Przy zakupie 
programu otrzymuje się dwie dyskietki (dla C-64 i 
C-128). Każda dyskietka zawiera na jednej stronie edy- 
tor, a na drugiej słownik. Różnica między obydwiema 
wersjami programu polega na tym, że w, wersji dla 
C-128 występuje 80 kolumn oraz możliwa jest współ- 
praca z rozszerzeniem RAM. Rozszerzenie to wykorzysta- 
ne zostało przede wszystkim do sprawdzania po- 
prawności pisowni. PaperCIip III posiada wbudowany 
program telekomunikacyjny, rezydujący w pamięci i 
dzięki temu możliwe jest łatwe przechodzenie od pracy 
z edytorem do programu telekomunikacyjnego (np. 
wysłanie napisanego tekstu do innego komputera) i 
odwrotnie. 

Dokument tworzony za pomocą tego programu 
formatowany jest po jego napisaniu za pomocą komend 
umieszczonych w tekście. 

Gotowy tekst z widocznym efektem wszystkich ko- 
mend formatujących (w tym również odległości między 
wierszami) można obejrzeć na ekranie monitora. Do wad 
programu można zaliczyć pewne ograniczenia w prze- 
suwaniu kolumn (program został raczej zaprojektowany 
do manipulowania tablicami i liczbami niż tekstem) oraz 
mały słownik — tylko 40000 słów — z tym, że może być 
on rozszerzany. 

FONTMASTER 128 

Fontmaster 128, opracowany przez firmę Xetec jest 
częściowo edytorem tekstu, a częściowo programem ty- 
pu DTP (Desktop Publisher) bardzo łatwym w użyciu. 
Program może współpracować z ponad 100 rodzajami 
drukarek i 20 rodzajami interfejsów, jak również możliwe 
jest łatwe przystosowanie go do pracy z innymi drukar- 
kami i interfejsami niż wymienione w programie. Głów- 
ne komendy programu wyświetlane są w górnej części 
ekranu i w zasadzie to wystarcza do szybkiego nauczenia 


się pisania i obróbki tekstu. Fontmaster 128 nie jest za- 
bezpieczony przez kopiowaniem, ale wymaga zastoso- 
wania specjalnego przyłącza (dongle) w celu umie- 
szczenia napisanego tekstu na dyskietce lub jego wy- 
drukowania. Czas ładowania programu do pamięci kom- 
putera wynosi 33 sekundy, a przy zastosowaniu stacji 
1581 (3 1/2 cala) spada do 20 sekund. 

Z programem współpracuje słownik o zawartości 
100000 słów, nazwany Spell-Master 128, który może być 
załadowany do rozszerzenia RAM (1700 lub 1750). Istot- 
ną zaletą programu są jego możliwości graficzne. Zawie- 
ra on ponad 45 różnych rodzajów krojów pisma, w tym 
również takie jak np. rosyjskie, greckie i arabskie. W 
tekście może być umieszczana grafika wykonana za po- 
mocą niektórych innych programów np. Print Shop. Do 
wad edytora należy zaliczyć brak możliwości łączenia 
plików, co ogranicza rozmiar pojedynczego pliku do ok. 
64 K (ok. 30 stron tekstu) i brak możliwości formatowania 
tekstu na ekranie. Istnieje co prawda możliwość prze- 
glądania napisanego tekstu na ekranie z uwzględnie- 
niem jego graficznej formy, ale widoczne są jedynie 53 
kolumny, co wymaga poziomego przesuwania tekstu. 
Niemożliwe jest także przeglądanie tekstu do tyłu. 

WORDPRO 

Opracowany przez firmę Spinnaker Software program 
nie zawiera żadnych większych rewelacji, może z wyjąt- 
kiem dużego słownika i wydaje się pewnym powrotem 
do tego co ukazało się na rynku edytorów tekstu dwa lata 
wcześniej. 

WordPro również nie jest zabezpieczony, przed ko- 
piowaniem wymaga jednak stosowania Turbo Load i Sa- 
ve (cartridge) w celu załadowania go do pamięci kompu- 
tera. Uniemożliwia to z kolei korzystanie m.in. z roz- 
szerzenia RAM. 

Program jest dość skomplikowany, a nawet czasami nie- 
potrzebnie zagmatwany. Trudna jest np. zmiana koloru 
tła, czy określenie rodzaju używanej drukarki. 

Program ładuje się do pamięci dość szybko, bo w ciągu 
ok. 20 sekund. Przeznaczony jest dla C-64 i C-128, z 
tym, że C-128 pracuje w trybie C-64, a stacja dysków 
1571 w trybie stacji 1541. Program nie rozpoznaje stacji 
1581. Edytor posiada jednak pewne zalety, do których 
należy zaliczyć: 

a) możliwość druku dwustronnego z automatyczną 
numeracją stron (najpierw drukowane są strony niepa- 
rzyste, a po odwróceniu papieru strony parzyste), 

b) słownik o zawartości 100 000 słów. 

GEOWRITE WORKSHOP 128 

GeoWrite Workshop (prod. Berkeley Softworks) jest 
80-kolumnowym edytorem typu WYSIWYG (what 
you see is what you get), co oznacza, że to co widzimy 
na ekranie jest zgodne z tym co otrzymamy po przelaniu 
na papier. Program ten współpracuje z programem 
GEOS 128. 

Główną częścią programu jest GeoWrite 2.1, rozsze- 
rzenie edytora zawartego w Geosie 128. Dzięki temu 
rozszerzeniu możliwe jest formatowanie pojedynczych 
paragrafów, dowolne formatowanie tekstu, ustawianie 
odstępu między wierszami, drukowanie w stopce i na- 
główku oraz operacje poszukiwania i zastępowania 
fragmentów tekstu. 

Edytor ten posiada również takie możliwości jak: 

— umieszczanie danych w napisanym tekście („Beo- 
Merge"), 

— współpraca z drukarką laserową „Bloeaser”, co za- 
pewnia znakomitą jakość druku, 


— współpraca z programem GeoPaint i GeoWrite 
(umieszczanie tekstu i grafiki), 

— umieszczanie danych numerycznych uzyskanych 
za pomocą GeoDex, GeoFile i GeoCalc, 

— umieszczanie w tekście za pomocą programu Text 
Grabber dokumentów napisanych za pomocą Fleet 
System. 

4. WordWriter 128, PaperCIip II i innych edytorów, 

— współpraca z GeoSpell (słownik o zawartości 28000 
słów, z możliwością rozszerzenia). 

Sprawdzanie poprawności pisowni przebiega jednak 
wolno (pięć stron tekstu w około 10 minut). 

Workshop zawiera trzy opcje druku — wysokiej jakoś- 
ci (high quality), druk NLO i druk normalny. 

Pomimo że Geowrite Workshop posiada podstawowe 
możliwości edytora tekstu, to jednak najrozsądniejszym 
rozwiązaniem wydaje się używanie np. PaperCIip III do 
pisania tekstu, a następnie Geowrite Workshop w ce- 
lu nadania mu odpowiedniej szaty graficznej. 

WRITE STUFF 


Write Stuff dostępny w firmie Busy Bee Software jest 
jednym z najbardziej interesujących, a zarazem najtań- 
szych edytorów. Przeznaczony jest dla C-64, współpra- 
cuje z dwiema stacjami dysków i rozszerzeniami RAM, 
umożliwia drukowanie w dwóch kolumnach, a nawet ge- 
neruje mowę. 

Unikalny jest sposób dystrybucji programu. Kupujący 
może sam zostać jego dystrybutorem, co znacznie obni- 
ża cenę programu (z 24.95 do 11.25, a nawet do 8 — bez 
podręcznika i opisu klawiatury). 

Do podstawowych możliwości, a zarazem zalet edyto- 
ra należy zaliczyć. 

— możliwość przechowywania dokumentów na dy- 
skietce w postaci plików programowych lub sekwencyj- 
nych, 

— możliwość używania skrótów (dwie litery zastępujące 
słowo lub kilka słów), 

— przełączanie klawiatury z typu Owerty na Dvorak i 
odwrotnie, 

— możliwość ukrycia tekstu (konieczna jest znajomość 
hasła w celu jego załadowania i odczytania), 

— możliwość jednoczesnego przechowywania w pa- 
mięci dwóch dokumentów, 

— współpracę z rozszerzeniem RAM (konieczne użycie 
programu RAMDOS), 

— współpracę z programem Superbase (baza danych). 
Program zawiera również 57 stron instrukcji obsługi, 

także przykłady tekstu. 

Druga strona dyskietki z programem zawiera BB Tal- 
ker, syntezator mowy, którego podstawową częścią jest 
znany również w Polsce program o nazwie S.A.M. 

BB Talker zawiera wiele znanych piosenek i rytmów, 
które mogą być odczytane i słuchane. Można również 
komponować własne utwory. Program ten doskonale 
może służyć np. do nauczania alfabetu w przedszkolu. 

Write Staff nie zawiera słownika, ale poprawność pi- 
sowni utworzonych dokumentów może być sprawdzona 
za pomocą innych programów. 

Jeszcze w roku 1988 powinna ukazać się wersja pro- 
gramu Write Staff dla C-128. Planuje się także unowo- 
cześnienie opisanej wyżej wersji dla C-64, a także dla 
C-128. 
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W tablicy nr 1 zestawiono podstawowe możliwości omówio- 
nych w artykule programów. 


Tablica nr 1. 
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1 
2 
8 

Komputer 

C-64 

C-128 

C-64 

C-64 

C-128 

C-128 

Zabezpieczenie 
przed kopiowa- 
niem 

_ 

_ 

-(1) 



_ 

-0) 

Słownik 

+ 

+ 

+ 

-<2) 

-(2) 

+ 

Formatowanie na 
ekranie 

- 

- 

- 

- 

+ 

- 

Długość tekstu 
(stron) 

2,5 

7,5 

4,5 

10 

62 

30 

Łączenie plików 

+ 

+ 

+ 

+ 

- 

- 

Przeglądanie 
80 kol. 

- 

+ 

+ 

- 

- 

+ (3) 

Czas sprawdzenia 
poprawności pi- 
sowni (4) (w sek.) 

210 

18 

105 

_ 

660 

49 

Integracja z bazą 
danych progra- 
mem kalkulacyj- 
nym 



+ 


-I- 


Praca z wieloma 
stacjami dysków 

+ 

+ 

+ 

+ 

+ 

+ 

Praca ze stacją 
1581 

+ 

+ 

- 

- 

+ 

+ 

Praca z rozszerze- 
niem RAM 

- 

-1- 

- 

-1- 

+ 

+ 

Cena /$/ 

50 


40 

25 

70 

70 


Uwagi: 

1 — zabezpieczenie sprzętowe (dongle), 

2 — słownik dostępny w oddzielnym programie, 

3 — widoczne jest 12 wierszy x 58 kolumn, ale tekst może 

być przesuwany poziomo, 

4 — dla PaperCIip lii (C-64) długość sprawdzanego dokumen- 

tu wynosi około 700 słów, dla pozostałych programów 
około 2700 słów. 


Opracował: Tadeusz CISEK 




„SCROLLING” TEKSTU 

W DOWOLNYM TRYBIE GRAFICZNYM 


Często istnieje potrzeba efektownego opisania wyge- 
nerowanego przez program rysunku lub grafiki wytwo- 
rzonej za pomocą jednego z pakietów graficznych jak 
Koala Microilustrator, Design Master czy MicroPainter. 
Sądzę, że idealnym rozwiązaniem w takiej sytuacji jest 
umieszczenie wolno przesuwającego się tekstu pod lub 
nad rysunkiem. Takie rozwiązanie ma wiele zalet, a naj- 
ważniejszą wydaje się być prawie niczym nie ograniczo- 
na długość przesuwanych napisów. Pragnę również za- 
prezentować narzędzie, które uczyni realnym powyższy 
zamiar. 

Jest nim przedstawiona na wydruku 2 w liniach DATA 
procedura w kodzie maszynowym. Realizuje ona scrol- 
ling tekstu w dowolnym trybie graficznym dostępnym na 
komputerach ATARI 800XL i 130XE (tryby 3—11 i 14—15). 
Procedura może być wywoływana z programu w języku 
BASIC (komenda USR) oraz dołączana do programów 
pisanych w języku C lub PASCAL. Procedura po wywo- 
łaniu określa na podstawie przekazanych do niej argu- 
mentów miejsce pamięci ekranu, w którym utworzone 
ma być okno tekstowe, zawierające przesuwające się 
napisy. Dane z tej części pamięci ekranu kopiowane są 
przez procedurę w bezpieczne miejsce. Po wykonaniu 
scrollingu procedura umieszcza ponownie dane tworzą- 
ce obraz w miejscu, z którego zostały one skopiowane. 

Tworzone przez procedurę okno tekstowe ma wyso- 
kość ośmiu punktów odpowiadających wybranemu try- 
bowi graficznemu. Oznacza to, że wysokość okna tek- 
stowego waha się w granicach od 54 (dla CRAPHTOS 30) 
do 8 (dla GRAPHTOS 8) linii obrazu. Długość okna tek- 
stowego wyrażona jest liczbą bajtów i zawiera się w 
przedziale od 1 do 40. Liczba ta zależy również od wy- 
branego trybu graficznego. 

Przesuwany przez procedurę tekst nie może zawierać 
więcej niż 120 znaków. Dlatego w sytuacji, gdy istnieje 
potrzeba „przewijania” w oknie tekstowym większych 
partii tekstu, należy cały tekst podzielić na łańcuchy o 
długości nie przekraczającej 120 bajtów i wywołać proce- 
durę kilkakrotnie. W przewijanym łańcuchu nie mogą 
wystąpić znaki w inwersie. Procedura działa poprawnie 
również z niestandardowym generatorem znaków, za- 
tem przesuwane przez nią teksty mogą zawierać znaki 
zdefiniowane przez użytkownika o ile odpowiadające 
im kody ATASCII nie są większe od 127. 

Wydruk 1 przedstawia program demonstrujący dzia- 
łanie procedury i ilustrujący sposób jej wywoływania z 
programu napisanego w BASIC-u. Program zbudowany 
jest z dwóch modułów: MENU i SCROLL. Moduł MENU 
wczytuje parametry sterujące przesuwaniem tekstu oraz 
tekst, który będzie przesuwany. Moduł SCROLL, w zale- 
żności od wybranego trybu graficznego, bądź rysuje na 
ekranie prosty obraz graficzny, bądź wczytuje obraz gra- 
ficzny z taśmy lub z dysku. Druga opcja dostępna jest je- 
dynie po wybraniu trybu graficznego 8. 

Moduł MENU ustawia wartości siedmiu opcji, określa- 
jących parametry scrollingu: 

— opcja 1 definiuje tryb graficzny, przy zastosowaniu 
którego demonstrowany będzie scrolling. Dopuszczal- 
nymi wartościami są: 3 — 11 i 14 — 15; 

— opcja 2 definiuje szybkość, z jaką będzie przesu- 
wany tekst w oknie tekstowym. Szybkość określana jest 
liczbą z przedziału 0 — 15, przy czym zero odpowiada 
maksymalnej, a 15 minimalnej szybkości; 


— Opcje 3 i 4 definiują współrzędne górnego lewego 
wierzchołka okna tekstowego podane w postaci nume- 
rów kolumny i wiersza. Po wybraniu trybu graficznego 
moduł określa dopuszczalne w nim wartości numerów 
kolumn i wierszy. Znaczenie numerów wierszy i kolumn 
wyjaśnia dokładniej następujący przykład: gdy wybrany 
zostanie ósmy tryb graficzny, to odpowiadający mu nu- 
mer kolumny może zawierać się w przedziale 0—39. 
Wynika to stąd, że w każdym trybie graficznym znaki 
tekstu pobierane są z generatora znaków, w którym są 
zdefiniowane w matrycy o wymiarach 8x8 bitów. Ponie- 
waż w tym trybie graficznym w jednej linii dostępnych 
jest 320 pixeli i każdemu pixelowi odpowiada dokładnie 
jeden bit, stąd po podzieleniu tej liczby przez 8 otrzymu- 
jemy 40, co oznacza, że w jednej linii tego trybu można 
zmieścić 40 znaków ponumerowanych od 0 do 39. Ana- 
logicznie, gdy rozważymy tryb graficzny 3, w którym w 
jednej linii dostępnych jest 40 pixeli i uwzględnimy, że w 
tym trybie każdy pixel tworzony jest z dwóch bitów, za- 
tem szerokość znaku jest równa czterem pixelom, co 
umożliwia zapisanie 10 znaków w jednej linii tego trybu. 
Numer kolumny dla tego trybu musi mieścić się w prze- 
dziale 0 — 9. Analogiczne rozważania prowadzą do wnio- 
sku, że w trybie graficznym 8 dopuszczalny numer wier- 
sza musi być z przedziału 0 — 184, a w trybie graficznym 3 
— z przedziału 0 — 16. Nie wolno zapomnieć o tym, że 
umieszczenie okna tekstowego na samym dole ekranu 
wymaga zarezerwowania dla niego ośmiu linii odpowia- 
dających wybranemu trybowi graficznemu. Stąd ma- 
ksymalny numer wiersza w ósmym trybie graficznym jest 
równy 184 (192 — 8), a w trzecim — 16 (24 — 8). Pominięcie 
przedstawionych wyżej zasad przy określaniu położenia 
okna tekstowego na ekranie może spowodować, w naj- 
lepszym wypadku, pojawienie się okna tekstowego w 
innym niż zamierzono miejscu ekranu, a w wypadku 
najgorszym „załamanie” się programu z powodu błędu 
141 (Cursor out of rangę). 

— Opcja 5 definiuje długość okna tekstowego wyra- 
żoną w bajtach. W trybie graficznym o największej roz- 
dzielczości długość okna tekstowego nie może przekro- 
czyć 40 bajtów. W innymch trybach graficznych długość 
ta nie może przekroczyć zwiększonego o jeden, mak- 
symalnego dla wybranego trybu graficznego, numeru 
kolumny. 

— Opcja 6 definiuje rejestr koloru, którego zawartość 
użyta będzie do określenia koloru liter w przesuwanym 
tekście. W trybach dwukolorowych jak 4, 5, 8, czy 14 
opcja ta nie powoduje żadnych efektów, jednakże war- 
tość z zakresu 1 — 4 musi być podana. 

— Opcja 7 służy do wprowadzenia przesuwanego 
tekstu. Dodatkowo, gdy wybrany zostanie tryb graficzny 
8 istnieje możliwość wprowadzenia grafiki wykonanej w 
tym trybie z taśmy lub z dysku. 

Procedura realizująca przewijanie może być wykorzy- 
stana w prosty sposób w tworzonych programach. W 
tym celu należy podprogram przedstawiony na wydruku 
2 nagrać na taśmę lub dysk komendą LIST, a następnie 
dołączać go do tworzonego programu, w którym wyko- 
rzystana będzie ta procedura, powinna być instrukcja 
GOSUB 00000. Jest to bardzo ważne, gdyż podprogram 
ten oprócz inicjacji procedury wykonującej przewijanie 
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dokonuje również zmiany RAMTOP, zmniejszając o 16 
stron standardowy rozmiar dostępnej pamięci RAM. 
Procedura realizująca scrolling zajmuje prawie 8 stron 
pamięci, jej początek znajduje się na stronie 152. Proce- 
dura ta nie jest relokowalna. Pozostałe 8 stron wykorzy- 
stywane jest przez procedurę do skopiowania danych 
obrazu, gdy tworzone jest okno tekstowe. Procedura 
wykorzystuje ponadto 12 bajtów ze strony zerowej (ad- 
resy SCB-sD6). Zatem, jeśli program wywołujący proce- 
durę używa tych bajtów, to musi skopiować je w bezpie- 
czne miejsce, gdyż ich zawartość będzie przez procedu- 
rę zniszczona. 

Procedura realizująca scrolling może zwrócić do pro- 
gramu, z którego została wywołana sześć wartości, które 
sygnalizują błąd. Oznaczają one: 

0 — procedura scrollingu została zrealizowana po- 
prawnie, 

1 — do procedury przekazano złą liczbę argumentów, 

2 — długość tekstu, który ma być przesuwany przekra- 
cza 120 żaków; 

3 — długość zdefiniowanego okna tekstowego prze- 
kracza 40 znaków; 

4 — podany został zły numer rejestru koloru; 

5 — łańcuch tekstu, który ma być przesuwany zawiera 
nielegalny znak ćo kodzie ATASCII większym od 127; 

6 — tryb pracy ekranu nie jest trybem graficznym. 

na podstawie magazynu „ANTIC” 
opr. H. KRASUSKI 


Wydruk 1 

1 REM tMt*t#**:X*M*ttt***M#*M*MM*M 
**** 

2 REM * program demonstruje scrolling 

t 

3 REM t tekstu w dowolnym trybie graficz 
nym* 

4 REM M*MM*t**MMMMM*******$t;**** 

5 GOSUB 58000 

6 MENU=500 : SCR0LL= 1 000 

7 D I M TEXT* < 1 20 >’ , SPAĆ* < 35 ) , C 1 0* < 6 ) , F* < 20 
),F1*<20),GK*<7) 

8 CIO*<1)=CHR*<104):CIO$<2)*CHR*<162) ••ci 
0$<3>«CHR*<32) 

9 CI0*<4)="L" •• CI0$<5)*"V" •CI0$(6) :s CHR$<2 
28 > 

12 GOSUB MEMU 1 REM wybór parametrów steru 
j acy ch sc roili ng i em 
14 GOSUB SCROLL : REM scrolling 
16 GRAPHICS 0«IF WO0 THEN ? CHR*<253> ; " 
blad nr ";W;" wywołania, procedury rea. liz 
u jace J sc roi l ing " 

20 P0SITI0N 2. 10=? "chcesz spróbować jes 
zcze raz <T/N)" 

21 GLOSĘ # 1 = OPEN #1 , 4,0, "K' " : GET #1,ZNAK 

22 IF ZNRK=84 OR ZNAK* 1 16 THEN GOTO 12 
26 IF ZNAK®78 OR ZNAK* 110 THEN GRAPHICS 
0 •' END 

28 ? CHR*<253) GOTO 21 

490 REM **X*t***t*t*tttt*t*tttt*t**tt**t 
***** 

491 REM * modu.1 MENU - wczytuje Pa ramę t 
ry * 

492 REM * sterujące Przesuwem tekstu 
:* 

493 REM * nr trybu graficznego, wsplrzed 
ne % 


494 REM * okna tekstowego/ kolor., szybko 
sc * 

495 REM * przesuwu, oraz Przesuwany tekst 
* 

496 REM ************* ******************* 
***** 

500 ? CHR* < 1 25 > 

503 SPAĆ*®" 

505 LGR=13? : KPG= 1 49 ' RPD=21 ' PGR* 143 ' KPL*2 
5 : R.PP* 1 53 : LOR® 1 39 = POR® 1 40 
510 SETC0L0R 4, 7, 14 ■ SETCOLOR 2,?,14SETe 
OLOR 1,5,7 

515 POKE 752 , 1 : POKE 82,0 
520 P0SITI0N 0,0:? CHRf <LGR> , 

525 FOR 1=1 TO 38? CHR$<KPG); : NEXT I 
527 ? CHR*<PGR> 

530 FOR 1=1 TO 3 

535 P0SITI0N 0,1:? CHR$<KPL)' POSITION 39 
,1:? CHR$<KPP> 

540 NEXT I 

545 POSITION 0,4= ° CHR$<LDR>; 

550 FOR 1=1 TO 38:’ CHR$<KPD>; : NEXT I 
555 ? CHRif < POR > 

560 POSITION 2,1 ! ? " Program demonstru 
je scrol ling" 

565 POSITION 2 , 2 : ? " tekstu w dowoln 
ym trybie" 

570 POSITION 2,3:? •• graficz 

nym" 

585 POSITION 0,5 ; ? "parametry sterujące 
przesuwem tekstu" 

630 POKE 752,0 

635 TRAP 635 'POSITION 3,7'? SPAĆ*' POS ITI 
ON 3,7'? "Tryb graficzny 3-11 i 14-15 
INPUT #16, TRYBGR 

640 IF TRYBGR <3 OR TRYBGR) 15 THEN ? CHRf 
<253) GOTO 635 

642 IF TRYBGR® 12 OR TRYBGR® 1 3 THEN ? CHR 
$< 253) 'GOTO 635 

645 TRAP 645 'POSITION 3,8 ? SPAĆ* ROSI TI 
ON 3,8'? "szybkosc Przesuwu <0-15) 

INPUT #16, SZYBP 

650 IF SZYBP <0 OR SZYBP) 16 THEN ? CHR* <2 
53) 'GOTO 645 

655 IF TRYBGR® 3 THEN LK=40 •• LW=24 • GK*=" 1 1 
" 'MLK*9MLW*16 

660 IF TRYBGR=4 THEN LK«80 ' LW*48 ' GK*= "11 
" MLK>9 ' MLW=40 

662 IF TRYBGR*5 THEN LK=80 = LW=48 = GKf*" 1 1 
" :MLK=f9'MLW*40 

665 IF TRYBGR=6 THEN LK*160 LW=96 ' GK*®" 1 
1" 'MLK*19:MLW*88 

667 IF TRYBGR® 7 THEN LK=160 = LW=96 • GK$=" 1 
2" MLK®39 ' MLW=88 

670 IF TRYBGR=8 THEN LK*320 « LW*192 ' GK*=" 
2" : MLK=39 ; MLW® 1 84 

675 IF TRY6GR=9 THEN LK=80'LW®192 GK*="3 
, 500 17"' MLTc=39 MLW* 1 84 

677 IF TRYBGR® 10 THEN LK®80 ' LW= 1 92 ' GK$= " 
300608" ' MLK®39 ' MLW® 184 

678 IF TRYBGR* 11 THEN LK»60 ' LW*192 = GK*=" 
3006 17": MLK=39 : MLW® 1 84 

680 IF TRYBGR* 14 THEN LK=160 = LW=192 » GK*= 
"11" :MLK=19'MLW=184 

682 IF TRYBGR® 15 THEN LK=160 * LW=192 ' GK*= 
"12"' MLK=39 ' MLW® 1 84 

685 POSITION 3,9 ? "współrzędne okna tek 
stoweso" 

690 TRAP 690 ' POS I T I uN 4,10: ? SPAĆ* = POS I T 
I ON 4 , 1 0 : ? " n r k o l umny 0- " , MLR ' POS I T I ON 
■ 32, 10'? ; INPUT #16, KOL 
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635 IF KOL <0 OR KOL>MLK THEN ? CHR$<253> 
GOTO 630 

700 TRRP 700 = FOS I T I OH 4,11=? SPAĆ* = FOS I T 
I ON 4.11=? " n r w i e r sza 8- " i ML W = FOS I T I OH 
32,11 = ? " " ; = INPIJT #16, WIER 
705 IF WIER<0 OR WIER>MLW THEN ? CHR$<25 

3) -GOTO 708 

7 1 0 TRRP 7 1 0 FOS I T I ON 3 ,12 = ? SPAĆ* = POS I T 
I ON 3 ,12 = ? "dl u. a oso okna tekst. 1 - " , MLK + 
1 

7 1 1 POS I T I ON 32,12=? " " ; = I NPUT #16, DŁUG 
715 IF DŁUG < 1 OR DLUG> MLK+ 1 THEN ? CHR*< 


253)= GOTO 710 

720 TRRP 720 = POS I T I ON 3,13=^ SPAĆ* POS IT 
ION 3,13=? "kolory 1-4 
"j - INPUT #16, COL 

725 IF COL < 1 OR C0L>4 THEN ? CHR*<253)=G 
OTO 720 

738 TRRP 0 = POSITION 3,14 = ? "tekst, który 
bedz i e ' p r zew i j any ' " * I NPUT #16, TEXT S 
735 IF TRYBGROS THEN JESTGR=8 = RETURN 
740 POSITION 2,18 = ? "Wybierz rodzaj a raf 
iki" 

745 POSITION 2,19=? CHR* <177); "-pros ramo 
wa " ;CHR*<178); "- Lad. z taśmy lub dysku 

750 CL.0SE #1 = OPEN #1 , 4, 0, "K = " = GET #l,RO = 
CLOSE #1 

755 IF R0O49 AND ROO50 THEN ? CHR* <253 
) = GOTO 745 

757 IF R0=49 THEN JESTGR=8 = RETURN 

760 TRRP 760 = POSITION 2,28 = ? "Nazwa, zbio 
ru = " .; = I NPUT # 1 6 , F* = TRRP 48008 

761 IF F*<2, 2)=" = " OR F*<3,3)="=" THEN 7 
70 

765 F1*=F*=F*="D1 = " F*<4)=F1* 

770 JESTGR=1 = RETURN 

990 REM ******************************** 
******* 

391 REM * MODIJL SCROLL - realizuje scrol 
l i na * 

992 REM * tekstu w oparciu, o parametry 
* 

933 REM * wczytane p rzez moduł MENU 

* 

934 REM ******************************** 
******* 

1000 GRAPHICS TR YBGR+ 1 6 = R= 1 = I F JESTGR TH 
EN GOTO 1100 

1081 IF VRL<Gk$< 1,1) )=2 THEN SETCOLOR 1, 
0,14 = SETCOLOR 2,8,0 = COLOR 1 

1082 IF VAL<GK$<1, 1>)=3 THEN SETCOLOR 4, 
VRL < GK* < 2 , 3 ) ) , VRL < GK$ <4,4 ) ) = L I CZ*VAL < G K$ 
<5, 6)) =R=0 

1004 IF TRYBGROS THEN J=INT<LW/2> 

1006 IF TRYBGR> -3 THEN J*INT<LK/2) 

1018 FOR 1=0 TO J STEP 2 

1812 I F V AL < GK$ < 1 , 1 > ) = 1 OR VAL < GKS < 1 , 1 ) > 

=3 THEN COLOR R 

1820 PLOT 1,1= DRAW TO LK-l-I , I = DRRWTO LK- 
1 - 1 • LW- 1 - 1 = DRRWTO I , LW- 1 - 1 = DRRWTO I , I 
1024 IF VAL<Gk*a, 1))*1 THEN R=R-*-l IF H= 
4 THEN A=1 

1026 IF VRL<GK*<1,1)>*3 THEN R=R+1 = IF R= 
LICZ THEN A=0 
1038 NEXT I 

1035 FOR 1 = 1 TO 508 = NEXT I 

1840 W=USR< 389 1 2 , ADR < TEXT$ > , SZYBP, LENCTE 

XT* ) , KOL , W I ER , DŁUG , COL > 

1058 FOR 1=1 TO 508 NEXT I 
1855 RETURN 


1893 REM LĄDUJ GRAFIKĘ W 8 TRYBIE GRRFIC 
ZNYM 

1100 TRRP 1900= CLOSE #2= OPEN #2,4,0,F$=T 
ROP 40800 

1112 RE=PEEK < 88 > +PEEK < 89 ) *256 = SZP=PEEK < 1 
86) *256 = RMP=SZP-AE = SB=INT<RMP/256) = MB=RM 
P-SB*256 

1120 I0CB=864 = POKE IOCB+2,7 

1130 ROKE I OCB+4 , PEEK ( 88 ) = POKE I0CB+5,PE 

EKC89) 

1140 POKE IOCB+8, MB = POKE I0CB+9,SB 
1150 TRRP 1 308 = X=USR < ADR < C 1 0$ ) ) = CLOSE #2 
= TRRP 40800 
1160 GOTO 1035 

1900 TRRP 40008 GRAPHICS 0 = ? "BI ad nr ".; 
PEEK 1 ; 195) > " podczas czytania zbioru" ? F 

* 

1910 ? " Nac i sn i J dowo l ny k l aw i sz aby " = ? 

" u ruchom i c p roa ram ponown i e " 

1920 CLOSE #1 = OPEN #1 , 4, 0, "K = " = GET #1,X = 
GOTO 12 


Wydruk 2 

29950 REM ************************** 

29951 REM * PODPROGRAM INIT * 

29952 REM * wczytuje dane z linii * 

29953 REM * DATA, sprawdza ich pop-* 

29954 REM * rawnosc i inicjuje pod-* 

29955 REM * pros ram maszynowy, rea- * 
23956 REM * li zu.ja.cy scrol lina tek-* 

29957 REM * stu w trybie a raf icznym* 

29958 REM ************************** 
38000 BGN= 152= POKE 106, BGN-8 = GRAPHICS 0 
30005 ADRP=3891 1 

30010 PRINT CHR$< 125) = POSITION 5, 5 = PR I NT 
"Wczytywanie danych z linii DATfi" 

30011 POSITION 5,6= ? "Do wczytania 1028 
bajtów" 

30012 POSITION 10,10=? "Wczytano baitow= 

30013 SKG=8 = RESTORE 38600 
30015 FOR 1*0 TO 101 
30017 SKW=0 

30020 FOR J=1 TO 10 

30025 READ BAJT = SKW=SKW+BAJT= POKE ADRP+I 

*10+J, BAJT 

30027 POSITION 30,10=? I*18+J 
30030 NEXT J 

30035 READ BAJT = IF BAJT=SKW THEN GOTO 30 

050 

30040 POSITION 5,28=? "Popraw linie DATA 
n r = " i = ? 38600+ 1 = ? CHR$ < 253 > 

30045 POSITION 5,21=? "suma. kontr, wiers 
za "i =? SKW= POSITION 2, 1 

30046 LIST 30600+1 STOP 
30050 SKG*SKG+6AJT 
30052 NEXT I 

30055 READ BAJT = IF BAJTOSKG THEN POSITI 
ON 5,22 = ? "blad w liniach DATA" = ? CHR$-;2 

53) = STOP 

30060 POSITION 5,22=? "inicjacja OK. . . " = 
? CHRSC253) RETURN 

30600 DATA 184,201,007,240,006,170,169,8 
01,076,092, 1066 

30601 DATA 153, 104, 133,213, 104, 133,212, 1 
04, 104, 141, 1401 

30602 DATA 027,156,184,104,201,121,144,0 
07, 162,004, 1030 
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30603 DflTft 165,002,076-092.153,141,246,1 
55, 104, 104, 1242 

30604 DATA 141,248,155,104,104,141,247,1 
55, 104.104, 1503 

30605 OATS 201,041,144,007.162,001,169,0 
03,076,092,896 

30606 DATA 153,141,249,155,104,104,201,0 
05, 144,007, 1263 

30607 DATA 162,000,169,004,076,092,153,1 
41,251,155,1203 

30608 DATA 160,000,162,000,173,244,002,1 
33,208, 169, 1251 


30609 DATA 000,133,207,177,212,201,128,1 
44,007, 162, 1371 

30610 DATA 000,169,005,076,092,153,201,0 
32, 176,006,910 


96,176,003,1020 

30612 DATA 056,233, 

24.000. 240. 1502 

30613 DATA 016,165, 
07, 165,208, 1238 

30614 DATA 105,000, 
74,250,155,1675 

30615 DATA 230,207, 
07,157,033,1647 

30616 DATA 156,232, 
32,200,204,1743 

30617 DATA 246,155, 
65,088, 133, 1342 

30618 DATA 212,165, 
68, 185, 180, 1597 

30619 DATA 155,208, 
76,092, 153, 1028 

30620 DATA 141,252, 
55,173,247,1809 

30621 DATA 155,240, 
55,165,212,1599 

30622 DATA 024,109, 

13.105.000. 1366 

30623 DATA 133,213, 
36, 165,212,2037 

30624 DATA 024,109, 
03,165,213,1595 

30625 DATA 105,000, 
49, 155, 140, 1504 

30626 DATA 024,156, 
50, 155, 109, 1405 

30627 DATA 250,155, 
55,109,250,1792 

30628 DATA 155,141, 
69,001,133,1395 

30629 DATA 205, 169, 
72,249,155,1617 
38630 DATA 177,212, 
12, 136,016, 1417 

30631 DATA 245,202, 
09,250,155,1654 

30632 DATA 133,212, 
13,165,205,1544 

30633 DATA 024,109, 

06.105.000. 1127 

30634 DATA 133,206, 
53, 168,224, 1580 

30635 DATA 000,240, 

51.169.000. 1283 

30636 DATA 13.3,213, 
01,141,244, 1494 

30637 DATA 155,173, 
55, 141,253, 1827 

30638 DATA 155,165, 
33,203, 165, 1562 

30639 DATA 204,105, 


032.142.250.155.170.2 

207.024.105.008.133.2 

133.208.202.208.240. 1 

208.002.230.208.165.2 

165.208.157.033.156.2 

240.003.076.084. 152. 1 

089. 133.213. 165.087.1 

007. 162.000. 169.006.6 

155.041.254.141.250.1 

025. 162.000. 238.247. 1 

250.155.133.212.165.2 

232.236.247.155.208.2 

248.155.133.212.133.2 

133.213.133.204.172.2 

173.250.155.024.109.2 

109.250.155.109.250.1 

030.156.206.249.155.1 

158.133.206.162.008.1 

145.205. 169.000, 145,2 

240.052. 165.212.024. 1 

165.213. 105.000. 133.2 

024.156.133.205.165.2 

172.249.155.076.044.1 

005. 104. 104.202.208.2 

152. 133.212.096. 169.0 

252. 155.056.237.250. 1 
203,024, 109,250, 155, i 
000, 133,204,076, 166, 1 


53, 173,244, 1458 

30640 DATA 155, 208, 016, 160,000, 185,017, 1 
57, 145,203, 1246 

3064 1 DATA 200 , 204 ,030,156,208,245, 238 , 2 
44. 155,076, 1756 

30642 DATA 098,228,173,034,002,141,031,1 
56,173,035,1071 

30643 DATA 002,141,032,156,160,142,162,1 
53,169,006,1123 

30644 DATA 032,092,228,160,000,177,203,1 
53,017, 157, 1219 

30645 DATA 200,204,030,156,208,245,169,0 
17, 133,212, 1574 

30646 DATA 141,254,155,169,157,133,213,1 
41,255,155,1773 

30647 DATA 162,005,160,002,165,212,024,1 
09,250, 155, 1244 

30648 DATA 133,212,153,254,155,200,165,2 

13. 105.000. 1590 

30649 DATA 133,213,153,254,155,200,202,2 
08,231,169. 1918 

30650 DATA 033,133,212,169,156,133,213,1 

69.000. 141.1359 

30651 DATA 026,156,141,028,156,141,029,1 
56, 141,010,984 

30652 DATA 156,173,253,155,208,010,169,0 
03, 141,251,1519 

30653 DATA 155,169,000,141,028,156,173,2 
51, 155,201, 1429 

30654 DATA 004,208,008,169,001,141,251,1 
55, 141,028,1106 

30655 DATA 156,206,251,155,173,251,155,2 
40,011,201,1799 

30656 DATA 001,208,005,169,016,076,058,1 
54 > 1 69 • 032 > 888 

30657 DATA' 141, 25 1,155, 160, 000, 177, 212,1 

33.207.200. 1636 

30658 DATA 177,212,133,208,160,000,162,0 
11, 177,207, 1447 

30659 DATA 140,023,156,141,248,155,041,0 
15,024.109,1052 

30660 DATA 251,155,168,185,196,155,157,0 

11.156.202. 1636 

30661 DATA 173, 248, 155, 041 , 240, 074, 074, 0 
74,074,024, 1177 

30662 DATA 109,251,155,168,185,196,155,1 
57,011, 156, 1543 

30663 DATA 172,023,156,202,200,192,006,2 
08,205, 162, 1526 

30664 DATA 011,160,000,140,245,155,140,0 
25, 156, 185, 1217 

30665 DATA 254,155,133,214,200,140,023,1 
56, 185,254, 1714 

30666 DATA 155,133,215,024,189,011,156,0 
42, 157,011,1093 

30667 DATA 156,202,189,011,156,042,157,0 
11,156,172,1252 

30668 DATA 249,155,177,214,842,145,214,1 
36,016,248,1596 

30669 DATA 172,245,155,192,001,208,003,0 
76,195,154,1401 

30670 DATA 232,238,245,155,076,152,154,2 
38,023; 156, 1669 

30671 DATA 160,000,140,245,155,172,023,1 
56,202,238, 1491 

.30672 DATA 025,156,173,025,156,201,006,2 

08,176,169,1295 

30673 DATA 000,141,244,155,173,244,155,2 
40,251,173,1776 

30674 DATA 027,156,240,011,172.027,156,1 
62,255,202, 1408 
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30675 DATA 208, 253 , 136, 208, 243. 238, 026, 1 
56, 173,026, 1672 

30676 DATA 156,201,008,208,130,238,010,1 

56. 160.000. 1267 

30677 DATA 140,026,156,162,011,173,029,1 
56,208,062,1123 

30678 DATA 173,010,156,205,246,155,208,0 
03,076,074, 1306 

30679 DATA 155, 173, 028, 156, 240, 030, 173, 2 
51,155,208, 1569 

30680 DATA 008,169,016,141,251,155,076,0 
58, 155,201,1230 

30681 DATA 016,208,008,169,032,141,251,1 
55,076,058,1114 

30682 DATA 155,169,000,141,251,155,165,2 
12,024, 105, 1377 

30683 DATA 002,133,212,165,213,105,000,1 
33,213,076, 1252 

30684 DATA 061,154,173,029,156,205,024,1 
56,016,009.983 

30685 DATA 238,029,156,238,029,156,076,1 
27,154, 169, 1372 

30686 DATA 001,133,205,169,158,133,206,1 
65,203,056, 1429 

30687 DATA 237.250,155,133,203,165,204,2 

33.000. 133. 1713 

30688 DATA 204 ,162, 000 , 1 60 , ©00 , 1 77 , 205 , 1 
45,203,200, 1456 


30689 DATA 20 4,024,156,208,246,165,205,0 
24, 109,024, 1365 

30690 DATA 156,133,205,165,206,105,000,1 
33,206, 165, 1474 

30691 DATA 203,024,109,250,155,133,203,1 
65,204, 105, 1551 

30692 DATA 000 ,133, 204 ,160, 000 , 232 , 224 , 0 
08,208,211, 1380 

30693 DATA 169, 006, 174, 032, 156, 172, 031 , 1 
56,032,092, 1020 

30694 DATA 228,169,000,133,212,133,213,0 

96,000.000, 1184 

30695 DATA 000,011,010,021,020,041,040,0 
41,041,041,266 

30696 DATA 000, 000, 020, 041, 000,001,004*0 
05,016,017, 104 

30697 DATA 020,021,064,065,068,069,080,0 
81,084,885,637 

30698 DATA 000,002,008,010,032,034,040,0 
42, 128,130,426 

30699 DATA 136, 138, 160, 162, 168, 1 70, 000, 0 
03,012,015,964 

30700 DATA 048 ,051, 060 , 063 ,192,195, 204 , 2 
07,240,243, 1503 

30701 DATA 252,255,000,000,000,000,000,0 
00 . 000 , 000 , 507 

30702 DATA 137764 


Zaglądanie 

Pierwsze objawy choroby, to ból, krwa- 
wienie, podwyższona temperatura. Właś- 
nie temperatura jest tym wskaźnikiem, 
który w subtelny sposób informuje o 
zmianach. A trzeba wiedzieć, że wszystkie 
organizmy, tkanki, przedmioty, materiały 
mają różne temperatury. Emitują ciepło 
począwszy od — 27 3,15°C. Jest to tzw. 
temperatura zera bezwzględnego odkry- 
ta przez Kelwina. 

Powyżej niej, niewidoczne promienio- 
wanie podczerwone daje się zróżnicować. 
Służą temu detektory podczerwieni. 
Technika obserwacji i rejestracji obrazów 
w promieniowaniu cieplnym emitowanym 
przez dany obiekt nazywa się termografią. 
Wykorzystuje się ją w przemyśle, medycy- 
nie oraz wojsku. Tak przecież rozwinęły 
się noktowizory i inne przyrządy do pa- 
trzenia w nocy przez mgłę. Termografi- 
czne przyrządy rozpoznawcze mają detek- 
tory podczerwieni, umieszczone w ogni- 
skowej płaszczyźnie układu optycznego. 
Przetwarza on sygnał cieplny na sygnał 
elektryczny, a ten z kolei na obraz wi- 
dzialny. 

Powstała termolokacja, metoda okreś- 
lania położenia obiektów, a wykorzystują- 
ca naturalne promieniowanie energii 
elektromagnetycznej. Na przykład stacje 
termolokacyjne nie mają nadajników 
promieniowania, co uniemożliwia prze- 
ciwnikowi ich wykrycie. Na podstawie 
wskazań detektora podczas przeszukiwa- 
nia przestrzeni można określić kierunki, w 
których znajdują się „gorące” obiekty, ta- 
kie jak lecące samoloty, pociski rakietowe, 
a także odległości do nich. 

Obecnie satelity zwiadowcze, a także 
meteorologiczne wykorzystują termogra- 
fię do sporządzania map terenu, ujawnia- 
nia miejsc rozmieszczenia pocisków rakie- 


pod skórę 

towych, określania temperatury po- 
wierzchni ziemi, chmur. Tylko niedosko- 
nałości techniki należy przypisać, że nie 
stworzono jeszcze urządzeń wszystkowi- 
dzących i słyszących. Chociaż wizje przed- 
stawiane w filmach i opowiadaniach fanta- 
stycznych zaczynają się przybliżać. Dziś 
już z kosmosu można dokładnie rozpo- 
znawać małe przedmioty, nawet nocą, czy 
podsłuchiwać rozmowy telefoniczne. Do- 
tychczas zapotrzebowania militarne były, 
i chyba jeszcze trochę będą, motorem na- 
pędowym badań w tym kierunku. 

Ale w ślad za wojskowymi zastosowa- 
niami termografii poszły i inne. Powstały 
bardzo czułe kamery termowizyjne. Ujaw- 
niają one na przykład miejsca, w których 
ulatnia się ciepło, choćby w budowlach 
różnych typów, albo też wykrywają ogni- 
ska zapalne w kopalniach odkrywkowych, 
na zwałowiskach. 

Odrębne jednak zastosowanie termo- 
grafii znaleziono w medycynie. Czyli 
w dziedzinie sprzyjającej człowiekowi. Na 
początku lat sześćdziesiątych podjęto 
próby wykrywania stanów zapalnych na- 
czyń w węzłach chłonnych człowieka. Pó- 
źniej do określania złośliwości guzów no- 
wotworowych o różnej lokalizacji, ale naj- 
częściej niezbyt głęboko pod skórą. Za- 
częto określać żywotność miazgi zębów, 
a w ginekologii lokalizować położenie ło- 
żyska przedniego matki i płodu. 

Ale zbyt wysoki koszt urządzeń odstra- 
szał potencjalnych użytkowników. Mogli 
sobie na nie pozwolić naprawdę bogaci. 

I dziś nie są to urządzenia tanie. W Polsce 
jest ich zaledwie kilka. Stosujący je lekarze 
doceniają wyniki badań uzyskiwane tą 
drogą. 

W Dolnośląskim Centrum Diagnostyki 
dokończenie na str. 32 



Dzięki ciekłym kryształom można wykry- 
wać zmiany chorobowe w żyłach kończyn. 



Na zdjęciu wyraźnie widać, że jedna z 
kończyn jest cnora. 
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LHa\/ati (14) 


„ LABIRYNT ” 


W dzisiejszym odcinku mikrokomputerowych anegdot 
matematycznych chcę zaprezentować grę. której zasady 
zostały opisane poniżej. 

Plansza gry Jest. labirynt . który urzą- 
dzi 1 w swyM ogrodzie wate w atyk angielski 
Rouse Ba 11. 

Gra składa sie z dwóch etapów. 

U pierwsza* etapie nalezg wgjso z labi- 
ryntu w możliwie na jkrotszyn ozasie. 
Drugi etap polega na obejściu wszystkich 
dróg labiryntu z najmniejsza ilosoia 
miejsc dwukrotnie nawiedzanyoh. 

KLAWISZE STERUJACE:f,*,f,-» 

NACISNIJ DOWOLNY KLAWISZ 


Ro naciśnięciu dowolnego klawisza na ekranie mikro- 
komputera pojawi się labirynt, który jest planszą gry. 



W pierwszym etapie po wyjściu z labiryntu ukazuje się in- 
formacja o czasie wyjścia z labiryntu: 

WYJŚCIE Z LABIRYNTU TRWAŁO mMIN sSEK. 
SPRÓBUJESZ JESZCZE RAZ (T/N)? 

Naciskając klawisz ,.T". grający ponownie zaczyna dro- 
gę w etapie 1. Naciśnięcie klawisza „N" spowoduje rozpo- 
częcie etapu 2, w którym należy przejść cały labirynt z 
najmniejszą ilością dróg dwukrotnie przechodzonych. 
Również w tym etapie mierzony jest czas przejścia przez 
labirynt. Po wyjściu z labiryntu pojawi się komunikat: 

DROGA W LABIRYNCIE TRWAŁA mMIN sSEK. 

Jeżeli grający nie przeszedł wszystkich dróg labiryntu, 
zostanie o tym poinformowany: 

NIE PRZESZEDŁEŚ WSZYSTKICH DRÓG LABIRYNTU 
SPRÓBUJESZ JESZCZE RAZ (T/N)? 


Natomiast przejście całego labiryntu spowoduje poja- 
wienie się komunikatu: 

PRZESZEDŁEŚ WSZYSTKIE DROGI LABIRYNTU 
n % DRÓG DWUKROTNIE. 

Poniżej prezentujemy segment sterujący programem. 
(Instrukcje 10—750) 


10 ’ 

20 ’ Ekran intonacyjny 
30 ’ 

<0 MODĘ 1: INK 0,26: IMK 1,0: INK 2, 14: INK 3,6:PAPER 0: BOR DER 26: CLS 

30 DIN LAB (630,2) : lp*l : PEN 1 

60 PRINT 'Plansza gry jest labirynt, który urzi- * 

70 PRINT *dzil * suya ogrodzi* uateeatyk angielski ' 

BO PRINT 'Rouw Bali. 'SPRINT 

90 PRINT *6ra składa sit z drach etapo*. * 

100 PRINT *N piirusza etapie naltzy wyjsc z labi- ' 

110 PRINT 'ryntu a aozliaie najkrótszy* czasie. * 

120 PRINT 'Brugi etap polega na obejściu aszystkich ' 

130 PRINT'drog labiryntu z najaaiejsza ilością 
140 PRINT 'aiejsc drakrotnit nawiedzanych.' 

130 L0CATE l,21tPRINT 'KLANISZE STERUJĄCE: '; CHR* (240) { CHR4 (241 );',' ;CHR» (242 
CHR* ( 243) 

160 LOCATE 5, 23: PRINT ‘NACISNIJ D0N0LNY KLAWISZ* 

170 GOSUt 1080 
180 CLEAR IITUT 
190 a»*IIKEYI 

200 IF a*«" THEN GOTO 190 
210 ’ 

220 ' Segaent organizacyjny 
230 ’ 

240 I90DE 1 

230 NIHD0N £1, 14, 27, 11, 13: PAPER £1,1:PEN £1,0:CLS Cl 
260 L0CATE £1,2,2:PRINT £1,'E T A P '|LP* 

270 FOR t*l TO 2000: NEIT t 

280 N0DE 1 : WINDOM £1,3,33,20,23:PAPER £t,l:PEN £1,0 

290 GRAPHICS PEN 1:PL0T LAB( 1 , 1 ) , LAB ( 1 , 2) 

300 FOR 1*2 TO 621 

310 IF LAB(I,1)*0 ANO LAB(I,2)*0 THEN GOTO 340 

cd. listingu (10—750) 

320 DRANR LAB ( I , I ) ,LAB ( I , 2) 

330 NEIT I: GOTO 350 

340 I*I+I:P10T LAB (1,1), LAB (1,2): 6OT0 330 
350 C7AS s TINE 
360 kol *2 

370 IF lp*l THEN x*470:y*246:GOT0 390 
380 **110:y*392 

390 GRAPHICS PEN kol:PL0T «-4,y»4:DRANR B,0:PL0T x-4,y*2: DRANR 8,0:PL0T x-4,y:0R 
ANR 8,0:PL0T x-4,y-2:DRANR 8,0:PLOT «-4,y-4:DRANR B, 

0 

400 IF x< 100 THEN GOTO 470 
410 a»*INKEYI 

420 IF li*" THEN GOTO 410 

430 IF ASC(aS)<240 0R ASCIal)>243 THEN GOTO 410 

440 k*ASC(i«)-239 

430 ON k GOSIA 790,830,910,970 

460 GOTO 390 

470 CLEAR INPUT:CZ«(TIHE-CZAS>/300 
480 NI*INT(CZ/60)iSEK*CZ-(NIt60) 

490 IF lp=2 THEN GOTO 610 

300 aS £1 : L0CATE £1,2,2:PRINT £1,'NYJSCIE Z LABIRYNTU TRNALO ':PRINT £1,' 

* ; US I N6 *££';NI; :PRINT £1,' NIN *;USIN6 'CC*;SEK; :PR 
IHT £1,' SEK.' 

510 LOCATE 8, 23: PRINT 'NACISNIJ DONOLNY KLANISZ' 

520 CLEAR INPUT 
330 A»*INXEY$ 

340 IF A*»" THEN GOTO 330 

330 aS £1: LOCATE £1,2,2 iI»UT £1, 'SPRÓBUJESZ JESZCZE RAZ';T» 

560 IF TM'T' 0R Tl*'t* THEN H00E liGOTO 240 

370 IF Tł*V 0R TM'N* THEN GOTO 390 

580 GOTO 330 

390 IF LP*2 THEN END 

600 Ip*2:H0DE liGOTO 240 

610 bl*0:dr*0:pou*0 

620 CLS £1:L0CATE £1,2,2iPRINT £1, 'DROGA N LABIRYNCIE TRNALA ':PRINT £1,' 
jUSING *££*|NI|iPRlNT £1,' NIN 'jUSING ’££'fSEK|:PRI 
NT £1,' SEK.' 

630 LOCATE 12,23iPRINT 'PROSZĘ CZEKAC' 
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640 FOR k*106 TO 334 STEP 2 

650 FOR i-122 TO 390 STEP 2 

660 IF TEST (k, i )=0 THEN bl-l:6OT0 740 

670 IF TEST(k,i)>2 THEN pow*pow+l:60T0 690 

680 IF TESTU, i)«3 THEN dr*dr*l 

690 NEXT i 

700 NEIT k 

710 CLS £1: LOCATE £1,2,2:PRINT £1, 'PRZESZEDŁEŚ HSZYSTKIE DR06r:PRINT £1,‘ LABIR 
YNTU.*! 

720 POINT £1 , USING ■£££*; (po*tlOO)/(dr*pow)j:PRINT £l,'l DRÓG DNUKROTNIE"; 

730 60T0 510 

740 aS £1 iLOCHE £l,2,2iPRINT £1,‘NIE PRZESZEDŁEŚ NSZYSTKIOPiPRINT £1,' DR06 L 
AIIRYNTU.' 

730 GOTO 310 


W programie wykorzystuje się 2 podprogramy. 

1 . Podprogram do przesuwania kursora w labiryncie. 
(Instrukcje 760—1040) 


760 ’ 

770 ’ Podprograwy do przesuwania kursora • labiryncie 
780 ’ 

790 IF TESTU, y+6)«l DR TEST(x*2,y*6)«l OR TESTU-2,y*6)«l OR TESTU+4 
,y+6)*l OR TEST («-4,y*6)*l THEN RETURN 
800 xl*x-4:yl*y-4:al=8:a2*0 

810 IF TEST1* , y+6) *2 THEN kol a 3:6RAPHICS PEN 2:60SUB 1040:6010 840 
820 IF TEST (x,y*6>*3 THEN kol=2t6RAPHICS PEN 2t60SUB 1040:60TO 840 
830 kol=2:60SUB 1030 
840 y*y+2: RETURN 

850 IF TESTU, y-6)*l OR TESTtx*2,y-6)-l OR TEST(x-2,y-6)*l OR TESTU+4 
,y-6)*l OR TEST (x-4,y-6)*l THEN RETURN 
860 yl a yM:al*8:a2«0:xl*x-4 

870 IF TESTU, y-6)*3 THEN kol a 2: GRAPHICS PEN 2:GOSUB 1040:GOTO 900 
880 IF TESTU, y-6)*2 THEN koM3:6RAPHICS PEN 2-.GOSUB 1040:G0T0 900 
890 kol-2: 60SUB 1030 
900 y*y-2:RETURN 

910 IF TEST (x-6, y) *1 OR TESTU-6,y+2)*l OR TEST(x-6,y-2)*l OR TESTU -6 
,y*4)=l OR TEST (x-6, y-4) «1 THEN RETURN 
920 xl=x+4:yl*y-4:al=0:a2*8 

930 IF TEST U -6, y) *2 THEN kol *3: GRAPHICS PEN 2;60SUB 1040:60TO 960 
940 IF TEST (x-6, y) “3 THEN kol=2: GRAPHICS PEN 2s 60SUB 1040:60T0 960 
950 kol=2: 60SUB 1030 
960 x=x-2: RETURN 

970 IF TESTU*6,y)*l OR TESTU*6,y*2) a l OR TESTU*6,y-2)*l OR TESTU** 

,y*4Ml OR TEST U*6, y-4) *1 THEN RETURN 
980 x l*x-4s yl=y-4i al=0: a2=8 

990 IF TESTUł6,y)*2 THEN kol =3: GRAPHICS PEN 2iG0SUB 1040: GOTO 1020 

1000 IF TEST Cx*6,y)=3 THEN kol *2: GRAPHICS PEN 2:G0SUB 1040:60T0 1020 

1010 GOSUB 1030 

1020 x*x*2:RETURN 

1030 GRAPHICS PEN 3 

1040 PLOT xl,yl:DRANR a I,a2: RETURN 

2. Podprogram wczytywania danych do rysowania labiryn- 
tu. 

(Instrukcje 1050—1280) 


1050 ’ 

1060 'Podprograe wczytywania danych do rysowania labiryntu 
1070 ’ 

1080 RESTORE 1130 

1090 FOR Ml TO 621 

1100 READ LAB( I, 1) ,LAB( I, 2) 

1110 NEIT I 

1120 DATA 332,302,0,12,24,0,0,-12,0,12,24,0,0,-12,0,0 
1 130 DATA 104, 398, 432,0, 0, -276,-432, 0, 0, 264, 0, 0, 152, 386, 0,-36,24, 0, 0, -24, -48,0, 0 
, 48, 0, 0, 164, 398,0, -36, 12,0, 0,0,164,338, -24, 0, 0, 48, -2 

4,0,0,-84,36,0,0,0,116,314,24,0,0,0,104,290,36,0,0,0,152,326,0,-48,-36,0,0,-48,1 


cd. listingu (1050—1280) 


2.0. 0.0.176.386.0,-12,24,0,0,12,0,0 

1140 DATA 188,374,0,-48,0,0,212,398,0,-36,-12,0,0,0, 188,350,36,0,0,0,224,386,0,- 

96.0. 0.236.386.0,-60,12,0,0,0,248,398,0,-36,0,0,236, 

330.36.0. 0,-12,12,0,0,0,260,350,0,36,24,0,0,-12,72,0,0,-24,60,0,0,-12,24,0,0,12, 

72.0. 0.0.212.338,-12,0,0,-24,0,0 


1150 DATA 296,374,0,-48,-36,0,0,-72,12,0,0,-12,12,0,0,-12,-24,0,0,0,224,314,36,0 
,0,0,164,302,0,12,48,0,0,-36,36,0,0,0,248,302,-12,0, 

0,-48,0,0,224,242,0,12,24,0,0,-12,12,0,0,-48,-24,0,0,0,188,314,0,-60,12,0,0,-12, 

-72,0,0,24,0,0,132,242,0,24,12,0,0,24,12,0 

1160 DATA 0,12,0,0,200,302,0,-36,12,0,0,-36,36,0,0,0,272,314,36,0,0,48,36,0.0,-2 

4.60.0. 0.0.320.350.12.0.0,-36,60,0,0,-24,12,0,0,-12, 

72.0. 0.36,-12,0,0,12,0,0,308,314,12,0,0,-24,48,0,0,24,0,0,368,290,0,-48,12,0,0,0 
,368,278,24,0,0,-12,48,0,0,0 

1170 DATA 488,386,0,-84,36,0,0,-132,-12,0,0,-24,0,0,524,386,-24,0,0,-24,24,0,0,- 
24,-24,0,0,-12,0,0,536,374,-24,0,0,0,536,314,-48,0,0 

,0,512,314,0,12,0,0,300,302,0,-48,0,0,488,290,0,-48,24,0,0,48,0,0,500,242,0,-24, 

12.0. 0,-36,-48,0,0,12,-24,0,0,0 

1180 DATA 416,290,0,12,-12,0,0,24,48,0,0,12,24,0,0,-12,0,0,452,326,0,-24,0,0,440 
,290,0,12,24,0,0,-12,0,0,428,278,0,36,0,0,416,314,24 

,0,0,0,476,398,0,-36,0,0,464,350,0,36,-36,0,0,-24,-36,0,0,0,380,386,0,-36,0,0,39 

2.398.0, -24,24,0,0,0,308,302,0,-24,48,0 

1190 DATA 0,-48,36,0,0,24,-12,0,0,12,0,0,272,266,0,36,24,0,0,-36,36,0,0,-48,72,0 
,0,48,0,0,320,234,0,-48,96,0,0,48,36,0,0,36,0,-60,0, 

0,176,182,0,36,24,0,0,12,0,-48,108,0,0,24,-48,0,0,0,308,194,120,0,0,12,72,0,0,-1 

2.0. 0.132.218,-24,0,0,-24,24,0,0,-24,-24,0 

1200 DATA 0,-24,36,0,0,0,164,122,0,108,-24,0,48,0,0,0,116,194,0,-60,36,0,0,0,188 
,206,0,-36,36,0,0,-48,0,0,248,146,0,24,72,0,0,12,24, 

0,0,-12,24,0,0,12,0,-60,0,0,392,170,0,12,60,0,0,-12,12,0,0,-48,0,0,284,290,0,-36 

,12,0,0,-36,-24,0,48,0,0,0,476,170,12,0 

1210 DATA 0,-24,36,0,0,-12,0,0,476,134,0,12,24,0,0,-12,0,0,380,194,0,-60,24,0,0, 
0,440,182,0,-48,-12,0,24,0,0,0,416,218,48,0,0,48,12, 

0,0,0,476,194,0,60,12,0,0,0,284,134,24,0,0,24,-24,0,72,0,0,-24,0,0,236,182,0,-48 

,24,0,0,24,0,0,392,146,24,0,0,-24,0,24,12,0 

1220 DATA 0,24,0,0,176,134,0,24,36,0,-12,0,0,-24,12,0,0,0,224,182,0,24,24,0,0,0, 

212.194.0. 24.48.0.0.0.272.122.0.24.24.0.0.0.320.122, 

0,24,0,0,344,122,0,24,0,0,368,398,0,-36,0,0,404,386,24,0,0,-36,0,0,332,146,0,24, 

0,0,380,158,24,0,0,12,0,0,428,230,0,24,0,0 

1230 DATA 164,234,24,0,0,0,176,278,12,0,0,0,308,230,0,36,0,0,452,362,0,24,0,0,35 

6.326.0, -24,0,0,272,330,0,24,0,-12,12,0,0,0,296,398, 
0,-12,0,0,320,398,0,-12,0,0,344,398,0,-12,0,0,116,182,24,0,0,0,104,218,12,0,0,0, 

140.206.24.0. 0.0.260.326.0.12,-12,0,0,0 

1240 DATA 308,374,0,12,0,0,332,374,0,12,0,0,356,374,0,12,0,0,332,242,12,0,0,0,34 

4.230.12.0. 0.0.344.230.12.0.0.0.488.122.0.12.0.0.512 

,122,0,12,0,0,500,134,0,12,0,0,500,158,0,24,0,0,248,266,12,0,0,0,248,290,12,0,0. 

0,284,206,0,-12,12,0,0,0,308,338,12,0,0,0 

1250 DATA 344,326,0,12,24,0,0,-12,0,0,392,326,0,12,0,0,188,398,0,-12,0,0,320,326 
,12,0,0,0,332,302,0,12,0,0,344,290,0,12,0,0,380,314, 
0,12,0,0,140,234,0,24,0,0,188,122,0,24,0,0,212,146,12,0,0,0,116,206,12,0,0,0,236 
,230,0,12,0,0,272,182,0,12,0,0,272,138,0,12 

1260 DATA 0,0,416,158,0,24,0,0,524,138,12,0,0,0,312,230,12,0,0,0,488,218,12,0,0, 
0,476,230,12,0,0,0,488,182,0,12,0,0,440,218,0,24,0,0 

,440,138,12,0,0,0,432,146,12,0,0,0,464,158, 12,0,0,0,284,330,12,0,0,0,332,266,12. 
0,0,0,344,234,12,0,0,0,212,266,12,0 

1270 DATA 0,0, 336, 182,0, 12,0,0, 140, 146,0, 12,0,0, 132, 138,0, 12,0,0, 164, 170, 12,0,0, 
0, 164, 266, 12, 0,0,0 Ł 212, 326, 12, 0,0, 0,524, 326, 0,12, 0,0 
,440,350,0,24,0,0,380,290,12,0 
1280 RETURN 




PROCEDURA COPY 
DLA DRUKARKI 
D-1 00 (i podobnych) 


ZX Spectrum w połączeniu z ZX Interface umożliwia 
współpracę poprzez złącze RS z innymi urządzeniami. W 
moim wypadku urządzeniem tym jest drukarka mozaiko- 
wa D-1 00. 

Na poziomie znaków ASCII oba urządzenia znakomicie 
się „rozumieją". Jednak druk znaków graficznych lub ko- 
piowanie ekranu bez odpowiedniego oprogramowania jest 
niemożliwe. 

Przedstawiam program, który umożliwia wydrukowanie 
na drukarce aktualnego ekranu. Program zajmuje obszar 
pamięci od adresu 65000. Wykorzystuje tryb graficzny dru- 
karki. 

Ustalane parametry: POKE 65511, numer kanału 
transmisji 

POKE 65512, ilość nadruków linii 
POKE 65513, tabulacja pozioma 
rys. 

Program wykorzystuje kanał transmisji RS typu „b", czyli 
prostą transmisję bajtów (patrz linia 201 0). W tym wypadku 
wysłanie bajtu do drukarki z poziomu maszynowego pole- 
ga na wywołaniu restartu 10H (RST 1 0H) z wartością bajtu 
umieszczoną w akumulatorze. Prędkość transmisji ustala 
się rozkazem: FORMAT „b”; prędkość transmisji. W pro- 
gramie została przyjęta prędkość 4800 (patrz linia 2020). 

Program jest tak skonstruowany, że w prosty sposób 
można go przystosować do innego mechanizmu transmisji. 
Wystarczy bowiem rozkaz RST 1 0H zastąpić odpowiednią 
procedurą transmitującą bajty do drukarki. 

Uzupełnienie: 

Funkcje przełącznika K-200 drukarki do współpracy z 
RS: 

numer oznaczenie funkcja 

przełącznika 

1 ON — procedura XON/XOFF 

OFF — użycie linii LBRM 

2 A prędkość transmisji 

3 B prędkość transmisji 

4 C prędkość transmisji 

5 P OFF — z parzystością 

ON — bez parzystości 

6 P/N ON — parzystość nieparzysta 

OFF — parzystość parzysta 

7 , X liczba bitów stopu 

8 Y liczba bitów stopu 

prędkość transmisji: 

110 150 300 600 1200 2400 4800 9600 

A ON OFF ON OFF ON OFF ON OFF 

B ON ON OFF OFF ON ON OFF OFF 

C ON ON ON ON OFF OFF OFF OFF 

liczba bitów stopu 

1 bit 1 ,5 bitu 2 bity 
X OFF . ON OFF 

Y ON OFF OFF 


1 REM *********************** 

2 REM * * 

3 REM * ©1969 * 

4 REM * , * 

5 REM * Krzysztof Pozniak * 

6 REM * * 

7 REM * Procedura COPY dla * 

8 REM * drułt. ark. i D 100 * 

9 REM * * 

10 REM *********************** 

I00®0»wczy tanie procedury 

110 CLERR 64999 

120 RESTORE 9000 

130 LET a =65000 

140 FOR k =1 TO 21 

150 LET Z =1 : LET 11=0: LET 12=0 

160 FOR y = 1 TO 11 
170 RERD x: REM POKE a,X 
1S0 LET 11=1. 1 + Z*X: LET Z = -Z: LE 

T l 2= 1 2+X 

190 LET a =a +1 : NEXT y 

200 RERD lp 1 , lp2 
210 IF llolpl OR 1 2 < > I. p 2 THEN 
PRINT "blad W linii " ; 8990 + 10 * k : 
STOP 

220 NEXT y : NEXT k 
1000B2H»tworzenie rysunku 
1110 FOR 1=1 TO 20 

1120 LET r =31 - l 

1121 LET X =30 + 10* l 

1122 LET y=l*PI /20 

1123 LET y=80+INT 60* (SIN y*COS 
y +C05 (3*y ) ) 

1130 CIRCLE x , y , r 
1140 NE XT l 

2000HE@GOius ta len i e para met. COPY 
2010 CLERR 8: OPEN 84," b" 

2020 FORMRT b";4S00 
2030 POKE 65511,4: REM kanał 4 

2040 POKE 65512,1: REM 1 nadruk 

2050 POKE 65513,30: REM TR8 30 
3000*aaiMwyuio lanie procedury 
3010 RRNDGMIZE U5R 65000 

9000 DRTR 62,188,50,225,255,58,2 

3 1 . 255 , 205 , 1 , 22 , 98 , 1552 

9010 DRTR 62,15,215,62,27,215,62 

,49,215,62, 13, 191,997 

9020 DRTR 215,175,50,227,255,33, 


Efekt graficznego kopiowania ekranu przez drukarkę D-1 00 


Ustawienie przełączników umożliwiające współpracę 
drukarki z prezentowanym programem: 

1 —OFF, 2— ON. 3— OFF, 4-OFF, 5-ON, 6-ON, 
7 — OFF, 8— ON 

KRZYSZTOF POŹNIAK 
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207, 254-, 34, 22 1,255, 106, 1926 

9030 DRTR 58,225,255,71,62,187,5 

, 144 ,14,0, 205 , -28 , 1226 

9040 DRTR 176,34,235,42,221,255, 

115,35, 114,35,34,494, 1296 

9050 DRTR 221,255,58,227,255,60, 

50 , 227 , 255 , 56 , 225 , 237 , 1891 

9060 DRTR 255,61,50,225,255,254, 

12,40,7,58,227, 168,1444 

9070 DRTR 255,254,7,32,207,62,32 

, 50 , 226 , 255 , 33 , 107 , 14 13 

9080 DRTR 221,254,34,223,255,6,0 

, 62 , 255 ,24,2, 198 , 1336 

9090 DRTR 24,178,119,35,16,252,3 

3,207,254,53,227, -57, 1403 

9100 DRTR 255,50,228,255,135,61, 

95,22,0,25,34,334, 1160 

9110 DRTR 221,255,42,221,255,86, 


43 , 94,52,43,26, -60 , 1338 

9120 DRTR 34,221,255,6,8,42,223, 

255,7,48,2, -43, 1101 

9130 DRTR 203,190,203,14,35,16,2 

46,58, 223 , 255 ,61, 443 , 1509 

9140 DRTR 50,228,255,32,220,34,2 

23 , 255 , 58 , 226 , 255 , 286 , 1836 

9150 DRTR 61,50.226,255.32,190.5 

8 , 232 , 255 , 50 , 230 , 65 , 1639 

9160 DRTR 255,62,9,215,58,233,25 

5,215,6,0,33,-109,1341 

9170 DRTR 221,254,126,215,35,62. 

255,215,16,248,62,-279,1709 

9180 DRTR 13,215,58,230,255,61,5 

0 , 230 , 255 , 32 , 224 , 37 , 1623 

9190 DRTR 62,10,215,58,225,255,2 

54, 12,32, 136,62,379, 1321 

9200 DRTR 27,215,62,53,215,62,2, 

205,1 ,22,201, -49, 1065 


* r ?1989 * 

« Krzysztof Pozniak * 

* # 

* Procedura COPY na * 

* drukarkę D 100 i inne * 

« * 

#*##*#***#*#**«#**#**##*#****## 


ht equ 
lf equ 
cr equ 
max_y equ 
end_y equ 
»ax_x equ 
apinel equ 
open equ 
org 

start ld 
ld 
ld 

cali 

ld 

r st 

ld 

rst 

ld 

rst 

ld 

rst 

loopól xor 
ld 
ld 
ld 

loop2 ld 
ld 
ld 
dec 
sub 
ld 


9 

10 
13 
188 
12 
32 

22b0h 

1601h 

65000 

a r max_y 

(nuM.y) f a 

a, (kanał > 

open 

a » ®f h 

10h 

a » lbh 

10h 

a?31h 

10h 

a»cr 

10h 

a 

(echonb) ,a 
hl , onel in 
(adl ine) rhl 
ar (num.y) 
b ra 

ai»o«.y-l 

b 

b 

c»0 


cali apixel 
ex derhl 
ld hlr(adline) 
ld (hl ) r e 
inc hl 
ld (hl ) fd 
inc hl 

ld (adl ine) r hl 
ld ar (echonb) 
inc a 

ld (echonb) ra 


loopó 

loopl 


loop5 


loop3 


npoint 


ld ar (nuM_y) 
dec a 

ld (nu«_y) ra 
cp end_y 
jr zrendl 
ld ar (echonb) 
cp 7 

jr nzrloop2 
ld amax.x 
ld (nuM_x) ra 
ld hlrplotbt 
ld (echopl ) rhl 
ld b r 0 

ld a r 255 

jr loopl 
jr loopól 
ld (hl ) ra 
inc hl 
djnz loopl 
ld hlronelin 
ld ar (echonb) 
ld (Meenub)ra 
add ara 
dec a 
ld era 
ld d r 0 
add hlrde 
ld (adl ine) rhl 
ld hl r (adl ine) 

ld dr(hl) 

dec hl 

ld e r (hl ) 

inc (hl) 

dec hl 

ld ar (de) 

ld (adl ine) rhl 

ld b r 8 

ld hl r (echopl > 

frlc (hl) 

rlca 

jr ncrnpoint 
res 7 r (hl ) 
rrc (hl) 
inc hl 
djnz loop3 
ld ar (Meenub) 
dec a 

ld (meenub) ra 
jr nzrloopS 
ld (echopl)rhl 
ld ar (nu«.x) 


1 oop 8 


loop7 


dec a 

ld (nuM.x) ra 
jr nzrloopA 
ld ar (iledrk) 
ld (echoil ) ra 
ld arht 

rst 10 h 
ld ar (tab) 
rst 10 h 

ld b r 0 

ld hlrplotbt 
ld ar(hl) 
rst 10h 
inc hl 
ld ar 255 

rst 10h 
djnz loop7 
ld arcr 


rst 

ld 

dec 

ld 

J r 

ld 

rst 

ld 

cp 

jr 

ld 

rst 

ld 

rst 

ld 

cal 1 
ret 
i 

onelin ds 
platbt ds 
adline ds 
echopl ds 
nuM.y ds 
nuK-K ds 
echonb ds 
nennub ds 
countr ds 
echoil ds 
kanał db 
iledrk db 
tab db 

• end 


10h 

ar (echoil ) 
a 

(echoil ) ra 

nzrloop8 

arlf 

l#h 

ar (nue_y) 

end_y 

nzrloopó 

ar lbh 

10h 

a r 35h 

lth 

ar2 

opon 
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INFORMATYCZNY SŁOWNIK 
ANGIELSKO-POLSKI 

LEADLESS PLUGGABLE IC PACKAGE - mikroukład bez wypro- 
wadzeniowy wt Jadalny. 

LEAF NODE - wierzchołek drzewa nie posiadający pod- 
wi erzchoł ków, 

LEAPFROG TEST - test przeskokowy (program testujący 
pamięć) , 

LEARNING - uczenie (się). nauczanie. 

LEARNING AUTOMATOM — maszyna ucząca się. 

LEARNING MACHINĘ - patrz: LEARNING AUTOMATOM, 

LEARNING PROGRAM - program samouczący się, 

LEAST COMMON DENOMINATOR - najmniejszy wspólny mia- 
nowni k. 

LEAST COMMON MULTIPLE - najmniejsza wspólna wielo- 
krotność, 

LEAST FREOUENTLY USED RE MO V AL - usunięcie rzadko wy- 
korzystywanych <w systemie sterowania pamięcią wir- 
tualną alqorytm usuwania stronic pamięci, do których 
odwołania występowały na jrzadzie i > . 

LEAST RECENTLY USED REMOVAL - w systemie sterowania 
pamięcią wirtualna algorytm zastępowania segmentów 
pamięci, do których dawno nie było odwołania, 

LEAST -SI GNI FI CANT BIT - bit najmniej znaczący, 

LEAST -SI GNI FI CANT CHARACTER - znak o najniższej wa- 
dze, 

LEAST -SI GNI FI CANT DIGIT - cyfra najmniej znacząca 
(w liczbie), 

LEAVES - gałęzie końcowe drzewa (zapisy (rekordy) 
najniższego poziomu hierarchicznej bazy danych), 
LECTURE - wykład, 

LEFT CURLY BRACICET - lewy nawias klamrowy, 

LEFT JUSTIFIED - wyrównany po lewej stronie, 
LEFT-JUSTIFY - wyrównywać w lewo, 

LEFT-MOST - położony najbardziej na lewo,> 

LEFT-OVER CARD - karta- pozostawi ona omyłkowo w ma- 
szynie, 

LEFT PAREMTHESES - lewy nawias okrągły, 

LEFT-RECURSI VE GRAMMAR - gramatyka lewostronnie re- 
kursyjna, 

LEFT-SIDED - lewostronny, 

LEFTSIDE VALUE - 1. wyrażenie lewostronne (po lewej 
stronie operatora przyporządkowani a) . 2. adres 
zmiennej, 

LEFT SOUARE BRACICET - lewy nawias kwadratowy, 

LEG - gałąź (programu) , 

LEGAL - prawny, legalny, ustawowy, 

LEGAL COMMUNICATIONS - komunikacja właściwa, 

LEGALI ZATI ON - legalizacja. 

LEGALLY BINDING - prawnie obowiązujący, prawomocny. 
LEGAL PROTECTION - ochrona prawna, 

LEGEND - legenda (objaśnienia) , 

LEGIBILITY .- czytelność. 

LEGIBLE - czytelny, 

LEGITIMATE VALUE - wartość dopuszczalna, wartość 
uzasadniona, 

LEMHA OF AN ENTRY - wyraz hasłowy (np. pozycji słow- 
nika), t 

LEND - pożyczać, 

LENGTH - długość, 

LENGTHEN - wydłużać, przedłużać, 

LENGTH OVER ALL - długość całkowita, 

LEPORELLO - leporello (formularz ciągły złożony 
w harmonijkę), 

LESS OR EQUAL - mniejsze lub równe, 

LESS-THEN SIGN - znak mniejszości, "mniejsze od", 

LESS THEN - mniejsze od. 

LET ALONE - pomi nąć , opuść lć , 

LETTER - 1. litera. 2. czcionka, 2. list, 

L.ETTERING - liternictwo. 

LETTLR-rNUMERI C SHIFT - przełączanie 1 1 ter y /cyfry, 
przełączanie czcionek. 

LETTERPRESS PRINTING - druk t/pogr ał i czny. 
LETTER-QUALITY PRINTER - drukarka o wysokiej jakości 

druku, 

LETTERS/FIGURES SHIFT - patrz: LETTER.Ć NUMERI C SHIFT, 
LETTERS SHIFT - przełączanie na litery, 

LETTER STAMP - znacznik literowy. 

LEVEL - 1. poziom. 2. poziomy. 3. poziomować, wyrówny— 

LEVEL OF ABSTRACTION - poziom abstrakcji. 

L.EVEL OF CONF1DENCE - poziom ufności. 

LEVEL OF MAPPING - poziom odzwierciedlenia, poziom 

odwzorowania (bazy danych), 

LEVEL OF SI GNI FI CANCE - poziom znaczenia błędu, 
LEVEL-SENSITI VE - wrażliwy na poziom. 

LEVEL-TRIGGERED - uruchamiany poziomem (np. svqnału>, 
LEXER patrz: LEXICAL ANALYZER. 

LEXI CAL ANALYZER - analizator leksykalny, 

LEXI COGRAPHI CAL LABEL - etykieta leksykograf lczna. 


LEX I COGRAPHI C ORDER - porządcl 1 ekv!ogr at i czny, 

LEXI CON - leksykon, słowni), 

LFU - patrz: LEAST FREOUENTLY USED REMOVAL, 

LIABl.E TO FEE - podlegający opłacie. 

LIASON - połączenie, złącze, potencjalna możliwość 
stworzenia połączenia pomiędzy dwoma węzłami sieci 
transmisji danych, 

LIBERATED LINĘ - linia zwolniona, linia wydzielona. 
LIBR - patrz: 1. LIBRARIAN. 2. LIBRARY. 

LIBRARIAN - patrz: LIBRARY MAINTENANCE PROGRAM. 
LIBRARY - biblioteka. 

LIBRARY DI SC - dysk biblioteczny, 

LIBRARY FUNCTION - funkcja biblioteczna. 

LIBRARY MAINTENANCE PROGRAM - program zarządzający 
bibl loteką. 

LIBRARY OF TAPES - taśmoteka. 

LIBRARY PROGRAM - program biblioteczny. 

LIBRARY ROUTINE - patrz: LIBRARY PROGRAM. 

LIBRARY TABLE - spis biblioteki (programów) , 

LIC - patrz: LINEAR INTEGRATED CIRCUIT, 

LICENCE - pozwolenie, licencja. 

LICENCE HOLDER - posiadacz licencji, licencjobiorca, 
LICENCE PROGRAM - program licencyjny, 

LIFE - trwałość, okres trwania, żywotność, 

LIFE-PERIOD - trwałość, okres trwania, 

LIFE TEST - próba trwałości, 

LIFO - patrz: LAST-IN FIRST -OUT, 

LIFO OUEUE - organizacja stosu typu LIKO, 

LIFT RESTRICTIONS - znieść ograniczenia, 

LIGHT - 1. lekki, jasny, 2. zapalać, rozpalać, 

3. lampka sygnał izacyjna, 

LIGHT-ACTI VATED - działający pod wpływem światła, 
LIGHT BEAMS - promienie światła (przy odczycię foto- 
el ektrycznym) , 

LIGHT BUTTON - klawisz świetlny (znak lub napis na 
ekranie działający jako klawisz funkcyjny), 

LI GHT GUI DE CABLE - kabel światłowodowy, światłowód, 
LIGHT GUN - pióro świetlne, pisak świetlny, 

LIGHT LINĘ - lima cienka, 

LIGHT PEN - pióro świetlne, pisak świetlny, 

LIGHT PEN SENSI VI TY - wrażliwość na pióro świetlne, 
LIGHT PIPĘ - światłowód, 

LIKEN TO - przyrównywać (coś do czegoś), 

LIMIT - granica, limit, także: ograniczać, limitować, 
LIMITATION - ograniczenie, przedział, 

LIMITER - ogranicznik, 

LIMITING - graniczny, ograniczający, 

LI MI TI NG FACTOR - czynnik ograniczający, 

LIMITING MARK - znacznik ograniczający, 

LIMIT OF ERROR - granica błędu, przedział błędów, 
LIMIT OF I NTEGRATI ON - przedział Integracji, 

LIMIT VALUE - wartość graniczna, 

LINAGE — liczba wierszy (drukowanego tekstu), 

LINĘ - 1. linia, wiersz, (np. na ekranie, w progra- 
mie), 2. linia łączności, linia transmisji, 3. se- 
ria, 

LINĘ ADAPTER - adapter łącza, 

LI NE AL - patrz: LINEAR. 

LINEAR - liniowy, linearny, 

LINEAR-BOUNDED AUTOMATOM - automat z liniowo ograni- 
czoną pamięcią, 

LINEAR CODĘ - kod liniowy, 

LINEAR DI STRI BUT I ON - rozkład liniowy, 

LINEAR FUNCTION - przeksz tał ceni e liniowe. 

LINEAR INTEGRATED CIRCUIT - układ scalony liniowy. 
LINEARITY - liniowość. 

LINEAR PROGRAM - program liniowy, 

LINEAR PROGRAMMING - programowani e liniowe. 
LINEAR-PROGRAMMING LANGU AGE - język do zadań progra^- 
mowania liniowego. 

LINEAR SEARCH - przeszukiwanie liniowe, przeszukiwa- 
nie szeregowe, 

LINEAR-SELECTION MEMORY - pamięć o wybieraniu linio- 

L I NE AR TRANSFORMATION - przekształcenie liniowe. 
LINE-AT-A TIME PRINTER - drukarka wierszowa. 

LINĘ ATTRIBUTE - atrybut linii (w grafice komputero- 
wej - typ, szerokość i kolor linii), 

LINĘ BUFFER - patrz: LINĘ ADAPTER. 

LINE-BY-LINE SCANNING - wybieranie liniowe. 

LINĘ CLIPPING - patrz: CLIPPING. 

LINĘ COMMUNI CATI ON - transmisja jednopr zawodowa. 

LINĘ COMTROL BŁOCK - blok sterowania kanałem (dane 
zawierające parametry kanału transmisji danych, np. 
szybkość transmisji, sposób synchronizacji oraz. in- 
formacje o stanie bieżącym). 

LINĘ DEFINITION - rozdzielczość liniowa, 

LINĘ EDITOR - edytor wierszowy. 

LINĘ EOUIPNENT - urządzenie (teletransmisyjne) li- 

LINE FEED - znak wysuwu (papieru), przesuw wierszo- 
wy. posuw wierszowy, 

LINEFEED - przesuw do nowej linii, nowa linia. 

LINĘ FOLDING - składanie linii (kontynuacia linii 
logiczne i w koleinej linii fizycznej). 




LINĘ FREOUENCY - częstotliwość linii, częstotliwość 
odchylani*. 

LINĘ GRAP HIC - grafika konturowa. 

LINĘ JUMP SCANNIMG - wybieranie mi ędz vl i ni owe. 

LINĘ LAYOUT - rozmieszczenie liniowe. 

LINĘ NUMBER - numer linii. 

LINĘ OF CODĘ - wiersz (tekstu) prooranu. 

LI NE OUT - uszkodzenie Unii (łączności). 

LINĘ PRI NT ER - drukarka wierszowa. 

LINĘ PRIMTING - drukowanie wierszowe (jednoczesne 
pisanie treści całeqo wiersza), 

LINĘ PROTOCOL - protokOl linii łączności. 

LINĘ SLIP - przesunięcie obrazu lub jego części 
w kierunku ponoaya, 

LINĘ SPAĆ IMG - odstęp wiersz*. 

LINES PER INCH - ilość wierszy na cal. 

LINES PER MINUTĘ - ilość wierszy na minutę. 

LINĘ STYLE - rodzaj linii (np. ciągła, kreskowa, 
kropkowa, osiowa). 

LINĘ SUPPRESSION - wygaszanie linii. 

LINĘ SWITCHING - komutacja łączy. 

LINĘ TYPE - patrz i LINĘ STYLE. 

LINĘ UP - wyrównywać, ustawić w szeregu, 

LINĘ WEIGHT - grubość linii. 

LINEWIDTH - szerokość linii. 

LINING PEN - ęrafion. 

LINK - 1. połączenie, powiązanie, łączenie. 2. ze- 
stawiać. łączyć, 3. wskazywać. 4. wskaźnik, odsy- 
1 acz , 

LINKABLE - przydatny do konsolidacji. 

LINKAGE - 1. konsolidacja, połączenie, łączenie. 

2. zestawianie, montowanie, sprzężenie. 

LINKAGE EDITOR - proqram łączący, 

LINKAGE LOADER - ładowacz konsol idatora, 

LINKAGE RELEASE - zwalnianie połączenia. 

LINK CONTROL PROTOCOL - protokół sterowania łączem. 
LINKED COMPUTERS — komputery sprzężone, 

LINK EDIT - konsolidować, łączyć. 

LINK EDITOR - konsol i dator . 

LINKEDNESS - spóiność. spoistość, 

LINKED SUBROUT I NE - 1. podproqram biblioteczny, pod- 
program wewnętrzny. 2. podprogram zamknięty, 

I.1NKFR - program łączący, konsol i dator . 

LINK FILE plik. (zbiór) połączeń, plik (zbiór) 
łączników (konsol idatora) . 

LINK ING LOADER - ładowacz konsolidujący, ładowacz 

dynamiczny, 

LINK l.EVEl poziom łącza. 

LINK LIBRARY - biblioteka połączeń. 

LINT pyl (pochdzący od kart dz i ur kowanych) . 

LIOCS patrz: LOCJI CAL I NPUT^OUTPUT CONTROL SYSTEM. 
LI PS - patrz: LOGI CAL INFERENCES PER SECOND, 

1.10UID CRYSTAL - ciekły kryształ, 

LIOUID CRYSTAL DISPLAY wskaźnik na ciekłych krysz- 
tałach. wskaźnik ciekłokrystaliczny, 

LISP - patrz: LIST PROCESSING CLANGUAGE). 

LI SP MACHINĘ - komputer LISP. zapewniający sprzętową 
interpret ac lę programów napisanych w języku Lisp. 
LIST 1. lista, tabulogram. 2. umieszczać w spisie. 
LIST DEVICE - (logiczne) urządzenie drukujące, 
LIST-DIRECTED - sterowany listą, 

LISTENER - odbiornik ( i nt or mac j i ) , 

LIST-FORM OF MACROINSTRUCTION - tablicowa postać 
makroinstrukcji . 

LISTING - wydruk, listinq. listowanie. 

LIST OF MODIFICATIONS - lista modyfikacji. 

LIST PICTURE - obraz listy, 

LIST PROCESSING - pr zetwar z ani e łańcuchowe (danych). 
LIST-PROCESSING LANGU AGE - autokodowy język progra- 
mowania do zapisu algorytmów przetwar zani a list da- 
nych w postaci łańcuchów. 

LIST REPRESENTATION - przedstawienie (danych) w pos- 
taci listy. 

LIST STRUCTURE - struktura listowa danych, 

LIST WITH ONE-WAY POINTERS - lista jednok i erunkowa. 
LIT - patrz: LITERAL. 

LITERAL - 1. stała znakowa, literał. 2. literowy. 
LLCk) GRAMMAR - gramatyka z ograniczonym prawym kon- 
tekstem. 

LOAD - wprowadzać, ładować, obciążać, 

LOADABLE DRIVER - napęd ładowalny, napęd nierezy- 
dentny. 

LOADABLE FONT - font ładowalny (kroje liter ładowane 
przez program do pamięci urządzenia drukującego lub 
generatora znaków monitora), 

LOADABLE FORMAT - format wsadowy. 

LOAD ADDRESS - adres ładowania, 

LOAD-AND-GO - wprowadź i wykonaj (metoda przetwarza- 
ni a) , 

LOADED DATA BASE - zapełniona baza danych, 

LOADER - program wprowadzający . program ładujący. 
LOADING - wprowadzanie danych (do pamięci wewnętrz- 
nej) . 

LOADING FACTOR - współczynnik załadowania, współ- 
czynnik wykorzystani a. 

LOADING PROGRAM - program wprowadzający. 


LOAD-IN LINĘ - szvna wprowadzani a. szyna wpr 

jąca, 

LOAD I MSTRUCTI ON - rozkaz wprowadzani a. 

LOAD KEY - klawisz wprowadzania (np. programu do pa- 
mięci), 

LOAD LIBRARY - biblioteka programów ładujących. 

LOAD LIBRARY TABLE - tabela wprowadzania proqramów, 
LOAD LINĘ — linia wprowadzania danych. 

LOAD NAP - karta przydziału pamięci (tablica przed- 
stawiająca roznd eszczeni e i długość segmentów prog- 
ramu w pamięci), 

LOAD MODULE — moduł ładujący, 

LOAD SHARING - podział obciążenia. 

LOADTIME SUBROUTI NE LIBRARY - biblioteka podprogra- 
mów zał adowczych. 

LOC - patrz: LOCATION. 

LOCAL - miejscowy, lokalny. 

LOCAL AREA NETWORK - lokalna sieć komputerowa. 

LOCAL BATCH PROCESSING - pr zetwar z ani e partiowe lo- 
kal ne, 

LOCAL COMPUTER NETWORK - lokalna sieć komputerowa. 
LOCAL EXCHANGE - lokalna centrala tel ef oni czna. 

LOCAL IDENTIFIER — identyfikator lokalny, nazwa lo- 
kalna. 

LOCAL I ZE - lokalizować. 

LOCAL LINĘ - linia lokalna. 

LOCAL MODĘ: - tryb autonomiczny. 

LOCAL NAME nazwa lokalna. 

LOCAL OPTIHIZATION - optymalizacja lokalna. 

LOCAL YARIABLE - zmienna lokalna. 

LOCATE - 1. umieszczać, rozmieszczać. 2. umiejsca- 
wiać. ustalać położenie, oznaczć, 

LOCATION - 1. miejsce w pamięci, komórka pamięci. 

2. lolal izac la. umi e iscowi eni e. ustalenie położenia, 
usytuowani e. 

LOCATION COUNTER - wskaźnik adresu. 

LOCATION POI NT ER - wskaźnik pozycji. 

LOCATOR - urządzenie wprowadzani a pozycji. 

LOCK I. z abl okowan i p • blokada (kod. struktura da- 
nych lub proaram stosowane w sterowaniu dostępem do 
Oli ku danych i synchronizacji procesów). 2. zabez- 
pieczać. 3. blokować (no. klawiaturę), unierucha- 

LOCKED FILE - plik (zbiór) zabezpieczony, 

LOCKINO 1. uru uruchomiBnie. blokowanie, zabezpie- 
czanie. 2. zamykanie na Hucz. 

LOCKING GATE - bramka zamykająca. 

LOCKING S'I GNAŁ - s /anał synchroni żujący. svqnał blc 
kujący, 

LOGKOUT - blokada, wstrzymanie, 

LOCK-UP - stała blokada. 

LOG - I. dziennik, plik. reiestracji. protokół, 

2. reiestrować (zapisywać informację o niektórych 
zdarzeniach w specialnym pl i ku-dzienmlu) , 3. patrz: 
LOGARITHM. 

LOUARITHM - loęarytm. 

LOGARITHMIC SEARCII pr zeszuki wam e metodą połowie- 

LOG BLOSIM patrz t LOGIC BŁOCK SIMULATION, 

LOG BoOK - dziennik, reiestr, 

LOGGER - przyrząd rejestrujący, urządzenie rejestru- 
jące. rejestrator. 

LOGGING - rejestracja danych, zapisywanie. 

LOGGING IN - wejście (do systemu). 

LOGGING OUT - wyjście (z systemu). 

LOGIC - 1. układ logiczny. 2. logika, 3. algorytm. 
LOGIC -O LEVFL - poziom zera looicznego. poziom ze- 

LOGIC-l LEVEl. - poziom looicznei jedynki. 

LOGI CAL - I. logiczny, 2. logicznie, 

LOGI CAL ADDITION - sumowanie logiczne, dysjunkcja, 
LOGI CAL ADDRESS - adres logiczny, 

LOGI CAL BŁOCK NUMBER - logiczny numer bloku, 

LOGI CAL CHAMNEL - kanał logiczny, 

LOGI CAL CHANMEL NUMBER - numer logiczny kanału, 

LOGI CAL CHOICE - wybór logiczny, 

LOGI CAL CIRCUIT - I. łącze logiczne, 2. układ lo- 
giczny, 

LOGI CAL COMPARISON - porównanie logiczne, 

LOGI CAL DATA BASE - logiczna baza danych, 

LOGI CAL DESIGN - schemat logiczny, projekt logiczny, 
LOGI CAL DE VI CE - urządzenie logiczne, 

LOGI CAL DE VI CE NAME - logiczna nazwa urządzenia, 

LOGI CC AL) ERROR - błąd logiczny, 

LOGI CAL EXPRESSION - wyrażenie logiczne, 

LOGI CAL FILE - plik (zbiór) logiczny, 

LOGI CAL INFERENCES PER SECOND - liczba wniosków lo- 
gicznych na sekundę, 

LOGI CAL INPUT DE VI CE - logiczne urządzenie wejścio- 
we, 

LOGI CAL I NPUT/^OUTPUT CONTROL SYSTEM - programy stan- 
dardowe pracy buforowej i blokowania danych, 

LOGI CAL I MSTRUCTI ON - instrukcja logiczna, 

LOGI CAL LEVEL - poziom logiczny, 

LOGICCAL) LINĘ - wiersz logiczny. 
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Zaglądanie 

dokończenie ze str. 25 
Medycznej „Dolmed" we Wrocławiu na 
termografie stosuje się badania profilakty- 
czne, szczególnie przy podejrzeniach 
zmian nowotworowych. Otóż komórki 
rakowe rozmnażając się powodują więk- 
sze ukrwienie danego miejsca. A krew ja- 
ko nośnik ciepła powoduje większą jego 
emisję w danym miejscu. Teraz już tylko 
kwestia interpretacji obrazu. Szczególnie 
dane te potrzebne są przy określaniu pola 
zajętego chorobą, a następnie przy ob- 
serwacji pooperacyjnej. 

Bardzo istotne są pomiary termografi- 
czne w wypadkach oceny przyjmowania 
się przeszczepów. Metodę tę wykorzystu- 
je się m.in. w szpitalu w Trzebnicy (doc. 
Ryszard Kociemba), znanym ośrodku 
transplantologii. We wrocławskim „Dol- 
medzie” rocznie bada się 20 tys. kobiet z 
podejrzeniami zmian nowotworowych. 
Dzięki tej technice uratowano wiele ist- 
nień ludzkich. 

Kolejny przykład pochodzi z Kliniki 
Chirurgii Dziecięcej Instytutu Pediatrii 
Akademii Medycznej w Łodzi. Dr Woj- 
ciech Kuzański pokazuje fotografie opa- 
rzeń dzieci, po czym omawia: 

— Wydawało się, że należałoby dziecku 
półtorarocznemu przeszczepić skórę na 
całej wierzchniej części stopy. Obraz ter- 
mowizyjny ukazał, że tylko kilka centyme- 
trów kwadratowych (gdzie wystąpiła zgo- 
rzel) trzeba przeszczepić. 

I tak zrobiono już w trzecim dniu po 
oparzeniu. Należy dodać, że normalnie, 
czyli bez termografu, zmiany te zauważo- 
ne mogły być dopiero conajmniej po 
siedmiu dniach. W efekcie zastosowanego 
zabiegu na o wiele mniejszej powierzchni 
ciała i szybko, dziecko zostało wypisane 
do domu już po 14 dniach pobytu w szpi- 
talu, z zagojoną raną. Gwoli dodania, do 
tej kliniki trafia rocznie około 200 dzieci z 
poparzeniami. Kamera termowizyjna nie 
jest własnością szpitala lecz kombinatu w 
Bełchatowie. Ale tam wykorzystuje się ją 
zaledwie kilka razy w roku do badania 
złóż węgla brunatnego. 

Burzliwe zastosowanie termografii na- 
stąpiło w drugiej połowie lat siedemdzie- 
siątych. Dzięki tej technice udaje się roz- 
poznawać stany zapalne kości i szpiku 
kostnego, oceniać ukrwienie kończyn, 
diagnozować kręgosłup, stawy, oceniać 
czy przeszczepy skóry się przyjęły. Były 
i też niepowodzenia kliniczne, wynikające 
bądź z niewłaściwej interpretacji obrazów 
termowizyjnych, bądź nieprzestrzegania 
ostrych warunków technicznych, w któ- 
rych pracują urządzenia, albo niewłaści- 
wego przygotowania pacjenta do bada- 
nia. Jest więc i druga strona medalu. To 
przede wszystkim konieczność zapewnie- 


pod skórę 

nia stałej temperatury pomieszczenia, wil- 
gotności, przeprowadzania testów termi- 
cznych przed badaniem. Jak w każdym 
wypadku posługiwania się techniką 
o wysokim stopniu złożoności niezbędna 
okazuje się odpowiednia kultura techni- 
czna. Na przykład detektory podczerwieni 
muszą pracować w bardzo niskich tempe- 
raturach. Uzyskuje się to chłodząc je cie- 
kłym azotem. Aparatura jest więc bardzo 
skomplikowana, typu stacjonarnego, 
wrażliwa na wszelkie bodźce zewnętrzne. 

Można by sobie zadać pytanie: po co się 
bawić w skomplikowaną termografię, sko- 
ro badania wnętrza człowieka prowadzi 
się za pomocą promieni rentgenow- 
skich, ultradźwiękowych, zjawisk magne- 
tycznych? Odpowiedź jest bardzo prosta. 
Otóż termografia jest metodą bezinwa- 
zyjną, w odróżnieniu od wymienionych 
w pytaniu. Owszem przy użyciu tomografu 
komputerowego można dokonywać do- 
kładnych zdjęć wnętrza człowieka, ale 
z uwagi na promienie rentgenowskie nie 
można tego robić często. Nie wiadomo 
także, jaki mają wpływ ultradźwięki na nasz 
organizm. Natomiast termografia zbiera 
jedynie bodźce emitowane przez orga- 
nizm. 

Interesujące są badania prowadzone w 
Wojskowym Instytucie Medycyny Lotni- 
czej, gdzie ocenia się reakcje organizmu w 
warunkach niedotlenienia wysokościo- 
wego. Analizuje się możliwość wykony- 
wania pracy w warunkach ekstremalnych. 
Na jakiej podstawie? Za pomocą zdjęć 
termograficznych kończyn. Dr Joanna Ła- 
szczyńska z WIML pokazuje zdjęcia wy- 
konywane przy różnych obciążeniach 
pracą i w różnych warunkach ciśnienia 
atmosferycznego. Barwy ukazują, że na- 
stępuje duże schłodzenie kończyn pod- 
czas pracy na wysokości. W wypadku dba- 
łości o zdrowie i bezpieczeństwo pilotów 
takie badania mają znaczenie trudne do 
przecenienia. 

Ostatnio pojawiła się nowa technika 
pomiaru temperatury ciała tzw. ciekłokry- 
staliczna termografia kontaktowa. Okaza- 
ło się, że ciekłe kryształy, których zasto- 
sowanie znamy najczęściej we wskaźni- 
kach różnego typu, jak zegarki, monitory 
itd., mają i tę właściwość, 'że pod wpływem 
zmian temperatury zmieniają zabarwie- 
nie. Chodzi w tym wypadku o ciekłe 
kryształy na podłożu cholesterowym. 

Ostatnio zaprezentowano w Polsce 
szerszej opinii publicznej takie urządzenie 
produkcji firmy brytyjskiej NovaTherm. 
jedno takie urządzenie pracuje już w Kli- 
nice Ortopedii w Krakowie. 

Cienka warstwa substancji ciekłokrysta- 
licznej jest umieszczona w folii. Przykłada 


I się ją do ciała i po chwili widać zabarwię-! 
nie w zależności od rozkładu temperatur. I 
Taki obraz można sfotografować i doku-l 
mentować. Rozdzielczość temperatury! 
wynosi 0,8 stopnia Celsjusza. Rejestrowa- 1 
ny, jako barwna mapa, obraz termiczny! 
różnych obszarów ciała, niesie ważną in- 1 
formację na temat ich stanu zdrowotnego. I 
Powstaje obraz naturalnej wielkości. Ostro I 
zarysowane kolory tworzą izotermy ogra- 1 
niczające pola jednakowych temperatur. I 
Barwna podziałka pozwala na natychmia- 1 
stówą ocenę obrazu. Może być on w każ- 1 
dej chwili sfotografowany. Ale wydaje się, I 
że przyszłość należy zapewne do zauto- 1 
matyzowanej komputerowej analizy I 
obrazu, co przy wyborze właściwego I 
wzorca umożliwi szerokie badania maso- 1 
we. 

Jest to bardzo dobra metoda badania I 
zwężeń i zatorów żylnych kończyn i płuc. I 
Umożliwia tworzenie tzw. map bólów. Jest I 
to metoda fizjologicznego testowania pa- I 
cjenta i dająca obiektywną informację. I 
Sześć barw w zakresie 20— 38°C, jest wy- | 
starczających do uzyskania potrzebnych I 
informacji. 

Na całym świecie tysiące ludzi umiera I 
wskutek tzw. zakrzepicy tętnic płucnych. | 

Zatory biorą się głównie z kończyn. Za- I 
krzepy przemieszczają się i wtedy jest już I 
za późno na ratunek. Także u 30 proc. ope- I 
rowanych występują zakrzepy. Toteż, jak I 
podkreśla dr Jacek Kluż, z Kliniki Ortope- j 
dii w Krakowie, wykrycie u pacjenta me- I 
todą termografii powstawania zakrzepów, I 
bądź ich istnienia w kończynach, decydu- I 
je o terminie wykonania zabiegu, a nawet I 
jego odłożeniu. 

Na barwnych obrazach wyraźnie można I 
ocenić, np. która noga jest objęta zakrze- I 
parni. Ta, która jest chłodniejsza, bo przez I 
żyły przepływa mniej krwi. 

Obecnie w Wojskowej Akademii Tech- I 
nicznej już udało się wykonać folię cie- I 
kłokrystaliczną, do zastosowań medy- I 
cznych. Prezentował ją dr Stanisław Kło- j 
sowicz podczas konferencji pod nazwą I 
„Elektronika w medycynie”. Otwierają się I 
więc możliwości tworzenia polskich urzą- I 
dzeń diagnostycznych, niezwykle cen- I 
nych dla medycyny. 

Firma „Sirpoł-Ruch” z Łodzi, która zor- I 
ganizowała tę konferencję z udziałem I 
wystawców zagranicznych, zaprezentowa- I 
ła np. możliwości komputerowego prze- j| 
twarzania obrazów. Zamiast fotografować | 
można by na przykład rejestrować obrazy I 
w pamięci dyskowej, przechowywać je, I 
archiwizować i porównywać zmiany w 
czasie. Przy czym w porównaniu do ter- I 
mografii bezdotykowej, tej przy użyciu I 
kamery, ciekłokrystaliczna jest bez po- I 
równania tańsza. 

Tak więc został zrobiony kolejny krok I 
ku wykorzystaniu nowoczesnej techniki I 
na potrzeby człowieka, zwłaszcza w sferze I 
profilaktyki masowej. Marek SIENIAWSKI I 


„IKS” — dodatek „Żołnierza Wolności". Redaguje Wiesław Cetera (kierownik zespołu); Rada programowa: Krzysztof 
Chmarra, Romuald Głęb, Włodzimierz Gogołek, Janusz Janiec, Henryk Krasuskl, Ireneusz Miernik, Ludwik Piela, Jacek 
SzaniawskL Adres redakcji: 00-950 Warszawa ul. Grzybowska 77, telefon centrali 20-12-61 w. 486. Tełez 313664. Rękopisów 
nie zamówionych redakcja nie zwraca I zastrzega sobie prawo do skrótów. Nakładem: Wydawnictwa „Czasopisma 
Wojskowe”, Warszawa ul. Grzybowska 77. Fotoskład I druk offsetowy — Wojskowe Zakłady Graficzne im. gen. dyw. 
A. Zawadzkiego. Nr zam. 3427. Nr Ind. 361 682. A-63 
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W numerze: 


AMSTRAD 

• Prosta 

— str. 14 

• Parabola 

— str. 15 

• Elipsa 

— str. 16 

• Hiperbola 

— str. 17 

• Krzyżówka 

— str. 19 

• Wieże Hanoi 

— str. 25 

ATARI 

• Mlni-asembler 

- str. 27 

• Test ortografii 

— str. 8 

COMMODORE 

• Muzyka 64 

— str. 5 

MERITUM 

• Test z optyki 

• Ruch jednostajnie 

— str. 22 

przyspieszony 

— str. 23 

• Rzut poziomy 

— str. 23 

• Rzut ukośny 

— str. 23 

• Figury Lissajous 

— str. 24 

• Test egzaminujący 

— str. 24 


SHARP 

• Komputerowa... ruletka — słr. 3 


SPECTRUM 

• Program „Artysta” — str. 11 


Okładka i rysunki: Michał 
Przybyłowski 


Oddajemy do Waszych 
rąk pierwszy, specjalny 
numer „IKS-a>, poświęcony 
w całości programom 
komputerowym. Jak je wy- 
korzystać? 

Po pierwsze są one prze- 
znaczone na konkretne ty- 
py mikrokomputerów. Wie- 
rzymy jednak, że wielu z 
naszych Czytelników pot- 
rafi je przetłumaczyć na 
potrzebny sobie dialekt 
Basica — a jeśli nie — po- 
moc zawsze znajdziecie w 
naszej redakcji. 

Po drugie nasze progra- 
my są jedynie propozycja- 
mi rozwiązań. To tylko od 
użytkownika zależy jaką 
ostateczną postać otrzyma- 
ją ich eksploatowane wer- 
sje — radzimy eksperymen- 
tować przede wszystkim z 
grafiką. Dotyczy to szcze- 
gólnie programów eduka- 
cyjnych, które można roz- 
budować zgodnie z wymo- 
gami metodycznymi. Poza 


tym będą one z pewnością 
częściej wykorzystywane 
przez uczniów na ich domo- 
wych komputerach niż w 
szkołach, w których jest za- 
ledwie 3000 mikrokompute- 
rów różnych typów. 


Po trzecie wprowadzanie 
do pamięci komputera dłu- 
gich programów z ich wy- 
druków jest zajęciem żmud- 
nym, łatwo popełnić błędy. 
Wiemy o tym. Ale UWAGA: 

NIEKTÓRE Z PROGRAMÓW 
BĘDĄ EMITOWANE PRZEZ 
„RADIOKOMPUTER” - PRO- 
GRAM ROZGŁOŚNI HAR- 
CERSKIEJ POŚWIĘCONY 
MIKROINFORMATYCE. Któ- 
re i kiedy — dowiecie się w 
kolejnych audycjach: WTO- 
REK, program IV, godz. 
22.50. 

A teraz życzymy już przy- 
jemnej zabawy. 

REDAKCJA 


DZIŚ WYŁĄCZNIE 

PR06RAMY! 



Prezentujemy 22 uznane za 
najlepsze komputery w 
1986 roku. 


1. Bondwell BW 2 
Mikroprocesor: Z80L, 4MHz 
System operacyjny: CP/M2.2 
Pamięć RAM: 64 KB 
Pamięć masowa: RAM-Disc 256 lub 
51 2 KB, Floppy-Disc 
360 KB 

Grafika: 640 X 200 
Zasilanie: akumulator 
Rozmiary: 28,4 X 7,8 X 31 cm 
Waga: 3 kg 
Cena: ok. 2400 marek 
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SMAKI* 


PROGRAM 1 


KOMPUTEROWA... RULETKA 

Proponujemy Wam taką ruletkę, w 
której „bankierem” jest komputer, 
co nam daje pewność, że nie straci- 
my majątku. 

W rzetelnej ruletce każdy numer 
jest jednakowo prawdopodobny. U 
nas zapewnia to obiektywny genera- 
tor liczb losowych. 

Program wywołuje etykieta „A” 
(RUN 40). Najpierw „kupujemy” ta- 
lony (tzw. „sztony"), potem zaś ok- 
reślamy wysokość stawki. 
Typujemy: 

— pojedyncze numery od 1 do 36, 

— trójki numeró-' od 1 do 12, 

— szóstki od 1 do 6 oraz 

— tuziny od 1 do 3. 


Oprócz tego możemy typować 
„połówki” typu: 

■ — parzyste lub nieparzyste, 

— matę (od 1 do 18) lub duże (od 
19 do 36). 

Ich rozmieszczenie podaje tablica: 
Gdy „coś” trafimy, to wygrana 
jest krotnością stawki: 

— dla numerów mnożnik 36, 

- dla trójki x 12, 

— dla szóstki x 6, 

— dla tuzina x 3. 

Trafny wybór połówki daje wy- 
graną w postaci podwojonej stawki. 
Jeśli przegramy, tracimy (niestety) 
stawkę. 

Po zakończeniu typowania „rusza 
kuleczka”, co symbolizuje hasło 
RIEN NE VA PLUS (koniec typowa- 
nia, zaś dosłownie „nic więcej ne 
idzie"). 

Komputer wyświetla wygrany 



numer (przypadkowy), a potem... 
oblicza. Rezultat jest podany pod 
postacią komunikatu: wygrałeś... lub 
przegrałeś. Jeśli zostanie wyloso- 
wane zero , to wszystkie sławki za- 
garnia bankier. Jest to jedyny legal- 
ny zysk kasyna. 

Typować można jedną, dwie lub 
wszystkie kombinacje jednocześnie. 

Życzymy rozbicia banku. 
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N 
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Trójko *12 

ł— 

7 

8 

9 

10 

11 

12 

SZOSTKA 2 
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Trójko 

5 
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CN 
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ł 

Z 

13 

14 

15 

16 

17 
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SZOSTKA 3 
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N 

Trój ko 

7 

Trójko 8 




Parzysta 


19 

20 

21 

22 

23 

24 

SZOSTKA * 

to 

ro 


Niaporzy sta 


Trójko 9 

Trójko 10 




Poniżaj 19 

Z 

25 

26 

27 

28 

29 

30 

SZOSTKA 5 

o 


Powyżaj 18 

M 

Trójk o 

11 

Trójko 12 






31 

32 

33 

34 

35 

36 

SZOSTKA 6 



40 : "A" : CLEAR :■ 
RANDOM : USING 
: WAIT 0:8=2E4 
50: INPUT "KUP TAL 
ONY 100<T<10 0 
00 " ; Z 

60: 1F ZC100OR Z>1 
E4THEN 3EEP 3, 
100,500.0010 5 
0 

20: INPUT "STAWKA 
OD 1 DO 500 
v 

80: IF Y< 10R Y>500 
GOTO "D" 

90: INPUT "NUMER 0 
D 1 DO 36 “ ; N: 
IF N>36G0T0 "D 

:t 

100: INPUT "TROJKA 
' OD 1 DO 12 "|C 
: IF O12G0T0 " 
D" 

110: INPUT "SZOSTKA 
OD 1 DO 6 “;S 

: IF S>6G0T0 "D 

:« 

120: INPUT “TUZIN 0 
D 1 DO 3 " ; D: 
IF D>3G0T0 "D" 
130: INPUT "PARZYST 
E ? T=1 N=0 "; 
P: IF P--1G0T0 1 
50 


140: INPUT "NIEPARZ 
YSTE ? T=1 N=0 
“;R: IF (P+R) > 
1 GOTO "D" 

150: INPUT “1, 2. . . 1 
8 ? T=1 N=0 
M: IF M=1G0T0 1 
20 

160: INPUT "1-3, 20. . 
.36 ? T=1 N=0 
" j 0: IF <M+0) >1 
GOTO "D" 

120: WAIT 0: P R INT “ 
RIEN NE UA PLU 
S" : BEEP 36,60, 
10 


. 133:X=<RND 32)-l: 
PRINT "N U M E 

190: DEEP 3^200^100 
0; IF X>06OTO 2 
30 

230; IF X=0THEN 

PRINT "BANKIER 
SKIE ZERO": 
BEEP 3, 200, 100 
0 

210: Q=SGN N+SGN C+ 
SGN S+SGN 0+ 
SuN P 



3 


220=Q=Q+SGN R+SGN 
n+SGN 0:B=B+Q* 
Y:W=-Q*Y:GOTO 
390 

230: IF XONAND N>0 
GOSUB "C“ 

240: IF X=NLET F=36 
: GOSUB "8” 

250: Q=I NT <(X-1V3 
> + l: IF QOCAND 
O0GOSUB "C" 
260: IF Q=CLET F=12 
: GOSUB "B” 
270:Q=INT (CX-l)/6 
‘ ) + l: IF GIOSAND 

S>0GOSUB ”0“ 
280: IF Q=SLET F=6: 
GOSUB ”8" 

290: Q=INT (<X-1)/1 
2> + l: IF QOD 
AND D>0GOSUB ” 
C" 

300: IF Q=DLET F=3: 
GOSUB '' B !I 


-3TO:Q^I?Iff^2)f' 

2: IF <l+Q>*R=l 
GOSUB "Ci 1 

320: F=:2: IF (1+Q>*P 
=1 GOSUB “B" 

330: IF Q*P=1 GOSUB 
"C" 

340: IF Q*R=1G0SUB 

!l g II 

350: IF M=1 AND X<19 
GOSUB "B” 

360: IF 0=1 AND X<19 
GOSUB "C” 

370: IF n*X>18G0SUB 
:l C " 

380: IF 0*X>1860SUB 
”B“ 

390: UI$="WYGRALES" : 
IF UK0LET W$=" 
PRZEGRAŁEŚ" 

400: UIAI T :PR1NT 
5ABS W: Z=Z+IJ: 

IF Z<0GOTO 460 
410: IF B< 100THEN 
PRINT "BANK RO 
ZBITY" :END 


i w •> • 

420: PRINT "MASZ": Z 
TALCNCU" 

430: IHPUT "SRASZ ? 
T=I N=3 "j U: 
IF U---0THEN END 
440: N=0: C=0: D=0: p = 
0:.R=0:M=0;F=0 
450 : 0=0 : V— 0 ; ul.-0 ; 0= 
0:NAI T 0: SC T 0 
73 

460: PRINT "MASZ DL 
UG":A3S Zj : " T 
ALONOU" : END 
470: '*3":i4=W+F*Y:3= 
3-F*Y: RETURN 
480: "C" : !ń=W-Y: 3=B+ 
Y: RETURN 

490: "D" ; PRINT "U U 
A Z A J !": 
3EEP 3, 130, 530 
: 3C T 0 73 


JANUSZ MILLER 




iss/tg** O * 3*® 

2 Bondweil BW 8 
Mikroprocesor: 80C88, 4,77 MHz 
System operacyjny: MS-DOS 2.1 1 
Pamięć RAM: 512 KB 
Pamięć masowa: Floppy-Disc 720 lub 
360 KB 

Gratika: 640 X 200 
Zasilanie: Sieć lub akumulator 
Rozmiary: 28 X 7 X 30 cm 
Waga: 4,9 kg 
Cena: 3990 marek 


3. Casio BP-1000 
Mikroprocesor: Casio-eigen 
System operacyjny: C61 BASIC 
Pamięć RAM: 8 40 KB 
Pamięć masowa: Floppy-Disc (3.5j 
320 KB 

Grafika: 192X32 
Zasiianie: bateria 
Rozmiary: 1 8,4 X 2,4 X 9,7 cm 
Waga: 437 g 

Cena: 1400 marek (bez dyskietek) 




4. Datavue 25 II 
Mikroprocesor: 80C88. 4.77MHz 
System operacyjny: MS-DOS 2.11 
Pamięć RAM: 768 KB. lub 1 .2 MB 
Pamięć masowa: 1 lub 2 Floppy-Disc 
po 360 KB 

Grafika: 640x200, 320x200 
Zasiianie: sieć lub akumulator 
Waga: 5 5 kg 
Cena: 8660 M 


5. Epson HX-20 


\ Mikroprocesor: 6301 , 2.45MFIZ 


System operacyjny: MBASIC 


Pamięć RAM: 16 lub 32 KB 

J j i '.ł 

Pamięć masowa: mikrokaseta — 

/ •'T“' r~ .. jĘ 

30 KB 


Grafika: 120x32 


Zasilanie: akumulator 


Rozmiary: 29x4 4x21 .5 cm 


Waga: 1 .6 kg 


Cena: 1800 M 
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COAUMIIIOIte 

PROGRAM 2 


MUZYKA 64 

Commodore-64 posiada duże możliwości muzyczne. 
Niestety oferowany Basic nie zawiera żadnych ins- 
trukcji (nie licząc POKE), które ułatwiałyby progra- 
mowanie muzyki. Istniejące na rynku oprogramowanie 
muzyczne nie zmienia tej sytuacji, gdyż realizowane za 
ich pomocą kompozycje nie dają się wykorzystać w 
naszych własnych programach. 

MUZYKA 64 może być traktowana jako autonomi- 
czny program do tworzenia różnorodnych kompozycji 
lub też jako narzędzie programistyczne wspomagające 
realizację efektów dźwiękowych w naszych własnych 
programach. Osoby uczące się muzyki będą mogły 
wykorzystać go jako program edukacyjny. 

Zasady posługiwania się programem MUZYKA 64 
zilustrowane są na przykładzie fragmentu utworu 
NOBODY I KNOW” zespołu THE BEATLES. 


MUZYKA 64 pozwala budować kompozycje na 
trzy głosy. W utworze muzycznym, który chcemy za- 
programować odszukujemy najkrócej trwający dźwięk 
(pauzę) — posłuży on jako jednostka czasu. Każdy 
dłużej trwający dźwięk wyrażany jest wielokrotnością 
podstawowej jednostki czasu. W przedstawionym 
fragmencie jest to ósemka. Programując dźwięki pos- 
ługujemy się zamieszczoną tabelą ' kodową przypo- 
rządkowującą każdemu dźwiękowi dwie liczby (mniej- 
szą i większą). Wybrane kody dźwięków wprowadzamy 
do programu w postaci danych typu DATĘ. W przed- 
stawionym przykładzie zaprogramowanej muzyki 
(wiersze 349—670) każdy wiersz odpowiada jednej 
jednostce czasu i zawiera trzy dźwięki. Kompozycje 
kończymy wprowadzając wiersz zawierający trzy zera 
(wiersz 670). 

W celu uzyskania zamierzonych efektów muzy- 
cznych należy korzystać z następujących reguł: 

— kod o większej wartości używamy, gdy aktualnie 
programowany dźwięk ma być kontynuowany w na- 
stępnej jednostce czasowej w tym samym głosie; 

— kod o mniejszej wartości używamy, gdy aktualnie 
programowany dźwięk nie będzie kontynuowany w 
następnej jednostce czasowej w tym samym głosie; 

— pauzę lub wyłączenie jakiegoś głosu w bieżącej 
jednostce czasowej otrzymujemy za pomocą kodu 192. 

Program składa się z dwóch podprogramów od- 
dzielnie wprowadzanych do pamięci mikrokomputera. 
Pierwszy z programów (program pomocniczy) inicjuje 
procedury Zapisane w kodzie maszynowym, automa- 
tycznie ładuje z taśmy następny program i uruchamia 
go. Drugi program (program grający) zawiera sekwen- 
cje Instrukcji realizujących odtworzenie dołączonej do 
niego kompozycji zapisanej w wierszach DATĘ. Jeśli 
chcemy wykorzystać właściwości programu MUZYKA 
64 w naszym własnym programie musimy: 

— zapisać na taśmie jako pierwszy program po- 
mocniczy. 



— wprowadzić do pamięci mikrokomputera pro- 
gram grający i stworzyć z niego procedurę wywoływa- 
ną w naszym własnym programie, 

— dopisać własny program i zakodowaną kompo- 
zycję. 

Przed uruchomieniem obydwu programów, składa- 
jących się na program MUZYKA 64 należy stworzyć 
ich kopie. 

5 REM ****** MUZYKA 64 ****** 
PROGRAM POMOCNICZY *»«*** 

:l 0 PRINT ' .... PROSZĘ CZEKACT s 

SK~0 

20 I- ORl- 1 TO* 1 s REAPW , N s P0KE49664+ 

1 ., W s POKE 4992.0+ T , N s SK=SK+W+N s NEXT 
30 DAT A4 , 43 , 4 , 1 1 3 , 4 , 1 80 , 4 , 252 , 5 
72 y 5 , 1.52 , 5 , 237 , 6 ,71,6, 1 67 , 7 , 1. 2 
40 DAT A7 , 1 1 9 , 7 , 233 , 8 , 97,8, 225 , 9 , 

1 04 . 9 . 247 . 1. 0 . 1 43 . 1 1. , 48 ,11,218, 1. 2 
, 1.43 

50 PATA 1. 3 , 78 ,14, 24 , 1. 4 , 239 , 1 5 , 2 1. 0 
,16, 1 95 ,17, 1 94 , 1 8 , 208 ,19, 239 , 2 1 
30 

60 PA1 A 22 , 96 , 23 , 1 80 , 25 , 29 , 26 , 1 56 
, 28 , 49 , 29 , 222 ,31, 1 64 , 33 , 1 34 , 35 , 1 
33 * 

70 BAT A37, 1.61, 39, 222, 42, 6:1 ,44,19 
2 , 47 , 1 05 , 50 ,59, 53 , 55 ,56, 97 ,59, 1 8 
8 

80 DATA63 - 73 ., 67 , 13 ,71,9, 75 , 66 , 79 
. 1 88 , 84 , 1 22 , 89 ,127,94, 2 1 , 1 00 , 1 1 7 
90 DA TAI 06,1 1 .1. , 1 12 , 195 ,119,119,1 
26,146,134,24 

1 00 1 ESK < > 1 02 1 91 HENPR I NI " Dl -AD W 
DANYCH, 1.1. NI Es 30 - 90'sSTOP 
1 1 0 SK-0 s EORI-49 1 52T049252 s REAPW 
s POKE I , U s SK--SK+W NEX1 
1.20 DAT A 1.62 , 0 , 189 ,0,193, 32 , 25 , 1 9 
2,162 


1 



1 30 DA1 A7, :l 89 ,0.1 93 , 32 , 25 , 1 92 , 1 <> 
2,14,189 


1 40 DAT A0 , 1 93 , 32 , 25 , 1. 92 , 96 , 4 1 „ 12 
8,201 

! 50 DATA 128 , 240 , 25 , 1 89 ,0,1 93 ,41, 
63,168 

1 60 DA) A 185 , 0 , 1 95 , 1 57 ,0,212,1 85 , 
0,194 

1 70 DATA 1 57 , 1 , 2 1. 2 , 1 89 , 1 1 3 , 1 92 , 1 5 
7,4,212 

1 80 DA ) A96 , 1 89 , 1 1. 2 , 1 92 , 1 57 ,4,2 1 2 
,96,162 

190 DAT A0, 189, 0,193, 32 ,'SS, 192, 16 
2,7 

200 DATAl.89,0, 193,32,88, 192, 162, 
14 , 1 89 

2 .1 0 DATA0 , 1 93 , 32 , 88 , .1 92,96, 4 1 , 64 
, 201 , 64 

220 DATA240 , 6 , 1 89 , 1 1 4 , 1 92 , 1 57 , 4 , 
21.2,96 

230 IFSK< > 1 1 60 1 THENPR-I NT " BL AD U) 
DANYCH, LINTEg 120 - 220" s STOP 
240 P0KE631 , 76 s P0KE632 , 1 1 1 g POKEó 
33 ,13s P0KEA34 , 82 g P0KEA35 , 1 1 7 :: POK 
E636 , 1 3 g POKE 1 98 , 6 s END 


5 REM ****** MUZYKA 64 ****** 
PROGRAM GRA JACY ****** 

1 0 I NFtlT " TEMPO " 5 T s S=54272 
20 FOR I -'0TO24 s POKES+ I , 0 s NEXT :: POK 
ES+5 , 35 s POKES+6 , 1 96 s POKES+ 1 2 , 35 
30 POKES+ 1 3 , 1 96 g POKES+ 19 , 35 g POKE 
S-ł-20 , 196 , POKES+3 , 8 s P0KES+2 , 0 s POK 
ES-i 10,8 

40 POKES+9 , 0 :: POKES+ 17,8:: POKES+ \ 6 
, 0 g POKES+24 , 15 

50 FORI— 0TO14S1 EF‘7gp'0KE49264+I , 7 
2 s P0KE49265+ T , 65 g P0KE49266+ 1 , 64 :: 
NP XT „ 

60 READG 1 , (52 , G3 ; POKF49408 , G1 g POK 
49415,02 s P0KE49422 , 03 g IFG1=01 HEN 
80 

70 S YS4 9152 s F OR I >=01 OT gNEXT gfiYS49 
215sFDRj:=-TO50sNEX ( SGOTO60 
80 POKES+4 , 64 g POKF.S+ 1 1 , 64 g POKES+ 
1 8 , 64 :: FORM =.-01050 g NEXT :: POKES+24 , 0 
g END 


DŹWIĘK 

CZĘSTOTLIWOŚĆ 

KOD 

C 

65 

l 

65 

C* 

69 

2 

66 

n 

73 

3 

67 

D* 

78 

4 

68 

E 

82 

5 

69 

F 

07 

6 

70 


6 


F# 

G 

G# 

A 

A* 

93 
98 
104 
1 1.0 
117 

7 

8 
9 

10 

11 

71 

72 

73 

74 

75 

H 

123 

12 

76 

C 

131 

13 

77 

C* 

139 

14 

78 

n 

147 

15 

79 

D# 

157 

16 

80 

E 

165 

17 

81 

F 

175 

18 

82 

F* 

185 

19 

83 

G 

196 

20 

84 

G# 

208 

21 

85 

A 

220 

22 

86 

A# 

233 

23 

87 

H 

246 

24 

88 

C 

262 

25 

89 

C# 

277 

26 

90 

D 

294 

27 

91 

D* 

311 

28 

92 

E 

330 

29 

93 

F 

349 

30 

94 

F# 

370 

31 

95 

G 

392 

32 

96 

0* 

415 

33 

97 

A 

440 

34 

98 

A# 

466 

35 

99 

H 

494 

36 

.1 00 

C 

523 

37 

101 

Ct 

554 

38 

.10? 

D 

587 ' 

39 

103 

UH 

622 

40 

104 

E 

659 

41 

1 05 

l : - 

698 - 

42 

.1 06 

F-# 

, 740 

43' 

107 

6 

734 

44 

108 

G# 

831 

45 

109 

A 

800 

46 

1 10 

A# 

932 

47 

1.11 

H 

988 

48 

112 

C 

1047 

49 

1 1 3 

C# 

1 109 

50 

1.14 

D 

1175 

51 

115 

D# 

1 246 

52 

U6 

E 

1319 

53 

117 

F 

1 397 

54 

118 

I-# 

:l 480 

55 

119 

G 

1 568 

56 

120 

G« 

1 661 

57 

12.1 

A 

1 760 

58 

122 

A* 

1865 

59 

123 

H 

1976 

60 

124 

C 

2093 


125 


* ŚRODKOWE C 


349 

REM **NOWJDY 1 KNOW** 



350 

DATA 

49, 77, 93 




355 

DATA 

48, 77, 93 




360 

DATA 

49,192, 93 

470 

DATA 

1.15, 79,106 

365 

DATA 

48,192, 93 

475 

DATA 

115, 79,106 

370 

DATA 

113, 77, 93 

48« 

DATA 

113, 79,106 

375 

DATA 

113, 77, 29 

485 

DATA 

1.13, 79, 42 

380 

DATA 

105,192, 93 

490 

DATA 

110, 84,1.06 

385 

DATA 

105,192, 93 

495 

DAT A 

110, 84,106 

390 

DAT A 

106, 79,192 

500 

DATA 

108, 84,106 

395 

DATA 

106, 79,192 

505 

DAT A 

108, 84,106 

400 

DATA 

11 0,1 92,. 192 

5.10 

DATA 

49, 77, 93 

405 

DAT A 

110,1.92,192 

515 

DATA 

48, 77, 93 

41.0 

DAT A 

108, 84,192 

520 

DAT A 

49,192, 93 

415 

DATA 

108, 84,192 

525 

DAT A 

48,192, 93 

420 

DAT A 

42,192,192 

530 

DATA 

113, 77, 93 

425 

DAT A 

44,192,192. 

535 

DATA 

11.3, 77, 29 

430 

DATA 

108, 77,192 

540 

DATA 

105,192, 93 

435 

DAT A 

108, 77,192 

545 

DATA 

105,192, 93 

440 

DATA 

105, 192, 192 

550 

DATA 

106, 87,103 

445 

DATA 

105,192,192 

555 

DAT A 

106, 87,103 

450 

DATA 

105, 84,192 

560 

DAT A 

1:10,192,103 

455 

DAT A 

105, 84,192 

565 

DAT A 

110,192, 39 

460 

DAT A 

105,192,192. 

570 

DATA. 

108, 84,103 

465 

DAT A 

105,1 92,192. 

575 

DATA 

108, 84,103 


58«> DATA 
585 DATA 
590 T.1ATA 
595 PATA 
600 DATA 
605 DATA 
6.10 DATA 
61.5 DATA 
620 DATA 
625 DATA 
650 DATA 
655 DATA 
640 DA) A 
645 DATA 
650 DATA 
655 DATA 
660 DATA 
665 DAT A 
670 DATA 


1.05, 192, 1.05 
105,192, 105 
103, 79,103 
103, 15,103 
103, 79,103 
103, 15,103 
103, 79,103 
103, 15,103 
103, 79,103 
1.03, 15,103 
103, 84,103 
103, 20,103 
103, 84, 103 
103,. 20,103 
103, 84,103 
103, 2.0,103 
103, 84,103 
103, 20,103 
0 , 0 , 0 


S. WASILEWSKI 


y 

rrrr^-l 

U - 

■i ^ ^ «3= 

V 

mm 

\ 

i p » p - » : 

ą 

& 

el 

' — -i 

d* 4 — 


1 > 

2_£ 

— e= J- 

» j: ' l i*- 

.j_/ J i 



U j r { 


-j 

p — 

1 





V- 

w 

/ 

p — 


o "" 

p 


1 

e 

N 

■ J -i- 

1 l) 

o 

o 

_ V 





1 • J • • 



Fragmenty utworu „Nobody I Know” 
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ATAItl 

PROGRAM 3 


TEST ORTOGRAFII 

Program „TEST ORTOGRAFII” jest kolejnym pro- 
gramem edukacyjnym publikowanym w „IKS-ie" na 
komputery ATARI. 

Po uruchomieniu programu, na ekranie pojawi się 
MENU. Na początku użytkowania tego programu, na- 
leży najpierw wpisać do komputera wyrazy, które 
sprawiają nam trudności w pisaniu. (UWAGA — wyrazy 
te powinny być wpisane oczywiście poprawnie). Ma- 
ksymalnie można ich wpisać 30 000. Program ten 
umożliwia używanie polskich liter: ą,ę,ć,ł,ń,ó,ś,ż,ż. 
Uzyskuje się je przez naciśnięcie odpowiednio: CON- 
TROL-A, CONTROL-E itd. Literę ż uzyskamy przez 
naciśnięcie CONTROL-”,". 

Po wpisaniu do komputera wyrazów, wybierając od- 
powiednie opcje o MENU, można przystąpić do testu 
lub nagrać wpisane do komputera wyrazy na taśmę 
magnetofonową. Zarejestrowane na taśmie wyrazy, 
przy późniejszym korzystaniu z programu można bez- 
pośrednio wpisać do komputera. 

Gdy przystąpimy do testu na ekranie będzie poka- 
zywał się wyraz. Jeżeli unamy, że jest on napisany 
dobrze, to wciśniemy klawisz SPACE, jeżeli żle — do- 
wolny klawisz (oprócz BREAK). Gdy nasza decyzja 
będzie poprawna, z głośnika wydobędzie się pojedyń- 
czy dźwięk, jeżeli zła — potrójny. Oprócz tego, na ek- 
ranie znajduje się licznik dobrych i złych odpowiedzi 
oraz zegar. Czas podawania odpowiedzi jest ograni- 
czony. Jeżeli zegar osiągnie wartość 500, odpowiedź 
zostanie uznana za złą. Życzę owocnej nauki i miłej 
zabawy. 

10 CLR 

20 ? CHR#<125> ; ? "Proszę czeka 
c. . . " 

30 OPEN #1,4,0, “K" = GOSUB 1610 
40 DIM fi$a5>,B$as> 

50 PL=PEEK < 560 > +PEEK <560*256 
60 POKE DL+6, 7 = POKE DL+?,6 
70 ? CHR$< 125) = POKE 710,0= TRAP 
100 

80 SETCOLOR 1/10,10 
90 RESTORE 1999 = REfiD DAT 
100 POSITION 8,3 
110 ? "1 - TEST ORTOGRAFII” 

120 POSITION 8, 6= POKE 752,6 
130 ? "2 - WPIS NOWYCH WYRAZÓW 

11 

148 POSITION 8,9 
150? "3 - WPIS WYRAZÓW Z MAGA 

II 

160 POSITION 8,12 


??????? 


KOMPÓTER 



170 ? ”4 - ZAPIS WYRAZÓW NA MA 
GN." 

180 TRAP 180 : GET #l,EE=E=EE-48 
190 ON E GOTO 210,1040,1420,12 
60 

200 GOTO -9 

2 1 0 L I CZ=- 1 = MAX=500 = DOB=0 = ZL=0 
220 ? CHR*< 125)= POKE 710,0=TRA 
P 70 

230 GOSUB 920 

240 POSITION 1,5*? " ODPOWIED 

ZI = " 

250 PCiSITION 1,7 = ? " Dobre* 

Ze= " 

260 A=INT<RND<0)*DAT)+2000=M=0 

270 POSITION 3,22 

280 ? " SELECT - Powrt do ME 

NU" 

290 POSITION 4,3=? "CZAS = 

M 

300 LICZ=LICZ+1= POSITION 3,20 
318 POSITION 23,3=? "Licznik = 
"jLICZ 

320 RESTORE A=READ A$ 

330 FOR 1=1 TO LEN<A$) = TRAP 49 
000 

340 IF' I>LEN<A$> THEN 500 
350 TF- A4<T . T}="" THEN 740 
360 IF A$<I,I>="u" THEN 770 
370 IF A$< I , I>=" " THEN 800 
380 IF A$<I, I)="h" THEN 860 
390 IF LEN<A$>=I THEN 420 
409- IF A*<I,I+l>="rz" .THEN 830 
410 IF A*a,I+l>="ch" THEN 890 
420 NEXT I 
430 GOTO 500 
440 LICZ=LICZM=GOTO 260 
450 H=LEN<R$>-1 = IF H=0 THEN RE 
TURN 

460 FOR HH=1 TO H 

470. IF A$<HH,HH+l>=”ec" THEN 2 

60 


480 NEXT HH 

490 RETURN 

500 GOSUB 450 

510 POSITION 20,15 = ? Fit;" 

ił 

520 POKE ?64,255=LL=0 
538 P=PEEK<764) =LL=LL+1 = V=V+1 
540 SETCOLOR 0,5,V=IF V>100 TH 
EN V=1 

550 IF LL>MFlX THEN 680 
560 POSITION 10,3=? LL 
578 IF PEEK<53279>==5 THEN 70. 
580 IF P=255 fHEN 530 
590 IF P=33 AND M=0 THEN 640 
600 IF PO 33 AND M=3 THĘN 640 
610 IF P=33 AND M=3 THEN 680 
620 IF PO 33 AND M==0 THEN 680 
630 STOP 

640 FOR F=1 TO 50 -SOUND 1,30,1 
0,15 

650 NEXT F = SOUND 1,0, 0,0 

660 DOB=DGB+l= POSITION 4,9=? D 

OB 

670 GOTO 260 

680 FOR FF=1 TO 3= FOR F=50 TO 
100 

630 SOUND 1,F, 12, 15=NEXT F . 
708 SOUND 1,0, 0,0= FOR F=1 TO 3 
0 

710 NEXT F = NEXT FF. 

720 ZL=ZL+1 = POSITION 12,9=? 2L 

730 GOTO 260 

740 K=INT<RND<0>*5> 

750 IF K=1 OR K=4 THEN At<I,I) 
= H u.“ = M=3 
760 GOTO 420 
778 K=INT<RND<0>*7> 

780 IF K=3 OR K=6 THEN At<I,I) 

=""=(1=3 

798 GOTO 420 

800 K=INT(RND<0)*5> 

810 IF K=1 OR K=3 THEN GOSUB 9 
40 

820 GOTO 420 • 

838 K==INKRND<0>*7> 

840 IF K=2 OR K=5 THEN GOSUB 9 
70 

858 GOTO 420 
860 K=INT<RND<0>*9> 

870 IF K=5 OR K==8 THEN GOSUB 9 
30 

880 GOTO 420 

890 K=INT<RND<0)*8) 

300 IF K=2 OR K=5 THEN GOSUB 1 
020 

910 GOTO 420 


920 POSITION 3, 1 = ? "TEST ORTOG 
RAFII" 

930 SETCOLOR 0,5, 15= RETURN 
940 Bt=At< I , LEN (At) ) 

950 Ata+l,LEN<At)+l>=Bt 
960 At< 1 , 1+1 )=” rz" = M==3 = RETURN 
370 At<I)=Ata+l)=M==3 
980 At<I,I >=="" = RETURN 
990 Bt=At < I , LEN< At ) ) 

1000 At<I+l,LEN<At)+l)=Bt 
1010 At< 1 , 1+1 )=="ch“ = M==3 = RETURN 
1020 At<I)=At<I+l> =M=3 
1030 AtCI , I >=*‘h" = RETURN 
1040 ? CHRt< 125)= POKE 710,0= PO 
KE 702,0 

1050 POKE 752,0= POSITION 10,3 
1060 ? "WPIS WYRAZÓW ” = GOSUB 
920 

1070 POSITION 4,20 

1088 ? ” RETURN MENU" 

1090 POSITION 3,15=? " UWAGA “ 

1100 ? "WYRA2 WPISUJ MAŁYMI LI 
TERAMI" 

1110 POSITION 5,S=? "PODAJ WYR 
A2" , 

1120 INPUT At = IF At::”" THEN 78 
1130 ? CHąt<125)= POSITION 2,4 
1140 SETCOLOR 1,0,0 = ? DAT +2000 
; "D. "; At 

1150 ? =? "G. 1180" 

1160 POSITION 0,2= POKE 842,1 
1170 STOP 

1180 POKE 842 , 1 2 = DAT ==DAT + 1 
1190 ? CHRt<125)= POSITION 2,4 
1200 ? 1999; "D."; DAT 
1210 ? =? "G. 1240” 

1220 POSITION 8,2= POKE 842,1 
1230 STOP 

1240 POKE 842, 12= SETCOLOR 1,10 

,10 

1250 GOTO 1040 
1260 ? CHRt< 125)= POKE 710,0 
1270 GOSUB 928= POSITION 7,5 
1280 ? " ZAPIS WYRAZÓW NA MAGN 
ETOFON ” 

1290 POKE 702, 64= POSITION 9,16 
1300 ? "CZY JESTES PEWIEN ? CT 
/NJ" 

1310 GET #1,EE 
1320 IF EE=78 THEN 70 
1330 IF EE=84 THEN 1350 
1340 GOTO 1310 

1350 RESTORE 1999=OPEN #2,9,0, 
”C= “ 
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1370 ? #2 ;A$ 

1380 IF 0$="*+*" THEN CLOSE #2 
: GOTO 1400 
1390 GOTO 1360 
1400 POSITION 12,10=? "O.K" 
1410 FOR F=1 TO 300 : NEXT F : GOT 
O 70 

1420 ? CHR$< 125) : POKE 710,0 
1430 GOSUB 920: POSITION 7,4 
1440 ? " WPIS WYRAZÓW Z MAGNET 
OFONU " 

1 450 POKE 702 , 64 = POS I T I ON 9,16 
1460 ? "CZY JESTES PEWIEN ? CT 
-'TO* 

1470 GET #1,EE 

1480 IF EE=78 THEN 70 

1490 IF EE=84 THEN 1510 

1500 GOTO 1470 

1510 SETCOLOR 1,0,0 

1520 ? ">":0PEN #2,5,0, “C : ” ; P= 

1998 

1530 INPIJT #2, A$ 

1540 P=P+1 POSITION 2,4=? p> 

. “ m 

1550 ? : ? "G. 1580" : POSITION 0, 
2 

1560 POKE 842,1 
1570 STOP • 

1580 POKE 842,12=? CHRT< 1257 
1590 IF A$= ":*+*" THEN CLOSE #2 
:GOTO 70 
1600 GOTO 1530 

1610 REM GEN, POLSKICH LITER 

1628 N=57344 = M=32768 

1630 FOR 1=0 TO 1023= POKE M+I, 


PEEKCN+I) 

1640 NEXT I 

1650 A=M+776 B=M+520 

1660 FOR- 1=0 TO 207= POKE B+I,P 

EEK(A+I> 

1670 NEXT I 

1680 A=M+976=B=H+512 

1690 FOR 1=0 TO 7: POKE 6+1, PEE 

K<A+I> 

1700 NEXT I 

1710 POKE M+513, 12= POKE M+514, 
24 

1729 POKE M+5 15, 124 : POKE ri+527 
,3 

1730 POKE M+537, 12= POKE n+538, 
24 

1740 POKE M+539, 60 : POKE M+559, 

6 

1750 POKE M+61 1,28: POKE M+612, 
56 

1760 POKE M+625, 12 ; POKE M+626, 
24 

1770 POKE M+627, 124= POKE M+633 

,12 

1780 POKE M+634 , 24 POKE M+635, 
60 

1790 POKE M+664 , 6 : POKE M+665, 1 
2 

1800 POKE M+72 1,24= POKE M+722, 

0 

1810 POKE M+723, 124= POKE 755,1 
28 

1820 RETURN 
1999 DATA 0 

31999 DATA *+* OLGIERD NIEMYJSKI 
LVI LO— Warszawa 




6 Epson PX-4 

Mikroprocesor: Z80A, 3 68MHz 
System operacyjny: CP/M 2.2 
Pamięć RAM: 64 KB 
Grafika: 240x64 

Zasilanie: bateria lub akumulator 
Rozmiary: 29.7x3.4x28.6 cm 
Waga: 1 6 kg 
Cena: 2500 M 


7 Epson PX-8 
Mikroprocesor: Z80, 2.45ł/Hz 
System operacyjny: CP/M 
Pamięć RAM: 64 KB lub 1 28 MB 
Grafika: 480x64 
Zasilanie: sieć lub akumulator 
Rozmiary: 29.7x4.8x21 .6 cm 
Waga: 2.3 kg 
Cena: 3000 M 


m _ 

8 Grid Case 

Mikroprocesor. 80C86, 4.77MHz 
System operacyjny: MS-DOS 

2.1 1 /3.2 

Pamięć RAM: 1 28 KB lub 640 MB 
Pamięć masowa: wewnętrzny Floppy- 
-Disc 720 KB 

Grafika: 640x200 
Zasilanie: sieć lub akumulator 
Rozmiary: 29x5.5x38 cm 
Waga: 5.4 kg 
Cena: 7000 M 
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ARTYSTA 

Program „Artysta” jest edytorem obrazu złożonego 
ze standardowych znaków graficznych. Program ten 
może być dobrym uzupełnieniem do programu „Kom- 
pens” publikowanego w numerze piątym „IKSa”. Pra- 
cuje w trzech trybach: graficznym, tekstowym i edy- 
cyjnym. 

Tryb graficzny pozwala na budowanie obrazu ze 
znaków graficznych (klawisze 1,2..., 8). Aktualną pozy- 
cję dostawionego znaku wskazuje kursor — kwadrat o 
podwyższonej jaskrawości. W tym trybie dostępne są 
następujące funkcje: 


CAPS SHIFT (CS) i tl — 

ENTER 

SPACE 

DELETE 

CSiTRUE VIDEO 
CS i INVERS VIDEO 

GRAPHICS lub 9 
X, Y 


— przesunięcie kursora we 
wskazanym kierunku (do- 
datkowo funkcję tę peł- 
nią klawisze Q, W, E, R), 

— przejście na początek 
nowej linii, 

— usunięcie znaku na po- 
zycji kursora, 

— przesunięcie kursora o 
jedno pole wstecz i usu- 
nięcie stojącego tam zna- 
ku, 

— kolor i tło znaku są zgo- 
dne z deklarowanymi, 

— kolor i tło znaku są do- 
pełnieniem w stosunku 
do deklarowanych atry- 
butów, 

— zmiana (negacja) zesta- 
wu znaków graficznych, 

— zmiana sposobu prze- 
suwania się kursora po 
wpisaniu znaku, 

(x=1 w prawo, x=0 bez 
przesunięcia, X=1 w le- 
wo 

Y=1 w górę, Y=0 bez 
przesunięcia, Y=1 w gó- 
rą), 

— przejście do trybu edy- 
cyjnego. 

O aktualnym rodzaju pracy informuje komunikat u do- 
łu ekranu (napis: video, wartości X i Y oraz aktualny 
zestaw znaków). 


EDIT 



W trybie edycyjnym dostępne są funkcje: 

J (LOAD) — wczytanie obrazu z taśmy, 

P (PRINT) — przejście do trybu tekstowego, 

S (SAVE) — zapisanie obrazu na taśmę, 

V (US) — skasowanie zawartości ekranu, 

Z (COPY) — wydruk zawartości ekranu, 

ENTER — powrót do trybu graficznego. 

Tryb tekstowy pozwala na umieszczenie napisów (po- 
ziomych i pionowych) w tworzonym obrazie. Napisy 
mogą składać się ze znaków alfabetu ZX Spectrum i 
znaków UDG. Wykluczone są jedynie znaki dostępne 
w trybie „EXTEND MODĘ”. Komunikat informuje o ro- 
dzaju pracy podając tryb L lub C i sposób przemie- 
szczania się kursora ( kursor 0— przesunięcie w pra- 
wo, kursor 1 przesunięcie w dół). 


CAPS LOCK (CS i 2) 

EXTEND MODĘ (CAPS 
SHIFT : SYMBOL SHIFT 


U 

DELETE 


GRAPHICS 


ENTER 


— zmiana trybu L na C i 
odwrotnie, 

— zmiana sposobu prze- 
mieszczania się kursora 
(napis poziomy/napis 
pionowy), 

— przesunięcie kursora 

— skasowanie znaku na 
polu poprzedzającym 
kursor, 

— przejście do wpisywania 
znaków UDG, 

— powrót do trybu edycji. 


Struktura programu pozwala na łatwą rozbudowę (np. 
wersja kolorowa lub uzupełnienie instrukcjami DRAW, 
PLOT itd.). Dodatkowe bloki można zbudować od- 
dzielnie i dołączyć w miarę potrzeby instrukcję merge 
„nazwa”. 
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CLS 

20 

30 

40 

100 

105 

110 

115 

120 

125 


REM PROGRAM "ARTYSTA" 
BORDER 71 PAPER 71 INK 05 


INOERSE 01 OOEK 0! BRIGHT 0 


LET x=l! LET y=< 


L.ET p— 0 - L.ET w~0 1 LET k=0a LET g* 

POKE 23ÓS8.0: GO SUB 1000 

ERINT AT u ; k S OVER 1P INUERSE ®S BRIGHT 11" * 

LET wś-INKEYt-i IF wt="" THEN GO TO 100 

IF CODĘ w*=4 THEN LET i=0a GO SUB 1000 

IF CODĘ w*=5 THEN LET i=ls GO SUB 1000 

IF CODĘ wś~15 OR w*=,"9" THEN LET g=l-gi GO SUB 1000 

IF CODĘ wŚ-7 THEN GO SUB 50001 GO TO 100 

PRINT AT WfkP OVER 1P INUERSE 05 BRIGHT 1P" " 
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130 LET ww-wa LET kk=k * 

135 LET w=w+<w<21)*(CQDE w$=10 OR w$-"w"> *- <w>0) * (CODĘ w*-lł OR w$~"q") 

140 LET k=k+(k<31)*(C0DE w*=9 QR w*-"r "> - (k >0) * (CODĘ w$=8 OR w *="e") 

145 PRINT AT wwykk? OUER 15 INUERSE 05" " 

150 IF »**> = " 1" AND w$<="8" THEN LET h=VAL w*-8*INT (UAL w*/8> * LET w$»CHR* i (y 
=0) *(128+h) + (g = l) * (143--h> ) s PRINT AT w»k»w$: LET w=w-y* ( ( (w-y> <*=2i) AND < (w-y) >= 
0)>s LET k=k+x* ( < <k+x) <«3ł> AND ( <k+x> >^0> > 

155 IF CODĘ w$-13 THEN PRINT AT wyky OUER 15 INUERSE 05" ": LET k-0s LET w=(w< 
21) * (w+l> 

160 IF w*=" " THEN PRINT AT wyk 5 INUERSE 05 BRIGHT 15" " 

165 IF CODĘ w$-12 OR w$="0" THEN PRINT AT urki INUER8E 05 OUER 15" "s LET w=w- 
<w>0>* <k=0> s LET k~(k>0)*(k-l> + (w >~0> * (k~0) *31 a PRINT AT Wyk 5 INUERSE 05 
170 IF w*="x" THEN LET x=(x=-l>- (x==0> a GO SUB 1000 
175 IF w$="y" THEN LET y=^ (y~-l) - <y=0> : GO SUB 1000 
180 PRINT AT wyk 5 GVER 15 INUERSE 0 5 BRIGHT 15" " 

185 GO TO 100 

1000 REM KOMUNIKATY 

1001 INUERSE i 

1002 IF 1-0 THEN PRINT *05 AT 0»05"U1DEU 

1003 IF i-ł THEN PRINT *0 5 AT 0y0r"UIDEO. " 

1004 PRINT *05 AT 1 y 05 "Xs - 5x 5 " " 5 AT 1 y 5 5 "Y s " Jy 5 " 


1005 IF g-0 THEN 

A" 

1006 IF g-1 THEN 


PRINT *05 AT 0y85 "KLAWISZa 1234567 8"5AI łylly"ZNAKs 
PRINT *05 AT 0y 8 5 "KLAWISZ a 1 2 3 4 5 6 7 8" 5 AT 1 y ii 5 "ZNAKs 


1007 RETURN 

1008 

5000 REM TRYB EDYCJI 
5002 POKE 23658 y 0 
5004 PRINT *0 5 AT 0y05 
PO WRÓT" 

5006 LET w$«INKEY* 


LOAD S - SAUE P - PRINT 


-• COPY V - CLS 


IF w$="" THEN 
GO SUB 5200 
GO SUB 5100' 
GO SUB 5300 
60 SUB 5400 
PAUŚE 30 s GO 


GO TU 5006 


5008 IF w$="s" THEN 
5010 IF THEN 

5012 IF w*«"z"‘ THEN 
5014 IF w$="v" THEN 
5016 IF w$«"p" THEN PAUŚE 30 s GO SUB 6000 
5018 IF CODĘ w*==i3 THEN GO SUB 100© a RETURN 
5020 GO TO 5000 
5100 REM LOAD 

5102 PRINT *0 y AT 0y0y"CZY ŁADOWAĆ 


OBRAZ Z TAŚMY ?(T/N) 


5104 IF INKEY$-"n" THEN RETURN 
5106 IF XNKEY1>< >"t" THEN GO TU 5104 
5108 I.NPUT "PODAJ NAZWĘ ZBIORU "yn*; IF 
5110 LOAD n* SCREEN* 

5112 POKE 23658 y 0 s RETURN 
5114 

5200 REM SAUE 


OR LEN n $ > i 0 fil EN GO 10 5108 


5202 PRINT *0y AT 0y05"CZY NAGRYWASZ OBRAZ ? (T/N) 


5204 IF INKEY$~"n" THEN RETURN 
5206 J.F INKEY3K >"t" THEN GO TG 5204 

5208 INPUT "PODAJ NAZWĘ ZBIORU "5n$= IF n**"" OR LEN nfc>l© TilEN GO fO 5208 
5210 SAUE n$ SCREEN* 

5212 PRINT *05 AT 0y0y"GQTOWE - WCIŚNIJ ENTER 

5214 IF CODĘ INKEY*<>13 THEN GCi TO 5214 

5216 POKE 23658 y 0s RETURN 

5218 

5300 REM COPY 

5302 PRINT *0y AT 0y0y"CZY DRUKOWAĆ OBRAZ ? (T/N) 

5304 IF INKEY*="t" THEN COPY s RETURN 
5306 IF INKEY*-"n" THEN RETURN 
5308 GO TO 5304 


12 
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5310 

5400 REM CLS 

5402 PRINT *05AT 0*05"CZY SKASOWAĆ EKTAN ? (T/N) 


CLS : RETURN 
RETURN 


5404 IF INKEY$="t" THEN 
5406 IF INKEY**"n* THEN 
5408 GO TO 5404 
5410 

6000 REM PRINT 
6002 LET d~0 

6004 IF p=0 THEN POKE 23658*0 
ENTER -• POWROT 00 GRAFIKI 
6006 IF p-1 THEN POKE 23658 v 8 
ENTER - POWROT DO GRAFIKI 
6008 LET w$-INKEY$5 IF w*="" THE ł N 
6010 IF CODĘ w$~6 THEN LET p=-=l-p 


6011 IF CODĘ w$=14 THEN 

6012 IF CODĘ' w$^i5 THEN 
" GO JO 6004 

6014 IF CODĘ w*~13 l' HEN 
6016 IF CODĘ w$“12 THEN 


PRINT 4=0 PAT 0 r 0 P "TRYB TEKSTOWY L 
"PAT 0»24fd 

PRINT 4=0 PAT 0*05 "TRYB TEKSTOWY C 
"PAT 0*24vd 
GO TO 6008 

PAUSE 50 s GO TO 6004 


kursor s 


kursor z 


LET d-i-d z PAUSE 30 z GO Tu 6004 

GO SUB 6100 z PRINT AT w»k? OOER 1P BRIGHT i? INOERSE 


POKE 23658 v 05 RETURN 

PRINT AT w*k P OUER IP INOERSE 0F' 


LET w=-w- (d-0) * (w>0 


) » (k~0) - (d-1) * (w>0> s LixT k-(k >0) * (d=0) » (k--i> + (d==0) * (w>=-=0> * (k-0) *31+ (d=^=l) *kz PRIN 
T AT w*k* INOERSE 0P" " 

6018 IF w$> = " " AND THEN PRINT AT w*kPw$s LET w-~w+d* ( (w+d ) < =21 ) z LET k~ 

k+ (ł-d) x ( (k+x) <=31) 

6020 DEEP » 05 r 12 

6022 PRINT AT w*kP INUERSE 0* OUER 1?" " 

6024 LET w=wMw<21)#<CUDE w*-10) - (w>0) * (CODĘ w$-=ll) 

6026 LET k-k+(k<31)*(C0DE (k >0) * (CODĘ w$=8) 

6028 PRINT AT w*k* OUER IP IN0ER3E 0* BRIGHT U" " 

6030 GO TO 6008 
6100 REM UDO 

6102 PRINT 4=05 AT 0 * 0 i "KLAWISZ: ABCDEFGHI JKLHNOPGRSTUZNAK Gs ó £C 

4.EABCB" 

6104 LET w$-INKEY*s IF THEN GO TO 6104 

6106 IF CODĘ w$==13 THEN LET PAUSE 30 z RETURN 

618 LET w$-CHR$ (((w$> = "ci") AND (w$(-="u"> ) *47+ ( (w$>="A"> AND (w*<="U" ) ) *79+C0D£ 
w i) z IF w4>> = " " AND wii><=="D" THEN PRINT AT w*kPw$z LET w~w+d* (w < 21 ) z LET k-k+(i~ 
d ) * ( k < 3 1 ) s PAUSE 20 z RE TUR N 

6110 GO TO 6104 WIESŁAW RYCHLICKI 





9. Grid Compass 
Mikroprocesor: 8086 i 8087 
System operacyjny: MS-DOS, Grid- 
-OS 

Pamięć RAM: 512 KB 
Pamięć masowa: Floppy-Disc 360 KB, 
dysk twardy 10 MB 
Grafika: 320x240, 51 2x256 
Zasilanie: sieć lub akumulator 
Rozmiary: 29x5x38 cm 
Waga: 4.6 kg 
Cena: 17 700 M 


10. HP 110 (Hewlett Packard) 
Mikroprocesor: 80C86, 5.33MHz 
System operacyjny: MS-DOS 2.1 1 
Pamięć RAM: 96 KB lub 272 KB 
Pamięć masowa: Floppy-Disc (3.5") 
710 KB, dysk twardy 
10MB 

Grafika: 480x128 
Zasilanie: sieć lub akumulator 
Rozmiary: 32x7x25 cm 
Waga: 3.9 kg 




11. HP Portable Plus (Hewlett Pac- 
kard) 

Mikroprocesor: 80CB6, 5.33MHz 
System operacyjny: MS-DOS 2.1 1 
Pamięć RAM: 256 KB lub 1 .2 MB 
Pamięć masowa: RAM-Disc 32 KB lub 
1 .1 MB, Floppy- 
-Disc 710 KB, dysk 
twardy 10 MB 

Grafika: 480x200 
Zasilanie: sieć lub akumulator 
Rozmiary: 32x7.6x25 cm 
Waga: 4.5 kg 
Cena: 8500 M 
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AMSTKAII 

PROGRAMY 5-8 


PROSTA 

Program kreśli prostą o równaniu y=ax+b w ukła- 
dzie współrzędnych OXY w zależności od podanych 
parametrów a i b; pozwala zaobserwować jak zmienia 
się rysowana prosta w zależności od zadanych para- 
metrów. W przedstawionym układzie współrzędnych 
można narysować cztery proste. 

Jeśli chcemy wykreślić linię (z założeń programo- 
wych n=2), to zmieniamy w programie wiersz 400 pi- 
sząc, zamiast 1=3 l=n— 1 i wiersz 410 pisząc zamiast 
1=4, l=n, gdzie za n wstawiamy liczbę naturalną, więk- 
szą lub równą 2. 

Aby rysowana prosta „zmieściła się” w oknie moni- 
tora, przyjęto ograniczenie na parametr b, a mianowi- 
cie bt<— 18,18> 


10 REM PROSTA 
20 CLS 

30 GOSUB 540 ' 

40 CLS: BOEDER 3 
50 WINDOW #2,10,31,25,25 
60 PAPER #2, 13: PEN #2, O: OLS #2 
70 WINDOW #3,35,40,1,1 
80 PAPER #3, 13: PEN #3, O: CLS #3 
90 PRINT #3," O" 


100 

WINDOW #1, 1,8, 1,3 


110 

BOEDER 9 


120 

PAPER #1,13: PEN #1,0: CLS #1 

1 30 

PRINT #2," y= 

a:-; + b " 

140 

PLOT 20,200 


150 

FOR 5=20 TO 620 


160 

PLOT 5 , 200: NEXT 


170 

PLOT 618, 202: PLOT 

618, 199 

180 

PLOT 616, 204: PLOT 

616, 197 

190 

PLOT 320 , 400 


200 

FOR s=20 TO 390 


210 

PLOT 320, s: NEXT 


220 

PLOT 318, 388: PLOT 

316, 386 

230 

PLOT 322, 388: PLOT 

324,386 

240 

LOCATE 39, 14: PRINT " k " 

250 

LOCATE 19,1: PRINT 

„ y „ 

260 

1=0 


270 

INPUT #1 , "a=" ; a 


280 

GOTO 720 


290 

INPUT #l,"b=" ;b 


300 

IF b< — 1S OR b >18 

THEN 730 

310 

IF b >=0 THEN 430 

ELSE 440 

320 

CLS #2 




330 PRINT #2, " y = " ; a ; " : 

d$ABS(b) 

340 FOR 320 TO 320 
350 y=a*i: *01 92+b*9 . 5 
360 PLOT 320+>; , 200+y 
370 NEXT 

380 CLS #1 : CLS #3: 1=1+1 
390 PRINT #3," " ; 1 
400 IF 1=3 THEN 450 
410 IF 1>=4 THEN 480 
420 GOTO 270 
430 d$="+" : GOTO 320 
440 d$=“— " : GOTO 320 
450 ENV 3, =9, 9000 
460 SOUND 1,300,0,13,3- 
470 GOTO 270 
480 LDCATE 9,24 
490 PRINT " koniec 

" C DOWOLNY KLAWISZ1" 

500 ENV 3, =9, 9000 
510 SOUND 1 , 100, O, 13, 3 
520 IF INKEYS="" THEN 520 
530 GOTO 40 

540 tl*="P ROSTA" 
550 T2$=" "+CHR$ ( 164) + 

" "+" CJS " 

560 MODĘ O 

570 ENV 1, =9, 2000 

580 ENT -1,6,3, 1 

590 ENV .2, 127, 0,0, 127, O, 

O, 127,0,0, 127,0,0 
600 ENV 3, =9, 9000 
610 FOR c=l TO LEN (t 1$) 

620 LOCATE 2+c, 10 
630 FOR n2=LEN(tl*) 

TO c STEP -1 

640 PRINT MID* <tl*,n2j 1) 

6.50 LOCATE 2+c,10 

660 SOUND 135,20*n2,5, 12,2, 1 

670 NEXT n2,c 
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680 SOUND 135,100,0,13.3,1,20 
690 LOCATE 5,15:F'RINT t2$ 

700 FOR c=l TO 2000: NEXT 
710 CLS : MODĘ 1 : RETURN 
720 LOCATE 10,23:G0T0 290 
730 LOCATE 13,25 
740 PRINT 11 PODAJ b " ; 

CHR$ ( 180) ; "<— IB, 18>“ 

750 FOR w=l TO 3500: NEXT 
760 PRINT #2, " y= ax + b 

770 GOTO 290 



PARABOLA, ELIPSA, HIPERBOLA 

Program PARABOLA kreśli krzywą o równaniu 
y=ax 2 +bx+c w układzie współrzędnych OXY w zale- 
żności od podanych przez użytkownika parametrów a, 
b i c. 

Program pozwala zaobserwować jak zmienia się ry- 
sowana parabola w zależności od zadanych parame- 
trów a, b i c. W dowolnej części monitora w oknie 
przedstawione jest równanie y=ax 2 +bx+c aktualnie 
kreślonej paraboli. 

W przedstawionym układzie współrzędnych można nary- 
sować 1=4 parabole. Jeśli chcemy wykreślić l=n?^4 
paraboli (ale z założeń programowych l=n>2), to 
zmieniamy wiersz 460 pisząc zamiast 1=3 l=n—1 I 
wiersz 470, pisząc zamiast 1=4 l=n, gdzie za n wsta- 
wiamy konkretną liczbę naturalną większą lub równą 2. 
Aby rysowana parabola zmieściła się w oknie przy- 
jęto ograniczenia na parametr b i c, a mianowicie 
b£ <— 9,9>, a c£ <— 9,9>. Parametr a powinien być 
liczbą całkowitą z przedziału <— 9,9>. 

Konstrukcje pozostałych programów: „Elipsa” i „Hi- 
perbola” oparte są dokładnie na tej samej zasadzie. 

10 REM PARABOLA 
20 CLS 

30 GOSUB 640 

40 CLS: BOEDER 3 

50 WINDOW #2,12,33,24,25 

60 PAPER #2, 13: PEN #2, O: CLS #2 

70 WINDOW #3,35,40,1,1 

80 PAPER #3, 13: PEN #3, O: CLS #3 

90 PRINT #3, " O" 

100 WINDOW #1,1,10,1,4 
110 BORDER 9 

120 PAPER #1 , 13: PEN #1,0:CLS #1 

130 GOSUB 490 

140 PLOT 100,220 

150 FDR s=50 TO 620 

160 PLOT s, 220: NE XT v 

170 PLOT 618, 222: PLOT 618,219 

180 PLOT 616, 224: PLOT 616,217 

190 PLOT 320,400 

200 FOR s=20 TO 390 

210 PLOT 340, s: NEXT 

220 PLOT 338. 388: PLOT 336.386 


230 PLOT 342, 388: PLOT 344,386 
240 LOCATE 39,13:PRINT "x" 

250 LOCATE 20,1:PRINT "y" 

260 1=0 

270 INPUT #1 , "a=" ; a 

280 IF a=0 THEN 810 

290 IF a >9 OR a<-9 THEN 850 

300 INPUT #1 , ”b=" ; b 

310 IF b>9 OR b<— 9 THEN 890 

320 INPUT #1 , "c=" ; c 

330 IF c>9 OR c<— 9 THEN 930 

340 IF b >=0 THEN 520 ELSE 540 

350 IF c>=0 THEN 530 ELSE 550 

360 CLS #2 

370 PRINT #2, " 2 

380 PRINT #2, “ y= ,l ;a; 

"x 11 ; d$b ; "x " ; e$c 
390 FOR x=— 300 TO 300 
400 y= (a* (x ) " 2 ) /100+ (b*x ) /4+c*18 
410 IF y > 1 80 OR y<-180 THEN 430 
420 PLOT 340 +k , 220+y 
430 NEXT 

440 CLS # 1 : CLS #3: 1=1+1 
450 PRINT- #3," " ; 1 
460 IF 1=3 THEN 560 
470 IF 1 >=4 THEN 580 
480 GOTO 270 

490 PRINT #2, " 2 " 

500 PRINT #2, " \y= ax + bx + c " 

510 RETURN 

520 d$="+" : GOTO 350 

530 e*="+":GOTO 360 

540 d*=" " : GDTO 350 

550 e$=" " : GOTO 360 

560 ENV 3, =9, 9000 

570 SOUND 1 , 300 , O , 1 3 , 3 : GOTO 270 

580 LOCATE 9,23 

590 PRINT " koniec 

" C DOWOLNY KLAWISZ 3" 

600 ENV 3, =9, 9000 
610 SOUND 1,100,0,13,3 
620 IF INKEY$=“" THEN 620 
630 GOTO 40 

640 tl*=“P A R A B O L A" 

650 T2$=CHR$ ( 164) +" "+ 

CHRS (32) +” CJS " 

660 MDDE O 

670 ENV 1 , =9, 2000: ENT -1,6, 3,1 
680 ENV 2,127,0,0,127,0, 

O, 127,0,0, 127,0,0 
690 ENV 3, =9, 9000 
700 FOR c=l TO LEN(tlS) 

710 LOCATE 2+e, 10 

720 FOR n2=LEN(tl$) TO c STEP -1 

730 PRINT MID$(tl$,n2, 1) 
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740 LOCATE 2+c,10 
,750 SOUND 135, 20#n2, 5, 12,2, j. 
760 NEXT n2,c 

770 SOUND 135. 100,0, 13,3, 1 , 20 
'780 LOCATE 5,15:PRINT t2* 

790 FOR c=l TO 2000: NEXT 
800 CLS: MODĘ 1: RETURN 
810 LOCATE 12,24 
820 PRINT " WPISZ a" 

" ROŻNE OD ZERA 
830 FOR w=l TO 2000: NEXT 
840 GOSUB 490: GOTO 270 
850 LOCATE 12,24 
,860 PRINT " PODAJ a"; 

CHRi ( 180) ; " <— 9, 9> 
j 870 FOR w— 1 TO 3500: NEXT 
880 GOSUB 490: GOTO 270 
890 LOCATE 12,24 
1900 PRINT " PODAJ b"; 

CHRS ( 180) : "<— 9, 9> 

910 FOR w=l TO 3500: NEXT 
920 GOSUB 490: GOTO 300 
930 LOCATE 12,24 
940 PRINT " PODAJ c"; 

CHR* (180) ; "<— 9,9> 

,950 FOR w— 1 TO 3500: NEXT 
960 GOSUB 490: GOTO 320 



20 CLS 

30 GOSUB 800 

40 CLS: BORDER 3 

50 WINDOW #2, 11,31,21, 25 

60 PAPER #2,13: PEN #2, O: CLS #2 

70 WINDOW #3,35,40,1,1 

80 PAPER #3, 13: PEN #3,0: CLS #3 

90 PRINT #3, " O" 

100 WINDOW #1, 1,9, 1,4 
110 BORDER 9 

1 20 PAPER #1,13: PEN #1,0: CLS . # 1 
130 GOSUB 660 
140 PLOT 100,240 
1-50 FOR 5=100 TO 600 
160 PLOT 5 , 240: NEXT 
170 PLOT 598, 242: PLOT 598,239 
180 PLOT 596, 244: PLOT 596,237 
190 PLOT 340.400 
'200 FOR s=80 TO 390 
210 PLOT 340, s: NEXT 
220 PLOT 338, 388: PLOT 336,386 
230 PLOT 342, 388: PLOT 344,386 
240 LOCATE 38, 12: PRINT n x" 

li 


250 

-LOCATE 20,1: PRINT “y 

•• 

260 

1=0 


270 

INPUT #1 , "a=" ; a 


280 

IF a=0 THEN 970 


290 

IF a<-9 OR a >9 THEN 

1030 

300 

a=a* 15 


310 

INPUT #1, ,, b = ,, ;b 


320 

IF b=0 THEN 1000 


330 

IF b<-9 OR b>9 THEN 

1070 

340 

b=b# 15: CLS #2 


350 

PRINT #2, " 2 

0 ** 

360 

PRINT #2, " x 

y " 

370 

PRINT #2," + 


380 

PRINT #2, ” 2 

2 11 

390 

PRINT #2," 

a/ 15; " " ; b/15; " 


400 

n=200 


410 

FOR x =0 TO -n STEP - 

1 

420 

k=(a-x)*(a+x> 


430 

IF k<0 THEN 500 


440 

y= (b/a) *SQF: < k ) 


450 

IF y>158 THEN 470 


460 

PLOT . 340+x , 240+y 


470 

y 1=— (b/a) *SQR(k> 


480 

IF yl<— 158 THEN 510 


490 

PLOT 340+x, 240+y 1 


500 

NEXT 


510 

FOR 2=0 TO n 


520 

k 1= (a-z ) * (a+z ) 


530 

IF k 1 < 0 THEN 600 


540 

y2= (b/a) *SQR(kl) 


550 

IF y 2 > 1 58 THEN 570 


560 

PLOT 340+z , 240+y 2 


570 

y3=- (b/a) *SQR(kl) 


580 

IF y3< — 1 58 THEN 610 


590 

PLOT 340+z , 240+y 3 


600 

NEXT ' 


610 

CLS #1 : CLS #3 : 1 = 1 + 1 


620 

PRINT #3," " ; 1 


630 

IF 1=2 THEN 720 


640 

IF I >=3 THEN 740 . 


650 

GOTO 270 


660 

PRINT #2," 2 

2 

670 

PRINT #2," x 

y " 

680 

PRINT #2, " — - + 


690 

PRINT #2," 2 

2 11 

700 

PRINT #2, " a 

b " 

710 

RETURN 


720 

ENV 3, =9, 9000 


730 

SOUND 1 , 300 ,0,13,3: GOTO 270 

740 

LOCATE 9,21 


750 

PRINT " koniec 
" C DOWOLNY KLAWISZ 3 " 


760 

ENV 3, =9,9000 


770 

SOUND 1,100,0,13,3 


780 

IF INKEY*= ,,M THEN 7B0 

790 

ORIGIN 0,0: GOTO 40 



800 tl*="E L 1 P S A" 

810 T2$=" "+CHR*<164>+ 

'■ “ + " CJS " 

820 MODĘ 0‘ 

830 ENV 1 , =9 , 2000 : ENT -1.6, 3,1 
840 ENV 2,127,0,0,127, 
0,0,127,0,0. 127,0,0 
850 EŃV 3, =9, 9000 
860 FOR c=l TO LEN < 1 1*) 

870 LOCATE 2+c,10 

880 FOR n2=LEN<tl*> TO c STEP -1 

890 PRINT MID*(tl*,n2, 1) 

900 LOCATE 2+c, 10 

910 SOUND 135, 20#n2, 5,12,2, 1 

920 NE.XT n2,c 

930 SOUND 135,100,0,13,3,1,20 
940 LOCATE 5,15:PRINT t2* 

950 FOR c=l TO 2000: NEXT 
960 OLS: MODĘ 1 : RETURN 
970 LOCATE 11, 21: PRINT 

"WPISZ a ROŻNE OD ZERA" 

980 FOR w— 1 TO 2000: NEXT 
990 BOSUB 660 f GOTO 270 
1000 LOCATE 11, 21: PRINT 

"WPISZ b ROŻNE 0'D ZERA" 

1010 FOR w— 1 TO 2000: NEXT 
1020 GOSUB 660: GOTO 310 
1030 LOCATE 11,21 . 

1040 PRINT " PODAJ a"; 

CHR$ ( 180) ; "<— 9, 9> 

1050 FOR w— 1 TO 3500: NEXT 
1060 GOSUB 660: GOTO 270 
1070 LOCATE 11,21 
1080 PRINT " PODAJ b"; 

CHR$ ( 180) ; " 9, 9> 

1090 FOR w— 1 TO 3500: NE XT 
1100 GOSUB 660: GOTO 310 



20 OLS 

1 30 GOSUB 640 
40 OLS: BORDER 3 
50 W INDÓW #2,9,33,23,25 
60 PAPER #2, 13: PEN #2,0:CLS #2 
70 WINDOW #3,35,40,1,1 
80 PAPER #3, 13: PEN #3.0:CL5 #3 
90 PRINT #3," O" 

.100 WINDOW #1, 1,9, 1,4 
110 BORDER 9 

120 PAPER #1,13: PEN #1,0;CLS #1 
130 GOSUB 510 
140 PLOT 100,220 
150 FOR 5=100 TO 600 


160 PLOT s, 220: NEXT 

170 PLOT 598, 222: PLOT 598,219 

180 PLOT 596, 224: PLOT 596,217 

190 PLOT 340,400 

200 FOR s=50 TO 390 

210 PLOT 340, s: NEXT 

220 PLOT 338, 388: PLOT 336,386 

230 PLOT 342, 388: PLOT 344,386 

240 LOCATE 38. 13:PRINT "x" 

250 LOCATE 20,1: PRINT "y" 

260 1=0 

270 INPUT #1 , "a=" ; a 

280 IF a=0 THEN B20 

290 IF a< —9 OR a >9 THEN 860 

300 IF a=— 1 OR a=l THEN 360 

310 a=a*10: CLS #2 

320 PRINT #2, " 1 2" 

" 1 2 “ 

330 PRINT #2," xy = -";a/10: 
11 ::y = - -";a/10: 

340 PRINT #2," 2" 

" 2 
350 n=220 

360 FOR x =-n TO O STEP 1 
370 y=(a*a)/<2#x) 

380 IF y<-170 THEN 410 
390 PLOT 340 +k . 220+y 
400 NEXT 

410 FOR x=n TO O STEP -1 
420 y=(a*a) / <2*x) 

430 IF y>170 THEN 460 
440 PLOT 340+k, 220+y 
450 NEXT 

460 CLS # 1 : CLS #3: 1=1+1 
470 PRINT #3," " ;1 
480 IF 1=2 THEN 550 
490 IF 1 >=3 THEN 580 
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700 ENV 3, =9, 9000 


710 FOR c=l TO LEN(tlS) 

500 GOTO 270 

720 LOCATE 2+c,10 

510 PRINT #2." 1 2"; 

730 FOR n2=LEN(tl*> 

“ 12" 

TO c STEP -1 

520 PRINT #2," y.y = - a"; 

740 PRINT MID*<tl$,n2, 1) 

" >;y = a " 

750 LOCATE 2+c, 10 

530 PRINT #2," 2"; 

760 SOUND 135, 20łn2, 5, 12, 2, 1 

>i o II 

770 NEXT n2,c 

540 RETURN 

780 SOUND 135,100,0,13,3,1,20 

550 ENO 3, =9, 9000 

790 LOCATE 5, 15: PRINT t2$ 

560 SOUND 1 , 300 ,0,13,3 

800 FOR c— 1 TO 2000: NEXT 

570 GOTO 270 

810 CLS: MODĘ 1 : RETURN 

580 LOCATE 9,22 

820 LOCATE 9,23 

590 PRINT "koniec 

830 PRINT " WPISZ a": 

" C DOWOLNY KLAWISZ 3 " 

" ROŻNE OD ZERA 

600 ENV 3, =9, 9000 

840 FOR w=l TO 2000: NEXT 

610 SOUND 1,100,0,13,3 

850 GOSUB 510: GOTO 270 

620 IF INKEY*="" THEN 620 

860 LOCATE 9,23 

630 ORIGIN 0,0: GOTO 40 

B70 PRINT "PODAJ a": 

640 t 1$="H I P E R B 0 L A" 

CHR$ ( 1B0> ; "<— 9, — 2> 

650 T2$= “ " +CHR$ (164)+ 

CHR$ (118) ; " a"; 

" "+" CJS " 

CHR$ < 1 80 ) ; "<2,9>” 

660 MODĘ 0 

880 FOR w— 1 TO 4000: NEXT 

670 ENV 1, =9, 2000 

890 GOSUEl 510: GOTO 270 

680 ENT -1,6,3, 1 


| 690 ENV 2,127.0,0,127, 

JACEK SZANIAWSKI 

0,0, 127,0,0, 127,0,0 

CEZARY SOBCZAK 



12. DG One, Modeli 2 (Data General) 
Mikroprocesor 80C88, 4.77MHz 
System operacyjny: MS-DOS 2.1 1 
Pamięć RAM: 256 KB lub 640 KB 
Pamięć masowa: 1 lub 2 Floppy-Disc 
720 KB, dysk twardy 
10MB 

Grafika: 640x200 (EL), 640x256 (LCD) 
Zasilanie: sieć lub akumulator 
Rozmiary: 37x8x30 cm 
Waga: 4.7 kg 


1 3 Kaypro 2000 

Mikroprocesor: 8088, 4.77MHz 

System operacyjny: MS-DOS 2.1 1 

Pamięć RAM: 768 KB 

Pamięć masowa: Floppy-Disc 720 KB 

Gralika: 640x200 

Zasilanie: sieć lub akumulator 

Rozmiary: 33x7x28.7 cm 

Waga: 5 kg 

Cena: 4350 M 




14 NEC 8401 BD 
Mikroprocesor Z80A, 3.99MHz 
System operacyjny: CP/M 2.2 
Pamięć RAM: 64 KB lub 196 KB 
Pamięć masowa: Floppy-Disc 320 KB 
Grafika: 480x128 
Zasilanie: bateria 
Rozmiary: 30x7x21 cm 
Waga: 2.7 kg 
Cena: 1 990 M 


15 Olivetti M 22 

Mikroprocesor 2x80C88, 4.77MHz 
System operacyjny: MS-DOS 
Pamięć RAM: 256 KB lub 1 MB 
Pamięć masowa: Floppy-Disc 360 KB, 
opcjonalnie dysk 
twardy 1 0 MB 

Grafika: 640x200, 320x200 
Zasilanie: sieć lub akumulator 
Rozmiary: 40x9.1 x34.4 cm 
Waga: 7.5 kg 
Cena: 7050 M 



18 



M\smn 

PROGRAM 9 


KRZYŻÓWKA 

Program KRZYŻÓWKA jest narzędziem do tworze- 
nia najpopularniejszej formy rozrywek umysłowych. 
Głównym efektem tej zabawy są wydruki ułożonego 
diagramu, kontrolnego układu haseł oraz haseł wraz ze 
współrzędnymi do późniejszego ich zdefiniowania. 
Rozmiary krzyżówki są opcjonalne, lecz ograniczone 
do prostokąta 25x22 kratek, co w zasadzie powinno 
wystarczyć. W pola diagramu można wpisywać pełny 
alfabet polski. Litery kłopotliwe tzn. Ć, Ł, Ź... itp. wczy 
tuje się przez CONTROL C, L, Z... itd. Przy wpisywaniu 
liter należy posługiwać się kursorem, który jest nieod- 
łącznym atrybutem diagramu i spełnia rolę wskaźnika. 
Kursor porusza się w czterech kierunkach po naciś- 
nięciu klawisza ze strzałką. Dodatkowe funkcje pozwa- 
lają na umieszczenie w diagramie wyrazów lub ich 
fragmentów w poziomie lub w pionie. Funkcje te umoż- 
liwią wpis jedynie wtedy, gdy wyraz będzie pasował do 
aktualnej konfiguracji liter. Kropka oznacza, że pole 
jest puste, zaś gwiazdka symuluje pole niewykorzysta- 
ne przez autora (tzw. Czarne). 

W przypadku przerwania pracy koncepcyjnej program 
pozwala na zapis dotychczasowego stanu na dyskiet- 
ce, a potem na ewentualne powtórne wczytanie krzy- 
żówki i kontynuowanie pracy. Należy podawać ma- 
ksymalnie 8-literowy identyfikator krzyżówki bez uwz- 
ględniania typu zbioru, gdyż program automatycznie 
dodaje rozszerzenie KRZ. Jeśli krzyżówka posiada 
hasło będzie ono również zapamiętane na dyskietce. 

Hasło wczytuje się na początku programu (RETURN 
ignoruje), lecz można je potem modyfikować w dowol- 
nym momencie. Co kilka sekund hasło jest weryfiko- 
wane a na ekranie podawane są brakujące w diagramie 
litery. Jeśli w danym momencie wszystkie litery hasła 
występują już w diagramie, to ukazuje się komunikat 
„hasło kompletne”. 

Pełny zestaw możliwości programu wraz z klawi- 
szami wywołującymi poszczególne moduły uzyskuje 
się po naciśnięciu klawisza TAB. 

Trudno przedstawić wszystkie rozwiązania ze względu 
na brak miejsca, lecz krótko chciałbym wskazać na po- 
tężną pracę systemu przerwań, który regularnie wery- 
fikuje hasło. Przerwania dostępne w Basic u są bardzo 
wygodnym środkiem. Ich poznanie nie nastręcza 
większych trudności, a pozwala na niezwykle śmiałe 
posunięcia. 


10 ’ krzyżówka '86 

20 DEFINT a-z:DIM krz$ <25, 22) : ZONĘ 12 
30 ON BREAK GOSUB 1520 
40 diak*= ,, 6962583646346071" 

50 nor$= ,, ACELNOSZ H : char=140 
60 ? 

70 MODĘ lsBORDER Os PAPER O: PEN 3 
80 INK 0,0: INK 2,20: INK 1,21: INK 3,6 



90 WINDOM #1,1,40,25,25 

100 PAPER #1,2: PEN #1,0 

110 WINDOW #3,29,40,2,23 

120 PAPER #3,1: PEN #3,0:CLS #3 

130 EVERY 50,3 GOSUB 8090 

140 'definicje polskich' liter 

150 SYMBOL AFTER 140 

160 SYMBOL 140,24,60,98,98,126,98,103,1 

170 SYMBOL 141,62,104,200,192,192,102,60,0 

180 SYMBOL 142,254,98,104,120,106,99,254,6 

190 SYMBOL 143,240, 100, 104, 112, 9B, 102,254,0 

200 SYMBOL 144, 202, 234, 242, 2 IB, 206, 198, 194, O 

210 SYMBOL 145, 56, B4, 214, 198, 198,68,56,0 

220 SYMBOL 146,62,100,96,60,6,102,60,0 

230 SYMBOL 147, 254, 3B, 76, 24, 50, 102, 254, O 

240 'definicje klawiszy 

250 FOR a=0 TO 7 

260 KEY char+1, CHRS(char) 

270 b=VAL<MID*<diak*,2*a+l,2) ) 

280 n=ASC tMIDS (norS, a+l , 1 ) > 

290 KEY DEF b, 1 , n, O, char +1 
300 char=char+l:NEXT 
310 'hasło i wymiary diagramu 
320 GOSUB 10050: flag=*0 
330 WHILE f 1 ag>=0: CLS #1 

340 IF flag=?0 THEN INPUT #1 , "szer, krzyżówki 
<2.. 25) " , sz ELSE INPUT #1 , "wys. krzyżówki < 

2. . 22) 11 , wys 

350 IF sz<2 OR sz>26 THEN ELSE flag~l: PEN # 
1,3 

360 IF wys<2 OR wys >22 THEN ELSE flag=-l 
370 WEND 

3B0 FOR a=l TO wys: FOR b=»l TO sz : krzS (b, a) = 

" . " :NEXT b, a 

390 krzSCO, l)=STRS<wys) 

400 krz«(0,0)=STRS(sz) 

410 WINDOW #2,3,sz+2,2,wys+l 
420 PAPER #2, 2: PEN #2, O: CLS#2: CLS #3 
430 LOCATE 3,l:flag=l 
440 WHILE flagOsz 

450 PRINT CHR«<flag+64) ; :f lag=flag+l 
460 WEND 

470 LOCATE l,2:flag=l 

480 WHILE flag<=wys 

490 IF f lag<10 THEN PRINT" 

500 PRINT MID*(STRS(f lag) ,2) 

510 f lag=f 1 ag+1 
520 WEND 

530 GOSUB 1500: WINDOW SWAP 0,2 
540 ON BREAK GOSUB 1510 
550 FOR a=l TO wys 

560 FOR b=l TO sz : PRINT krz*<b,a)j 
570 NEXT b, a 

5B0 IF hasloS=" " THEN GOSUB 9000 ELSE EYERY 
500,2 GOSUB 8000 

590 x=l : y=l : xp* s l : yp=*l : GOSUB 6000 
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600 "menu 

1000 klaw*=UPPER*( INKEY*) : IF klaw*-"" THEN 
1000 ELSE SOUND 1 , 10, 4 s i tem=0 
1010 IF INKEY (O) =0 THEN item-l:"* 

1020 IF INKEY ( 1 ) =0 THEN i tem=2: ’ prawo 
1030 IF INKEY (2) =0 THEN item=3:'dol 
1040 IF INKEY (8) =0 THEN i tem=4: ' 1 ewo 
1050 IF INKEY (6) =0 THEN i tem=5: ’ enter 
1060 IF INKEY (2) =128 THEN item=6:'pion 
1070 IF INKEY ( 1 ) =128 THEN item=7:'poz 
1080 IF INKEY ( 10) =0 THEN i tem=B: ' zapl s 
1090 IF INKEY < 1 1 ) =0 THEN i tem-9: ’ odczyt 
1100 IF INKEY (9> *=0 THEN i tem=10s ' druk . 

1110 IF INKEY (68) =0 AND haslo*<>"" THEN i tem 
=11: 'help 

1120 IF INKEY (5) =0 THEN i tem=12: ' hasło 
1130 IF i tem>0 THEN ON item GOSUB 2000,2030, 
2050, 2070,2090, 3150, 3000, 5000, 4000,7000, 9040 
,10000 : IF i tem=9 THEN 410 ELSE 1000 
1140 IF k 1 aw* >CHR* ( 1 39 ) AND kl aw*<CHR* ( 148) 
THEN i tem-32 

1150 IF klaw*=". " OR (klaw*>="A" AND klaw*<= 
"Z") OR i tem-32 THEN kr z * ( yp , x p ) =k 1 aw$ : GOSUB 

2030 

1160 GOTO 1000 

1500 PAPER #1,0: CLS# 1 : PAPER #1,2: RETURN 
1510 WINDOW SWAP 0,2 
1520 CALL &BB00iEND 
2000 'kierunki 

2010 x=x-l : IF x=0 THEN x-wys 
2020 GOSUB 6000: RETURN 
2030 y=y+l:IF y=sz+l THEN y=l 
2040 GOSUB 6000: RETURN 
2050 x=x + l : IF x=wys+l THEN x=l 
2060 GOSUB 6000: RETURN 
2070 y=y— 1 : IF y=0 THEN y=sz 
-2080 GOSUB 6000: RETURN 
2090 'enter 

2100 krz*(yp,xp )="#": GOSUB 2030: RETURN 
2110 ENT 1,50,10,30,20,5,40 
2120 SOUND 1,30,50, 15, , 1: RETURN 
3000 'poziom 

3010 -f 1 ag—O: dlug=sz: wsp=y:o-f-f = 1 
3020 PRINT #1, "wyraz ";:IF flag-0 THEN PRINT 
#1 , "pozi orno. . . 11 ; ELSE PRINT #1 , "pionowo. " 

5 

3030 INPUT #1 , wyraz*: wyr az*=UPPER* (wyraz*) 
3040 FOR a=l TO LEN (wyraz*) : s*=MID* (wyraz*, a 
,1): IF s*< "A" OR (s*>"Z" AND s*<CHR* ( 140) ) 
□R s*>CHR* ( 147) THEN PR I NT# 1 , "wyraz zawiera 
zabroniony znak. . . " : AFTER 200 GOSUB 1500: RE 
TURN 

3050 NEXT 

3060 IF wsp+LEN (wyraz*) >dlug+l THEN PRlNTttl, 
"za długi wyraz AFTER 200 GOSUB 1500: RET 
URN 

3070 b=0:c=0:F0R a=l TO LEN (wyraz*) 

3080 IF krz* (y+b, x+c) " DR krz* (y+b, x+c) =M 
ID* (wyraz*, a, 1) THEN c-c+t 1 ag: b-b+o-f i : NEXT E 
LSE IF krz* (y+b, x+c) =" #" THEN PRINT#1 , "czarn 
e pole na drodze. AFTER 200 GOSUB 1500: RET 
UR^I ELSE PRINTttl, "kon-fuz ja 1 i ter . . " : AFTER 20 
0 GOSUB 1500: RETURN 
3090 FOR a=l TO LEN (wyraz*) 

3100 krz* (yp, xp) =MID* (wyraz*, a, l) 

3110 IF -f lag=0 THEN GOSUB 2030 ELSE GOSUB 20 
50 

3120 NEXT 

3130 IF (yp>l AND flag-O) OR (xp>l AND flag- 
l) THEN krz* (yp , xp ) =" # " : IF -flag=0 THEN GOSUB 
2030 ELSE GOSUB 2050 
3140 GOSUB 1500: RETURN 
3150 ' pion 

3160 -flag— 1: dlug=wys: wsp=x :o-f-f=0 
3170 GOTO 3020 
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4000 'odczyt tablicy 

4010 a=REMA!N(2) :b=REMAIN(3) 

4020 INPUT #1, "ODCZYT- nazwa pl i ku. . . " ; pi i k* 

4030 IF pi i k*=" " THEN GOSUB 1500: RETURN 
4040 pl i k*=pl i k*+" . krz " 

4050 OPENIN plik* 

4060 FOR a=0 TO 21 
4070 FOR b-0 TO 25 
4080 INPUT #9, krz* (b, a) 

4090 NEXT b, a 
4100 CLOSEIN 

4110 wys-VAL (krz* (O, 1) ) :sz-VAL(krz*(0,0) ) :ha 
slo*=krz*(0,2) 

4120 IF hasl o*< >" " THEN EVERY 500,2 GOSUB BO 
00 

4130 EVERY 50,3 GOSUB B090 
4140 WINDOW SWAP O, 2t CLS: CLS#1 
4150 GOSUB 21 10: RETURN 
5000 'zapis tablicy 

5010 a— O: WHILE a-0: INPUT #1, "ZAPIS- nazwa pl 
i ku. . . " ; pl i k* 

5020 IF LEN (pl i k*) <-B THEN a-l 
5030 WEND 

5040 IF plik*-"" THEN GOSUB 1500: RETURN 
5050 pl i k*=pl i k*+" . krz " : krz* (O, 2) -hasło* 

5060 a=REMAIN (2) : b=REMAIN (3) 

5070 OPENOUT plik* 

5080 FOR a— O TO 21 
5090 FOR b»0 TO 25 
5100 WRITE #9, krz* (b, a) 

5110 NEXT b, a 

5120 CLOSEOUT: GOSUB 1500 

5130 IF haslo*< >" " THEN EVERY 500,2 GOSUB 80 
00 

5140 EVERY 50,3 GOSUB B090 
5150 GOSUB 21 10: RETURN 
6000 ' kursor 

6010 LOCATE yp,xp:PRINT krz*(yp,xp)j 

6020 LOCATE y,x 

6030 PRINT CHR* (22) ; CHR* ( 1 ) ; 

6040 PEN 3i PRINT 

6050 PRINT CHR* (227; CHR* (O) ; 

6060 PEN O: yp=y:xp=x: RETURN 
7000 'drukarka 
7010 opc*=" DKH" 

7020 a»REMAIN(2) :b=REMAIN(3) 

7030 INPUT #1, "Diagram / Krzyżówka / Hasia"; 
a*:a*=UPPER*(a*) 

7040 a*=UPPER* ( a* ) 

7050 PRINT#B, CHR* (27) ; CHR* (64) : ' reset 
7060 PRINT#B, CHR* (27) ;CHR*(BO) : 'pica 
7070 PRINT#B, CHR* (27) ; CHR* (71 ) : ' emfaza 
70B0 ON INSTR (opc*, a*) GOSUB 7120, 73B0, 7490 
7090 IF haslo*< >" " THEN EOERY 500,2 GOSUB BO 
00 

7100 EVERY 50,3 GOSUB B090 
7110 GOSUB 1500: GOSUB 21 10: RETURN 
7120 'Gemlni Btar diagram 
7130 PRINT#B, SPC (4) ; 

7140 FOR a-l TO sz 

7150 PRINT #B, " ";UPPER*(CHR*(64+a));«NEXT 
7160 PRINT#B, CHR* (27) ; CHR* (55) ; 

7170 PRINT#B, CHR* (27) ; CHR* (62) - 

71 BO FOR a=l TO wys 

7190 PRINT#B, STRING* (4, CHR* (255) ) ; 

7200 FOR b=l TO sz 

7210 IF a-l AND b=l THEN PRINT#8, CHR* (21B) ; C 
HR* ( 196) ; 

7220 IF a-l AND bOl THEN PRINT#B, CHR* (203) : 
CHR* (196); 

7230 IF aOl AND bOl THEN PRINT#8, CHR* (215) 

| CHR* (196); 

7240 IF a< >1 AND b-1 THEN PRINT#B, CHR* ( 198) ; 
CHR* (196); 

7250 NEXT b 

7260 IF a-l THEN PRINT#B, CHR* ( 183) ELSE PR IN 
fttB, CHR* ( 1B1 ) 


7270 PRINT.#B, CHR*(27) |CHR*(61> |*| i IF *<10 T 
HEN PRINT#B, " 

72B0 PRINT#8, CHR* (27) % CHR* (62) ) 

7290 FOR b=«l TO az 
7300 PRINTKB, CHR*(179)| 

7310 IF krz*(b, *)-'•*" THEN PRINT#8, CHR* <219) 

| ELSE PRINT#B,CHR*(255) | 

7320 NEXT b i PRINT#B, CHR* ( 179) l NEXT * 

7330 PRINT#8,STRING*(4,CHR*(255>) | 

7340 FOR *-l TO az 

7350 IF a-l THEN PRINT#B, CHR* <21 1 ) | CHR* (205) 

5 ELSE PRINT#B,CHR*(207)|CHR*(205 ) % 

7360 NEXT*PRINT#B,CHR*(18B) 

7370 PRINT#B, CHR* (27) | CHR* (61) i RETURN 

7380 FOR a-l TO wya 
7390 FOR b-1 TO az 

7400 IF krz* (b, a) ^"Z" THEN PRINT#B, krz* (b, a 
) } i GOTO 7420 

7410 c-ASC(krz*(b,a> ) iGOSUB 7440 
7420 PRINT#8," "|lNEXT bl PRlNT#8i NEXT * 

7430 RETURN 

7440 PRINT#8 p MID* (nor*, c-139, 1 ) | 

7450 IF c-140 OR c-142 THEN PRINT#B, CHR* (8) | 

" » " I 

7460 IF c-141 OR c>143 THEN PRINT#B, CHR* (8 ) \ 
I 

7470 IF c-143. THEN PRINT#B, CHR* (8) j " / " | 

7480 RETURN 
7490 'haal a 

7500 PRINT#B, M POZIOMO l " 

7610 FOR *«1 TO wyaiFOR b-1 TO az 
7520 IF krz* (b, *)<>". '* AND krz* (b, *) < >"*" TH 
EN b*-krz*(b,a) i c*-CHR* (64+b) i dlug-az : of f«l i 
, GOSUB 7590 
7530 NEXT b,« 

7540 PRINT#B, "PIONOWOi " 

7550 FOR b-1 TO aziFOR *-l TO wya 

7570 IF krz*(b, *)<>■'. •' AND krz* (b, *>< >“*" TH 

EN d-ai b*-krz* (b, a) i dlug-wyai of f-0: GOSUB 759 

O 

7580 NEXT *,bl RETURN 

7590 IF off-1 THEN b-b+li IF b>dlug THEN RET 
URN 

7600 IF off-0 THEN a-a+li IF a>dlug THEN RET 
URN 

7610 WHILE krz* (b, a) < >" . " AND krz* (b, *) < >" *" 
AND ( (b<-dlug AND off-l) OR (a<-dlug AND of 
f — O) ) 

7620 b*-b*+krz* (b, a) 

7630 IF off-l THEN b-b+1 ELSE a-a+1 
7640 MEND 

7650 IF LEN (b*) <2 THEN RETURN 


7660 IF Off-1 THEN PRINT#B, a| jc*| " " | ELS 
E PRINT#B, CHR* (64+b) | " p d| '* "% 

7670 FOR a-l TO LEN ( b* ) 

7680 c-ASC (MID*(b*, 1 > ) 

7690 IF c< 140 THEN PRINT#8, MID* (b*, •, 1 ) | ELS 
E GOSUB 7440 
7700 NEXT • 

7710 PRINT#8| RETURN 
8000 'przarwania 

BOJO CLS#3i PEN #3, 3i PRINT#3, "HASLOi " I PEN #3, 
O i PR 1 NT #3, haalo* 

B020 takat*-haalo* 

8030 por*-SPACE*(LEN(takat*) ) 

8040 FOR a-l TO wya i FOR b-1 TO az 
.8050 IF krz* (b , a) " OR krz* (b, a)- ,, * ,, THEN 
ELSE c— INSTR (takat*, krz* (b, a) ) i IF c>0 THEN M 
ID* (takat*, c, 1 ) — " " 

8060 NEXT b, a 

8070 IF tekat*Opor* TH^N PRINT#3iPEN ł»3,3:P 
RINT#3, "BRAKI l " i PEN #3, Ol PRINT#3, takat* ELSE 
PRINT#3, , "haalo”, "komplatna" 

SOSO RETURN 

8090 POKE &B632, 255 1 RETURN 
9000 'help 

9010 CLS#3iPRINT# 3, " HELP",, l FOR a-S TO 1 1 
i PRINT#3, CHR* ( 1 ) |CHR*(a) ; i NEXT i PRINT#3, " ku 
raor " , , "ENTER *"iPRINT#3 

9020 PRINT#3, "wyrazi ", "poziomo CTL"|CHR*(1) p 
CHR* (9) | "pionowo CTL" ; CHR* ( 1 ) ; CHR* ( 10) 

9030 PRINT#3, "F7 zapi*","FB odczyt"," 
F3 zm.haala", "COPY druk.","TAB halp"iR 
ETURN 
9040 * halp 

9050 a-REMAIN (2) i GOSUB 9000 
9060 WHILE INKEY*=" " : WEND: CLS#3 
9070 EVERY 500,2 GOSUB 8000 1 RETURN 
10000 'zmiana haala 

10010 CLS#3ilF haal o*< >" " THEN a-REMAIN (2) 
10020 PRINT#3:PRINT#3, hasło*: GOSUB 10050 
10030 CLS#3: IF haalo*<>" u THEN EVERY 500,2 
GOSUB SOOO 

10040 GOSUB 2110: RETURN 
10050 'haalo 
10060 flag-1 

10070 WHILE flag-1 i PRINT #3, "haalo. . . "iPRIN 
TslNPUT #3, hasło* 

10080 *-li f lag-Ot WHILfi a<-LEN(haalo*>' 

10090 a*-MID* (haalo*, a, 1 ) 

10100 IF a*-" " OR (a*>— "A" AND a*<«"Z"> OR 
(a*>-CHR*(140) AND a*<-CHR* < 147) ) THEN a=a+l 
ELSE a-LEN(haalo*) +i i f lag-l 
10110 WEND 

10130 WENDi haalo*-UPPER* (haal o*) : RETURN 
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iWEitimu 

PROGRAMY 10-15 


PROGRAMY EDUKACYJNE Z FIZYKI 


U REH TEST Z OPTYKI. AUTOR JAN GOLLA 
29 CLEAR 589:CLS 

39 PRINTB44B.CHRt (23) 'TEST Z OPTYKI" 

49 PRINTO?lt."W CELU KONTYNUACJI' 

59 PRINT5974, 'NACISKU KLAWISZ SPACJA' 
49 IF INKEYtO" ' GOTO 49 
79 FOR L=1 TO 5:'I10SC PYTAŃ 
St READ Pt 

99 FOR K=1 TO 4-"IŁ0SC MOŻLIWYCH ODFO. 
ltt READ At(K) 

119 NEXT:P=4:’NR. POPRAWNEJ ODPOWIEDZI 

129 REH LOSOWA ZMIANA KOLEJNOŚĆ OOPO. 

139 FOR K=1 TO 5 

149 RAND0H:W1=RNB(4):W2=RND(4I 

159 IF W2=P THEN P=Wi:GOTO 179 

149 IF W1=P THEN P=W2 

179 Bt=At(Wl) :At <Wl)=At <W2) .'At <W2)=B* 

189 NEXT K 

199 as 

299 PRINTOIS. 'PYTANIE NR'iL 
219 PRINTiPSINT Pł:PRINT 
229 FOR K=1 TO 4 
239 PRINT KiAtflO 
249 tEXT K.-PRINT 

259 INPUT'PODAJ NUffiR ODPOWIEDZ I'»X 

249 IF IOP GOTO 399 

279 PRINT'OBP(ftlIEDZIAL£S DOBRZE' 

289 T=T+l:GOTC 329 
399 PRINT'ZLE!M! 

319 PRINT'OOPOWIEDZ DOBRA MA NUMER' fP 
329 IF INKEYtO' ' GOTO 329 
339 NEXT L 

349 REM OCENA WYNIKÓW TESTU 
359 IF T=5 THEN Ot='BARDZO DOBRA' 

349 IF T=4 THEN Ot='DOBRA" 

379 IF T=3 THEN Ot='DOSTATECZNA' 

389 IF T<3 THEN Ot='NIEDOSTATECZNA' 

399 IF T=9 OR T>4 THEN It='PYTAN" 

499 IF T=1 THEN It='PYTANIE“ 

419 IF 1=2 OR T=3 THEN Ił='PYTANIA" 

42# as 

439 PRINTB242rCHR$ (23! i 

449 PRINT"OBPOWIEDZIALES DOBRZE NA' ii 

459 PRINT0349.lt 



449 PRINT 

479 PRINTOTRZYMUJESZ OCENE '!Ot 
489 IF INKEYtO' * GOTO 489 ELSE RUN 
499 REM PYTANIE NR 1 
599 DATA 'ZJAWISKO PODWÓJNEGO ZAŁAMANIA 
ŚWIATŁA ZACHODZI:' 

519 REH ODPOWIEDZI 
529 DATA WE WSZYSTKICH CIAŁACH PRZE 
ZROCZYSTYCH 

539 DATA WE WSZYSTKICH PRZEZROCZYSTYCH 
CIAŁACH STAŁYCH 

549 DATA WE WSZYSTKICH KRYSZTAŁACH 

559 BATA W CIAŁACH ANIZOTROPOWYCH 

549 REH PYTANIE NR 2 

#79 BATA "O WSPOŁCZ. ZAŁAMANIA ŚWIATŁA 

DECYDUJE:" 

589 BATA GESTOSC OBU OSRODKOW 
599 DATA PRĘDKOŚĆ ROZCHODZENIA SIE 
ŚWIATŁA W OŚRODKACH 
499 BATA SPREZYSTOSC OBU OSRODKOW 
419 BATA STOSUNEK SIN. KATÓW PADANIA 
I ZAŁAMANIA 
429 REM PYTANIE NR 3 

439 DATA "FOTOMETR TO PRZYRZĄD 
SŁUŻĄCY BO:' 

449 DATA USTALANIA CZASU NAŚWIETLANIA 
BŁONY FOTOGRAFICZNEJ 
459 DATA POMIARU PRĘDKOŚCI ŚWIATŁA 
449 DATA POMIARU STRUMIENIA ŚWIETLNEGO 
479 DATA PORÓWNYWANIA NATEZEN DWÓCH 
ZRODR ŚWIATŁA 
489 REM PYTANIE NR 4 
499 DATA "W SZKLE PRĘDKOŚĆ ŚWIATŁA 
JEST:' 

719 DATA DLA WSZYSTKICH BARW 
JEDNAKOWA 

729 DATA NAJWIĘKSZA DLA ŚWIATŁA 
FIOLETOWEGO 

749 BATA NAJWIĘKSZA DLA ROŻNYCH BARW 
ZALEŻNIE OD GATUNKU SZKŁA 
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750 DATA NAJMIĘKSZA DLA SHIATLA 
CZERWONEGO 
740 REH PYTANIE NR 5 
776 DATA 'OBRAZ OTRZYHANT M SOCZEMCE 
ROZPRASZAJĄCEJ JEST:' 

780 BATA ZAMSZE POWIĘKSZONY I 
RZECZYMISTY 

m BATA POMIEKSZONY LUB POMNIEJSZONY 
ZALEŻNIE OB OGNISKOMEJ 
860 BATA ZAMSZE POMNIEJSZONY I 
RZECZYMISTY 

810 BATA ZAMSZE POMNIEJSZONY I 
POZORNY 



10 REM RUCH JEDNOSTAJNIE PRZYSPIESZONY 
20 REN AUTOR JAN GOLLA 
30 CIS 

40 DIN V(10):DIM S(10> 

5* FOR X=1 TO 7:PRINT:NE*T 

60 PRINT CHRt(23)r'RUCH JEDNOSTAJNIE PRZYSPIESZONY" 

70 PRINT0B46p 'NACISNI J KLAWISZ SPACJA' 

80 IF INKEYtO' ' GOTO BA 

90 as 

IM INPUT 'PODAJ PRZYSPIESZENIE »A>'iA 

ne as 

120 PRINT TAB (12) 'PRZYSPIESZENIE »A> WYNOSI "A 
130 PRINT' T='i" V='p' S='p* DS=' 

140 PRINT 
150 FOR T=1 TO 10 

140 V(T)=A*T:S(T)=(A*T»T)/2:DS=S(T)-(A«(T-l)«(T-l))/2 
170 PRINT TpV(T).S(TIpBS 
180 NEXT T 

190 PRINT0902p'W CELU KONTYNUACJI NACISNU KLAWISZ SPACJA' 

200 IF INKEW )' ' 6OT0 2M 

210 as:PRINTB0.'V'.'COSUB 400 

220 FOR T=1 TO 10 

230 ON ERROR KITO 500 

240 SET (T»9i44-V (Tl/10) 

250 NEXT T 

260 IF INK£Yt( )' ' BOTO 260 
270 aS:PRINT00i'S':6GSUB 400 
280 FOR T=1 TO 10 
290 ON ERROR GOTO 520 
300 SET(T»9p44-S(T)/10> 

310 NEXT T 

320 IF INKEYtO' " GOTO 320 
330 RUN 

400 FOR X=0 TO 41 
410 SET(Xp44):ŚET(0p44-X) 

420 NEXT X 

430 FOR X=42 TO 100 

440 SET(Xp44) 

450 l€XT X 
460 PRINTB945 p'T' 


470 RETURN 

500 IF INKEYtO' ' GOTO 500 
510 RESUME 270 
520 IF INKEYtO' " GOTO 520 
530 RUN 



10 REM RZUT POZIOMY 
20 REM AUTOR JAN KULA 
30 as 

40 FOR X=1 TO 7:PRINT:KEXT 

50 PRINT CHRt(23) !TAB (9) "RZUT POZIOMY' 

60 PRINTS894pTAB<7> "NACISNU KLAWISZ SPACJA' 

70 IF INKEYtO' ' GOTO 70 
80 CLS 

90 INPUT-PODAJ WYSOKOSC Z KTÓREJ RZUCAMY CIAŁO (H (4S)'pH 

IM IF H<=0 OR HI =48 GOTO 90 

110 INPUT'PODAJ PREIKOSC POCZĄTKOWĄ (WfOKOLO 100) "iV0 

120 CLS:PRINT TAB(49)"H="pINT(H*1B)/10 

130 PRINT TAB(48)'V0='pIW(V0*10)/10 

140 T=SQR(2*H/9.81> :D=U0*T:VK=SllR(V0*V0t2«9.Sl*H) 

150 PRINT:PRINT:PRINT TAB (45) "T=SQRf 2*H/9 .81 » ' p 
160 PRINT TAB(49)'T='f INY (1*101/10 
170 PRINT:PR1NT TAB(49)"D=V0*T' 

180 PRINT TAB(49)'D="pINTtD*10)/10 

190 PRINT :PRINT TAB(42)'VK=SQR(V0*V0+2*9.Bl*H>'p 

200 PRINT TAB148) "UK=* pINT (VK»10>/10 

210 PRINT:PRINT TAB (48) 'NACISNU" 

220 PRINT TABC48) 'SPACJE' 

230 FOR X=0 TO 47:SET (Xp 47) :S£T (0p 47— X> :NEXT 

240 FOR X=48 TO 84:SET(Xp47) :NEXT 

250 ON ERROR GOTO 370 

260 XS=0:YS=0:FOR T=0 TO 84 STEP .5 

270 X=V0/10»T 

280 Y=9.81*i*T/20 

290 IF X>84 0« Y>H GOTO 310 

300 RESET <XSp47 -H+YS) :S£T (Xp47-H+Y) :XS=X:YS=Y:NEXT 

310 FOR T=0 TO 84 STEP 0.5 

320 X=V0/10*T:Y=9.Bl*T*T/20 

330 IF X>84 OR Y)H GOTO 350 

340 SET (Xp47-H+Y) :NEXT 

350 IF INKEYtO' ' KITO 350 

360 GOTO 80 

370 IF INKEYtO" " GOTO 370 
380 RESUME 60 



10 REM RZUT UKOŚNY 
20 REM AUTOR JAN GOLLA 

25 as 

30 FOR X=l TO 7:PRINT:NEXT 
40 PRINT Clffit (23) TAB ( 10) 'RZUT UKOŚNY' 
5* PRINT8910P 'NACISNIJ KLAWISZ SPACJA' 
60 IF INKEYt< >" ' GOTO 60 
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n as 

80 INPUT*PODAJ PRĘDKOŚĆ POCZĄTKOWĄ WIOKOŁO 100)*iV0 
90 PRINT*PODAJ KAT W) NACHYLENIA WEKTORA PRĘDKOŚCI POCZ.* 
100 INPUT-DO POZIOMU W STOPNIACH (0 < A ( 90)* JA 

lie cis 

120 PRINT:PRINT TAB(5)*V0=*iV0:PRINT TABC5) 'ń=*fń 

130 A=A*3. 14/180 

140 T=2«V»«SIN(A)/9.81 

150 D=V0»U0łSIN(2*A)/9.81 

140 H=V0*V0*SIN(A)»SIN(A)/(2*9.8J) 

170 PRINT:PRINT 

180 PRINT *T=2*W»SIN(A)/9.81*.TAB<40)*T=*!T 
190 fRINT 

200 PRINT 'D=V0KV0*SIN(2*A) /9.81'iTAB (40) *D=* ID 
210 PRINT 

220 PRINT 'N=V0*V0»SIN(A)*SlN(A)/(2*9.81)'»TAB(«nt='iH 

230 PRINTP840f*W CELU KONTYNUACJI NACISNIJ KLAWISZ SPACJA* 

240 IF INKEYIO* * GOTO 240 

250 CLS.-FOR X=0 TO 47:SET (Xi47) !SET (01 47— X> :H£XT 

260 FOR X=48 TO 127:SFF<Xr4?):N£XT 

270 ON ERROR GOTO 420 

280 XS=0:YS=O 

290 FOR T=0 TO 40 STEP .5 

300 X=U0*COS(A)*T/4 

310 Y- (V0*SIN(A)*T-9.81*T*T)/8 

320 RESET <XSi 47-YS) :SET(X>47-T) :XS=X:YS=Y:NEXT 

330 ON ERROR GOTO 400 

340 FOR T=0 TO 127 STEP .5 

350 X=V0»COS(A)*T/4 

360 Y=(U0*SIN(A)»T-9.81»T*T)/8 

370 SET(Xi47-Y):NEXT 

380 IF INKEYIO* * GOTO 380 

390 GOTO 70 

400 IF INKEYIO* * GOTO 400 
410 RESUHE 70 
420 RESUME 330 



25 as 

30 FOR X=1 TO ?:PRINT:NEXT 
40 PRINT CHRK23) 

50 PRINT TAB(8X*FI6URY LISSAJOUS* 

60 PRINT0896i TAB (8) 'NACISNIJ SPACJE* 

70 IF INKEYIO* * GOTO 70 

80 as 

90 IKPLirpGBAJ STOSUNEK CZĘSTOTLIWOŚCI 
DRGAŃ K*!K 

100 INPUTPODAJ PRZESUNIECIE FAZOWE 
DRGAŃ F(W PASIAKACH) "F 
110 PRINT0774."JESLI CHCESZ ROZPOCZĄĆ 
RYSOWANIE TO:* 

120 PRINT TABI20) "NACISNIJ SPACJE* 

130 IF INKEYIO* * GOTO 130 

140 as 

150 PRINT *K=*TK:PRINT"F=*»F 
160 FOR T=1 TO 600 
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170 X=63+38*SIN(.05*T) 

180 Y=23+21*SIN<K*.05*T+F) 

190 RESET(XS»47):RES£T(18rYS) 

200 S£T(18.Y):S£T<X,47):SET(X,Y) 
210 XS=Y:YS=Y 
220 IF INKEY$=" * GOTO 80 
230 NEXT 

240 IF INKEYIO* * GOTO 240 
250 KTO 80 



10 REN PROĆRAH W TRYBIE KONWERSACYJNYH DO TWORZENIA 

20 REH TESTU EGZAMINACYJNEGO 

30 REN AUTOR JAN GOLLA 

35 REN PRZYGOTOWANIE PYTAŃ EGZANINACYJNYCH 

40 CLEAR 10000 

50 as 

40 M>UT*Z JAKIEGO NATERIALU JEST TEN TEST*iZI 
70 U0>UT'PODAJ ILOSC PYTANON 
G0 IWWPOMJ ILOSC ODPOWIEDZriN 
85 IF H<2 GOTO 80 

90 INPUrZA ILE DOBRYCH ODPOWIEDZI BEDZIE OCENA DOSTATECZNA*iA 

91 INPUT-ZA ILE DOBRYCH ODPOWIEDZI BEDZIE OCENA D0BRA*;B 

92 IHPUT*ZA ILE DOBRYCH ODPOWIEDZI BEDZIE OCENA BARDZO DOBRA* iC 
120 aS:DIN PMNliDMN.Nl.PtN) 

130 FOR X=1 TO N 

140 PRINTU64.'P0DAJ*!X;*PYTANIE*:INPUT P* (X»:P<X>=M 
150 FOR Y=1 TO N-l 

160 PRINT064.-P0DAJ ZLA ODPOWIEDZ* : IKPUT D*(XrY) 

170 as.*NEXT 

180 PRINTG44. 'PODAJ DOBRA ODPOWIEDZ":INPUT DI(X.Y) r 

190 aS:NEXT 

200 REN URUCHONIENIE PRZYGOTOWANEGO PROGRAMU 
210 CL5:T=© 

220 PRINTO460,C*»(23)*TEST Z *iZ* 

230 PRINTO910i*W CELU KONTYNUACJI* 

240 PRINT0976. ‘NACISNIJ KLAWISZ SPACJA* 

250 IF INKEYIO* * KITO 250 
240 CLS:FOR L=1 TO N 
270 FOR K=1 TO 5 
280 RAND0M:W1=RND<N):W2=RND{H) 

290 IF W1=P(L) TREN P(L)=W2:GGTO 310 

300 IF W2=P(L» TREN P(L)=W1 

310 »=D4(LfUl):0«(L)Ul)=Dt<L>W2):DtfL.W2)=B« 

320 *XT:aS 

330 PRINTfil8iCRR4(23) ‘PYTANIE NR*iL 

340 PRINKPRINT Pt(L) :PRINT 

350 POR K-l TO N 

360 PRINT K;D»(LfK):NEXT:PRINT 

370 INPtfTPODAJ NUMER POPRAWNEJ ODPOWIEDZI "fX 

380 IF XOP(L> GOTO 4M 

390 PRINT -ODPOWIEDZIAŁEŚ M)BRZE":T=T+1:60TO 410 
400 PRINT*ZLE! [ODPOWIEDZ DOBRA NA NR*!P(L) 

410 !F INKEYIO* * GOTO 410 ELSE NEXT 
420 IF HA THEN OI=*NIEBOSTATECZNA* 

430 IF T)=A AND KB THEN OI=*DOSTATECZNA* 

440 IF T)=B AND T(C THEN OI=*DOBRA* 

450 IF T)=C THEN Oł=*BARDZO DOBRA* 

460 aSTPRINT CHR0I23) 

470 PRINTD264. 'ODPOWIEDZIAŁEŚ DOBRZE NA* 

480 PRINTO33e,Ti*SFflSR0D*iN!*RYTAN* 

490 PRIWKPRINTOTRZYNUJESZ OCENE *50* 

500 IF INKEYIO* * DOTO 500 ELSE 200 

JAN GOLLA 


AJUTKAfe 

PROGRAM 16 


WIEŻA HANOI 

Mamy trzy pręty i n krążków o różnych średnicach. 
Krążki mogą być nakładane na pręty: tworząc w ten 
sposób wieże. Załóżmy, że n krążków zostało umie- 
szczonych początkowo na pręcie A w kolejności male- 
jących średnic (na rysunku zilustrowano tę sytuację 
dian =3). 

Naszym zadaniem jest przesunięcie n krążków z prętu 
A na pręt C z zachowaniem pierwotnego porządku. 
Zasady przesuwania są następujące: 

(1) w każdym kroku przesuwa się dokładnie jeden krą- 
żek z jednego pręta na Inny, 

(2) krążek nie może być nigdy nałożony na krążek o 
mniejszej średnicy, 

(3) pręt B może być użyty jako „magazyn pomocni- 
czy”. 

Dane do programu: 

— ilość krążków (1—5) maksymalną Ilość krążków 
można zwiększyć zmieniając w programie wartość 
stałej MAXILKR, 

— żądanie wyświetlenia stanu wież po przełożeniu 
krążka (1 — tak, 0 — nie). 

Kontynuacja wyświetlania wyników (po wyświetleniu 
16 wierszy), wciśnięcie dowolnego klawisza. Program 
napisany jest w Pascalu. 

S. R. 

N. Wirth: „Algorytmy + struktury danych = programy”, 
WNT, Warszawa 1980, s. 172, ćwiczenie 3. 1. 


PROGRAM wiezShanoi; 

(*a-) 

CONST 

»axilkr=5;- (saksysalna ilosc krążków) 

*axilw=16’; (aaksysalna ilosc wyświetlanych 
wierszy) 

TYPE 

znakp=’a’..’c’; {nazwa pręta) 
wyswi ez=l . . sasf 1 1 kr ; {aaksymalna wysokosc wieży 
•ierzona ilością krazkow) 
ilw=l..naxilw; {ilosc wyświetlonych wierszy) 
opiswiez=ftRRfiY Cznakp) OF {opis wieź) 

RECORD 

w:wyswiez; (wskaźnik wierzchołka wieży) 
wieża: ARRAY Cwyswiez) OF wvswiez 
END; 

VflR 

il kr: integer s (zadana ilosc krazkow) 

start, {pręt, z ktoreoo przesuwały krążki) 

cel, {pręt, na który przesuwały' krążki ) 

posr:znakp: {pręt - łagazyn posocniczy ) 

opwtopiswiez; 

drufcńnteger; 

ilwierszyfilw: 

PROCEDURĘ ustawstpocz; 

procedura ustawiajaca początkowy stan wieź) 

s:znako; (zsienne robocze) 
i:wv5wiez: 

BEGIN 

hlTH opw[’a’) DO 
EEEIN 



w:=aaxilkr-ilkr+l; 

FOR i:=w TC sanlkr DO 
wiezaEi):=i-w* *l 
END; 

opw(Vl.w:=0; 

opwC’c’).w:=0' 

END; 

PROCEDURĘ czyscekran; 

{procadura kasujaca na zadanie (wciśnięcie 
dowolnego klawisza) poprzedni obraz po 
wyświetleniu saksyoalnej ilości wierszy) 

VfiR 

x:char; {zuienna robocza) 

BEGIN ' 

IF ilwierszy>=aaxilw THEN 
BEGIN 
REPEfiT 

UNTIL keypressedj 
REftD(kbd,x>; 
drscrj 
ilwierszy:=0 
END 
END; 

PROCEDURĘ drukopw: 

{procedura drukującą nuaery krazkow 
znajdujących sie na poszczególnych prętach) 
VAR 

stznakp; (zeienne robocze) 
ńwyswiez; 

BEGIN 

FOR s:=’a' TO ’c’ DO 
NITH opwls) DO 
BEGIN 

KRITEI’ ’:10, 'wieża ’,s,’ 

IF w>0 THEN 

FOR i:=w TO łaxilkr DO 
NRITEC ’j2,wiezati):2): 

NRITELN 

END; 

ilwierszy:=ilwierszv+3 

END: 

PROCEDURĘ przenfstart.cehznakp); 

(procedura przenoszącą pojedynczy krążek 
z pręta "start" na pręt "cel") 

BEGIN 

czyscekran: 

NRITELNCprzenies krążek z pręta ’, 
start,’ na pręt ' .cel 1 ; 
ilwierszy.:=ilwierszy+l; 
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IF druk=l THEN 
BEGIN 

KI TH opwEcel 3 DO 
BEGIN 

IF w=0 THEN w:=saxilfcr 
ELSE «i=w-lj 

wieza[w]:=opNlstartj.wiezaicpw[startj.al 

END; 

NITH opwlstartl DC 
IF w=saxi2kr THEN w:=0 
ELSE hi = w+l ; 

drukopw 

END 

ENDi 

PROCEDURĘ przel iniwyswiez; V AF; start , posr, cel : znakp ) ; 
{procedura przesuwająca "o* krazfcow z pręta 
"start" na pręt "cel" z wykorzystanie!! pręta 
"posr" jako eaęazvnu} 

BEGIN 

IF n=I THEN przenlstart,cel) 

ELSE 

BEGIN 

przel (n-ł, ątart. cel, posr! ; 
przen (start, cel): 
przel łn-1, posr , start , cel ) 
tND 
END; 


BEGIN 

REPEAT 

WRITELN I ’ podaj ilosc krazkow <= ’,saxilkr): 
READLNtilkr); 

NRITELNCczy cticesz wyświetlać stanywiez po’); 
WRITELN ! ’ przełożeniu każdego krazka? 1-tak.O-nie’l; 
REfiDLH (druki 

UNTIL (ilkr>0) AND Cilkr<=Baxilkr> ; 

drscr; 

ilwierszy:=0: 

IF druk=l THEN 
BEGIN 

ustawstpoczs 

NRITELNCstan początkowy 
ilwiersz»!=ilwierszy+lj 
drukopw 
END; 

starti=’a’; 

cełi='c'j 

posr:=’b f ; 

przel (ilkr, start, posr. cel) 

END. 


stan początkowy 
wieża 
wieża 
wieża 

przenieś krdzek 
wieża 
wieża 
wieża 
przenieś krążek 
wieża 
wieża 
wieża 

przenieś krążek 
wieża 
wieża 
wieża 
orzenies krążek 
wieża 
wieża 
wieża 
przenieś kra 2 ek 
wieża 
wieża 
wieża 
przenieś krążek 
wieża 
wieża 
wieża 
przenieś krążek 
wieża 
wieża 
wieża 


s 

( 2 ) 

c ±z> 


a i 1 
b : 
c : 

z pręta a 
a : 2 

b : 

c : 1 

z pręta a 
a : 3 

b : 2 

c : 1 

z pręta c 
a i 3 

b : 1 

c : 

z pręta a 
a i 

b : 1 

c : 3 

z pręta b 
a : 1 

b i 2 

c i 3 

z pręta b 
a : I 

b : 

c : 2 

z pręta a 
a i 
b : 
c : 


2 3 


na pręt c 


na pręt b 

na pręt b 
2 

na pręt c 
2 

na pręt a 

na pręt c 

3 

na pręt c 


I 2 3 


B 


STEFAN ROZMUS 



16 Pro Lite (Texas Instruments) 
Mikroprocesor: 80C88, 4.77MHz 
System operacyjny: MS-DOS 2.12, 
CP/M 86 

Pamięć RAM: 256 KB lub 768 KB 

Pamięć masowa: Floppy-Disc 720 KB 

Grafika: 640x200 

Zasilanie: akumulator 

Rozmiary: 29x7.5x33 cm 

Waga: 4.8 kg 

Cena: 1 1 300 M 
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ATAKI 

PROGRAM 17 


MINIASEMBLER 

Prezentowany program nazwany MINIASEMBLER 
realizuje dwie zasadnicze funkcje: asemblacji i disa- 
semblacji. Proces asemblacji polega na tłumaczeniu 
programu napisanego za pomocą nazw mnemoni- 
cznych rozkazów mikroprocesora 6502 na kody cyfro- 
we tych rozkazów, które mogą być w takiej postaci wy- 
konywane przez mikroprocesor. Natomiast disasemb- 
lacja jest procesem odwrotnym. Należy zaznaczyć, 
że program MINIASEMBLER nie może I nie powinien 
zastępować prawdziwego (firmowego) Asemblera i 
Disasemblera oraz nie jest narzędziem przeznaczo- 
nym do tworzenia dużych programów w języku ma- 
szynowym. Uwzględniając jednak fakt, że przeciętny 
użytkownik mikrokomputera ma duże trudności ze 
„zdobyciem” firmowego asemblera, program ten jest 
szczególnie przydatny dla początkujących programi- 
stów w języku maszynowym. Program posiada jeszcze 
Inne funkcje, które zostały dalej dokładnie opisane. 
Możliwe obszary zastosowań tego programu rozciąga- 
ją się od pisania i testowania małych programów w ję- 
zyku maszynowym, poprzez „sklejania” programów w 
BASIC-u z procedurami w języku maszynowym aż do 
modyfikacji posiadanego oprogramowania (np. bar- 
dzo łatwo za pomocą tego programu „spolszczyć” fir- 
mowe programy, zmieniać zakodowane w nich stałe 
itp. 

Po wprowadzeniu programu do pamięci należy go 
uruchomić instrukcją RUN. Program wyświetli MENU, 
które informuje o następujących opcjach programu: 

M — drukuj pamięć (heksadecymalnie). 

Począwszy od określonego przez użytkownika adre- 
su z zakresu $0000 — $FFFF wyświetlana jest wierszami 
zawartość pamięci. W jednym wierszu wyprowadzana 
jest zawartość 8 bajtów. Każdy wiersz zawiera: adres 
(hexadecymalnie) pierwszego z 8 bajtów, 8 liczb heksa- 
decymalnych będących zawartoścą każego z 8 bajtów i 
8 odpowiadających tym zawartościom znaków ATAS- 
CII ujętych w (”) 

B — drukuj pamięć (binarnie) 

każdy bajt pamięci jest wyprowadzany w postaci 
liczby heksadecymalnej i odpowiadającej jej liczby bi- 
narnej. 

D — wykonaj disasemblację określonego obszaru 
pamięci. 

Wykonywana jest disasemblacja obszaru RAM, którego 
adres początkowy określa użytkownik. Dla każdego 
rozkazu podawany jest jego adres (heksadecymalnie), 
nazwa mnemoniczna rozkazu mikroprocesora, zawar- 
tość operandu oraz używane rejestry. Dla każego roz- 
kazu będącego skokiem względnym podawany jest ad- 
res bezwzględny pamięci, do którego przekazywane jest 
sterowanie programu przy wykonaniu tego skoku. Dla 
bajtów, których zawartość nie może być zamieniona 
na nazwę mnemoniczną rozkazu .podawany jest znak 
ATASCII ujęty w apostrofy, natomiast w miejsce nazwy 
mnemonicznej wyprowadzane są znaki: ???. 



P — wpisz do pamięci zawartość heksadecymalną; 
wyświetlony jest adres bajtu pamięci I jego zawartości 
w postaci dwuznakowej liczby heksadecymalnej. Na- 
stępnie użytkownik ma możliwość zmiany tej zawar- 
tości poprzez podanie dwuznakowej wartości heksa- 
decymalnej, która zostanie wpisana w miejsce wyświet- 
lonej. Starą wartość można pozostawić wciskając tylko 
klawisz RETURN. Wówczas program „pokaże” zawar- 
tość następnego bajtu pamięci. 

T — wprowadź tekst do pamięci. 

Pod wskazany adres pamięci wprowadzony jest 
tekst, który użytkownik wpisuje z klawiatury. Koniec 
tekstu sygnalizuje wciśnięcie klawisza RETURN. 

L — Ląduj do pamięci (Load). 

Program podaje wielkość wolnego obszaru RAM w 
postaci dwóch adresów — dolnego i górnego. Następ- 
nie użytkownik ma możliwość wprowadzenia w wolny 
obszar RAM informacji z dowolnego urządzenia poda- 
jąc specyfikacje zbioru np.: D: nazwa zbioru. ext, C lub 
E. Za pomocą tej opcji można wprowadzić do pamięci 
komputera zbiory danych, programy w BASIC-u, jak I w 
kodzie maszynowym. Po zakończeniu ładowania pro- 
gram wyprowadza (w postaci heksadecymalnej) liczbę 
załadowanych bajtów. 

S — wyprowadź z pamięci (SAVE). Użytkownik 
wprowadza do komputera adres pocz. obszaru RAM, 
którego zawartość będzie wyprowadzona na określone 
urządzenie oraz liczbę bajtów do wyprowadzenia (he- 
ksadecymalnie). Możliwości jak w opcji L. 

A — uruchamia minlasembter. 

Użytkownik określa adres RAM, do którego mają być 
wprowadzone rozkazy w kodzie maszynowym, powsta- 
łe w wyniku asemblacji. Asembiacja dokonywana jest 
wierszami (liniami) tzn. użytkownik wprowadza Ins- 
trukcję programu w języku asemblera, która jest natych- 
miast tłumaczona na kod maszynowy, który następ- 
nie wraz z operandem jest wyświetlony na monitorze. 
Składnia tworzonych Instrukcji jest analogiczna do 
obowiązującej w opracowanych dla ATARI asemble- 
rach jak ASEMBLER EDITOR lub MAC65. Ponieważ 
asembiacja dokonywana jest na pojedynczych wier- 
szach programu. Używanie adresów symbolicznych 
(etykiet) jest niestety niemożliwe. Po zakończeniu 

* 
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Ir* M3s eeet •? mbht " 

wprowadzania programu (END) może on być od razu 
uruchomiony, a efekt jego działania sprawdzony po- 
przez wydrukowanie obszarów (lokacji) pamięci przez 
niego wykorzystanych. 

> — zamiana liczby dziesiętnej na postać heksade- 
cymalną. 

< — zamiana liczby w postaci heksadecymalnej na 
postać dziesiętną. 

# przełącza wyjście programu z monitora na drukar- 
kę lub odwrotnie. Jeżeli drukarka nie jest podłączona 
do komputera automatycznie wybierane jest wyjście 
na monitor, a użycie tej opcji będzie Ignorowane. 

) ! — przekazuje sterowanie do ATARI, BASIC 

LJ — (spacja) wyświetla MENU — program. 
Wszystkie adresy pamięci wprowadzone do progra- 
mu muszą być podawane w postaci czteroznakowej 
liczby heksadecymalnej z zakresu $0000-$FFFF. 

Opcje ”>” 1 ”<” umożliwiają szybkie przeliczanie ad- 
resów w postaci dziesiętnej na heksadecymalną i od- 
wrotnie. Wykonywanie każdej funkcji (oprócz L, S) może 
być przerwane po wciśnięciu klawisza ESCAPE (w 
trakcie jej realizacji) lub RETURN przed rozpoczęciem 
realizacji. 

Konstrukcja programu umożliwia łatwe rozbudowy- 
wanie go o dowolne fukcje potrzebne użytkownikowi. 
W tym celu w linie 830—990 należy wpisać instrukcję 
wywołującą podprogram opracowany przez użytkow- 
nika, a w linie 11000—29000 tenże podprogram. Przy 
konstruowaniu własnych podprogramów przydatne 
mogą być następujące podprogramy z prezentowane- 
go programu. Oto one: 

linia 100 — podprogram ADRES 

— pobiera z klawiatury podany przez użytkownika 
czteroznakowy adres obszaru pamięci ( w post. heksa- 
decymalnej), dokonuje jego zamiany na liczbę dziesięt- 
ną, którą umieszcza w zmiennej AD, 

linia 200 — podprogram HEXDEC 

— zamienia czteroznakową liczbę heksadecymalną 
zawartą w zmiennej HEX na liczbę dziesiętną, którą 
umieszcza w zmiennej N, 

linia 300 — podprogram DECHEX 

— zamienia liczbę dziesiętną zawartą w zmiennej 
DEC na liczbę heksadecymalną, którą umieszcza w 
zmlenrtej HEX$. Długość łańcucha HEX$ (wartość 2 lub 
4) znajduje się po wykonaniu podprogramu w zmien- 
nej L, 

linia 400 — podprogram POBZ 

— pobiera z klawiatury znak, którego kod umie- 
szcza w zmiennej A, 

linia 500 — podprogram DECBIN 

— zamienia liczbę dziesiętną zawartą w zmiennej 
DEC na ośmloznakową liczbę binarną, którą umie- 
szcza w BINS, 

linia 600 — podprogram BINDEC 

— zamienia liczbę binarną zawartą w BIN$ na liczbę 
dziesiętną, którą umieszcza w DEC, 

linia 700 — podprogram BREAK 

— bada czy został wciśnięty klawisz ESCAPE 1 jeżeli 
tak, to przerywa realizowaną w chwili naciśnięcia funk- 
cję. 

Przy wprowadzaniu programu do pamięci kompute- 
ra proponuję zwrócić szczególną uwagę na cztery 
problemy: 

1. Niektóre linie programu są bardzo długie (taki 
sposób zapisywania zmniejsza pamięć zajmowaną 
przez program), aby mogły być przyjęte przez kompu- 

ter należy przed rozpoczęciem wprowadzenia progra- 
mu wykonać Instrukcję POKE 82,0 

2. Znak „strzałka\ w Inwersle wideo” linia 840, 850... 
itp. uzyskuje się po wciśnięciu klawiszy ESC/CTRL-2. 

3. Wartość zmiennej tekstowej ML$ bardzo Istotna 
dla poprawnego działania opcji L 1 S w linii 30030 skła- 
da się z następujących sześciu znaków: [h, klawisz 
ATARI-SHIFT-2, CTRL-P, L, V, klawisz ATARI — małe 
d) stała ML$ zawiera trzyrozkazowy podprogram w 
Kodzie maszynowym, który przekazuje sterowanie do 
procedury systemu operacyjnego obsługującej urzą- 
dzenia zewnętrzne. 

4. Problem komentarzy — proponuje nie wprowa- 
dzać linii komentarzy ponieważ stanowią one jedynie 
Informacje dla czytelnika, a Im większa Ich Ilość w pro- 
gramie, tym większa pracochłonność związana z 
wprowadzeniem programu do pamięci komputera 1 
wolniejsze działania programu. 

Program zajmuje ok. 10 KB pamięci RAM. 

1 REM ************************** 
******* 

2 REM PROGRAM ASEMBLER 

3 REM ************************** 
******* 

10 GOSUB 30000 
20 bOTu 30150 

95 REM ************************* 
******* 

3S REM PODPROGRAM "POBIERZ ADRES 

11 

97 REM ************************* 
****** 

100 POKE KEY , STR-H 1 ■ ? "Adres poc 

2 . obszaru." ; = INPUT HEX$=IF LENCH 

EX$) ON4 THEN ? ■■? "BI ad w darty c 

h we ,i . " • POP ■■ GOTO 

110 GOSUB HEXDEC : IF EF=N1 THEN G 

OTO ADRES 

120 AD=N : RETURN 

195 REM ************************ 
%%%%%%% 

196 REM PODPROGRAM "ZAMIANA HEX 
-> DEC" 

197 REM ************************ 
******* 

200 N=N0 : EF=N0 = FOR I=N1 TO LEN < H 
EX$>:NIB$=HEX*a,I> = IF NIB$<"0" 
THEN EF=N1 

210 IF NIB$<=“9" THEN N=N*16+VAL 
<NIB$> = GOTO 240 

220 IF NIB$<"A" OR NIB$>"F“ THEN 
EF=N1 

230 N=N*. 1 6+ASC < N I B$ ) -55 
240 NEXT 1= RETURN 

295 REM ************************ 
%%%%%%% 

296 REM PODPROGRAM "ZAMIANA DEC 
-> HEX" 

237 REM ************************ 
******* 

300 HEX*="" 

28 



310 TEMP=DEC' , D£€=fHT<f>E6/iS£-*'TEM r'8§0nIPrOHR$<fl)=" \ " THEN ? 


P=TEMP-DEC*16aF TEMP<N10 THEN H 
EX* (L/L) =STR$ ( TEMP ) * GOTO 330 
328 HEX$(L/L)=CHR$(TEMP+55) 

330 IF LON1 THEN L=L-N1 GOTO 31 
0 

340 RETURN 

395 REM ***********:m********** 
******* 

396 REM PODPROGRAM "POBIERZ ZNAK 

397 REM ************************ 
******* 

400 OPEN #N5/ N4.N0, M K = " -• GET #N5, 
A : CLOSE #N5 = RETURN 

495 REM ************************ 
******* 

496 REM PODPROGRAM "ZAMIANA DEC 
-> BIN" 

497 REM ************************. 
******* 

500 B I N$= " 00000000 ■’ : N 1 6* * 1 " 1 " : N=3 
TR/N2 FOR I=N1 TO N8-IF DEON-1 
THEN BIN*< I , I >«NIB* : DEC=DEC-N 
510 N=N/N2NEXT 1 = RETURN. 

595 REM ************************ 
******* ♦ 

596 REM PODPROGRAM "ZAMIANA BIN 
-> DEC" 

597 REM ************************ 
******* 

608 DEC=N0 = L=STR/N2 = FOR J=N1 TO 
N8 : DEC=DEC+L*VAL(BIN$ ( 3, J) ) = L=L 
N2=NEXT J- RETURN 

695 REM ************************ 
******* 

696 REM PODPROGRAM "BADANIE KL. 
ESCAPE" 

697 REM ************************ 
******* 

700 IF PEEK(KEY)=28 THEN ? =? ? 

BREAK* : POP GOTO START 
710 RETURN 

795 REM ************************ 
******* 

796 REM BADANIE WYBRANEJ OPCJI 

797 REM ***********: ************* 
******* 

800 ? : ? 

820 GOSUB POBZ 

821 IF CHR*<R>»” ” THEN GOTO 301 
80 

830 IF CHR$(A>="M" THEN ? "Drut o 
wan i e p aro i ec i “ : GOT O 1 08Cf 
340 IF CHRi(A>="B‘ ł THEN ? CHR$(2 
53) ; " D ruk owan i e pan i ec i sb i na rn 1 * 
/"GOTO 2000 


;CH 


R$(253) END 
860 IF CHR$<A)= ,, D" THEN ? CHR$(2 
53) ; "Disasemblacja" : GOTG 3000 
870 IF CHR$(A)=”P" THEN ? CHR$<2 
53);"Pisz do Pamięci “ : GOTO 4000 
880 IF CHR$(A)="T" THEN ? CHR$(2 
53);"Pisz tekst do pamięci " : GOTO 
5000 

890 IF CHR$(A)="A" THEN ? CHR*(2 
53) ; "Asemblac ja" = GOTO 6000 
900 IF CHR$<A)="L" THEN ? CHRiC 
53) ; "Lądu j do pamięci " : GOTO 7000 
910 IF CHR$(A)="S" THEN ? CHR$(2 
53) j “Wyprowadź z pamięci" GOTO 8 
000 

920 IF CHR$(A)="#" THEN ? CHR$(2 
53); GOTO 9000 
930 IF CHR$(A)=">" THEN ? CHR$( 
53); "Zamiana dec -> hex":GOTO 10 
000 

940 IF CHRi<A)-" <" THEN ? CHR$(2 
53); "Zamiana hex -> dec" : GOTO 11 
000 

350 IF CHR$(A)=CHR$(125> THEN 30 
160 

990 GOTO 820 

395 REM ************************ 
******* 

396 REM PODPROGRAM 

937 REM DRUKUJE ZAWARTOŚĆ PAMIĘĆ 
I 

398 REM ************************ 
******* 

1000 GOSUB ADRES 

1010 ? #V = ? #V;HEX$;“, “; :FOR I=A 
D TO AD+N7 : DEC=PEEK< I ) : L=N2 : GOSU 
B DECHEX * ? #V; HEX$; " " ; = NEXT I * ? 
#V 

1020 FOR I=AD TO AD+N7 : DEC=PEEK( 

I) : IF V=N4 THEN 1040 

1030 ? #V;CHR$(27); : IF DEC=EOL T 

HEN DEC =46 

1035 GOTO 1050 

1040 DEC=DEC-(DEC> 127) *128 : IF DE 
C<32 THEN DEC=46 
1050 ? #V;CHR$(DEC); 

1060 NEXT I : ? #V; " " ; AD=AD+N8 = D 
CC=AD=L=N4= GOSUB DECHEX= GOSUB BR 

1070 GOTO 1010 

1995 REM *********************** 
******* 

1936 REM PODPROGRAM 
1997 REM DRUKUJE ZAWARTOŚĆ PAMIE 
CI 


1399 REM *************** 

******* 

2000 GOSUB ADRES 
2010 ? #V-? #V;HEX$; " " ; =TRAP S 

TART * DEC=PEEK(AD) = L=N2 = GOSUB DEC 
HEX : DEC=PEEK (AD) : GOSUB DECB I N 
2020 ? #V;HEX$; " ";BIN$; =AD=AD+N 
1 = DEC=AD = L=N4 = GOSUB DECHEX = GOSUB 
BREAK 

2030 GOTO 2010 

2995 REM . *********************** 
******* 

2996 REM PODPROGRAM DISASEMBLACJ 
I 

2997 REM *********************** 
******* 

3000 GOSUB ADRES : TRAP N0*D1*-STR 

3010 DEC=AD = L=N4 GOSUB DECHEX : ? 

#V ; HEX$ ; " " ; = DEC=PEEK (AD) : D0=DE 

C L=N2 = GOSUB DECHEX 

301 1 ? #V ; HE X$ ; " H ; : C=A < D0> : M=IN 
T(C/1000) 

3070 IF M>N0 THEN 3030 

3080 ? #V ; “ ' " ; : I F V=4 THEN 3084 

3082 ? #V;CHR$(27); = IF D0=EOL TH 
EN D0=46 

3083 GOTO 3085 

3084 D0=D0- < D0> 127)*128 : IF DO <32 
THEN D0=46 

3085 ? #V;CHR$(D0); ???" = 

AD=AD+N1 = GOTO 3230 

3030 B= I NT ( C/ 1 00 ) -M*N 1 0 : P= I NT ( C/ 
N 1 0 ) -M* 1 00-B*N 1 0 : Q=C-M*1 000-B* 1 0 
0-P*Nl0 : IF B=N1 THEN ? #V; " 

GOTO 3150 

3110 Dl =PEEK ( AD+N 1 ) = DEC=D 1 * L=N2 = 
GOSUB DECHEX= ? #V;HEX*; " " ; = I F B 
=N2 THEN ? #V; " " ; = GOTO 3150 

3130 D2=PEEK< AD+N2 ) : DEC=N2 : L=N2 = 
GOSUB DECHEX? #V;HEX*;" w ; -Dl=D 
1+D2*STR 

3150 IF M<N4 OR M>13 OR M=ll OR - 
M=N7 THEN 3170 

3160 IF Dl>127 THEN D1=-(STR-D1) 

3165 D1=AD+D1+N2 

3170 ? #V; " ";N$(M*N3-N2,M*N3) 

; " ";L$( P*N3+N 1 , P*N3+N3 ) ; 

3180 DEC=D1 : L=N2 : IF DEOSTR-N1 T 
HEN L=N4 

3190 GOSUB DECHEX- IF D1=-STR THE 
N ? #V : GOTO 3205 

3200 ? #V; ; HEX$ ; Tf < Q*N3+N 1 , Q* 
N3+N3) 


1998 REM W POSTACI BINARNEJ 
Podstawowe wiadomości o programowaniu w języku maszynowym można znaleźć w książce pod red. W. M. Miguta 
„ATARI BASIC KAW" Kraków 1985 oraz w numerach 2. 3. 5 miesięcznika ..KOMPUTER" z ubieołeoo roku 



3205 Dl =-STR : RD=flD+B 

3230 GOSUB BREAK: GOTO 3018 

3995 REM *********************** 

******* 

3936 REM PODPROGRAM WPISUJE DO P 
AMIECI 

3937 REM LICZBY HEKSADECYMALHE 
3998 REM *********************** 
******* 

4000 GOSUB ADRES 
4010 TRAP N8 ; DEC=AD ; L=N4 = GOSUB D 
ECHEX : ? HEXi i” " ; = DEC=PEEK < AD > = 
L=N2 = GOSUB DECHEX = ? HEXi; " = K= 

N0 * 

4038 GOSUB POBZ 

4047 IF A=ESC THEN ? =? *? BREAK 
i ; GOTO START 

4050 IF A=EOL THEN GOSUB HEXDEC : 
POKE AD , N = AD=AD+N 1 * ? = GOTO 40 1 0 
4860 IF A>126 THEN IF K>0 THEN ? 
CHPi<A), - ; K=K- 1 

4070 IF <A>47 AND A<58> OR <fi>64 
AND A<71 ) THEN IF K<N2 THEN ? C 
HRi(A)ż =K=K+N1 HEXi<K,K)=CHRi<A> 
4088 GOTO 4030 

4935 REM *********************** 
******* ) 

4396 REM PODPROGRAM WPISUJE DO P 
AMIECI 

4997 REM TEXT 

4998 REM *********************** 
******* 

5000 GOSUB ADRES 

5010 TRAP N0 : DEC=AD : L=N4 : GOSUB D 
ECHEX : ? - ? HEXi > " "; = K=N0 

5030 GOSUB POBZ 

5840 IF A=EOL THEN POKE AC-,EOL • ? 
= GOTO START 

5050 IF A=ESC THEN 7-7 7 BREAK 

i : GOTO START 

5068 IF A=126 THEN AD=AD-N1 : GOTO 
5018 

5070 ? CHRi<27).;CHR.i<A>i POKE AD 
, A = AD=AD+ 1 = K=K+ 1 = I F K> 1 5 THEN 50 
10 

5080 GOTO 5038 

5995 REM *********************** 
******* 

5996 REM PODPROGRAM ASEMBLACJI 

5997 REM *********************** 
******* 

6080 GOSUB ADRES: TRAP N0=? 

6005 I =N 1 = DEC=N0 HEXi= " " : EDITS=H 
EXi : OPi=HEX$ : L=N 1 
6010 GET #N2,R:EDITia,I)=CHRi<A 
) = IF AOEOL THEN I=I+Nl GOTO 681 
0 

6020 B=LEN<EDITi)R=N0=IF B<N3 T 
HEN 6230 

6030 FOR I=N1 TO BIF EDIT$<I,I) 

O"" THEN A=I : I=B 

6040 NEXT I ED I Ti=ED I Ti < A > = OPi < N 

1,N3)=EDIT*<A,A+N2> : C=N0 : IF OPi= 

"END" THEN GOTO START 

6050 FOR I=N1 TO 168 STEP N3-IF 

N«I,I+N2)*0P* THEN C=<I+N2)/N3= 

I=STR 

6060 NEXT I IF C=N0 THEN 6230 
6070 TRAP 6210:X=N0:Y=N0D=N0:H= 
N0 : Q=N0 : FOR I=A+N3 TO B=IF EDI Ti 
<1/1)0" " THEN D=I : I=B 
6088 NEXT I : OPiCNl .• B-D)=EDITi(D, 
B) • D = N 1 

6830 IF OP*<D,D)="A" THEN X=N3 = D 

=D+N 1 : L=N 1 : GOTO 62 1 0 

6100 IF OPiCD, D)="#" THEN X=N1=D 

=D+N1 

6105 IF OP»<D/D)="<" THEN X=N2=D 
=D+N1 

6110 IF QP$<D,D) SS "$“ THEN H=N1 = D 
=D+N1 

6128 IF OPi<D,D >="X" THEN Q=N1=D 
=D+N1 


6130 QP$~GP* < D D^LEN < ORi > tiP JK 
N3 THEN -6160 r ,Tr ' 

6140 IF CP*<D-N2,D)«",X>* THEN Y 

=N1 ■ D=D-N3 : GOTO 6160 

6145 IF 0Pi<D-N2,D>= ,, ),Y" THEN Y 

=N2 = D=D-N3 = GOTO € 1 60 

6150 IF QPi<D-Nl,D)-",X" THEN Y= 

N3 : D-D-N2 : GOTO 6160 

6155 IF OPi<D-Nl,D)=",Y" THEN Y= 

N4 * D=D-N2 

6168 IF OP$<D,D)=" )" THEN Y=N5 -• D 
=D-N1 

6178 OPi=OPi<Nl , D) 

6180 IF H THEN HEXi=OPi = GOSUB HE 

XDEC : DEC=N : GOTO 6200 

6190 IF Q THEN BINi=OPi GOSUB BI 

NDEC * GOTO 6200 

6195 DEC=VAL<OPi> 

6200 L=N2+ < ( DEC> =STR ) OR CLENCHE 
Xi)=N4)> 

6210 K=C*1000+L*100+X*N10+Y : FOR 
I=N0 TO STR-N1 : I F A(I)=K THEN B= 
I :I=STRNEXT I ! GOTO 6380 
6228 NEXT I 

6230 ? CHRi<253);CHRi<28); "Santa 
x Error!"; =FOR I=N8 TO EOL ; NEXT * 
I : ? CHRi< 1 56> ; = GOTO 6005 
6300 POKE AD/B: IF L=N2 THEN POKE 
AD+N1/DEC 

6310 IF L=3 THEN POKE AD+Nl , DEC- 
INT<DEC/STR>*STR:POKE AD+N2, INT< 
DEC/STR) 

6315 ? CHRi(28) i CHRi< 156> ; •• J=L : D 
EC=AD • L=N4 : GOSUB DECHEX : ? HEXi; " 

6320 FOR I=N0 TO J-Nl = DEC=PEEK<A 
D+I) L=N2= GOSUB DECHEX : ? HEXi; " 

"/ : NEXT I 

6338 AD=AD+J = POKE 85, 18 ? .ED I TT ; 
:GOTO 6005 

6995 REM *********************** 
******* * 

6996 REM PODPROGRAM WPROWADZA DO 
PAMIĘCI 

6997 REM DANE Z URZĄDZENIA ZEW. 
CLOAD) 

6938 REM *********************** 
******** 

7800 ? 7 "Wolna Parni ec od.adr = 

i"; : DEC=PEEK< 144>+STR*PEEK( 145> = 
L=N4= GOSUB DECHEX : ? HEXi, “ - i"> 
78 1 0 DEC=PEEK ( 74 1 > +STR*PEEK < 742 > 
•L=N4= GOSUB DECHEX=? HEXi 
7020 ? "Adres obszaru do ładowań 
ia ? i" > : IHPUT HEXiIF LENCHEXi) 
04 THEN ? -7 "BI ad w danych wej 
.":GOTO START 

7830 GOSUB HEXDEC=BH=INT(N/STR>: 
BL=N-BH*STR 

7040 ? "Podaj specyfikacje zbiór 
u " > : I NPUT SPECi : TRAP START GS=N 
0 : IF SPECi<l, 1>="C" THEN GS=STRx 
N2 

7850 OPEN #N1 , N4, GS , SPECi : POKE I 
0BASE+N2 / N7 : POKE 1 0BRSE+N8 , N8 = PO 
KE I0BASE+N9, PEEK<742)-PEEK< 145 > 
7060 POKE I0BRSE+N4.- BL : POKE IOBA 
SE+N5 , BH : I =USR < ADR <MLT ) ) : CLOSE # 
NI 

7070 SL=PEEK ( I 0BASE+N8 ) =SH=PEEK< 

1 0BASE+N9 ) : DEC=SL+STR*SH = L=4 * GOS 
UB DECHEX : ? "Załadowano bajtów: 

T" > HEXT : GOTO START 
7995 REM *********************** 
******* 

7396 REM PODPROGRAM WYPROWADZA Z 
PAMIĘCI 

7997 REM DANE NA URZĄDZENIE ZEW. 
<SAVE> 

7998 REM *********************** 
******** 

8000 ? "Adres - skąd wyprowadzać 
? “ ; ■' INPUT HEXT IF LEN<HEXT> 04 
THEN ? • ? "Błąd w danych wej. " 
GOTO START 


i— r 

8010 GOStfB NT<M^9-TR^ * 

BL=Ń-BH*STR 

8820 ? "Liczba bajtów do wyprowa 

dzenia ? “/ -INPUT HEX*:IF LEN < HE 

X*> 04 THEN ? -7 "Błąd w danych 

wej. "GOTO START 

8030 GOSUB HEXDECSH=INT<N/STR> = 

SL=N-SH*STR 

8840 ? "Podaj specyfikacje zbiór 
u : INPUT SPECT ; TRAP START GS=N 
0 : IF SPEC$a,l>="C" THEN GS=STR/ 
N2 

8050 OPEN #N1,N8, GS, SPEC*: POKE I 
0BASE+N2 , N 1 0+N 1 = POKE I 0BASE+N8 , S 
L : POKE I0BASE+N9, SH 
8060 POKE I0BRSE+N4,BL:P0KE IOBA 
SE+N5 , BH : I =!JSR < ADR ( MLT > ) - CLOSE # 
NI: GOTO START 

8995 REM *********************** 
******** 

8996 REM PODPROGRAM "WYJŚCIE NA 
DRUKARKĘ 

8397 REM *********************** 
******** 

9000 IF V=N3 THEN V=N4 ■ ? "Wydruk 
na drukarkę" GOTO START 
9010 IF V=N4j»THEN V-N3 : ? "Wyjsci 
e na lYionitor" GiDTO START 
9395 REM Zamiana dec -> hex 
10000 TRAP START:? "Liczba dzies 
ietna : INPUT DEC = L=N4 •- GOSUB DE 

CHEX : ? " Hek sade-cy ma Ina : " ; HEXi = G 
OTO START 

10935 REM Zamiana hex -> dec 

11800 ? "Liczba heksadecymałna " 

;= INPUT HEXf: GOSUB HEXDECIF EF= 

NI THEN GOTO START 

11018 ? "Dziesiętna •• " ; N : GOTO ST 

ART 

23935 REM ********************** 
******* < 

29336 REM PODPROGRAM INICJUJĄCY 

29937 REM DZIAŁANIE PROGRAMU 

29938 REM ********************** 
******* 

38000 RESTORE 30000 POKE 559,0 
300 1 0 READ N0 /NI, N2 , N3 , N4 , N5 , N6 , 
N7 , N8 , N9 , N 1 0 , NI 2 , ESC , ADRES , EOL , H 
EXDEC, STR, DECHEX, POBZ, DECBIN, BIN 
DEC , BREAK, KEY, STAR 
30020 DATA 8, 1,2, 3, 4, 5, 6, 7,8,9, 1 
0, 12,27, 100, 155,200,256,300,408, 
500,600, 700, 764, 880 
30038 DIM ML$<N6>,SPEC*(N10+N5? : 
ML*="h LV" ML$<2,2>=CHR$aS2> M 
L$<3, 3>=CHRf < 16> : MLf C6, 6>=CHR^ (2 
28 > 

3003 1 I0BASE=848 = V=N3 

30100 DIM N$< 171 > , A<STR-N1 > ,L$<N 

12) , T$ CN10+N8) , HEX#<4), NIB$ CNI >, 

B I Ni < N8 ) , BRERKi C N 1 0+N 1 ) , ED I Ti < NI 
0*N4 ) , OPi< N 12) 

30 1 1 0 Ni <N1 ,39)=" ADCANDASLBCCBCS 
BEOB I TBM I BNEBPLBRKB VCBVSCLCCLDCL 
I CLVCMPCPXCPYDECDEXDEYEOR INC INKI 
NYJMPJSRLDRLDKLDYL 
30 120 Ni < 1 00 , 1 7 1 ) = " NOPOR APHAPHPP 
LAPLPROLRT I RTSSBCSECSEDSE I STASTX 
ST YTAXT A VT SXTXATXST YAROR??? " 

30140 Li=" # < A "Ti=" 

X)),Y,X , Y ) " Li<2,2)=CHRi<31) 

Li<3,3)=CHRi(30) Li<5,5)=CHRi<3 
0) 

38141 Li<6,6)=CHRi<31) =Li<8,8>=C 
HRi<3l ) : Li<3, 9)=CHRi<30) * TiC2,2) 
=CHRi<31 ) : Ti<3, 3)=CHRi<30) 

30142 BREAKi= "** BREAK **'* =FOR I 
=N0 TO STR-N1 : READ A : A<I)=fl : NEXT 
I = RETURN 

30150 OPEN #N2, NI 2, N0, "E = " : OPEN 
#N3, N8, N0, "E = " : TRAP 38160: OPEN # 
N4, N8, N0, "P : " = GOTO 38170 
38160 CLOSE #N4 : OPEN #N4,N8,N0,“ 
E= “ 


30176 GRAPHICS H0 = SETCOLOR N1,N0 
, Nie = SETCOLOR N2, N12+N2, N2 = SETCO 
LOR N4,N12+N2,N2 
30180 PRINT CHR$<125) : PRINT =PRI 
NT " ASEMBLER WIERSZO 

WY " = PRINT = PRINT " 

MEN U"=P 

30182 ? "M - Drukuj zawartość pa 
mięci" 

30183 ? "B - Drukuj zawartość pa 
mięci /'binarnie/'" 

38184 ? "D - Disasemblacja" 

30185 ? "P - Pisz do pamięci <he 
ksadeomalnie/ “ 


30186 
ci" 

30187 ? 

30188 ? 
LuflD” 

30189 ? 
- SWE" 

30190 ? 

30191 ? 

30192 ? 


? "T - Pisz tekst do parnie 


"fi - fisemblacja" 

"L - Ladu.j do Pamięci - 

"S - Wyprowadź z pamięci 

"> - Zamiana dec -> hex" 
“ < - Zamiana hex -> dec" 
“# - Wyjście na drukarkę 


- Sterowanie do AThRI 

- Powrot do M E N U" 

= ? “ W 

" ; POKE 82, NO = GOTO ST 


30193 ? 

BASIC" 

30194 ? " 

30195 ? :? 

YBIERASZ ? 

ART 

30200 DATA 11 100 ,.35221.. 0,0. 0.352 
00 , 3200 ,0,37100, 352 10,31 30 , 0 ,0,3 

5300. 3300. 0. 10200.35222.0.0. 0. 35 

203.3203.0. 14100 

30210 DATA 35304,0,0,0,35303,330 

3 . 0 . 29300 . 222 1.0.0. 7200 . 2200 .402 
00,0,39100,2210,40130,0,7300, 236 


0, 40300, 0,8200 
30220 DATA 2222,0,0,0,2203,40203 
, 0, 44100, 2304, 0, 0, 0, 2303,40303,0 
,41100, 24221 , 0,0,0,24200, 33200, 0 
,36100,24210 
30230 DATA 33130,0,28300,24300,3 

3300 . 0 . 1 2200 . 24222 .0.0.0. 24203 , 

3203 .0. 16100.24304.0.0.0. 24303 . 3 

3303.0. 42100.1221 
30240 DATA 0,0,0,1200,56200,0,38 

100. 1210.56130.0. 28325. 1300. 5630 
0,0,1 3200 , 1 222 ,0,0 , 0 , 1 203 , 56203 , 
0,46100,1304 

30250 DAT A 0 , 8 , 0 , 1 303 , 56303 ,0,0, 

47221 .0. 0. 49208.47200. 48200. 0, 23 

100.0. 53100.0.49300 . 47300 . 48300 , 
0,4200,47222,0,0 

30260 DATA 49203,47203,48204,0,5 

5100. 47304. 54100. 0. 0. 47303.0. 0. 3 

2210. 3022 1.31210.0. 32200 . 30200 . 3 

1200.0. 51100.30210 
30270 DATA 50100,0,32300,30300,3 

1 300 . 0. 5200 . 30222 .0.0. 32203 . 3020 

3.31204.0. 17100.30304.52100.0.32 
303,30303,31304 
30280 DATA 0,20210,18221,0,0,202 
00, 18200,21200,0,27100, 18210,221 
00 , 0 , 20380 , 1 8300 ,21 300 , 0 , 9200 , 1 8 

222.0. 0.0.18203 
30290 DATA 21203,0,15100,18304,0 
,0,0, 18303,21303, 0, 19210, 43221 , 0 
,0,1 9200 , 43200 , 25200 , 0 , 26 1 00 
30300 DATA 43210,34100,0,19300,4 

3308 . 25300 . 0 . 6200 . 43222 .0.0.0.43 

203 . 25203 .8.45100. 43304 .0. 0.0.43 
303,25303,0 


Oprać. H. KRASUSK1 



17. Sharp PC 5000 
Mikroprocesor 8088, 4.77MHz 
System operacyjny: MS-DOS 2.0 
Pamięć RAM: 1 28 KB lub 256 KB 
Pamięć masowa: Fioppy-Disc 360 KB 
Grafika: 640x80 
Zasilanie: sieć lub akumulator 
Rozmiary: 32.6x8.7x30.5 cm 
Waga: 4.4 kg 
Cena: 5000 M 


18 Tandy 102 

Mikroprocesor 80C85, 2.4MHz 
System operacyjny: ROM-based 
Pamięć RAM: 24 KB lub 32 KB 
Pamięć masowa: Mikrofloppy 1 00 KB 
Grafika: 240x64 
Zasilanie: sieć lub bateria 
Rozmiary: 30x4.2x21 .5 cm 
Waga: 1 .6 kg 
Cena: 1400M 




19 Tandy 200 

Mikroprocesor 80C85, 2.4MHz 
System operacyjny: ROM-based 
Pamięć RAM: 24 KB lub 72 KB 
Pamięć masowa: Mikrofloppy 1 00 KB 
Grafika: 240x128 

Zasiianie: sieć, bateria lub akumulator 
Rozmiary: 29.9x5.6x21 6 cm 
Waga: 2.1 kg 
Cena: 2500 M 

31 
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20. Toshiba T 1100 
Mikroprocesor 80C88, 4.77MHz 
System operacyjny: MS-DOS 2.1 1 
Pamięć RAM: 256 KB lub 512 KB 
Pamięć masowa: Floppy-Disc 20 MB 
Grafika: 640x200, 320x200 
Zasilanie: sieć lub akumulator 
Rozmiary: 31 x6.6x30.5 cm 
Waga: 4 2 kg 
Cena: 4700 M 


22 Zenith Z 181 Portabie PC 
Mikroprocesor 80C88, 4.77MHz 
System operacyjny: MS-DOS 3.1 
Pamięć RAM: 640 KB lub 1 .2 MB 
Pamięć masowa: 2 Floppy-Disc po 
720 KB, dysk twardy 
20 MB 

Grafika: 640x200 
Zasilanie: sieć lub bateria 
Rozmiary: 29x8x34 cm 

Waga: 6 kg 


21 . Zenith Z 171 
Mikroprocesor: 80C88, 4,77MHz 
System operacyjny: MS-DOS 3.1 
Pamięć RAM: 256 KB lub 640 KB 
Grafika: 640x200 
Zasilanie: sieć lub akumulator 
Rozmiary: 33x24.1x1 6.8 cm 
Waga: 6 kg 
Cena: 6780 M 






Ogólnopolska Federacja 
Klubów Komputerowych 
Młodych Mistrzów Techniki 
ZSMP skupia 2 55 klubów 
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WRZAWA ULSMOLNA 40 
KOD 00 $20 


W numerze: 

AMSTRAD 

• Grafika „Wieź Hanoi" 


— str 12 


• Technologia przenoszenia pro- 
gramów ze Spectrum na 
Amstrada — str 21 


• Rezystor 


str 24 


• Hiperbole równoosiowe i 

sprzężone — str. 27 

• Gra Hamiltona — str. 29 


ATARI 

• Automatyczny start programów 
napisanych w Basic-u na Atari 

800 XL — str. 6 

• Dysk — Menu — str. 7 

• Rozszczepienie światła w pry- 
zmacie — str. 8 

• Regresja i korelacja — str. 18 

COMMODORE 

• „Życie" — str. 14 

SHARP 

• Dżungla — str 16 

SPECTRUM 

• Kod maszynowy — str 3 

• Rubik — str iq 


Okładka i rysunki przy progra- 
mach: Michał Przybyłowski 


Oto drugi numer zeszytu programów komputerowych. Sądzimy, że każdy 
użytkownik komputera znajdzie w nim coś dla siebie. Ale uwaga — nasze 
programy proponujemy traktować jedynie jako propozycje. Każdy z nich mo- 
żna nie tylko poprawić zaopatrując na przykład w atrakcyjną grafikę, ale tak- 
że przetłumaczyć na dialekt zrozumiały przez inny komputer. Zabieg ten 
choć wymaga nieco praktyki i wiedzy opłaci się sowicie. 

I jeszcze przypominamy: niektóre z programów będą emitowane 
przez „Radiokomputer” — program rozgłośni harcerskiej. Słuchajcie go 
zawsze we wtorki o godzinie 22.50 w programie IV i w piątki o 1 6.00 również 
w programie^. 

, REDAKCJA 


WARSZTATY 

KOMPUTEROWE’87 


Pod patronatem Ogólnopolskiej Fe- 
deracji Klubów Komputerowych Mło- 
dych Mistrzów Techniki ZSMP w dn. 
19—21 marca br. w Pałacu Kultury i 
Nauki odbyły się warsztaty kompute- 
rowe INFOKLUB'87. Z ogólnej liczby 
255 klubów, do Warszawy zaproszono 
dwadzieścia trzy. Stoisko Centralnej 
Składnicy Harcerskiej, punkt naprawy 
Komputerów oraz wystawa firmy „LA- 
SER". stanowiły dodatkowe atrakcje 
dla zwiedzających. 

Jaki cel miała ta impreza? 

Organizatorzy nie ukrywali, ze tego 
t/pu spotkania mają służyć przede 
wszystkim edukacji informatycznej 
młodzieży oraz wspieraniu procesu 
komputeryzacji społeczeństwa i gos- 
podarki narodowej. Wynikało to rów- 
nież z celów, jakie stawiają sobie same 
kluby. 

Podczas trwania „warsztatów" mo- 


żna było wymienić programy, skopio- 
wać dyskietki z ciekawymi grami, kupić 
specjalistyczną prasę, a nawet oddać 
do naprawy komputer i być świadkiem 
usunięcia usterki. 

Przedstawiciele federacji wykazali 
dużo pomysłowości i inicjatywy w zor- 
ganizowaniu INFOKLUBU’87, ale je- 
szcze lepiej zaprezentowały się po- 
szczególne kluby. Niektóre z nich 
przywiozły prawie wszystkie typy kom- 
puterów spotykanych w Polsce. Uzu- 
pełnieniem do fego był dodatkowy os- 
przęt z pełnym oprogramowaniem słu- 
żącym zarówno do szkolenia, jak i za- 
bawy. 

Jakie mają osiągnięcia? Jakie pla- 
ny? Na te pytania szukaliśmy odpo- 
wiedzi w bezpośrednich rozmowach z 
przedstawicielami klubów. 

Tekst i foto: _ 

Rogoń Ryszard 5 
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Asembler 

N apisanie programu w języku 
wewnętrznym procesora j^st 
zajęciem żmudnym i powinno 
się ograniczać do tych przypadków., 
gdzie me można z różnych względów 
zastosować języka wysokiego pozio- 
mu. Niemniej zwolenników kodu ma- 
szynowego nie brakuje i stąd prezen- 
towany program. 

Pozwala on poznać strukturę obsza- 
ru Basic a (opcja P). może służyć jako 
narzędzie do kontroli pracy w tym języ- 
ku, Opcja Z wyświetla użyte w Basic'u 
zmienne,- a po wyborze klawisza W 
otrzymamy podstawowe dane o pro- 
gramie. Inne używane klawisze: D — 
kasowanie ostatniego znaku podczas 
wpisywania numeru linii, BREAK — 
powrót do menu. 

Z poziomu interpretera Basic a uru- 
chamiamy program przez np. RAN- 
DOMIZE USR 64200. a opuszczamy 
go opcją Q Nie zapominajmy o obni- 
żeniu RAMTOP komendą CLEAR 
64199 . 

S truktura programu w asemble- 
rze powinna być szczególnie 
uporządkowana, gdyż tylko 
wtedy możliwy jest końcowy sukces. 
Spójrzmy na wydruk. Na początku 
wprowadzamy adres, od którego 
asembler będzie składował kod wyni- 
kowy (dyrektywa ORG) Rozkaz ENT 
nie jest konieczny, ale pozwala na uru- 
chamianie programu z poziomu 
asemblera, co staje się wygodne przy 
testowaniu poszczególnych procedur 
lub fragmentów programu. Teraz wczy- 
tujemy skok do miejsca ińicjalizacji ko- 
idu (START). W ten sposób tworzy się 
miejsce na „stałe fragmenty gry". W 
tym przypadku %ą to definicje tekstów, 
etykiety, zmienne programu (numer linii 
i licznik przesunięć ekranu) oraz pro- 
cedury. Cały ten blok nie tylko popra- 
wia czytelność struktury kodu, lecz 
przede wszystkim znacznie ułatwia 
programowanie. Oczywiście blok ope- 
racyjny rozpoczyna etykieta START. 

Użyte zmienne systemowe ROM są 
lub będą opisane w miesięczniku 
„IKS”, pozostaje więc krótko opisać 
procedury ROM, z których program ko- 
rzysta. A zatem: 

5633 — ustala kanał do transmisji 
danych (numer kanału w 
A), 

3082 — ' wyprowadza teksty upo- 


rządkowane jak na wydru- 
ku, 

6683 — wyprowadza na używany 
kanał liczbę z zakresu 
0...9999, 

8202 — ustala pozycję dla wydru- 
ku tekstu (linia w C. kolum- 
na w B), 

8220 — ustala pozycję kolumny 
dla wydruku (w C), 

8020 — sprawdza, czy przyciśnię- 
to klawisz BREAK ( lub 
CAPS + SPACE), 

6584 — przeszukuje obszar pro- 
gramu lub zmiennych BA- 
SIC, 

3582 — skroluje ekran o jedną li- 
nię w górę, 

6654 — wydobywa liczbę umie- 
szczoną cyfra po cyfrze w 
* pamięci (do BC), 

6510 — wyprowadza adres linii o 
.podanym numerze w HL. 

11547 — testuje, czy bajt w akumu- 
latorze jest cyfrą, 

11563 — umieszcza parę BC na 
stosie kalkulatora, 

11747 — wyprowadza zawartość 
stosu kalkulatora na uży- 
wany kanał. 

W szystkie adresy podane są w 
programie dziesiętnie, co 
może przeszkadzać „heksa- 
decymalnym”. W takim wypadku trzeba 
po prostu podzielić adres przez 1 6 lub 
skorzystać z programu MONITOR. 

Krzysztof MAMCARZ 
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129 
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219 

229 

239 

249 
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269 

279 

289 

299 

309 


»** BASICDUHP * 85 
,JGENS3M2 ossemb] ci 
ORG 
ENT 
JP 

, teksty 

NAPISY DEFB 

DEFM 
DEFM 
DEFB 
DEFM 
DEFM 
DEFB 
DEFM 
DEFM 
DEFB 
DEFM 
DEFM 
DEFB 
DEFM 
DEFM 
DEFB 
DEFM 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 


64299 

64200 

START 

128 

“1985 BASI" 

"C DUMP* 

" "+128 
"obszar próg" 
"rarnu pusty" 

" "+128 
"obszar zmie" 
"nnych pusty" 

" “+128 
"koniec obsza" 
"ru programu' 

" "+128 
"P budowa " 
"programu" 

“ "+128 
"Z list,a " 
"zmiennych" 

" "+128 
"W wskaźniki" 

" "+128 
"Q basie" 

" "+128 
“od numerU " 


339 

349 

359 

369 

379 

389 

39© 

409 

419 

429 

439 


469 

479 

489 

499 

509 

519 

529 


DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 


“ linii" 

" "+128 
"program" 

" "+128 
"zmienne" 

" "+128 
"wolne" 

" + 128 
"ramtop" 

" "+128 
"liczba" 

" "+128 
"(5 bajtów)" 

" "+128 
"linia nr." 

" “+128 
“dług. linii" 

" “+128 
"koniec linii" 
" "+128 
"ktrl " 

" "+128 


§28 1-SfittSa syst. . 


550 BORDCR 
560 KSTATE 
570 ATTR-T 
5B0 VARS 
590 PRÓG 
6O0 ELINE 
610 STKEND 
620 RAMTOP 


EQU 

EQU 

EQU 

EQU 

EGU 

EGU 

EGU 

EGU 


630 9 procedury ROM 
640 OPENCH 
650 POMSG 
660 OUTNUM 
670 NUMBER 
680 AT 
690 TAB 
700 NEXT 
710 SCROLL 
720 STK—BC 
730 PR_FP 
740 BRTEST 
750 GETLN 
760 ADDRLN 


EGU 

EGU 

EGU 

EQU 

EGU 

EGU 

EGU 

EGU 

EGU 

EQU 

EGU 

EGU 

EGU 


23624 

23556 

23695 

23627 

23635 

23641 

23653 

23730 

5633 

3082 

6683 

11547 

8202 

8220 

6584 

3582 

11563 

11747 

8020 

6654 

6510 


770 rzmienne programu 

780 BUFOR DEFS 5 

790 LICZ DEFB 10 

800 Jprocedura CLS 

810 CLS LD A»2 

820 CALL OPENCH 

830 LD HL, 16384 

840 LD (HL> ,0 

850 PUSH HL 

860 PÓP DE 

870 INC DE 

880 LD BC , 6143 

890 LDIR 

900 RET 

910 t procedura PRTSTR<A> 

920 ?we: A-nr. napisu 
930 PRTSTR LD DE, NAPISY 

940 Jp POMSG 

950 J procedura BORDER (A) 

960 » we s A-kolor ramki 

970 BORDER OUT (254), A 

vt}v RLCA 

990 RLCA 

1000 RLCA 

LD (BORDCR), A 

1020 RET 

1030 {procedura KOLORY (A, C> 

1040 Jwes A-paper 
1050 ? C-ink 
1060 KOLORY RLCA 

107 ® RLCA 


1080 


RLCA 




109© 

1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1160 
1190 rprocedura 
1200 »we* A-nr- 
1210 PREDIT 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 

1300 r procedura 


OR C 

LD HLr 22528 
LD (HL)»A 
PUSH HL 
POP DE 
INC DE 
LD* BC.767 
LDIR 

LD (ATTR-T)rA 
RET 

PREDIT (A> 
napisu 
PUSH AF 
LD A,1 
CALL OPENCH 
LD BC , 256 
CALL AT 
POP AF 
CALL PRTSTR 
LD Ar2 
JP OPENCH v 
KLAWISZ 


1310 Jwy A-kod ASCII 


1320 KLAW RES 

1330 BIT 

1340 JR 

1350 LD 

1360 RET 

1370 rprocedura BREAK 
1380 BREAK CALL 

1390 JR 

1400 RET 

1410 r procedura DLPROG 
1420 DLPROG LD 

1430 LD 

1440 AND 

1450 MINUS SBC 

im tg 

1480 DRUK CALL 

1490 CALL 

1500 LD 

1510 RST 

1520 LD 

1530 RST 

1540 RET 

1550 rprocedura DLZMIE 
1560 DLZMIE LD 

1570 LD 

1580 SCF 

1590 JR 

1600 r procedura WOLNE 
1610 WOLNE LD 

1620 ADD 

1630 LD 

1640 AND 

1650 JR 


5r (IY+l) 

5r (IY+1> 

Zr KLAW 
Ar CKSTATE) 


BRTEST 
Cr BREAK 


HL, (VARS> 
BC r (PRÓG) 
A 

HLrBC 



STK_BC 
PR_FP 
A, 13 
16 

Ar 13 
16 


HLr (ELINE) 
BC , <UARS> 

MINUS 

HL, 0 
HLrSP 

BC r (STKEND) 
A 

MINUS 


1660 

r procedura 

TOPRAM 


1670 

TOPRAM 

LD 

BC r (RAMTOP) 

1680 


JR 

DRUK 

1690 

r procedura 

KURSOR 


1700 

KURSOR 

LD 

Ar 18 

1710 


RST 

16 

1720 


LD 

Arl 

1730 


RST 

16 

1740 


XOR 

A 

1750 


RST 

16 

1760 


LD 

A r 18 

1770 


RST 

16 

1780 


XOR 

A 

1790 


RST 

16 

1800 


LD 

A r 8 

1810 


RST 

16 

1820 


RET 


1830 

^procedura 

DELETE 


1840 

DELETE 

LD 

HL, BUFOR 

1850 


XOR 

A 

1860 


SBC 

HL»DE 

1870 


RET 

Z 

1880 


LD 

A ,32 

1890 


RST 

16 

1900 


LD 

A,8 

1910 


RST 

16 

1920 


LD 

A r 8 


1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 


2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 


DE 


RST 
DEC 
RET 

r procedura CYFRA 
rwes A-kod ASCII 

DE-wskaz. bufora 


CYFRA 


CALL NUMBER 
RET C 

HL r BUFOR+4 


HLr DE 
Z 

BrA 


<DE> r 
DE 


LD 
AND 
SBC 
RET 
LD 
RST 
LD 
LD 
INC 
RET 

r procedura PR-ADR 
rwe= HL-adres linii 
PR_ADR PUSH HL 

LD BC r 21 
CALL AT 
PUSH HL 
POP BC 
CALL STK_BC 
CALL PR_FP 


LD 


BC r 6 


CALL TAB 
POP HL 
LD Br 0 
LD Cr (HL) 
CALL OUTNUM 


LD A 
RST 1 
RET 

5 procedura PRZESUW 


PRZES 


LD 

DEC 

LD 

AND 

JR 


(LICZ) rA 


NZrUP 
LD Ar 1 0 

LD (LICZ)rA 
CALL KLAW 

JP PUSH HL 

CALL SCROLL 
POP HL 
RET 

; ******************* 
i PROGRAM GŁÓWNY 


START 


CALL CLS 
LD A r 4 

CALL BORDER 
LD A r 4 

LD C r 0 

CALL KOLORY 
LD BC r 10 

CALL AT 
LD A r 4 
CALL PRTSTR 
LD Ar 13 * 
RST 16 
LD A r 5 


2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 


JR MENU 

? *********************** 

ZMIEŃ CALL CLS 

LD BC r 0 
CALL AT 
LD A r 5 
CALL BORDER 
LD A r 5 

LD C r 2 

CALL KOLORY 
LD HL r (VARS> 
LD Ar (HL) 

CP 128 
JR' NZr PĘTLA 
LD Ar 2 
CALL PREDIT 

EXIT CALL BREAK 

JP START 

PĘTLA CALL NEXT 

LD Ar (HL) 

CP 128 
JR ZfEXIT 
31 
5 r A 
6r A 
16 

Ar (HL) 

224 


AND 

SET 

SET 

RST 

LD 

AND 

RLCA 

RLCA 

RLCA 

CP 


JR 

LD 

RST 

JR 

CP 

JR 

LD 

RST 

LD 

RST 

JR 

CP 

JR 

LD 

RST 

JR 

CP 


CP 

JR 


2 

NZr DALI 
Ar 
16 

NAST 

6 

NZr DAL2 
Ar 
16 

Ar 233 
16 

NAST 

7 

NZrDAL3 
Ar 235 
16 

NAST 

4 

ZrDIM 

3 

Zr NAST 


PUSH DE 
EX DErHL 
XQR A 
CALL POMSG 
POP DE 
LD 
RST 
EX 
JR 


A r 6 
16 


DErHL 
PĘTLA 

r ********************* 
USK CALL CLS 

XOR A 
LD Cr 7 
CALL KOLORY 


LD 

Ar 13 

3410 

LD 

BC r 5 

kST 

16 

3420 

CALL 

AT 

LD 

Ar 6 

3430 

LD 

Ar 9 

CALL 

PRTSTR 

3440 

CALL 

PRTSTR 

LD 

Ar 13 

3450 

CALL 

DLPROG 

RST 

16 

3460 

LD 

Ar 1 0 

LD 

Ar 7 

3470 

CALL 

PRTSTR 

CALL 

PRTSTR 

3480 

CALL 

DLZMIE 

CALL 

KLAW 

3490 

LD 

Arii 

CP 

"Q~ 

3500 

CALL 

PRTSTR 

RET 

Z 

3510 

CALL 

WOLNE 

CP 

~P~ 

3520 

LD 

Ar 12 

JP 

ZrDUMP 

3530 

CALL PRTSTR 

CP 

"W" 

3540 

CALL 

TOPRAM 

JP 

Zr USK 

3550 

CALL 

BREAK 

CP 

“Z" 

3560 

JP 

START 

JR 

ZrZMIEN 

3570 

; ********************* 
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3580 

DUMP 

CALL 

CLS 

3590 


LD 

Ar 7 

3600 


LD 

Crl 

3610 


CALL 

KOLORY 

3620 


LD 

HL» (UARS) 

3630 


LD 

DE r (PRÓG) 

3640 


AND 

A 

3650 


SBC 

HL r DE 

3660 


JR 

NZr NRLIN 

3670 


LD 

Ar 1 

3680 


CALL 

PREDIT 

3690 


CALL 

BREAK 

3700 


JP 

START 

3710 

NRLIN 

LD 

BCt 10 

3720 


CALL 

AT 

3730 


LD 

Ar8 

3740 


CALL 

PRTSTR 

3750 


LD 

DE r BUFOR 

3760 

LINIA 

CALL 

KURSOR 

3770 


CALL 

KLAW 

3780 


CP 

13 

3790 


JR 

ZrKOMPL 

3800 


CALL 

CYFRA 

3810 


CP 

~D~ 

3820 


CALL 

ZrDELETE 

3830 


JR 

LINIA 

3840 

KDMPL 

LD 

Ar 255 

3850 


LD 

(DE) rA 

3860 


CALL 

CLS 

3870 


LD 

HLr BUFOR 

3880 


CALL 

GETLN 

3890 


LD 

HrB 

3900 


LD 

LrC 

39f0 


CALL 

ADDRLN 

3920 

LIN1 

PUSH 

HL 

3930 


LD 

DEr (V ARS) 

3940 


AND 

A 

3950 


SBC 

hl»de 

3960 


POP 

HL 

3970 


JR 

NZrCONT 

3980 


LD 

At 3 

3990 


CALL 

PREDIT 

4000 


CALL 

BREAK 


4010 


JP 

START 

4020 CONT 


CALL 

PR_ADR 

4030 


PUSH 

HL 

4040 


LD 

At 15 

4050 4 


CALL 

PRTSTR 

4060 


POP 

HL 

4070 


LD 

B* (HL) 

4080 


INC 

HL 

4090 


LD 

Cr (HL) 

4100 


CALL 

GUTNUM 

4110 


CALL 

PRZES 

4120 


CALL 

PR_ADR 

4130 


CALL 

PRZES 

4140 


INC 

HL 

4150 


CALL 

PR_ADR 

4160 


PUSH 

HL 

4170 


LD 

At 16 

4180 


CALL 

PRTSTR 

4190 


POP 

HL 

4200 


LD 

Cr (HL) 

4210 


INC 

HL 

4220 


LD 

Br (HL) 

4230 


PUSH 

HL 

4240 


CALL 

STK-BC 

4250 


CALL 

PR_FP 

4260 


POP 

HL 

4270 


CALL 

PRZES 

4280 


CALL 

PR^.ADR 

4290 


CALL 

PRZES 

4300 


IND 

HL 

4310 INLINE 


CALL 

PR_ADR 

4320 


LD 

Ar (HL) 

4330 


CP 

13 

4340 / 


JR 

NZ r KOD 14 

4350 


PUSH 

HL 

4360 


LD . 

Ar 17 

4370 


CALL 

PRTSTR 

4380 


POP 

HL 

4390 


CALL 

PRZES 

4400 


INC 

HL 

4410 


JR 

LIN1 

4420 K0D14 


CP 

14 


4430 


JR 

NZrCTRL 

4440 


PUSH 

HL 

4450 


LD 

Ar 1 3 

4460 


CALL 

PRTSTR 

4470 


POP 

HL 

4480 


CALL 

PRZES 

4490 


INC 

HL 

4500 


CALL 

PR_ADR 

4510 


PUSH 

HL 

4520 


LD 

Ar 14 

4530 


CALL 

PRTSTR 

4540 


POP 

HL 

4550 


CALL 

PRZES 

4560 


INC 

HL 

4570 


LD 

Br4 

4580 

FLOAT 

PUSH 

BC 

4590 


CALL 

PR_ADR 

4600 


CALL 

PRZES 

4610 


INC 

HL 

4620 


POP 

BC 

4630 


DJNZ 

FLOAT 

4640 


JR 

INLINE 

4650 

CTRL 

CP 

16 

4660 


JR 

Cr NORMAL 

4670 


CP 

21 

4680 


JR 

NCr NORMAL 

4690 


PUSH 

HL 

4700 


LD 

Ar 18 

4710 


CALL PRTSTR 

4720 


POP 

HL 

4730 


LD 

Ar (HL) 

4740 


ADD 

Ar 201 

4750 


RST 

16 

4760 


CALL 

PRZES 

4770 


INC 

HL 

4780 


CALL 

PR- ADR 

4790 

WYK 

CALL 

PRZES 

4800 


INC 

HL 

4810 


JR 

INLINE 

4820 

NORMAL 

RST 

16 

4830 


JR 

WYK 




Wojewódzki Klub Kompu- 
terowy MMT „Sobótka” dzia- 
ła pod patronatem Uniwersy- 
tetu Mikołaja Kopernika w 
Toruniu. Siedzibą klubu jest 
Młodzieżowy Dom Kultury 
„Kameleon". Może właśnie 
dlatego członkowie „Sobótki 
' mają- tak zmienne szczęście. 
Dostając 31 grudnia 1986 
roku 30Q tys.' złotych musieli 
wydać je właśnie w tym sa- 
mym dniu. Jak kupić po- 
trzebny sprzęt w tak krótkim 
czasie? Tej tajemnicy nikt nie 
chciał nam zdradzić. 

Oprócz typowej działal- 
ności szkoleniowej dla mło- 
dzieży i dorosłych, klub pro- 
wadzi akcję „alfabetyzacji 
komputerowej” dla dzieci od 
lat 6 do 1 0. 
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ATAKI 

PROGRAM 2-3 


AUTOMATYCZNY START 
PROGRAMÓW NAPISANYCH W 
BASICU NA ATARI 800XL 

P rogramy firmowe dla mikrokomputerów ATARI 
800XL napisane w kodzie maszynowym i dostępne 
na dyskach, np. gry, programy użytkowe, posiadają 
bardzo wygodny sposób uruchamiania. Po prostu: wkłada 
się dyskietkę do stacji dysków i włącza komputer. Nato- 
miast uruchomienie programu napisanego w języku BASIC 
wymaga od użytkownika napisania komendy LOAD z od- 
powiednią nazwą zbioru i dopiero po wykonaniu jej przez 
mikrokomputer, komendą RUN można uruchomić załado- 
wany program. 

Przedstawiony poniżej program AUTOSTART umożli- 
wia uruchamianie programów w BASIC-u w sposób tak 
wygodny jak uruchamianie programów firmowych. Istota 
jego działania polega na tym, że zapisuje on na dyskietce 
zbiór o nazwie AUTORUN.SYS zawierający program w 
kodzie maszynowym (linie 2000—2036). Dla dyskowego 
systemu operacyjnego (DOS) mikrokomputera ATARI 
zbiór o nazwie AUTORUN.SYS ma specjalne znaczenie. 
Zawarty w zbiorze program binarny (zapisany w kodzie 
maszynowym) jest ładowany i uruchamiany automatycznie 
po włączeniu mikrokomputera. 

Po wprowadzeniu linii programu do pamięci należy' go 
zapisać na dyskietkę, a następnie uruchomić komendą 
RUN. Program zatrzyma się i zażąda podania nazwy zbioru 
dyskowego zawierającego program w BASIC-u, który ma 
być automatycznie uruchamiany. Wówczas należy podać 
nazwę zbioru np.: PROGRAM1.BAS i wcisnąć klawisz 
RETURN. Następnie do stacji dysków należy włożyć dy- 
skietkę zawierającą zbiór z podaną wcześniej nazwą i 
wcisnąć START.. Program uzupełni kod maszynowy za- 
warty w liniach 2000—2036 o podaną nazwę zbioru i zapi- 
sze zaktualizowany kod do zbioru AUTORUN.SYS, po 
czym uruchomi się od początku. Analogiczne operacje 
program AUTOSTART będzie powtarzał z kolejnymi dy- 
skietkami. Jeżeli chcemy przerwać działanie programu, na- 
leży w momencie, gdy żąda ori podania nazwy zbioru na- 
pisać * (gwiazdkę) i wcisnąć RETURN. Gdy mamy już za- 
pisany na dyskietce zbiór AUTORUN.SYS możemy au- 
tomatycznie uruchomić program. W tym celu wyłączamy 
na kilka sekund mikrokomputer i po chwili włączamy go 
ponownie. Przy włączaniu komputera nie należy wciskać 
klawisza GPTION. Po kilku sekundach program „zameldu- 
je się" na ekranie. W tym miejscu należy wymienić trzy wa- 

1 REM ***********#*****#******^ 

2 REM PROGRAM AUTOSTART 

3 REM *************************4 
100 dim DCi 68 >..F$ae>,L$ae> 

110 ? CHR$< 1 25 ) ; POKE 752,1 
120 PGSITION 0,0 ? CHR*a7>j‘F0R 
LI=1 TO 38 -• ? CHR$<18>; : NEXT LI 
? CHR$<5>; 

122 PGSITION 0,1? "I PROGRAM Z 
AP I SU JE ZBIÓR AUTORUN.SYS I "■> 

124 PGSITION 0,2 : ? "I UMOŻLIWIA 
JACY AUTOMATYCZNY START I”; 
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(uok *tun Duszą Dyc spełnione, aoy pru yr3( AUTO- 
START poprawnie działał: 

1 W opisany wyżej sposób można uruchamiać programy 
w BASIC-u zapisane na dysk komendą SAVE (zapi- 
sane komendą LIST generować będą przy próbie uru- 
chomienia błąd nr 21 ). 

2. Na dyskietce oprócz zbioru zawierającego uruchamia- 
ny program, zbioru AUTORUN.SYS, musi znajdować 
się DOS wraz z pakietem DUP.SYS. 

3. Na dyskietce można zapisać TYLKO JEDEN zbiór o na- 
zwie AUTORUN.SYS. 

Z warunku trzeciego wynika, że program AUTO- 
START jest pożyteczny, gdy na dysku mamy jeden 
program w BASIC-u. Co zrobić w sytuacji, gdy na 
dyskietce zapisanych jest np.: 20 lub więcej programów. 
Tez można je wszystkie automatycznie uruchamiać. W tym 
celą wprowadzamy do pamięci mikrokomputera drugi pro- 
gram o nazwie DYSK— MENU (linie 1—1950). Wyświetla 
on wykaz zbiorów na dysku przyporządkowując jedno- 
cześnie każdemu zbiorowi pojedynczy znak — poczynając 
od znaku A np.. 

PROGRAM1 PROGRAM2BAS 

PROSTA BAS PROGRAM4 

itd. Chcąc uruchomić program zawarty w zbiorze PRO- . 
STA.BAS wystarczy tylko nacisnąć klawisz C. Wciśnięcie 
klawisza RETURN przekazuje sterowanie do translatora 
BASIC-a. Program DYSK— MENU musi być zapisany na 
dyskietkę zawierającą programy, które chcemy automaty- 
cznie uruchamiać komendą SAVE. Następnie programem 
AUTOSTART wpisujemy na tę samą dyskietkę zbiór AU- 
TORUN.SYS. Gdy program AUTOSTART zażąda nazwy 
zbioru z programem do automatycznego startu należy po- 
dać nazwę zbioru, do którego wpisany został program 
DYSK— MENU. Od tej chwili możemy w komfortowy spo- 
sób uruchamiać dowolny z wielu programów zapisanych 
na dysku. Ma to jeszcze jedną zaletę. Nie musimy pamię- 
tać, ani skrzętnie ewidencjonować zbiorów na dyskietce. 
Aby „zobaczyć" co na niej jest, wkładamy ją do stacji dy- 
sków, włączamy komputer i po chwili wszystko już wiemy. 

155 IF F$<1, ł>=‘ *" THEN GRAPHICS 
0-END 

160 L=LEN<F$) 

162 FOR 1=1 TO L 1 2 3 IF F$<I*I>*" 

THEN L=I-1 GOTO i 70 
165 NEXT I 
170 FOR N=1 TO L 
172 IF N=1 AND F$ <N, N> <CHR*<65> 

OR F*<NfN»CHR*<36> THEN GOTO 11 
00 

174 IF NO 1 AND F$<N, NXCHR$<48> 

AND F$<N,N ><>“." THEN GOTO 1100 


125 ROSI TI ON 06 3 : ? “t PROGRAMO 

W NAPISANYCH W BASICU I"; 

126 POSITION 0,4^? CHR$(26); =FOR 
L I = 1 TO 38:? CHR$(18); : NEXT LI 

? CHR$(3> ; 

130 POSITION 3,6? "Zbiór AUTORU 
N.SYS zajmuje 2 sektora."; 

150 POSITldN 3,7:? "Podaj nazwę 
zbioru, zawierające? o a> 

151 POSITION 3,8 ? "orosraro, kto 
ra roa miecs. au.toroat. START" 

152 INPUT F$ 


176 IF NO 1 AND <F*<N,N»CHR*<57 
> RND F$<N,NXCHR$<;65> OR F$<N,N 
»CHR$O0>> THEN 1100 
178 IF Ft<N,N)=“.” AND <L>N+3 OP 
P=l> THEN 1100 
180 IF F$<N,N>="." THEN P=1 
180 NEXT N 

200 POSITION 3,10:? "Wloz dysk ie 
tke do stacji dyskSw" 

220 FOR 1=1 TO 168 ; READ R=D£I}=R 
■ NEXT I 

240 POSITION 3,12 ? “Nacisr.ij ST 
RRT » 

242 IF PEEK<532?3>=6 THEN GOTO 2 
50 

245 GOTO 242 

250 FOR 1=148 TO 137 STEP -1 
260 J=J+1=IF J>L THEN D<I>=32=G0 
TO 270 

265 Da>=ASC<F$<J,J)> 

270 NEXT I 
280 GOSUB 1000 


290 POSITION 3,14=? "proszę chwi 
le Doczekać. . . " 

30O GOTO 1510 

1000 TRAP 1500 = CLOSE #l=OPEN #1, 
8, 0, "D : AUTORUN. SYS” 

1010 FOR 1=1 TO 168= PUT #1,D<I> 
1020 NEXT 1= CLOSE #1 = RETURN 
1100 ? CHRS ( 253 > ; CHRt ( 254 fi = RUN 
1500 POSITION 3,20 = ? “Wystąpił t- 
lad numer " PEEK (195) 

1510 FOR T=1 TO 1100: NEXT T=? CH 
Rt<253> : RUN 

2000 DATA 255, 255, 106,6, 255,6, 16 
9,80 

2002 DATA 141,0,3,169,1,141,1.3 
2004 DATA 169,63,141,2,3,169,64, 
141 

2006 DATA 3,3,169,5,141,6,3,141 

2007 DATA 5,3,169,0,141,4,3,141 

2008 DATA 9,3,141,10,3,141,11,3 
2010 DATA 169,12,141,8,3,32,89,2 
28 

2012 DATA 16,1,96,162,11,189,0,5 


2014 DATA 157,0,3,202,16,247,32. 
89 

2016 DATA 228,48,6,32,6,5,108,12 
2018 DATA 0,96,169,133,141,33-3. 
169 

2020 DATA 6,141,34,3,96,251,243, 
51 

2022 DATA 246,207,6,163,246,51,2 
46,60 v 

2024 DATA 246,76,228,243,172,255 
,6,240 } 

202b DATA 9,185,234,6,206,255-6, 
160 

2028 DATA 1,96,140,33,3,169,228, 
141 

2030 DATA 34,3,169,155,160-1,96 
2032 DATA 34,67,88,69,46,71,78,7 
3, 84,82, 65, 84i 83, 58, 68, 34, 78, 85, 
82 

2034 DATA 32,20,226,2,227,2 
2036 DATA 106,6,224,2,225,2,180, 



P rogram DYSK— MENU umożliwia wybór jednego 
z 26 programów, ^które mogą być automatycznie 
uruchamiane (litery A— Z). Jeżeli mamy na dysku 
więcej zbiorów (maksymalnie 64) należy w linii 1 820 zmie- 
nić liczbę 91 na inną. Na przykład: liczba 101 zwiększa 
liczbę programów z 26 do 36. Należy jednak pamiętać, że 


w tej sytuacji kolejnym programom będą przyporządkowa- 
ne kolejne znaki (kody ATASCII), „większe" od liter alfabe- 
tu. Wybór programów do automatycznego startu będzie 
odbywał się poprzez „wybieranie" z klawiatury tych zna- 
ków, co nie zawsze jest wygodne gdyż np.: wybranie małej 
litery „a" wymaga użycia dwóch klawiszy (CAPS i A). 


1 rem ***********t***tt**x****** 

2 REM PROGRAM DYSK-MENU 

3 REM *Xt*t***1W******tt***t**t 
1600 DIM R$<20) ,NZ$< 12), TP$(76S) 
, Pf ( 14) 

1685 POKE 752,1 

1610 CLOSE #l=OPEN #1,6,0, "D=*.* 
1615 Y=65J=1 

1620 FOR X=1 TO 64INPUT #l,ft* 
1630 IF fil(3,3)<’fl" OR fl*<3,3»" 
2" THEN 1678 

1640 TPt<J,J)=CHR*<Y> = TP*<j4-l,J+ 
1 1 )=At<3, 13) 

1650 J=J+12=Y«Y+1 

1660 IF fi$(l,l)=* H OR R*.< 1,1)3* 

**■ THEN NEXT X. 

1670 Y=155 = TP*(J,J>=CHR$a55) 
1700 ? CHR$<125) 

1718 POSITION 8,1:? "UYKA2 Z8I0R 
OW NA DYSKIETCE” 


“'20 J=1 = Y=3 

*738 IF TP$(J, J)=CHR$< 155) THEN 
GOTO 1800 

1740 POSITION 4 , Y? TP$<J,J)i" " 
; TPt ( J+l , J+l 1) : J 3 J +12 
1750 IF TPt< J, J)=CHRt<155> THEN 
GOTO 1300 

1760 POSITION 22, Y=? TP t(J,J)>" 

" i TP* < J+ 1 , J+ 1 1 ) : J= J+ 1 2 : Y»Y+ 1 : GOT 
O 1730 

1800 CLOSE #l=OPEN #1,4,0, “K" 
1810 POSITION 15,22=? “WYBIERASZ 
? H 

1820 GET #1,8= IF 8=155 THEN END 
IF B<=64 OR 8>=S1 THEN GOTO 182 

0 

1830 J=1 

184© IF TPtCJ, J)=CHR$<B) THEN GO 
TO 1300 

1850 IF TP*<J,J)=CHR$<155> THEN 
GOTO 1950 


1860 J=J+12 = GOTO 1848 

1900 P*< 1,2)=“D=“Y=2 

1901 FOR X=0 TO 7 

1902 IF TP*(J+1+X,J+14#)«- « THE 
N GOTO 1984 

1383 Y*Y+l=P#<Y,Y)*TP#(J+l-fX,J«fl 
♦X) =NEXT X 


1905 IF TP*(J+9,J+11>=" ■■ THEN 

P*<Y,Y>=” "GOTO 1910 

1906 P#CY+1,Y4-3>=TP*(J+9,J+H> 
1910 POSITION 6,20 = ? "URUCHRMIfiM 

PROGRAM “;P*:RIJN Pt 
1958 POSITION 0,6=? “zle wybrale 
s PrcraraM !•! "=GOTO 1889 


Opracował H. KRASUSKI 


Stoisko Mikołaja Przychody było nie 
mniej oblegane od innych. „Złote rącz- 
ki" mistrza potrafiły w ciągu kilku minut 
usunąć różnorodne usterki z kompute- 
ra. Za dodatkową zapłatą można było 
również wymienić rodzime układy w 
Meritum na podobne z inicjałami re- 
nomowanych firm elektronicznych. W 
odczuciu większości uczestników ut- 
worzenie punktu naprawy komputerów 
było znakomitym pomysłem organiza- 
torów. 
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ATAKI 

PROGRAM . 4 


Rozszczepienie światła w 
pryzmacie 

rogram ten, umożliwia zaobser- 
wowanie zjawiska rozszczepie- 
nia światła w pryzmacie Jako 
dane, należy podać rodzaj materiału, z 
którego wykonany jest pryzmat, kąt ła- 
miący pryzmatu oraz kąt padania wiąz- 
ki światła białego na pryzmat. Zakoń- 
czenie prezentacji rozszczepienia 
światła jest sygnalizowane krótkim 
sygnałem dźwiękowym. 

W tym momencie, aby przejść do 
następnej części programu, należy 
wcisnąć klawisz SELECT. W tej części 


8 CLR DEG 

1 MX=0=DIh V*(40>,PR<5,3>,LL<5> 

5 GRAPHICS 0POKE 710,12'POKE 709,0 

6 POL=0 

7 FOR 1=1 TO 5= FOR 11=1 TO 3 

8 PR«,II>=0 = NEXT II =NEXT I 

10 H=170 Z=16 : Q=0. 25 : N1=1 =N2-1.5 
- 15 POSITION 5, 3 : P0KE 752,6 
16 ? ■ 

20 POSITION 5,4 

21 ? " ROZCZEPIENIE ŚWIATŁA 

23 POSITION 5,5 

24 ? “ W PRYZMACIE 

25 POSITION 5.6 

26 ? " 

30 POSITION 10,10 ? "1- Crown lekki" 
32 POSITION 10,12? ”2- Flint lekki" 
34 POSITION 10,14;? « 3 - Flint ciężki 

36 POSITION 8,19 

38 ? "PODAJ RODZAJ PRYZMATU" 

39 GOSUB 9080 

46 GPEN 91,4,0, “K" -GET #1 ,22 

41 CLOSE *1 SK=ZZ-49 

42 IF SK=0 THEN 50 

43 IF SK=1 THEN 50 

44 IF SK=2 THEN 50 
46 GOTO 40 

50 RESTORE 5080+180*SK 

60 GRAPHICS 0;POKE 710, 12:P0KE 709,0 

65 POSITION 6,3 TRAP 65 

66 ? "Podaj kat lamiach pryzmatu" 

68 POSITION 18,5 : INPUT GAMA 

69 IF GANA> 1 10 OR GRMACl THEN 65 

70 POSITION 10, 9 TRAP 70 

71 ? "Podaj kat padania" 

72 POSITION 18, 11 INPUT AL 

73 IF RL>90 OR AL<0 THEN 70 

74 IF MX=1 TWEN 110 < 

75 POSITION 12,20 : POKE 752; 6 

76 ? “ DANE PRYZMATU" : TRAP 40000 
85 FOR M=1 TO 6P0KE 755,2 

87 POSITION 15,18? " SELECT " 

83 SOUND 1,50,10,15 
90 FOR Ml=l TO 130>NEXT Ml 
95 SOUND 1,0,0,0POKE 755,0 
100 FOR Ml=l TO 70 ; NEXT Ml 
105 NEXT M 
110 Gfl=GAMA/'2 
208 GRAPHICS 11COLOR 15 
50© REM RYSOWANIE PRYZMATU 
510 APO=H*S IN ( Gft > /COS ( GA ; 

515 IF APO> 160 THEN H=H*0.3 GOTO 510 
520 APX=< 1S0-RPO>*Q = APY=191-Z 
530 BPX=APX+APO*Q BPY=191-Z-H 
540 CPX=BPX+RPOłQCPY=APY 
550 PLOT APX, APY DRAWT O BPX,BPY 
> DRAWTO CPX, CPY 

560 FOR R=Z TO 1 STEF 1 -1=K=191-R 
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programu, można uzyskać dane doty- 
czące rozszczepienia i ząłamania po- 
szczególnych promieni w pryzmacie. 
Dalsze informacje dotyczące obsługi 
programu będą ukazywane podczas 
wykonywania programu. Program ten. 
działa także w TURBO BASIC’u XL co 
powoduje znaczne przyspieszenie wy- 
konywanych obliczeń. 


osiadaczom odbiorników czar- 
no-białych poleciłbym dokona- 
nie w linii 200 zmiany trybu gra- 
ficznego ził na 9. Można dokonać też 

565 COLOR R=PL0T 0,K> DRAWTO 78, K 
570 NEXT R 
598 COLOR 15 

608 REM ***** ***** ***** **** 
S 

610 R=SIN<AL-GA>/COS<RL-GA> 

620 BX 1 =APX/G+AP0/2 = BY ł =H/2+Z 

630 B=eYl-P*8Xl 

648 FOR F*0 TO BX1 

650 Y =R*F-fB 

660 TRAP 688 

665 IF Y<=16 THEN 680 

670 PLOT F*Q, -Y+lSl 

680 NEXT F 

690 TRAP 40000 

780 FOR PROMIEN=l TO 5 

790 READ C0L,N2 

792 LLCPR0MIEN>«=N2 

795 COLOR COL 

1000 REM *== PROMIEŃ W PRYZMACIE 

1610 01=N1*SIN(ALVN2 

1620 BETfl=flTN<0l/SQR<l-O1^2>> 

1025 PR<PROMIEN, 1>=BETA 

1030 R=SIN<BETA-GA)/'COSCBETA-GR) 

1040 &=BY1-9*BX1 

1058 Al=SIN<90+Gfl)/COSC90+6A> 

1060 B1=Z-CA1*<CPX/Q» 

1070 CY1=<A1*B-B1*A)/CA1-R> 

1080 CXl=<CYl-81>/fil 

1110 All=<CYl-«Yl>/<eXl-BXl> 

1120 BI 1=BY1-A11*BX1 
1138 TOR F=BX1 TO CX1 

1 1 AS 

1147 IF Y<=16 THEN POL=10 = GOTO 3 
000 

1156 TRAP 1170 
1160 PLOT F*Q,-Y+191 
1170 NEXT F 
1180 TRAP 40000 

1380 REM — PROMIEŃ ZA PRYZMATE 
M == 

1310 BETAB=A8S ( BET fi-GRMA ) 

1315 PR<PROMIEN,2>=BETRB 

1329 03=N1/N2 

1330 GR=RTN<03/SQR( l-03~2> ) 

1340 IF BETAB>=GR THEN 1509 
1350 02=N2*SIN<BETAB)/N1 
1360 DEL=ATN ( 02/^SOR ( 1 - 02*2 > > 

1365 PR(PR0MIEN,3)=DEL 

1370 IF BETA-GRMA>=8 THEN GOSUB 
2240 

1375 IF B£TR-GAMA<0 THEN GOSUB 2 
238 

1380 B=CY1-A*CX1 



wielu zmian dotyczących ilości rozpa- 
trywanych kolorów, lecz pozostawiam 
to jedynie dociekliwym użytkownikom 
komputerów ATARI. 

Olgierd NIEMYJSKI 

1390 FOR F=CX1 TO 79/Q 
1400 Y=fl*F+B 
1485 IF Y<=Z THEN 1430 
1418 TRAP 1430 

1429 PLOT F*Q,-Y+191 

1430 NEXT F 
1440 TRAP 40000 

1499 GOTO 2000 

1500 REM ** ODBICIE W PRYZMACIE 
** 

1510 A=SINCGA+BETRB>/COSCGA+BETA 
B) , 

1520 B=CY1-A*CX1 

1521 PR (PROMIEŃ, 3) =-10 

1522 IF BETAB<90-GA THEN GOSUB 2 

100 I 

1524 IF BETA8>90-Gfi THEN GOSUB 2 
200 

1526 IF BET RB =90- GA THEN 2308 
1536 FOR F=CX1 TO T STEP TT 
1540 Y=R*F+B 

1545 IF Y<=16 THEN POP GOTO 240 
0 

1550 PLOT F*ę>,-Y+191 
1560 NEXT F 
2000 GOTO 3880 
2108 T=APX/Q = TT=-0. 5 RETURN 
2200 T=CPX/Q:TT=0. 2 : RETURN 

2230 A=3 INC GA-DEL ) /COS ( GA-DEL > 
2235 RETURN 

2240 A=SINCGA-H>£L>^C0SC6A+DEL) 
2245 RETURN 

2380 DRAWTO CX1*Q, 131-ZG0T0 300 

0 

2480 PLOT CX1*Q,-CY1 4-191 

2410 DRAWTO F*G,13l-Z 

3800 NEXT PROMIEŃ 

3810 SOUND 1,80,18,15 

3028 FOR M=1 TO 50=NEXT M 

3030 SOUND 1,9, 0,0 

3040 IF PEEK(53279)=5 THEN MX=1 

GOTO 6090 

3850 GOTO 3040 

4998 REM ** CROWN LEKKI ** 

5008 DATA 4,1.5118 
5018 DATA 15, 1.5153 
5026 DATA 12,1.5186 
5030 DATA 8, 1 . 5267 
5040 DATA 10,1.5312 
5090 REM ** FLINT LEKKI ** 

5190 DATA 4,1.6020 
5110 DATA 15,1.6085 
5128 DATA 12,1.6145 
5138 DATA 8,1.6307 
5140 DATA 10,1.6404 





5190 REM ** FLINT CIĘŻKI ** 

5200 DATA 4> 1. 7406 

5210 DATA 15*1.7515 

5220 DATA 12/1.7685 

5230 DATA 8/1.7922 

5240 DATA 10/1.8045 

6800 REH *t ********** t* *t 

6010 GRAPHICS 8 = COLOR 1-POKE 710 
# 12 

6015 POKE 709/0=POKE 752/6 
6020 XL=58>HL=100=ZL=20 
6030 PLOT ZL/ZL+HL= DRAUTO ZL+XL/ 
ZL 

6048 DR AUTO ZL+2*XL/ ZL+HL 

6050 DRAUTO ZL/ZL+HL 

6060 PLOT 0/85 -DRAUTO ZL+XL/2/ZL 

+HL/2 

6070 DRAUTO 49+55,70-4 

6080 DRAUTO 49+55+50+ZL/ 70-4+14 

6090 COL=-l 

6108 AT=- 8 . 577 = GT=130 ■ UT=1 * ET=73 
6110 GOSUB 8808 
6128 AT=0. 5 : QT=150 : MT=25 : ET=2 
6138 GOSUB 8000 

6149 TX=ZL+XL * TY=ZL •' 1 1=332 12*39 
0 

6150 G0SU8 8500 

6155 PX=8 : PY=18 ; V*="GAMMA" : GOSUB 
8700 

6160 TX=ZL+XL/2 « TY=ZL+H_/2 
6170 11=2451 2=292= GOSUB 8509 
6180 PX= 8 : PY= 66 • Vf=" ALFA" = GOSUB 
8700 

6190 11=57= 12=95 = GOSUB 8500 
6200 PX=5 = PY=89 = V$=‘ , BETA- • GOSUB 
8700 

6210 TX=49+55=TY=70— 4 
6220 I 1 =272 : 12=300 1 GOSUB 8509 
6230 PX=10 ; PY=80 = V*="BETAB" * GOSU 
8 8709 

6248 11=82= 12=1 17= GOSUB 8500 
6250 PX=16 ■ PY=59 = V$=‘‘ DELTA" =GOSU 
B 8700 

6255 PX=3 = PY= 100 :V^="N2 ,, = GOSUB 8 
700 

6260 PX=3 * PY=30 = V*="Ni=l " : GOSUB 
8700 

6278 PX=25 : PY=5 

6272 IF SK=0 THEN V*="CROU* LEK K 
1 “ 

6274 IF SK=1 THEN V$=" FLINT LEKK 
I n 

6276 IF SK=2 THEN V$=" FLINT CIEZ 
KI H 

6278 FOR 1=3 TO 14 

6288 PLOT 197/ 1 =DRAUTO 202+LEN<V 

$>*8/ I f 

6282 NEXT l| 

6284 GOSUB 8708 

6235 REM +*=-+*=-+#=-+*=-+*=-+*= 
-+*c=- 


6300 PX=24=PY=20 

6305 V*=" WYBIERZ KOLOR" G0SU8 87 

00 

6310 PX=25 : PY=30 

6315 V*="DLA KTOREGO" = GOSUB 8700 

6320 PX=24=PY=40 

6325 V$= "CHCESZ UZYSKAĆ" : GOSUB 8 
700 

6338 PX=28 : PY=50 

6335 V4=“DANE" GOSUB 8780 

6340 PX=25 : PY=70 

6345 V$=" 1-CZERUONY" : GOSUB 8700 

6350 PX=25 : PY=80 

6355 V$="2-ZCM_TY" = GOSUB 8700 

6360 PX=25=PY=S0 

6365 V*="3-ZIEL0NY" = GOSUB 8700 

6370 PX=25=PY= 108 

6375 V$= H 4— NIEBIESKI " ; GOSUB 8780 

6380 PX=25=PY=110 

6385 V$="5-FI0LET0WY H = G0SU8 8700 

6383 POKE 764/ 255 -GOSUB 9000 

6338 OPEN #1 / 4/ 0/ “K" '■ GET #1/1 

6335 CLOSE #1 * 11=1-48 = COLOR 0 

6396 IF 1 1>5 OR IKl THEN 6390 

6408 FOR 1=20 TO 118 

6405 PLOT 130/ I =DRRUTO 305/1 

6410 NEXT I 

6415 PX=23 : PY=30 

6420 V$="GRMMA=" : GOSUB 8700 

.6425 PX=29=PY=30:V$=STR$<GRMA> 

6438 GOSUB 8708 

6435 PX=23:PY=40:V*= ,, RLFA =" 

6440 GOSUB 8708 

6445 PX=29 = PY=40 = V*=3TR$C AL ) 

6450 GOSUB 8708 

6455 PX=23 : PY=50 : V$= “BETA =" 

6460 GOSUB 3700 

6465 PX=29 = V$=STR$<PR( 1 1 / 1 ) > 

6478 GOSUB 3700= IF POL=10 THEN 6 
520 

6475 PX=23 - PY=60 = " BETRB= “ 

6480 GOSUB 3700 

6485 PX=23 = V$=STRt<PR< I I / 2> ) 

6430 GOSUB 8700 

6491 IF PR<II/3)=-10 THEN 6528 

6495 PX=23 = PY=70 ! Vi="DELTR= , ‘ 

6500 GOSUB 8700 

6505 PX=29=V$=STR$<PRai/3>> 

6518 GOSUB 8700 

6520 PX=23=PY=85=V$="USP. ZALAMA 
NIA" 

6525 GOSUB 8700 

6530 PX=25 = PY=95 = V$=" PRYZMATU = 
6535 GOSUB 8780 
6540 PX=25 = PY=105 = V$="N2= H 
6545 GOSUB 3788 
6558 PX=28 = V%=STR* ( LL (I I > ) 

6555 GOSUB 3708 j£QSUB 9000 
6560 IF PRCII/3>=-10 THEN GOSUB 
8908 

6615 ? " SELECT - Fowrot do MEN 
U" ? 


6620 ? “ START - Powrot do PRO 
GRAMU” 

6625 SA=PEEK<53279> 

6638 IF SA =6 THEN 5 . 

6635 IF SR=5 THEN 8886 
6640 GOTO 6625 
7008 END 



8810 FOR F=WT TO GT STEP 10 

8813, COLOR 1 

8020- FOR Fl=l TO 5 

8038 YT=AT*(F+F1>+ET 

8040 PLOT F+F1/ZL+HL-YT 

8850 NEXT FI 

8860 NEXT F 

8070 RETURN 

8508 REM ++ ++ ++ ++ ++ ++ ++ ++ 
++ 

8585 DEG 

8518 FOR 1=11 TO 12 STEP 5 
8528 PLOT TX+15*SIN(n/TY+15*C0S 
<I> 

8530 N£XT I 
8540 RETURN 

3700 REM == = == == == == == == 

8710 DL=PEEK<560>+PEEK<561)*256 
3720 Dl=PEEK<DL+4>+PEEK<DL+5>*25 
6 ' 

8730 FOR UU=1 TO LEN(V*> 

8748 D2=57344+< CASC< V*<UU * UU) >-3 
2 )* 8 > 

3750 D3=D1+PY*40+PX+UU-1 

8760 FOR UUU=0 TO 7 

8770 POKE D3+UUU*40/PEEK<D2+UUU> 

8780 NEXT UUU = NEXT UU 

8790 RETURN 

6800 REM 

%%% 

8810 COLOR 0=? •? =? =? 

8815 FOR 1=30 TO 115 

8820 PLOT 185/1 = DRAUTO 319/1 

3825 NEXT I 

8830 IF PR< I 1/ 3)=-10 THEN GOSUB 
8958 

8340 GOTO 6360 

8899 REM ====================== 

8900 px=4 = PY= 1 35 : COLOR 1 = GOSUB 8 
958 

8905 V$= w CALKOUITE ODBICIE U PRY 
ZMACIE ! ! " 

8910 GOSI® 3700 

8930 RETURN 

3950 FOR 1=130 TO 147 

8360 PLOT 26/1= DRAUTO 293/1 

8970 NEXT I 

8989 RETURN 

9090 FOR 1=1 TO 7 

9005 SOUND 0/ 20/ 10/ 15 : NEXT I 

3016 SOUND 0/0/ 0/6= RETURN 


Siedzibą klubu „MERI- 
ZAP” jest pracownia techniki 
» cyfrowej w Zespole Szkół 
Technicznych w Ostrowie 
Wielkopolskim. W rozmowie z 
Mariuszem Rudowiczem do- 
wiedzieliśmy się, że klub po- 
siada bogatą bibliotekę pro- 
gramów edukacyjnych, na- 
rzędziowych i gier. 

Członkowie sami opraco- 
wują programy dydaktyczne 
z fizyki i elektroniki. W najbliż- 
szej przyszłości za pomocą 
„Meritum” mają zamiar 
skomputeryzować również 
szkolną bibliotekę. 
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SPECTRIIJSi 

PROGRAM 5 

RUBIK 



Prezentowana gra polega na zamianie koloru 
przedstawionej na rys. 1 planszy na kolor przeciwny 
(negatyw). Po wczytaniu i uruchomieniu gry, na 
ekranie ukazuje się plansza (rys. 1 ). Wciśnięcie do- 
wolnego klawisza, odpowiadającego jednej z wido- 
cznych na planszy liter, powoduje zaczernienie pola 
z wybraną literą i pól sąsiednich „na krzyz", Np. wciś- 
nięcie klawisza „G” i „Z" sprawia, że plansza przybie- 


ra wygląd jak na rys. 2. Jeżeli teraz zostanie naciśnię- 
ty klawisz „H", a potem „O”, to plansza ma wygląd, 
jak na rys. 3. Widać stąd, że odpowiednie pola do- 
tychczas biate zostaną zaczernione, a pola czarne 
staną się białe. 

Celem gry jest zamiana koloru całej planszy — jak 
na rys. 4. Oczywiście można dążyć do innych efek- 
tów. np do otrzymania szachownicy, jak na rys. 5. 



RYS. 3 


uciSNiecie 

a POUCOU-jE 
sarpocrEciE 
GRY OD PO- 
CZĄTKU 


1 REM Gr« "SPECTRUM -RUBIK" PIOTR IWIŃSKI lPS6.lt. 14 

10 BOEDER 0 ' PEIPER 0>' INK 6' CLS 


100 

200 

GO SUB 1000 

IF INKEY*="a" OR IHKEY*’"R" THEN 

(• 

GO 

SUB 

3000' GO 

SUB 

3010’ 

GO 

SUB 

3050' 

GO 

TO 100 

210 IF INKEY*="b" 0R Ił!KEY¥="e" THEN 

GO 

SUB 

3000' GO 

SUB 

3010 8 

GO 

SUB 

3020 : 

GO 

SUS 

220 

3060' GO TO 100 

IF IHKEY*-“c" OR INKEYł -"C" THEN 

GO 

SUB 

3010' GO 

SUB 

302O • 

GO 

SUB 

3030 : 

GO 

SUE 

230 

3070' GO TO 100 

IF INKEY*="d" OR INKEY1i“"D , ‘ THEN 

GO 

SUB 

3020' GO 

SUB 

3030- 

GO 

SUB 

3040: 

GO 

SUB 

240 

3080 ' GO TO 10O 

IF IHKEY$=“e" OR IHKEY$="E" THEN 

GO 

SUB 

3030' GO 

SUB 

3040 1 

GO 

SUB 

309O * 

GO 

TO 100 

250 IF IHKEY$="f " DR INKEY$="F" THEN 

GO 

SUB 

3000' GO 

SUB 

3050* 

GO 

SUB 

3068 : 

GO 

SI IB 
260 

3100i GO TO 100 

IF INKEYS="9" OR INKEY*-"G" THEłl 

GO 

SUB 

3010' GO 

SUB 

3050 * 

GO 

SUB 

3OS0 > 

GO 

SUB 

270 

3070' GO SUB 3110' GO TO 100 
IF INKEY*=“h“ OR INKEY$~"H" THEN 

GO 

SUB 

3020' GO 

SUB 

3060 1 

GO 

SUB 

3078 : 

GO 

SUB 

280 

3080' GO SI IB 3120' GO TO 100 
IF IHKEY$=" i ” OR IHKEY*="I" THEłl 

GO 

SUB 

3030' GO 

SUB 

3070 ; 

GO 

SUB 

3030 ! 

.GO 

SUB 

230 

3030' GO SUB 3130' GO TO 100 
IF I HKE Y¥= " ,i " OR IHKEY$=" J" THEN 

GO 

SUB 

.3040' GO 

SUB 

3030 s 

GO 

SUB 

3090’ 

GO 

SUB 

300 

3140' GO TO 100 

IF IHKEY$="k" OR IHKEYT-"K" THEN 

GO 

SUB 

3050' GO 

SUB 

3160' 

GO 

SUB 

3110* 

GO 
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SUB 

310 

3150= GO TO 100 

1F INKEYS="l" OR INKEY$="L" THEN 

GO 

SUB 

3060 = 

GO 

SUE 

3100 = 

GO 

SUB-' 3110 = 

GC 

SUB 

328 

3120= GO SUB 3160= GO TO 180 
IF INKEY*="m" OR INKEY*="M" THEN 

GO 

SUE 

3078 = 

GO 

SUE 

3110 = 

GO 

SUE 31^0= 

GC 

SUB 

330 

3130= GO SUB 3170= GO TO 160 
IF INKEYS=”n" OR INKEY*=“N" THEN 

GO 

SUB 

3080 = 

GO 

SUB 

3120 = 

GO 

SUB 

\ 

3130 = 

GC 

SUE 

340 

3140= GD SUB 3180= GO TO 100 
IF INKEYS«="o" OR INKEYS="0" THEN 

GO 

SUE 

3090 = 

GO 

SUB 

3130 = 

GO 

SUE 

3148 = 

GC 

SUB 

358 

3190= GO TO 100 

IF INKEYS="F " DR INKEYS=”P" THEN 

GO 

SUE 

3100 = 

GO 

SUB 

3158: 

GO 

SUB 

3160 = 

GC 

SUB 

360 

3200= GO TO 100 

IF INKEY*=“<1" OR INKEY$="0" THEN 

GO 

SUE 

3110 = 

GO 

SUB 

3150 = 

GO 

SUE 

3160 = 

GC 

SUB 

370 

3178= GO SUB 3210= GO TO 100 
IF INKEYS="r" OR INKEY(="R" THEN 

GO 

SUB 

3128 = 

GO 

SUE 

3160 = 

GO 

SUE 

3170 = 

GC 

SUB 

380 

3180= GO SUB 3228= GO TO 180 
IF INKEY$="s” OR INKEYS="S" THEN 

GO 

SUB 

3130 = 

GO 

SUE 

3170 = 

GO SUB 

3180 = 

GC 

SUE 

390 

3190= GO SUB 3230= GO TO 100 
IF INKEY*= ,, t" OR INKEY$="T" THEN 

GO 

SUB 

3148 = 

GO 

SUE 

3180 = 

GO 

SUB 

3190 = 

GC 

SUE 

400 

3240= GO TO 100 

Ir lNKEYS="u” OR INKEYS="U“ THEN 

GO 

SUB 

3150 = 

GO 

SUB 

3200 = 

GO SUE 

3210 = 

GC 

TO : 
410 

00 

IF INKEY9="ui" OR INKEY9="W" THEN 

GO 

SUS 

3160 = 

GO 

SUE 

3200 = 

GO 

SUE 

3210 = 

GC 

SUB 

420 

3220= GO Tn 100 

IF INKEYS= OR INKEYS="X" THEN 

GO 

SUE 

3178 = 

GO 

SUB 

3210 = 

GO 

SUB 

3220 = 

GC 

SUB 

430 

3230= GO TO 100 

IF INKEYS="y" OR INK£Yi="Y" THEN 

GO 

SUB 

3188 = 

GO 

SUB 

3228 = 

GO 

SUE 

3230 = 

GC 

SUB 

440 

3240= GO TO 100 

IF INKEYS="r" OR INLEY$="2" THEN 

GO 

SUE 

3190 = 

GO 

SUB 

3230 = 

GO 

SUE 

3248 = 

GO 


' TO 10B > 

450 IF INKEY$= "O" THEN RUN 
460 GO TO 200 . 

1008 RESTORE = FOR i=0 TO 5 = PLOT i *32, 175- DRRW 8,-168= NEKT i 
1010 FOR i=0 TO 5- PLOT 0, i*32+15= DRRW 160,0 = NEKT i 

1020 FOR i=l TO 17 STEP 4 = FOR J=1 TO 17 STEP 4 ■ RERD a* = PRINT RT i,j ;a* = NEKT 


,21; "O POWODUJE " ; RT 15,21; "ROZPOCZĘCIE"; R 


NEKT i 

1030 PRINT RT 11,21; "WCIŚNIĘCIE ";flT 1 
T 17,21; "GRY OD PO-";RT 19,21; "CZRTKU" 

1200 RETURN 

3000 LET a=0 = LET b=3 = LET c=0 = LET d=3 = GO SUE: 6000 = RETURN 

3010 LET a=4 = LET b=7 = LET c=0 = LET d=3 = GO SUE 6000 ' RETURN 

3020 LET a=S = LET b=ll = LET c=8 = LET d=3' GO SUE 6000 = RETURN 
3030' LET a*12- LET b=15 = LET c=0 = LET d-3 = GO SUE 6000 : RETURN 
3840 LET 3-1 6 LET b=19 = LET c=0 = LET d=3 = GO SUE 6000= RETURN 
8050 LET 3 = 0 : LET b=3 = LET c=4 = LET d=7 = GO SUE 6000= RETURN 
3060 LET 3=4= LET b=7= LET c=4= LET d=7 GO SUE 6000= RETURN 
3076 LET 3=3 LET b=ll= LET c=4 = LET d=7= GO SUE 6008= RETURN 
3088 LET 3-12= LET b=15= LET c*4= LET d=7= GO SUE 6080= RETURN 

3090 LET 3=16= LET b=19= LET c=4 = LET d=7= GO SUE 6800= RETURN 

3100 LET 3=8= LET b=3= LET c=S= LET d=ll= GO SUE 6000= RETURN 

2110 LET 3=4= LET b=7 = LET c=S= LET d=ll= GO SUE 6008= RETURN ' 

3120 LET a=E= LET b=!l= LET c=8= LET d=ll= GO SUE 6008= RETURN 
3130 LET a=12 LET b=15= LET c=8 LET d=ll 

3148 LET 3=16= LET b=19= LET c=8= LET d=ll 

3150 LET 3=0= LET b=3= LET c=12= LET d=15= 

3160 LET 3=4= LET b=7= LET c=12= LET d=15= 

3170 LET a=S = LET b=!l= LET c=12= LET d=15 = 

2180 LET 3=12= LET b=15= LET c=!2= LET d=15 


GO SUE 6000 
GO SUE 6080 
GO SUE 6000= 
GO SUE 6008= 

= GO SUE 6008= 

= GO SUE 6080 


RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 


3198 LET 3=16= LET b=!9= LET c= 12= LET d=15= GO SUE 6000= RETURN 
3208 LET 3=0= LET b=3= LET c=16= LET d=19= GO SUE 6000= RETURN 
3210 LET 3=4= LET b=7= LET c=!6= LET d=19= GO SUE 6000= RETURN 
3220 LET a=8= LET b=l!= LET c=16= LET d=19= GO SUE 6000= RETURN 

3230 LET 3=12= LET b=15= LET c=16= LET d=19= GO SUE 6000= RETURN 

:240 LET a=16= LET b=19= LET c=16= LET d=19 = GO SUE 6000= RETURN 

6800 FOR i=a TO b = FOR i=c TO d= PRINT OVER 1;RT i, !;"■"= NEKT i= NEKT j = RETU 

RN 

9000 DRTR "R", "E", “C”, "D", "E", "F", "G", "H", "I”, "J", "K", "L", "M“, "N", "O", “P", "Cl "R 
S", "T”, "U", "W", "K", "Y", "2" “• 
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jIaWSTIMI) 

PROGRAM 6 

-Grafika „Wieża Hanoi” 

Zamieszczony w poprzednim zeszycie programów kom- 
puterowych program WIEŻA HANOI wyświetlał wyniki w 
postaci tekstu na ekranie monitora. Wykorzystując pod- 
stawowe procedury tego programu realizujące przełożenie 
krążków na prętach oraz przeniesienie pojedynczego krąż- 
ka można rozbudować program, który w sposób graficzny wyświetla 
wyniki. 

W programie zastosowano elementy pakietu graficzne- 
go systemu TURBO PASCAL zaimplementowanego na 
komputerze AMSTRAD CPC61 28. 

Warto je przechować w bibliotece programów PASCA- 
LA. Komentarze zawierające znaki „+" ograniczają nie- 
zmienione fragmenty programu WIEŻA HANOI. 

Istotne jest to. dla tych. którzy zechcą zmodyfikować po- 



siadany program. Dodatkowo w programie wprowadzono 
podkład muzyczny dla grafiki kolorowej. 

Andrzej 


PR06RAN graf i cznawi ez ahanoi ; 

($a~> 

{ tmmmmmmmmmtsm ) 

{ GRAFIKA TURBO PASCALA ) 

t mtmmmmtmmmmmt j 

const CPM3 = true; 

const tagfłag:hoolean = false; ' 
tagaddr: integer = 0; 
inoscr : integer = 0; 
fet = 0.017453292520; 

xerror :real = 0.0; 
yerror :real = 0.0; 
getaode:byte = 2; 
getgrafaode:byte= 0; 

var i tg: integer; 

btgsbyte: 

rd:arraytl..l3T of byte; 
re:real; 

E rocedure InitGrafik; 
egin 

Krite(łiib f , 0’ ( Hlb,’y’); 

end; 

E rocedure IeaveGrafik; 
egin 

aritelł$ib,’l’,ł$lb,’x'}; 

end; 

E rocedure gotoxylx,y:integer); 
egin 

ar i te (ł$lb, ’ Y* , chr (y+31) , chr (x+31) ) ; 
end; 

procedurę sound (g:byte:h. i : integer ; j,k, I , a: byte) ; 
var 5d:arrayf0,.fl] of byte; 
begin * 
sdlOl := g; 
aove(h,sdL31,2); 
aove(i,5dt7],2); 
sdlll := k; 
sdI23 := 1; 
sdCSl := a; 
sdCfc] ;= j; 

inline(S2i/sd/icd/*5a/»fc/$aa/»bc); 

end; 

E rocedure soundreset; 
egin 

inlinel$cd/«5a/$fc/$a7/$bc); 

end; 

E rocedure drawr{x,y:integer); 
egin 

inIinełl2A/x/IEB/$2A/y/lcd/$5a/$fc/$F9/$BB); 

end; 


E rocedure grafaovełx,y: integer); 
egin 


inline($2A/x/«B/i2A/y/fcd/$5a/ifc/*C0/$BB); 

end; 


E rocedure graf aoyer(x,y: integer); 
egin 

ir,line($2A/x/*EB/*2A/y/$cd/$5a/$fc/$c3/*BB); 

end; 


inline(*2A/x/$EB/$2A/y/»cd/$5a/*fc/*EA/*BB); 


procedurę grafwindow(xl,yl,x2,y2: integer); 
begin 

inline(*2fi/x2/*EB/$2A/xl/$cd/*5a/$fc/*CF/*BB/ « 
$2A/y2/*EB/$2A/yI/*cd/*55/$fc/*D2/*BB); 
end; 

procedurę grafpen(fs:byte); 

'begin 

inline(*3A/fs/tcd/$5a/*fc/*DE/$BB); 

end; 

procedurę grafpaper(fs:byte); 
begin 

inline($3A/fs/*cd/*5a/$fc/*E4/*BB); 

end; 

E rocedure dg(f5:byte) ; 
egin 

inl ine « *cd/*5a/*f c /CBB/SB3) ; 
orafpaperlfs); 
eno; 

procedurę inMfs.f I.f2:"bvte); 
begin 

i nl i ne (*3a/f 1 /*47/*J a /f 2/$4f /*3a/f s/t-cć/sź a /$f c / 
(32/łbc) ; 

end; 

E rocedure paper (fs; byte); 
egin 

inline(i3fi/fs/*cd/*5a/$fc/$96/*6B); 

end; 

E rocedure pen (f 5: byte); 
egin 

1 n 1 1 ne ($3A/f s/*cd/ *5a/tf c/*90/$BB) ; 
end; 

S rocedure wodę lad: by te); 
egin 

if ad in 10.. 23 then 
begin 

getaode := ad; 

inline($3a'ad.Scd/$5a Sfc/SOe 'Sbc) ; 
end; 
end; 

E rocedure border(vl,y2:bvte); 
egin 

inlinel*3a/vl /$47/$3a/v2/*4f/fcd/*5a/*fc/*38/$bc' 
end; 

procedurę grafout(ch:char); 
begin 

inline[*3A/ch/*cd/$5a/*fc/*FC/4BB): 


J rocedure tag; 
egin 

if. not tagflag then 
begin 

tagaddr := conoutptr; 
tagflag := true; 
conoutptr := addr (graf out); 
end; 
end; 


conoutptr := tagaddr; 
tagflag := false; 
end; 


{ ttuitnnttuntttttunntiutnitntMM 5 

( DEKLARACJA TYPÓW 1 } 

{ DEFINICJA STALYCh I ZfllENNYCH ) 

{ Hftmmmtmmmmmmmttttttmt i 

CDNST 

(+ł++łłłłł+ł+ł+tł+ł+łł+łłł++łł++++ł+} 

aaxilkr=5; (aaksyaalna ilosc krazkow) 

{łł++ł+łłłłłłłłłł+++łł++łłł+ł+łłłł+ł) 

wysk=50; (wysokosc krazka) 
kolw=2t; (kolor Niezy-bialy) 
kolt=0: (kolor tla-czarny) 
dpozw=I50; (dlugosc pozioaa wieży) 
wysw=-270j (wysokosc wieży) 
kolzn=I6; (kolor znaku-rozowy) 
pxzn=-lfc; {pozycjonowanie znaku) 
pyzn=-25; 

kolob^O; (kolor obrzeza) 

TYPE 

{+łttłłtłtttł++tłłł+ł+mtt++t+ttt+t+tł++rm} 

znakp=’a'..’c’; (rtazwa pręta) 
wyswiez=l..aaxilkr; (aaksyaalna wysokosc wieży 
aierzona ilością krazkow) 
opiswiez=ARRAY Iznakp) DF (opis wieź) 

REC0RD 

w:wyswiez; (wskaźnik wierzchołka wieży) 
wieza:ARRAY (wyswiez) 0F wyswiez 
ENO; 

{+łłł+łłłłłtłłłł+ł++łłłłłłłłłłłł+++łłł+łłłłłł} 

gopiswiez=ARRAY Iznakp) 0F 
REC0RD 

wspx: integer; (współrzędne początku) 
wspy:integer: (wieży) 
wwx; integer; (współrzędne wierzchołka) 
wwy: integer; 

parkr;ARRAY [wyswiez! 0F (pozioa) 
REC0RD 

wspx;ARRAY(wyswiezI 0F integer; 

(współrzędne początku krazka) 
wspyiinteger; 

END 

END; 
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{+łmłttttł+ttt+mttłłtt+ttmtt++ł+++łtł+ł} 

ilkrńnteger: (zadana ilosc krazkow) 
start, (pręt, z ktorego przesuwawy krążki) 
cel, (pręt, na który przesuwały krążki ) 
posr;znakp; (pręt - lagazyn powcniczy } 
opw:opi swiez; 


x. obraz: char; 

dl krazzARRAY (wyswiez) OF integer; (długości krazka! 
kolkr:ARRAY (wyswiezl OF integer; (kolory krazka) 
ogw:gopiswiez; (graficzny opis wieź) 

( mmtmtmmmtmmmmmmmm i 

{ FSOCEDURY INICJOWANIA DANYCH } 


PROCEDURĘ ustawstpocz; 

(procedura ustawi a jaca początkowy stan uiez) 

siznakp; (zaienne robocze) 
iiwyswiez; 

BEB1N 

W1TK opili’ a’) DO 
BEBIN 

w:=aaxilkr-ilkr+l; 

FOR i:=w TO aaxilkr DO 
wieza(i):=i-wtl 
EH): 

opn[ , b’).n:=0; 

opw[’c’].n:=0 

END: 

{łłłłłłł+łłłł+łłłłłł*łłłłłłł++++łłłłłłłłłłł4ł} 

PROCEDURĘ ustawdgraf; 

(procedura ustawiajaca początkowy stan) 

(danych graficznych) 

m 

s:znakp; (zaienne robocze) 
i:wyswiez; , 

j:integar; 

BE61N 

soundreset; 

grafwindowtO, 10,640,400) ; 
inklB.0,0): (tekst) 
ink(9,2i,24); ( tlo tekstu) 

FOR i:=l TO aazilkr DO 

dlkraz (i ): =70+ I (i-1 1 120) ; 
kol kr (11:=15; (poaarancz) 
kolkr(2):=l7; (aagneta) 
kol kr (3): =6; (czerwony) 

kol kr 14) : -1 ; {niebieski) 
kol kr (5): =21; (zielony) 

' NlTH ogNCa’} DO 
BE61N 
wspx:=31; 

«s,y!.;5| 

wwx:=106; 

wwy:=545; 

FOR i:=l TO aaxilkr DD (pozioa) 

BEBIN 

FOR j:=l TO iaxilkr DO (nuaer krazka) 
parkr(i}.wspxU):*71-((j-l)tlO); 
parkr(i).wspy:=275-((i-l)t50) 


& 


END; 

W1TH ogu(’b’) DO 
BEBIN 
wspx:=244; 
aspy:=75; 
awt:=319; 
wwy:=345; 

FOR i:=l TO aaxilkr DO 
. BEBIN 

FOR j: =1 TO aaxilkr DO 
parkr(i).aspx[j]:=284-((j-l)tl0); 
^|iarkr{i).wspy:=275-((i-l)l50) 

END; ’ 

WI TH ogal’c’1 00 
i BEBIN 
wspx:=457; 

iwy: =345; 

FOR i:=l TO aaxilkr DO 
BEBIN 

•FOR js=t TÓ aaxilkr DD 

parkr(i).aspx[j]:=497-((j-l)tl0); 
^gar kr I i ] . asp y: =275- 1 ( i-1 ) *501 

END; 

END; 

( tmmmtttmmmttnttmu ) 

( PROCEDURY KREŚLENIA H1E2 ) 

{ ntmintuumtnmmtmttt i 

PROCEDURĘ pusta(o:znakp); 

(kreślenie wieży bez krazkow) 

VAR zn:char; 

BEBIN 

inktfc, kołu, kola): 
grafpen(B); (pióro wieży) 

NITH cgwfol DD 
BEBIN. 

sound ( I 20 , nspx , 50, 15, 3, 0, 0) ; 
5ound(120,aspy,50, 15,3,0,0); 
sound ( 40 , kol ni i l+r andoa ( 1501 ) , 25, 15, 0,0, 0) ; 


grafaove(wwx,wwy); 

END; 

drawr(0,wysw); 

CASE o 0F 
V:zn:='A’; 

’b’:zn;='B’; 

'c':zn:=’C’; ** 

END; 

ink(7,kolzn,kolzn); 
tag; grafpen(7); 
grafaover(pxzn,pyzn); 
graf out (zn); 
tagoff; 

END; 

PROCEDURĘ niepusta(o:znakp); 

(kreślenie krazkoa jednej wieży ) 

VAR nrkr.imyswiez; 
j: integer; 

BEBIN 

NITH opw(o) DO 
NlTH ogwCo) DO 
FOR i:=aaxilkr DONNTO h BO 
BEBIN 

nrkr:=wiezalil: 

ink(nrkr,kolkrtnrkr],knlkr(nrkr}): 

(pioro krazka) 

grafpen(nrkr): 

sound ( 100, par kr ( i }. wspy+200ti , 7, 12, 0,0, 0) ; 
s ound ( 200, par kr ( i I . wspy+200ti ,7,12.0,0,0); 
sound ( 240, nr kr I (1 tr andoa ( 150) ) +200*i , 7, 12, 
0 . 0 . 0 ): 

FOR j: = 0 TO 48 DO 
BEBIN 

so'jnd(l,parkr(il.nspx[nrkrl.t. 10, 0.0,0); 
sound (2, parkrtil.wspy+j, 6, 10,0,0,0); 
sound (4, j inr kr i ( Urandoa ( 150) ) , b, 10, 0, 0, 0) ; 
pl ot ( par kr ( i ) . wspx [nr kr I , par kr L i 1 . wspy* j) ; 
draar(dlkraz(nrkrl,0); 

ENO; 

END; 


PROCEDURĘ kreślenie; 

(procedura kreślącą stany wieź) • 

i: integer; 

s:znakp| (zaienne robocze) 

BEBIN 

dg(0); 

FOR s:=’a’ TO ’c’ DO 
NITH opwCs) DO 
BEEIN 

pusta (s) : (kreślenie Hiezy bez krazkoa) 
IF h>0 THEN niepusta(s); 

END; 

1F obraz=’n’ THEN 
FOR i:=l TO 31000 DO ' 
s:=s; (opóźnienie) 

END; 

( mtmmmuttiimtmmmi } 

( PROCEDURY PRZENOSZENIA KRAZKON ) 

( tmmmtimttmtmmmm j 


PROCEDURĘ przen (start, cel :znakp); 

(zmodyfikowana procedura przenoszącą pojedynczy 

k BEEI« ' ,r " U “ p,,t 

NITH oputcell DO 
BEBEN 

1F n= 0 THEN n:=aaxilkr 
ELSE h:=h-1; 

EjHeza[Hl;= D pH[ 5 tart].HiezatopN[startJ.ii} 

NITH opwtstartl DO 
IF N=aaxilkr THEN h:=0 


ELSE «:=Hłlj 
kreślenie: 

IF obraz- t’ THEN 
BEBIN 

gotowy (1,25); 

■RITE ('Wciśnij klawisz') ; 
REPEAT UNTIL keypressed; 
REAO ( kbd, x ) ; 

END; 


ENO; 


(łł++ł++łłłł+łłłłłłłł+++łł+ł+łłł+++łłłłł+łłłłł++łłł) 
PROCEDURĘ przel (niwyswiez; VAR start, posr.celiznakp); 
(procedura przesuwająca 'n* krazkow z pręta 
“start' na pręt 'cel* z wykorzystanie® pręta 
■posr* jako aagazynu) 

BEBIN 
IF n=l 
THEN 

przen (start, cel) 

ELSE 

BEBIN 

przel(n-l,start.cel,posr); 

przen(start,cel); 

^jirzel (n-1, posr, start, cel) 

END; 

(łłłłłłłłłłłł-ł-łtłłłłłłłłłłłłłł+łłłłłłłłłłfłi-łłłłłłł} .. 

mtmmmtmtmmmmm ) 

HODUL STERUJĄCY ) 

: imitmmmmiitmmimit i 


BEBIN 

REPEAT 

HR1TELN (' poda j ilosc krazkow <= ’,*axilkr); 
READLN(ilkr); 

NRlTELNCCzy chcesz akceptowac-wciskajac’); 
HRlTELN(’dowolny klawisz-przelorzenie’); 
NRITELNC każdego krazka (t/n) ' ) ; 

READLN (obraz); 

UNTIL (ilkr>0) AND tilkr:=maxilkr> AND 
((obraz=’t’) OR (obraz=’n’)); 
clrscr; 

BEBIN 

ustawstpccz; 

ustawdgraf; 

initgrafik; 

aodeiOi: 

border(kolob.kolob); 

ink(O.kolt.kolt); 

grafpaperto); 

paper (V) ; 

per. (B) ; 

kreślenie: 

goto. v (1,25); 

wRlTEt 'Początek -wciśnij ki.’); 

REPEAT UNTIL keypressed; 

READ(kbd,x); 

END; 

start:='a'; 

cel:=‘c’; 

posr:='b’; 

przel ( i Ikr . start , posr , cel ) : 
gotoxy(l,25); 

flRlTE!’Kóniec-wcisn. klawisz’); 

REPEAT UNTIL keypressed; 

READ (kbd, x ) ; 
leaveyrafik; 

END. 


< 

* 

LL. 

< 

CC 

o 
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CittAHME 

PROGRAM 7 


„Życie” 

G ra symuluje powstawanie i zanikanie pokoleń 
organizmów w populacji Oparta jest na trzech za- 
sadach: 

a) każdy organizm otoczony przez dwa iub 
trzy inne ocaleje. 

b) cztery lub więcej organizmów sąsiednich 
lub ich brak powoduje zniszczenie organizmu na sku- 
tek przerostu populacji lub izolacji organizmu, 

c) w pustej komórce otoczonej dokładnie 
trzema sąsiednimi organizmami powstaje nowe życie 
(nowy organizm). 

Program został pierwotnie opracowany w języku BASIC, 
natomiast w niżej przedstawionym zastosowano w kilku 
miejscach język maszynowy. Dzięki temu gra przebiega 
około 100 razy szybciej. Prędkość przebiegu programu 
można zmienić przez zmianę końcowej wartości dla pętli 
określonej w linii 240. Działanie programu można zatrzy- 
mać w dowolnej chwili klawiszem SPACJA i ponownie 
uruchomić jego działanie naciskając RETURN. Usunięcie 
linfi 240—260 powoduje zwiększenie szybkości działania 
programu, bez możliwości zatrzymania i ponownego uru- 
chomienia w sposób wyżej opisany. 

REfiDY. 



D odanie linii: 230 SYS 49452, powoduje, że gra od- 
bywa się na ekranie bez określonych granie — 
ekran jak gdyby zawija się z góry do dołu i z lewej 
strony na prawą. Aby grać w „Życie" należy program po 
prostu wpisać do pamięci komputera i uruchomić. Na 
czarnym ekranie pojawPsię świecący jasno kursor w po- 
staci piłki (kuli). Do zbudowania początkowego wzoru służą 
klawisze kursora (ustawianie piłki w żądanym miejscu) i 
klawisz mnożenia (załączenie komórki — powołanie do ży- 
cia) Gdy wzór jest gotowy, naciśnięcie RETURN zapocząt- 
kuje jego ewolucję. Naciśnięcie RUN /STOP przerywa 
działanie programu i kończy ewolucję wzoru. Gra może 
być zabawą graficzną, jak również ciekawą grą matematy- 
czną.- 

Opracował : Tadeusz CISEK 


5 PR INT "ZYCIE" 

10 W=5 1 968 : 0=55296 = POKE 53280 . 0 : P0KE5328 1 , 0 

20 IF PEEK <49152)0169 DR PEEK <49580)096 THEN GOSUB 300 

30 SYS 49397 : K=0 : S*0 

40 GET R$ : IF 8$="" THEN fl=PEEK <C+K > : POKEC+K , NOT < fl AND 1)RND <fl OR 1 
50 IF R$=CHR$ < 42 ) THEN S=1 : D=1 ; GOSUB 150 
60 IF fl$=CHR$ < 1 3 ) THEN POKEC+K. S-GGT02 10 
70 IF R$=CHR$<29) THEN D=1 'GOSUB 150 . 

80 IF R$=CHR$< 157) THEN D=-l -GOSUB 150 
90 IF fl$=CHR$< 17) THEN D=40 : GOSUB 150 
100 IF flf =CHR$ < 145) THEN D=-40 : GOSUB . 1 50 
110 IF fi$=CHR$ <32 ) THEN S=0 : D=1 : GOSUB 150 
120 GOTO 40 

150 POKE C+K. S ; K=K+D : IF K>999 OR K<0 THEN K=K -D 

160 S=PEEK<C+K> • RETURN 

210 SVS 49250 

220 SVS 49152 

240 FOR 1=0 TO 1 00 : NEKT . 

258 GET RFIF R*OCHR$<32) THEN 270 
260 GET m ■ IF R$OCHR$<13) THEN 260 
270 SVS 49298: GOTO 210 

300 PRINT"<CLERR. D0WN5 . R I GHT8 ) LRDOWRN I E JEZVKR MRSZVNOWEGO" 

310 FOR K=49152 TO 49580 :RERD M = P OKŁ K.Ni N EXT : RETURN 
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1000 DATA 165,35,133,253,165,0,133,254 
1010 DATA 169,216,133,255,169,0,141,36 
1020 'DATA 192,169,203, 141,32,192,160,0 
1030 DATA 177,254,41,15,240,11,160,7 
1040 DATA 190,30,192,254,26,207,136,16 
1050 DATA 247,233,36,192,208,3,238,37 
1060 DATA 192, 193,253, 16,18, 169,39ł 133 
1070 DATA 253,24,173,36,192,105,2,141 
1080 DATA 36,192,144,3,238,37, 192i 230 
1090 DATA 254,208,2,230,255,165,254,201 
1100 DATA232,208, 195, 165, 255,201, 219,208 
1110 DATA 189,96,0,1,2,42,44,84 
1126 DATA 85,86,169,0,141,111,192,169 
1130 DATA 203,141,112,192,162,0,142,110 
1140 DATA 207,238,111,192,208,3,238,112 
1150 DATA192, 173, 111,192,201,110,208,238 
1160 DATA173, 112, 192, 201, 207, 208, 231, 165 
1178 DATA 251,201,15,208,2,134,251,230 
1 1 80 DAT A 25 1 , 96 , 1 6,9 , 39 , 1 33, 253, 1 69 , 0 
1198 DATA133,254, lo9,216, 133,255, 169,43 
1200 DATA141 , 171 , 192, 169,203, 141, 172, 192 
1210 DATA 160,0,173,69,207,201,2,240 
1220 DATA 19,201,3,208,12,177,254,41 
1230 DATA 15,208,9,165,251,145,254,208 
1240 DATA 3,152,145,254,238,171,192,208 
1250 DATA 3,238,172,192,198,253,16,18 
1260 DATA 169,39,133,253,24,173,171,192 
1270 DATft .105,2, 141,171,192, 144,3,233 


1280 DATA 172‘, 192,230,254,208,2,230,255 
1290 DATA 165, 254,201 , 232, 208, 188, 165, 255 
J300 DATA 201,219,208,182,96,169,0,133 
1310 'DATA 254, 169,216, 133,255, 169,0, 133 
1320 DATA 252,169,4, 133,253, 160,0, 169 
1330 DATA 0,145,254, 169,81, 145, 252, -230 - 
1340 DATA 252,208,2,230,253,230,234,208 
1350 DATA 2,230,255,165,254,201,232/208 
1360 DATA230, 165, 255, 201, 219, 208, 224, 169 
1370 DATA 1,133,251,96,160,1,24,185 
1380 DATA 0,203,121,26,207,153,26,207 
1390 DATA 24,185,69,207,121,42,203, 153 
1400 DfjlA 42,203,200,192,41,208,231,169 
1410 DATA- 25, 133,253, 169,42, 133,254,169 - 
1420 DATA 203,133,255,160,0,24,177,254 
1430 DATA 160,40,113,254,145,254,160,41 
1440 DATA 24,177,254,160,1,113,254,145 
1450 DATA 254,24,165,254,105,42,133,254 
1460 DATA 144,2,230,255,198,253,208,219 
1470 DATA 24,173,0,203,160,40,121,26 
1488 DATA 207,153,26,207,160,41,24,185 
1490 DATA 8,203, 160T1, 121,26,207, 153 
1500 DATA 2'6, 207, 24, 173,68,207, 160,40 
1510 DATA 121,42,803, 153,42,203, 160,41 
1520'DATA 24, 1S5,6S,207, 160,1,121,42 
1530 DATA 203,153,42,203,96 
1540 END 

RERDV. 



„ANDROMEDA” (Planeta- 
rium i Obserwatorium Astro- 
nomiczne w Łodzi) wyposa- 
żona w mikrokomputery 
Spectrum, Meritum, Commo- 
dore oraz Amstrad zajmuje 
się przede wszystkim two- 
rzeniem biblioteki programów 
astronomicznych, populary- 
zacją informatyki oraz na- 
uczaniem języków progra- 
mowania. 

Plany na przyszłość obej- 
mują nie tylko „komputerowe 
loty" poza naszą galaktykę, 
ale znaczne rozszerzenie 
dziatalności poprzez organi- 
zację masowych imprez dla 
młodzieży. 
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SHItl* 

PROGRAM 8 

60: I$=" ? T=1 N=0 


DŻUNGLA 

Ten program dedykujemy Czytelnikom z 
fantazją: proponujemy ... wędrówkę’ przez 
dżunglę' 

Oczywiście „wędrownik" jest uzbrojonym 
po zęby strzelcem wyborowym. Jako wy- 
trawny podróżnik ma kompas, tyle tylko że... 
nie zna drogi! 

A wokół rządzą prawa dżungli! Co krok ja- 
kaś niespodzianka . raz urwisko, innym ra- 
zem pyton, udający gałąź lub ... sprężona do 
ataku pantera! 

Wędrownik ma tylko jeden cel: wyjść z 
dżungli. I to jak najszybciej! 

Może on wybrać kierunek północny, po- 
łudniowy, wschodni lub zachodni Tyle tylko 
że każdy kierunek jest jednakowo dobry (a 
raczej jednakowo zły) gdyż startuje on ze 
„środka" dżungli. 

Teoretycznie można wyjść po 20 manew- 
rach. Praktycznie: po 30, 40... 

Gdy wędrownik zbyt długo błądzi (po 60 
manewrach), wtedy zwycięża dżungla: po- 
jawia się meldunek zaginiony " i... komputer 
staje. 

Rysunek podaie przykład udanego wyjś- 
cia z dżungli. Uwaga: nie znamy „sposobu 
na wyjście", gdyż niespodzianki modelują 
dwa generatory liczb losowych: jeden 
(R=RND4) lokalizuje, zaś drugi (T=RND 8) 
definiuje^zdarzenie. 

Program wywołuje etykieta „X" (RUN 10) 

Życzymy szybkiego wyjścia! 

Janusz MILLER 


1^: "X" : CLEAR : 
RANDOM : US I NG 
:UflIT 0: Din P$ 
( 8 > 

20: DATA "U R U I 
S K 0”, "L I A 
N Y 1 ', "MOCZ 
A R Y", "P 0 T 
0 K" 

30: DATA “P A N T 
E R A", "K 0 B 
R A", “G0RY 
L", “PYTO N" 
40: REST0RE 20: FOR 
K=1 TO 4:READ P 
$dO:NEXT K 
50: REST0RE 30: FOR 
K=5T0 8: READ P 
$00 : NEXT K 


":R$="U C I E 
K A J ii" 

20: CLS :R=RND 4:T 
=RND 8: GOTO 90 
80 : N=0 : S=0 : W=0 : E= 
0: PRINT P$ ( T) : 
BEEP 3, 25, 500 
90: WAI T 0: PRINT " 
P0LN0C"; I*j : 
INPUT " " ; N 

1001 CLS : IF N=0 
GOTO 130 

110: IF R*N=10R R*N 
=2G0T0 80 

120: Y=Y+1 : Z=Z+1 : 
GOTO 120 

130: PRINT "POŁUDNI 
E";I$;: INPUT “ 

. ii ■ s 

140: CLS : IF S=0 
GOTO 120' 

150: IF R*S=30R R*S 
=4GÓT0 80 

1601 Y=Y-1 : Z=Z+1 

120: PRINT "WSCHÓD" 

; 1$; : INPUT “"} 
E 

180: CLS : IF E=0 
GOTO 210 

190: IF R*E=20R R*E 
=3G0T0 80 

200: X=X+ 1 : Z=Z+ 1 : 
GOTO 240 



216}: PRINT "ZACHÓD" 
; I#;: INPUT 
U 

2Z6): CLS : IF W=0 
GOTO 240 
230 : X=X- 1 : Z=Z+ 1 
240: IF <N+S+W+E>=0 
THEN PRINT R$: 
BEEP 10,25,50: 
GOTO 90 

250: IF Z>=60THEN 
WAIT : PRINT "Z 
A G I N 1 0 N 
Y":G0T0 290 
260: N=0: S=0: W=0: E= 
0 

220: IF ABS X<20AND 
ABS Y<20GOTO 2 
0 

280: WAIT :PRINT “U 
YSZEDLES P0“; Z 
MANEWRACH" 
290: WAI T '0: PRINT " 
OD NOWA”; 1$;: 
INPUT “ ” ; P 
300: CLS : IF P=0 
THEN END 
310: X=0: Y=0: Z=0: 
GOTO 20 


D 

CC 

h 

O 

UJ 

CL 

CO 



*ih 


,H Dzungu 

n=e- LET S=Ł. 

e =0 : LET p =0 LET 
.5 : DIM PS (8, 17) 

Cle 125, 85, S: PLOT 


20 DATA "U fi 

21 .DAT fi "L 

22 DAT fi " 

23 DfiT fi 


;;p ot. o k- 

izn ; n "P H N i 
3 i OhT fl “K O B R fi" 
32J>fiTft "G O R Y 



X 
u 
p 

i£5,S 
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33 Chi A “PYT G N" 

35 RESTOSE 20 , . 

48 FuR k.l TO 8 - ■ 

42 READ pt U , 1 TO 1?) 

AA NEXT k 

60 LET i t«” ? Tak . a 1 Nit 


■0 


62 
75 
77 
7S 
80 
62 
84. 
86 
87 
20 
24 
102 . 
i Co 
110 
111 
ISO 
122 
130 
134 
142 
150 

152 

153 
160 
170 
172 
182 
190 
192 
133 
208 
202 
210 
212 
222 
224 
238 
24 0 


LET r t»“ UCIEKAJ!".. 
LET r=lNT (RN0*4) 

LET t *INT (RND*71+1 

GO TO 90 , .( 

LET n *8 : LET £ =© 

LET e=0: uET w=0 

PRINT AT 20,1; P$ i t , 1 TG 17! 

BEEP .5.1: BEEP .5,1 

BEEP 1,1: BEEP 1,1 

PRINT AT 1,1; "PO,_NOC ";i$ 

INPUT " 1 . n 

Zr ri =0 THEN GG TO 130 
LET u=r*n , 

IF 11*1 OR U *2 THEN GO TO 80 
DRAU 0,3 

LET y =u + 1 : LET 1*2 + 1 
GO TG 170 

PRJNT AT 1,1; "POŁUDNIE" ; i t 

IF »=0 TI^In GO TO 170 ' .« 

LET u*r*s 

IF U *3 OR U *4 THEN GO TO 80. 
DRAU 0,-3 *. 

LET y=y-l: LET Z=Z+1 
PRINT AT 1, i; "USCHCP “ii* 
INPUT " " ; e , 

XF e=8 THEN GO TO 210 
LET u=f*6 

ZF 0=2 OR u *3 THEN GO TO 80 
DRAU 3,8 

LET Xtkłlr LET 2 =z+1 
GO TO 248 

PRINT AT 1,1; “ZACHÓD • ";it 
INPuT ' ; ui 

IF UI*0 THEN GO, TO 240 
DRAU -3,0 

LET X*X-1: LET z=z+l 
uET u=n+s+yi+e 


212 IF U=0 THEN PRINT AT 2,10; r 
*: BEEP 2,1: PRINT AT 2,10;" 

” : GO Tu 38 

25S IF z <=60 THEN GO TO 260 

252 PRINT AT 10,1; FLASH -1; "Z A 
G I" N I O N Y" 

253 BEEP 3,0 

254 GO TO 293 

258 u ET n=8: LET .£=0 

2.52 LET w=0. LET 6=0 

278 i_ET U=ABS X: LET v =ABS y 

272 IF u <20 AND v<20 THEN GO TO 

70 

280 PRINT AT 10,1; FLASH 1; "Uys 
zeol.es po “;z;" manewrach" 

281 FOR j=l TO 8: BEEP . 1,J: NE 
XT j 


290 INPUT "czy grasz -dtltj (ta* 
/n i e ! “ ; o $ 

292 IF dt = "nie , ‘ THEN STOP 


234 

236 


r ET 

5ls 


x«®i L§T ? gP0i LET 2.0 


GO TO 




Firma ..LASER" przywędrowała aż z USA. W rozmowie z 
Jadwigą Bieńkowską dowiedzieliśmy się, że jej bossowie 
nastawiają się na sprzedaż profesjonalnych komputerów 
dla zakładów pracy i instytucji. Oczywiście z pełnym opro- 
gramowaniem. Niskie ceny, to główny atut, mający najbar- 
dziej przemawiać do wyobraźni ewentualnych nabywców- 
Tylko że.,, zakupy można realizować za twardą walutę po- 
przez wpłaty na konto w Berlinie Zachodnim. 

^26 
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ATARI 

PROGRAM 9-10 


Regresja i korelacja 
dwu zmiennych 

Program „Regresja i korelacja dwu 
zmiennych" (napisany w języku Atari- 
-Basic) pozwala obliczyć kowariancję i 
współczynnik korelacji zmiennych lo- 
sowych X i Y oraz parametry (wyraz 
wolny i współczynnik regresji) prostej 
regresji według najmniejszych kwadra- 
tów (regresja zmiennej Y względem 
zmiennej X i zmiennej X względem 
zmiennej Y), wartości regresyjne, błędy 
szacunku i współczynnik zbieżności. 
Program oblicza ponadto i wyprowadza 
na ekran szereg wyników pośrednich w 
postaci różnych sum zmiennych X i Y. 
Tym samym program daje użytkowni- 
kowi pełen zestaw charakterystyk licz- 
bowych potrzebnych do analizy współ- 
zależności dwóch zmiennych loso- 
wych. Może to okazać się szczególnie 
przydatne w procesie dydaktycznym, w 
trakcie demonstracji różnych wzorów 
(metod) służących do obliczania ww. 
parametrów (w tym również szacowa- 
nia parametrów prostej regresji upro- 
szczoną metodą najmniejszych kwa- 
dratów). 

Aby podnieść walory dydaktyczne 
programu wyposażono go w generator 
polskich liter (wg W. Zientara. Kompu- 

28 ? CHR$<125> POKE 752,1 
30 POSITION 3,10=? “REGRESJA I K 
ORELACJA DWU ZMIENNYCH" 

40 FOR F*=l TO 1500=NEXT F 
50 ? CHR$(125) 'POSITION 1,10=? “ 
Poczekaj 21 seku.nd. Wprowadzam se 
nera tor" 

60 POSITION 13,12=? "Polskich li 
ter" = G0SU6 29000 
70 POKE 752,0 

80 CLR = DIM X<100),Ya00;>,X$a0> 
, Y$(10) , YR< 100) , Q$<1 > 

90 ? CHR$C125) = ? "Wprowadzanie d 
anych r";CHR$C4); "czne czy za po 
moc"; CHR$C1?>;“ instrukcji DATA? 

R/D" 

91 INPUT G$ 

100 1F Q$a>="D" THEN 210 

110 N=l = ? CHR*<125> : ? "Podaj war 

to";CHR$<23>; "ci zmiennych X i Y 

120 ? =? "Żako" ;CHR$< 13); "czenie 
wprowadzania danych = wpisz END i 
naci" ;CHR$<23); "ni j RETURN" ? 
130 ? "Je” ; CHRf <24) , "el i ";CHR$< 
7> ; " le wprowadzi " ; CHR$< 123> ; "e" ; 
CHR$(23> ; 

134 ? " wsp" ; CHR$< 16) ;CHR$< 123) ; 
‘*RZ";CHR5<4>; "dne daneno punktu." 

135 ? "naci";CHR$<23>;"nij 1 i R 


ter nr 8, 1986), który. jest wczytywany 
po uruchomieniu programu instrukcją 
RUN. Jeżeli nie był używany klawisz 
RESET to następnych uruchomień 
można dokonać instrukcją GOTO 80 
(bez linii). 

Program pozwala na wprowadzenie 
wartości zmiennych X i Y dwoma spo- 
sobami. a mianowicie „ręcznym" (tj. z 
klawiatury) i za pomocą instrukcji 
DATA. Ten ostatni sposób wprowa- 
dzania danych jest szczególnie wart 
polecenia albowiem ułatwia sprawdza- 
nie i poprawianie danych wejściowych 
(gdy mamy wątpliwość co do popraw- 
ności obliczeń możemy sprawdzić po- 
prawność wprowadzonych danych i 
wnieść poprawki bez konieczności po- 
nownego wprowadzania wszystkich 
wartości, co przy dużej liczbie prób jest 
bardzo uciążliwe), a także pozwala na 
wielokrotne powtarzanie obliczeń i 
wprowadzanie danych z taśmy (zapi- 
sanych instrukcją LIST). Wartość 
zmiennych X i Y wprowadza się ins- 
trukcjami DATA (w kolejności: XI , Y1 , 
X2, Y2, .... Xn, Yn) począwszy od linii 
730 (program zajmuje linie od 20 do 
720, a generator polskich liter od 29000 
do 29058). 

Przy wprowadzaniu danych z klawia- 
tury program zabezpiecza proces wpro- 
wadzania przed: 

ETURN, je";CHR$(24); “eli dobrze - 

naci";CHR$<23); “ni J 2 i RETURN" 
140 ? =? "Punkt"; " ";N= INPUT X*= 
TRAP 148= IF X$C1,1>="E" THEN N=N 
-1 : GOTO 300 

150 INPUT Y J = TRAP 150=X<N)=VAL(X 
$>=Y(N)=VAL<Y$> 

160 ? "X<";N; ")=";X(N> 

170 ? "Y(";N; ")="; Y(N) 

180 INPUT U= IF U=1 THEN 140 
198 N=N+1 ; GOTO 140 
200 REM Wprowadzenie danych inst 
rCikcjami DATA 

210 ? CHR$(125> -•? "Liczba Pr";CH 
R$<16) ; “b N=";: INPUT N=FOR F=1 T 
O N = X(F)=0 = Y<F>=0 = NEXT F = K=0 
228 FOR F*=l TO N 
238 FOR G=1 TO 2 
248 READ L 

258 IF G=1 THEN XCF)=L=? "XC“;F; 
")=";XCF> GOTO 278 
268 YCF)*=L = ? "Y(";F; ")="; Y<F) =K= 
K+l = IF K-9 THEN K=8;? =? "c.d. p 

0 naci " ; CHR$(23> ; "ni " ; CHR*<4) ; "c 

1 u. RETURN" 

261 INPUT 0$ 

270 NEXT G 
288 NEXT F 

238 ?. =? "c.d. po naci ";CHR$(23) 
; "ni";CHR*<4); "ciu. RETURN" = INPUT 

G$ 


a) zbyt szybkim naciśnięciem klawisza 
RETURN (przed wprowadzeniem 
wartości X lub Y), 

b) błędnym wprowadzeniem współ- 
rzędnych aktualnie zapisywanego 
punktu. 

Po stwierdzeniu poprawności wpi- 
sania współrzędnych kolejnego punktu 
należy to potwierdzić wpisaniem liczby ■ 
2 i naciśnięciem klawisza RETURN. 
Dopiero wówczas wartości współrzęd- 
nych zostaną zaakceptowane przez 
program i można przejść do zapisu 
współrzędnych następnego punktu. Po 
stwierdzeniu błędu należy wpisać 1 i 
nacisnąć klawisz RETURN. Wówczas 
program umożliwi powtórne wpisanie 
wartości współrzędnych danego punk- 
tu. 

Liczność prób N nie może przekra- 
czać 100. Można ją zmienić przez wpro- - 
wadzenie zmian w deklaracji zmien- 
nych X, Y, YR w linii 80. 

W programie użyto określeń za- 
czerpniętych z książek: Oktaba W., 
Niedokos E.: Matematyka i podstawy 
statystyki matematycznej, PWN, War- 
szawa 1974 i Zając K.; Zarys metod 
statystycznych, PWE, Warszawa 1971. 

Prezentowany program różni się od 
innych programów tego typu przede 
wszystkim zakresem dostarczanej in- 
formacji, co czyni ?eń narzędzie mogą- 
ce zaspokoić wymagania również pro- 
fesjonalnego użytkownika. Walory 
użytkowe programu znakomicie pod- 
nosi możność wprowadzania danych 
za pomocą instrukcji DATA a jego wa- 
lory dydaktyczne zastosowanie pol- 
skiego alfabetu. 


Andrzej GRZESIAK 

300 -SI =8 : S2=8 : S3=0 : S4=8 = S5=8 
310 FOR F=1 TO N 
328 S1=S1+X<F>=S2-S2+Y<F)=S3=S3+ 
X<F)*X(F) =S4=S4+X<F)*Y(F) =S5=S5+ 
YCF>*Y<F> 

330 NEXT F 

340 XS=S1/N=YS=S2/N 

350 ? CHR$<125> 

368 ? "SIGMA X="; SI, "SIGMA Y=";S 

2 = ? "SIGMA X^2= ,, ;S3," SIGMA Y'2=" 

;S5=? "SIGMA X*Y=";S4 

378 ? "X" ;CHR$<23>; "red.=";XS, "Y 

" ; CHR$(23> ; " red. =" ; YS 

380 SXY=S4/N-XS*YS : ? =? “Kowar i a 

nc ja=“ ; SXY = NSXY=N*SXY 

390 NS2X=S3-(S1 *S1 >/N • NS2Y=S5-CS 

2*S2)/N • RXY=NSXY/SQR.CNS2X*NS2Y> 

400 ? :? "SIGMA <X-X" ; CHR$(23) ; " 

red>^2=" ; NS2X ; ? "SIGMA <Y-Y";CHR 

*<23>;"red:m2=";NS2Y 

410 ? "SIGMA <X-X” ; CHR$<23) ; " red 
> < Y-Y" ; CHR* < 23 > ; “ red ) = " ; NSXY 

411 ? =? "Wsp";CHR*a6>;CHR$C123 
); "czynnik korelacji=“;RXY 

428 BYX=NSXY/NS2X = WW=YS-BYX*XS 
438 ? =? "R" ; CHR$( 15) ; “WNANIE PR 
OSTEJ REGRESJI" 

440 ? =? CHR$<217);"=";WW;"+";BY 
X;CHR$<216> 

450 S YWX=SQR < (. NS2Y-TJ ) * ( 1 -RX Y^2 ) > 
460 ? =? "Odchylenie standardowe 
=";SYWX 
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) i '-czynnik zbie";CHR$<24)ż "no ,r ;C 

HR$<23>;"ci=">SUMA3 

668 ? ■? "Czy chcesz obliczy";CH 

R$<22>i“ regres j" jCHR$( 4>; '* odwr 

otn" i CHR$< 17) ; "? T/H" ■ INPUT Q$ 

678 IF Q$="N" THEH 788 

688 FOR F=1 TO N=Z1=Y<F) Z2=X<F) 

=X<F)=Z1=Y<F)=Z2NEXT F 

638 GOTO 388 

780 ? •? "Czy Pracujemy dalej? T 
/N" INPUT Q* 

718 IF Q$="T" THEH 80 
728 EHD 

23000 CHB=<PEEK<106)-8)*256 
23810 FOR 1=0 TO 1023 : POKE CHB+I 
, FEEKC 57344+1 > ■ NEXT I:RESTORE 23 
040 

23820 RERO flIF ft=+l THEH POKE 7 
56, CHB/256 : RETURN 
23838 FOR 1*9 TO 7 -REOC* B->POKE C 
H6+R*8* I , B = NEXT I =• GOTO 23©2& 

2*0 41 DflTR 6?, 12. 60,162, 36, 36/10’ 

2, 60,0 

23842 DRTR 68,0,0,68,102,126,36, 
60,6 

29043 DRTR 63,0,126,36,124,96,96 
,126,12 


•<Ź2\ ■/> 


23044 DRTR 70,12,24,126,12,24,48 
,126,0 

23045 DRTR 71,12,24,0,126,12,48, 
126,8 

29846 DRTR 76,0,96,128,112,224,3 
6,126,8 

29047 DRTR 77, 12, 24, 8, 124, 182, 18 

2,182,0 

23848 DRTR 78,24,102,118,126,126 

, 110 , 102,0 

23849 DRTR 73,12,60,182,102,182, 

182,68,0 

23050 DRTR 88,12,24,0,60,182,102 

, 68,0 

23051 DRTR 81,0,8,60,6,62,182,62 

,12 

29052 DRTR ©3,12,60,36,68,6,6,68 

,0 

29053 DRTR 86,12,24,0,60,36,36,6 
©>0- ' ■ 

28fm DRTR 0?, 12, £4; 62, 96, 68, 6,1 

■ał/0^ ' */■ s**- 4 • * • 

126, 12,48, 1 


P^TR 30, 24, 9, 126, 12, 24,48, 

29057 DRTR 123,8,56,24,28,56,24, 

68,0 

29058 DRTR 1 , 0, 0, 0, 0, 0, 0, 0, 0 


478 V YWX=N* ( S YWX~2 ) z - ( H-2 ) 

488 ? "B" ;CHR$(123);CHR$(l?)j "d 
" , CHR$ < 23 ) ; " redn i = " ; SOR < V YWX ) 

438 BSWR=SQR<VYWX/HS2X) 

508 POSITIOH 1,21=? "B"; CHR$<123 
);CHR$<17) i "d standardowy wsp"jC 
HR$< 16) ; CHR$< 123) > "czynnika resr 
esji=" ,BSWR 

518 ? "Ci";CHR$a?);"s dalszy po 
naci " ; CHR*<23) ; "ni " ; CHR* <4) > "ci 
u. CRETURH] " INPUT Q$ 

520 ? CHR$C125)=? "Wartb" ,CHR$i:2 
3), "ci regresy jne" =? 

538 K=0 

548 FOR F=1 TO H 

550 Y=WW+BYX*X<F) : YR<F)=Y 

560 ? "Y" jF; "=" j YR<F> 

570 K=K+1 : IF K=15 THEH K=6=? "e. 
d. wydruku, po naci";CHR$<23>; "ni 
,, ,CHP^C4>i"ciu RETURN" = INPUT 6$ 

' 5^8 NEXT P 

*•?*$£* ®- • b ^? olcz “. ,fl *i k ' 3 - 

, ete Fm pii to h 
' 813 ŚUfoRlsSUMM-KYCF^YRCF))^ 
628 SUMR2=SUMR2+mF>-YS>''2 
638 HEXT F 

646 SUMR3=SUMR1/*SUMR2 

650 ? :? "Wsp";CHR$a6>iCMfc$<123 


Korelacja wielu zmiennych 

Program pozwala ooliczyć współczynniki 
równania regresji, średni błąd szacunku 
(tzw. standardowy błąd oceny), wartości re- 
gresyjne, współczynniki .korelacji prostej 
(wyrażającej związek danej pary cech obli- 
czony bez względu na ewentualny związek z 
innymi cechami) oraz współczynnik korela- 
cji wielokrotnej, dla dowolnej liczby P 
zmiennych i dowolnej liczby N prób (ograni- 
czenia wynikają tylko z pojemności pamię- 
ci). Oprócz tego obliczane są i wyświetlane 
na monitorze wyniki pośrednie: 

SIGMAX(P) — suma (po N) wartości zmień 
nej X z indeksem P, 

SIGMAX2(P) — suma kwadratów zmiennej X, 
XSRED(P) — wartość średnia zmiennej X. 

NS2X(P) — suma kwadratów odchyleń po 
jedynczych wyników oo 
średniej, 

SIGMAXX(P,P) — suma iloczynów miesza- 
nych, 

NSXX(P,P) — suma iloczynów mieszanych 
odchyleń od ich średnich. 

Wartości sum SIGMAX(P), SIGMAXX(P.P), 
NS2X(P) oraz NSXX(P,P) przechowywane 
są w pamięci (zadeklarowane jako zmienne 
tablicowe vv linii 120), stąd przy ewentual- 
nych przeróbkach programu mogą być 
bezpośrednio y/ykorzystane do obliczeń. 
Pozostałe sumy i wartości średnie należy w 
takim przypadku zadeklarować jako zmien- 
ne tabiićowe i nadać im wartości (np. w linii 
300). 

Znajomość współczynników korelaci 
prostej pozwala na obliczenie współczynm 
ków korelacji cząstkowej. 

Aby uczynić program jak najbardziej czy 
telnym, a tym samym ułatwić użytkownikom 


dokonywanie przeróbek, nadano zmiennym, 
wykorzystywanym w trakcie obliczeń, nazwy 
odpowiadające typowemu sposobowi zapi- 
su stosowanemu w podręcznikach z zakre- 
su statystyki (W. Oktaba, E. Niedokos: Ma- 
tematyka i podstawy statystyki matematy- 
cznej. PWN, Warszawa 1 974). 

Dane, X(P,N), wprowadza się instrukcjami 
DATA (poczynając od linii 1400), wg nara- 
stającej wartości P (przy ustalonym N). 
Ilustruje to poniższy przykład, dla P = 2: 

1 400 DATA X(1 ,1 ). X(2,1 ) X(1 ,N), X(2.N). 

Na pierwszym miejscu (X(1 .1 ),... , X(1,N), ...) 
wprowadza się zmienną niezależną. Wpro- 
wadzanie danych można przerwać (bez 
uszczerbku w procesie wprowadzania) w 
dowolnym momencie, naciskając jedno- 
cześnie klawisze CONTROL i 1; wznowię 
nie procesu wczytywania następuje po ko- 
lejnym naciśnięciu klawiszy. Operacja ta 
wymaga pewnej wprawy. 


Program można wpisać bez linii 
1 110—1300, w których umieszczono infor- 
macje dotyczące programu (w tym przy- 
padku również bez linii 60 i 70), jednak do- 
świadczenie autora wskazuje, że trud zwią- 
zany z wprowadzeniem tej informacji opłaca 
się sowicie przy dłuższej eksploatacji pro- 
gramu. 

Metodę rozwijania równań liniowych, z 
Których oblicza się w programie współczyn- 
niki równania regresji oraz wzory według 
Których oblicza się błąd standardowy oceny 
współczynnik korelacji wielokrotnej można 
znaleźć w książce: F C. Mills: Statistical 
Methods .... Columbia University, third edi- 
non, N York 1955 (wyd. w jęz. rosyjskim z 
1 958 r.). 

Błędem standardowym nazywa się w 
programie błąd uzyskany w wyniku dziele- 
nia, w którym mianownik równy jest N. a 


ołędem standardowym poprawionym — 
błąd uzyskany w wyniku dzielenia, w którym 
mianownik równy jest ((N — P). 


10 REM Strona tytułowa 
20 DIM Q$<3) 

30 ? CHR$ (125) : GRRPH I CS 2=SETC0L 
0R 2,0,0:P0SITION 6,2 : ? 4ł6; "K0RE 
LfiCJfi " 

40 P0SITI0N 8,4--? #6; "WIELU" = POS 
ITIOH 6,6=? #6; "ZMIENNYCH" 

58 FOR ZMP=1 TO 1008 1 NEXT ZMP 
68 ? “Czy chcesz informacje o pr 
ogranie? T/N" = INPUT Q$ 

78 IF Q$="T" THEN GRRPHICS 8= GOS 

UB 1120 

88 ? CHR$( 125) 

98 ? : ? “Podaj liczbę zmiennych 
P=",- = INPUT P 

100 ? : ? "Podaj liczbę prób N="; 

: INPUT N 
110 GRRPHICS 8 

120 DIM X(P,N),R(P,P),B<P), SIGMA 
X(P),SIGMRXX(P,P) ,NS2X<P) ,NSXX(P 
,P),Z<P) 

138 REM Uprowadzanie danych 
140 FOR F=1 TO N:F0R G=1 TO P 
150 RERD L=X<G,F)=L 

169 ? "X<";G, ", "i Fi " )=" >X<G,F) 

170 NEXT G : NEXT F 

180 ? : ? "Koniec wprowadzania, da 
nych" =? ■? "c.d. po nac. ";CHR$< 
210);CHR$(1S7);CHR$(212) = INPUT Q 
$ 

198 ? CHR$(125-> : ? "Czy odczytuje 
sz wartości pośrednie? TRK-1>N 
IE-2"= INPUT GWP 

280 REM Podprogram: obliczanie w 

artosci pośrednich 

218 REM Obliczanie SIGMRX, SIGMA 

X2, NS2X i XSRED 

220 FOR G=1 TO P:SIGMRX=0:SIGMRX 

2=0 

230 FOR F=1 TO N 

240 SlGMRX=SIGMfiX+X<G,F> 
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250 SIGMAX2=SIGMflX2+X(G,F)*X(G,F 
) 

260 NEXT F 

270 NS2X=SIGMfiX2-(SIGMflX / '2)/N 

280 XSRED=SIGMAX/N 

290 IF G=1 THEN B(G)=SIGMfiX=ZD2= 

SIGMRX2 

300 R(G,G)=SIGMflX2 = SIGMfiX(G)=SIG 

MflX : NS2X < G ) =NS2X 

310 IF G> 1 THEN R(l,G>=SIGMflX fi- 

G, 1)=SIGMRX 

320 ? CHR$(125) 

330 ? • ? ,, SIGMRX<"iG;“)=* , ;SIGriHX 
? = ? "SIGMfiX2( ";G; " )="; SIGMRX2 
340 ? = ? "NS2X( " ; G; " )=" ; NS2X ? 

? "XSRED< " / G; " )=" > XSREO 

350 IF OWF-2 THEN 370 

360 ? ;? = ? 7 "c.d. po nac. " ; C 

HR$(210);CHR$(19?);CHRS(212) ■ INF' 

UT 

370 NEXT G 

380 REM Obliczanie SIGMRXX 
390 FOR G=1 TO F-l 
400 FOR J=G+1 TO P : SIGMRXX=0 
410 FOR F=1 TO N 

420 S I GMfiXX=S I GMRXX+X ( G , F)*X( J, F 
) 

430 NEXT F 

440 NSXX-S I GMRXX- ( S I GMRX ( G ) *S I GM 
flX(J))/N 

450 SIGMfiXX(G, J)=SIGMfiXX : NSXX(G, 
J)=N8XX= IF G=1 THEN B(J)=SIGMfiXX 
460 IF G>1 THEN fi(G, J)=SIGMflXX : fi 
<J, G)=SIGMRXX 
470 ? CHR$( 125) 

480 ? :? "SIGMflXX( " ; G j ", " ; J; " )=" 
> SIGMRXX 

490 ? = ? "NSXX( " > G> " , " J; " )=" ; NS 
XX 

500 IF GWF-2 THEN 520 

510 ? • ? -7 -7 7 "c-d. po nac. 

" i CHR$(210); CHRf ( 197) ; CHR* (212) 
INPUT Q$ 

520 NEXT J 
530 NEXT G 
540 fi(l,l)=N 

550 REM Pod pros ram ! obliczanie ws 
Pol czynników równania regresji < 
układ rownan liniowych) 

560 ZMP=1 . 0E-07 
570 FOR F=1 TO P=ZMD=ZMP 
580 FOR I=F TO P : G=fi(I,F) = IF RBS 
(G)»fiBS(ZMD) THEN ZMD=G = J=I = NEXT 
I 

590 IF RBS ( ZMD ) <=ZMF‘ THEN ? "Ukl 
ad rownan nie ma jednoznacznego 
rozw i azan i a. " = END 

600 FOR I=F TO P=G=fl(J,I) =fi(J, I) 
=fl(F, I):fl(F, I)=G=NEXT I 
610 G=B(J)=B(J)=B(F) =B(F)=G IF F 
=P THEN GOTO 640 
620 FOR I=F+1 TO P=G=fi(I,F)/ZMD= 
FOR J=F+1 TO P fi(I, J)=FKI, J)~G*R 
<F, J) = NEXT J : BCI )=B( I )-G*B(F) = NE 
XT I 

630 NEXT F 

640 Z(P)=B(PVfi(P,P) 

650 FOR F=P-1 TO 1 STEP -1ZCF)= 
B<F)/R(F..F) - FOR J=F+1 TO P=Z(F)= 
Z(F)-fi(F, J)/fl(F,F)*Z(J) : NEXT J-N 
EXT F 

660 REM Wydruk 
670 ? CHR$( 125) 

680 POSITION 13,1? "ROWNhNIE . RE 
GRESJI " 

690 POSITION 3,3 = ? “XI * Bil + B 
12*X2 + BI 3*X3 + B14*X4 +" 

700 POSITION 12,4=? "+ B15*X5 + 

+ B1P*XP“ 

710 ? :? ,ł sdzie dla P=";P=? 


720 LI-0 „ 

730 FOR 1=1 TO P 

740 PRINT “ Br'iIi“* n iZ(I). 

750 LI=LI+1 : IF LI =8 THEN LI=0‘=? 

= ? "c.d. po nac. ";CHR$(210);CHR 
$(197)>CHR$(212)= INPUT Q$ - 
760 NEXT I 

770 REM Fod Pros ram : obliczanie w 
spolczynnikow korelacy jnych 
780 REM Obliczanie bledu. stand, 
i wsp. kor. wielokrotnej 
790 ZMP=0 

800 FOR G=2 TO P = ZMP=ZMP+Z(G)*SI 
GMRXX( 1 , G) = NEXT G 
810 ZMP=(ZD2-Z< 1 >*SIGMRX( 1 )-ZMP) 
✓N 

820 ? - ? "BI ad standardowy=",SQR 
<ZMP) 

830 ZMP=ZMP*(N/(N-P'*> 

W40 ? -7 “Blad stand, poprawiony 
=">SGR(ZMP) 

850 ZMP=0 

860 FOR G=2 TO p = ZMP=ZMF+Z(G>*SI 

GMflXX< 1 , G) • NEXT G 

870 K=N*< < SI Gf1fiX< 1 ) /N) )^2 

880 ZMP=<2< 1 )*SIGMflX( 1 )+ZMP-KV( 

ZD2-K) 

890 : •? "Współczynnik korelacji 
=" ; SGR(ZMP) 

900 ? -7 "c.d. po nac. ";CHR*<21 
0 ) ; CHR$ (197); CHR$ <212) = INPUT OS 
918 REM Obliczanie wartości resr 
esy jnych 

920 ? CHR$(125) POSITION 12,2=? 
"WhRTOSCI REGRESY JNE" ■? =FOR 1=1 
TO 500 = NEXT I 
930 LI=0 

940 FOR F=1 TO N=ZMp=0 

950 FOR G=2 TO P 

960 ZMP=ZMP+Z(G)*X(G,F) 

970 NEXT G 
980 ZMP=ZMP+ZC1) 

990 ? "Y(" ;F;" >=";ZMP 
1000 LI=LI+1=IF LI=15 THEN LI=0= 
? "c.d. po nac. ";CHRS(210);CHR$ 
(137);CHR$<212)= INPUT Q % 

1010 NEXT F 

1020 ? i? *‘c. d. po nac. "iCHRC(2 
10) i CHR* < 197) iCHR$C212) = INPUT Q$ 
1030 REM Obliczanie wsp. kor. Pr 
ostej 

1040 ? CHR$(125)=? "WSPÓŁCZYNNIK 
I KORELfiCJI PROSTEJ" =? =FOR ZMF‘= 
1 TO 1000 = NEXT ZMP = LI=l-„ 

1050 FOR F=1 TO P— 1 = FOR G=F+1 TO 
■ P 

1060 ZMF-NSXX(F, G)/SQR<NS2X<F)*N 
S2X<G) ) 

1070? U R" iFiGi "=" i ZMP 

1080 LI=LI+1=IF LI=15 THEN LI=0= 


SPROSTOWANIE 

W opublikowanym zeszycie nr 1 
programów komputerowych „IKS-a” 
złośliwy chochlik drukarski ..poobcinał" 
niektóre linie listingu programu MINI- 
ASEMBLER. Oto ich wykaz: 
linia 100 — jest ...POP:GOTO, powin- 
no być ,POP:GOTO 
START. 

linia 3130 — jest DEC = N2., a po- 
winno-być . :DEC = D2:... 
linia 30010 — ostatnią zmienną w 
instrukcji READ jest 
START a nie STAR jak 
na listingu. 

linia 30110 — w linii brakuje trzech 
znaków., oto one SR" 
linia 30180 — na końcu linii powinno- 
być ...MENLT.PRINT a 
nie ...MENU":P. 


? : ? H c.d. po nac. “ ;CHR$<210) >C 
HR«<197);CHR$<212)= INPUT G» 

1090 NEXT G=NEXT F 
1100 END 

1110 REM Blok informacji o prosr 
amie 

1120 ? CHR$025>= GRAPHICS 0 
1130 ? "Program oblicza wsPolczy 
mu ki równania regresji, blad st 
andardowy, wspolczyn riik korelac 
j i " ; 

1140 ? "wielokrotnej, wartości r 
egresyjne oraz współczynniki kor 
ela- cji Prostej"; 

1150 ? " “)■? "dla dowolnej licz 
by P z- miennych (w tym zm. nie 
zalezna)"; 

1160 ? "i dowolnej liczby N prób 
(wielkości P i N o- graniczone 
s a tylko pojemnością pamie-ci). 

1170 ? "Dane X(P,N) wprowadza si 
e i nst ruk c am i DFI Tfi (poczynając o 
d linii 1400) wg narasta. jacej war 
tosci indeksu P. “ 

1180 ? "Przykład wpisywania dany 
ch (dla F-2) = " 

1190 POSITION 1,14? "1400 DflTfi 
“ ; CHRJ:(216) ; CHR* ( 168) ; CHR$(177) ; 
CHRf- < 1 72 ) ; CHR* ( 1 77 ) ; CHR t (16 9 ) i 

1191 ? ",X(2, 1 ),.,"; CHR$(216);CH 
RS- ( 168) ; CHR$< 177) ; CHRf< 172) ; CHR$ 
(206) > CHR$< 169) ; “ , X<2, N) ” 

1200 ? "W iiwerse video zapisana 
jest zm i enna n i eza l ezna . " 

1210 ? -7 "c.d. po nac. CHR$(2 
10) ; CHR^ ( 197) ; CHR$(212> = INPUT QS 
1220 ? CHR$( 125)= POSITION 14,1=? 
"OZNACZENI fi" 

1230 ? =? "STGMHX(P) - suma (po 
N) wartości zmień nej 

X z indeksem P" 

1240 ? =? "SIGMRX2(P) - suma kwa 
dratow zmiennej X" 

1250 ? =? "XSRED(P) -wartość sre 
dnia zmiennej X" 

1260 ? -7 ”NS2X(P) - suma kwadra 
tow odchyleń po- jedyn 

czych wyników od śred- 
niej" 

1270 ? =? "STGMflXX(P,P) -suma il 
oczynow miesza- n 

ych" 

1280 ? =? "NSXX<P,P) - suma iloc 
zynow mieszanych ode 

hy len" 

1290 ? = ? "c.d.- po nac. " ;CHRJ(2 
10);CHR$(137);CHR$(212) : INPUT Q S 
1360 RETURN 


Za powstałe z tego powodu kłopoty z 
uruchomieniem programu wszystkich 
czytelników serdecznie przepraszamy. 

REDAKCJA 
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MISTKAII 

PROGRAM 11 


Technologia przenoszenia 
programów 

ze Spectrum na Amstrada 

Prezentowane rozwiązanie pozwala na 
przenoszenie programów czy zbiorów da- 
nych napisanych w języku Basic z mikro- 
komputera Spectrum na mikrokomputer 
Amstrad. Każdy program (zbiór), który mo- 
żna wyiistować na Spectrum komendami 
LLIST lub LPRINT może być przesłany, 
przy użyciu taśmy kasetowej, do mikrokom- 
putera Amstrad Użyta może być dowolna 
wersja Spectrum (najstarsza 48 k. Spec- 
trum + Spectrum 1 28 lub najnowszy Spec- 
trum 128+2) 

Z wersji mikrokomputerów Amstrad mo- 
żna zastosować CPC 464, CPC 664 lub 
CPC 6128 . Bardziej dogodna w użyciu jest 
dyskowa wersja Amstrada (CPC 664 lub 
CPC 6128). nie mniej w ostateczności mo- 
żna wykorzystać wersję taśmową CPC 464 
Całość operacji realizują trzy z prezentowa- 
nych czterech programów. Pierwszy z nich 
(wydruk 1 ) rezyduje w górnej pamięci. Spec- 
trum i dostarcza kody dla komendy SAVE, 
dzięki której poprzez instrukcje LLIST lub 
LPRINT następuje zapis przesyłanego pro- 
gramu (zbioru) danych na taśmę kasetową 
Jednocześnie przesyłany program (zbiór) 
jest zapisywany w taki sposób, że może być 
z łatwością odczytany na Amstradzie. Pozo- 
stałe trzy programy są związane z mikro- 
komputerem Amstrad Pierwszy z nich 
(wydruk 2). to program w kodzie maszyno- 
wym, którego działanie wzorowane jest na 
instrukcji LOAD izywanej w mikrokompu- 
terze Spectrum. Postać binarną, ZX.BIN 
pierwszego programu (wydruk 2) wykorzy- 
stuje napisany w Basicu program kontrolny 
(wydruk 3 lub wydruk 4). 

Powyższe programy służą do przesyłania 
innych programów lub zbiorów danych, za- 
pisanych w języku Basic — całej operacji 
nie należy jednak utożsamiać z translacją, 
nie. mamy tu także do czynienia z kompaty 
bilnością mikrokomputerów. Mówiąc proś- 
ciej, chociaż omawiane cztery programy 
zapewniają przeniesienie innych progra- 
mów (zbiorów danych) to jedynie najprost- 
sze ich wersje nadają się natychmiast do 
uruchomienia na mikrokomputerze Ams- 
trad Języka Basic na mikrokomputer Ams- 
trad nie należy utożsamiać z językiem Basic 
na Spectrum. W Basic u na Spectrum jest 
wiele elementów, które będą sygnalizowane 
na Amstradzie jako błędy składniowe. 

Przed operacją przesłania należy pro- 
gram przejrzeć i dokonać ewentualnych 
poprawek. Basic na Amstradzie dopuszcza 
w jednej linii programowej maksimum 255 
znaków i dlatego zbyt długie linie progra- 
mowe na Spectrum należy skrócić, wstawia- 
jąc nowe linie Wychwycenie zbyt długich li- 
nii programowych jest bardzo ważne, gdyż w 
jnnym razie ładowanie na Amstrada pro- 
gramu przeniesionego ze Spectrum, zakoń- 
czy się błędem, a całość operacji trzeba 
będzie powtórzyć. 


Poprawiania sygnalizowanych błędów 
składniowych można dokonywać po prze- 
niesieniu programu na Amstrada, wykorzy- 
stując metodę kursora kopiującego, czy ko- 
rzystając ze specjalizowanego oprogramo- 1 
wama mikrokomputerowego. Programy, po- 
siadające bogatą grafikę będą przesyłane: 
dłużej niż pozostałe. Programy, zawierające 
większą ilość tekstów i danych w kodzie 
ASCII, np. gry przygodowe powinny się dać 
łatwo przenieść. 

Programy, w których występuje duża ilość 
instrukcji PEEK i POKE właściwie nie nada- 
ją się do przeniesienia. W celu przesłania 
programu ze Spectrum na Amstrada używa 
się taśmy kasetowej. Zapis programu na 
kasetę umożliwia program pokazany na 
wydruku pierwszym oraz instrukcja LLIST 
(przy przesyłaniu danych lepiej wykorzystać 
instrukcję LPRINT). Aby oznaczyć koniec 
przesyłanego programu należy jako ostatnią 
linię programową, wprowadzić instrukcję 
REM © X, gdzie symbol © oznacza CO- 
PYRIGHT 

Przesyłany program wprowadzany jest 
najpierw do buforu RAM, a potem wysyłany 
na taśmę. Bezpośrednie przesłanie progra- 
mu na kasetę instrukcją LLIST bajt po baj- 
cie nie jest możliwe. Program w kodzie ma- 
szynowym (wydruk 1 ) zajmuje górne adresy 
pamięci od F000H do FlDFH, natomiast 
przesyłany program w Basicu może zająć 
pozostałą jej część. Program przesyłający 
(wydruk 1) nie jest uruchamiany automaty- 
cznie i dlatego przed użyciem instrukcji 
LLIST lub LPRINT należy podać: 
RANDOMIZE USR 61440. 

W tym momencie program binarny pozo- 
staje w stanie oczekiwania na instrukcję 
LLIST lub LPRINT. Przesyłany program 
jest zapisywany na taśmie kasetowej z bufo- 
ra pamięci, służącego do przechowywania 
obrazu ekranu tzw. video RAM (VRAM), zaj- 
mujący obszar od adresu 4000H do adresu 
5B00H. Omawiany bufor służy do przecho- 
wywania danych wyjściowych skierowa- 
nych tam zamiast na drukarkę. Zapis na 
taśmę w postaci zbioru binarnego odbywa 
sięi kiedy bufor VRAM będzie zajDełniony lub, 
gdy wcześniej zakończy się wykonywanie 
instrukcji LLIST. Należy zauważyć, że cho- 
ciaż zapisywany jest zbiór binarny to prze- 
noszona treść jest w swojej naturze czysto 
tekstowa. 

Większość programów na Spectrum mo- 
że być przesłana w jednym cyklu, ale nie- 
które szczególnie długie programy będą 
musiały być podzielone i przesłane w dwóch 
lub więcej częściach. Wydaje się to dziwne 
tym bardziej że oba mikrokomputery mogą 
mieć taką samą wielkość pamięci użytkowej 
RAM. Powyższa rozbieżność wynika stąd, że 
program w Basic'u na Spectrum jest zwarty, 
gdy rezyduje w pamięci RAM, ale rozszerza 
się w trakcie listowania. Na przykład słowo 
kluczowe RANDOMIZE jest jednobajtowym 
symbolem w pamięci RAM, ale w trakcie li- 
stowania wyrażone będzie znakami zajmu- 
jącymi 9 bajtów. Z drugiej strony liczby na 



Spectrum zajmują w czasie listowania mniej 
miejsca. O ile dany program się rozszerzy 
decyduje jego rodzaj. „Symbol graficzny . 
„Kształt’' zdefiniowany przez użytkownika 
zajmuje jeden bajt pamięci RAM, alfe na 
Amstrad jest przesyłany jako trzycyfrowy 
kod w klamrach np. [133], zajmując aż czte- 
ry bajty. Przechodząc do praktycznych roz- 
ważań w pierwszej kolejności powinniśmy 
się dowiedzieć w ilu częściach będziemy 
musieli przesłać program i z którego pro- 
gramu kontrolnego należy skorzystać. W 
tym celu po załadowaniu na Spectrum, ok- 
reślamy górny adres, zajmowany przez inte- 
resujący nas program, podając: 

PRINT PEEK (23628)* 256 + PEEK 
(23627). 

— Jeśli uzyskana wartość jest mniejsza od 
39 000 to przesłanie programu powinno 
się zrealizować w jednym cyklu. Na Am- 
stradzie wykorzystujemy program kontrol- 
ny z wydruku trzeciego. 

— Jeśli uzyskana wartość jest zawarta po- 
między 39 000 i 50 000 to przesłanie pro- 
gramu będzie zrealizowane Jakże w jed- 
nym cyklu ale na Amstradzie powinien 
być wykorzystany program kontrolny z 
wydruku czwartego. 

— Jeśli uzyskana wartość jest większa od 
50 000 to oznacza, że program powinien 
zostać podzielony na dwie części i prze- 
słany w dwóch cyklach. Na Amstradzie na- 
leży wykorzystać program kontrolny z 
wydruku czwartego. 

Po uruchomieniu jednego z dwóch progra- 
mów kontrolnych pojawi się na monitorze 
pytanie: 

PODAJ ILOŚĆ 

ŁADOWANYCH SEGMENTÓW 

Aby wpisać prawidłową ilość segmentów 
należy pamiętać, aby po zakończeniu ins- 
trukcji LLIST wprowadzić: 

PRINT PEEK (61506) — 64 
która spowoduje wypisanie liczby, określa- 
jącej ilość segmentów. W celu przywrócenia 
użytym instrukcjom LLIST lub LPRINT ich 
normalnego działania należy podać: 
RANDOMIZE USR 61490 
Po zapisaniu na taśmę kasetową przesyła- 
nego programu nie można stwierdzić czy 
treść programu na taśmie jest poprawna. 
Aby to sprawdzić wgrywamy program z 
taśmy do pamięci Spectrum Każdy błąd 
będzie sygnalizowany jako błąd ładowania 
taśmy. 
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Nadszedł wreszcie moment, aby wziąć 
taśmę z poprawnie nagranym programem i 
włożyć ją do odtwarzacza kasetowego, 
współpracującego z Amstradem. W pamięci 
Amstrada powinny rezydować dwa progra- 
my związane z przesyłaniem programu ze 
Spectrum. Pierwszy o nazwie ZX B 1 N zapi- 
sany w kodzie maszynowym (wydruk 2) re- 
zyduje w pamięci od adresu 8000. w wers- 
jach dyskowych Amstrada adres ten zali- 
czany jest do obszaru pamięci górnej. Drugi 
program (wydruk 3 lub wydruk 4) jest pro- 
gramem kontrolnym i mieści się w pamięci 
dolnej. Po załadowaniu z taśmy kasetowej 
przesyłanego programu do pamięci RAM 
Amstrada, program kontrolny przepisze ten 
załadowany program na dyskietkę lub taś- 
mę w postaci zbioru ASCII. Cała operacja 
jest realizowana w Basic u i dlatego użyt- 
kownicy, wykorzystujący pamięć dyskową, 
zauważą nietypowe opóźnienia, przy reali- 
zowanym etapami zapisie programu na dy- 
skietkę. W wyniku działania programu kon- 
trolnego na dyskietce (taśmie) zostanie 
utworzony zbiór X.ASC, gdzie X jest podaną 
przez użytkownika nazwą przesyłanego 
programu, a ASC określa typ 7 bioru i jest 
dopiąywany automatycznie przez program 
kontrolny. 

Po zakończeniu pracy program kontrolny 
pozostawia MEMORY ustawione na wartość 
3FFF i dlatego należy podać: 

MEMORY &7FFF 

gdyż z chwilą ładowania programu do pa- 
mięci może pojawić się komunikat błędu 
- przekroczenia pamięci. Po poprawnym za- 
ładowaniu do pamięci można rozpocząć 
edycję (poprawienie) przesłanego progra- 
mu Ładowanie zakończy się komunikatem 
błędu, jeśli linia programu zabiera więcej niż 
255 znaków 

ABY PRZESŁAĆ PROGRAM W 
BASIC’U Z MIKROKOMPUTE- 
RA SPECTRUM NA MIKRO- 
KOMPUTER AMSTRAD NALE- 
ŻY POSTĘPOWAĆ WEDŁUG 
NASTĘPUJĄCEGO ALGORYT- 
MU: 

1. Ładujemy do Spectrum pro- 
gram z wydruku „1" komendą 

LOAD. 

2. Uruchamiamy program z wy- 
druku „1 " komendą RUN. W wyni- 
ku działania, program będzie chciat 
zapisać Swoją postać binarną na 
taśmie (włączanie magnetofonu 
nie jest konieczne). 

3. Ładujemy do Spectrum ko- 
mendą LOAD program w BASlC u, 
który ma być przesiany na mikro- 
komputer Amstrad. 

4. Należy sprawdzić czy pro- 
gram nie zawiera zbyt długich linii. 
Jeśli ilość znaków w liniach pro- 
gramowych przekracza liczbę 255, 
należy utworzyć nowe linie. 

5. Wprowadzamy do programu 


jako ostatnią linię wyrażenie: 
REM © X — ■ 

6. Określamy górny adres pa- 
mięci przesyłanego programu po- 
dając: 

PRINT PEEK (23628) * 256+- 
PEEK (23627) 

— Jeśli uzyskana wartość jest 
mniejsza od 39 000, to przesła- 
nie programu realizujemy w jed- 
nym cyklu. Na Amstradzie powi- 
nien być wykorzystany program 
kontrolny z wydruku trzeciego. 

— Jeśli uzyskana wartość jest 
zawarta pomiędzy 39 000 i 
50 000, to przesłanie programu 
będzie zrealizowane także w 
jednym cyklu, ale na Amstradzie 
powinien być wykorzystany 
program kontrolny z wydruku 
czwartego. 

— Jeśli uzyskana wartość wy- 
nosi powyżej 50 000 to oznacza, 
że program powinien zostać po- 
dzielony na dwie części i prze- 
słany w dwóch cyklach. Na Ams- 
tradzie powinien być wykorzy- 
stany program kontrolny z wy- 
druku czwartego. 

7. Wprowadzamy rozkaz: 
RANDOMIZE USR 61440 

8. Wkładamy cło magnetofonu 
kasetę z taśmą w celu nagrania 
przesyłanego programu i włącza- 
my magnetofon na ZAPIS. 

9. Wprowadzamy rozkaz: 

LLIST 

10 Po zakończeniu wykonywa- 
nia instrukcji LLIST zatrzymujemy 
magnetofon. Sprawdzamy z ilu 
segmentów składa się przesłany 
przez nas program podając: 

PRINT PEEK (61 506) — 64 

11. Ładujemy do Amstrada ko- 
mendą LOAD program z wydruku 
drugiego. 

. 1 2. Uruchamiamy załadowany 
program komendą RUN, w wyniku 
czego na dyskietce (taśmie) zosta- 
nie zapisany program binarny ZX. 

BIN. 

‘ 13. W zależności od wartości 
liczbowej otrzymanej w p. 6 ładu- 
jemy do Amstrada komendą 
LOAD program kontrolny z wydru- 
ku trzeciego lub wydruku fczwarte- 
00 . 

14. Podłączamy do Amstrada 
magnetoton z zapisanym na taśmie 
kasetowej programem ze Spec- 
trum. 


15. Uruchamiamy na Amstra- 
dzie komendą RUN program kon- 
trolny, podając w trakcie działanie: 
ilość segmentów przesyłanego 
programu (patrz punkt 10) i jego 
nazwę (maksimum 6 znaków). Z 
chwilą pojawienia się komunikatu 
związanego z ładowaniem seg- 
mentu, włączamy magnetofon, 
umożliwiając tym samym zapis 
przesyłanego programu do pamię- 
ci RAM Amstrada. 

1 6. Po załadowaniu do pamięci 
RAM przygotowujemy dyskietkę 
(taśmę) do zapisu przesłanego ze 
Spectrum programu i naciskamy 
dowolny klawisz. 

17. Po zapisaniu programu na 
dyskietkę (taśmę) ściągamy go do 
pamięci i dokonujemy niezbędnych 
poprawek po czym uruchamiamy 
komendą RUN poprawiony pro- 
gram. 

UWAGA: 

Jeśli przesyłamy program w 
dwóch częściach, to łączymy 
obie na Amstradzie instrukcją 
MERGE. 

Życzymy owocnej pracy! 

Na podstawie „YUOR COMPU- 
TER” nr 1/87, 3/87 opracował: 

Jacek SZANIAWSKI 
Marian MARCINIAK 

Wydruk nr 1 

10 BEK PROGRAM PRZENOSZĄCY ZBIORY Z M/K SPECT 

ROM NA m AMSTRAD 

20 REM PROGRAM NB M/K SPECTRUN 

30 CLEAR 61439: RESTORE 160 

40 LET a-61440: LET [1=199 

30 LET 5=0: LET d=d*I 

60 FOR r=l TO 8 

70 REfiD v 

80 LET s=s+v: PORĘ a,v: LET e=e*l 
90 NETT r 

100 SEBD chk: IE dikOs THEN PRINT ‘WIERSZ 0 

NR -;d;‘ JEST NIEPRAWIDLOWY‘:STDP 

110 IF a>61919 THEN 60T0 130 

120 6DT0 50 

130 PRINT ‘ŁADOWANIE" 

110 PRINT "ZACHOWANIE ZBIORU NB TAŚMIE..." 

150 SBVE -transfer- codę 61440,486: STOP 
160 BATA 42,79,92,17,15,0,25,94,364 
170 DATA 35,86,0,0,0,0,17,37,175 
ISO DATA 241, 43, 115, 35, 114, 221, 33, 62,884 
190 DATA 240,221,54,0,0,221,54,1,791 
200 BATA 0,221,54,2,0,221,54,3,555 
210 BATA 255.221,54,4,63,221,54,240,1112 
220 BATA 64,201,42,79,92,17,15,0,510 
230 BATA 25,237,91,87,240,115,35,114,944 
240 DATA 201, 3, 64 s 32, 32, 32,32, 32, 428 
250 DATA 32,32,32,32,210,1,0,64,403 
260 DATA 0,0,1,0,0,147,65,244,457 
270 BATA 9,254,1,16,0,174,16,39,511 
280 BATA 232,3, 100,0,10,0, 1,0,346 
290 BATA 0,0,0,0,0,197,58,66,321 
300 DATA 240,60,50,66,240,221,33,82,992 
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310 DATA 240,221, 115,250,221,114,251,221-1633 
320 DATA 33, 65,240, 213, 17, 17,0, 175, 760 
330 DATA 205,194,4.209,6,50,118,16,802 
340 DATA 253,221,33,0,64,62,255,205,1093 
350 DATA 194,4,193,201,197,33,0,64,886 
360 DATA 54,13,17,1,64,1,255,26,431 
370 DATA 237,176,193,201,229,213,197,79,1525 
380 DATA 58,82,240,254,0,32,8,205,879 
390 DATA 156, 240, 62, 1 , 50, 82,240, 58,889 
400 DATA 83,240,254,1,40,54,42,85,799 
410 DATA 240,35,34,85,240,124,254,91,1103 
420 DATA 32.20,125,254,0,32,15,17,495 
430 DATA 0,27,205,109,240,205,156,240,1182 
440 DATA 33,0,64,34,85,240,121,254,831 
450 DATA 127,40,54,119,58,84,240,254,976 
460 DATA 1,40,20,121,254, 127,40,8,611 
470 DATA 175,50,84,240, 193,209,225,201, 1377 
480 DATA 62,1,-50,84,240,24,245,121,827 
490 DATA 254,88,32,231, 17,255,63,237,1177 
500 DATA 82,235,205, 109,240,62,1,50,984 
510 DATA 83,240,6.24,205,68,14,24,664 
520 DATA 219,62,99,24,198,245,254,13,1114 
530 DATA 40,86,254,32,56,8,254, 128,858 
540 DATA 56,78,254,165,48,74,71,58,804 
550 DATA 92, 240, 1B3, 120, 32, 61, 38, 0,766 
560 DATA 111,17,104,240,221,33,94,240,1060 
570 DATA 62,47,221,78,0,221,70,1,700 
580 DATA 198,1,237,66,48,250,9,18,827 
590 DATA 221,35,221,35,19,13,32,232,808 
600 DATA 62, 91, 205, '152,241, 58, 106, 240, 1155 
610 DATA 205, 1 52, 24 1 , 58, 1 07,240, 205, 152, 1 360 
620 DATA 241, 58, 108, 240, 205; 152, 241, 62, 1307 
630 DATA 93,24,24,58,93,240,24,19,575 
640 DATA 254,255,40,8,254,165,56,11,1043 
650 DATA 254,255,48,7,214,j65,205.95,1243 


560 DATA 11,241,201,205,152,241,241,201,1493 
3 ’0 DATA 229,111,58.89,240,60,103,58,948 
580 DATA 91, 240, 60, 50, 91, 240, 188, 32, 992 
a90 DATA 14,205,198,241,175,50,91,240,1214 
’00 DATA 125,254,13,40,15,24,227,125,823 
710 DATA 254,13,32,5,175,50,91,240,860 
’20 DATA 125,205,204,241,225,201,62,13,1276 
730 DATA 205, 204,241 , 201 f 245, 205,172, 240, 1 71 ' 
740 DATA 254,13,32,10,58,90,240,32.729 
750 DATA 5,62,10,205,172,240,241,201,1136 
760 DATA 0,0, 0,0,0, 0,0, 0,0 

Wydruk nr 2 

10 REM PROGRAM LĄDUJĄCY NA M/K AHSTRAD 

20 MEMORY &3FFF: RESTORE 150 

30 A=63000:D=499 

40 S s 0:P=D+l 

50 FOR R=1 TO 8 

60 READ V$:V=VPfL(‘6‘łV$> 

70 5=S+V:PGKE A,V:A=A+1 
80 NEXT R 

90 READ V*:CHK=VAL("6"m) 

100 IF CHKOS THEN 60T0 130 

110 IF A>6812F THEN SAVE "ZX.BIN",B, 68000, 

304: STOP 

120 6DT0 40 

130 PRINT "WIERSZ O NR ";D;" JEST BŁĘDNY" 
140 STOP 

150 DATA cd, 09, 80, c9, 00, 40, 00, 00, 925f 
160 DATA 00,cd,a7 f bc,cd,6e,bc,f3,051a 
170 DATA 31,32,06, 80,08, d9,f5,d5, 0412 
180 DATA 16, I0,d9,01 ,0e, f 4, ed, 49,0338 
190 DATA 01 ,d0, f 6, ed, 49, Oe, 10, ed, 0408 
200 DATA 49,01,92, 17, ed, 49, 01,58,0362 
210 DATA ł6,ed,49,dd,2l,2b,8i,dd,Q4b3 
220 DATA e5.ll, II, 00, af, cd, 71, 80,0382 


230 DATA dd,el,30,ef ,3a*2b,81,fe,04ćl 
240 DATA 03, 20, e8, 3e, f 1 , ed , 5b , 36, 03cć 
250 DĄTA 81, ed, 53,07, 80, dd,2a, 04, 0353 
260 DATA S0,cd,7f,80,08,d9,dl,łl,04ef 
270 DATA d9, 08, 01, 82, f 7, ed, 49, 01, 0392 
280 DATA 10, f 6 , ed, 49, dd, 22, 04, BO, 03bf 
290 DATA fb,f5,cd,71,bc,fl,38,01,0514 
300 DATA c9,3e,01,32,06,80,c9,14,029d 
310 DATA 08, 15, 3e,f5,db, 00, e6, 80,0391 
320 DATA d9, le,4c,d9,4f ,bf ,c0,cd,04b7 
330 DATA 02, 81, 30, f a, 21, 15, 04, 10, Olf 7 
340 DATA fe,2b,7c,b5,20,f9,cd,fe,053e 
350 DATA 80, 30, eb, 06, 9c , cd, f e, 80, 0488 
360 DATA 30,e4,3e,c0,b8,30,e0,24,03łe 
370 DATA 20,f l,06,c9,cd,02,81,30,0360 
380 DATA d5, 78, f e, d4, 30, f 4, cd, 02,0512 
390 DATA 81, d0,d9,le,4a,d9, 26,00, 0391 
400 DATA 06,b0,18,18,08,20,05,dd,01f0 
410 DATA 75, 00, 18, Oa, cb, 19, ad, cO, 02e8 
420 DATA 7?,17,4f,13,18,02,dd,23,020c 
430 DATA Ib,08,06,b2,2e,01,rd,fe,02d5 
440 DATA 80,d0,3e,bf,b8,cb, 15,06, 03eb 
450 DATA bO, 30, f 3, 7c , ad, 67, 7a, b3, 0490 
460 DATA 20,d2,7c,fe,01,c9,cd,02,0405 
470 DATA 81 , dO, 3e, 16, 3d, 20, f d,a7, 03a6 
480 DATA 04,c8,3e,f4,dfc,00,e6,04,03c3 
490 DATA ee,04,c0,3e,f5,db,00,a9,0469 
500 DATA e6,80,28,ec,79,2f,4f,d9,044a 
510 DATA 7b,ee, lf ,5f ,ed,51,ed,59,046b 
520 DATA d9 , 37, c9 , 00, 00 , 00 , 00 , 00 , 01 d 9 


Wydruk nr 3 

10 REM PROGRAM KONTROLNY NR 3 (BASIC-AMSTRftD) 

20 !DISC:::BDRDER 13: INK 0,23:INK 1,0:INK 2,0:INK 3,11 
30 KEY 9,CHR$(174):M0DE 2; MEMORY &3FFF: LOAD ‘zx.bin’: 1TAPE.IN 
40 POKE 68004, 0:P0KE 68005,640 : ’ PRZEZNACZA SIE ADRES 64000 
50 TL=0:S=1: INPUT "PODAJ ILOSC ŁADOWANYCH SEGMENTOM ";N 
60 PRINT "PODAJ NAZWĘ PRZESYŁANEGO ZBIORU (MAT 6 ZNAKÓW)' 

70 PRINT ‘PODANA NAZWA NIE MOZĘ ZAWIERAĆ ROZSZERZENIA 8 
80 INPUT "NAZWA ZBIORU ";A*:A$=UPPER$(A$):A$=AS+’.ASC‘:PRINT 
90 PRINT "KLACZ KASETE ZE ZBIOREM DO PRZEGRANIA": PRINT 
100 : 

110 FOR P=1 TO N 

120 PRINT "ŁADOWANIE SEGMENTU O NR ";St" ZBIORU ZE SPEKTRUM":CA 
ŁL 68000 

130 F=PEEK(68C0ć):IF F=0 THEN PRINT "8LEDNE ŁADOWANIE Z8I0RU":S 
TOP 

140 L=((PEEK( 68008) ) *256) +PEEK (&8007) :TL-TL+L 
150 PRINT "WIELKOŚĆ ZAŁADOWANEGO DO PAMIĘCI SEGMENTU O NR ";S;" 
WYNOSI ‘;HEX$(L,4);‘H‘ 

160 S=S+1:PRINT:NEXT R 
170 : 

180 PRINT "WCIŚNIJ DOWOLNY KLAWISZ GDY DYSKIETKA (TAŚMA) JEST PR 
ZYGOTOWANA DO ZAPISU* 

190 PRINT "ZBIÓR O NAZWIE ‘;A* 

200 IF INKEYI=" THEN GOTO 200 

210 PRINT: PRINT ‘ZAPIS ZBIORU - PROSZĘ CZEKAC" : OPENOUT A* 

220 FOR A=64000 TO 64900+TL-3 

230 V$=CHR$(PEEK(A?):PRINT #9,V$;:NEXT A 

240 CLOSEOUT: ! CISC: STOP 


Wydruk nr 4 


10 REM PROGRAM KONTROLNY NR 4 (BASIC-AMSTRAD) 

20 !DISC:::BORDER 13: INK 0,23:INK 1,0:INK 2,0: INK 3,11 
30 KEY 9,CHR$(174):H0DE 2: MEMORY 63FFF:L0AD "zx.bin‘: ITAPE.IN 
40 INPUT ‘PODAJ ILOSC ŁADOWANYCH SE6MENTCW ‘;N:T=64:S=1 
50 PRINT ‘PODAJ NAZWĘ PRZESYŁANEGO ZBIORU (HAX 6 ZNAKÓW)' 

60 PRINT ‘PODANA NAZWA NIE MOZĘ ZAWIERAĆ ROZSZERZENIA" 

70 INPUT "NAZWA ZBIORU ‘;A$:A$=UPPER$(A$):CLS 
80 IF LEN(A$J>6 THEN A$=LEFT$(A$,6) 

90 : 

100 FOR R=1 TO NsCLS 

110 PRINT ‘ZALDZ TASME ZE ZBIOREM DD PRZEGRANIA" 

120 PRINT ‘WCIŚNIJ DOWOLNY KLAWISZ" 

130 IF INKEY$=‘‘ THEN GOTO 130 

140 POKE 68004, 0-.POKE 6B005,640:T=T+1 

150 PRINT ‘ŁADOWANIE SEGMENTU O NR ";S;"Z TAŚMY ZE SPEKTRUM* 

160 CALL 68000: F=PEEK (68006) : IF F=0 THEN PRINT ‘BLEDNE ŁADOWANI 
E':STOP 

170 L=((PEEK(68008))*256)łPE£K(68007):B$=A$ł"-‘+CHR$(T)ł*.ASC‘ 
180 S=S+1: PRINT ‘WLOZ DYSKIETKĘ (TASME) DO ZAPISU ZBIORU" 

190 PRINT ‘ZAPIS ZBIORU «"sBS;"» - WCIŚNIJ DOWOLNY KLAWISZ’ 
200 IF INKEY5=‘ a THEN GOTO 200 

210 PRlNTsPPINT 'ZAPIS ZBIORU - PROSZĘ CZEKAC*: OPENOUT B$ 

220 FOR A=64000 TO 64000+L-2 
230 V$=CHR$ (PEEK(A) ) SPRINT I9,V$;:NEXT A 
240 CLOSEOUT: NEXT R 
250 !DISC:ST0P 

7 *~ 
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MlSTItAII 


PROGRAM 12 


„REZYSTOR” 

Po załadowaniu i uruchomieniu programu komendą 
RUN na ekranie monitora pojawi się opis czterech czyn- 
ności. Chcąc wybrać jedną z czynności przyciskamy kla- 
wisz 1,2,3 lub 4. Pierwsze dwie czynności przedstawiają 
szeregowe i równoległe połączenie rezystorów. Obok ry- 
sunków typowych schematów pokazane są wzory na rezy- 
stancję zastępczą szeregpwo lub równolegle połączonych 
rezystorów. Kolejne dwie czynności przedstawiają rysunki 
oraz umożliwiają obliczenie rezystancji obwodu przy 
przejściu z połączenia rezystorów w „trójkąt” w połącze- 
nie w „gwiazdę" i odwrotnie. 

Program ten okaże się pomocny w nauce „Teorii ob- 
wodów”. 


10 MODĘ 1 

20 WINDOM 11,10,27,23,25 
30 PRINTsPRINT 

40 PRINT '1. POŁĄCZENIE SZEREGOWE REZYSTORÓW* 

50 PRINTsPRINT 

60 PRINT *2. POŁĄCZENIE RÓWNOLEGLE REZYSTORÓW* 

70 PRINTsPRINT 

80 PRINT *3. OBLICZANIE REZYSTANCJI ZASTĘPCZEGO* 

90 PRINT * POŁĄCZENIA TYPU 'TRÓJKĄT* PRZY* 

100 PRINT * PRZEJŚCIU Z POŁĄCZENIA TYPU 'GWIAZDA' W POŁĄCZENI 
E TYPU 'TRÓJKĄT” 

110 PRINTsPRINT 

120 PRINT *4. OBLICZANIE REZYSTANCJI ZASTĘPCZEGO* 

130 PRINT " POŁĄCZENIA TYPU 'GHIADZDA' PRZY’ 

14C PRINT * PRZEJŚCIU Z POŁĄCZENIA TYPU 'TRÓJKĄT' W POŁĄCZENI 
E TYPU 'GWIAZDA” 

150 INK 1,24: PEN il,0,0:PAPER 11,13 

160 L0CATE 41,11,24 

170 PRINT II,’ WYBIERZ CZYNN0SC* 

180 at=INKEY4 
190 IF s$=“* THEN 180 
200 IF »t**l* THEN 250 
210 IF a$=*2* THEN 630 
220 IF nl=*3* THEN 1090 
230 IF i$=*4* THEN 1810 
240 GOTO 180 

250 ren miimmimitmmiiimitiimttt 

260 REN I I 

270 REM t POŁĄCZENIE SZEREGOWE REZYSTORÓW ■ * 

280 REN I * 

290 ren mmttmttittitmmmmmimtt 

300 K0DE 1 

310 PRINT SPC(4); “POŁĄCZENIE SZEPE60HE REZYSTORÓW* 

320 L0CATE 7, 7 sPRINT CHRN79) 

330 L9CATE 5, 9: PRINT *U* 

340 H0VE 103,233:DRAWR 0,50:DRAWR -5,-10:DRAWR 5,10:DRAWR 5,-10 
350 H0VE 114,297:DRAWR 26,0:DRAWR 0,8:DRAWR 34,0:DRAWR 0,-17:DRAW 
R -34,0:DRANR 0,8:DRAWR 0,-8:DPAWP 34,0:DRAWP 0,8:DRAWF: 34,0 
360 DRAWR 0,-22:DRAWR 8,0:DRAWR 0,-34:DRAWR -17,0:DRAWP. 0,34:DRAN 
P 8,0: DRAWR -8,0:DPAWP 0,-34: DRAWR 9,0 
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370 DRAWR 0,-22:DRANR -34,0:DRAWR 0,8:DRAWR 0,-17:DRAWR -34,0:DRA 
WR 0, 17:DRAWR 34,0:DRAWR -34,0:DRAWR Ó,-9:DRAWR -28,0 
380 L0CATE 7, 12: PRINT CHR$(79) 

390 L0CATE 10,4:PRINT *R*!Ł0CATE 11,5:PRINT *1* 

400 L0CATE 15,9:PRINT *R*:L0CATE 16, 10:PRINT *2* 

* 410 L0CATE 10, 14: PRINT *R":L0CATE 11, 15: PRINT *3* 

420 H0VE 44 1,297: DRAWR 56,0:DRAWR 0,-22:DRAWR 8,0: DRAWR 0,-34:DRA 
WR -17,0:DRAWR 0,34:DRAWR 8,0: DRAWR -8, 0: DRAWR 0,-34:DRAWR 9,0 
430 DRAWR 0,-22: DRAWR -56,0 
440 L0CATE 33,9:PRINT *R* 

450 ŁOCATE 34, 10: PRINT *Z* 

460 L0CATE 28,7:PRINT CHR$(79) 

470 L0CATE 28,12:PRINT CHRK79) 

480 L0CATE 26, 9: PRINT *U* 

490 K0VE 438, 233: DRAWR 0,50:DRAWR -5,-10:DRAWR 5,10:DRAWR 5,-10 
500 HQVE 297, 250: DRAWR 40,0 
510 K0VE 297, 270: DRAWR 40,0 

520 K0VE 357,260: DRAWR -20,20:DRAWR 20,-20:DRAWR -20,-20 
530 L0CATE 6,18:PRINT ‘REZYSTANCJE ZASTĘPCZA OBWODU* 

540 LDCATE 6, 19: PRINT 'WYZNACZANY ZE WZORU:* 

550 ŁOCATE 10,21:PRINT *R = R + R Hi* 

560 ŁOCATE 11,22:PRINT *Z 1 2 3* 

570 WINDOM 12,2,39,24,25 

580 INK 1,24: PEN I2,0,0:PAPER #2,13 

590 ŁOCATE 42,3,25 

600 PRINT 42,*P0WR0T DO OPISU - [DOWOLNY KLAWISZ]* 

, 610 IF INKEY$=“* THEN 610 
620 GOTO 10 

630 rek mmtmmimtmmmmtmmm 
640 REK I ł 

650 REK' I POŁĄCZENIE RÓWNOLEGŁE REZYSTORÓW I 
660 REK t I 

670 rek mnttumuttuttttmutmmttutt 

680 KODĘ 1 

690 PRINT SPC (4); 'POŁĄCZENIE RÓWNOLEGŁE REZYSTORÓW* 

700 H0VE 90, 326: DRAWR 154,0: DRAWR 0,-22: DRAWR 8,0: DRAWR 0,-34: DRA 
WR -17,0: DRAWR 0,34:DRAWR 8,0:DRAWR -8,0:DRAWR 0,-34:DRAWR 9,0 
710 DRAWR 0,-22: DRAWR -164,0 

720 K0VE 180,326: DRAWR 0,-22:DRAWR 8,0:DRAWR 0,-34: DRAWR- -17.0: DR 
AWR 0,34: DRAWR 8,0:DRAWR -8,0:DRAWR 0,-34:DRAWR 9,0:DRAWR 0,-22 
730 K0VE 116,326:DRAWR 0,-22:DRAWR 8,0:DRAWR 0,-34:DRAWR -17,0:DR 
AWR 0,34:DRAWR 8,0: DRAWR -8,0:DRAWR 0,-34:DRAWR 9,0:DRAWR 0,-22 
740 ŁOCATE 5,5:FRINT CHR$ (79) 

750 ŁOCATE 5, 10: PRINT CHRH79) 

760 ŁOCATE 3,7:PRINT *U* 



770 N0VE 7.0, 262: CRAMR 0,50: DRAWR -5,-10:DRfi«R 5, 10:DRAWR 5,-10 
780 NQVE 80, 326: DR AKR 10,0 
790 LOCATE 9, 7 : PR I NT *R' 

800 LOCATE 10,8:PRINT M" 

810 LOCATE 13,7:PRINT “R* 

820 LOCATE 14,8:PRINT '2' 

830 LOCATE 17,7:PRINT *R“ 

840 LOCATE 18,8:PRINT *3' 

850 HOVE 461, 326:DRAHR 56, 0: DRAWR O, -22: DRAWR 8, 0: DRAWR 0,-34:DRA 
HR -17,0: DRAWR 0,34:DRAWR 8.0:DRAWR -8,0:-DRAWR 0,-34:DRAHR 9,0:DR 
AWR O, -22: DRAWR -56,0 
860 LOCATE 29,5:PRINT CHRi<79) 

870 LOCATE 29,10:PRINT CHRSC79) 

880 LOCATE' 34,7:PRINT *R’ 

890 LOCATE 35,8:PRINT "Z" 

900 NOVE 455, 262: DRAWR 0,50:DRAWR -5,-10:DPAWR 5,10:DRAWR 5,-10 
910 LOCATE 27, 7: PRINT •U" 

920 NDVE 320, 280: DRAWR 40,0 
930 HOVE 320, 300: DRAWR 40,0 

940 NOVE 380,290: DRAWR -20, 20: DRAWR 20, -20: DRAWR -20,-20 
950 LOCATE 5. 14:PRINT 'REZYSTANCJE ZASTĘPCZA OBWODU' 

960 LOCATE 5,15:PRINT 'WYZNACZANY ZE WZORU:' 

970 LOCATE 27, 17:PRINT "R R R' 

980 LOCATE 2,18:PRINT '1 1.1 P; LOCATE 28, 18:FRINT '1 2 3" 

990 LOCATE 2,19:PRINT R =• 

1000 LOCATE 23, 19: PRINT ' • 

1010 LOCATE 2, 20: PRINT 'R R R R',*SPC(5);'Z RR + RR + RR 

1020 LOCATE 3,21;PRINT 'Z 1 2 3*;SPC(8);*1 2 1 3 2 3* 

1030 WINDOW 12,2,39,24,25 

1040- INK 1,24: PEN I2,«,0:PAPER 12,13 

1050 LOCATE #2,3.25 

1060 PRINT 12,'PGWROT DO OPISU - [DOWOLNY KLAWISZ]* 

1070 IF INKEY$=" THEN .1070 
1080 GOTO 10 

1090 ren ntmmmmuimmtmtmmmmimmm 

1100 REN I I 

1110 REN 1 PRZEJŚCIE Z POŁĄCZENIA REZYSTORÓW W 'TRÓJKĄT’ I 

1120 REN I W POŁĄCZENIE REZYSTORÓW W 'GWIAZDĘ’ t 

1130 REN I % 

1140 ren uiutimumtmmmmmmmtmmmtm- 

1150 NODE 2 

1160 PRINT SPCU); 'OBLICZANIE REZYSTANCJI ZASTĘPCZEGO POŁĄCZENIA 
TYPU 'TRÓJKĄT" 

1170 PRINT SPC (4) ; "PRZY PRZEJŚCIU Z POŁĄCZENIA TYPU 'GWIAZDA’ W P 
OLACZENIE TYPU 'TRÓJKĄT" 

1180 LOCATE 76,5:PRINT *R R"^ 

1190 LOCATE 77,6: PRINT *A C ~ 

1200 LOCATE 63, 7: PRINT *P = R t R * — -* 


1210 LOCATE 64,8:PRINT *1 A C R' 

1220 LOCATE 78,9:PRINT *8' 

1230 LOCATE 76, 12: PRINT *R R' 

1240 LOCATE 77,13:PRINT 'A B* 

1250 LOCATE 63, 14: PRINT 'R = R + R + 

1260 LOCATE 64, 15.-PRINT *2 A B R* 

1270 LOCATE 78, 16: PRINT 'C 

1280 LOCATE 76, 19: PRINT 'PR" 

1290 LOCATE 77.20:PRINT '8 C* 

1300 LOCATE 63,21:PRINT -R = R + frł • 

1310 LOCATE 64, 22: PRINT *3 B C R' 

1320 LOCATE 78, 23: PRINT 'A' 

1330 NOVE 20, 220: DRAWR 10,10:DRAWP -:.3:DRAWP 20,20:DRAWR ?,-?:DR 
AWR -20, -20: DRAWR -4,4 

1340 NOVE 5 1,250: DR AWR 1O,1O:0FAWR 0,16:DRAWF -4,0:DRAWP 0 t 28:DRA 
WR 9,0: DRAWR 0,-28: DRAWR -6,0:N0'. , E 61, 304: DRAWR 0,16 


1350 N0VE 6 1,260: DRAWR 10,-10:DRAHR -3,-3:DRAWR 20,-20:DRAWR 7,7: 
DRAWR -20,20: DRAWR -4,-4:N0VE 92, 230: DRAWR 10,-10 
1360 LOCATE 1,12: PRINT 'A' 

1370 LOCATE 8,4:PRINT *C* 

1380 LOCATE 16, 12: PRINT ’B' 

1390 LOCATE 3,9:PRINT *R':LOCATE 4,10:PRINT 'A* 

1400 LOCATE 5,6:PRINT 'R*:LOCATE 6,7:PRINT *C" 

1410 LOCATE 12, 9: PRINT 'R':LOCATE 13,10:PRINT 'B* 

1420 NOVE 240, 220: DRAWR 40, 40: DRAWR -4, 4: DRAWR 20,20:DRAW£ 9,-9: D 

RAWR -20, -20: DRAWR -5,5:N0VE 300, 280: DRAWR 40,40 

1430 HOVE 340, 320: DRAWR 40,-40:DRAWR 4,4^)RAHR 20,-20:DRAWR -9,-9 

: DRAWR -20, 20: DRAWR 5,5:N0VE 440, 220: DRAWR -40,40 

1440 NOVE 440, 220: DRAWR -84,0: DRAWR O, 6: DRAWR -32,0: DRAWR 0,-l3:D 

RAWR 32,0: DRAWR 0,7:N0VE 240, 220: DRAWR 84,0 

1450 LOCATE 29,12:PRINT *A':LOCATE 58, 12:PRINT '8":L0CATE 43,4:PR 

INT 'C* 

1460 LOCATE 34,7:PRINT "R": LOCATE 35,8:PRINT *1* 

1470 LOCATE 50,7:PRINT *R*:LOCATE 5l,8:PRINT '3* 

1480 LOCATE 43,9:PRINT *R':LOCATE 44,10:PRINT '2' 

1490 NOVE 150, 270: DRAWR 30,0:N0VE 150, 286: DRAWR 30,0:N0V'E 192,278 
: DRAWR -15,15:N0VE 192, 278: DRAWR -15,-15 
1500 LOCATE 2,15:PRINT * PODAJ REZYSTANCJE ' 

1510 LOCATE 24, 15: PRINT " REZYSTANCJE UKŁADU W TRÓJKĄT :' 

1520 LOCATE 28,17:PR!NT 'R =*:LOCATE 29,1B;PRINT "1' 

1530 LOCATE 28, 19:PRINT *R =':LOCATE 29,20:PRINT *2* 

1540 LOCATE 28,21; PRINT *R =':LOCATE 29,22:PRINT *3* 

1550 LOCATE 3, 17:PRINT 'R =':LOCATE 4,18:PRINT 'A' 

1560 LOCATE 8,17:INPUT ra 

1570 IF ra<=0 OP ra>10000 THEN GOTO 1740 

1580 LOCATE 3,19;PRINT *R =*:LOCATE 4.20:FRINT '8' 

1590 LOCATE 8,19:INPUT rb 

1600 IF rb<=0 OR rb>10800 THEN GOTO 1760 

1610 LOCATE 3, 21: PRINT 'R =*: LOCATE 4, 22: PRINT *C* 

1620 LOCATE 8,21:INPUT rc 

1630 IF rc<=0 OR rcMOOOO THEN GOTO 1780 

1640 rl=ra+rc+fratrc)/rb 

1650 r2=ra+rb+(ralrb)/rc 

1660 r3=rb+rcł"{rb*rc)/ra 

1670 LOCATE 33, 17:PRINT rl: LOCATE 33, 19:PRINT r2: LOCATE 33,21:PRI 
NT r3 

1680 60T0 570 

1690 WINDOW #5,14,65,24,25 

1700 INK 1,24: PEN #5,0,0:PAPER #5,13 

1710 LOCATE #5, 16,25:PRINT 15,* PODAJ WARTOŚĆ REZYSTANCJI Z PRZE 
DZIAŁU <1,10000>' 

1720 FOR i=l TO 3000: NEXT: LOCATE 14,24:PRINT SPC (55): LOCATE 14,25 
: PRINT SPC (55) 

1730 RETURN 
1740 GOSUB 1690 

1750 LOCATE 6,17:PR!NT SPC(12):G0T0 1560 
1760 GOSUB 1690 

1770 LOCATE 6,19:PRINT SPC(12):G0T0 1590 
1780 GOSUB 1690 

1790 LOCATE 6,2l:PRINT SPC(12):6DT0 1620 
1800 GOTO 580 

1810 REn inntiiuuuitununnmmumtmntuttnn 

1820 REN * | 

1830 REN * PRZEJŚCIE Z POŁĄCZENIA REZYSTORÓW W 'GWIAZDĘ’ * 

1840 REN » W POŁĄCZENIE REZYSTORÓW W 'TRÓJKĄT’ f 

1850 REN * t 

1860 ren titmmutmmttmmmmmmtittmttmu 
1870 NODE 2 

1880 PRINT SPC (4); ‘OBLICZANIE REZYSTANCJI ZASTĘPCZEGO POŁĄCZENIA 
TYPU 'GWIAZDA" 

1890 PPINT SPC (4); “PRZY PRZEJŚCIU Z POŁĄCZENIA TYPU 'TRÓJKĄT' W P 
OLACZENIE TYPU 'GWIAZDA' 
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joę/) lK<r c y\ «ę p» 

:°!0 L3C*TE ■'i.ójPPTNT 'I 2* 

J°20 LOCATE i 2 PRINT “9 = ■ 

l°30 LOCATE 63.8:PRIHT »a R 4 p ♦ r- 

ł°40 L0C5 T E 58, D :PPINT *1 2 ?■ 

5°50 LDCftTE 70.12: pp !NT ’R R* 

ł°śO LCCA’E 71. !3:°RIN7 ‘2 Z m 

l^O LOEfi T E 52, !4: p R!NT ** = ■ 

1=30 LGCA T E 52, !5:?°INT *8 M *> + R 1 

19=0 L3CATE fcB.16:=RIMT *1 2 3' 

2000 L0Cft T E 7 9, !®;PR!HT "R R* 

2010 LOCATE 7l.20;P9IHT *1 3* 

2020 LDCATE 62, 21: PRINT *P s ■ 

2030 LOCATE 63,22: B RINT •£ R 4 R + R‘ 

20*0 LOCATC SB,23: p R!HT '1 2 3' 

2050 *CVE 20,210:0RAHR 40,40:ffPAN9 -4.4:DRAHP 20,20:DRAHR 9,-®:DR 

AUR -20, -20: DPAWR -5,5:H0V£ 80, 270: DRAHR 40,40 

2060 HOVE 129,310: DPAHR 40.-40:DRAHR 4.4:0RAHR 20,-20:DRANR -9,-9 

! DPAHR -20, 20: DRAWR 5,5:HoVE 220, 210: DRAHR -40,40 

2070 *OVE 220,210: DRAHR -84,0:DPAHR O, 6: DRAHR -32,0: DRAHR 0,-13:D 

RAHR 32,0: DRAHR 0,7:H0VE 20, 210: DPAHR 84,0 

2080 LOCfi T E 2, 13: PR-INT "A*:LOCATE 29,13:PRINT "B*: LOCATE 15,5:PRI 

NT 'C* 

2090 LOCATE 7,7:PRINT - R*:LOCATE 8,8:PPINT “l": LDCATE 22,7:PRINT 
■R*: LOCATE 23.8:PRIHT *3*:LQCATE 15,10:PRINT ‘R*: LOCATE 16,11:PRI 
NT , 2* 

2100 HDVE 340, 210: DRAHR 10,10:DFANP -3,3:DRAHP 20,20:DRAHR 7,-7:D 
RAHR -20, -20: DRAHR -4,4 

2110 NOVE 371, 240: DRAHR 10,10:DRAHR 0,16:DRAHR -4,0:DPAHR 0,2B:DR 
AHR 9,0: DRAHR 0,-29:DRAHR -6,0:N0VE 381 , 294: DRAHR 0,16 
2120 NGVE 381, 250: DRAHR 10,-10:DPAHR -3, -3: DRAHR 20, -20: DRAHR 7,7 
: DRAHR -20,20:DRAHP -4,-4xW0VE 412,220:DRAHR 10,-10 


2130 LDCATE 45,7:PRINT 'R*: LDCATE 46,8:PRINT “C":LOCATE 42,10:PRł 
NT ■R": LOCATE 43,11:PRINT "A“: LOCATE 52, lOsPRINT *R“: LOCATE 53,11 
SPRINT “B" 

2140 LOCATE 42,13:PRINT "A*: LOCATE 54,13: PRINT *B': LOCATE 48,5:PR 
INT "C 

2150 HOVE 250, 260: DRAHR 30,O:H0VE 250, 276: DRAHR 30,0:H0VE 292,268 
: DRAHR -15,15:H0VE 292,268:DRAHR -15,-15 
2160 LOCATE 2, 15: PRINT ■ PODAJ REZYSTANCJE * 

2170 LOCATE 24, 15:PRINT * REZYSTANCJE UKŁADU H GWIAZDĘ 
2180 LOCATE 28,17tfRINT “R =*: LOCATE 29, 18: PRINT 'A* 

2190 LOCATE 28.19:PRINT "R =*:LOCATE 29, 20:PRINT *B‘ 

2200 LOCATE 28.21:PRINT "R =":LOCATE 29,22:PRINT 'C 
2210 LOCATE 3,17:PRINT *R =':LOCAT£ 4,18:PRINT M" 

2220 LOCATE 8,17: INPUT rl 

2230 IF rl<=0 OR r 1>10000 THEN GOTO 2350 

2240 LOCATE 3,19:PRINT -R =":LOCATE 4,20:PR!NT '2* 

2250 LOCATE 8,19:INPUT r2 

2260 IF r2<=0 OR r2>10000 THEN GOTD 2370 

2270 LOCATE 3,21:PRINT "R =“:LOCATE 4,22:PRINT *3" 

2280 LOCATE 8.21:INPUT r3 

2290 IF r3<=0 OR r3> 10000 THEN 60TOJ390 

2300 ra=rllr2/(rl+r2+r3) 

2310 rb=f'2łr3/(rl+r2+r3) 

2320 rc=rl»r3/(r!+r2+r3) 

2330 LOCATE 33, 17:PRINT rasLOCATE 33,19:PRINT rb:L0CATE 33,21:PR! 
NT rc 

2340 6010 570 
2350 60SUB 1690 

2360 LOCATE 6,17:PRINT SPC<12):E0T0 2220 
2370 60SUB 1690 

2380 LOCATE 6,19:PRINT SPC(12):G0T0 2250 
2390 G0SU8 1690 

2400 LOCATE 6, 21: PRINT SPC(12!:G0T0 2280 


ooooom^^ 


„Polin” znany jest na tere- 
nie całego województwa 
szczecińskiego. Tylko w 
1986 roku zorganizował 37 
różnorodnych pokazów i ak- 
cji. Z jego inicjatywy powsta- 
ły kluby mikrokomputerowe 
w Stargardzie Szczecińskim, 
Golczewie, Gryficach, a na- 
wet w Politechnice Szczeciń- 
skiej. Klub uczestniczył rów- 
nież w Targach Młodych Mi- 
strzów Jutra w Rostocku 
(NRD), prezentując różno- 
rodne wykorzystanie sprzętu 
komputerowego. W codzien- 
nej działalności dominuje 
praca szkoleniowa. Systema- 
tycznie organizowane są 
kursy programowania oraz 
pokazy i wykłady na temat 
zastosowania mikrokompute- 
rów. 
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W roli nauczyciela uczeń szkoły podstawowej — słuchacze to: Bożena 
Janowicz (z zawodu informatyk) oraz jej klubowi koledzy: Andrzej Kacz- 
marek i Zbigniew Ignaszak. 
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MSTKAH 

PROGRAM 13-14 


HIPERBOLE 

RÓWNOOSIOWE 

Powyższe programy przed- 
stawiają |edną z krzywych stoż- 
kowych — hiperbolę w postaci 
hiperboli sprzężonych oraz hi- 
perboli równoosiowych. Pro- 
gramy te stanowią kontynuację 
prezentowanych w pierwszym 
Dodatku Specjalnym „IKS-a” 
programów na krzywe stożkowe. 

10 REM HIPERBOLA 
20 CIS 

30 SOSUB 440 

40 CLS: BOFDER 3 

50 U INDOM 42.9,33,23,25 

40 PAPER 42, 13: PEN 42,0;CLS 42 

70 WINDOM 43,35,40,1,1 

8p PAPER 43, 13: PEN 43,0:CLS 43 

90 PRINT 43," 0" 

100 WINDOM 41,1.9,1,4 
110 B0RDER 9 

' 120 PAPER 41, 13: PEN 41,0:CLS #1 
130 60SUB 510 
140 PLOT 100,220 
150 FOR 5=100 TO 600 
160 PLOT s, 220: NETT 
170 PLOT 598, 222: PLOT 598,219 
180 PLOT 596,224:PL0T 596,217 
190 PLOT 340,400 
200 FOR s=50 TO 390 
210 PLOT 340. s: NEXT 
220 PLOT 338, 38B: PLOT 336,386 
230 PLOT 342, 388: PLOT 344,386 
240 L0CATE 38,13:PRINT V 
250 L0CATE 20,1:PRINT *y* 

260 1=0 

270 INPUT łl,"a=’;a 

280 IP a=0 THEN 820 

290 IF a<-9 0R a>9 THEN 860 

300 IF a=-l OR a=l THEN 860 

310 a=a»10:CLS 42 

320 PRINT 42. * 1 2" 

" 1 2 * 

330 PRINT 42," sy = -"ja/10; 


sy = 


"ta/10; 


340 PRINT 42," 2"j 

“ 2 1 

350 n=220 

360 FOR s=-n TO 0 STEP 1 


370 y=(a*a)/(2*x) 

380 IF y<-170 THEN 410 
390 PLOT 340łs,220+y 
400 NEXT 

410 FOR x=n TO 0 STEP -1 
420 y=łała)/<2łx) 

430 IF y>170 THEN 460 
440 PLOT 340+ii,220+y 
450 NEXT 

460 OLS 41: OLS 43:1=1+1 
470 PRINT 43," ";1 
480 IF 1=2 THEN 550 
490 IF 1>=3 THEN 580 
500 80TO 270 

510 PRINT 42,* 1 2"i 

* 1 2 * 

520 PRINT 42,* xy = - a*; 

* xy = - - a " 

530 PRINT 42,* 2*; 

" 2 * 

540 RETURN 

550 ENV 3, =9,9000 

560 SOUND 1,300,0,13,3 

570 60T0 270 

580 LOCATE 9,22 

590 PRINT ‘koniec -*; 

* IDOWOLHY KLAWISZ!* 

600 ENV 3, =9, 9000 

610 SOUND 1,100,0,13,3 
620 IF INKEY4=‘* THEN 620 • 

630 ORIGIN 0,0: GOTO 40 
640 tl$=*H I P E R B D L A* 
650 T2ł=* “+CHRt(164)+ 

* "f CJS * 

660 NODE 0 

670 ENV 1, =9, 2000 
680 ENT -1,6, 3,1 
690 ENV 2,127,0,0,127, 
0,0,127,0,0,127,0,0 
700 ENO 3, =9, 9000 
710 FOR c=I TO LENttU) 

720 LOCATE 2+c.lO 
730 FOR n2=LEN(tU) 

TO c STEP -1 

740 PRINT HID$(tl$,n2, 1) 

750 LOCATE 2+c,10 

760 SOUND 135, 20«n2, 5, 12,2,1 

770 (OT n2,c 

780 SOUND 135,100,0,13,3, 1,20 



790 LOCATE 5,15:PRINT t24 
800 FOR c=l TO 2000: NEXT 
810 CLS:N0DE 1: RETURN 
820 LOCATE 9,23 
830 PRINT * KPISZ a*i 

* ROŻNE OD ZERA 
840 FOR w=l TO 2000:NEXT 
B50 GOSUB 510:GOTO 270 
860 LOCATE 9,23 
870 PRINT *P0DA,1 a*; 

CHR»(180);*<-9,-2> *; 

CHRł(llB);" a"; 

CHRH1S0):*<2,9>* 

880 FOR w=l TO 4000: NEXT 
890 GOSUB 510: GOTO 270 

HIPERBOLE 

SPRZĘŻONE 

10 CLS * 

20 GOSUB 86t 

30 CLS: BORDER 3 

40 KINDDK 42,6,37,21,25 

50 PAPER 42, 13: PEN 42,0: CLS 42 

60 NINDOU 43,35,40,1,1 

70 PAPER 43. 13: PEN 43,0: CLS 43 

80 PRINT 43," 0* 

90 WINDOM 41,1,9,1,4 
100 BORDER 9 

110 PAPER 41,13:PEN 41,0:CLS 41 
120 SOSUB 720 
130 PLOT 100,240 
140 FOR 5=100 TO 600 

150 PLOT s, 240: NEXT : PLOT 598,242:PL0T 598,239:PL 
OT 596, 244: PLOT 596,237 
160 PLOT 350,400 
170 FOR s=80 TO 390 

180 PLOT 350, s: NEXT:PLOT 34S,388:PL0T 346,3S6:PL 
OT 352, 388: PLOT 354,386 
190 LOCATE 38, 12: PRIHT V 
200 LOCATE 21,1:PRINT *y* 

210 1=0 

220 INPUT 41,’a=*;a 

230 IF a=0 THEN 1020 

240 IF a<-9 OR a>9 THEN 1080 

250 a=a»10 

260 INPUT 41,*b=*;b 
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270 IF b=0 THEN 1050 
280 IF b<-9 0R h>9 THEN 1090 
290 b=błłO 
300 ELS *2 

310 PRINT #2, ’ 2 2 2 ! 

320 PRINT #2," * y y X* 


330 PRINT 12, “ = 1 = 1* 

340 PRINT *2," 2 2 2 2* 

350 PRINT 42," *;a/IO:” ":b/10;" ";b/10; 

■ “ ;a/10; ■ 

360 n=200 

370 FOR x=0 TO -n STEP -1 
380 k=(K-a)ł(x+a):IF fc<0 THEN 430 
390 y=(b/a)łSBR(k5:IF y>158 THEN 410 
400 PLOT 350*x , 240+y 

410 yl=- (b/a) łSBR Oki : IF yl<-158 THEN 440 
420 PLOT 350+x, 240+y 1 
430 NEXT 

440 FOR z=0 TO n 

450 kl=(z-a)» (z+a) : IF kl<0 THEN 500 
460 y2= (b/a! *SQR Ok 1 ) : IF y2>153 THEN 480 
470 PLOT 350+z,240+y2 
480 y3=-(b/a)*SQR(fcI):IF y3<-158 THEN 510 
490 PLOT 350+z,240+y3 
500 NEXT 

510 FOR x=0 TO -n STEP -1 
520 k=(x“2)+(a'2) 

530 y=(b'a!ISOR(k):!F y>158 THEN 550 
540 PLOT 350+s, 240+y 

550 yl=-(b/a!«SQR(k):lF yl<-158 THEN 580 
560 PLOT 350+z, 240+y 1 
570 NEST 

580 FOR z=0 TO n 
590 H=(z*2! + Ia'2) 

600 y2=(b/a)ISQR(kl):IF v2>158 THEN 620 

610 PLOT 350+z,240+y2 

620 y3=-(b/a!tS0R(kl):IF y3<-158 THEN 650 

630 PLOT 350+z, 240+y3 

640 NEXT 

650 OLS łl 

660 CLS 13 

670 1=1+1 

680 PRINT 13," *;1 

690 IF 1=1 THEN 780 

700 IF 1>=2 THEN 800 

710 GOTO 220 


720 PRINT 12," 2 2 22" 

730 PRINT #2, " x y y x" 

740 PRINT 12," = 1 - 1* 

750 PRINT 12," 2 2 22" 

760 PRINT 12," ab ba" 

770 RETURN 
780 ENV 3,=9,9000 


790 SOUND 1,300,0, 13,3: GOTO 220 


800 LOCflTE 9,21 

810 PRINT " koniec - EDDUCLNY KLAKI SIT" 

820 ENV 3, =9, 9000 
830 SOUND 1,100,0,13,3 
840 IE INKEV$="" THEN 340 
850 ORIEIN 0,0: GOTO 30 
860 tl*="H IPERBOLE" 

870 T24=CHRt (32) +CHRt (164) +CHR4 (32! +CHR1 f 32) +* C 
JS " 

380 MODĘ O 

890 EN 1 ,’ 1 , =9,2000: ENT -1,6,3, 1 

900 ENV 2,127,0,0, 127, O, O, 127, O, O, 127,0, 0:ENV 3, 

=9,9000 

910 FOR c=l TO LEN(tlt) 

920 LOCATE 2+c.lO 

930 FOR n2=LEN(tlt) TO c STEP -1 

940 PRINT HIDt(tI*,n2,l> 

950 LOCATE 2+c.lO 

960 SOUND 135,204(12,5,12,2,1 

970 NEST n2,c 

980 SOUND 135,100,0,13,3,1,20 
990 LOCATE 5,!5:PR!NT +2} 

1000 FOR c=! TO 2000: NETT 
1010 CLS: MODĘ 1: RETURN 

1020 LOCATE 1 1 ,21 : PRIKT "WPISZ a ROŻNE OD ZERA" 
1030 FOR »=1 TO 2000:NEXT 
1040 GOSUE 720: GOTO 220 

1050 LOCATE 1!,2I:PRINT "KPISZ b ROŻNE OD ZERA" 
1060 FOR tt=l TO 2000: NEXT 
1070 60SU8 720: GOTO 260 

1080 LOCATE 11.2I:PRINT ’ PODAJ a" : CHRt ( 1 80) ; " 
<-9,9> ":FOR «=1 TO 3000: NEST: GOSUE 720:G0T0 
220 

1090 LOCATE 11,21:PRINT " PODAJ b";CHR» (180); " 
<-9,9> ":FOR w=! TO 3000:N£XT:60SUB 720:G0T0 
260 
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MISTItAII 

PROGRAM 15 


Gra Hamiltona 

William Hamilton, matematyk i astro 
nom angielski z pierwszej połowy XIX 
wieku, obmyśli) ciekawą rozrywkę 
zwaną „podróżą po dodekaedrzc 
(dwunastościanie). W „podróży” te; 
chodzi o jednorazowe odwiedziny 
wszystkich naroży dwunastościanu z 
powróceniem do naroża, z którego się 
wyszto. 

Program umożliwia „podróż" lub de- 
monstruje jej przebieg, przy czym dwu 
nastościan został zastąpiony następu 
jącą figurą płaską: 



Klawisze funkcyjne: 

0 —wyjście z programu, 

1 — powrót do „menu", 

2 — demonstracja gry, 

3 — gra, 

AZT — wybór odpowiedniego 

punktu figury, 

TAB — cofnięcie ruchu. 


UWAGA: program kończy się. gdy na 
stępuje powrót do punki 
początkowego; wygryw 
ten, kto przejdzie prz, 
wszystkie punkty zgodnu 
podanymi zasadami. 

PROERflN grahaniltona; 

CDNST f 

tagflag:boolean = falset 
tagaddrsinteaer = 0 ; 

TYFE 

naznypunkton= (a,b,c,d,e,f,g,h,i,j„li 
l,«,n,o,p,q,r,s,t); 

opispunktu=RECOf!D 

x,y:integer; 


w5kp:boolean; 
sasiedz i : ARRftJ tl . .3] 0F 
RECORB 
popr:, 
lewy, 

^rawyrnazwypunktow 

END; 

dodekaedf=flRRfiY[nazwvpunktpw] GF 
opispunktu: 

1 zn=stringE401 ; 

VAR 

fig:dedekaedr: 

epoci:razwypunktcwi 

cłuchar; 

pezlit:ARRfiY['A’..’T’] OF 
RECORB 
*. 

y:integer 

END; 

wykgrsboclean; 


tmoitmmttmtmtmmłttttHimu 

tt prcedury poflccniczr do manipulacji t} 
U zobrazowanie,, graficzny* t) 

{» »> 

PROCEDURĘ InitGrafik; ' 

BE 6 IN 

KRITE(łilli,’0’,Mlb,’y’l; 

END; ' ' 

PROCEDURĘ leaveErafik; 

EE61N 

NRITE(«lb,’r,Klb,’x’l: 

END: 

PROCEDURĘ draw(x,v:integer); 

BEG1N 

INLINE(*2ń/x/*EBz*2A/y/$cd/*5a/ 
tfc/JFó/JEE) ; 

END; 

PROCEDURĘ pIot(x,y: inteoeri ; 

BEEIN 



INLINE !*26/x'/$EB/*2A/y/tcd/ 
END; 


$5a/*fc/tEfi/tB&); 


PROCEDURĘ grafpenffs:bvte' : 

BEEIN 

INLINE(t3A/fs/$cd/»5a/tfc/$DE/tBB!: 

END; 

PROCEDURĘ graf paper f f s: bytel ; 

BEEIN 

INLINE(*3A/fsztcd/*5a/Sfc/*E4/*EB); 

END; 

PROCEDURĘ dgifstbyte); 

BEEIN 

INLINE flcd/*5a/$f c/łD 8 /tBB) ; 

Oraf paper (f 5 ) ; 

EfiD; 

PROCEDURĘ ink(fs,fl,f2:byte); 

BEEIN 

INLINE(*3a/fl/»47/»3a/f2mf/ 
S3a/fs/*cd/t5a/tf c/*32/tbd ; 

END; v 

PROCEDURĘ paper(fs:bvte): 

BEEIN 


INLINE(«A/fs/tcd/t5a/*f c/$94/»BB) ; 

PROCEDURĘ rrode t »d: byt e) : 

BEEIN 

INLINE (J3a/.d/*cd/*5a/$Ec/t0e/tbc) ; 
END; ’ 

PROCEDURĘ border (vl. v2: byte) ; 

DEGIN 

INLINE «3a/vl/$47/*3a/v2/Hf/ 
kd/S5a/Jfc/538/tbc); 

END; 

PROCEDURĘ gr af out ich : char ) ; 

BEEIN 


INLINE f*3a/ch/*cd/$5a/tf c /fFC/tBB) ; 
END; ’ 

PROCEDURĘ tag: 

BEEIN 

if not tagflag then 
BEEIN 

tagadur := conoutptr; 
tagflag := true; 
conoutptr : = addrigrafout); 

END; 

END: 

PROCEDURĘ tagcff; 

BEEIN 

if tagflag then 
BEEIN 

conoutptr := tagaddr; 
tagflag := false; 

END: 

END; 

PROCEDURĘ punkt(nazp:nazwypunktcw) ; 
BEEIN 

plot (fig[nazp].s,fig[nazp].y) 

END; 

PROCEDURĘ linia inazp: nazMypunł;ton) ; 
BEEIN 

_drawffiglnazp].x,fig[nazp].y) 

PROCEDURĘ 1 i terai 1 i t : char) ; 

BEEIN 

tag; 

plot ipozlit [litl. x,ppzlit tli tl.y); 

grafout(lit); 

tagoff 

PROŁEDURE napis(l:lzn;nrlin, 

nrkol:integer); 

li.kdnteger; 

i:=nrkoU14-lt; 
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j:=400-nrlinll6; 

Fo8'k:=! TO* 1 enoth (1 > DO 
BEBIN 
plot (i , j ) ; 
graf out (lik]); 
i s=i +16 
END; 
tagotf 
END; 

{ttmmttntmmtnntmttmutmtt} 

It ustawienie współrzędnych Ił 

it 1} 

PROCEDURĘ ustawwsp; 

PROCEDURĘ wspp (nazp:nazwypunktow; 

xp,yp:integer); 

BEGIN 

HITH figEnazp] DO 

BEGIN x:=xp; y:=yp; wskp:=false END 
END; 

BEEIŃ 

wspp (a, 200, 50); wspptb, 400,50); 
wspp (c, 464, 240) ; wspp (d, 300, 356) ; 
wspp (e, 136, 240T ; wspp(f ,176,226) ; 
wspp (o,216,162); wspp (h,222,S4) ; 
wspp (i , 300, 100) ; wspp ( j , 373, 84) ; 
wspp (k, 384, 162) ; wspp (1 , 424, 226) ; 
wspp ( ib, 354, 258) ; wspp (n, 300, 314); 
wspp (o, 246, 258) ; wspp (p , 270, 228) ; 
wspp (q, 254, 174) ; wspp (r , 300, 140) ; 
wspp (s,346, 174) ; wspp (t, 330,228) 

END; 

{tmttunttumtunuuuttttttumtt} 

{ttmntttmmntmtiutunmtittnt) 

(1 opisy wierzchołków sąsiednich t> 

{* »} 
PROCEDURĘ ustawsas; 

PROCEDURĘ sd(nazp,pl,p2, 

p3;nazwypunktow); 

BEGIN 

HITH figEnazp] DO 
BEGIN 

HITH sasiedzi [1 3 DO 
BEGIN 

poprz:=pl; lewy:=p2; prawy;=p3 
END; 

HITH sasiedziE2] DO 
BEGIN 

poprz:=p2; lewy:=p3; prawy:=pl 
END; 

HITH sasiedziESl DO „ 

BEBIN 

^oprz:=p3; Iewy:=pl; prawy: =p2 

END 

END: 

BE6IN 

sd(a,e,h,b); sd(b,a,j,c>; sd(c,b,ł,d); 
sd(d,c,n,e>j sd(e,d,f,a); sd(f ,e,o, 9 ) ; 
sd(g,f,q,h); sd(h,g,i,a); sd(i,h,r,j); 
sd ( j, i , k,b> ; sd(k,j,s,I); sd(ł,k,»,c); 
sd(i,l,t,n); sd(n,*,o,d); sd(o,n,p,f); 
sd(p,o,t,q); sd(q,p,r,g); sd<r,q,s,i) ; 
sd(s,r,t,k): sd(t,s,p,») 

END; 

{itmmmmmmmmmttmmmt} 

{mmmmmmmmmmmtttmtt} 

(1 wypełnienie tabłicy opisującej ł> 

(1 położenie nazw wierzchołków t) 

(1 t> 

PROCEDURĘ nazwyw; 

PROCEDURĘ wp ( i : char ; x , y : i nteger ) : 

BEBIN 

pozłit[ł].x:-x; 

^jozłittł].y:=y 

BEGIN 

wpT A' ,195,40); wp(’B* ,395,40); 
wp ( ’ C' , 475,245) ; wp ( ’ D’ , 295,376) ; 
wb(’E’, 115,245): wp(’F\174,246>; 
wp(’B', 195,160); wp(’H ł ,225,78); 
wpCI’ ,295,90): wp(’J' ,363,78) * 
wp( , K',392- 160): wp ('L' ,420, 246) ; 
wp ('H* ,361,276) ; wpCN’,278,329); 
wp(’0’,231,276>; wp(’P’,250,230); 
wp(’T\ 317,247); wp(’0’,244,164); 

^wg(’S’ ,350,188); wprR’,307,139) 

{mtmtmmtmmtmmtmmmm} 

{ttmmmtmmmmmmmmtmt} 

(i nystuetleme figury 4} 

{» «) 

PROCEDURĘ nySHfig; 

VAR 

i,j:naznypunktCK; 

1 : char; 

BEBIN 

border(0,0); grafpaper(3); 
clg!3); graf pen (0) ; 
punkt (a); 

FOR i :=a TO d DD 
I inia (suce (i ) ) ; 
liniała); 
punkt (f ); 

FOR i :=9 TO o DO 
linia(i); 
linia(f); 
liniale); 
i:=h; 

FOR i :=a TO d DO 
BEBIN 
punkt (i); 
linialj); 

j:=5UCC(5UCC(j)) 

END: 

punktfp); 

FOR i:=q TO t DO 
linia (i ) ; 

Linia (p) ; 
liniale); 
j:=o; 

FOR i : =q TO t DO 
BEGIN 
punkt (i); 
linialj); 
j : =succ I suce ( j ) ) 

END; 
nazuyit; 
graf pen (2); 

FOR !:=’«’ TO ’V DO 
1 i tera (1 ) 

END; 

mmmtmitmtimmtmmuimm) 

iimimttmmmtmmmmmiimtj 

li pokaz wyznaczania drogi hałiltona t) 
t« 1) 

PROCEDURĘ pokaz: 

VfiR 

akt , pop , poi: nazuypunktou: 
il.i.n,12:integer; 

FUNCTION nreńnteger; 

VAR zn:boolean; 

innteger; 

BEBIN 

zn:-(aUe; 

repeJt 

HITH figlaktl DO 
IF sasiedzi Ei ]. poprz-pop THEN 
BE6IN nre: -i ; zn:=true END; 
i:=i+l 
UNTIL zn 
END; 

PROCEDURĘ Hieno; 

BEBIN 

po«:=akt; 

akt:=figtaktl.saeiedzilnre].leHy; 

pop:=poi; 

linialakt) 

END: 

PROCEDURĘ npraHo; 

BEGIN 

po«:=akt: 

akt :=figtaktl.sasiedzi[nrel. prawy; 

KUBK, 

END; 

PROCEDURĘ opoznij; 

VftR i s inteoer : 

BEGIN 

i;=l; 

REPEAT 

is=i+l 

UNTIL i >20000 
END; 

BEGIN 

ustawwsp; 

ustawsas; 

wyswfig; 

opoznij; 

il:=randoa(19); 

akt:=a; 

IF i I>0 THEN 
FOR i:=0 TO il-1 DO 
akt:=succ(akt); 

pop: -f i gCakt l.sasiedzi Erandoi(2) +1 T 
.poprz; 
grafpen(l); 

fiteralchr (ord (’ A' ) +ord (akt) ) ) ; 

opoznij; 

punkt (akt); 

FOR 11:=1 TO 2 DD 
BEGIN 

FOR 12: s l TO 3 DO 
BEGIN wlewo; opoznij END; 

FOR I2:=l TO 3 DO 
BEGIN wprawo; opoznij END; 
wlewo; opoznij; 
wprawo; opoznij; 
wlewo; opoznij; 
wprawo; opoznij; 

END; 

napis( ł KONIEC POKAZU’, 24,1); 
wykQr:=false 
END; ’ 

itttitutumtttttmnmtmmnntut} 

{ttttnuttmmtttntnmtmtmmm) 
{t eenu 

{t <> 

PROCEDURĘ »enu; 

BEGIN 

border (0,0) ; graf paper (3); 

clg(3); órafpen (2) ; 

napis ( } GRA HAMILTONA’ ,2,5); 

napis(’HENU:’,4,5); 

napisTO - WYJŚCIE Z PROGRAMU’ ,6, 10); 

napis(’l - POWRDT DO MENU’, 8,10); 

napis (’2 - POKAZ’. 10. 10); 

napis(’3 - GRA’, 12, 10); 

^kgr:=false 
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mmimtmmmmtmtmmmtmt} 

mmntnntututtmnmntttmnnt} 

{* gra ty 

it 11 

PROCEDURĘ gra; 

VAR 

koniecjboolean; 

ruchy:ARRAY[1..203 OF naz*ypunkto*; 
ppocz , pnast : nazwypun kto**; 
nraktrinteger; 

FUNCTION nazp(ch:char):nazHypunktoH; 

VAR 

i, j:integer: 
p:nazwypunktow; 

BEGIN 

IF <ch>= , A , ł AND (ch<=’T’) THEN 
i:=ord(ch)-ord(’A’) 

ELSE 

i ;=ord (chł-ord ( ’ a' ) ; 

PÓR 3 j:= 1 TD i DD 
p:=succ(p); 
nazp:=p 
END: 

PROCEDURĘ Nygaskos; 

VAR 

lpot:lzn; 

ińnteger; 

BEGIN 

graf pen (3): 

FOR i:=l TO 40 DO 
IpocCi ’; 
napis(lpoi,24,l); 

^cjrafpen(l) 

FUNcłlON rpopr (pnast: naz*ypunkto«): 
boolean; 

BEGIN 

HITH figtpnastJ DO 
IF (NOT MSkp) AND 

( (sasiedziil3.poprz=ruchy[nrakt3) OF: 
(sasiedzit2].popr2=ruchytnrakt]> DR 
(sasiedzi[3].pcprz=ruchytnrakt3)) 
THEN rpopr:=true 
ELSE rpopr:=false • 

END; 

BEGIN 

ustawNsp; 

ustaNsas; 

wyswfig: 

wyk(jr:=irue; 

komec:=false; 

grafpen(ł): 

napis(’ PODAJ PUNKT POCZĄTKOWY’ ,24, ł) ; 
REPEAT 

REPEAT UNTIL keypressed; 

READ(kbd,ch): 

UNTIL ((ch>=’A’) AND (ch<?’T’}) OR 
((ch>=’a’) AND (ch<=’t’)); 
ppocz:-nazp(ch); 

IF (ch>=’a ę ) AND (ch<=’t’> THEN 
ch:=chr(ord(ch)-32); 

litera(ch); 

nrakt:=l; 

ruchytl3:=ppocz; 

ttygaskos; 

napis ('PODAJ NASTĘPNY PUNKT’, 24,1); 
punkt (ppocz); 

WHILE NOT t(ch=§48) OR (ch=t49) OR 
(cb=#50) OR (ch=l51) OR koniec) DO 
BEGIN 

REPEAT UNTIL keypressed; 

READ(kbd,ch); 

IF ch-19 THEN 
BEGIN 

IF nrakt>l THEN 
BEGIN 

graf pen (0); 

finiatruchyCnrakt-tl) ; 

fig[ruchy[nrakt]J.wskp:=false; 

nrakt:=nrakt-l; 


Nygaskos: 

napis(’PODAJ NASTĘPNY PUNKT’, 24,1) 
~ ^j)unkt(ruchy[nrakt]); 

END 

ELSE 

IF ( (ch>=* A’ ) AND (ch<=’T’)) OR 
((ch>=’a’) AND tch^t’)) THEN 
BEGIN 

pnast: =nazp(ch); 

IF^r^opr (pnast) THEN 

linia(pnast); 

IF^nast=ppocz THEN koniec:=true 
BEGIN 

nrakt:=nrakt+l; 

■ ruchyEnrakt3:=pnast; 
fig[pnast3.wskp:=true; 
wygaskos: 

napis ('PODAJ NASTĘPNY PUNKT’, 
24,1); 

punkt (ruchytńraktl); 

END 

END 

ELSE 

BEGIN 

wygaskos; 

napis( 

’2LY RUCH-PODAJ NASTĘPNY PUNKT’ 
24,1); 

punkt (ruchyfnraktl) 

END 

END; 

END: 


IF koniec THEN 
BEGIN 
Nygaskoa; 

IF nrakt=20 THEN 
napis! 

'KONIEC GRY. WYGRALES-GRATULACJE' , 

24.1) 

ELSE 

napis ( 

'KONIEC GRY. NIESTETY PRZEGRAŁEŚ’, 

24.1) : 

*ykgr:=false 

END: 

{tuuutmtnmttnutunnumunw 

BEGIN 
crtini t; 
mitgrafik; 

■ode(l); 
ink (0,26,26); 
ink(l, 15.15); 
ink(2,9,9); 
ink (3,0, 0) ; 

■enu; 

REPEAT 

IF NOT Hykgr THEN 
BEGIN 

REPEAT UNTIL keypressed; 

READ(kbd.ch) 

END: 

CASE ch OF 
ł49: Renu; 

150: pokaz; 

151: gra 
END; 

UNTIL ch=f48; 

■ode (2); 
leavegrafik; 

END. ~ . 

Stefan Rozmus 





•^ 35 =^ 


— Widzę, że nie lubi pani komputera. 
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INFORMATYKA 

KOMPUTERY 

SYSTEMY 


Dodatek „Żołnierza Wolności” Cena150zł 


zeszyty 

programów 
Komputerowych 
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PODSTAWKĘ KONSTRUKCJE PR06PAN0NE MIKROPROCESORA ZBO 


! J n-2 

'S'J ! ! n-I 

'•AJ l..'. J i ! n 

! ! n+t 

n*2 

n *3 

S_ ' ! ” ! n*4 

„A—.: : ~ i . 

_sf : : i . 

• PT ! i {- 


(C» P. Słib. B. JJfM-.l 


rtrofli 


HPftOMAOZENIE 2 

1. PRZESIANIA POHIfDZy REJESTRAMI I KOMÓRKAMI PAMIfCI OPERA* 4 
CYJttEJ 

1.1 Przasłania do rajastró* 4 

1.1.1. Bazpoiradnie przesiania zwartości koaflfrt pwifd 

eparicyjnmj do rajtitrów 4 

1.1.2. Poórtdnie przaalania zawartości koaórtfc pamięci opt- 

racyjnej ' e 4 

1.1.3 Przesłaniaz wimrzchołka stosu 3 

1.1.4, Przailanla stałych 5 

1.1.3. Prztilania poaiędzy rcjcitrati 6 

1.2. Przsslini.a do komórek pamięci operacyjnej 7 

1.2.1. Bazpoiradnie przesiania zwartości rejestrów 7 

1.2.2. Pośradnia przesiania zawartości rejestrów 8 

1.2.3. Przfslania na witrzchołak stosu 8 

1.2.4. Przesiania stałych 8 

1.2.3. Przesiania poaiędzy komórkami pamięci operacyjnej 8 

2. PETLE ITERACYJNE 10 

2.1. Pętle typu 'repeat* 10 

2.1.1. Pętla wykonywane do 256 razy 10 

2.1.2. Pętli wykonywana do 65536 razy 10 

2.2. Pętla typu 'while* 10 

3. mmi ii 

3.1. Porównywanie l-bajtowych tekstów znakowych lub liczb 

bez znaków 11 

3.2. Porównywanie l-bajtowych liczb całkowitych ze znakiem 12 

3.3. Porównywanie 2-bajtowyth liczb całkowitych tez znaku ze 

stał# nn 12 

3.4. Porównywanie n-bajtowych tekstów znakowych 13 

4. P0DPRD6RAMY, OPERACJE NA STOSIE 14 

4.1. Wywoływanie podprogramów 14 

4.2. Przekazywanie paraeetrów do podprograeów 15 

5. KONWERSJE PÓL DANYCH 13 

5.1. Liczby binarne i znakowe w kodzie BCD 15 

5.2. Liczby binarne i znakowe w kodzie ASCII 16 

6. OPERACJE KA POLACH BINARNYCH U 

6.1. Uprowadzanie określonych wartości na pozycje binarse 

Łoaórki 16 

6.2. Przesłania określonych pozycji binarnych 17 

6.3. Badanie wartości określonych pozycji binarnych 17 

6.4. Przesuwanie pozycji binarnych 17 

6.4.1. Przesuwanie cykliczne w lewo i w prawo (o jeioę 

pozycję! wielkości B-titowej IB 

6.4.2. Przesuwanie cykliczne w lewo i w prawo z przenie- 
sienie* (o jednę pozycję! wielkości 8 -bit owej 18 


6. Ś.3. Przesuwanie logiczne w lewo i w prawo io jednę 
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WPROWADZENIE 

Przedstawiany Czytelnikom albu* podstawowych konstrukcji progra- 
mowych, występujących przy kodowaniu programów w języku asemblera 
dla mikroprocesora Z80. Konstrukcje te można znaleźć niemal w 
każdym programie, choć nie zawsze sę w wyraźny sposób wyodrębnione. 
Wytrawni programiści z duźę praktykę zawodowę znaję je *na pamięć". 
Tajemnica ich dużej wydajności pracy (wyrażanej liczbę urucho- 
mionych i przetestowanych instrukcji w jednostce czasu) wynika z 
operowania nie tylko pojedynczymi instrukcjami, ale całymi cięgami 
instrukcji, realizujęcyni okseślone operacje - właśnie konstruk- 
cjami programowymi. Niestety, okres dochodzenia do wprawy trwa 
stosunkowo długo. Praktycznie każdy programujęcy jest pozostawiony 
własnej inwencji. W dostępnej literaturze 12, 3, 4] można wyczytać 
jedynie opisy realizacji pojedynczych rozkazów mikroprocesora ZBO 
i kilku najprostszych konstrukcji programowych. Bardzo trudno jest 
także "wycięgnęć" tajniki programowania od zawodowych programistów, 
dla których sę to sprawy oczywiste, trywialne i nie warte wspo- 
mnienia. > 

/ 

Zadaniem tego materiału jest w jakimś stopniu pomóc poczętkujęcym 
programistom (zarówno zawodowym, jak i amatorom) przez dostarczenie 
wzorców gotowych konstrukcji programowych. Sę one przedstawione w 
postaci szablonów, które należy przepisać do tekstu programu z 
ewentualnymi zmianami nazw obszarów danych i etykiet. Oczywiście, 
nie chodzi tu o zwykłe przepisywanie, konieczne jest zrozumienie 
zastosowanych rozwięzaó. Szczególnę uwagę należy zwrócić na wa- 
rianty tych samych konstrukcji, róźnięce się głównie czasami reali- 
zacji, zajętościę pamięci lub rodzajem wykorzystywanych rejestrów. 

Przedstawione konstrukcje programowe zostały pogrupowane w 
następujęcych 8 rozdziałach: 
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1. Przesiania pomiędzy rejestraai i komórkami pamięci operacyjnej 

2. Pętle iteracyjne 

3. Warunki 

4. Podprogramy, operacje na stosie 

5. Konwersje pól danych 

6. Operacje na polach binarnych 

7. Operacje arytmetyczne 

6. Operacje na tablicach 

Dodatki na końcu tekstu zawieraj* informacje o rozkazach aikro- 
procesora Z80 i danych liczbowych w różnych systemach liczenia. 
Jest to materiał, do którego często będzieay zaglądać, szczególnie 
w poczętkowym okresie nauki prograaowania. 

Zaproponowany ukfad treści aa ułatwić odszukanie wynaganych ope- 
racji. Przy czya od razu należy się zastrzec, że Czytelnik nie 
znajdzie wszystkich potrzebnych nu operacji, liczba możliwych 
przypadków konstrukcji i. ich wariantów jest zbyt duża, aby je 
znieścić w ograniczonej objętości pisną. 

Poszczególne konstrukcje programowe s* scharakteryzowane 
funkcjami chronoaertaźowymi (t) i pamięci ochłonności (p). Funkcja - 
t, określa czas przebiegu, wyrażony liczb* taktów zegara 

mikrokomputera, a funkcja p - zajętość pamięci, wyraźon* w bajtach. 
Wyliczanie czasu przebiegu w aikrosekundach (t'l wymaga 

przekształcenia: 

t ł * t / ■# Ijis] 

gdzie: f - częstotliwość zegara [HHzl 

Czasy przebiegu konstrukcji zostały wyznaczone według danych 
chronometraźowych pojedynczych rozkazów zestawionych w dodatku I. 
(kolunna t). W dodatku tym zaaieszczono takf e wyliczone' czasy 
realizacji rozkazów w aikrosekundach dla trzech najczęściej 
spotykanych częstotliwości zegarów - odpowiednio: 2 HHz, 3.5 flHz i 
4 HHz. 

Dodatkowo dla celów ilustracyjnych poszczególne konstrukcje pro- 
gramowe zostały opatrzone tzw. ‘strukturami operacyjnymi", w któ- 
rych występuj* prD5tok*ty i okręgi poł*czone 1 i ni ani skierowanvai. 
Prostok*ty symbolizuj* obszary danych w panięci operacyjnej i reje- 
stry, a okręgi - rozkazy. Przy obszarach danych i rejestrach wy- 
stępuj* ich nazwy. Strzałki przy liniach !*cz*cych prostok*ty z 
okręgami wskazuj* na kierunek przesyłania danych. Odczyt danych 
jest oznaczony przez zwrot strzałki w kierunku do okręgu, zapis w 
kierunku do prostok*ta symbolizuj*cego obszar danych. Linie ze 
strzałkami skierowanymi w obydwie strony oznaczaj* odczyt i. zapis. 

Przvkładowo poniższy rysunek ilustruje operację przesyłania 
zawartości rejestru L do komórki o symbolicznym adresie ADR i 
rejestru H do koaórki o adresie ADR* 1 . Przyjęto konwencję rysowania 
komórek panięci o wzrastaj*cvch adresach kolejno jedna pod drug*. 

■ _H L__ 

1 ADR 

-H ! ADP+l 

Prostokęty przedstawi a j*ce rejestry 16-bitowe s* dwa razy dłuższe 
od prostok*tów przedstawia jęcych rejestry 8-bitowe. W wypadku pary 
rejestrów (AF, BC, DE, HL), rejestr zawieraj*cy bardziej znacz*ce 
pozycje binarne jest narysowany na lewo od rejestru zawieraj*cego 
mniej znaczęce pozycje binarne. 

Oprócz linii ł*cz*cych okręgi z prostok*tami (symbolizujące 
kierunek przepływu danych) na niektórych rysunkach występuj* także 
linie skierowane od rejestrów do komórek pamięci operacyjnej. 
Oznaczaj* one, że w rejestrach zapisane s* adresy komórek 

(wskaźniki do komórek). Zmiany adresów powstałe w wyniku 

wykonywania operacji zaznaczone s* lim* przerywan*. 



Nielobajtowe liczby binarne i znakowe w kodzie BCD zapisywane s* 
w kolejnych komórkach pamięci operacyjnej, poczynajęc od najmniej 
znacz*cych pozycji. W ten sposób 2-bajtowa liczba całkowita ze 
znakiem jest zapamiętana jak niżej: 


:o!o:o!0!o:o!o:i; 


:o;o:o£o;i:i:o:o: 


bit \ 
znakuj 


00001 100 i 

oooooooi ; 


n 

n*l 


Wartość dziesiętna liczby zapisanej w komórkach o adresie n i n+1 
wynosi 268 (256 + 8 ♦ 4). 


Wobec powszechnego stosowania wysokopozi omowych języków algebra- 
icznych (takich jak BASIC, Pascal, C ) asembler stosuje się w 
ściśle określonych przypadkach. Głównie wtedy, gdy czasy realizacji 
programów kodowanych w języku wysokopozi omowym s* zbyt długie. 
Niew*tpliwie najdłuższe czasy występuj* przy stosowaniu interpre- 
tera języka BASIC. W wielu zastosowaniach jest on nie do 
przyjęcia. 


Jak duże różnice uzyskuje się w czasach przebiegu, stosu j*c asei- 
bler zamiast BASIC-a, uzmysłowi* nam dane chronometraźowe 3 
instrukcji podstawienia (na 2-bajtowych zmiennych typu 1NTE6EP) 
zestawione w poniższej tabeli. 


INERITUH 

(1.6 HHzKAHSTRAD 6128 (3.3 HHz) 

Instrukcja ! BASIC 

asembler 

I BASIC 

asembler 

! [jisl 

lj»sJ 

: ejis] 

[jtsJ 

u = i : uoo 

16.3* 

! 400 

7.9 

ii = n : 3ioo 

20 

1 900 

10 

II = JI+KI ! 4500 

39,4 

: i7oo 

19 

IX = JUKI ! 4800 

7 55 

! 1800 

366 


Wprawdzie Dorównanie jest wycinkowe (głębsza analiza wymaga od- 
dzielnego opracowania), ale wyraźnie widać, że stosuj*c oba rodzaje 
języków, ten sam mikrokomputer staje się narzędziem zupełnie innej 
klasy. Z mikrokomputera przekształca się w ‘poważny 0 mikrokompu- 
ter. Jest to podstawowy powód, dla którego warto ooanować 
niew*tpliwie trudn* sztukę programowani j u asemblera. 
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Przesiania powędz. rejestraai i koaórkaai panięci operacyjnej 
należę do najprostszych, ale- najczęściej stosowanych operacji. 
Zwykle sę zapisywane przy użyciu 1, 2 lub 3 rozkazów aikroproce- 
$ora. Poczętkujęcy programiści mewaję sporo kłopotów z ich użyciem 
ze względu na dużę liczbę rejestrów i specyficzne, asymetryczne 
własności rozkazów. Teram asymetrycznośó rozkazów oznacza, Ze 
operuj* tvHo na wybranych rejestrach lub parach rejestrów i w 
-}?n. sposób acgę zmieniać wartość rejestru stanu wskaZników F. ( 
Rejestry Pamięć operacyjna 


przesłanie zawartości koaórki do rejestru znaczników F 
(zawartość rejestru A zostaje zniszczona) 


LD HL, (ADR) 
PUSH HL 
POP AF 




t » 37, p - 5 


przesłanie zawartości 2 koaórek do pary rejestrów HL 



'.i. ";f:/a r is C _ f ej er 'rów 

1.1. i. Bezpośrednie przesłania zawartości komórek paflięci operacyjnej 
dc rejestrów 

przesłanie zawartości komórki do rejestru A 


_H L_ 

LD HL, (ADR) 
t = 16, p = 3 

przesłanie zawartości 2 koaórek do rejestrów BC, DE, SP, 

IX lub 1Y (rp) 

rp,(ADR) 
t = 20, p = 4 

przesłanie zawartości 2 koaórek do licznika rozkazów PC 

(skok do adresu zapisanego w tych komórkach) 




LD A, (ADR) 
t = 13, c = 3 


--o- 


ADR 


przesłanie zawartości koaórki do rejestru roboczego B, C, 
D, E. H lub L (r) za pośrednictwem rejestru A 


LD HL. (ADR) 
JP (HL) 


t = 20, p = 4 



ADR 

ADP+t 


1.1.2. Pośrednie przesłania zawartości koaórek pamięci operacyjnej 


LD A, (ADR) 

LD r,A 

t * r, p = 4 

przesłanie zawartości koaórki do rejestru roboczego A, B, 
C, D lub E f r) za pośrednictwem pary rejestrów HL 


.H L. 



t * r, p = 4 



przesłanie zawartości koaórki do rejestru roboczego A, B, 
C, D, E, H lub L ł r) za pośrednictwea rejestru IX lub IV (xy) 



przesłanie zawartości koaórki o adresie w HL do rejestru 
roboczego A, B, C, D lub E (r) ' 

_H L__ 


LD r, IHL) 
t = 7, p ■ i 

przesłanie zawartości koaórki o adresie w HL, BC lub DE 
(rp) do rejestru A 

rp 

LD A, (rp) 
t = 7, p = I 




przesłanie zawartości koaórki o adresie IX+d lub IY+d (xy+d, 
d={-127, . . . , 12B>) do rejestru roboczego A, 6, C, D, E, H lub L 
(r) ' 



*yl_. 

LD r, (xy*d) 
ł * 19, p = 3 

i i 

przesianie zawartości 2 koafirek o adresie w HL do pary 
rejestrów BC lub DE 

1.1.3. Przesiania z wierzchołka stosu 



LD C, (HL) 
INC KL 
LD B| (HL) 


_H_ _L 


~ I3 ti 


B C 


t *.20, p « 3 


przesianie zawartości 2 koafirek z wierzchołka stosu do pary 
rejestrfiw AF, BC, DE lub HL (rp) 


POP rp 
t * 10, p » 1 



przesianie zawartości 2 koafirek z wierzchołka stosu do rejestru 
indeksowego IX lub IY (xy) 


POP xy 
t * 14, p * 2 



zaaiana aiejscaai zawartości pary rejestrfiw HL z zawartości* 2 
koafirek z wierzchołka stosu 



zaaiana aiejscaai zawartości pary rejestrfiw DE z zawartości* 2 
koafirek z wierz 'hoika stosu (bez naruszenia zawartości reje- 
strfiw HL) 


EX DE.HL 
EX (SP),HL 
EX DE.HL 

t * 27, p = 3 


.SP. 



zaaiana aiejscaai zawartości rejestru indeksowego IX lub IY 
(xy) z zawartości* 2 koafirek z wierzchołka stosu 


EX (SP),xy 
t * 23, p * 2 
1.1.4. Przesiania stałych 


przesłanie stałej U bajt) do rejestru roboczego A, B, C, 
E, H lub L (r) 



LD r,86H 
t = 7, p = 2 
przesłanie 0 do rejestru A 
LD A,0 _A. 




- h — O* — '- 00 ' 
«^~0 


t = 7, p = 2 
SUB A 
t = 4, p = 1 
X0R A 
t = 4, p = 1 


przesłanie stałej (2 bajty) do pary rejestrfiw BC, DE, HL lub 
SP (rp) 


LD rp, 77E8H 
t = 10, p = 3 


lodl; 


przesłanie stałej (2 bajty) do rejestru indeksowego IX lub IY 
(xy) 


LD xy,77EBH 88 ...... 

i v> — w 

t * 14, p * 4 1 ł_77_l 
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przesianie stałej (2 bajty) do licznika rozkazów PC (skok wg 
podanego adresu) 


JP BA07H 
t 3 10, p 3 3 


ttdi 


i. 1.5. Przesiania pomydzy rejestrami 

przesiania pomipdzy rejestrami roboczymi A, B, C, D, E, H lub L 
(z rl do r2) 


LD r2,rl 


a-o-s 


przesianie zawartości rejestru A do rejestru znaczników F 
F . _ A 




LD H, A 
LD L,A 
PUSH HL 

POP AF jżawartość rejestru A nie zostaje zniszczona 

t = 29, p = 4 

PUSH AF 
INC SP 
PDF AF 

DEC SP ; zawartość rejestru A zostaje zniszczona 
t = 33, P 3 4 

przesianie zawartości rejestru znaczników F do rejestru A 
_A__ _F__ 




PUSH AF 
POP BC 

LD A,C ; zawartość rejestru F nie zostaje zniszczona 

t = 25, p = 3 

PUSH 'AF 
DEC SP 
POP AF » 

INC SP jzawartość rejestru F zostaje zniszczona 
t = 33, p = 4 

przesiania pomiędzy parami rejestrów BC, DE, HL (przykładowo 
pomipdzy rejestrami BC i DE) 




D__ _E„ 

'i'' 


LD C,E 
LD B,D 

t = 8, p = 2 

PUSH DE 
POP BC 

t 3 28, p 3 2 


przesianie zawartości pary rejestrów HL do wskaźnika 
stosu SP 


_H L„ 


LD SP,HL 
t = fc. p 3 1 


-o— 


przesianie zawartości wskaźnika stosu SP do pary rejestrów HL 
_H L„ SP 

ld hl,o : : i : i 

HDD HL, SP " f 

t 3 21, p 3 4 


przesianie zawartości rejestru indeksowego IX lub li (xy> do 
wskaźnika stosu SP 


LD SP,xy 
t 3 10, p 3 2 


„SP„. 

"IZ 


O 


przesianie zawartości wskaźnika stosu 6P do rejestru indeksowe^ 
go IX lub IV (xy) 


LD xy,0 
ADD xy,SP 

t 3 29, p = fc 


*y 

~TZ 


O 


przesianie zawartości pary rejestrów BC, DE lufa HL (rp) do 
rejestru indeksowego IX lub 1Y (xy> 


-o* 


r p 

! : : 


PUSH rp 
POP xy 

t 3 25, p = 3 


przesianie zawartości rejestru indeksowego IX lub IY (xy) do 
pary rejestrów BC, DE lub HL (rp) 


O 


PUSH xy 
POP rp 

t = 25, p = 3 


przesiania pomiydzy rejestrami indeksowymi IX, IY (z xyl do 
xy2) 


PUSH xyl 
POP xy2 

t = 29, p = 4 


xy2 __ wy 1 

-■ifioS--' 


przesianie zawartości pary rejestrów HL do licznika rozkazów PC 
(skok do adresu zapisanego w HL) 


JP (HL) 
t 3 4, p a 1 


“i-o 


przesianie zawartości pary rejestrów BC do licznika rozkazów PC 
(skok do adresu zapisanego w BC) 


PUSH BC 
RET 

t 3 21, p « 2 


PC.. 


rio 



PUSH rp 

£X (SP),xy • 

POP rp 

t 3 44, p 3 4 

zamiana eiejscami zawartości rejestru indeksowego IX z IV 


IX IY 


PUSH IX 
PUSH IY 
POP IX 
POP IY 

t 3 58, p = 8 

PUSH IX 
EX (SP),1Y 
POP IX 


t 3 52, p = 6 

1.2. Przesiania do tgaćrąt paaiyc, operacyjnej 


1.2.1. Bezpośrednie przesiania zawartości rejestrów 
przesianie zawartości akumulatora 


LD (ADR), A 
t = 13, p = 3 


przesianie zawartości rejestru roboczego B, C, D, E, H lub L 
(r) za pośrednictwem akumulatora 


LD A,r 
LD (ADR), A 

ł 8 I?, P = 4 


przesianie zawartości rejestru roboczego A, B, C, D lub E fr) 
za pośrednictwem pary rejestrórf HL 


1 


LD HL, ADR 
LD (HLJ,r 


t = l 7 , P = 4 

przesianie zawartości rejestru roboczego A, B, C, D, E, H lub L 
(r) za pośrednictwem rejestru IX lub IY fxy> 

*Y 


LD xy, ADR 
LD (xy),r 

t = 33, p = 7 


przesianie zawartości rejestru indeksowego IX lub IY (xy> do 
licznika rozkazów PC (skok do adresu zapisanego w xy) 

PC„_ xy 

JP (xy) i i ! 1 

t 3 8, p » 2 ^ " 

zamiana miejscami zawartości rejestrów roboczych B, C, D, 
E, H, L (rl z r2) za pośrednictwem rejestru A 
_A__ 

LD. fl.fl _rl_ Jl _r2„ 

LD rl,r2 ! 1 — * ! 

LD r2, A 

t ■ 17, p 3 4 

zamiana miejscami zawartości pary rejestrów DE z HL 

_D i__ _H L_ 

EX DE, HL ! ! ! ! ! ! 

t - p -j 

zamiana miejscami zawartości pary rejestrów AF, BC lub DE 
(rp) z par# rejestrów HL 

rp _H L_ 

push rp i : ! : 

EU HL, (SPI f~" ./ '" V t 

POP rp Ky 

t 3 40, p 3 3 

zamiana miejscami zawartości rejestrów indeksowych IX lub IY 
(xy) z par# rejestrów HL 

xy _H L_. 

PUSH xy ! 1 { ! S 

EX (SP) , HL \ f 

POP xy 

t = 52, p 3 6 

zamiana miejscami zawartości wskaźnika stosu SP z par# reje- 
strów HL 

EX DE, HL _D E. 

LD HL,0 

ADD HL,SP SP __L_ 

EX DE, HL ! 

LD SP, HL ł 

EX DE, HL L “ 

t = 39, p = 8 

zamiana miejscami zawartości pary rejestrów BC, DE lub HL (rp) 
z rejestrami indeksowymi IX lub IY (xy) 

fUSH rp _rp jty 

push xy : : i * i 

pof r P ~r~ ,n - r ~ 

POP xy _ \y 

t 3 50, p 3 6 

_ . i 7 




przesfanie zawartości rejestru znaczników F i ikuulitora 


A. _F„ 

PUSH AF ! X J I I 

POP KI 'T' “CI y H ( ADR 

LD (AJRI.Hl I M .1 ADR+1 

I I 

t ■ 37, p ■ 3 


przesianie zawartości rejestrów BC, DE, IX, IY lub SP (rp) 

' ... rp... 

LD (ADR) ,rp ! } I 


t 3 20, p ■ 4 


Ub=d=i 


ADR 

ADR*1 


( I 


.przesianie zawartości pary rejestrów HL 
_H L__ 


LD (ADR) ,HL 
t 3 16, p ■ 3 


liozdEl 


ADR 

ADR*! 


i. 2. 2. Pośrednie przesiania zawartości rejestriw 

przesianie zawartości rejestru roboczego A, B, C, D, E, H lub L 
(r) do paaipci o adresie w HL 


LD (HL),r 
t - 7, p 3 1 


! ! 13 — . 

■-KE-fc: 


przesianie zawartości rejestru A do paeipcl o adresie h BC, DE 
lub KL (rp) 


LD (rp), A 
t 3 7, p « I 




przesianie zawartości rejestru A, B, C, D, E, H lub L (r) do 
paeipci o adresie IX*d lub IY*d (xy*d, d 3 (-127 128)) 


LD (xy*d),r 
t 3 19, p 3 3 


ą! 


! _d S 

I . 1 
; : i 

H ! 

: i 


przesianie zawartości pary rtjutró* BC lub DE frb ■ (B, Dł, 
ra > ( C, EH do paalyd o adresie a HL 


,M , L 

s — ‘Hn 


LD (HL),ra 
INC HL 
LD <HL),rb 

t ■ 20, p « 3 


,rbji„ 

1 I. 




1»2.3. Przesiania na alerzcholek itoau 


przesianie na wierzchołek stosu zawartości pary rejestrów AF, 
BC, DE lub HL (rp) 

— SP_ 

PUSH rp J jj-p 


t ■ 11, p « I 


rp... 

III 


-56 




I 

przesianie na wierzchołek stosu zawartokl rejestru indeksowego 
IX lub IY (xy) 


PUSH xy 

k ■ 13, p ■ 2 Hyi. 


SP... 

! l)-r- 


Uó 


1 1 I 
~M i 


1.2.4. Przesiania stałych 


przesianie stałej (1 bajt) za pośrednictwie rejestru roboczego 
A 


LD A, 10H 1. . »•— ii 

LD (ADR), A f 

t ■ 20, p « 5 j l_ 


I I 
!_3E_5 
—MOJ 
I . 1 


przesianie stałej (2 bajty) za pokednictwea pary rejestrów HL 


J 


LD HL, 77EBH 
LD (ADR) ,HL 

t 3 26, p « A 


1 . 21.1 
— (_E8. 
— (.77. 
i • 


od- 
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przesianie stałej (2 bajty) na wierzchołek stosu 
SP___ 


LD HI, 77E8H 
PUSH HL 



t « 21, p * 4 

PUSH HL 
LD KL,77E8H 
EX (SP),HL 

t * 40, p * 5 


i. 2.5. Przesłania pomiędzy koaórkaei paeięci operacyjnej 
przesłanie bajtu za pośrednictwem rejestru A 


I 


LD A, (ADRII 
LD (ADR2),A 

t 3 26, p » 6 


przesłanie bajtu przy utyciu rozkazu LDI lub LDD 



! ADR2 


LD 

BC, 1 

LD 

BC, 1 

LD 

HL,ADR1 

LD 

KL,ADR1 

LD • 

DE.ADR2 

LD 

DE.ACR2 

LDI 


LDD 



t = 46, p 3 II 

przesłanie 2 bajtów za pośredni ctwem pary rejestrów HL oraz BC, 
DE, SP, IX lub IY (rp) 


LD KL,(ADR1> 
LD (ADR2),HL 

t * 32, p ■ 6 


LD rp, (ADRII 
LD (ADR2),rp 

t » 40, p « 8 


H , L „ 



ADR2 


przesłanie bloku nn bajtów przy utyciu rozkazu LDIR [adresy 
przesyłanych bajtów wzrastaj# od ADBI do ADRl+(nn-l)l 


LD BC,nn 
LD HL,ADR1 
LD DE.ADR2 
LDIR 

t s 2itnn + 25, p>ll 
(O <« nn <« 653551 


— ! ! ADR1 



I ADRl+(nn-l) 


ADR2+(nn-l) 


przesłanie bloktt nn bajtów przy utyciu rozkazu LDDR (adresy 
przesłanych bajtów ealej# od ADRl+(nn-l) do ADRII 


LD BC,nn 
LD HL,ADRl+(nn-l> 
LD DE,ADR2+(nn-l> 
LDDR 


t * 21 Inn ♦ 25, p * 11 
(0 <* nn <= 65355) 


ADRl+(nn-l) 


przesłania bloku n i nn bajtów za pośrednictwem rejestru A 


LD 

HL.ADRl 

LD 

HL,ADR1 

LD 

DE,ADR2 

LD 

DE,ADR2 

LD 

B,n 

LD 

BC,nn 

LD 

A, (HL) 

P: LD 

A, (HL) 

LD 

(DE), A 

LD 

(DE), A 

INC 

DE 

INC 

DE 

INC 

HL 

•INC 

HL 

DJNZ 

P 

DEC 

BC 



LI? 

A,B 

39tn 

+ 22, p * 14 

DR 

C 

[* n < ; 

= 255) 

JR 

NI, P 


dla n=0 przesłaniu podlega 
256 bajtów 


t * nnt52 ♦ 25, p = IB 
(0 <= nn <* 65535) 
dla nn*C przesłaniu podlega 
65536 bajtów 


powielenie zawartości koaórki 


LD 

A, (ADR1) 

LD 

BC,nn-l 

LD 

HL.ADR2 

LD 

(HU, A 

LD 

DE.ADR2+1 

LDIR 


2ttnn ♦ 24, p s 

(■ nn 

<» 65355) 

LD 

A, (ADR1) 

LD 

B,n 

LD 

HL,ADR2 

LD 

(HL) , A 

INC 

HL 

DJNZ P 



ADR2+(nn-l) 


t « 2fcln' ♦ 25, p = 12 
(1 <■ n <* 2551 

dla n»0 powielanie realizowane jest 256 razy 


2. PĘTLE ITEPACYJNE 


pętla gniazdowana 


Najkrótsze czasy przebiegu pytli uzyskuje się dzięki użyciu 
rozkazu DJNZ i rejestru S. ale tylko dla pytli wykonywanej dp 256 
razy. Rozkazy aikroprocesora sę lepiej przystosowane de kodowania 
pętli typu 'repeat* ni ż pętli typu ■włńle'. 

2.1. Pętle tvpu "repeat" 


. 1 . 



2.1.1. Pętle wykonywane do 256 razy 

Dla n=0 rozkazy objęte pętlę będę wykonywane 256 razy 
pętla kodowana przy użyciu rozkazu DJNZ i rejestru B 


LD B,n 



DJN2 P 


t = I3tn ♦ 2, ) = 4 
(0 <= n <= 2551 


pętla kodowana przy użyciu rozkazu DEC i rejestru fi, B, C, 
D, E, H lub L (r) 

LD r,n 



JR NZ,P 

t = 16ln ♦ 2, p = 5 
(0 <= n <= 255) 


pętla kodowana przy użyciu licznika zapaniętanego w koaórce 
panięci operacyjnej (LICZNIK) 


LD A,n 
LD (LICZNIK) , A 



LD 

A, 'LICZNIK) 

DEC 

A 

LD 

(LICZNIK), A 

JR 

NZ,P 

42tn 

♦ 15, p = 14 

:= n <= 255) 


LD C,nl 
PI: LD B,n2 



DEC C 
JP HZ, PI 


) licznik pętli zewnętrznej 
1 licznik pętli wewnętrznej 


t * 13!nltn? ♦ IBInl ♦ 2, p 3 9 
10 <= nl <= 255, 0 <* n2 <= 255) 

dla nl=0 i n2=0 instrukcje objęte pętlaai będę wykonywane 
65536 (2561256) razy 


2.1.2. Pętla wykonywana do 65536 razy 
LD BC,nn 



DEC BC 
LD A,B 
DP C 
JR NZ,P 


t 3 26tnn * 5 , p 3 B 
(0 <= nn <= 65535) 

dla nn=0. instrukcje objęte pętlę będę wykonywane 65536 razy 


2.2. Pętla typy 'while* 


JL 



• pętla kodowana przy użyciu rozkazu DEC i rejestru A, B, 
C, D, E, H lub L (r) 

LD r,n*l 


PI: DEC r 
JR Z,P2 



P2: ... 

t = 23tn ♦ 16, p = 7 
(1 <= n <= 254) 
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3. WARUNKI 


3.1. Porównywanie 1-bajtowych tekstów znakowych lub liczb bez 
znakćw 


; . . f 





porfiwnywanie zawartości 2 koeórek paiipci operacyjnej o adresach 


ADRl i ADR2 

! (ADRII > (ADRZ) LD A, (ADR21 ! ( ADR 1 > < (ADR2) LD A, (ADRl) 

! LD Ht, ADRl S 

LD HL.ADP2 

5 CP (HL) 

CP (HL) 

! JP PC, Nit : 

JP CJAK 

! TAK* ... S 

NIE: ... 

J r 37 - tak ! 

[42 - tak 

> i =1 , p »« : t = 

, p--i 

! 1 42 - nie ! 

.37 - nie 

i(ADRl> >=. JADR2) LD A, (ADRl) KAOfill <* (DDR2I LD A, (ADR2) 

! LD HL,ADR2 ! 

LD HL.ADRl 

S CP (HL) 

CP (HL) 

i JR NC, TAK { 

JR NC, TAK 

! NIE: ... ! 

1 i 

NIE: ... 

! f 42 - tak 1 

(42 - tak 

* ( "1 , P * 1 ! t =' 

, p = 9 

! [37 - nie ! 

37 - nie 

I (ADRl) * (ADP2) ID fi, (ADRl) ! (ADRl) t (ADR2) LD fi. (ADRII 

I LD HL,ADR2 i 

LD HL.ADR2 

! CP (HL) : 

CP (HL) 

: JR Z, TAK ! 

JR N2, TAK 

1 NIE: ... ! 

NIE; ... 

• f42 - tak ! 

42 - tak 

i ‘ M , P ■ 1 i t *■ 

, » = 9 

’ [37 - nie ! 

37 - nie 


porównywanie zawartości koeórki paaipci operacyjnej o adresie ADR 
ze star# n 


(ADR) > n LD A, (ADR) 
CR n 
JR C, NIE 
JP Z, NIE 
TAK: ... 


(ADR) < n 


LD A, (ADR) 
CP n 
JR C,TAK 


‘28 - tak 

t =' , p = 6 

.26 lub 33 - nie 


i (26 - tak 
! t •{ .P 5 < 

! 121*- nie 


! (ADR) >® n LD A, (ADR) 

(ADR) <* n LD A, (ADR) 


CP n 


CP n 


JR NC, TAK 


JR C, TAK 


NIE: ... 


JP Z JAK 




NIE: ... 

! 

[26 - tak 


26 lub 33 - tak 

! t ■« 

, p = ( 

t =< 

, p * 6 

1 

[21 - nie 


,2B - nie 

! (ADR)* n LD A, (ADR) 

(ADR) In LD A, (ADR) 


CP n 


CP n 


JR Z, TAK 


JR NZ JAK 


NIE: ... 


NIE: ... 

• 

26 - tak 


26 - tak 

it- 

, p ■ » 


,p = ł 

J 

1 

[21 - nie 


21 - nie 

- wielkość B-bitowa 


porównywanie zawartości rejestru A, B, C, D, E, H lub L (r) ze 
staZ# n 


r > n LD A,n 

r < n LD A,r 

CP r 

CP n 

JR NC,NIE 

JR CJAK 

TAK: ... 

NIE: ... 


18 - tak 


[23 - tak 

t =- 

, P = 5 

t = 

, P*3 


23 - nie 


18 - nie 

r >= n LD A,r 

r <= n LD A,n 

CP n 

CP r 

JR NCJAK 

JP NCJAK 

NIE: ... 

NIE: ... 


[23 - tak 


[23 - tak 

t -i 

, p 2 4 

t * 

, p = 6 


18 - nie 


.18 - nie 

r * n LD A,r 

r 1 n LD A,r 

CP n 

CP n 

JR Z JAK 

JR NZJAK 

NIE: ... 

NIE: ... 


23 - tak 


23 - tak 

t =■ 

, p = 5 

t *■ 

, p = 5 


18 - nie 


18 - nie 


L 


ii 



I. PcrfiwruMnic l-bajto« T ch liczb caDowitych ze znahea 


porównywanie zawartoici 2 keiórek paiifci operacyjnej a idresich 
ADR1 i ACR2 


— 
: (ADRII > UDUSI U A, (ADRil 

(ADR1) ( (ADR21 LD A, (ADRII 

LD HL.ADR2 

LD HL.ADR2 

CP (HL) 

CP (HL) 

! JR Z, NIE 

JP H,Pi 

! JP «,P1 

JP PE, TAK 

1 JP PO, TAK 

- JR NIE 

JR NIE 

PI: JP PO, TAK 

Pil JP PE, TAK 

NIE> ... 

NIE: ... 

. 

[57 - tak 

r 50 - tak 

! ={ p = 20 

*■( , P = 18 

(42, S7 lub 49 - nie 

150 lub 62 - nie 

(ADRII >= (ADR2) LD A.fADRlf 

(ADRII <- (ADR2) LD A, (ADR1) 

* LD HL,ADR2 

LD KL,ADR2 

CP (HL) 

CP (HL) 

JP H,P1 

' JR Z, TAK 

JP PO, TAK • 

JP H,P1 

JR NIE 

JP PE, TAK 

PI: JP PE,TAK 

JR NIE 

NIE: ... 

Pt: JP PO, TAK 


NIE: ... 

[50 - tak 

[ 42 lub 57 - tak 

t=( , P = 18 

* M , P = ZO 

(50 lub 62 - nie 

157 lub 69 - nie 

(ADRII = (ADR2) LD A, (ADRII 

(ADRII 1 IADR2I LD ft, (ADRII 

LD HL.ADR2 

LD HL,ADR? 

CP (HL> 

CP (HL) 

JR Z, TAK 

JP NZ, TAK 

NIE: ... 

NIE: ... 

[42 - tak 

[42 - tak 

H ,p--9 

'= , 

[37 - nie 

(.37 - nie 


!■!. Porównywanie 2-oajtowych nc:b be; znalu ze stal# nn 


porównywanie stałej nn z liczb* zapisań* w koaórkach paiifd 
operacyjnej c adresach ADR i ADR+1 


(ADR) > nn LD HL, (ADR) 

(ADR) < nn LD HL, (ADR) 

LD 8C, nn 

LD BC,nn 

OR fi 

DR A 

SBC HI, DC 

5BC HL, BC 

JR C,NIE 

JR C,TAK 

JR Z, NIE 

NIE: ... 

TAK: ... 


[63 - tak 

[61 - tak 

H ,P = I4 

, P = 12 

, [61 lub 68 - nie 

1-56 - nie 


(ADR) >s nn LD HL, (ADR) i (ADR) <« nn LD HL, (ADR) ! 

* 

LD BC,nn i 

LD BC,nn 1 


OR A 1 

OR A 1 


SBC HL,BC 1 

SBC HL , BC 1 


JR NC,TAK ! 

JR C,TAK ! 


NIE: ... i 

JR Z, TAK 1 


• 

1 

NIC: ( 


[61 - tak ! 

[61 lub 68 - tak 1 

t = 

, p 8 12 i t H 

, P = l< ! 


[56 - nie I 

63 - nie ! 

(ADR! * nn LD HL, (ADRI 1 (ADRI • nn LD HL, (ADR1 1 


LD BC,nn 1 

LD BC,nn i 


OR A : 

OR A : 


BBC HL,BC ( 

SBC HL,BC ! 


JR Z, TAK ! 

JR NZ, TAK t 


NIE: ... ! 

NIE: ... 1 


[61 - tak ! 

61 - tak i 

‘ ■' 

, p = 12 : t =■ 

, P * U i 


56 - nie ! 

56 - nie 1 


Rozkazy OR A, uiyte n powyższej tablicy i trzech nastfpnych 
powoduj* wyzerowanie wskaźnika przeniesienia CY, ten sai efekt 
■cźna uzyskać przez zastosowanie sekwencji rozkazów 5CF i CCF. 
nn - 16-bitowa liczba bez znaku 


porfiwnywanie stałej nn z zawartoici* pary rejestrów DE 

1 DE ) nn LD HL,nn 1 DE ( nn LD L,E i 

! 

OR A ! 

LD H,D ! 

! 

SBC HI, DE i 

LD BC,nn ! 

i 

JR NC,N(E i 

OR A 1 

1 

TAKl ... S 

SBC HL, BC 1 

1 

1 

JR C, TAK 1 

j 

1 

NIE: ... 1 

! 

[36 - tak i 

49 - tak 1 

: t * 

, P - 8 ' t = 

, p = io : 


Ul - nie 1 

[44 - nie ! 

! DE >= nn LD L,E ! DE (= nn LD HL,nn ! 

! 

LD H,D { 

OR A : 

! 

LD BC,nn ! 

SBC HL, DE ! 

! 

OR A ; 

JR NC,TAK 1 

1 

SBC HL, BC { 

NIE: ... : 

I 

JR NC.TAK { 


! 

NIE: ... t 


1 . 

49 - tak ! 

41 - tak 1 


, p = 10 ! t .1 

, p = 8 

! 

144 * nie t 

36 - nie 1 

: de 

* nn LD HL,nn ! DE * nn LD Hl,nn 1 

1 

OR A } 

OR A i 

1 

SBC HL, DE ! 

SBC HL, DE I 

1 

JR Z, TAK ! 

JR NZ,TAK I 

1 

NIE: ... i 

niei ... : 

t 

* 

[4! - tak ! 

41 - tak 1 

>«*■ 

, P = 8 1 t *' 

, p ■ 8 1 

i 

36 - nie t 

L36 - nie 1 
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porównywani* starej nn z zawartości ? rejestru SP 


' > nn 


LD HL,nn 
CR A 
SBC HL,SP 


I SP < nn 


! 


JR NC,NIE i 


LD HL,0 
ADD Hl.SP 
LD BC.nn 
OP A 


! 

TAK* ... 


SBC HL,BC 

1 


1 

JR C, TAK 

1 


1 

NIEi ... 


[36 - tak 


[62 - tak 

t =< 

, P = 6 

! t *4 

, P * 12 


Ul “ nie 


.57 - nie 

SP >= nn LD HL,0 

! SP <= nn LD HL.nn 


ADD HL, SF 


OR A 


LD BC.nn 


SBC HL, SP 


OP A 


JR NC, TAK 


SBC HL,BC 


NIE: ... 


JR- NC,TAK 

{ / 



NIE: ... 




62 - tak 


[41 - tak 

t =■ 

. p ■ « 

! t = 

. P = 8 


57 - nie 


36 - nie 

SP 

= nn LD Hl,nn 

! SP 1 nn LD HL. nr 


OR A 


OP A 


SBC HL , SP 


SBC HL, SP 


JR Z, TAK 


JR NZ, TAK 


NIEt ... 


NIE: ... 


41 - tak 

i 

41 - ‘tak 

H 

, P -- 8 

i t - 

i P ■ 8 


36 - nie 

! 

k 36 - nie 


nn -16-bitowa liczba bez znaku 


porównywanie stałej nn z zawartości? pary rejestrów HL 


HL 

> nn LD DE.nn 

HL < nn PlISH HL 

ET DE, HI 

LD DE.nn 

OR A 

OP A 

SBC HL.DE 

SBC HL.DE 

ET DE,HL 

POP HL 

JR NC.NIE 

JR C,TAK 

TAK: ... 

NIE: ... 


[44 - tak 

(62 - tak 

t =< 

, P * 10 

t= , p = 10 


49 - nie 

[57 - nie 

HL >= nn PUSH HL 

HL <= nn LD DE,nn 

LD DE,nn 

ET DE,HL 

GR A 

DR A 

SBC HL,DE 

SBC HL,DE 

POP HL 

ET D£,HL 

JR NC, TAK 

JR NC, TAK 

NIE: ... 

NIE: 


62 - tak 

(4? - tak 

H 

i P = 10 

1 *■{ , p ■ 10 


57 - nie 

[44 - nie ! 


1 HL = nn LD 

DE,nn 

i HL 1 nn 

LD 

DE,nn 1 

ET 

DE.HL 


ET 

DE, HI l 

OR 

A 

1 

OR 

A 1 

SBC 

HL, DE 


SBC 

HL.DE ( 

ET 

DE, HL 


ET 

DE.HL 1 

JR 

Z, TAK 


JR 

NZ, TAK ! 

NIE: ... 


f NIE: 

... 


[49 - tak 


1 fł9 - tak 



t= , p = 10 


1 t »■( , p 

= 10 


144 - nie 


! (.44 - nie 




nr, - 16-bitowa liczba bez znaku 


3.4. Porównywanie oajtowych tekstów zngioych 


porównywanie tekstów znakowych, zapisanych w koiórkach począwszy od 
adresów ADR1 i ADR2 


ADR} > ADR2 LD DE. ADR 1 

ADR1 < ADR2 LD DE, ADR 1 

LD HL,ADP2 

LD HL, ADP2 

LD B,n 

LD B,n 

PI: LD A, (DE) 

PI: LD A, (DE) 

CP (HL) 

CP (HL) 

JR NZ.P.2 

JP NZ.P2 

INC DE 

INC DE 

INC HL 

INC HL 

DJNZ PI 

DJNZ PI 

JR NIE 

JR NIE 

P2: JR C.NIE 

P2: Jfr C, TAK 

TAK: ... 

NIE: ... 

p = 18 

p = 19 

ADR) >= ADR2 LD DE, ADR 1 

ADR! <= ADR2 LD DE, ADR 1 

LD HL.A0R2 

LD HL, ADR2 

LD B,n 

LD B.n 

PI: LD A, (DE) 

PI: LD A, (DE) 

CP (HL) 

CP (HL) 

JR NZ.P2 

JR NZ, P2 

INC DE 

INC DE 

INC HL 

INC HL 

DJNZ PI 

DJNZ PI 

TAK: ... 

TAK: ... 

P2: JR NC, TAK 

P2: JR C, TAK 

NIE: ... 

NIE: ... 

p = 17 

p = 17 

ADR1 = ADR2 LD DE, ADR 1 

ADR) f ADR2 LD DE, ADR! 

LD HL.ADR2 

LD HL,ADR2 

LD B,n 

LD B,n 

PI: LD A, (DE) 

PI: LD A, (DE) 

CP (HL) 

CP (HL) 

JR NZ.NIE 

JR NZ, TAK 

INC DE 

INC DE 

INC HL 

INC HL 

DJNZ PI 

DJNZ PI 

TAK: ... 

NIE: ... 

p = 15 

p = 15 


(0 <= n <= 255 > 

dla n=0 porównywane s? teksty o długości 256 znaków 
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czasy przebiegu operacji porównywania n-bajtoMych tekstów 
znakowych dla przypadków spełnienia i nie spełnienia warunków 




tak 




nie 


i 





ADR1 

i 




i 

t 

461 k + 

14 



t ■ 46lk 

♦ 19 

gdy 

ADR1 

ADR2 S 






t * 46ln 

+ 34 

gdy 

A0R1 

ADR2 ! 





ADR1 

ADR2 




! 

t 

46«k + 

19 



t * 46lk 

+ 14 

gdy 

ADR1 

ADR2 1 






t = <6ln 

♦ 34 

gdy 

ADR1 

ADR2 i 





ADR1 

= ADR2 




i 

t 

461 k + 

19 gdy 

ADR1 

> ADR2 

t = 461 k 

+ 19 



, 1 

t 

46tn ♦ 

22 gdy 

ADR1 

= ADR2 





S 





ADR1 

= ADP2 




■ 

t 

46tk + 

Ił gdy 

■ADR1 

< ADR2 

t = 46lk 

♦ 19 



; 

t 

46ln ♦ 

22 gdy 

ADR1 

= ADR2 





* 


I— 


ADR1 = ADR2 

t * 461n + 22 ! t = 46»k ♦ 7 

ADR! « ADR 2 

t = 46tk + 7 1 t = 46ln + 22 


k - liczba porównań znaków (1 <s k <* n) 


4 C9CPO06M*!''. nncpii;’- ; T ^IE 

Operacje wykonywane na elementacn stosu muszę być poprzedzone 
ustalenie* wartości początkowej rejestru wskaźnika stosu - SP. Dla 
n-bajtwego obszaru stosu, rozpoczynającego się od symbolicznego 
adresu STOS, realizowane jest to rozkazem: 


LD SP,ST0S+n 
t = 10, p = 3 


n-bajtowy 
obszar ■* 
stosu 


STOS+łn-U 

STOS+n 


4.1. Wvwc/-«9"ie podprogramów 


wywołanie . powrót z podprogram 


-RET 


t = 27, p = 4 


wywołanie warunkowe i powrót z podprogramu (w = (C, H, NC, NZ, 
P, PE, PO, Z>> 


CALL w,PP0D 


-RET 


t = 27, p • 4 

wywołanie podprogramu przy użyciu rozkazu <RST *>, umieszczo- 
nego w pamięci o adresie - a (a ■ (0, B, 16, 24, 32, 40, 4B, 
561 ) 


RST a - 


t = 21, p = 2 


wywołanie i powrót z podprogramu z zapamiętaniem zawartości 
rejestrów roboczych na stosie 


► PPOD: PUSH AF 
PUSH BC 
PUSH DE 
PUSH HL 


POP HL 
POP DE 
POP BC 
POP AF 
-RET 


t = 111, p = 12 

wywołanie i powrót z podprogramu z zapamiętaniem zawartości 
rejestrów roboczych w rejestrach pomocniczych 


CALL PPOD— 


t = 43, p = B 


►PPOD: EXX 

Eł AF,AF* 


EX AF,AF* 
EXX 
-RET 



4.2, Przekazywanie paraaetrflw do podprogramu 

Przedstawione poniżej eetody zilustrowano dla przypadku 
przekazywania paraeetru jednobajtowego (PARS) i dwubajtowego 
(PAR1Ó>. Pierwszy przesyłany jest do rejestru A, drugi do pary 
rejestrOw DE. 


PARS 

PAR16 


przekazywanie paraeetrfiw poprzez wspfilny obszar paeipci 
CALL PPOD 

►PPOD: . 


LD A, (PARS) 

LD DE, IPAR16) 


-RET 


t = 60, p = 11 

przekazywanie paraaetrćw poprzez podanie adresu ich poczptku w 
rejestrach HL 


LD Hl,PAP8 
CALL PPOD 


t * 70, p = 12 


LD A, (HL) 
INC HL 
LD E, (HL) 
INC HL 
LD D, (HL) 


przekazywanie paraeetrćw poprzez rejestry 


LD A, (PARS) 

LD DE, (PAR16) 
CALL PPOD 


-RET 


t = fcO, p = 11 


przekazywanie paraeetrfiw za rozkazea CALL przy użyciu pary 
rejestrów HL 


CALL PPOD— 
DEFB 10 
DEFN 2345 


►PPOD: 


t = 104, p = 12 


LD 


POP HL 
LD A, (HL) 
INC HL 
E, (HL) 
INC HL 
LD D, (HU 
INC HL 
P(JSH HL 


-RET 


przekazywanie paraectrdw za rozkazea CALL przy użyciu rejestru 
indeksowego IX lub IY (xy) 


CALL PPOD- 
DEFF »0 
DEFN 2345 


LfPODi l-»pf 


POP xy 

EX (SP),xy 

LD A, (xy) 

LD A, (xy) 

LD E,(xy*l) 

INC xy 

LD D,(xy+2) 

LD E, (xy) 

LD BC,3 

INC xy 

ADD xy,BC 

LD D,(xy) 

PUSH xy 

INC xy 


EX (SP),xy 

RET 

RET 

138, p = 22 

t « ISO, p = 23 


przekazywanie paraeetrflw poprzez stos 


LD BC, (PAR8-1 ) 
PUSH BC 

LD BC, (PARlfc) 
PUSH.BC 

CALL PPOD 


►PPOD: 


POP BC 
POP DE 
POP AF 
PUSH BC 


t = 120, p * 17 


5. KONWERSJE POL DANYCH 

5.1. Liczby binarne i znakowe w kodzie BCD 

konwersja 1-bajtowej liczby binarnej bez znaku (ADR1) na 
2-bajtow? liczby w kodzie BCD (ADR2) 


Pli 


LD 

A, (ADR1) 

LD 

C,-l 

INC 

C 

SUB 

100 

JR 

NC,P 

ADD 

A, 100 

LD 

H,A 

LD 

A,C 

LD 

(ADR2+1 ł f A 

LD 

A,H 

LD 

c,-i 

INC 

c 

SUB 

10 

JR 

NC,P1 

ADD 

A, 10 



{obliczanie 
; setek 


{obliczanie 

{dziesiątek 
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LD H,A 


LD A,C 


RLCA 

(przesuwanie dziesiytek 

RLCA 

(na 4 bardziej znaczyce 

RLCA 

(pozycje 

RLCA 


DR H 

(dołyczanie jednoici 

LD (ADR2>,A 



t *.-231(5 ♦ d) ♦ 143, p * 37 
s - liczba setek (O <= i <= 2ł 
d - liczba dziesiytek (O <* d <* 9) 

konwersja 1-bajtoweJ liczby bez znaku w kodzie BCD (ADRII na 
1-bijtowy liczby binarny IADR2) 



POP DE 
4R P 

Pil LD (ADR2),HL 
t * 733, p ■ 34 

A. OPERACJE NA POLACH BINARNYCH 


Operacje na polach binarnych wykonywane sy przy ufyciu specjalnie 
do tego celu przeznaczonych rozkazflw (SET, RES, BIT), rozkaz de 
logicznych (OR, AND, KOR, CPL), oraz licznej grupy rozkazdw przesu- 
wania. 


UJJJJJJJ 

76543210 

Oznaczenie pozycji binarnych bajtu 
6.1. Wprowadzanie określonych wartoSci na pozycje binarne koedrki 


wprowadzanie "1" i '0* na b-tp pozycję binarny 
(b*(0,!,...,7» 


LD A, (ADR1) 
LD B,A 
AND ltllÓOOOB 
RRCA 
LD C,A 
RRCA 
RRCA 
ADD A,C 
LD C,A 
LD A,B 
AND 00001 11 IB 
ADD A,C 
LD (ADP2),A 


(wycięcie dziesiytek 
(dziesiytkit8 

/ 

ydziesiptki 12 
(dziesiytkitlBł2) 


(wycięcie jednofici 


t = 76, p = 19 

S.2. Liczby binarne i znakowe w kodzie ASCII 


konwersja 3-eio znakowej liczby dziesiętnej w kodzie ASCII (ADR1) 
na 16-bitowy liczby binarny (ADR2) 

Najbardziej 

.0 E__ J 1 znaczyca 



r^-ó-e 


LD DE,ADR1 
LD HL,0 
LD B, 5 
P: LD A, (DE) 

SUB *0* 

PtiSH BC 
LD C,A 
LD B,0 
ADD HL.BC 
INC DE 
POP BC 
DEC B 
JR Z,P1 
PUSH DE 


; dodanie kolejnej 
jcyfry 


ł 
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ADD HL,HL 
ID E,L 
LD D,H 
ADD HL.HL 
ADD HL,HL 
ADD HL,DE 


•nołenie przez 10 
I HLI2 


; HLM 
5 HLIB 
| HLK8+2) 


wprowadzenie *1* 

LD HL,ADR 
SET b, (HL) 

t = 25, p = 5 


wprowadzenie *0* 

LD HL, ADR 
RES b, (HL) 

t = 25, p = 5 


wprowadzanie T na okreSIone pozycje binarne z pozostawienie* 
bez z*iany pozostałych pozycji (przykładowo wprowadzono "l* 
na pozycje nr 2, 1 i 0) 


zawartość koedrki 

LD A, (ADR) przed wykonani ee operacji i 01111001 

OR 000001 11 B 

LD (ADR), A po wykonaniu operacji: 01111111 

t = 33, p = B 


LD HL,ADR 
SET 2, 'HL) 

SET 1, (HL) 

SET 0, (HL) 

t « 55, p = 9 

wprowadzanie *0* na okreSIone pozycje binarne z pozostawienie* 
bez z*iany pozostałych pozycji (przykładowo wprowadzono "O* 
na pozycje nr 2, 1 i 0) 

zawartość koadrki 

LD A, (ADR) przed wykonanie* operacji i 11141011 

AND lllllOOOfi 

LD (ADR) po wykonaniu operacji a 11101000 

t * 33, p = 8 


LD HL.ADR 
RES 2, (HL) 
RES 1, (HL) 
RES 0, (HL) 

t * 55, p « 9 


zawiana na wartofd przeciwny (z *1* na a O a a z *0" na a l a ) 
określonych pozycji binarnych z pozostawienie* bez ziiany 
pozostałych pozycji (przykładowo zaaieniono wartoici pozycji nr 
2, 1 i 0) 



zawartość koifirki 

LD A, (ADR) przed wykonanie* operacji: 11101011 

KOR 000001118 

LD (ADR), A po wykonaniu operacji: 11101100 

t * 33, p = 8 


6.2. Przesiania określonych pozycji binarnych \ 


przesianie okreilonych .pozycji koifirki do rejestru A z 
prawostronny* przesunięcie* (przykładowo przesłano pozycje nr 
7, 6 i 3) 


LD A, (ADR) 
AM 11 100000B 
SRL A 
SRL A 
SRL A 
SRL A 
SRL A 



t*W,p *13 


LD A, (ADR) 

AID i 11000008 

RLCA 

ALCA 

RLCA 


t * 32, p * 8 

przesłanie określonych pozycji binarnych jednej koifirki (ADR1) 
na te sase pozycje drugiej koiórki (AQR2) z pozostawieniee bez 
ziiany pozostałych pozycji (przykładowo przesłano pozycje nr 5, 
4 i 3) 


LD A, (ADR1) 
AND 00111000B 
LD B,A 
LD A, (ADR2) 
DR B 

LD (ADR2),A 
t = 34, p = 13 


! ADR2 


6.3. Badanie wartości określonych pozycji binarnych 

badanie wystąpienia *1* i *0* na określonej pozycji binarnej 
koifirki 


przykładowo badana jest pozycja nr 0 

LD 

A, (ADR) 

LD A, (ADR) 

AND 

00000001B 

AND 00000001B 

JR 

NZ,TAK 

JR Z, TAK 

NIE: ... 


NIE: ... 


fJ2- 

tak 

• 

‘ H 

P ■ 7 


127 - 

nie 


b={0,l,...,7> 


badanie wystąpienia "l* na określonych pozycjach binarnych 
koifirki (przykładowo badane są pozycje nr 2, 1 i 0) 


LD 

A, (ADR) 

AND 

0000011 IB 

KOP 

0000011 IB 

JR 

Z, TAK 

NIE: ... 


[3Y- 

tak 

H 

,p = 9 

134 - 

nie 

LD 

A, (ADR) 

BIT 

2, 'A 

JR 

Z, NIE 

BIT 

M 

JR 

Z, NIE 

BIT 

0,A 

JR 

NZ.TAK 

NIEi ... 


[63 - 

tak 

t* 


133, 4 

18, 58 - nie 


badanie wystąpienia "0" na określonych pozycjach binarnych 
koifirki (przykładowo badane są pozycje nr 2, li 0) 

LD A, (ADR) 

AND 000001118 
JR Z, TAK 
NIEi ... 

I 

1 32 - tak > 

, p « 7 

27 - nie 


! (b) = 

■r? i 

(fa) = 

•O*? ■ 

1 LD 

A, (ADR) ! 

! LD 

A, (ADR) 1 

1 BIT 

b,A ! 

BIT 

b,A ! 

! JR 

NZ,TAK ! 

JR 

Z, TAK 1 

! NIE: ... 


i NIE: ... 

■ i 

1 

F~- 

tak 

j 

! 

t M 

. p ■ 7 

1 

! 

l28 - 

nie 

1 

: ld 

HŁ, ADR ! 

! LD 

HL, ADR i 

: bit 

b, (HL) 

! BIT 

b, (HL) i 

1 JR 

NZ, TAK 

: JR 

Z, TAK 

: niei ... 


! NIE: ... 

1 


f3ł- 

tak 

; 

[ 


i P * 7 

! 

1 

129 - 

nie 

: 


LD A, (ADR) 
BIT 2, A 
JR NZ.NIE 
BIT 1,A 
JR- NZ,NIE 
BIT 0,A 
JR Z, TAK 


(63 - tak 

t s 1 . P - »5 

[33, 4B, 5B - nic 

6.4. Przesuwanie pozycji binarnych 
Oznaczenia: 

CY - wskafnik przeniesienia 
bzb - bardziej znaczący bajt 
izb - eniej znaczący bajt 
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6.4.1. Przesuwanie cykliczne w 1 >no 1 w priwo (o jednp pozycjf) wi»l- 
koici B-bitowej 

^ I t 

.-iiWfwJ Lwwtin-, 


CY 7 6 3 4 3 2 1 0 
przesuwanie w lewo 

przesuwanie zawartości akuiulatora 

RLCA 


7 6 3 4 3 2 1 0 CY 
przesuwanie w prawo 


RPCA 


t * 4, p * 1 

przesuwanie zawartości rejestru A, 0, C, D, E, H lufa L (r) 

RLC r \ PPC r 

t ■ 8, p « 2 

przesuwanie zawartości koafirki (ADR) przy utyciu pary rejestrów 
HL 


LD HL.ADfi 
RLC (HL) 


t = 25, p * 5 


LD HL.ADP 
RRC (HI) 


przesuwanie zawartości koefirki (ADR) przy utyciu rejestru IX 
lub IV (xy) 


LD xy, ADR 
RLC (xy) 


t = 37, p = B 


LD xy,ADR 
RRC (xy) 


6.4.2. Przesuwanie cykliczne w lewo i w prawo z przeniesienie* 
(o jednp pozycjf) wielkości B-bitowej 




CY 7 6 5 4 3 2 1 0 
przesuwanie w lewo 


7 6 5 4 3 2 1 0 CY 
przesuwanie w prawo 


przesuwanie zawartości akuiulatora 

RLA RRA 

t * 4, p = 1 

przesuwanie zawartości rejestru A, B, C, D, E, H lub L (r) 
RL r RR r 

t = e, p = 2 


przesuwanie zawartości koidrki (ADR) przy utyciu pary rejestrów 
HL 


LD HL, ADR 
RL (HL) 


LD HL,ADR 
RR (HL) 


t = 25, p = 5 


przesuwanie zawartości koeórki (ADR) przy utyciu rejestru IX 
lub IY (xy) 


LD xy,ADP 
RL (xy) 


t ■ 37 f -p >8 


LD xy,ADR 
RR (iy) 


6.4.3. Przesuwanie logiczne w lewo i w prawo <ę jedni pozycjf) wiel- 
kości 8-bitowej 

- ... 

: _ — 0 “ 0 ' — 

CY 76343210 765 43210 CY 

przesuwanie w lewo przesuwanie w prawo 

przesuwanie zawartości akuiulatora 

ADD A 

t • ■ i 

przesuwanie zawartości rejestru A, 0, C, D, E, H lub L »r) 

SLA r SPL r 

t = 8, p = 2 


przesuwanie zawartości koeórki 'ADR) przy utyciu pary rejestrów 
HL 


LD HL,ADR 
SLA 1HL) 


LD HL^ADR 
SRL 'HL) 


t = 25, p = 5 


przesuwanie zawartości konórki 'ADR* przy utyciu rejestru IX 
lub IY (xy) 


LD xv, ADR 
SLA (xy) 


LD xy,ADR 
SRL (xy) 


t = 3'’, p * ! 


6.4.4. Przesuwanie aryt*etyczne w lewo i w prawo 'o jed"| pozvcjp) 
wielkości B-bitowej 


7 6 5 4 3 2 1 Ó CV 
przesuwane w r r iwo 


CY 7 6 5 4 3 2 1 0 
przesuwanie w lewo 


przesuwanie zawartości rejestru A, B, C, D, E, M lub L (r> 

SLA r SRA r 

t = B, p = 2 


przesuwanie zawartości koaórti 'ADR) przy utyciu pary rejestrów 
HL 


LD HL, AD) 
SLA (HL) 


LD HL , ADR 
SRA f HL) 


t = 25, p = 5 


przesuwanie zawartości koafirki 'ADR) przy utyciu rejestru IX 
lub IY (wy) 


LD xy,ADR 
SLA (xy) 


t = 37, p = B 


LD xy,ADR 
SRA (xy) 


6.4.3. Przesuwanie logiczne w lewo i w prawo (o jednp pozycjf) wiel- 
kości 16-bitowej 


- *VVW WA AWIW 

CY 7 6 5 4 3 2 1 0 76543210 

bzb *zb 

przesuwanie w lew 
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74513210 74543210 CV 

t>zb izb 

przesuianie n prawo 


przesuwani! zawartości rejestrów HL 
ADD HL,HL 
t s M, P = i 


SRL H 
RR L 


t = 16, 4 

przesuwanie zawartości rejestru IX lub IY (xy) 

APD xy,xy 
t = 15 p = 2 

przesuwanie zawartości pary rejestrów BC, DE, HL (rb = (B, D, 
H>, ri = CC, E, L» 


SLA ra 
RL rb 


SRL rb 
RR ra 


t = 16, p = 4 


przesuwanie zawartości 2 koiórek (ADR i 

ADRłl) 

przy użyciu pary 

rejestrów HL i 

i rejestru IX lub IY (xy) 



LD HL , ADP 


LD 

ADRM 

SLA (HL) 


SRL 

(HL) 

INC HL 


DEC 

HL 

RL (HL) 

t = 46, p * 8 

RR 

(HL) 

LD xy, ADR 


LD 

xy,ADR 

SLA (xy) 


SRL 

(xy*il 

RL (xyłll 

t = 60, p * 12 

RR 

(xy) 


f. OPERACJĘ APYTHEtyctne 

Ze względu na brak w aikroprocesorze ZSC rozkazów ancżenia i 
dzielenia, operacje te wykonywane s * przy użyciu rozkazów doda- 
wania, odejaowania i przesuwania. 


7.1.;. lutowanie liczb binarnych 
dodawanie liczb 1-bajtowych 


LD 

A, (ADR1) 

LD 

HL,ADR2 

ADD 

A, (HL) 

LD 

(ADR3),A 

t = 

43, p = 10 

LD 

A, (ADR1) 

LD 

B, A 

LD 

A, (ADR2) 

ADD 

A,B 

LD 

(ADR3),A 

t = 

47, P = ii 

* 




ADR1 
ADR 2 


ADR3 


jrejestrów HL 


dodawanie liczb 2-bajtowych 


dodawanie liczb 4-bajtowych 


HL, (ADRII ; ADR3: -ADP 1 +ADR2 
BC, (ADR2) 


LD 
LD 

ADD HL, BC 
LD (ADR3),HL 
LD HL, (ADR1+2) 
LD BC, (ADR2+2) 
ADC ML, BC 
LD IADR3+2),HL 


LD 

A, (ADR1) ■ ;ADR3:=ADRltADR2 



LD 

HL,ADR2 f 


ADRI 

ADD 

a, ihl) r \ 



LD 

(ADR3) , A UT 


ADR 2 

LD 

A, IADR1+1) ( + 1 



DEC 

HL T__J 


ADR3 

ADC 

A, (HL) l 



LD 

(ADR3H),A 



t = 

82, p = IB 



LD 

HL, (ADRI) ;ADR3:=ADRlłADR2 



LD 

BC, (ADR2) 



ADD 

HL,BC 



LD 

(ADP3),HL 



t = 

63, p = 11 





t = 130, p = 23 


dodawanie liczb n-bajtowych 

LD HL,ADR1 ;ADRl:=ADR2tADRl 
LD DE, ADR2 
LD 8,n 
AND A 

Ri LD A, (DE) 

ADC A, (HL) 

LD <HL),A 
INC HL 
INC DE 
DJNZ P 

t = 46tn ♦ 29, p = 17 
Cl <= n <= 255) 


7.1.2. Dodawanie liczb w kodzie BCD 

dodawanie liczb 1-bajtowych bez znaku 


ADR1 



ADRlł(n-l) 

ADP2 


LD A, (ADRII ;ADR3t=ADRl+ADR2 
LD HL.ADR2 
ADD A, (HL) 

DAA 

LD IADR3),A 
t = 47, p ~ 1! 




ADR1 

ADR2 
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dzielenie liczby ze znakiea m rejestrze A przez 2 

Dla n-eleaentOMej tablicy liczba porównań k zależy od 

SRA A |A:*A/2 

aktualnego położenia szukanego eleaentu. N najbardziej 
korzystny* przypadku k ■ 1, a najbardziej nlekorzystnya k ■ n. 

t * 8, p * 2 

Zakładając, że położenie poszukiwanego eleaentu w tablicy 
podlega równoaierneeu rozkładowi prawdopodobieństwa, Irednio 

dzielenie liczby 2-bajtoweJ bez znaku przez 2 
LD xy,ADR ;ADRi«ADR/2 

należy przeprowadzić (n ♦ l)/2 porównań. 
Przeglpdanie przy użyciu rozkazu CP1 

SRL (xy*l) 
RR <xy> 

LD A, (SZUKAJ) 

t a 40, p * 12 

LD HL, ADR 
LD 8C,n 

dzielenie liczby 2-bajtawej ze znakiee przez 2 

Pi CP1 

JR Z, JEST 

LD xy,ADR ;ADRi*ADR/2 

JP PE,P 

8RAK i S'"' — n« — v — . 

SRA (xytl) 

.z'' brak szukanego f j 

RR lxy) 

V-. eleaentu J 

t * 40, p * 12 

-i^THLad reP^ 

dzielenie liczby 2-bajtoMej przez liczbf 1-bajtowjl 

("szukanego eleaentu S 


; ADR3i=ADRl/ADR2 


ADR1 


ADR2 

ADR3 


LD HL, (ADRII 
LD A, (ADR2) 

LD C,A 
LD 8,8 
Pi ADD HL , HL 
LD A.N 
SUB C 
JR C,P! 

LD H, A 
INC L 
PI: DJNZ P 
LD A,L 
LD (ADR3),A 
r^TesztTT^zT^ 

C w rejestrze H 

^ 

t = 452, p = 14 


OPERACJE W TEPLICACH 

Oznaczenia: 

n - liczba eleaentflw tablicy 
k - liczba porównań w tablicy 

E.l. $ei»enc r jne przeglądarce tablic/ 

8.1.1. Przeglądanie tablicy zbudowanej z eleaent ów 1-bajtowych 

Przeglądanie przy użyciu rozkazu CPIR 


SZUKAJ 

ADR 



21 Ik f 40 - znaleziono szukany eleaent 
t * » P * 13 

2i!n ♦ 49 - brak azukanego eleaentu 
(1 <• k <* n) 

(1 <* n <* 655351 


33tk ♦ 26 - znaleziono szukany eleaent 
t - , p - 16 

33tn ♦ 2B - brak azukanego eleaentu 
(1 <• k <■ n) 

(1 <* n <« 45535) 


Przeglądanie przy użyciu rozkazu CP (HL) 

LD A, (SZUKAJ) 

LD HL.ADR 
LD B,n 
Pi CP (HL) 

JR Z, JEST 
INC HL 

DMP 

jHJraFszukanego V 
V eleaentu J 

n HL adres 
szukanego eleaentu 

33lk ♦ 16 - znaleziono szukany eleaent 
t = , p * 13 

33!n ♦ 25 - brak szukanego eleaentu 
(1 <* k <* n) 

(1 <* n <= 255) 

8.1.2. Przeglądanie tablicy zbudowanej z eleaent Cw 2-bajt owych 


PI: 


LD 

A, (SZUKAJ) 



LD 

HL, ADR 

s — f' 

SZUKAJ 

LD 

B,n 

(JTv ~ - 


CP 

(HL) 

YM 1 ---- 

ADR 

JR 

Z.P2 

I li 


INC 

HL 

! . 


INC 

HL 



DJNZ 

PI 



JR 

SRAK 

L 1 — rizz 

ADR*2t(n 

LD 

A, (SZUKAJ+l) 



INC 

HL 

! 


LD 

D, (HL) 


CP 

D 


JR 

Z, JEST 


INC 

HL 


LD 

A, (SZUKAJ) 


DJNZ 

PI 
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'brak szukanego 
fltaentu 

HL adres do drugiego 
bajtu szukanego eleaentu 

t - 39lk ♦ 491 a ♦ 13, p =» 31 
(1 <* n <* 255) 

a - liczba eleaentów tablicy, których pierwszy bajt jest 
identyczny z pierwszyi bajtea poszukiwanego eleaentu, a 
drugie sy różne (0 <= a <» n) 

Binarne llogar r ta;czne) przeglądanie tablicy zbudowanej i 


eleaen*6w 1-bajtowych 

Harunkiea stosowania przeglądania binarnego jest uporządkowanie 
eleaentdw tablicy wg wartoSci wzrastających. Metoda ta polega na 
porównywaniu poszukiwanej wartoSci ze Srodkowya eleaentei tablicy 
i jeżeli nie sy to te saae wartoSci, podobszar dalszego przeszu- 
kiwania jest ograniczony do górnej lub dolnej połowy obszaru 
tablicy, wyznaczonej przez eleaent Środkowy. Z kolei w połowie 
tej badany jest jej eleaent Środkowy i znowu, jeżeli warunek 
porównywania nie jest spełniony, to podobszar przeszukiwania 
zaniejsza sif o połowy. Operacja ta Jest powtarzana, aż do 
znalezienia poszukiwanego eleaentu lub stwierdzenia jego braku w 
tablicy. 


SZUKAJ 

ADR 



Pil 


P2i 


LD 

HL, ADR 


LD 

£,L 

;DE:=ADR 

LD 

D,H 


LD 

BC, n-1 


ADD 

HL,HC 

;HL:=ADRł(n-l) 

LD 

A, (SZUKAJ) 


LD 

Cf A 


PUSH 

HL 


ADD 

HL, DE 

jHL:=(HL*DE)/2 

RR 

H 

;dzielenie lłibitowej 

RR 

L 

; liczby przez 2 

LD 

A, (HL) 

(sprawdź eleaent Środkowy 

CP 

C 


JR 

NC,P1 


EX 

DE, HL 

(dolna podtablica 

INC 

DE 


PDP 

HL 


JR 

P2 


INC 

SP 


INC 

SP 


JR 

Z, JEST 


DEC 

HL 

(górna podtablica 

LD 

A,L 

;DE > HL gdy brak eleaentu 

CP 

E 


LD 

A,H 


SBC 

A, D 


JR 

NC,P 




t « U3»k ♦ 23, p » 41 
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Naksyaalna liczba porównań w tablicy wynosił 

t 

k 3 !_ log n ! *1 
2 

Gdy brak poszukiwanego eleaentu: 

k * Mog n.l ♦ 2 
2 

Zakładając, Ze położenie poszukiwanego elepentu w tablicy podlega 
równoaierneau rozkładowi prawdopodobieństwa, Średnia liczba 
porównań wynosi C 6 li 
1*1 

k ■ q + 1 - (2 - q - 2)/n 

gdziei 

q * !_ log nj 

I 2 

S_r_! - oznaczenie czySci całkowitej liczby r 

Poniżej zestawiono wykresy ilustrujące zależność Średniego i 
aaksyaalnego czasu przeglądu binarnego od rozaiarów tablicy. Cechy 
charakterystyczny jest stosunkowo aała różnica poaiydzy czasea 
■aksyaalnya i Średnia. 



Kolejne wykresy przedstawiaj* zestawienie charakterystyk 
chronoaetrażowych przeglydu sekwencyjnego (przy użyciu rozkazu 
CP1R) i binarnego. Mykazujy one, że dla tablic o niewielkich 
rozaiarch (do 50 eleaentdw) lepiej jest stosować przeglyd 
sekwencyjny, oraz wzrost przewagi przeglydu binarnego ze wzrostea 
rozaiarów tablicy. 



6.3. Wyszukiwanie z lablicy eleaentu o wartoSci awuaalnej i 
aaksyaalnej 


ADR 


wyszukiwanie wartoSci 
•iniaalnej 




LD HL, ADR 

LD (DE), A 

ID I.K 

LD C,l 

LD A, (HL) 

P2i INC HL 

LD E,l 

INC DE 

LD D,H 

DJNZ PI 

DEC F 

1 

JR Z,P2 

DEC C 

1KC HL 

JR Z,P 

CP (HL) 


JR C,F1 (A < (HL) 

p - 27, (2 <* n <* 


pn 


/w HL~adres eleaentu 
\o wartości aini walnej 


|była zMitna I 


I czy była zaeiina? 


« 233) 


Czas wykonania operacji aortowania w znacznya stopniu zależy od 
początkowego ułożenia eleaentów tablicy. U najbardziej korzyatnya 
wypadku, gdy przy pierwszya przeglądnięciu tablicy nie występiła 
żadna zaaiana (czyli eleaenty tablicy były już posortowane) czai 
ten wynosi: 


t = 3? In ♦ 26152 ♦ 52, p = 20 

a - ltczba przypadków, gdy kolejny eleaent tablicy aa wartość 
eniejszę od wartości najaniejszej z dotychczas znalezionych 
(1 <* a <= n), (2 <* n <* 255) 
wyszukiwanie wartości aaksyaalnej 



LD 

HL, ADR 



LD 

B.n 


P: 

LD 

A, (HL) 



LD 

E.L 



LD 

D,K 


PI: 

DEC 

B 



JR 

Z,P2 



INC 

HL 



CP 

(HL) 



JR 

NC,P1 

; A >= (HL) 


JR 

P 

;A < (HL) 

P2: 

EJ 

DE.HL 



w HL adres eleaentu \ 


o wartości aaksyaalnej J 

t = 

36tn ♦ 22la * 40, p = 18 


a - liczba przypadków, gdy kolejny eleaent tablicy aa wartość 
większę od wartości największej z dotychczas znalezionych 
(1 <= a <= n>, (2 <= n <= 255) 

E.4. 5ortowar;e eleaentów tablicy 

Sortowanie tablicy (zbudowanej z eleaentów 1-bajtowych) aetodę 
zaaiany sęśiednich eleaentów. 

Metoda ta polega na zasadzie porównywania i zawiany par sąsiadu- 
jących ze sobę eleaentów tablicy tak długo, aż wszystkie zostanę 
posortowane, ha poczętku pierwszy eleaent tablicy jest porówny- 
wany z drugi! i zaaieniany z nil w razie potrzeby. Potei drugi z 
trzecia, trzeci z czwarty! i tak aż do końca tablicy. N razie 
wystąpienia co najaniej jednej zaaiany, cała ta operacja jest 
powtarzana od poczętku tablicy. Brak zawiany oznacza koniec sor- 
towania. 


P: LD HL, ADR 

LD DE, ADR* 1 
LD B, n-1 
LD C,0 

! 

PI: LD A, (DE) 

CP (HL) 

„ JR NC,P2 

} 

LD C, (HL) 
LD (HL), A 
LD A,C 


CX:::i 


;porównanie 2 kolejnych 
; eleaentów 


;zaiiana sąsiednich 
{eleaentów 


t = n!46 - 4 


H najbardziej niekorzystny! przypadku, gdy eleaenty tablicy sę 
uporządkowane odwrotnie, tzn. od wartości największej do 
najaniejszej czas sortowania wynosił 
2 

t * n 152 ♦ n*26 

DODATEK I. 

ZESTAWIENIE ROZKAZOM MIKROPROCESORA ZOO 



t 

P ■ 

2 HHz 

3.5 HHz 4 HHz 


ADC A,n 

7 

2 : 

3.5 

2 

1.8 n 

wielkość 8-bitowa 

ADC A,r 

4 

i : 

2 

1.1 

1 

rs(A,B,C,D,E,H,L) 

ADC A, (HL) 

7 

i : 

3.5 

2 

1.8 


ADC A, (xy*d) 

19 

3 i 

9.5 

5.4 . 

4.8 

*y=m,m 



! 



d 

- liczba 8-bitowa 



: 




ze znakiea 

ADC KL,rp 

15 

2 : 

7.5 

4.3 

3.8 

rp=(BC,OE,HL,SP> 

ADD A,n 

7 

2 : 

3.5 

2 

1.8 


ADD A,r 

4 

i : 

2 

1.1 

1 


ADD A, (HL) 

7 

i : 

3.5 

2 

1.8 


ADD A,(xy*d) 

19 

3 : 

9.5 

5.4 

4.8 


ADD HL,rp 

11 

i : 

5.5 

3.1 

2.8 

rp={8C,DE,HL,SP) 

ADD IX, rp 

15 

2 : 

7.5 

4.3 

3.8 

rp=<8C,DE,IJ,SP) 

ADD IY,rp 

15 

2 : 

7.5 

4.3 

3.8 

rp={8C,DE,IY,SP) 

AND n 

7 

2 ! 

3.5 

2 

1.8 


AND r 

4 

i : 

2 

1.1 

1 


AND (HL) 

7 

i i 

3.5 

2 

1.8 


AND (xyłd> 

19 

3 i 

9.5 

5.4 

4.B 


BIT b,r 

8 

2 : 

4 

2.3 

2 

b=<0,l,...,7> 

BIT b, (HL) 

12 

2 : 

6 

3.4 

3 


BIT b,(xy+d> 

20 

4 : 

10 

5.7 

5 


CALL nn 

17 

3 ! 

8.5 

4.9 

4.3 nn 

-wielkość 16-bitowa 

CALL C,nn 

10/17 

3 ! 

5/B.5 2. 9/4.9 2.5/4.? 


CALL N,nn 

10/17 

3 : 

5/8.5 2. 9/4. 9 2.S/4.3 


CALL NC,nn 

10/17 

3 : 

5/B.5 2. 9/4.9 2.5Z4.3 

nie-(IO/l7)-tak 

CALL NZ,nn 

10/17 

3 i 

5/8.5 2. 9/4. 9 2. 5/4. 3 


CALL P,nn 

10/17 

3 ! 

5/8.5 2.9M.9 2. 5/4. 3 


CALL PE,nn 

10/17 

3 ! 

5/8.5 2. 9/4. 9 Z. 5/4. 3 


CALL P0,nn 

10/17 

3 : 

5/8.5 2. 9/4. 9 2. 5/4. 3 


CALL Z,nn 

10/17 

3 : 

5/8.5 2.9/4. 9 2.S/4.3 


CCF 

4 

1 V 

2 

1.1 

1 


CP n 

7 

2 : 

3.5 

2 

1.8 


CP r - 

4 

i : 

2 

1.1 

1 


CP IHL) 

7 

i : 

3.5 

2 

1.8 


CP (xy*d) 

19 

3 : 

9.5 

5.4 

4.8 


CPD 

16 

2 

8 

4.6 

4 

8C*Q DR A= IHL) 

CPDR 

21/16 

2 : 

10.5/8 

6/4.6 5.3/4 

! 

CPI 

16 

2 : 

8 

4.6 

4 

(21/16) 

CPIR 

21/16 

2 : 

10.5/8 

6/4.6 5.3/4 

! 







BCiO AND Ał(HL) 

CPL 

4 

i i 

2 

1.1 

1 
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t 

P i 

2 HHz 

3.3 HHr 4 HHz 


: DRA 


4 

i : 

2 

1.1 

1 . 

! 

: DEC 

r 

4 

i : 

2 

1.1 

1 


: DEC 

(HL) 

11 

i : 

5.5 

3.1 

2.8 


: DEC 

(xy*d> 

23 

3 i 

11.5 

6.6 

5.8 


! DEC 

r P 

6 

i : 

3 

1.7 

1.5 

rp=( 8 C,DE,HL,SP} i 

: DEC 

xy 

10 

2 : 

5 

2.9 

2.5 

1 

i DI 


4 

i : 

2 

1.1 

1 


: djnz d 

13/8 

2 1 

6.3/4 

3. 7/2. 3 3.3/2 

810- (13/8) -8=0 ! 

i El 


4 

i 

2 

1.1 

1 


: ex 

AF.AF’ 

4 

i : 

2 

1.1 

1 

! 

: u 

DE, HI 

, 4 

i : 

2 

1.1 

1 

I 

: Ei 

<SP1,HL 

19 

1 ! 

9.5 

5.4 

4.8 


i El 

(SP),xy 

23 

2 ! 

11.5 

6.6 

5.8 


: e xx 


4 

i : 

2 

1.1 

1 


: HflLT 


4 

i i 

2 

1.1 

1 


! !H 

0 

8 

2 1 

4 

2.3 

2 


i IH 

1 

8 

2 : 

4 

2.3 

2 


: im 

2 

8 

2 1 

4 

2.3 

2 


i IN 

fi, (n) 

11 

1 i 

3.5 

3.1 

2.8 


: in 

r,IC> 

42 

2 i 

6 

3.4 

3 


: INC 

r 

4 

i : 

2 

1.1 

1 

! 

! INC 

(HU 

11 

i : 

3.5 

3.1 

2.8 

1 

! INC 

(Xy*d) 

23 

3 ! 

11.5 

6.6 

5.8 

I 

: inc 

rp 

6 

i : 

3 

1.7 

1.5 

rp*{BC,DE,HL,SP] 1 

: inc 

*y 

10 

2 : 

3 

2.9 

2.5 

1 

: ind 


13 

2 i 

7.3 

4.3 

3.8 

! 

: INDR 


20/15 

2 : 

10/7.5 

5. 7/4. 3 

5/3.8 

BI0- (20/15>-8=0 ! 

! INI 


15 

2 : 

7.5 

4.3 

3.8 

} 

i INIR 


20/15 

2 i 

10/7.5 

5. 7/4.3 

5/3.8 

S 

} JP 

nn 

10 

3 5 

5 

2.9 

2.5 

1 

: jp 

(HU 

4 

1 1 

2 

1.1 

1 

j 

! JP 

(«yi 

8 

2 1 

4 

2.3 

2 

I 

: jp 

C,nn 

10 

3 : 

3 

2.9 

2.5 

1 

! JP 

H,nn 

10 

3 ! 

5 

. 2 -’ 

2.5 

1 

1 Jp 

NC.nn 

10 

3 1 

5 

2.9 

2.5 

! 

! JP 

NJ.nn 

10 

3 : 

5 

2.9 

2.3 

I 

1 Jp 

P,nn 

10 

3 : 

5 

2.9 

2.5 

j 

! JP 

PE,nn 

10 

3 : 

3 

2.9 

2.5 

1 

1 JP 

PO,nn 

10 

3 : 

3 

2.9 

2.3 

1 

! JPr 

Z,nn 

10 

3 : 

5 

2.9 

2.3 

1 


: 


t 

p i 

2 HHz 

3.3 HHz 4 HHz 


: jr 

d 

12 

2 1 

6 

3.4 

3 

I 

: jr 

C,d 

7/12 

2 : 

3.5/6 

2/3.4 

1.8/3 

ni«-(7/12>-tak ! 

: jr 

NC.d 

7/12 

2 : 

3.5/6 

2/3.4 

1.8/3 


: jr 

NZ,d 

7/12 

2 : 

3.5/6 

2/3.4 

1.8/3 


; jr 

Z.d 

7/12 

2 : 

3.5/6 

2/3.4 

1.8/3 


i LD 

rl,r 2 

4 

i : 

2 

1.1 

1 rl=r2=(A,B,C,D,E,H,LH 

; ld 

r,n 

7 

2 1 

3.5 

2 

1.8 


! LD 

r,(HL» 

7 

i : 

3.5 

2 

1.8 

! 

: ld 

r,(xy+d) 

19 

3 : 

9.5 

5i4 

4.8 

1 

: ld 

(HL),n 

10 

2 i 

5 

2.9 . 

2.5 

! 

: ld 

(HL),r 

7 

i : 

3.5 

2 

1.8 

s 

: ld 

(xy+d),r 

19 

3 : 

9.5 

5.4 

4.8 

! 

: ld 

lxy+d),n 

19 

4 ! 

9.5 

5.4 

4.8 

i 

! LD 

fi, (rp) 

7 

i i 

3.5 

2 

1.8 

rp*{BC,DE) ! 

: ld 

fi, (nn) 

13 

3 : 

6.5 

3.7 

3.3 

! 

! LD 

(rp),fi 

7 

1 i 

3.5 

2 

1.8 

rp={BC,DE) ! 

: ld 

Inn), A 

13 

3 : 

6.5 

3.7 

3.3 

! 

: ld 

fi.I 

9 

2 ; 

4.5 

2.6 

2.3 

1 

: ld 

A,R 

9 

2 i 

4.5 

2.6 

2.3 

5 

i LD 

I.A 

9 

2 ! 

4.5 

2.6 

2.3 

! 

! LD 

R,A 

9 

2 i 

4.5 

- 2.6 

2.3 

. : 

: ld 

rp,nn 

10 

3 1 

5 

2.9 

2.5 

rp={ 8 C,DE,HL,SP> ! 

: ld' 

xy,nn 

14 

4 : 

7 

4 

3.3 

! 


: ld 

HL, (nn) 

16 

3 : 

8 

4.6 

4 

1 

i LD 

rp,(nn) 

20 

4 : 

10 

3.7 

3 

rp=(BC,OE,SP, l),m i 

; ld 

(nn) f HL 

16 

3 : 

8 

4.6 

4 

s 

! LD 

(nn),rp 

20 

4 ; 

10 

5.7 

5 

rp-(DC,DE,SP,II,m 1 

1 LD 

SP,HL 

.6 

1 : 

3 

1.7 

1.3 

! 

! LD 

SP,xy 

10 

2 : 

3 

2.9 

2.5 

1 

I LDD 


16 

2 1 

B 

4.6 

4 

ł 

! LDDR 


21/16 

2 : 

10.5/8 

6/4,6 5.3/4 

BC*0-C21/16)-8C*0 ! 

! LSI 


16 

2 ! 

8 

4.6 

4 

. ! 

i LDIR 


21/16 

2 1 

10.5/8 

6/4.6 5.3/4 

! 

i m 


8 

2 : 

4 

2.3 

2 


i NOP 


4 

1 1 

2 

1.1 

1 


: dr 

n 

7 

2- ! 

3.5 

2 

1.8 

1 

: dr 

r 

4 

1 : 

2 

1.1 

1 

i 

: dr 

(HL) 

7 

1 1 

3.5 

2 

1.8 

1 

1 DR 

(xy*d) 

19 

3 : 

9.5 

5.4 

4.8 

j 

: out 

(C),r 

12 

2 i 

6 

3.4 

3 

1 

; out 

(n) i fi 

11 

2 : 

5.5 

3.1 

2.8 

1 

! OUTI 


16 

2 i 

8 

4.6 

4 

1 

! DTIR 


21/16 

2 : 

10.5/8 

6/4.6 5.3/4 

BI0-(21/16J-B«O 1 

! OUTD 


16 

2 i 

8 

4.6 

4 

! 

! DIOR 


21/16 

2 1 

10.5/8 

6/4.6 5.3/4 

1 


■! 




t 

P 

2 HHz 

3.5 HHz 

4 HHz 


! PDP 

rp 

10 

1 

5 

2.9 

2.5 

rprC8C.PE.HL.AF) 

1 POP 

*y 

14 

2 

7 

4 - 

3.5 


: PUSH rp 

11 

1 

5.5 

3.1 

2.8 

rp=(BC,DE.HL.AF) 

! PUSH xy 

15 

2 

7.5 

4.3 

3.8 


! RES 

b,r 

8 

2 

4 

2.3 

2 


! RES 

b.(HL) 

15 

2 

7.5 

4.3 

3.8 


! RES 

b,(xyłd) 

23 

4 

11.5 

6.6 

5.8 


! RET 


10 

1 

5 

2.9 

2.5 


! RET 

C 

5/11 

1 

2. 5/5.5 

1. 4/3.1 

1. 3/2.8 

nie-C5/ll)-taP 

I RET 

N 

5/11 

1 

2. 5/5.5 

iMi.i 

1. 3/2.8 


! RET 

NC 

5/11 

1 

2. 5/5. 5 

1.4/3. 1 

1. 3/2.8 


! RET 

NZ 

5/11 

1 

2.5/5. 5 

1,4/3. 1 

1.3/2. 8 


! RET 

P 

5/11 

1 

2. 5/5.5 

1. 4/3.1 

1.3/2. 8 


: RET 

PE 

5/11 

I 

2. 5/5. 5 

1. 4/3.1 

1.3/2. 8 


! RET 

PO 

5/11 

1 

2.5/S.5 

1.4/3. 1 

1. 3/2.8 


1 RET 

Z 

5/11 

1 

2.5/5. 5 

1.4/3. 1 

1.3/2. 8 


! RETI 


14 

2 

7 

4 

3.5 


1 RETN 


14 

2 

7 

4 

3.5 


Ł RLCA 


4 

I 

2 

1.1 

1 


! RLA 


4 

1 

2 

1.1 

1 


J RRCfi 


4 

1 

2 

1.1 

1 


! RPA 


4 

1 

2 

1.1 

1 


! RLC 

r 

B 

2 

4 

2.3 

2 


1 RI.C 

(HU 

15 

2 

7.5 

4.3 

3.8 


! RLC 

(xy*d) 

23 

4 

11.5 

6.6 

5.8 


! RL 

r 

8 

2 

4 

2.3 

2 


! RL 

(HL) 

15 

2 

7.5 

4.3 

3.8 


! RL 

(xy*d) 

23 

4 

11.3 

6.6 

5.B 


: RRC 

r 

8 

2 

4 

2.3 

2 


! RRC 

(HL) 

15 

2 

7.5 

4.3 

3.B 


: RRC 

( x y+d ) 

23 

4 

11.5 

6.6 

5.8 


! RP 

r 

8 

2 

4 

2.3 

2 


! RR 

(HU 

15 

2 

7.5 

4.3 

3.8 


! RP 

(xy+d) 

23 

4 

11.5 

6.6 

5.8 


! RLD 


18 

2 

9 

5.1 

4.5 


{ RRD 


18 

2 

9 

5.1 

4.5 


: RST 

a 

11 

1 

5.5 

3.1 

2.8 

a=(0, 8, 16.24,32, 

! 







40,48,56) 

! SBC 

A,n 

7 

2 

3.5 

2 

1.8 

i 

!. SBC 

A,r 

4 

1 

2 

1.1 

1 


1 SBC 

A, (HL) 

7 

1 

3.5 

2 

1.8 


! SBC 

A, (xy+d) 

19 

3 

9.5 

5.4 

4.8 


: sbc 

Hl,rp 

15 

2 

7.5 

4.3 

3.8 

rp=lBC,DE,HL,SP) 


I 



1 SRA (xy*d) 

23 

4 : 

11.5 

6.6 

5.8 

: 

t 


2 HHl 

3.5 HHz 

4 HHz 

1 

! SRL r 

8 

2 : 

4 

2.3 

2 








: SRL (HU 

15 

2 1 

7.5 

4.3 

3.8 

! BCF 

4 

i : 

2 

1.1 

1 

1 

: SRL (ny+d) 

23 

4 : 

11.5 

6.6 

5.8 

! SET b,r 

8 

2 1 

4 

2.3 

2 

1 

i SUS n 

7 

2 1 

3.5 

2 

1.8 

: SET b. (HL> 

15 

2 : 

7.5 

4.3 

3.8 

! 

! SUB r 

4 

1 I 

2 

1.1 

1 

! SET b,(xy*d> 

23 

4 ! 

11.9 

6.6 

5.8 

i 

: SUB (HL) 

7 

i : 

3.5 

2 

1.8 








! SUB Uy+d) 

19 

3 1 

9.5 

5.4 

4.8 

i ELA r 

8 

2 ! 

4 

2.3 

2 


» 






1 SLA (HL> 

15 

2 : 

7.5 

4.3 

3.8 


1 KOR n 

7 

2 1 

3.5 

2 

1.8 

1 SLA <*y*d> 

23 

4 1 

11.5 

6.6 

5.8 

1 

1 X0R r 






! SRA r 

8 

2 : 

4 

2.3 

2 


1 X0R (HL) 

7 

i : 

3.5 

2 

1.8 

! SRA (KU 

15 

2 1 

7.5 

4.3 

3.8 

1 

! X0R (xy*d> 

19 

3 : 

9.5 

5.4 

4.8 


DODATEK II. 

TABELE SZESNASTKOWYCH KODOM ROZKAZÓW MIKROPROCESORA Z80 

Szesnastkowy kod określonego rozkazu jest wyznaczany przez suiowame 2-cyfrowej liczby szesnastkowej (od 00 do FO) 
określającej niers: w który* rozkaz jest zapisany z l-cyfrowy liczby szesnastkowy (od 0 do F) określajycy kolumny. 

Przykładowo, rozkaz CALL nn> zapisany w wierszu CO i kołuanie D tablicy 0. II. 1 identyfikowany jest szesnastkowy* kodę* 

CO ♦ D = CD. 

Oznaczenia przyjyte w tablicach sy analogiczne jak w dodatku I, oprócz różnic, które każdorazowo zaznaczono oraz innego 
zapisu arguient6w rozkazów RST. Arguaentaai sy liczby z zakresu od 0 do 7, wyznaczajyce odpowiednio adresy 0, 8, 16,... 56. 

W tablicach zamieszczono także kody rozkazów nie opublikowanych w oficjalnych aateriałach firey Zilog oraz przypadki 
interpretacji przez tikroprocesor różnych kodów jako ten sa* rozkaz (przykładowo liczba szesnastkowa 22 i dwie liczby 
szesnastkowe ED, 63 sy interpretowane jako kod rozkazu LD (nn),HL). Rozkazo* ty* nadano syaboliczne kody, ale me sy one 
akceptowane przez standardowe asemblery i disaseablery. W programach aożna je mieścić w postaci kodów liczbowych (w tablicacn 
D. 1 1.2. do D.II.5. zostały zaznaczone symbole* t). 

Pola z wpisany* oznaczenie* tablicy oznaczajy kody wielobajtowe (głównie 2-bajtowe), opisane w odpowiedniej tablicy. 

Tablica D.II.l. Rozkazy o kodach 1-bajtowych 



0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

A 

B 

C 

D 

E 

F 

oo i 

N0P 

! LD 

: ld : 

INC 

INC ! 

DEC 

: LD ! 

RLCA 

EX 

ADD 

! LD ; 

nrt 

INC 

I DEC 

i LD ! 

FPCA 

* 


>' BC,nn 

: (bo, a: 

BC 

B i 

B 

! B,n ! 


AF, AF* 

HL, BC 

! A, (BC) | 

BC 

C 

! C 

! C,n ! 


10 I 

DJNZ 

! LD 

! LD : 

INC 

inc : 

DEC 

! LD ! 

RLA 

JR 

ADD 

: ld : 

DEC 

TNC 

! DEC 

! LD : 

FSA 


n 

! DE,nn 

! (DE), a; 

DE 

d : 

D 

: D,n : 


n 

HL,DE 

. A, (DEK 

BE 

E 

I E 

i E,n 1 


20 i 

JR 

I LD 

: ld : 

INC 

inc : 

DEC 

1 LD ! 

DAA 

JP 

ADD 

! LD : 

DEC 

INC 

! DEC 

! LD ! 

CPL 


NZ , 

i HL,nn 

i (nn),HL! 

HL 

h : 

H 

! H,n 


Z,n 

HL,HL 

! HL, (nn) ! 

HL 

L 

! L 

! L,n ! 


30 i 

JR 

! LD 

i LD ; 

INC 

inc ; 

DEC 

: LD ! 

SCF 

JR 

ADD 

! LD ! 

DEC 

INC 

! DEC 

: ld i 

CCF 

I 

NC,n 

! SP,nn 

i (nn).Ai 

SP 

(HL) : 

(HL) 

1 (HL) ,n ! 


C,n 

HL , SP 

i A, (nn)! 

SP 

A 

! A 

> A,n i 


40 i 

LD 

! LD 

! LD ! 

LD 

ld : 

ID 

! LD i 

ID 

LD 

“ LD 

! LD ! 

ID 

LD 

i LD 

: LD ! 

LD 

■ 

B,B 

! B,C 

! B, D : 

B,E 

B,H ! 

B,L 

: B, (HL) S 

B, fi 

C,B 

C,C 

; c,d 

C.E 

C,H 

1 C,L 

: C, (HL) I 

C,A 

50 i 

LD 

1 LD 

5 LD : 

LD 

LD ! 

LD 

! LD ! 

LD 

LD 

LD 

! LD : 

ID 

LD 

! LD 

: LD ! 

LD 


D, 

! D,C - 

: d,d : 

D,t 

O.t) j 

U,L 

i D, (HL) i 

D,A 

E.B 

E.C 

; E,D ! 

E.E 

E,H 

1 E,L 

! E, (HL) ! 

E,A 

60 ! 

LD 

: LD 

i LD T LU 

ld ; 

LD 

i LD : 

LD 

LD 

LD 

! LD ( 

« D 

LD 

! LD 

i LD . 

ID 

! 

H, 

: h,c 

! H,D ! 

H,E 

H,H ! 

H,L 

: h,(hl>; 

H,A 

L.B 

L.C 

. l,» : 

L,E 

L,H 

I L,L 

i L, f HL) ! 

M 

70 i 

LD 

: ld 

} LD ! 

LD 

LD : 

ID 

! HALT i 

LD 

LD 

LD 

i ld : 

LD 

LD 

; ld 

! LD ! 

LD 

1 

IHLJ.Ł 

: (HL),C 

: (Hli,d: 

(HL) E 

(HL),H! 

(HL) , L 


(HL) , A 

A, 

A,C 

; a, u : 

«.E 

A,H 

: a,l 

! A, (HL/.! 

A, A 

BO i 

ADD 

! ADD 

: ADD i 

ADD 

ADD ; 

ADD 

: add : 

ADD 

ADC 

ADC 

: ADC i 

ADC 

ADC 

! ADC 

! adc ; 

ADC 

' 

M 

: A,C 

i M i 

M 

A,H J 

A,L 

: a,(hl>: 

A, A 

M 

A,C 

; A,D : 

A,E 

A,H 

i A,L 

; a; (hl> : 

A, A 

w : 

SUB 

: sub 

! SUB : 

SUB 

SUB ! 

SUB 

! sub : 

SUB 

SBC 

SBC 

! SBC : 

SBC 

SBC 

; SBC 

: sbc ; 

SBC 


A,B 

i A,C 

! ft - D : 

A,t 

a,h : 

A,L 

! A, (HU! 

A, A 

■A.B 

A, 

! A,D ! 

A,E 

A,H 

! A,L 

! A, HL) I 

A. A 

M i 

AND 

: AND 

r AND ! 

AND 

AND : 

AND 

! AND ! 

AND 

X0R 

X0R 

! X0R ! 

X0R 

X0R 

: xop 

i XDR : 

KOP 

i 

A, B 

; 

I A,D i 

A,t 

a,h : 

A.L 

I A, (HL) ! 

A, A 

fi,B 

ft,C 

; a,d : 

A.E 

A,H 

: a.l 

! A, (HL) 1 

M 

BO i 

0R 

: or 

; OR ! 

OR 

OR 1 

OR 

! OR ! 

OR 

CP 

CP 

! CP ! 

CP 

CP 

; cp 

! CP ! 

CP 

i 

M 

i ft,i 

: a,d : 

A,t 

a,h : 

A,L 

! A, (HU! 

A, A 

M 

A,C 

: a.d : 

A,E 

A, 

: a,l 

i A, (HL)i 

A, A 

co i 

RET 

: pop 

i jp : 

JP 

CALL : 

PUSH 

: add : 

RST 

RET 

RET 

: jp. i 


CALL 

! CALL 

! ADC 1 

RST 

• 

NZ 

; bc 

I NZ,nn i 

nn 

NZ,nn ! 

BC 

! A,n ! 

0 , 

Z 


: Z, nu ID.II.3. 

Z,nn 

! nn 

! A,n ! 

1 

DO i 

RET 

S POP 

: jp : 

OUT 

CALL ! 

PUSH 

! SUB ! 

RST 

RET 

EXX 

i jp i 

IN 

CALL 

| 

! SBC ! 

RST 

! 

NC 

: de 

1 NC,nn ; 

(n),A 

NC,nn ! 

DE 

! A,n 1 

n 

L 

c 


i C,nn ! 

(n>,A 

C,nn 

1D.II.4. 

! A,n ! 

z 

E0 ! 

RET 

: pgp 

! JP ! 

EX 

CALL !‘ 

PUSH 

: and : 

RST 

RET 

JF 

1 JP ! 

FX 

CALL 

J 

! XDF i 

RST 

* 

PO 

! HL 

! P0,nn S 

SP) , HL 

P0,nn ! 

HL 

! A,n ! 

4 

PE 

(HL) 

! PE,nn ! 

DE, HL 

PE.nn 

: o. 11.2* 

! A,n ! 

5 

F0 ! 

RET 

i POP 

: jp i 

DI 

CALL { 

PUSH 

! OR ! 

RST 

RET 

LD 

! JP : 

El 

CALL 

* 

! CP ! 

RST 

+- 

P 

: af 

5 P,nn 1 


P,nn ! 

Ak 

: A,n : 

6 

u 

SP,HL 

! M, nr 


11, nn 

ID.II.5. 

! A,n ! 

7 


25 



r 


Tablica D.II.2. Kody rozkazów poprzedzone bajtea ED 



0 

i 

2 

3 4 

5 

6 

7 

B 

9 

ABC 

D 

E 

F 

00 

i i- i i i i i i i i i i 1 i i 

: i : ; | : i : : i : ; ; : : 

10 

j j i i i i i i • • ■ i t i i 

"j i | | i | i j i j j i i t i 

20 

; j • • « i i i i i j i i I i 

30 

J J 1 J l ! J j ! | S i S i S 

40 

IN 

OUT 

SBC 

LD I NE6 

i RETN i 

IN 

LD 

i IN 

OUT 

ADC 1 LD II NEG 

i peti i 


LD 


B,(C) 

ICI.B 

HL,BC 

(nnl.BCi 

S 1 

0 

i.a 

; c, to 

(C),C ; HL,BC |6C,(nn) | 

i 


R,A 

50 

IN 

OUT 

SBC 

LD U NEG 

U RETN I 

IN 

ID 

: in 

OUT 

ADC i LD il NEG 

11 RETI i 

IN 

LD 


D, (0 

10, B 

HL,DE S (nn),DEI 

! ! 

1 

A,I 

: e, to 

10, E 

HL,DE IDE,(nn){ 


2 

A,R 

60 

IN 

OUT 

SBC 

1 LD il NEG 

:» retn : 


RRD 

: in 

OUT 

ADC !« LD U NEG 

11 RETI 1 


RLD 


H, (C) 

(C),H 

Hl,HL 1 (nn),HL» 

s s 



i L, CC) 

(C),L 

HL,HL !HL,(nn)S 

1 i 



70 

IN 


SBC 

LD lt NEG 

!l RETN ! 



; in 

OUT 

ADC 1 LD U NEG 

11 RETI i 




F, CC) 


HL,SP !(nn),SP! 

{ s 



! fl, (0 

(C),A 

HL.SP 1SP, (nn) ! 

1 ! 



80 

i i i | ! i | | i i i i i i i 

90 

s i i i i i i i i i i i i- i i 

; ; ; ; i s i ; s ; i i i s i 

A0 

LDI 

CPI 

INI 

DUTI 1 

1 



| LDD 

CPD 

IND j OUTD | 

! | 

i 


60 

LD1R 

CPIR 

INIR 

CfTIB : 

i i 



! LDDR 

CPDR 

INDR : OTDR 1 

j j 



CO 

1 j S 1 i i i 1 1 1 i i i I S 

DO 

•' s s ■ : : \ i i : \ ; : ; ; 

E0 

i i ::: i 

F0 



Kody odpowiadające pozycjo* nie wypełniony* powyższej tablicy sp interpretowane przez aikroprocesor jednakowo jako rozkaz NOP, 
Kody ED 63 i ED 6B nie sp ujpte w firaowej hicie rozkazów, aseiblery generujp odpowiednio 1-bajtowe kody 22 i 2A (wg tablicy 
D.II.l.). 


Dla rozkazów NE6, RETN i RET1 generowane sp kody: ED 44, ED 45 i ED 4D. Pozostałe kody dla tych rozkazów naleźp do grupy 
nie opublikowanych. x 

Tablica D. 12.3. Kcdv rozkazów poprzedzone bajte* CB 


0123456789AB-CDEF 


00 

PLC 


PLC 

1 PLC 

: plc 

1 PLC 

♦ 

1 RLC 

: RLC i 

PLC i 

RRC 1 

RRC 

1 RRC ! 

RRC 1 

RRC 

RRC 

RRC ! 

RRC 


B 


c 

: d 

: e 

: h 

i L 

! (HL) : 

A ! 

B 1 

C 

! D ! 

E 1 

H 

L 

(HL) ! 

A 

10 

RL 

- 

RL 

! RL 

1 RL 

1 RL 

: rl 

: rl i 

RL 1 

RR ! 

RR 

: RR ! 

RR 1 

RR 

RR 

RR : 

RR 


B 

: 

L 

1 D 

: e 

1 H 

1 L 

: (HL) ! 

A i 

B 1 

C 

1 D ! 

E 1 

H 

L 

(HL) 1 

A 

20 

SLA 

j 

SLA 

: SLA 

! SLA 

1 SLA 

: SLA 

! SLA 1 

SLA : 

SRA 1 

SRA 

! SRA ! 

SRA 1 

SRA 

• SRA 

SRA 1 

SRA 


B 

! 

C 

1 D 

: e 

1 H 

: i 

1 (HL' 1 

A ! 

B 1 

C 

i D 1 

E 1 

H 

L 

(HL) 1 

A 

30 

1 SLA1 

il SLA! 

:» SLAI 

11 SLAI 

it SLAI 

II SLAI 

li SLAI i 

SLAI 1 

SRL ! 

SRL' 

! SRL 1 

SRL 1 

SRL 

SRL 

SRL 1 

SRL 


B 


c 

: D 

: E- 

1 H 

1 L 

: (HL) : 

a : 

B 1 

C 

: d i 

E ! 

H 

L 

(HL) 1 

A 

40 

BIT 

■ 

BIT 

! BIT 

: bit 

: BIT 

: bit 

1 BIT ! 

bit : 

BIT 1 

BIT 

: bit : 

BIT * 

BIT 

BIT 

BIT 1 

BIT 


O.B 

| 

M 

: o,d 

! 0,E 

! 0,H 

: o, l 

: o,(HL>; 

0, fi ! 

l.B 1 

l,c 

| 1,D ! 

l,E 1 

1,H 

1,L 

1, (HL) 1 

M 

50 

BIT 

• 

BIT 

J BIT 

1 BIT 

: bit 

1 BIT 

1 BIT ! 

BIT 1 

BIT 1 

BIT 

: bit : 

bit : 

FIT 

BIT 

BIT 1 

BIT 


2,B 

! 

2,C 

: 2,D 

| 2,E 

1 2,H 

! 2,L 

: 2, (HL) : 

2, A j 

3.B ! 

3,C 

: 3,d : 

3,E ! 

3,H 

3,L 

3, (HL) : 

3, A 

60 

BIT 

■j 

BIT 

1 BIT 

: bit 

bit 

1 BIT 

1 BIT ! 

BIT 1 

bit : 

BIT 

! BIT 1 

BIT 1 

RIT 

BIT 

BIT 1 

BIT 


4,P 

! 

4,L‘ 

! 4, D 

i 4jE 

: 4,H 

1 «,L 

: 4, (HL) ! 

4, A ! 

5,B ! 

5,C 

i 5 » D i 

5,E 1 

5,H 

5,1 

5, (HL> r 

5,A 

70 

BIT 

! 

BIT 

' BIT 

! BIT 

! BIT 

! BIT 

1 BIT 1 

bit : 

bit : 

BIT 

1 BIT ! 

bit : 

BIT 

BIT 

1 BIT 1 

BIT 


6,B 


6,1' 

! 6.D‘ 

! 6,E 

! Ć,H 

: t,L 

1 6, (HL) ; 

6, A 1 

7 S C 1 

;,c 

! 7,D 1 

7,e : 

7,H 

7.L 

7,(HL>! 

7, A 


a ..3 ii . d t 






Tablica D* 11.5. Kody rozkazów poprzedzone bajtea FD 


0 12 3 

4 5 6 7 

8 

9 

A 

B 

C 

D 

E F 










00 II NOP 11 LD lt LD 11 INC 

lt INC it DEC lt LD it RLCA 

lt EX 

i ADD 

it LD 

it DEC 

it INC 

it DEC 

it LD ił RRCA 

! 1 BC,nn 1 (BC), Al BC 

: b ; b : B,n : 

i AF, AF 

1 Y,BC 

1 fi, (BC) i BC 

i C 

I c 

i C,n 1 

10 !ł DJNZ it LD ;t LD lt INC 

lt INC it DEC it LD it RLA 

lt JR 

i ADD 

lt LD' 

it DEC 

it INC 

it DEC 

it LC it RPA 

; n : DE,nn ! (DE), Al DE 

1 0 i 0 ! D,n : 

i n 

i Y,DE 

1 A, (DE)I DE 

! E 

1 E 

1 E,n 1 

20 :t JR 1 LD 1 LD '! INC 

lt INC it DEC it LD it DAA 

it jr 

1 ADD 

i LD 

i DEC 

it INC 

it DEC 

it LD it CPL 

j NZ,n 1 Y,nn l(nn),Y 1 Y 

1 HY ! HY ! HY,n i 

| Z,n 

| V,Y 

! Y, (nn) I Y 

i LY 

: lY 

i LY,n i 

30 lt JR lt LD it LD lt INC 

i INC 1 DEC i LD it SCF 

ił JR 

1 ADD 

it LD 

i I. DEC 

ił INC 

it DEC* 

i I LD it CCF 

i NC,n 1 SP,nn 1 Inn), Al SP 

1 (Y+d) 1 (Y+dl !(Y+d),n! 

! C,n 

1 Y,SP 

! A, (nn. 

i SP 

i A 

i 

1 A,n i 

40 lt LD lt LD lt LD lt LD 

it LD it LD i LD it LD 

it LD 

lt LD 

lt LD 

it LD 

lt LD 

it LD 

1 -LD it LD 

\ B,B 1 B,C 1 B,D | B,E 

i B,HY 1 B, LY IB, (Y+d) 1 B, A 

i C,B 

i C,C 

i C,D 

: c,e 

i C,HY 

i C, LY 

iC,(Y+d)l C, fi 










50 it LD it LD lt LD it LD 

lt LD it LD i LD lt LD 

it LD 

lt LD 

lt LD 

lt LD 

it LD 

ił LD 

i LD it LD 

1 D,B 1 D,C 1 D,D i D,E 

i D,HY i D,LY ID, (Y+d) 1 D,A 

i E,e 

1 E,C 

1 E,D 

! E,E 

i E,HY 

: e, ly 

!E, (Y+d) i E,A 

60 lt LD lt LD it LD lt LD 

it LD lt LD i LD it LD 

it LD 

It LD 

1 LC 

i LD 

i LD 

i LD 

! LD 1 LD 

•i HY, B 1 HY, C 1 HY,D 1 HY, E 

i HY,HY i HY,LY !H,(Y+d)l HY, A 

i LY, B 

i LY, C 

1 LY, D 

| ly,e 

i LY,HY 

i LY, LY 

1L, (Y+d) i LY, 

70 1 LD i LD 1 LD 1 LD 

1 LD 1 LD it HALT i LD 

lt LD 

lt LD 

!* LD 

it LD 

II LD 

it LD 

i LD it LD 

1 (Y*d),Bl (Y+d) ,C! (Y+d), Dl (Y+d) ,E 1 (Y+d) ,H1 (Y+d), Li !(Y+d), 

V, A,B 

| fi.C 

: fi, D 

! ft,E 

i A,HY 

J A, LY 

!A, (Y+d) ! A, A 

80 lt ADD lt ADD lt ADD lt ADD 

it ADD it ADD i ADD it ADD 

l t ADC 

lt ADC 

lt ADC 

i t ADC 

it ADC 

it ADC 

i ADC it ADC 

j A, B i fi, C i A, D 1 fi, E 

1 A,HY i fi, LY !A, (Y+d) i A, A' 

! A, B 

! ft,C 

! fi, D 

i A, E 

1 A,HY 

i A,LY ifi, ( Y+d) 1 A, A 

90 lt SUB lt SUB lt SUB it SUB 

it SUB it SUB i SUB it SUB 

it SBC 

lt SBC 

lt SBC 

it SBC 

it SBC 

it 5BC 

i SBC it SBC 
! fi, '.Y+d) ! A, A 

1 A,B 1 A, C 1 A,D 1 A,E 

1 A,HY i A, LY 1A, (Y+d) 1 A, A 

1 A,B 

1 A,C 

! fi,D 

j M 

1 A,HY 

1 A, LY 

AO lt AND it AND lt AND lt AND 

it AND lt AND i AND lt AND 

lt XOR 

lt XOR 

it XDR 

it XCR 

it XOR 

it XDR 

i XDP lt XOP 

j S,B : A,C ! fl,D i A, E 

: fi,HY ! a,lV :a, (Y+d) : a,a 

i A,B 

j fi.C 

; fi,B 

i A,E 

1 A, HY 

i fi, LY 

!A, (Y+d) i A, A 

BO it DR lt OR it OR lt OR 

lt OR it OR 1 OR it OR 

lt CP 

:t cp 

it CP- 

it CP 

it CP 

it CP 

i CP lt CP 

1 A,B i A, C 1 A, D 1 A,E 

: A,HY ! A,LY !A, CYłd) fi, fi 

! fi, Et 

: fi,c 

1 fi, D 

1 fi, E 

: #,hy 

i A,LY 

i A, (Y+d) 1 A, A 










CO it RET it POP it JP lt JP 

lt CALL lt PUSH it ADD ił RST 

lt RET 

lt RET 

lt JP 

; 

it CALL it CALL 

it ADC lt RST 

j NZ 1 BC 1 NZ,nn 1 nn 

i NZ,nn i BC i A,n i 0 

•, i 

1 

1 Z,nn 

1D.II.7 

i Z, nn 

i nn 

i A,r i 1 

DO lt RET lt POP lt JP lt OUT 

it CALL it PUSH it SUB it RST 

lt RET 

:t e*x 

it JP 

it IN 

it CALL 


it SBC it RST 

i NC i DE i NC,nn 1 (n),A 

! NC,rr ! DE ! A,r ! 2 

1 C 

1 

1 C,nn 

i (n),A 

1 C,nn 

1C.II.4 

! A,n 1 3 

EO lt RET i POP lt JP i EX 

lt CALL 1 PUSH it AND it RST 

lt RET 

1 JP 

it JP 

it EX 

it CALL 

j 

it XOR !t RST 

: po : v i po, nr : (SP),v 

1 PO,nn i Y 1 A,n i 4 

1 PE 

! (Y) 

i PE,nn 

1 DE, HL 

i PE.nn 

1D.II.2 

i A,n i 5 

fo it ret it pop it jp it di 

ił CALL it PUSH ił OR it RST 

it RET 

it LD 

it JP 

11 El 

it CALL 


it CP it RST 

1 P 1 AF 1 P,nn 1 

1 P,nn 1 AF i A,n i fc 

1 U 

1 SP, Y 

i U, nn 

1 

i R,nn 

i D. 11.5 

i A,n i 7 


Wszystkie rozkazy operujące na zawartości połowy rejestru IY oraz b?d?ce powtórzeniami z tablicy D.1I.1 5* nie opublikowane. U 
ciągach kodów FD DD, FD ED i FD FD pierwszy bajt jest pomijany (traktowany jako rozkaz NOP), drugi wchodzi w skład rozkazu 
odpowiednio wg tablicy D.II.4. (DD), D. 11.2 (ED) i D.II.S. (FD). 

X - 16-bitowy rejestr IY 

LY - 8 amej znaczących pozycji binarnych rejestru IY 
HY - 8 bardziej znaczących pozycji binarnych rejestru IY 


Tablica D.II.6. Kody rozkazów poprzedzone bajtaai DD i CB 


0 

1 

2 

3 

4 

5 

' 6 

7 

8 9 

A 

B C 

D 

E 

F 

RLC:B i 
(X+d) 1 

RLC:C 

(X+d) 

RLC:D 

(X*d) 

RLC:E 

(X+d) 

1 RLC:H 1 
1 (X+d) 1 

RLC: L 
(X+dł 

RLC 

(X+d) 

RLC: A i 
(X+d> i 

RRC:B i RRC: 
(X+d) i ( X+d ) 

RRC: D 1- RRC: E i RRC:H 
(X+d) i (X*d) 1 (X+d) 

RRC:L 

(X+d) 

RRC 

(X+d) 

RRC: A 
(X+d) 

RL: B i 
(X+d) i 

RL: C 
(X+d) 

RL: 

(X+d) 

RL: E 
(X+d) 

i RL: H i 
1 (X+d) 1 

RL:L 

(X+d) 

RL 

(X+d) 

RL: A i 
(x*d> : 

RR:B i RR:C 
(X+d) 1 (X+d) 

RRsD 

(X+d) 

i RR:E i RR:H 
1 (X+d) i (X+d) 

RR:L 

(X+d) 

RR 

(X+d) 

RR: fi 
(X+d) 

SLA:B 1 
(X+dł 1 

SLA:C 

(X+d) 

SLA: D 
(X+d) 

SLA: E 
(X+d) 

i SLfisH i 
1 (X+dX 1 

SLA:L 

<X+d) 

SLA 

(X+d) 

SLA: A i 
(X+d) i 

SRA: 8 i SRA:C 
(X+d) i (X+d) 

SRfisD 

(X+d) 

1 SRA: E i SRA:H 
i (X+d) 1 (X+d) 

SRAsL 

(X+d) 

SRA 

(X+d) 

SRA: A 
(X4-d> 

SLL: 1 
(X+d) 1 

SLL: C 
(X+d) 

SLL: 

(X+d) 

SLL: E 
(X+d) 

i SLL: H ! 
1 (X+d) 1 

SLL: L 
CX+d) 

SLL 

(X+dł 

SLL: A i 
(X+d) i 

SRLsB 1 SRL:C 
(X+d) 1 (X*d) 

SRL:D 

(X+d) 

i SRL:E 1 SRL:H 
! (X+d) i (X+d) 

SRL:L 

(X*d) 

SRL 

(Xł-d> 

SRL: A 
(X+d) 

BIT:B i BITsC i BITiD i BIT:E i BITsH i BIT: L i BIT 
0, (*łd! 10, IX*dl 10, (Iłdl 10, (X*d)IO, «*d) 10, (I*dl 10, IM) 

BITsfi i BIT: B i BIT:C 
0, (X+d)[.l,(X+dł jl,(X+d) 

BIT: D 
1, (X+d) 

i BIT: E i BITsH i BITsL ! BIT 
il,4X^d) |1, (X+d) 11, (X^d) il, (X^d) 

BITsfi 
1, (X+d) 

BIT: B i BITsC 
2, (X+d ) 12, (X+d) 

BIT: 

2, (X+d) 

BIT: E 1 BITiH I 
2, (X+d) 12, (X+d) ! 

BITsL 
2, (X+d) 

BIT i BITsfi i 
2, (X+d) 12, (X+d) i 

BIT: B i BITsC i BIT: D 
3,(X+d)!3, (X+d)!3,(X+d) 

! BIT: E i BITsH 
13, (X+d) 13, (X+d) 

BITsL 

3,(X+d) 

BIT 

3, (X+d) 

BITsfi 
3, (X+d) 


£0 I BIT: B 1 BIT:C ! BIT: D 1 BIT; E 1 BITsH ! BIT: L ! BIT I BIT: fi 1 BIT: B : BIT:C ! BIT: D 1 BIT: E 1 BIT: H i BIT: L ! BIT 1 BIT: A 
14, (X*d) 14, (X*d) !♦, (X+d) 14, (X*d) 14, (X*d> 14, !X*d) !4, (X*d) 14, (X+d> 15, (X+d) 15, (X*d) 15, (X*d) 15, (X*d) 15, (X+d) 15, (X*d) 15, (X*d) 15, (X*d) 

28 



70 ! BITsB ! BITiC ! BIT: D 1 BIT:E ! BIT:H i BIT: L ! BIT ! BIT:fl 5 BIT : B ! BIT;C ! BITiD ! BIT:E ( BIT: H ! BIT: L ! BIT ! BITjfl 
16, (X+d) 16, (X+d) !6, (X+d> 16, (X+d> 16, (X+d> 16, (X+d) 16, CX+d) 16, (X+d) 17, (X*d) 17, (X+d> 17, (X«d) !7, IX*«łl 17, (X+d) 17, (X+d) 17, (X+d> 17, (X+d> 


ao : RES:B : RESsC : RES:D i CES: E i FE3:H ! RES: L i RES ! RES: A ! RES:B 1 RES:C i RES: D 1 RES: E ! RES:H 1 RES: L i RES 1 RES: A 
■O, (X+d) 10, (X+d> JO, (X+d) 10, (X+d) 10, (X+d) .'O, ( X+d> JO, (X+d) JO, (X+d) JI, (X+d) Jl, (X+d) j|, (Xłd) ;i, (X*d) II, (X+d) II, (X+d) U, (X+d) II, (X+d) 


90 1 RES: B ! RES:C ! RES: D i RESsE ! RES: H ! RES: L I RES I RES:fi ! RES: B S RESsC 5 RES: D ! RES:E ! RES:H ! RES: L ! RES ! RESsft 
12, (X+d) 12, (X+dł J2, (X+d) J2, (X+d) 12, <X+d) J2, (X+d) 12, CX*d> 12, (X+d> 13, CX*dJ 13, (X+d) J3, (X+d) 13, (X+d) 13, (X+d) 13, (X+d) J3, (X+d) 13, (X+d) 


AO J RES: B I RESsC J RES: D ! RESsE ! RES:H ! RESsL J RES ! RESsA ! RES: B ! RESsC J RESsD ! RESsE ! RESsH ! RES: L i RES J RESsA 
14, (X+d) J4, (X*d) 14, (X+d) J4, (X+d) 14, (X+dł J4, (X+d) !4, (X+d> 14, <X+d) 15, (X+d> 15, (X+d) J5, (X+d> 15, (X+d) J5, (X+d) !5, (X+d) 15, (X+d) J5, (X+dJ 


BO J RES: B i RESsC i RES: D I RESsE i RESsH ! RESsL J RES ! RESsA ! RES: B J RESsC ! RES: D J RESsE ! RESsH J RESsL J RES ! RESsA 
16, (X+d) 16, (X+d) 16, (X+d) 16, (X+d> 16, (X+d) J6, (X+dł 16, (X+d) !6, (X+d> 17, (X+dł 17, (X+d> !7, (X*d) J7, (X+d) !7, (X+dł !7, (X+d) !7, (X+d) 17, (X+d) 


CO ! SETsB J SETsC 1 SETsD ! SETsE 1 SETsH ! SETsL ! SET ! SETsA ! SET: B i SETsC I SETsD ! SETsE ! SETsH J SETsL ! SET J SETsA 

SO, (X+d) !0, (X+d) JO, (X+d) 10, (X+d) 10, (X+d) 10, (X+d) JO, (X+d) !0, (X+d) 11, (X+d)l 1, (X+d) II, (X+d) 11, (X+d) 11, (X+d) ii, (X+d) 11. (X+d) 11, (X+d) 

• — 4 f + ♦ ♦ + ♦ + f 4 ♦ ♦ , f + 

DO I SETsB ! SETsC ! SETsD ! SETsE 1 SETsH I SETsL ! SET ! SETsA ! SETsB ! SETsC I SETsD I SETsE ! SFTsH ! SETsL ! SET I SETsA 

!2, (X,d) !2, <X+d) i?, (X*tf) : 2, <X+d> ;2, IX+dJ !2, (Xłd) !2, (X*d) !2, (X+d) ! 3, [Xłdl 13, ( X*-d > ! 3, (X+d) !3, (X*dl 13, (X*dl !3, (X*dl 13, (X*dl !3, (X+d) 


EO : SET :B : S£T:C I SET : D 1 SET:E i SET : H ! SET:L ! SET ! SET:A ! SETsB I SET:C ! SETsD ! SETsE ! SETsH ! SETsL ! SET 1 SETsA 
j4,IXtdlU,IXłdi:4,(X,dl!4, (*łd) !4. ()£łd) !4, T**d) :ł, (*+d) !4, (XłiJ) !5, (X+d) !5, (*+d) !5, <*«d) !5, (X«d) !S, (Xłd) !5, (**d> !5, (Xłd> IS, (X*d) 


FC ! SETsB i SETsC ! SETsD I SETsE ! SETsH ! SETsL ! SET ! SETsA ! SETsB I SETsC I SETsD ! SETsE ! SETsH i SETsL ! SET ! SETsA 
!6, (X*dl !«, IX*dl 16, (X*d) \i, IX*d> 16, IX+dl li, (Xłd! li, (X+dl 16, (X*dl !7, (X*d) !7, IX*dl !7, IX»dl !7, (Xtdl 17, (X*dl 17, (X*d) !7, (X*d) !7, (X+d> 


Wszystkie rozkazy zaznaczone rejestrem poprzedzonym znakiea : s| nie opublikowane, Wprowadzona notacja oznacza, ie rozkaz 
wykonuje się na argumencie określonym w dolnej pozycji pola tablicy, a dodatkowo uzyskany wynik jest przesyłany do tak 
zaznaczonego rejestru. Jedynie rozkazy z kolumny 6 i E należę do grupy opublikowanych. X - rejestr IX 
Tablica D.I1.7. Kody rozkazów poprzedzone bajtami FD i CB 

, Ol 23456789AB CDEF 


RLC 

(Y*dl 


00 I RLCsB ! RLCsC I RLCsB I RLCsE i RLCsH 1 RLCsL I 

! (Y»d) I (Y,dl 1 (Y*dl ! (Y*dl 1 (Ytdl i lYłdl 

10 i RLsB I RLsC ! RLsD i PLsE : RLsH I RLsL I RL 

. ! lYłdl : (Y+d) ! lYtdl ! lY+d) i (Y+d) ! (Ytd! ; (Y+d) 

| — -+ 1 '♦ ♦ + * 

20 ! 


RLC: A 
(Y+d) 


RRCsB : 
(Y+d) 


RPCsC ! 
(Y+d) ; 


RRCsD I RRCsE ! 
(Y+d) I (Y+d) : 


RRCsH ! RRCsL I RRC 
fY+d) I (V*d> I (Y+d) 


RRC: A 
(Ytd) 


RL: A 
(Y+d) 


RRsB 

(Y+d) 


RR:C i 
(Y+d) : 


RRsD ! 
(Y»d) 1 


RR:E 

(y+d) 


RR:H ; 
(y*d) : 


RR:L , 
(Y»d) ; 


RR 

(Yfd) 


RR: A 
(y+d) 


SLA: B I 
(Y+d) ! 


SLA: C ! 
(Y+d) ! 


SLAsD ! 
(y+d) : 


SLAsE I 
(Y+d) J 


SLA: H I 
(Y+d) I 


SLA: L I SLA 
(Y+d) I (Y+d) 


SLA: A 
(Y+d) ; 


SRA: B ! 
(Y+d) ! 


SRA: C ! SRA: D I SRAsE I SRA:H ! SRfi:L I SRA 
(y+d) i (y+d> i (Y+d) i (y+d) ; (y+d) : (Y+d) 


SRA: A 
(Y+d) 


30 l SLL:B I SLL:C ! SLL:D ! SLL:E I SLL:H ! SLL:L ! SLL ! SLL: A ! 
! (Y+d) I (Y+d > I (Y+d) 1 (Y+d) I (Y+d) { (Y^d) I (Y+d) I (Y+d) i 


SRL:B ! SRL:C I SRL:D ! SRLsE I SFL: H ! SRL: L I SRL 
(Y+d) I (Y+d) I (Y+d) I (Y+d) ! (Y+d) I (Y+dł I (Y+d) 


SRL: A 
(Y+d) 


40 I BIT:B I BIT:C I BIT: D I BIT: E ! BIT: H i BIT:L I BIT I BIT: A I BIT: B I BIT:C I BIT: D I BIT: E I BIT: H I BIT:L i BIT I BIT:A 

10, (Y+d) 10, (Y+d) !0, (Y+d) f O, (Y+d) 10, (Y+d) 10, (Y+d) 10, (Y+d) 10, (Y+d) 11, (Y+d) II, (Y+d) ; 1, (Y+d) II, (Y+d) II, (Y+d) U, (Y+d) II, (Y+d) II, (Y+d) 

50 ! BIT: B ! BIT:C ! BIT:D ! BIT:E ! BIT:H 1 BIT: L ! BIT ! BIT: A ! BIT: B I BIT:C ! BIT: D I BIT: E i BIT:H ! BIT:4_ ! BIt" ! BITsa" 

12, (Y+d) !2, (Y+d) 12, (Y+d) 12, (Y+d) 12, (Y+d) 12, (Y+d) 12, (Y+d) 12, (Y+d) 13, (V+d) 13, (Y+d) 13, (Y+d) 13, (Y+d) 13, (Y+d) 13, (Y+d) !3, (Y+d) 13, (Y+d) 

60 ! BIT:B ! BIT:C ! BIT: D I BIT: E ! BIT: H ! BITsL I BIT ! BIT : A ! BIT: B I BIT:C ! BIT: D ! BITsE I BIT:H 1 BIT: L ! BIT* {'bItT 

14, (Y+d) 14, (Y+d) 14, (Y+d) 14, (Y+d) 14, (Y+d) 14, (Y+d) 14, (Y+d) 14, (Y+d> 15, (Y+d) 15, (Y+d) 15, (Y+d) 15, (Y+d) 15, (Y+d) 15, (Y+d) !5, (Y+d) 15, (Y+d) 


70 I BIT: B 1 BIT:C ! BIT : D I B1T:E ! BIT: H ! BITsL I BIT I BITsA 1 BIT: B ! BIT:G I BIT:D ! BIT: E ! BI T: H ! BIT: L I BIT ! BIT: A 
!6, (Y+d) 16, (Y+d) 16, (Y+d) 16, (Y+d) 16, (Y+d) 16, (Y+d) 16, (Y+d) !6, (Y+d) \7, (Y+d) 17, (Y+d) !7, (Y+d) !7, (Y+d) 17, (Y+d) 17, (Y+d) 17, (Y+d) !7, (Y+d) 


I RES:B I RESsC ! RES:D i RES: E ! RESsH I RES:L ! RES I RES: A ! RES: B ! RESsC ! RES:D I RESsE ! RESsH I RESsL i RES ! RES: A 
10, (Y+d) SO, (Y+d) 10, (Y+d) !0, (Y+d) 10, (Y+d) ! O, (Y+d) !0, (Y+d) 10, (Y+d) U, (Y+d) ! 1, (Y+d) SI, (Y+d) !1, (Y+d) 11, (Y+d) J 1 , (Y+d) U, (Y+d) 11, (Y+d) 


90 ! RES: B I RESsC I RES: D ! RESsE i RESsH ! RES:L ! RES ! RES-.A ! RES: B I RESsC I RES: D I RESsE ! RES;H I RES: L I RES I RES.-A 
!2, (Y+d) 12, (Y+d) 12, (Y+d) 12, (Y+d) 12, (Y+d) 12, (Y+d) !2, (Y+d) 12, (Y+d) !3, (Y+d) 13, (Y+d) 13, (Y+d) 13, (Y+d) 13, (Y+d) 13, (Y+d) 13, (Y+d) 13, (Y+d) 


AO 1 RES:B 1 RESsC 1 RES: D i RESsE 1 RES: H 1 RESsL 1 RES 1 RESsA 1 RES: B ! RESsC 1 RES:D 1 RES;E I PES.-H I RESsL i RES I RESsA 
14, (Y+d) 14, (Y+d) 14, (Y+d) 14, (Y+d) 14, (Y+d) 14, (Y+d) 14, (Y+d) 14, (Y+d) 15, (Y+d) 15, (Y+d) 15, (Y+d) 15, (Y+d) 15, (Y+d) 15, (Y+d) 15, (Y+d) 15, (Y+d) 


BO 1 RES: B 1 RESsC 1 RES: D J RES.-E ! RES.-H ! RESsL ! RES ! RESsA I RES.-B 1 RES:C J.RESrD 1 RES.-E ! RESsH I RESsL 1 RES i RESsA 
16, (Y+d) 16, (Y+d) 16, (Y+d) 16, (Y+il,) 16, (Y+d) 16, (Y+d) 16, (Y+d) 16, (Y+d) 17, (Y+d) 17, (Y+d) 17, (Y+d) 17, (Y+d) 17, (Y+d) 17, (Y+d) 17, (Y+d) 17, (Y+d) 

CO I SETsB I SET.-C ) SET.-D I SETsE I SETsH 1 SETsL I SET 1 SETsA I SETsB i SETsC I SETsD 1 SETsE I SETsH J SETsL ! SET 1 SETsA 
•O, (Y+d) 10, (Y+d) 10, (Y+d) 10, (Y+d) 10, (Y+d) 10, (Y+d) 10, (Y+d) 10, (Y+d) 1 1, (Y+d) li, (Y+d) li, (Y+d) SI, (Y+d) U, (Y+d) li, (Y+d) 1 1, (Y+d) li, (Y+d) 


DO I SETsB I SETsC ! SETsD I SETsE i SETsH I SETsL I SET I SETsA I SETsB 1 SETsC 1 SETsD 1 SETsE ! SETsH 1 SETsL 1 SET 1 SETsA 
IVY+d> 12, (Y+d) 12, (Y+d) 12, (Y+d) 12, (Y+d) 12, (Y+d) 12, (Y+d) 12, (Y+d) 13, (Y+d) 13, (Y+d) !3, (Y+d) 13, (Y+d) 13, (Y+d) 13, (Y+d) 13, (Y+d) 13, (Y+d) 


EO ! SETsB I SETsC ! SETsD 1 SETsE 1 SETsH I SETsL I SET 1 SETsA I SETsB { SETsC 1 SETsD ! SETsE 1 SETsH 1 SETsL 1 SET i SETsA 
14, (Y+d) 14, (Y+d) 14, (Y+d) 14, (Y+d) 14, } Y+d M 4, (Y+d>|4, (Y+d)|4, (Y+d) 15, (Y+d)|5, (Y+d) 15, (Y+d) 15, (Y+d) 15, (Y+d) 15, (Y+d) 15, (Y+d) 15, (Y+d) 

FO I SETsB ! SETsC 1 SETsD 1 SETsE 1 SETsH \ SETsL 1 SET 1 SETsA ! SETsB 1 SETsC 1 SETsD 1 SETsE 1 SETsH ! SETsL 1 SET 1 SETsA 
16, (Y+d) 16, (Y+d) 16, (Y+d) 16, (Y+d) 16, (Y+d) 16, (Y+d) 16, (Y+d) 16, (Y+d) 17, (Y+d) 17, (Y+d) 17, (Y+d) 17, (Y+d^ 17, (Y+d) 17, (Y+d) 17, (Y+d) 17, (Y+d) 


Wszystkie rozkazy zaznaczone rejestrem poprzedzonym znakiem : sę nie opublikowane. Uprowadzona notacja oznacza, źe rozkaz 
wykonuje się na argumencie określonym w dolnej pozycji pola tablicy, a dodatkowo uzyskany wynik jest przesyłany do tak 
^aznaczonego rejestru. Jedynie rozkazy z kolumny 6 i E należę do grupy opublikowanych. Y - rejestr IY 2 g 





DODATEK hi. 








tabele mmn uczę u rożnych systehacn uczenia 


1 diieiiftnit i szesnastkowe ! dziesiętnie 

binarnie 

znakowo h 1 






1 biz maku 1 


1 ze makiet 


kodzie ASCII 1 

T sM:ta MIM. 

Interpretacja zawartości 8-bitowej kotftrki n 

1 




1 


rfjruch svst etach liczenia 



1 66 

42 

66 

OlOOOOSO 

B 1 

t 





! 67 

43 

67 

01000011 

C 1 

■ fcitr.f tnie ! s 

psnastkowp ! dziesiętnie 1 

binarnie 


! 6B 

44 

68 

01000100 

D I 

te: naku ! 


I :e znaki w 


! krint ASCII 



69 

45 

69 

01000101 

E 1 









70 

46 

70 

01000110 

f i 


0 

00 

0 

00000000 

NUL 



71 

47 

71 

01000111 

6 1 


1 

01 

l 

ocooooot 

SOH 



72 

40 

72 

01001000 

H .! 


2 

0: 


00000010 

ST* 



73 

49 

73 

01001001 

I ! 


3 

03 

3 

00000011 

ET* 



74 

4A 

74 

01001010 

J ! 


1 

04 

4 

00000100 

EOT 



75 

4B 

75 

OlDOlOll 

K k 



05 

5 

00000101 

ENfl 



76 

4C 

76 

01001100 

L 


0 

06 

6 

00000110 

ACK 



77 

4D 

77 

01001101 

n 1 


* 

O” 

1 

00000! 11 

BEL 



78 

4E 

78 

01001110 

N ■ 


5 

08 

8 

00001000 

BS 



79 

4F 

79 

01001111 

0 ! 


c 

0° 

0 

ooootoot 

HT 



BO 

50 

BO 

01010000 

P ! 


10 

PA 

10 

00001010 

LF 



81 • 

51 

81 

01010001 

0 I 


l 1 . 

OB 

11 

00001011 

VT 



82 

52 

82 

01010010 

R ! 


12 

OC 

12 

00001100 

FF 



03 

53 

83 

01010011 

S ! 


i: 

OS 

13 

OOCOtlOt 

CR 



84 

54 

84. 

01010100 

T 


<4 

0E 

14 

00001110 

so 



B5 

55 

B5 

01010101 

u 


15 

0F 

15 

0000111! 

SI 



66 

56 

06 

01010110 

V 


li 

10 

16 

00010000 

OLE 



87 

57 

87 

01010111 

M 


r 

11 

17 

00010001 

DCI 



88 

58 

88 

01011000 

X 

!8 

1: 

18 

000! 0010 

DC2 



09 

59 

B9 

01011001 

y 

■ 1® 

13 

10 

00010011 

DC3 



90 

SA 

90 

01011010 

z 

’ :c 

14 

20 

00010100 

0C4 



91 

5B 

91 

01011011 

I 

! 21 

15 

21 

00010101 

NAK 



92 

5C 

92 

01011100 

\ 

22 

16 

22 

00010110 

SYN 



93 

SD 

93 

01011101 

] 

j 21 

r 

23 

0001011 l 

ETB 



94 

5E 

94 

01011110 

* 


19 

24 

00011000 

CAN 



95 

5F 

95 

01011111 

_ 


2' 

i° 

25 

00011001 

EH 



96 

60 

96 

01 100000 

1 



]A 

26 

00011010 

SUB 



97 

61 

97 

01100001 

a 


2 " 

IB 

27 

00011011 

ESC 



98 

42 < 

9B 

01100010 

b 



1C 

28 

00011100 

FS 



99 

a 

99 

01100011 

c 


* c 

ID 

29 

00011101 

GS 



100 

64 

100 

01100100 

d 


:o 

1E 

30 

00011110 

RS 



101 

65 

101 

01100101 

e 


31 

1F 

31 

00011111 

US 



102 

66 

102 

01100110 

f 


T 2 

20 

7*1 

00100000 

spacja 



103 

67 

103 

01100111 

0 


32 

21 

77 

00100001 

1 



104 

6B 

104 

01101000 

h 


34 

22 

34 

00100010 

■ 



105 

69 

105 

01101001 

i 


TC 

23 

35 

00100011 

« 



106 

6A 

106 

01101010 

j 


3e 

24 

36 

00100100 

i 



107 

6 B 

107 

01101011 

k 


37 

25 

37 

00100101 

l 


1 10B 

6C 

106 

01101100 

1 


38 

26 

38. 

00100110 

h 



109 

6D 

109 

01101101 

1 


3° 

27 

39 

001 001 11 

* 



110 

6E 

110 

01101110 

n 


40 

28 

40 

00 101 000 

( 



111 

6 F 

111 

01101111 

0 


41 

2? 

41 

00101001 

) 



112 

70 

112 

01110000 

p 


42 

2A 

42 

00101010 

t 



113 

71 

113 

01110001 

q 


43 

28 

43 

00101011 

♦ 



114 

72 

114 

01110010 

r 


44 

2C 

44 

00101100 

, 



115 

73 

115 

01110011 

s 


45 

20 

45 

00101101 

- 



116 

74 

116 

01110100 

t 


46 

2E 

46 

00101110 




117 

75 

117 

01110101 

u 


47 

2F 

47 

00101111 

/ 



118 

76 

118 

01110110 

V 


48 

30 

48 

001 10000 

0 



119 

77 

119 

oiiioiti 

M 


49 

31 

49 

00110001 

1 



120 

78 

120 

01111000 

X 


50 

71 

50 

00110010 

2 



121 

79 

121 

OUllOOł 

y 


51 

33 

51 

00110011 

3 



122 

7A 

122 

01111010 

z 


52 

34 

52 

00110100 

4 



123 

7B 

123 

01111011 

{ 


53 

35 

53 

00110101 

5 



124 

7C 

124 

01111100 

1 


54 

36 

54 

00110110 

6 



125 

7D 

125 

01111101 

) 


55 

37 

55 

001 10! 11 

7 



126 

7E 

126 

01111110 

% 


56 

38 

56 

00111000 

8 . 



127 

7F 

127 

01111111 

DEL 


57 

39 

57 

00111001 

9 



128 

80 

-128 

10000000 



58 

3A 

56 

00111010 




129 

BI 

-127 

10000001 



59 

3E 

59 

00111011 

j 



130 

B2 

-126 

10000010 



60 

3C 

60 

00111100 

< 



131 

83 

-125 

10000011 



61 

30 

61 

00111101 

= ! 


132 

64 

-124 

10000100 



62 

3E 

62 

00111110 

> 



133 

65 

-123 

10000101 



63 

3F 

63 

00111 m 

? 



134 

66 

-122 

10000110 



64 

40 

64 

01000000 

8 



135 

67 

-121 

100001 11 



65 

41 

65 

01000001 

A 



136 

88 

-120 

10001000 



30 
















dziesiętnie 

! szesnastkcmo ! dziesiętnie ! 

binarnie 

• znakowo w 



dziesiętnie ! szesnastkowe 

dziesiętnie 

! binarnie i znakowo w 



be: znaku 

! ze znakiee i 


: kodzie ASCII 



bez znaku 

I 



ze 

znakiee 

! i kodzie ASCII 



137 

89 -119 

10001001 




196 


C4 



-60 

11000100 



138 

8ft -118 

10001010 


< 


197 


C5 



-59 

11000101 



139 

88 -117 

10001011 




198 


C6 



-58 

11000110 



140 

BC -lii 

10001100 




199 


C7 



-57 

tlOOOlll 



141 

8D -115 

10001101 




200 


CB 



-56 

11001000 



142 

8E -114 

10001110 




201 


C9 



-55 

11001001 



143 

8F -113 

10001111 




202 


CA 



-54 

11001010 



144 

90 -112 

10010000 




203 


CB 



-53 

11001011 



145 

91 -111 

10010001 




204 


CC 



-52 

l 1001100 



146 

92 -110 

10010010 




205 


CD 



-51 

11001101 



147 

93 -109 

10010011 




206 


CE 



-50 

11001110 



148 

94 -108 

10010100 




207 


CF 



-49 

11001111 



149 

95 -107 

10010101 




208 


DO 



-48 

11010000 


150 

96 -106 

10010110 




209 


Dl 



-47 

11010001 



151 

97 -105 

10010111 




210 


D2 



-46 

11010010 



152 

98 -104 

10011000 




211 


D3 



-45 

11010011 



153 

99 -103 

10011001 




212 


D4 



-44 

11010100 



154 

9ft -102 

10011010 




213 


D5 



-43 

UOIOIOI 



155 

98 -101 

tOOllOtl 




214 


D6 



-42 

11010110 



156 

9C -100 

10011100 




215 


D7 



-41 

11010111 



157 

9D -99 

10011101 




216 


D8 



-40 

11011000 



158 

9E -98 

10011110 




217 


D9 



-39 

11011001 


J 159 

9F -97 

1001111.1 




218 


DA 



-38 

11011010 



160 

A0 -96 

10100000 

« 



219 


D8 



-37 

11011011 



161 

Al -95 

10100001 




220 


DC 



-36 

11011100 



. 162 

A2 -94 

10100010 




221 


DD 



-35 

11011101 



163 

A3 -93 

10100011 




222 


DE 



-34 

11011110 



164 

A4 -92 

10100100 




223 


DF 



-33 

11011111 



165 

AS -91 

10100101 




224 


EO 



-32 

lllOOOOO 



166 

A6 -90 

10100110 




225 


El 



-31 

11100001 



167 

A7 -89 

10100111 




226 


E2 



-30 

11100Ó10 



168 

A8 -88 

10101000 




227 


E3 



-29 

11100011 



169 

A9 -87 

10101001 




228 


E4 



-2B 

11100100 



170 

AA -86 

10101010 




229 


E5 



-27 

11100101 



171 

AB -85 

10101011 




230 


E6 



-26 

ljllOOtlO 



172 

AC -84 

10101100 




231 


E7 



-25 

11100111 



173 

AD -83 

10101101 




232 


EB 



-24 

11101000 



1 ri 

AE -82 

1O101110 




233 


E9 



-23 

11101001 



175 

AF -81 

10101111 




234 


EA 



-22 

11101010 



176 

80 -80 

10110000 




235 


EB 



-21 

ltiotoil 



177 

81 -79 

10110001 




236 


EC 



-20 

11101100 



178 

82 -78 

10110010 




237 


ED 



-19 

1U01101 



179 

B3 -77 

10110011 




238 


EE 



-18 

11101110 



180 

84 -76 

10110100 




239 


EF 



-17 

11101111 


: 181 

85 -75 

10110101 




240 


FO 


, f 

-16 

11110000 



182 

86 -74 

10110110 




241 


FI 



-15 

11110001 



183 

B7 -73 

10110111 




242 


F2 



i-14 

11110010 



184 

88 -72 

10111000 




243 


F3 



-13 

11110011 



185 

89 -71 

10111001 




244 


F4 



-12 

11110100 



186 

BA -70 

10111010 




245 


F5 



-11 

11110101 



187 

/ 88 -69 

10111011 




246 


F6 



-10 

11110110 



iea 

BC -68 

10111100 




247 


F7 



-9 

11110111 



189 

BD -67 

lóltnoi 




248 


F8 



-8 

11111000 



190 

8E -66 

10111110 




249 


F9 



-7 

11111001 



191 

BF -65 

10111111 




250 


FA 



-6 

11111010 



192 

CO -64 

1 1 oooocro 




251 


FB 



-5 

11111011 



193 

Cl -63 

11000001 




252 


FC 



-4 

11111100 



194 

C2 -62 

11000010 




253 


FD 



-3 

11111101 



195 

1 C3 -61 

11000011 




254 


FE 



-2 

11111110 







255 


FF 



-1 

11111111 







u 1 

7 

3 4 

5 

b 

7 fi 

9 A fi c D i f 

Tablica D. 111.2. Konwersja liczb 1 -bajtowych w 

systeeie 












dziesiętny! (bez znaku) i szesnastkowy! 


60 

96 ! 97 ! 

98 ! 

99 ! 100! 

1011 

102! 

103! 104! 

105! 106! 107! 108! 109! 110! 111 


° 1 

2 3 4 5 6 7 8-9 

A 8 

C D E F 

70 

112J 113! 

114! 

115! 116! 

117! 

ub: 

119! 120! 

121! 122! 123! 124! 125! 126! 127 


00 J 0 ! 1 : 

2 i 3 ! 4 ! 5 ! 6 ! 7 ! 8 ! 9 

: io : ii : 

12 ; 13 : 14 : 15 


0 

128! 129! 

130! 

131! 132! 

133! 

134! 

135! 136! 

137! 138! 139! 140! 141! 142! 143 


10 : 16 | 17 f 

18 ! 19 : 20 ! 21 ! 22 ! 23 : 24 ! 25 

: 26 : 27 ! 

28 : 29 : 30 r 3i 


0 

144! 145! 

146! 

147! 148! 

149! 

150! 

151! 152! 

153! 154! 155! 156! 157! 158! 159 


20 i 32 ! 33 ! 

34 : 35 ! 36 ! 37 ! 38 ! 39 ! 40 : 41 

; 42 ! 43 ! 

44 ! 45 i 46 : 47 

AO 

160! 161! 

162! 163! 164! 

165! 

166! 

167! 1681 

169! 170! 171! 172.- 173! 174! 175 


30 : 48 : 49 : 

50 : 5i ; 52 : 53 : 54 : 55 : 56 : 57 

: 58 i 59 i 

60 i 61 i 62 : 63 

BO 

176! 177! 

178! 

179! 180 ! 

181 ! 

182! 

1B3! 1B4! 

185! 186! 187! 18B! 189! 190! 191 


40 i 64 i 65 j 

66 : 67 ; 68 I 69 : 70 ! 71 ; 72 ! 73 

i 74 { 75 : 

76 i 77 : 78 ! 79 

co 

192| 193! 

194! 

195! 196! 

197! 

198! 

199! 200! 201! 202! 203! 204! 205! 206! 207 



















EO j 2241 2251 2261 227! 228! 229! 2J0! 2311 232! 233! 234! 235! 236! 2371 23B! 2391 
FO i 240! 241! 242! 243! 244! 245! 246! 247! 248! 249 ! *250 [251 ! 252 ! 253 ! ImThŚ ! 

Liczby dziniptne od 0 do 255 ZMionczont h teblicy ii idintyfiktwirł 
izeiniitko«vii nuiereti wiłriiy- (2-cyłronł liczby od 00 do FOł i koluin 
(1-cyfrow* liczby od 0 do F) . 

Wyznaczenia aartofici sznniitkoNej aybranaj liczby dziaaiytnaj poleci na 
tzcinactkoaya dodaniu airtoici okrailona^o nuatru aiartza do koluany. 
Przykladoao liczba dziaaietna 171. zapisana n wierszu fiO i koluanit 8 
odpowiada liczbie AB (A0 ♦ 8 ) w syitiaia szesnastkowym 

W wypadku liczby izesnaatkowaj, jej postat dziesl|tn| znajduje 119 w 
kolueme wyznaczonej przez aniej znaczaca cyfra tej liczby i wierszu 
wyznaczonye przez odjada od tej liczby emej znaczącej cyfry. Dla przykTadu 
szesnastkowej liczbie 9A odpowiada liczba dziesiptna z kolueny A 1 wiersza 
*' ' ■ 90, czyli 154. 
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Tablica D.III.3. Konwersja liczb 2-bajtowych w systemie dziesiętny* (bez znaku) i szesnastkowym 


00 

0 ! 
o : 

1 : 

256 ! 

512 !• 

768 ! 

4 ! 

1024 ! 

5 ! 
1280 i 

6 1 
1536 ! 

7 ! 
1792 ! 

8 ! 
2048 ! 

1- 

9 ! 
2304 : 

10 ! 
2560 ; 

11 i 
2816 ! 

12 ! 
3072 ! 

13 ! 
3328 1 

14 ! 
3584 ! 

15 ! 
3840 ! 

10 

16 : 
4096 ; 

17 ! 
4352 ! 

18 ! 
4608 i 

19 I 
4864 ! 

20 ! 
5120 ! 

21 ! 
5376 ! 

22 ! 
5632 ! 

23 ! 
5888 ! 

24 ! 
6144 ! 

25 ! 
6400 ! 

26 ! 
6656 ! 

27 ! 
6912 ! 

2B 1 
7168 ! 

29 ! 
7424 1 

30 ! 
7680 ! 

31 i 
7936 ! 

20 

81 $2 Ś 

37 ' 

8M8 i 

34 ! 
8704 ! 

35 ! 
8960 ! 

36 I 
9216 I 

37 ! 
9472 ! 

38 ! 
9728 ! 

39 ! 
9984 ! 

40 ! 
10240! 

41 I 
10496! 

42 ! 
10752! 

43 ! 

11008! 

44 \ 
11264! 

45 ! 
11520! 

46 I 
11776! 

47 1 
12032! 

30 

48 : 
12288! 

49 : 
12544! 

50 ! 
12800! 

51 ! 
13056! 

52 ! 
13313! 

53 ! 
13568! 

54 ! 
13824! 

55 ! 
14080! 

56 ! 
14336! 

57 ! 
14592! 

58 ! 
14848! 

59 ! 
15104! 

60 ! 
15360! 

61 I 
15616! 

62 ! 
15872! 

63 ! 
16128! 

40 

64 

16384! 

65 ! 
16640! 

66 ! 
16896! 

67 ! 
17152! 

68 ! 
17408! 

69 ! 
176641 

70 ! 
17920! 

71 ! 
18176! 

72 ! 
18432! 

73 ! 
18688! 

74 ! 
18944! 

75 ! 
19200! 

76 ! 
19456! 

77 ! 
19712! 

78 ! 
19968! 

79 1 
20224! 

50 

80 I 
20480! 

81 ! 

20736! 

82* ! 
20992! 

83 ! 
21248! 

84 ! 
21504! 

85 : 
21760! 

86 ! 
22016! 

87 ! 
22272! 

88 ! 
22528! 

89 ! 
22784! 

90 ! 
23040! 

91 ! 
23296! 

92 ! 
23552! 

93 ! 
■23808! 

94 ! 
24064! 

95 ! 
24320! 

60 

96 ! 
245 7 6! 

97 ; 

24832! 

98 ! 
25088! 

99 ! 
25344! 

100 ! 
•25600! 

101 ; 
25856! 

102 ! 
26112! 

103 ! 
26368! 

104 ! 
26624! 

105 ! 
26880! 

106 i 

27136! 

107 ! 
27392! 

108 ! 
27648! 

109 i 
27904! 

110 ! 
28160! 

111 ! 
28416! 

70 

112 ! 
28672! 

113 .! 
28928! 

11.4 ! 
29184' 

115 ! 
29440! 

116 1 
296 9 6 ! 

117 ! 
29952 ! 

118 ! 
30208! 

119 ! 
30464! 

120 ! 
30720! 

121 ! 
30976! 

122 ! 
31232! 

123 ! 
31488! 

124 ! 
31744! 

125 ! 
32000! 

126 ! 
32256! 

127 1 
325121 

80 

128 : 
32768! 

12° ! 
33024! 

130 ! 
33280! 

131 ! 
33536! 

132 ! 
33792! 

133 ! 

34048! 

134 ! 
34304! 

135 ! 
34560! 

136 : 
34816! 

137 J 

35072! 

'i f 

138 ! 
35328! 

139 !• 
35584! 

140 ! 
35840! 

141 ! 
36096! 

142 ! 
36352! 

143 i 
36608! 

90 

144 : 

36864 ! 

145 ! 
371201 

146 ! 
3 7 376! 

147 ! 
37632! 

148 ! 
37888! 

149 ! 
38144! 

150 ! 
38400! 

151 ! 
38656! 

152 ! 
38912! 

153 ! 
39168! 

154 ! 
39424! 

155 ! 
396B0! 

156 ! 
39936! 

157 ! 
40192! 

158 i 
40448! 

159 i 
40704! 

A0 

160 ! 
40960! 

163 J 
41216! 

162 ! 
41472! 

163 ! 
41728! 

164 ! 
41984! 

165 ! 
42240! 

166 ! 
42496! 

167 ! 
42752! 

168 ! 
43008! 

169 ! 
43264! 

170 ! 
43520! 

171 : 
43776! 

172 I 
44032! 

173 ! 
44288! 

174 ! 
44544! 

175 ! 
44800! 

BO 

176 : 
45056! 

177 ! 
45212! 

173 ! 
45568! 

179 ! 
45824! 

180 ! 
46080! 

181 : 
46336! 

182 f 
46592! 

183 ! 
46848! 

184 ! 
47104! 

185 ! 
47360! 

186 ! 
47616! 

187 : 
47872! 

108 : 
48128! 

189 i 
48384! 

190 ! 
48640! 

191 ! 
48896! 

co 

192 ! 
4°152! 

193 ! 
49408! 

194 ! 
49664! 

195 i 
49920! 

196 : 
50176! 

197 ! 
50432! 

1 9 8 ! 
50688! 

199 ! 
50944! 

200 ! 
51200! 

201 ! 
51456! 

202 ! 
51712! 

203 ! 
51968! 

204 ! 
52224! 

205 i 
52480! 

206 I 
52736! 

207 i 
52992! 

DO 

208 ! 
53248! 

209 ! 
53504! 

210 ! 
53760! 

211 ! 
54016! 

212 ! 
54272! 

213 ! 
54528! 

214 ! 
54784! 

215 ! 
55040! 

216 ! 
55296! 

217 ! 
55552! 

218 ! 
55808! 

219 i 
56064! 

220 ! 
56320! 

221 j 

56576! 

1 

56832! 

223 ! 
57088! 

E0 

?24 ! 
57344! 

225 ! 
57600! 

22* ■ 
57856 i 

227 : 
58112! 

228 ! 
58368! 

229 ! 
58624! 

230 i 
5BB80! 

231 ! 
59136! 

232 ! 
59392! 

233 ! 
59648! 

234 ! 
59904! 

235 I 
60160! 

236 ! 
60416! 

237 ! 
60672! 

238 ! 
60928! 

239 ! 
61184! 

F0 

240 ! 
61440! 

241 ! 
61696! 

242 ! 
61952! 

243 ! 
62208! 

244 : 
62464 ! 

245 ! 
62720! 

246 ! 
62976! 

247 ! 
63232! 

248 ! 
63488! 

249 ! 
63744! 

250 ! 
64000: 

251 ! 
64256! 

252 ! 
64512! 

nt? 1 

64768! 

254 : 
65024 ! 

255 ! 
652 BO! 


Oznaczenie wiersry‘i kolumn ora: górne liczby dziesiętne w poszczególnych polach sa identyczne jak w tablicy D.III.2. Dolne 
liczby dziesiętne oowstałv w wyniku’ mnożenia liczb górnych przez 256 (25610, 25631, 25632, .. .2561255) 

Konwersja 2-bajtowej (4-cyfrowej) liczby szesnastkowej na postać dziesiętna polega na dodaniu wartości dziesiętnych dwóch 
bardziej znaczących cyfr (dolna liczba odpowiedniego pola) i dwóch mniej znaczących cyfr (górna liczba odpowiedniego pola). 
Przykładowo, wartość liczb’- szesnastkowej ABCD w systemie dziesiętnym wyifcsi 43776 + 205 = 


coshify dc odczytu dwóch mniej znaczących cyfr szesnastkowych. 

Dla przykładu wyznaczymy wartość szesnastkową liczby dziesiętnej 45778, Maksymalna liczba, nieprzekraczająca wartości 45778 
zapisana w wierszu BO i kolumnie 2 (BO ♦ 2 = B2> wynosi 4556E. Obliczamy różnicę: 45778 - 45568 = 210. Liczba 210 zapisana jest 
w wierszu BO i kolumnie 2 (DO ♦ 2 = D2). Ostatecznie liczbie dziesiętnej 4577B odpowiada liczba S2D2 w systemie szesnastkowym. 
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Ten zeszyt dedykujemy wszystkim tym, którzy 
postanowili programować samodzielnie. Wszystkie 
przykłady oparte zostały o dialekt Basica zastoso- 
wany w mikrokomputerach Atari. Jest ich w Polsce 
najwięcej. Łatwo też można zdobyć ich oprogra- 
mowanie. W koleżeński obieg ruszyły nie tylko 
gry, ale też i programy użytkowe. Czy zatem nasz 
zeszyt jest potrzebny? 

Nie mamy wątpliwości — dobrej literatury in- 
formatycznej nadal brakuje. Oczywiście nie każdy 
musi umieć programować, nie każdy przecież zos- 
tanie informatykiem, ale wierzymy, że każdy kto 
chce bliżej poznać swój komputer sięgnie po ni- 
niejszy zeszyt. 

Wprowadzanie długich programów zniechęca. 
Wiemy o tym, toteż tasiemcowych wydruków w 
zeszycie nie ma. Poza tym sumy kontrolne skute- 
cznie zabezpieczają przed popełnieniem błędów 
podczas wprowadzania programu do pamięci 
komputera. 

Od chwili informatycznej „eksplozji” w Polsce 
wysłuchaliśmy już wielu sporów na temat uło- 
mności niektórych typów mikrokomputerów, kry- 
tykowano Juniora, Mazovię, Kraka 86; wiele czasu 
stracono na udowadnianie wyższości polskiego 
Logo nad BASIC-iem. Tymczasem czas upływał. Jak 
to często bywa dobre pomysły utopiono w potoku 
akademickich dyskusji. 

Każdy język programowania ma swoje zalety, 
wyrabia dobre, bądź złe nawyki u programisty. 
BASIC obok swoich niewątpliwych wad ma tę 
wielką zaletę, że jest. W jego interpretery wyposa- 
żone są wszystkie występujące w kraju mikrokom- 
putery. I czy ktoś chce czy nie to właśnie BASIC jest 
dla posiadaczy mikrokomputerów pierwszym ję- 
zykiem, w którym porozumiewają się ze swoim 
urządzeniem. Dlatego czwarty zeszyt programów 
to właśnie BASIC — teraz można krytykować. 

Na końcu zeszytu zamieściliśmy również kilka 
programów dla posiadaczy starszego typu mikro- 
komputera — ZX Spectrum. Cierpliwość przy 
wprowadzaniu z pewnością będzie nagrodzona 
atrakcyjnością programu. 

Życzymy powodzenia. 


Aby wprowadzić programy do pamięci kompu- 
tera, radzimy wykorzystać Edytor BASIC’u, za- 
mieszczony w nr. 4 „IKS-a" z bieżącego roku. Pa- 
miętajmy: dwa znaki z lewej strony numeru linii 
nie są częścią programu, lecz sumą kontrolną danej 
linii, dlateeo nie wprowadzamy ich do komputera. 
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ATARI BASIC 


w przykładach 


TOMASZ MROWIEĆ 
LUDWIK PIELA 

Po otrzymaniu propozycji przygotowania numeru 
specjalnego „IKS", w części poświęconego komputerom 
Atari, byliśmy w rozterce; co zaproponować czytelni- 
kom, aby mogli jak najwięcej skorzystać? Wiedzieliśmy 
doskonale, czego nie chcemy umieścić, chociaż koszto- 
wałoby to nas najmniej wysiłku. Spędzamy dużo czasu 
przy komputerach i wiemy, jak żmudną i męczącą czyn- 
nością jest „wklepywanie” programów, szczególnie 
wtedy, gdy nie bardzo wiemy, co mają robić. Dlatego 
odrzuciliśmy wszelkie propozycje umieszczania długich 
programów. Nie chcieliśmy również dostarczać gier po- 
legających na zabiciu przeciwnika lub uniknięciu unice- 
stwienia. Wystarczająca ich podaż jest we wszelkiego ty- 
pu „wypożyczalniach” i na giełdach. 

Jednocześnie zauważyliśmy, że wielu programom, 
realizującym nieraz bardzo interesujące pomysły, braku- 
je ostatecznego wykończenia, są mało przejrzyste i 
trudne dla ewentualnych modyfikacji. Dlatego zdecy- 
dowaliśmy się zaprezentować czytelnikom, szczególnie 
tym, którzy stawiają pierwsze kroki w programowaniu, a 
także bardziej zaawansowanym pewne ciekawe proce- 
dury, które mogą wykorzystać w swoich programach. 
Nie są to żadne „sztuczki” programowe, które są często 
efektowne, lecz mało czytelne. Prezentowane moduły 
programowe, bo tak je można nazwać, są jasne i zrozu- 
miałe dla każdego znającego nieco BASIC. Jeśli chociaż 
niektórzy z was uznają je za przydatne i wykorzystają w 
tworzonych przez siebie programach, będzie to dla was 
wystarczającą satysfakcją. 

Dodatkowo prezentujemy kilka programów narzę- 
dziowych, które przeznaczone są dla bardziej zaawan- 
sowanych programistów oraz przykłady gry edukacyjnej 
dla najmłodszych. 

Najbardziej niedoświadczeni programiści szybko od- 
krywają, że sekcje wejścia i wyjścia programu są jego naj- 
trudniejszymi częściami. 

Prawie każdy program wymaga danych, które muszą 
być wprowadzane z klawiatury. Czy wystarczy kilka in- 
strukcji INPUT? W większości wypadków nie. A co bę- 
dzie, jeśli użytkownik przypadkiem naciśnie zły klawisz? 
Lub gorzej, co będzie, jeśli stwierdzi, po wprowadzeniu 
dwóch lub trzech pozycji danych, że są one niewłaści- 
we? Dobry programista musi przewidzieć, że użytkow- 
nik jego programu jest człowiekiem i popełnia nieprze- 
widziane, ludzkie błędy. 

Podobna sytuacja jest z wynikami. Nie mogą one być 
po prostu wyświetlane lub drukowane przez grupę 
przypadkowych instrukcji PRINT. Będą przecież czytane 
przez człowieka. Dopóki ich postać nie jest starannie 
zaprojektowana, mogą być bardzo trudne do odczyta- 
nia. YV konsekwencji informacja może być żle odczytana 
lub całkowicie niewidoczna. 


Q0 1 REM *%%%%%*%*%%%%***% 

ZR 2 REM * Pros ram r»r Z * 

QQ 3 REM ***%*%%**%*%*%%*t 

TU 10 -PRINT "PodaJ cene za litr " 

NK 20 INPUT. C1L 

HQ 30 PRINT "Ile litrów Ti a 100 km 

. 

CK 40 INPUT LKM 

HQ 50 PRINT " Km.%" LITRY"/ "CENO 
SS 60 PRINT " %“ 

m , w ii 

TL 70 FOR KM=100 TO 1700 STEP 100 

0U 80 LITR=KM*LKrV100 

TR 90 CENR=INT<C1L*LITR*100'//103 

NN 100 PRINT KM,LITR,CEMfi 

NC 110 NEXT KM 

TG 120 PRINT 

W 130 PRINT ,, L/'100km ■*“ i LKM, C1L; 

“ zl. za litr” 

NY 140 END 


GO 1 REM ***************** 
fiL 2 REM * Pros ram nr 2 * 

GG 3 REM ***************** 

GL 5 DIM N$<10';,T$<10>,BL*<40} 

KF 6 REM Wypełnienie BL*. spacjami 
BH 7 BL$=" " ' BL$C40)=BLi ! BLS<2)=>B 
L* 

TW 10 PRINT "Podaj cene za litr " 
NK 20 INPUT C1L 

HQ 39 PRINT "Ile litrów na 100 km 
CK 40 IHPIJT LKM 

HG 50 PRINT " Km."," LITRY", "CENA 

■1 

SS 60 PRINT " 

___ II 

TL 70 FOR KM= 1 00 TO 1700 STEF 100 
0U 80 LITR=KM*LKM/100 
TR 90 CENfi=INT<ClL*LITR*180V100 
SJ 100 NS=5 •' N=KM ' GDSUB 11 000 -PR IN 
T 1 ,NS) , 

GR 102 NS=7 ■ N=L ITR’ GOSUB 1 1000 ! PR 
INT N$<1,NS), 

SI 104 NS=5 ! N=CENR 1 GOSUB 11 000 'PR 
INT N*(1,NS) 

NC 110 NEXT KM 
TG 120 PRINT 

W 130 PRINT ”L/100km =%LKM,C1U 
" zl. za litr" 

NY 140 END 

IK 10000 REM ****************** 

YT 10001 REM * Podproars.m * 

HY 10002 REM *<m równania liczb* 

KY 10003 REM * w prawo * 

JE 10004 REM ****************** 

TC 11000 T$=STRSCN> 

GS 11010 NS=BL$ 

TV 11020 H«<NS-LENCTt)+l,NS5=T* 

DL 11038 RETURN 
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go i rem *#######*##**#### 

BF 2 REM * Program nr 3 * 

GG 3 REM #**##*#*******#*# 

GL 5 DIM NSK10>,Tśa0),BLf<40) 

KF G REM Wypełnienie BL$ spacjami 
BH 7 BL$*“ " 'BLSC40)=BL$'BL$<2)=B 
L* 

TW 10 PRINT "Podaj cene za lifcr “ 
NK 20 INPUT CiL 

HG 30 PRINT "Ile litrów na 100 km 

li . 

CK -40 INPUT LKM 

VK 50 PRINT " Km."," LITRY", CE 
NR" 

KT 60 PRINT 

'I 

TL 70 FOR KM=100 TO 1700 STEP 100 
OU 80 LITR.=KM*LKM/100 
TR 90 CENB=INTCC1L*LITR*100)/100 
TC 180 NS=6-DD=>0-N=KM-GO3UB 11000 
• PRINT N$<1,N3), 

NL 182 HS=7'DD=2'N=LITR'G0SUB 110 
80 'PRINT N$<1,NS), 

JV 404 NS=7'DD“1'N=CENB'G0SUB 110 
00 1 PR INT N$(1,NS) 

NC i 10 NEXT KM 
TG 120 PRINT 

W 130 PRINT "LrieGkm =";LKM,CIL; 

“ zł. za litr" 

NY 140 END 

IK 10000 REM Ki:*##*#*##****#### 

YT 10081 REM # Pod pros ram # 

HY 16002 REM *wy równania liczb# 

NY 10083 REM * w/a kropki # 

GT 10034 REM # dziesiętnej # 

JJ 10005 REM ******#####****#** 

TC 11800 T*=8TR*<N) 

GS 11010 N*=8L* 

DK 11030 DP=*LEN<T*)+i 
Y2 11040 FOR J“1 TO LEN(T#> 

QY 11056 IF TSCJ, J)n=". " THEN DP=J 
' J*N3 

GV 11060 HEKT J 
SG 11070 NL*DP+DD 
GH 11080 N$ C NS-NL+ 1 , NS ) *T$ 

EJ 11690 RETURN 


FK 1 REM *#####**#*###### 

ZH 2 REM # Pros ram nr 4 # 

FM 3 REM **####*#*####### 

OY 10 DIM R*<1),CU*<24),CR*<40) 

GL 20 CU*“CHRS<2B>'CU$<24>*CUS'CU 
S<2)*>CU$ 

YB 30 CR$=CHR4K31 ) 1 CR$(40)”CR# ; CR 

S<2)=CR* _ 

YI4 48 PRINT CHR$< 125); '{Przyszła w| 
Urtosc wkła du. u~P K CT 
VG 50 PRINT 'P~r!Rt 
2E 60 PRINT '>iklad pierwotny" 

OR 78 PRINT “Stopa oprocentowania 

II 

VP 88 PRINT "Ile Ut";CU#<l,3) 

2U 108 PRINT CRSCl, 15); 'INPUT BMT 
31 118 PRINT CR#( 1,2S); 'INPUT IR 
CK 120 PRINT CRśKl,?); ' INPUT YR 
BF 138 CMP=1 1 
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OP 140 IP=IR/CMP/100 

EB 158 FV=flMT#<l + IP)' s <CMP#YR) 

QY 168 PRINT "Przyszła wartość 11 
;INT<FV*100+0.5)/100;" " 

TQ 170 PRINT 

UH 188 PRINT "Czy zmieniasz wkład 

" i 

HE 190 INPUT R# 

KJ 206 IF Ri="T" THEN PRINT CU*<1 
,6); 'GOTO 100 
NT 210 END 


Wyprowadzenie 
informacji 
na ekran 



Przedstawienie informacji na ekranie powinno być tak 
zorganizowane, aby byłą ona łatwa do zrozumienia lub 
przyjemna dla oczu. Podstawowym narzędziem wyświet- 
lania informacji jest instrukcja PRINT 

Rozważmy wprowadzanie na ekran informacji przed- 
stawionych w postaci tabel. Zwykle dużo łatwiej jest 
przeglądać wykaz pozycji, gdy są one zestawione w ko- 
lumny. Dotyczy to zarówno liczb, jak i danych teksto- 
wych. Atari BASIC dysponuje dwoma sposobami wy- 
prowadzania informacji w postaci kolumn. Jednym jest 
użycie przecinków między wartościami w instrukcjach 
PRINT. Drugim jest użycie klawisza TAB. 

Jeśli komputer natrafi na przecinek po wartości 
(zmiennej) instrukcji PRINT, przesuwa kursor w prawo. 
Wypełnia spacjami obszar między końcem wyświetlanej 
wartości i początkiem następnej kolumny. Druga kolu- 
mna zaczyna się o dziesięć odstępów od lewego margi- 
nesu. dodatkowe kolumny występują co każde dziesięć 
odstępów. PROGRAM NR 1 używa dwóch z trzech do- 
stępnych kolumn. 

Używając przecinków należy zachować ostrożność. 
Dwie pozycje przed koncern kolumny muszą być puste. 
W przeciwnym razie następuje przejście do początku 
następnej kolumny. Możliwa jest zmiana szerokości ko- 
lumn za pomocą POKE 201,n, gdzie n jest nową szero- 
kością kolumn. 

Oba sposoby wyprowadzania informacji kolumnami 
mają jedną wadę. Wyrównują one wartości do lewego 
brzegu kolumny. Takie wyrównanie do lewego margine- 
su jest wygodne dla słów i innych wartości alfabety- 
cznych. Liczby są łatwiejsze do odczytania, jeśli są wy- 
równane w prawo. PROGRAM NR 2 zawiera podprogram 
wyrównania liczb do prawego marginesu. Podprogram 
ten wymaga indywidualnego dostępu do każdej cyfry 
liczby, która ma być wyrównana. BASIC umożli- 
wia taki dostęp tylko w zmiennych tekstowych, zatem 
podprogram tłumaczy liczbę na ciąg znaków (linia 
11000). Następnie wypełnia ciąg wyjściowy spacjami (li- 
nia 11010). Gwarantuje to stałą wartość w częściach cią- 
gu, które nie kończą się cyfrą. W końcu wyrównuje licz- 
bę w prawo (linia 11020). Sprawdza długość liczby 
i określa jak blisko prawego brzegu kolumny musi się 
rozpocząć, aby mogła być umieszczona właściwie. 

Program ten działa prawidłowo dla liczb całkowitych. 
Kolumny liczb z kropkami dziesiętnymi byłyby łatwiej- 
sze do odczytania, gdyby liczby były wyrównane według 
kropki dziesiętnej. W tym celu musimy określić, gdzie 



FK 1 REM i**************** 

RB 2 REM * Pros ram nr 5 * 

FM 3 REM **************** 

RN 9 REM USTAWIENIE LEWEGO MRRGIN 
ESU 

FM 10 PGKE 82,0 

FB 19 REM USTAWIENIE PRRWEGO MfiRG 
INESU 

GF 20 POKE 83,31 

SQ 30 GRAPHICS 0 'DS=PEEK<88)+PEEK 
< 89) *256 

DT 35 REM ZMIANR PROGRAMU WYSWIET 
LANIA 

NQ 40 OL* 1539 
WR 50 FOR 1*1536 TO 1538 
NE 60 POKE I,112'NEXT I 
JI 70 FOR 1*1 TO 24 
YC 80 POKE DL <66 

FX 90 POKE DL+2, INKDS/256) > POKE 
' DL+1 , DS-PEEK < DL+2 ) *256 ■ DS=DS+4 
8 

SL 100 DL"DL+3 
FT 110 NEXT I 

FM 115 REM USTAWIENIE WRSKIEGO TL 
A 

QI 120 POKE 559,33 
ER 130 POKE DL+2,6'P0.;E DL,65'P0K 
E DL+1,0 

ZK 140 POKE 560, 0' POKE 561,6 

FK 1 REM **************** 

AV 2 REM * Pros ram nr 6 * 

FM 3 REM **************** 

HH 10 DIM BL$<40),CMDi<l),R*<l> 

OS 50 BL*=" " 'BL*(40)i=BL* 'BL*<2)= 
SL$ 

OS 300 AMPSUB=2000 
TW 310 'PRINT CHR*<125> 'REM KASOWA 
NIE EKRANU 
HT 320 POSITION 2, 1 
XG 330 PRINT "POLECENIA CACDEP, H 
=Pomoc ) " > 

IJV 340 INPUT CHDf 
HL 360 POSITION 2,0 
XJ 376 PRINT "Mam wykonać poleceń 
ie “i 

RY 380 ON ASC<CMD#)-64 GOSUB 600, 
31767,800, 1000, 1200,31767,3176 
7, 1400 

XS 390 IF CMD*<>"P" THEN 310 
WB 400 PRINT "DRUKUJ" 'POP 'GOSUB 
31766 'GOTO 310 

FA 600 PRINT "DODAJ GOSUB 31766 
'RETURN 

VS 800 PRINT "ZMIEŃ "'GOSUB 31766 
. 'RETURN 

JJ- 1000 PRINT "KASUJ "'GOSUB 3176 
6 'RETURN 

XY 1200 PRINT "KONIEC" 'POSITION 2 
, 1 0 ' END 

DL 1400 PRINT "POMOC" 

XG 1410 GOSUB 2000 
ZT 1420 POP 'GOTO 320 
YJ 2000 GOSUB 2300 

KQ 2010 PRINT „Wakaz komen 

d " 

BX 2030 PRINT " [3= doda j 0=zmien 
{3=kas.u. J '* 


MZ 2048 PRINT « ©»kOYiiec]g=drukuJ 
0= pomoc"; 

RP 2050 RETURN 
IU 2300 POSITION 2 > 19 
RG 2310 FOR J»20 TO 23 
SK 2330 PRINT BL*<1,3S>; 

FT 2340 NEXT J 
DU 2350 POSITION 2.20 
flY 2360 RETURN 

CJ 31766 FOR 1*0 TO 400>NEXT I«RE 
TURN 

GD 31767 RETURN 

umieścić kropkę dziesiętną w każdej kolumnie. Następ- 
nie trzeba sprawdzić, gdzie jest kropka w każdej liczbie. 
Nie jest to zadanie trywialne, ponieważ BASIC używa 
liczb zmiennoprzecinkowych. Kropka dziesiętna może 
być gdziekolwiek. Po znalezieniu musimy przesunąć ją 
w prawo lub w lewo. Może to oznaczać gubienie dodat- 
kowych cyfr z prawej strony lub wypełnianie dodatko- 
wymi spacjami. 

Nowy podprogram (z PROGRAMU NR 3) zawiera 
wszystkie wymagania poprzedniego plus dodatkowe. 

Wstępnie zakłada, że nie ma kropki dziesiętnej i za po- 
mocą pętli FOR-NEXT poszukuje kropki w ciągu nume- 
rycznym. W wyniku działania tego podprogramu otrzy- 
mujemy kolumny liczb łatwe do przeglądania. Zauważ- 
my, że BASIC nie drukuje kropek dla liczb całkowitych. 
Nie drukuje też zer końcowych liczb, które nie zmienia- 
ją ich wartości. 

Istnieje niebezpieczeństwo, że liczba będzie. zbyt du- 
ża i nie zmieści się w wydzielonej kolumnie. Możliwe 
jest wstawienie do programu lub podprogramu instruk- 
cji sprawdzających wielkość liczby i ustawiających od- 
powiednią szerokość kolumny w celu dostosowania jej 
do największych możliwych wartości. 


Sterowanie 

kursorem 



Atari BASIC umożliwia bezpośrednie sterowanie kur- 
sorem dwoma sposobami. Jednym jest programowanie 
ruchu kursora znakami, przy użyciu funkcji CHR$ lub 
ciągów „escape". Drugim sposobem jest używanie ins- 
trukcji POSITION. 

Czasami program wymaga oczyszczenia ekranu. Robi 
się to przez wyświetlenie znaku ATASCII o kodzie 125, 
który czyści ekran i ustawia kursor w lewym górnym ro- 
gu. W celu wygenerowania niezbędnego znaku można 
użyć: CHR$ (125), ESC/CTRL— < lub ESC/SHIFT— <. 

Przesuwanie kursora po ekranie umożliwiają znaki: , 
, — i . Nie kasują żadnego znaku, przez który przecho- 
dzi kursor. Są dokładnie takie same w trybie programo- 
wania, jak w trybie bezpośrednim. 

PROGRAM NR 4, po obliczeniu wyniku, przesuwa 
kursor do góry, do miejsca wprowadzenia pierwszej 
liczby. Pozwala to wprowadzić nową liczbę lub nacisnąć 
RETURN, aby pozostawić poprzednią wartość. 

Instrukcja POSITION działa nieco inaczej. Nie prze- 
suwa kursorem, lecz aktualizuje zawartość pewnych 
komórek pamięci, komputera nowym położeniem kur- 
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FK 1 REM **************** 

BP 2 REM * Prosram nr 7 * 

FM 3 REM **************** 

HH 10 DIM eL*<40),CMW<U,R$a> 

OS 50 BL**" " ■BL*C40>=BL*'BL*<2)= 
6L$ 

05 300 BMPSUB-2000 

TU 310 PRIHT CHRJC 125> ' REM KASOWA 
NIE EKRANU 
HT 320 POSITION 2, 1 
XG 330 PRINT "POLECENIA CACDEP, H 
=Pornoc) " i 
UV 340 INPUT CMD* 

HL 360 POSITION 2,0 
XJ 370 PRINT "Mm ua konać poleceń 
ie "i 

RY 380 ON ASC<CMD$)-64 GOSUB 600, 
317,67,800, 1000, 1200,31767,3176 
7, 1400 

y.S 390 IF CMD* O "P” THEN 310 
UB 408 PRINT "DRUKUJ" 'POP 'GOSUB 
31766 'GOTO 310 

Ffi 600 PRINT "DODAJ “'GOSUB 31766 
■ RETURN 

VS 800 PRINT “ZMIEŃ “'GOSUB 31766 
' RETURN 

JJ 1000 PRINT "KASUJ "'GOSUB 3176 
* 6 'RETURN 

XY 1200 PRINT "KONIEC" 'POSITION 2 
,10‘END 

DL 1400 PRINT "POMOC" 

XG 1410 GOSUB 2000 

ZT 1420 POP 'GOTO 320 

VP 1394 REM ***************** 

XV 1395 REM * Podprogram * 

NP 1996 REM * wyświetlania * 

IV 1337 REM * rozszerzone! o * 

NU 1998 REM * wykazu komend * 

WJ 1999 REM ***************** 

YJ 2000 GOSUB 2300 

PO 2010 PRINT ". . . Wakaz kom 

end “ 

ZF 2020 PRINT "WieceJ danych <ACD 
P, N jeśli nie>“ 

BX 2030 PRINT "ffifedodaJ fg=zmien 
fCfckasuj" 

MZ 2040 PRINT " Hl-koniec [^drukuj 
pomoc ") 

RO 2050 POSITION 36,21 
KZ 2060 INPUT R* 

IY 2070 IF R*»"N" THEN RETURN 
HP 2060 ON ASC<R$>-64 GOTO 2150,3 
2767,2210,2210 

BN 2090 IF R*<>"P" THEN GOTO 2050 
YL 2100 GOSUB 2308 

CD 2110 PRINT " komend*' 

DRUKUJ " - 

AU 2120 PRINT “ Tekst okresUjaca 
działanie" 

HK 2130 PRINT " komenda drukuj " 
AO 2140 RETURN 
ZA 2150 GOSUB 2300 

VK 2160 PRINT " ^komenda' 

DODAJ ” 

'BJ 2170 PRINT " Tekst OkresUjaca 
działanie" 

DU 2180 PRINT " komenda dodaj" 

8D 2190 RETURN 
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YQ 2210 GOSUB 2300 

ZJ 2220 PRINT " komenda' ZMIEŃ l 

ub KRSUJ ” 

AZ 2230 PRINT - " Tek*t określ* J*cy 
działanie" 

VA 2246 PRINT " komend zmień i-ka 
suJ" 

AT 2250 RETURN 
IF 2300 POSITION 1,19 
VH 2310 FOR J-19 TO 23 
SK 2330 PRINT BL$<l,30)i 
FT 2340 NEXT J 
DU 2350 POSITION 2,20 
AY 2360 RETURN 

CJ 31766 FOR I«0 TO 400<NEXT Ii RE 
TURN 

GD 31767 RETURN 

sora. Nowy numer wiersza jest w komórce o adresie 84, 
nowy numer kolumny — w komórce 85. W dowolnej 
chwili można użyć funkcji PEEK, aby sprawdzić, gdzie 
następnie będzie kursor: PEEK(84) — dla numeru wier- 
sza, PEEK (85) — dla numeru kolumny. W pewnych try- 
bach graficznych komputer Atari używa do przechowa- 
nia numeru kolumny dwóch komórek. W tym wypadku 
PEEK(86) X 256 + PEEK(85) daje numer kolumny. 

Po każdym wyświetleniu informacji użycia instrukcji 
PRINT następuje również aktualizacja dwóch innych 
komórek pamięci przechowujących ostatnią pozycję 
kursora. Komórka 90 przechowuje numer wiersza, a 91 — 
numer kolumny. 

Dzięki instrukcji POKE możemy zmieniać szerokość 
obrazu przesuwając lewy i prawy margines. W komórce 
o adresie 82 przechowywana jest wartość lewego margi- 
nesu, a w komórce 83 — prawego. Standardowo lewy mar- 
gines jest w kolumnie 2. Aby go zmienić na 0 używamy 
instrukcji POKE 82,0. Prawy margines standardowo jest 
w kolumnie 39. Aby go przesunąć używamy: POKE 83,38. 
Zmianę szerokości obrazu demonstruje PROGRAM 
NR 5. 

Po ponownym ustawieniu marginesów musimy pamię- 
tać, że instrukcja PRINT „obserwuje” ich wartości. Nie 
ma znaku, który umożliwi przesunięcie kursora poza 
marginesy. Po osiągnięciu prawego marginesu następuje 
przejście do nowej linii. 

Jedynym sposobem ustawienia kursora poza margine- 
sami jest użycie funkcji POSITION. 

Należy również pamiętać, że zwężenie obrazu 
zmniejsza długości nie tylko linii fizycznej programu, 
lecz także linii logicznej, która nigdy nie przekracza 
trzech linii fizycznych, bez względu na ich długość. • 



Prawie każdy program wymaga wprowadzenia infor- 
macji. Celem sekcji wejścia dowolnego programu po- 
winno być minimalizowanie błędów wprowadzania oraz 
wygodne wykrywanie i poprawianie popełnionych błę- 
dów. Istnieją różne sposoby wprowadzania, które dążą 
do minimalizacji błędów. Poniżej przedstawione będą 
następujące: 



FK 1 REM **************** 

FJ 2 REM * * 

CK 3 REM * Program nr 8 * 

FL 4 REM * * 

FO 5 REM **************** 

QN 10 DIM NMSK* < 40 !> , SMSK* < 40 > , R$< 
40>,CL$<40) 

■ MB 20 NMSKS= ,, #"'NMSK*<40>=NMSK*<1 
) 1 NMSK*<2)=NMSK*< 1 ) 

HZ 30 SMSK* “ " _ “ 1 SMSKi ( 40 ) «SMSK$ < 1 
) SMSK* <2>=SMSK*< 1 ) 

WU 40 CL* “CHR* ( 38 ) ' CL* < 40 ) =CLi ' CL 
$<2>=CL* 

JS 90 PRINT CHR*< 125) i “WPROWADZAŃ 
IE CENNIKA 1 " ' ? 

OB 100 PRINT “NAZWA TOWARU " ; SMSK 
*a,9);CL$<l,10); 

GO 110 INPUT Rt 

EJ 120 PRINT “CENA JEDNOSTKOWA 
NMSK$< 1.8); CL*< 1.9); 

GS 130 INPUT R* 

NY 140 EHD 


FK 1 REM **************** 

FJ 2 REM * * 

DE 3 REM * Pro* r*itn nr 9 * 

FL 4 REM * * 

FO 5 REM **************** 

VX 10 DIM R*<40> 

TD 200 PRINT 

TB 210 PRINT "CZY WPROWADZASZ INN 
A POZYCJE 

GW 220 INPUT Rf:R*=R*a,l> 

KZ 230 IF R*="T" OR R*«"t" THEN 9 
0 

GN 248 IF R*»"N“ OR R*="n" THEN E 
ND 

MM 250 GOTO 210 

QO 1 REM ***************** 

TA 9 CFM * * 

MO 3 REM * Proś ram nr 10 * 

ID 4 REM * * 

GS 5 REM ***************** 

WM 10 DIM X*<10) 

IV 50 TRAP 8000 

UD 200 PRINT "WPROWADŹ CIĄG ZNAKO 
W "j 

JD 210 INPUT X* 

EO 220 IF X**"K" THEN 500 i REM Kon 
iec pro«ramu ? 

EG 230 PRINT "WPROWADŹ WARTOŚĆ LI 
CZBOWA " l 
ST 240 INPUT X 

CC 249 REM BI ad j«sli uprowadzono 
0 

NW 250 X=X*X/X 
JL 439 REM Koniec Proeramu 
KR 500 PRINT "OSTATNIE DANE' ";X$ 
;" i ";X 

TF 510 TRUP 40808 'REM Wyłączenie 
TRAP 

NY 528 END 

WQ 7398 REM +++++Obslu.«a bledow++ 

+++ 

HS 7333 REM Pobranie numeru, bledu 
HN 8006 E-PEEK09S) 


CS 8063 REM Pobranie numeru linii 
u której wystąpił blad 

CD 8610 EL=PEEK <186) +256&PEEK <187 
) 

BC 8020 IF E=3 OR E=8 THEN 8100 

DJ 8023 REM Blad w programie 

NF 8030 PRINT "UWAGA! Blad nr ";E 

DD 8040 PRINT "w linii EL 

FS 8080 EHD 

AB 8100 REM Siad danych wejściowy 
ch 

JH 8110 PRINT CHR$<253>; 

SV 8120 PRINT "BLAD... WPROWADŹ J 
ES2C2E RAZ" 

WQ 8130 TRAP 8086 ! REM Kasowanie T 
RAP 

KX 8140 GOTO EL 


— wyświetlanie pomocniczych komunikatów, 

— oczekiwanie naturalnych, intuicyjnych odpowiedzi, 

— sprawdzanie wprowadzonych informacji, 

— używanie podprogramu obsługi błędów, 

— logiczne grupowanie wprowadzanych danych, 

— umożliwienie obejrzenia i zmiany pogrupowanych 
danych, 

— ograniczanie odpowiedzi: używanie manipulatorów, 

— ograniczanie wyborów: używanie menu. 

Jednym ze sposobów ułatwiania współpracy użytkow- 
nika z programem, umożliwiającym wyeliminowanie 
błędów wprowadzania informacji, jest wyświetlanie 
krótkich komunikatów (podpowiedzi), które opisują 
oczekiwane dane. W miarę możliwości powinniśmy 
wstawiać podpowiedzi w jednej linii, a odpowiedzi w 
następnej. Ponieważ instrukcja INPUT zawsze wyświetla 
znak zapytania, najlepiej jest przedstawiać podpowiedzi 
w formie zapytań. 

Czasami niemożliwe jest sformułowanie zadowalają- 
cej podpowiedzi; jest albo zbyt lakoniczna albo zajmuje 
zbyt dużo miejsca. W takim wypadku możemy wyświe- 
tlić rozwiniętą podpowiedz w innym miejscu ekranu. 
Normalnie program wyświetla krótki komunikat. Umoż- 
liwia też użytkownikowi uzyskanie rozwiniętej in- 
strukcji po naciśnięciu klawisza „H” (od Help). Wypro- 
wadza wtedy instrukcje w pewnym stałym miejscu ekra- 
nu, powiedzmy w czterech dolnych liniach. Po wyświe- 
tleniu instrukcji program musi wrócić do miejsca, gdzie 
nastąpiło wezwanie pomocy (oczekiwanie na wprowa- 
dzenie). 

PROGRAM NR 6 oczekuje na jednoliterowe polece- 
nia w drugiej linii ekranu. Rozszerza polecenia literowe 
do poleceń słownych i wyświetla słowo z prawej strony 
górnej linii. Instrukcja może być wywołana przez do- 
wolny znak lub słowo. Literę H wybraliśmy samowolnie. 
Instrukcje możemy umieszczać w dowolnym miejscu 
ekranu, łcze zalecane jest wyświetlanie każdego zestawu 
instrukcji w tym samym obszarze. Oczywiście program 
musi czekać, aż użytkownik zakończy czytanie każdej 
części instrukcji, zanim przejdzie do następnej. Realizu- 
je to pojedyncza instrukcja INPUT. Jednocześnie pro- 
gram może zezwolić użytkownikowi na przerwanie ins- 
trukcji i powrót do normalnego ciągu wprowadzania. W 
PROGRAMIE NR 7 podmieniony został podprogram za- 
czynający się od linii 2000. 

Innym miejscem umieszczania instrukcji jest początek 
programu. Wyświetlane instrukcje nie zastąpią dobrze 
napisanej instrukcji drukowanej, lecz są często wystar- 
czającym przypomnieniem dla kogoś, kto jest trochę 
roztargniony. 
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GO 1 REM ***************** 

IB. 2 REM * * 

NL 3 REM * Prosram nr 11 * 

10 4 REM * * . 

Q8 9 REM ***************** 

£Q 10 DIM PRMT*<40> , MSK*<40) , BL*< 
40>,ERM*C20),R*<20> 

OP 20 BL*»" " 'BL»<40)«BL*'BL*<2>- 
BL* 

UZ 30 MSK** " _ " ' MSK* < 40 5 ®MSK* 1 MSK* 
<2>-MSK* 

GM 40 ERRHDL»8000 

IC 90 GOTO 1000 

ME 97 REM ******************* 

UE 98 REM * Kasowanie linii * 

MI 99 REM ******************* 

El 100 FOR J=Ll TO L2 
VX 110 POSITION T0/J 
YX 120 PRINT BL$C1 ,38); 

GH 130 NEXT J 
ZF 140 RETURN 

IB 167 REM ******************* 

ZX 168 REM * Komunikat bledu * 

IH 169 REM ******************* 

NE 170 FOR J»1 TO 3 
MT 180 POSITION 20,0 
UD 190 PRINT ERMS j CHRS < 253 ? j 
LE 200 FOR J2=l TO 100'NEXT J2'RE 
M Opóźnienie 
MG 210 POSITION 20,0 
ND 220 PRINT BLS<1, 19) 'REM Kasowa 
nie 

GI 230 NEXT J 
ZG 240 RETURN 
NX 246 REM ************** 

EU 247 REM * Kasowanie * 

LM 248 REM * instrukcji * 

OG 249 REM ************** 

EG 250 L 1 “20 1 L2 a 23 1 GOSUB 100 
OA 260 POSITION 2,20 
ZM 270 RETURN 
OK 596 REM ************** 

SR 597 REM * Podprosraro * 

ZJ 598 REM * wejścia * 

OT 593 REM ************** 

IB 600 TRAP ERRHDL 
TM 610 GOSUB 250 
GV 620 REM 

RV 630 POSITION IC+1,IR 
LG 640 PRINT MSK*<1, ILDiBL* 

FE 650 POSITION IC, IR 
SC 659 REM 
HO 660 INPUT R* 

RP 664 REM 

MB 665 FOR Jl-1 TO LENCRŚWF R$< 
Jl, Jl>OMSKi<l, 1) THEN NEXT J1 
AG 666 IF J1>1 THEN R*»R*<1, Jl-1) 
■GOTO 670 
CG 667 R*=>'"' 

ZU 670 IF R$»“?“ THEN GOSUB AMPSU 
B 1 GOTO 630 

VH 680 IF LO>HI THEN GOTO 750 1 REM 
cias 

OD 690 REM Zerowe wejście 
GF 700 IF RS— " " THEN R*»"0" 

W 705 IF ASCCRfG, 1>)<48 OR ASC< 
R*C1,1>»57 THEN 730 
UW 710 R=VAL(R*>. 
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PA 720 IF R>LQ AND R<H1 THEN RETU 
RN 

AX 730 ERMS-" ZLA WARTOŚĆ !" 

FU 740 GOSUB 170 'GOTO 610 
ZD 749 REM Uprowadzanie ci as u 
PG 750 IF LEN<R*X-IL THEN RETURN 
OW 759 REM Zla dlusosc ciasu 
YG 760 ERM*="ZLA DLUGOSC CIĄGU !" 
GA 770 GOSUB 170 'GOTO 610 
MK 796 REM **************** 

VF 797 REM * Wprowadzanie * 

MQ 738 REM **************** 

SL 799 REM 

CU 800 Ll-1 ' L,2*2 'GOSUB 100 
RU 809 REM 
HW 810 POSITION 2, 1 
AA 820 PRINT PRMT* 

EZ 829 REM Wartość wejściowa 
XI 830 IC-2 ' IR*2 ' GOSUB 600 
ZM 840 RETURN 

GY 399 REM —PROGRAM GŁÓWNY 

EF 1000 PRINT CHR*<125>; 'REM Czyś 
zczenie ekranu 

JW 1003 REM Wprowadzanie ciasu 
BE 1010 FRMT*="Podaj imię sracza 

?" 

AN 1020 IL-18'LO»l'HI-0 
RR 1030 AMPSUB-31767 
YJ 1040 GOSUB 800 
LJ 1643 REM Wprowadzanie wartości 
liczbowej 
GB 1050 PRMT*=R* 

HX 1060 PRMT * < LEN < PRMT* > + 1 ) - " - Jak 
i wanik ?“ 

IR 1680 IL=? 1 LO=0 1 HI “308 
CD 1090 AMPSUE=7000 
XZ 1100 GOSUB 800 
NG 1110 GOTO 1010 
SO 6997 REM Instrukcja wprowadzań 
i a wartości liczbowej 
XW 7000 GOSUB 250 
YW 7010 PRINT " Wprowadź liczbę d 
odatnia, " 

PW 7020 PRINT ■ mniejsza od 

" 300." 

AO 7030 RETURN 

NT 7936 REM ****************** 

CH 7997 REM * Obslusa bledou * 

OB 7998 REM ****************** 

HS 7999 REM Pobranie numeru bledu 
HN 8080 E-PEEKC 195) 

01 8609 REM Pobranie numeru Unii 
BT 8010 EL-PEEK <187) *256+PEEK <186 
> 

BC 8020 IF E«3 OR E=8 THEN 8100 
NF 8030 PRINT "UWAGA! Blad nr ";E 
KF 8040 PRINT "w linii nr “;EL 
FS 8080 END 
IF 8100 REM 

NA 8110 ERM*-"BLAD WE" 

YT 8120 GOSUB 170 
VQ 8130 TRAP ERRHDL 
KX 8140 GOTO EL 
GD 31767 RETURN 




Maskowanie 

wejścia 


Zawsze istnieją pewne ograniczenia długości odpo- 
wiedzi. Program może wyświetlać ciąg znaków, które 
ograniczają tę długość. Taki ciąg nazywamy maską wpro- 
wadzania. 

Do tego celu nadaje się dowolny znak. Powszechnie 
stosowane są znaki podkreślenia, gwiazdki, plus i minus. 
Program może używać jednego rodzaju znaków do ma- 
skowania tekstu i innego do maskowania liczb. Dostar- 
cza to dodatkowej informacji o oczekiwanej odpowie- 
dzi. PROGRAM NR 8 używa znaku podkreślenia dla 
wprowadzania tekstów i znaku # dla wejścia numery- 
cznego. 

Każda instrukcja PRINT, która drukuje maskę, drukuje 
także ciąg znaków, który przesuwa kursor na początek 
maski wprowadzania (linie 100 i 120). 


Wybieranie 

odpowiedzi 



Możemy zmniejszyć szansę powstania błędu przez os- 
trożne wybieranie odpowiedzi wejściowych. Nasz pro- 
gram powinien umożliwić użytkownikowi odpowiedzi 
w sposób naturalny, intuicyjny. Podczas pisania progra- 
mu wygodnie jest, aby użytkownik kodował wszystkie 
informacje wejściowe. Zmusza go to jednak do wyko- 
nywania mechanicznych czynności podczas każdego 
używania programu. Ponieważ komputer'jest lepszy w 
czynnościach rutynowych, późwółmy mu wykonywać 
kodowanie? Jeśli naturalną odpowiedzią jest słowo lub 
litera, których program będzie ewentualnie potrzebo- 
wał przetłumaczyć na liczbę, dajmy mu to zrobić. Właś- 
nie to wykonują linie 310 do 390 PROGRAMU NR 7. 
Użytkownik wprowadza kody mnemoniczne poleceń: 
A,Ć,D,E,P lub H. Program bada, który podprogram wy- 
wołać (linia 380), w celu wykonania polecenia. Wyo- 
braźmy sobie, o ile łatwiej byłoby napisać program, któ- 
ry wymaga od użytkownika wprowadzania polecenia w 
postaci numerycznej, lecz o ile trudniejszy byłby on w 
użyciu. 



Sprawdzanie 

odpowiedzi 


Nawet przy najostrożniejszym zaprojektowaniu wpro- 
wadzania nie możemy być pewni, w jaki sposób będą 
odpowiadać użytkownicy. Jeśli wprowadzenie błędnej 
informacji może spowodować jakąś trudność, program 
powinien sprawdzić, czy tekst nie jest zbyt długi? czy 


QQ 1 REM ***************** 

IB 2 REM * * 

OG 3 REM * Pros ram nr 12 * 

ID 4 REM * * 

GS 5 REM ***************** 

OS 9 REM InicJacJa zmiennych 
GM 16 DIM PRMT$<40),M8KK40),BUK 
40>,ERMS<23> 

OP 26 BLS-" " :BL*<40> ib BL$'BL$<2)“ 
BLS 

WZ 30 MSKS- " _ " ■ MSKS ( 40 ) -MSKS ■ MSKS 
<2>“MSK$ 

GM 40 ERRHDL-8080 
YU 50 DIM NRS(20),STT$<20),CIS(20 
>,ST$<2)»ZI$(9),R$(25) 

GB 89 REM Skok do początku prosra 
mu 

IC 90 GOTO 1000 

ME 97 REM ******************* 

UE 98 REM * Kasowani* Unii * 

MI 99 REM ******************* 

El 100 FOR J=L1 TO L2 
VX 110 P0SITI0N 0,J 
YX 120 PRINT BUKI, 38); 

GH 130 NEXT J 
ZF 140 RETURN 

LV 165 REM **************** 

YT 166 REM * Wyświetlanie * 

ZU 167 REM * bledow * 

ME 168 REM **************** 

NE 170 FOR J-l TO 3 
UT 180 P0SITI0N 10,20 
‘UD 190 PRINT ERMKCHR«253 )j 
TX 200 FOR J2-1 TO 100>NEXT J2 
IJG 210 P0SITI0N 10,20 ' 

BL 220 PRINT BUKI, 23) 

GI 230 NEXT J 
ZG 240 RETURN 
NU 245 REM ************** 

ET 246 REM * Kasowanie * 

QK 247 REM * pola * 

.LM 248 REM * instrukcji * 

0G 249 REM ************** 

EG 250 Ll-20* L.2-23 > G0SUB 100 
0R 260 POSITION 2,20 
ZM 270 RETURN - 
MI 596 REM **************** 

BK 597 REM * Pod s roi ram * 

FK 598 REM * wprowadzania * 

MR 599 REM **************** 

IB 606 TRAP ERRHDL 
TO 620 .GOSUB 250 
RV 630 POSITION IC+1 , IR 
TR 640 PRINT MSKK1, IL)jBLK1,23- 
IL> 

FE 650 POSITION IC, IR 
X0 659 REM Wprowadzenie i sprawdź 
enie odpowiedzi 
HD 660 INPUT RS 

MB 665 FOR JI-1 TO LEN < RS) > IF RK 
J1 , J1 ) OMSKK 1 » 1) THEN NEXT J1 

RG 666 IF J1>1 THEN RS-RSC1, Jl-1) 
•GOTO 670 
CG 667 RS-"" 

ZU 670 IF RS-"?" THEN GOSUB RMPSU 
B 1 GOTO 630 

GE 680 IF LG>HI THEN GOTO 750 
OD 690 REM Zerowe wejście 


GF 700 IF R*=* " " THEN Rł""0" 

YV 705 IF RSC<R#<1,1>><48 OR RSCC 
' R*<1,1>»57 THEN 730 
UW 710 R=>VflLCR$) 

BS 720 IF R> =LO HND R<=HI THEN RE 
-TURN 

RX 738 ERM$*"ZLR WFIRTOSC !" 

GP 740 GOSUB 170 'GOTO 620 
SB 749 REM 

PG 750 IF LĘN(MX-IL THEN RETURN 
OW 759 REM Zla dluaosc clasu 
ZU 760 ERM**"CIRG ZBYT DŁUGI " 

GV 770 GOSUB 170. GOTO 620 
MH 795 REM **************** 

VC 796 REM * Wprowadzanie * 

GG 797 REM * uiaponaeane * 

MQ 798 REM **************** 

CU 800 L1»1>L2=>2’ GOSUB 100 
QG 809 REM Wwawletlenle komunikat 

HW B10 POSITION 2, 1 
fifl 820 PRINT PRMT* 

EZ 829 REM Wartość wejściowa 
XI 830 102 1 IR"2 1 GOSUB 600 
ŻM 840 RETURN 

RC 999 REM Kasowanie ekranu 1 was 
wietlanie 

IŻ 1000 PRINT CHR* < 1 25 > i " PODR J NR 
ZWISKO I RDRES" 

RP 1010 PRINT ‘PRINT 
IC 1020 PRINT ”1) Nazwisk o"' 

RZ 1038 PRINT " 2 > Ulica'" 

JC 1040 PRINT "3> Miasto"' 

UD 1850 PRINT "4) Państwo"' 

UW 1070 PRINT "5> Kod"' 

WR 1099 REM Wprowadzenie 5 Pol 
WZ 1100 FOR F“1 TO 5 
Xfi 1110 GOSUB 2000 
DQ 1120 NEXT F 

CQ 1129 REM Wprowadzanie zmian 
IN 1130 PRMT*»"Czh chcesz cos zml 
enic?" 

XB 1140 LO1>HI=0'RMPSUB=31767 
VD 1150 I L»1 'GOSUB 800 
MO 1159 REM Rnaliza odpowiedzi 
EE 1160 IF R*=”N" OR R$«"n“ THEN 
1000 

PB 1170 IF R$“"T'' OR R*="t" THEN 
1200 

JO 1180 ERM*“"Prosze napisać T lu 
b N". GOSUB 170 
PQ 1190 GOTO 1138 

XE 1193 REM Pobranie numeru pola 
HV 1260 PRMT*=" Które Pole" 

RK 1210 L0=1 'HI=5'flMPSUB=32767 
UW 1220 lOl 'GOSUB 800 
WF 1230 F“R. GOSUB 2000 'GOTO 1130 
FF 1300 END 

XM 2000 L0=1 1 HI=8 ' RMPSUB=32767 
RZ 2010 ON F GOTO 2100,2200-2300, 
2400,2508 
Kfl 2037 REM 

IP 2038 REM Wprowadzenie nazwiska 
KI 2633 REM 

PV 2100 10=13 'IR«=3' 1020 'GOSUB 60 
0 

KR 2110 NRS=R* ' RETURN 
10 


KC 2137 REM 

OE 2138 REM Wprowadzenie ulica 
KK 2133 REM 

OM 2200 10=13' IR=4' IL«=20‘ GOSUB 60, 
0 

TV 2210 STTS=R$' RETURN 
KE 2297 REM 

HZ 2238 REM Wprowadzenie miasta 
KM 2233 REM 

RD 2300 I O 1 3 ' I R=5 ' I L=28 ' GOSUB 60 
0 

KL 2310 CI*=R$' RETURN 
KG 2337 REM 

RS 2338 REM Wprowadzenie państwa 
KO 2333 REM 

HU 2400 10=13' IR=6‘IL=3. GOSUB 600 
RE 2410 ST$=R* ' RETURN 
KI 2437 REM 

ZW 2498 REM Wprowadzenie kodu. 

KO 2433 REM 

KT 2500 10=13' IR=7' 10=6 'GOSUB 680 

PX 2510 ZIS=R* ' RETURN 

NT 7336 REM ****************** 

OH 7397 REM * Obsluaa bledow * 

OB 7338 REM ****************** 

HS 7339 REM Pobranie numeru bledu 
HH 8000 E=PEEK<135; 

HF 8003 REM Pobranie numeru bledn 
ej linii 

BT 8810 EL=PEEK O 87 } *256+PEEK <186 
) 

BO 8020 IF E=3 OR E=8 THEN 8180 
CP 8038 PRINT "ZNflLEZIONO BLRD NR 
" ; E 

flj 8048 PRINT " W LINII 11 i EL 

FS 8080 END 

IF 8108 REM 

HF. 8118 ER'M*="BLflD WPROWflDZHNIfi" 

YT 8128 GOSUB 170 

VQ 8130 TRFIP ERRHDL 
KX 8148 GOTO EL 
GD 31767 RETURN 


dane numeryczne, mieszczą się w wybranym zakresie? 
czy wprowadzona informacja nie spowoduje później 
błędu w programie? 

jeśli chcemy napisać dobry program, musimy włożyć 
trochę wysiłku w przeciwdziałanie błędom, które może 
popełnić ktoś używający naszego programu. Program 
powinien wykrywać błędy wprowadzania i wymuszać na 
użytkowniku ponowne wprowadzenie danych, które 
mogłyby spowodować nienormalne zatrzymanie pro- 
gramu. 

Prawdą jest, że BASIC wychwytuje pewne błędy. Jed- 
nak jego możliwości są ograniczone. Możliwe jest wpro- 
wadzenie wartości poprawnego typu, której wielkość 
jest nie do przyjęcia. Oznacza tó, że wprowadzona war- 
tość może spowodować błąd w dalszej części programu. 
Poniższy przykład ilustruje ten problem: 

100 INPUT X 
200 PRINT 100/X 
300 END 

Jeśli wprowadzimy O (w linii 100), program upadnie 
podczas próby dzielenia przez zero (linia 200) w instruk- 
cji PRINT. Można tego uniknąć dosyć łatwo. Dodajmy 
do powyższego programu następujące linie w celu 
sprawdzenia, czy wprowadzona wartość nie jest zerem 
i zażądajmy ponownego wprowadzenia, jeśli jest. 



110 IF XOO THEN 200 

120 PRINT „Niedozwolone ... wprowadź ponownie” 

130 GOTO 100 

Przez rozwinięcie zilustrowanego sposobu możemy 
zobaczyć, jak łatwe jest sprawdzenie pod względem 
wartości. W zależności od okoliczności powinniśmy to 
robić raczej instrukcją ON— GOTO lub ON— GOSUB 
niż ciągiem instrukcji !F — THEN. 

Czasami kontrola błędów jest kosztowna. Może zająć 
trochę czasu programowania, obszaru pamięci progra- 
mu i czasu jego działania. Rozważmy, na przykład, ty- 
powe pytanie tak lub nie. Program powinien umożliwić 
dowolne poprawne odpowiedzi „naturalne", którymi 
są: tak, nie. Tak, Nie, TAK, NIE, t, n, T lub N. Istnieje 10 
możliwych odpowiedzi, każdą z nich program musi 
sprawdzić. Możemy łatwo zredukować liczbę spraw- 
dzanych wartości, wystarczy sprawdzać pierwszy wpro- 
wadzany znak, jak w PROGRAMIE NR 9. Jeśli odpowiedź 
nie jest dozwolona, program powtarza pytanie. 


Instrukcja TRAP 


Atari BASIC ma specjalną instrukcję, która umożliwia 
śledzenie błędów, które przechwytuje, zanim wyświetli 
komunikat i wstrzyma realiżację programu. Po wykona- 
niu następującej instrukcji: 

100 TRAP 20000 

program przejdzie do podanego numeru linii w razie 
wykrycia błędu. Umieści także kod numeryczny błędu w 
komórce o adresie 195, który możemy zbadać funkcją 
PEEK. BASIC przechowuje także numer linii, w której 
wystąpił błąd. Możemy go pobrać dzięki wyrażeniu: 
PEEK(187)-f-256*PEEK(186). 

Instrukcja TRAP jest deaktywowana po każdym wystą- 
pieniu błędu. Program musi zatem wykonać inną in- 
strukcję TRAP w celu jej reaktywowania. W celu deakty- 
wacji tej instrukcji należy użyć TRAP 40000. 



Procedura 
obsługi błędu 


Zwykłą reakcją na błędy wykryte instrukcją TRAP jest 
napisanie procedury obsługi błędów, do której prze- 
chodzi program po wykryciu błędu. Na końcu tej pro- 
cedury program może przejść z powrotem do początku 
linii, w której wystąpił błąd, lub do dowolnej innej linii 
programu. Procedura obsługi błędów może podjąć róż- 
ne akcje w zależności od natury błędu i aktualnego sta- 
nu programu. 

PROGRAM NR 10 demonstruje użycie instrukcji 

TRAP. Program ten traktuje błędy, które nie są związane 
z wprowadzaniem danych, jako fatalne. Informuje o 
numerze błędu i numerze linii oraz zatrzymuje pro- 
gram. Błędy wprowadzenia nie są fatalne. Program syg- 
nalizuje je i żąda ponownego wprowadzenia. 



GO 1 REM ***************** 

IB 2 REM * * 

PB 3 REM * Pros ram nr 13 * 

ID 4 REM * * 

GS 5 REM ***************** 

EG 10 DIM X<50,14) 

RZ 20 DIM BLS(40),X*<4) 

OG 30 BL*=" " 1 BL$<40>=BL$ ! BL$<2)= 
BL$ 

GN-40 P0KE 752,2 

SL 43 REM Inicjowanie tablica 

FE 50 PRINT CHR$C125)ż "Proszę chi,; 

ile poczekać" 

IY 60 FOR K=0 TO 14 
IN 70 FOR J=0 TO 50 
WG 80 X<J,K)=(:j+n*100+K+l 
JG 30 NEXT J 
GL 100 NEXT K 
HX 133 REM Pros ram a łowna 
DS 200 PRINT CHR#< 125);" Użyj mani 
pulatora. do przesunięcia okna" 
RI 205 R=25 : 0=7 
■GL 210 GOSUB 1000 
RI 220 FOR K=1 TO 10 
MX 230 FOR J=1 TO 3 
UJ 240 ROSI TI ON J*10-l,K+4 
PI 250 X$=STR$ < X < R+K- 1 , C+ J- 1 > ; 

ON 260 PRINT BL$<1,10-LEN <X*)>>XŚ 

GG 270 NEXT J 
HC 288 N£XT K 
IG 230 P0SITI0N 2,1 
ZH 233 REM Odczat manipulatora 
DL 300 IF STICKC0)=7 AND C<12 THE 
N 0=0+1 : GOTO 210 

EO 310 IF STICK<0:)=11 AND C>0 THE 
N C=C-1 : GOTO 210 

AT 320 IF STICK<0)=13 AND R<41 TH 
EH R=R+1 '■ GOTO 210 
HW 330 IF STICKC0>=14 AND R>0 THE 
N R=R-1 : G0T0 210 
PV 340 GOTO 230 

YG 338 REM +++P0DPR0GRRM 1000+++ 
XD 1000 
JZ 1010 
GH 1020 
FJ 1030 
WM 1040 
£X 1050 
LP 1060 

łl . 

JD 1070 
FY 1080 
BG 1090 
RV 1100 
RG 1110 
QK 1120 

PR 1130 
F0 1140 
AG 1150 


FOR J=1 TO 3 

P0SITI0N 3+J*10,3 

PRINT "KOLUMNA" i 

NEXT. J 

FOR J=0 TO 2 

POSITION 16+J*10,4 

IF C+J+K10 THEN PRINT " 

PRINT C+J+l; 

NEXT J 

FOR J=0 TO 9 

POSITION 0, J+5 

PRINT "WIERSZ 

IF R+J+l <10 THEN PRINT " 

PRINT R+J+l ; 

NEXT J 
RETURN 
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GO 1 REM ***************** 

IB 2 REM * * 

PW 3 REM * Prof ra.ro nr 14 * 

ID 4 REM * * 

GS 5 REM ***************** 

FM 1000 R=1 ! LO=0 : HI=100 
PB 1010 POKE 752,2 
JE 6509 REM Kasouame starej wart 
ości 

MP 6510 PRINT CHR$<125> 

XU 6519 REM Wyświetlenie nowej wa 
rtosci 

'JU 6530 PRINT R; 

PK 6539 REM Zakończenie prosramu. 
RX 6550 IF STRIG<0>=0 THEN END 
NW 6559 REM Opóźnienie 
XF 6560 FOR J=1 TO 30 ' NEXT J 
IX 6579 REM Ruch do talu 
FZ 6580 IF STICK(0)=1 1 RND ROLO 
THEN R=R- 1 1 GOTO 6510 
NE 6589 REM Ruch do przodu 
GU 6590 IF STICK<0)=7 RND ROHI T 
HEN R=R+1 "GOTO 6510 
8D 6599 REM Bez zmian 
UD 6600 GOTO 6550 


GO 1 REM ***************** 

IB 2 REM * * 

GR 3 REM * Pros ram nr 15 * 

ID 4 REM * * 

GS 5 REM ***************** 

ZG 10 DIM 6L$<40) 

HC 19 POKE 752,2 

OP 20 BL$=" " ;BL$<40:>=BL$’BL$<2>= 
BLf 

LX 1000 PRINT CHR$< 125) 

ER 1200 LO=0 ! Hl=200 '■ R=100 : INC=0. 5 
TW 1210 IC=10 : TR=11 : IL=7 
80 1220 GOSUB 6500 
RM 1230 PRINT 

WG 1240 PRINT "Wabran*. liczba ' " 

)R 

FF 1900 END 

BK 6496 REM ******************** 
V0 6497 REM * WE z manipulatora* 
BS 6498 REM ******************** 
RG 6500 POŚITION IC, IR 
MI 6510 PRINT BL$U,IL); 

RM 6520 POŚITION IC, IR 
UU 6530 PRINT R; 

IP 6539 REM Koniec Pros ramu 
ZR 6550 IF STRIG<0)=0 THEN RETURN 
NW 6559 REM Opóźnienie 
FZ 6560 FOR J=1 TO SD ! NEXT J 
SU 6569 REM Opóźnienie minimalne 
VG 6570 SD=1 
Y 0 6579 REM Ruch w tal 
GW 6580 IF STICK(0)=1 1 RND ROLO 
THEN R=R-INC-G0T0 6500 
OT 6589 REM Z powrotem 
LF 6590 IF STICKC0)=7 RND ROHI T 
HEN R=R+I NC : GOTO 6500 
BD 6599 REM Bez zmian 
EG 6600 SD=30 > GOTO 6550 
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Użyteczne 
podprogramy 
wprowadzania > 


Obecnie spróbujemy zbudować ogólny podprogram 
wprowadzania. Będzie on używał wszystkich technik, 
które omówiliśmy dotychczas: podpowiedzi, rozszerzeń 
instrukcji, maskowania wejścia, sprawdzania odpowiedzi 
i procedury obsługi błędu. ' 

Podprogram wprowadzania będzie używał kilku in- 
nych podprogramów. Jeden z nich czyści (kasuje) linie 
na ekranie, inny wyświetla komunikat błędu w prawym, 
górnym rogu ekranu oraz generuje sygnał dźwiękowy. 
Potrzebny jest także podprogram czyszczenia obszaru u 
dołu ekranu, w którym pojawiają się rozszerzone ins- 
trukcje PROGRAM NR 11 zawiera wszystkie niezbędne 
podprogramy oraz wzajemne powiązania między nimi. 
Podprogramy te są wyróżnione odpowiednimi komen- 
tarzami. Używane są dwie zmienne do przechowywania 
numerów linii: ERRHDL i AMPSUB. Umożliwia to do- 
starczenie do programu wywołującego własnych proce- 
dur, a zatem różnych sposobów obsługi błędów i rozwi- 
nięć instrukcji. AMPSUB musi być rzeczywistym nume- 
rem linii, która może zawierać samą instrukcję RETURN, 
lecz musi istnieć. 

Na początku PROGRAMU NR 11 deklarowane są i ini- 
cjowane zmienne używane przez poszczególne pod- 
programy. Następnie przechodzi on do realizacji głów- 
nego ciągu instrukcji (linia 90), gdzie ustawia 20-znako- 
wą zmienną tekstową (linie 1010 do 1040) oraz dane 
numeryczne (linie 1050 do 1070). Zauważmy, że wejście 
tekstowe nie ma rozwinięć instrukcji — AMPSUB ma 
wartość 31767, adres procedury, która nic nie robi. Istnie- 
ją jednak rozwinięcia instrukcji do wprowadzenia war- 
tości numerycznych (linie 7000 do 7040). 


Bardzo często program potrzebuje kilku części infor- 
macji logicznie powiązanych ze sobą. Może wprowa- 
dzać pozycje danych na kilka sposobów. Jednym z nich 
jest wprowadzanie każdej pozycji w tym samym miejscu 
ekranu, używając różnych znaków zachęty dla każdej 
pozycji. Ten sposób używany jest w procedurze wpro- 
wadzania nazw i wartości w PROGRAMIE NR 11. Pro- 
gram przypomina, którą wartość należy wprowadzić, 
przez wypisanie odpowiedniego komunikatu. 

Lepszym sposobem manipulowania wielokrotnymi 
pozycjami danych jest wyświetlenie odpowiedniego 
szablonu na ekranie i wypełnianie go w miarę wprowa- 
dzania danych. W tym celu program najpierw wyświetla 
♦szablon zawierający opis każdej pozycji i wystarczający 
obszar dla wprowadzania danych. Tak opisane pozycje 
nazywane są polami, każde z nich ma numer. Dane wpro- 
wadzamy sekwencyjnie, rozpoczynając od pierwszego 
pola i kończąc na ostatnim. 

Do uzyskania takiego efektu potrzebny jest niewielki 
wysiłek. Załóżmy, że chcemy wprowadzić nazwisko i ad- 
res. Mamy zatem do wprowadzenia pięć pozycji: nazwi- 



Wprowadzanie 

danych 

grupowych 




sko, ulica, miasto, państwo i kod pocztowy. Opisany 
program wprowadzania wykona większość pracy. Wy- 
starczy wprowadzić go do pamięci. Po uruchomieniu 
program wyświetla maskę wejściową dla każdego z pię- 
ciu pól. Informuje także, które pole należy aktualnie 
wprowadzić. 


Przeglądanie 
i zmienianie 
wprowadzonych 
danych 

Po zakończeniu wprowadzania program może umoż- 
liwić dokonanie zmian poszczególnych pól. Wymaga to 
znajomości numeru zmienianego pola. 

Możemy dodać do tego programu możliwość doko- 
nywania zmian. Po zakończeniu wprowadzania jesteśmy 
pytani, czy chcemy dokonać zmian, jeśli tak, to należy 
podać numer pola, które chcemy zmienić, i użyć odpo- 
wiedniej instrukcji do wywołania właściwego podprogra- 
mu wprowadzania. 

PROGRAM NR 12 realizuje wszystkie opisane wyżej 
funkcje. Możliwe jest dodanie innych własności, według 
uznania. 



Używanie 
manipulatorów 
do ograniczenia 
odpowiedzi 

Jedną z trudności wszystkich sposobów wprowadzania 
danych jest mnogość wyborów, które ma użytkownik. 
Każdy dodatkowy wybór to możliwość powstania błę- 
dów. Program musi sprawdzać i eliminować niewłaściwe 
odpowiedzi. Rozwiązaniem tego problemu jest wyeli- 
minowanie klawiatury jako urządzenia wprowadzania i 
użycie zamiast niej manipulatorów. Najłatwiejszym do 
adaptacji jest manipulator drążkowy (joystick). N'e za- 
wsze jest możliwe użycie go zamiast klawiatury, lecz wie- 
lość sposobów jego użycia jest nieoczekiwana. 



GO 1 REM ***************** 

IB 2 REM * * 

RM 3 REM-* Prosram nr 16 * 

ID 4 REM * * 

QS 5 REM ***************** 

FC 999 REM Kasowanie ekranu i was 
wietlanie eodzialki 
LX 1680 PRINT CHR#< 125) 

BY 1010 PGSITION 0/11 

XL 1020 PRINT "01 2345878S81 23456? 

630 1 234567698 1 23456789" 

FR 1038 FOR J?0 TO 23 
'JO 1340 POSITION 21 /J 
KE 1050 PRINT J-INT<J/I0)*10; 

FS 1060 NEXT J 

ZN 1663 REM Naświetlanie kursora 
NK 1070 FOSITION 21/11 
JT 1066 PRINT CHR*<253>; 

KE 10819 REM 
RY 1090 3C=21'SR=11 
HZ 1099 REM Ograniczenia ruchu 
CR 1100 LC=2'RC=39'TR=0'BR=23 
Vfl 1109 REM Ustawienie sza bk ości 
zmian 

QD 11 10 DLY1=20 

CW li 19 REM Wy wdania podprosramu 

manipulatora 

YZ li 20 G0SU8 6800 
FF 1300 END 

YF 5996 REM **) m**************** 
0F 5937 REM *Podprosram kursora * 

yn 5398 rem ********************* 

TK 5399 REM NacisnlJ przycisk w C 
elu zatrzymania kursora 
YB 6000 IF STRIO<0)=0 THEN RETURN 
NP 6009 REM Wolno w doi 
KQ 6010 FOR J=1 TO DLY1'HEXT J 
GD 6013 REM Sprawdzenie pozycji m 
anipulatora 

UG 6620 IF 3TICKC0)*? RND SCORC 
■ THEN SC=SC+1< PRINT CHR*<31)i 
MX 6030 IF STICK<0>=11 RND SCOLC 
THEN SC=3C*'* 'PRINT CHP$<3 S)j 
RC 6040 IF »STICK<0)“13 RND SROBR 
THEN SR«SR+1 'PRINT CHR*<29)j 
NN 6050 IF STICK(0>=14 RND SROTR 
THEN SR=SR-1 'PRINT CHRHK285J 
PO 6068 GOTO 6000 


Sterowanie 
obrazem 
za pomocą 
manipulatora 


Kiedy mamy do czynienia z dużymi ilościami danych, 
tylko część z nich może być wyświetlona jednocześnie 
na ekranie, lednym ze sposobów jest użycie ekranu jako 
okna nad danymi. W dowolnej chwili pokazuje on tylko 
część z dostępnych danych. Przeglądanie danych w ten 
sposób jest łatwe, jeśli są one umieszczone w tablicy 
numerycznej [ub nawet pseudotablicy tekstowej. Wyo- 
braźmy sobie, że tablica danych zapisana jest na dużej 



GO 1 REM ***************** 

IB 2 REM * * 

SH 3 REM * Pres ram nr 17 * 

ID 4 REM * * 

QS S REM ***************** 

KH 939 REM Kasowania skra nu i wy a 
wietlanie menu 
LX 1000 PRINT CHRZCI 25) 

VI 1810 PRINT "Wybierz Polecenie 
przy pomocy mani pu lato 

ra" 


Rr 1028 PRINT 

GS 1630 PRINT » DODRJ" 

DR 1040 PRINT " ZMIEŃ " 

JB 1050 PRINT " USUŃ" 

TQ 1060 PRINT " DRUKUJ" 

20 I 070 PRINT " POMOC" 

XY 1683 PRINT " KONIEC" 
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KE 2089 REM 

V0 1090 POSITION 4,3 

WG 1100 PRINT CHR*<29>; 

Vfl 1109 REM Ustawienie szybkości 

zmian 

SB 1110 SO>4'SR=3 
JL 1119 REM 

GZ 1120 L04 ' RC*4 ’ TR“3 ■ BR“8 
JO 1129 REM 
QU 1130 DLY1-30 
2F 1140 GOSUB 6000 

sa nas PosiTioN 15,15 

MM 1160 ON SR-2 GOSUB 2000,2500,3 
000, 3500, 4000 < GOTO 1 900 
DE 1170 POSITION 2,10 
FF 1900 END 

KG 2000 PRINT "DODAJ “■ RETURN 

CN 2500 PRINT "ZMIEŃ " ! RETURN 

LH 3080 PRINT "USUŃ '"RETURN 

MN 3330 PRINT "DRUKUJ '"RETURN 

ZO 4008 PRINT "POMOC '"RETURN 

YF 5936 REM ********************* 
OF 5997 REM *Podproa ram kursora * 
YN 5338 REM ********************* 
TK 5939 REM NacisnlJ przycisk w o 
elu zatrzymania kursora 
YS 6803 IF STRIG<0)«0 THEN RETURN 
NP 6009 REM Wolno w doi 
KG 6010 FOR J*1 TO DLY1 'NEXT J 
QD 6819 REM Sprawdzenie Pozycji m 
anipulatora 

UQ 6820 IF STICK(0)®7 AND SCORC 
THEN SC«SC+1 'PRINT CHR*<31); 

MN 6030 IF STICK<0>==11 AND SCOLC 
THEN SC*SC- 1 ' PR I NT CHR*<30>; 
RO 6048 IF STICK<e>=13 AND SROBR 
THEN SR=SR+1 'PRINT CHR*<23); 
HN 6050 IF STŚCk(0)»14 AND SROTR 
' THEN SR^SR-l 'PRINT CHR#<28); 
PO 6060 GOTO 6000 


QO 1 REM ***************** 

IB 2 REM * * 

TC 3 REM * Pros ram nr 18 * 

ID 4 REM * * 

GS 3 REM ***************** 

RC 10 DIM R<10),R*<10) 

GD 59 REM Otwarcie kanału weJsc i o 
weno klawiatury 
BO 60 OPEN #1,4,0, "K'" 

DT 8230 GOSUB 8400 'REM ROK 
SV 8270 PRINT CHR#<31); 

LH 8280 GOSUB S480'REM MIESIĄC 
30 8340 PRINT CHR$<31); 

IZ 8336 GOSUB 8400 'REM DZIEŃ 
BK 8380 RETURN 

G8 833 r REM ******************* 

NX 8338 REM * POBIERZ 2 CYFRY * 

HA 8333 REM ******************* 

FM 8400 FOR J1=0 TO 1 
BI 8410 GET #1,R'R<JI)=R 
PF 8440 PRINT CHR$<R); 'REM ECHO 
CU 8450 NENT J1 

GZ 8460 R$<HRjt<R<0))'R$<2)=CHR*< 
R<1 ) ) 

BJ 8470 RETURN 
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Q0 1 REM ***************** 

IB 2 REM * * 

TX 3 REM * Prosrarn nr 13 * 

ID 4 REM * * 

GS 5 REM ***************** 

ID 10 DIM MSK*<2),R*<2),DAT*<8),R 
< 1 ) 

FC 20 MSK$=" " 

KG 53 REM Otwarcie kanału klawiat 
ury 

BO 60 OPEN #1,4,0, "K'" 

YU 1000 PRINT CHR*< 125); "Podaj ak 
tualna datę w postaci' 

rok -m i es i ac-dz i en ■ " 

rw 1010 iCMsaR^ 

ZQ 1020 GOSUB 8200 'REM Wprowadzeń 
ie daty 

IM 1030 POSITION 15,6 
EW 1040 PRINT DAT* 

FC 1050 END 

XW 8197 REM ********************* 
OF 8138 REM * Wprowadzenie daty * 
YE 8133 REM ********************* 
WG 8200 POSITION IC, IR ' PRINT CHR* 
<253); 

IA 8210 PRINT MSK*;"- ,, ;f1SK*; , '-";M 
SKS; 

WM 8220 POSITION IC, IR'PRINT CHR* 
<253); 

DT 8230 GOSUB 8400 'REM ROK 
BO 8240 Y=VAL<R*) 

HB 8250 IF Y<0 OR Y>33 THEN 8200 
RO 8260 DAT#< 1 , 2)=R* ■ DAT* <3, 3)”"* 

II ' 

SV 8270 PRINT CHR*<31>; 

LH 8280 GOSUB 8400 'REM MIESIĄC 
ZJ 8230 M=VAL<R*> 

KU 8300 IF M<1 OR M>1 2 THEN 8200 
IP 8310 DAT*<4, 5)“RS ' DAT*<6, 6)»"~ 

II 

SI 8320 PRINT CHR*<31); 

UL 8325 IF D>31 THEN 8200 • 

IT 8330 GOSUB 8400 'REM DZIEŃ 
WU 8340 D*VAL(R*) 

ZX 8356 IF D<1 THEN 8209 
WW 8360 IF M»2 AND D>29 THEN B200 
SS 8370 IF CM-4 OR M»6 OR M«3 OR 
M«ll) AND D>30 THEN 8206 
VR 8375 IF D>31 THEN 8200 
DV 6380 DAT*<7,8)wR* 

CH 8335 RETURN 

GS 8337 REM ******************* 

GB 8398 REM 8 Pobierz 2 cyfry * 

HA 6393 REM ******************* 

FM 8480 FOR Jl«8 TO 1 
BI 6410 GET #1,R.R<J1)*R 
A8 8413 REM Klawisz <BACK SPACE> 
oznacza restart 

AO 3420 IF R=126 THEN POP 'GOTO 8 
200 

OL 8423 REM lenorowanie klawiszy 
literowych 

PB 8430 IF R<48 OR R>57 THEN 8410 
PF 8440 PRINT CHR#<R>; 'REM ECHO 
CU 8450 NEXT J1 

GZ 8460 Rf=CHR*<R<0))'R*<2)=CHRt< 
R<1)> 

BJ 3470 RETURN 



planszy i oglądamy ją przez wizjer kamery. Plansza jest 
wystarczająco duża, aby nie można było jej objąć w ca- 
łości, lecz możemy obejrzeć dowolną jej część przez 
przesuwanie wizjera w górę, w dół, w prawo lub w lewo. 
Ekran może imitować wizjer, a manipulator może stero- 
wać jego ruchem nad polem danych. 

Pokażemy, jak zastosować opisaną technikę dla tablicy 
numerycznej dwuwymiarowej. Jako wartość każdego 
elementu tablicy przydzielimy liczbę czterocyfrową, 
która określa numer wiersza i kolumny danego elemen- 
tu. Na ekranie występują nagłówki wierszy i kolumn. 
Utworzone okno jest mniejsze niż cały ekran, aby lepiej 
zilustrować koncepcję okna nad danymi. Nie ma przesz- 
kód, aby utworzyć okno zajmujące cały ekran. 

Cały PROGRAM (NR 13) jest stosunkowo prymitywny. Ma 
tylko jedną szybkość. Zużywa około dwóch sekund na 
ponowne wyświetlenie okna za każdym razem, gdy 
zmieni się numer wiersza lub kolumny; daje to 20s na 
przesunięcie okna o dziesięć wierszy. Można poprawić 
nieco program i skrócić ten czas dwukrotnie, lecz dzie- 
sięć sekund to nadal zbyt długo. Zamiast ciągłego wy- 
świetlania okna tak często jak to możliwe, gdy manipula- 
tor wychylony jest w jednym kierunku, program mógłby 
wyświetlać ponownie dopiero wtedy, gdy przyjmie on 
położenie środkowe. W ten sposób okno wyświetli się 
tylko raz dla każdego ciągłego ruchu. Możemy w ten 
sposób zredukować czas przesuwania okna do dwóch 
sekund plus czas na odchylenie manipulatora od środ- 
ka. Oczywiście program będzie aktualizował numery ko- 
lumn w miarę przesuwania okna poziomo i numery 
wierszy w czasie ruchu pionowego, zatem zna on poło- 
żenie okna. Spróbujcie sami dokonać tych zmian w pro- 
gramie. 

Można także przesuwać okno po przekątnej. Spró- 
bujcie rozszerzyć program nr 13, między liniami 300 i 330 
aby umożliwić taki ruch okna. Po wykryciu ukośnej po- 
zycji manipulatora program musi zmienić jednocześnie 
wiersz i kolumnę, zmienne R i C. 


Wprowadzanie 

liczb 

manipulatorem 


Możemy napisać program, który używa manipulatora 
do wprowadzania wartości numerycznych. Rozpoczyna 
się on od wyświetlania liczby na ekranie. Następnie 
sprawdza położenie manipulatora. Ruch w lewo powo- 
duje zmniejszenie liczby. Ruch w prawo i liczba zwięk- 
sza się. Ustawienie na środku przerywa zmiany. Gdy 
właściwa liczba jest na ekranie, naciskamy przycisk ma- 
nipulatora. PROGRAM NR 14 demonstruje wprowadza- 
nie liczb od 1 do 100. 

Program działa poprawnie, lecz niełatwo jest wybrać 
określoną liczbę. Jest on zbyt wrażliwy na ruch manipu- 
latora oraz zbyt często sprawdza jego położenie. Należy 
wprowadzić pętlę opóźniającą (linia 6560). 

Lepiej wykonany jest PROGRAM NR 15. Używa tych sa- 
mych zmiennych co ogólny podprogram wprowadzania 
dla określenia zakresu wprowadzania wartości (LO i HI), 
położenia kursora (IR i IC) i wielkości pola (IL). Wpro- 
wadzoną wartość zwraca w zmiennej R. Podprogram z 
tego programu używa dwóch pętli opóźniających do 
sterowania szybkości zmiany liczby (linia 6560). Startując 
od małego opóźnienia (linia 6570) dla maksymalnej 
szybkości zmian. Gdy manipulator jest w położeniu cen- 



. 

GO i REM ***************** « 

IB 2 REM * * 

NK 3 REM * Prosram nr 20 * 

ID 4 REM * * 

GS 5 REM ***************** 

IK 9 REM Inicjowanie zmiennych 
DK 10 DIM MSK*<40),R*<20) 

WZ 30 MSK*“ " _ “ ■' MSK$ ( 40 ) =MSK* ■ MSK* 
<2)=MSK* 

KP 49 REM Otwarcie kanału, klawiat 
u ry 

BN 50 OPEN #1 , 4. 0, "K 1 11 

GB 89 REM Skok do pros ramu a łowne ' 

•30 

IC 90 GOTO 1000 

MF 595 REM **************** 

BH 596 REM * Pod pros ram * 

FH 597 REM * wprowadzania * 

SZ 598 REM * ci as u znaków * 

MR 599 REM **************** 

RZ 600 R$="" 

UL 610 POKE 755,0 ■ REM Wyłączenie 
kursora 

Ffl 630 P0SITI0N IC, IR 
PH 640 PRINT MSK$<1, IL) 

SN 649 REM Początek pola 
FE 650 POSITIOH IC, IR 
BU 659 REM Wczytaj znak 
KE 660 GET #1,R 
SZ 670 J=LEN<R$) 

RM 679 REM Włączenie kursora Jesl 
i RETURN 

LZ 680 IF R=155 THEN POKE 755, 2’ R 
ETURN 

PR 689 REM Jeśli znak dobry to do 
daj do ciasu 

RF 690 IF R> =32 RND R<=95 RHD J<I 
L THEN R$(J+1,J+1>=CHR*<R)‘PRI 
NT CHR$<R>; =G0T0 660 
OJ 699 REM Czy znak kasowania. 

V0 700 IF R<>126 OR J=0 THEN GOTO 
660 

CN 709 REM Kasowanie ostatni es o z 
naku 

VI 718 POSITION IC+J-1 , IR 
MV 720 PRINT MSK$( 1 , 1 ) j 
VM 730 POSITION IC+J-1,IR 
UX 740 IF J>1 THEN Rf=R$<l,J-l> 

RC 750 IF J=1 THEN RS='"' 

GK 760 GOTO 660 

GI 1000 PRINT CHRJC125) "REM CLS 
XD 1010 POSITION 2,4 
LH 1020 PRINT "Imię" " 

RV 1030 IC=8 " IR=4 " IL=20 " GOSIJB 600 
RC 1040 POSITION 2,8 
W 1050 PRINT "WPROWADZONO" ";R* 

NB 1060 CL0SE #1 
F-I 1070 END 


tralnym, podprogram przestawia się na małą szybkość 
zmian (linia 6600). Jeśli zatem przesuniemy manipulator 
w prawo lub w lewo i przytrzymamy, liczba zmienia się z 
dużą szybkością. Szybkie przesunięcie w lewo lt(b'prawo 
i zmiany następują wolniej. 
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Wykorzystanie menu 
do 1 ' 


Najłatwiejszym sposobem wyeliminowania błędów 
jest uważne zaprojektowanie programu w taki sposób, 
aby użytkownik miał możliwie jak najmniej możliwości 
wyboru. Istota pytań zadawanych użytkownikowi przez 
program może uczynić jego pracę łatwą lub trudną. W 
niektórych programach trzeba wypełnić puste miejsca. 
Czasami wypełnianie jest jedynym wyborem. Kiedy in- 
dziej będzie pytanie o wielu wyborach. Zamiast „Co 
chcesz zrobić?", program pyta „Którą opcję wybie- 
rasz?". Na tym polega istota menu. 

Można wrócić do programu nr 6, który wprowadza 
polecenia. Do wyboru były: A, C, D, E, P lub H. Za- 
miast tego można przygotować menu realizujące to samo. 
Korzystając z prezentowanych podprogramów możemy 
łatwo napisać program do wyświetlenia menu i wprowa- 
dzania poleceń. 

Wykorzystanie menu jest lepsze dla użytkownika i 
programisty. Użytkownik nie musi pamiętać lub szukać 
dostępnych opcji. Programista nie musi pisać skompli- 
kowanych procedur, które wyświetlą rozszerzenia pole- 
ceń. Nie ma gwarancji, że użytkownik wprowadzi tylko 
wyświetlone opcje, zatem program wciąż musi spraw- 
dzać poprawność wprowadzanych informacji. 

Prawie wszystkie wejścia mogą być rozłożone na ciąg 
pytań o wielu wyborach. Każde z nich może być przed- 
stawione jako menu. Użytkownik przechodzi swoją dro- 
gą przez menu, aż do udzielenia odpowiedzi na końco- 
we pytanie. 

Używanie 
manipulatora 
do wyboru 
menu 


Komputer może być zaprogramowany do przesuwa- 
nia kursora po ekranie pod kontrolą manipulatora. Jeśli 
na ekranie wyświetlone jest menu, użytkownik przesu- 
wa kursor, aż osiągnie jeden z wyborów menu. Wtedy 
naciska przycisk manipulatora dla dokonania wyboru. 
Program to wykrywa, zna położenie kursora i określa, 
która pozycja menu odpowiada temu położeniu. 

Podprogram kursora z PROGRAMU NR 16 „przywią- 
zuje” manipulator do kursora. Wykrywa położenie ma- 
nipulatora, wyświetla odpowiednie znaki ruchu kursora 
i aktualizuje wartości zmiennych przechowujących po- 
łożenie kursora. PROGRAM NR 16 demonstruje jego 
działanie. 

Następny PROGRAM (NR 17) używa opisanej proce- 
dury do wprowadzania wyboru z menu. Wyśw7etla me- 
nu i umieszcza kursor obok pierwszego polecenia. Ma- 
nipulator może przesuwać kursor w górę i dół, nie może 
jednak przesuwać go w bok. Jak powyżej, naciśnięcie 
przycisku zatrzymuje kursor; zmienne SC i SR przecho- 
wują położenie kursora. 

Pozostaje przetłumaczenie pozycji kursora na wybra- 
ne polecenie i działanie zgodnie z nim. W PROGRAMIE 
NR 17 całe działanie sprowadza się do wyświetlenia na- 
zwy wybranego polecenia. 
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ograniczenia 

wybrów 



GO 1 REM ***************** 
IB 2 REM * * 

OF 3 REM t Pros ram nr 21 * 
ID 4 REM * * 

GS 5 REM m************** 
Ofl 845 REM ************** 
PM 846 REM # Wyłączenie % 
XN 847 REM * klawisze. * 
EH 848 REM * BREAK * 
OM 849 REM ******* ******* 
88 850 J "PEEK ( 1 6 ) - 1 28 
SD 866 IF J<0 THEM RETURN 
TZ 878 POKE 16, J 
KV 880 POKE 53774, J 
ZW 830 RETURN 

1 rem 

2 REM * * 

3 REM t Pr ofl ran nr 22 # 

4 REM * * 

5 REM i fcfcm**#*##***#*# 

13 REM Kody RTflSCII symboli uz 
y i, lanych w arach 
20 DflTfi 0,16,13,20,36,123 
333 REM Otwarcie kanału, we/wy 
ek ram 

1000 OPEN #6, 12,0, "S‘ " 

1010 PRIHT CHR*<125> 

1013 REM Wyświetlenie zestawu, 
symbol i 

1020 PRIHT "Wybierz swój symbo 

l" 

1030 RESTORE 20 
1040 FOR J=3 TO 8 
1050 RERD TOKEN 
1060 POSITIOH 4, .J 
1070 PRIHT CHR*< TOKEN > 

1080 HEHT J 

1083 REM Start kursora w 4,3 
1030 POSITIOH 4,2 
1100 PRIHT CHR$(23 ) i 
1110 SC=4 i SR=3 

1113 REM Określenie zakresu, ku. 
rsora 

1120 LC=4 : RC=4 : TR=3 : BR=8 
1123 REM Szybkość kursora 
1130 DL Y 1=30 

1140 GOSUB 6000| REM Przesuwani 
e kursora 

1143 REM Pobranie znaku z ekra 
nu 

1150 LOCfiTE SC, SR, TOKEH 
1153 REM Zamiana symbolu na ne 
a a ty w 

1 160 T'OKEM=TOKEH~ 1 28*SGH < TOKEH 
-127', 

1170 POSITIOH 2,12 

1180 PRIHT "Wybral.es ";CHR$CT 

OKEM > 

1300 EHD 




Wprowadzanie 

znaków 

manipulatorem 


Używając funkcji LOCATE oraz podprogramu kursora 
możliwe jest wprowadzenie dowolnego znaku bezpoś- 
rednio z ekranu za pomocą manipulatora. Program wy- 
świetla najpierw znaki, z których można wybierać. Użyt- 
kownik przesuwa kursor od znaku do znaku manipula- 
torem. Gdy kursor zatrzyma się na żądanym znaku, trze- 
ba nacisnąć przycisk. Program odczytuje wartość z ekra- 
nu (za pomocą LOCATE). Technikę tę ilustruje PRO- 
GRAM NR 22. Wymaga on podprogramu kursora (z pro- 
gramu nr 16). 



Aby wprowadzić datę musimy podać rok, miesiąc i 
dzień jako liczby dwucyfrowe. Program dostarcza sepa- 
ratorów rozdzielających poszczególne pozycje. Separa- 
torem może być kreska ułamkowa lub dowolny inny 
znak. 

Użytkownik musi wiedzieć, gdzie wprowadzić na- 
stępne dane. Dlatego program będzie używał maski 
wprowadzania. Instrukcje z PROGRAMU NR 18 akcep- 
tują wejście dwucyfrowe. Program automatycznie koń- 
czy wprowadzanie danych po podaniu dwóch cyfr. 
Użytkownik nie musi naciskać klawisza RETURN. 

Istnieją różne sposoby wyeliminowania pewnych błę- 
dów podczas wprowadzania daty. Należą do nich: 

— przyjmowanie tylko znaków numerycznych (cyfr), 

— testowanie poprawności roku, miesiąca i dnia, 

— dostarczenie środków ponownego wprowadzania 
daty. 

PROGRAM NR 19 zawiera cały podprogram wprowa- 
dzania daty obejmujący wymienione ulepszenia. Doz- 
wolone są tylko dane numeryczne (linia 8430). Miesiąc 
musi mieć wartość między 1 a 12 (linia 8300). Program nie 
bierze pod uwagę setek lat, lecz sprawdza maksymalną 


liczbę dni w określonym miesiącu (linie 8350 do 8375). 
Dozwolony jest dowolny rok od 00 do 99 (linia 8250). 
Wprowadzenie niepoprawnej daty wznawia cały ciąg 
wprowadzania. Jeśli użytkownik naciśnie klawisz BACK 
SPACE, również wznawiany jest ciąg wprowadzania daty 
(linia 8420). « 

Zauważmy, że data tworzona jest w postaci ciągu oś- 
mioznakowego DAT$ jako rok, miesiąc i dzień (linia 
8260, 8310 i 8380). 



Uniwersalny PODPROGRAM NR 11 wprowadzania 
miał znaczne uproszczenia. Umożliwiał użytkownikowi 
wprowadzanie pozycji, które były dłuższe od maski* 
wejścia. Co gorsze, użytkownik mógł przesuwać kursor 
przez cały ekran klawiszami strzałek. Wszystko to powo- 
dowało, że wcześniej czy później użytkownik mógł zni- 
szczyć obraz. Jeśli użyjemy instrukcji GET zamiast IN- 
PUT, możemy dokładniej kontrolować wprowadzanie. 

PROGRAM NR 20 zawiera podprogram, który wpro- 
wadza ciąg znaków. Zauważmy, że naciśnięcie klawisza 
RETURN powoduje wygenerowanie znaku EOL, który 
kończy wprowadzanie. Klawisz BACK'S powoduje cof- 
nięcie o jeden znak. 

Istnieje kilka sposobów polepszenia tego podprogra- 
mu. Poniżej wymienione są pewne pomysły: 

— użycie zmiennej do określania numeru kanału 
wejściowego, 

— zezwolenie na wprowadzanie wielkich i małych li- 
ter (kody ATASCII 97 do 122), 

— dodanie na początku instrukcji TRAP w celu uak- 
tywnienia procedury obsługi błędu od linii ERRHDL, 

— wywołanie podprogramu wyświetlania instrukcji 
rozszerzonych (od linii AMPSUB), jeśli wprowadzony 
jest określony znak. 

W ostatnim kroku przed wyjściem z podprogramu 
powinniśmy sprawdzić, czy wprowadzone informacje są 
numeryczne. Jeśli tak, to trzeba przetworzyć ciąg zna- 
ków na wartość numeryczną i sprawdzić jej zakres. Mo- 
żemy polegać na instrukcji TRAP i podprogramie obsługi 
błędu w zakresie wykrywania błędów wprowadzania. 
Nie próbujmy sprawdzać zakresu liczby przed przetłu- 
maczeniem jej na wartość numeryczną. 



Działania na 
zmiennych tekstowych 


Dużą wadą języka Atari BASIC jest 
brak tablic tekstowych. Można ją 
jednak wyeliminować przez symulo- 
wanie takich tablic za pomocą 
zmiennych tekstowych. Taki* twór na- 
zwiemy pseudotablicą. Nasze dzia- 
łanie polega na podzieleniu ciągu 
znaków na podciągi o stałej długośęi 
(warunek podstawowy) i traktowaniu 
każdego podciągu jako elementu 
pseudotablicy. W celu wyznaczenia 
pozycji początkowej elementu pseu- 
dotablicy musimy znać numer i dłu- 
gość każdego elementu. Istnieją dwa 
podstawowe ograniczenia: 


1) wszystkie elementy pseudotablicy 
muszą mieć taką samą długość. 
Zwykle określa ją najdłuższy ele- 
ment. Jeśli wprowadzany ciąg jest 
krótszy, jego nieużywaną część 
musimy wypełnić spacjami, 

2) obliczanie adresu początkowego 
elementu pseudotablicy jest cza- 
sochłonne. Można zauważyć opó- 
źnienia w realizacji programu. 

Program „SYMULACJA TABLICY 

TEKSTOWEJ” wykorzystuje pseudo- 
tablicę przechowywaną w A$. Za- 
wiera ona dziesięć elementów o dłu- 
gości dziesięciu znaków każdy. Ełe- 
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HG 1 REM ******* i**fcS*&* m=o t n.. i 
ER 2 REM * * 

GC 3 REM * Symulacja * 

Ft 4 REM * tablicy * 

SR 5 REM * tekstowej * 

EV 6 REM * * 

HW 7 REM ************* 

HO 16 DIM R$<100),TEMP$a0),BL*a 
0? 

LK 19 REM Dziesiec wartości ciasu 
IL 20 DflTfl Ryszard, Natalia, flntori i 
, Ma rek , , 1234567890 1 , +++, fi+B= 1E 
100, **=, abrakadabra 
KK 29 REM zapełnienie BL$ spacjam 
i 

MU 30 BL*=" " 1 BL*(10)=BL$-BL$<2)= 
BL$ 

QP 39 REM Przydzielenie wartości 
pseudo-tablicy 
HS 40 FOR N=1 TO 10 
VW 49 REM Najpierw wstawienie war 
tosci do ciaau przejściowego 
NP 50 RERD TEMP* 

MZ 59 REM Wyznaczenie dlusosci no 
wej wartości 
SD 60 TL=LENCTEMP*> 

QX 69 REM Uzupełnienie cia.su spać 
jami 

W 70 IF TLC10 THEN TEMP*CTL+1 )=B 
L* 

IB 79 REM Wyznaczenie adresu elem 
entu tablicy 
ZP 80 STfiRT=(N-l)*10+l 
PK 89 REM Przydzielenie wartości 
do elementu tablicy 
QP 90 flf ( STRRT ) =TEMP$ 

HP 100 NEXT N 

W 109 REM Wyświetlenie Przydziel 
onych wartości 
SG 110 FOR N«1 TO 10 
HI 119 REM Obliczenie początku el 
ementu 

QN 120 STRRT=<N-1)*10+1 
TE 130 PRINT "Element m jNj" to' " 
i fi* (STRRT, STRRT+9> 

HX 140 NEXT N 
Ofi 150 END 

NY 1 REM ************** 

DR 2 REM * * 

XE 3 REM * Podprogram * 

KX 4 REM * sortowania * 

OC 5 REM * elementów * 

EV 6 REM * tablicy * 

DW 7 REM * . * 

OF 8 REM ************** 

NO 9 REM 

ZS 22050 DRTR 104,104,104,133,205 
, 104, 104, 133,206, 104, 104, 133,2 
03, 104, 104, 133,204 
DJ 22060 DRTR 104,133,217,104,133 
,216, 104, 133,209, 104, 133,208, 1 
69,0, 133,218, 133,207, 162 
DS 22070 DRTR 1,165,216,133,214,1 
65,217, 133,215,24, 165,214, 133, 
212, 101,205, 133,214, 165,215 
GE 22080 DRTR 133,213,105,0,133,2 
15, 164,203, 165,206,240, 10, 177, 
214, 209, 212, 144, 44,240, 12 
OF 22090 DRTR 176, 19, 177, 214, 209, 
212, 144, 13,240,2, 176,30,200, 19 
6, 204, 240, 227, 176, 23, 144 
01 22100 DRTR 223,169,1,133,218,1 
64,205,136,177,214,72,177,212, 
145, 214, 104, 145, 212, 192-,. 0 , 

ON 22110 DRTR 208,241,232,224,0,2 
08,2,230, 207,228,208, 208, 172,1 
65, 209, 197, 207, 208, 166, 165 
RM 22120 DRTR 218,201,0,208,144,9 
6 

YD 22200 W=0 ; V=1 ; RESTORE 22050 
JX 22210 DIM S0$( 142) 

GJ 22220 FOR 1=1 TO 142 •RERD fi=S0 
*<I, I)=CHR*<fi) ;.NEXT I 
EP 22225 RETURN 

FK 1 REM **************** 


FJ 2 REM * * 
RZ 3 REM * Podprogram * 
EV 4 REM * wyszukiwania * 
JH 5 REM * elementu * 
RN 6 REM * tablicy * 
FO 7 REM * * 


FR 8 REM **************** 

NO 9 REM 

VT 20000 DflTfl 216,104,104,133,204 
, 104, 133,203, 104, 104, 133,205, 1 
04, 104,133,206, 104. 133,208, 104 
, 133,207, 104, 104 


V0 20010 DRTR 133,2109, 104, 104, 133 
,210, 169,0, 133,212, 133,213,24, 

165.203. 101.209.133. 203. 165. 20 
4,105,0,133 

VH 20020 DRTR 204, 164,210, 136,177 
, 203, 209,207,208,4,136,16, 247, 
96,24, 165,203, 101,205, 133,203, 
165,204,105 

IP 20030 DflTfl 0,133,204,24,165,21 

2. 105. 1 . 133. 212. 197. 206.208. 21 
9, 96,-1 

NG 20040 RESTORE 20000 DIM SZ*<8 7 
) 

BN 20050 FOR 1=1 TO 87 

EY 20060 RERD fl=SZ*CI, I>*€HR*<fl> 

GM 20070 NEXT I 

FX 20080 REflD R ' IF fl=-l THEN RETU 
RN 

JO 20090 ? "BLflD DANYCH" : STOP 

menty tablicy pobierane są z instrukcji 
DATA. Włączono do nich ciąg pusty 
oraz dwa ciągi zbyt długie, aby 
zmieścić się w jednym elemencie tab- 
licy. Każdy ciąg z DATA wstawiany 
jest do zmiennej tekstowej TEMP$. 
Jest to konieczne, ponieważ Atari 
BASIC nie zezwala na używanie 
zmiennych ze wskaźnikami w ins- 
trukcji READ. Program dołącza spacje 
do krótkich ciągów w celu usunięcia 
pozostałości poprzednich wartości 
(linia 60 i 70). W końcu wyznacza in- 
deks elementu pseudotablicy i przy- 
dziela mu wartość utworzoną w 
zmiennej TEMP$. Obejrzyjmy, co sta- 
ło się !z pustym ciągiem i wartościami, 
które są zbyt długie. 

Elementy tablicy tekstowej lub 
pseudotablicy są zwykle rekordami 
składającymi się z kilku pól. Więk- 
szość działań wykonywanych na nich 
polega na sortowaniu rekordów wed- 
ług określonego klucza, którym jest 
zwykle jedno z pól oraz wyszukiwa- 
niu rekordu na podstawie zawartości 
jednego z pól. Atari BASIC, w odró- 
żnieniu od nowszych, bardziej roz- 
budowanych wersji tego języka, nie 
ma niestety wbudowanych funkcji 
sortowania i wyszukiwania. Podpro- 
gramy realizujące te funkcje są bar- 
dzo łatwe do napisania i zawierają 
kilka linii programu. Dlatego nie 
śmielibyśmy nawet prezentować ich 
czytelnikom. Mają one jednak pod- 
stawową wadę: bardzo długi czas 
działania, rzędu kilku a nawet kilku- 
nastu minut. Zdarzyło się nam stracić 
cierpliwość podczas oczekiwania na 
posortowanie kilkudziesięciu rekor- 
dów, Efektem tego są dwa podpro- 
gramy w języku maszynowym: SOR- 
TOWANIE oraz WYSZUKIWANIE. Po 
ich wykorzystaniu czas oczekiwania 
na zakończenie tych operacji uległ 
znacznemu skróceniu. 

Oba podprogramy dostarczamy w 
postaci umożliwiającej włączenie ich 
do własnych programów. Po wyko- 
naniu skoków do odpowiednich 
podprogramów, za pomocą instrukcji 
GOSUB, interesujące nas podpro- 
gramy zostają umieszczone w ciągach. 
Są to procedury przemieszczalne (re- 


lokowalne) i mogą być umieszczone 
gdziekolwiek w programie. 

Sposoby wywołania obu podpro- 
gramów są podobne. I tak wywołanie 
procedury sortowania ma następują- 
cą postać: 

A=USR (ADR (SO$), DR, TYP, PP, PK, 
ADR (X$), IR) 

gdzie poszczególne parametry ma- 
ją następujące znaczenie: 

SO$ — nazwa ciągu zawierające- 
go podprogram sortowa- 
nia, 

DR — długość rekordu (element 
pseudotablicy), 

TYP — rodzaj sortowania: 0 — 
wzrastający, 1 — malejący, 
PP — pozycja początkowa klu- 
cza sortowania w rekor- 
dzie, 

PK — pozycja końcowa klucza 
sortowania w rekordzie 
X$ — nazwa pseudotablicy za- 
wierającej sortowane ele- 
menty, 

IR — ilość elementów pseudo- 
tablicy (rekordów), które 
należy posortować. 

Pozycje początkowe i końcowe 
klucza sortowania powinny być po- 
dane w postaci liczby bajtów od po- 
czątku rekordu. Na przykład, pier- 
wsza pozycja rekordu ma przesunię- 
cie 0, druga — 1, a setna — 99. 

Podprogram ten sortuje rekordy o 
stałej długości od 2 do 250 bajtów. 
Klucz sortowania może być umie- 
szczony gdziekolwiek w rekordzie i 
może być dowolnej długości. Rekor- 
dy muszą być w postaci znaków 
ATASCII. 

Wywołanie podprogramu wyszu- 
kiwania rekordu na podstawie zawar- 
tości jednego z jego pól ma następu- 
jącą postać: 

K-USR (ADR (SZ$), ADR (D$), DR, 
IR-1, ADR (P$), KP, DP) 

gdzie poszczególne parametry ma- 
ją następujące znaczenie: 

SZ$ — nazwa ciągu zawierającego 
podprogram wyszukiwa- 
nia, 

D$ — nazwa ciągu zawierającego 
elementy pseudotablicy, 

DR — długość rekordu 
IR — ilość rekordów (elementów 
pseudotablicy), 

P$ — nazwa ciągu zawierającego 
poszukiwane pole, 

KP — przesunięcie poszukiwa- 
nego pola względem po- 
czątku rekordu, 

DP — długość poszukiwanego 
pola. 

Po zakończeniu działania zmienna 
K będzie zawierać numer rekordu 
zawierającego poszukiwane pole 
(pierwszego jaki wystąpił). 
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Unieszkodliwienie 
klawisza BREAK 

Nawet najlepiej zaprojektowany 
program wciąż ma słaby punkt. Mo- 
żna zatrzymać jego realizację (czasa- 
mi przypadkowo) poprzez naciśnię- 
cie klawisza BREAK. Automatycznie 
na ekranie pojawia się komunikat, 
który rujnuje pieczołowicie utwo- 
rzony obraz. Prawdopodobnie nie 
będzie możliwe poprawne konty- 
nuowanie programu po takim przer- 
waniu, ponieważ instrukcja CONT 
wznawia działanie od początku linii 
programu, w której nastąpiło przer- 
wanie. Jeśli zdarzy się, że jest to linia 
o wielu instrukcjach, pewne z nich 
będą wykonane ponownie. 

Istnieje sposób unieszkodliwienia 
klawisza BREAK (PROGRAM NR 21). 
Niestety jest on wrażliwy na wiele 
zdarzeń, które przywracają normalne 
działanie klawisza. Należą do nich: 
naciśnięcie klawisza RESET, pierwsza 
instrukcja PRINT, dowolna instrukcja 
OPEN dotycząca ekranu (urządzenia 
o kodach E: lub S:), pierwsza instruk- 
cja PRINT po takim OPEN oraz 
GRAPHICS. Najprostszym sposobem 
pokonania tych ograniczeń jest czę- 
ste wykonywanie podprogramu wy- 
łączenia klawisza BREAK. Dobrym 
miejscem wywoływania go jest pod- 
program wprowadzania. 



Asembler 


Wykorzystanie firmowego progra- 
mu Assembler-Editor przez posiada- 
czy komputera Atari z pamięcią zew- 
nętrzną w postaci magnetofonu od- 
znacza się wieloma niedogodnościa- 
mi. Należą do nich; 

— długi czas wprowadzania progra- 
mu (ok. 15 minut) spowodowany 
tym, że wymaga uprzedniego za- 
ładowania Translatora, czyli starej 


wersji systemu operacyjnego 
(opracowanej dla komputerów Ata- 
ri 400 i 800), 

— konieczność przestudiowania kil- 
kudziesięciostronicowej instrukcji 
obsługi programu, 

— program wynikowy, przechowany 
na kasecie magnetycznej i wpro- 
wadzony do komputera, nie chce 
działać. 

W celu uniknięcia opisanych trud- 
ności można wykorzystać prezento- 
wany program, który udaje asembler 
(to znaczy symuluje pewne jego 
funkcje). Umożliwia on przygotowa- 
nie krótkich podprogramów w języku 
maszynowym i przechowanie ich w 
wybranym obszarze pamięci (naj- 
częściej na stronie 6 RAM). W pro- 
gramie tym nie ma odrębnych faz 
edycji i translacji, wprowadzane roz- 
kazy wpisywane są (POKE) bezpoś- 
rednio do wybranego obszaru pa- 
mięci. Rozkazy podawane są w posta- 
ci symbolicznej. Wartości argumen- 
tów mogą być wprowadzone dzie- 
siętnie lub szesnastkowo, zgodnie z 
konwencją przyjętą po uruchomieniu 
programu, która może być zmieniona 
w każdej chwili. Istnieje możliwość 
podania skoku do przodu bez zna- 
jomości aktualnego adresu przezna- 
czenia. W tym celu w charakterze ar- 
gumentu podajemy słowo WPRZÓD. 
Program wstawia wstępnie wartość 
zerową do bajtu argument. Aktualny 
adres skoku zostanie wpisany po roz- 
poznaniu słowa ETYKIETA. Wtedy do 
zaznaczonej komórki wprowadzany 
jest adres bieżącej komórki (a do- 
kładniej jego odległość od rozkazu 
skoku). 

Komenda LIST umożliwia wyświet- 
lenie adresów i zawartości poszcze- 
gólnych komórek. Możliwe jest rów- 
nież umieszczenie dowolnej liczby, z 
przedziału 0 — 255, w wybranej ko- 
mórce pamięci. Służy do tego funkcja 
WSTAW, po której należy podać ad- 
res i zawartość komórki, obie wartoś- 
ci koniecznie dziesiętnie. 

Za pomocą poleceń HEX lub DZIES 
w każdej chwili możemy przejść z 
jednego systemu liczenia do drugie- 
go. Zakończenie działania programu 
uzyskamy po napisaniu KONIEC. 
Otrzymamy wówczas adresy począt- 
ku i końca procedury w języku ma- 
szynowym. 

Prezentowany program nie pre- 
tenduje do roli prawdziwego asemb- 
lera, brakuje mu wielu funkcji oraz 
możliwości podawania nazw symbo- 
licznych komórek. Pomimo to może 
ułatwić początkową naukę języka 
asemblera. Zamiast wstawiać kody 
rozkazów za pomocą POKE, możemy 
pisać je w postaci symbolicznej, jak w 
prawdziwym asemblerze. Przydaje się 
on do pisania prostych i krótkich pro- 
cedur w języku maszynowym. 


HQ 1 REN ************* 

ER 2 REN * * 

OB 3 REN * flSSENBLER * 

ET 4 REM * * 

NU 5 REM ************* 

HM 10 HX=0=REM IF HX=0 TO RSEMBLE 
R DZIfiLft Nfi LICZBACH DZIES IETN 
YCH 

CT 20 DIM HE*<16),ZO*<3),R*<10),M 
N*( 12) , Zfi*( 1 ) , RZ*< 1 ) , L*<3) , SA* 
<4>,H*<4), LR*< 1 ) 

HW 33 OPEN #1 * 12/0/ "E : " 

DY 50 HE$=“0123^56789ABCDEF" : SZ-1 
: Z0* = "006 " 

E'J 

LR 110 DIM M*<56*3),TY(56),0PC56) 
CU 120 FOR 1=1 TO 56 • RERD MN*=M*< 
1*3-2. I*3)=MN$<1,3) 

MB 122 TY( I )=VRL(MN*<4,4)) : 0P<I)= 
VflL<MN*<5>) 

KI 130 NEXT I=? ■? 

ZH 140 ? "Sposob adresowania":? 

XE 150 ? "Bezpośredni LDR 

#15" 

SG 155 ? "Rbsolutny LDR 

1500" 

GE 160 ? "Strony zerowej LDR 

15" 

NQ 165 ? “Akumulator RSL 



QN 170 ? "Pośredni X LDR 

<15X)“ 

UY 175 ? "Pośredni Y LDR 

<15)Y" 

TD 177 ? "Strony zerowej X LDR 
15X" 

UD 179 ? "Strony zerowej Y LDX 
15Y" 

ZZ 160 ? "Rbsolutny X LDR 

1500X" 

CR 185 ? "Rbsolutny Y LDR 

1500Y" 

GN 190 ? "Liczby dziesiętne D czy 
szesnastkowe S";: INPUT MN* 

KW 192 HX=0=IF MN*<1,1)="S" THEN 
HX=1 

JV 194 POSITION 0,13=? CHR$<1 56); 
CWR*< 156); : IF HX=1 THEN ? 'EZ9 
ENflSTmjg - 

X0 195 IF HX=0 THEN ? ' R/2lgŚl£fNH 

El' 

BU 197 ? ■ ? "Adresy: stosuj 1536- 
1791 <*0600-*06FF)":? :? 

DR 200 ? CHR*(156>>CHR*( 156) ; "Pod 
aJ adres Początku " " twoJ 

es o Pros ramu" ;= INPUT SR* 

WX 205 IF SR**"“ THEN ? CHR*<28>; 

CHR*<28>; =GOTO 200 
VR 210 IF HX=1 THEN H*=Sfi*=GOSUB 
5000 =Sfi=DE> GOTO 217 
NC 215 Sfl=VRL<SR*) 

JQ 217 IF SR <256 OR SR>=40960 THE 
N ? CHRSC28) ; CHRSC28) ; CHR$<28) 
;CHR$<28); "Zly adres !!!"=? = G 
OTO 200 

GE 220 Tfi=SR:? CHR$( 12) = G 0T0 250 
fil 225 ? =? CHRf<253); ‘lHLROISn 
E3' ? ■ I F HX=1 THEN ? "Cn. p. # 

5 winno byc #05)" : ? 

JY 230 IF HX=1 THEN DE=Sfi : SZ=3 = GO 
SUB 4000? H*;" : "i ‘GOTO 240 
SI 235 ? SR;"= "; 

CG 240 TRAP 225 : INPUT #1;MN*=? CH 
R*<28); 'POKE 85,20= IF MN*®"" T 
HEN ? CHR*C15S>; GOTO 230 
OF 241 REM NOWE OPERACJE 
IP 242 IF LENCMN*)>6 THEN IF MN*< 
LEN < MN* > -5)=" WPRZÓD" THEN FB=S 
R--G0T0 260 

SD 243 IF MN*=" ETYKIETA" THEN FR* 
Sfi-FB = POKE FB+l , FR-2 : ? " OK": 
GOTO 230 

VY 244 IF MN*=" WSTAW" THEN ? =? “ 
ADRES, LI CZBRCDZIS. )"; = INPUT RD 
DR, NUM POKE RDDR , NUM = GOTO 230 
FG 246 IF MN*="LIST" THEN GOSUB S 
000: GOTO 230 

VZ 248 IF MN*="HEX'' THEN HX=1=? 
GOTO 230 

QG 249 IF MN*=" DZIES" THEN HX=0=? 
•GOTO 230 

NX 250 IF MN*=" KONIEC" THEN 8000 
JE 260 L=LEN(MN*) = L$=MN* < 1 ,3) 

MN 270 FOR 1=1 TO 56= IF L*=M*<I*3 
-2,1*3) THEN 300 
GI 280 NEXT I 
-QU 290 GOTO 850 

TP 300 REM ROZKAZY JEDNOBRJTOWE __ 
ZZ 301 TY=TY< I ) : 0P=0P( I ) 19 


SC '305 IF FB=Sfi THEM TN=0 GOTO 26 
10 

XX 310 IF TY=0 THEN GOTO 1600 
VI 3?C IF TY=3 THEN TY=1‘IF L=3 T 
HEN OP^OP+8 : GOTO 1R0P 
IG 330 Rf=MNf<5>=IF HX=1 THEN GOS 
UB 6000 

UH 340 LRf=Rf<l,l)=LL=LEN<Rf)=IF 
LRf="#" THEN 480 
CY 350 IF LRf="<" THEN 520 
EW 360 IF TY=8 THEN 600 
EG 370 IF TY=3 THEN 0P'=>=QP+8 = G0T0 
1000 

SN 380 IF Rf<LL)“"X“ OR R$<LL)="Y 
" THEN 630 

ZH 390 IF L*a,l>o-J" THEN 820 
VD 400 TN=VflL<Rt) : IF TN>255 THEN 
430 

VK 410 IF TY=1 OR TY*=3 OR TY=4 OR 
TY=5 THEN 0P=»0P+4 


JX 420 GOTO 2000 

HO 430 H=INT<TN/256) L=<TN-256*H) 

; IF TY=2 OR TY=7 THEN 0P=0P+8= 
GOTO 470 

NU 440 IF TY=1 OR TY=3 OR TY=4 OP. 

TY=5 THEN 0P=0P+12 = GOTO 470 
KZ 450 IF TY*6 OR TY=9 THEN 470 
QQ 460 GOTO S50 
KR 470 GOTO 3000 
IT 480 TN=VflL<Rf<2>> 

EU 490 IF TY=1 THEN OP=OP+8=GOTO 
2600 

OZ 500 IF TY=4 OR TY=5 THEN GOTO 
2000 

QH 510 GOTO 850 

NG 520 IF Rf ^LL-l )= M )Y" THEN 540 
OR 530 IF RfCLL-l>*"X)" THEN 570 
GF 540 TN=VflL<Rf<2,LL-l)) 

IJY 550 IF TY=1 THEN 0P=0P+16 =GOTO 
2000 

GR 560 GOTO 850 

QL 570 TN=VRL(Rf <2,LL-1 ) ) 

ZV 5S0 IF TY=1 THEN GOTO 2000 
GX 598 GOTO 850 

GH 600 TN-VRL<Rf ) ; TN=TN-SR- 2 = IF T 
N <- 1 2 S OP TN> 127 THEN ? ■ ER DPf 
roa "; ‘GOTO 850 
IS 610 IF TN<0 THEN TN=TN+256 
JZ 620 GOTO 2000 

N.J 630 IF Rf <LL-1)*=")Y" THEN 540 
GV 640 IF Rt(LL)="X" THEN 726 
RE 650 REM *ZERO Y 
Z W 660 TN=VRL<Rt<l/LL-l))«IF TN>2 
55 THEN 680 

FL 670 IF TY*2 OR TY=5 THEN 730 
HT 675 IF TY=1 " r HEN 760 
ET 680 G0SU8 770= IF TY=1 THEN OP= 
OP+24 = GOTO 710 

UQ 690 IF TY=5 THEN 0P=0P+28 = GOTO 
710 

QH 700 GOTO 850 
KI ?!0 GOTO 3000 

SL 720 TN«VRL'R$< 1 , LL-1 ) ) : IF TN>2 
55 THEN GOSUB 770 = GOTO 780 
UL 730 IF TY=»2 THEN 0P®0P+16 GOTO 
760 

PG 74C IF TY=1 CR TY=3 CR TY=5 TH 
EN OP^CP+20 = GOTO 76C 
QR 753 GOTO 850 
KI 760 GOTO 2080 

NP 770 H=INT<TN/256)=L=TN-256*H=R 
ETIJRN 

QS 780 IF TY=2 THEN OP*=OP+24 = GOTO 
810 

IJR 790 IF TY»1 OR TY=3 OR TY=5 TH 
EN 0P“0P+29 = GOTO 810 
QI 800 .GOTO 850 
KJ 810 GOTO 3090 
GC 820 TNr-VRL<Rf> 

WT. 830, GOSUB 770 . 

00 840 GOTO 71 2 . 

WW 650 ? CHRf (255) ; = GOTO 23 

0 

GQ 1000 REM ROZKAZY 1 BAJTOWE 
PR 1010 PCKc Sfi,OP=Sfl=Sfl+l • IF HX= 
1 THEN 1930 
ZF 102e ? OP 1 GOTO 230 
UR 1030 DE=OP = GOSUB 4000-? Hf = GOT 
O 230 

RJ 2000 REM ROZKAZY 2 BAJTOWE 
UO 2085 IF TN>256 THEN ? <? "Erro 
r — TN; ">256 C$100) "= GOTO 230 


DC 2018 POKE Sfl,OP=POKE Sfi*l,TN=S 
flsSA+2 = I F HX=1 THEN 2030 
GY 2020 ? OPi" ,ł ; TN : GOTO 230 
DU 2038 C€=OP= GOSUB 4000=? Hf; " " 

VU 2040 DE=TN= GOSUB 4000=? Hf = GOT 
O 230 

SC 3000 REM ROZKAZY 3 BAJTOWE 
EF 3010 POKE Sfi,OP=POKE Sfi+1,L=P0 
KE Sfi+2,H=Sfl=SR+3= IF HX=1 THEN 
3030 

JP 3020 ? OP;" n iLi" " ; H ■ GOTO 230 
DV 3030 DE=OP= GOSUB 4000=? Hf;" " 

FY 3040 DE=L= GOSUB 4000'? Hf;" M ; 
IT 3056 DE=H= GOSUB 4000=? Hf = GOTO 
230 

ZV 4000 PEM DZIESIĘTNE NA HEX 
UK 4010 Hf="“=R=INT(DE/256)=lF R> 
0 THEN RH=INT(fi-'16) =fiL=fl-fiH*16 
Hf =HE f ( RH+ 1 , RH+ 1 > = Hf ( 2 ) =HEf < fi 
L+l,fiL+l) 

LS 4020 R=DE-fi*256 = fiH=INT(fi/'16) =fi 
L=R-fiH*16 = Hf CLENCHf )+l )==HEf CBH 
+1 , RH+1 ) = Hf CLENCHf )+l )=HEf CfiL+ 
l,fiL+l) = SZ=r RETURN 
YJ 5000 REM HEX Nfi DZIESIĘTNE 
LU 5010 D*0 = 0”3 = FOR M=1 TO 4 W=flS 
CCHtCM) )-48 IF W>9 THEN W=U-7 
YQ 5P30 D=D*16+WNEXT M=DE=INT(D) 

= RETURN 

CP 6000 REM PRZYJĘCIE SZESNRSTKOW 
EGO KODU OPERACJI I TLUMfiCZENI 
E GO Nfi DZIESIĘTNY 
YD 6010 IF Rf C 1/1 )=*"#" THEN Hf="8 
0"= Hf C3)=Rt<2)= GOSUB 5000=Rf=" 
#" = Rf(2)=STRf (DE) = RETURN 
FR 6020 LS=LEN(Rf)=HZf=Rf(l,l)=Zfi 
f=Rf CLS) = IF RZfO "C" THEN 6050 
GZ 6830 IF Zfif ="Y" THEN Hf=' , 00"=H 
f(3)=Rt(2,4) = GOSUB 5000=Rf="C" 
Rf C2)=STRf CDE) =Rf (LEN(Rt)+l>= 
" ) Y" = RETURN 

BW 6040 IF Zfif=")" THEN Ht= , •00' , =H 
f < 3 ) =Rf C 2 , 4 ) = GOSUB 5OO0 = Rf = " C '' 
Rf C2)=STRtCDE) -Rf CLENCRf ) + l)= 
"X)"-: RETURN 


UY 6050 IF Zfif="X" OR Zfif="Y" THE 
N 6070 

Mfi 6e60 Hf= , "' = IF LS<4 THEN Hf=ZOf 
C1/4-LS) 

GY 6065 Hf C LEN ( Hf ) + 1 > =Rf = GOSUB 50 
00=Rf=STRfCDE) = RETURN 

TV 6070 IF LS=5 THEN Hf=Rf(l,4)=G 
OTO 6090 

FP 6080 Hf="00"‘Hf(3)=Rf(l,2> 

IY 6090 GOSUB 5008 -Rf=STRf CDE) -Rf 
CLENCRf >+l )=Zfif = RETURN 

KD 8060 ? =? "POCZĄTEK “;Tfi; =SZ«= 
3=DE=Tfi=G0SUB 4000=? “ Cf";Hf; 
">• 

LE 8010 ? "KONIEC ";Sfi-l;=DE= 
Sfl-l=SZ=3= GOSUB 4000=? " <f";H 
f ; ")" =END 

UJ 9000 ? >FOR I=Tfi TO Sfi-1 

IK 9010 IF HX=1 THEN DE«=I=GOSUB 4 
080 ■ ? Hf, : DE=»PEEK C I ) = GOSUB 400 
0 = ? Hf 

GK 9020 IF HX"0 THEN ? I,PEEK(I> 

FG 9030 NEXT I 

AT 9340 RETURN 

flW 20000 DATA RDC 1 097 , fiNDl 033 , RSL 
3602 , 6CC8 144, BCS8176, BEO3240 , B 
IT7036,BM 18048 

VX 20010 DfiTfi BNE8208 , BPL80 1 6 , 8RK 
0000 , BVCS0B0 . 6VS8 1 1 2 , CLC8024 , C 
LD02 1 6 , CL I 0088 

FZ 20020 DfiTfi CLV0 1 84 , CMP 1 1 93 , CPX 
4224, CPY4192, DEC21 98, DEX0202,D 
E Y0 1 36 , EOR 1 065 

VI 26030 DfiTfi INC2230, INX0232, INY 
0280 , JMP6076 , JSR9032 , LDR 1 1 6 1 , L 
DX5162,LDV5160 

TR 20040 DfiTfi LSR3066 , NOP0234 , ORfl 
1001, PHR0072 , PHP0008 , PLflĄ 1 04 , P 
LP0040, ROL3034 

JU 20050 DfiTfi ROR3093,RT 10064, RTS 
0096 , SBC 1225, SEC0056 , SED0248 , S 
E 10120, STfil 129 

WE 20060 DfiTfi STX2134, STY2132, TfiX 
0170, TRY0168, TSX0186, TXfi0138, T 
XS0154, TYfi0152 



Konwerter 

języka 

maszynowego 

Podprogram w języku maszyno- 
wym, otrzymany w wyniku działania 
poprzedniego programu i prze- 
chowywany w pamięci RAM nie 
nadaje się do włączenia go do pro- 
gramu w BASIC f u. Należy go przed- 
stawić w postaci zrozumiałej przez 
BASIC i przechować w pamięci ze- 
wnętrznej. Funkcje te realizuje kon- 
werter języka maszynowego, który 
automatycznie tłumaczy kod maszy- 
nowy (przechowywany w pamięci 
RAM) na pełny podprogram w języku 
BASIC, który może być łatwo dołą- 
czony do naszych programów. 
Otrzymany podprogram jest komp- 
letny; wymaga tylko spełnienia na- 
stępujących warunków: 

— numery linii programu nie po- 
winny być wyższe niż 31000, 

— powinien być on wywołany moż- 
liwie jak najwcześniej w progra- 
mie. 

Prezentowany program jest dosyć 
elastyczny. Można wybrać kilka spo- 
sobów przechowywania procedury w 
języku maszynowym: 

— w postaci ciągu (prawdopodobnie 
najbezpieczniejsza i najbardziej 
uniwersalna metoda, program 
będzie automatycznie generował 
ciąg znaków plus niezbędne ins- 
trukcje DIM). 

— przechowanie w określonych 
miejscach pamięci. Adresy mogą 
być takie same jak dotychczas lub 
zmienione. Program będzie gene- 
rował ciąg instrukcji DATA. Do- 
starczy także krótką procedurę, 
która pobiera te dane (RE AD) i 
wprowadza je (POKE) do pamięci. 

— może być używana dowolna 
kombinacja ciągu i komórek pa- 
mięci. Program połączy je w 
podprogram'. 

Po zdefiniowaniu tablic i ciągów 
opisany program zajmuje mniej niż 
5KB pamięci. 

W celu konwersji języka maszyno- 
wego na postać akceptowalną przez 
BASIC należy wykonać następujące 
kroki: 

1. Zakładamy, że program w języku 


20 



maszynowym umieszczony jest w 
obszarze pamięci. 

2. Wprowadzamy, za pomocą EN- 
TER, konwerter języka maszyno- 
wego, który wcześniej został 
przechowany za pomocą LIST. 

3. Uruchamiamy program. Jesteśmy 
proszeni o podanie adresów po- 
czątku i końca procedury maszy- 
nowej w RAM. Odpowiedzi należy 
udzielać w postaci dziesiętnej. 

4. Musimy wybrać metodę przecho- 
wania procedury. Po wybraniu 
ciągu należy podać jego nazwę. 

5. W wypadku przechowywania w 
określonym obszarze pamięci mu- 
simy podać, czy zmieniamy adresy 
tego obszaru. 

6. Na końcu jesteśmy pytani, czy 
chcemy dokonać dodatkowych 
konwersji (na przykład innej pro- 
cedury). Jeśli tak, to program 
przejdzie na początek. Jeśli nie, 
komputer zamyka wszystkie zbiory 
i kończy działanie. 

7. Można teraz wykasować program 
konwerter (za pomocą NEW), 
wprowadzić nasz program w BASlCu, 
dołączyć procedurę w języku ma- 
szynowym za pomocą ENTER „C:" 
(należy wykasować linię nr 1). 

8. Wprowadzamy teraz instrukcję 
COSUB z podaniem numeru 
pierwszej linii procedury. 
Przechowywanie procedur maszy- 
nowych w postaci ciągu wymaga 
pewnego komentarza. Po pierwsze, 
aby działały one poprawnie, musimy 
je pisać w postaci przemieszczalnej. 
Oznacza to, że nie mogą zawierać 
żadnych instrukcji JMP lub JSR do ok- 
reślonych komórek pamięci wew- 
nątrz programu. Ponieważ ciąg może 
być umieszczony w dowolnym miejs- 
cu pamięci, nieprzemieszczalny kod 
prawie na pewno spowoduje awarię. 
Po drugie, poważnym problemem 
jest występowanie znaków o kodach 
34 lub 155. Ich obecność powoduje, 
że edytor ekranowy przedwcześnie 
obcina nasz ciąg i daje komunikat 
błędu. Dlatego program wykonuje 
następujące czynności po napotkaniu 
jednego z tych znaków: 

1) Wstawia znak spacji i oznacza jego 
pozycję w ciągu. 

2) Zapisuje instrukcje podprogramu 
tak, że wartości te są wstawiane do 
ciągu bez przejścia przez edytor 
ekranowy. W tym celu używa on 
funkcji CHR$. 

3) Program może manipulować ma- 
ksymalnie piętnastoma znakami o 
kodach 34 i 155. Sprawdza ich ilość 
i ostrzega, gdy jest zbyt duża. 


FK 1 REM ^ 

WC 2 REM * KONWERTER * 

PB 3 REM * JEŻYKA * 

W 4 REM * MASZYNOWEGO * 

FO 5 REM ***********1:#:*** 

MX 10 CLR = GRAPHICS 0 = POKE 752,1: 

,J P0KE R 75^224™^^^ ^OSJB luS 
YC 20 DIM ASa>,D0S<3),GUOTE<14), 
RETRN< 14) 

KR 30 D0S=" *' = TRRP 580 -GOSUB 74 

6 V=0 LNO=32050 = LN=3 1000 = F=8 
JL 35 OPEN #3,8,0, "C="=? #3;"1 DR 
TR " ; = FGR 1=0 TO 59 = ? #3; "0, 

= NEXT I = ? #3 i"B"i = ? #3 
VU 40 ? - ? ■? “WPROWADŹ ADRES POC 
ZATKOWY KODU " » POKE 752,0 = GOSUB 
590 < INPUT S : S0=S s S'F=S 
RE 50 ? "WPROWADŹ ADRES KOŃCOWY K 
ODU" = GOSUB 590 = INPUT S « FO=S = FF 
=S= GOSUB 640 

BK 60 ? "SPOSOB PRZECHOWANIA PROC 


EDURY?" 



PE 80 GOSUB 590? = ? "PROSZĘ WPRO 
WADZIĆ LICZBĘ I <RETURN> ! “ = I NP 
UT N 


NG 90 IF <NO 1 AND N<>2 AND N<>3> 
THEN ? CHRS ( 253 ) > "ZLA ODPOWIE 
DZ! SPRÓBUJ JESZCZE RAZ!" =GOSU 
B 600 GOTO 60 

LU 100 IF N=3 THEN ? = ? "NOWY ADR 
ES POCZĄTKOWY PROCEDURY?" GOSU 
B 590 INPUT S : SF=S 
HX 110 IF N=3 THEN ? "NOWY ADRES 
KOŃCOWY PROCEDURY ! " : GOSUB 590= 
INPUT S=FF=S 

SF 120 IF N=3 THEN IF FF-SFOFO-S 
0 THEN ? CHRS (253) ) " NIEPOPRRW 
NY ADRES KOŃCOWY' SPRÓBUJ JESZ 
CZE RAZ!" = ? =GOIO 110 
RT 130 IF N=1 OR N=3 THEN F=1 =V=V 
+1=G0T0 180 

CK 140 L=FO-SO+1 : GOSUB 680= GOSUB 
610 

Al 150 ? "CZY CHCESZ OTRZYMAĆ WYD 
RUK " *? "CIĄGU DANYCH W ASCII 
! " = GOSUB 590= INPUT RS 
El 160 IF AS="T" THEN N=4 = ? "NACI 
ŚNIJ <RETURN> PO WŁĄCZENIU DRU 
KARKI !" = GOSUB 590 = INPUT RS = OPE 
N #2, B,0, "P = " 

OS 170 GOTO 260 

WB 1B0 ? #3;LN0> " DRTR ";SF;",";F 
F = LNO=LNO+10 
ST 190 ? #3;LN0,” DATA 


VY 200 FOR 1=0 TO 19 

OD 210 IF SO+I=FO+1 THEN POP = IF 
I THEN ? #3, ", "i-1 =?- #3 = LN0=LN 
0+10= GOTO 490 

ZP 215 IF S0+I=F0+1 THEN IF 1=0 7 
HEN ? #3> -1 = ? #3 = LN0=LN0+ 1 0 = GO 
TO 490 

TL 220 IF I THEN ? #3; , S % 

OS 230 ? #3; PEEK<S0+I>; 

CJ 246 NEXT I=? #3=LNO=LNO+10=SO= 
SO+20 1 GOTO 190 

UL 260 IF N=4 THEN ? #2 = ? #2.= "I»D 
ANE DLA " ;D0S 

HX 270 LS-1 = Z=0 - W=0 = ? #3; LN.= " DIM 
" ;D8S; ;L# " ) : " ; 

II 280 IF N=4 THEN FOR 1=0 TO L-l 
? #2;PEEK(S0+I); = IF I<L-1 THE 
N ? #2 j-,*i 

CE 290 IF N=4 THEN NEXT I 

WG 300 LR=L-80 » IF LR<=0 THEN LF=L 
S+L-l 

EL 310 IF LR>G THEN LF=LS+80-l=L= 
LR 

YI 320 ? #3,D0S; "<";LS; ",";LF;">= 
",•=? #3;CHRS<34>; =F0R I=LS TO 
LF 

WG 330 IF PEEK < SO+I - 1 ) =34 THEN ? 
#3; " "i ■ QU0TE(Z)=I Z=Z+1 = GOTO 
360 

MP 340 IF PEEKCS0+I-1 )=155 THEN ? 
#3; " ■ RETRN < W) = I = W=W+ 1 GOTO 

360 

KL 350 ? #3 ; CHRS ( PEEK ( SG+ I ~ 1 ) > ; 

YG 360 NEXT I=IF LR>0 THEN LS=LS+ 
80 =? #3;CHRS<34) =? #3=LN=LN+10 
■? #3; LN.= " =GOTO 300 


' §X 370 ?' 8*3 ; CHR# <34*0? #3=LN=LN*1 
0 

DL 380 OT=0 = RT=0 = FOR X=0 TO 14 = IF 
GU0TE(X) THEN GT=GT+1 
FU 390 IF RETRN OO THEN RT=RT+1 
UK 400 NEXT X : IF QT=8 AND RT=6 TH 
EN 490 

RF 410 ? #3;LN; " R.ESTORE ";LN+20.= 
LN=LN+10 

BR 420 IF QT THEN ? #3,LN;" FOR X 
= 1 TO " iO.T> " : R.EAD Z= 'UD0*; "<Z, 
Z)=CHRS(34) =NEXT X"=LN=LN+10 
SJ 430 IF GT THEN ? #3>LN; " DATA 
"i =F0R Y=0 TO GT-1-? #3iGU0TE( 

Y) i = IF Y AND Y<GT-1 THEN ? #3; 

DP 440 ł IF GT THEN NEXT Y=? #3 LN= 
LN+10 

HG 450 IF RT THEN ? #3;LN; " FOR X 
=1 TO “ i RT> " = READ Z= D0* ; "<Z, 

Z) =CHRSC155) =NEXT X"=LN=LN+10 
PF 460 IF R.T THEN ? #3;LN;" DATA 

" ; = FOR Y=0 TO RT-1- ? #3 i RETRN < 
Y)> : IF Y AND Y<GT-1 THEN ? #3; 

ED 478 IF RT THEN NEXT Y = ? #3‘LN= 
LN+18 

MZ 498 GOSUB 740=? "GOTOWE" ■ GOSUB 
590= INPUT RS 

ZI 580 IF AS="N" THEN D0t=" "=C 

LOSE #2= GOTO 40 
YE 510 IF F=0 THEN 570 
GE 520 ? #3; "32000 W=0 = V=" j Vi " = RE 
STORĘ 32050" 

RO 530 ? #3; "32010 READ X,Y=F0R I 
=X TO Y = READ Z = P0KE I,Z = NEXT I 

ZS 540 ? #3; "32020 READ Z=IF ZO- 
1 THEN ?“ i CHRS (34); "BLAD KOCU! 
SPRRWDZ INSTRUKCJE DATA! " ;CHR 
S(34) ; ” = END" 

CW 550 ? #3; "32038 W=W+1 = IF W<V T 
HEN 32810" 

F.H 560 ? #3; "32048 RETURN" 

MG 578 CLOSE #2 ! CL0SE #3= END 
DL 588 CLOSE #2= CLOSE #3= TRRP 400 
00 =? CHRS <253); "BLAD PEEK <19 

5); " W LINII ";PEEK<1B6)+256*P 
EEK(1B7);"!" =END 

AD 590 FOR T=10 TO 6 STEP -1 =F0R 
S=B TO 8 STEP -1 =S0UND 0, 15-S, 
10, T = NEXT S '■ NEXT T-SOUND 0,0,0 
, 8 = RETURN 

JS 600 FOR T=1 TO 400 = NEXT T = RETU 
RN 

RH 610 ? «? "WERO WADŹ DWUZNAKOWA 
NRZWE CIRGU" =? "PLUS ZNRK S" G 
OSUB 590= INPUT D0S 
RF 615 IF LEN<D0S) <3 THEN GOSUB 7 
50= GOTO 610 

ZC 620 IF RSC<D0S<1,1)»90 OR RSC 
<D0S<1,1))<65 OR D0S<2, 2)=“S" 
OR D0S<3,3)O"S" THEN GOSUB 75 
0- GOTO 610*- 
ZI 638 RETURN 

DS 640 IF S0<1792 THEN RETURN 
XV 645 IF FOX256*PEEK<106)-1000) 

, THEN ? CHR S (253) > ' Wig MńH TYfl 
(E PAMIĘĆ’ HI " = POP = GOTO 40 
GK 650 BAT0P=F£EK<144)+256*PEEK<1 
45) = IF BATQP>SO -100 THEN ? CHR 
S < 253 ) ; ‘ ftJWftG A !] TEN PROGRAM MOZ 
E ZNISZCZYĆ "'GOTO 670 
ZO 660 RETURN 

GP 670 ? "TWÓJ KOD! SPRAWDŹ WYNIK 
I!"= GOSUB 600= RETURN 
LP 6B0 QT=0 = RT=0 = FOR 1=0 TO L-l = I 
F PEEK < S0+ 1 ) =34 THEN QT=GT+1 
KU 690 IF PEEK(SQ+I )=155 THEN RT= 
RT+1 

NM 700 NEXT I = IF RT<16 AND GT<16 
THEN RETURN 

VZ 710 ? CHRS < 253 ) ; ‘IjU AGA 1 Tl-jn.T R! 



JN 720 ? 'tbu^TEGO NIE ~MOGE GO PRZ] 
fE TWORZYĆ !ł” = ? ‘ PROSZĘ DOKONAĆ Tl 

Innego wyborLi71 ,, « gosub 600= gosub 

60 @ 

GN 730 POP = GOTO 60 
VX 740 FOR 1=0 TO 14 = GUOTEO )=0 = R 
ETRN < I ) =0 = NEXT I = RETURN 
JK 750 ? CHRS <253); "ZLA ODPOWIEDZ 
! SPRÓBUJ JESZCZE RRZ!"= RETURN 
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Disasembler 


Trzecim programem tej gry jest di- 
sasembler realizujący funkcję 
odwrotną do asemblera: liczby 

przechowywane w komórkach pa- 
mięci przetwarza na postać rozkazo- 
wą. Prezentowany program umożli- 
wia obejrzenie kodu maszynowego 
dowolnego programu binarnego, w 
szczególnym przypadku gry. W ak- 
tualnej wersji automatycznie prze- 
chodzi do wprowadzenia programu z 
taśmy magnetycznej. Następnie sam 
odnajduje adres początku programu i 
rozpoczyna wyświetlanie rozkazów. 


VC 98 REM **************** 

PS 99 REM * * 

MK 160 REM * DISRSSEMBLER * 

RB 181 REM * * 

LR 102 REM **************** 

UF 1 05 GRRPHICS 0-POSITIO N 11,0? 
' f DISRSSEM8LFR Z TltT ; ? = ? "P 
roszę czek 3.0. . 

QI 110 DIM OPCODE$<256*10),LN(255 
>,N6<255>,T*(10>,D$<5),6*<28> 
ET 120 FOR 1=0 TO 255 
GJ 125 REfiD TS,NB 
DT 130 LN( I)=LEN(Tf> - 
RR 140 OPCODEff 1*10+1. I*10+LN<I)> 


=T$ 

ZR 150 N6(I)=NB 

GD 160 NEXT I 

NO 1 70 GRRPHICS 0POSITIO N 11,0=? 
't.DJS RSSEMBLER Z T UJ" 

TE 180 ? ? 

UQ 185 GOSUB 800 

HV ^.TRRP 190^7 CHR*a56),CHR*( 
235 i "Rdres początkowy (Dziesie 
tnie) " , = RDDR=R ; ? R > TRRP 40000 

UN 195 RDRW=PEEK<fi+2)+PEEK(A+3>*2 
56 

TY 260 IF RDDR <0 OR RDDR> 65535 th 
EN 190 

YD OP=PEEK<RDDR) =NB=NBC0P) 

BR 220 T$=OPCODE*<OP*10+1,OP*10+L 
NC0P» 

6V 230 ? RDRW; >P0KE 65,10=? 0P>=P 
OKE 85,15 

BM 240 ON NB+2 GOTO 242,244,250,2 


60,270 

TI 242 NB=2 : T=PEEK(RDDR+1) ; IF T>1 
28 THEN T=T-256 

EP 243 ? Ti = POKE 85,25'? T Si" "i 
RDRW+2 +T -GOTO 300 
CR 244 ? ‘ feAAK Ku6uP NB=1 =GOTO^Ę 

MZ^£46 ? T$; M 11 ,~ RDRW+2+T : GOTO 1 
NJ 250 POKE 85,25 = ? Tf GOTO WF 
ZZ 260 ? PEEK(RDDR+1); =P0KE 85,25 
= Df =STR$<PEEK< RDBR+ 1 ) > = GOSUB • 
WG0T0 M 

TO 270 ? PEEKCRDDR+l ) / POKE 85,20 
= ? PEEK < RDDR+2 ) ; = POKE 85,25 
RU 280 D*=STR* < ( PEEK < RDDR+ 15+256* 
PEEK<RDDR+2> ) 5 = GOSUB 
XF •a»RDDR=RDDR+NB = IF RDDR<0 THE 
fTTDDReGSSSG-T 

BB 310 IF RDDR> 65535 THEN RDDR=T 

UM 312 RDRW=RDRU+N 6 

DB 320 IF PEEK< 53279 5=7 THEN 4 * 

PJ 330 GOTO *gp 
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GK JP0 ? T*<1,4+<LN(0P)>4));D*>T* 
<4+2*<LN(0P)>5)) = RETURN 
BU 500 DRTfl BRK, 1 , ORR <X),2,?,0,? 
,0,?,0,ORfl ,2,RSL ,2,?,0,PHP 
, 1 , ORR # ,2 

CX 510 DRTfl RSL R, 1,?,0,?,8,ORR 
, 3,RSL , 3,?,0,BPL,-1,ORR OY, 
2,?,0,?,0 

FH 520 DRTfl ?,0,ORR X,2,ASL X,2 
, ?, 0, CLC, 1 , ORR Y,3,?,0,?,0,?, 

0 . 0RR X, 3 

WE 530 DRTR RSL ,2,?,0,JSR ,3, RN 

D CX),2,?,0,?,0,6IT , 2,RND ,2, 
ROL ,2,?,0 

WH 540 DRTR PLP,1,RND # ,2, ROL R, 

1, ?,0,BIT ,3,RND ,3;R0L ,3,?,0 
,BMI,-I ,RND <>Y,2 

UE 550 DRTR ?,0,?,0,?,0,AND X,2, 

ROL X, 2, ?, 0, SEC, 1 , RND Y,3,CL 
I, 1,?,0 

PG 560 DRTR ?,0,RND X,3,R0L X,3 
, ?, 0, RTI , 1 , EOR <X),2,?,0,?,0,? 
,0,EOR ,2 

OW 570 DRTR LSR , 2, ?, 0, PHR, 1 ,EOR 

# ,2, LSR , 3,?,0, JMP ,3, EOR 

,3, LSR ,3,?,0 

PU 580 DRTR BVG,-1-,E0R OY,2,?,0, 
?,0,?,0,EOR X,2,LSR X,2,?,0, 
CLI, 1, EOR Y, 2 

XP 590 DRTR ?, 0, ?, 0, ?, 0, EOR X,3, 
LSI? X,3,?,0,RTS, 1,RDC <X),2,? 
, 0 .■ ? , 0 

KG 600 DRTR ?,0,RDC ,2,R0R ,2,? 

,0,PLR,1,RDC # ,2, ROR R,1,?,0, 
JMP O,108,RDC ,3 

RY 610 DRTR ROR ,3,?,0,BVS,-1 ,RD 
C OY,2,?,0,?,0,?,0,RDC X, 2,R 
OP X,2,?,0 

KJ 620 DRTR SEI, 1,RDC Y,3,?,0,?, 
0, ?, 0, RDC X,3,R0R X,3,?,0,?, 
0, STR (X>,2 

EL 630 DRTfl ?,0,?,0,STY ,2, STR 

,2,STX , 2,?, 0,DEY, 1,?,0,TXR, 1 
, ?, 0 

PZ 640 DRTR STY ,3, STR ,3,STX 
,3, ?, 0, 6CC, -1 , STR < )Y,2,?,0,?, 
0, STY X, 2, STR X,2 
IN 650 DRTR STX Y,2,?,0,TYR, 1 ,ST 
R Y,3,TXS, 1,?,0,?,0,STR X,3, 

?, 0, ?, 0 

CI 660 DRTR LDY # ,2,LDR <X),2,LD 
X # ,2,?,0,LDY ,2,LDR ,2,LDX 
, 2,?,0,TRY, l,LDfl # ,2 
GN 670 DRTR TRX, 1 , ?, 0, LDY ,3,LDR 
, 3, LDX , 3,?,0,BCS,-1,LDR O 
Y/2,?,0,?,0 

TP 680 DRTR LDY X,2,LDR X,2,LDX 
Y,2,?,0,CLV, l,LDfl Y,3, TSX, 1 
,?,0,LDY X,3,LDR X,3 
RP 690 DRTR LDX Y,3,?,0,CPY # ,2 
, CMP (X), 2, ?,0, ?,8,CPY ,2,CMP 
,2, DEC , 2,?,0 

60 700 DRTR INY, 1,CMP # ,2,DEX,1, 
?,0,CPY ,3, CMP ,3, DEC ,3,?, 

0,BNE,-1,CMP OY,2 

NO 710 DRTR ?, 0,?, 0, ?, 0, CMP X,2, 
DEC X,2,?,0,Cl.D,l,CMP Y,3,?, 
0 , ?, 0 

LG 720 DRTfl ?,0,CMP X,3,DEC X,3 
,?,0,CPX # ,2, SBC <X),2, ?,0, ?, 
0,CPX ,2, SBC ,2 
SI 730 DRTR INC ,2,?,0, INX, 1,SBC 

# , 2, NOP, 1 , ?, 0, CPX ,3, SBC , 
3, INC ,3,?,0 

NO 740 DRTR BEG,-1, SBC CY),2,?,0, 
?,0,?,0,S6C X,2, INC X,2,?,0, 
SED, 1,SBC Y, 3 

RU 750 DRTR ?;0,?,0,?,0,S6C X,3, 
„ INC X,3,?,0 

W 800 FOR 11=1 TO 28RERD BBfCI 
I , I I )=CHRS(B) * 1 NEXT II 
TJ 810 7- "ILE BAJTÓW WCZYTflC" = INP 
UT JLOSC 

SN 820 OPEN #2,4,128, ,, C' H 
IV 830 _fi=PEEK<144)+PEEK<145)*256+ 
256 

OZ 848 U=USR(RDR<6$),32,7,R, ILOSC 

) 

CW 845 DRTR 104,104,104,170,104,1 
04, 157,66,3, 104, 157,69, 3, 104, 1 
57,68, 3, 104, 157, 73, 3, 104, 157, 7 
2,3,76,86,228 

ED 858 POKE 54018, 60 = RDRW=PEEK<R+ 
2 ) +PEEK C fl+3 > *256 = RETURN 



Budowa zamku 


Ostatnim z prezentowanych progra- 
mów jest przykład prostej gry eduka- 
cyjnej umożliwiającej poznanie 
kształtów figur geometrycznych lub 
wzorów na obliczanie pola po- 
wierzchni tych figur. Wariant gry mo- 
że być wybrany bezpośrednio po jej 
uruchomieniu. 


FK 1 REM **************** 

FJ 2 REM * * 

WZ 3 REM * Budowa zamku * 

FO 5 REM **************** 

OL 50 BRK= 1 : I F PEEK (53279) =5 THEN 
BRK=0 

LN 60 GOSUB 3000: GOTO 90 
SG 70 POKE 77,0: IF BRK THEN POKE 
16, 64: POKE 53774,64 
ZY 80 RETURN 

TV 90 DIM TP(8) , C0L<8> ,RNS$( 114), 
INV$< 1 14) ,FRM$< 114), INF$< 1 14) 
OS 100 RNS$(1,50)=" PROSTOKĄT 
KWRDRRT ROWNOLEGLGBOK K 

0L0 

KR 110 RNSf<51,105)=" TRRPEZ 
POLKOLE TROJKFlT 

C HELP 1 

C Cl 120 FRM$<1,50)=" W * L 

S"'2 B * H PI 

VI 130 FRM$(51 , 105)=" 1/2 *H*<B+ 

T) 1/2 *PI*R'2 1/2 * B * H 

C HELP J " 

DV 140 INV*(1,50)="1 PROSTOKĄT ] 

f KWRDRRT ROWNOLEGLOBOK kl 

l oL-p — J" r 

SR . 150 INV$<51, 1 05 >= *1 TRRPEZ 

r POLKOLE TROJKRT 

1 C HELP 1 F , 

VS ,160 INFi( 1 , 50) = ’*I W *X 1 

1 5^2 B * H Pil 

ł* R^2 I " 

UU 1?0 IhlFf<51, 105>='l 1/2 *H*<B+ 

nr r/2 *ri*r^2 1/2 * b * h " 

1 Z HELP ] P 

RT 1 75 RNSf (10,10) =CHR$ < 1 ) : RNSf (2 
B, 28)=CHR#< 15) : RNSt (35,35) =CHR 
$< 12) • RNSf (46,46) =CHR$ (12) • RNS 
*<68,68)=CHR*<15) 

TM 176 RNS$<82,82)=CHRf(15):RNS*< 
69,69>=CHRf < 12) : RNS* (85, B5)=CH 
R*(l) 

EN 177 INV$<10, 10)=CHR*(129) = INV* 
<28, 28)=CHR*< 143) = INV*<35, 35)= 
CHRf < 140) = INV*(46, 46>=CHR.*< 140 
) = I NV# < 68, 6B ) =CHR* < 143) 

ZV 178 INV$(69,69)=CHR*(140> : INVf 
(B2,82)=CHR*< 143) = INV*<B5,85)= 
CHR*< 129) 

HP 180 C0L< 1 )=0 : C0L(2)=13 = C0L<3>= 
26:COL<4)=0 

EX 190 C0L<5)=13: C0L<6)=26 = C0L<7) 
=0=COL(8)=13 

ZR 200 TRUE= 1 : FRLSE=0 : NONE=FRLSE ; 

GRRPHICS 0:F‘OKE 756,CH/256 
BZ 210 GOSUB 720 -REM KREŚLENIE 
YM 220 REM KREŚLENIE ZAMKU 
SU 230 GRAPHICS 7= POKE 756,CH/256 
:P0KE 70B, 56 : POKE 709, 1B6: POKE 
710, 130:POKE 712, 150= GOSUB 70 
: COLOR 2 = RESTORE 970 



CG 240 FOR 1=1 TO 12'RERD X1,Y1,X 
2/Y2-G0SU6 530 ! NEXT I ' REM KRES 
LENIE PROSTOKRTOW 
OH 250 FOR 1=1 TO 4 'RERD X1,Y1,X2 
,Y2,X3,.\4' GOSUB 600=NEXT I' REM 
TRRPEZ? 

RH 260 FOR 1=1 TO 2 ! RERD X1,Y1,X2 
,Y2,Y3,Y4' GOSUB 550'NEXT I ■ REM 
R0WN0LEGL060K 

GK 270 FOR 1=1 TO 4 ; RERD X1,Y1,X2 
Y2 x3 X4 

MW 280 ' PLOT XI , Y2 ' ORRWTO X2,Y1'DR 
RWTO X4,Y1 

ZD 290 DRRHTO X3 , Y2 ' ORRWTO X1,Y2' 
NEXT I 

OY 300 PLOT 41, 10 DRRWTO 41,0'DRR 
WTO 49, 3 -DRRWTO 41/6 
OC 310 FOR 1=1 TO 2 RERD Xl,Yl/X2 
/ Y2 : GOSUB 620 •• NEXT I - REM TROJK 
RTY 

BG 320 FOR P=1 TO 7 •RERD X1/Y1/X2 
/Y2/E/J GOSUB 570 • NEXT P : REM O 
KRĘGI 

WS 330 ON WYBÓR GOSUB 640/680 
SD 340 LET TEXT=PEEK<660)+256*PEE 
K<661 ) 

JM 350 TP(1)=TEXT - TP(2)=TEXT+13 ' T 
P<3)=TEXT+26- TP(4)=TEXT+40 
JJ 360 TP<5)=TEXT+53TP(6)=TEXT+6 
6 : TP(7) =TEXT+80 : TP < 8 ) =TEXT+93 
ZD 378 SP=5 - OLDSP=SP • GOSUB 1460'R 
EM GŁÓWNY PROGRRM 
UN 380 FDR DR=1 TO NUMSHRPES-1 -CO 
RRECT=FRLSE 

KI 390 RERD SHRPE : GOSUB 1700 'COLO 
R 2 

WN 400 ON SHRPE GOSUB 1750/1B20/1 
840/1980,2080,2190/2210/2280 
MG 410 NEXT DR 

6X 420 GOSUB 1 700 : REM KR60WRNIE R 
YSUNKU 

NF 430 RERD SHRPE, COLR, XI , Y1,X2, Y 
2-CORRECT=FRLSE COLOR 2 
PJ 440 GOSUB 620 GOSUB 1600 'RERD 
X1,Y1,X2,Y2 
UC 450 COLOR COLR 
QT 460 PLOT X2,Y2- DRRWTO X1,Y1 
DW 470 Y1=Y1+1 ■ IF Yl*<XY2+4) THEN 
460 

GI 480 ? CHRf<125:»j -IF NUMWRONG=0 
THEN ? " KR" , CHRt(26) , “DR TWO 
JR ODPOW I ED " , CHRf ( 6 > ; " BY",CHR 
f ( 12); "R POPRRWNR! M " 

UO 490 IF NUMWRONG>0 THEN ? "OPU" 
) CHRf <19) ;CHRf <3) , "I" ; CHRf<12) 

, "E" , CHRf <1 9 ) , " " ; NUMWRONG - ? 

LD 500 ? "W celu dalszej *ru naci 
" i CHRf <23) , "ni j PRZYCISK. 

RG 510 IF STRIGC0) THEN 510 
NO 520 GRRPHICS 0-POKE 756,0^256 
-GOSUB 70 -GOTO 210 
FZ 530 PLOT XI , Y1 1 DRRWTO X2, Y1 : DR 
RWTO X2, Y2-REM KREŚLENIE PROST 
OKRTR 

TZ 540 DRRWTO XI ,Y2- DRRWTO XI, Yl- 
RETURN 

WG 550 PLOT XI ,Y2' DRRWTO X2,YPDR 
RWTO X2, Y3- REM KREŚLENIE ROWNO 
LEGLOBOKIJ 

WM 560 DRRWTO XI ,Y4' DRRWTO X1,Y2' 
RETURN 

JB 570 PLOT XI , Yl ; FOR 1=0 TO E ST 
EP J- REM OKRĘGI 8< POL OKRĘGI 
AZ 580 X=6*C0S<I)+X2Y=<-6)*SIN<I 
)+Y2 

LK 590 DRRWTO X,Y=NEXT I- RETURN 
LB 600 PLOT XI ,Y2 DRRWTO X2,Y1'DR 
RWTO X3, Yl : REM KREŚLENIE TRRPE 
- ZU 

WK 610 DRRWTO X4,Y2- DRRWTO X1,Y2' 
RETURN 

VY 620 PLOT XI ,YP DRRWTO X2,Y2'DR 
RWTO X 1 , Y2 : REM TROJKRT 
YV 630 DRRWTO X1,Y1' RETURN 
OX 640 POKE 82,0'? “"'POKE 752,1' 
REM KSZTRLTY 

PY 650 ? RNSf < 1 , 39) ' ? RNSf <40, 78) 
-? RNSf <79, 104) 

WL 660 IF NOT HELP THEN ? "U",CH 
Rf<24);"yj manipulatora do wyb 
rania KSZTR" , CHRf < 12) ; "TU. " ; 

ZG 670 RETURN 

UQ 680 POKE 82,0? ""'POKE 752, P 
REM WYKONRJ WZORY 
WJ 690 ? FRMf<l,39)'? FRMf<40,78> 
•■? FRMf<79, 104) 

GK 700 IF NOT HELP THEN ? " U“;C 
HRf<24);"yj manipulatora do wy 
b ran i a WZORU " ; - POKE 752 , 2 


ZF 710 RETURN 

RL 720 NUMSHRPES=32 = ? CHRf < 125) -P 
OKE 710, 146 'POKE 752,1'REM INT 

RO EKRRN 

ZY 730 POST TI ON 2,0'? "[ ] 

f BUDOWR ŻRMk.lJ m 


L 


RS 748 POSI TION 2 /3~? " TWzoryl 
Iksztal " , CHRf <251) 

SW 750 POSITION 2,5'? "W * L 

= PROSTOK" , CHRf < 1 > ; "T" 
KP 760 POSITION 2/6'? m £T2 




= KWRDRRT" 

HG 770 POSITION 2,7 ? "B * H 

= R" i CHRf < 1 5 ) ; " WNOLEG " / C 
HRt< 12), "OBOK" 

RG 780 POSITION 2,8'? "PI * R"’2 
= KO"; CHRf *1 12), "0 " 


RN 790 POSITION 2/9:-? "1/2 % H * 
CB+T) = TRRPEZ" 

PK 800 POSITION 2/10? "1/2 % PI 
* R 2 = P" /CHRf < 15) ; CHRf < 12); 


"KOLĘ 


DS 810 POSITION 2/11? "1/2 * H * 
B = TR" , CHRf < 15), "JK" ;CHR 
f < 1 ) ; "T" 

ID 820 POSITION 0,13'? "Rba gra", 
CHRf < 22 > ; " nac i " ; CHRf C 23 ) ; " n i i 
przycisk mani pulatora. " = GOSUB 
70 'POKE 764,255 
WF 830 IF STRIG<0) THEN 830 
ZZ 840 S=55= GOSUB 1570 'REM BEEP 
EV 850 IF NOT STRIG<0> THEN 858 
EF 860 GRRPHICS 2+16 'POKE 756, CH/ 
256 ' WVBOR=l ' REM STRRT . 

NS 870 POSITION 0,4'PRINT #6) "CO 
CHCESZ SPR";CHRf <92); "60WR";CH 
Rf < 37 ) ; ,, = " -GOSUB 70 
RJ 890 IF NOT STRIG(0) THEN S=25 
•GOSUB 1570 -RETURN 

YC 900 IF WYB0R=2 THEN 930 

NE 910 P OSITION 6/7'PRINT #6, ' Mvs! 

IF 320* FOSITION 6/9'PRINT #6; "WZO 
RY ", 

RR 925 PR=0 

NO 930 IF STICK<0>=14 THEN WYBOR= 
1S=75' GOSUB 1570 -GOTO 890 
XL 940 IF STICK<0)=13 THEN WYB0R= 
2 'GOSUB 1 540 'S-55' GOSUB 1570 
SL 950 GOTO 890 
HS 960 REM DRNE ZRMKU 
QQ 970 DRTR 5,37,77/76/39/60/46,7 
6/7,15/17/32/65/15/75,32 
PB 980 DRTR 10/6/14,10/70/10,80/1 
5/60/10/70/15,68/6/72/10 
SM 990 DRTR 2/10/12,15/12/10,22/1 
5, 41,22, 57, 37, 25, 22,41 , 37 
HM 1000 DRTR 5/32/7,37, 17/20,62/3 
2/65,37/75/77 

JN 1010 DRTR 46/70/52,76/71/77,5/ 
70,11/76/33/39 

OC 1020 DRTR 10/20/15/17,30/27,67 
,1-7,72,20,27,30 

CN 1030 DRTR 18/6/20/10/22,24,2,6 
,0/10,7,4 

YL 1040 DRTR 60,6,57, 10/64,62,75, 
6,78,10,80/82 

VZ 1050 DRTR 41/10,57/22/41,10/25 

,22 

El 1060 DRTR 28,47/22/47,6.6,0.1 
VR 1070 DRTR 39,30,33,30,6.6,0.1 
ZP 1080 DRTR 55,30,49/30/6.6,0.1 
IZ 1090 DRTR 68/47,62,47,6.6/0.1 
CY 1100 DRTR 16/65,22,65/3.15,0.1 
HJ 1110 DRTR 56/65,62/65/3.15/0.1 
HI 1120 DRTR 37/48/42,48,3.15/0.1 
IH 1130 REM 

EB 1140 DRTR 1/3/100,67,120,75/5/ 
38,77,75 

IG 1150 DRTH 4,2/112/65/106,65,6. 

6/0.1/44,96/6.6/0.1 
UG 1160 DRTR 5/2,100/65,105/75/12 
0/125/48/70,53/75,72/78 
TC 1170 DRTR 1,1/100/65,120,75/39 
,60,46,75 

WR 1180 DRTR 6,1,100,65,106,65,3. 

15.0. 1/124/130,3.15/0.1 

BQ 1190 DRTR 5/2,100,60,110,75/12 
0,130,5/70/10,75/32/38 
VI 1200 DRTR 4/2/112,65/106,65/6. 

6.0. 1/124,96,6.6,0.1 

CY 1210 DRTR 6/1,105/65/111/65/3. 

15/0.1,44/130/3.15/0.1 
CK 1220 DRTR 1/1/100,62,110,75,7/ 
15,17/32 

NH 1230 DRTR 3/3,100,65/105,75,55 
,65/10,20/15,17,30/27 
HW 1240 DRTR 2,1,100/65/105/70/10 
,6,15/9 


NH 1250 DRTR 1,2/100,62/102/75/2, 
10/12, 15 

TC 1260 DRTR 3/1,100/65/105/75,55 
,65,1/6,0/9/6/7 

EP 1270 DRTR 5/2,100/65/110,75/12 
0/130/4,32,7/37/18, 20 
OE 1280 DRTR 1,2,100,65/122/75,12 
,10,22,15 

HU 1290 DRTR 3,1,100,65,110/75,60 
,70,18/6/20/9/26/23 
IM 1300 DRTR 2,2,105/65/115,75,25 
,22,41,37 

PU 1310 DRTR 7,1/100/65/120/75,40 
, 10,25,22 

IC 1320 DRTR 2/2/100,65,110/75,41 
,22,57,37 

RJ 1330 DRTR 4, 3, 1 12, 65,i06, 65, 6. 

6,0.1,66,60/6.6,0.1 
KK 1340 DRTR 1,1/100,60/105/75,65 
,16,75,32 

NY 1350 DRTR 1,2,100/62/102,72,60 
, 10,70,15 

UU 1360 DRTR 3/1,100,65/110/75,60 
,70, 59, 6, 56, 9, 63, 68 
JL 1370 DRTR 5,2,110/75,100,65/13 
0, 120/62,32,64/37/75,79 
WJ 1380 DRTR* 1,2/100/67,122,72/70 
,10,80,15 

LV 1390 DRTR 7, 1, 100,62, 110,75,41 
, 10,41,22 

BI 1400 DRTR 3,3,100/65/110/75,60 
,70,68/17,73/20,28/32 
CJ 1410 DRTR 2/1/100/70, 105,75,68 
,6,72,9 

GN 1420 DRTR 3,1,100,65,105,75,55 
,65,76/6/78/9,84/80 
YZ 1430 DRTR 4,3,112,65,106,65,6. 

6,0.1,100/60/6.6/0.1 
JH 1440 DRTR 6,1,100,65,106/65,3. 
15/0.1,84/96/3.15,0.1 

FW 1450 DRTR 7, 1,102,65, 115,75,42 
,0,50/3 

RO 1460 ROW=INT<<SP-1)/'3)'OLDROW= 
INT ( (OLDSP-l )^3) - REM NEGRTYW T 
EKSTU 

SZ 1470 POKE 656 /OLDROW' POKE 657, 
COLCOLDSP) POKE 658,0 
ZS 1480 IF WYBOR= 1 THEN ? RNSfC<0 
LDSP-1)*13+1,.<0LDSP-1)*13+13); 
CW 1490 IF WYB0R=2 THEN ? FRMfCCO 
LDSP-1)*13+1,(0LDSP-1)*13+13)/ 
CN 1500 POKE 656, ROW- POKE 657, COL 
<SP) ' POKE 658,0 

FC 1510 IF 1^608=1 THEN ? INVf(<S 
P-1)*13+1,CSP-1)*13+13); 

PU 1520 IF WYB0R=2 THEN ? INF$<<S 
P-l)*13+l,<SP-l)*13+13)ż 
RS 1530 RETURN 

EB 1540 POSITION 6,7-PRINT #6; "RY 
SUNKI" 'REM NEGRTYW WYBOROW _ 
YC 1550 POSITION 6,9'PRINT »6; 'ffiZl 

ffl" 

66 15b0 RETURN 

OG 1570 SOUND 0,5, 10, 10 -REM BEEP 
ON 1580 FOR D=1 TO 20'NEXT D 
YL 1590 SOUND 0,0,0,0'RETURN 
JN 1600 GOSUB 70TR=STRIG<0)'ST=S 
TICKC0) ' OLDSP=SP ' IF ST=15 RND 
TR=1 THEN 1600 =REM SPRRWD ZENIE 
PRZYCISKU 

UG 1610 POKE 53279, 7 IF TR=0 THEN 
S=35 = GOSUB 1 570 ■ RNS=SP - GOSUB 
2320 

EM 1620 IR RNS=8 THEN GOSUB 2280 
<PP 1630 IF CORRECT THEN RETURN 
.JS 1640 IF ST=7 THEN SP=SP+1 ' IF < 
SP-l)/3=INT<CSP-l)/3) THEN SP= 

VG 1650 IF SP=9 THEN SP=7 
KZ 1660 IF ST=11 THEN SP=SP-1 ' IF 
SP^3= I NT < SP^S ) THEN SP=SP+3=IF 
SP=9 THEN SP=S 

DL 1670 IF ST=13 THEN SP=SP+3'IF 
SP>8 THEN SP=SP-9=IF SP=0 THEN 
SP=3 

VP 1680 IF ST=14 THEN SP=SP-3'IF 
SP<1 THEN SP=9+SP ' IF SP=9 THEN 

ZP 1690 GOSUB 1460 'GOTO 1600 
RI 1700 COLOR 0 ; X1=85’X2=150 ' REM 
KRSOWRNIE RYSUNKU / 

SU 1710 FOR Y=55 TO 80 -SOUND 0,25 
5-(2*Y),10/10 

YD 1720 PLOT XI ,Y 'DRRWTO X2,Y 
OW 1730 NEXT Y- SOUND 0,0, 0,0 
RZ 1740 RETURN 

SL 1750 RERD C0LR,X1,Y1,X2,Y2'REM 
PROSTOKRT 


JY 1760 GOSUB 530 : GOSUB 1680 
WR 1778 RERD XI, Yl,X2,Y2’ COLOR CO 
LR 

GW 1780 FOR Y=Y1 TO Y2 
YY 1790 PLOT XI, Y’ DRRWTO X2,Y 
LZ 1800 NEXT Y 
RS 1810 RETURN 

EX 1820 GOSUB 1750 'REM KWRDRRT 
RY 1830 RETURN 

MV 1840 RERD C0LR,X1,Y1,X2,Y2,Y3, 
Y4 ; REM ROWNGLEGLOBOK 
SC 1850 Pfl=Pfl+l 
LR 1860 GOSUB 550 'GOSUB 1680 
WU 1870 IF PR=1 OR Pfi=5 THEN 1930 
BZ 1880 RERD XI, Yl,X2, Y2,X3,X4 =CO 
LOR COLR 

IK 1890 PLOT X2, Y1 ; DRRWTO XI, Y2 
DU 1900 X1=X1+1 'X2=X2+1 
YM 1910 IF X2<>X3 THEN 1890 
RX 1920 RETURN 

DJ 1930 RERD Xl,Yl,X2,Y2,Y3,Y4'C0 
LOR COLR 

HX 1940 PLOT XI, Y2' DRRWTO X2,Y1 
FN 1950 V2=Y2+1<Y1=Y1+1 
WW 1960 IF Y20Y4 THEN 1940 
BM 1970 RETURN 

TN 1980 RERD COLR, XI, Y1,X2, Y2,E, J 
: REM KOLO 

ML 1990 GOSUB 570 -GOSUB 1680 
GD 2880 RERD XC, YC,E, J • COLOR COLR 
RQ 2010 XC*=XC/2 * YC«=YC^2 
PG 2020 FOR R=0 TO E STEP J 
SG 2830 X=6*C0S<R)+XC 
NY 2040 Y=<-6)*SIN<R)+YC 
XN 2050 PLOT XC,YC' DRRWTO X,Y 
JD 2060 NEXT R 
RV 2070 RETURN 

YH 2080 RERD C0LR,X1,Y1,X2, Y2,X3, 
X4 1 REM TRRPEZ 
YB 2090 GOSUB 600 
ZM 2100 GOSUB 1600 
YZ 2110 RERD X1,Y1,X2,Y2,X3,X4 
EF 2120 COLOR COLR 
HF 2130 PLOT XI, Y2‘ DRRWTO X2,Y1 
DR 2140 X1=X1+1'X2=X2+1 
NY 2150 IF X20X3 THEN 2130 
IR 2160 PLOT X3,Y1 'DRRWTO XI, Y2 
TT 2170 X1=X1+1 IF XI 0X4 THEN 21 
60 

BR 2180 RETURN . 

NV 2190 GOSUB 1980 'REM POLKOLE 
RE 2200 RETURN 

YM 2210 RERD C0LR,X1,Y1,X2,Y2REM 
TROJKRT 

YK 2220 GOSUB 620 
ZX 2230 GOSUB 1600 
BF 2240 RERD X1,Y1,X2, Y2=X3=X2'C0 
LOR COLR 

NT 2250 PLOT X1,Y1 DRRWTO X2,Y2-X 
2=X2+ 1 

RF 2260 IF X2<>X3+17 THEN 2258 
RZ- 2278 RETURN 

MP 2280 HELP=TRIJE ? CHR*<125)'0N 
WYBÓR. GOSUB 690,650 
FB 2290 FUR D=1 TO 580'NEXT D ' HEL 
P=FRLSE : RNS=8 

XD 2300 ? CHRT (125) -ON WYBÓR GOSU 
-B 658,698 

CU 2318 RNS=0- RETURN 
GS 2320 IF RNS=SHRPE THEN CORRECT 
=TRUE 

EW 2330 IF RNS=8 THEN RETURN 
DX 2340 IF RNSOSHRPE THEN NUMWRO 
NG=NUMWF.0NG+1 ' GOSUB 2360 
RV 2350 RETURN 

YO 2360 S= 158 FOR BUZZ=1 TO 3= GOS 
UB 1578 

GlU 2378 NEXT BUZZ' RETURN 
JC 3008 DIM FGMf (32) > CH=<PEEK< 106 
> -8 ) 7256 = POKE 1 06 , PEEK < 1 06 ) - 1 6 
ZV 3010 RESTORE 3835 -FOR 1=1 TO 3 
2 RERD X = PGM* 1,1) =CHRf <X) = NEX 
T I X=USR < RDR < PGM* ) , 2244:256 , CH 
) 

GO 3820 RERD X IF X=-l THEN POKE 
756, CH--256 RETURN 
ED 3030 FOR 1=0 TO 7 - RERD Y POKE 
CH+X*8+I,YNEXT I'GOTO 3028 
RY 3035 DflTR 104,104,133,213,104, 
133,212, 104, 133,215, 104, 133,21 
4, 162,4. 168,0, 177,212, 145,214, 
208, 288,249,230 

GF 3036 DfiTR 213,238,215,202,208, 
240,96 

KN 3040 DfiTR 65,0,24,60,102,102,1 
26, 102, 12 

OR 3058 DRTR 67,12,60,102,96,96,1 
82,60,0 


LN 

LP 

EB 

GF 

ZL 


JX 


3080 Dfirfi 70,12,24,126,12,24,4 
6, 126,0 

3100 DRTR 76,0,96,128,112,224, 

96.126.0 

3138 DRTR 79,12,68,102,102,102 
,102,60,0 

3168 DRTR 83, 12, 60, 96, 60, 6 6, 6 
0,0 

3170 DRTR 86,12,24,8,60,96,96, 

60.0 

3180 DRTR 87,12,24,62,96,60,6, 
124,0 


DP 3190 DRTR 88,0,24,0,126,12,48, 
126,0 

SI 3200 DRTR 90,24,0,126, 12, 24,48 
, 126,0 

EZ 3210 DRTR 123,0,56,24,28,56,24 
,60,0 

ZL 3220 DRTR 60,12,60,102,102,102 
,102,60,0 


TX 3230 DRTR 5,12,60,102,96,96,10 
2,60,0 

EW 3248 DflTR -1 


ATARI 


18 REM t:X% SPEKTPOGRRF MRSOWY *** 

28 OPEN #1,4,8, "K : “ 'GRRPHICS 2 : POKE 710, 8 'POKE 752,1 'POKE 764,255 
30 POSIIION 8,5=7 #6, " SPEKTROGRAF MRSOWY" ' SETCOLOR 0,1,6 
35 ? CHR* <12?)' “PROSZĘ CHWILE POCZEKRC" ' GUSUB 468 

48 ? CHR*<28>,CHR*(127)iCHR*<253).i ,, HRCISNIJ DUWOLNY KLRWISZ" = GET #1,S 

50 REM 

68 REM SCHEMAT SPEKTROGRAFU 
70 REM 

88 GRRPHICS 7= COLOR 2 DL=PEEK < 560 ) +256TPEEK (561) 

98 POKE DL+85, 13.' POKE 660, 54 POKE 6bl , 157' 'POKE 710,0 'GOSUB 330 

108 PLOT 118,38 DRRWTO 130, 30 ' DRRWTO 130,1 DRRWTO 110,1 

118 PLOT 100, 1 'DRRWTO 80,1 'DRRWTO 80 , 38 ' DRRWTO 108, 30 ' DRRWTO 30,30 

120 FOR T=-l ■ 55 TO 1.6 STEP 0.85 DRHWTO S1N<T)*:50+80,COS<T)*50+30 = NEXT T 

130 PLOT 148,15' DRRWTO 128, 15 DRRWTO 128-3'DRRWTO 120,27 

140 PLOT 70, 15 'DRRWTO 90,15'DRRWTO 98,3'DRRWTO 98,27 

150 PLOT 135, 13 'DRRWTO 148,13 

168 PLOT 70,12-DRHWTO 76, 12PL0T 73,10'DRRWTO 73,14 

170 FOR T=30 TO 80 'PLOT T. 20 'DRRWTO T,30 NEXT T ' COLOR 8 'POKE 752,1 

180 REM — 

190 REM RUCH CZĄSTEK 
206 REM 

210 COLOR 0 ' PLOT 34, 20 'DRRWTO 34, 30 'PLOT 45, 20 DRRWTO 45,38 
228 PLOT 73, 20 DRHWTO 73, 30 PLOT 57, 20 DRRWTO 57,30'R=1 
230 ? CHR*< 127) j " W-WOLNO S-SZY6K0 K-RESTHRT" ' ? 

240 U=USRC 15000) ' FOR T=1 TO R ' NEXT T'B=PEEK<764> 

250 IF B=46 THEN R=R+20'POKE 764,255 
260 IF 6=62 THEN R=A-20 ' POKE 764,255 
270 IF B=48 THEN GOTO 290 
280 GOTO 248 


290 U=USR< 15256) HUN 

300 REM 

310 REM GRRFIKR PLR JERÓW 

320 REM . 

338 POKE 623, 8 POKE 559,62' POKE 54279, 130 POKE 53277,3 

340 POKE 704 , 8 = POKE 705,10' POKE 706,12' POKE 707,15' U=USR <1545) 


350 

RESTORE 

390 

FOR 

T=33794 

TO 

33806 

RERD 

R 

POKE 

T,R 

NEXT 

T 

360 

RESTORE 

400 

FOR 

7=34050 

TO 

34062 

RERD 

R 

POKE 

T,R 

NEXT 

T 

370 

RESTORE 

410 

FOR 

T=34386 

TO 

34318 

RERD 

fl 

POKE 

T,R 

NEXT 

T 

3.86 

RESTORE 

420 

FOR 

T =34562 

TO 

34574 

RERD 

R 

POKE 

T, R 

NEXT 

T 

398 

DRTR 0.6 

,0,0,24 

60,60,24,0 

0,0,0 







400 

DRTR 0,G 

,0,8,28 

28,8,8,0,0 

0,0 








410 DRTR 0,0,0,0,8,28,8,0,0,8,0,0 
420 DflTR 0, 0,0, 0,0,1, 1,0, 0,0,0, 0 
430 REM 
440 
450 
460 
470 
480 
498 


500 

520 

530 

550 

560 

580 

538 

600 

610 

620 

630 

640 

650 

668 

670 

680 

690 

700 

710 

720 

730 

750 

768 

770 

780 

790 

800 

818 

820 

830 

840 


REM PRGGRRM MRSZYNOWY 
REM 

RESTORE 490 FOR T=1545 TO 1639 'RERD R • POKE T,R'NEXT T 

RESTORE 580 FOR T=15800 TO 15588 'REHD R'POKE T,R=NEXT T 

RESTORE 860 FOR. T=1528 TO 1533 'RERD fi 'POKE T,R = NEXT T' RETURN 

DRTR 184, 160,0, 169,0, 133,26, 169, 127, 133,27, 169,8, 145,26, 165,26 

DRTR 1 05 , 1 , 1 33 , 26 , 1 44 , 244 , 24 , 230 , 27 , 1 65 , 27 , 20 1 , 1 43 , 208 , 235 , 96 , 0 

DRTR 1 78 , 1 60 , 1 , 1 77 , 26 , 1 36 , 1 45 , 26 , 200 , 208 , 1 92 , 1 4 , 208 , 245 

DRTR 198,26, 262,224,0,208,236,234, 234, 234, 234, 234,234, 24, 96, 0,0 

DRTR 170, 168, 12, 177,26,208, 145,26, 136, 136, 192,8,208,245 

DRTR 238, 26, 202, 224,0,288, 236, 234, 234 , 234, 234, 234, 234,24, 96,0 

DflTR 104, 172, 250,5, 148, 0, 288, 192, 76,208, 5, 160, 151 , 140, 250,5 

DR1R 206,250,5, 173,248,5, 133,26, 173,249,5, 133,27, 185,96,59 

DRTR 201 ,0,240, 26,74, 176, 5, 32, 74, 6, 144, 13, 24,201, 80, 208,5 

DRTR 168,0, 140,0,208,32,43,6, 165,26,141,248,5, 172,253,5 

DRTR 140, 1,208, 192, 86, 208, 168,151,140,253,5,206,253,5,173,251,5 ’ 

DRTR 133, 26, 1 73, 252,5, 133, 27, 185, 160, 59, 201 , 8, 240, 26, 74, 176, 5 

DRTR 32, 74,6, 144, 13, 24,201 , 80, 208,5, 160, 0, 140,1, 208, 32, 43, 6 

DRTR 165,26, 141,251,5,172,0,6, 140,2,288,192,96,208,5,160, 151 

DRTR 140,0,6,206,8,6,173,254,5, 133,26, 173,255,5, 133,27, 185,214,59 

DRTR 201,0.240,26,74,176,5,32,74,6, 144,13,24,201,88,208,5, 160,8 

DRTR 148,2, 288, 32, 43, 6, 165, 26, 141 , 254, 5, 172, 3,6, 140,3, 208, 192,111 

DRTR 208, 5, 160, 151 , 140, 3,6, 286,3,6, 173, 1 , 6, 133, 26, 173,2, 6, 133,27 

DflTR 185,254,59,201,0,248,26,74, 176,5,32,74,6, 144,13,24,201,88,208,5 

DRTR 168, 0, 148, 3# 208, 32,43, 6, 165, 26, 141 ,1,6, 173, 252, 2, 201 , 255 

DRTR 96,0,0,0,0,0,184,169,0,141,0,208,141, 1,208, 141,2 

DRTR 208, 141,3,208, 141, 111,2,96,0,0,0 

DflTR 161,17,17,17,7,7,7,7,7,7,5,5,5,5,5,5,3,3,3,3,3,3,3,3,3,3,3,3 
DRTR 3, 3, 0,0, 0,0, 0,8, 0,0, 0,0, 0,0, 8,2, 2, 2, 2, 2, 2,2, 2, 2, 2,2, 2, 2, 2, 4, 4,4 
DRTR 4, 4, 4, 6, 6, 6, 6, 6, 6, 16,16,16,160,0 

DRTR 161, 17, 17, 11, 11, 7, 7,5, 5, 5, 5, 5, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3> 3, 3, 0,0, 0,0, 0 
DRTR 0,0, 0,0, 6.0, 8,0, 0,0, 2, 2, 2, 2, 2, 2, 2, 2, 2,2, 2, 2, 4, 4, 4, 4, 4, 6, 6, 10, 10 
DRTR 16.16,160,8 

DflTR 161, -15, 15, 5, 5, 5, 5, 5, 5, 3, 3, 3, 3,3, 3, 3, 3, 3, 3, 3, 0,0, 0,0, 0,0,0 
DRTR 0,0, 0,0, 0,0, 2, 2, 2,2, 2, 2, 2, 2,2, 2, 2,4, 4, 4,4, 4, 4, 14, 14, 160,0 
DflTR 161, 17, 13, 5, 5, 3, 3, 3, 3, 3, 3, 0,0, 8,0, 0,0, 0,0, 0,0, 0,0-0, 88 8,0 
2,2,2,2,2,4,4.12,16,160 

132,150, 1, 133, 150,1,134, 150, 1, 135, 150 GOLLA 


DRTR : 
DRTR ; 
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SPECTRUM 

DYNAMICZNE BAJTY 


Wprowadzenie dowolnej procedu- 
ry w kodzie maszynowym pociąga za 
sobą konieczność deklarowania ob- 
szaru pamięci (np. instrukcją CLEAR), 
a natomiast przesyłanie pewnych 
wartości zmusza do POKE-wania. W 
numerze 5/1986 „IKS-a" pojawiła się 
propozycja przesyłania parametrów 
za pomocą funkcji użytkownika (FN). 

Obecna propozycja dotyczy 
wprowadzania kodu maszynowego 
do... tablicy tekstowej. 

FN przy wywołaniu znajduję w pa- 
mięci adresy przesyłanych tablic tek- 
stowych, co w łatwy sposób pozwala 
wywołać USR. Dużym udogodnie- 
niem jest możliwość przesyłania tylko 
fragmentu tablicy tekstowej zawiera- 
jącej odpowiednią procedurę. Poz- 
wala to na utworzenie całych zesta- 
wów (np. graficznych, edycyjnych, 
matematycznych) trzymanych w jed- 
nej tablicy tekstowej. 

Oto niektóre wady i zalety tej me- 
tody: 

Wady: 

1) konieczność stosowania DEF FN — 
należy pamiętać o zgodności parame- 
trów i ich liczby między DEF FN i FN, 
co ewentualnie pociąga za sobą defi- 
niowanie kilku DEF FN. 2) konie- 
czność rezerwowania określonej tab- 
licy tekstowej na kod maszynowy 
(przy znacznej liczbie tablic, jakie 
można zadeklarować, nie jest to zbyt 
trudne. 3) nie wolno używać RUN i 
CLEAR — powodują OQe kasowanie 
obszaru zmiennych, czyli niszczą 
również procedury (program można 
z równym powodzeniem uruchomić 
rozkazami GO TO i GO SUB). 4) pro- 
cedury muszą być całkowicie relo- 
kowalne i wymagają stosowania sko- 
ków względnych (skoki te mają jed- 
nak ograniczony zasięg). 

Zalety: 

1) umieszczenie procedury w tablicy 
tekstowej pozwala zachować maksy- 
malny obszar pamięci dla Basic'a. Nie 
trzeba się też martwić o miejsce (tabli- 
ca tekstowa jest automatycznie umie- 
szczona w obszarze zmiennych). 

2) eleganckie i czytelne wprowadze- 
nie parametrów przy użyciu FN (in- 
terpreter dodatkowo sprawdza, czy 
przesyłane dane istnieją i czy struktu- 
ra danych jest taka sama, jak w DEF FN 
— w razie stwierdzenia błędu. Spec- 
trum przerywa działanie programu i 
wyświetla odpowiedni komunikat). 


3) zestawianie i porządkowanie pro- 
cedur odbywa się tak jak składanie i 
kasowanie ciągów tekstowych (trzeba 
to jednak wykonywać bardzo ostro- 
żnie, aby nie skasować np. części 
procedury — uruchomienie jej spo- 
woduje najprawdopodobniej reset 
systemu). 4) zapis, odczyt, weryfika- 
cję procedur przeprowadzamy iden- 
tycznie, jak dla innych tablic teksto- 
wych. 5) kod maszynowa możemy 
wprowadzić do dowolnej tablicy tek- 
stowej. 6) DEF FN można umieścić w 
każdym miejscu programu (ze 
względu na szybkość odszukania 
przez interpreter DEF FN powinno 
być raczej na początku programu). 
7) procedury są nieliczne i mogą być 
łączone w dowolne zestawy. 8) pro- 
cedury są całkowicie zabezpieczone 
przed błędami — każdy błąd powo- 
duje awaryjne przerwanie programu i 
wyświetlanie odpowiedniego komu- 
nikatu. 

Opisana wyżej metoda i jej włas- 
ności nasunęły mi pewien pomysł: 
INDYWIDUALNY BANK PROCEDUR. 
Osoby umiejące programować w ko- 
dzie maszynowym mogłyby tworzyć 
różnorodne procedury spełniające 
wymienione wymagania. Użytkownik 
mógłby wykorzystywać je w dowol- 
nych zestawach, które sam by złożył. 
Wymiana jednej procedury na inną 
(np. lepszą i szybszą) polegałaby na 
wymianie odpowiedniego fragmentu 
tablicy tekstowej. Proponuję również 
nadsyłać propozycje procedur, było- 
by to źródło pomysłów dla twórców 
oprogramowania. 

Aby przybliżyć omawiany problem 
zachęcam do przeanalizowania pro- 
cedury, która spełnia wszystkie wy- 
magane kryteria (jest jednocześnie 
udoskonaleniem programu zamie- 
szczonego w nr. 5/1986 „IKS-a"). Doty- 
czy zmiany atrybutów koloru w zada- 
nym obszarze ekranu. Wywołuje się 
ją przez: 

FN f(a$,x,y,dx,dy„w,p,s) 
gdzie: a$ — tablica tekstowa zawie- 
rająca procedurę maszynową 
x — numer kolumny, jak w 
AT (0 < x < 31) 
y — numer wiersza, jak w AT 
(0 < y < 21) 

dx — długość obszaru (1 < dx 
< 32) 

dy — wysokość obszaru (1 < 
dy < 22) 


Uwaga: ponieważ obszar nie może 
wykroczyć poza ekran, powinny być 
spełnione dodatkowe warunki: 

1 < x + dx < 32 
1 < y + dy < 22 

w — atrybut wzorcowy (w = 128 * 
flash + 64 * bright + 8 * paper 
+ ink) jest on porównywany z 
atrybutami zadanego obszaru i 
ich częściowa lub całkowita 
zgodność (o czym decyduje 
zmienna „s”) może spowodo- 
wać określane zmiany w atry- 
I bucie ekranu. 

p — atrybut podstawiany (struktura 
taka sama jak „w") jest on częś- 
ciowo lub całkowicie wstawia- 
ny w miejsce badanego atrybu- 
tu ekranu (o czym decyduje 
również zmienna „s") wtedy, 
gdy zostaną spełnione warunki 
dotyczące zmiennej „w", 
s — zmienna sterująca (0 < s < 255) 


' 7 1 

6 

5 

4 j 

3 

2 1 

i 

0 

F 

B 

P I 

1 

F 

B 1 

P 

1 

DOTYCZY 

ZMIENNEJ 

„w” 1 

DOTYCZY 

ZMIENNE] 

„P” 


gdzie: F — flash 
B — bright 
P — paper 
I — ink 


^ F,B,P,I = (0,1) 


dla zmiennej „w": jest kontrolowana 
zgodność tylko tego fragmentu atry- 
butu ekranu ze zmienną „w", dla któ- 
rego odpowiednio F,B,P,I przyjmują 
wartość 1. 

dla zmiennej „p": jest wymieniany 
tylko ten fragment atrybutu ekranu 
na odpowiadający mu fragment 
zmiennej „p", dla którego F,B,P,I są 
równe 1. 

Funkcje dodatkowe: 
s = BIN 00000000 — procedura nie 
działa 

s = BIN 00001111 — wymiana bez- 
względna 

s = BIN 11110000 — FN przyjmuje 
adres pierwsze- 
go atrybutu speł- 
niającego zada- 
ne warunki (jeśli 
taki atrybut ist- 
nieje). 

Przykład: chcemy na całym obsza- 
rze ekranu wymienić ink na czerwo- 
ny w każdym atrybucie, który ma zie- 
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lony paper, włączony flash i wyłączo- 
ny bright: 

FN f(a$, 0 , 0, 22, 32, BIN 10100XXX, 
BfN XXXXX010, BIN 11100001), gdzie X 
może przyjąć wartość „0” albo „V 
(przecież zmienna „s" nie narzuca 


■rir'***w*#***ir*.»****#*'*********żir'» 
* * 
* KiZySilO. PGZriiak * 

? Kl “ b \ 

****•***»**•*»« ******* ********** 

4 RESTORE : CIM a *(233) : LET 
1=1: LET d “100 

5 LET s 1=3 : LET S2=0: LET z*l 
. FOR k = l TO 20. REfiD x. LE-T *1= 
sl+X: LET s2=s£+z*x: LET a*(l)=C 
HR* X: IF 1=233 THEN 60 TO 7 

6 LET 1=1+1: LET Z = -Z: NEXT k 

7 REflD *01: RERO $32: IF sio 
SOI OR &2OS02 THEW PRINT FLASH 
1; "blad w Unii "jd: STOP 

" LET d=d+l3 : IF K233 THEN G 

10 PoR k=l TO 21: PRINT TOB 10 
, , ’t4Uf : NEXT k 
23 DEF FN f (a* 

USR (PEEK ' 

3S84+4-) +2L 
*PEEK 2356 
30 LET $ 


SBi 


*2 : FOR X«19 TO 1 STEP 

. IF FN f (a*. s+4,s,x+XNT (2 *r 
X +iNT ( 2*RNĆł ,8*INT (7*RND) , 
(7*RND) *8, INT (2S6 *RND) ) ThŚ 


33 LET S=S+1. NEXT x 


V f >^*z2 + r K!I (3+RŃD) ,3 + INT (5*RND 


4 

14.0 DflTR 102,61,203,124,40 * B*. 

‘ 64 • sis : 181 

‘56,45,103,253 
3,^4.68.12* 





warunku na ink w porównaniu zę 
zmienną „W, a w czasie wymiany na- 
leży wymienić tylko ink). 

Ważne wyjaśnienie: kod maszyno- 
wy z równym powodzeniem możemy 
trzymać w zmiennej tekstowej. Mo- 


, procedura ustawia atrybuty 
i koloru u/g określonych warun- 
, fcow przekazanych przez para- 
; metry z Basic’a. 
i program całkowicie reiokowainy 
defadd equ £3563 
od leg eRu 8 , odległość miedzy 
: Kolejnymi danymi 

ilosc equ 7 jilosc zmiennych 
dług egu 32 /ilosc bajtów w 
, wierszu ekranu 

atryb egu 22528 ; adres pier- 
: wszego stry- 

: butu koloru 

id ix, (defadd) 

Id de,odleg 
id b, ilosc 

; kontrola poprawności danych 
popr id a, (ix+ll) 
or <łx+12) 
or Cix+14) 
or (ix+l8) 
jr nz,error 
- ' • ix,de 


djns popr 
id ix, (defadd) 
(ix+29) 


jr z,error 


id 

add 

jr 

cp 

jr 


c, error 


3$ 

nc,error 
a, iix+21) 
aad (iX+37) 
jr c.error 
cp 23 
jr nc,error 
jr próg 
, obsługa biegu 
; komunikat: Q Parametr error 
error Id 1,25 
Jp ’55h 

i program właściwy wymiany 
; tworzenie masek dla porównania 
, i ewentualnej wymiany w/g "s" 
próg /or a 

or i ix+61) 
ret z 
xor a 

•■d • h, (i/+61) 
bit ?,h 
ji z, skoki 
or a,lS3M3C2Ł> 


or ^ ji, 8lG0000S^- 

Cr o'?311133CŁ. 
bil 4,:, 
ji «.,SKok4 

0.* a, 4GJiCCiilb 
id d,a 
xor a 
bit 3,h 
jr z,skck5 


żna ją w prosty sposób sumować i ka- 
sować. Nie można jej niestety zapisy- 
wać na taśmie i dlatego przed zapi- 
sem tekst ze zmiennej tekstowej po- 
winien być zapisany do tablicy tek- 
stowej. 


a,1300C000b 

£,h 

z,skok6 

a,010©8«00b 

l,h 

z, skok? 

a,001110O3b 

G>,h 

z,skok3 

a,0OC8®Ulb 

e,a 

ux+S3) 

l,a 

a,e 


Id 

and 

td 

td 

CPl 

td 

Id 

and 

Id 


(ix+45) 

h,a 


push iy 
push de 
Id de,dlug 
Id iy,atrvjb 
id b> iix+S.) 
xor a 


Z,dOd 

iy,de 

mnoz 

d, 9 

e, (i>+13) 
iy.de 
de 


& 3 j 

Id d,< 

i|d fil.. 

. Id b, (ix+29) 


petiai 

push iy 
petiaa xor a 
or 3 


z.podst 
a, (iy+9) 


and t 

& ii v+a> '* 

djnz peua2 
dec c 
xor a 
or 


P p Sh ! 
id c 


po; 


z, pozy c 
iy 
de 

da, 32 
iy, de 

POP d£ 

GZyC POP 

push iy 
POP bC 
POP iy 


petlal 


SPECTRUM 


10 REM Ruch jednostajnie przyspiaszonuiiiutor JAN BOLLA 
2# DIN k<300> i DIN y<300> 

3# INPUT 'Podaj przyspieszanie a-'la: REN aby wydruk z 
zyjac a<-5 

40 PRINT AT l,15ł*a»'lal PLOT 110,1561 DRAW 50,0 


t.Bł-»-|tl*--la»t''2/2»AT 3 


120 CLS 

130 PLOT 0,01 DRAW 
140 FOR t-1 TO 255 
145 IF 10«t>»250 OR 
ISO CIRCLE 10«tia«t 


STOP 

50, 0« PLOT 0,01 DRAW 0,1 AC 
J»t>-170 THEN 00 TO 165 


i'V v 


IAT 21,311-t- 


26 


210 PLOT 0,01 DRAW 25 
220 FOR t-1 TO 25S 
225 IF a«t"2/2>-170 O 
230 CIRCLE 10«t,a*t'-2 


i PLOT O, Oi DRAW 0,1651 PRINT A 
• >t>-2S0 THEN CO TO 230 


J. GOLLA 





, PRYWATNY JĘZYK 
I PROGRAMOWANIA 


Zapewniam cię, drogi czytelniku, 
że po przeczytaniu tego artykułu i 
„wpakowaniu” kilkuset cyferek kodu 
maszynowego, będziesz mógł stwo- 
rzyć swój własny język programowa- 
nia. 

Zasada jest prosta: procedura w 
kodzie maszynowym porównuje 
wzorce rozkazów z rozkazem rze- 
czywistym. Jeżeli nastąpi zgodność, 
odpowiednie parametry porównania 
zostaną przekazane do Basicu. 

Procedurę wywołuje się za po- 
mocą funkcji użytkownika (FN). DEF 
FN znajduje się w linii piątej progra- 
mu. Ma pięć parametrów: 
n$ — tablica tekstowa, w której 
trzymana jest procedura 
maszynowa. Opis tej meto- 
dy znajduje się w opisie 


— (£□) tekst wstawiony jako para- 
metr: za tekst uważa się zestaw 
znaków do napotkania znaku 
umieszczonego za £, 

— (#□) to samo co powyżej, ale łą- 
cznie ze znakiem końcowym, 

— ((§)□) pozwala opuścić dowolną 
ilość zadanego znaku, 

— ($) tekst bez narzuconego znaku 
końcowego, 

— (&) dowolna liczba akceptowana 
przez ZX Spectrum, 

— separator poszczególnych 

WZOATÓW. 

Znaki definiujące poszczególne 
elementy możemy określić sami. Ko- 
lejność znaków przekazywanych do 
w$ jest następująca: £ # @ $ / & (po- 
równaj linię 210). 

Najlepiej prześledzić działanie 
procedury na przykładzie. Niech roz- 
kazem będzie szósta linia programu 
„Grafika komputerowa": 


pierwszy znak nie należący do dane- 
go parametru. Odczyt wartości ze 
zmiennej o$ uzyskujemy za pomo- 
cą CODĘ. Zgodność wzorca i rozkazu 
powoduje przesłanie do Basica nu- 
meru wzorca (w przypadku, gdy ża- 
den wzorzec nie odpowiada rozka- 
zowi, FN przyjmuje wartość zero). W 
ten sposób za pomocą FN można 
skakać do odpowiedniej linii obsługi 
rozkazu (porównaj linie 210). W 
przedstawionym przykładzie FN=3, 
stąd linią obsługi jest linia 214. 

Oto pozostałe formaty pozycji: 

— £□ zostaje podany adres pier- 
wszego znaku i adresu zadanego 
znaku, 

— #□ zostaje podany adres pier- 
wszego znaku tekstu i adres znaku 
zadanego zwiększony o jeden, 

— $ zostaje podany tylko adres 
pierwszego znaku. 


pozycja: 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 


29 

30 

31 

32 

znak: 




ś 

r 

o 

d 

e 

k 


O 

s 

i 


1 

0 

0 

, 

8 

0 











Procedura porównuje wzorce po 
kolei. Zgodność nastąpi dla wzorca: 


pozycja: 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

znak: 
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„Dynamicznych bajtów" 
(obok), 

t$ — tekst rozkazu rzeczywiste- 
go, który będzie porówny- 
wany ze wzorcami, 
o$ — tablica bądź zmienna tek- 
stowa przeznaczona na ad- 
resy początku i końca pa- 
rametrów rozkazu, 
r$ — zestaw rozkazów wzorco- 
wych utworzonych z tek- 
stów stałych i symboli za- 
wartych w zmiennej w$, 
w$ — zestaw znaków wzorcowych 
definiujący poszczególne 
elementy wzorca plus znak- 
-separator, rozdzielający ko- 
lejne wzorce. 

Proponuję porównać teraz linię 201 
programu, gdzie definiuję r$, z pro- 
gramem „Grafika przestrzenna”. 
Oprócz paru dziwnych znaczków 
teksty stałe wzorców i programu są 
identyczne. Teraz parę słów o dziw- 
nych znaczkach: opisują one po- 
szczególne elementy wzorca. W na- 
wiasach podaję sposób zapisu. Uży- 
wam znaków podanych w FN (linia 
210). Odpowiadają one pozycji w$ w 
DEF FN. Uwaga: □ oznacza dowolny 
znak. 

Elementami wzorca są: 

— dowolny tekst stały zapisany jako 
zestaw znaków. 


Działanie analizy jest następujące: 

— znak @, a po nim spacja oznacza, 
że w rozkazie może wystąpić do- 
wolnie dużo spacji — analiza za- 
trzyma się na znaku „s” (czwarta 
pozycja rozkazu) gdyż jest on 
różny od spacji), 

— następuje porównanie tekstu sta- 
łego aż do symbolu & i pozycji 15 
rozkazu, 

— symbol & oznacza, że musi wystą- 
pić teraz liczba — pozycja liczby 
zostaje przekazana do zmien- 
nej o$, 

— po liczbie musi wystąpić prze- 
cinek, 

— potem & narzuca kolejną liczbę — 
jej parametry miejsca zostają 
przekazane do zmiennej o$, 

— może wystąpić dowolna ilość spa- 
cji. 


Zmienna o$ wygląda następująco: 


pozycja: 

1 

2 

3 

4 

pozostałe, znaki 

wartość: 

15 

18 

19 

21 

nie są ustawione 


Za koniec parametru jest uważany 


Procedura jest całkowicie zabez- 
pieczona przed błędami. Złe dane 
wywołują komunikat systemu: 

6 Number foo big — gdy podana 
liczba przekracza zakres arytmetyki 
ZX Spectrum, 

C Nonsense in Basic — gdy wzo- 
rzec ma niekompletne dane, 

E Out of Data — gdy zmienna od- 
powiedzi nie może pomieścić 
wszystkich pozycji parametrów lub 
^gdy rozkaz przekracza 255 znaków, 

Q Parametr error — gdy nie ma 
zgodności parametrów lub gdy wzo- 
rzec znaków elementów (w$) nie za- 
wiera dokładnie 6 znaków. 

Pojawia się kolejny problem: jak 
wprowadzić program? W liniach 
10 — 113 znajduje się prosty edytor 
tekstu, pozwalający na wprowadze- 
nie do 22 linii programu. 

Ma on następujące opcje: 

— znacznik można poruszać za 
pomocą kursorów, 

— EDIT ustawia znacznik na począt- 
ku linii, 

— CAPS LOOK ustawia znacznik na 
początku kolejnej linii, 

27 


- 


KRZYSZTOF POZNIRK 
Klub Mkrofco»pul«ro»y 


© 193? * 
* 

*♦*■***■* *************** ******** 


8 DEF FN d (n 


64+4) +256— , 
EEK 23564+5! 
6 DIH - ‘ 
10 ReH 

15 INK 
LS 


PEEK slśel^lś *lćElt 
*PEEK (PEEK 836S3+2! 
+53) 

m 


) *us 

... 238 
256 *P 


: C 


20 DIN t«(22*32). DIN i * (32) : 
LET *1=0: LET KK=0 

25 PRINT AT 0,0; t*: LET łnv*l: 
LET d K =0 : LET d l *0 

30 GO SUS 100 

31 LET i -CODĘ INKEY*: IF NOT i 
TNEN 00 TO 31 

38 BEEP ,02,30 

40 IF 1*8 RND kk THEN LET dl — 
1: LET 6 1=3: GO TO 30 

41 IF i >9 RND kk <31 THEN LET d 
1*1: LET dl*0: GO TO 30 

42 IF i *10 RND kl <21 THEN LET 
dk *0: LET dl*l: 00 TO 30 

43 IF i»ll RND kl THEN LET dk* 
0: LET dl — i: GO TO 30 

44 IF i a 13 THEN GO TO 200 

48 IF i =12 RN5 unv OR kk) THE 
N LET i =32*k l+l; : LET l*(i TO 1+ 
3l)*tt(i TO i +kk- (NOT inv)-i)+t* 
(i +11+1- (NOT inv) TO i +31) ; PRIN 
T fiT ki,0; ti(i TO i +31): LET dk* 
-INOT ł.nvi *TNOT NOT kk): LET dt* 

jlfj.s-ls miłi, *»•«»! 

•#ł'!sNC-8! ff2fr„ 



||H ł « I^TjH T *E«thlłif , f 

88 "tt df*t : LET dl*0: 00 TO 3 

łli pSlN^ł^^^F^^WIsH Sim- 
ki ,-lkj$CREEN* (11,11) 

111 LET kk^ki+dk : LET kl-ll+dl 

112 PRINT INUER8E inv; PLR8H NO 
T inv;RT k l j kk; SCREENI (lT,ll> 

113 return ; 

200 REN BSSiBHBnBBBBMB 

201 LET o*«= ' : 1 er 

r $*"0 , t/a czute tkrtno /» *rod« 
k osi 4,40 /# UU0ł*£ 


/O rysuj Osie* 


Osie* /• i 
4,4, 4* /• 

. _ .-nieci " 

® KaviB ‘ 

T SX *120 : LET 


wsttpnt 
PU*0: LET pi- 
sy *80: LET wx 
'1*15: LET V 


f 


ery osi 4,4.4. 
•“i punkt 4,4,4 
• POlłC* 4,4 

koniec* ” 

Ba ls* 

LET 

*15: LET 

XZ— 10: Lei wyz — n 
210 FOR k-0 TO 21: LET i *38*1: 
GO TO 211+FN d Cni , tt (i +1 TO f+38 

Ź1?'bIśp £ ?1?20: ) PRINT «1;RT 0,0 

UT : GO TO 25 
a 12 GO TO 1000 
213 CLS : GO TO 1000 

t! ‘L bSe‘5!^ SK*.*SS«>* 

f‘‘ag 0 ?E ul 

* l i +CODE Ot (3) TO i +CODE o$(4)-l 

LET wZ-URL tt ( i +CODE 0*(5) TO 
i+CODE o$C6)-l): LET wyz-SIN (P 
x/180)*URL t $ ( i +CODE 0*1?) TO i + 
COCE o*i8) -1): LET UIXZ*INT <UI*C 
OS uyz) : LET wyz=-INT twz*SlN uu 
Z) : 50 TO 1000 

816 PLOT SX,SJJ DR AU 2SS-SX,0:: 
FLOT sx,sy DRAU C,175-s«j PLOT 
sx,sy. LET zl=s< u'xz LET Z2rsy 

2j'Zl*łZl'Z2) + Z£*(22>Z 
1000 DRfi -^IłWKl.-ZlłwyZ: GOTO 

8 17 LET px*URL t$ ( i +CODE Ottl) 
TO i+CODE o t (2) -11 : LET pysURL t 

* (i+CODE O* (3) TO i+CODE o*(4)-l 
1 : IS;,P z "ORL 1 1 ( i +CODE 0»(5) TO 

j+CODE 0tt6'-l); PLOT sx+px*ux + 
rxz*pz .sy+pyTwy+wyz+pz : GO TO 10 
00 

_§18 LEJ ZlaURL tt (i+CODE Ot(l) 
I9-*iSS^ E 0i(8).l; LET ZfiaUPL t 
*(i+CODc o*(3) TO i łCODE o*t4)-i 
Itii+CODE ot?S) TO 
i +lODe o*( 6)-1): DRRU Zl*ux+13* 
uxz ,z2#biy+z3*uyz ; LET px»px+zl- 
LET PU *py +z2 LET PT-PZ+23: GO - T 

28 
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JJt f SS r *ł, w " " e ^ G L^ C 0 5t iNfc 
nT- M88 

(J3)»CHR« JS: L6T Iluiłli: ■ 

Ris‘iJ r « a iUr rWi Jp »■ 


hii 


8*23 + 1: NEXT k 

■SłfckMfn^btłJ 

STOP., _ 


9105 PERD it 
,SS2j>|2 TH^ 

IftlMfiiSAilan 

Łom S ? | || ł?f4Ś ą f 

10,842 

• .Ml, 190,3 .40,6 
■,27,221, 190, S, 


ia^4?0i^ : ^ 48,4 *' ł!7:4i 

9987 DRTfl 0,122,179,217,40,28,3, 

łjgjfttWia: 

sne 



?li sSniilitL 

ilSi . 38 Sóoo , *w 

r iaĘp J| : li ; !!4»Il4?n?i8**t 

: ł8t 

j drtA . 



949ś*DAłfi55T8S; 357217, 46, 13, 195 
1,łł ' 

‘ 1*1 • 15 4 i 45 *^ 2 ' S.3S , 186 

997SDRTRlŚ5,4.i , 288,213 , 45 , 193 , 
209 , 225 ,217, 209,42 ,94.98,184, £3/ 
, 82,235, 225, 25, 235, 31c4, -240 
9976 DRTfl lia 183, ^2 . 17Ś , 42 , 93, 9 
£ , 120 , ir- , 40 ,dćS , 1 1 , 123 ,217,2,3, 
24,186,24, IBS >1993, -3S7 

7-^Th £4 , ie , £4 , 46 , 24 , 71 , 24 , 1 
i 77 A 40. 144,11, 123,217,2,3 
^|3§»SA24 «o, i755, r 347 


2+7,1 

i ii P0IH 40,22 1,35 ,28,40, 130 , u 4 
123 ,217,2 

4l^ ź gA?t i : IS 6 . 19e . 3S . . 

igi§l;lS4?S| : SiTsill : ?|48 7 • z 17 • 1 

9980 DflTR 40,3,24, 247, 217, 182,17 
9,40 , 185 , 126 , 84 1, 160 , 4,40 , 179 , 84 
,803 , 120,177,40 . £380 , 478 

l! 6 ł 7 ” 19 ®' ł23 ' ai7 ' a ' 84 -' Ł68.7 


czysc ekran 
paneetry ekranu 
środek osi 100,80 
wymiary osi 20,20,20,155 
rysuj osie 
ositiioscian 
punkt 1,0,8 
poiacz 4, -2,8 
poiacz ś,4,i 
Prost* 9,8,4 

ESH55 

7 I 8,-1 

. 4, -8, 8 

poiacz 2,4,1 
prosta 0, -2,-4 
po. acz 4, -2. 2 
poiacz 2,4,1 
prosta -7, -8,1 



— TRUE VIDEO kasuje linię, w której 
znajduje się znacznik, 

— INV VIDEO tworzy nową linię nad 
linią ze znacznikiem (zniszczeniu 
ulega linia 22), 

— ENTER uruchamia program, 

— EXTEND MODĘ kasuje treść linii, 
w której znajduje się znacznik i usta- 
wia znacznik na początku tej linii, 

— GRAPHICS ustawia tryb wprowa- 
dzania i kasowania: 

a) znacznik INVERSE 

— znak w znaczniku jest wymie- 
niany, 

— kasowanie niszczy znak w zna- 
czniku, 

b) znacznik FLASH: 

— znak jest dopisywany przed 
znacznikiem (ginie ostatnia pozy- 
cja linii), 

— kasowanie niszczy znak przed 
znacznikiem, 

— DELETE kasuje znaki zgodnie z 
trybem GRAPHICS, 

— mogą być wprowadzane znaki po- 
jedyncze o kodach od 32 do 127. 

Mniej doświadczonym programi- 
stom zwracam uwagę na identyfika- 
cję opcji za pomocą CODĘ INKEY$. 
Uruchamianie edytora: 
od linii 10 — kasowania tekstu progra- 
mu, 

od linii 25 — program nie zostaje zni- 
szczony. 

I ostatni problem: dotyczy progra- 
mu-przykładu „Grafika przestrzen- 
na”. Należy przedstawiony program 
wprowadzić za pomocą edytora i 
uruchomić przez ENTER. Na ekranie 
powinien pojawić się rysunek poka- 
zany poniżej. Życzę ciekawych wyni- 



ków graficznych dzięki zmianie pa- 
rametrów w rozkazach. Zwracam 
jednak uwagę, że ze względu na pro- 
stotę programu, nie ma tu zabezpie- 
czeń przed błędnymi danymi. Z tego 
powodu rysunek może „wyjść” poza 
ekran i wywołać błąd systemu. Należy 
wtedy wykonać GO TO 25. 

Przedstawiam dostępne rozkazy gra- 
fiki przestrzennej: 

— ;dowolny tekst komentarza, 

— czyść ekran — odpowiada CLS, 

— środek osi x, y — ustawia środek 
osi w punkcie odpowiadającym PLOT 
x, y. 


— rysuj osie — rysuje osie układu 
przestrzennego, 

— punkt x, y, z — stawia na ekranie 
punkt o podanych współrzędnych, 

— połącz x, y, z — łączy ostatnio na- 
rysowany punkt z punktem o zada- 
nych współrzędnych, 

— prosta dx, dy, dz — rysuje prostą 
analogicznie do DRAW, ale w prze- 
strzeni, 

— koniec — powoduje pominięcie 
linii poniżej i zakończenie programu. 
Uwagi dodatkowe: 

— program pomija linię złożoną z 
samych spacji. 


— program wypisuje linię nie odpo- 
wiadającą żadnemu wzorcowi, 

— wymiary osi wx, wy, wz, kąt — 
określa liczbę pikseli przypadających 
na odległość jednostkową oraz ustala 
kąt rzutu osi z, 

— prawidłowe wykonanie programu 
powoduje komunikat: „program 
wykonany”; naciśnięcie dowol- 
nego klawisza spowoduje powrót 
do edytora. 

Zamiast przedstawionego progra- 
mu w liniach 200 — 9000 można 
umieścić swój prywatny język 
programowania. 

Krzysztof POŹNIAK 


SPECTRUM 



KATALOG GIER 


Program powstał z myślą o ułatwie- 
niu życia zwolennikom gier, którzy 
wymieniają je między sobą. Jest on 
specjalizowaną bazą danych, umoż- 
liwiającą zapis do 300 rekordów. Każ- 
dy z nich zawiera 4 pola (zmienne N$, 
R$, V$, T$). Na każdym polu można 
zapisać do 25 symboli (liter lub cyfr). 
Program przeznaczony jest głównie 
do wykonywania wykazów gier w al- 
fabetycznej kolejności tytułów, 
wzbogaconych dodatkowo o charakte- 
rystykę gry wg symboliki zamieszczo- 
nej na planszy „CHARAKTERYSTYKA 
GIER”. Program ładuje się normalnie, 
tzn. LOAD”" i obsługuje zgodnie z 
instrukcjami wyświetlanymi na ekra- 
nie. Menu zawiera 6 opcji: 

1) Opcja A — umożliwia, po podłą- 
czeniu drukarki (ZX-Printer, Seikosha 
GP-50S), automatyczne 7 uzyskanie 
wykazu gier. Poza tytułem i charakte- 
rystyką gry drukowany i wyświetlany 
jest również numer, pod którym gra 
jest zapisana w „KATALOGU GIER". 

2) Opcja S — umożliwia szybkie 
sprawdzenie, jakie tytuły gier, zaczy- 
nające się na daną literę, są zapisane 
w „KATALOGU GIER". Ułatwia ona 
właściwe wpisanie tytułu gry po wy- 
braniu opcji P. 

3) Opcja P — umożliwia dostęp do 
informacji dotyczących gry. Wyświet- 
lany jest tytuł gry, jej producent. 


krótki opis gry oraz rok produkcji i nr 
taśmy, na której jest nagrana. Opcja P 
pozwala również na zmodyfikowanie 
zapisów na poszczególnych polach, 
bez kasowania wszystkich danych 
opcją K. 

4) Opcja W — umożliwia wpisanie 
kolejnego rekordu. Jeżeli nie chcesz 
lub nie możesz zapisać danego pola, 
to wciśnij ENTER. Dwie pierwsze lite- 
ry na polu o nazwie „Rodzaj gry” za- 
pisz w trybie C, zgodnie z symboliką 
wyświetlaną na planszy „CHARAK- 
TERYSTYKA GIER", dostępnej po wy- 
braniu opcji A*. Resztę pola możesz 
zapisać dowolnie, np. dla tytułu ANT 
ATTACK: ZP Królewny i mrówki, co 
charakteryzuje grę jako zręcznościo- 
wo-przygodową i informuje, co cię 
czeka podczas gry. Tytuły gier zawsze 
wpisuj w trybie C, gdyż klawiatura au- 
tomatycznie do niego przechodzi po 
wybraniu opcji P lub S. 

5) Opcja K — umożliwia skasowa- 
nie dowolnego zapisu. Jeżeli wybra- 
łeś ją przez pomyłkę, to wpisz O i 
wciśnij ENTER, a program wróci do 
menu. Jeśli pomyliłeś się przy wpisy- 
waniu numeru zapisu do skasowania, 
to dopisz kilka cyfr, aby liczba która 
powstanie, była większa od 300 i 
wciśnij ENTER, co pozwoli ci ponow- 
nie wpisać numer zapisu, który 
chcesz skasować. 

6) Opcja Z — umożliwia zapis 
wprowadzonych danych na taśmie. 
Po zakończeniu nagrywania nie jest 


wyświetlany komunikat O.K., przesta- 
je jedynie migać border. 

I jeszcze parę uwag praktycznych. 
Program wgrywa się około 3 minut. 
Korzystnie jest 2 egzemplarze pro- 
gramu uaktualniać na zmianę, co 
.zabezpiecza przed utratą danych i 
•programu. Nic nie stoi na przeszko- 
dzie, aby użytkownik „KATALOGU 
GIER" zmienił nazwy pól w rekor- 
dzie, jeżeli chce wprowadzić inne 
dane niż zaproponowane, lub też 
rozszerzyć o swoje dane personalne i 
adres nagłówek drukowany automa- 
tycznie w opcji A. Po wykonaniu wy- 
kazu gier, program daje możliwość 
wydrukowania dowolnego tekstu, 
stosownie do potrzeb. 

Inspiracją do opracowania „KATA- 
LOGU GIER" był zamieszczony w nr. 
811/85 francuskiego miesięcznika 
„Science et V7e" program pt. „ Fichier 
confidentiel". Usunąłem z niego błę- 
dy, zaadaptowałem oraz rozszerzy- 
łem. 

* P — przygodowa 
S — sportowa 
L — losowa 
Y — symulacyjna 
T — tekstowa 
Z — zręcznościowa 
W — wojenna 
R — strategiczna 
K — kosmiczna 
U — pr. użytkowy 

A. URBANKOWSKI 
29 



10 REM KATALOG 
ISO DIH MS (30©, £5) 
11C O IM R* (300,25) 
120 DIH U* (300,25) 
130 DIH TS (300,25) 

140 DIH X* i 1.25) 

141 BORDER 7: PRPER 

LS 


INK I 


. BORDER 1: PRPER 1: INK 7. P 
RINT RT S, 10; "KATALOG GIER": INU 
ER5E 1: PRINT RT 0.0," © 1987 R. 

Urbankowski". INUERSE 0: BEEP .1 
,20: FLRSH i; PRINT RT 19 ,8; "ZPT 
RZYMAJ TASHE": INUERSE 1: PRINT 

RT 21,5, "WCIŚNIJ DOWOLNY KLfiUIS 
Z": INJEF.SE O: FLRSH 0 
144 PRINT RT S , 7; " *ł » »*«*** **** 
*+**"; RT 11.7; '■************«■*#«■ 


146 PRINT RT 6,7;' 

6.24, 

146 PRINT RT 7.7;' 

7.24, •'*" 

150 PRINT RT 8,7;' 




PRINT RT 


PRINT RT 
PRINT RT 


PRINT RT 


152 PRINT rt 9.7;"#": 

9,24; "*•" 

154 PRINT RT 10, 7 i 
10.24 " 

156 IF INKEYSs"" TNEN GO TO 156 

157 OLS : EEEP .1,20 

156 BORDER O: PAPER 0: INK 6 
160 FLRSH 1: INK 6: PRINT RT 1, 

13; "UWAGA" : FLRSH 0 
164 PRINT RT 3,0; "PfOflrM "KĄT 
ALOG" " umożliwia ska-talogow*n»* 
300 gier. Program ob-siuguje si* 
według instrukcji wyświetlany 
ch na ekranie. Pod za-dnyu pozort 
n nie należy używać rozkazu RUN 
, który niszczy dane zgromadzeń 
e w pamięci* program zatrzymany 
przez C.SH+SPRCE moz-na uruchomi 
c rozkazali Go TO 141, GO TO 2O0 l 
ub cONT inue . T y tul na -lary wp: syw 
ac w trybie c (duże litery). Pod 
taczanie drukarki po-zwaia uzysk 
ac wykaz posiadanych gier w porz 
adku alfabetycznym. Tytyly gier 
majace na początku takie same 
wyrazy zapisz laczac je znakiem" 
M -"" ,np : JET-PRC. JET-MAN" 

166 INUERSE 1: INK 6: PRINT RT 
21,5; "WCIŚNIJ DOUOLNY KLRUI6Z" : 
INUERSE 0: INK 6 
170 IF INKEYS*"" THEN GO TO 170 
180 BEEP .1,20: CLS 
200 OUT 254,0: PfiPER 0: INK 6: 
PRINT rt 9 . 1;’ Poszukiwanie danyc 
h -w c i sn i j: P" ; RT 13,3; "Wpisanie 
danuch-wcisni j : U";AT S.fi^Sprau 
dzenie ty tu lu-wci sni j : S" 

210 PRInT RT 0.7; "Ru tona tyczny 
wydruk" ; RT 1,8; " ty tu low-wcisn t j : 
R",RT 17,3; "Kasowanie zapisu-wcl 
śnij: K";RT 21,0; "zapis danych n 
a tasme -wcisni j : Z" 

215 LET M*0 
220 LET DS=INKEYS 
250 IF D* =”P" THEN GO SUB 1000 
260 IF D*="W" THEN GO SUB 2000 
270 IF DS="k” THEN GO SUB 5000 
280 IF DS="Z" THEN GO SUB 7000 
282 IF D|a"s " THEN GO 6UB 8000 
285 IF DS="a" THEN GO SUB 9000 
290 IF Hal THEN GO SUB 2210 
300 GO TO 200 
10OO CLS : BEEP .1.20 
1010 PRINT RT 0,7; "POSZUKIWANIE 
ORNYCH" 

1020 PRINT AT 5,3;"UPiSZ tytuł, W 
Ciśnij ENTER" 

1030 FOR B=1 TO 25 
1040 LET XS(1,B)>" •* 

1050 MEXT B 
1100 LET C*0 

1110 IF INKEY S* 1 *” THEN GO TO 111 


1135 IF CODĘ CS9G THEN LET CS=C 
Hfi* (CODĘ C S-32 1 

tl4d IF CODĘ CS : >13 THEN LET X*i 
i.-ril - : S 


1150 LET C=C+1~2* ( (CODĘ CS=8) * (C 

•: - O) > 

1160 INK 2: PRINT RT 7.1+C, 

E.EEP .01,50 

1170 INK 4 PRINT RT 7,C;CS: INK 

11S0 IF C*25 OR CODĘ CS=13 THEN 
GO TO 120O . 

1190 90 TO 1110 
1200 LET R=1 

1205 PPIMT RT 2,10; "TYTUŁ Nf : 

1210 i_E- T-C 

1230 FOR 1=1 TO 25 

1235 Ir P=3Ci THEN GO TO 1400 

1240 IF • S ( 1 . Z) i MIS (P , I) THEN LE 

1245^1= NS (R . I) = " OR T=1 THEN 
LET 1=25 
1250 NE/T I 

1265 INK 2: PRINT RT 2.21.R 
1275 L.ET ft=PM 
12S0 IF Tsl THEN GO TO 1210 
1290 BEEP .1.20 

1310 INK 7: PRINT RT 7,G;M4lR-l) 

.RT iO.0; RS ■R-l> ; RT 13 . 0 , U* (R-l) 

, hT 16,0;TS ifi-1 1 
1330 INK 6 

1340 PRINT RT 5.3; ■ Informacje d 
otyczace gry-’;RT 15 , 1 ; "NASTĘPNY 
TYT ijL - WCIŚNI J - 5PRCE " ; RT 21 , 1; "M 
OCYFIKACJE ZfiP IS0U-UCI5N U M" 

1350 Ir XMKEYS= fc" THEN GO SUS 7 
500 

1370 IF INKEYS t > " ” AND 11=0 ThEN 
GO TO 1350 
1350 Cc S 
1390 RETURN 

1*00. FcRSH 1 INK 4 PRINT RT 15 
,9; ' T rTUL NIEZNANY' FLRSH O IN 
K 6 

1-10 BEEP 1,0: 6EEP 1,12 BEEP 1 

, 2 L : Cc 3 

143.0 RETUPfj 

£000 CLS BEEP .1,20 

2010 PRINT hT O . 6 , "UPIORNIE DANY 

2020 INK 2: FLASH 1. PRINT RT 2. 
S ‘ POCZEKAJ " FLRSH 0 

2100 LET R=1 

2110 IF HS«R,1>=" OR K>300 THE 
N 30 TO 2200 
2120 LET R=Rrl 

2130 IF P >301 THEN GO TO 2110 
2140 PPINT RT 2,3. " BRAK HIEJSC 


ZRP2S Nr : ” ; R 

2210 INK 6 PRINT RT 5.3:"UpiSZ 
*. J r . U (.-wciśnij ENTER" 

.52 i 1 Ir 11 = 1 THEN PRINT RT 10, O," 
•rytu*, aktualny - " , AT ii.o.:n*(R) 

22 j.5 LET C=0 

2220 GO SUB 5000 • 

2230 IF CODĘ CS 13 RND CODĘ ę*< 
•3 AND C - > 0 THEN LET NS'P.Cł=uS 
2240 IF CODĘ CS =13 OR C=25 THEN 
GO TO 23O0 
2250 GC TO 2220 
2300 CLS 

2310 INK 6: PRINT RT 5,1; "WpiSZ 

producenta .wcisni j ENTER" 

2311 IF N=1 THEN PRINT AT 10,0. ■; 
producent aktua lny ; ” ; RT 11.0, RS ( 
R) 

2315 ..ET C=0 

2320 GO SUB SO0O ^ 

£3'i0 IF CODĘ C* 0 13 RND CuDE cS< 
,o"hND CO0 THEN LET RS'R.C)=CS 
2340 IF CODĘ CS=13 OR C=25 THEN 
GO TO £400 
5350 GO TO 2320 
2—00 CCS 

2410 INK 6. RRIMT RT 5,l;”UpiSZ 
rodzaj gry, wciśnij ENTER" 

2411 IF 1-1 = 1 THEN PRINT RT 10.0; " 
Rodzaj gry a k tu a my : " ; RT ll,0;U* 

(hi 

2415 LET C=0 
2420 GO SUB 5000 

2430 IF CODĘ CS o 13 RND CODĘ CS< 
'8 AMD C<. 0 THEN LET US (R ,C) =CS 
2440 IF CODĘ CS=13 OR 0=25 THEN 
GO TO 2500 
.5450 GO TO £420 


210 

220 

230 

240 

250 

260 

300 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 


PROSTOPADŁOŚCIAN 


LET wskrys=l 
GO SUB rysowanie 
LET wskrys=0 

LET d l bloku =d l bloku +DELTR 
GO SUB rysowanie 
GO TO wczytaniem 
REM 

REM rysowanie 

prostopadłościanu 
PLOT INUERSE wskrys; 
110 -dlblOku, 64 +d l b 10 ku 
DRAW INUERSE wskrys; 
2 *dlbloku ,0 
DRRU INUERSE wskrys; 
0,-2*dlbloku 
DRRU inuerse wskrys; 
d lbl0ku/2,d IblOku 
DRRU INUERSE wskrys; 

0 , 1 . 8*d l bloku 
DRRU INUERSE wskrys; 

-d Ib loku / 2 , - 0 . 8 *d Ib lok u 
PLOT INUERSE wskrys, 

110+1 -S+d l bloku , 
64+l.S*dlbl0ku 
DRRU INUERSE wskrys; 
-1.8*d IblOkU ,0 
DRAW INUERSE wskrys, 

- 0 . 7*d IblOku , - 0 . 8 *d i bloku 
DRAW INUERSE wskrys, 

0, -2*d IblOku 

DRAW INUERSE wskrys; 

2*d IblOku ,0 
RETURN 


20 LET rysowanie = 1000 : 

LET wczy taniezn=160 
40 BORDER 0: PAPER 6: 

INK 9: BRIGMT 1: CLS 
50 PRINT PRPER 1;AT 2,0; 
Powiększanie i zmniejszanie 
pros topad los cx anu 

60 PRINT AT 10,3; "Naciśniecie 1 
70 PRINT AT 12,1; "P lub P - 
powoduje powiększenie" 

80 PRINT AT 14,1; "Z lub z - 
powoduje zmniejszenie" 

30 PRINT FLASH 1; RT 19,4; 

"nacisnij dowomy klawisz" 
100 PfiUSE 0 
110 REM 
120 CLS 

130 LET d l blo ku =25 
140 LET ws k rys =0 
150 GO SUB rysowanie 
155 REM 

160 REM wczytanie znaku 

170 LET DELTA* (CODĘ INKEY*=80) 

+ (CODĘ INKEY$= 1 12) 
-(CODĘ INKEY $=90) 
-(CODĘ INKEY 4= 122) 
180 LET D£LTfl=DELTA*3 
190 IF d l blo ku +DELT A >63 OR 
d t b l O k U +DELT A < 4 THEN 
LET DELTA=0 
200 IF DELTA=0 THEN 

GO to wczytaniem 


2500 CLS 

2510 INK 6: PRINT RT 3.1;"UPiSZ 

rok produkcji i nr taśmy, ";AT 5, 
3; isni j ENTER" - 

2511 Ir M = 1 THEN PRINT RT 10,0;" 
Rok produkcji , nr taśmy aktualny: 

•'.RT. 11 ^0, TS (R) 

2515 LET C=0 
2520 GD SUB 5000 

2530 IF CODĘ CS o 13 AND CODĘ CS : 

>8 AND C<>0 THEN LET T$(R.C)=CS 

2540 IF CODĘ CS=13 OR C=25 THEN 

GO TO 2600 

2550 GO TO 252e 

2600 CLS 

2610 GO TO 200 

5000 IF M* 1 THEN PRINT RT 19,2;" 
Wciśnij ENTER PO mody f i ka C j i " ; RT 
20 , 2 ; "dany ch , lub aby 0 e pozosta 
wic";RT £1,11; "bez zmian" 

5005 IF INKEYS=" " THEN GO TO 500 


20 

5030 LET C=C + l-2* ( (CODĘ CS=8) HC 
O0) ) 

5040 INK 2: PRINT AT 7,1+C;"-": 
BEEP .01.50 

5050 INK 4: PRINT RT 7.C;CS: INK 
5060 RETURN 

6000 INK 2: PRINT RT 18.4; "NR ZA 

1 i I i ■ BB 

«Q39aft 


. _NK 6: 

6010 iNPirr f 
6020 IF F*0 THEN GO TO 610O 
6030 IF F < 1 OR F >300 THEN GO TO 
6010 

6040 FOR 1=1 TO 25 
6050 LET NC (F. I) 

6060 LET RS (F ,1) =" " 

6070 LET US (F , I) =" " 

6080 LET TS (F , I) 

6090 NEXT I 
6095 BEEP .1,20 
6100 CLS 
6110 RETURN 

7000 8RUE "KATALOG" LlNE 141 

7100 RETURN 

7500 LET H=1 

7510 LET R=R-1 

7520 RETURN 

6000 CLS ; PRINT -AT 0,2; "PODAJ P 
IERUSZA LITERE TYTUŁU ";RT 1,11;" 
I POCZEKRJ": PRINT : PRINT : 6EE 
P .1,20 

8008 IF INKEYS O"" THEN GO TO 80 
05 

8010 IF INKEY*-"” THEN GO TO 801 
0 

6020 LET KS-INKEY* 

8030 IF CODĘ KS >90 THEN LET KS-C 
HRS (CODĘ KS-32) 

8100 FOR Kel TO 300 
6110 IF NS (K .1) *KC THEN PRINT K; 
TAB 4 ; NS (K) ;TR8 30; U* (K, 1) ; TAB 3 
1; US (K , 2) 

8120 NEXT K 
8130 BEEP .1.20 

— RSH 1: IN 1 . 

"POUROT DO MENU: WCIŚNIJ C 

OKOLUIEK": INUERSE 0: FLRSH 0 
8150 IF INKEYS*" " THEN GO TO 815 
0 

8160 CLS ; BEEP .1,20: RETURN 

9000 CLS . PAUSE 25: BEEP .1.20 

9001 PRINT RT 0,6; "CHARAKTERYSTY 

KA GIER"; AT 1.5;" 

PRINT : PRINT : PRINT 
"P-przugodowa" , "Z-zre cznosc Iowa" 

: PRINT : PRINT "S-s po r tow a " , "U- 


NT "Y-syau lacy jna" , "K-kosmi czna " 

: PRINT : PRINT "T - 1 e ks t Owa " . " W- 
pr. użytkowy": FLASH 1: INUERSE 
1: PRINT RT 21,5; "WCIŚNIJ DOUOLN 
Y KLAWISZ": INUERSE 0: FLRSH .0 

9002 IF INKEYS*"" THEN GO TO 900 
2 

9003 BEEP .1,20: CLS 

9004 PRINT " WYKAZ GIER ZX-SP 
ECTRUM 48K b " : PRINT " = = = » = = = = = = 
=*====-===============" : PRINT 

PRINT 

9005 LPRINT " WYKAZ GIER ZX-S 
PECTRUh 48 k b LPRINT "=.= = = = = - = 
--»aaao*Es = CT = = = = = = = = aai:" ■ LPRIN 
T : LPRINT : LPRINT 

9006 POKE 23692,255 
9008 FOR L -65 TO 90 

9010 LET KS-CHRS L: GO SUB 9100 
9012 NEXT L 

9065 LPRINT : LPRINT : LPRINT " 
CHARAKTERYSTYKA GIER 

: LPRINT '■ 

M s LPRINT : LPRINT : L 

PRIłłT "P-przygodowa " , "Z-zrecznos 
Ciowa": LPRINT : LPRINT "S-Sport 
dwa" ,”U-wo jenna"^r “CPRINT T LPRTN 
T “L-losowa " ."R-strategiczna" L 
PRINT ; LPRINT "Y-symu lacy jna" . " 
K-kOSfti czna" : LPRINT : LPRINT "T 
-tekstowa" . "U-pr . użytkowy": LPR 
INT 

9070 IF KS=CHRS 90 THEN INPUT "U 
prowadź tekst do wydruku i nacis 
nij ENTER" ;YS: LPRINT : LPRINT : 
LPRINT : LPRINT YS 
9030 CLS : FLASH 1: INUERSE 1. P 
RINT AT 10, 10; "WYKAZ GOTOWY" BE 
EP 1,0. BEEP 1.12: BEEP 1,24 IN 
UERSE 0: FLASH 0: CLS : RETURN 
9100 FOR K=1 TO 300 
9110 IF N*(K.1)=KS THEN PRINT K; 
TRB 4,N*(K),TRB 30; US (K , 1) ; TAB 3 
1; US IK , 2) 

9120 IF NS(K.1)=K* ThEN LPRINT K 
:TAB 4;NS(K);TAB 30. US (K , 1) , TAB 
31; US (K , 2) 

9130 NEXT K 

9140 BEEP .1,20: BEEP ,1.20. BEE 
P .1,20: BEEP ,1,20. PAUSE 50. P 

RINT . LPRINT : RETURN 



„Życie maklera" jest przetłumaczonym programem z Commodore C-64, opublikowanym w „IKS-e" 
nr 2/86, na komputer Spectrum, Timex lub ELWRO 800 Junior. Tak więc już nie tylko comodorowcy będą 
mogli dzięki operacjom giełdowym zostać milionerami lub... zbankrutować. 


i 0 REM PRZETŁUMACZYŁ 

P. WASKIEWICZ 

15 PAPER 6*. BORDER ó: INK 2: C 
LS *. PRINT AT 2,3! FLASH li* Z Y 
CIE MAKLERA" 

20 PRINT AT 4,4} " JESTES WLASCI 
CIELEM KOPALNI. WYKORZYSTUJ AC OP 
ERACJE NA GIEL-DZIE SPRÓBUJ ZARZ 
ADZAC JAK NAJ-DLUZEJ POSIADANYM 
MAJĄTKIEM. ■ 

25 PRINT AT 10,5; INUERSE i;° 

U W A £ A ! ! ■ 

30 PRINT AT 13,4; "NIE MOZĘ PRA 
COWAC MNIEJ NIZ 10 GÓRNIKÓW W JE 
DNEJ KOPALNI." 

40 PRINT AT 15,0; "POZIOM ZYCI 
A GÓRNIKÓW OKREŚLA WYDAJNOŚĆ IC 
H PRACY I WIELKOŚĆ ZATRUDNIENIA 

’ 50 PAUSE 700 
100 LET LK*INT <RND*4+5) 

110 LET LG=INT (RND*30+60) 

120 LET SK=INT (RND*50+10> *LG 
130 LET RW*INT <RND*40+60> 

140 LET Z*0: LET PZG=1 : LET R=1 
I LET ZN-0 

200 PAPER i: INK 5! BORDER i: C 
S : PRINT AT 2,3; INUERSE lf" Z 
YCIE MAKLERA" 

203 PLOT 0,175; DRAW 255,0: DRA 
0,-35.' DRAW -255,0: DRAW 0,35 
205 PRINT AT 4, 14; "ROK “;R 
207 PLOT 0,125: DRAW 255,0: DRA 
0,-55*. DRAW -255,0: DRAW 0,55 
210 PRINT AT 6,7; INUERSE 1}" O 
BECNIE POSIADASZ " 

215 PRINT AT 7,1; “STAN KONTA... 

" ;sk; " *" 

220 PRINT AT 6,1; "LICZBA GÓRNIK 
OW "SLG 

225 PRINT AT 9,1 5 "LICZBA KOPALŃ 
I "SLK 

230 PRINT AT 10,1; "ROCZNE WYDOB 

YCIE. " ;RW; " TON" 

235 LET Z=Z+RW*LK 

240 PRINT AT 11,1; "ZAPASY 

";z;" TON" 

245 PRINT AT 12,1! "POZIOM ŻYCIA 
GÓRNIKÓW “ | PZG 

247 PLOT 0,59: DRAW 255,0: DRAW 
0,-29: DRAW -255,0: DRAW 0,29 
250 PRINT AT 14,121 INUERSE i;" 
GIEŁDA " 

255 LET CR=INT <RND*12+7) 

260 LET CK*INT <RND*2Ó00+2000) 
265 LET CZ=INT (RND*40+80) 

270 PRINT AT 15, i f "CENA TONY RU 

DY " ; CR; *" 

275 PRINT AT 16,1; ‘CENA KOPALNI 

";ck;“ *" 


280 PRINT AT 17.1; "CENA ZYWNOSC 
270 PRINT AT 15, i f "CENA TONY RU 

DY ";CR{ " *" 

275 PRINT AT 16, 1! "CENA KOPALNI 

"jck;" *" 

260 PRINT AT 17,1; "CENA ZYWNOSC 
I GÓRNIKA " ; CZJ * *■ 

263 PLOT 0,4: DRAW 255,0 
285 PRINT AT 21,8; INUERSE i;" 
KUPNO/SPRZEDAZ " 

268 PRINT AT 19,1; INUERSE i|"S 

ytuacje: " 

290 GO SUB 1000 

295 INPUT "ILE TON RUDY SPRZEDA 
JESZ ? " ; SR 

300 IF SR<0 OR SR>Z THEN GO TO 
295 

305 IF SROO THEN LET Z=Z-SR: 
LET SK=SK+SR*CR: GO SUB 1010: GO 
SUB 1030 
310 GO SUB 1000 

315 INPUT "ILE KOPALNI SPRZEDAJ 
ESZ ? ";KS 

320 IF KS<0 OR KS>LK THEN GO T 
O 315 

325 IF KSOO THEN LET LK-LK-KS 

: let sk=sk+ks*ck: go sub ioio: 

GO SUB 1020 

330 IF LK*=0 THEN GO TO 2000 
335 GO SUF 1000 
337 IF KSOO THEN GO TO 360 
340 INPUT "ILE KOPALNI KUPUJESZ 
? " ; KK 

345 IF KK<0 OR KK*CK>SK THEN G 
O TO 340 

350 IF KKOO THEN LET LK*LK+KK 

: let sk=sk-kk*ck: go sub ioio: 

GO SUB 1020 
355 GO SUB 1000 

360 INPUT "ILE * WYPŁACASZ GORN 
IKOM “ I WG 

365 IF WG< O OR WG>SK THEN GO T 
O 360 

370 IF WGOO THEN LET SK=SK-WG 
: GO SUB 1010 

400 IF WG/LG >CZ + 20 THEN LET PZ 
G^PZG+.i: GO SUB 1040 
405 IF WG/LGCCZ-20 THEN LET PZ 
G=PZG-.i: GO SUB 1040 
410 IF PZG< . 6 THEN GO TO 2010 
415 IF PZG> 1 . 1 THEN LET RW=RW+ 
INT IRND*20+5) 

420 IF PZG > = 1 THEN GO TO 435 
425 IF RW>25 THEN LEJ RW=RW-IN 
T <RND*20+5): IF RW<0 THEN LET 
RW=C 

430 GO SUB 1050 

435 IF LG/LK< 10 THEN GO TO 202 
O 


• ZYCIE MAKLERA 

JESTES WŁAŚCICIELEM KOPALNI. 
UYKORZYSTUJAC OPERACJE NA GIEL- 
DZIE SPRÓBUJ ZRRZ ADZAC JAK NAJ- 
DLUZEJ POSIADANYM MAJĄTKIEM. 


NIE MOZĘ PRACOUAC MNIEJ NIZ 
10 GÓRNIKÓW W JEDNEJ KOPALNI. 
POZIOM ŻYCIA GÓRNIKÓW OKREŚLA 
WYDAJNOŚĆ ICH PRACY I WIELKOŚĆ 
ZATRUDNIENIA. 



440 IF PZG>1.1 THEN LET LG-LG+ 
440> IF PZG>1 . 1THEN L 
ET LG=LG+ INT (RND*10+i ) : GO SUB 1 
060 

445 IF PZG< . 9 THEN LET LG=LG-I 
NT (RND*10+i): GO SUB 1060 4 

450 IF RND*1>.2 THEN GO TO 465 
455 PRINT AT 19,10| FLASH i; "RA 
BIOAKTYWNE MINERAŁY. ... WIELU ZGI 
NELO" 

460 LET LG=INT (LG/2) : GO SUB 1 
060: LET ZN=1 

465 IF RW< 150 THEN GO TO 500 
470 IF ZN=1 THEN LET ZN=0 
475 PRINT AT 19,10; FLASH 1;“KR 

YZYS NADPRODUKCJI WYDOBYCI 

E SPADA" 

480 LET RW=INT (RW/2) : GO SUB 1 
050 

500 LET R=R+1 

505 IF R=100 THEN GO TO 3000 
510 PAUSE 200 
520 GO TO 200 

1000 PAUSE 100 

1001 RETURN 

1010 PAUSE 50: BEEP .2,20: PRINT 
AT 7,235 INU^RSE 1;SK;" % " .* PA 
USE 20*. PRINT AT 7,23| INUERSE O 

;sk;" % ": return 

1020 PAUSE 50: BEEP .2,20: PRINT 
AT 9,23! INUERSE i;LK;" ": PAUS 
E 20: PRINT AT 9,235 INUERSE 05 L 
KJ" ": RETURN 

1030 PAUSE 50 : BEEP .2,20: PRINT 
AT 11,23; INOERSE i; Z!" TON “: 
PAUSE 20: PRINT AT 11,235 INUERS 
E OlZf" TON u : RETURN 
1040 PAUSE 50: BEEP .2,20: PRINT 
AT 12,235 INUERSE l;PZG! n ": P 
AUSE 20: PRINT At 12,23; INUERSE 
0}PZG{" •: RETURN 

1050 PAUSE 50: BEEP .2,20: PRINT 
AT 10,23! INVERSE 1;RWJ"T0N ": 
PAUSE 20: PRINT AT 10,23; INUERS 
E 05RW;" TON *: RETURN 
1060 PAUSE 50: BEEP .2,20: PRINT 
AT 8,235 INUERSE i;LG5“ ": PAU 
SE 20: PRINT AT 8,23; INUERSE O; i 
lg;" ": RETURN 

2000 PRINT AT 19,10; FLASH 1!“NI 

E MASZ KOPALNI KONIEC GRY": 

GO TO 3000 

2010 PRINT AT 19,101 FLASH li"ST 

RAJKI GÓRNIKÓW KONIEC GRY": 

GO TO 3000 

2020 PRINT AT 19,10; FLASH 1{"ZA 

MAŁO GOR-NIKOW KONIEC GRY": 

GO TO 3000 

3000 PAUSE 300: INK 2: PAPER 6 i 
feORDER 6: CLS 

3010 PRINT AT 9, 10; FLASH 1J" KO 
NIEĆ GRV! ! " 

3020 PRINT AT ll,l!"BYLES MAKLER 
EM " 5R! " LAT. " 

3025 PRINT AT 12, O; "SKOŃCZYŁEŚ Z 
KASA ";sk;“ *" 

3030 PRINT AT 13,0; “CHCESZ GRAC 
DALEJ ? CT/N) " 

3040 INPUT R* 

3050 IF R**="N" OR R*="n" THEN S 
TOP 

3060 IF R*="T" OR R*=“t" THEN R 
UN 100 

3070 GO TO 3040 


31 
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KAREN — Ic właśnie tu można naprawić każdy typ Atarś. Tu 
trafiają uszkodzone komputery z całej Połski, bowiem właśnie 
KAREN prowadzi naprawy gwarancyjne tych mikrokompute- 
rów (ale najczęściej psują się wrażliwe magnetofony). Ludzie 
z tej firmy dbają jednak nie tylko o zepsuty sprzęt, ale zabie- 
gają, aby był przede wszystkim dobrze eksploatowany. 


To jeden z nowszych modeli Atari. Podstawą tej konstrukcji 
jest mikroprocesor Motorola 68 000. Pamięć RAM ma 1024 Kb, 
ROM 192 Kb. Wśród wielu zalet Atari wymienia się znakomitą 
grafikę. Atari 1040 STF dysponuje 512 kolorami. Duża rozdziel- 
czość to 640X400 punktów na monochromatycznym monito- 
rze; średnia rozdzielczość to punktów w czterech kolorach. 




INFORMATYKA 

KOMPUTERY 

SYSTEMY 


Dodatek „Żołnierza Wolności” Cena 200 zl 


m 



Wprowadzenie 


SPIS TREŚCI 

Wprowadzenie — str. 2 

Podstawowe instrukcje i typy da- 
nych — str. 2 

Złożone typy danych — str. 10 

Procedury i funkcje — str. T5 

Elementy grafiki komputerowej 
— str. 19 


Dodatek (Jak uruchomić program?) 

— str. 23 

Programy: I „Gra Hamiltona” 

- str. 25 


„Wieża Hanoi" — str. 29 


Opisy gier komputerowych: 
Vegas Jackpot — str. 30 
Alley Cat — str. 31 


UWAGA! Następny zeszyt zawiera 
opis języka C — rewelacyjne na- 
rzędzie w rękach użytkowników 
mikrokomputerów. 


„IKS” — dodatek „Żołnierza Wol- 
ności”. Redaguje Wiesław Cetera 
(kierownik zespołu); Rada pro- 
gramowa: Krzysztof Chmarra, 

Romuald Głąb, Włodzimierz Go- 
gołek, Janusz Janiec, Henryk 
Krasuski, Ireneusz Miernik, Lud- 
wik Piela, Jacek Szaniawski. 
Adres redakcji: 00-950 Warszawa 
ul. Grzybowska 77, telefon centra- 
li 20-12-61 w. 486. Te!ex 313664. 
Rękopisów nie zamówionych re- 
dakcja nie zwraca i zastrzega so- 
bie prawo do skrótów. Nakładem: 
Wydawnictwa „Czasopisma Woj- 
skowe”, Warszawa ul. Grzybow- 
ska 77. Fotoskład i druk offsetowy 
— Wojskowe Zakłady Graficzne 
im. gen. dyw. A. Zawadzkiego. 


U-40 


Nr zam. 1117. Nr ind. 361682. 


Niniejsze opracowanie przezna- 
czone jest dla użytkowników mikro- 
komputerów, którzy pragną posze- 
rzyć swoją wiedzę w zakresie samo- 
dzielnego programowania w języku 
PASCAL. 

Wprowadzane wiadomości teore- 
tyczne autorzy ilustrują prostymi 
przykładami zadań, które zawierają 
rozwiązania praktyczne. Przykłady te 
decydują o właściwym opanowaniu 
przedstawionych zagadnień i dosto- 
sowane są do możliwości percepcyj- 
nych uczniów szkół średnich oraz 
wyższych klas szkół podstawowych. 

Opracowanie składa się z 4 rozdzia- 
łów: 

1. Podstawowe instrukcje i typy 
danych 

Rozdział obejmuje przykłady rozwią- 
zań prostych zadań obliczeniowych , 
uwzględniających przede wszystkim 
materiał możliwy do opanowania 
przez uczniów szkół podstawowych. 

2. Złożone typy danych 
Zawiera przykłady zapisu zbiorów 
danych z uwzględnieniem możliwości 
ich przychowywania w pamięci ze- 
wnętrznej. 

3. Procedury i funkcje 

Jest to wstęp do programowania za- 
awansowanego, w którym wykorzy- 
stuje się logiczne wyodrębnione 
fragmenty programów. 

Elementy grafiki komputerowej 
Obejmuje przykłady wyświetlania 
tekstów i obrazów. 

Wszystkie zaprezentowane pro- 
gramy zostały uruchomione w sy- 
stemie TURBO PASCAL na mikro- 
komputerze AMSTRAD CPC 61128, 
pracującym pod nadzorem CP/M 
PLUS. Podstawowe zasady pracy w sy- 
stemie TURBO PASCAL zawiera do- 
datek. Przedstawione programy, poza 
tymi, które obejmują elementy grafiki, 
mogą być uruchamiane także na mi- 
krokomputerach serii IBM PC. Syste- 
matyczne ujęcie materiału powinno 
sprzyjać opanowaniu podstawowych 
właściwości języka PASCAL bez 


PODSTAWOWE 
INSTRUKCjE 
I TYPY 
DANYCH 
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względu na komputer, z którym jest 
on związany. 

Komputer jest narzędziem przysto- 
sowanym do przetwarzania informa- 
cji. Informacje umieszczone na od- 
powiednich nośnikach zwane są da- 
nymi. Stąd też często mówi się o tym, 
że komputer umożliwia przetwarza- 
nie danych. Proces użytkowania 
komputera przedstawia rysunek 1. 

Dane mogą być wprowadzane do 
<omputera jako tekst w języku an- 
gielskim, natomiast wyprowadzane z 
komputera jako ten sam tekst prze- 
tłumaczony na język polski. 

W tym przypadku przetwarzanie 
danych przez komputer polega na 
tłumaczeniu tekstu. Ten sam kompu- 
ter może być wykorzystywany w in- 
nych celach np. do obliczania pola 
kwadratu na podstawie wyprowa- 
dzonej długości boku. W każdym z 
obydwu przypadków komputer reali- 
zuje inne czynności. Sposób postę- 
powania komputera określa przepis 
zawarty w tzw. programie. Program 
ten musi być wprowadzony do kom- 
putera przed rozpoczęciem wyma- 
ganych czynności. Takim programem 
może być dowolna gra komputerowa 
znajdująca się na kasecie magnetofo- 
nowej lub dyskietce. Użytkownik 
może również sporządzić program 
samodzielnie, wykorzystując w tym 
celu specjalne narzędzia zwane języ- 
kami programowania. 

PASCAL jest jednym z wielu języ- 
ków programowania charakteryzują- 
cym się łatwością zapisu programów 
obejmujących liczną klasę proble- 
mów. Najprostszy program zapisany 
w języku PASCAL wyprowadzający 
tekst: 




2 
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RYS. 3. Ilustracja zasady konstrukcji programu 
wprowadzania i wyprowadzania danych 
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rozpoczynamy-mukę języka PASCAL 
na monitor zamieszczono w przykła- 
dzie 1. 

I*itzykład 1 

lif pr0,!! 

^|i , .Ei'roi20c:yiT*‘ --su*? ;e:y*a : 

Program posiada strukturę przedsta- 
wioną na rysunku 2. 

Wszystkie wyróżnione słowa (zapisa- 
ne wielkimi literami) zwane są sło- 
wami kluczowymi. Każde z nich ma 
sćlśle określone znaczenie. 

-Podstawowym elementem pro- 
gramu o nazwie progi jest instrukcja 
WRITE powodująca wyprowadzenie 
na monitor tekstu ujętego w apostro- 
fy. Program ten opisuje szczególny 
przypadek przetwarzania danych, nie 
wymaga bowiem wyprowadzania 
żadnych danych wejściowych. 

Najprostszy program uwzględnia- 
jący wprowadzanie i wyprowadzanie 
danych w niezmienionej postaci, mu- 
si zawierać co najmniej dw'ie instruk- 
cje, z których jedna wprowadza dane, 
a druga powoduje ich wyprowadze- 
nie. Pomiędzy wprowadzeniem a 
wyprowadzeniem dane muszą być 
gdzieś przechowywane. Struktura 
programu powinna zatem uwzględ- 
niać istnienie obiekiów umożliwiają- 
cych przechowanie danych. Obiekty 
te-zwane są zmiennymi. Zasadę kon- 
struowania takiego programu przed- 
stawia rysunek 3, a sam program zos- 
tał zamieszczony w przykładzie 2. 

. i 

Przykład 2 

'.rnq2; 

im 

.tekst :str;nii[5]; 

BE6IN 

^EABitskstis 

kfilTE' tekst); 

m. 

Strukturę programu przedstawiono 
nąj;ys. 4. 

W programie występuje deklaracja 
znpiennej, tj. zapis określający: 

.-TT nazwę zmiennej (tekst), 

— typ zmiennej ( string [5j) identy- 
fikujący zakres dopuszczalnych war- 
tości, jakie może przyjmować zmien- 
rta. 

‘ W programie prog2 wartością 
imiennej tekst może być ciąg dowol- 
nych znaków o długości nie większej 
niż. 5. Przykładowo ciągi aócc/e, xy, 
T234 są poprawnymi wartościami 
imiennej tekst w przeciwieństwie do 
ciągu 123456, który jest zbyt długi. W 
liście instrukcji program próg. 2 pier- 
wszą instrukcją jest READ z parame- 
trem tekst W wyniku jej wykonania 
następuje wczytanie ciągu znaków (o 
długości nie przekraczającej 5) do 
zmiennej tekst. Wyprowadzenie 
wczytanego tekstu realizuje znana 
jużjnstrukcja WRITE, której parame- 


trem jest w tym przypadku zmienna 
tekst. 

Program prog2 wykonany dla cią- 
gu abed (zakończenie wprowadzania 
ciągu następuje po wciśnięciu klawi- 
sza ENTER) powoduje w-yświetlenie 
tekstu abed. Jest on wyświetlany bez- 
pośrednio po ciągu wejściowym. W 
efekcie na . ekranie monitora pozesta- 
je ciąg abedabed. Chcąc oddzielić te 
ciągi możemy wyświetlić ciąg wy- 
prowadzany w nowej linii. Efekt ten 


uzyskamy wstawiając instrukcję WRI- 
TELN pomiędzy instrukcje READ 1 
WRITE (przykład 3). 

Przykład 3 


ŚE5! 1 * 

tekst); 

URITELM 

K p ITE ; te*st': 

ENS. 



Podane przykłady dotyczyły wpro- 
wadzania i wyprowadzania łańcu- 
chów znaków, PASCAL umożliwia 
również wprowadzanie danych trak- 
towanych jako liczby. Program za- 
mieszczony w przykładzie 4 pozwala na 
wprowadzenie dwóch liczb rzeczywi- 
stych (liczby dziesiętne, w' których 
część ułamkową — jeśli występuje — 
oddziela się od części całkowitej 
kropką zamiast przecinka) i ich wy- 
prowadzenie. 

W programie wykorzystano, ins- 
trukcje z przykładu 3. Programy róż- 
nią się: 

— deklaracjami zmiennych — 
zmienne x i y są zadeklarowane 
jako liczby rzeczywiste (real), 

— postacią instrukcji WRITE, w której 
oprócz nazwy wyprowadzanej 
zmiennej podano sumaryczną 
ilość znaków przeznaczonych na 
zapis liczby (6) oraz ilość znaków 
przeznaczonych na część ułam- 
kową (2). 

W uzupełnieniu należy dodać, że 
sumaryczna ilość znaków liczby 
obejmuje kropkę dziesiętną oraz 
znak liczby (wyprowadzany tylko w 
przypadku liczb ujemnych). 

Przykład 4 

prog4; 

VAP 

x: real 5 
y:reał: 

8EGIN 

RtAB(x‘; 

łSffltfi: 

WRITELN* 

|jP r TF » * x = * ) S 

NRITELN; 

NRl T Ei’y=’?; 

bR!T£(y:bs2i; 

EW. 

Program prog4 wykonano dla liczb 
x = 210,85 i y = — 20 uzyskując 
wyniki: 


x = 210.85 
y = 20.00 

Program prog4 pomimo iż realizu- 
je bardzo proste funkcje, jest stosun- 
kowo obszerny. W celu skrócenia za- 
pisu można wykorzystać następujące 
właściwości języka: 

— dla zmiennych jednakowego ty- 
pu, nazwa typu może być podana 
po wyliczeniu nazw tych zmien- 
nych, 

— w ramach jednej instrukcji READ 
można wprowadzić więcej niż 
jedną daną, przy czym nie muszą 
być one tego samego typu, 

— w ramach jednej instrukcji WRITE 
można wyprowadzić więcej niż 

' jedną daną (bez względu na jej 

typ). 

Właściwości te wykorzystano w pro- 
gramie prog5 (przykład 5) realizują- 
cym te same funkcje co program 

prog4. 



Przykład 5 

PROGRAM prcg5: 

VAR • 
x,y:real; 

BESIh 

READ(x,yl; 

NRITELN; 

NR2 T ELNł’x«’,x:fi:2)i 
URITE t * y=’ . y 1 6 : 2) : 
EM). 


W dotychczas podanych przykła- 
dach działanie programów ogranicza- 
ło się do wprowadzania i wyprowa- 
dzania danych. Podstawowym zada- 
niem komputera jest jednak przetwa- 
rzanie danych realizowanych za po- 
mocą odpowiednich instrukcji języka 
PASCAL. 

Typową strukturę programu 
uwzględniającą wprowadzenie, prze- 
twarzanie i wyprowadzanie danych 
przedstawiono na rysunku 5. 

Podstawową instrukcją przetwa- 
rzania danych jest instrukcja przypi- 
sania przyjmująca formę: 
nazwa zmiennej wyrażenie 


identyfikator 

instrukcji 

Instrukcja ta powoduje przypisanie 
zmiennej, występującej po lewej 
stronie identyfikatora instrukcji, no- 
wej wartości, będącej wynikiem obli- 
czenia wartości wyrażenia występują- 
cego po prawej stronie znaku identy- 
fikatora instrukcji. 

W odniesieniu do zmiennych rze- 
czywistych wyrażenia w języku PAS- 
CAL konstruowane są tak jak wyra- 
żenia arytmetyczne. 

Różnice dotyczą wyłącznie postaci 
niektórych operatorów oraz zapisu 
ułamków. Sposób wyliczania wartości 
wyrażenia określony jest wagą opera- 
torów: 

— wyrażenia w nawiasach obliczane 
są w pierwszej kolejności, 

— mnożenie (* zamiast .) oraz dziele- 
nie (/ zamiast :) wykonywane są w 
kolejności ich występowania 


przed wykonaniem dodawania i 
odejmowania, 

— dodawanie (-f) i odejmowanie ( — ) 
wykonywane są w kolejności ich 
występowania. 

Ułamki traktowane są jako operacje 

dzielenia licznika przez mianownik. 

Proste programy zamieszczone w 

przykładach 6—11 obejmują kolejno 

obliczenie: 

— sumy, różnicy, iloczynu i ilorazu 
dwóch liczb rzeczywistych, 

— wartości sinusa, cosinusa i tangen- 
sa jednego z kątów trójkąta pro- 
stokątnego o podanych bokach, 

— pola prostokąta o podanych bo- 
kach, 

— pola trapezu o podanych podsta- 
wach i wysokości, 

- — objętości kuli o podanym pro- 
mieniu, 

— objętości stożka o podanym pro- 
mieniu podstawy i zadanej wyso- 
kości. 

Przykład 6 

FF, OSRAM orogt; 

VAR 

x f Yj5usa, różnica, 
iloczyn, iloraz: real: 

OCCTB 


— 1\ X 1 tUij 

KRlTELNCfńerwsza liczba =’,x;B:4); 

NRITELN 1’druga liczba -’,y:6:4); 

su*a:=x*y; 

roziica:=x-v; 

iloczyn:=xty; 

iicraz:=x/y; 

NRlTElWsusa = : ,suna:8:41 ; 
NRITElNCroznica =', rożni ca: 8: 4); 
KRITElN ( ! iloczyn iloczyn: 8: 4); 

WRITE U iloraz =’,:lora::8:4); 

END. 


Przykład 7 

PROGRAM próg?; 

VAR 

a^c , sinus , cosinus, tangesis: real ; 

REA3la,b,c); 

NRITELN: 

NRITELNt’ wczytane boki trojkata', 

’ prostokątnego:’); 

NRITELN l’ a =’,a:3:0 b = } ,b:3:0, 
c =' t cs3s0>; 


sinus:=67ć; 
cosinus:=a/cj f 
tangens:=b/a; 

NRITELN; 

NRITELNl’ sinus kata alła = ’,sinus:6:4): 
NRITELN 1’cosinus kata alfa = ' , cosinus: i>:4} ; 
NRlTECtangens kata alfa = ’ ,tangens:6:4ł; 

m. 


Przykład 8 

PR06RAH prog8; 

VAR 

a,b,pole:real; 

BEblN 

WRITELN; 

I WRITELN ('OBLICZENIE POlA PROSTOKĄTA: ’ » 

i NRITELN(’poćaj długości bokow’); 

READla.b); 
pole:=atb: 

NRITELN; 

NRITELNl' pole prostokąta o bokach'); 

! NRITELNl’ a =\a:fc: 3 ,’, b =’,b: 6 : 3 >; 

i NRITEl’ wynosi ’ , poie; 8 : 3 ) : 

; END. 


I* 1 dla x<0 

wymaga porównania wartości liczby z 
zerem. 

Podstawową instrukcją umożliwia- 
jącą wykonanie działań uzależnio- 
nych od spełnienia określonych wa- 
runków jest instrukcja alternatywy 
przyjmująca postać: 

OB warunek 1THEN I 

instrukcja 1 

I5H 

instrukcja 2 


! 

Przykład 9 


PROGRAM próg?; 

VAR 

a,b,h,pole:real; 

BE6IN 

NRITELN; 

WRlTELNt’ OBLICZENIE f 0LA TRAFEZJ; ’ ł 
NRITELN ('podaj długości:’); 

NRITELNl’ -dolnej podstawy,’) 

NRITELNl’ -górnej podstawy,’) 

NRITELNl 5 -wysot-osc.’); 
t READla.b.h); 

K ołet^J.afa^blih; 

RiTELN; 

NRITELNCpole trapezu o podstawach 5 ); 
NRITELNl’ a =’,a:6:3,’, b =’,b:6:3ł; 
NRITELNl’ i wysokości h =’,h:6:3ł: 
NRITt( : wynosi ’,pcle;8:3); 

END. 


Przykład 10 

PROGRAM proglO: 

. . VAR 

r,objetosc:real; 

BE6IN 

v . NRITELN: 

NR I TElN 1 ’ OBL I CZ EN I E OBJĘTOŚCI KULI:’); 
NRITELNl 'podaj prosi en kuli’); 

REflD(r); 

objetosc;=4/3*pilrtrtr; 

(pi - stała dostępna w PASCfiL-u) 
On NRITELN; 

NRITELN l’ objętość kuli o promieniu' ł : 

- NRITELNl’ r ='.r:fc:3); 

NRITE ('wynosi * .obfetosc: 10:3) ; 

END. ' 


Warunek jest wyrażeniem logi- 
cznym tzn. takim, które w danej sy- 
tuacji (dla określonych wartości 
zmiennych w nim występujących) 
może być spełnione lub nie. Jeżeli 
warunek jest spełniony to następuje 
wykonanie instrukcji 1 (a instrukcja 2 
nie jest w ogóle wykonywana). W 
przypadku przeciwnym wykonywana 
jest instrukcja 2 ( instrukcja 1 nie jest 
wtedy wykonywana). 

Program obliczania wartości 
bezwzględnej zadanej liczby zamie- 
szczono w przykładzie 12. 

Przykład 12 v 

PROGRAM prog!2; 

VAR 

x:real; 

BEGIN 

READlx); 

NRPELN; 

NRITELN* 'wartość bezwzględna liczby’): 

NRITELNl’ \x:8:4); 

IF *>=() THEN 
x:=x 


x:=-x; 

NRITE( 5 wvnosi’,x:8:4) ; 

END. 

Występujący w programie warunek 
x > = O 


Przykład 11 

PROGRAM progll; 

VAR 

r,h,objetosc:real: 

BEGIN 

' NRITELN; 

HRITELNl 'OBLICZENIE OBJĘTOŚCI STOŻKA: * ł ; 
NRITELNl 'oodaj prosien podstawy 5 ); 
NRITELNl’ i wysokosc stożka’); 

READlr,h); 

objetosc:=piłrlr/3; 

NRITELN; 

NRITELNl’ objętość stożka o proszeniu’); 
NRITELN(’poostawy r =’,r:6:3); 

NRITELNl’ i wysokości h =’,h:6:3); 
NRITEPwynosi ’,objetosc:B:3); 

END. 


Dotychczas poznane instrukcje 
umożliwiają już wykonanie prostych 
obliczeń na wprowadzonych danych 
oraz prezentację wyników. Na ogół 
jednak to nie wystarcza, ponieważ 
wykonanie takich działań często za- 
leży do spełnienia określonych wa- 
runków. Na przykład wyznaczenie 
wartości bezwzględnej liczby zgod- 
nie z definicją: 


jest spełniony tylko wtedy, gdy x ma 
wartość nieujemną. Taką interpreta- 
cję warunku wskazuje operator rela- 
cyjny > = (większy lub równy). W 
warunkach mogą występować ponad- 
to następujące operatory relacyjne: < 
(mniejszy), < = (mniejszy lub rów- 
ny), = (równy), > (większy), O (róż- 
ny). 

Wyrażenia występujące w przykła- 
dzie 12 zawierają nazwy tych samych 
zmiennych po obu stronach operato- 
ra np: 

x: = — x 

W takim przypadku przy obliczaniu 
wartości wyrażenia brana jest pod 
uwagę wartość zmiennej x przed wy- 
konaniem instrukcji przypisania. Wy- 
znaczona wartość wyrażenia jest na- 
stępnie przypisywana zmiennej x jako 
nowa wartość (poprzednia wartość 
zostaje zniszczona). 


Ze składni instrukcji alternatywy 
wynika, że zarówno w przypadku 
spełnienia, jak i niespełnienia wa- 
runku wykonywana jest pojedyncza 
instrukcja. W języku PASCAL za po- 
jedynczą instrukcję przyjmuje się 
także instrukcję złożoną — sekwen- 
cję instrukcji ograniczoną słowami 
kluczowymi BEGIN — END: 

BEGIN 

instrukcja 1; 
instrukcja 2; 
instrukcja 3; 


END 

W przykładzie 13 zamieszczono 
zmodyfikowaną wersję programu z 
przykładu 7, w którym wyznaczanie 
sinusa, cosinusa i tangensa (zapisane 
w postaci instrukcji złożonej) jest wy- 
konywane tylko wtedy, gdy trójkąt o 
podanych bokach jest trójkątem pro- 
stokątnym. 


Przykład 13 

PROGRAM proęl3; 

VAR 

^bj, c , si mis, cosinus, tangensrreal ; 

READ!a,b,c); 

NRITELN; 

NR I T ELN( 5 wczytane boki trójkąta’); 
NRI-ELNCa =\a:3:0 ,’. b =’,b:3:0. 

c - ,c:3:0): 

IF (ala*bibi=(clcł THEN 
BEGIN 

sinus:=b/c; 

cosirus:=a/c; 

tarcec.s:=b/aj 

NRITELN; 

NRITELNl 5 sinus *ata aHa = 
sinus: 6: 4); 

NRITELNl’ cosi nus kata alfa = ’, 

CDsinus:6:4); 

NRITEl’taogens kata alfa = 
tange?s:b:*): 

END 

ELSE 

NRITE!’r.ie tworzą trojkata 
'prostokątnego’); 

END. 

Bardziej złożony program, ilustru- 
jący wykorzystanie instrukcji alterna- 
tywy, zamieszczono w przykładzie 
14. Program ten umożliwia obliczanie 
pierwiastków rzeczywistych trójmia- 
nu kwadratowego. W poprzednich 
przykładach programista określał po- 
stać wyprowadzanych liczb. W przy- 
padku, gdy programiście nie zależy 
na narzuceniu formatu wyprowadza- 
nych liczb może wykorzystać postać 
standardową, która dla liczb rzeczy- 
wistych jest następująca: 


dla liczb większych lub 
równych zero, 
u — #.##########£☆## 

dla liczb mniejszych od 
gdzie: zera . 


u — reprezentuje spację, 

# — reprezentuje cyfrę dziesiętną, 
ir — reprezentuje znak 4- lub — 


Wartość tak wprowadzonej liczby na- 
leży odczytać jako c. 10 m 


5 


gdzie: 


c — liczba znajdująca się przed literą 
E (cecha), 

m — liczba znajdująca się za literą E 
(mantysa). 


Wartość zmiennej wyprowadzona 
jest w formacie standardowym, gdy w 
instrukcji WRJTE występuje wyłącznie 
nazwa zmiennej. 


Przykład 14 

PROGRAM progl4; 

VAR 
a,b,c, 
xl. x2, 
delta: real ; 

BEEIN 

WRITELN; 

NRITELNrpoeaj współczynniki trojBianu’): 
READ(a,b,c); 

IF a=0 THEN 

NRITELN C niedopuszczalna wartość ’, 
'współczynnika a’) 

ELSE 

BEGIN 

kiRITELN; 

NRITELNTdła współczynników: a =’,a); 
NRITELN (’ b =’ b); 

NRITEUK’ c =’ ,c); 

ćelta:=Dtb-4ta>c; 

IF ćalta<0 THEN 

NR! TEIN* 'brak pierwiastków rzeczywi’, 
'stycłrk 

ELSE 

IF deita-0 THEN 
BEGIN 

xł:=-b/(2la) ; 

NR!TELM’troj«ian pa jeden pierwi’, 
’astek'); 

N^lTECpodwoiny x =’,v,i); 

END 

ELSE 

BEGIN 

xl:=<-b-SGRT*tselta))/(2*a); 
s2:=C-b+SQRT (celta) )/ (2ta> ; 
MRITE ł .N('trojaiap ta dwa bierwa’, 
’stki: xl =’,xl); 

NRITEI’ ’:2Vx2 =\x2): 

END; 

END; 

END. 


Należy dodać, że wszystkie wpro- 
wadzane liczby rzeczywiste mogą 
być podane w postaci liczb dziesięt- 
nych z kropką (np. 10.35) lub w po- 
staci standardowej (np. 10.35E+0, 
1.035E+1, 0.11035E+ 2, 1035E— 2). 

Instrukcja alternatywy zakłada wy- 
konanie różnych akcji w przypadku 
spełnienia i niespełnienia warunku. 
Niejednokrotnie jednak konstrukcja 
programu wymaga wykonania jakiejś 
akcji tylko w przypadku spełnienia 
warunku. Wygodniej jest wtedy wy- 
korzystać uproszczoną postać ins- 
trukcji alternatywy, zwaną instrukcją 
warunkową; 


as warunek ITHEN I instrukcja 7 


Instrukcja 7 wykonywana jest tylko w 
przypadku spełnienia warunku. Przy- 
kłady wykorzystania instrukcji wa- 
runkowej zamieszczono w progra- 
mach prog15 i prog16 (przykłady 15 i 
16). 

Przykład 15 

PROGRAM prcgt5; 

VAR 

x:real; 



READ(xł; 

NRITELN; 

NR! T ELN( J Nartc3c bezwzslecna liczby’:; 
KITŁIM* \x:8:4f; 

IF K<0 THEN 
x:— xj 

NRITE' 5 wynosi' ,v:G:4 ł : 

END. 

Przykład 16 

PROGRAM orogłŁ: 

VAR 

asMjrjpoIe.objetoscirea! ; 

«irw:integer; 

BEGIN 

kiRITELN; 

kiRITELN ('PROGRAM L«0ZL!»W OBLICZENIE;’); 
kiRITELN (' 1 - POLA PROSTOKĄTA, ’ ) ; 

NRITELN (’ 2 - POlA TRAPEZU,’): 

NRITELN (’ 3 - OBJĘTOŚCI KULI, ): 

NRITELN (’ i - OBJEWl STOŻKA.’ h 
NRITELN f’oodaj wariantu'); 

NRITELN; 

READLNłnrwł: 

IF nrw=l THEN 
BEGIN 
NRITELN; 

NRITELN? 'OBLICZENIE POLA PROSTOKĄTA: ’ ) ; 
NRITELN ('podaj długości oofcow’); 
READ!a,b); 
pole:=atb; 

NRITELN: 

NRITELN? 'pale orostokata o bobach’); 
NRITELN (’ a =’,a:fc:3,’, b =’,b:6:3); 
URITEt* wynosi \?ołe:8:35; 

END; 

IF nrw=2 THEN 
BE6IN 
NRITELN; 

NRITELN? 'OBLICZENIE POLA TRAPEZU:' 1 ; 
NRITELNCoodaj długości:’); 

KRITELNl’ -dolnej podstawy,’ ); 

NRITELN (’ -górnej podstawy, ’); 

NRITElNI’ -wysokość.-’); 

READ(a,b,h); 

pole:=(j.Gt'J+b)*h; 

NRITELN; 

NRIiELNrsale trapezu o podstawach’); 
NRITElNI’ a =',3:6:3,’, b = : ,b:ó;3); 
NR!TELN('i wysokości h =’,A:6:3); 

NRłTE i 'wyicsi ’,pole:8:3ł; 

END; 

IF nrw=3 THEN > 

BEGIN 

NRITELN; 

HRITElN?’ OBLICZENIE OBJE t OSCI KOLI:’); 
NRITELN' 'podaj prctien kuli’); 

READ(r); 

obietosc:=4;3*pitririr; 

NRITELN (’ oo ietasc kuh o p--c»ien;u'ł; 
NRITELN I’ r =’,r:6:3); 

WPI T E r ’ wynosi ’,obistosc:10:3); 

END; 

IF nrw=4 THEN 
BEGIN 
NRITELN; 

NRITELN 'OBLICZENIE 0BJE T 0SCł STn?kp : ’); 
k|FT T ELN'' joca.i o-cmen oodstawy'); 
NRiTELNi'! wysc-KKC stożka' 1 ; 

READir,h); 


objetosc:=piłrtr/3; 

5JPITELN; 

NRITElNI 'objętość stozxa o araici emu' ) ; 
NRITELN 1 'podstawy r =’,r:6:3); 
WRI T ELN(’i wysokości h = ! ,r:ó:3 ł ; 
NRITEI' wyrosi ’ .objętość: 8: 3); 

END; 

END. 


W przykładzie 15 wystąpiła potrze- 
ba zmiany operatora relacyjnego, za- 
stosowanego w programie z przykła- 
du 12. Operator > = zastąpiono ope- 
ratorem < w celu umieszczenia ins- 
trukcji 

x : = — x 

w odpowiednim miejscu. Ten sam 
efekt można uzyskać stosując jeden z 
operatorów logicznych tj. operator 
negacji NOT. Instrukcja warunkowa 
w programie z przykładu 15 przyjęła- 
by wówczas postać: 

IF NOT x = 0 THEN x: = — x 
Oprócz operatora NOT w PASCAL-u 
dostępne są ponadto operatory lo- 
giczne OR (logiczne lub) oraz AND 
(logiczne /) umożliwiające składanie 
warunków złożonych z warunków 
prostszych. Sposób wykorzystania 
operatora logicznego AND przed- 
stawiono w przykładzie 17 zawierają- 
cym program sprawdzania czy punkt 
o zadanych współrzędnych leży w po- 
lu prostokąta określonego jak na ry- 
sunku 6. 


Przykład 17 

PRDGRAM progi?; 

VAR 

xl,yl,x2,y2, 

x,y:real; 

BE6IN 

NRITELN; 

NRITELNCPODAJ WSPÓŁRZĘDNE PUNKTOki:’); 
NRITELNI’ (xl,yi), (x2,v2), (x,y)’); 
READIxl,yl,x2.y2,x,v); 

NRITELN; 

NRITELNC PUNKT 0 WSPÓŁRZĘDNYCH’); 

nriteln(’x=’,x>’ y=’iył; 

IF (x>=xl) AND (x<=x2) AND (y>=yl) 

AND (y(=y2) THEN 
NRITETLEZY N POLU PROSTAKATA’) 

ELSE 

NRITE ( ’ NIE LEŻY N POLU PROSTOKĄTA’); 
END. 


Sposób wykorzystania operatora lo- 
gicznego OR zamieszczono w przykła- 
dzie 18, zawierającym program obli- 
czania wartości funkcji 

f 2 dla x<-2 lub x>2 
H*) - |2x dia -2<x<2 


której przebieg zobrazowano na ry- 
sunku 7. 


Przykład 18 

PROGRAM proclB; 

VflR 

i x,N:rea!; 

BEbIN 
KRI TEIN; 

HRITELN'1’ PODAJ KAR T 3SC x’){ 

READ(x) ; 

WRI7ELN* 

MRITElŃI^ARTOSC fUNKCJI DLA x='.xl{ 
IF (x<-2) OR (x>2> THEN 
k:= 5 
ELSE 
*:=2lxj 

NRITE(’ .WNOSI '.ul: 

END. 


Podobnie jak w przypadku wyra- 
żeń arytmetycznych przy obliczaniu 
warunków (stwierdzaniu, czy warun- 
ki są spełnione) obowiązują reguły 
pierwszeństwa realizacji. Są one na- 
stępujące: 

— warunki w nawiasach obliczane są 
w pierwszej kolejności, 

— najwyższy priorytet spośród ope- 
ratorów logicznych ma operator 
NOT, 

— operator AND ma pierwszeństwo 
przed operatorem OR. 

Wszystkie przytoczone dotychczas 
programy charakteryzują się możli- 
wością jednorazowego wykonania 
opisanych w nich akcji. Powtarzanie 
tych akcji jest możliwe jedynie po- 
przez kolejne wykonania progra- 
mów. Powtórzenie tych samych akcji 
przy jednokrotnym uruchomieniu 
programu byłoby możliwe poprzez 
powielenie wszystkich instrukcji opi- 
sujących daną akcję. Jest to działanie 
nieefektywne, ponieważ liczba żąda- 
nych powtórzeń często nie jest zna- 
k na. 

W języku PASCAL istnieje możli- 
wość opisania w bardzo prosty spo- 
sób nieskończonego powtarzania 
czynności. Na takich samych zasa- 
dach, jak dla instrukcji złożonej moż- 
na zbudować powtarzalną sekwen- 
cję instrukcji (rys. 8). 

W odróżnieniu od instrukcji złożo- 
nej, instrukcje występujące pomiędzy 
słowami kluczowymi REPEAT — UNTIL 
false powtarzane są nieskończoną 
ilość razy. 

W przykładzie 19 zamieszczono 
program naśladujący działanie pro- 
stego kalkulatora umożliwiającego 
wykonanie dodawania, odejmowa- 
nia, mnożenia i> dzielenia dwóch 
liczb. 



Ły t xUJ. y.s Has li.d ostu i.UuU. . 1 


ltlrukc|a zlszona 

intlrukc|a pełli 

|TE~GTf) j 

instrukcja! ; 

--J^FTTFTAT 1 

instrukcjal; 

instrukcjaż: 

instrukcjaż; 

insirukcjan; 

insirukcjan: 

rrron ]~ - 

-finmrTalse; | 

Rvs. 8. Instrukcja rloznna 

i iteracji 



Przykład 19 


PROGRAM prool 9 ; 

VAR 

znaH,:nak2:stnng[2]; 

1 1 czbal , lśczbaZ, 

*yn:k:real! 

8 EbIN 

KRITELN} 

REPEAT 

FEADU iczbai.znaki, Iiczba 2 , 2 nak 2 > s 
IF znaki*’ +' THEN 
wynil::=hczbal*!ic:ba 2 : 

F znaki*’ -’ THEN 
wynik:=l'.cz 0 al-liczba 2 : 

IF zraH*’ *’ THEN 
Nynik:*!:czba!*lic:ba 2 ; 

IF znaki*' /’ THEN 
n/n;k:=licztai/!ic!ba 2 ; 

IF Uznakl*’ ♦’) OR iz^akl*’ OR 
(znaki*’ i M OR (znaki*’ /’1J 
AND fzrakZ*’ =’) THEN 
NRl T E(Hvnifcl 
ELSE 

IF ((zr.akio’ *•! AND ( znaHO’ 

(znaH< Nł t’» AND (znaklO’ /’)) 

OR (IznaW.” Sr») AND i z nak 2 <>’ KM> T HEN 


NRiTE^merozcoznana operacia’1; 
END; 

KPITELN; 

UNTIL Tahe; 

END. 


Z konstrukcji programu wynika, że 
akcje naśladowanego kalkulatora bę- 
dą wykonywane wielokrotnie. Każda 
akcja polega na wprowadzeniu licz- 
by, operatora, drugiej liczby oraz 
znaku równości. Ze względu na 
właściwości dotychczas poznanych 
instrukcji wprowadzania danych po 
każdej liczbie i operatorze konieczne 
jest wprowadzenie spacji. 

Nietrudno zauważyć, że nasz kal- 
kulator nie da się wyłączyć — działa- 
nia programu nie możemy bowiem 
przerwać. 

Wykorzystana instrukcja REPEAT 
— UNTIL false jest szczególnym 
przypadkiem instrukcji iteracji 
przyjmującej postać: 

REPEAT 

instrukcja 1; 

instrukcja 2; 

instrukcja n; 

UNTIL warunek 


Sekwencja instrukcji zawarta mię- 
dzy słowami kłuczow 7 mi REPEAT 
— UNTIL jest powtarzana tak długo, 
jak długo warunek występujący po 
UNTIL nie jest spełniony. Spełnienie 
warunku — sprawdzane każdorazo- 
wo po wykonaniu ostatniej instrukcji 
sekwencji — powoduje zakończenie 
realizacji instrukcji iteracji. Wynika 
stąd, że sekwencja instrukcji: 

instrukcja 1 ; 
instrukcja 2; 


instrukcja n; 

zostanie wykonana co najmniej raz. 
W szczególnym przypadku warunek 
może być określony jako wartość lo- 
giczna: 

— false — oznaczająca niespełnie- 
nie warunku, 

— true — oznaczająca spełnienie 
warunku. 

Zatem instrukcja: 

REPEAT ... UNTIL false 
nie zakończy się nigdy, a instrukcja 
REPEAT ... UNTIL true 
jest równoważna instrukcji złożonej. 

Instrukcję iteracji wykorzystano w 
programie z przykładu 20 rozszerza- 
jąc program naśladujący działanie 
kalkulatora o możliwość wyłączenia 
kalkulatora w przypadku wciśnięcia 
klawisza k zamiast dowolnego opera- 
tora. 


Przykład 20 


PROFAN pro$29; 

m 

ZMkl, 2 MK 2 ;st r ingl 21 ; 

Uczbal,liczba2, 
wynik :real; 

BE&Ilt 

HS1TEL1; 

REPEAT 

READ < ł i czbal . zr ak 1 , 1 1 czba2, ZMk2) j 
IF 2MH=’ THE* 

•yni k:=l iczbal+1 iczba2; 

IF znaKJ 5 ’ TR» 
»wńk:=liczbał-liczba2; 

IF znakl=' t’ THEN 
*yiuk: 5 lirzballliczoa2; 

IF znaki 5 ' /' THEN 
wyni k:=l i czbal /! i czba2: 

IF ( (znaki 5 ’ ♦’) CR iznaki 5 ’ -’) OP 
(znaki 5 ' IM Oft (znak! 5 ’ /'» 

AM <znak2=’ =M THE* 

KRITE (wynik) 

ELSE 

IF (znaklO’ ♦’> AM IznaklO' -’) AND 
(znaklO’ 1*1 AM (znaklO’ /') AND 
CznaklO’ k’) AND (znaKO’ KM AND 
(zi*ak2v >' kM m (znak2<>' KM THES 
BEB1N 
NRITELN; 

MPITEt 'nierozpoznana operacja'); 

EMO; 

MSI TEIN; 

UNTIL (znak! 5 ’ k') DR (znaki 5 ’ KM 
OR Iznak2 5 ' kM OR Iznak2=’ KM; 

WITE ('WŁĄCZENIE KALKULATORA’); 


Instrukcja iteracji jest bardzo wa- 
żnym elementem języka programo- 
wania. Dlatego też kolejne cztery 
przykłady poświęcone są jej wykorzy- 
staniu. Dotyczą one znanych zagad- 
nień matematycznych. Rozważmy 
problem obliczania wartości szeregu: 



1 + x 



i zadaną dokładnością. Można go 
rozwiązać przez dodawanie do siebie 
kolejno obliczonych wartości wy- 
razów szeregu. Należy przy tym za- 
uważyć, że: 

— wartości kolejnych wyrazów sze- 
regu można w'yznaczyć z zależności: 


a 


i = a„ 


x 

n + 1 


przyjmując, że ae = 1 (a n — n-ty wyraz 
szeregu), 

— o dokładności obliczeń decyduje 
wartość ostatnio obliczonego wyrazu 
szeregu. 

Program obliczania wartości podane- 
go szeregu zamieszczono w przykła- 
dzie 21. 


Przykład 21 


PfttfcMfl prog21; 

m 

n, (ntiłcf »yra;j «ereg«ł/ 

s, iHrtiwc sieregt) 

p, {wtosc kolejnego ityraru} 

eps, ttckla'"^ 6 ': wliczeni 

*:real; 

BE6IN 

5:=0; 

PjfJ; 

REftDU.esjs); 

REPEAT 
s: =s*p; 

*:=n*t; 

p:=plx/(n+l); 

UNTIL absip)< 5 e?s; 

NR1TFLM* 

wrtosc szereęy dla z 5 ’, z); 
NRiTELNPccliczona z doklacnoscw eps 5 ’ 
epsl; 

WRITEC^iiyrosi s=’,s); 

ENB. 


Równie popularnym zadaniem jest 
wyznaczenie miejsca zerowego funkcji 
f (x) w zadanym przedziale. W praktyce 
najczęściej kreśli się funkcję 


i szacuje w przybliżeniu jej miejsce ze- 
rowe. Niżej przedstawiono dwie meto- 
dy wyznaczania miejsca zerowego 
funkcji w zadanym przedziale wykorzy- 
stując twierdzenie: 

Jeżeli f(x) jest funkcją ciągłą w 
przedziale [xr. x 2 ] / jeśli i(Xj) i f(x?) są 
przeciwnego znaku, to w przedziale 
[xi, x 2 J istnieje co najmniej jeden pier- 
wiastek rzeczywisty”. 

Pierwsza metoda, tzw. metoda po- 
łowienia przedziałów, pozwala przy 
zadanym przedziale początkowym 
[xi, X 2 j określić przedział, w którym 
znajduje się miejsce zerowe funkcji 
f(x) z dokładnością eps. Postępując 
zgodnie z tą metodą (jej ideę ilustruje 
rysunek 9) dzielimy przedział [x,, x 2 ] 
na połowy i w wyznaczonym środku 
przedziału obliczamy wartość funkcji 

fs 


Następnie badamy czy wartość 
funkcji w wyznaczonym punkcie 
zmieniła znak względem f(x\). jeżeli 
tak, to zawężamy przedział do [xi, xs], 
jeżeli nie, to zawężamy do [xs, x 2 ] 

v _ Xi + x 2 
As 2 

Po zbadaniu warunków dokład- 
ności wyprowadzamy wyniki (jeśli są 
spełnione) albo powyższe czynności 
powtarzamy. W przykładzie 22 zamie- 
szczono program określenia prze- 
działu, wykorzystujący metodę poło- 
wienia przedziałów, w którym znaj- 
duje się miejsce zerowe funkcji: 

f(x) = —x 3 + 2 x 2 +9 


z żądaną dokładnością, przy zadanym 
przedziale początkowym. 


y = f(x) 


Przykład 22 


pfołj22; 

m 

*1, Mo* na garnca arzefciałj) 

* 2 , {jarna g^anzci pr:e«Jzia!u) 
ks, 'srodeV p r :ea:ialu) 

< 1 , -.*a r tc%c fjrkrji ¥ * 1 ) 
fs, (łrirłosc fjKkiji * xsJ 
?ps:real; MoKładrcsc ooiicreRł 
BEolS 
K*! T £IN; 

WITELN''po3aj jrarice or:edz:alu’, 

’ : dct.łSnasc obliczeń’); 
R£A3f>:l,x2,«!3 ; 

►mAT 

fs:=-S&ł{«>l*?v2tSW(xs!+9; 
iU =-SCM ? ! » H i*2iS3RCr ! ■ *9; 

IF 'WsOO r *£¥ 

JF fil*s<0 T «E»» 

52:=*s 

ŁSE 

K6W 

łt:=ts; 

x!:=*s; 

©ffi: 

j«til iabs;s:-*2k=??3s) 3» <fi**s=o»s 

KSITELN; 

łfitlTElHezraleziofle ysnice P r :«zial5.:’>; 
«!TElIH’x 1 = -icił:' 
łffiIT£(W2 = ’ f >2>; 

EW. 


Wykorzystana w programie funkcja 
SQR oblicza kwadrat podanego 
argumentu (xs lub x t J, a funkcja ABS 
— wartość bezwzględną argumentu. 
Idea drugiej metody została zilustro- 
wana na rysunku 10 (jest to tzw. me- 
toda Newtona). 

Rozpoczynając od zerowego 
przybliżenia x 0 , kolejne x, wyzna- 
czamy przez wykreślenie: 

a) linii pionowej x = Xq aż do prze- 
cięcia z krzyw ą y = f(x) — w ten spo- 
sób wyznaczony został punkt p 0 , 

b) stycznej do krzywej y = f(x) w 
punkcie p 0 aż do przecięcia z osią x w 
punkcie x,. 

Powtarzając opisane czynności, 
otrzymujemy ciąg przybliżeń x 0 , x v 
x 2 ,—, którego granica 


lim x i = x 
i — oc. 


jest poszukiwanym miejscem zero- 
wym funkcji f(x). Z rysunku 10 wyni- 
ka, że tangens kąta nachylenia sty- 
cznej poprowadzonej przez punkt p 0 
jest równy 


tgar = 




-- f(xj 


jeżeli został spełniony warunek 
f'( x 0 ) 5* 0, to otrzymujemy 


x, = x 0 — 




Ogólny wzór na kolejne przybliże- 
nie miejsca zerowego funkcji ffxj ma 
następującą postać: 


X,i 



dla i = 0 , 1 , 2 ... 


Wzór ten jest słuszny przy założe- 
niu, że f(x,) *= 0, a zatem w niektórych 
przypadkach metoda Newtona za- 



wodzi (należy więc wybrać nowy 
punkt startu). 

Metodę Newtona wykorzystano do 
wyznaczenia miejsca zerow ego funk- 
cji 


f(x) = x* — 0,5 x J — 30 


z zadaną dokładnością i punktem 
startu (przykład 23). 


Przykład 23 

PRG8RAN aroa23; 
m 

ii (punkt aktualny} 

xt, [punkt kolejny) 

eps, (zadana dokładność oblicze.!} 

k<n. {kwdrat i} 

<5ok:b:real: tbiezaca dokładność obliczeń) 
n, Cufcsyulna liczba krokwi} 

ińnteoer; {licznik krakc*} 

SE61N 

W1TELH: 

WITfcJłrpoda.? zerowe orzybl izenie, 

’ dokładność obliczeń’); 

WITELKCi eaksywłna ilosc IrakaT); 
ftEADfo ,eps,n); 

fekM ‘ 

km:=atx; 

rt:«X’f*vxt!fc»-C.5lx)-30i/ 

{fcnll«t>-1.5U: 

ćok!b:=ABS(trł:-x)/(v); 

!F dotIb>eps T HEk 
SESIN 

*:=*k; 

:;=i+l; 

tHŁ; 

UN7IL (ćokłb'=eps) CR (i=fi): 

WITEJ; 

WITElN ł ‘*iejsce zerowe funkcji 
WITECwznaczcne u i=’.i,' krokach'): 
EW. 


W przypadku żądania dużej dokład- 
ności obliczanie przedstawionego 
programu może trwać zbyt długo, a 
dla niektórych przedziałów zmien- 
ności funkcji może się w ogóle nie 
zakończyć (uwaga ta dotyczy wszyst- 
kich problemów tego typu). 

Dobrze skonstruowany program 
powinien zawierać górne ogranicze- 
nie liczby wykonywanych powtórzeń. 


Liczba powtórzeń (maksymalna licz- 
ba powtórzeń) jest liczbą całkowitą. 
W języku PASCAL istnieje możliwość 
deklarowania zmiennych przyjmują- 
cych wartości całkowite. W progra- 
mie prog23 zostało to wykorzystane 
do deklaracji licznika kroków (i) oraz 
maksymalnej liczby kroków (n). 

Rozważmy teraz problem oblicza- 
nia całki oznaczonej 

b 

/ f(x) dx 

a 

Obliczenie takiej całki jest proste, 
gdyż f(x) jest funkcją elementarną. W 
przypadkach, gdy nie udaje się łatwo 
wyznaczyć funkcji pierwotnej, stosu- 
jemy metody obliczania przybliżonej 
wartości całki oznaczonej. Jedną z ta- 
kich metod jest metoda prostokątów. 
Ideę metody prostokątów ilustruje ry- 
sunek 11. 

W metodzie tej przedział całkowa- 
nia od a = x 0 do b = Xn dzieli się na n 
równych części punktami x„ x 2 ,..„ x„. 
Następnie oblicza się wartość funkcji 
podcałkowej w punktach 

Xi — Xj i 

2 dla i £[1,n]. Wartość 

całki jest sumą pól prostokątów utwo- 
rzonych jak na rysunku 11. Można ją 
zatem wyrazić wzorem: 

D n 

J f(x) dx ~ h • I f (Xi) 

gdzie: 

n — liczba podprzedziałów. 



xj = a + (j— ~)h 

Przykład 24 przedstawia program 
obliczania całki 
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b 

J(inx + Sx) dx 
a 

metodą prostokątów. Przyjęto w nim, 
że kolejne przybliżenia całki są obli- 
czane (przy podwojonej każdorazo- 
wo liczbie podprzedziałów) dotąd, aż 
bezwzględna wartość różnicy między 
dwoma kolejnymi przybliżeniami 
będzie co najmniej równa wymaga- 
nej dokładności obliczeń. Wprowa- 
dzono również ograniczenie ilości 
wykonywanych powtórzeń. 

Przykład 24 


prog24; 

VHK 

i, (dolna granica przedziału całkowania) 

b, (górna Dranica przedziału całkowania) 

epstreal; (dokładność obliczeń) 
nsinteger: (liczba pcdprzedzialow) 
h. (5zerok:osc podprzedziału) 
wl, (wartość całki z kroku poprzedniego) 
w2, (aktualna wartość całki) 
x, ( z*ienne ) 

isreal; ( robocze ) 

BEGIN 

HR1TELN' 

NRITELN(’P0DAJ:-dołna granice przedzi’, 
’alu całkowania’); 

T ’:6, '-górna gran: 

’alu całkowania’): 

NRITELNC ’:6, '-dokładność obliczeń’); 

READ(a,b,eps); 

n:=l; 

h:=b-a; 

x:=a+łi/2; 

w2:=LNtx :+5tx; 

REPEAT 

n:=2tn; 

h:=łi/2; 

wl:=w2; 

. w2:=0: 

x:=a*n/2; 

repeJt 

w2:=w2+LNlx)ł5t)ij 

x:=x+h; 

i:=i+l: 

UNTIL i)n; 
w2:=w2lh; 

UNTIL ABS(w2-wlł<=eps; 

NR1TELN; 

ŃRITELNI 'wartość całki dla funkcji 
’F(X) s LNlXł+5tX , )j 
NRITELNCw przedziale ’,a,’ -’,b): 
NR!TELNCwync 2 ona z dokładnością *,eps); 
NRITEl' wynosi ’,w2); 

ENC. 
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Obok instrukcji REPEAT w języku 
PASCAL występuje druga instrukcja 
iteracji przyjmująca postać: 


IwhileI warunek IdÓI instrukcja 7 


Powoduje ona, że instrukcja 7 wy- 
konywana jest tylko wtedy, gdy wa- 
runek jest spełniony i tak długo, jak 
długo jest on spełniony. Oznacza to, 
że przed każdym wykonaniem in- 
strukcji 1 następuje sprawdzenie wa- 
runku. Niespełnienie warunku po- 
woduje zakończenie powtarzania 
realizacji instrukcji 7. Przykład wyko- 
rzystania instrukcji WHILE zamie- 
szczono w programie prog25, wy- 
znaczającym największy wspólny po- 
dzielnik dwóch całkowitych liczb 
dodatnich. 


Przykład 25 

PROERAN proq25: 

W, 

x,y:real; 

beŁin 

NR I TEIN ('PODAJ x I y’): 

READ(x,y)j 

NRITELN; 

HR I TEIN ( ’ NAJMIĘKSZY WSPÓLNY’. 

'PODZIELNIK LICZB’); 
NRITELN(’x =’,x:5:0,’ y -’.y:5:G): 
NKłLE x<>y DC 
IF x>y ThEN 


NrIteMSnOSI ’.x:5:0); 
END. 


Uwaga! Jeśli przed wykonaniem 
instrukcji WHILE warunek nie jest 
spełniony, to instrukcja 1 nie jest w 
ogóle wykonywana. 



Dotychczas poznane instrukcje 
wyczerpują zbiór najczęściej wyko- 
rzystywanych instrukcji języka PAS- 
CAL. Jednak o użyteczności języka 
decydują nie tylko dostępne instruk- 
cje, ale także dostępne dla programi- 
sty typy danych. Występujące w 
przedstawionych wcześniej przykła- 
dach typy string, reat i integer należą 
do grupy typów prostych. Oprócz 
nich w języku PASCAL istnieją rów- 
nież typy strukturalne, umożliwiające 
opis obiektów, traktowanych jako 
zbiory wartości typów prostych i 
strukturalnych. Typy strukturalne są 
szczególnie przydatne w systemach 
gromadzenia, przechowywania i 
przetwarzania dużych ilości informa- 
cji. Podstawową cechą takich syste- 
mów jest możliwość logicznego gru- 
powania danych. Najprostszą kon- 
strukcją języka PASCAL, pozwalającą 
na grupowanie danych jest rekord. 
Rekordy umożliwiają opisywanie 
obiektów, które można scharaktery- 
zować wieloma cechami. Przykładem 
takiego obiektu może być opis mi- 
krokomputera dostępnego na rynku 
krajowym. Przyjmując dla uproszcze- 
nia, że zawiera on 20-znakową nazwę 
mikrokomputera, 12-znakową nazwę 
firmy produkującej mikrokomputer 
oraz minimalną cenę mikrokompute- 
ra (w tys. zł), „rynkowy” mikrokom- 
puter można opisać następująco: 

RECORD 

nazmik: string [20]; 
firma: string [72]; 
cenamin: inieger 

END 

gdzie: 

nazmik, firma, cenamin — nazwy 
składowych rekordu zwanych polami, 
RECORD, END — para słów kluczo- 
wych, oznaczających definicję rekor- 
du. 

Definicja rekordu może wystąpić 
jako element definicji typu zmien- 
nych przyjmującej postać: 

TYPE nazwa typu = określenie typu 

Jeżeli określenie typu będzie defi- 
nicją powyższego rekordu, a nazwą 
typu będzie o pmikrok, to definicja 
typu przyjmie postać: 


TYPE opmikrok = RECORD 
' nazmik: string [20]; 

[ 12 ]; 

cenami rr. integer 

END 

Definicja ta umożliwia deklarowanie 
zmiennych np. według formuły 

VAR rl, r2, r3: opmikrok; 

W tym przypadku każda zmienna 
opisuje inny mikrokomputer. Sposób 
odwoływania się do pól zmiennej re- 
kordowej przez tzw. nazwy kwalifi- 
kowane wyjaśnia przykład 26. 

Przykład 26 

TYPE opflikrok=RECORD 

nazsik:string[20]; 

łir*a:stnngCl21j 

cenanin:integer 

END; 

VAR 

rekroptikrok; 

x:stnngt203; 

BEGIN* 

rek.nazBi!::=’Af!STRAD ! ; 

rek.łirBa:=’BEAB’; 

rek.cenaBin:=750; 

xs=rBk.nazflik; 


Po wykonaniu przedstawionej se- 
kwencji instrukcji poszczególnym po- 
lom zmiennej rek zostaną przypisane 
wartości. Zmienna x (typu takiego jak 
pole nazmik) przyjmie wartość 
AMSTRAD. 

Przedstawiony sposób odwoływa- 
nia się do pól zmiennej rekordowej 
może być uciążliwy (zwłaszcza, gdy 
jest ich dużo lub są tó pola typu struk- 
turalnego), gdyż każde pole musi być 
poprzedzone co najmniej nazwą 
zmiennej. Wygodniejszy dostęp do 
pól zmiennej rekordowej umożliwia 
instrukcja WITH, zwana instrukcją 
wiążącą lub instrukcją dostępu. Poz- 
wala ona na odwoływanie się do pól 
zmiennej rekordowej bezpośrednio 
przez nazwy pól, przy jednokrotnym 
podaniu nazwy zmiennej rekordo- 
wej. Wykorzystując instrukcję WITH, 
fragment programu z przykładu 26 
można zmodyfikować tak jak poda- 
no w przykładzie 27. 

Przykład 27 

TYPE epBikrok=RECGRD 

nazBik:stringC201; 
tir9a:stringil21; 
cenaflin: integer 
END; 


VAR 

rek:op§ikrck; 

x:string[201; 


BEGIN 

WITH rek DO 
BEGIN 

nażiik:=’ AMSTRAD’; 

fir*a:=’BEAB’j 

cenaain:=750; 

x:=nazaik; 

END;” 

W praktyce występuje konieczność 
gromadzenia danych o identycznej 
strukturze, których liczba nie jest z 
góry określona i może się zmieniać w 
czasie. W języku PASCAL podstawo- 
wą konstrukcją o takich właściwoś- 
ciach jest plik — sekwencja danych o 
nieokreślonej długości, przechowy- 
wanych w pamięci zewnętrznej {np. 
dyskowej). 

Definicja pliku przyjmuje postać: 

TYPE nazwa pliku = FILE OF nazwa 
typu elementu. 

Przykładowa definicja pliku zawie- 
rającego rekordy opisujące mikro- 
komputer jest następująca: 

TYPE zbopmk — FILE OF opmikrok; 

Z definicją typu nie wiąże się żadna 
fizyczna reprezentacja. Jest to bo- 
wiem informacja o strukturze zmien- 
nych, którym przypisano w deklaracji 
ten typ. W deklaracji: 

VAR z bl, zb2,: zbopmk; 

powołuje się dwie zmienne zbl, z 62 
reprezentowane jako pliki — zbiory 
rekordów typu opmikrok. 

Z plikami związane są operacje: 

— tworzenia pliku, 

— otwarcia pliku, 

— zamknięcia pliku, 

— dopisania nowego elementu do 
pliku, 

— odczytu bieżącego elementu z 
pliku, 

— zmiany bieżącego elementu 
pliku, 

— kasowania pliku, 

— zmiany nazwy pliku. 

Operacje te zostaną omówione w 

trakcie rozwijania programów 
wkomponowanych w prosty system 
obsługi domowej biblioteki obejmu- 
jący: 

— zakładanie kartoteki (pliku) opi- 
sów pozycji, 

— dopisywanie nowych opisów po- 
zycji do kartoteki, 

— wypisywanie zawartości kartoteki, 

— kasowanie wskazanych opisów 
pozycji z kartoteki. 

Przed omówieniem poszczegól- 
nych programów niezbędne jest 
krótkie wyjaśnienie niektórych ter- 
minów związanych z operacjami na 


plikach. W systemie TURBO PASCAL 
przyjęto, że nazwa pliku nie jest iden- 
tyfikatorem zbioru danych w pamięci 
zewnętrznej. Zatem przed wykona- 
niem jakiejkolwiek operacji na pliku 
niezbędne jest dowiązanie do nazwy 
pliku nazwy zbioru w pamięci zewnę- 
trznej z zawartością pliku. Rozwiąza- 
nie to realizuje instrukcja 

ASSIGN (nazwa pliku, 'nazwa zbioru') 
gdzie: 

nazwa pliku — nazwa zmiennej pli- 
kowej (np. zbl), 

nazwa zbioru — nazwa zbioru w pa- 
mięci zewnętrznej z zawartością pli- 
ku (nazwa ta jest łańcuchem znaków 
o postaci przyjętej dla zbiorów robo- 
czych edytora — patrz „Dodatek"). 

Po wykonaniu ASSIGN wszystkie 
operacje na pliku są wykonywane na 
przypisanym mu zbiorze. 
Przykładowo: 

ASSIGN (księgozbiór, 'bibldom') 

powoduje dowiązanie zbioru o na- 
zwie bibldom do pliku o nazwie księ- 
gozbiór. 

Tworzenie nowego pliku (utwo- 
rzenie pustego zbioru w pamięci ze- 
wnętrznej) realizowane jest za po- 
mocą instrukcji 

REWRITE (nazwa pliku) 

REWRITE tworzy w pamięci zewnę- 
trznej zbiór o nazwie podanej w 
ASSIGN i udostępnia do zapisu pier- 
wszy element pliku. Jeżeli zbiór o 
podanej nazwie już istnieje w pamię- 
ci zewnętrznej, to jest on kasowany. 
Po wykonaniu REWRITE plik jest pu- 
sty, tzn. nie zawiera żadnych elemen- 
tów. 

Po wykorzystaniu pliku należy go 
zamknąć (przygotować do przecho- 
wywania i ponownego wykorzysta- 
nia) za pomocą instrukcji: 

CLOSE (nazwa pliku) 

Program zakładania pustej kartote- 
ki opisów pozycji biblioteki domowej 
przedstawiono w przykładzie 28. 

Przykład 28 

PR06RAM croq26; 

TYPE 

pozbibł=RECORD 

autor:stringE353; 
tytu!:string(50]; 
rokwyd, 
nrkat: integer 
END: 

zhbibl=FILE OF oozbibl; 

VAR 

ksiegozbiorizhbibl; 

BEGIN 

ASSISN(ksiegozbior,'bibIdoB’k 

RENRITE (księgozbiór) ; 

CLGSE(ksiegozbior); 

END. 

W kolejnym przykładzie zamie- 
szczono program dopisywania rekor- 
dów na koniec założonej kartoteki. 


Wykorzystano w nim instrukcje 
umożliwiające zmianę bieżącego 
(zapisywanego lub odczytywanego) 
elementu pliku. Instrukcja: 

SEEK (nazwa pliku, numer elementu) 

powoduje, że element o wskazanym 
numerze staje się elementem bieżą- 
cym (numer elementu liczony jest 
od zera). W celu uniknięcia konie- 
czności poszukiwania ostatniego 
elementu pjiku można wykorzystać 
funkcję 

FILESIZE (nazwa pliku), 

której wartością jest liczba rekordów 
pliku. 

Instrukcja: 

SEEK (nazwa pliku , FILESIZE (nazwa 
pliku)) 

spowoduje, że elementem bieżącym 
staje się nowy, pusty element umie- 
szczony na końcu pliku. Zapis do bie- 
żącego elementu pliku realizuje in- 
strukcja 

WRITE (nazwa pliku, nazwa zmiennej) 

przy czym nazwa zmiennej określa 
zmienną, której wartość jest zapisy- 
wana do bieżącego elementu pliku. 
Typ zmiennej musi być zgodny z ty- 
pem elementów pliku. 

Otwarcie istniejącego pliku jest 
wykonywane przez instrukcję. 

RESET (nazwa pliku) 


READLN (tytuł)"; 

HRITELNr podaj rok wydania 1 ); 
READLN(rokwyd); 

WRITELNC nadai nuier katalogowy 7 J ; 
READLN(nrkat); 

END: 

KRI TE (księgozbiór, rek); 

HRITELNCczy wprowadzasz następna 
'pozycje? (T/N) ’ ) ; 

REPDLN (znkon) ; 

IINTIL !znkon=’Ń’ ). OR (znkon =, n’)j 
CLOSE(ksiegozbior); 

END. 

W uzupełnieniu do przykładu 29 na- 
leży dodać, że program prog27 może 
być wykorzystywany wielokrotnie 
bez względu na zawartość kartoteki. 
Przy jednokrotnym uruchomieniu 
programu można dopisywać do kar- 
toteki dowolną liczbę opisów pozycji. 

Istotnym elementem systemu gro- 
madzenia informacji jest możliwość 
przeglądania zawartości kartotek. 
Program przeglądania naszej kartote- 
ki zamieszczono w przykładzie 30. 
Wykorzystano w nim instrukcję: 

READ (nazwa pliku, nazwa zmiennej) 

powodującą przypisanie zmiennej 
nazwa zmiennej wartości bieżącego 
elementu. Podobnie, jak dla instruk- 
cji WRITE, powinien być spełniony 
warunek zgodności typów. Ponadto 
wykorzystano funkcję logiczną: 

EOF (nazwa pliku) 

której wartością jest true, jeżeli bie- 
żący element jest ostatnim elemen- 
tem pliku, false — w przypadku prze-r 
ciwnym. 

Przykład 30 


Należy przypomnieć, że instrukcja 
REWRITE nie może tu być wykorzy- 
stywana, bowiem niszczy ona do- 
tychczasową zawartość pliku. Instru- 
kcja RESET może być używana tylko w 
odniesieniu do już istniejących pli- 
ków. W wyniku wykonania RESET 
elementem bieżącym staje się pier- 
wszy element pliku. 

W szczególnym przypadku jest on 
pusty. 


Przykład 29 

PRD6RAM prog27; 

TYPE 

pozbibl=RECORD 

autor: string[351; 
tytuł :stnngt 501; 
rokwyd, 
nrkatnnteger 
END; 

zbbibI=FILE 0F pozbibl; 

VAR 

ksiegozbi or: zbbi bł ; 

rek: pozbibl ; 

znkonrstringCll; 

BEGIN 

ASSIGNłksiegozbior , 'bibldon’ > ; 

RESET (księgozbiór) : 

SEEK (księgozbiór, ► I LES I ZE ! ks i egoz b i or ) ) ; 


WITH rek DO 
BE6IN 

HRITELNC podaj nazwisko i i nie autora’, 
’ (do 35 znaków)'); 
READLN(autor); 

HWTELNr podaj tytuł książki’, 

’ (do 50 znaków)’); 


PROGRAM proq29; 

TYPE 

po:hibl=SEC0RD 

autor : str ing E353 : 
tytul:stringt50]; 
rokwyd, 
nrkatnnteger 
END; 

zbbibl=FILE DF pozbibl; 

VAR 

ksiegozbiorszbbibl ; 
rekjpozbibl; 

IpossstnngU]; 

BEGIN 

ASSI6N (księgozbiór, 'Dibldo*'); 

RESET (księgozbiór); 

CLRSCR; 

MILE NOT EDF( księgozbiór) DO 
BEGIN 

READ ( ksi ecczb i or . r ek ) ; 

WITH rek DO 
BEGIN 

KRI TEIN ('AUTtiR: autor); 

NRI TELN t ’ TYTUŁ: tytuł); 

WRITELN ( ' RGK N V DANIA: rokwyd); 

NRITELN(’NUHER KATALOGOWY: ’,nrkat); 
END; 

HR1TELN! ’ =======================’ 


NRITELN; 

NRITELN (’ J :20,’- VERTE -’); 

READ(lpoa); 

CLRSCR; 

END; 

CLOSE(ksiegozbior); 

END. 

Ponieważ zawartość całego pliku 
może* się nie zmieścić na ekranie, 
program prog28 został tak skonstru- 
owany, że wyświetlenie kolejnej po- 
zycji uwarunkowane jest wciśnięciem 
klawisza ENTER. 


W 'kolejnym przykładzie żarnie-* 
szczono program umożliwiający ka- 
sowanie wskazanych opisów pozycji 
kartoteki. 

W programie zastosowano bardzo 
prostą metodę usuwania opisów. 
Usunięcie jednego opisu powoduje 
przepisanie wszystkich pozostałych 
opisów do pomocniczego zbiorki 
zbpom (rysunek 12). V-\z 

Następnie kasowany jest zbiór 
bibldom, a zbiór zbpom przyjmuje 
nazwę bibldom. W programie wyko- 
rzystano dwie nowe instrukcje: u 

•; r q 

ERASE (nazwa pliku) 

t 

powodującą skasowanie zbioru zwią- 
zanego z plikiem oraz: 

RENAME (nazwa pliku, 'nazwa zbioru') 

zmieniającą nazwę zbioru związane- 
go z plikiem na nazwę nazwa zbioru. 
Obie powyższe instrukcje mogą być 
wykonywane tylko na plikach, które 
zostały uprzednio zamknięte za po- 
mocą instrukcji CLOSE. 


Przykład 31 

PROGRAM prog29; 

TYPE 

pozbibl=REC0RD 

autor :stringt35]; 
tytuł :stringC503; 
rokwyd, 
nrkatnnteger 
END; 

zbbibł=FILE 0F pozbibl; 

VAR 

księgozbiór, 
zbpon: zbbibl; 
rek:pozbibl;' 
idpozkas:stringi553; 
znkon: stnngtlJ; 

BE6IN 

REPEAT 

ASSIGNłksiegozbior, 'bibldon’); 
ASSIGN(zbpoB,’pon.dta’); 

RESET (księgozbiór); 

REWRITE i zbpon); 

NRITELN; 

WRITELNc podaj tytuł kasowanej pozycji’) 
READLN (ldpoz kas); 

WHILE NDT EOF (księgozbiór) DO 
BE6IN 

READ(ksiego:bior,rek); 

IF rek.tytulOidpozkaś THEN 
NRITE(zhpon,rek); 

END: 

CLOSE (księgozbiór); 

CLOSE łzbpoe); 

ERASE(ksiegozbior); 

RENAME !zbp08,’bibłdoi’); 

WRITELN; 

HRITELNCczy kasujesz następna pozycje?’ 
’ (T/N)’); 

READ(znkon) ; 

UNTIL (znkon=’N’) OR (znkon=’n’); 

END. 


IV » 

;;Jr* 

dri 


f- 


Pliki umożliwiają gromadzenie i 
przechowywanie danych w pamię- 
ciach zewnętrznych. Jest to ich nie- 
wątpliwą zaletą. Do wad plików mo- 
żna zaliczyć długi czas dostępu do ich 
elementów (ze względu na wymaga- 
ny kontakt z pamięcią zewnętrzną). 

Alternatywną formą deklarowania 
zbiorów danych w języku PASCAL są 
zmienne tablicowe. Nie mają one 
swojej reprezentacji w pamięciach 
zewnętrznych, przechowywane są w 
pamięci komputera i „giną" wraz z 


n 


zakończeniem programu. Liczba ich 
elementów jest z gór/ określona. Da- 
ne przechowywane są w postaci ta- 
blic jedno-, dwu- lub wielowymiaro- 
wych. 

Jednowymiarowa tablica, to ciąg 
ponumerowanych elementów, któ- 
rych wartości są tego samego typu. 
Dwuwymiarowa tablica, to ciąg wier- 
szy lub kolumn, z których każda liczy 
tyle samo elementów tego samego ty- 
pu. Rozmiary dwuwymiarowej tablicy, 
to liczba wierszy i liczba elementów 
w wierszu czyli liczba kolump. Za 
pomocą jednowymiarowych tablic 
opisujemy zwykle takie obiekty jak 
wektory, natomiast za pomocą tablic 
dwuwymiarowych — macierze. Po- 
nieważ nie przewidujemy przedsta- 
wiania problemów wymagających 
tablic o wymiarach większych niż 2, 
poprzestaniemy na omówieniu tablic 
co najwyżej dwuwymiarowych. 

Naturalnym sposobem opisu tablic 
jest notacja: 

a) ARRAY [7.. n] OF integer 

dla opisu tablicy jednowymia- 
rowej o n elementach typu inte- 
ger, 

b) ARRAY [7.. m, 1.. n] OF real 
dla opisu tablicy dwuwymiaro- 
wej o rozmiarach m x n i ele- 
mentach typu real. 

W przykładzie 32 zamieszczono pro- 
sty program nadawania wartości ele- 
mentom jednowymiarowej tablicy a. 

Przykład 32 

PR0F.R4K prng30; 

VAR 

a: ARRAY ii.. 6 3 OF intsger; 
i:intęger; 

SE6IN 

KRITELN: 

i:=l| 

NHILfc i <=fc DO 
BE6IN 
aCi3:=i : 

WRITELN (aEi 3); 
i:=i+l; 

END; 

END. 

Działania na elementach tablicy 
przeprowadza się*tak jak na zmien- 
nych typu zgodnego z typem ele- 
mentów tablicy. Każdy element tabli- 
cy jest identyfikowany jednoznacznie 
przez nazwę tablicy oraz tzw. indeks, 
określający pcłożenie elementów w 
tablicy, np.: 

a [i] — wskazywany przez war- 

tość zmiennej i element 
jednowymiarowej tablicy 
a. 

a [/ — 7] — wskazywany przez war- 
tość wyrażenia (i — 1), ele- 
ment jednowymiarowej 
tablicy a. 

. W przypadku, gdy indeks jest wy- 
rażeniem, wartość wyrażenia jest ob- 
liczana przed udostępnieniem ele- 
mentu tabiicy. Należy podkreślić, że 
bieżąca wartość indeksu musi mieścić 



się w przedziale wartości dopu- 
szczalnych dla tego indeksu (w pro- 
gramie prog30 — [7,10]). 

W przykładzie 32 do opisu powtarza- 
jących się czynności wykorzystano 
znaną już instrukcję WHILE. Nietrud- 
no zauważyć, że w tym przypadku 
stosowanie tej instrukcji nie jest zbyt 
wygodne. Konieczne jest bowiem 
ustalenie liczby powtórzeń operacji 
wykonanych w instrukcji WHILE 
oraz określenie warunku kończącego 
jej wykonanie. Warunek powinien 
być spełniony wtedy, gdy osiągnie się 
wymaganą liczbę powtórzeń. 

Nieprecyzyjne określenie warunku 
prowadzi do niepoprawnej liczby 
wykonanych powtórzeń (najczęś- 
ciej o 1 mniejszej lub o 1 większej od 
wymaganej). 

Do opisu czynności powtarzanych 
określoną ilość razy wygodniejsza jest 
instrukcja o postaci: 


i FORD : = pfrole (5ol instrukcja 7, 
gdzie: 

I — zmienna kontrolna (licznik 
powtórzeń), 

e, — wyrażenie określające po- 
czątkową wartość zmiennej kontrol- 
nej, 

e 2 — wyrażenie określające koń- 
cową wartość zmiennej kontrolnej. 

Zapis ten oznacza, że instrukcja 7 
wykonywana jest dla kolejnych war- 
tości zmiennej kontrolnej / od war- 
tości początkowej e, z krokiem 1 do 
wartości końcowej e 2 . Wartość 
zmiennej kontrolnej jest zmieniana 
automatycznie, zatem zmiana taka 
nie jest dopuszczalna w ramach in- 
strukcji 1. Zmienna kontrolna może 
być natomiast wykorzystywana jako 
argument w wyrażeniach, jeżeli takie 


występują w instrukcji 7. Przyjmuje 
się, że po wykonaniu instrukcji FOR 
wartość zmiennej kontrolnej jest nie- 
określona. 

W przykładzie 33 zamieszczono 
zmodyfikowany program prog31, w 
którym zamiast instrukcji WHILE wy- 
korzystano instrukcję FOR. 


Przykład 33 


PRQ6RfiM prog3l; 

VAR 

a:ARRAYtt..61 OF integer; 
i: integer; 

BEG1N 

kRITELK; 

FOR i:=i TO 6 DO 
BE6IN 
atil:=i; 

HFJTELNlaiil); 

END; 

END. 


Aby zamknąć listę instrukcji iteracyj- 
nych języka PASCAL opiszemy drugą 
postać instrukcji FOR. Jest ona nastę- 
pująca: 

For] )• = e. IdowntoI e , Ido] 

instrukcja 7 


gdzie: 

/, e v e 2 , instrukcja 1 — mają identy- 
czne znaczenie, jak w poprzednio 
omówionej postaci instrukcji FOR. 

Zapis ten oznacza, że instrukcja 1 
wykonywana jest dla kolejnych war- 
tości zmiennej kontrolnej / od war- 
tości początkow-ej e , do wartości 
końcowej e 2 , przy czym wartość 
zmiennej kontrolnej jest zmniejszona 
o 7 po każdym wykonaniu instrukcji 7. 
Przedstawioha postać instrukcji wy- 
stępuje w programie porządkowania 
sześciu zadanych liczb całkowitych w 
sposób rosnący (przykład 34) metodą 
tzw. sortowania bąbelkowego. Me- 
toda ta opiera się na zasadzie porów- 
nywania i zamiany par sąsiadujących 


13 


TABELA ^ 


ze sobą liczb, do chwili ustawienia ich 
w kolejności od najmniejszej do naj- 
większej. Wynika stąd, że warunkiem 
uporządkowania jest jednoczesne 
udostępnienie wszystkich sześciu 
liczb. Jeżeli potraktujemy zadane 
liczby jako elementy „pionowej” tab- 
licy jednowymiarowej, to przy pew- 
nej dozie wyobraźni możemy je uwa- 
żać za znajdujące się w naczyniu z 
wodą bąbelki o „wadze” proporcjo- 
nalnej do ich wielkości. Rezultatem 
każdego przejścia przez tablicę bę- 
dzie wypchnięcie bąbelka na poziom 
odpowiadający jego wadze. Przebieg 
sortowania bąbelkowego ilustruje ta- 
bela!. 


Przykład 34 

PRD6PAH crog32; 

VAR 

liczby: ARRAYC1. .61 OF ir.teger; 
x,i,j:integer; 

BE5IN 

POR i:= 1 TO b DO 
READd iczhv£i 2 1 : 

URI TEIN; 

NR ITELNC wprowadzone łiczby;' »; 
FQR i:=l TO b DO 
NRITE'!iczbyii]:5, r ’:3'; 

i; =2 TO b DO 
C GR is=6 5DHNT0 i DO 
IF iiczhyCj-miiczbyH] TREN 
BE6IN 

.*!=liczbytj-i]; 
lioby[j-;!:=licz3y[i]i 
liczbyE il;=xs 
ENID; 

WPlTELŃj 

HSiTcLSt J liczćv uporządkowane: ' ) ; 
FOR i:=l TO Ł DO 
i*RITEiliccbvCi j;5, ’ ’:3!; 

END. 


Kolejne dwa przykłady dotyczą 
działań na macierzach. Przykład 35 
przedstawia program dodawania 
dwóch macierzy o ustalonych wymia- 
rach. Przypomnijmy, że sumą dwóch 
macierzy A i B o tych samych wymia- 
rach jest trzecia macierz C, której 
elementy wyznaczane są wg zależ- 
ności: 

C/j = 3 ij ~f~ bij 

gazie: 

i — indeks wiersza, 

i — indeks kolumny. 

W programie, w deklaracji zmien- 
nych tablicowych (a, b, c), wykorzy- 
stano typ macierz opisujący macierze 
o wymiarach 3x5 i elementach typu 
real. Wprowadzenie elementów' ma- 
cierzy a i b następuje wierszami. 

Przykład 35 

PROGRAM prog33; 

TYPE 

*3cierz=ARPHY[l,.3,I..5] GF real; 

VAR • 

a,b, [nacierze wejściowe} 

ctsacierz; {naciesz wyjściowa} 
i, jtinteoar; Czaierne pónocnicza) 

beEin 

NRITELN; 

HRlTELN(’worowadz ełeaenty nacier: A’); 
FOR i:=l TC 3 DO 
BE6IN 


i pr:e 


S 7 ł 
3 0 3 


5 7 4 
3 0 3 


FOR i:=l TC 5 CO 
READ'ati, ij): 

PEADLN: 

END; 

HRITtLN t T wprowadź e:?5?nty macierzy B’ 1 ; 
■•PR i:=I TO 3 DO 
BE6IN 

FOP j:=l TO 5 DO 
c EAD(bu.i]>; 

PEADLN; 

END; 

POR :=1 TO 3 DO 
FOR j;=l Tfl j DO 
cCi,;3:=a[i,j}+b[!,j2; 

HRlTElN; 

NRITtuN ,! dane wsi sc 
NRITElNI’ MO, Macierz A’l; 

POR ’.;=! TO 3 DO \ 

REGIN N 

FOR j:=l TO 5 DO 
HRITE?’ ! :3,3[i,j];I0>; 

KRITELN; 

END: 

łłRITELN ( ' 10, 'mac i er: B’); 

pQk i:= 1 TO 3 t)0 
BE5IN 

C 0S i:=l TO 5 DO 
WPITE'’ ’:3,bii,jTi!0>; 

NhlTELN; 

END; 

fcP;TtLN f! wyn!k:'i: 

WRlTELNf’ ‘slO/Mcierz C=6 + B';; 

FQS i:=l TO 3 DO 
EEsIR 

POP TO 5 DO 

WR: t Ei' 

NRJTElN; 

END; 


Zastanówmy się, co należałoby zmie- 
nić w' programach z przykładów 34 i 
35 w przypadku innych wymiarów 
tablic. 

Nietrudno zauważyć, że zmiana wy- 
miarów „rozprzestrzeni" się na cały 
program. Należy bowiem zmodyfi- 
kować rówmież wszystkie instrukcje 
programu, w których występują war- 
tości graniczne wymiarów tablic. 
Zmiana wymiarów tablicy liczby z 
przykładu 34 wymaga wprowadzenia 
zmian w sześciu w'ierszoch programu, 
a zmiana wymiarów tablicy macierz z 
przykładu 35 — aż w trzynastu wier- 
szach. 

Wad tych jest pozbawiony program 
mnożenia macierzy przedstawiony w' 
przykładzie 36. Przypomnijmy, że ilo- 
czyn AxB dwóch macierzy A i B jest 
taką macierzą C, w której element 
wiersza i i kolumny j jest sumą iloczy- 
nów' elementów wiersza i macierzy A 
przez odpowiednie elementy kolu- 
mny j macierzy B. Liczba kolumn ma- 
cierzy A musi być przy tym równa 
liczbie wierszy macierzy B. Jeżeli więc 
macierz A jest stopnia p x q i maciei z 
B — stopnia qxr, lo macierz C jest 
stopnia p x r. 


Cp X ' — A px 


gdzie: 

c ,j = 2, a ik ■ bk. 

Wymiary tablic zostały określone 
przez nazwy stałych ( dw , gw, dk, gk), 
zdefiniowanych po słowie kluczo- 
wym CONST. Ponieważ w instruk- 
cjach programu użyto również zdefi- 
niowanych stałych, nie jest on „wraż- 
liwy” na zmiany wymiarów tablic. 
Ewentualna zmiana wymiarów tablic 
wymaga jedynie przedefilowania 
odpowiednich stałych. 

Przykład 36 

PF3BRAM roc34; 

CONST 

dw-l; {co Ina wLosc i n dBVeu wierszy} 

a«= 7 ; {górna wtosc indeksu wierszy} j 

dk-S; łacina wa-'Lcsr indeksu koluan!* 
ck=T; Ico rr s wa p z=sr indeksu ksIumi) 

T?PE ' 

tafclica-ARR £ ?:c«.<gH ł &..flkl GF reax; 

VAR 

p, {liczba wie r szv naaerzy A> 

31 . {liczba tai eta eacieny AJ u 

t)2, (liczba *;s-s:y eacierzv B) 

r;intege r ; {'uczta talusp'iP 2 cic r z> B} 
a,b« {saci? r ze wejściowe) 

c:ta5?ica; >arier: wynurza) 
iłJi^iinteger; { ztenoe } 

s;reai; £ robocze ) li 

BEfIN , 

wRITELN; 

NRPELNi pocą - wvriary nacieszy A'l; 
READLNfa.g’'; 

IF tyęn' DR fqlTo#-* THE'- 
BE6IN ’ \ • 

U3ITELN; 

WPITćLN- 'niepoprawne wynary nacierzy A’);. 
END 

ELSĘ .s 

BEoiS 

v «ysiarv sac;e r z» B'i; n 

SEA[-L»i'q2.c/: 

II « ir>ę<; T HE!» 


Wfi s ’ 

NRITELN' 'niepoprawne wy*: ary eaci9 r fr' 
END 
ELS? 

IF cl; Tt-EN 
BESIN 
sĘlTELN; 

UPITEJ-' ‘niezcudc-os: wysiarow aacie’. 

’r:v ń i B’); 

E‘łD 

ELSt 

BEBIIi 

Hf ITELNfHprowaOz elęneotv *ac:erjy Ą ‘ ) 
ruf: :;=cw >0 p E3 
EEGIN 

fu? j:=dk TC q! DO 
PtAD-.at:,!]-- 
PEADLN; 

ENDi 

HRI T t>NCwp-c«>aoz eiewty saoerzy E:.‘ ! 
> ĆR : : -O; Ti? c2 DC 
BEGIN 

FSS i:=dk TJ r D3 
REACiti:,;}'; 
kEAli N; 

END: 




FOR i:=d* TO q2 DO 
FOR j:=dk TO r DO 

BE6IN 

s:=0; 

FOR *:=dk TO ql DD 
s:=s+ati,k]*b[k, j3; 
cti,j]:=s; 

END: 

WRITELN: 

MR!TELN< ! ’:5,’iacierz A’ i; 

FOR i:=Q* TO p DO 
BEGIN 

FOR j:=Ck TO ql DO 
WRlTElati. M; 

WPITELNj 

END: 

MR1TELN(’ ’:5,'Bacierz E 1 ); 

FOR i:=ć* TO q2 DO 
BE6IN 

FOR j:=tłk TO r DO 
WRITE(b£i ł j3:l0. ł '); 

NRITELN; 

END: 

W\ITELN<’ 5,’ pacierz )■, 

FOR i:=d« TO p DO 
BEGIN 

FOR >:=dk TO r DO 
WR!TE(cCi. jlsiO,’ 

NR! TEIN; ' 

END; 

END; 


Analizując program prog34 można 
zauważyć, że aktualnie wymagane 
wymiary tablic są wczytywane w cza- 
sie wykonywania programu. Pozwala 
to na zmianę wymiarów tablic bez 
konieczności modyfikacji tekstu pro- 
gramu. Oczywiście zakres zmian jest 
ograniczony zdefiniowanymi wymia- 
rami tablic. Po wczytaniu bieżących 
wartości wymiarów tablic należy 
sprawdzić czy mieszczą się one w 
przedziale wartości dopuszczalnych. 

W dotychczasowych przykładach 
zaprezentowano dwa sposoby opisu 
zbiorów danych: w postaci plików 
oraz tablic. W przykładzie 37 zamie- 
szczono program sortowania zawar- 
tości pliku znaną już metodą sorto- 
wania bąbelkowego. Ponieważ me- 
toda ta wymaga jednoczesnego 
udostępnienia wszystkich sortowa- 
nych elementów, przed sortowaniem 
wszystkie elementy pliku zostały 
umieszczone w tablicy. Zwiększa się 
w ten sposób szybkość sortowania, 
ałe dla większych plików metody tej 
zastosować nie można (ze względu 
na ograniczoną pojemność pamięci 
komputera). W tych przypadkach 
trzeba stosować inne metody, któ- 
rych ze względu na ich złożoność nie 
prezentujemy. 


Przykład 37 

PR06RAH prog35; 


pozbibI=RECORD 

autor :stringC353; 
tytul:string[503: 
roknyd, 
nrkahmteger 
END; 

zbbibUFILE OF pozbibl; 
^zbpao=ARRAVC1..100] OF pozbibl; 

ksiegozbior:zbbibI; 

tabpoeszbpao; 

rek:pozbibl: 

1 °P S iHtegef ; 

ASSIGNtksiegozbior, *bibldoe’ ) ; 
RESET (księgozbiór); 
ilopi-O; 


WHILE NOT EOF (księgozbiór) DD 
BE6IN 


iłcp:=ilop+l; 

READ i ksi egozb i or , t abpowi ! opl; ; 
END: 

FOR i:=2 TO ilop DC 
FOR j:=ilop DONNTO i DO 
1F tabpce[j-lL autor > 
tabpostj], autor THEN 
BE6IN 

rek:=tabpo»[j-12; 
tatpoB[j-lJ:=tabpcłCj]: 
taopomC j l:=»'ek; 

END: 

<ł t5ET4si9cozbiar': 

FOR i:=l "0 ilop DO 
NRFE^sieęozbiorjtaozomtil); 
CLOSEiksiecozbior); 

END. 


Należy zwrócić uwagę na typ elemen- 
tów tablicy, w której przeprowadza 
się sortowanie — elementami tymi są 
rekordy odpowiadające elementom 
pliku. Po przesortowaniu elementy 
tablicy są zapisywane do tego samego 
pliku. 




Programy przedstawione w przy- 
kładach 35 i 36 należą do najdłuż- 
szych spośród dotychczas prezento- 
wanych. Istotny wpływ na ich długość 
mają powtarzające się sekwencje in- 
strukcji wprowadzania i wyprowa- 
dzania elementów macierzy. Struktu- 
rę programu z przykładu 35 zilustro- 
wano rysunkiem 13. 

Sytuacja taka występuje w wielu 
programach. Często bowiem w róż- 
nych miejscach programu występuje 
potrzeba wykonywania niemal iden- 
tycznych sekwencji instrukcji. Dla 
programisty wygodne jest więc wyod- 
rębnienie takich sekwencji i trakto- 
wanie ich jako swego rodzaju wzor- 
ców, zwanych w językach progra- 
mowania procedurami. Wzorcem 
takim może być np. sekwencja wpro- 
wadzania elementów macierzy: 

FOR j: = 1 TO 3 DO 
BEGIN; 

FOR j:—1 TO 5 DO 
READ (x [i, j])]; 

READLN; 

END; 

W miejscu wystąpienia nazwy macie- 
rzy wprowadzono w niej znak x sym- 
bolizujący tę nazwę. Symbol x może 
być traktowany tak jak traktowany 
jest argument funkcji, gdyż wynik 
wykonania procedury jest uwarun- 
kowany nazwą konkretnej macierzy. 

W języku PASCAL istnieje możli- 



wość deklarowania. procedur (wzor- 
ców sekwencji instrukcji wraz z listą 
argumentów, zwanych parametrami 
formalnymi) oraz możliwość wyko- 
nywania procedur z konkretnymi 
wartościami parametrów (zwanych 
parametrami aktualnymi), drogą wy- 
wołania specjalnej instrukcji zwanej 
instrukcją procedury. Uwzględniając 
powyższe możliwości struktura pro- 
gramu z rysunku 13 przyjmie postać, 
jak na rysunku 14. 

Z powyższego rysunku wynika, że 
logika programu nie uległa zmianie. 
Dodatkowymi jego elementami są 
deklaracje procedur, zawierające 
powtarzalne sekwencje instrukcji. 
Strukturę deklaracji i wywołania pro- 
cedury zilustrowano rysunkiem 15. 

Z rysunku wynika, że treść procedury 
opatrzona jest nazwą (nazwa proce- 
dury) wraz z listą parametrów for- 
malnych, a instrukcja procedury za- 
wiera jedynie nazwę procedury (a nie 
treść) oraz listę parametrów aktual- 
nych. W odniesieniu do wcześniej 
przedstawionej sekwencji wprowa- 
dzania elementów macierzy, deklara- 
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a} deklaracja procedury 

i procedurę ’ r. azwe procedury 

| ( - .lista pa rametrom formalnych |) j 


iresc procedury 


b) instrukcja wywołania procedury 

nazwa procedtry ~]~j |irsta "pararretrow "forrnainych j~T 

Rys. *5. Struktura dekoracji procedury i instrukcji 
wywołanie procedury 


cja odpowiadającej procedury przyj- 
mie postać: 

PROCEDURĘ czytmac 

(VAR x : macierz); 

VAR i, j: integer; 

BEGIN 

FOR i: = 1 TO 3 DO 
BEGIN 

FOR j: ~ 1 TO 5 DO 
READ (x[i,j]); 

READLN; 

END 

a odpowiadająca jej instrukcja wywo- 
łania przyjmie postać: 
czytmacfa) 

dla wprowadzania elementów macie- 
rzy a i postać: 
czytmacfb) 

dla wprowadzania elementów macie- 
rzy b. 

W liście parametrów formalnych 
procedury czytmac zadeklarowano 
obiekt x typu macierz z programu 

prog33. 

Należy dodać, że: 

a) jeżeli parametr formalny jest po- 
przedzony słowem kluczowym 
VAR, to wskazuje ono, że wartość 
parametru aktualnego może ulec 
zmianie w wyniku wykonania 
procedury (brak słowa VAR za- 
pewnia niezmienność wartości pa- 
rametru aktualnego, bez względu 
na treść procedury); 

b) treść procedury ma budowę ana- 
logiczną do budowy programu i 
obejmuje: 

— definicje stałych, 

— definicje typów, 

— deklaracje zmiennych, 

— deklaracje procedur, 

— listę instrukcji (zawartą pomię- 
dzy BEGIN i END); 

c) deklaracja procedury zakończona 
jest znakiem a instrukcja wy- 
wołania procedury' traktowana jest 
tak jak każda instrukcja. 


Program prog36 (dodawania macie- 
rzy z uwzględnieniem procedur) za- 
mieszczono w przykładzie 38. 


Przykład 38 

PR06W* crogJó: 

IYPE 

„ *ane r z=*Rj'AY[1..3,!..5] OF -ea’.; 
vAR 

a,b, tsacie-ze rejsac#?} 

craacierz; {aacierz Myjscicwa? 
i,j:intege r ; {z^-eme cwotncie} 
PRDĆEWRE czyteacCW* x:eauerz); 
VAP. 


F3R i:=! TC- 3 M 
BEEIN 

f?' i;=l TG 5 W 
REABtsIi.il); 

*EAPLN; 

END; 

ENS* * 

PkOC^DL*! oiszaac rtsacier'; 

W 

i,j:intEger; 

P£SIN 

*0fi i:=l TG 3 M 
BE6IN 

FOP j:=l T€ 5 W 
**:*£(’ :3,łt:,j3:lO); 

WITE-Ji; 

m-. 

BEEli 

»R!T£L«; 

NRlTElNCweaacz ele*entv nacięty A’ł; 
c:ytMc!ał; 

tRI T Ewkl’wc»-oaGz eietenty aacierzy B’ 
ccyteacCb): 

FOfi i:- i t 5 3 t>3 

FrĄ _”=! 7 0 5M 
NP) T E LN; 

WITELNC^a-.e łejsaswe:’'; 
łPiTEJir ’:10,'iac:e r : A’ ł ; 
pis:aac(a-; 

IFITE-lM 1 'zlO/eacierz B’); 

pisma: tb': 

iRirELtiCwyr.ittMj 

WITElM' *:10, , facxB r z C=A*B’ł; 

oisztac<c); 

END. 


Z przykładu 38 wynika, że celem wy- 
odrębnienia procedur jest skracanie 
tekstu programu. W rzeczywistości 
jednak podstawowym celem wyod- 
rębniania procedur jest dekompozy- 
cja programu na fragmenty, z których 
każdy stanowi logicznie zamkniętą 
całość. Ma to szczególne znaczenie w 
przypadku projektowania dużych 
programów, ale efekty konsekwent- 
nego stosowania podziału programu 
na jednostki logiczne dają stę zauwa- 


żyć w każdym programie. Uzyskuje 
się bowiem większą przejrzystość 
programu i znacznie zmniejsza moż- 
liwość popełnienia błędu. Ilustracją 
sposobu dekompozycji jest przykład 
39. Zamieszczono w nim program ob- 
liczania sumy, różnicy, iloczynu i ilo- 
razu dwóch liczb zespolonych, w któ- 
rym każde działanie zostało potrak- 
towane jako oddzielna procedura. 


Przykład 39 

progi): 

TffE 

liczbazesp^Cffi® 

re, tczesc rzeczywista) 
lirEa! tczesc urojona > 
END; 

m 

11,12, nynrliczEazesj; 

WOtEWSŁ Ł'ia:ess<y,y:liczfcazesp; 

VAR z:liczbazesp): 

' K6IN 

z.re:=».re^y.re; 

2.ii:=x.it*y.ia; 

END; 

PRGtt&Ł^E rczmcaresp (i,y: liczbazesp; 

YAF. z:Iiczbazesp); 

KE!N 

z.re:=*,re-v.re; 

2.ia:=x.ii-y.ii; 

END; 

PRDCłKSRE ilcczyizespCł^yiliczbazesp; 

W? z:hC 2 bazesp); 

fiEEW 

z.re:=*.rpły.re-x.iBtw.i*; 
z. i«: =x.rety.i»+i.iity.rfi; 

ENS; 

PROCED-j^E ilłrazsesptK.ytlicibazesp; 

Vm z:!iczfcazesp); 

m 


ccs:real; 

BE6IN 


pot: =y . r sty . r e+y . i aty . i a; 
z.re:=(*.rely.re+if.iarty.ia)/poa; 
z. i«s=(x . iity. -e-K.rely. la! /soa; 

END: 

PRCćtlHżRE aypiszzespCldiczbazesp): 

K6IN 

NR1TE ,? > :S.l.re); 

V l,;a>=0 THEN RftlTEt* ♦’); 
ariielnd.ia.T): 

END: 

BE6IN 

NRITELN* 

Nr: TEIN r PODAJ CZESC RZECZniSU) \ 

: PIERWSZEJ LICZBY’ 1; 

READLN 111. re>; 

iftlTŁWeOMJ r SSC )JB0J3XA \ 

•PIESZEJ LICZBY’); 

RENDLMll.il): 

NRHEJM’ PODAJ CZESC RZECZYWISTA *. 

’DEU5iEJ LICZBY’): 

REftDLIiU 2 .re»; 

NR1TELNPPGM1 CZESC ORGJONA 
’MU6IEJ LICZBY’'; 

KABd2.ii); 

NRITELN: 

NPITFlN ! ’ S vaa podanych liczb:’); 
S!iaaze5p(ll,I2.ryti); 

»nrc!szzesp(t^n); 

NrlTELNCrazmca pocarycb liczb:’); 
raźni cazesc d 1, 12, arynł ; 

»vpisziesp(«yvj 

NhiTElNC’ iloczyn podanych liczb:'); 
iloczyrzesp Cl i. 12,iryn) ; 
rypisizespCayn); 

IP (12.re=0» MD d2.ia=0ł P£N 
ittlTtC’i:(yaz podanych liczb nie 
’»o:e hyc ayz-.aczwy’] 

ELSE 

BESIN 

NRITELNCilcraz podanych liczb:’); 

ilorai2ess(l!,I2,ifynł; 

aypiszzesaCtryni; 

EN&; 

m. 

W przypadku bardziej złożonych 
programów ich teksty mimo stoso- 
wania procedur są bardzo obszerne. 
TURBO PASCAL umożliwia zwięk- 
szenie przejrzystości poprzez włą- 
czenie we wskazane miejsca frag- 
mentów tekstu programu wcześniej 
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przygotowanego. Są one wskazywane 
w specjalnej dyrektywie kompilatora 
o strukturze: 


{jfl nazwa zbioru } 

Dyrektywa ta zawiera nazwę zbioru 
w pamięci dyskowej, w której prze- 
chowywany jest odpowiedni frag- 
ment tekstu programu. Sposób użyt- 
kowania tej przydatnej dyrektywy 
został zilustrowany przykładem 40. 
Zamieszczono w nim program wy- 
prowadzający zawartość założonej 
wcześniej kartoteki (przykład 29) 
przed i po uporządkowaniu jej ele- 
mentów wg klucza, którym jest na- 
zwisko autora. Przyjęto, że teksty 
dwóch wyodrębnionych procedur: 
wyprowadzania zawartości kartoteki 
(przykład 41) i porządkowania ele- 
mentów kartoteki (przykład $2), 
znajdują się w oddzielnych zbiorach 
o nazwach: WYSWIETLPAS i 

SORTKARTJPAS. 


Przykład 40 


PfflBRAB prog38; 

rm. 

poztibI=R£E0RB 

autarrstricofKJ; 
tytuł :strirg{501; 
rckwYj, 

*)rtat:intecer 

EW; 

zfcbibl=FIłJE DF pozbibl; 

V«R 

ksiegezbiorizbbibl; 

naz*arb:stringtl23; 

znistringtl]; 

{fi tfysiHPtl.paę} 

{*i wrttart.pasł 
SE6IN 
MRITELM* 

WITŁIlHlSM WBK antWM 
R£A5tnaz*a2b); 

ASSlWHksiogozbior^azuazb); 

KYS*fcart (księgozbiór ) ; 

mitelh(’C2y mmmusi mhtotske*. 

’ IPttZAMOtAKA (T/R)?’); 
KADiznI: 

IF lzn-'t'ł CS (in='H THFłl 
KSIK 


sortka-tlrsiegozbior); 
^sukart ( ksi egozfc : or ) ; 

m. ' 


Przykład 41 


Pf?CCEBi#E -rsnkarf-YAR zb:zttibl>; 

VAR 

ińnteger; 

rek:pozbibl: 

lpoissłringtll; 

KE1M 

RESET(sb); 

CIRSCR; 

NH1LE ROT EGFlzbi W 
BE61SI 

t?£A3tzb,rek); 

MTH rek 80 

m\« 

MRITELUrftiiTO 8 .: \ autor); 
WITELUPTYr-JL: ’,tyiui); 
WITESJinS* mmkt 
W!TtLRC*J!e KATftLGKRY: \nr« t); 

*R|T& , 

łfitlTELH; 

tfUTBJH’ VERTE 

REftSilpM); 

CŁftSCR; 

EW): 

CLGSE(zb); 

EW): 


PROGRAM progSe 


> definicje i deklaracje 


(Si wyświetl l 
{Si sortkart } 

B E G ł N 

i 

instrukcje 


EH D . 


jtekst procedury 
WYŚWIETL 


{ 

tekst procedury 

SORTKART 

. j 


Rys. 1 6. Struktura programu z włączonymi zbiorami 


Przykład 42 

PRGCEDttfE sortkart <VAR zbrzbbibl); 

CDKST 

o=100; 

TYPE 

^ao=AR*WtYU..1001 QF pozbibi; 

tabpoiizbpaa; 

rekspozbisl: 

^ilopńnfeger; 

*ESET(zb>; 

khiEe *6t EOF(zo) DO 
5E6I* 

ilop:=ilop*l; 

t^AD (zb , tabpoati lop] ) ; 

EW; 

p 0R i:= 2 TO i lup DG 
F09 j:=ii3p D0iftTQ i &g 
IF tabpeaCj-ll. autor > 
tabpoiCj}. autor m.H 
K5IK 

rek:=tabpo«[j-!l; 

tabpoRlj-!]:=tabpoa[j]; 

tabpoeTjli^ek; 

EW); 

RESETłzb): 

POR i:=ł TG llop DO 
WITEIzb.tabpoati]!; 
a-OSE(zb); 

EW); 

Zbiory WYSWIETLPAS oraz SORT- 
KART.PAS tworzone są tak, jak gdyby 
stanowiły oddzielne programy. Do- 
dajmy, że tekst całego programu (tzn. 
z włączonymi zbiorami) musi mieć 
strukturę akceptowaną przez kompi- 
lator (rys. 16). 

W' przytoczonych wyżej przykładach 
logicznie wyodrębnionym fragmen- 
tem programu była procedura trak- 
towana jako sekwencja instrukcji. Jej 
wywołanie jest więc instrukcją. Inne 
właściwości mają procedury funkcyj- 
ne, zwane dalej funkcjami. Funkcja, 
podobnie jak procedura, jest wyod- 
rębnionym fragmentem tekstu pro- 
gramu. Wynikiem jej wywołania jest 
wartość (typu określonego w na- 
główku funkcji) obliczona w treści 
funkcji. Wywołanie funkcji nie jest 
więc instrukcją, lecz elementem wy- 
rażenia lub warunku. 

Struktura deklaracji funkcji jest na- 
stępująca: 

FUNCTION nazwa funkcji (lista pa- 
rametrów formalnych) : typ wyniku ; 
treść funkcji 


W treści funkcji musi wystąpić co 
najmniej jedna instrukcja przypisania 
o strukturze: 

nazwa funkcji : == wyrażenie 

która wartość przypisywanego wyra- 
żenia pozwala traktować jako wynik 
funkcji. Jeżeli taka instrukcja nie wy- 
stąpi w treści funkcji lub nie zostanie 
wykonana, to wartość funkcji będzie 
nieokreślona. 

Wywołanie funkcji ma taką samą 
postać, jak wywołanie procedury. 

W przykładzie 43 zamieszczono 
program obliczania ilości k-elemen- 
towych kombinacji w zbiorze n-ełe- 
mentowym wg wzoru: 


- n / 
k ! (n — k) I 

Wydzielono tam funkcję obliczającą 
wartość silni wskazanej łiczby. 


Przykład 43 

PfKfefiW prm3Y; 

VAR 

R.kiintegw; 

ilko#b:reaI; 

FURCTION siiniafcirteoerhrNl; 
VAS 

i:integer; 

poKreil; 

BE6IM 

IF *=0 Tł€K silnia: =1 
ELSE 
BE61N 


PS* i:=l TO * DO 


po*:=połti; 
si!nia:=poa; 

EW; 

EW; 

EE6IN 

MRITELK; 

jttlTELHCpwJaj Ki K’)j 
READin,k); 

ilko«b:=siłMa(n)/(siłnia(«)tsiłma<n-fcU; 

MlTEUk 

KRITELKriiosc kowinacji z *.!»,’ po ’,kl; 
KRITE(’«ynosi ’,ilkwb); 

BID. 


W przykładzie 43 liczby naturalne 
deklarowane są jako rzeczywiste. 
Wynika to z bardzo ograniczonego 
(do 32767) zakresu liczb typu integer. 
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W kolejnym przykładzie zamieszczo- 
no program obliczania wartości wy- 
rażenia: 


x n ■ sinb (x) 


W programie wyodrębniono funkcję 
podnoszenia liczby x do potęgi n(n — 
liczba całkowita) oraz funkcję obli- 
czania sinh ( x ) wg zależności. 

s inh (x) = x + + ... 


Przykład 44 

PROGRAM prog40; 

m. 

n: integer; 
x.wvnik:real; 

FUnCTION potęga (x:real;n:integer):real; 

i:integer; . 
poa:realt 
REGIN 

SPńoi THEN 
FOR i:=l TO ABS(n) DO 
por.=pofitx; 

IF n<0 THEN potega:=l/poa 
ELSE potęga: =poa; 

END: 

FUNCTION sh (x:real):real; 

VAR 

fiST"" 

s:=0; 

P ! =x? 

n:=0; 

REPEftT 

s:=s+p; * 

n:=n+l: 

p:=plxtx/(2*nt(2tn+t>); 

UNTIL abs(p) <=0.001; 
sh:=s; 

END: 

REGIN 

WRITELN; 

WRITELN ('podaj X i N’); 

READ(x,n) : 

wyni k:=pDtega (x,n) tsh(x); 

NR ITELN § 

WRITELN ('obliczona wartość wyrażenia’): 
NRITELNCdla X = i N = ’,n); 
NRITE(’wynosi '.wynik); 

END. 


Poznany zakres właściwości języka 
PASCAL umożliwia rozwiązywanie 
zadań poprzez sekwencyjne wyko- 
nywanie instrukcji lub poprzez wie- 
lokrotne wykonywanie tych samych 
instrukcji aż do spełnienia pożąda- 
nych warunków. 

Konstruując programy główną 
uwagę należy zwrócić na poprawność 
logiczną oraz warunki zakończenia 
programu (brak nieskończonych pęt- 
li). 

Istnieje szereg problemów, które 
dają się opisać metodami rekursji. W 
metodach tych zakłada się wykorzy- 
stanie tej samej funkcji (procedury) z 
innymi argumentami do obliczenia 
jej wartości. Przykładem może tu być 
definicja funkcji silni: 


nf = 


i 


7 

n(n — 1)! 


dla n = 0 
dla n > 0 


w której do obliczenia jej wartości dla 
argumentu n wykorzystuje się war- 
tość funkcji dla argumentu n — 7. De- 
finicję taką można zapisać wykorzy- 
stując deklarację funkcji rekurencyj- 
nej języka PASCAL (przykład 45). 


Przykład 45 

FUNCTION si Iniałn: integer) : integer ; 

BEGIN 

IF n=0 THEN 
silnia:=l 
ELSE 

silnia:=n*silnia(n-l); 

END; 

Szczególną własnością takich funk- 
cji jest umieszczenie wywołania 
funkcji w jej treści. Podobną regułę 
można zastosować w stosunku do 
procedur rekurencyjnych. W przy- 
kładzie 46 zamieszczono procedurę 
porządkowania elementów jedno- 
wymiarowej tablicy liczb całkowi- 
tych. Porządkowanie odbywa się wg 
następującej reguły. 

1) wyszukuje się element najmniej- 
szy, 

2) zamienia się miejscami element 
najmniejszy z pierwszym (bieżącym) 
elementem tablicy, 

3) kroki 1,2 i 3 są powtarzane z pomi- 
nięciem pierwszego (bieżącego) 
elementu tablicy. 

W kroku 3 powtarza się więc czyn- 
ności 1,2 i 3, zawężając pole poszuki- 
wań- elementu minimalnego. 


Przykład 46 

PROCEDURĘ sortuj (a. n: integer; 

VAR tabiciag); 

PROCEDURĘ zai enain (k, 1 : integer) ; 
VAR 

elnin,nreliin, 
i, por: integer; 

REGIN 

nrelain:=k; 

eliin:=tab[kl; 

FOR i:=k+l TO 1 DO 
IF tabliKelain THEN 
REGIN 

nrelain:=i: 

eliin:=tabtil; 

END; 

po«:=tabCnrelain]; 
tab[nreIiin];=tabŁklj 
tabCkl: =po«; 

END: 

REGIN 

IF łOn THEN 
BE5IN 

zniemin(B,r): 

sortuj(B+l,n,tab); • 

END; 

END; 


Podobnie jak dla funkcji, w dekla- 
racji procedury rekurencyjnej wystę- 
puje jej wywołanie. 

Programowanie z wykorzystaniem 
rekurencji jest zadaniem trudnym. 
Niżej zamieszczono dwa przykłady 
ilustrujące zastosowanie rekurencji 
do rozwiązywania zagadnień z dzie- 
dziny kombinatoryki. 

W przykładzie 47 zamieszczono pro- 
gram generowania wszystkich per- 
mutacji zbioru (7,...,nj. Permutacją 
zbioru n-elementowego nazywamy 
każdy różnowartościowy ciąg ele- 
mentów zbioru X o długości n. W 
programie wykorzystano metodę ge- 
nerowania permutacji w tzw. porząd- 
ku antyleksykograficznym, w którym 
ciąg permutacji zbioru {1,...,n} ma 
następujące własności: 


a) w~j pierwszej permutacji elementy 
występują w rosnącej kolejności, a 
w ostatniej — w malejącej, czyli 
ostatnia permutacja jest odwróce- 
niem pierwszej, 

b) podany ciąg permutacji można 
podzielić na n bloków o długości 
(n — 1) !. Odpowiadają one małe: 
jącym wartościom elementu w 
ostatniej pozycji. Pierwsze n — 1 
pozycji bloku zawierającego ele- 
ment p w ostatniej pozycji określa 
ciąg permutacji zbioru {7,...,nj\{p} 
w porządku antyleksykograficz- 
nym. 


Przykład 47 


PROGRAM prog41; 

($a-> 

CONST 
■axi 1=10; 

TYPE 

ciag=ARRAY[l..saxin 0F integer; 
VAR 

pera:ciag: 
n.il. i: integer: 

PRuCEfiURE przestaw (a, b: i nteger ) ; 
VAR 

elpiinteger; 

BE6IN 

elp:=pereta]; 

pere[a]:=pera[b]; 

S erB[bI:=elp; 

Dl 

PROCEDURĘ drufcujpera; 

VAR 


i: integer: 
znsstnngm; 


REGIN 
IF 11>20 THEN 
REGIN 
READCzn) ; 

CLRSCR; 

il:=l; 

END; 

FOR i:=I TO n DO 
NRITE(per§[i],' ’); 

NRITEIN; 

ils=il+ł; 

END: 

PROCEDURĘ odwrocenie(a: integer); 

VflR 

B hiś inls,er; 

i|=lj 

Mili Kj DO 
REGIN 

przestaw(i,j); 

END; 

END: 

PROCEDURĘ nowaperafa: integer); 

i :i nteger; 

RE6IN 

IF ■=! THEN drukujpera 
ELSE 

FOR i:=l TO b DO 
REGIN 

nowapera(a-I); 

IF i <b THEN 
BEGIN 

przestawłi.alj 

odwrocenieia-1); 

END; 

END; 

END: 

BEGIN 

NRITEIN: 

NR ITELN ('PODAJ NARTOSC n<*'.aaxilł: 
REPEAT 
READ(n); 

IF n>aaxil THEN 

NRITELN ( 'NIEPOPRAWNA NARTOSC n 
’ PODAJ NONA NARTOSC n’> 
UNTIL n<=aaxils 
CLRSCR; 
ils-ł; 

FOR i:=l TO n DO 
peraCi3:=i; 
nowapera(n); 

END. 
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W programie prog41 wyodrębniono 
cztery procedury: 

— przestaw (a,b) — zamiana miej- 
scami elementów a i 6 w tablicy 
perm zawierającej permutację; 

— odwrócenie (m) — zamiana kolej- 
ności m pierwszych elementów 
tablicy perm; 

— nowaperm (m) — rekurencyjne 
utworzenie kolejnej m-elemen- 
towej permutacji; 

— drukujperm — wyświetlenie bie- 
żącej permutacji. 

Po wyświetleniu kolejnych 20 permu- 
tacji program oczekuje na wciśnię- 
cie klawisza ENTER w celu wyświetle- 
nia dalszych permutacji. 

W procedurach tych wykorzystano 
izw. zmienną globalną perm, a w 
procedurze drukujperm także 
zmienną ii, zadeklarowaną na po- 
ziomie programu (poza procedura- 
mi). Deklaracje zmiennych global- 
nych muszą wystąpić przed deklara- 
cjami procedur, w których są 
wykorzystywane. Występujący w 
programie zapis {$a — } jest niezbęd- 
ny dla programów rekurencyjnych. 

W kolejnym przykładzie zamie- 
szczono program rozwiązujący zada- 
nie wyznaczania wszystkich możli- 
wych rozmieszczeń k obiektów w n 
pudełkach, tak aby w każdym pudeł- 
ku znalazł się jeden obiekt (k < n). 
Zauważmy, że dia k = n zadanie 
sprowadza się do wyznaczania n-ele- 
mentowych permutacji. Dla k < n 
zadanie jest bardziej złożone. Meto- 
dę wyznaczania takich rozmieszczeń 
prześledzimy dla k = 2 i n = 3. Moż- 
na przyjąć następujący sposób po- 
stępowania: 

a) spośród wszystkich pudełek wybie- 
ramy jedno (zwane dalej pier- 
wszym) i wkładamy do niego 
pierwszy obiekt. 

b) spośród dwóch pozostałych pude- 
łek wybieramy jedno (zwane dalej 
drugim) i wkładamy do niego dru- 
gi obiekt. 


c) nie zmieniając pierwszego pu- 
dełka, przekładamy drugi obiekt 
do następnego pudełka. 

Wszystkie możliwe rozmieszczenia 
uzyskamy powtarzając czynności 
a — c dla każdego z możliwych spo- 
sobów wyboru pierwszego pudełka. 
Numerując pudełka od 1 do 3 i 
przyjmując zasadę, że spośród wol- 
nych pudełek wybieramy pudełko o 
najmniejszym numerze, uzyskamy 
kolejne rozmieszczenia obiektów jak 
na rysunku '17. 

Jeżeli przez P oznaczymy zbiór nu- 
merów pudełek — P= — to 

nasze zadanie sprowadza się do zna- 
lezienia wszystkich ciągów' róznowar- 
tościowych. < p- t , p i ... pk > o wyrazach 
ze zbioru P (są to tzw. k -elementowa 
wariacje bez powtórzeń ze zbioru n- 
-elementowego). Wyraz p, takiego 
ciągu możemy wybrać na n sposo- 
bów, wyraz p 2 na n — 7 sposobów. 
Przy ustalonych wyrazach p v p 2 ... p, _ \ 
możemy jako p, w'ybrać dowolny 
spośród n — i + 7 elementów zbio- 
ru PM Pv P 2 > -• P‘ - 4 


Przykład 48 


.nn.' u? char; 

■&‘ł£r' 


P. r :G6RAK f 
($=-> 

CONST 
nn=9: 

Wf7| 

TYPE 
eie» : ‘ 

sukc=< 

VAR 
donyir:elPic; 
prat»nontrj 
Nynihsukc; 
i,n Ł Mic 2 ><iirteęer; 

PROCtDliRE wycronaCs; 

VAR 

■ńnteęer: 

zn:char: 

Bt&IN 

IF iiczw'20 T h£N 
cEEIN 
READtzn): 
cl? ser; 
ł:c:*:=2: 

EfiD 

ELSE 

lic:n:=l;czi» + l; 

FGR #:=i Tf) k- DG 
i»RiTE-KvaHe?!; 

END; 

FFCCEDISE Mybisnłi.pAńntsger; c-«>-3r:e)e' 
orani kontr; VAR *vnifc:saj:e: 
vńR 

łtinlegsr; 

EE6IN 

1F i U TnEN 
5E5U 

F3R 1 : = l TO n DO 
I TK» 


iF i'shł1] 
BESIN 


prahCl ls=tal* 
:U+l,n,l 
pranC:i:=true; 


,łs=; 

wybiera u+l,n,l: , ł?cwvbr,pr5n, wynik) ; 


m; 


Eh'D; 

m ' 

ELSE 

rGR" 1:=L TG r DC 
IF prawi 13 Tł£*i 
BE6I?« 

wyn i kt ki ; =3cwvb r [1 3 ; 


ENl 


bESIN 

ńE-^T 




KITsi-poiaj ł 1 K IK<=M! ’ 




iRlTE'*DcSSj 

TŁii -4 "" 

iSlSMybrtijli 
EtS; 


KRITEi’ ’,K, ! -ele*ientcwe wariacje ; 

nó-eleflieotowego zbioru;’); 
FGR i:=l T 0 n DG 
WPITE' ’ 'jdcwybrtilJ; 

WI T EUl; 

*TTEU(: 

iiczi:=ls 

t i ,n,‘:,Cov.yDr , ran, wyn i k ) ; 


W przykładzie wykorzystano dwa 
nowe typy zmiennych: 

— char — którego wartościami są 
wszystkie reprezentacje znaków 
oraz kodów sterujących wystę- 
pujących na klawiaturze mi- 
krokomputera; dla naszych celów * 
można uznać, że jest on równo- 
ważny deklaracji string [7]; 

— boolean — którego wartościami są 
stałe logiczne true i false. 



Grafika komputerowa jest bardzo 
ważną dziedziną informatyki rozwi- 
janą w wielu liczących się ośrodkach, 
jej celem jest wypracowanie efek- 
tywnych programów (standardów) 
umożliwiających łatwe i szybkie ge- 
nerowanie obrazów figur i brył z 
uwzględnieniem punktu widzenia i 
napotykanych przeszkód. 

W ramach niniejszego opracowa- 
nia nie jest możliwe przedstawienie 
żadnego znanego standardu grafi- 
cznego. a nawet przedstawienie za- 
sad generowania prostych obrazów. 
Naszym celem jest jedynie 
zaprezentowanie koncepcji kreślenia 
kolorowych obiazów w komputerze 
AMSTRAD CPC 6128 w oparciu o pa- 
kiet graficzny CPC 6128 — Grafik Ver- 
sion 1.0 firmy Heinsoeth Software 
Mu nich (wybrane problemy grafiki 
komputerowej prezentowane są w 
numerach „IKS-a ’, w cyklu ...Grafika 
na ekranie"). 

Ekran monitora dzieli się na dwie 
odrębnie wysterowane, niezależne od 
siebie części: 

— obszar główny, wykorzystywany 
do zapisu tekstów i określenia 
obrazów, zwany dalej kartką; 

— pobocze. 

Pobocze nie jest wykorzystywane do 
zapisu tekstów i kreślenia obrazów, 
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można natomiast zmieniać jego kolor. 
Kolor pobocza stanowi tło dla kartki. 
Do zmiany koloru pobocza wykorzy- 
stywana jest procedura. 


border (i,j) 


której parametrami są identyfikatory 
kolorów. Programista dysponuje 27 
kolorami, oznaczanymi numerami od 
0 do 26. Kolory przyporządkowane 
poszczególnym numerom zamie- 
szczono w tabeli 2. 

W procedurze border podaje się nu- 
mery dwóch kolorów zmienianych 
kilka razy w ciągu sekundy, jeżeli oba 
numery są jednakowe, to efekt migo- 
tania jest niedostrzegalny. 

Program umożliwiający zmianę kolo- 
ru pobocza (bez migotania) zamiesz- 
0 czono w przykładzie 49. 


Przykład 49 


PRCGRAH prog43; 

VAR 

ninteger: 

ch:char: 

t$i grafik?. inc> 

BEGIN 

FOR i:=0 TO 26 DO 
BE6IN 

border (i, i); 

REFEAT UNTIL keypressed; 

READ(kbd,ch); 

END; 

border(l.l); 

END. 

Program ten po każdorazowym na- 
ciśnięciu dowolnego klawisza zmie- 
nia kolor pobocza na odpowiadający 
kolejnemu numerowi. Do sprawdze- 
nia czy klawisz został wciśnięty wyko- 
rzystano funkcję standardową keyp- 
ressed, przyjmującą wartość true po 
wciśnięciu klawisza i fa/se po odczy- 
taniu kodu wciśniętego klawisza 
(READ ( kbd Po wyczerpaniu 
wszy stkich możliwych kolorów, kolor 
pobocza zmienia się na niebieski, 
przyjmowany standardowo przez sy- 
stem. Efekt migotania można uzyskać 
realizując program z przykładu 50, w 
którym kolejne pary kolorów pobo- 
cza są ustalane przez użytkownika. 

Przykład 50 


PRDEPAN prog44; 

VAR 

kt,k2:irteger: 

chrchar: 

(ii gratik3.1nc) 

BEGIN 

REPEAT 

WRITELN! 'zaiana koloru raaki (T/N)?’); 
READ (kbd .ch) : 

IF (ch=’T’).ÓR (cb=’t’) THEN 
BEGIN 

NRITELNCpodaj nr pierwszego koloru’); 
READLN(kl) ; 

HRlTELNCpoda; nr drugiego koloru’); 
READLN(k2>; 
border (ki,k2)s 
END: 

UNTIL (ch=’N’) OR {ch=V): 
border (1,1); 

END. 


Bardziej skomplikowane są zasady 
wykorzystywania kartki. Można na 
niej zapisywać teksty piórem teksto- 


wym oraz kreślić obrazy piórem gra- 
ficznym. Przed użyciem pióra należy 
wskazać kałamarz, z którego czerpa- 
ny będzie tusz. W każdym kałamarzu 
można umieścić jednocześnie — w 
dwóch odrębnych jego częściach — 
dwa tusze (różnokolorowe lub tego 
samego koloru). Jeżeli tusz będzie 
czerpany z kałamarza, w którym 
umieszczono różnokolorowe tusze, 
uzyskamy efekt migotania jak w 
przypadku pobocza. 

Liczba dostępnych kałamarzy uza- 
leżniona jest od trybu wykorzystania 
ekranu: 

— 16, w trybie 0 (numerowanych od 
Odo 15), 

— 4, w trybie 1 (numerowanych od 0 
do 3), 

— 2, w trybie 2 (numerowanych od 0 
do 1). 

W miarę wzrostu numeru trybu 
wykorzystania ekranu rośnie jakość 
kreślonego obrazu (rozdzielczość) 
kosztem zmniejszającej się liczby ka- 
łamarzy możliwych do jednoczesne- 
go wykorzystania, a tym samym liczby 
kolorów. 

Do napełniania kałamarzy wykorzy- 
stuje się procedurę 

ink ( nrk, i, j) 

gdzie: 

nrk — numer kałamarza (który 
powinien uwzględnić tryb wyko- 
rzystania ekranu), 
i,j — numery kolorów tuszu (wg 

tabeli zamieszczonej na obu- 
dowie każdego CPC 6128). 

W przykładzie 51 przedstawiono pro- 
cedurę napełniania kałamarzy wg żą- 
dań użytkownika. Procedura ta poz- 
waia na wypełnienie tylko takiej ilości 
kałamarzy, jaka wynika z trybu wyko- 
rzystania ekranu. 

Przykład 51 

PROCEDURĘ napełnij itrybnntegerł; 

VAR 

ił,U,k2, 

iiinteger; 

ciacnar! 

BtCIh ' 

iF tryb=0 THEN ils=16 

ElSf 

IF trybul TKEN il:*4 

EL SE il;=2; 

REPłA! 

^•HTELN(’zeiar* tuszu * ’); 

SRlTELNUkalaaarzu nr ł ,i); 

WITELNIMT/Ni?’); 

READ(kbd.ch); 

IF (ch=’T’l CR (ch=’f) THEN 
BE5IN 

NRITELN('nr pierwszego koloru’); 

READLimi); 

liRITELNCnr drugiego koloru’}; 

RcADLN (k2> s 

ink(i,kl,k2); 

END; 

i:=i*l; 

UNTIL i=il; 

END; 

jak już podano, do zapisu tekstów 
oraz kreślenia obrazów wykorzysty- 
wane są dwa różne pióra: tekstowe i 
graficzne. Z każdym z nich związane 
są oddzielne procedury. 


Ich omawianie rozpoczniemy od 
procedur związanych z piórem tek- 
stowym. 

Użycie pióra tekstowego powinno 
Syć poprzedzone wyborem kałama- 
rza, którego tusze będą wykorzysty- 
wane do zapisu tekstu. Służy do tego 
procedura. 

pen (nrk) 


gdzie: n r k — numer kałamarza. 

Wszystkie litery zapisywane są na tle, 
którego kolor wybierany jest przez 
wykonanie procedury 

paper (nrk) 

gdzie' nrk — numer kałamarza. 

Jeżeli procedury te nie zostaną użyte 
przed wykorzystaniem pióra to dla tła 
przydzielany jest standardowo kała- 
marz 0, a dla pióra — kałamarz 1. 

Dla ilustracji działania procedur 
paper i pen w przykładzie 52, po usta- 
leniu trybu wykorzystania ekranu i 
napełnieniu kałamarzy, następuje wy- 
bieranie kolejnych kałamarzy dla tła. 
W przykładzie 53 — po czynnościach 
wstępnych — następuje wybieranie 
kolejnych kałamarzy dla pióra. 


Przykład 52 

PRDGRftN prco*5; 

m 

tr yb , i 1 nsc , nr k ; i nteger ; 
rrjcha-; 

(ii grałikJ.intJ 
\ti d51> 

BEGIN 

HRITELN(’podaj tryl)’/; 
F.EACLNitryb); 
napełni j(trys); 

IF tryfc~0 TKEN ilc-crl6 
ELSE 

IF tryb=l TKEN ilosciM 
ELSE ilosc: =2; 

■cde(tryb); 

FOR nrk:=0 TO ilosc-1 DO 
BEGIN 

paperinrk); 

KfiuELN; 

NR r ELN ( ’ 01?345ć789?J 23456759’ ) ; 
REPEAT UNTIL keypressed; 
READ(kbd,ch); 

END; 

r.ode?2); 
mktC.I.ii; 
papę*; Oh 
irk (1,26,26); 
ren ( 11 ; 

EŃD. 


Przykład 53 

PFOGRAN proc46; 

W 

tryhilpsc t nrfc:ir.teger; 

cbfcnars 

Ki grafik?. irx} 

Ili ?51) 

BEGIN 

i»?ITELN(’pcIaj tryb’); 
REASLNItryb;; 
napełni j(tryb); 

IF trvt-0 THEN ilosc:~16 
ELSE 

IF tryb=l THEN iIosc;=4 
ELSE ilosr;=2; 
scdsftryb);. 

FOR nrk;=0 TO iłosc-1 DO 
FSIN 
sen (nrk): 

HRITELN; 

NRITElN (’ 01234567890123456789’ 1 1 
REPEAT UNTIL keypressed; 

READ (kbd. chi; 

END; 


■odet 2 ) ; 
ink(0, 1,1); 
paper (0); 
ink(l,26,2ć) ; 
pen(l); 

END. 

W obu podanych przykładach do 
ustalenia żądanego trybu wykorzy- 
stania ekranu zastosowano procedu- 
rę: 

modę (nrtryb) 

gdzie 

nrtryb — przyjmuje wartości 0,1,2 
Należy wyjaśnić, że z trybem wyko- 
rzystania ekranu wiąże się również 
liczba znaków tekstu, które mogą być 
wyświetlane w jednym wierszu. Wyno- 
si ona: 


initgrafik 

ustalającej początkowe, standardowe 
warunki pracy. Po zakończeniu wy- 
korzystywania pióra graficznego na- 
leży wywołać bezparametrową pro- 
cedurę 

Ieavegrafik 

Odpowiednikiem procedury pen dla 
pióra graficznego jest procedura 

grafpen (nrk) 

a odpowiednikiem procedury paper 
— procedura 

graf paper (nrk) 


— 20, dla trybu 0, 

— 40, dla trybu 1, 

— 80, dla trybu 2. 

Przed zakończeniem każdego z pro- 
gramów przywracany jest standardo- 
wy tryb wykorzystania ekranu (2), 
standardowe numery kałamarzy tła 
(0) i pióra (1) oraz standardowe nu- 
mery tuszów w tych kałamarzach. 

Program z przykładu 54 umożliwia 
prześledzenie wszystkich przedsta- 
wionych właściwości pióra tekstowe- 
go. 

Przykład 54 


Zasady wykorzystywania kałamarzy 
przez pióra graficzne są identyczne, 
jak dla pióra tekstowego. 

Kartka podzielona jest na 400x640 
punktów (niezależnie od trybu wyko- 
rzystania ekranu), tj. 400 wierszy 
(numerowanych od 0 do 399) po 640 
punktów (numerowanych od 0 do 
639) w każdym z nich. Punkt Tnożna 
zakreślić za pomocą procedury. 

plot (x,y) 

gdzie: 

x — nr wiersza, 
y — nr punktu w wierszu 


PROGRAH prog47; 

W 

tryb.nrkjinteger; 
chicnarj 
tli Qratik3. inc> 
tli pSl) 

BEGIN 

NRITELN(’podaj tryb’); 
READLN(tryb); 

■ode (tryb): 

HR1TELN; 

REPEAT 

NRITELN(’zaiana tuszu * ’); 
NRlTELNCkalaaarzach (T/N)?M; 
READlkbd.ch): 

IF (ch='r) DR (eh*’t’) TREN 
napełnij (tryb): 
NRlTELN('zaiana tła (T/N)?’); 
READlkbd.ch): 

IF (ch=’T’) OR (ch=’f) THEN 
BEGIN 

KR ITELH (* podaj nr kalaaarza’); 
READLNlnm; 

^gaper (nrk); 

HHTEUII' ziiana piorą (T/N)?'); 
READlkbd.ch): 

IF (ch=’F) OR (ch='t* ) THEN 
BEGIN 

NR ITELNl’ podaj nr kalaaarza’): 
READLN(nrk); 

^en(nrk); 

UNT!L’ch=’ •* 

■ode (2); 
ink (0, 1. 1) ; 
paper (0) 5 
inłćłl, 26 , 26 )| 
pen(l); 

END. 


Z piórem graficznym związanych 
jest znacznie więcej procedur. 

Przed użyciem pióra graficznego 
niezbędne jest wywołanie bezpara- 
metrowej procedury 


Od ostatnio ustalonego położenia 
pióra można wykreślić odcinek do 
punktu wskazanego w procedurze 


draw (x,yj 

gdzie: 

x,y — współrzędne punktu, do 
którego będzie kreślony odcinek. 
Dodajmy, że punkt wskazany w draw 
staje się ostatnio ustalonym położe- 
niem pióra graficznego. W przykła- 
dzie 55 zamieszczono program kreś- 
lenia prostokąta wyznaczającego ra- 
my kartki. 


Przykład 55 


PROGRAM proo4B; 
tli orsfiklinc) 

BEGIN 

ink( 0 , 0 , 0 ): 
ink(l,l9,19); 
initgrafik: 
grafpaper ( 0) 5 
grafpen (I); 
plot ( 0 , 0 ) : 
dr aa (0.399); 
dran(639,39v); 
drani 639,0); 
drań ( 0 , 0) 1 

REPEAT UNTIL keypressed; 
leayegrafik; 
ink ( 0 , 1 , 1 ): 
ink (1,26,26) ; 

END. 


W kolejnym przykładzie zamie- 
szczono prosty program kreślenia 
prostokąta o współrzędnych wierz- 
chołków (100,100), (100,250), (550,250) 


(550,100) wraz z przekątnymi, kreślo- 
nymi innymi kolorami. 

Przykład 56 


PROGRAM proo49; 
tli grafiki. inc) 

BEGIN 

initgrafik; 
aode(O) ; 
ink ( 2 , 0 , 0 ); 
ink (3, 12.26); 
ink (4, 16; 16); 
ink (5, 11. 11); 
graf^aper( 2 ); 

grafpen (5); 

plot ( 100, 100) ; a 

dra*(100,250); 

draw(550,250); 

drań (550,100); 

drań ( 100 , 100 ); 

graf pen (3); 

ar aa (550. 250); 

grafpen(4): 

plot (100,250); 

draw(550,!00): 

REPEAT UNTIl keypressed; 
leayegrafik: 

END. 

W programie prog49 wykorzystano 
procedurę 


clg (nrk) 

„czyszczącą" kartkę w kolorze usta- 
lonym w ostatnio wykonanej proce- 
durze grafpaper i ustawiającą nowy 
numer kałamarza dla tła pióra grafi- 
cznego. 

Następne przykłady ilustrują spo- 
sób kreślenia figur graficznych oraz 
niektóre problemy związane z pro- 
jektowaniem bardziej złożonych 
obrazów (ograniczając się do pła- 
szczyzny). 

W przykładzie 57 przedstawiono 
jeden ze sposobów kreślenia okręgu. 
Wykorzystano w nim metodę polega- 
jącą na kolorowaniu punktów położo- 
nych na okręgu w odległości kątowej 
co jeden stopień. 


Przykład 57 


PRDGRAh progSO; 

(li arafik3.inc> 

PROCEDURĘ okrag(xs, ys, r: i nteger ) ; 

x,y,i:integer; 

Msp:real; 

'BEGIN 

Msp:=pi/1B0; 

FOR i:=0 TO 359 DO 
BEGIN 

x:=round(rl5in(ilnsp)); 
y : =round ( r Icos ( i t*sp ) ) ; 
^lot(x5+x,ys+y); 

END: ' 

BEGIN 

initgrafik: 
ink(0.0,0): 
grafpaper ( 0 ); 
clg (0) ; 
grafpen Ił); 
okrag(320,z00,100); 

REPEAT UNTIL keypressed; 

leavegrafik; 

ink ( 0 , 1 , 1 ) ; 

END. 


Wrażenie obracania się koła uzy- 
skano w programie z przykładu 58 
poprzez zmianę kolorów szprych ko- 
ła. Efekt ten jest namiastką bardzo 
dynamicznie rozwijającej się proble- 
matyki animacji obrazów. 
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Przykład 58 

PR06RAH prog51; 

«i grafik3.inc> 

VAR 

i,j:integer; 
cn> char: 
wpsreał; 

' PROCEDURĘ okrag(x5,y5,r:integer); 

x,y,i:integer; 
uspsr-'- 


■sprreal; 

BEGIN 


Msp:=pi/180] 

FOT i:»0 TO 359 DO 
BEGIN 

x:*round(rtsin(il*5p)); 

y:=roumJ(rtcos(itirep))j 

^lot(x5+x,y5+y); 

ENO: ’ 

BEGIN 

initgrafik: 
aodeil): 
ink(2,0,0): 
graf paper (2); 
cłg(z): 
inx(0, 12 . 12)1 
ink (3,10.10); 
grafpen(O); 
okrąg (200. 200, 150); 

X5p:=pi/180; 

j:=0: 

FOR i:=0 TO 29 DO 
BEGIN 

grafpen (3) ; 
płot (200, 200 ): 

dra* (200+round ( I49lsin (6t j*«p) ) . 

200łround(149tcos(6t jtMsp) ) ) ; 
j:=j+i; 
grafpen(l): 
plot (200, 200 ); 

dr aM (200+rounij ( 149*si n (61 j tusp) ) , 

200+round (149tc05(6ljtHsp))): 

JS=j+l; 

END; 

NHlLt NDT keypressed DO 
BEGIN 

ink(l,10,10); 
ink (3,26,26); 

FOR i:=l TO 4000 DO: 

:nk(3, 10,10); 
ink (1 , 26 , 26 ) ; 

FOR ::=! TO 4000 DO; 

END: 

leavegrafik: 
ink(l, 26,26); 
ink (0. 1,1); 

END. 

Inny problem to kolorowanie figur. 
W programie prog52 z przykładu 59 
zilustrowano jeden ze sposobów ko- 
lorowania pola prostokąta. 


Przykład 59 


1 prog52; 

l$i grafiki. inc) 

VAR 

i.nrsinteger; 
en: char; 

BEGIN 

initgrafik; 

•odelO) ; 
ink (0,0,0) : . 
graf^aper(O); 

grafpen(l); 
plot (100, 100); 
drai<(100,250); 
dra*. (550, 250); 
draw(550, 100) ; 
dra* (100, 100); 

REPEAT 

gotoxy(0,23); 

BRITEC podaj nr kalaaarza ’); 
gotoxy (19,23); 

READ(nr); 

grafpen(nr HDD 16); 

FOR i : =100 TO 250 DO 
BEGIN / 
plot (100, i); 
dra* (550, i); 

ENO; 

REPEAT UNTIL keypressed; 
READ(kbd.ch) : 

UNTIL ch- 
ink (0,1, 1) ; 

•ode (2) ; 
leavegrafik; 

END. 


W programie wykorzystano instruk- 
cję 

gotoxy (x,y) 


wykorzystano do wyświetlania kolo- 
rów tuszów, którymi standardowo 
napełnione są poszczególne kałama- 
rze. 


umożliwiającą ustawienie położenia 
pióra tekstowego na określonym 
miejscu ekranu. Ekran widziany jest 
tu jako tablica znaków o wymiarach 
25 wierszy i liczbie kolumn zależnej 
od trybu wykorzystania ekranu. 

Wszędzie tam, gdzie zamieszcza się 
obrazy obiektów w przestrzeni trój- 
wymiarowej pojawia się problem li- 
kwidowania rysunków niewidocznych 
(przesłoniętych) części obiektów, 
ścian i krawędzi. 

Najprostszą ilustracją tego proble- 
mu jest kreślenie nakładających się 
częściowo prostokątów, przedsta- 
wione w przykładzie 60. 

Przykład 60 


PR0GRAN proo53; 

{$i grafik?. inc) 

xll,yll,xl2,yt2, 

^21^21, x22,y22:integer; 

NRITELNCpodaj współrzędne dolnego ’, 
'prostokąta'); 

READLN I x 1 1 , y 1 1 , x 1 2, y 1 2) ; 
NRITELNCpodaj współrzędne gornego 
'prostokąta'): * 

READLN(x21,y21,x22,y22); 
initgrafik; 
aode(O); 
ink (0,0,4)) ; 
cłg(O); 

grafwindow(xll,yll,xl2,yl2); 

graf paper (4) ; 

clq(4); 

graf window (x21, y21 , x22, y22) ; 

ssur®' 

REPEAT UNTIL keypressed; 

■ode (2); 
ink(0, i, i); 
leayegrafik; 

END. 


W programie wykorzystano właś- 
ciwości tzw. okien graficznych wy- 
znaczanych za pomocą procedury 


graf windo w (xi,yi i Xp,y p J 


gdzie: 

xi.yi — współrzędne lewego dol- 
nego wierzchołka okna, 
x Pi y p , — współrzędne prawego 
górnego wierzchołka okłia. 

Okno graficzne jest prostokątem. 
Przyjmuje się, że dla pióra grafi- 
cznego kartka jest początkowym, 
standardowym oknem graficznym. 

W podanym przykładzie każdy 
prostokąt reprezentowany jest w po- 
staci okna, a do ich kolorowania wyko- 
rzystano znaną już instrukcję clg. Do- 
tyczy ona ostatnio określonego okna. 
Efekt przesłaniania uzyskano sterując 
kolejnością kolorowania prostokątów. 
W praktycznie spotykanych zada- 
niach uzyskanie tego efektu wymaga 
skomplikowanych obliczeń i należy 
do najbardziej złożonych problemów 
grafiki komputerowej. 

W przykładzie 61 okna graficzne 


Przykład 61 

PR0GRAH proo54; 

{*i grafiki. inc> 

VAR 

xl,x2,yl.y2, 

xl:=10; 

x2:=60} 

yl:=50: 

y2:=f50; 

initgrafik; 

■odelO); 
ink (0,0,0) : 
graf paper (0) ; 

clg(O); 

k:=lj 

FOR ii*0 TO 1 DD 
FOR j:=0 TO 7 DO 
BEGIN 

grafwindow(xl+jt80,yl+itl25. 

x2+jtB0,y2+ill25); 

clg(k); 

k:=k+l; 

END; 

REPEAT UNTIL keypressad; 

ink(O.l.l): 

ink (1,26, 26); 

sode(2); 

leavegrafik; 

END. 


Podane przykłady na pewno nie 
oddają w pełni złożoności problema- 
tyki grafiki komputerowej. Ilustrują 
one jedynie wybrane, najczęściej 
spotykane problemy. 

Na zakończenie zamieszczamy 
przykład ilustrujący wykorzystanie 
rekurencji do kreślenia krzywych, 
zwanych krzywymi Hilberta. (poniżej) 



Atrakcyjny układ graficzny poka- 
zany na poniższym rysunku powstał 
ze złożenia pięciu krzywych, (poniżej) 



Procedura A jest wywoływana w pro- 
gramie głównym tylko raz dla każdej 
z nakładanych na siebie krzywych 
Hilberta. Program główny określa 
również punkt początkowy krzywej. 
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tj. początkowe wartości zmiennych x 
i y oraz przyrost jednostkowy h. Przez 
h oznaczono tu całą szerokość strony, 
na której będą kreślone krzywe. 

Ponieważ w języku PASCAL obo- 
wiązuje zasada, że pierwsze wystą- 
pienie obiektu powinno być jego de- 
finicją; zastosowano tzw. deklaracje 
wyprzedzające procedur B,C i D. W 
deklaracji takiej podaje się pełny na- 
główek procedury, a blok procedury 
zastępuje się słowem kluczowym 
FORWARD. W dalszej części pro- 
gramu deklaruje się blok procedury 
poprzedzony jej identyfikatorem (pa- 
rametrów nie podaje się). 


Przykład 62 


PRC6RAM progSS; 

{p^ograi kreśli krzyw Hi 1 berta ) 
(zadaneoo rzędu J 

(la-J 

tti orafik3.inc) 

CONST 

tiO-254} 

VfiP 


PRGCcDUKE dłisin f oęer); FORWARD; 
PROCECURG >stawp:ar D ; 

BE6IN 

E ^t ( x, y ); 

PSflCcDURc kreśl; 

BEG1N 
flra«(x,y); 

PROCEDURĘ aliiinteger): 

BE6LN 

IF i>0 MN 
BEGIK 

d(i-l); xs=k'h: kreśl; 
a(i-l); y;=y t.; krsslj 
a(i~H; x:=x+h; kreśl; 
b(l-l) 

PiD 
ENC* 

PROCbiJRC b; 

BEGJH 

IF i>0 THE* 

BESIN 

c(i-l); y:=y*h; kreśl; 
bli-t); x;=x+h; kreśl; 
b(i-l); y:=y-h; kreśl; 
a(i-l) 

£ND 
cND; 

PROCEDURĘ c; 

BEGJN 

IF i>0 THEH 
BEGIN 

bfi-l); xi=x+h; kreśl; 
c(i-l); y;=y*h; kreśl; 
c(i-I), xs*x-hj kreśl; 
dii-11 
END 
ENO: 

PROCEDURĘ d; 

BEFIN 

IF i>0 MN 
BESIN 

a(i-lJ; y:=y-h; kres!; 
d(i-l); xs=x-h; kreśl; 
dfi-ł?; y:=y+h; kreśl; 
ełi-i) 

m 

BEEll 

ifiitgrafik: 
ii=C; hs =hó; 
xO:=(h DIV 2> +75; 
y0:=x0ł50; 

REALin); 

Mds(O); 
ink(3,0,0)i 

sssr 4 ' 

ink(4,il,ll)i 
inkI5,7,7); 
ink(6, 12,12); 
ink(7, 19,19); 
ink(8,lfc,lć); 
nrk;»3; 

REPEflT 


nrk:*nrk+l; 

hi*=h DIV 2; 
xC:=xO+(h DIV 2); 
yO:=vOMh DIV 2'; 
x:=xO; y: s yO; 
grafpen(nrk); 
usUnpioro; 
a(i); 

UST II i*p; 

REPEftT UłłTlL keypressed; 
■cde(2); 
leavegrafik 
END. 


Zakończenie 

W niniejszym opracowaniu zosta- 
ły omówione jedynie niektóre właś- 
ciwości języka PASCAL. Autorzy są- 
dzą, że pozwoli to tworzyć nieskom- 
plikowane programy osobom, które 
opanowały matematykę na poziomie 
szkoły średniej, a w wielu przypad- 
kach — tylko podstawowej. 

Adam KAPICA 
Stefan ROZMUS 


Dodatek 


TURBO PASCAL jest systemem pro- 
gramowania obejmującym: 

— edytor programów źródłowych, 
u m oż I: w'i ający ch p rzygot owa n i e 
tekstu programu, 

— kompilator, tłumaczący tekst pro- 
gramu na postać zrozumiałą przez 
komputer, 

— programy pomocnicze, realizują- 
ce między innymi uruchamianie 
programu, składowanie tekstu 
programu w pamięci dyskowej 
oraz ładowanie tekstu programu z 
pamięci dyskowej do systemu. 

Strukturę TURBO PASCAL — zilus- 
trowano na rys. 18 


Uwidoczniono tu podstawowe 
komendy systemu (akcje wywoływa- 
ne przez użytkownika) przypisując je 
odpowiednim elementom. Wejście 
do systemu TURBO PASCAL następu- 
je w wyniku wywołania komendy 
TURBO. Z poziomu systemu CP/M 
PLUS (lub CP/M-80 2.2). Powrót do 
systemu CP/M jest efektem komendy 
Q wywołanej z poziomu TURBO 
PASCAL. Na poziomie systemu TUR- 
BO PASCAL możliwe jest: 


— wejście do edytora (komenda E); 

— wywołanie kompilatora (komenda 
C, która powinna być podana po 
uprzednim przygotowaniu tekstu 
programu); 

— uruchomienie programu, po za- 
kończeniu kompilacji (komenda 

R); 

— przesłanie tekstu programu do 
pamięci dyskowej (komenda S), 
lub 

— załadowanie tekstu programu z 
pamięci dyskowej do zbioru. 

Wyjście z edytora następuje po jed- 
noczesnym wciśnięciu klawiszy 
<CTRL> i K a następnie D. Wyjście z 
kompilatora następuje po zakończe- 
niu kompilacji programu lub po wy- 
kryciu błędu. Jeżeli kompilator wy- 
krył błąd w programie źródłowym 
(sygnalizując go użytkownikowi), po 


wciśnięciu klawisza <ESC> następuje 
automatyczne wejście do edytora 
wraz ze wskazaniem miejsca wystę- 
powania błędu w tekście programu. 
Wyjście z wykonania programu na- 
stępuje po jego zakończeniu lub po 
wykryciu błędu (wykonania progra- 
mu). 

jak uruchomić pierwszy program? 

W tym celu należy wprowadzić z kla- 
wiatury komendę TURBO i wcisnąć 
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klawisz RETURN. Spowoduje to wy- 
świetlenie komunikatu wstępnego: 

— komunikat wstępny — 

zawierającego pytanie o sposób syg- 
nalizowania błędów kompilacji. Na 
pytanie to należy dać odpowiedź wci- 
skając klawisz Y lub N. Wciśnięcie 
klawisza N spowoduje, że błędy 
kompilacji będą sygnalizowane wyłą- 
cznie numerami. Wciśnięcie klawisza 
Y sprawi, że sygnalizacja błędów bę- 
dzie zawierała również słowne ich 
opisy. Po wprowadzaniu odpowiedzi 
(zalecamy odpowiedź Y) zostaje wy- 
świetlone tzw. menu główne, zawie- 
rające zbiór dostępnych komend sy- 
stemu TURBO PASCAL: 

— menu główne — 

Po wejściu do systemu TURBO PAS- 
CAL należy wywołać edytor (E). Uży- 
wając komend edytora wprowadzić 
program źródłowy do zbioru robo- 
czego, skompilować go (C) i uru- 
chomić (R) lub — jeśli wystąpi błąd — 
przejść ponownie do edycji (wciś- 
nięcie klawisza <ESO. Ciąg czyn- 
ności prowadzących do uruchomie- 
nia programu można przedstawić w 
postaci następującego algorytmu: 

a) wcisnąć klawisz W (żądanie wybra- 
nia zbioru roboczego), 

b) podać nazwę zbioru roboczego 
edytora i wcisnąć klawisz RETURN, 

c) wcisnąć klawisz E (wywołanie edy- 
tora), 

d) wprowadzić z klawiatury wiersz 
tekstu programu źródłowego (zosta- 
nie on wyświetlony na ekranie moni- 
tora), 

e) wcisnąć klawisz RETURN, 

f) czynności d) i e) wykonać dla 
kolejnych wierszy tekstu programu 
źródłowego, 

g) po wprowadzeniu ostatniego wier- 
sza tekstu programu źródłowego 
wcisnąć jednocześnie klawisze 
<CTRL> i K, a następnie wcisnąć 
klawisz D (wyjście z edytora), 

h) wcisnąć klawisz C (wykonanie 
kompilacji), 

i) jeśli nie wystąpi błąd kompilacji 
wcisnąć klawisz R (uruchomienie 
programu), a w przypadku przeciw- 
nym wcisnąć klawisz ESC (ponowne 
wywołanie edytora w celu poprawie- 
nia programu. Po jego poprawieniu 
przejść do punktu h). 

Po wciśnięciu klawisza E nastąpi wy- 
świetlenie komunikatu: 

Work file na me: 

po którym należy podać nazwę zbio- 
ru (zawierającego tekst programu) w 
postaci: 

nazwa lub nazwa, typ 


gdzie: 

nazwa — ciąg od jednego do ośmiu 
znaków określających nazwę zbioru, 
typ — ciąg od jednego do trzech zna- 
ków określających typ zbioru (pomi- 
nięcie typu jest równoważne przyję- 
ciu typu domyślnego PAS). 

W obu przypadkach żaden ze zna- 
ków nie powinien być znakiem: 

= !*.,<>:;[!{} 

Po podaniu nazwy zbioru (np. F1LE- 
NAME.PAS) i wciśnięciu klawisza RE- 
TURN w pierwszym wierszu, u góry 
ekranu, zostanie wyświetlony opis 
stanu edytora w postaci 

Linę 1 Co/ i Insert Indent A:FILE- 
NAME.PAS 

Od tego momentu edytor reaguje 
tylko na własne komendy, a nie na 
komendy systemu TURBO PASCAL. 
W następnych wierszach będą wy- 
świetlane kolejne wersy wprowa- 
dzanego tekstu programu źródłowe- 
go. Gdy cały ekran zostanie zapeł- 
niony, wprowadzenie nowego wier- 
sza następuje po przesunięciu zawar- 
tości ekranu (bez op«su stanu edyto- 
ra) o jeden wiersz w górę. Nie należ* 
się jednak obawiać utraty „znikają- 
cych” wierszy. Można je bowiem wy- 
świetlić wykorzystując odpowiednie 
komendy edytora. 

Wciśnięcie klawisza C (po wyjściu z 
edytora, po wprowadzeniu tekstu 
programu) spowoduje wykonanie 
kompilacji programu. 

Jeżeli zakończy się ona poprawnie, 
program można uruchomić przez 
wciśnięcie klawisza R. W razie błęd- 
nej kompilacji należy ponownie wy- 
wołać edytor (tym razem przez wciś- 
nięcie klawisza <ESC> i wykorzystu- 
jąc niżej opisane komendy edytora 
poprawić program źródłowy. Czyn- 
ności poprawianie — kompilacja wyko- 
nujemy aż do uzyskania bezbłędnej 
kompilacji. 

WYBRANE KOMENDY EDYTORA 

Pierwsze próby uruchomienia pro- 
gramu z reguły kończą się niepowo- 
dzeniem. Przyczyny są następujące: 

— w programie źródłowym wystąpił 
zapis niezgodny z regułami języka 
PASCAL (sygnalizowany jest błąd 
kompilacji), 

— podczas wykonania programu wy- 
stąpił błąd, np. próba wczytania 
danej o postaci niedopuszczalnej 
dla typu zmiennej, której ma być 
przypisana (sygnalizowany jest 
błąd wykonania), 

— w programie wystąpiły błędy logi- 
czne (program został zrealizowa- 
ny lecz wyniki są niezgodne z 
oczekiwanymi). 

W każdym z tych przypadków 
należy wywołać edytor przez 
wciśnięcie klawisza: 


— <ESO — po sygnalizacji błędu 
kompilacji lub wykonania; na ek- 
ranie monitora zostanie wyświet- 
lony program źródłowy, a kursor 
wskaże :niej>ce, w którym wystąpił 
błąd, 

— E — gdy stwierdziliśmy błędy lo- 
giczne: na ekranie monitora zos- 
tanie wyświetlony program źród- 
łowy, a kursor będzie wskazywał 
pierwszy znak w pierwszej linii 
programu. 

Wykorzystując komendy edytora 
program można poprawić i urucho- 
mić ponownie. Edytor dostarcza 45 
komend, z których opiszemy kilka, 
naszym zdaniem niezbędnych. 

Zapisujemy je symbolicznie nastę- 
pująco 

<CTRL> — ZN 

Oznacza on, że po przy wciśniętym 
klawiszu CONTROL należy nacisnąć 
klawisz ze znakiem ^N w . 

Poprawienie programu może pole- 
gać m.in. na: 

— wstawieniu nowych znaków w 
wierszu, 

— skasowaniu określonych znaków 
w wierszu, 

— wstawieniu nowego wiersza do 
programu, 

— skasowaniu określonego wiersza 
programu. 

Edytor ma dwa tryby wstawiania 
znaków w wierszu: 

INSERT o r az O V ERWRITE. W trybie 
iNSERT nowy znak zostaje wprowa- 
dzony na pozycję kursora, a pozosta- 
ła część wiersza (od kursora w prawo 
do końca wiersza) jest przesuw ana w 
prawo. W trybie OYtRWRITT nowy 
znak zostaje wprowadzony na miejs- 
ce znaku wskazywanego przez kur- 
sor. Zmianę trybu wstawiania znaków 
powoduje komenda <CTRL> — V. 
Do skasowania znaku znajdującego 
się przed kursorem wykorzystywany 
jest klawisz <DEL>. Do przesunięcia 
kursora można wykorzystać jedną z 
komend: 

<CTRL> — D — przesunięcie kursora 
w prawo o jeden znak, 

<CTRL> — S — przesunięcie kursora 
w lewo o jeden znak, 

<CTRL> — E — przesunięcie kursora 
o jeden wiersz w górę, 

<CTRL> — X — przesunięcie kursora 
o jeden wiersz w dół, 

<CTRL> — W — tzw. przewinięcie w 
górę (przesunięcie tekstu wyświetlo- 
nego na ekranie o jeden wiersz w 
dół), 

<CTRL> — Z — tzw. przewinięcie w 
dół (przesunięcie tekstu wyświetlo- 
nego na ekranie o jeden wiersz w gó- 
rę). 

Wstawienie nowego wiesza umoż- 
liwia komenda <CTRL> — N. Powo- 
duje ona wstawienie nowego wiersza 
(za wierszem, w którym znajduje się 
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kursor). Znaki, od pozycji kursora w 
prawo do końca wiersza, zostają prze- 
niesione do nowego wiersza. Pozycja 
kursora się nie zmienia. Do kasowa- 
nia wiersza, w którym znajduje się 
kursor, służy komenda <CTRŁ'> — Y. 
Po skasowaniu wiersza tekst znajdu- 
jący się poniżej kasowanego wiersza 
jest przesuwany o jeden wiersz w gó- 
rę. Kursor przesuwa się na pozycję 
pierwszego znaku. Przy stosowaniu 
tej komendy należy zachować ostro- 
żność, gdyż nie ma możliwości odzy- 
skania skasowanego wiersza. 

PRZECHOWYWANIE ZBIORÓW 
ROBOCZYCH 

Żądanie utworzenia nowego zbioru 
roboczego, gdy w pamięci istnieje już 


jakiś zbiór (np. poddawany edycji), 
powoduje wyprowadzenie pytania 
dotyczącego składowania istniejące- 
go zbioru. Odpowiedź twierdząca (Y) 
powoduje w tym przypadku prze- 
chowanie zbioru w pamięci dysko- 
wej, przecząca zaś — jego zniszcze- 
nie poprzez otworzenie nowego 
zbioru roboczego. Widzimy zatem, 
że składow-anie zbioru zapobiega je- 
go zniszczeniu. Składowanie pro- 
gramu można uzyskać również przez 
wykonanie komendy S. jeżeli istnieje 
poprzednia wersja zbioru o tej samej 
nazwie, co składowany zbiór robo- 
czy, to typ zbioru w tej wersji zostanie 
przemianowany na BAK. Wprowa- 


dzając nowy program o dużej ilości 
wierszy źródłowych warto dokony- 
wać jego składowania po wprowa- 
dzeniu kolejnej porcji wierszy. Zapo- 
biegnie to utracie całego wprowa- 
dzonego programu w' przypadku ja- 
kiejkolwiek awarii. Wczytanie prze- 
chowanego programu umożliwia 
znana już komenda W'. 

W „Dodatku" omówiono jedynie 
te właściwości systemu TURBO PAS- 
CAL, które są niezbędne do urucho- 
mienia przykładowych programów. 
Bardziej zaawansowani programiści 
powinni zapoznać się ze wszystkimi 
właściv'ośdami systemu, omówiony- 
mi w dokumentacji producenta. 


Prezentujemy dwa bardziej złożone programy, 
w których wykorzystano własności pakietu gra- 
ficznego GRAFIKA 3.1 NC. 

GRA HAMILTONA 

William Hamilton, matematyk i astronom an- 
gielski z pierwszej połowy XIX wieku, obmyślił 
ciekawą rozrywkę zwaną „podróżą po dode- 
kaedrze” (dwunastościanie). W „podróży” tej 
chodzi o jednorazowe odwiedziny wszystkich na- 
roży dwunastościanu z powróceniem do naroża, z 
którego się wyszło. 

Program umożliwia „podróż” lub demonstruje 
jej przebieg, przy czym dwunastościan został zastą- 
piony następującą figurą płaską: 



Klawisze funkcyjne: 

0 — wyjście z programu, 

1 — powrót do „menu", 

2 — demonstracja gry, 

3 — gia, 

A-rT — wybór odpowiedniego 
punktu figury, 

TAB — cofnięcie ruchu. 


UWAGA: program kończy się, gdy następuje po- 
wrót do punktu początkowego; wygrywa ten, kto 
przejdzie przez wszystkie punkty zgodnie z poda- 
nymi zasadami. 


PRO&RAfl arahaiiltora; 

{$i oratifc3. inc) 

HPE' 

nazwypunkto»i=ia,b,c,d,e,^ę,h t i.j,k, 

Dpi S pu n ktu=REC0ftS ,n ' O ’ P ’ <5 ’ r ’ S ' t 5 
x,v:integer; 
askpiboolean: 
sa5iedzi:ARRAYU..3I OF 
RECORD 
poprą, 
lewy, 

^granyrnaznypunktoK 

EW): 

dodekaedr=ARRAT[nar«ypurkto><] OF 
opispunktu; 

lzn=strifigI403:' 

VftR 


figidodekaedr; 
ppoczmazrypunktou; 
eh: char! 

pozlit:ARRAY[’A’..’T’I OF 
RECORD 

»ykgr:boolean; 


(tttmmtmtttttitutimittmiittitit} 

U preedury pomcnicze da »aripulacji 1) 

(I zobrazowanie* grałśczny* t) 

<1 « 

PROCEDURĘ punkt !nazp:nazwypunkto«) j 
BEGIN 

^jjlot<łigtnazp].x,łigtnazp].y) 

PROCEDURĘ linia<nazp:naz«ypunktou!; 

BEGIN 

dra* (figtnazp].x,łigtnazpl.y) 

END: 

PROCEDURĘ literallitichar); 

BEGIN 

-plo{(poziittlitl.x,pozlittlit].y); 
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graf out (lit); 
tagoff 
EM): 

PROCEDURĘ napis (l:Izn;nrlin> 

nrkolsinteger); 

VfiR 

*hk k!Megen 

s i : =nrkol *16-16; 

j;=400-nrlinll6; 

Fo 8 ’k:*l 

BE6IN 
plot (i. j): 
grafout(lEkJ); 
i:=i+16 
END: 
tagof f 
END; 

mnumtttmmmtntmmtmmttfi 

(immmtmmmmimmiitimmi; 


TO length (1 ) DO 


(i 

{> 


ustawienie współrzędnych 


I) 

I) 


PROCEDURĘ ustawwsp; 

PROCEDURĘ wsppCnazpznazwypunfctOHj 
xp,yp:integer) ; 

BEEIN 

HITH f iglnazp! DO 

BEBIN x:=xp; y:=yp; wskp:=false END 
END; 

BE6IN 

wsppla, 200,50); wspp(b,400,50): 
wspp (c, 464,240) ; wspp W, 300, 356) ; 

Nspple, 134,2401; wspp Ił, 176, 226); 
wspp Cg, 216, 142); wspp (h, 222, 84); 
wspp ii, 300. ICO) ; wspp i j, 373, 04); 
wspp (k, 384, 162); wspp (1,424,226) ; 
wspple, 354,258); wsppin.300,314); - 
wspp (o, 246, 25B> ; wspp !p, 270, 020) ; 
wspp !q, 254,1741; wspp !r. 300, 140) ; 
wspp ls',346, 174); wsppit.330,228) 

END; 

imumumtttimmitmmmmmi} 

{tmummmtmmummmtmmt} 


u 

« 


opisy wierzchołków sąsiednich 


PR0CEDUPE ustawsas; 

PROCEDURĘ sdlnazp.pl, p2, 

p3:nazwypunktow); 

BEB1N 

NITH figlnazp] CO 
BEEIN 

NITH sasiedzitl) DO 
BEEIN 

^oprz;=pl; lewy: =p2; prawy:=p3 

MITH’ sasi edz i C23 DD 
BEEIN 

poprz:=p2; lewy: =p3; prawy:=ol 
END; 

RITH sasiedz i C33 DO 
BEEIN 

ppprz : =p3; lewy:-pl; prawy:=p2 
END 
END 
END; 

BEEIN 

sdia,e,h,b); sd!b,a,j,c); sd Cc, b, 1 ,d> : 
sdid,c,r.,e); sd(e,d,f,a); sd (ł,e,c,g) ; 
sd tg, f , q,h! ; sd!h,g,i,a); sd<i,h,r,j); 
sd(j,i,k,b); sd(k,j,s,l); sd(l,k,a,c); 
sd!»,l,t,n); sd !r>, s, o,d) ; sd(o,n,p,f); 
sdip,e,t,ql; sd!q,p,r,q); sd!r,q,s,i); 
sd!s,r,t,k); sdit,s,p,«! 

END; 

amtmttutnmmmuttummnui' 


mnttmttmmmtntmttmmmm) 

(I wypełnienie tablicy opisującej 4} 

Cł położenie nazw wierzchołków »} 

II I) 

PROCEDURĘ nazwyw; 

PROCEDURĘ wp ( I : char ; x , y : i nt eger ) ; 

BEEIN 

pozlitC13.s:=x; 

po:littll.y:=y 

END; 

BEEIN 


wp!’ fi’, 195, 40); wp!’B', 395,40); 
wp(’C’,4?5,245l; wp!’D’,295.376); 
wpi’E’, 115.245); wpC'F’,174,246); 
wp(’G’,195,160); wp(’H’,225,78); 
wp { ’ I’ ,205,90) ; wpi'J’,363,78): 
wpl’K’,392, 160); wp(’L’,420,24ć); 
wpC’H’,361,276); wp!’N’ .27B.329); 
wp ! ’ 0’ , 231 . 276) ; wp ( ’P’ , 250,230) : 
wp i’ T' , 317, 247) : ’wp!'D’,244,164); 
wp!’S’. 350,180); wp CR’, 307, 139) 

END; 

{tuiimmnmmuntuttnumnttm 


{tuutmmnmmmmttmtttmmt) 

[I wyświetlenie figury i) 

!l ł) 

PROCEDURĘ wyswfig; 

VhR 

i, jmazwypunktaw; 
l:char; 

EEEIN 

border (0,0): graf paper (3); 
dg(3); grafpen(O); 
punkt Ca); 

POR i:=a TC d DO 
linia (suce fi)): 
liniała); 
punkt Cf); 

FOR i : =o TO o 00 
liriaiO; 
liniaif); 
liniale); 
j!=b; 

FOR i :=a TO d DO 
BEEIN 
punkt (i ) : 
iiniaCji; 
j:=succ(succ(j)l 
END: 

punkt ip); 

POR i :=q TO t DO 
liniaii); 
iiniaCpi; 
liniale); 

FGR 3 i;=q TO t DO 
BEEIN 
punkt fi) s 
imilui; 
j:=succ!secc! j!) 

END; 

nazwyw: 

zrafpenCO); 

FOS i ? = : fi 5 T D ’V DO 
literaci) 

END; 

mtimmimtnmmmmmmuttn': 


ntHmtmtmmmmntttntmmm) 

{• pokaz wyznaczania drogi hanilto.na ł) 
:t ' I) 
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PROCEDURĘ pila: ; 

,-hR 

alt, pso , pot: naz wypunkt su ; 

irteoer ; 

FUNDUJ" nreiintagar; 
t'A F zn:beclean; 

isintager; 

SESIN 
zr,;=Faise: 
i : = ii 
REPEPT 

«ITH łiolakt] 50 
IF saśiedziin,poprz=pD;- THEN 
8E6IN nrer=i : zn:=t r ue ENSi 
i:=i‘l 
zn 
E"5; 

“RSCEEiK wiewo: 

BESIS 

33*:=akt; 

aH^igiaktl.sasiedzilnrel.lssy: 


?OD!=PD 
Ii ni a (akii 

PRBCE3URE 


wprawo; 

FEEIN 

pc«:=akt: 

akt i =f i q [.ak fc ] . 525 i sdz i i nr ś 3 . prawy ; 

sop:=po«; 

linia (akt) 

PROCEDURĘ Dpazr.i i; 

*»P iiiiteosr; 

BESIN 

REPEPT 

i:=i+l 

UISTIL i >20000 

3SS! - 

wvswf 19 ; 
opoznij; 
i i :=rando»! 1 9! ; 
akt:=a: 

IF n>0 THEN 
F0F i:=0 TG il-1 90 
akt:=succ Cakt! ; 

pop:=FięCakU. 5 asied:iErandoaiZH'J 

litera (rtr (ord!’ A’ Hord (akt) ) ) ; 

opoznij; 

punkt (akt!; 

FOR 1 1 :=J TD 2 BO 
BESIN 

FOR I2:=i TD 3 DC 
BEGIN ulew; spóźni I ENB ; 

FGR 1 2; = J TO 3 DO 
BEGIN upraw; opoznij ENB; 
wlswo; spóźnij; 
uprano; opoznij ; 
wiano; ocozni j; 

^«r«Oi osaznij; 

naoiŚTKBNIEC PDKSZO’ , 24, 1) ; 
wyfcgr:=talse 

riiiitmtitittiinittiimiitmtittiitt;; 

{ittiHiimiułtiMtutmiiitiiiittmti} 

!t menu *} 

« »} 

PROCEDURĘ menu; 

BESIN 

r (0,0) ; grafpaper!3); 


c!g(3); orałpin (2) ; 

napisCBfft HAMILTONA’ ,2. 5> ; 

napis CNENU: ’,4,51; 

napis ; '(> - wY-jSCIt i 

napis!’! - POtffiGT DG HENU’. 8, 10); 

napis ! ’ 2 - POKAZ’, 10, 10); 

napis!’ 3 - ERA’, 12,10); 


iF :4ilse 

ntimmmm 


mmttmmtmttwmtttmtm 

imtttnmmtinmintinnmuttmt) 

Ii gra t} 

li i) 

PROCEDURĘ gra; 

W R 

ior:!9c;booiean; 

r uchv; ARRAYtl.. 203 OF nazwypunktow; 

ppocz.pnastinazwypunktaw; 

iraktn-.teoer; 

FONCTION nafp(-:h:charS:nazhypunktow; 

TOR 

i.jiintegsr; 

p;nazwypunktc-f;; 

BESIN 

IF (ehi=’fi’! hNB (ch<=’T’t THEN 
!:=ord!chi-orirfi’i 
ELSE 

i:=ord''-:h!-s>ji’a’!; 

pr-a; 

FOR j;=t T 0 i BQ 

5:=suc:!pi; 

„nazp;=p 

PROCEDURĘ wycaskca: 

VAR 

Ipc-fdzn; 
i ; inteaer; 

BEGIN ' ' 


:rafpen!3!; 

FOR i : =S T B 40 DO 


IpoeEi i ; =’ ’; 
napisUpoo, 24.21; 

grałpeni!! 

FUŃC T I0N rpoor ianast : nazwypunktow) ; 
Soclean; 

EEGIN 

HITH Fjęts»ast2 DO 
!■ <NC- wsks! AKS 

i. (sasi ?Sz : ' : 3 . poprz=f udisćnrakt 3) DR 

''5as:sez:[2j.pcprz=ruchyln<-3kt3i OR 

(sasifdzitEj.pcpr-z^-zchylRraktj!! 

Tli ES rpDDr;=trug 

ELSE r;zc.r;=tals= 

' 


; 

sstłKis: 

<■•531! 3; 

»ykgr:=trusi 
koniec: =f el se $ 
qra*pen(i) ; 

ńepisr PODAJ PUNKT POCZĄTKOWY'. 24, i); 
CEppĄT 

REPEST UNTIL ksyprassad; 

FiERDikbd.ch! ; 

UNTIL H:h>=’4’5 fiND tch<*’T’J) GF: 
!ich>=’a’i AND !chi=’t’)!; 
ppnsz:--iaz 2 i:h'i; 

IF lcWa’[ AND !ch<=’t’! THEN 
ch;=chr!crd'ch)-32!; 

I i tera <eh) ; 
nrakt:=i: 
rtrhv[!]:=ppcczj 
wygaskps; 

napis i ’ P0BA3 NASTĘPNY PUNKT’ ,24. ii : 
-punktlppcczi; 
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NHILE NOT CtchMłg) OF Ech=*4?> PR 
(ch=#50J OR tch=#5S > SR koniec) 00 
BEGIN 

REPEfiT BRTIŁ KevprKsed; 

9EfiD(kbd.ch) s 
IF ch=#P TM£H 
EEEIN 

IF nraktM THEN 
BE5IM 

grjfpenfO); 

i i nia CruchyEnrakt-i] ) ; 
f iQ£rachyEnrakt33.wskp:=f alse; 
nrskt:=nrakt-l; 

S$%AJ NASTĘPNY PUNKT’ .24,1): 
^purakt iruchyErrakt 3i ; 

END 

ELBE 

IF { !ch>=’fi ; ) AND tch<= ! T’S! OR 
tleM-'*’! h«D tclK*'t"4 THEN 

EEEIN 

pnast:=nazp !ch) ; 

IF rpopripnast) THEN 
EEEIN 

liniaipnast); 

IF pnast=npocz THEN koniec:=true 
ELSE 
EEEIN 

nrakt:=nrakt+ls 

ruchylnraktl:=pnast; 

łig[pnast].H5kp:=true; 

wygaskom; 

napisCPODAJ NASTĘPNY PUNKT’, 

24 1); 

punkHrucfylńraktl! ; 

END 

END 

ELSE 

BE6IN 

wygaskon; 

napis! 

’ 2LY RUCH-PODAJ NASTĘPNY PUNKT’, 

punkt (ruchyEnraPt 3 ) 

END 

END; 

END; ' 

IF koniec THEN 
EEEIN 
wygaskoe; 

IF nrakt=20 THEN 
napis! 

'KONIEC ERY. NYERRLES-ERATULACJE’ , 
24,1) 

ELSE 

napis! 

'KONIEC ERY. NIESTETY PRZEBRAŁEŚ’, 
24,11: 

Hykgr:=talse 

END 

END; 

ammttttmumutmnumumtm ; 

EEEIN 
crtinit; 
initgrałik; 
todell); 
ink iO, 26, 26) ; 
inkil, 15,15); 
ink!2,9,9); 
ink (3,0,0); 
ienu; 

REPEAT 


IF NOT nykgr THEN 
BEGIN 

REPEAT UNTIL keypressed; 


READ !kbd , ch) 
END; 

CASE ch OF 
049; ienu; 
#50: pokaz; 
#51: gra 

UNTI’l ch=#48: 


»ode!2); 
ink <0, 1,1); 
inkil, 26,26); 
border!l,l) ; 
leavearafik; 
END, 


WIEŻA HANOI 

Mamy trzy pręty i n krążków o różnych śred- 
nicach. Krążki mogą być nakładane na pręty, two- 
rząc w ten sposób wieżę. Załóżmy, że n krążków 
zostało umieszczonych początkowo na pręcie A w 
kolejności malejących średnic (na rysunku zilus- 
trowano tę sytuację dla n — 3). 



Naszym zadaniem jest przesunięcie n krążków z 
prętu A na pręt C z zachowaniem pierwotnego 
porządku. Zasady przesuwania są następujące: 

1) w każdym kroku przesuwa się dokładnie 
jeden krążek z jednego pręta na inny, 

2) krążek nie może być nigdy nałożony na krą- 
żek o mniejszej średnicy, 

3) pręt B może być użyty jako „magazyn po- 
mocniczy". 

Po wprowadzeniu do programu ilości krążków 
(1 — 5) program realizuje ich przenoszenie według 
podanych zasad. 

PROGRAM HiezalMcoii 
t*a-> 

{}; grafik3.incl 
COflsT 

i*axil kr=5; Iiaksysalna ilosc krazkow) 
py=40; 

podstawa=5G; 
sr 1=1 19 ; 
sr2=299; 
sr~=479; 

TYPE 

znafcp=’a’..’c’j (nazwa pręta) 
«yswiezM,.mssiIkri {ukfynlna wysokosc wieży 
itierzora ilością krazkctO- 
2 ?:swiBZ=AREAY Iznafcp) GF -Copis wieź) 

R-ECGrD 

h:n»shUzs (wskaźnik wierzchołka niezy} 
HiezatARRAY Iwvswiez] OF wvswiez 
END; 

VAR 

ilkrjinteger; (zadana ilosc krążkowi 
start, (pręt, z ktoreoc przEsuwasw krążki) 
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Cii, 'prat , m itcry przesuwały krazt: i 
p=sr iznakp; 'pręt - aagazyri paaocniczy 1 
cps:cpis*:sz; 
eh!, ci:": chi^iars: nteger ; 

PR02E211RE ustawstpsc:: 

Cprccedura ustawiajaca początków stan wieź) 

sizraks: {ziisnne rotozzs) 
jiwtswiez; 

FF:DCE2 tlEE prst i8 : i nteger ; ; 

{procedura rysewania pręta, na który bedał 
{nakładane krążki ) 

BEEIN 

piat u-3, podstawa!: 
draN{8-;,z?0i: 
p!ot!r+J. podstawa!; 
dra«(?*3.270) ; 

EM: 

PROCEDURĘ krążek ' i ; bvt e‘ : 

{procedura rysowania krezka o renerze j} 

lin.sJ.yl.sp.ypjpajtrtBęeri 

EE5iN 

grafpen!i*U; 

yl :=podsiawa+ Ina; : i kr-i i «py; 




r )t 10*20; 

zlj-srl-pz: 

sp:=srl+p:: 

FOR Izn:=vl TO yp CO 
BE5IN 

p<ot(xl,linl; 

drawlrp.lin): 

EM i 

EM; 

EcEIŃ 

init (0,0.0): 

i n« '1,26,26!; 

ink <2. 15, i5> : 

ink!3,!7,17i; 

ink(4.6,4>; 

i nk f 5 , i , 1 i ; 

i nr; !ć, 2J ,21); 

gratpaperfC); 

dg(0!; 

arafren!!); 

plot i'E0, pedstawa-ł) j 

braw!55v, podstawa-!; ; 

plot (50, 43) i 

dra»(550,43): 

plotisrl-;0 t 20!j 

graf ou* CA’ j; 

pretlsrl!: 

plot RsrZ-iO, 20) ; 

arałputCB’!: 

pret!sr2! ; 

plot (sr 3-10,20! ; 

grafcutCC’); 

pręt !sr3) ; 

KTH o?w[V) DO 
BE6IN 

tc^aasilkr-iUr+l: 

FOR ::=« TO sasilkr DB 
wi ezat i 3 : =i ; 

END; 

opwi b’ ],w:=0; 
cpu[’c’].u:=0; 

FOR i;=aavilkr DD8ST0 opM[’a'].« DD 
rrazeMi): 

FOR i : =1 TC 15000 CO 
EKD: 

PRGCElURE wyskr !razw:zr;J(r;nri:r:byte; 

VSR sr.psiińteger); 

{procedura astalajaca wyeiary i położenie) 
{krj;ki na wi=zv ! 

BESK; 


:-Er nazw DF 
’a ! !sr;=5rl: 

’b’ :sr:=sr2; 

’c ! :sr:=s'3; 

EM: 

jis := 'arlr-1 i i 1 0+20; 

RuKCTlOtl przesi start , cel : znakp i ; i nteger ; 
(funkcja w. inatlsjaca wielkość przesunięcia) 
ttrazte w lewe lub w prawa } 

EtślB 

CfiSE start CF 
V;:f :el=’r,’ THEN 
^rzes-dS: 

pr;=s:=360i 

’C’:przes:=lS0; 

’c’;!r C5l='b’ THEN 
zr:es:=180 
EL3E 

przes:=3i0: 

ES; 

EOS; _ 

FRDCEDJFE pgjra (star* :z-.ako;nrkr,w5iw:byte!; 
ip r rzedjra przesuwająca wybrany krążek) 

■Iz zadana; ńtn w s:re 5 

vAR 

Sr.pa,P3CZ,kSR. 

padst.isintecer: 

SESIN 

»-Tl: 'start . nrkr , -:r,pi; 5 : 

5cc::=sr-px; 

k:s;=sftp«: 

p:dst;=podstisz+!aa:;ilkr-wsi.wiS;v; 
tDT l:=ccdst T 3 301 DO 
EESl'1 

ę r af:eb(9); 

pl3t!jxi,:); 

drasiksn.:!; 

I- i i =230 THE*! 

BEEiK 

graf pen (ii; 
plettsr -3.il; 
d r a*'sr*3,i)i 

grifserlsrkr+l); 

;!:t(pocz,i*py>; 
drsw’*y-..:tp/h • 

EsD; 

EHE; 

FitCCEBUSE 5)el f cs’:znak;;r:rkr,wskw:feyte!; 
{prccedara nybraey krążek) 

{» iol -na zada- z wiszą } 

yRR 

sr.pzlpccz.Spr, 

rzdst.iiisteasr; 

SK!S 

W;:,lriCe;,nrŁr,;r,5;;i; 

:::z.ni'-n;. : 

kCB:=sr+C8: 

peset: *scd5t iwa* (ra-,i ikr-ask*; lpv; 

*0? i:=3M 5MV“0 ;S ist*py 20 
PEEIH 

zrafpenśOl; 

piet 

d'e*!«j*i.ż); 

IF i<=2-0 “HEN 
BEEIN 

grafesr!!!; 
piet (sr-:.:! ; 
dra»isr»3,i , 'i 

crs+ssn 'srkr+1) ; 

PljHpccZji-py); 
dr as ; kap , i -py > ; 

__END; 

PROCEDUR: ppras3!5*art,cel:zna*-p;r!rkr:bvts'-; 
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{procedu r 8 przesuwająca wybrany t-.razefc } 
(w prawa od wiązy 'starf de wieży 'cel’} 
.VAR 

c.r , 3r , ~3CI ą '-Or.dpl^łs, i ; ^n^er-gr < 

BEC-lK' r 

nyskr ! st ar t , nr '•.*■, sr , p > > ; 
delUn-przes i start . cal ) ; 


rCśi=srł*: • 

ii^TS^slta '- 1 CO 

graf osn (0) ; 

SlctkNKZ+l.SH/S 
dr ass (poezji ,3^1) i 
graf pen (nrkrti) j 
plot tan-i, 302); 
drati ifcn+i ,341 > ; 

E‘!D; 

END; 

PROCEDURĘ plewo (atart , cel : znakp; nrkr ; byte> ; 
{procedura przesuwająca wybrany krążek } 
{w prano od wieży 'start’ do wiezv cel ’ J 
VfiR 

sr ,p* , pocz , kon .deltas, i : integer ; 

BE6IN 

wynkr (st art . rr kr , sr , ps ! ; 
deItaK:=przes!start,cel) ; 
pocą : =sr-px ; 
kon: =sr+pji-ł ; , 

FOR i : =0 TO deltas-l-DC 
BEEIN 

graf pen (0) ; 
plot (kon-i+1,302) ; 
drawikon-i*l,3il!; 
graf pen (nrkr+1 I ; 
plot ipocz-i+1, 302); 
drawlpccz-i*l , 341 ) ; 

ESC; ' 

END: 

PROCtSURE przen (start , cel : znakp 1 ; 

{procedura przenoszącą pojedynczy krążek} 
{ z pręta "start" na pręt "cel" ) 

VAR 

nrkr,Nskn!byte; 

SESIN 

wskw: =opwCstart3; «s; 

:-opnCsta 
a'start,n 
onwlcell DO 
BEGIN 

iF h= 0 THEN w:=easilfcr 
ELSE w:=w-l: 

HiezaCwI:=nrkr; 

END; 


nrkri-opwCstartl.wiezalwskwl; 
poora 'start, nrkr ,vtsks() : 

W?TH i 


ę ' v ; & ■ 


|R. 




HITH opwlstartl D3' 
IF w-aaiilkr THEN 
ELSE w:-wH; 

CfiSE cel DF 


a :-0 


• i 


’a’:pleno!start, cel, nrkr); 

’b’:IF start=’a’ THEN 

pprasolstart, cel, nrkr) 

ElSE 

plewo (start , cel, nrkr); 
’c’:ppraHo!start,cel.nrkr); 

END; 

wskw: =opwEcel 3. w; 
nrkr:=npw[cell.wieza[wskw]; 
pdol (cel, nrkr, wskw); 

END: 

PROCEDURĘ przel (n:wyswiez; VfiR start, posr, cel: znakp); 
{procedura przesunajaca “n" krazkon z pręta 
"start" na pręt "cel" z wykorzystanie# pręta 
"posr" jako lagazynu} 

BEGIN 

IF n=l. THEN przen (start, cel) 

ELSE 

BES1N 

przel tn— 1, start, cel, posr); 
przen (start , cel > ; 
prze! (n-1, posr, start, cel) 

END 

END: 

BEGIN 

REFEfiT 

NRITELNCpadaj ilosc krazkow <= ’ , na*i Ikr) ; 
READLMilkr) ; 

UNTIL (i!kr>0i AND (ilkr<=Baxilkr) ; 
inltgraf ik; 
node v0> ; 
ustawstpocz: 

graf wi ndowCO, 0,639, 399); 

start:='a’i 

cel:=’c’; 

posr:=’b’; 

przel ii Ikr, start, posr, cel); 

REPEAT UNTIL keypressed; 
ink(l,26,2fc) ; 
graf pen fi) ; 
ink fo, 1,1): 
gra+jiaperlD); 

i!c§e!2) ; 
leavegraf ik; 

END. 
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Hsiard jest jednym z tych nałogc-w , 
Bt«ry może bezpośrednio nie odbija 
s.e na zdrowia, lecz pośrednio od - 
działywuje bardzo skuteczna. Iluś 
to ludzi popełniło saflobOjstoo z 
powodu pozostawienia swojego całe - 
go majitku w kasynie gry. Tobie , 
oczywiście, to nie grozi z prostej 
przyczyny, posiadasz przecież kom - 
Futer . ryn razem daje ci on aoz - 
nosc podejmowania ryzykownych de - 
cyzji bez r. o sa tytfnych następstw w 
razie ponyłki. Wbrew utartym sche - 
matom trzeba w lej grze również 
mySlec , jakc cel postawiono przed 
grającym zadanie zdobycia Zetoaow o 
wartości 2S0 punktów . Komputer 
przydziela ci na początku gry 10 O 


punktów . Każdy cbrot bębnów Kosz - 
tuje ciebie żeton o wartości i 
punk ta . Po "" włożeniu "* że tona, 
lula. Wiszem sclcct , naciskamy STflf* . 
ł-.T. wszystkie bębny wystartuj* , *’ 
po chw iii kolejno od lewej stromi 
zaczną s*e zatrżymaywaC . Po 

będziesz miał d.o^ 
sytuac^ 


zatrzymaniu sie 
czynienia z następującym i 


ja Mi 


— 1 

strzałek! 


i. rła bębnach na wysokość 
sa rożne owoce . Punktów jest ponjM#- 
żej , a komputer reaguje jedynie 
lampka INSERT COIN, po lecą j*Ca wrze- 
cie żeton . zrOb, to naciska jac s^- 
\ 

lect . Czynność te możesz powtó- 
rzyć kilkakrotnie -zwiększysz w tan 
sposOb swOj kredyt w komputerze!. 
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Klavitz«> ITAKT oruchOBitt ponowni* 

fe*bnv . 

a. Na b® bnach sa rożne owoc* . Pun- 
któw Je»t anie j ni* 7 . Pod bebnani 
alga i ampk i z napisem hołd . Ozna- 
cza to , ze Jeżeli Zechcesz , to 
prztd uruchomieniem bębnów aozesz 
niektóre z nieb zatrzyaac . Dokonu- 
jesz tego klawiszaai od l do u . 
Gdyby* w trakcie wybierania doszedł 
do wniosku , ze zatrzymujesz nie- 
właściwe bębny , nacisnij CSC . Nas- 
tępni* ^skoryguj swej wybOr . Pozos- 
tałe czynności jak w p. i . 

3. Na wysokości strzałek na bębnach 
patrząc od strony lewej wasz dwa , 
trzy iub catery taki* same owoc* . 
Na dole v zalasnosci od rodzaju i 


ilości owocow Świeci Sie lampka z 
ilością punktów . Mozesz Je zabrać, 
ftaetskajac STOCrr. Gdy zachcesz zdo- 
byte punkty postawie i ewentualnie 
zdobyć ich wiece j, nacisnij OPTIOK . 
D*vskaj*ce lawpki po bokach , wska- 
zujące wygrana , pokazują , ile iO- 
zesz zdobyć punktów , jeSli zary- 
zykujesz C ta po prawej 3 lub , i le 
dostaniesz ich w postaci nagrody 
pocieszenia , gdy cl sit nie uda 
C po lewej J. Gdy . przegrasz , kom- 
puter aut owatycznle dpdaje punkty 
do twojej kasy , a następnie oczeku- 
ją na kontynuacje gry . ziosc pun- 
któw , jak* aozesz zdobye w zależ- 
ności od lloSci i rodzaju OwOCOw , 
przedstawiono w tabeli poniżej, jak 
z niej widać okruch CChipJ -w prze- 


ciwieństwie do rzeczywistości -jest 
wart najwięcej . 

u. Gdy uzyskano na bębnach 7 pun- 
któw , kowputer aut owa tycznie wyko- 
nuj* ponowny obrOt b*bnow . otrzy- 
masz Ślepa wygrana , która ustawi 
bębny na owoce dajace żetony o war- 
tości 3 lub 5 punktów . Suma pun- 
któw zliczanych z bębnów j*st poka- 
zywana w postaci Świecących sit 
strzałek w górnej czeSci ekranu . 
Punkty te nie sa wartością wygra - 
nej . choC w istotny sposOb wpływa- 
ją na jej wielkość . 

5. ul przypadku , gdy na bębnach bę- 
dzie wiece J niz 7 punktów, otrzymu- 
jesz premie w postaci nudży . Z 1 oSC 
ich Jest zależna od sumy punktów na 
bębnach , a odczytuje sie j* z nie- 
biesko świecących wskaźników, znaj- 
dujących sie w górnej czeSci ekra- 
nu . Rby zebrać te nudzę w postaci 
punktów nacisnij start , a komputer 
uruchomi bębny , ustawiając je w 
możliwie atrakcyjnym położeniu 
jeżeli decydujesz sie postawie do 
dalszej gry zdobyte nud2e, przyciS- 
niJ OPTIOH. u przypadku gdybyś prze- 
grał , zostaniesz uhonorowany na- 
groda pocieszenia .Gdy wygrasz, mo- 
zesz stawiać dalej az do uzyskania 
maksimum , tj. 100 punktów . 

Gdy uda ci sie zdobyć £50 pun - 
ktOw lub wszystko przegrasz , be - 
dziesz mflgł grad od nowa po wciS - 
meciu klawisza spage bor lub help. 


Kot jest jednym z tych zwierząt, o 
którym słyszy si* od najmłodszych 
lat . u przedszkolu z pewności* 
uczono ci* wiersza " ulazł kotek 
, a w szkole kazano przeczytać 
bajka " Kot w butach " . Nie przej- 
muj sie , tym razem nikt nic nie 
bedzi* ci kazał . sam wcielisz sie 
w kota Feliksa , ktCry bedzie mu- 
siał wykazać sie zwinności* i spry- 
tem podczas pokonywania kolejnych 




przeszkód . Przed rozpoczęciem gry 
zdecyduj sie , ktOry z czterech 
stopni trudności wybierasz . propo- 
nujemy pierwszy - zatytułowany kit- 
YEN. uyboru należy dokonywać klawi- 
szami OPTION i SELECT . Gre urucha- 
mia sie klawiszem strrt lub przez 
naciśniecie przycisku joystick'* . 
Pamiętaj o jednym : ze masz tylko 

do wykorzystania trzy koty . Te 
wstrętne myszy be da robiły wszystko 
aby wyeliminować ciebie z gry , ale 
nie tylko one. Podczas próby dosta- 
nia sie na płot ze Śmietników be ” 
dzie Cie Starał zepchnac b»ały kot. 
jeżeli to mu sie xi<sa. a w tym czasie 
przed płotem przebiegnie pies , 
przepadłeś . Nad płotem sa rozwie- 
szone sznurki z bielizna . Mozesz 
po nich skakaC i łapaC biegające 
myszy . za złapana mysz na najwyż- 
szym sznurku otrzymujesz 90 , na 
środkowym 70 , a i^a najniższym 50 
punktów . Myszy jest dużo, w związ- 
ku z tym i dużo roboty . zwrflC uwa- 
gę na otwierające sie co pewien 
czas okna ; warto w nie wskakiwać . 


Można za inkasować 


poważna > i osc 












P'JM t O W 


«czyvisc: 


cbocia2bv dlatego 


mt za d»r»o . 
Bo na przykład : w pokoje z serem 

■esiiz syłapac yszystkla ayti; , w 
bibliołsct na i«2y vt j<C na regat i 
zabrać trzy wazony z kwiatami • U 
pokoje z akwariom nal«2y wkoczyc 
do akwariom a z je«c wszystkie ryby. 
uwaga na pływtjact w«ze elektryczne 
- kontakt z n»mi powoduje Saierc 
kota . jeżeli trafisz do pokoju z 
klatka , zepchnij ja ze stolika , a 
następni* złap uwolnionego w ten 
sposOb kanarka . nozesz sit rosniea 
znaleźć w pokoju z miseczkami na- 
pełnionymi mlekiem . Hasz teraz 
okazje napić sit do syta . lecz pod 
jednym warunkiem ; ze będziesz uwa- 


żał. by inne koty, znajdujące i>« w 
tym samym pomieszczeniu, nie zaa- 
takowały ciebie . zrobią to , gdy 
zbyt natarczywie będziesz wypijał 
mleko z ich miseczek . oamietaj tak- 
że , Ze jako prawdziwy kot, szukasz 
również Felicji - wybranki twojego 
serca - Pokazuje sit ona czasem w 
którymś z okien - uykorzystaj to i 
wskocz do tego okna - naprawdę war- 
to . uważaj na braci broniących 
dostepw do twej miłości oraz strze- 
lające z ł tiku aa orki . Gdy miłołC 
zwycięży otrzymasz pokaźny zastrzyk 
z punktów oraz dodatkowego kota . z 
pewnością to nie wszystkie atrakcje 


♦ego programu , 

Ze w prawie każdym pokoju będziesz 
musiał uporać sie z pracująca non 
stop miotła , jadowitymi pajakami i 
czasami przypominającym o sobie 
psie . Grac w ta grt mozesz długo , 
a gdy sie z meczysz , naciSUij SPflCC 
BRR . program zostanie zatrzymany . 
fiby go kontynuować , naciSnij po- 
nownie ten sam klawisz . Zdobywane 
przez ciebie punkty wypisywane sa 
na płocie po prawej stronie - Nad 
mmi podana jest liczba posiadanych 
jeszcze kotOu . Najw>eks2a i;o«C 
zdobytych w grze punktów komputer 
podaje na płocie po lewej strome . 



OSTATNI MODEL OLIVETTI PC M28 
Szesnastobitowy mikroprocesor 80286 pracujący 
z częstotliwością zegara 8 MHz. M28 wyposażo- 
ny jest w twardy dysk o pojemności 29 MB i dwa 
dyski elastyczne po 1.2 MB. Zgodny z IBM. 


COMMODORE AMIGA 2000 — komputer, 
który robi karierę 
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PODRĘCZNIK PROGRAMOWANIA 

I 

OPIS KOMPILATORA JĘZYKA C 
dla aikrokocputerów ATARI XL/XE 


Język C staje się coraz powszechniej stosowanym narzędziem 
programowani a. Posiada on wiole zalet, takich jaki szczególna 
przydatność do tworzenia oprogramowani a systemowego, możliwość 
definiowania l przetwarzani a nowoczesnych struktur danych oraz 
prostota i zwartość budowanych programów. Inną jego zaletą, być 
maże najistotniejszą. Jest to, że nie jest on związany z 
konkretnym typem sprzętu i napisane w nie programy mogą być 
urucnamiane na dowolnye komputerze, dla którego opracowano 
koepilator tego Języka. Intensywny wzrost liczby 

ni kr o kompot er O w, użytkowanych zarówno przez amator Ow jak v 
poważnych użytkowników, znacznie przybliża możliwość 

programowania w tym języku. Warto zatem zainteresować się nim 
bł lżej. 

Kierując się tym, prezentujemy publikowane po raz pierwszy 
na łamach popularnych czasopism i nf ormatycznych , kompleksowe 
opracowanie poświęcone językowi C. Składa się ono z dwóch 
części. Niniejsza, pierwsza część przedstawia pakiet 
kompilacyjny DEEP BLUE C języka C opracowany dla nu krokomputerów 
ATARI -erii XL/*E. Omówiono w niej zasady posługiwania się 
programami użytkowymi tego pakietu oraz scharakteryzowano 

biblioteki funkcji standardowych. Część ta zawiera również 
obszerny podręcznik programowani a, przedstawi a jący podstawowe 

elementy x konstrukcje języka ilustrowane licznymi programami 
przykładowymi - Część druga. która zostanie opublikowana w 
następnym zeszycie specjalnym IKS-a poświęcana będzie omówieniu 
Obszernej biblioteki funkcji, r eal i żujących arytmetykę 

zmiennoprzecinkową w kompilatorze DEEP BLUE C oraz zasad ich 
wykorzystani a w tworzonych programach. 


Z. Dyjak 
H. Krasuski 
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opracowano na Uniwersytecie w Cambridge. BCPL jest do dzisiaj 


1 . 

H5TĘP 


dziwna mitia na okr«ll«iH Języka 
programowania? Skąd Język ten się wywodzi I c»y® różni llf od 
Innych Języków pro^rzaowanla? Co za Jago poaocą aoina zrobić 
IwpiaJ nil przy zastosowaniu innych Języków? 

Tego typu pytania nurtują Lłl^fgo, kto po raz plwutły 

zatknie się z jęayaie* C- Pytania ta a* jaszcza bardziej 

intrygująca, gdy uwzględni się fakt. Za prute fca±dy ułyliowitl 
mikrokomputer a pisał użyteczne programy w najbaróz : aj popularny* 
Języku, Jaki* Jaat BASIC, a być acta również w innych Językach 
wysuknpoz I omowych jak PASCAL. 

Jednak Język C udarze każdego awą odmi ennoit i ą od tych 
języków. 

C Jest Językiem programowani a ogólnego zastosowani a, 
z#ę.r|}J»l_to«łpiyo w -ału wypełnienia luki poalędry Językiem BASIC 
a'iV^'r^r^'***dil«ri. Stwor r crvy pr raz programistów systemowych 

ą©— i . t D-- 

ir «,utq>czloioe\ alternatyw- dla języków asemblerowych. 

\ ;»-• ,t C >est szybszy I oferuje prr^raaiłcle więcej wotlłwoscl 

ni t BASIC, a Jednocześni* łut ani ej błędotwdrczy i barzJzłeJ 
wyf/łjny nil język asrablara. 

. klika słów o historii powstania Języka C. Jego twórcaal są 
Denni ś M. Rłtshłe 1 iir I «n W. Kernlghan- Powstał on w latach 
siedemdziesiątych Jako kolejna modyfikacja Języka BCFL, który 



Język C skąd taka 


używany na tej uczelni tla nauczania programowania. Język C Jest 
bardzo silnie związany z syatrag a UNII. 

Pierwsza wersja systemu operacyjnego IW! I została Jiapl sana 
•• Języku ueafolera. W aZakcie UNII adgl być eksploatowany tylko 
na koaputeracb określonego ,typu. Aby uciec od ócielego 
przywiązania systemu do określonego typu koapulera opracowano 
•pacyficzny język, nazwany "B", ormnaciony’ do przenoszeni a 
systemu UNIX z jednego typu komputera na inny. 

I Języka 8 poddanego pewnym modyfikacjom, dokonanym przez 
Donn I aa H. Ritchie, powstał Język C. Ritcllle dokonał również 
przeprogr amowrtia systemu UNII, stosując nerwoopr łówmy język. W 
efekcie LU IX mo te być eksploatowany na dowolnym typie komputera. 
Rćwilsł pregraay napi sana w Języku C aogą być uruchosizir na 
do wolny a koaputerze, dla którego opracowano kompilator tego 
języka. 

Jednym z kospil atnrdw C of icossnych dla at krcŁBzputwć w 
ATARI serii XL/XE Jest kompilator C€EP B.UE C. OaoMiwia on 
tworzenie programów o różnym przeznaczeniu Iw tya programów 
graficznych, auzytmych Itp. 1 i różnej wielkości, w tya 
programów dutych, na ktdre składa się wlecdj nl ł sto linii kodu 
łr ód I uwago. 

Programy napisane w Języku C dla tych ml fcr okemputerów. mimo 
l i działają nieco wolniej niż pregraay w kodzie aaszynowya. to 
są znacznie łatwiejsze w tworzeniu 1 testowaniu. Takie eleaonty 
języka Jat i wskażnllrt, funkcja rtlurwityjn* 1 wysokcpozioaoae 
struktury starujące czynią nawet potencjalnie ttc5pl . kowany 
program łatwym do zakodowania t przetestowania. Co więcej, C 
Jest faktycznie języklea oproęr A3c~^r>! a system -aęn nowej 
generacji koaputerówi programy w ni o napisane, w przectwłeó-stwte 
do języka asemblera, będą mogły zostać przeniesione .ni l«ne 
komputery (również te, które nie są oparte na Bi kroproceaer se 
fc302> kosztem nieznacznych modyfikacji. 


1 KOMPILATOR 
[jk.ji DEEP BLUE C 


2.1. Wymagane akcesoria sprzętowo - programowe. 

Co pturmmtj pracy koapilafcora DfŁP BUJE C potrzebne sąi 

- <B kB paalęci RAMj 

- stacja dyskdw ATARlj 

- edytor tekstowy. 

Ponadto dla palnego wykorzystania maili-ofci oferowanych 
przez kompilator KĘP BLUE C /D8C/, szczególnie do włączania do 
programu tworzonego M Języku C, procedur w kodzie maszynowym, 
tuzie okazać się przydatnym ATARI Hacro Auoembler (HAC63) lub 
nailłt ATARI Ossambl-r fdltor. 

Ł2- Różnice w stosunku do ~CT standardowego. 


Nalały stwierdzić, ła język C ni* posiada formalnego 
protokółu, aczkolwiek praca nad Jego powstań! aa prowadzone są od 
dłuższego czasu przaz WSI. Jednak wa wszystkich pofcl łkać Jach na 
jego taaat za standardową uznaje s:« wersję Języka 

zdefiniowaną przaz Karnighana i Ritchxe*a /kip/ w pracy ‘Ih* C 
prograaaing ! unjjłga' (wydana zostało polskie tłumaczenia taj 
kalążkił. Niektórzy autorzy za standardowe uwalają równi w? pawia 
rozszerzania Języka C, powstała przy tworzeniu system UNIX. 

Z oczywistych powodów kompilator OBC nie posiada 
zalmplamentawanęj palnej wersji Języka C, zdefiniowanej przez 
M.P. W szczególności DBC nl* zapewnia realizacji! 

1/ Struktur 1 uni I | 

2/ tablic wielowymiarowych] 

3/ liczb zmiennoprzecinkowych! 

4/ funkcji zwracających inne wartości niz typu mli 

5/ operatora unarnago “sireaf”| 

bf operatora binarnego konwersji typów “typec-Mtlng”. 

Ponadto DBC posiada następujące niestandardowe cechy i 

1/ ostatni punkt instrukcji **w»tch“, "casa" lub 
“default* musi być zakoóczOny Instrukcją •‘Iłreal", "continua" lub 

2/ usunięto atarą konstrukcję •<««!>. Zamiast. niej 
należy używać <op>-| 

3/ Znaki (zmienne typu Clior) traktowane są Jako liczby 


ansku. Przyjmują me wartości od,.0 do, 255 1 


l . v- .\.r~ i- 

4/ lartruchy znaktfu nie mogą być wydl ut one do nas lępnej 
linii loglciiwj) 

3/ długość jHlceJ linii lodu JrOdloego nie aaze 
przekroczyć 7? znaków* 

6/ funkcje sagą mieć wkiyulme 126 argumentćw. 

DPC itprenu realizacje następuj Ąr ych »l»pnti« 

łtłndardoiiłgn "C"t 

I J typy danychj rhari Inl, pointgr I 
J* 

2/ tablice jednowymiarowi! 

3/ operatory Urarnu ( Jedtioargumenlowe) i *, *. 4. 

«». — , • (wykrr yfcnlkł, ■'•ftyldalj 

Ąy operatory binarne filaiargiirmtOHel i •• I. /. X, 

Hpionowa kreska!. Ł. =. >. >=, 't. <op>-, 

U . przecinek; 

3/ trfłe^unsntrey operator ■wrun , »o>*vi “ 

«/ Instrukcje (slo« kluczowi Jeżyka Ci If. else, 
wbite, break, continua, return, lor, do, swllch, case. default* 

7/ dyrektywy kompilatora! ede^me i aincludei 

0/ relokacyjny llnkeri 

9/ Stal et szesnastkowe, ósemkowe, i typu 'backsł ash“ . 

Standardowy J«Zyk C wykorzystuje kilka znaków ASCII 
niedostępnych w komputerach ATARI | 1 taki nawiasy klamrowe 
zostały zastąpiono kombinacjami znaków •! i *>. « znak tyldy 

ri zastąpiono parą znaków '*-*. Ponlemż znak dolara nie 

Jest wykor lystywany w standardowym C, to eo*na przy pomocy 
funkcji edytora 'znajd* a podał en' zamienię programy napisane w 
standardowym C na format akceptowany przez DBC. 


2.3. Dyskietka zawierająca kospllator DEEP BLUE C. 

Przed rozpoczęciem poznawania zasad programowani a w Jeżyku 
E warto Jest zapoznać sie z zawartością dyskietki, na której 
zapisany Jest kompilator DBC, poznać mechanizm kompllac.lt oraz 
nauczyć słe posługiwania programami realizującymi t*n proces. 

Dyskietka zawierająca kompilator zapisana Jest dwustronnie. 
Na stronie pierwszej zawarte są nitej wymienione zbiory: 

1. DOS. SYS - standardowy FNS DOS*#| 

2. DUP. SYS - standardowy zbiór zawierający menu KJS'aj 

3. CC.COM - kompilator D8C| 

*. CLII*. CUM - 1 Ink er OBC| 

5. DBC. OBJ - moduł uruchomi enl owy DEl 

6. A10.C * tekst źródłowy funkcji blbliotetl we/wy| 

7. Ain.CCC - postać pćłskompl łowana funkcji biblioteki AID| 

8. GflAPHlCS.C - tekst źródłowy funkcji graficznych I «e'«' 
dla gier| 

9. N^RAPHtEH.CCC - postać pól sl ompi 1 nwana biblioteki 

GRAPHICS. C| 

I n. rt«.r l>IM źrdtllt* wy f mik i II iMllmlvr<li praflką 

PM6| 

11. PH6.CCC - postać pól skoapi łowana biblioteki FtC,| 

12. PflINTF.C - tekst źródłowy funkcji wyprowadzani a 
■formatowanego! 

13. PR I NT p. CCC - postać pól skompi 1 nwana biblioteki PRINTFi 

14. Kle - tekst źródłowy programu demonsłracy Inego fpatrz 
opis w dalszej części J| 

13. X. CCC - postać pół skompi łowana programu X| 

16. X.LNK - zbiór wskazówek dla llnkera, wykorzystywany w 
procesie konsolidacji llłnkowanlal programu Xj 
17 X.CON - Wykonywalna wersja programu X| 


IB DOLINCE. C - tekst źródłowy, postać pół skompi łowna, Itd. 
prograei demonstrującego wykorzystanie funkcji graficznych. 

Druga strona dyskietki zawiera bibliotekę funkcji 
rallzujących arytmetykę zmlennoprzec ln»o~ą oraz programy 
demonstrujące sposób Ich wykorzystani a. f*rred rozpoczęć i Sm pracy 
K kompilatorem należy wykonać roboczą kopią tej dyskietki. 


2.4. Proces kompilacji I konsolidacji. 

Pisanie programu Jest przekazywaniem komputerowi sposobu 
Caigorytmuł postępowania, niezbędnego do rozwiązania określonego 
problemu, przy czynu forma przekazu Jest Ściśle określona przez 
jeżyk programowania. Jeżyk C, podobnie Jak każdy inny Jeżyk 
programowani a posiada Ściele określone reguły syntaktyczne 
igzSMlyctnel I semantyczne Łznacz mi owe I - zbliżone do teguł 
rządzących naturalny* Jeżykiem, którym por omal >w*.n sig lodzie- 
Progres napisany w Jfzyku C nl» rnotr być “zrozumiały” P' zez 
ko**Hiti=r w formie takiej, w jakiej został napisany - postać la 
nazywana bidzie dalej kod-- źródłowym programu. tv.sł on być 
nrizUuMczany przez odpowiedni program do postaci, którą 
komputer 'zrozumie* i wykona. Taki program tłumaczący nazywany 
Jest kompilatorem. Kompilator DBC tłumaczy kod źródłowy progr amu 
na postać przejściową (jeszcze nie wykonywalną prze; komputer, a 
potrzebną do przeprowadzeni a pełnego procesu kompilacji >, zwaną 
kodem lub progr a-em pół skompi 1 o-any». Aby program 
pól Bk omp Iłowany był wykonywalny pri« krmpute-. »*»1 być 
najpierw połączony z kodami pół sk o-ot ! cwanymi pcocedur 
utytkowych, stanowiących cz»*Ć kompilatora, zwartą w jeżyku C - 
biblioteką kompilatora. Dop.ero w wyniku połączenia powstaje kod 
programu, który być wykonany przez komputer. Ten 



wykonywalny kod n*z yuany last lodu# nynllcwyn. rvnf»» t ącienl M 

wierszy. Warto jeszcze ‘ raź podkreślić, że wszystkie zbiory 

rrnllzowany Jest przez odpowiedni progr **, będący również 

Źródłowa powinny nlać rozszerzanie *.C*. Rozszerzenie to 

Integralną częścią kMplUtora, iwjny IiMcm. Odpo-t ednl k »i»t 

Przyjęto tradycyjnie ł Jest ono wymagane przez kompilator B8C, 

lum 'llnlrer* 1 *1 1 nVoH«ni e* cą w j(tytu poi «k l ■ tuiMyi 

jak rdwnlet przez inne koapllatory Języka C opracowane dla 

“konsol idator* i -pr oe es konsol Idąc ji FrocM lonaol iiJłtJi, dla 

różnorodnych si krpkocputanlw, równi ot profesjonalnych. 

pr: y>*alsty prryiiłytiłjonrga do Ukicii p- ojriuinnl a 

2.7. Koąillacja zblordw źródłowych. 

• *k MfflSC ery BASIC, auj» ooc>ktVo« wydać %ly ni*.-roiuaulya 1 

Jak zaznaczeno, program Irddl owy w języku C, aby migi być 

nl#palf I chjt : »ł lid on djemlMtii pf Ifbi^ił* n 

iruthoml ony na komputerze ausl zostać “p^zetł umącz cny* na kod 

procnl> kompilacji progr aau u |«iv>u C, to «ilałni» diljU niwj 

wynikowy. Proces •tłumaczeni a” składa się » dwóch etapów. 

prngriKMwi*. Praktyką łlotmum • P * rwt pr rxjr «»nl". 

koaptlacji 1 łączenia. Kompilacja wykonywana Jest przez program 

pltrwch propf *»v w "C* mt tnołnie p-o grami "po kawał l u*. 




■7d-łz 1 wl ne kompilowanie Uid*QO fragmentu programu 1 na Fniłcu 

na postać pdł skompl lowaną 1 zapisuje Je do tworzonego zbioru z 

łączenie takich “kawałków* wj jeden program. Każdy napisany, 

kodem pdł skompl lowanym (rozszerzenie .CCC). Przedstawimy teraz 

skompilowany i przetestowany fragment jakiegoż prugramu mnie byd 

dokładny sposób posługiwania się tym prograirem. Na przykład: aby 

w postne! pdiskompł lowąnej dołączony do biblioteki kompilatora i 

skompilować program źródłowy zapisany w zbiorze a nazwie X.C 

wykorzystany w Innym program! ». be* knnieczmócl Iwwymia go od 
początku. Dzięki tal 101 tarhnlca proces tworzenia programów w 

należy wykonać następujące czynności 1 

Języku C Jest bardzo wygodny 1 znacznie szybszy niż w innych 

1. Włączyć atarję dymków 1 wlolyć da niej dyskietkę x 

.‘trykach wysokopozl omowych. Proce* kcmol! acjł prograw w Języku 

kompilatorem DFC; 

C Jest przedstawiony na rys. 1. 

2. Włączyć komputer przytrzymu jąc wciśnięty klawisz OPTIOW: 

RMSJMitąc: aby przekształcić kod Śród Iowy prcyrłwj w 

3. Gdy wyświetl 1 się menu DOS-* wybrać opcję L (ładowanie 

Języku C. napi sany na papierze, ma wykonywalny przez komputer 

zbioru), napisać CC.COM I wcisnąć RETURN; 

kod wynikowy, nalepy wykonać niżej przedstawiona czynności • 

4. Gdy kompilator CC.COM załaduj* atę da pamięci 

1. kriy zaaocy edytora lakstowega przygotować program jako 

komputer a, wyczyści ekran i wyświetli hmunikat nagłówkowy! 

Jeden lub kilka zbiorów z tekstem Źródłowymi 

Deep Biur C Coapller »*f»lon 1.2 

2. Fr-zefcształeić rblnry lr«ie«t w zbiory » kodem 

CO 1S82 John Howard Palaelch 

p«l ylnapl leuanya pnprzar alowpl liemlr łych pierwszych przy 
p rvnrty programu CC.COM kompilatora CPCi 

File to 'Compile (or RETURN ».o r*lU 

< zbidr do kompilacji (lub RETURN - wyj«cle z 

3. Stworzyć zbiór wskazówek dla tżnkera. 2b»ór ten powinien 
zawierać nazwy wszystkich zbiorów z kodem pól skompl 1 cwanym, 

kompl 1 stora) ) | 

3. Należy włożyć do stacji dysków dyskietkę zawierającą 

która są częściami p> ayr aku 1 Jest wykorzystywany przez Mnker 

zbiór z programem źródłowym, napisać nazwę tego zbioru 1 

(w kroku 4) do połączenia razem wszystkich cięficl programul 

naclanąć RETURN. O ile pełna nazwa zbioru ma postać, na przykład 

«. Przy pomocy llnkera CL1NK.COM połączyć wszystkie zbiory. 

DiZ.C ta wystarczy podać tylko główną część tej nazwy, w ty* 

zawierające kpd pólekompl lowany w kompletny próg raa wynikowy. 

przypadku T, ponieważ kompilator zakłada, ta pozostała część 


nazwy składa slę^Di” 1 nazwa aa rozszerzenie "-C". Wystarczy 

2. 5. Kc«r*ri*n! a nar* zbiorów. 

zatee napisać tylko X i rac 1 snąć RETURN. Jeżeli dyskietka z 

każda nazwa zbioru, wykorzystywanego w wylej opisany* 

programem J'ódlowy* znajduje się w stacji 0 numerze Innym niż 1, 

przebiegu ausi aneć swoja własne rozszerzenie, wymagane przez 

to obowiązkowo należy podać w nazwie, poprzedzony literą D numer 

kompilator DEC. Rozszerzenia te są następująca* 

stacji dysków, zawierającej dyskietkę z programem do kompilacji. 

•C - zbiór zawierający tekst JrćdŁowy Programuj 

np- -D2»X*. 

-CCC - żbldr zawierający postać pdł sfcoapl lowaną programul 

6. Kompilator wypiszą komunikat! 

.UX - zbiór zawierający lnloraicjr dla llnlara, wskazujące 

Dl X. C — >DtX.CCC 

nazwy zbiorów, które aa Ją być łączone; 

który oznacza, że rozpoczęła się kompilacja programu. Kompilacja 

.COH - zbidr zawierający wykonywalny kod wynikowy programu. 

może trwać kilka minut, w zależności od długości 1 atopnla 

2.0. Tworzenie zblordw * tekstem źródłowym programu. 

skomplikowania programu źrddlowaoo. Aby poi nł ormować programistę 

Zbiory z tekstem źródłowym programu (zbiory Źródłowa dla 

0 tym, co się aktualnie dzieją, kompilator wyświetla nazwę 

kompilatora) najlopiaj przygotowuje się przy pomocy edytora 

funkcji z programu źródłowego, którą w danej chwili analizuje 

tekstowego. Do edytownla programów w Języku C doskonale 

Jeżeli w programie źródłowym znalezione zostaną błędy 


syntaktyczne, kompilator wyświetla wiersz kodu Źródłowego, w 

Asseeblera), edytor koaplletora KYAN PASCAL lub każdy Inny 

którym wykrył błąd a wyświetlona pod nim strzałka pionowa 

edytor tekstów. Jak ATARI WRI TER czy Speeóscrtpl. Każdy Inny, 
nłe wymieniony wyżaj edytor tek stówy wolna z powodzeniem 

skierowana ku górze wskazuje dokładne miejsce Jego wystąpienia, 
npz 

wykorzystać do edycji prograaćw w Jeżyku C. Walna Jest. aby 
stosowany edytor nie wstawiał kolejnego nuwru linii na początku 

ma 1 n ( > t(pr 1 nt f ( -Hel 1 0 , wor 1 d /n * )^| 
Hlsaing finał and. 

kaldago wiersza. Ni a. Jest więc moi 1 1 we wykorzystanie do edycji 

(brak nawiasu zamykającego -SI* funkcję matnOl 

edytora BASIC-* ani edytora z pakietu ATARI Asaeabler Edltor, 

Jeżeli błędy syntaktyczne nie występują, fcompi lator wyświetli 

Jelelł nie napinamy apecjalnegc programu użytkowego. 

komunikat no errore (nie aa błęddwł 1 znów pojawi się komunikat 

usuwającego z tekstu irddl owego programu w Języku C numery 

nagłówkowy 1 


IKS- 5 


Fileta coepll«"W Ren*a^l'o r '*ltł 

została zefef inlowana, to wyświetli komunikat* undrflneć label 

JttEll ł« Jednym razem chcemy «1- OTO i 1 Ować więcej nil Jeden 

(niezdef iniowan* etykieta! 1 listę nlezdef Iniowanych nazw 

program, możemy padać nn nazwę zbiorą z program*® Źródłowym ł 

funkcji ł zmiennych. Jeżeli np. l ile napisano nazwę zmiennej 

ponownie i irnrhnml d kompilator, naciekając RETURN. 

(“alfa”), która była zdefiniowana z nazwą "alpha”, to równie! 

7. Gdy chcemy zakończyć kompi lowanle zbiorów źródłowych 

zostanie to zasygnalizowane. Jefli nie aa błędów, linker 

nidćiaBy klawisz RETURN (bez podawania nazwy zbioru) aby 

wyświetli komunikat no arrore 1 ponawia zaproszeni# do dalszej 

pcwscie do mmu Oos-a. 

pracy "Link program, Duplłcate file or CmU". Po zakończeniu 


łączenia programu można wyjść z Ilnkera pisząc 3 1 ,«:łskając 

e. 8. Łączenie zbiorów półokoirpł Iowonych. 

Gdy panczag^lrt zbl ory źródłowe z ostaną Już skompilowane 

RETURN. 

baz. błędów, to należy Ja połączyć 1 stworzyć kcśż wynikowy 

2.S. Uruchomienie programu wynikowego. 


Skompilowany I skonsoi Idowany program w Języku C mersm być 

dla link ara, wskazujący zbiory z kodem półskompl Iowanya, ktdra 

traktowany Jak każdy program w kodzie maszynowym, ho fna go nawet 

■a Ją być połączona. 2blór wskazówek dla Hokera musi mlać 

opatrzyć nazwą AUTORUN. SYS aby po włączeniu kompot*'* ładował 1 

rozszerzanie MW. H zbiorze tym, oprócz nazw zbiorów 

uruchamiał się automatycznie. Podobni# Jak Inne zbiory z 

zawierających kod półskompl lo-any powstały po loro* lac jl zbiorów 

programami można go również ładować Za pomocą opcji L z DCS-a. 

źródłowych, muszą być podana równie! nazwy bibliotek kompilatora 

Podczas działania takiego programu mogą wystąpić cztery rodzaje 

DSC, których funkcje wykorzystywana aą przez program źródłowy. 

błędów, spowodowanych złą konstrukcją programu. Błędy te 

Typowy, mały program, wyprowadzający na ezran monitora dowolny 

nazywana są błędami uruchomieniowymi. Gdy Jeden z tych błędów 

teket przy po mocy funkcji wyprowadzania -f ormatowanago 

wystąpi, program zatrzymuje się I wyświetlany jest komunikat i 

"prlntfłl” wymagał by zbioru wsakzówek dl a 1 i n ker a o niżej 

dbc 1 run-llme error <lll*ra> 

przedstawi onai postaci i 
WYŚWIETL 

typ* a key to return to DOS 
<11 terał może być następująca* 

PPIWTF 

A - stos przekrocz ył zakres zmiennej RArtTOP. łśaat e-mf -to. 

DSC. OBJ 

gdy w uruchomionym programie występuje nieskończona rsk-jr mocja 

gdzie* ■* WYŚWIETL” Jamt nazwą zbioru zawierającego kod 

lub gdy zdefiniowano zbyt wiele zmiennych. 

połskompllowany tego programu a “DBC. OBJ" Jest nazwą programu 

B - nielegalny kod operacji. Błąd ten ma miejsce wówczas. 

i*-uchaj»teni owego ko«ą>ll*tar-a DBC, który musi być dołączony do 

kodu wynikowego każdego programu. Jeżeli dyskietka zawiarajaca 

gdy program wychodzi z obszaru kodu i próbuj* wykonać Jako 



wyżej wy oj polane zbiory znajduje si( w stacji o innym numerze 

C - błąd wersji. Na eiejsem wówczas. gdy r u sery -er * Ji 

mź Jeden, to podarte nerwy muszą posiadać prefiks "Onf, gdzie n 

programów CC.COH, CLINK.COM 1 DEC- OBJ są różne- 

Jest numerem stacji dysków. Jeżeli rozszerzenia nla są podana. 

D - próba dzielenie przez zero. U uruchomiony* prog-asie 

to linker przy JouJe rozszerzania “.CCC”. Zbiór wskazówek dla 

wykryta została operze ja dzielenia przez zero. 

Ilnkera nie może zawierać linii pustych, nawet na kołku zbioru. 
Po utworzeniu zbioru wskazówek dla Ilnkera można przystąpić 

2.10. Programy demonstracyjne. 

do konsolidacji wszystkich zbiorów półskompl I owanych w kod 

Na dyskietca zawierającej pakiet fcompt lacyjny SBC znajdują 

wynikowy programu. W tym calu należy załadować do pamięci 

ni ę trzy programy demonstracyjne, które pomagają zapoznać się z 

komputera DOS i wybrać opcją L z Jego menu. Następnie należy 


załadować linker, pisząc CLlMc.COM 1 naciskając RETURN. Linker 

programu demonstracyjnego podany Jest Jego kod źródłowy, pasta- 

DBC po załadowaniu wyświetli komumkati 

półskompl lowana, zbiór wskazówek dla Ilnkera wykor zysiywar. w 



Deep Bluz C linker yeraion 1.2 

Pierwszy program o nazwie X demonstruj# niektóre możliwości 

CO 1BS2 John Howard Pal*»lch 

wprowadzania 1 wyprowadzani a Informacji w DBC na /z urządzenia 

Link program. Duplice'-* file or Qull 

zewnętrzne Jaki stacja dysków, monitor 1 klawiatura. Oby 

(łączenia, kopiowania zbioru lub wyjąc i* * Ilnkera* 

uruchomić ten program, należy załadować DOS-a a następnie opcją 

Linker uruchamia się podając pierwszą literę komendy (L,D lub 

L załadować program X.C0M. Program ten uruchomi się 

D>- Funkcja L tworzy działający program w Języku C. Funkcja D 

automatycznie 1 wyświetli komun i kat l 

pozwala na kopiowania aałych zbiordw (o pojemności do ak 6k8) * 

Fil# rs»d»r/wiUr 

jednej dyskietki ma drugą, ber potrzeby wykorzystania w tym celu 

Cammend* r, «, q 

opcji O z DOS-#. Na dużych zbiorach funkcja ta nla działa. 

Przy pomocy tego prograau można odczytać zbiór s# stacji dysków 

Funkcja D powoduje powrót do DOS-a. Zatem, gdy chcemy wykonać 

(przez naciśnięcie rł, zapisać go (komenda wl lub zakończyć 

proces konsolidacji piszemy* 

L * 1 naciekamy RETURN: 

pracę (komanda q». Dobrym ćwiczeniem Jest przeanalizowanie 
postaci Źródłowej tego próg'**), zawartej w zbiorze X.C, 

gdzie X Jest nazwą zbioru zawierającego wskazówki dla linker* 

Ilustrującej sposób użycia funkcji z biblioteki kompilatora BK, 

(linker przyjmuje w tym przypadku, źe nazwa tago zbioru ma 

takich Jak* openU, closeCI. gmtsd, getchar O 1 prlntfO. 

rozszerzenie '.LNK“> . Podobnie uruchamia się funkcję kopiowania 

Drugi program demonstrujo wykorzystanie grafiki PNG. 

zbiorów dostępną w llnkerzm. 

Zawiera przykłady użycia takich funkcji bibliotecznych Jaki 

Linker nie wykona łączenia Jelell określone zbiory nie 

colorf), plotO, drawtoO. soundCl. pmelnłttl. ploove(l i 

Istnieją na dyskietce. Dodatkowo, Jedli w trakcie łączenia 

pmcolorO. Program ten zapisany Jest w zbiorze o nazwie 

linker napotka funkcję lub zmienną zewnętrzną. która nigdzie nie 

BOUNCE.COM a uruchamia etę go tak. Jak program 7.CDM. 


6- IKS 


Przejrzani. 


Języku C umlmóció poniższą 


o jego pot* tael źródłowej Jest również dobrym 
Mleicnim. 

Ostatni Drogr u demonstruje wykorzystanie biblioteki 

matematycznej kompilatora DSC, której funkrje alużą do 
realizacji oblicze* w arytmetyce łeiennoprzeclnkowe J. 

tę>l« poszczególnych bibliotek koeplłatora DEC, funkcji w 
nich zawartych 1 zasad Ich użycia w programie przedstawiony Jest 
w dodatkach! umieszczonych na koócu zeszytu. 

2.11. Uwagi techniczne. 

Analizując uważnie postać źródłowa funkcji wrJScla/wyjact a 
zawartych w bibliotece AIO.C zoini zauwaZyC. że niektóre 
funkcje takie Jaki ctovO zdef inlowans są w szczególny sposób, z 
wykorzystaniem instrukcji asa. Na przykład! 
clovt (ocb.com, bad.bl en, axl,«x2> 
lnt locb.co-n.blsn.a* 1, lx 2 | 
char tbad| 
asa 12291 

M powyższy sposób definiuje ilf podprogramy napisane w 
kodzie zmyrocya. 6dy wywołana zostanie funkcja *ama* to Jej 
argumenty przekazywane są na stos, podobnie Jak a funkcji USRO 
z Języka BASIC 1 następuje skok poa adres następujący po słowie 
"asa*. Podobnie, Jeżeli chcesry wykonad skok do własnego 
podprograeu a kodzie aa szynowym, który zaczyna się od adresu 


•600 wystarczy w prograals w 
sekwencję instrukcji i 
foo<) 
asa 600 

Jest rzeczą oczywistą. Ze nasz podprogram ausl z os t ad najpierw 
dołączony do prograau wynikowego w Języku C. W tym celu eusley 
wytworzyć kod maszynowy tego podprogramu za pomocą dowolnego 
asemblera 1 zapisać go, Jaka zbiór binarny na dyskietce. Nazwa 
tego zbioru powinna mleć rozszerzenia ".OBJ". Następnie nazwę tę 
•prowadzamy do zbioru wskazówek dla llnkere 1 wykonujemy 
przebieg konsolidacji. Do dołączonego w ten sposób podprograeu 
maszynowego można przekazać z progresu w Języku C argumenty, 
wykorzystując Jeden bajt na szczycie stosu do przekazania 
Informacji o liczbie argumentów. 

Moduł uruchomieniowy DBC wykorzystuje pamięć HAU od adresu 
•3000 dq S3FKF, a program użytkownika zaczyna się od adresu 
•4000 1 ciągnie się aż do koóca pamięci. Na procedury w kodzie 
maszynowym można przeznaczyć azóstm stronę pamięci I wolną 
pamięć pomiędzy iortcts adsza*~u zajmowanego przez DOS a •dresem 
*3000. Chociaż kompilator wymaga 4SkB pamięci ÓO pracy, to 
większość programów w DBC wymaga dużo mniej miejsca. Nożna 
na pewno napisać wiele programów, które zajmują tai niewiele 
pamięci Jak 24k8 RAM. 
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ZACZYNAMY 

PROGRAMOWAĆ 


3.3. Podstawowe pojęci ai funkcje, ko men tarze. lnwtri*cje. 

Najlepszą metodą nauczenia się pr ogr amowanl a w określonym 
Języku Jest ... pisanie w nim programów. Zatem napiszmy 
pierwszy, proety program w Języku C, który wySwletll na 
monitorze komunikat takiej tredcii *Progr amomanle w Języku C 
Jest ciekawym zajęciem*. Oto tekst Źródłowy takiego programut 
Program I 
■mini) 

• t /< początek funkcji malnO •/ 

char c| 

prlntf < ‘Programowani e w Języku C Jest ciekawym zajęciem*)) 
/* 1 tu właściwie kończy się ten program. Instrukcja »/ 

/• char c| 1 poniższa instrukcja c*getchar(> nie są 1/ 

/* potrzehne do Wyprowadzenia komunikatu “ patrz opis */ 
ł» w tekście. */ 

c“getch#r ł) | 

•) /» koniec funkcji matni) •/ 

Kilka słów o sposobie kompilacji 1 konsolidacji tego 
prograau. Tekst prograau, dokładnie w takiej postaci, w Jakiej 
Jest on wydrukowany (oczywiście bez polskich znaków), 
wprowadzamy przy pomocy edytora tekstowego, np. ATARI KRI IŁU do 
zbioru dyskowego o nazwie ‘PROGI. C*. Przy okazji tworzymy zbiór 
wskazówek dla linkera, który będzie potrzebny w procesie 
konsol idacjt naszego programu. Zbiór ten powinien nieć nazwę 
•PROGI. LNK* 1 zwierać dokładnie cztery niżej przedstawione 


PROSI 
AlO 
PRtHTF 
DBC. OBJ 


Ładujemy da pamięci kompute-a kompilator CC.COM, piszemy nazwę 
zbioru z programem źródłowym, tj. PROGI. C 1 naciskamy RETURN. 
Gdy kompilacja rakoóczy się komunikatem *no arrors*, ładujemy 
j llnkee Q_1NK.COM. Gdy kompilacja zakończy słę błędami, to 
weryfikujemy wprowadzony przez nas tekst prograau z tekstem 
powyższym, poprawiamy błędy edytorem tekstowym I ponownie 
uruchamiany kompilator. Link er uruchamiamy poleceniem L PROGI 1 
wciskamy RETURN. Llnker utworzy nam wykonywalny kod programu, 
który zostanie zapisany do zbioru o nazwie PR081.C9I. Gdy 
załadujemy ten program do paalęci, zostanie on automatyczne 
wystartowany I wypisze na ekranie poniższy teksti 

Programowanie e Języku C Jest ciekawy* zajęciem 
Naciśnięcia dowolnego klawisza 1 RETURN spowoduje ponowne 
załadowanie DOS-a. 

U postset źródłowej programu w Języku C można wyodrębnić 
trzy zasadnicze el * wentyl 

I. nagłówek zawierający definicję stałych programui 
Z. deklaracje zmiennych prograoui 
3. funkcje. 

Program 1 nie zawiera nagłówka, natomiast zawiera deklarację 
jednej zmiennej o nazwie "c". Program ten składa się tylko z 
jednej funkcji o nazwie malnO. Każdy program w Języku C składa 
się przynajmniej z jednej funkcji, lecz może mleć Ich również 
więcej. Jeżeli program zawiera tylko Jedną funkcję, to musi ona 
mleć nazwę malnO. Gdy program zawiera wiele funkcji, to Jedna c 
nich musi mleć nazwę malnO. Ftsikcja Jest częSclą prograau 
wykonującą pewną operację, na przykładi wyprowadzenie Informacji 
na ekran, obliczenie wartoScl wyrażenia, Itp. Funkcja wykonuje 
operacje na przekazanych do niej wartościach zmiennych. WartoScl 
ta nazywane są w Języku C argumentami funkcji. Listę argumentów 
umieszcza się w nawiasach okrągłych (..I. tuż za nazwą funkcji. 
Jeżeli funkcja do wykonania óperacji nie potrzebuje żadnych 
arg um entów (funkcja bezarg u ae n tpwa) . to za jaj nazwą umieszcza 

mię tylko nawiasy, na przykład funkcja ma 


ilnO jest funkcją 


% 

bRłrguMntiwą. Muliły I« nazwą funkcji M<ą Z awsze 
Mystip<M*(l| gdyż umożliwiają one kompilatorami DBC 

Identyf 1 kac Ją, czy dana nuua Jest nuoą zmiennej (bez 

nawiasów), czy nazwą funkcji. Funkcja aola przekaz ad a powrotem 
do funkcji • I której została wywołana, wynik wykonanych obliczali 
czy operacji. Tan wynik nazywa się ‘wartością zwracaną przaz 
funkcją*. U Języku C funkcja wata mieć wlała argumentów, Jadnak 
zwracać może tylko Jadną wartość. Funkcja, zbudowana są z 
Instrukcji języka C. tnatrukcją w Języku C Jest wyrsisnła 
zakończone średnikiem. Natoslast wyrażenie* jest każda 
konstrukcja ibudozna za stałych, nazw zmiennych i stałych oraz 
operatorów. Zataw wyrażeniami w C sąl 2+3. a+to, a>b, c, Itp. 
Każda funkcja w Jeżyku C aa swoją unikalną nazwę, nadaną przez 
programistę. Jedyni a nazwy funkcji zawartych w bibliotece 
kompilatora posiadają Już nadane na* wy 1 programiście nłe wolno 
Ich zalań (ad. Nazwa każdej funkcji musi spełni ad poniższa 
warunki l 

1. ausl zaczynać alf od litery (znak podkreślenia Jest 

trakteawmy W C Jak li terali 

2. ausi zawierać tylko litery lub liczby (inne znaki nłe 
są dopuszczalne w nazwie funkcji >i 

Poprawnymi nazwaal funkcji aąt wynik O. WYNIKU, al O , a_l(>. 

Nazwami niedopuszczalnymi aąi 2*la(l, llczba-5ł>. Należy zwrócić 
uwagę, źa nazwy wyniki) l WYNIKI) traktowane «ą przez kompilator 
Jako nazwy różne. 1 

Pa nazwie funkcji występuję nawias otwierający "*1*. a na 
jej końcu nawias zamykający Wszystko, co jest pomiędzy tyel 

rml mwl Jest traktowane pnK kompilator Jako Jedna funkcja. 

Program źródłowy w Języku C może sieć dowolny układ, 
najbardziej odpowiadający indywidualny* upodobaniom każdego 
programisty. Przy Jego redagowaniu należy Jednak przestrzegać 
pewnych zasadi 

- wszystkie słowa wystfpujące w jednej linii programu muszą 
być oddzielone od siebie Jedną łub kilkoma znakami apacjłi 

- instrukcje muszą być zakończone Średni kiess 

- znak łhashł stojący przed dyrektywą kompilatora 

(Śdefine lub aincludeł musi być umieszczony zawsze na początku 
linii Imusl być pierwszym znakiem w łłniłł. 

Tekst zawarty pomiędzy znakami /» •/ Jest w Języku C 

komentarzem i Jest Ignorowany przez kompilator. Komentarz może 
być dowolnie długi. Powyższe zasady umożliwiają takie 

redagowanie programu źródłowego w Języku C, że jego tekst może a 
powodzeniem stanowić dokumentację programu. Ma to Istotne 
znaczenie w przypadku poprawiania napisanego programu po upływie 
pewiegD czasu. 

Inetrukcjet 

char c| 1 
c-getchjr (»| 

nłe są konleczrlS do poprawnego działania programu 1. Jednakże 
prograe skompilowany kompilatorem DBC ma tę cechę, że w 
momencie, gdy wykonana zostanie ostatnia instrukcja programu 
następuje automatyczne ładowanie D08-a. Zatem powyższe 
instrukcje wprowadzono do programu wyłącznie po to, aby móc 
zaobserwować efekt działania programu na ekranie monitora. 
WleceJ o tych Instrukcjach powiemy w dalszsj części tego 
rozdziału. 

Rozważmy kolejny programi 
Program 2 

matni) 

*1 /» początek funkcji malnl) 

char ci 

prlntfł "Nazywa* się Jan Kowalski. *>| 
printflA Ty Jak się nazywasz?*) | 


c*getchar < ) | 

•) /• koniec funkcji ailni) •/ 

Po Jego uruchomieniu zobaczymy na ekranlw poniższy 
komun! kati 

Nazywam się Jan Kowalski. A Ty Jak elę nazywasz? 

Załóżmy, że chcemy, aby drugie zdanie komunikatu zaczynało się 
od nowej linii. M tym celu zmieniamy linię z programi. 2 
printf ("Nazywam się Jan Kowalski. ">i 
na linlęi 

printf I "Nazywam się Jan Kowalski. \n*ł t 
Po takiej modyfikacji uzyskamy na ekranie tekst wyświetlony w 
dwóch wlarszechi 

Nazywam się Jsn Kowalski. 

A Ty Jak się nazywasz? 

Ustawiony na końcu Unii symbol składający się z dwóch znaków 
*\n* (backslash I mała litera n> Jest w Języku C znakiem nowej 
Unii. Pomiędzy znakami "V" i "n" nim może być spacji. Inak 
nowej Unii może oyć użyty - dowolnym miejscu wyprowadzanego 
komunikatu I spowoduje, że tekst występujący po nie zostanie 
wyświetlany na ekranie od początku nom J Unii. • więc 
Identyczny efekt uzyskalibyśmy, zmieniając zamiast pierwszej 
drugą linię printf I...), nadając Jej postaći 
printf ("Vnft Ty Jak elę nazywasz?"!) 

□prócz znaku nowej Unii kompilator DSC dopuszcza 
stosowania Innych znaków Bijących specjalne znaczenlei 
\f - czyść ekran i 
Vg - włącza sygnał dżwlękowyi 

\h - kasuje znak z lewej strony aktualnej pozycji 
kursora 1 przesuwa kursor o Jedną pozycję w lemat 
\r - kasuje całą linlęi 
\\ - wyprowadza znak backslash) 

\* - wyprowadza apostrof | 

\« - wyprowadza cudzysłów) 

\t - wyprowadza znak tabulacji) 

\*#a — wyprowadza znak, którego kod AfftSCIl Jest 
trzycyfrową liczbą oitalną a posleci Ml. »*>.« litera "A" ea kod 
AT ASCII równy 63 a odpowiada su liczba oktalna 101. Istea utycie 
w komunikacie sekwencji \10l spowoduje wyprzedzenie litery A. 

M łańcuchach znaków wyprowadzanych przy pomocy funkcji 
Wyjścia sformatowanego printfO można umieszczać dowolne znaki 
(również w Inwersie vldeol poza Jednym wyjątkiem. Znak "CTRL,-* 
(serduszko! wykor zystywany Jest przez kompilator do oznaczenia 
końca łańcucha znaków i z tego powodu nłe powinien być w nie 
używany. Znak "V" (backslash) również ma specjalne znaczenia, 
wyżej przedstawiane, o którym nie należy zapomtneć. 

3.2. Stałe i zslmor. Typy 1 deklaracje. 

Chcemy dodać do siebie dwie liczby i leh eumę wyprowadzić 
na mziltar. Dto program realizujący to zadanie, 

Pr ° ffr «ln(l 

*( /• początek funkcji aainll •/ 

char C| 

lot suma| /» deklaracja zmiennej suma »/ 

■urna- l 3*34 | 

printf ("suma Jest równał Xd Sn “ , suma l i 

c=g#tchar() | 

a) /Z koniec funkcji aainll */ 

U programie 3 *euma“Jest nazwą zmiennej. Zmienne w Języku 
C, podobnie Jak w innych językach programowani a są oBlektaml, 
na których program wykonuje operacje. Każdą zmienną kompilator 
DBC identyfikuje poprzez nazwę. Narwy zmiennych w Języku C 
podlegają Identycznym ograniczeniom Jak nazwy łunkcji (patrz 
3.1.ł 

Kompilator DBC musi być "poinformowany" , ip programista 
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bfdłl* uływłl m proęrMle lalmyth. Do pndaiyMnla au tych 
Inforpaejl itu2ą dattłrKjs islKinych. Innymi tlo-yi każda 
lalmna w pr ograni* m Języku C musi być zadeklarowana przed jej 
uiyclea. Instrukcja "int suu| * Jest deklaracją. Ustytllilz 
deklaracja zolmych muszą wystąpić rr» początku funkcji, tut za 
nudwa otwierający* **l" (są wyjątki od tej **• ody), k jednej 
Inłtnrtcjl będącej deklaracją można kyal*ii< kilka nazw 
zmiennych tego samego typu np. instrukcjai 
Int suaa,sumal,a.b,c| 

Jest poprawną deklaracją pięciu zmiennych typu 

całkowi tol lczbowego a nazwach • wm, »u«al , a, b, c. 

DSC dopuz zeza deklarację trzech typdw zwlennychi 
char - oznacza telanną typu rn«ko»wgo| 

Int - oznacza zelenną numeryczną całkowi tol Iczbowąi 
zmienne wskaźni kowe (typ polnterl o ktdryeh powiemy 
nieco później. 

Imienna mu zcntala zadeklarowana Jako zolenna typu calktmrito- 
llciboHzga, co oznacza, t* aotna w niej przechowywał! liczby 
całkowite, dodatnia lub uj*wne należąc* do przedziału C-377AS, 
♦327673. Zmienna typu int w implementacji DBC zajmuje dwa bajty 
pamięci, przy czym liczba zapisana Jest na piętnastu bitach, a 
Jeden bit wykorzystywany Jest jako bit znaku. Zmienna c została 
zadeklarowana w prpgraele 3 Jako zmienna typu znakowego. Tan typ 
zmlannych w 1 mp l amen tacji DEC zajmu Ja Jeden bajt pomięci i Jest 
traktowany Jako tlczba dodatnia bez znaku z zakresu tO, 7333. 

Wszystkim zadeklarowanym zmiennym kompilator DEC przypisuje 
początkową wart od ć rdwną zero. Do zmiany war to4c I okreSI ona J 

rsiennej stuły instrukcja przypisania, zbudowana w oparciu o 
opar stor przypisania "•*. M Instrukcji tej telenna, której 
chcemy nadęć ar-loM, występuje po lewej stronie znaku r«mofcl| 
natomiast po prawej stroił* znaku umieszcza się wyrażenie, 
ktdrego wartaSć zastanie przypisana zmiennej. Zatem instrukcję* 
«u»» - 15‘24| w Języku C nałsły ciytidi “przypisz zmiennej suma 
wartodć wyrażenia 13* 23*. Operatorem przypisania Jest znak 
równoćcl. M Języku C Istniej* eożliwoSć ł-anzola ró*-ii*t Innych 
operatorów przypisania. Umołliwia to konstrukcja “otr»“, gdzie 
"op" Jest Jednym z następujących opermtordw dwuargunentowych, *, 
-, *, /, 35, «, », V, I. Jak kompilator DBC Interpretują 
utworzone w ten sposdb operatory i w Jakich sytuacjach wolno Ich 
stosować? Wyjaśnimy ta na prtykledsiei JeSII mamy instrukcję 
przypisania typu a-a*b| to mo ż e m y Ją zapisać w taki sposdb i 
■*— b. Odnosi się to rdwnieł do Instrukcji a»a-to | a-a/b| a"»łb | 
Itd. Wszystkie tego typu instrukcje mogą być zastąpione 
odpowiednimi instrukcjami i a-«b| s/»b| a*mb ltd, przy czym b ni* 
musi być tylko zmienną, lecz mole być rdwnieł wyrażeniem np.« 
Instrukcja a*a»(c>2! Jest równoważna instrukcji a»“c*7. 

Program 3 można zapisać równi et taki 
Program 4 

Sdefine LICZBA1 13 

Sdefine LICZBA2 24 

matni) •< /• początek *aln(l tf 

int suaa| 

Char Cl 

suss-LI CZ8«1 H. ICZB42J 

prlntf f"Su*a Jest rdieiai Xd\n",sumal| 

cmgetcher I 1 i 

SI /« koniec matnO 1/ 

Efekt dzlmłmnla tego programu będzie Identyczny Jak 
progranu 3. Wprowadzone zmiany dotyczą sposobu definiowania 
stałych w programie. U programie 3 stale zostały zdefiniowane 
wprost, przez umieszczenie Ich wartofel w instrukcji progresu. 
Jednak często dobrze Jest używać stałych w programie poprzez 
nazwę. Jak to aa alajece w progresie 4. Sdefine Jest dyrektywą^ 


kosoil atora DBC. ktdra Informuje go. Ze gdy analizując program 
źródłowy, spotka nazwę wymienianą w tej dyrektywie ■ to ma Ją 
zastąpić warto«cią przypisaną tej nazwie. Nie dotyczy to 
oczywiści* nazw występujących w łańcuchach znakowych. 
Definiowanie stałych z* pomocą dyrektywy Męflna gwarantują. *« 
w przypadku gdy zajdzie potrzeba zwiany wartOSCi stałych, ni* 
trzeba będzie za 1 en toć instrukcji programu (czasami wielu*, a 
Jedyni* dyrektyw* Sdefine. 

Dyrektywą Sdefine mol na definiować następujące typy 
stałychi 

1. dziesiętne np. t 173, -45j 

2. oktalne np. i 017, 043 | 

3. szesnastkowe np. i OzdSOO, Oz#f, OeCOOOi 

4. znakowe np., *a', ’b*, *l*| 

3. łańcuchowe np. , *okno*, *al a*| 

A oto poprawne przykłady definiowania różnych typów stałych 
przy wykorzystaniu dyrektywy tdeflnai 

Sdefine XI 23 Sdefine liczba -1348 

Sdefine 12 OIOI Sdefine adres 0**463 

Sdefine znak *T* Sdefine kom “ez*4ć“ 

Przyjęlo się, że nazwy stałych pisz* się w Języku C duiyml 
literami. Jednak nie Jest to konieczne. Zesads ta ma tę zaletę, 
tm łatwo Jest odróżnić w prograałs źródłowym stale od zmiennych, 
7 definiowana dyrektywą Sdefine nazwy nie mogą być używane W 
programie Jako zmienne. Nie można wykonywać na nich operacji 
przypisania I Innych. Instrukcja L1CZBAI-30| gdyby została 
umieszczona w programie 4 byłaby traktowana przez kompilator DBC 
Jako błędna. Dyrektywy łdefine nl* wolno kończyć Średnikiem. 

□prócz dyrektywy ideflne kompilator DBC dopuszcza 
stosowanie Jeszcze jednej dyrektywy, a mianowicie Slnelud*. 
{nfarauje ona kosellator, te ma on odczytać z dyskietki zbiór p 
nazwie podanej w dyrektywie I włączyć Jego zawartość do 
kompilowanego programu. Włączony zbiór zawiera z reguły tekat 
źródłowy jednej lub kilku funkcji programu. Można Jej również 
użyć do wczytania zbioru zawierającego definicję wszystkich 
stałych programu Ubiór taki zawiera tylko dyrektywy •deflne*. 

3.3. Decyzje programowe. 

Bardzo często program musi pod.ląć określone działanie w 
zalotności od zaistniałych warunków. Sytuację taką ilustruj* 
poniższy problem, należy wySwletlló na monitorze pytanie, na 
które użytkowi! k może odpowiedzieć “tak* lub “nie*. Jeżeli 
odpowiedź Jest “tak", należy wyprowadzić określony komin 1 kat | 
gdy odpowiedź Jest “nim* - inny komunikat. Program działający w 
taki wlaSnie sposób wygląda następująco. 

Program S 

malnOSf /* początek maln t/ 

char c,odp| 

pr i ntf (“Chcesz programować w Języku C? (T/NI Vn“)| 
odp-getchar ( I | /• wczytaj odpowiedź •/ 


cwgetcher < ) , /« merytaj return ■/ 

if faćp=™*T'l*C /t początek -|f“ •/ 

prlntf (“Czytaj dalej ten rordztal\n~ł| 

•» /t koniec “lf“ •/ 

I# (odp— ’!OS( /* początek “if“ ■/ 

prlntf <“To ni* męcz się dłuź*J\n“>| 

•» /* koniec -|f" «/ 

c-getchar O | 

•I /a koniec mai n (I tf 


Program 5 zbudowany Jest z Jednej funkcji malnd, z której 
wywoływane są dwie funkcje z biblioteki DBC, poznana wcześniej 
funkcja prlnftO I funkcja getcharO z blllotekt AID. Funkcja 
getcharO działa podobni e Jak Instrukcja INPUT * BASIC-a, tzn. 
praca komputera zostaje zawieszana aż do momentu, gdy 

użytkownik naci Śnie klawisz RETURN, kod klawisza naciśniętego 
przed ncclSnlęclem RETT72N zwracany Jeat do funkcji wywołującej 
funkcję getchor ( ł . Stąd instrukcja przypisania, 
odp-getchar O | 


powoduje, że zmiennej "odp" prjypiMOł zostaje wartość rwrócori 

i (wykrzyknik) - oznacza logiczną negacje (NOT) . 

przez funkcję getcharl). Progran 5 po uruchomieniu wyświetla 

Przy konstruowaniu złożonych wyrażeń warunkowych można 

pytani pi "Chcesz programować m Języku C7 (T/H)" ł czaka mi 

używać nawiasów (..) do wskazywani* kolejności obliczania 

ułytkowilk nscilnic jadm z klawiszy T lub N. Gdy ulytkomlk 

wartości poszczególnych wyrażeń prostych. Przykładam! (łożonych 

naci anta T prograa wyświetli tekst "Czytaj dal aj tan rozdział" - 

wyrażeń warunkowych sal 

jgdy H - tekst "To ni a sta dłużej". Takia rozstrzygnięcie 

a >■•<>* U «<=”?* "czy a Jest cyfrą" 

priaz prograa. Jaka akcja aa być podjęta, nazywa się decyzją 

a , m*T" U a!-'t* "czy a nie Jest literą t“ 

programową. 

Również poprawnymi w języku C są konstrukcje warunkowe, 
l#(3<| if Cc*a)| i f (czydalmJO 7 f 

3.3.1. Instrukcja lf. 

pomimo Że wyrażenia warunkowe w nich zawarte nie są zbudowane z 

Decyzja progrzapwi podejmowana jest w oparciu o wynik 

operatorów relacji. Pierwsze Z nich przyjwuje zawsze wartość 

badania wartnku lub Inaczej, zdarzania programowego. Do badania 

logiczną TRUE (ponieważ 3 Jest różne od cera), drugie przyjmie 

warunków (zdarzeń programowych) służy w Języku C, miedzy innymi t 

wartość logiczną FALBE Jedynie wówczas, gdy zmiennej c zastanie 

instrukcja It, bgdąca Jednye ze słów kluczowych tago Języka. H 

przypisana wartość zmiennej a równa zero, a trzecie przyjmie 

tym miejscu wypada uczynić równia* zastrzeżenie, im nazwy 

wartość logiczną FALCE jedynie wówczas, gdy funkcja czydaleJO 

zmiennych, stałych i funkcji muszą być różne od słów kluczowych 

zwróci do miejsca wywołania zero. 

Jeżyka C. Wykaz wszystkich słów kluczowych DBC wymieniony został 

Do budowy wyrażeń służą również w Jeżyku C bitowe operatory 

ws wstępie. 

logiczne, pozwalająca na manipulacją pojedynczymi bitami Ich 

Składnia instrukcji Łf Jest następującai 
lł (warunek) 

• ( /> nawias otwierający ■/ 

Instrukcja 1 i 
instrukcjami 

argumentów. Do operatorów tych należą, 
1 - bitowa kanliełkcjaf 
1 — bitowa alternatywai 

•I /* nawias zamykający »' 

ln»trukcja| /» ta instrukcja wykonywana Jest wówczas 

■ gdy warunek instrukcji tf(..ł ola 
• Jest spełniony «/ 

Po słowie kluczowym lf musi być zdefiniowany warunek ujęty 

* - bitowa różnica symetrycznai 
« - przesuniecie w łmei 
» - przestał i eci* w prawa | 

w nawiasy 1...1. Warunek definiowany Jest przy poary wyrażenia 

• - - uzupełnienie Jadynkowe. 

warunkowego, które moim przyjmować dwie wartości, TRUE 1 FALSE. 

Działanie tych operatorów ilustrują poniższe tabelki, przy 

Wyratenlea warunkowym Jestl 

założeniu, że zmienna >, y, i >a typu char oraz ■ «"A* 1 y-’C" . 
bit 76343210 bit 76343210 

odp— 'T* 

erg. n 01000001 arg. a OIOOOOOI 

arg. y 010000I1 arg. y 0 1 O O O 0 1 1 

a odczytuje alg Je, "czy wartość zmiennej odp jest równa T . 

z-aky o 1 0 0 O 0 0 1 z«vly O 1 0 O 0 0 I 1 

Gdy wyrażenie warunkowe przyjmuje wartość TRUE, to wykonywana 

bit 7 i S 4 3 2 1 0 bit 76343210 

Jest sekwencja inatrukcjł ujętych w nawlaay *(..*). Gdy przyjmie 

arg. k 01000001 arg. x OIOOOOOI 

arg. y 01000011 



po nawiasie zamykającym. Nawiasy • < 1 ») mogą być pominięte 

Z-x~y ooooooio 

Operatory « 1 » służą do przesuwania bitów argumentu 



tylko Jedna instrukcja. 

Stojącego po lewej stronie operatora o liczb* pozycji stojącą po 

II Jeżyku C wartości logicznej TRUE odpowiada wartoAĆ różna 
od sera, natomiast wartości logicznej Fflt.SE odpowiada zero. 

prawej stronie. Ha przy kładł *<<2 przesuwa zawartość zeiennej « 
o dwa bity w lewo. Zwlnłone w wyniku przesuniecie pozycje 

Dzląkl tej własności wyrażenia warunkowe w Języku C mogą być 

bitowe zmiennej « wypełnione są zerami. 

budowane z Instrukcji przypisania, wyrażeń arytmetycznych czy 

Tworzone za pomocą wyżej przedstawionych ooeratorów 

wmrtoecł zwracanych przez funkcje. Oczywiście można je rówiież 

wyrażanie warunkowe Jaki i# (alb), lflalbł, łtp są rd»«,leż 

konstruować w klasyczny sposób. Jak w jeżyku BASIC, 

akceptowane przez DBG. 

wykorzystując do tego operatory relacji, którymi eąt 

Gdy dokładniej przeanalizujemy działanie programu 3, to 

— oznacz a "Jest równe" | 

Stwierdzimy, że posiada on pawie wady. Gdy użytkownik wciSnlm 

oznacza "Jest różne" | 

mała "t" łub małe "n", program nie podejmie żadnego działania. 

> oznacza "Jest wifksze'| 

Znając zasady konstruowania wyrażeń warunkowych, możemy go 

< oznacza "Jest mniejsze"! 

zatem poprawić, aby wyeliminować tę wadę. 

>” oznacza “Jest wlękez* lub równe" | 

Program 6 

Sdef ino TD 'T* 

Sdeflnm TH *t* 


•de# Ino ND * N* 

A oto klika przykładów wyrażeń warunkowych zbudowanych przy 

Sdeflne NH 'n* 

maln()S( 

wykorzystaniu operatorów relacjli 

char c,oćp| 

prlntf ("Chcesz programować w języku C? (T/NI\n"7| 

lO—feS - "czy 10 Jest rówm 7*3"| 

odp-getchar U | 
c»get char I)| 

alal>-ala2 - "czy wmrtoSĆ zmiennej alal Jest większa 

l#<odp— TD It odp— TH) 

print# ("Czytaj dalej ten rozdział Vn") | 

łub równa wartości zmiannej ala2i 

1 # (odp— ND 1 1 odp— W) 

prlnftClo nie męcz sl* dluż!j\n*)| 

Powyższe wyrażenia warunkowe nazywane są prostymi 

c-gmtcharO| 

S> /» koniec matni) ■/ 

wyrażeniami. W Jeżyku C można konstruować również złożone 

Zasadnicze zmiąny wprowadzone w tym orogruie • stosunku do 

wyrażenia warunkowe przy pomocy wyrażeń prostych 1 operatorów 

programu 3 są następująca. 

logicznych, którymi sąi 

- stałe znakowe *T* i *H’ zostały zdefiniowane w dyrektywie 

11 - oznacza logiczną alternatyw (QR»J 

Sdef lne| 

- oznacza logiczną koniunkcJe (AND>t 

- zdefiniowane zostały dwie dodatkowe stale znakowe *t* 1 *n' 


t* I 


po to, aby program działał bez względu na to, czy w odpowiedzi 
naciśnięto Jużą czy mała literę) 

- usunięto nawiasy •< 1 *> ograniczające zakres instrukcji 1 f. 
Było to możliwe dlatego, te zarówno przy spełnieniu pierwszego 
Jak 1 drugiego Warunku wykonywana Jest tylko Jedna In*trukcja| 

if (wyrażenie) /* gdy to wyrażenie przyjmują 

*( * wartość logiczną TRUE 

dzlałeniel) t wykonywane Jest to działanie 

• ) 

♦ W przeciwnym wypadku 

• ( 

dzlalanie2j 1 program podejmuje tę akcję 

• ) */ 

Ze schematu tego wynika, że konstrukcje lf-else sluią do 

- wprowadzono złożone wyrażenia warunkowe w miejsce prostych. 

wyboru jednej z dwdch możliwych ścieżek przetwarzani a. Jednak w 

Przedstawimy teraz dwie pożyteczne funkcje z biblioteki 

praktyce programowania często spotyka się bardziej skomplikowane 

kompilatora DEC, dzięki którym złożone wyrażenia warunkowe z 
programu 6 będziemy mogli ponownie zastąpić wyrażeniami 

sytuacje, gdy program musi wybrać Jedną * kilku możliwych 

prostymi. Funkcjami tymi sąi tolowerO i toupperl). Funkcja 

akcji. U Jeżyku C Istnieje konstrukcja programowa umożliwiająca 

telowerO zwraca kod ATASCIt małej litery, gdy jej argumentem 

programiście wygodne kodowanie takich sytuacji. Konstrukcja ta 

Jest kod dużej litery. Gdy jej argumentem Jest kod małej litery, 

zbudowana Jest również ze słów kluczowych if i else, jednak dla 

to Jest on zwracany bez zmian. Natomiast funkcja toupperl) 

odróżnienia jej ad wyżej przedstawionej, określa aię ją niekiedy 

zwraca kod ATABCII dużej litery, gdy jej argumentem Jest kod 
małej litery. Kod dużej litery Jest zwracany przez tę funkcję 
bez zmian. Wykorzystując Jedną z tych dwóch funkcji program 6, 
motamy zmodyfikować! nadając mu postać! i 
Program 7 

Ddeflne TD *T’ 

■deflne ND 'N* 

mainosi 

char c,odp| 

printf ("Chcesz programować w Języku C? (T/N)\n"ł) 
odp-toupp er igetehar O ) | 

nazwą elee-if. Konstrukcja else-if na postać poniższąi 

if (wyrażeni el) /• gdy to wyrażenie ma wartość 

*( * logiczną TRUE 

akcjali t program wykonuje tę akcję 

Ś) * 

elsa tf {wyrażeni e2) s gdy to Wyrażenie ma wartość 

•( * logiczną TRUE 

akcja2| t program wykonują tę akcję 

«> I 

* ltd 

elae ■ gdy wszystkie w/w wyrażenia 

ś( • mają wartość logiczną FALEE 

akcja) • program wykonują tę akcję 

•) «/ 

crgetchar ( ) | /* przeskocz RETURN */ 
1 f <cdp*“TD) 

Nawiasy ograniczające S(..ś) mogą być pominięte, gdy 

printf (“Czytaj dalej ten roxdział\n") j 
If (odp-«ND) 

określona akcja składa się tylko z jednej Instrukcji. 

prlnftCto nie męcz się diuźsj\n )| 

Omawiając konstrukcje sterujące programem (do takich należą 

c-getchar O | 

*) /* koniec mainO »/ 

if-else 1 elae-lf), należy dodać, że Implementacja DEC nie 

W programie tym nie ma sprawdzania, czy odpowiedź na 

posiada rozkazu skoku (goto), chociaż standardowy Język C rozkaz 

wyświetlone pytanie udzielona była przy użyciu dużej czy małej 

taki zawiera. Ha to swoje dobre i złe strony. Rozkazy skoku są 

litery, Btało się to możliwe dzięki instrukcji przyplsaniai 

nagminnie nadużywane we wszystkich Językach programowania, w 

odp=toupper tgetchar ił ) | 

których Są dostępne. DBC Jest wyposażony w podstawowe 

po wykonaniu której zmienna "odp" zawsze zawierać będzie kod 

konstrukcje sterujące, umożliwiające wybór właściwej drogi 

ATAECll odpowiadający dużej literze alfabetu, o Ile naciśnięty 

przetwarzania. W praktyce instrukcja skoku nigdy nis Jsst 

został klawisz odpowiadający literze <fl - 2). W sytuacji, gdy 

konieczna i zawsze nożne się bez niej obejść. Zatem Jej brak w 

naciśnięty zostanie klawisz nie będący literą, np, cyfra, SHIFT, 

Implementacji DBC zeusza programistę do stosowania dobrego stylu 

RETURN itp. zmienna "odp" zawierać będzie niezmieniony kod 

programowania - programowania strukturalnego. Wadą spowodowaną 

tego klawisza. 

Pozostańmy nadal przy programie 7. Jagn dokładna analiza 

J#J brakiem Jest konieczność powtarzania sprawdzać warunków i 

prowadzi do wniosku. Że nie działa on poprawnie w każdej 


sytuacji. Co ten program "zrobi”, gdy na wyświetlone pytanie 

Wracając Jednak do naszego programu musimy stwierdzić, że 

użytkownik naciśnie, świadomie lub pomyłkowo, klawisz Inny niż 

Jago działania nie dostarcza n aa Jeszcze pełnej satysfakcji. 

"t" lub "n". Program nie wyświetli w takiej sytuacji Żadnego 

Program B poinformuje użytkownika o naciśnięciu niewłaściwego 

komunikatu 1 zakodczy się. Poprawmy go zatem tak, aby 

klawisza t co dalej? Nic, zakończy działanie. Jednak dobrze 

uwzględniał on również ten przypadek. Oto jego nowa wersjai 

byłoby, gdyby nasz program ponowił w takiej sytuacji pytanie. 

Program O 

śdefine TD *T' 

3.3.3 Konstrukcja do-whlle. 

Ddeflne ND *N" 

mainOŚi 

Sytuacja, w której program musi powtórzyć przyjęcie 

m _ char c , odp | 

printf i "Chcesz programować w Języku C? (T/Nl\n")| 

określonej informacji od użytkownika, bardzo często występuje w 

odp=toupper (getchar ( ) ) j 
c=getcbar O ) /* przeskocz RETURN */ 

praktyce programowania. Na przykład OOSa wyświetlając swoje menu 

lf (odp— TD) 

printf ("Czytaj dalej ten rozdział \n" > | 

oczekuje na polecenie wybierające Jedną z możliwych opcji. Gdy 

else 1 f <odp—ND) 

prinftCto nie męcz się dł.uiej\n"ł | 

else 

użytkownik naciśnie liLerę nie odpowiadającą żadnej opcji. 

« ( 


printf ("tnUdzleliłeś niewłaściwej odpowiedzi")) 
printf ("Nnmiałeś nacisnąć T lub N")| 

będzie oczekiwał na komendę. Ta procedura będzie wykonywana tak 

printf C"\na nacisnąłeś 'Xc'",odp>) 

długo, aż użytkownik wybierze poprawną (możliwą do wykonania) 

c“getchar {) | 

• ) /• koniec matnO tf 

opcję. 

Jak widać, aby poprawić nasz program, musieliśmy użyć nowej 

Język C dostarcza programiście narzędzi umożliwiających 

instrukcji else. 

powtarzanie przez program określonej akcji dowolną ilość razy. 

3.3.2. Konstrukcja lf-elae 

Narzędziem tym Jest konstrukcja do - while. Konstrukcja ta 

Konstrukcje progrsmowę typu lf-lse mają zastosowanie w 

zbudowana Jest ze słów kluczowych do i while i jej postać jest 

sytuacji) ody program musi wykonać pewns działania przy 
spełnionym określonym warunku « inne działanie, gdy warunek ten 

następująca) 

do i 

*< 

Jest niespełniony. Działanie takich konstrukcji programowych 
można zi lustrować poniższym schematemi 

•> 

whl 1 ■ (wyrażeni o) | 

Po głowie kluczowym do następuje ciąg instrukcji ujętych w 


IKS-Jtl 


i 

nawi asy •(..*), irtóry jest wykonywany t«V długo. Jak długo 
wyrajania ujęte w nawiasy I..I, występując* po słowie kluczowy* 
while przyjmuj* wartość różną od zera. W momencie, gdy wyrażenie 
to przyjmie wartość itro, starowani* w programie przenoszone 
Jest do pi *r wsi ej Instrukcji występującej PO słowie ehlle I 
związany* z tya słowa* wyrajania*. Zate* aby progra* B ponawiał 
pytani* w priypadku naciśnięcia klawisz innego niż “Ł" lub "n”, 
powlnl*n mleć poniższą postać i 
Pr opraw 8 

•defin* TAK »T* 

idefin* NIE 'N' 

ufnlltl 

char c,odp| 
do 

• (/» początek do t/ 

pr i nt< ("Chcesz programować w języku C? (T/Nl\n"»| 
oóp-toupper (getchar O > | 

C*5*tche()|/I prz*skocł RETURN •/ 

1 f (odp ' “TAK Ib odp'-NIE)S« 
prlntł ("\nltdz i*l lł*S niewłaściwej ódpowi *dzt ") | 
prtnt# ("\nwi al eś nacisnąć T lub N"l| 
prlnt# ("tna nacisnąłeś *Xc'",odp)| 

•I /* konlac if«/ 

•)/t konlac do */ 
whll*(odp'-TAK U odp’-NIEł| 

/I od tego mi mimem rozpocznij wykonywani* programu, 

• gdy zostanl* naciśnięty J*d*n z klawiszy "t " 

» lub "n" «/ 
lf (odp— TAK) 

prlntf ("Czytaj dalej tan r ot dział >n"l | 


prln#t("to nl* męcz się dlużeJNn* 
c»g*tchar (ł | 

/• koni *c naind «/ 


Progra* 9 po wyświetleniu pytania czaka na odpowiedź. Gdy 
naciśnięty zostania klawisz Inny niż "t" lub "n", progra* 
wyśwlśtll komunikat o udztalanlu niawłaściwaj odpowladzl 1 
ponowni* wyśwlatli pytania. Akcję tę program będzl* kontynuował 
tak długo, aż zostania naciśnięty albo klawisz "t" albo *n*. 
Mdwczas nastąpi wyjścia * pętli do - *hlł* I wypro-sdzc-y 
zostania Jeden z dwdch, przawldz lanych w takiej sytuacji 
kamunlkatdw. 

3.3.4 lomlrukcja ehlle. 

Prz odstawiona w poprzadnl* rozdział* pętla programowa woż* 
być rdwniaż skonstruowana tnaczaj - w sposób fcardetaj alagandcl. 
Szczegółowa analiza pętli do - ehlle Z prograau 9 prowadzi do 
następujących wnloskdwi 

- wyświetlane Jest pylaniei "Czy chcesz ... 7. ” | 

- wczytywany Jest znak z klawlaturyi 

- badana Jasi (Instrukcja Ifl, czy wczytany znak nl* jest ani 
11 tarą T ani N| 

- Jażall nl* Jest, to wyświetlany Jest komunikat o udzieleniu 
niewłaściwej odpwl*dzi| 

- ponowiła badana jest, czy wczytany znak Jest Inny niż TIN 
(tym razem badania tego warunku realizowane Jest w instrukcji 
ehlletf 

- Jeżeli Jest Inny, to pętla wykonywana Jest od początku. 

Nieracjonalnym w taj pętli Jest d«mikrolne badania tego 
samego warunku. Jest to cena, ktdrą trzeba plac id za brak 
instrukcji skoku- Ale czy naprawdę Ir z eh a -7 Nim zawsze) program 
10 zawiera pętlę realizującą to samo zadanie CO program 9, 

Jednak wyeliminowano z niego dwukrotne badanie tego samego 
warunku. Do zbudowania tej pętli ias»rww»«r«a rmlaU inslriłkcja 
wbiła, będąca ukrnlH alnm kluczowy* lęryka 17. Pi>sl ad tej 

Instrukcji Jest następującai 

while (wyrażeni* logiczne) 

■ ( 

i nstrukcjal 
InstrukcJaZ 

•1 ' 

Słowo kluczowe wtilla otwiera pętlę. Tuż za nl* *usl 
wystąpić wyrażenie logiczne ujęte w nawiasy C..J. Bezpośrednio 
ca wyrażenie* logiczny* występują ciąg Instrukcji ujętch w 


nawiasy Ś(..Ś). Jeśli wystąpi tylko Jedna Instrukcja nawiasy 
wojna pominąć. Instrukcja wM lw działa w ten sposób, że na 
początku obliczana Jest wartość wyrażenia logicznego I Jeśli 


Progr. 


■ 10 


ISH 5 m -l- 

Mino 

•( 

eh »r od^rttJ 

prlntf ("Cis che#** ere#rś.Mou*c u J#twku C7\r Oi 

•rlntfCodPOWltdt T lub Nvn ">» 

printff— > -łi 

od»*tou»p#r<ś*tcMrO)j 

rśtMttehśrOi /T ronin KTURrt t/ 

Nhl IśfOtfś '"TflK U <XJe'-NIE> 

•< f* Poetitśk *»tll uhl I* */ 

•rtntfCMiUdzielilti tltJ cdeoutedtł Nc"#od * )i 
•rintffNnnśOltnl J T lub N"^J 

•rlnfcfC"— > *>i 
0d»»t0U##»r( fłtcMrO > J 
rttMłtchśrOj 

*» ✓* koniec śśtli Uhli# Łr 

'WBOTOemui d*l*J t«n rotdzl*l"Ji '' 

prłntf<”snTo nl* mci *!• dlux»J">i 
odps«#toh*rO) /t iśwle* erotram przed *■/ 

/* załadowaniem DOS-* ty 
*> /% konl*o MlnO 

Jest ona rdżna od zera (TRJEI, wykonywań* są tnstrukcj* zawarte 

w pętli (poalędzy nawiasami *(..*)). Proces ten powtarzany Jest 

. IłU - 

tak długo, aż wyrażenie logiczne nie przyjmie wartości zerowej 
IFALEEl. Wówczas żadna ■ instrukcji zawartych w pętli nl* 
zostanie wykonana, a sterowania zostanie przeniesione do 
instrukcji występującej po nawiasie zamykającym pętlę. 

Warto zapamiętać podstawową różnicę w realizacji pętli do - 
ehlle 1 ehlle. W pierwszym priypadku instrukcja składające się 
na pętle wykonywane są przed sprawdzeniem warunku. Zatem zawsze 
pętla do - ehlle zostanie wykonana przynajmniej ,-ećen r*z . 
Natomiast w drugim przypadku, najpierw następuj* sprawdzeni* 
warunkuj 1 w zależności od Jego wyniku pętla atoże zostać wykonana 
lub nie. Zatem w szczególnej sytuacji pętla ehlle *oż# być w 
ogól ■ ni* wykonana. 

Uważnego czytelnika intryguje zapewne średnik stojący tul 
za nawla««m zamykający* wyrażani* warunków* oętll ehllaf zadaj* 
on sobl* pytanie* dlaczego wyrażeni* warunkowe w Instrukcji lf 
nie Jest lafcoriczon* średniki**, a w Instrukcji ehlle J#st7 Skąd 
SI* bierze tak* nl*V*xt**«c**mcJa-» Otóż, nl* Jest to brak 
konsekwencji, lecz wprost przeciwnie, średnik Jest dowodem 
wnikliwego przemyślenia przez twórców Języka C wszystkich 
stosowanych w nim konstrukcji programowych. Instrukcja ehlle 
występując* w pętli do - ehlle 1 w pętli ehlle Jest tą samą 
konstrukcją Języka C. Zate* kompilator. Interpretując kod 
źródłowy programu oczekuje wystąpienia po siewie kluczowym ehlle 
ciągu instrukcji do wykonania. Gdyby ich nl* znalazł 

sygnał Iłowałby błąd. Aby qo “oszukać". ueieszcza ale po słowie 
k literowym ehlle w ngtlt dr - ehlle Inelrwkr (ę ••* el el ..|..ą dla 
całego prograau, kzw. Instrukcję pustą. Taką właśnie instrukcją 
Jest saa średnik. 

Przedstawień# Instrukcja lf, else. do, ehile nl* wyczerpują 
wszystkich możliwości sterowania progrmmee w Języku C. 0 11* 

Instrukcje lf Jest wygodna przy wyburza jednej z dwóch 
możliwych ścieżek przetwarzania, to jej tastosowanl* iprzy 
wyborze jednej * wielu dróg etaj* się Już mniej wygodne, a 
ponadto ogranicz* czytelność programy źródłowego. Język C 
posiada również dużo wydajniejsze instrukcje umożliwiające 
sterowanie progra*** 1 erg ani zwanie pętli programowych - 
instrukcje ewllch , for, które zostaną priedstawlona w 

następnych rozdziałach. 


ia-TK® 


ltd.ł, koniunkcji (IW, alternatywy (II). Na samym końcu 



4 . 

OPERACJE 
NA LICZBACH 


Przykładowe prograay przedstawione w poprzednia rozdziała 
zawierały prosta operacje artymetyczne. Język C umożliwia 
realizowanie rdwnież skoinpl IV olanych oparacjl ary tmetycznych, 
podobni a Jak Inna Języki wyaokopoziomoMa (Pascal, Basic). 
Mystarczy z adak tarować nazwy stałych l zmiennych występujących w 
wyr słani U arytmetycznym 1 skonstruować to wyr słani a! 
wykorzystując niłaj przedstawiona operatory arytaat ycznei 

* - dodawani a| 

l-> - odo J«o»an|0| 

/ - działania. 

WartaSĆ wyrałania arytmetycznego auta być przypisana do pawnaj 
zmiennej programowej lub wyprowadzona bezpośrednio, np. na 
ekran. Ilustrują to pani iszy prograal 
•ainO 

• i 

int s,b,c| 
a»20| 
b»23| 
c-a*b| 

pr lntf l *a+b « Id ",c* i 

ś> 

Po uruchomianiu tego programu na akranla zostania wyświetlono 
linia 

m*b “ *3 

Nożna oczywiście obliczać wartości bardziaj skomplikowanych 
wyrażeń, np. I 
b»20| 
c*23| 
d— 10| 
a-b»c*dj 

U przykładzie tya zmlannaj d została przypisana wa-tość 
almn lO 1-101. Przypisania to wykorzystuje jadnoar guaentowy 
operator l- , tzw. sinus unwny. Operator ten działa według 
z* sady i “pobierz szrtoSC argumentu L zalać jaj mak na 
przeciwny”. W przykładzie tyw widać riwiiei, ta w jednaj linii 
(instrukcji) aołe być utytych wiała operatorów ar ytaetycznych. 
Następny przykład łluatruje nowy problem 
b“20| 
c-23| 
d**3| 

a»b*cłd| 

Jak w Języku C zostania wykonana taka operacja? Czy wartość 
b zostania dodana do c 1 następnie suma pomnożona przez d? A 
sioła inaczej l najpierw c zostanie pomnożona przez d i 
Iloczyn zostanie dodany do wartości b. 

W Języku C istnieją ściśle określone reguły, według ktdrych 
obliczana Jest wartość wyrażeń. Reguły te definiują wałność 
każdego operatora, a co za tya Idzie, kolejność wykonywania 
operac3i - 

Największą wagę aają operatory enołenta l dzielenia 1 ta 
działania wykonywane aą zawsze Jako pierwsi# (licząc od lewej do 
prawej strony wyrałania). Następne w kolejności są operatory 
dodawania 1 cdejaowsnta. Pnleważ C umożliwia stosowania 
operatordw ary taktycznych I logicznych w Jednym wyrałanlu, stąd 
następnymi w kglejnośęi są operatory logiczne porównania <"“,>,< 


w tej 

hierarchii wainDści znajduje się operator przypisania <■! . 

Wracając do powyższego przykładu, możemy teraz stwierdzić, 
że najpierw wartość c zostanie pomnołona przez d i iloczyn 
zostania dodany do wartości b. Obliczony w ten sposób wynik 
(~V3> zostania przypisany zmtannaj a. Raz wazzry wyrażani ei 
If (a«3*B Mr b>20) 

Opierając się na wyżej przedstawionych zasadach przaanal 1 zujaay. 
Je* obliczona zostania Jago wartość | 

- w pierwszej kolejności wykonana zostania operacja 
dodawania 3*0 1 wynik 13 zostanie gdziekolwiek zapamtętanyi 


— następnie zostaną sprawdzona warunku czy wartość 
zmiennej ■ Jest równa 13, a wartość zmiennej b Jest większa od 
20. Załóżmy, ie a»l3 a b-29. Ponieważ przy tym założeniu nbyówa 


całe 


wyrałania logiczne przyjmą wartość logiczną TRUE, zatem I 
wyrałęnie przyjmie taką wartość. 

Należy zapamiętać, te w Jeżyku C kolejność wykonywania 
operacji, zarówno arytmetycznych Jak I logicznych Jest 
następująca! 

działanie 
• 1 / 

♦ 1 - 

U I II 

• (przypisanie) 


wykonywane 


Kolejność ts aote byc zeieniona przez zastosowanie 
nawiasów. Wracając do przedstawionego przykładu. Jeśli wyrażenie 
arytmetyczne napiszemy stosując nawiasy! 
a«(b*c) ad 

to zawartość zelennej b zostanie dodana do c ł suma pomnożona 
przez wartość zmiennej d, a zatem inaczej niż bez użycia 
nawiasów. Nawiasy mogą być stosowane w dowolny sposóbi ważne, aby 
ich liczba była parzysta. 

Przedstawimy teraz program realizujący funkcję prostego 
kalkulatora. Działał on będzia w następujący sposóbi 

—zapytaj użytkownika o rodzaj operacji, która ma być 
wykonana | 

-zapytaj go o dwa arg um enty, na których należy wykonać 
wybraną operację) 

-wykonaj operację) 

-wyświetl wynik operacji) 

-powtórz wszystko od początku, gdy użytkownik wyra i: takie 

życzenie. Na początek zajmiemy się ostatnim elementem powyższego 
algorytmu. 


4.1. Piszemy mlasną funkcje. 

Każdy dobrze zaprojektowany program powinien przed 
zakończenie* swojego działania zadać użytkownikowi pytanie, czy 
chce on ponownie wykonać przebieg programu czy teł nie i w 
zależności od uzyskanej odpowiedzi podjąć odpowiednią akcję. U 
języku C istnieje szczególnie wygodny mechanizm do realizacji 
takiego celu. Bą nie funkcje. Dobrze zaprojektowana i 
przetestowana funkcja wożę zostać w postaci pól skompi lowanej 
włączona do biblioteki kompilatora i używana w każdym 
nowotworzonym programie. 

Przedstawi ary teraz funkcję. której zadaniem będzie 
ustalenie, czy użytkownik programu ma zamiar kontynuować pracę, 
czy teł Ją zakończyć. Będzia to funkcja bezargumentowa, która 
będzlm zte-acać do miejsca wywołania wartość i, gdy użytkownik 
będzie chciał kontynuować pracę, a zero w przeciwnym wypadku. 
Tekst łrddłowy takiej funkcji może wyglągać następująco! 


ssac-« 


* funkcja CZVMIEJ * 

cxvćzleJO#< 

In* *tafciOd*.T<t»N.n/ 

char *u.od»ier,ii 
u*’K*'i 

T-8<» kod Ut*m T *s 

f!l(i /% kod Utoń# t *' 

N»78j /* kod U tam H 

rt-t lf f /ł kod litim n */" 

•tat"o*#n(liod.t*r»u)i otul rola *K«* t 1 

If<Ct«t!*i>*< 

ar i ntf<'\n\tf lad otwarcia K» *>i 
return* 

•ł ©ł konltc tf *' 
do*< /* aoctatak do 
•rłntf<“\nC*v chetez kontynuować?" >ł 
od»*ciffce<l>i 

lf(odaf-T U eda»-t U oda'"*! U odo'»n>*< 
•rlntff^snNaOdaowltdz albo T albo H“>» 
eontłnuai 

i) /* konltc if *✓ 

8) /» konltc do 

whiltCodal-T aa, odaf-fc U ©dal* H IŁ oda!*n)< 
OlOMCl}! 

ratum(Coda**T ri oda**fc> 7 1 * 8)» 
i) 't konltc cswdaltJO t/ 


calago wyrażenia loglcznegoi 

-w przeciwnym wypadku wartością wynikową całego wyrażania 
Jaafc wart 0*0 wyrażenła3. 

Opar ator 7 zastępuje konstrukcje logiczne typui 
ł« Cy>*ł 
t-vi 

di łąki nlMu ważna Ja zwisać w zwartaj p oz tael i 
z-ły>*> 7 y • « 

Kalały zauważyć, ła *,y,« «rvaą być dowolny*! wartościami 

zmiennych. Zaira wytaj przedstawionej instrukcji nożna uży© np. 
do wybrania wląkszej x dwdch liczb. 

Kilka si©w na taaat kompilacji funkcji czydalaJO. 
Pnaditawiony wył aj kod żrtfdlowy funkejt nalały wprowadzi© za 
pomocą adytora tekstowego do zbioru o nazwie CIYOALEJ.C. 
Kompilator DEEP BUJE C jaj kod pdłskomptlowany zaplata do zbioru 
o takiej laałj nazwie, z rozszerzeni aa .CCC. Chcąc dołączyć tą 
funkcją do każdego nowotworzonego programu, nalały przy 
kcnaotldacjl tego programu uolatcl© dodatkowy wtąraz 

CZYOAL.EJ.CCC w zbiorze wakazdwak dla ltnkara. 


Funkcja czydalaJO działa m naatąpujący apoadbi 
-Myćwl atla pytonlei "Czy chcesz kontynuować?" ł czaka na 
nacitrtiącie Jadnago z dwdch klawlazy T lub N| 

-gdy zostania nacltniąty Jakikolwtak klzwlaz, aprawdzana 
Jaat czy Jaat to klawisz T lub M, Jeżeli nia Jaat, to funkcja 
wyiwistls kbnunltat "Odpowladz albo T albo K", ponawia pytania 1 
ponowiła czaka na nacltniącfe klawiszai 

-gdy nacitnłąty zostania klawisz T llub aal# t), funkcja 
czydalaJO kończy działania I zwraca do aiajsca wywołania 
•ortofe li 

-Ifdy nacidnity zostania klawisz N Club sala nł, funkcja 
rćwilzt Irartny działania, zaracając w taki aj sytuacji zero do 
aiajsca wywołania. 

Zakończanie działania funkcji raal!zowa-a Jast przy poaocy 
Instrukcji raturri, ktdra umożliwia przekazanie starowania w 
progrzaU z funkcji wywołanej do funkcji wywolującaj. Postać taj 
Instrukcji Jast następująca! 
return {wyrażani el | 

Jedli instrukcja return nia zawiera żadnego wyrażania, w 
taki aj sytuacji do funkcji wywołującej nia zoatanle zwrdcona 
ładne wartedd (ntttąpl tylko prz»k«enl« ąterowenlel. 6dy 
Instrukcja rat ten zawiera wyrażenia, to wrat z przekazania** 
Sterowani A, do funkcji wywołującej przekazana zostanie wartofić, 
będąca re/ul tata* funkc-Jl wywołanej. Instrukcja 
raturnl (adp»**T II odp°=t) ? l« Oli 
powodują wyjęcia z funkcji czydalaJO I Jadnoctasne przekazanie 
rezultatu taj funkcji do funkcji wywołującej laalnlłl. Gdy 
wyrażania logiczna <odp“T 1 lodp— tl przyjęła warto#© Tfttt, to 
funkcja czydalaJO z»a-dcł do wtajaca wywołania warto#© 1, gdy 
wyrażenia to przyjmie warto#© FALSE - zostania rwikonz xao. 

Uzyskanie tak zwartego zapisu Instrukcji return Jast 
wadliwa dzląkl trdJarguaeoSowezu ooaratorowi warunkować 
Wyrażania logiczna budowana przy poaocy lago operatora «Jl 
o;4lną postać* 

z^yr , taniał 7 wyrażani s2 i wyre*enle3 
rn ich warto*© Obliczana Jast według nastąpującago aigorytći 
-najpierw obliczań* Jas* warto*© wyrażani al| 

-Jasil obliczona warto*© Jast rdżna od tera iTBUEł, to 
obliczaną Jast warto#© wyrażenia? I cna Jast wartością wynikową 


4,8. Program kalkulator. 

Możemy teraz przystąpi© do napisania wspomni incjo * ‘'&płfrj 
programu kalkulatora, dożywiacie wykorzystamy w mu 
czydalaJO. CNia zapoanlj o uałeszczanlu wiersza CZY0dL% J. Ctil w 
potrzebny* do konsolidacji tego prograwu zbiorze wskazdirirk" JlV 
ltnkarał. Oto postać żrćdłowa tegc prograau 
program II 


/rnmłmmtttittiitmi/ 

/* ero« ramii KRLKULRTOR *' 

•dtf int TRK 1 

•dtf lnt NIE e 

ttilnO 

t( /'toocztttk fankcJi MinO t/ 

int ll» 12>uvnlki 
ch*r ob*Fi*l»oB*r/znłkj 
ch*r uri 1C1203 jtrf2Cl20j j 
do eocx*t«k do ty 

fC 

xlWO»tr*NIEJ 

prlłit f <“VnWvbl#r 2 rod**J dxlł l*nli\n")i 
prlptf< ")i 
oo*f*4#fcchtrOi 

xnik»«ttchfpOj '* prxp*kocz return*^ 
prlYifcf<"NnPodł J efpruezw *r fum#nt' u )i 
ll*vtl («r«l)j 

ortnfefC' , snPodi J drut! frfumtnfc 1 ")j 
12»v*U*rt2)/ 

»UltCh<0P8F) 

t< /% poczłtpk ftwitch %/ 
c««# •+* < uwnłk*»ll+l2i 
br*Ak i 

ciu « uifTilk«ll-l2) 
br#eki 

c««t *%' > ui#nlk«ll*I2i 
brtikf 

c**» * /* * wynlk^ll/łi; 
br*«ki 

d«f«ulfc * orlr>tf<"vn^br*I** zl« dzllUnl*"); 
zUop*r«TfiKi 
brtiki 

f) korlee ewltch ty 

lffzIyoe#r**NlE) 

prlntfC"MiUjir«lff dzleUnl* M\n" • wynik); 

*J /t koniec do ty 
uhl l*(czvd« !»JO)/ 

#> y% konl«c m*ln() t/ 



Jest to pierwszy wląkszy program I zasługuje na specjalne 


14-iks 


Myjlinltnić. Trzy Urłłi 

Instrukcja break powoduj*. te gdy wykonana zostanie akcja 

pr I ntf ( “\nWyb 1 er z rod zaj drlalania\n“> | 

związana z zalstnienleai określonego przypadku, nia będą 

pr 1 ntf t./“ł| 

sprawdeana przypadki zdefiniowane aa nia i dalsza wykonywanie 

oper - gctchłr 1 » I 

prograsu rozpocznie sią od instrukcji ual»si«on*J po nawiasie 

1nlrr«iK 0 drl*lv<l>ch. J«H» "»»«>•'•< 1 -"tylulą z 

zamykający* całą konat-ukcją awitch. 

klawiatury rn*V, odpowiadający wybr«naj operacji do 

Słowo tluciCM drfauU aluły do definiowania działania. 

cx>ar. Unln 

która prograa podajauje w sytuacji, gdy nie zostanie spełniony 

printł l“\nPodaJ pierwszy trgownti ">j 

Jeden * przypadków zdał 1 nt cwanych Instrukcjami cu». Zatem z 

pat* targi) | 

pr ograni a "kalkulator*, gdy użytkownik •ąjr owadzi 


niedopuszczalny rodzaj działania, wykonane zostaną Instrukcje! 

prlntf CWodłJ drugt arguaanti ‘>1 

prlntf (“wybrałeś zle dti alanlaNn" 1 1 

gctłtarg!) | 

Zl yoper - TAK| 

I2-val (arg2>| 

1 nie zostanie wyświetlony wynik działania. Wyświetlenie wyniku 

wprowadzają z klawiatury wartości argumentów, na których m być 

działania uzależnione Jaat od wartości wyrażenia (z 1 yoper —NIE) . 

wykonana wybrana opar ac Ja. Wprowadzani e argumentów raa litowana 

Jedli wymienia to przyjadę wartość róJną od zera (nl# zostanie 

Jaat dwuatapowo. Najpierw wczytywany Jest łańcuch znaków 

wybrany niedozwolony rodzaj działania), wynik zostania 

stanowiących argument (funkcja getst)), a nastąpcie łańcuch tan 

wyświetlony, w przeciwnym wypadku wyświetlanie wyniku Jest 

zanlanlany Jaat na liczbą za pomocą funkcji v«i(t. Funkcja ta 

0 palnięta. 

działa podobnie, JaV Instrukcja V«L z BASIC-a. W tym alajacu 

(.4. Instrukcja contlnu*. 

walna zadać pytaniai czy r>ła aofna prowadzić z klawiatury ciągu 

Wnikliwy próg- aal sta, analizując prograa "kalkulator". 

cyfr, dokonując autoaatyrinla konwersji tago ciągu na 

doitrzeJ* zapewne nleelegancsie rozwiązania w nla zawarta. 

odpowiadającą wu liczbą. Nlaataty, Implementacja 8KC nla ««Ik» 

Fol ega ano na tys, ta w sytuacji, gdy uiytiowiUi wyblerza 
nlwJmwilony rodzaj operacji (Inny nił *,-,«,/» prograa wykona 

taklaj mail (miel , aczkolwiek w standardowy* Jązyku C Istnieje 

zupełnie nlapotrzwml* całą patią, Znacznie lepiej byłoby, gdyby 

funkcja realizująca tak Iw zadania iRznfOl. Następnie za pomocą 

w taklaj eytuacjt pr-ogra* zaządat dokonania poncwrwjo wyboru. 

Instrukcji awitch Wybierany Jaat rodzaj operacji, ktdra aa być 

natychmiast po stwierdzaniu wybrania niedozwolone j operacji. 

wykonana 1 następuje JaJ realizacja. 

Poprawmy zatem ten prograa, aby wyeliminowań tę wadź- W tya celu 

4.1. Instrukcja awitch. 

utyjsa*/ instrukcji contlnu*. Oto poprawiona wersja programu! 

W programie 'kalkulator" rodzaj akcji, którą prograa aa 

Progrnw Id 

podjąć zalały od rodzaju działania, który wybiera ułytkownlk. W 


oparciu 0 informacje dotycząca Instrukcji lf I alae fragment 

/iittiiumftinmmtmf/ 

/■* erOłrf ml 2 KALKULATOR */ 

programu realizujący ten wybór a»ina byłaby zaplaać w poniższy 

• * uereJ* T lnst.. contln*j* ty 

sposób 1 

/imtttifuimmmriti i » - 
Śd* f ( nt Tflk. | 

•dzflnt NIE 0 

lf (oper— *••! 

rj i bO 

wynik - 1 i-*I2| 
elae lf Ceper—*-’! 

*( '*socz*tek funkcji aefnO *r 

int * ! . I2,wnlk< 

Ch*r 0»zr.tlv0**r,t-zki 
ehz* frsiciyej.zrysci?-?: 

wynik - 1I-I2| 

do /■« loczłtfk -0 r- 

t 

ataa lf Cooer— •«'j| 

ekirtf(’Vśł!»blerT r tytuł eziśtiflirMt") 
erintfC*. *>J 

wynik - lt«12| 

o»er*tetchzr<ł/ 

rr»kai*tehjrf)j t nriioci SFri>NŁr 

etaa łf (opar— ’/*» 

rJ Teraz • erjudz, crv woroufdrgno doruoionw rodzaj działania (/ 

wynik - 1 t/12| 

St 1 touto ’ 1 zorownie wybór, e«jy wybrane działanie nladorw. ty 
|f<oeari»'*' U oearf • U oc #*•«•»■ U o**r>m*y' 1 

al aa •{ 

ś( 

prlntfC”Uebralas *1* dzla anl*vn")z 

prlntf ('wybrałaś zła dtialanle\n“> ; 

eortinuei 

*> v 

z 1 yoper - TAK •» 

'* od tąto alaJsca rozrocznl! uskoriykiantł eroiranu ir 
/t «dy uyhrano dopuszczalne dzla lani# t/ 

Instrukcja awitch pozwala uprościć zapis t uczynić go 

arintfCsnPodaj sterusry arriwąnt "ł. 

barda 1 aj czytelnym. 

1 I "Vf. 1 Cfrf | ) j 

arlntff “\nPodaJ drusl arfumont 1 m )j 

Konstrukcją zbudowaną z instrukcji awitch rozpoczyna alowo 

«a'*(«r*2)f 

I2«wal(jr*2), 

kluczowa awitch, po ktdry* wystąpuja wyraienie (lub aafennal 

lf(I2a"0) br**k j 

st zatrzyhf ł Srojran łdy dru.łt *rj-,meot Jest żarem */ 

ująta w nawiasy Następnie w nawiasach «(..*» ualaszczona 

•uitch(orer) 

t< y t ootu tek suftch ty 

Jaat 1 lata wszystkich matliwych przypadków (wyborów! , od których 

;t«e '♦* * Vfynlk*ll*12s 
b*t*k 

zalały rodzaj podsjwowanayo przez prograa dzlafanta. fałdy 

case wMKl-lłi 

break i 

przypadek definiowany Jest za poaocą instrukcji case, za którą. 

case r s' i wynikał !112 j 

break 

po dwukropku, definiowana Jaat działania, która ausi być podjęta 

całe V* mrnlk«lj/-i2» 

break! 

przez prograa, gdy zalatnlaje zdefiniowany przypadek. Ciąg 

S) /t koniec suitoh Sr 
arłntfCsnWywlk crla!anl«* Ndsn". wynikł! 

Instrukcji definiujących działanie programu w zaistniały* 

f) ■*» koniec cfc */ 

uhllefcmdzlejo;. 

przypadku ausl być zakończony instrukcją break lub nawias** 

.*> / * koniec ejinO t/ 

zeokajacy* "*»" definiowanie wazystfclch przypadków. Na przyktadi 

Dziąkl utyciu instrukcji continua prograa tan po 

caae '+' z wynik ■ 11*12 

stwierdzeniu. Ja użytkownik wybrał niedozwolony rodzaj operacji. 

break | 

wySwietłi komunikat "Wybrał *4 złe działanie" i nakaz* dokonać 


- - - - . 


pcnownl • wyboru. 


poniższy achwut Ilustrują działania Instrukcji contlnuei 
do 

•( /• początek pątl I */ 

_ Ił (wyrażeni* loglernal) 

• I 

I contl nor | 

i •> 

• /« pozostała cząd? pątll •/ 

{ •> 

l»«Ml* (wyrażenie logiczna?) i 

Wykonywany Jast początek pątll do l'*llo«»ł Jast mmrto*ć 
Kyr dania logicznego!. Gdy Jast ona rdżna od zera. wykonywana są 
instrukcja umieszczona po nla, na których koiicu cnaiduja ai« 
Instrukcja continua. Jaj wykonania powoduje przeniesienie 
starowania do instrukcji -hlle, a stąd, gdy spalnlony Jast 
warunak zdefiniowany wyrażania* logiczny*?, następuj* akok na 
początek pątll. W taj sytuacji pozostała czg*d patii iw 
prograala 'kalkulator* zawiera cna Instrukcja awitch) zostania 
wykonana Jadynla wówczas, gdy wyrażani* loglcznal przyjala 
wartodd taro (FW-SEJ. Nalały zauważyć. i# w taklaj aytuaejl nla 
ma potrzeby używania Instrukcji óefault. 


*.0. Instrukcja break. 

W prograala 11 zastosowano 
'przaskocranta' pozostałych do 
zdaflnli 


Instrukcje break do 

zbadania przypadków 

,ych w Instrukcji wyboru ewltch. Hat oaiast w prograala 


12 Instrukcja ta została utyta 


cału opuszczania pątll 


1# (12— O) break | 

Jeżeli załotyay, ta uiytkooijk wprowadził drugi argument 
działania ró^iy zero, to powytsza Instrukcja spowodują 
opuszczania pątl 1 1 wykonania Instrukcji wystąpującaj po -Wie, 
które zamyka cal* pątlą. Ogólnie, sposób działania instrukcji 
break aotna zlluatrowad schematami 
do 

•( /■ początek pątll */ 


L_ 


Takla zastosowania Instrukcji break bywa czasaal bardzo 
przydatna. Na przykladi w prograala 11 brak było badania 
wartodcl drugiego argumentu wykonywanej operacji | zakładając, te 
warto*? ta był* zerem i wykonywana była operacja dzielenia, 
wystąpiłby w taklaj sytuacji błąd . wykonania programu Ipróba 
działania przez zwoi. N prograala 12 przewidziano taką 
ewentualno*? 1 za poaocą Instrukcji break powlnłąto wykonywanie 
działania. Oczywiści a, ta zaalast zakończenia w taklaj sytuacji 
działania fw-ngt Ml natatałnhy «Wl«w w 1 —" •» »»i»ka»nw 
wczytujących ponownie warto*? drugiego argmasntu. 


4.8. Instrukcja for. 

Inatrukcja for Jest prawdopodobnie najcząóclaj utywaną 
instrukcją Jeżyk* C, przeznaczoną do konstruowani* pętli 
progresowych. Najważniejsza rótnica posiedź y pątlą for « 
przedstawionymi wczadnlaj petlaai sbiła I do-. -bila polega na 
tym, ta ta ostatnie stosuje sit. gdy dokładania nie wladoao. Ile 
razy *aj< by? wykonane sekwencja Instrukcji w nich zawarte. 
Natomiast Instrukcja for Jest bardzo pożyteczna do tworzenia 
pętli , o których z góry wladoao, ±e aają być wykonana *cldle 
okreSloną liczbę razy. Działanie taj Instrukcji *1 lustrujemy 
program#* obliczającym kwadraty kolejnych liczb naturalnych, 
np. i kwadraty liczb od L-do 1O0. Dtd postać takego programui 


matni) 

*( 

lnt llczbai 

char C| 

prłntf CNKwadraty liczb natur*lnych\n\n") | 
for łUctba«lłllcxba<-IOO|Uexba-t»czb#*l> 

prłntf <”\nl Iczbai Xd kwadrat Xd', i lczba, II ezbaSl łczbał i 

•) 

c-getcharOi 

•ł 

Instrukcja for zawiera ujfta w nawiasy !...» trzy cząscł. 
oddzielana od siebie Średni kaal . Cząó? pierwsza Cliczba-1) Jest 
czą*cią Inicjującą pętli, wykonywana jest ona raz na początku 
pątl 1 1 ustawia wartodć początkową licznika pętli. Część druga, 
zwana caąScIą sterującą pętli I- Cl lczbać«IOO> wyrajaniem 

logicznym, od wartołcl którego zależy czy petia zostania 
wykonana ponowni e, czy nastąpi JeJ opuszczania. Pątl* Jast 
wykonywana tak długo, Jak długo wyra i en la to przyjmuje wartość 
logiczną muc. Trzecią ctą*C pątll n ic-zba-l iezba-M » def iniwj* 

krok. z Jakie zmieniana Jast warto*? licznika pątll- CząSć la 
nazywana Jast również cz«*cią aodyfl kującą pątll. Po Instrukcji 
for umieszczona są, ujątc w nawiasy S(...SI instrukcja 
stanowiąca pątlą. Jeżeli pątla składa aią tylko z jednaj 
instrukcji, to nawiasy fi 1 *1 można poainąć. 

Nietrudno dostrzec, im program 13 można skonstruować 
równi mi używając pątll -Wie. Bądzie on alal wówełSs taką 
postać i 

Program J4 

mainO 

t( 

lnt llczbai 
char C| 

prłntf l'\Kwadraty liczb naturaXnych\n\n*ł j 
1 iczba-l | /• cząSC Inicjująca pątll •/ 

whl la(llczba<mlOO> /■ ctąSć sterująca »/ 

• ( . 

prlntf ł“\nl Iczbai Xd kwadrat Od*. 1 lerba, 1 iczbażl lczbal » 
llczba-llczba+ii /• cząSC modyfikująca •/ 

•> 

c mg* t char O | 

• > 

Efekty działania programów 13 I 1* aą Identyczna. Którą 
tata konstrukcją nalmty stosowa? w tworzonych prograaaeh7 Nla 
ma jednoznacznej odpowiedzi na takie pytanie. Buz konstrukcja 
aą równoważna. Pątla for Jast bardziej przejrzysta, gdy* skupia 
wszystkie elementy sterująca jaj wykonaniem w Jednya miejscu 
prograeu. 

Dowolną z trzech ccąScl Instrukcji for można pominą?, 
Jednak oddzielający Ja Średnik musi pozostać. Poatniącta cząScł 
Inicjującej 1 modyfikującej Jast ró«w tameczne z usuniecie* 
odpowiednich instrukcji z programu I*. (Nożna przeanalizować. 
Jak tan program bądź la działał w takiej aytuaejl). Pominiecie 
cząScł -tarującej Jast rdwnornaczne założeniu, że definiująca ją 
wyrażania logiczna zawsze priyjaijs logiczną warto*? 
Korzystając z taj cechy, aotna za poaocą instrukcji for 
skonstruować tzw. wieczną pątląi for <| | > . 

Z reguły wyJScIa Z takiej pątll następuję przy poocy 
Instrukcji contlnue, break lub return. Jednak taka konatrukcja 
bywa czasami bardzo przydatna. 

Omawiając Instrukcją for, warto przy okazji przedstawić dwa 
Jadnoargumentowe operatory dodawania l odajaza^nia, bardzo 
wygodna w użyciu I stosowana najcządclej do aodyfl kowani a 
war to? Ci licznika pątll. Na przykład! Instrukcją przypisania 
llczba-Uczba+ii 

można w Jeżyku C zastąpi? prosty* wyrażanlaai liczba**. Zataa 
Instrukcji for z programu 13 możno nadać taką pastaći 
forll lczb*“l| U c*b*<“ 100 | liczb***) 


Jedmn 


Operator *♦+■ realizuje działanie! "zwiesz o 
zmiennej*. Operator ten może być rćtwileż utyty 
przypisania! 


wartość 
w Instrukcji 


Instrukcja powyższa zostanie wykonana w następujący sposdbs 

-wartość zmiennej I przypisana Jest do zmiennej J I Jest 
zwiększana o Jeden. Załee Instrukcja J*l ** Jest równoważna dno* 
Instrukcjo*! 

J-I| 


l-l*l| 

Hożna budować również takie instrukcjei 

są one wykonywane nieco Inaczej! najpierw wartość zmiennej I 
Jest zwiększana o Jeden, a potee zeiennej / przypisywana Jest 
wartość zmiennej I. 7*1 mm odpowiada to Instrukcjom: 

t-l*l| 

J-»l 

Analogicznie działa Jednoargumentowy operator odejewanla 
Instrukcja J«i — | Jest rtfmcwałn* Instrukcjo*! 

J-l| 

i-i-ł» 

natomiast Instrukcja J- — ii za«ttpuj*i 
l-l-ll 


J-il 

Operatory ***" 1 * — * mogą być utyte w zielonych 

wyrażeniach ąr ytmetycznych, Jak na przykład! 

J.łił-kłJl 


które zastępuje poniższe instrukcje! 

J-i-k+3| 

Owalny czytelnik, który wprowadził I skonali owal program 
•kalkulator*, mógł zauważyć, ie ody dodane (lub pomnożone) 
zostaną dwie duże liczby np.i 10000 t 30000. to program 
wyprowadza niepoprawne wyniki. Również błędne wyniki | będzie 
generował program 13, gdy podnoszone do kwadratu liczby będą 
większe od XB2. Co Jest tego przyczyną? Dzieje się tak, ponieważ 
w pierwszy* Jak 1 w drugie programie enożona, dodawane, dzielone 
1 odejmowane liczby zostały zadeklarowane Jako liczby całkowite 
(typu tntl. Na wstępie zaznaczono, że w Implementacji DBC llcrba 
typu lnt matm przyjmować wartości z przedziału C -32768, 327671. 
Jeżeli w wyniku wykonania operacji arytmetycznej pewrstaje 
rezultat nie mieszczący się w tym przedziale, następuje 
przepełnienie (tzn. wynik przekracza zakres liczby, ktdrą można 
zapisać na 15 bitach, bit 16 Jest bitem znaku), które powoduje, 
że wyprowadzane wyniki są błędne. Cdż zatem robić w takiej 
sytuacji'* Otdż, standardowy Język C dopuszcza deklaracje 
zamiennych typu float l doublej ktdrych zakres jest 

nieporównywalnie większy od zmiennych typu int. Aczkolwiek DBC 
nim posiada Zaimplementowanych tego typu danych, to zawiera 
bogatą bibliotekę funkcji przeznaczonych do realizacji 
arytmetyki zmiennoprzecinkowej. Ze względu na’ liczbę lunkcJI 
zawartych w tej bibliotece. Ich opla oraz sposób wykorzystania. 
Ilustrowany odpowiednimi progroeaml, zostanie przedstawiony w 
następnym wydaniu specjalnym IKS- a. 



5. 

TABLICE 
I H5KAŹNIKI 


W Języku C tablicami są zmienne przeznaczone do 

przechowywani a wielu wartaOci te?o eaeepo typu. do ktdrych można 
odwoływać się poprzez Jedną, wspólną dla wszystkich tych 
wart ode i nazwę. Elementy tablic n u m e rowane są _ od zera. 
Kompilator DBC dopuszcza stasowania W programach dwóch typów 
tablica tablic znakowych (Ich elementami są zmienne typy char) I 
tablic, których element mml mą zmienne typu lnt. Zarówno 

pierwsze Jak 1 drugie tablice mogą być jednowymiarowe. Tablice, 
podobni# Jak zmienne, muszą być zadeklarowane przed Ich użyciem. 
Deklaracja tablicy składa się z określenia typu tablicy 
fint, char), jej nazwy 1 rozmiaru podanego w nawiasach 
kwadratowych C. . ]. Na przykład! . 

char tab(9]| 

Jest deklaracją tablicy znakowej o nazwie "łab*, zawierającej 9 
elementów C0.1....8), a deklaracja! 

•lnt UczbyC91| 

Jest deklaracją tablicy 9 elementowej o nazwie liczby, której 

elementami są zmienne typu lnt (Herby całkowite). Należy 

pamiętać, i# obszar pamięci zajmowany przez tablicę typu lnt 
Jesż dwa razy większy od liczby Jej elementów (każda zmienna 


typu int zajmuje dwa bajty pomięci). Odwołanie do określonego 
elementu tablicy realizowane Jest poprzez nazwę tablicy i numer 
(Indeks) tego elementu ujęty w nawiasy C..1. Ponieważ elementy 
tablic numerowana są od zera, to Indeks o wartoSct zero wskazuje 
pierwszy elęment, indeks 1 - drugi eieoent, Indeks 2 - trzeci, 

ttd. Zatem instrukcja! 

Iiczbyt21-2ł 

przypisuje trzeciemu elementowi tablicy o nazwie “liczby* 
wartość 2. Natomiast instrukcja, 1 i czbyl91»l 4) Jest błędną w 
Języku C, ponieważ element o indeksie 9 fizycznie nim Istnieje. 
Tmgo typu błędy w programie są bardzo trudne do wykrycia, tym 
bardziej. Że żaden kospilator Języka C, DBC rokiet. błędów 
takich nim sygnalizuje podczas kompilacji programu. Tylko 
nieliczne programy <np. program Llnt systemu UNIK), napisane 
specjalnie M celu kontrolowania poprawności składni kodu 
źródłowego programu w C, mą w stanie błędy takie wykryć. Kontrola 
•wzrokowa* tmkstu źródłowego programu, też z reguły takich 
błędów nie wykrywa - wszystko wygląda poprawnie: tablica Jest 9 
elementowa, operacja Jest wykonana n# elemencie o Indeksie 9 a 
skoapl 1 emany program nie działa poprawiła. 

9.1. Tablice znakowe. 

Ponieważ DBC dopuszcza Jedynie stosowanie tablic 
Jednowymiarowych, to tablice znakowe są traktowane Jaka łaócuchy 
znaków lub krótko - łańcuchy. Kompilator DPC oznacza, w 
wewnętrznej reprezentacji , koniec lartcucha znakiem, którego kod 
ATABCII Jest rówiy zeru (serduszko). Pisząc własne funkcje 
operująca pa łańcuchach, należy ten znak (reprezentacja oktalna 
*\0’> traktować Jako wtakcżnlk koóca łańcucha. 

Każdy, kto pisał programy w Języku BASIC wie, że 

przypisani* wartości zmlmrnej tekstowej może być wykonane za 




poncą Instrukcji i 

Program IS 

ALA*-"HITAJ- 


Natomlant w Języku C instrukcja przyplsaniai 

/imummmttmmumtm 
t órofrzmlS Sortoypnlę tablicy * 

tab»*okno“i 

* Herb całkowitych * 

* w#dlu* altorytmu 8h#ll* * 

jdt m«lopuł:czaln« ctah - tablica in*l>cw*t . W DBC wprowadzenie 

* mmmmumimmimm 
*y 

wartodci do elementów tablicy Znakowej "W* sibo 

•d*fln# dl 10 

zdef inloMnla kjlłlntlił (bfdii* o nich bom troć Hę później) do 

MinOtC 

lnt UbCdU. 1. J.k.krok • 

tej tablicy Albo wykonania nvsgu ln»lrvil.cjl przypisania, i 

chzr UcrbaCSJi 
do«< 

Hdfyth kaida przypisze olrrt 1 oną wartofó określonemu •laaanttml 

/t wczytaj uartoael do tab %/ 
for< 1*0; 1 <*dl-l i 1*4)*< 

tablicy. W ogóle Język C nie posiada instrukcji operujących na 

orlntfCNnPodaJ Md *l*m*nt".i>j 
•»tt(llcrba>j 

łańcuchach Jako calcScl- Na pierwszy rrut oka wydaje się to być 

Ł*b£13*val< liczba); 

*> yt for ty 

niewygodne. Jednak operując wskaźnikami , próbie* ten można 

/% taraz wy«wl*tl wazwstkl* *l***Tity 
f u takl*J lro!*Jno*cl w Jakitż zostały 

doskonale roiM ąz ad. 

t wczytań* 

ty 

5.2- Klasyczne pedojdcie do przetwarzania tablic. 

orlntfC^ngprowadzll** nast*ouJac* liczby 
for<l«8i !<edl-li!4+) 

Tablice w Języku C można przetwarzać, podobnie Jak w Innych 

pi-lntft- Nd n <tabCIJ>J 
yt t«raz uporządkuj rosnąco tablic* */ 

Językach wysokopoz tomowych, odwołując się do ich eleoentdw 

'fort k rok«dl y2ik rok>0j k rok/»2> 

for< 1 "kroki 1 <dl j 144) 

poprzez indeksy. Taką metodę przetwarzani a Ilustrują 

for<Jml-krokiJ>m0 IŁ tabCJJ>tłbCJ4krokJi J—fcrok>#< 
k-tabCJJi 

przedstawione niżej dwa programy. 

tabCJ>tabCJ*krok3/ 
UbCJ4krok3*kł 
*> yt for ty 

Program 15 

yt t#raz wyswl*tl posortowana tablic* ty 
pr 1 nt f ( “ \n\« t»bl 1 ca Posor fco*yana\n* ) i 
forClegj i <«dl~l J 144) 

yt***tt*ttt*tttt***ttt***tttttt 

* *ro«r**19 PRZESTAWI RHKfl * 

immtmmmtiumtuio 

i/ 

MlnOfC 

cntr zr*Jr » wy rt*C 1 263 1 
lot 1 , J,dl j 
ćot( 

i>rintf<"\r>N*»{»i dowolny wrirMi")! 

dl«e*t*<uvr«)j 
if(dl<*Q) eonUnu#! 
trlnbff "\nWt*le*l*»*\Tł")j 
forfl -01 1 <«dl-l \ 14*> 

«c*/Wvr«*C13)l 

s\ t*r*x *rz**t*w znaki w* wprowadzony* wyrazi* *s 
for<i-0. 1 Ol 144, J--W 

zrukeuyrazCOi 
wvrazC13“wvrazCJ3; 
uyr**CJJ*znakj 

*) yt konl*e **tli for */ 

/t uv«ul*tl ors*st«uiony wyraz ty 
orlntf<“\nfl tak to wy Uda po prz*ataul*nluMi")i 
for<i«B» i<**dl-l i !+♦> * 

prłntf<“ Nc^wrazCiS); 
i) /'t koftite do 
whil*(czvdat«JO)i 
•) /t konł*e *iln t/ 

prlntff" Kd n /tabCn>i 

s> yt do */ 

whllłtezydaUJOJi 
t) yt siln ty 

Program ł& porządkuje 10 elementową tablicę liczb. Ksjpiłra 
•prowadza I klawiatury wartodcl do elementów tej tablicy, 
wyświetla Jo, porządkuje metodą Shell *a elementy od 

najmniejszego do największego I wyświetla elementy' 

uparządkowenm- 

Oba programy wykorzystują przedstawioną wcześniej *unkcję 

czydalejtl. Przyjrzyjmy się jej Jeszcze .raz, ponieważ 

zastosowano* niej nowy typ zmiennej — zmienną wskaźnikową. 

5.3. •skalni ki. 

Zmienne wykatnl iow, lub krótko wskaźniki, podobnie Jak 
inne zmienne w Języku C suszą byó zadeklarowane przed ich 

Prograa 13 wykonuje przestawienie znaków w łańcuchu, w taki 

lilyt: 1 e~. Ksldy wskaźnik posiada typ związany z oblektea, który 

sposób, Ze pierwszy znak staje się ostatnim, drugi 

wskazuje. Deklaracjai 

przedostatnie, ltd. Łańcuch znaków po wczytaniu z klawiatury 

char tu 

Jest wyświetlany w noraalnej postaci I w postaci przestawionej. 

nakazuje kości latorośl DSC utworzenie wskaźnika typu znakowego, 

Tekst źródłowy tego progra*-- Jest na tyle prosty, ż— nie wyr ag a 

który wskazywał będzie obiekty tego samego typu, tzrt. zmienne 1 

szczegół owega komentarza. Na uwagę zasługuję Jedynie Instrukcja 

tablice znakowe typu char. Natomiast deklaracjai 

for organizująca pętlę, w której dokonywane Jest przestawienie 

lnt 11 

znaków w łańcuchuj 

nakazuje koapi letorpwi utworzeni# wskaźnika typu Integer 

for Ci-0,J-dl-l|l<J|l*».J— » 

(wskazywl On będzie zmienne i tablice tego samego typu). DBC nie 

Instrukcja ta steruje jednocześnie dwoma indeksami oo tablicy 

dopuszcza deklaracji wskaźników innych typów. 

wyraził, lodek a 1 •••nanils‘ po lahllry nrt t» 1 iww-»ą|k.t rto 

U Języku C wskaźnik Jest zmienną zamierającą adres obiektu 

lin a, Halimlaal llH>wlw | ml ii-Ve iki l-« M> ku. laka 

(zeiennej lub elementu tablicy). Ha przykład! jedli w programie 

konstrukcja w Języku C Jsst eofllwa, dzięki operatorowi 

< aóek 1 ar owal 1 Smy tablicę typu integen 

przecinkowemu. Znak Jest operatorem Jedynie wówczas, gdy 

lnt tabtlOlj ^ 

występuje pomiędzy wyrażeniami, np.i 

oraz wskaźniki 

i-0, JO, k»0.1O| 

lnt łwsk 

Jest. instrukcją ustawiającą wartości czterech zmiennycht t, J, 

to sae fakt deklaracji nie mtąźe Jeszcze wskaźnika ze 

li, i na zero. Operatora przecinkowego aoina używać. równi ei do 

wskazywanym przez niego obiektem tnp. zadeklarowaną wyżej 

tworzenia takich Instrukcji! 

tablicą). Jeśli chcemy, aby wskaźnik został związany z 

r i— 3, 1 *2| 

po JęJ wykonaniu ralmnł , ma wartotfó 1. Przecinek nie pełni 

Jakąkolwiek zmienną musimy przypisać adres tej zmiennej do tego 
wskaźnika. Przypisanie ed resu dokonywane Jest przez operator 

funkcji operatora, gdy oddziela zmienne w deklaracjmch lub 

adresu 'i*. Na przykladi instrukcja! 

argumenty w wywołaniu funkcji. 

w*Jc-*tabtOJ| 


powoduje, że wskaźnikowi przypisany rnotante adres pierwszego 
elementu tablicy Łab. Jeżeli teraz takiego wskaźnika użyjemy ( w 
Instrukcji l 

elemefit“twsk| 

to zmienna element zawierać będTie pierwszy element tablicy 
tab. Ctoeratnr powoduje, ie Jego argument Jest traktowany 

Jaka adree zmiennej, której zawartość ma być utyta w Instrukcji, 
w której operator ten występuje. Łatwo zauważyć, to Instrukcjei 
wskwNtabtl Ij 
element- fwiifc| 
są równoważne jednej • 
element-tabCl 1| 

gdzie zmienna element Jeat zadeklarowaną wcześniej zmienną typu 
lnteger. Pd c óż zatem wskaźniki w Języku C, skoro można hel Ich 
pomocy zrealizować potrzebna operacjo? 

Najistotniejszym powodem, dla ktćrgo konetruktorzy Języka C 
wyposatyll go w mechanizm wskaźników, Jest sposób realizacji 
Funkcji 1 przekazywania do nich argumentów. 

Argumenty w Języku C przekazywane eą do wywotwanych funkcji 
poprzez wartość. Chcąc zatem przekazać do funkcji. Jako argument 
np» lOO elementową tablicę, należałoby z każdego olemenotu tej 
tablicy uczynić osobny argument. Byłoby to bardzo niewygodne. 
Posługując się wskaźnikami, można przekazać funkcji. Jako 
argument! adres początku tej tablicy, zawarty we wskaźniku. 

Działanie tego mechanizmu łpoka# omy na przykładzie programu 13. 

• <qłc|: 

Nepl^ja^y ten program w innej postaci, tworząc funkcję 
pcjwrocl}* której \ zadaniem będzie przestawienie znakdw W 
łańcuchu. Argumentem tej funkcji będzie adres łańcucha 1 Jego 
długość. Oto postaC tej funkcji. 


-Funkcja* 2 


/t*t***t *************** 

* funkcJ« ODWROCO * 
**********************/ 
od<j'roc('>iy > dlu.iosc) 
char *ijfyrszj 
infc dlUfoscJ 

*< y* pcczat#k funkcji */ 
char zna.kj 
char #koni*cj 
dlu«osc-"t; 
koni#c«uMraz+dlufloftci 
for C i wy raz <koni *c / wy raz+*/ kon i ac — >* < 
znak B *wy raz; 

^wyfazatkoniftc; 

tl<oniao»znak/ 

*) /* for */ 
r»turnj 

$> /% koniec odwrocO %s 


Tekst źródłowy tej funkcji naloty wprowadzić do zbioru o 
narwie' DEWPOC.C. Kompilator DBC po jej skompilowaniu, zapisze 
kod pół skompilowany do zbioru ODWRdC. CCD- Chcąc utyć tej funkcji 
^ w programie 13, należy go zmodyfikować, zastępując pętlę, w 

ktćrej realizowane było przestawianie znakdw łańcucha 

wywołaniem funkcji odwrocO. Wersja zmodyfikowana tego programu 
ma postać i 


Program 17 


/tM****Wft*t****tt******$t*Wt*i 

* ero«r*m17 PRZESTRWIflNKR * 

* WVkorni*tuJ» furikcJ# odwrocO * 

* do Drz#»t*ui«nia makou w % 

* U.ncuehu * 

**t*t*t*X*tt*t*tt**.tx*tttt*t*t*t1 
*/ 


chxr znak, ww r*zC1203 1 
lnt ljJ/dli 
do« 

printft"NnN*t>l*z douoliw wvrxz'Nn u )ł 
dl*>ł*t*<wwriz)j 
lf<dl<"0) eontlnułl 
printf(”\nN*Pi*xlt»'\n">; 
forCl*0j l<«dl-lj 1++) 

printft" Nc n /W«r*xCłJ)i 

/% t#r«z prz#*t«u zn*ki w# wProwidzonym uyr*zl* *' 
oduroc<wwr«łdl>J 

/* wv*wi«tl przMttulony uyrłz %s 
printf<“vnfl ttk to wy«Ud« po prxś»Uwi*riu\ri ,, >! 
for< le0i 1 <»dl-i ) l**> 

Ne^wutłzCiJłi 
#) /% konltc do %/ 

whll»Cczyd*l*JO)j 
*) /t kOTil»e m*łn %/ 

Przed konsolidacją programu 17 należy wprowadzić do zbioru 
wskazdwek dla łlnkera dodatkowy więrsz (ODWROC. CCC! . 

Efekty działania programów 15 1 17 eą identyczne. 
Przedstawimy teraz dokładnie, Jak funkcjonują wskaźniki w 
funkcji odwrocO t w Jaki sposdb przekazywane są do niej 
argumenty. Instrukcja odwroc (wyraz, dl ) | w programie 17 stanowi 
wywołanie funkcji odwrocO. Funkcja ta otrzymuje dwa argumentyl 
-nazwę tablicy "wyraz“z funkcji małnO| 

-liczbę elementów tablicy (zmienna dl > 

Wewnątrz funkcji odwrocO deklaracja char « wyraz | tworzy 

wskaźnik do tej tabl-lcy. Zbieżność nazw tablicy I zmiennej 
wskaźnikowej nie Jeet przypadkowa. Gdybyśmy użył 1 wskaźnika o 
Innej nazwie, np. char tpoczatekl to Jego wartość po takiej 
deklaracji byłaby nieokreślona. 

Wewnątrz funkcji odwrocO mamy zadekl aromne dwie zmiennej 
char znaki I char Śkonieci. Zmienna “znak* Jeat zwykła zmienną 
roboczą, wykorzystywaną do chwilowego przechowania 

przestawianych elementów tablicy. Natomiast wskaźnik "koniec" 
Jest "prywatnym* wskaźnikiem funkcji odwrocO 1 wskazuje ostatni 
element przestawianej tablicy. Instrukcjai 
konieeawyrazźdl ugości 

inicjuje wartość wskaźnika "koniec", przypisując mu adres 
ostatniego elementu tablicy "wyraz" Cdo adresu początkowego 
tablicy zawartego we wskaźniku "wyraz" dodawana jest liczba 
elementów tablicy). Należy w tym miejscu zwrćcłć uwagę na Jeden 
aspekt tśkiego inicjowania wartości wskaźników. Powyższe 

inicjowanie Jest poprawne, gdyż tablica "wyraz" jest tablicą 
znakową (każdy jej element zajmuje Jeden bajt pamięci!. 

Natomiast gdyby tablica "wyraz 11 była typu int Ikaźdy element 
zajmuje dwa bajty pamięci), to poprzednia Ihltjacjb wskaźnika 
"koniec” byłaby błędna. Należałoby wówczas utyć takiej: 

koniec-wyraz+(2*dlugosc! | 

Przestawiania elementów tablicy realizowano Jest w pętli 
forC..). Pętla ta nie posiada części inicjującej, ponieważ nie 
ma potrzeby definiowania takiej części. Część sterują pętli 
■tanowi wyrażenie! 
wyrazćkonleci 

będące porównaniem wartości dwóch wskaźników (adresów). Pętla 
będzie wykonywana tak długo, dopóki wartość wskaźnika 
wskazującego pa początku pętil pierwszy element tablicy "wyraz" 
będzie mniejsza od wartości wskaźnika wskazującego ostatni 
element. 

Część modyfikującą pętli stanowźą wyrażeni aj wyraz-*+, 
koniec — . Oznacza to, że po każdorazowym wykonaniu pętli 
wskaźnik początku tablicy zwiększany jest w taki sposób, aby 
wskazywał on następny element, a wskaźnik kortca - zmniejszany w 
taki sposób, aby wskazywał poprzedzający element. Jak widać, na 
wskaźnikach można wykonywać operacje arytmetyczne. Wskaźniki są 


1 


IKS-lł 


mór runi, litH wykonywanie na nich operacji Oxl»»«n*« lub 
Odejmowania Jest iHlfktjtnłn lub lalaJnsniM adresu pamięci. 
Można równi oł dodawali do niebie llub odejmować! wartości 
wskaźników. Jednak ia»7i nalały puilftil, aby poddawane takie 
oparacjoe wskaźniki były Łapo sam r g -o typu. Dodania wartości 
Mkalnlbi typu znakowano do wartości wakaśolka typu int 1 utycia 
tak wyznaczonego adraau do Jakiejkolwiek operacji matm 
■powodować nieobliczalne akutkł w programie. Z czapo to wynika? 
Deklarując wskaźnik, np. char tznak] informujemy kompilator, ta 
wskaźnik tan wskazywał będzie zelanna znakiem. Jeżeli na takie 
wskaźniku wykonany operację *nak*+, to jago wartość zostanie 
zwiększona o Jeden I tak Jśśt poprawnie. Natomiast, gdyby 
wmkaZnt k ten zoatal zadakl arowany Jako typu Int, to operacja 
znak*-* zwiększyłaby Jego wartość o dwa lnie o Jeden! , gdył po 
niej aa on wskazywać następny obiekt typu int. Jest to logiczna, 
gdyż zmienne typu int zajmują dwa bajty pamięci. 

Nalały zwrdclC również uwagę na deklarację argumentów 
funkcji edwrocfl we*etąlrz funkcji. Jeżeli funkcja otrzyauje 
Jaki aa argumenty, to muszą byC ona lACrMw nw»fir ti-t po nazwie 
funkcji (poza nawiasami *(..*!>. Wszystkie zmienne deklarowane 
Wewnątrz nawiasów •<..♦! są prywatnymi zmiennymi funkcji, w 
której zostały zadeklarowane 1 ładna Inna funkcja, w tyw rdwnlei 
walni) nie aa do nlcn dostępu. 

Pozostań wy Jednak nadal przy wskaźnikach. Jak zaznaczone 
wcześniej, eae fakt zadeklarowania wskaźnika nie powoduje, łe 
wskazuje on obiekt programu. Aby wskaźnik można było sensownie 
wykorzystać, ausl on zostać prawidłowo zainicjowany, tzn. au«l 
au zostać przypisana wartość, będąca adresea jednej ze zalennych 
programu. Uływanle wskaźników bez nadania la wartości 
początkowej (inicjacji.) Jest częsty* błędem popełnianym przez 
początkujących programistów w Języku C. Przad opisaniem astod 
Inicjowania wartości wskaźników nalały zwróci ć uwagę na Jeszcze 
Jeden aspekt ich stosowanie. « Języku C stanowią one 
alternatywną eetodę przetwarzania dużych obszarów danych, 
zapieanych w pamięci komputera. Alternatywną, gdył Jak wynika z 
przedstawionych wcześniej przykładów, prawie wszystko to, co 
woźna wykonać w programie przy Ich zastosowaniu, aoźna r«w ileż 
zrealizować stosując aetodę indeksowania elementów tych 
obszarów. Często stosowanie Indeksów bywa wygodniejsze, a często 
Jest odwrotnie. 

Koapllator DBC realizując deklarację zmiennej wskaźnikowej 
nie sprawdra, czy został zadeklarowany obiekt programu, z‘ którym 
ten wskaźnik aa być skojarzony. Jest to kłopot prograalety. Stąd 

tak Istotna znaczenie ma Inicjowanie wartości wskaźników. 
Sposoby inicjowania wskaźników pokażemy na niżej przedstawionych 
przykładach! 

Niech deklaracja 

char tablicaClOOli 

bodzie deklaracją tablicy znakowej, a 
char Zwsk| 

deklaracją wskaźnika tego samego typu. Instrukcja przypisaniai 
wsfcwfctebl icaCOJt 

Inicjuje wskaźnik wsk na pierwszy (początkowy) element tablicy 
Poprawne Jest również zainicjowanie wskaźnika w taki sposób! 
wsk-Łtablic.Cl I| 

wskazywał on wówczas będzie I-ty eleaant tablicy. Wskaźnik 
zainicjować można również w poniższy spoeóbi 
wsk-"ta Jest tekat' , | 

Tak zainicjowany wskaźnik zawiera adres obszaru pamięci. 


zawierającego łańcuch *to Jest tekst". Jeżeli tak zainicjowanego 
wskaźnika użyjemy w Instrukcji przypisania! 
znak"* lwsk+2) | 

gdzie znak Jest zalenną znakową, to zawierać ona będzie kod 
trzeciego znaku z lego łańcucha, IJ kod spacji CśTOl. 

Wskaźnik może być zainicjowany na początktwy element 
tablicy poprzez Instrukcjęi 
wskmtabl 1 cs| 

7 ostatniego sposobu Inicjowania wynika, że nazwa tablicy bez 
nąulasów I..1 traktowana Jest Jak wskaźnik. Tak Jtst w istocie. 
W Języku C każde odwołanie do elaaentu tablicy realizowane Jest 
poprzez wskaźnik do jej początku. Cry można zatem traktować Jako 
równoważne deklaracje wskaźników I funkcji, np.i? 
char tablicetlOOJi 

char ttabllcai 

Niestety, nie. Deklaracja tablicy ausl zawsze wystąpić wszędzie 
taa, gdzie konieczne Jest zarezerwowani e pewnego obszaru pamięci 
na dane programu. Deklaracja wskaźnika problemu Lago nie 
rozwiązuje. Natomiast Jeżeli chodzi o metodę dostępu do 

elementów tych danych, to oba podejścia, tj. klasyczne, oparte 
na indeksowaniu elementów, Jek 1 na wskaźnikach - aą 
r ó wnorz ędne . 

Istnieje tylko Jedna sytuacja, w której pcmyłśts deklaracje 
są równoważne. fl« ona miejsce wówczas, gdy dotyczą one 

parametrów formalnych funkcji. nożna to zilustrować na 

przykładzie prezentowanej Ju Z funkcji odwróć II, której Jeónyą z 
argumentów Jest tablica wyrazCJ. Wewnątrz funkcji Jest ona 
zadeklarowana Jako wskaźniki 
odwrcc (wyraz , ó 1 ugcsc ) 
char • wyrazi 

1 jej elementy przetwarzane są przy zastosowaniu wskaźników. 
Tablicę wyrazCJ ao Ina zadeklarować wsieiątr* funkcji również taki 
odwroc I wyraz, dl ugości | 
char wyrazi ]| 

1 wówczas jej elementy powinny być przetwarzane przy 
zastosowaniu metody klasycznej, tj opartej na Indeksach. Funkcja 
oć»wocO powinna aieć w tym przypadku taką postsćt 


/ttttłtttttttttttttttttttłt* 

* funkcJ*. ODWROCO * 

t w#rsJ» "lndąksow*" * 

**t*ttXt*t*tt*********.**M*s 
oduroc<wyr*ż<dlu.śoseJ 
Int dlmosci 
chzr wyrźiCdlusołcJ; 

S<. /% początek funkcji */ 
c h»r znzk; 

Int i,J) 
dlufo*c-mi j 

for<lm0 ( JadlUfOSOJ 1<JI i++, J — )*< 

zn*k»wy rzzCiJj 
wy rzzClJswyrf.zCJJj 
wy razC JJmznzk i 
ty /* for %/ 
return; 

ty /% koniec odurocO 


Z0-IKS 


DODATEK A 

'BIBLIOTEKA DEEP BLU E C” 

Ał. 

M przeclwl sństwte do innych Jeżyków C nla posiada na stałe 
wbudowanych Instrukcji ws/wy. Zamiast BA9IC'owaJ Instrukcji ' 
PRINT esy PASCAL* om j WRITE J*xyk C wykorzystuje funkcja we/wy. 
Jast to cmcha bardzo wygodna, ale oznacza że każda lapleeantacja 
posiada swoja własna warsja podstawowych Instrukcji we/wy. D££P 
BUC C nla stanowi tu wyjątku, ala Jeżsll saproponowany Zbiór 
funkcji nla bedzle Cl odpowiadał sotsw sdefinlować swoja 
własna, bardziej odpowiadająca Tsela potrzebom. 

Funkcja xdrf inlauns w plikach AtO.C, ErWłUICS.C, PfC.C t 
PRJWTF.C zapewniają dostąp do acżllwołci sprzętowych fcoaput ara 
na tskla posłowi* Jak BASIC. Funkcja Blbllatacsna o tak znanych 
nazwach Jak plotO. ctrowcoC? esy po*» C> działają podobni a Jak 
ich odpowiedniki s Jftyks BABIC. Paeljając oczywisty fskt, Ba 
najbardziej dokładna definicją katdwj funkcji Jast jaj kod 
Źródłowy w Jeżyku C podajemy Jadnak krótki oj.t* każdej s nich. 


A2. 

FUNKCJE HE/WY 
ZDEFINIOWANE 
W BIBLIOTECE 
AIO.C 


Int lani 

Funkcja cl war ładuj* do tablicy mtO . lan-Ił bajty ssrowa, 
co Jast wygodna przy Inicjowaniu dużych tablic. Dla tablic 
złożonych z Uctb całkowitych uroussnt długo* cl lan 

powinien być poanotony przez dwa, gdy* podaje ale QO w 
bajtach * nla m słowach. 

cppanl fn, aoda) 
char Złn, aodai 

Funkcja copen ctwłara plik, o nazwie zawartej w łańcuchu 
fn, dla odczytu, zaplau lub dołączania, w zalartnodci od 
ssrloicl znaku aod*i 

r - Odczyt pliku CJak OPEN bn, •. fnSI 
w - sapla pliku (Jak OPEN do. B. fnS> 
a * dołązeils do pliku (jak tPEN <Sn. 12, O, fnSł 
detali plik zostania otwarty poprawnie, to funkcja zie-aca 
numer IOCB 10-71. Kalaty go zapaaletać w Jakiej* zelennej, 
gdyż bgdzla potrzebny do koaunlkowanla ale z dany® plikiem. 
Jeżeli plik nla został otwarty funkcjo zwraca liczb* 
u Jawną, będącą negacją kodu błędu CIO. Ha przykład 
wciśnięcie klucza BREAK w czasie próby otwarcia pliku 
spowoduje, ta funkcja copenfj zwrdcl wartczlć -128. 



Char locb, aal, ar 2, Ifnaaei 

Funkcja ta jest podobna do instrukcji OREK z Jeżyka t BASIC. 
’ Funkcja opwoCJ zwraca wartoćć I Jasell nie aa probleefiw z 
otwarcie* pliku. W przypadku przeciwny* zwraca ujeany kod 

błędu CIO. 

ciosa! 1) 
char ii 

Ta funkcja Jest podobna eo instrukcji CL05E z BASIC* a. 
Zawyka IOCB 1 zta-aca wartoCC 1 lub w przypadku wystąpienia 
błędu u Jawn y kod błędu CIO. 
ccloaal i> 

Int i| 

Gdy chcesz zaaknać konkretny plik peMłenlena* wytołać 
funkcje celoeeCJ * liczbą zwracaną przez cop*nC>. Funkcja 


cc laser? zwraca wartoLf 1 gdy wszystko zakończyło ste 
poprawnta lub negacje błędu CIO. gdy ma udało ale zaeknąć 
pliku. 

cgetc ( locb) 

Int iocb| 

Funkcja eg»tc<> Jast bardzo podobna do Instrukcji GET z 
BASIC* a. Po przekazaniu nuwaru 1DC8 funkcja zwraca kolejny 
znak z pliku (o kodzie od O do 233> lub liczb* ujeaną, 
która jest kodem błędu CIO. 

gat charo 

Funkcja ifwtcharf? wprowadza Jeden znak z ekranu (locb OJ 1 
zwraca sirto44 1 lub ujaarry kod błędu CIO. 
putchar ( cl 

char c| 

Funkcja 'pulcłwu<J wyćwietja dany znak na akranl* (locb Ol i 
nraci wartożć 1 lub ujaaeiy kod błędu CIO. 

OSta< string) 

Char tstrlngi 

Funkcja (•)«< J Jest podobna do Instrukcji IMPUT z BASIC* a. 
Wprowadza cały logiczny wiersz tekstu l ualeszcza go w 
tablicy znakowej podanej Jako argument. Tablica ta powinna 
wiać przynajaniej 120 bajtów długotet. Ody* w przeclwnye 
przypadku operator aeds Ją przepełnić poprzez wprowadzania 
zbyt długiego wiersza. Jebali nla wystąpił błąd funkcja 
pstsO zwraca liczb* znaków wprcwaadzonsgo wiersza (od O eto 
1 20) - W przypadku wystąpienia fcłędu zwracany jest u J san y 
kod bl*du CIO. 
cprlntel atrtngł 
char tatr Ingi 

Funkcja cprintaCy Jast podobna do Instrukcji PRINT z 
BASIC* a. WySwlstla na ekranie łańcuch będący jaj 
•rgunsntaa. Nla wyprowadza znaku RETURN ala cło tego calu 
matnm wykorzysta Instrukcje pulchaKlSSJ, która wymusi 
pnejtcle kursora na coca atak następnego wl e^ sra. 
cputa( etrlg, tocbi 
Char Ist ringi 
int loebj 

Funkcja cputeO Jest podobna do Instrukcji PRINT • z 
BASIC' a. Wyprowadza orzakazany łańcuch do konkret nago 
pliku. Kalety jako drugiego arguaantu funkcji utyć numeru 
IOCB zwróconego przez Instrukcje cofwif ) . Jeżeli brak bł*du 
furii— ia cpur*0 z-raca wa terfó 1 . a w przypadku przeciwny* 
ujemny kod błędu C1CJ. 

clov( locb, cos, bsd, blan, akt, ox2J 
int locb, cos. błon, ax 1 , aa2| 

char au*d| '* 

Funkcja c(ovO Jest podobna do wywołania *10 z BASIC' a. 
Każesz ustawić locb i wywoływań przy pomocy taj funkcji 
CIO. Argument lor b powinien bvć z grrmtilNu 0-7 1 susi 

okrażlać blok M/wy, którego używasz. cca» Jest kodea 
rozkazu ICCOH. bod Jest adresea bufora IC8AD, a blen 
długością bufora ICSLEN. ut Jest poaocnlczya bajtam ICA*1, 
a ax2 poaocnlczya bajta* ICAX2. Jrlzll nla chcesz zalanlaó 
bieżącej war tof cl którego* z czterech ostatnich argu m e n tów 
(b ad. bl*n. axl. ax2i użyj zastępczo wartożel -I. Tak wl*c 
chcąc wczytać kolejny wiersz do bufora powinien** naplaaćz 
clov ( 1 , B. -1, -1, -l, -1»| 

MlskszcrŁÓ podanych funkcji m/w y została zalepi aas n towana z 
wykorzystaniem ctouO. Dwa wyjątki c«*tc» t cpuleO 
zostały za I apl swa nt imana w asewblarza, aby zwiększyć 
szyb koić i en działania. Ja tal i CIO zwraca wynik mniejszy 
ntt 128. to funkcja cioućJ przekazują go w nlaamlantonej 
postaci, ala Jmżsll kod wynikowy Jest większy łub róaeiy 1JB 
(oznacza to wystąpienie bł*du>. to e(ovO zwraca ujeaną 
wartodć tęga kodu. Takie podejżcie Jast zgodna ze 
standardem Jeżyka C, w którym przyjęto, ta kody błędów aą 
podawana Jako liczby ujeane. 
noraallzei fnaas, fsztł 
char tlnwe, tf ext| 

unuliwTJ jast funkcją użytkową służącą do 
przekształcania dawolnaj forwy nazwy pliku w standardową 
poetaf wymaganą przez CIO * FłtS. Najpierw nazwa pliku 
zasłaniana Jest na nazwę pisaną dużysl 1 1 tarami , a 

następnie, Jedalł nie występuj* przedrostek'*^ nąi wy 
urządzania, na początek nazwy dodawane aą znaki 'Dl*. 
Ja tal i brak rozszerzania, to do nazwy pliku dodawana Jsat 


kodzie 


kropka i łańcuch f»x t. Oto typowy przykład wykorzystania 
taj funkcji i 

char fnąawt20J| 

gstst fna»e)» 

mormcIlzeC fnSmc, M Bft8">| 

Wykorzystania tai funkcji gwarantuje otrzymania nazwy pliku 
akceptcmsinej przez system CIO. Na przykład Jaiali 
użytkownik wprowadzi r;«w? “proq“ , so po 
normałizef fnaoa. “BA8">» 
łańcuch wynikowy zawiera "Di PRÓG. BAS" 

tcuppmrf c) 
cha- ci 

Jeritrll c JBBt mała li tarą. .to funkcja ŁoupporO zwraca 
kod odpowiedniej dużej lttary. 

tbl Ow*r ( cl 
char ej 

Jeżeli c J**t flutą litera, to ColowerO zwraca kod 
odpowiedniej s» siej li tary. 

•trepy! a, b> 
clicr »■, Ob j 

Funkcja -strcpyO kopiują łańcuch znaków z tablicy 6 do 
tablicy o. Funkcja zwraca długoSd kopiowanego łańcucha x 
pominięcia*) bałtów carowych. 

«)•••( a, b. lani 
char «a. łb| 
infc lan| 

Funkcja mooeO przepisuje tan bajtów z a do b zaczynając od 
alaaontu ntOl, a kończąc na of Łan -/ ) . Ostają mię dziwna 
rzaczy J stoli a <- b <- o -» lan. 

wr( mar, > 

in\ *dri 

Funkcja usrO Jmmt podobna do funkcji USRO z BASICa. 
Pierwszy ar ounent Jamt adresem podprogramu napisanego w 
Jpr y ku HumynoMyra, natomiast rauta stanowi parametry Jakie 
są do niego przekazywane. Wynik obliczań zwracany Jest w 
rejestrach A (eze$ć anlaj znacząca! i X (częió bardzaj 
snac?ąc»J. Po wywołaniu podprogramu użytkownika stos 
wygląda nontęro Jącoi 

< oprócz adresu liczba argumentów (0-120) > 

<b«rdxlej znaczący bajt pierwszego argume n tu! 

<mniej zrtaeząpy bajt pierwszego argumentu! 

<bardzej znaczący bajt drugiego argumentu! 
itd. 

Cadreo powrotu (dwa bajty)! 

Procedura użytkownika moi* wykorzystywać bajty f 

strony zerowej, 
flndf addr , lan, chi 
char sadcJr, chi 
tnt lani 

Funkcja finetC) przeszukuje obszar pseięci od adresu adrtr do 
adresu mldr » len -i, aż do momentu wystąpienia znaku ćh. 
J»#»l i funkcja nlo znajdzie znaku ch zwraca wa*-fco£ó -1, a w 
przeciwnym przypadku podała odlegiofó <w bajtach) znaku eh 
od adrasu arjdr. 
paekf 11 
cher Si. cli 

Funkcja peefcC! zwraca bajt pamięci o adresie i. 
polot i, d) 
char Si. d| 

Funkcja po/ceO wpisuj* bajt d pod adres t 1 zwraca 
poprzednią zawartość tej kaaórki. 
dpaakt 1.1 
char Si J 

Funkcja dpaehO zwraca zawartość słowa (dwa bajty) o 
adresie i . 
dpokel 1, «) 
chw *i| 
tnt nt 

Funkcja dpohmO wstawia słowo w pod adres i-, (*I t zwrec* 
poprzednią zewartoić tego ełowa. 
vel ( o) 
char «*| 

Funkcja ualO, podobnie Jak instrukcja VflL z BASIC' a. 
**wat;a wsrtoAó liczbową łańcucha a. 


hval i mi 
char 

Funkcja huolO zwraca wartość liczbową łańcucha m w 
szesnastkowym. 
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POSTAĆ ZaODLOWR FUNKCJI ZAWARTYCH 
W ZBIORZE flIO.C 

łłdefin* EOL 155 
#defin* TAB 127 
łłdeflne SPACE 32 

* FUNKCJA vaHs> - zwraca do Miejsca 

* wywołani* liczbę odPowladaJac* łańcuchowi 

* Melasowi cyfr) zawartemu w s 

vaKs> 
char *si 

$< 

char ci 
int V/3ifrw 
whlle<c= *3>*< 

if<C«=="SPACE I c"=EOL I c*=TAB>++s> 
els* break ; 
t> 

SilYl<*t i 

if<C*='+' I c =«'-'>*< 

if<c cM '-' >si«n* -1/ 

C“ *♦«■*/ 

*> 

v=0J 

uhl le<c>*'0* 8. c<='9')t< 
s^yttO+c-'©' j 

C**+ł5J 

*0 

return v*si*nj 

✓:mmm****mm*m#*#*mmm******ł^#£ 

* FUNKCJA hval<s) 

* zamienia liczbę szesnastkowa na 

* liczbę typu ińteser 

hv*Ks> 
char *zi 
$< 

int v; 
char cj 

uh ile<c« *»>*< 

i f<C"==TAB I c a *SrACE I c* e E0L )•♦■+« i • 

else break/ 
to 

uhlle<l)f< 

i f<c>='0 ; *. c<»'9')c=c- ; 0U 
else if(c>« , a / fc o< c ' f* )c>=C“8?j 
elfie if<c>« / A' Ł c<“'F J )c*c-55i 
elfie break/ 
v«<v<<4>+c/ 


c-t-h+s/ 

i) 

return u z 

$> 

* FUNKCJA cooenO 

* otwiera, zbiór o nazwie zawartej 
.t w łańcuchu fn 

*********t*^******tt***'*:ti****l:*-*****!t;**.ł;**t*.t*.t 
coc , en< fn»mode> 
char *fmmode/ 

$< 

Int ki io^ rydirj 
io«=0; 

while<io<8Jt< 

1 f < eeek < 832-f- < i o «4 ) > =*255 ? b reak / 

++1oj f 

t) 

i f<ło==8> return -1/ /* -i otwarcie niemożliwe 
fnCk=strlen<fn>3=E0L; 
i f<mode=»' r' )dir»4; 
else if<mode»«'w' >dir=0/ 
else i f Ctoode==' a/ . >di r«3i 
else return -132/ 
r=eiov/<ioi3ł fn^k+l ,dir,0)/ 
fnCkJ=0j 
lf<r<0>tc 
celosedo?/ 


jłifij 

u łń ? 


*E*:**V‘ 
WHU1 *' 




return ri /* uJemny kod bledu ty 

t) 

return 10 / /* tk wr Jocb ty 

*> 

mrn.tt*ttjk*tttM.*ttSi*st*tst.ttsst*StSktSiSis*t 
t FUNKCJA ooenO 

i otwiera blok IOCB dc ccerrcJl we-wy 

ocenCiocb.avi ,*>2- fn »■*•> 
char iocb/ tfnawej 
SC 

return ciowfiocb/ 3/ fn*«e, 
strlenf fname}/e,xl riv2)j 

*> 

✓****im^*«*tm*t**:**m**ł**3:*ri^***M*m**t 

* FUNKCJA ciosek I > 

* zamyka blck IOCP 

cios* '.i ) 
char ii 

SC 

return ccloseCDi 

t> 

CClOMCO 
int ii 

SC 

return ciov(i« 

*) 

i FUNKCJA eputeO - przesyła znak 

* do urządzę nie sko.-arzonęso 

* z otwartym blokiem IOCB 

t±St t itiitłłiiłliiłit tl mtttiU 

coutc<C/unit> 
char ci 
int uoiti 
asm 12 29? j 

/u tm** * ***** 

* FUNKCJR ceeteO 

* odczytuje kolejny znak z urządzenia 

* ekoJarzoneto z otwartym blokiem 10CB 

*m***m*mmt*m>4Ł**:*imm****!»-********^ 
c«etc<unlt> 
int unit; 
asm 122941 

/**#*mmt*mm**£m***m****** ************ 

* FUNKCJA tetcharO 

* wczytuje Jeden znak z ekranu <ICCB*0> 

setcharO 

SC 

return c*etc<0>J 

*) 

* FUNKCJA euteharO 

* przesyła Jeden znak na ekran <I0C8*©> 

eutchaKc) 
char ci 
*< 

return cputc<c/0)j 

t) 

/ttttttt************** 

* FUNKCJA tetsfsir) 

y wrrcwidza losiczr-y wiersz tekstu 

* z ekranu CIOCS“0) do łańcucha atr 
*t*t***t**ttt*M.tMt****M********t*M******t*tt 

♦et*<st»-> 

char #str; /% wskaźnik do łańcucha at«* ty 
SC 

int r» 

if«r»clov<9,5i#tr,120.-l,-l))<g? 
return r; 

*trCr«d*eek<8*0)-i:i»0i 
return rj 

*> 

ytSttttittSS ***** ******* * ri ******* i* **** * ti ****** 

* FUNKCJA corinUO 

* wyświetla na ekranie łańcuch znaków 

* zawarty w łańcuchu str 

*************************** * ******* 
corintsistr) 
char *strj 

*( 

return coutsCstr/ 0); 

*> 

/'*****************.****.********.*******#*****•****** 

* FUNKCJA cnutsO - wysyła na urządzenie 

* skojarzone z otwartym blokiem Ił?CB 

* łańcuch 2 nakow zawarty w str 


* ****** 

cwitsCstr, 1) 
char *stn 
int Ii 
SC 

int ki 

i f<k»*trlen<sir>> 
return ciov<i, ll,str/k ł -l,-Di 
else return ii 
fł 

y ********* * ******* mti m * * **** * ***** ***** *1 

* FUNKCJR ciev<> - sdv artumenty b#d> blen, axl 

* łub ax2 s* przy wywołaniu ustawione na -1> 

* to ich bieżąc* wartość nie ulesa zmianie 

********** ti ********** *.* f* *1 f* 
ciovCiocb/com,bad/blen/ •xl.*x2> 
int iocb#com,bleri/axł .**2; 
char tbari; 

asm 12291; ✓# *3003 ty 

/*mm*m**m;m***m***** : m*m**mm**:* 

■* FUNKCJA normalizeO 

t zamienia litery z nazwy zbioru na duże litery 

* doda. Je przedrostek t)>, ady *0 brak 

* dodaj# rozszerzeni* zdefiniowane przez fext 

*ł*******t******#**m**Jl**:*******m*********** 

no r ma 1 i ze < f nam*/ fext ) 

char *fn*me/*fext; st wskaźniki do nazwy i rozsz. 
i nt i 1 

char C/teMPt293; 

■ i zamiana nazwy zbioru na duże litery ty 
i®0; 

whi le(c s fnam#Ci3) 

fnameCl *+JatoupperCc> ; 

i*<— i < 0) *-eturn 0; /* nazwa pusta fbrak) *✓ 

* fnameCiJ Jest ostatnim znakiem nazwy */ 

* * przedrostek D' 

ifCi«»P ! Ci»«*l t, fnameCU !■' ') 

KfnameCiJ !•' > J 8.fnimeC2J‘*' « ' >>#' 
strcpy<temP/ "D‘ ">; 
strcpy<temp+ 2 » fname); 
strcpyf fname> terno); 
i»l+2; 
f) 


r* tdy brak dodaj '.'fes t t/ 

i f<flndc fnam#/ i + 1 , ’ . ' ><0;*< 
fnimeCi+lJ*' . ' 1 
stropy < fn*me+i+2ł fext>j 

*> 

t> 

/tfł>ttMNtitmłi«hi.NNirHhT}mNłt l Uli 

* FUNKCJA toupperO - zwraca kcd duże i 

* <fi *. 2>/ sdy arsumentem 

* Jest kod milej litery <* .. zJ 

I * 1 UiH» irttrriti atttttttitttttttrtt ***** ****** 
toueperCc) 
ciur ci 
SC 

return <c < ’ t*"i 1 1 <c > J z‘> 

7 c 1 c-32 i 

S) 

t FUNkCJP tclowerO - zwraca kod malej 

* <a . » z)/ *d« artumsntem 

^ Jest kod dużej litery <ft .. Z) 

tolower<c) 
char ci 

return Cc < ’R') II Cc > 'Z') 

7 c * c+32; 
f> 

/ti:*** *** **r*t tt****tt * ***** t* ł »* ****** i ******** ** 
i: FUNKCJA strccyCi/b) 

* kontuj# łańcuch 'b" do "a" 

********* *xt x****** ******************** i* ****•• ** 
strcpy .a/b> 

char **/*bi /i wskaźniki do kop. łańcuchów */ 
lin 123001 

t FUNKCJR mov#<a/b» len) 
i orzenisuJe len znaków z "a* do "b" 

move(a/b/ len) 
char tg.tbJ 
int leni 
asm 12303; 

t FUNKCJA clear<a/len) — zer uJs len elementów 

* tablicy "a" począwszy od #.C03 t/ 


len) 

char 
int l»m 
*< 

*a*=C; 

nov«C*^*+l/ len-l); 

#) 

/t*****ii**tt.t*t*tt**it*t*tt**t**ttt**'ttt*ł****tt 

* FUHKCJR uscO - wywołanie podpr. m»3Zvnov»90 

* rezyduJaceso od adresu addr 

usr<*,ddr> 
char Jtaddrj 
asm 12306i 

/********t*ł********.ł:*t***t*4;***t'^młtt***:ł'*i*i:* 

* FUNKCJO flndO - szuka pierwszeao wystao. 

* znaku ch w obszarze PAmieci od adresu addr 

* do adresu addrslen-1 

tttt***txtt*x*w****txtt*.ttte**ttt ************** 
firjdtaddrj len.ch) 
char *«ddr#chi 
int lenj 
asm 12303) 

✓4c* ************ *#tt****ttott**Mt*icl;M*Mt#*tt*t* 

* FUNKCJO strlenCstr) - zwraca liczbę 

* znaków zawartych w łańcuchu str 

strlen<str> 
char *strj 
*<. 


A3. 

FUNKCJE 
GRAFICZNE 
ZDEFINIOWANE 
H BIBLIOTECE 
GRAPHICS. C 

dw m 

aukcja gmfKicmO latania tryb graficzny ekranu podobnie 
jak Instrukcja GRAPHICS w Jyzyku BASIC. Zwraca taki* mm 
Mrtoici jak funkcja opendJ. 

colori O* 
char ci 

Funkcja eolorO Uttanił kolor pisaka dla funkcji pl OCO lub 
droklofJ podobnta Jak instrukcja H OL CR w MIC*u. Zwaca 
wartokci przypadków*. 

drawtoł x a y) 
lnt v, VI 

Funkcja drawteO, podobni a jak inatrukcja DRAWTO w BAGICu, 
kr akii linia od ostatnio oznaczonego- punktu (flolOi do 
punktu o współrzędnych (x, y> ■ Zwraca ■attkć I gdy nla aa 
bładfiw lub ujaany kod błędu CIO. 

locatal m, yl 
int x. vi 

Funkcja (ocateO uwłaszcza kuraor graficzny w pozycji <x,yl 
1 ia-Ka -artoAd tago pikała lub ujaany kod biadu CIO. 
Stanowi ona odpowiednik instrukcji LOCATE w Jeżyku BASIC. 

plot( X, yl 
lnt x» V| 

Funkcja plofO zapala punkt lx,Y> tak Jak instrukcja PLOT 
Jeżyk* BASIC. Zwraca MTtołd 1 lub kod błędu CIO. 

posltlant x, y) 
int w. y| 

Funkcja paailtonC > uaimcza kuraor graficzny m nowy* 
aiajacu o współ rządnych <K,y>. Kuraor zalania swoja 
połatani a doolaro przy kolajnaj Instrukcji wyprowadzania. 


return firid<str,3090Q»0>J 
*> 

* FUNKCJO peek<i> - zwr#.c* zawartość 

* baJtu o adresie i 

c-eek Ci) 
char *ii 
asm 123121 

* FUNKCJO noke<iid> - WPisuJ# wartość 
t d do baJtu o adresie i i zwraca 

* stara zawartość teio baJtu ts 
pokeCiid) 

char ti.d; 
asm 12315; 

✓mm*m*****m***m;m**mm*m**** tm* 

* FUNKCJO dPeekdJ - zwraca zawartość słowa 
t < dwóch baJtow) o adresie i 

dreek Ci) 
char *1; 
asm 12318) 

rtti**ttttt******Jtt±****tt±****rtittttt1cMtttt*tt 

* FUNKCJO dPokeCi.w) 

*******************************#;**************** 
drokef i * w) 
char *i; 
int uj 
asm 12321 J 


•et co) or { rag, hu*, 1 uaU 
char ni, ho*, lu*| 

Funkcje aeicelorO ustawi a kolor r*J*łtru re* kontolnac Ją 
wartofci hu* i Iwa. Dział* podobni* Jak instrukcje ŁŁ i CHLOR 
BASIC* a. 

filie x. y, ci 
lnt k. y| 
char ci 

Funkcja /fttO etanowi laplntntłcjt rozkazu FILL BASIC** 
dla urządzania 8 (akranl . Krwill lint* od ostatnio 
narysowanego punktu do punktu o współrzędnych Ix,y) 
zaieniając kolor tła po prawej stronie kretlonaj linii. 
Jest bardzo przydatna przy wypełnianiu kol ora* ckitych 
trapezoldalrfych obszarów ekranu. 

padole ł n) 
char ni 

Funkcja poddleO zwraca wartoid wioseł k* określonego przez 
n. Dziale tak Jak instrukcja PADOLE Języka BASIC. 

ptrlgi nł 
char m 

Funkcia ptrigfl zwraca aartoM przyclaku określanego 
wl osełka. Działa podobni* Jak inatrukcja PTAIG BASIC’*. 

aticfci n» 
char ni 

Funkcja elCchO zwraca wartość ekrailonago dtojstlka. 
Działa podobni* Jak instrukcja BTIGK w Jeżyku BASIC. 

strlgi n> 
char nj 

Funkcja »(r(<0 zwraca wartoid przycisku określonego 
dtojstlka. Działa podobnie jak funkcja STR IG BASIC**. 

vsttckł ni 
char m 

Funkcja usllckO zwraca pionową akładową połatania 
dtojstlka. Gdy J**t wychylony w gór* zwraca wartość 1. gdy 
w dół -1, nctoalaat gdy znajdują ai* w połataniu neutralny* 
wartość O. 

hatlckC nl 
char ni 

Funkcja hattckC} zwraca pozloaą akładową połatania 
dtojstlka. Gdy Jest wychylony w lawo zwraca wartość -I, gdy 
w prawo 1, a gdy Jest w połataniu neutralny* O. 



*ourvd C yolce, pltch, diet, yoluma) 
char voic«, pltch, dltt, VOlUMf 

Funkcja aoundO wywołuje efekty dźwiękowe podobni* Jak 
Instrukcja SOOND BASIC" a. 

rnd C n) 


Funkcja rndO zwraca liczby łonową z zakresu od O do n-1 
włącznie. Jeżeli chcemy uzyskać liczby losową z zakrasu od 
1 do lO należy użyć wyrażania l-łmdClO). Jeżeli n Jest 
mniejsza niż 2, to funkcja rrufO zwraca wartość 0. 



A4. 

FUNKCJE 
GRAFIKI PMG 
ZDEFINIOWANE 
U BIBLIOTECE 
PKG.C 


pmclnit O 

Funkcja pmctnitO Inicjuje grafikę “graczy 1 poclskćw" oraz 
zbiór znaków. Funkcja pmclnitO powinna być użyta tylko 
raz. przed wywołaniem funkcji graphićmO. 


pacf luahO 

Funkcja pmcflitahO kasuje bufory znaków graficznych 1 
grafiki FH6 zwalniając 4K bajtów RAM. Funkcja jmac/lushO 
powinna być użyta tylko raz. tuż przed powrotem do aysteai 
operacyjnego, 
pmgraphicsl 1> 
int 1 | 

Funkcja ftajraphicsO powinna być wywoływana po każdym 
odwołaniu do ffrophicmO, aby ustawić rozdzielczość grafiki 
PKS- Funkcja pngraphicaC i 3 ustawia rozdzielczość 

Jednollnlową, pmgrcfłiicaCS) ustawia rozdzielczość 
dwullnlową, a fm#raf*\ ice<CO nstrzyeuje grafikę PKS. 
httclearO 

Funkcja -fitlcloarO czyści rejestry kolizji. 
hltp2pf< froa, to) 

Chsr froa. toi 

Funkcja hilpSp/C? zwraca wartość 1 gdy gracz //ren uderzy w 
pola Sto. 

hltp2pl i froa, to) 
char froa, to| 

Funkcja hitpZpLC J zwraca wartość 1, gdy gracz //roo trafi w 
gracza Sio. a O gdy nia trafi. Gdy S/rom Jest równe Sio, to 
funkcja zwraca wartość 1 . 

poclear ( n) 

'char n| 



AS, 

FUNKCJE 
ZDEFINIOWANE 
W PLIKU 
PRINTF.C 


Oprócz funkcji znajdujących się w pliku AIO.C istnieją w 
pliku PRINTF.C Jeszcze dwie funkcje biblioteczne. 

prlntf <*, . . . > 
cha r «■( 

Funkcja pi-intfd Jest standardową funkcją sfor matowanego 
wyprowadzania zaiapleaentow aną w Jeżyku C. Akceptuje ona 
zmienną liczbę argumentów. Pierwszy* z nich Jest łańcuch 
formatujący, zawierający tekst jaki aa być wyprowadzony i 
znaki określające gdzie wstawić resztę argumentów. Znak * 
występujący w łańcuchu formatu jącym ea znaczenie specjalne. 


Funkcja ęmcltrarO zmaluje gracza n. 

pmcolor < n, c, 1 ) 
char n, c, ij 

Funkcja pacolorO uatawla kolor gracza/pocisku na e, a 
Jasność na i. 

pmwldthl n, w) 
char n, mi 

Funkcja pcuuitftAO ustawia szerokość gracza n na wartość wg 
ur— O nor miny wymiari 
u —1 podwójny wyelan 
i »-—2 poczwórny wymiari 

pladdrt n) 
char n| 

Funkcja pladdkrCJ zwraca adres bufora zawierającego gracza 
n. 

plmove< n, x, y, shaps) 
char n, x, y, tehapei 

Funkcja plaoueO przesuwa gracza n na pozycję (k.y) <we 
współrzędnych aktualnego trybu graficznego) 1 pobiera Jego 
kształt * tablicy znakowej mhapo. ShapstOl to wtalkość 
gracza, a shapsC i . . efzej to bajty tworzące kształt gracza. 
Należy zostawić kilka bajtów zerowych przed 1 po, aby aieć 
pewność, im poprzednia kształty zostaną prawidłowo 
wymazane, 
chget ( c, s> 

Funkcja chgoLCi wypełnia tablicę efO. . 7) zawierającą 
kszatłt wewnętrznego znaku Atarl. którego kod znajduje się 
w c. 

chogetl c, a) 
char c, *sj 

Funkcja chogm (O wypełnia tablicę alO. .7] znakiem 
oryginalnym z ROM. 
chputf c, a) 
char c, Zoj 

Funkcja ehputO wypełnia zawartość tablicy śCO. . 71 dla 
znaku c. Aby umieścić np. kropkę na środku pustego pola 
znaku należy napiaaći 

chput (O, “ \0\0\0\60\0\0\0“ ) | 

LWA6A* Przed wykorzystanie* jakiejkolwiek funkcji z biblioteki 
PMG.C należy wywołać najpierw funkcję pmcCnitC>. 

>' ' 

Znaki występująca po X określają sposób drukowania 
kolejnego argumentu. Pierwazy znak X dotyczy pierwszego 
argumentu, drugi znak X drugiego argumentu, ftd. Jeżeli 
podano zbyt mało argumantow (lub zbyt aało znaków X). to 
zoetaną wyprowadzone przypadkowe wartości. 

Po znaku X można napisać Jedną z następujących 1 1 ter; 
d - aby wydrukować liczbę dziesiętną 
x - aby wydrukować liczbę szesnastkową 
c — aby wydrukować znak 
e - aby wydrukować łańcuch znaków 
X - aby wydrukować znak X 

Jeżeli chcesz oby argument miał określoną liczbę znaków 
podaj ją między znakiem X a znoklaa formatu. 

Standardowo następuje rćwnanlo drukowanej wartości do 
lewego krańca pola. Jeżeli chcesz aby równanie następowało 
do prawego skraju wstaw przed liczbą znak minus (— ). Oto 
kilka przykładów, 

prlntf <'abcd“ł| — > abed 

print# (" — Xa“, ”abcd”>| ~ 5 — abed— 

prlntf <“-X3d--, 9V> | -> -99 - 

printf <*•=*— 3d=“, 99) | -> - 99- 

prlntf <Xc Xd Xx“, 63, 63, 63) i -> A 65 41 

fprintf (iocb, a, ...) 
int iocbi 

IKS-25 


Funkcja fprlnt/O jest podobna do pr(nt/C> t ale nra 
dodatkowy argument iocł> i wyprowadza dane do pliku c tym 
■Locb. Funkcja prtntfCl to właściwie / pT'~ntf< 0 , . . . J. 


POSTAĆ ZRODLOMA FUNKCJI ZAWARTYCH 
W ZBIORZE PRINTF.C 

/* funkcJ* wyprowadzani a sformatowanego %/ 

y************************************************ 

* FUNKCJA fcrintfO 

************************************************ 

printfO 

*( 

int spj 

sp*dP*#k<210>; 

sP*»8P-(6+P*ek (d P#ek <sr>-8) ) ) ; 
return f&rlnt<*P;0>; 

#> 

* FUNKCJR fprintfO 

*********************************************** * 
fprinifo 

*< 

int 4P; 

SP*d£>eek(2I0); 

ftpase^fS+peek <dp#ek •'sp-B) ) ) ; 
return fPrint(»P+2łdPeękCsp))j 

f> 

forintCs* io) 
char *.%> 
int lo; 

9 < 

char #fstrins,**r«7o; 
int clłfti 1 iSize^sitn; 
cteft*strlen< fstrins=dp#ek<s)) ; 
whil*<cl#ft>$< 

if<a-fivid(f3trin?,ct*fti 'x')X0)J( 
CPU,ts<fstrin«> io)j 

return; /% ni* ma wieceJ zn. formatu.JAcych *y 

*) 

/% znak przed x %y 
eiov(io>ll,fstrlnił i/-l*-I)j 
fstrihWstrinf+i; 
cleft*cteft-i i 
«> 

/* pobierz argument nuMeryczny**-” 

fliz#*0; 

si*n»l; 

whll#<cleft>*< 

■M-fstrinaj 
— eteft; 
c* *fsirin«; 

)al#rł« -sian; 

«ttt lf(c>*’ 0 J & c< a '3 ' > 
size*aize*10-K c-'0' )/ 
elw break; 

*> 

Slzc»siz#*£isn/ 

*rf*dpeek(s*£+2>/ 

/•* sprawdzeni* znaku formatu.Jac«o 
/'ł tJ. znaku wyst*PuJ*c<?so po x *y 
i f<c***'d' Pfprintd^arsisizei io)j 
✓# sdy znak formatujący e d> */ 
y% to funkcja fprinfed */ 

#ls* if<c=='s') 

y* *dy zn*k form* tu Jacy *= s/ 

/* to funkcJa fprints *' 

fprints<A.rt,size, io)j 
els# if(C"= ; c') 

/% fldy znak formatujący • c, %/ 
y* tb funkcJ* fprlntc %' 

forłntc<arf >%iz9i i©>; 
els# if(c a *'x') 

/% fdy znak formatujący » *> ty 
/% to funkcJ* fprinty *s 

fprintx<ar£,siz*/ io)j 
els* *< /% K*> tte. */ 
y* «dy znak formatujący ■ x, %/ 

/* to wyprowadź ter znak %s 

CPutC<Ci io>; 

s«s-2j y* i w t#J sytuacji brak */ 

/* argumentu do wyorow. ty 

9 ) 

++fstrins; 

— cleft j 
*) 

*> 

y************************************************ 


* FunkcJ* fprinidO - wyprowadza liczbę dzies. 

fprintd<«r*iSize; io) 
int ars jsizei lo; 
f< 

/* bufor na łańcuch od oow i ad* Jacy %/ 

/t wyprowadzanej liczbie */ 

char bufCZD» fla*/CJ 
int iikj 
i«ftas*0j 
k => 19000 j 
if<*rt <8)f< 
bufCi++D“'-' j 
*r«* -*ri i 
fj 

whl l#(k)f < 

if<flaa f <c**rs/k»0)f< 
bufCi++3*cf / 0 ' ) 
fUł«li 
t) 

*r«*ars«kj 

k“k/i0i 

5J 

ifCfU.fl*®0) y% zero */ 

bufCi++3*i- 0 ' ) 

bufC13*0j 
i f < sii# > 0 ) 
fprintws<io»size~i>> 
cPUtsCbuf. io>j 
ifcsiz* < 0) 
fprintw&C I oj C-size>“i)i 
t) 

* FUNKCJA fPrintx<) - wyprowadza liczbę hex. 
tt*xt*tn******t*****tt**x****t**t***tt*t*t*t*t* 

fprintx<ari isize< io> 
int arł/Size/io; 

t< 

char bufC73/ flas/c; 
int i ; field; 
l»fl*«*0j 
fi#ld-12; 
whilt<field>«0>*< 
i f<f lae I 

<o*<ar« » fi#ld>«<l5»0?*< 
if<c<=9)bufC^++3*c+ , 0 , ; 
els# bufCi++3»c+'*'-10i 
fl**"l/ 

5 ) 

field«field-4j 

*> 

ifCflas*^) y * zero ty 
buf Ci +0=^0'; 
bufCi3 a 0j 

if<siz#>0)fprlntws(io/£ize-i); 

CPUts<buf/io)j 

if<size<0>fprintus<iOi<-size?-i)i 

9) 

y**M**t*t*.łMt*M*******t****ttt*rt*t******t**t* 
t FUNKCJA fprintcO - wyprowadza znak 
************************************************ 
fDkintcCaraisłzei io) 
char ara; 
int *iz#i ioi 
*( 

ifCsize>0)fprintwsCiO/Size-i)> 
cPutcfara, io)> 

if<sizt<0?fPrintusCiO/ (-size)-l); 

f> 

/ *********************************************** * 

* FUNKCJA frrintsO - wyprowadza łańcuch znaków 
t*********************************-*.************* 

fprints(ars,sizei io) 
char *ł.rił 
int size> ioj 
9 < 

int Ij 

i»strlen(ars)i 

i fCsize>C)fprintws<ioiSiz#-i)j 
CPutsfarSi io ) j 

i f<si2»<0)fpriniws<io> C-size)-i)j 
i) 

ytt*tt*.*ttt*t**tttt**ttttt***t*****x**tt********* 

* FUNKCJA frrintwsO - wyprowadza n odstepou 
********* *******n******t***U**t****M********* 

f printwsC iOi n) 
int io>nj 
*c 

while<n — > 0)cPu.tćf Sio); 

9 ) 
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tał. przyciskiem r IRC ł't »*ń - 
paUtor* podłaczonag do por- 
tu pitrwsztgo. u* wszystkie*. 


MERRY 


jorn* oranie* za lazna fest od 


jednymi z pitrstzpch automatów do gry , instal' 


:a«ad a yry 


SŁompi iłowania czy Kształtu automatu była ta sam*. 


ty wybijało sis kulkę 


dwoma przyciskami sterowało zestaae: 


uzyskaniem koiej- 


(idticte Hiłzało 


nscŁ punktów . premii w postaci punktów lub doda 


Zdenerwowany gracz 


Kowej ku ! k : 


zwycięstwa na 


ęaC, całym automatem . uszystkia cl 
loae -i ?byłe tylko jak najdłużej > 
grze . P<jwy2sze metody zdobywać 
Sie nieaktualne w przypadku prze; 


-zymac 


cooooooa 


iuioapch poni 


qooooooo 

oocooooo 


lej bilardów komputerowych 


Pinball 3 


BONUSK i • 

BONUS 00003000 

PLOVEDl 01193710 
OOOOOOOO 

oooooooo 

OOOOOOOO 


szych trzech przykładach . tzn. PXNPBfli_L 3 , MERRY 
CHRZSTfiRS i DIVESTED BELL obsługa jest identyczna. 
Punktacja noże byc prowadzona jednocześni* dla 
czterech graczy . U tym celu naciskamy klawisz 
option tyle razy , ile osOb bierze udział w grze . 
Rby kulka została wystrzelona , należy uprzednio 
spowodować naciągniecie sprężyny klawiszem STwtT 




MERRY 
ChrisTma s 


BONUSK 

BONUS 


2 ••• 

00004000 


PLftYERl 00074950 
OOOOOOOO 
oooooooo 

oooooooo 


ja się przez naciskanie przycisku lub zwrot irm* 
manipulatora w lewo , natomiast ruch pranych 
dZwigm przez zwrot drazka w prawo . Mi;*c dv* 
manipulatory , używa ete tyifco przycisków manipu- 
latorów . czasami zachodzi konieczność zvłe»sz»r*sa 
lub zmniejszania naciągu sprężyny wystrzeliwującej 
kuike . Efekt ten otrzymuj* «i« . kierując draZak 
manipulatora do siebie lub od stabie . 

czwarty program NIGHT MISSION stanowi znacznie 
bogatsza ofertę niZ poprzednia . zarewno po stro- 
nie wizualnej jak i dźwiękowej wykorzystano w p«ł- 



nogłoby sie wydawać , ze to nie bilard a gra sym 
lujaca walkę powietrzna • Rby jednak mogło to łoC 
miejsce , naiazy wrzuć i C kilka monet 35 c . ty o • - 
worzye sobie kredyt . Robi sie to klawiszem g 
Ilosc gi*r , za które zapłaciliśmy . mo 2 emy -dery- 
tac pod napisem ł-heoit*. Następni* klawiszem s- ru- 
rujemy cztery tablice wynik Ov po lewe? stroni* ek- 
ranu . jedno naciśniecie tego klawisz? cznaers 
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2* v grze złczaetniczy* beezie jed*^ 9r* ez . Dalsze 
ruciikicie skozitoi sr| kOJejnyo chętny* C »»Vs. 
cztir«> ł . u tym czuli następuje rosr-itz autema- 
tycim nłciłffmtctt sprężyny wyrzuca jece j kulki • 
Nftcias tej sprężyny ■ozotz regulować podobnie jak 
w poprzednich grach man ipuiat ore to podłłcsonyu dfl 
portu i C do siebie naprężani* . oa subii zmniej- 
szenie c&ciegu sprężyny > . Ruchea w lewo :u»> pra- 
wo tego Manipulatora ustawia S:* kolor ranki - 


uysirzt łanie mu.i następuję po ńicjtnitciu przy- 
cisku Jednego z manipulatorów . Manipulatorem z 
portu 3 woźna wykonywać jeszcze dwie czynności 
zwiana koloru planszy t drazet w lewo lob prawo) . 
zwiana nasycenia koloru c draZek w gorg łub dflł ). 
Stwarza to *02! łwose wprowadzenia utrudnień . u 
celu poprawienia ci woziiwoscł orientacji jał dłu- 
go będziesz jeszcze grał ped napisem bali. poda- 
wana jest liczba wystrzelonych kulek . 


MOUIE 



MUSICAL 


MADMESS 


Jeżeli chcesz pobawić Sie w two- 
rzeniu scenografii filmowej a 
takie komponowania do mej akcji , 
załaduj ter. prograw . ody pojawia 
sic na ekreme jego wstępna wozn- 
wosci COŁ.OR t kolon j czy blRC* 
a umite ( czarno - białe i ustaw 
wanipuiatorew gwiazdkę nad ty* wa- 
riantem . który wybierasz , a nas- 
tępnie nacicoL j przycisk . Pojawia 
Bi* trzy postacie . Lew* z literka 
s ca piersiach, prawa z literka e. 
uybrant* ktOrejS z nich c.sttpoit 
przez przesuniecie wanipuiatorew w 
lewo lub prawo znajdującej sit nad 
nimi gwiazdki a następnie po na- 
ciśnięciu przycisku. Postacie zni- 
kają . pozostaje tylko dwa rzędy 
pt 30 prostokątów c yora i dCł 
ekranu ) . u tys momencie progres 
jest yotOw do tworzenia scenogra - 
fil . Dolny rząd prostokątów to «e 
rożnych wal cdii . które wo*asz wy- 
korzystać przy realizacji swojego 
dzieła, (.orny rząd to twOj magazyn 
rekwizytów , a pierwszy i ostatni 
prostokąt sa garderobami 1 statys- 
tów. którzy mogą uaifikcy.-mC two- 
ja dzieło . Niestety, u scen-a io- 
2 a brać udział tylko jeden aktor i 
jeden statysta . Przy pomocy pier- 
wszego ' prostokąta uczesz otrzymać 
następujących statystów 

- czarodziej j 

- zbOjaił i 

- statek kosmiczny * 

- Piesek 

- rek lawa f est ) 

Dwudziesty prostokąt daje Ci 

- statek kosmiczny i 

- bab* Jagę 

- pociąg 


- kotwo ludka , 

- duszka 

fiby 'otrzymać np. zbdjmha. należy 
wampulatore* casunae %iyś.*ac« 
gwiazdkę na pierwszw prostokąt , 
nac>en«c jego przycisk . ukazuje - 
cego sie czrodzieja skasować kia - 
wis zew sprce i ponownie eioitnic 
przycisk mampalat ora, a. gdy ul i!« 
si« zbOjnik poivi*rdzic jtgo t/y- 
bOr przez mciinitci: przycisku . 



identycznie w kolejności, w jakiej 
zostały wyszczególniona povy2a j . 
Taraz aozesz przystępie do tworze- 
nie scenografii . Poszczego ine j aj 
eiewenty wybieramy identycznie jak 
statystów z tym . ze jeden prostfi- 
ket odpowiada jednawu rekwizytowi, 
jest ich w suwie osiemnaście . 
notłiz je ustawie dowolni# na pia- 
ni* lecz pamiętaj ze dopok: ni* 
potwierdzisz przez naciśniecie 
przycisku manipulatora . moiesz go 
dowolnie przemieszczać na planie 
lub skasować kiau.szew spacji . a 
oto wykaz wszystkich rekwizytów . 
jaki* aoZasz otrzymać w kolejności 
od strony lewej 
I. baszta I 

2. minaret i 

3. do* t 


a. iragwent wuru i 
5. pal** . 

=. drzewo , 

7. FłOt i 

a. pianino , 

3. planeta , 
id. luiipin i 

drogowskaz ^ 

13. dom r hotel i « 

•3. w. azow.ee . 
la, *łoa 

15. rak law* < s.iou > , 

16. >li«*9C . 

tg. latarnia uliczna 
*9. stara lamp* . 

sposab icn doboru oraz »lo*C je* t 
zupełn-.e dowolne . kiedy uznasz 
2e scenograf ii jest -uz dostatecz- 
nie rozbudowana . przychodzi kolej 
na dobrani# do niej odpowiedniego 
podkładu muzycznego . Prze „-f cle z 

górnego rzędu prostokątem następu- 
ję przez skierowanie drsin wam- 
pulatora do dołu i następnie wy- 
braniu jednej z dwudziestu melo- 
dii . Przy jej wyborze postępuj# 
aie identycznie jak przy rekwizy- 
tach . 3dy dojdziesz do wniosku , 
r* we i odia odpowiada' twoja J kon- 
cepcji . mc i Sr, i j jaszcz* raz 
przycisk manipulatora . Pojawi si« 
polecam* PRESS STRRT to BEOIN 

rcting . Naci snu wtedy klawisz 



5TAR1 . Rozpocznie sie realizacja 
iceny filmu . Przemieszczaj postać 
zgodnie * Twoja koncepcje . Two- 
rzysz w ten sposOb akcje danej 
sceny . -zn trwania sceny jest 
hi l a 2 n i or.s od długości melodii . 
jeżeli uprzednio by* wprowadzony 
aktor r»p. czarodziej , piee itp. , 
pojmi sie on i bedzie wykonywał 
charakterystyczna dla siebie czyn- 
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o w czy zdradliwych! tunei 


xs;fc - mome c usiedli oznacz* ko- 
nuc 5c«tiv . Na elranił pojawiaj* 
*»« ponowni* iriy posucie. mo2ssz 
rcs;«cz»c tworzenie scenografii 
mi vepr.a j sceny je> r 6 cni «2 -ej 
pozostałych np. zmiana 

statysty iisicJn kp. mozssz 
repmez poprzez naciśniecie klawi- 
sza -sEL EC t przłjfC do nowej opcji, 
izn. pushES c cdts*r zame całego 
) , PETOfis t zlikwidowani* 
ołiarmo ■ziworzone ; sceny > the 
EMO t koniec f i I lr>u J. jak. zwykle . 


wyboru dokonuje sie Frzy poinoey 
»ir. ipulat ora. Mis należy przerażać 
s ;ł przypadkowy* wytr*r.i«» ? ji 
Tnt eno ponieważ poiputer pre- 
zentuje Ci cały fil* . a następnie 
proponuje PKCS 3 OPTION to uieu it 
Pgoin t ponowne odtworzenia fi idu 
po naciśnięciu klawisza option j i 

PRESS SELECT TO MRKE R NETU 

t skasowanie stworzonego rilts a 
następnie przejście do tworzenia 
nc-ueyo przez naciśniecie klawisza 
SELECT J . Przed* ta wt cny powyżej 
program jak również jego możliwoś- 
ci z pewnością me usatysfakcjonu- 
ją wszystkich . srak jest tu dzia- 
łek laserowych , s trza 1 a jacych 


kośni t 

jednak szansa sprawdzeni* sie w 
b*dZ co b»d2 prestiżowy* zawodzie 
powinna skusiC wielu *łodych ia- 
dz i . Nikt nt# rodzi *i« rezytirea 
czy seanoęrafeti »#yo trzeba 

su nauczy C . 




Jłifcitfia nu wiado»o w jmi «» 
ca I s i kiedy została wybudowana 
siec tuneli łącząc* prawie wszys- 
tkie stolice i najw.sksze nia-sta 
lvii>al Do naszych czoc-w dotrwały 
w stame nienaruszony* -.yiko ich 
ira - «ćniy, Dzięki przezorności Na- 
rodów Zjednoczonych zostały w yre- 
wontouana . a następnie zaadopt- 
owane do super' szybkiego prze- 
mieszczania ludzi i sprzętu - 
2 nadszedł taki czas kiedy trze- 
ba był© praktycznie to wykorzys- 
taę . wydzielona grupa pr2*dti«Vi- 
c (e i i Narodów Zjednoczonych opra- 
cowała plan ochrony Ziemi przed 
intruza*i z zewnątrz . Nazwano yo 
Piane* nrona . esy ma dopuście do 
rozszyfrowania yo w razi# wykra- 
dzenia , został on podzielony na 
dziewice części. Niesie ty .jak woź- 
na było przypuszczać, wrogowi* do- 
wie dziali sie o istnieniu planu . 
Polecili swoi* szpiegom wykraść 
yo . Szpiedzy dokonali <a«s . u 
obecnej chwili poszczególna cze - 

ści pianu znajdują sie w roz 
r.ych miastach rozrzuconych po ca- 
łej kall Ziemskiej . jeżeli w 
odpowiedni* czasie nta odzyskasz 
skradzionych części planu, wrogo- 
wi* przejaa kontrole nad Ziemia 
i jej *ieszkanca*i . s vi?c do 
dzieła . 

Uruchomienie programu i gra . 

Po załadowaniu ne programu kompu- 
ter sprawdzi, czy jesteś fachouceu 
czy jeszcze człowiekiem którego 


należy podszkolić - Zada c « pytanie 
- LOSON plepise ? uprowadź teraz 
ked wywoławczy. Dla ułatwienia po- 
dajemy , za jest mm nazwa jednego 
z kontynent eu . Gdy bodziesz znał 
to hasło , o»ir.i« ci® test ro- 
bota t przejdziesz od razu do 
drugiego etapu . Załszmy jednak, ze 
nie znasz hasła , * wiec na wymie- 

niona wyzoj pytanie napi-:z M 
i return . Komputer powiadamia 
was wtedy o zwiani* hasła t zadaj* 
jaszcze raz pytanie jafc wyżej . 
Należy nacisnac wtedw tylko 
return . Ody to wykonasz pojawi 
sie rysunek robota . twoi* zada- 
nie* bedzt* odgadniecie tych w 
robocie miejsc, których nazwy b*dł 
pojawiały sie na dole ekranu . Aby 
przejść do następnego etapu, nale- 
ży bezbłędnie odnaleźć wszystkie 
części. Kursor sterowany jest prz> 
pomocy manipulatora . »o ustałem . 
miejsca występowania części należ--; 
nacisnec przycisk cferc) . jaz#;, 
odpowiedz bedzie właściwa, fcompur er 
po pytaniu napisze ci OK. t zada 
następne . Je2elf natomiast pomy- 
lisz sie. pytanie t>«dzn ponawiane 
dotąd , *Z odpowiasz prawidłowo a 
ponadto test zostanie jeszcze raz 
powtOrzony . Ola ułatwienia, poka- 
zany został pomsaj robot z umiej- 
scowieniem poszczególnych części . 

test robota sru. 

1. INFRRREO WIDEO INRGE SENSOR - 
ośrodek wizyjny 

2. PŚYNCHflONOUS OflTR COHPRCTOR - 


manipulat or 

3. MYpRBULIC motiurtor - napęd 
... PMLRMSON JOINT - mechanizm 
kierunku 

6. thelmrn port - gniazd o połączeń 
zawne trzaych 



Drugi etap rozpoczyna «i« od pyta- 
nia o twe iiu|. Ody ja wprowadzisz, 
zostaniesz poproszony o ustawieni* 
•refy czasowej na Ziemi. Rorusza- 
manipulatorem w lewo lub pra- 
ustawiasz tak porę dn-.a, by ci 
dFOuiadała . Ola utrwalenia sytu- 
scji naciskasz przycisk . Komputer 
informuje wtedy , z* nastąpiła we- 
ryiikacja czasu . Robot SRu znaj- 
duje sit w tej chwili na połumo- 
wyin at 1 antyku , Naci śnij rct<«m . 
Gdy wykonasz to poisceme . rozpo- 
czniesz właściwe gro . zobaczysz 
tablice wskaźników c rysunek poni- 
żej } , na której bodziesz otrzy- 
mywał dane 

>. jaki jest aktualnie wykonywany 
rozkaz, 

2. Na monitorze obraz, jaki widzi 
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v »n ■ 


pO»od2;t povf0ł~d4 poćz* 


»c?ł pokizyuiC svv;i oferty 


Gdy 


przed eobe robot* 

з. sygnalizacje iBłtłzami «*• 
» itrounictwa akcji c »i7*jicv 
skroi hsu 3 1 

и. no mtzniku oir«łi«nu kierun- 
ku w jawi* zwrflcony jest robot. 


Po rozpoczęciu gry z ptunolcu 
ni ot i iit kierownictwo alcji 
wciśnij wtedy fcuvlsz u. otrzymasz 
szereg initruKcjl. spróbuj je prze- 
iłoiaczye .Moza v ten eposob wzbo- 
jacitz swój sł owolli o nowe okręt* 
Itait . Jizeii jednak me pora- 
izisz sobie, att przijicj iii ty*, 
u cmi* gry będziesz auł do czy- 
nienia z dwoma gruptai rozuzsw . 
pierwsze to ta . które będziesz 
uydawa* pod Ziewie, a Mianowicie 
fc UUiSZ 

U -oznacza wyprowadzenie robota na 
powierzchnie - gdy znajduje sie on 
pod Zitllt i 

i -włączą . noktowizor ydy okazuje 
sie. *s na powierzchni jest noc . 
c - przywołuje nt szpiega by do- 
konać transakcji! 

© -powrot robota z powrote* do tu- 
nelu i 

H - nawlszama Cna polecenie NSO 3 
kontaktu z k lerownictuem o celu 
otrzymania instrukcji . 

Druga yrupa jest zwtezana tylko z 
o‘perac*awł wykonywenysi na po- 
wierzchni Ziut c po przywołaniu 
szp teya > i tak naciśniecie klawi- 
sza 

o - jak poprzednio oznacza pew- 
r<Jt robota do tunelu / 

* - zwiana proponowanego szpie- 
yowi przednio tu na inny gdy 
ten nie jest ni* zainteresowany , 
v - wyrażenie zgody na kupienie 
Cd szpiega przedBiotu * 

M - odmowa kupna * 
e - daje boziiwcsc obejrzenia 
dotychczas wykupionych części 
p 1 inu 

u - jak w pierwszym rodzaju roz- 
kazów j 


tek yry 

Kierowanie robotę* u tunelu odby<’< 
sie za pomocą manipulatora . 
sfe tarowaniu draZK* o kierunku 
który* chce*y sl« poruszać , rohoi 


obraca sie l jeżeli dalej przy- 
trzymamy > ty* sawy* powodujemy 
zaprogramowanie fragmentu drogi. 
Gdy naciśniemy przycisk , robot 
Frzebtdzie ten fragment tunelu . u 
zależności od tego . w która strc 
ne został zwrócony robot , bo- 
dziesz widział dalszy ciąg tunelu 
lub sc lane . schemat tunele przed- 
stawiono na rysunku poniżej . 


Załóżmy teraz . ze znajdujesz sie 
pod wtaste*. u takim przypadku na- 
leży nacisnec klawisz u. Robot zos- 
tanie wyniesiony na powierzchnie • 
u zależności od tego , w jakiej 
strefie czasowej znajdujesz mig . 
może byC na powierzchni dzień 
( nic me naciskasz J lub noc 
C wtedy musisz włeczyc noktowizor 
klawiszem l 3. 

Manipulatorem moZesz uzyskać widok 
•ego. co znajduje sit w zasięgu wi- 
dzialności robota . *»o naciśnięciu 
klawisza E zostaje przywołany do 
robota ezpieg. po przyjściu propo- 
nuje Cl dokonanie wymiany- N»e **- 
wszo pytama szpiega beda zrozu- 
miałe , gdyZ z reguły b eds posłu- 
sucmi narodowymi 

m a będziesz 


• zpieg zaakceptuje któraś z mch . 
automatycznie da et za nu czese 
Planu < zobaczysz ja na ekran-ie > 
a gdy ruciinieii rctukm zicznu, 
przedstawiać swoja propozycje do 
sprzedania . przedmioty te często 
h«d> zmazana z kraje® w którym 
będziesz aktualnie st« znajdował . 
Ola przykładu w Egipcie . szpieg 
zaproponuje ci szmaragdc *ego ska- 
rabeusza i złota statuetkę TUT , 
w oracji imitacje starożytnego 
przedmiotu t urnę grecka itd . 
Hozeez je kupować . wt4./» nacis- 
kasz klawisz v lub nie C klawisz 
n 3 . Następnie przyciskając D, 
ponownie opuszczasz robota do tu- 
nelu * kierujesz go do następnego 
miasta w caiu zdobycia kolejnych 
czesz i pienu . Przy odwiedzaniu 
miast powinna byc zachowana pew- 
na kolejność . gdyż szpiedzy naj- 
czyściej za pian be de talf* ł'i 
przedm i o* su , które kup.łms uctews- 
r.ie j . Odkrywa jec r«bka ‘a jwtti'cy. 
można powiedz.se. z« np. szpieg w 
fln; i i ■ bedne chciał « plan 
chroncgraf v Grecja *z*zregdovego 
skarabeusza czy w usa c san ■'ran- 


cisko i album z autografami Beat-* 
lescw , itd . Ze względu ne ogra- 
niczony czas gry musisz spraw- 
nie pokonywać poszczególnie etapy ■ 
jeżeli zbyt soli. idziesz zdoby-- 
wał poszczególne czcSci piano ,g 
przeciwni! może ci« cprzedziC 
i zakończysz swe wędrówka. ż tego 
samego powodu przeciwnik msze wys- 
łać satelity szpiegowskie do 
usiuitiuiima robota . Ody zostaje 
on wykryty, otrzymuje pytanie o kod 
rozpoznawcz . J«S1 ; j!; e»ie>x Zie, 
refcol zostanie ziilTUJUtsv - zna- 
»c ten kod. zmylisz satelita poda- 
jąc robota za ich mrrzy* i erce Ac* . 

R oto kody w kolejności w jakiej 
fctd» zadane przez satelity 
l i MHGMfi, L TO. 

B. IOU7S 



Plan podziennych Korytarzy. 
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j.uac sie 
jeżykami . 


K sawisza 


3. HYDRfiUt-IC 
U. RUSTRRLlfl 

KMZtc po lUMlu , uoj 2 łj ni rejon 
iłi‘.rz«2or.y. Ziujduje s>e on w r* - 



J his-sn : moi k?( ; jc?;h ■nut* 
»w okresy »*:> »isdiy rodztjt* 
iadn>». r.jsumn a>e£s? ludźmi a 
■ i e izKiScja t innych układów sł o- 
r.ecznych , *ty w czv»r tya tysiac- 
Uciu naszej’ ery doprcvadziC do 
zauarcia pokoju u całym dotychczas 
zbadanym obszarze galaktyki . oop- 
rowadziło to do eksplozji dobroby- 
tu . Ludzie z poprzednich epok rste 
tyliby o stanie iroi-j* :6C tt;o po- 
jecie aa: mc - Ze przez blisko 
łyjiłc lat nie było ;xni : ,n;c 
Mory cl rczitrzyjnitiis odbywałoby 
«<e przez va u-« zbrojne . 
OczyoiScie taka sielanka nie mogła 
trwać intcznił . Snaiazłu tt« o 
końcu ąrypa ludzi . ktsra wydosla- 
*a sie spod kontroli unii . Utwo- 
rzyli o ii : w układzie słonecznym 
aur niizaie 2 n* bazę . u tyifi semen - 
cu s teł o «ie jasna 2 « koficzy 
Sie ohr.es. spokoju . Mieszkańcy uk- 
ładu iłccecmiąo PRcęYOM . ktdreęo 
Ty jesteS frztd»t««»c:tle» wi- 
dząc z»;r«Złai« seyjsfj bytu . 
przystąpili do budowy supar «U'r’: 
moytcey . itiViC czoło fioemcunym 
na ji2ś2co». To uutcie tobie przy- 
padł zaszczyt go ptiętousc t wal- 
czyć . po załadowaniu programu wy- 
bierz kiattłsze* secect stopi er. 
trudności CDirricuLTYj od ■ do 3 . 

NłtOmliSl UCiflUłClt STCRT lub 

przycisku manipulatora uruchamia 
silnik: stuła wyrzucające go v 

przestrzeń międzyplanetarna . Od 
ł«99 »o*tnio rozpoczyna Sie Twcja 
przygada . Jak zapewne juz zauwa- 
żyłeś . Siedzisz przed pulpitem 
ster owniczye . ua dażym ekranie 


jonie Australii . idybys przypad- 
kiem wkroczył w jago obszar gra 
skończy sie z* względu na znisz- 
czenie robota . Jak Widać zabawa 


obserwujesz sytaaćje wok.cł naj- 
bliższego otoczenia statku . Powy- 
żej ekranu po lewej stronie mas-z 
aktualny wynik zdobytych ptra>.i 5 s i 
po prawej wart CSC rekordowa . Śro- 
dek to rożnego rodzaju koeentarza, 
z których najczęściej występu race 
to 

- enemy in BfiMGE cwrog w zas leguj; 

- SYSTEM MPLEUNCTION < UtdliOle 
działa system > j 

- RLLIED CITY DESTROYED £ ZnlSZ- 
czone zostało bronione miasto ł f 

- amRRiER UNDEfl RTTBCK C zaata- 
kowana bariera układu ł , 

- rtULi- temp chi t icbł t krytyczna 
issptritarł kadłuba statku i , 

- urrp ' enoines ENBRGED c niebez- 
pieczeństwo uszkodzenia tiintkOwii 

- THSJECTORY PLOTTED t Plan Układu 
słonecznego ł > 

- ENERGY LEUEL CRITICRL C krytycz- 
ny p oz i om e na rg 1 1 1 . 

Poniżej ekranu zn*jd«.«a St« ca- 
ły szereg wskaźników a etanowi- 
Ci* 

i. Sygnalizator pracy działek la- 


serowych i 

2 . sygnalizator pracy działek 
termicznych i 

3. Sygnalizator pracy działek ne- 
utronowych . 

w. uskaznik ilości amunicji ter- 
micznej , 

5. wskaźniki ostrzegawcze 
e. uskaznik poziomu energii stat- 
ku 

T. uskaznik temperatury działał 


nia jest taka prosta, ale czyz nie 
warto dowiedzieć t ie co kryje plan 
MROMR * 


laserowych 

O. urzadreme cza* owe 
S. Ekran radaru 

i e. s«*cS2C:9 foniczne z centrum 
un 1 1 , 

i t. wskaźniki informujące o aktu- 
alnej sytuacji na zewnątrz statku. 

Najprawdopodobniej za ę&vi le 
nadleć* pojazdy ze szwadronu •‘O- 
DPN-a . Poruszają v trzy 

tukanie trzema salami, ich pocis- 
ki me s« groźne , lecz potrafi* 
być dokuczliwa . Twój jed-sn ce ir.y 
strzac likwiduje pojazd przeciwni- 
ka . da j»c tes punktów premii. Je- 
żeli ud- c» 2:3 zlikwidować v*r gi- 
bkich atakujących czaka C.e 

przeprawa z następna f if • :» znacz- 
nie trudme rszych dc ŁLiS 2 :nr.i» 
trzech sta*. kOw . Kiźiy musi t-. ; 
• rai tony trzykrotni* rcctiln* 
termicznym . ca zniszczenie a t a • ku 
otrzymuj® sie sec punkt GO . in-iana 
rodzą /ti poci sk.ov wykonuje, su *u 
tomatycznis, . Ro zniszczeniu arma- 
dy nakazy odnaleźć nas* a pn* 

i zniszczyć . »td. . u ca łu prze- 
szukania układu słonecznego wcił- 


mj bpoce Otrzymasz na ekra- 

nie obraz tego ul ładu z zaznaczo- 
nymi aktualnymi pozycjami przeciw- 
nika . chcąc przenieść su w inne 
miejsce układu . należy manipula- 
torem przeciagned i im* do punktu, 
w którym chcemy « te znaieZC a 
następnie nacisnae przycisk . Pra- 
widłowe ustawieni* punktu docelo- 
wego zostanie potwierdzone przez 
powstanie otoczki uoł.Oł tego *i*j- 
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sca . *^a jszybc »• j * r»*d* «oiai 

zniszczyć . gdy prziliracza ona ba- 
rierę ochronna okładu . uystarczy 
uisdy przenitCfi «>e u io miejsce 
i cddaC jadin strzał , a armada 
przestanie istnieć , za co otrzy- 
masz 500 punktów . Na mapie układu 
Słonecznego statki KO-DAN-a zazna- 


czone s« w postaci trzech punktów, 
Ody dojdziesz do PnioŁku . Z* poz- 
byłeś Sie wojsk przeciwnika w swo- 
im układzie słonecznym . powinie- 
neś zaatakować układ słoneczny 
XUR . zasady walki w układzie 
przeciwnika sa prawie identyczne 
jak wtedy , gdy bronił*! swojego 
terenu . woźnica polega jedynie na 
tym , Ze atakować cie be da znacz- 
nie liczniejsze grupy statków. Po- 
nadto będziesz musiał mszczyc ba- 
zy przeciwnika rozmieszczone na 
Planetach układu . za zniszczenie 
bazy otrzymujesz 1000 punktów, sa- 
z« niszczy sie pociskami neutro- 


nowymi . które można wystrzelić . 
gdy przełączysz rodzaj prowadzone- 
go ognia . np. klawiszem optiom . 

u ferworze walki nie zapomnij o 
wyczerpującej *ił Ci energii . Ody 
stwierdzisz, ze posiadasz jej zbyt 
mało do prowadzenia dalszej walki, 
przenieś statek w pobliże gwiazdy 


układu , w którym si* znajdujesz . 
Nie mozesz jednak zbyt długo tam 
przebywać . po usłyszeniu sygnału 
ostrzegawczego lub wcześniej po- 
staraj sie . jak najszybciaj prze- 
nieść w mno miejsce układu . Ody 
tego nie uczynisz . TwOj statek 
spali s te i zabaw* bodziesz musiał 
rozpoczaC od nowa poprzaz jedno- 
czesne przyciśniecie klawiszy 
START 1 set-CCT . U czasie przeno- 
szenia sie otrzymujesz szereg 
mniaj lub bardziej potrzebnych in- 
formacji o miejscu . w które 
chcesz sie udać . jeżeli jest to 
Planeta , uzyskujesz jej 


- nazw* np. ko-osn 

- kod identyf ikacy *ny . np. 

ID ©CS. ust 5. U56I 

- mas* planety . np. H=5. 3E2J 9 

- promień planety, np. R«5- 6ECB cm 

- Otoczenie C £**v JROnmsnt J . np. 
umiarkowane i tchperstł 1 


- iiose miast < citxes 3 lub baz 
C 6RSES > 

- iiczbe statków rrr*civm»it c-Es- 
tpc-yers > nad planeta 

- liczbę POjazdCw bojowych C riOH- 
TERS } przeciwnika nad planetę . 

Aby zwycieZyC przeciwników z *to- 
DfiN , powinieneś nu tylko celnie 
strzelać . ale wykazać sit prze- 
biegłością t pewna doza strate- 
gicznego myślenia . Nie zawsze 
prawidłowe posuniecie musi w »?o- 
«*b zadowalającym wpływać na nas- 
tępna decyzje . A wiec walczcie 
t zwyciężajcie . 
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Nr zam. 1690. Nr. ind. 396281. 


ATARI BASIC? 

: ; It 


w przykładach 


Kontynuując nasz cykl, rozpoczęty 
w „Zeszytach programów kompute- 
rowych" nr 4 z ubiegłego roku, pre- 
zentujemy proste programy umożli- 
wiające wykorzystanie własności gra- 
ficznych komputera Atari oraz jego 
interpretera. 

Podczas działania komputera, w 
jednym z trybów graficznych — w 
odróżnieniu od trybóVv znakowych 

— mamy bezpośredni dostęp do po- 
jedynczych punktów ekranu (ele- 
mentów rastra), których wielkość za- 
leży od używanego trybu. Przejście 
do takiego trybu uzyskujemy po wy- 
konaniu instrukcji GRAPHICS z od- 
powiednią liczbą. Wykreślenie cze- 
gokolwiek na ekranie polega na „za- 
paleniu" odpowiednich punktów. 
Dlatego podstawową instrukcją grafi- 
czną jest „zapalenie" jednego ele- 
mentu rastra, położonego w miejscu 
określonym przez współrzędne, tj. 
parę liczb całkowitych (X,Y). Pierwsza 
z nich określa odległość do zadanego 
punktu w poziomie, a druga — w 
pionie. W komputerach Atari współ- 
rzędne zmieniają się od strony lewej 
ku prawej i z góry na dół. Oznacza to, 
że ekran związany jest z układem 
współrzędnych, a środek tego układu 
znajduje się w lewym górnym rogu 
ekranu. Współrzędna X — pozioma 

— przyjmuje wartości rosnące od 
strony lewej do prawej, od 0 do XM. 
Współrzędna Y — pionowa — wzra- 
sta od góry do dołu, przyjmując war- 
tości 0, 1, 2, ..., YM. Punkt położony w 
lewym górnym rogu ekranu ma 
współrzędne j, 0), punkt w prawym 
dolnym rogu — (XM, YM). 

Wielkości charakteryzujące szero- 
kość i wysokość ekranu (w jednost- 
kach elementów rastra), tj. XM i YM, 
zmieniają się od 39 do 319 (X) oraz od 
19 do 191 (Y). Im większe są wartości 
XM i YM, tym wyższa jakość wyświet- 
lanych na ekranie linii, ponieważ 
każdy punkt zajmuje mniejszy obszar 
ekranu. Komputery Atari mają kilka 
trybów działania o różnej rozdziel- 
czości, które prezentuje program nr 
34. 

W celu „zapalenia" punktu na ekra- 
nie należy podać odpowiednią ins- 
trukcję graficzną. Przedtem jednak 
należy ustawić odpowiedni tryb pracy 


(wybrać wymaganą rozdzielczość) za 
pomocą instrukcji GRAPHICS. Do-'' 
piero teraz można „zapalić" punki 
instrukcją PLOT X,Y, gdzie X i Y okreśf 
łają współrzędne punktu na ekranif*- 
W zasadzie wartości te powinny mir-ć . 
postać liczb całkowitych. Jeżeli są T,° 
liczby rzeczywiste, zostaną zaokrąfŚ* 
lone do najbliższych liczb całkowi- 
tych. Należy pamiętać, że w miejs£ e 
X i Y mogą być podstawione dowoirhe 
wyrażenia arytmetyczne. 

Jeżeli wartości X i Y przekraczaj 
graniće ekranu, komputer przekazu- 
je komunikat błędu. Aby mieć pew- 
ność, że rysunek tworzony jest w (?/a- 
nicach ekranu, należy włączyć do 
programu sprawdzenie następ' u j4‘ 
cych warunków: 

0 <= X <= XM v 

' 0 <= Y <= YM \ 

Często, po „zapaleniu" wielu 
punktów, przydatna okazuje się moż- 
liwość oczyszczenia powierzchni 
ekranu. Służy do tego instrukcja 
PRINT #6; CHR$(125). Zastosowanie 
opisanej instrukcji pokazane jest w 
programie nr 1. 

FK 1 REM **************** 

FJ 2 REM * * 

XA 3 REM * Program nr 1 * 

FL 4 REM t * 

FQ 5 REM t*M******.XM*M 
NL 6 REM 

6H 100 ? "PODAJ TRYB GRAFICZNY 
= INPUT GR 

YY 110 IF GR<3 0R GR>15 OR GR=12 
0R GR=13 THEN 100 
01 120 XM=0+40*<GR=3)+80*<GR=4 0R 
GR=5)+160*<GR=6 OR GR-14 0R G 
R=7 OR GR= 1 5 ) +3204: < GR=8 ) 

DN 125 XM=XM+80*<GR=3 0R GR=10 0R 
GR=1 1 > 

JD 130 YM«0+24*<GR=3)+48*<GR=4 0R 
GR=5)+96*<GR*6 0R GR=7>+192*< 
GR>7) 

LS 140 GRAPHICS GR+16'PGKE 705,5' 
P0KE 764 , 255 1 SETC0L0R 2,0,0 
RA 145 C0L0R 1+5*<GR=9> 

YT 150 FOR K=1 TO 100 
WZ 160 X=INT<RND<0>*XM) 

XY 170 Y* I NT < RND < 0 ) *YM ) 

TI 180 PLOT X, Y 
HD 190 NEXT K 

YK 200 IF PEEł«?64>*255 THEN 200 
ON 210 P0KE 764. 255 'GOTO 100 


Uwasa ! Litery z lewej strony 
numerów Unii nie są częścią 
prosramu, lecz sumą kontrolną 
ułatwiającą wprowadzenie proaramu 
za pomocą Edytpra BASIC' u <IKS nr 
4 z 1387 roku). Znaki, które są 
podkreślone, należy wprowadzić w 
neaatywie. Znaki wypisane drukiem 
rozszerzonym należy wprowadzić z 
wciśniętym klawiszem C0NTR0L. 


2- IKS 


Zarówno w?yni~jal< i w ^stęp^ćh 
programach, staramy się uwolnić czy- 
telników od pamiętania rozmiarów 
ekranu w różnych trybach grafi- 
cznych. Wystarczy podać numer try- 
bu, a program przypomni nam war- 
tości XM i YM oraz dopilnuje, aby w 
instrukcjach graficznych X i Y nie 
przekroczyły wartości maksymalnych. 
Jednocześnie kontrolowany jest 
numer trybu, dzięki czemu przyjmo- 
wane są tylko wartości trybów grafi- 
cznych. 



KREŚLENIE 

ODCINKÓW 

PROSTYCH 


Za pomocą instrukcji PLOT można 
wykreślić odcinek poprzez wyświet- 
lenie ciągu punktów wzdłuż prostej, 
przechodzącej przez oba jego końce. 
Wszystkie punkty prostej są niezale- 
żne, dlatego na przykład, w celu 
przedstawienia odcinka prostej pio- 
nowej, za pomocą instrukcji PLOT, 
należy zwiększać Y z krokiem 1 przy 
stałej wartości X. W programach nr 2 i 
nr 3 pokazano jak można wykreślać 
linie pionowe i poziome. Programy te 
tworzą linie ciągłe, ponieważ każdy 
zapalany element rastra jest małym 
prostokątem, dodawanym do już wy- 
świetlonego elementu. 

Kreślenie linii ukośnych jest nieco 
trudniejsze. W celu wykreślenia linii 
pochyłej należy obliczyć współrzęd- 
ne wszystkich elementów rastra po- 
łożonych na tej linii. Można to zrobić 
za pomocą wzoru: 

Y = M • X + B 

określającego zależność między Y i X 
dla linii prostej. Współczynnik M 
określa nachylenie linii i może przyj- 
mować wartości dodatnie, ujemne 
lub zerowe. Jeżeli M = 0, otrzymuje- 
my linię pionową. Współczynnik B 
równy jest wartości, którą będzie mia- 
ła współrzędna Y, jeśli przedłużymy 
linię do przecięcia z osią Y (gdzie 
X = 0). Jeśli B = 0, otrzymujemy od- 
cinek leżący na prostej, przechodzą- 
cej przez początek układu współ- 
rzędnych. 

Opierając się na instrukcji PLOT i 
powyższym równaniu, można za- 
programować ogólny algorytm kreś- 
lenia odcinków prostych. Program 
nr 3 ilustruje wykreślanie odcinków 


fk i nWT9i**Mk**!!B fl**M 

F J 2 REM * * 

XU 3 REM * Pros ram nr 2 * 

FL 4 REM * * 

FO 5 REM **************** 

ML 6 REM 

6H 10O ? "PODAJ TRYB GRAFICZNY 
'INPUT GR 

YY 110 IF GR<3 Oft GR> 15 OR GR=12 
GR GR=13 THEN 1O0 
II 120 XM«0+39*<GR®3>+79*<GR=4 OR 
GR=5>+159*<GR«6 OR GR-14 OR G 
R=7 OR GR=15)+319*<GR=8> 

HG 125 XM=XM+79*<GR*9 0P GR=10 OR 
GR-11) 

EE 130 YM=0+23*(GR=3>+47*<GR=4 OR 
GR=5>+95*<GR=6 OR GR=7>+191*< 
«®GR>7) 

UK 140 ? "XMAX=".iXMj " YMAX* " i YM 
CC 150 ? •<? "Podaj wsp. x kreśl on 
ej linii ■ INPUT X 
GS 160 X=0+X*<X>0 AND X<=XM> 

SI 170 ? "Podaj Początek i koniec 
kreślonej linii <yl,y2>".' 

1 INPUT Y1,Y2 

XH 180 Y1=0+Y1*<Y1>0 AND Yi <=YM>+ 
YM*<Y1>YM> 

AX 190 Y2=0+Y2*<Y2>0 AND Y20YMM 
YM*<Y2>YM> 

LL 200 GRAPHICS GR+16'POKE 705/5* 
POKE 764 , 255 ■ SETC0L0R 2,0,0 
GG 210 C0L0R 1+5*<GR=9> 

XS 220 FOR Y=Y1 TO Y2 
ST 230 PLOT X, Y 
ME 240 NEXT Y 

EE 250 IF PEEK <764) =255 THEN 250 
0X 260 POKE 764, 255 ‘GOTO 100 


FK 1 REM **************** 

FJ 2 REM * * 

YO 3 REM * Pros ram nr 3 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

BH 100 ? "PODAJ TRYB GRAFICZNY "> 

• INPUT GR 

YY 110 IF GR<3 OR GR>15 OR GR-12 
OR GR=13 THEN 180 
II 120 XM»0+39*<GR=3>+79*<GR=4 OR 
GR=5>+159*<GR=6 OR GR-14 OR G 
R=7 OR GR= 1 5 ) +3 1 9* ĆGR-8 ) 

HG 125 XM=XM+79*<GR=9 OR GR-10 OR 
GR-1 1 ) 

£E 130 YM»0+23*<GR=3>+47*<GR=4 OR 
GR-5 > +95* < GR-6 OR GR=7>+191*< 
GR>7) 

UK 140 ? "XMAX=";XM; " YMAX="; YM 
EV 150 ? >? "Podaj wsp. y kreśl ort 
ej linii " > < INPUT Y 
TJ 168 Y*0+Y*<V>0 AND Y <=YM ) 

IU 170 ? "Podaj początek i koniec 
kreślonej linii <x1,x2>"j» 
! INPUT XI, X2 

QG 180 X1*0+X1*<X1>0 AND X1<=XM>+ 
XM*<X1>XM) 

TW 190 X2=0+X2*<X2>0 AND X2<«Xf- + 
XM*<X2>XM) 

LL 200 GRAPHICS GR+16'P0KE 705, 5 * 
POKE 764,255 1 SETCOLOR 2,0,0 
QG 210 C0L0R 1+5*(GR«9) 

WH 220 FOR X=X1 TO X2 
SZ 230 PLOT X, Y 
LU 240 NEXT X 

EE 250 IF PEEK <764 >=255 THEN 250 
0X 260 POKE 764, 255 'GOTO 100 

po wprowadzeniu wartości współ- 
czynników M i B. Określa on przede 
wszystkim, czy zadana linia może być 
wykreślona na ekranie. Jeśli część tej 
linii wykracza poza granice ekranu, 
program nie przyjmuje parametrów i 
sygnalizuje to dźwiękiem. 

Jeśli chcemy poprowadzić odcinek 
między dwoma punktami o.zadanych 
współrzędnych, to należy określić 
współczynniki M i B dla obliczenia 
współrzędnych punktów wzdłuż pro- 


FK 

FJ 

ZI 

FL 

FO 

NL 

BH 


HG 

EE 


UK 

TP 


TV 

HA 

MO 

CG 

YI 

BN 

BP 


PI 

XZ 

GV 

ST 

BN 

BN 

SD 


ED 

DH 

EJ 

0V 

TS 

GN 


1 REM !**tó*343*Jic*P | Q P 

2 REM * *‘ 

3 REM * ProeraM nr 4 * 

4 REM * * 

5 REM **************** 

6 REM 

100 ? "PODAJ TRYB GRAFICZNY "J 
'INPUT GR 

110 IF GR<3 OR GR> 15 OR GR-12 
OR GR-13 THEN 100 
120 XM-0+39* < GR-3 ) +79* < GR-4 OR 
GR-5 > + 1 59* < GR-6 OR GR-14 ;OR G 
R=7 OR GR- 15)+319*< GR-8 ) 

125 XM=XM+79* < GR-9 OR GR-10 OR 
GR-11 > 

130 YM-0+23* < GR-3 ) +47* < GR-4 OR 
GR-5>+95*<GR-6 OR GR-7>+191*< 
GR>7> 

140 ? "XMAX»";XM;" YMAX-"jYM 
150 ? '? "PodaJ nachylenie i p 
rzesunlecie" 

160 ? "na osi y <M,B) " i > INPUT 
M,B 

170 REM Jeśli M i B sa ujemne 
180 REM to linia Jest Poza ekr 
anem 

190 IF M<0 AND B<0 THEN GOSUB 
1000 'GOTO 150 

208 REM Jeśli M Jest dodatnie 

ale B 

210 REM Jest > YMAX to linia J 

est 

220 REM poza ekranem 
230 IF M>0 AND B>YM THEN GOSUB 
1000 'GOTO 150 

240 REM Trzeba teraz znalezc p 
O czatkouy 

250 REM punkt linii. 

260 XI — 0 

270 REM Jeśli M Jest ujemne a 
linia 

280 REM przecina os y poza ekr 

anem 

290 REM to początek linii Jest 
w dole 

300 REM ekranu 

310 IF M<0. AND 6>YM THEN X1-<Y 
M-BJ/M 

320 IF X1>XM THEN GOSUB 1000'G 
OTO 150 

330 REM Jeśli M Jest dodatnie 

335 REM i linia przecina os u 
w 

336 REM punkcie ujemnym to poc 
zatek 

337 REM linii Jest w sorze ekr 
anu 

340 IF M>0 AND B<0 THEN XI— B/ 
M 

350 IF X1>XM THEN GOSUB 1000 'G 
OTO 150 


LN 400 GRAPHICS GR+16'POKE 705,5' 
POKE 764, 255 'SETCOLOR 2,6,0- 
01 416 COLOR 1+5*(GR=3) 

YB 420 FOR X=X1 TO XM'Y=M*X+B 
DM 425 IF Y<0 OR Y>YM THEN 450 
TB 43'' r '.OT X, Y 
LM ‘ N, : v 7 x 

•- f;EK<764)-255 THEN 450 
' POKE 764, 255 'GOTO 100 
i i-,03 ? CHR* < 253 > ; CHR$ < 253 ) j CHR 
f<2.53> = RETURN 

stej. Oznaczając współrzędne punk- 
tów końcowych przez (XI, YI) i 
(X2, Y2) można wyznaczyć M i B na 
podstawie następujących równań: 

M = (Y2 — Y1)/(X2 — XI) 

B = YI — M • XI 

Program kreślenia odcinków 
według powyższych równań, mógłby 
wprowadzać współrzędne punktów 
końcowych, obliczyć M i B, a następ- 
nie kreślić linię. 

Atari, podobnie jak większość sy- 
stemów mikrokomputerowych, po- 
siada instrukcję graficzną pozwalają- 
cą automatycznie prowadzić linię 


4 

między dworr^ zadanymi punktami, 
a dokładniej między punktem bieżą- 
cym i zadanym: 

DRAWTO X, Y 

Instrukcja ta informuje, że należy 
poprowadzić linię prostą od punktu 
bieżącego do punktu o współrzęd- 
nych X, Y. X i Y mogą być stałymi, 
zmiennymi lub wyrażeniami arytme- 
tycznymi. Wartości ułamkowe są za- 
okrąglane. 

Program nr 5 demonstruje użycie 
ww. instrukcji do kreślenia linii pro- 
stych między dwoma dowolnymi 
punktami. 


FK 1 REM **************** 

FJ 2 REM * * 

AC 3 REM * Proaram nr 5 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

BH 108 ? "PODRJ TRYB GRAFICZNY “ł 
• INPUT GR 

YY 110 IF GR <3 OR GR>15 OR GR=12 
OR GR=13 THEN 100 
II 120 XM=0+39* ( GR-3 > +79* < GR=4 OR 
GR-5 ) + 1 59* < GR=6 OR GR*14 OR G 
R =7 OR GR= 1 5 > +3 1 9* < GR=8 ) 

HG 125 XM=XM+79* < GR*9 OR GR-10 OR 
GR=1 1 ) 

EE 130 YM=0+23* < GR=3 ) +47* < GR=4 OR 
GR=5 > +95* ( GR=6 OR GR=7)+191*< 
GR>7> 

UK 140 ? "XMAX=" ; XM; " YMRX=" ; YM 
00 150 ? "Podaj usp. 1 Punktu <x, 
»> " ; ' INPUT XI, Y1 
NH 160 IF XI <0 OR X1>XM THEN GOSU 
B 1000 'GOTO 150 

PA 170 IF Y 1 <0 OR Y1>YM THEN GOSU 
B 100O -GOTO 150 

TA 180 ? "Podaj wsp. 2 Punktu. <x, 
a) 'INPUT X2,Y2 
OG 190 IF X2<0 OR X2>XM OR Y2<0 0 
R Y2>YM THEN GOSUB 1000 'GOTO 1 
80 

LN 400 GRAPHICS GR+16'P0KE 705,5' 
POKE 764,255 1 SETCOLOR 2,0,0 
QI 410 C0L.0R 1+5*<GR°9) 

TH 430 PLOT XI, Y1 
ZE 440 DRAWTO X2,Y2 
GI 450 IF PEEK<764>“255 THEN 450 
XJ 455 POKE 764,255 
OZ 460 POKE 764, 255 'GOTO 100 
SW 1000 ? CHR* < 253 > i CHR* ( 253 ) i CHR 
*<253)' RETURN 


FK 1 REM **************** 

FJ 2 REM * * 

RW 3 REM # Proaram nr 6 * 

FL 4 REM * * 

FO 5 REM **************** 

NL 6 REM 

EK 90 DIM X<10),Y<10> 

BH 100 ? "PODAJ TRYB GRAFICZNY "> 
-INPUT GR 

YY 110 IF GR<3 OR GR>15 OR GR*12 
OR GR-13 THEN 100 
II 120 XM‘=0+39*<GR*3)+79*<GR«=4 OR 
GR*5 ) + 1 59* < GR°6 OR GR=14 OR G 
R»7 OR GR«15)+319*<GR*8> 

HG 125 XM=XM+79*<GR»9 OR GR»10 OR 
GR*11) 

EE 130 YM=0+23* < GR*3 ) +47* < GR“4 OR 
GR=5)+95*<GR°6 OR GR-7>+191*< 
GR>7> 

UK 140 ? "XMRX»"jXMj" YMAX*";YM 
NV 150 ? '? "PodaJ ilosc roaow wi 
e lokata INPUT N 

DJ 160 FOR 1-1 TO N 
IJ 170 ? "Punkt " j I ; " <x, *>*">' IN 
PUT X, Y 

EW 180 IF X<0 OR Y<0 OR X>XM OR Y 
>YM THEN GOSUB 1000 'GOTO 170 
KL 190 X(I)=X'Ya)*=Y 
FS 200 NEXT I 


DI 400 GRAPHICS GR+16.'REM POKE 70 
5, 5 'POKE 764, 255 -SETCOLOR 2,0, 
0 

XO 410 COLOR 1 
XK 420 PLOT X<1>,Y’(1> 

BW 430 FOR K=1 TO N' DRAWTO X<K),Y 
<K> ‘ NEXT K 

OS 440 DRAWTO X<1>,Y<1> 

RT 445 GOSUB 2000 

GI 450 IF PEEK<764>=255 THEN 430 

LV 460 GOTO 100 

SW 1090 ? CHR* <253); CHR* <253); CHR 
*< 253 > -RETURN 

AS 2800 IF GR<8 OR GR>13 THEN T-4 
' R— 0 

QG 2010 IF GR=8 THEN T»2'R°1 
EY 2020 IF GR“9 OR GR«11 THEN 220 
0 

0Q 2030 IF GR-10 THEN T— 4-R«-3 
HO 2100 FOR I*0 TO 255 STEP 2 
EP 2110 POKE 700+R, I 
IE 2120 FOR J*9 TO 253 STEP 2 
GQ 2130 POKE 708+T , J 
VX 2140 IF PEEK<764>-253 THEN 214 
0 

GJ 2150 POKE 764,253 
FV 2160 NEXT J 
FN 2170 NEXT I 
BA 2160 RETURN 

DB 2190 REM ZMIANA KOLOROW DLA TR 
YBOW 9,11 

FW 2200 FOR 1=0 TO 15 
JF 2210 SETCOLOR 4,I,0>IF GR=1 1 T 
HEN SETCOLOR 4,8,1 
GM 2220 FOR J=0 TO 15 
JX 2238 COLOR J 
MK 2240 PLOT X<1),Y<1) 

WU 2250 FOR K=2 TO N- DRAWTO X<K), 
Y<K) - NEXT K 

JK 2260 DRAWTO X<1),Y<1) 

CE 2280 IF PEEK<764>=255 THEN 228 
O 

GX 2296 POKE 764,255 
FH 2300 NEXT J 
EZ 2310 NEXT I 
AM 2320 RETURN 

Rozkazy wyświetlania punktów i 
kreślenia linii są podstawowymi środ- 
kami tworzenia rysunków. Za ich 
pomocą można kreślić kontury do- 
wolnych przedmiotów. Jakość rysun- 
ków można poprawić za pomocą ko- 
loru. Rysunki wielobarwne są wy- 
godniejsze w odbiorze. Staną się one 
bardziej przejrzyste, jeśli poszcze- 
gólne obiekty lub strefy zabarwimy 
różnymi kolorami. Pozwala to skupić 
uwagę na najważniejszych elemen- 
tach obrazu. 


KOLORY 



Komputer Atari może wytworzyć 
16 jaskrawości 16 kolorów. Pozwala to 
na wybór jednej z 256 możliwości. 
Kody używanych kolorów przecho* 
wywane są w komórkach (rejestrach 
kolorów) o adresach 704 do 712. 
Cztery pierwsze rejestry używane są 
do określania kolorów graczy i pocis- 
ków. Pięć następnych określa kolory 


ramki, tła i kreślonych linii. Po włą- 
czeniu zasilania w rejestrach tych 
ustawione są następujące wartości 
domyślne: 

Adres Wartość Kolor 


708 

40 

pomarańczowy 

709 

202 

jasnozielony 

710 

148 

dark blue 

711 

70 

czerwony 

712 

0 

czarny 

Zawartość 

rejestrów kolorów 


możemy zmienić instrukcją POKE al- 
bo SETCOLOR. Ta ostatnia ma trzy 
parametry: numer zmienianego re- 
jestru (który zawsze odpowiada jed- 
nej z powyższyth komórek), wybrany 
kolor (liczba od zera do piętnastu) i 
jego jaskrawość (liczba od zera do 
piętnastu). Zmiana koloru lub jaskra- 
wości tła widoczna jest bezpośrednio 
po wykonaniu instrukcji SETCOLOR. 
Zmiana zawartości jednego z rejest- 
rów kolorów pierwszoplanowych 
będzie widoczna tylko wtedy, gdy 
zmieniany rejestr używany już był 
do kreślenia. 

Przed użyciem instrukcji PLOT lub 
DRAWTO musimy określić, który re- 
jestr koloru będzie używany. Służy do 
tego instrukcja COLOR. Nie należy 
jej mylić z SETCOLOR. W pewnych 
trybach graficznych dostępnych jest 
kilka rejestrów kolorów pierwszopla- 
nowych. Instrukcja COLOR wybiera 
jeden z dostępnych rejestrów. Na 
przykład, w trybie graficznym 7 moż- 
liwe jest kreślenie rysunku w trzech 
kolorach pierwszoplanowych. Ins- 
trukcja COLOR określa, który z rejes- 
trów ma być zastosowany podczas 
kreślenia punktów lub linii. 

Wyrażenie numeryczne po termi- 
nie COLOR wybiera często różne re- 
jestry koloru, w zależności od 
aktualnego trybu graficznego. Regułą 
jest, że COLOR 0 zawsze wybiera re- 
jestr koloru tła, a COLOR 1 — rejestr 
koloru pierwszoplanowego. 

Kłopotliwy jest fakt, że liczba w ins- 
trukcji COLOR nie odpowiada nume- 
rowi rejestru w SETCOLOR. W do- 
datku ma ona różne wartości dla róż- 
nych trybów graficznych. 

Musimy także pamiętać o poprze- 
dzeniu instrukcji PLOT lub DRAWTO 
instrukcją COLOR. 

Przykłady używania instrukcji 
PLOT, DRAWTO i COLOR występują 
w kolejnych programach. Program nr 
6 kreśli dowolny wielobok. Współ- 
rzędne wierzchołków wprowadzane 
są w kolejności ich łączenia i zapa- 
miętywane w tablicach X i Y. Następ- 
nie program tworzy wielokąt, kreśląc 
linie od punktu X(1), Y(1) do X(2), 
Y(2), itd. Naciskając dowolny klawisz 
możemy zmieniać kolor rysunku. 

Program nr 7 jest ilustracją sposobu 
tworzenia kolorowych obszarów. Na- 
stępuje to poprzez kreślenie linii le- 


a-iics 


FK l >f kEH **************** 

FJ 2 REM * * 

BQ 3 REM * Program nr 7 * 

FL 4 REM * * 

FO 5 REM **************** 

NL G REM 

EK 30 DIM X<10>/Y<10) 

BH 100 ? "PODAJ TRYB GRAFICZNY 
1 INPUT GR 

YY 110 IF GR<3 OR GR>15 OR GR*12 
OR GR*13 THEN 100 
II 120 XM=0+39# < GR=3 > +79* ( GR*4 OR 
GR=5)+159*<GR=6 OR GR«14 OR G 
R -7 OR GR»15>+319*<GR=8) 

HG 125 XM=XM+73*<GR=9 OR GR=10 OR 
GR=11> 

EE 130 YM*»0+23# < GR»3 ) +47* < GR“4 OR 
GR=5)+95*<GR«6 OR GR=?>+191*< 
GR>7> 

UK 140 ? "XMAX"";XMj " YMAX»" lYM 
VB 150 ? " PODAJ WSPÓŁRZĘDNE LEW 
EGO GORNEGO ROGU PROSTOKA 

TA <X/Y> "j‘ 

JR 160 INPUT XI ,Y1 
VY 170 IF XI <0 OR Y1<0 OR X1>XM O 
R Y1>YM THEN GOSUB 1 000 ! GOTO 1 
50 

FV 160 ? " PODAJ WSPÓŁRZĘDNE PRA 
WEGO DOLNEGO ROGU PROSTOKA 

TA <X/Y) 

KY 190 INPUT X2/Y2 
FT 200 IF X2<0 OR Y2<0 OR X2>XM O 
R Y2> YM THEN GOSUB 1000 ‘GOTO 1 
60 

YD 210 ? "PODAJ KOLOR TLA I RYSUN 
KU <T,R> "j 
AF 220 INPUT T/R 

UA 230 IF T <0 OR R<0 OR T>15 OR R 
>15 THEN GOSUB 1000 'GOTO 210 
RY 400 GRAPHICS GR+16 
HL 410 IF GR<8 OR GR>13 THEN SETC 
OLOR 4/ T/0> SETCOLOR 0/R,10'COL 
OR 1 

TP 420 IF GR=8 THEN SETCOLOR 2/T/ 
0‘ SETCOLOR l/R/ 10 'COLOR 1 
MS 430 IF GR-9 THEN SETCOLOR 4/T/ 
0‘COLOR R 

YL 440 IF GR°10 THEN POKE 704/ T*1 
6'POKE 705,R*16+10‘COLOR 1 
LP 450 IF GR-11 THEN SETCOLOR 4/0 
/ T ‘COLOR R 

YC 460 FOR Y-Yl TO Y2 
LT 470 PLOT X1/Y-DRAWT0 X2/Y 
MO 480 NEXT Y 

KY 490 IF PEEK<764>=255 THEN 490 
XR 495 POKE 764/255 
LK 500 GOTO 100 

SW 1000 ? CHR*<253);CHR*<253)jCHR 
f <253 > 'RETURN 


FK 1 REM **************** 
FJ 2 REM * * 

CK 3 REM * Proaram nr 8 * 
FL 4 REM * * 

FO 5 REM **************** 
NL 6 REM 

PC 10 GRAPHICS 7 
YU 20 COLOR 1 
JC 30 PLOT 70/40 
AE 40 SETCOLOR 2/0/0 
ZM 50 DRAWTO 35/0 
Z8 60 DRAWTO 34/0 
Al 70 POSITION 0/40 
HV 80 POKE 765,1 
AY 30 XIQ 18/ #6, 0/ 0/ "S ■ " 
NQ 100 END 


żących obok siebie. Prostokątny ob- 
szar ekranu określany jest współ- 
rzędnymi przeciwległych wierzchoł- 
ków. 

Pewne komputery, w tym i Atari, 
posiadają specjalną instrukcję do 
zamalowywania obszarów ekranu. 
Nie jest to instrukcja języka BASIC, 
lecz specjalny rozkaz dla systemu 
operacyjnego, zwany instrukcją XIO. 


Jej zdstofeowahitH-rustriijd 1 program nr 
8 . 

Linie 80 i 90 dotyczą użycia instruk- 
cji XIO. POKE w linii 80 używa tej sa- 
mej liczby co COLOR. Kolor wypeł- 
niania odpowiada instrukcji SETCO- 
LOR, jak dla punktu lub linii na ekra- 
nie. Instrukcja XIO w linii 90 zawsze 
będzie miała tę samą postać. Należy 
stosować ją dokładnie tak, jak poka- 
zano w przykładzie. 

XIO Fili przeznaczona jest do wy- 
pełniania figur czworobocznych. Po 
uruchomieniu tego przykładu zoba- 
czymy jednak trójkąt. Powyższa ins- 
trukcja będzie działać w oczekiwany 
sposób, jeśli wykonamy następujące 
czynności: 

1. Użyjemy instrukcji PLOT do „zapa- 
lenia" punktu w prawym dolnym 
rogu figury. 

2. Użyjemy DRAWTO do wykreśle- 
nia linii do prawego górnego rogu. 

3. Wykreślimy linię do lewego gór- 
nego rogu. 

4. Użyjemy instrukcji POSITION do 
przesunięcia kursora w prawy dol- 
ny róg. 

5. Użyjemy instrukcji POKE do umie- 
szczenia liczby (równej tej, która 
jest używana w instrukcji COLOR 
do kreślenia) w komórce o adresie 
765. 

6. Wykonamy XIO 18,#6,0,0,„S:". 
Instrukcje te muszą być wykony 

wane w określonej kolejności. XIO 
działa w sposób niemożliwy do prze- 
widzenia, jeśli kolejność pierwszych 
pięciu czynności zostanie naruszona. 
XIO ma również inne ograniczenia. 
Wypełnia obszar tylko od lewej stro- 
ny do prawej. Napotkanie przez kur- 
sor podświetlonego punktu nie 
wypełnia figury w tej linii. Jeśli zdefi- 
niowana figura rozpoczyna się w 
prawym dolnym rogu, rozkaz wypeł- 
nienia realizowany jest od góry figu- 
ry: jeśli natomiast rozpoczyna się w 
prawym górnym rogu, operacja wy- 
pełniania rozpocznie się od dołu fi- 
gury. 

Kolorowe obszary można również 
uzyskać kreśląc linie poziome, pio- 
nowe lub ukośne. Dla otrzymania 
specjalnych efektów można zmieniać 
położenie wykreślonych linii wzglę- 
dem siebie i ich kolor. Można rów- 
nież uzyskać obszar kreskowany, 
prowadząc na przykład tylko co dru- 
gą lub co trzecią linię. Można także 
prowadzić linie w dwóch kierunkach. 
Zmieniając krok. kreskowania można 
otrzymać płynne przejście od obrazu 
ciemnego do jasnego lub odwrotnie. 
Krok kreskowania może być zmie- 
niany stopniowo, z przyrostem 1 lub 
2, albo szybciej, poprzez podwojenie 
wartości linii. 

Przykładem interesującego bar- 
wienia obszaru ekranu jest program 


V 

y^bgirn 

FJ 2 REM * •••:•*? l -UH ■ 

DE 3 REM * Proar-aw nr 9 * 

FL 4 REM * * 

F0 5 REM **************** 

ML 6 REM 

UM 100 GRAPHICS 10 
MX 105 FOR 1=1 TO 8 ‘POKE 704+1/ I* 
16+<I-1>*2'NEXT I 


EW 

110 

FOR X*0 TO 79 


LH 

120 

C=INT<RND<0>*8>+1 


FF 

130 

COLOR C 


DH 

140 

PLOT 40 ,96 ‘DRAWTO 

X,0 

LV 

150 

NEXT X 


JV 

160 

FOR Y=0 TO 131 


TJ 

170 

C=INT<RND<0>*8)+1 

‘COLOR C 

TO 

180 

PLOT 40/ 36 ‘DRAWTO 

79/ Y 

MN 

130 

NEXT Y 


AX 

200 

FOR X=73 TO 0 STEP -1 

LG 

210 

C*INT<RND<0>*8>+1 


FE 

220 

COLOR C 


IC 

230 

PLOT 40/ 96 ‘DRAWTO 

X/ 191 

LU 

240 

NEXT X 


AK 

250 

FOR Y-131 TO 0 STEP -1 

LG 

260 

C=INT<RND<0>*8)+1 


'FO 

270 

COLOR C 


HR 

280 

PLOT 40, 96 ‘DRAWTO 

0/Y 

MO 

230 

NEXT Y 


ZM 

300 

IF PEEK<764>=255 THEN 300 

WL 

310 

POKE 764/255 


HD 

399 

REM CYKLICZNA ZMIANA KOLOR 


OW 



TZ 

400 

A=PEEK<705> ‘FOR 1= 

=705 TO 7 


12 ‘POKE I/F’EEK<I+1> <NEXT I<POK 
E 712, A 

AQ 410 IF PEEK(764>=255 THEN 400 
PP 420 POKE 764, 255 ‘GOTO 110 


nr 9, który umożliwia otrzymanie ko- 
lorowego wzoru (po wykreśleniu ra- 
I dzimy nacisnąć dowolny klawisz). 
I Wykorzystano w nim tylko instrukcje 
; kreślenia linii, wybierania koloru i 
generowania liczb losowych. 

Rysunki mogą być również two- 
rzone w trybie dialogowym. Współ- 
działanie z programem może odby- 
wać się za pomocą klawiatury, mani- 
pulatora, pióra świetlnego lub tab- 
liczki graficznej. Program nr 10 kreśli 
punkty w kierunku określonym za 
pomocą klawiatury. Dialogowy spo- 
sób tworzenia rysunków za pomocą 
odcinków linii prostych ilustruje pro- 
gram nr 11. 

Otrzymane na ekranie rysunki wy- 
magają często pewnych opisów. Pod- 
czas korzystania z programów może 
okazać się konieczne wprowadzenie 
lub wyprowadzenie pewnych infor- 
macji. Wykorzystanie całego ekranu 
na rysunek powoduje, w razie wystą- 
pienia instrukcji INPUT, PRINT lub 
komunikatu błędu, wykasowanie ekra- 
nu i przejście do trybu 0. Dla uni- 
knięcia takich nieoczekiwanych sy- 
tuacji wskazane jest użycie rozszcze- 
pionego ekranu, na którym (w róż- 
nych trybach graficznych), dysponu- 
jemy czterema liniami u dołu ekranu 
w trybie graficznym 0. Jest to tak 
zwane okno tekstowe, które otrzy- 
mujemy bezpośrednio po podaniu 
numeru trybu. W celu wyeliminowa- 
nia okna tekstowego, dla uzyskania 
dodatkowych linii na rysunek, doda- 
jemy liczbę 16 po wyrażeniu GRA- 
PHICS. Poprzednie dodanie liczby 32 
eliminujemy automatyczne czyszcze- 


XKS~5 


atao eiiis flx 

Q0 1 REM *****************< 
tp O PPM £ * 

MQ 3 REM * Pro* f hm nr 10 * 

ID 4 REM * * 

QS 5 REM ***************** 

NL G REM 

QJ 70 GRAPHICS 0'POKE 752/ 1<? 

JN 60 ? •? " Pro*r*m ten umoz 
liwi*" 

KN 90 ? " kr#*l*nlt doAolntio rv 
tunku" 

OB 100 ? " przy pomoc* kUwitz* s 
trzHlek. " 

HO 110 ? '? CHR*<27);CHR*<156),"r 
**ow*nt» do toni" 

FO 120 ? CHR*<27> ; CHR*<157) , "raso 
w*nle do dołu" 

MH 130 ? CHR*<27>;CHR*<158),"r*&o 
waru* u lewo" 

UJ 140 ? CHR*<27);CHR*<159>,' r*ao 
wznie w prawo" 

ET 150 ? •? /"podanie współrzędny 
oh" 

UU 160 ? " RETURN "/"punktu/ od kto 
re«o" 

IV 170 ? /"zaczynamy kreślenie." 
DI ł KLRNISZ " ’ MflCISN J J DOWOLNI 
YN 190 IF PEEK<755)»2 THEN POKE 7 
55/0 

PF 200 FOR 1-0 TO 1 20 1 NEXT I 
ZE 210 IF P£EK<755>*0 THEN POKE 7 
55/2 

PW 215 FOR 1-0 TO 120 NEXT I 
HF 220 IF PEEK<764)»255 THEN 190 
UU 230 GRRPHICS 15‘C0L0R 1 
NT 240 POKE 764, 255 -POKE 752/1'? 
CHR*< 125); "PodaJ współrzędne X 
,Y 1 INPUT X/Y 
XF 245 GRRPHICS 15+16+32 
LF 250 TRRP 400 
JJ 260 PLOT X, Y ■ POKE 764,255 
GI 270 A«PEEK<764) 1 IF A-255 THEN 
270 

BS 280 X-X+l*<A-7)-l*<A“6) 

NP 290 Y-Y+1*<A-15)-1*<A«14) 

XH 300 IF fl«12 THEN GRRPHICS 15+3 
2 'GOTO 240 
01 310 GOTO 260 

TL 400 X«X*<X>«0 RND X<160)+0*<X* 
0)+159*(X> 159) 

PO 410 Y-Y*<Y>»0 RND Y<192)+0*<Y< 
0)+l91*(Y> 191 > 

Ofl 420 GOTO 250 


Q0 1 REM ***************** 

IB 2 REM * * 

NL 3 REM * Prot ram nr 11 * 

ID 4 REM * * 

GS 5 REM ***************** 

NL 6 REM 

WF 80 DIM XI <20) / Y1 <20>/X2<20) / Y2 
<20),C<20),fi$<l> 

Rfi 120 XM-159‘ YM-191 
KD 138 T-1'REM T-ilósc linii 
VI 140 X=80'Y“96'S-1 
LB 150 GRAPHICS 15 'POKE 752,1 
GU 160 GOSUB 1000 
UV 170 XKT)»X'Y1<T)*Y 
QX 270 GOSUB 1000 
VS 280 X2<T)-X'Y2<T)-Y 
MG 350 ? CHR*< 125); "Poda) kolor l 
inii <1-3)"; -POKE 764,255= INPU 
T S 

WS 370 S-l +<S-1 )*<S>0 RND S<4) 

WO 480 C<T)»S 
VP 410 GOSUB 570 

HW 430 ? CHR*< 125); "Wykreślić czy 
skasować ostatnia linie <W lu 


b S)" 

HW 440 INPUT A*'? CHR*<125) 

LT 450 IF A* O "W" RND A*<>"S" THE 
N 430 

RT 460 IF A* O "W" THEN 530 
GI 470 REM WYKREŚLIĆ LINIE 
W 480 T-T+l 
OP 490 GOTO 160 
WC 530 T-T-l 
■VW 540 GOSUB 570 
VQ 550 T-T+l 
OK 560 GOTO 168 


NR 570 REW i#tSL$fll RYbUNKU 
LC 580 GRRPHICS 45 -TRAP 40000 =P0K 
E 752/1 

ID 590 FOR K-l TO T 
FE. 600 COLOR C<K) 

PW 610 PLOT X1<K),Y1<K) 'DRAWTO X2 
<K> , Y2<K) 

GU 620 NEXT K 
HS 630 S-l 
ZK 640 RETURN 

GG 1000 TRRP 2000 ‘COLOR S'PLOT X, 
Y 1 POKE 764/255 

FN 1010 fl*PEEK<764> ■ IF R-255 THEN 
1010 

UY 1020 X1-X+1*<A*7)-1*<A=»6) 

OF 1030 Y 1 -Y+ 1*<A-15)-1*<A=14) 

IJX 1048 ? CHR*< 125) ; "X- "i XI;" 

", "Y- " ; Y 1 ; " 

WG 1050 IF A* 12 THEN RETURN 
NT 1060 COLOR 0 ' PLOT X,Y'X*X1'Y-Y 
1 > GOTO 1000 

KR 200O X-X*<X>=0 RND X<160)+0*<X 
<0)+159*<X> 159) 

GH 2010 Y-Y*<Y>-0 RND Y<192)+0*<Y 
<0)+191*<Y> 191 ) 

MV 2020 GOTO 1000 1 


nie ekranu, wykonywane normalnie 
przez instrukcję GRAPHICS. 

W celu połączenia opcji grafiki 
pełnoekranowej z zaletą zachowania 
poprzedniej zawartości ekranu, mu- 
simy dodać 48 do żądanego trybu gra- 
ficznego. Interesującym zastosowa- 
niem tej możliwości jest selektywne 
otwieranie i zamykanie okna teksto- 
wego w określonym punkcie pro- 
gramu. Demonstruje to program nr 
12 . 

GO 1 REM ***************** 

IB 2 REM * * 

OG 3 REM * Prot ram nr 12 *• 

ID 4 REM * * 

GS 5 REM ***************** 

NL 6 REM 

WN 10 GRRPHICS 8+16 'REM GRAFIKA P 
ELNOEKRfiNOWA 
TW 20 COLOR 1 1 PLOT 0,0 
UT 30 DRRWTO 319, 191 ' REM KREŚLENI 
E PRZEKĄTNEJ 

BL 40 FOR W-l TO 200-NEXT W 
KW 50 GRAPHICS 8+32 'REM OTWARCIE 
OKNA TEKSTOWEGO 
QX 60 ? CHRf <125) i "PRZEKĄTNĄ" 

BO 70 FOR W-l TO 200=NEXT W 
YC 80 GRRPHICS 8+48 'REM 2JRMKNIECI 
( E OKNA TEKSTOWEGO 
SR 90 GOTO 40 


Oprócz wykorzystania okna tek- 
stowego nie mamy możliwości bez- 
pośredniego umieszczenia tekstu na 
rysunku. Dosyć łatwo można to zrea- 
lizować dla trybów dwukolorowych, 
tzn. 4, 6, 8 i 14. 


Odwzorowanie bitowe zestawu 
znaków rezyduje w obszarze pamię- 
ci. Komórka o adresie 756 zawiera 
adres strony pamięci, od której za 
czyna się ten obszar. Każdy znak zde- 
finiowany jest w ośmiobitowych se- 
gmentach. Taka bitowa reprezentacja 
znaku może być przesyłana, bajt po 
bajcie, do wcześniej określonego ob- 
szaru pamięci ekranu. Technikę tę 
ilustruje program nr 13. 

Zmienne X i Y powinny zawierać 
numery kolumny i wiersza, na prze- 
cięciu których rozpocznie się wyświet- 


qÓ l REM ***************** 

IB 2 REM * * 

PB 3 REM * Pro«raw nr 13 * 

ID 4 REM * * 

GS 5 REM ***************** 

NL 6 REM 

ED 10 DIM TEKST* < 64) 

QX 20 GRRPHICS 0'POSITION 5,5'? " 
PODAJ TRYB' "i 'INPUT TRYB 'GRAP 
HI CS TRYB 

PE 25 ? "PodaJ położenie <X,Y> i 
tekftt' " 

FI 30 INPUT X,Y, TEKST* 

MR 50 GOSUB 2000 
SF 60 GOTO 30 

EV. 1995 REM PODPROGRAM KONWERSJI 
TEKSTU 

RS 2000 SA-PEEK<89)*256+PEEK<88> ' 
REM GÓRA PAMIĘCI EKRANU 
DU 2010 TRYB“PEEK<87) 'REM OKRESLE 
NIE TRYBU GRAFICZNEGO 
NH 2020 IF TRYB-8 THEN KOL=40'WIE 
R-192 

BI 2030 IF TRYB-6 THEN KOb*20'WIE 
R-96 

NX 2040 IF TRYB-4 THEN KOL“10'WIE 
R-24 

IE 2050 IF Y>WIER OR X>K0L THEN R 
ETURN 

LX 2060 START -SA+Y*K0L+X 1 REM ADRE 
S POCZĄTKOWY DLA WYŚWIETLANIA 
OL 2070 FOR El-1 TO LEN < TEKST*) 

YU 2080 GOSUB 2200 
VN 2085 REM ODCZYT ADRESU ZESTAWU 
ZNAKÓW 

KL 2090 ZNAK I-PEEK< 756) *256 
0V 2100 ZNAKI -ZNAK I+E3*8 
WM 2110 FOR E2-7 TO 0 STEP -1 
CI 2120 POKE START +E2*KQL , PEEK < ZN 
AKI+E2) 

AL 2130 NEXT E2 
SU 2140 X«X+1 

BK 2145 IF X>»K0L THEN START-STAR 
T+K0L*8 ' X=0 ' REM PRZEJŚCIE DO N 
ASTEPNEJ LINII 
HZ 2150 START-START+1 
Al 2160 NEXT El 
AX 2170 RETURN 

TP 2195 REM PROCEDURA KONWERSJI A 
TASCI I 

TR 2200 E3«ASC<TEKST*<E1,E1>> 

I P 2210 IF <E3<E2) OR <E3>127 AND 
E3<160) THEN E3-E3+64 = RETURN 
DQ 2220 IF E3>31 AND E3<96 THEN E 
3-E3-32 

AN 2230 RETURN 

lanie tekstu (kolumna we współrzęd- 
nych tekstowych, a wiersz w grafi- 
cznych). Zmienna TXT$ może mieć 
dowolną wielkość. 

Linie 2000—2060 określają używany 
tryb graficzny, ustalają szerokość 
ekranu dla tekstu i wyznaczają po- 
czątkowy adres pamięci dla umie- 
szczenia tekstu. Podprogram w li- 
niach 2200—2230 przekształca kod 
znaku każdej litery umieszczonej w 
TXT$ na przesunięcie, to jest liczbę 
bajtów od początku tablicy zestawu 
znaków do binarnej definicji bieżą- 
cego znaku. 

Linie 2100—2130 przesyłają bitową 
definicję znaku (8 bajtów) do odpo- 
wiedniego obszaru ekranu. Linia 2140 
przesuwa tekst do następnej linii, jeśli 
następny znak nie mieści się w tej li- 
nii. 

Zmienna- tekstowa TXT$ przecho- 
wuje tekst do wyświetlania, a zmien- 
ne X i Y przechowują współrzędne 
kolumny i wiersza pierwszej wyświet- 
lanej litery. Współrzędne kolumny 
mogą zmieniać się od 0 do liczby ko- 
lumn dostępnych w bieżącym trybie. 
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W trybie 4 ekran pomieści poziomo 
10 znaków; w trybie 6 — 20 znaków, a 
w trybie 8 — 40 znaków. Numer wier- 
sza może zmieniać się od 0 do ma- 
ksymalnej liczby wierszy dostępnych 
w używanym trybie graficznym. Napi- 
sy w pionie możemy zatem umie- 
szczać dosyć elastycznie. 

Czas realizacji podprogramu jest 
dosyć długi, ponieważ zastosowano 
w nim instrukcje PEEK i POKE. Moż- 
liwe jest jednak przyspieszenie prze- 
syłania danych z tablicy zestawu zna- 
ków do obszaru pamięci ekranu 
przez napisanie programu, w języku 
asemblera, do konwersji danych o 
znaku. 

Za pomocą przedstawionego 
podprogramu można wyświetlać du- 
że i małe litery oraz inne znaki grafi- 
czne. Nie przewidziano natomiast 
znaków w negatywie. 

Kolejny, program nr 14, jest proce- 
durą w języku maszynowym, prze- 
znaczoną do kopiowania wzorów 
znaków do obszaru pamięci ekranu. 
Realizuje on podobne zadania jak 
poprzedni, lecz nieco szybciej. Doty- 

00 1 REM XXXXXXXXXXXXXXXXX 
IB 2 REM X X 

PU 3 REM X Prot r*« nr 14 X 
ID 4 REM X X 

QS 5 REM XXXXXXXXXXXXXXXXX 
NL 6 REM 

QI 100 G0SUB 1000 
ME 102 TRAP 103 

BE 105 GRAPHICS 0'POSITION 2,8 
ND 110 ? "Podaj tr*b'"> < INPUT TRY 
B 

BA 120 GRAPHICS TRYB 
LG 125 TRAP 130 

EK 130 ? "PodaJ w»POlrz#d««M " j • I 
NPUT K,U 

LL 140 ? "PodaJ tekst* "i* INPUT 0 

X 

UG 150 G0SUB 900 
MD 160 GOTO 110 

LQ 980 Q*USR<ADR<ZX),K,W,ADR<QX>, 
LEN(QX>) 

ZH 910 RETURN 
RR 1008 REM PROCEDURA 
VU 1001 REM Q"USR < ADR ( ZX ) , K , M , ADR 
<QX),LEN<Q»>> 

IC 1002 T«0 DIM ZX< 169) , QX<48) 

ZL 1004 REST0RE 11 20 'FOR T-l TO 1 
68-READ Q'Z*<LEN<Z#)+1>«CHRX<Q 
) 1 NEXT T 

JZ 1120 DATA 104.201,4,240,9,170, 

240.5.104. 104.202.208.251.96.1 
04, 133,215, 104, 133,214, 104, 104 
,168,104,133 

SY 1130 DATA 217, 104, 133,216, 104, 
104,240,236, 133, 212. 24;i65, 214 
, 101,88, 133,214, 165,89, 101,215 
,133,215,152,240,15 
AA 1140 DATA 165.214,105,64,133,2 

14.165.215.105.1.133.215.136.2 

08.241.132.221.160.0. 132.220. 1 

77.216.160.0. 170 

CD 1150 DATA 16,1,136,132,213,138 
,41,96,208,4,169,64,16,14,201, 

32.208.4.169.0. 16.6.201.64.208 

,2 

MU 1160 DATA 169,32,133,218,138,4 

1.31.5.218.133.218.169.0. 162.3 
,6,218,42,202, 208, 250, 109, 244, 
2,133,219 

CH 1170 DATA 164,221,177,218,69,2 
13, 164,220, 145,214,200, 132,220 
, 196,212,208, 182,24, 165,214, 10 

5.40.133.214.144.2 

CX 1180 DATA 230,215,230,221,169, 
8,197,221,208, 159,96,207,96 
BC 1190 RETURN 


czy również trybów dwukolorowych 
(tj. 4, 6, 8 i 14). 

Jak każda procedura w języku ma- 
szynowym, ta również — zanim zos- 
tanie użyta — wymaga umieszczenia 
kodów rozkazów w odpowiednim 
obszarze pamięci. Jest ona szczegól- 
nie interesująca, ponieważ można ją 
przemieszczać. Może byr zatem 
umieszczona w dowolnym obszarze 
pamięci, w tym wypadku w zmien- 
nej tekstowej Z$. Dzięki temu nie zaj- 
muje strony 6 pamięci, która może 
być wykorzystana do innych celów. 

Procedura ta wymaga podania na- 
stępujących parametrów: współrzęd- 
nych X i Y pierwszej litery tekstu, na- 
zwy zmiennej zawierającej tekst do 
wprowadzenia oraz długości tekstu w 
znakach. Wywołanie jej ma następu- 
jącą postać: 

a = USR(ADR(Z$),X,Y,ADR(Q$),LEN(Q$)) 

Współrzędne X i Y wyrażone sąt w 
kolumnach i wierszach tekstu (jak dla 
trybów 0, 1 lub 2), zmienna Z$ zawie- 
ra procedurę wyprowadzania, a 
zmienna Q$ — wyprowadzany tekst. 
Najlepiej działa w trybie graficznym 
8. Umożliwia wyświetlanie wszystkich 
znaków. 


Interesujące rozwiązanie zaprezen- 
towaliśmy w programie nr 15' za- 
czerpniętym z książki „Atari BASIC". 
Jest to w rzeczywistości „driver" 
urządzenia o nazwie T. Umożliwia on 
wyprowadzenie tekstu na ekran w 
dowolnym trybie graficznym (z wy- 
jątkiem tekstowych), w podobny spo- 
sób jak na urządzenie zewnętrzne, za 
pomocą PRINT #3. 


00 1 REM XXXXXXXXXXXXXXXXX 
IB 2 REM X X 

GR 3 REM X Prot ran nr 15 X 
ID 4 REM X X 

QS 5 REM XXXXXXXXXXXXXXXXX 
NL 6 REM 

TI 100 G0SUB 31000 
YN 110 GRAPHICS 0‘POSITION 3,5 
BB 115 ? •? "Sposob użycia Jest n 
astapuJac* 1 " 

DT 120 ? '? "PRINT #3; ";CHRX<34>; 
"TEKST" >CHR$< 34 

VT 130 ? «? "Podaj tryb iraficzn* 
' "/ ■ INPUT TRYB 
BE 140 GRAPHICS TRYB 
BN 150 ? "Teraz aprobuj drukować 1 

TT 160 STOP 

NP 31008 REM DANE DRIVER'A 
CR 31010 RESTORE 31 100 TDEVICE-1 ■ 
PRUEF*0 

GL 31020 FOR I-1536 TO . 1536+255 
SL 31030 RE AD BYTE PRUEF-BYTE+PRU 
EF 

XE 31040 POKE I .BYTE 
HC 31045 NEXT I 

ZH 31050 BYTE-USR< 1536) 'POKE 765, 
1 

FI 31090 0PEN 43,4,0, "T'" 

LN 31095 IF PRUEF“28449 THEN RETU 
RN 

LP 31100 DATA 104,162,0,189,26,3, 

240, 12,201,84,240,23,232,232,2 
32,224 

RE 31110 DATA 36,48,240,96,169,84 
, 157,26,3, 169.36, 157,27,3, 169, 
6 


XQ 31120 DATA 157.28,3,96,192,6,1 

92.6.47.6.50.6.47.6.47.6 

LG 31130 DATA 160,146,96,133,208, 

41. 127.201.32.16.6.24.105.64.7 
6,72 

BI 31140 DATA 6.201,96,16,3,56,23 

3.32. 162.0. 134.204. 133.203. 134 
,206 

KH 31150 DATA 134,287,160,16,208, 

13.24. 165.286. 105.8. 133.206. 16 
5,207,105 

LB 31160 DATA 0, 133,207,70,207, 10 
2, 206, 102, 204, 102, 203, 136, 48, 4 
,144,243 

DT 31170 DATA 176,228,24,165,204, 

1 09 . 244 . 2 . 1 33 . 204 . 1 60 . 0 . 1 77 . 20 

3.162.7 

SR 31180 DATA 10,72,165.208,144,1 
0,201,128,176,13,32,220,6,76, 1 

51.6 

EX 31190 DATA 201,128,144,3,32,22 
0,6,230.85,208,2,230,86,104,20 

2.16 


JD 31280 DATA 223,208, 192,8. 16,28 
,72.56,165,85.233,8,133,85, 165 


JE 31210 DATA 233,0. 133,86, 104 . 23 
0,84,76.124,6,56,165,84,233,7, 
133 

Y0 31220 DATA 84, 160, 1 ,96, 173.253 
,2,141 ,251*2, 169, 17, 14 1, 162,3, 
169 

MD 31230 DATA 0, 141 , 168, 3 ■ 141 , 169 
,3, 162,96.76.86,228,158,72, 152 
,72 

BC 31240 DATA 165,85,133,91,165,6 
6, 133,92, 165,84, 133, 90, 206, 52 
30.90 

FC 31250 DATA 76,243,6.198,90,32, 
196,6,32,196-6. 104.168,104,170 
,96 

NA 31260 GRAPHICS 0 7 "POMYLI A IJ 
DANYCH" 


Procedura ta posiada wiele zalet i 
jedną wadę, zajmuje stronę 6 pamięci 
komputera. Ponadto, podczas jej 
używania należy pamiętać o umie- 
szczeniu średnika lub przecinka za 
cudzysłowem kończącym tekst. 

Mamy nadzieję, że przedstawione 
programy ułatwią Wam tworzenie 
różnorodnych rysunków i opisywanie 
ich. 



W celu zwiększenia możliwości 
tworzenia efektywnych programów 
graficznych należy zapoznać się z za- 
sadami przekształcania elementów 
rysunków. Umożliwi to: 

a) przemieszczanie rysunków z jed- 
nego miejsca ekranu w inne; 

b) utworzenie łącznego rysunku z 
mniejszych elementów; 

c) dodawanie do istniejącego rysun- 
ku nowych elementów; 
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d) powiększanie rysunku np. w celu 
przyjrzenia się drobnym elemen- 
tom; 

e) pomniejszanie rysunku w celu 
wprowadzenia opisów lub dodat- 
kowych rysunków; 

f ) tworzenie ruchomych obrazów. 

Wszelkie zmiany wykonuje się za 

pomocą trzech podstawowych ope- 
racji: 

1) przenoszenia wykreślonych obiek- 
tów z jednego miejsca ekranu w 
inne (przemieszczenie); 

2) zwiększania lub zmniejszania 
rozmiarów wyświetlanego rysunku 
(skalowanie); 

3) zmian orientacji rysunku (obrót). 



ZMIANA 

MIEJSCA 

POŁOŻENIA 


Metody przemieszczania elemen- 
tów zobrazowania pozwalają tworzyć 
rysunek w dowolnym obszarze ekra- 
nu i przenosić go w inną część ekra- 
nu. Można przy tym przekompono- 
wać rysunek, albo tworzyć go częś- 
ciami z zestawu gotowych elemen- 
tów. 

Zanim zaczniemy przemieszczać 
skomplikowane rysunki, zobaczmy 
na czym polega zmiana położenia po- 
jedynczego punktu. W tym celu nale- 
ży zamienić aktualne współrzędne 
punktu na współrzędne odpowiada- 
jące nowemu położeniu. Ogólna re- 
guła przemieszczania punktu z pozy- 
cji o współrzędnych (X, Y) do pozycji 
(XT, YT) w terminach odległości H i V 
zapisywana jest następująco: 

XT = X + H, YT = Y + V 

Dodatnia wartość H oznacza prze- 
mieszczenie punktu w poziomie na 
prawo, a dodatnia wartość V — 
przemieszczenie punktu pionowo w 
dół. Natomiast ujemne wartości H i V 
powodują przemieszczenie punktu 
na lewo i w górę. 

Podczas przemieszczania wyświet- 
lanych punktów powinniśmy używać 
tylko takich wartości N i V, które po- 
zostawiają punkt w granicach ekranu. 
Nie należy jednak używać zbyt ma- 
łych wartości H i V. Jeśli są one mniej- 
sze niż 0.5, punkt będzie wyświetlony 
w tym samym miejscu. Wielokrotne 
wyświetlanie punktu może znacznie 
zwolnić działanie programu. 

Przemieszczenie rysunku z jedne- 


go obszaru do drugiego równoważne 
jest przemieszczeniu wszystkich 
punktów rysunku, a następnie po- 
nownemu wyświetleniu wszystkich 
linii połączeniowych. Aby uniknąć 
naruszenia kształtu przedmiotu, 
wszystkie punkty rysunku należy 
przemieścić na jednakową odległość. 
Oznacza to, że przy przeliczaniu 
współrzędnych za pomocą powyż- 
szych wzorów, należy dla wszystkich 
punktów używać tych samych war- 
tości H i V. Zastosowanie odmien- 
nych wartości H i V dla różnych punk- 
tów powoduje zniekształcenie rysun- 
ku. Zwykle wymagane jest przemie- 
szczenie rysunku *bez zniekształceń, 
jednak niekiedy mogą być one przy- 
datne w poszukiwaniu najlepszego 
kształtu przedmiotu. 

Współrzędne punktów końcowych 
wszystkich odcinków rysunku wy- 
godnie jest przechowywać w postaci 
tablicy. Dla prostych rysunków — w 
tablicy jednowymiarowej (w takiej 
kolejności, w jakiej będą one potem 
połączone). W bardziej złożonych ry- 
sunkach przez jeden punkt może 
przechodzić kilka linii lub mogą ist- 
nieć fragmenty rysunku nie połączo- 
ne liniami z innymi fragmentami. W 
takich przypadkach należy przecho- 
wywać wartości współrzędnych w 
tablicy dwuwymiarowej. Jeden in- 
deks tablicy oznacza numer fragmen- 
tu, a drugi wskazuje kolejny numer 
punktu we fragmencie. W ten sposób 
para wartości (X(2,1),Y(2,1)) określa 
współrzędne pierwszego punktu 
drugiego fragmentu rysunku. Tablice 
dwuwymiarowe wykorzystane są w 
programie nr 16 do przechowywania 
współrzędnych punktów. Pozwala on 
przemieszczać dowolną Ilość razy 
oddzielne fragmenty rysunku w wy- 
brany obszar ekranu. 

W omawianym programie (16) wy- 
liczone wartości współrzędnych 
punktów zastępują poprzednie war- 
tości w tablicy X i Y. Jeśli chcemy za- 
chować początkowe wartości współ- 
rzędnych, wartości obliczone można 
umieścić (zapamiętać) w dodatko- 


00 1 REM ***************** 

IB 2 REM * * 

RM 3 REM * Proir*m nr 16 * 

ID 4 REM * * 

OS 5 REM ***************** 

ML 6 REM 

ES 60 GRAPHICS 8'C0L0R l'P0KE 732 
/I 

AR 70 D1M X<3,50),Y<5,30>,N<5>,A* 
< 1 > 

WN 80 XM-319 
DD 90 YM-191'W-0 

SR 93 ? "Czu ulunt ratunki < T/M 
>? INPUT A* 1 IF At-"T" THEN 
1000 

WM 100 REM ODCZYT RYSUNKÓW 
DA 110 PN-1 
EM 120 E-0 
BM 130 READ XD,YD 
0F 140 IF XD>-0 THEN 200 
QW 130 REM 


XD 160 N<PN)-E 
WL 170 IF XD— 100 THEN 240 
ZJ 180 PN-PN+1 
MU 190 GOTO 120 
0F 200 E-E+l 
VT 210 X<PN,E)-XD 
WN 220 Y<PN,E)-YD 
MU 230 GOTO 130 
QV 240 REM 
TB 230 GOSUB 310 
LR 280 ? CHR#< 125) J 
MM 290 ? "Pod*J numer ratunku do 
przesunięci* " 

BI 293 IF W-l THEN FOR J-l TO PN' 
? Jj» "j 'NEXT J-? 'GOTO 310 
AQ 300 ? "l-Pott*c 2-Pies 3 
-Hadr*nt" 

PE 310 INPUT P 
LG 320 7 CHR*< 123) ; 

NE 370 ? "Pod*J przesuniecie dX i 
dY." 

XQ 380 INPUT H, V 

KL 400 REM PRZELICZANIE PUNKTÓW 

KY 410 FOR J-l TO N<P> 

MO 420 X<P,J)-X<P,J)+H 
XN 430 Y<P,J)-Y<P,J)+V 
GS 470 NEXT J 
TJ 480 GOSUB 310 
PV 490 GOTO 280 

HQ 510 REM PODPROGRAM KREŚLENIA R 
YSUNKU 

EQ 320 GRAPHICS 0'COLOR l'P0KE-73 
2/1 

EF 330 FOR K-l TO PN 
DY 340 FOR J-l TO N<K)-1 
OT 543 TRAP 360 

GN 330 PLOT X<K,J),Y<K,J>'DRRWT0 
X<K/J+1)/Y<K/J+1) 


GR 360 NEXT J 
HD 370 NEXT K 
ZR 580 RETURN 

KS 390 REM WSPÓŁRZĘDNE RYSUNKÓW 
NP 600 DATA 83/70/90/73/103/60/10 
5/80/83/110/95/110/110/83 
XX 610 DATA 123/110/133/110/115/8 
0/ 1 13/60/ 130/ 75/ 133/70/ 1 13/43 
ST 620 DATA 115/40/123/30/125/13/ 
110/ 10/95/ 13/93/30/ 103/40/ 105/ 
45/83/70 

XM 630 DATA -1/-1 
ON 640 DATA 50/90/62/110/58/110/5 
0/90/42/110/38/110/50/90 
DW 630 DATA 43/100/20/100/10/90/2 
2/110/18/110/10/90/3/110 
EK 660 DATA 0/110,10/90/0/80/10/9 
0/50/90/40/80/50/ 70/55/ 73, 60, 7 
0/60,02/50/90 
XU 670 DATA *-1/ -1 
SF 680 DATA 290/110/290,98/288/98 
,288, 92, 286, 92, 286, 88 
RD 690 DATA 286/88/280/80/288/82/ 
290/82, 290, 73, 287, 73,287/70,29 
0/70,290/63 

GD 700 DATA 293/60,303/60/310/63/ 
310/70/313/70/313/73,310/73/31 
0/110/290/110 
OT 710 DATA -100, -100 
VP 1000 REM KREŚLENIE WŁASNYCH RY 
SUNKOW 

TJ 1010 PN-1'X-0'Y-120'W«1 
MU 1020 GRAPHICS 8+16'C0L0R l'SET 
C0L0R 2/0/8 

ZX 1030 E-0 1 X-X+60 1 Y-120 
RD 1040 POKE 764,235* IF PN>3 THEN 
PN-5-G0T0 250 

LF 1050 A-PEEK<764) * IF A-235 THEN 
1030 

LC 1054 IF A<>6 AND A<>7 AND AOl 
4 AND A<> 13 AND A<>12 AND A<>2 
8 AND A O 44 THEN 1040 
RU 1033 IF A-44 THEN N<PN)-E'PN-P 
N+l ' GOTO 1020 

NT 1056 IF A-28 THEN N<PN)-E'G0T0 
250 

XZ 1060 X-X+l*<A-7)“l*<A-6) 

NP 1070 Y-Y+1*<A-15)-1*<A-14) 

10 1075 TRAP 1080 'PLOT X,Y 
NZ 1080 IF AO 12 THEN 1040 
JA 1090 E-E+l 

JY 1100 X<PN/E)-X*Y<PN/E)-Y*PLOT 
X,Y 

OT 1110 GOTO 1040 
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wych tablicach, np. w XT i YT. Prze- 
chowanie początkowych wartości 
współrzędnych zalecane jest wtedy, 
gdy chcemy sprawdzić, jak będzie 
wyglądał rysunek lub jeśli zamierza- 
my przedstawić go na ekranie w obu 
położeniach. 

Pewnych wyjaśnień wymaga opcja 
tworzenia własnych rysunków w pro- 
gramie nr 16. W celu właściwego ich 
zapamiętania (umożliwiającego pó- 
źniejsze przekształcenia), kreślenie 
rysunku, po uprzednim wstawieniu 
punktu początkowego, należy roz- 
począć naciskając klawisz <RE- 
TURN>. Również koniec każdego 
odcinka należy zasygnalizować na- 
ciśnięciem klawisza <RETURN>. Po 
zakończeniu kreślenia fragmentu ry- 
sunku musimy nacisnąć klawisz 
<TAB>, a po zakończeniu rysunku — 
<ESC>. 

Obiekty symetryczne, a także takie, 
których granice wyznaczone są rów- 
naniami, przemieszczane są w inny 
sposób. Nie ma potrzeby dodawania 
przesunięcia do współrzędnych 
wszystkich punktów. Na przykład, w 
celu przemieszczenia okręgu lub 
elipsy wystarczy przemieścić tylko 
środek figury i wyliczyć nowe współ- 
rzędne wszystkich punktów. Dla 
przemieszczenia prostokąta należy 
przemieścić jeden z jego wierzchoł- 
ków i ponownie wykreślić go na pod- 
stawie znanych wartości wysokości i 
szerokości. 



A Po utworzeniu obrazu na ekranie 
można zmienić jego wymiary w celu 
poprawienia przejrzystości przedsta- 
wionej informacji. Można też wstawić 
ten obraz w większy rysunek. Roz- 
miar rysunku można zmienić poprzez 
pomnożenie wszystkich odległości 
między punktami przez określony 
współczynnik skalowania. Na przy- 
kład, jeśli chcemy zwiększyć rozmiary 
prostokąta dwa razy, musimy długość 
każdej linii pomnożyć przez dwa; jeś- 
li chcemy zmniejszyć dwa razy — 
przez 0.5. 

Podczas skalowania obrazu należy 
także wskazać jego położenie po 
zwiększeniu lub zmniejszeniu roz- 


miarów. Możemy skalować rysunki 
względem pewnego centralnego 
punktu rysunku, punktu na granicy 
rysunku lub dowolnego punktu 
wewnątrz niego. Można np. zwięk- 
szyć rozmiary prostokąta ustalając po- 
łożenie lewego dolnego rogu prosto- 
kąta lub jego środka. 

Zacznijmy od czynności prostych, 
tzn. od skalowania odcinka. Poziomy 
odcinek między dwoma punktami z 
odciętymi X(1) i X(2) ma długość: 

L = X(2)-X(1) 

Zmiana długości odcinka oznacza, 
że mnożymy L przez współczynnik 
skalowania w poziomie, np. HS, co 
daje nową wartość długości odcinka: 
LS = L • HS = X(2) • HS — X(1) • HS = 
= XS(2) — XS(1) 

Tablica XS wykorzystywana jest tu 
do przechowywania wartości obli- 
czonych współrzędnych, a współ- 
czynnik HS powinien mieć wartość 
dodatnią (HS > O). Jeśli współczynnik 
skalowania HS > 1, wówczas odcinki 
są dłuższe. Jeśli HS <, wszystkie od- 
cinki stają się krótsze. Przy HS = 1 
długości odcinków nie ulegną zmia- 
nie. 

Skalowanie odcinków prowadzi do 
zmiany współrzędnych punktów 
końcowych, należy zatem wskazać 
nowe położenie odcinka. Dla odcin- 
ka poziomego można ustalić albo je- 
den z końców odcinka albo jego śro- 
dek. Można też przemieścić 
otrzymany odcinek w inne miejsce. 
Załóżmy, że chcemy zostawić na 
miejscu lewy koniec odcinka. W tym 
przypadku nowe współrzędne od- 
cinka będą równe: 

XS(1) = X(1) 

XS(2) = X(1) + (X(2j — X(1)) • HS 
Jeśli chcemy zachować położenie 
prawego końca odcinka, jego nowe 
współrzędne będą równe: 

XS(1) = XS(2) — (X(2) — X(1)) • 

• XS(2) = X(2) 

Ustalając środek odcinka otrzymamy: 
XS(1) = XM - ((X(2) - X(1))/2) • HS 
XS(2) = XM + f(X(2) - X(1))/2) • HS 
gdzie: XM — współrzędne środka 
odcinka, równa 

XM = (X(1) + X(2))/2 
Jeśli trzeba przemieścić zmieniony 
odcinek w inne miejsce ekranu, to 
najpierw dokonuje się czynności 
przeniesienia go w nowe miejsce, a 
następnie skaluje względem jednego 
z końców lub środka odcinka. Ogól- 
ne podejście polega na wyborze 
punktu odniesienia, który będzie 
traktowany jako ustalony. Następnie 
należy obliczyć współrzędne końców 
odcinka, mnożąc odległości od nich 
do punktu XF przez współczynnik 
skalowania HS. Współrzędne końców 
odcinka po skalowaniu można obli- 
czyć według wzorów: 

XS(1) = (X(1) — XF) ■ HS + XF 
XS(2) = (X(2) — XF) • HS + XF 


w ,qn u>lnu«yi fb 

00 1 REM ***************** 

IB 2 REM * * 

SH 3 REM * Prot r*n> nr 17 * 

ID 4 REM * * 

OS 5 REM ***************** 

NL 6 REM 

PE 80 DIM X<5, 100),Y<5,100),N<5> 

D2 90 XM-319'YM-191 

DG 140 PN-1 

ES 150 E»0 

BT 160 RERD XD, YD 

RN 170 IF XD>-0 THEN 240 

XJ 190 N<PN)-E 

21 200 IF XD— 100 THEN 290 

YY 220 PN-PN+l 

NQ 230 GOTO 130 

ON 240 E-E+l 

WB 250 X<PN,E)-XD 

WV 260 Y<PN,E)-YD 

OJ 270 GOTO 160 

RD 280 REM 

UZ 290 GOSUB 770 

PV 320 GRAPHICS 8+$2'P0KE 82,0<? 
qHR$< 125 ) > 

RL 330 ? "1 -Przód 2-Srod*k 3-T*l 
4-C*lo*c 3-koni#c" 

KF 340 ? "Pod*J numtr cz*»ci do & 
k*low*ni*"> * INPUT P 
SK 350 IF P-5 THEN END 
TH 360 ? CHR4C 123) j "Pod*J *k*U n 
* osi x 1 w" J 1 INPUT XS,YS 
PZ 370 ? CHR*< 123) , "Protzt cz*k*c 

DC 300 ON P GOTO 560,390,620,670 
NC 310 GOTO 320 
GD 560 XF-X<1,2) 

GS 370 YF-Y< 1 ,2) 

PO 580 GOTO 640 
GT 390 XF-X<2,2) 

GP 600 YF-Y<2,2) 

R0 605 GOSUB 1100 
PD 610 GOTO 640 
GO 620 XF-X<3,2> 

HF 630 YF-Y<3,2) 

XE 640 GOSUB 870 
WV 650 GOSUB 770 
NN 660 GOTO 320 

VW 670 ? "Pod*J punkt »k*low*nU" 
> ' INPUT XF,YF 
FU 700 FOR P-l TO PN 
WZ 710 GOSUB 870 
IT 720 NEXT P 
PT 730 GOTO 650 
EC 770 REM ************* 

FP 780 REM * KREŚLENIE * 

EG 790 REM ************* 

UB 800 GRAPHICS 8+16'C0L0R 1-SETC 
0L0R 2,0,0 

ZH 910 FOR K-l TO PN -FOR J-l TO N 
<K>-1 

GO 820 TRAP 830 1 PLOT X<K,J),Y<K,J 
>.DRAWT0 X<K,J+1),Y<K,J+1) 

GO '830 NEXT J 
HA 840 NEXT K 

PO 845 IF PEEK<764)-253 THEN 845 
XS 850 POKE 764, 255 'RETURN 
NP 860 REM ************** 

00 870 REM * SKALOWANIE * 

NT 880 REM ************** 

LS 890 FOR J-l TO N<P) 

0E 900 X<P,J)-X<P, J)*XS+XF*<1-XS) 
TO 910 Y<P, J)-Y<P, J)*YS+YF*< 1-YS) 
ND 920 N£XT J' RETURN 
GK 930 REM ******** 

ZA 940 REM * DANE * 

GO 930 REM ******** 

FK 960 REM ***** PRZÓD ***** 

EM 970 DATA 220,90,210,90,210,60, 

250.63.260.90.250.90 

YD 980 DATA 250,100,240,110,230,1 

10.220.100.220.90 

MF 990 DATA 230,80,240,80,250,90, 
- 1,-1 

KB 1000 REM ***** ŚRODEK ***** 

GU 1010 DATA 210,90,160,90,160,60 
,205,68,187,35,160,35 
SA 1020 DATA 160,30,190.30,210,60 
,- 1,-1 

EG 1030 REM ***** TYL ***** 

RC 1040 DATA 120,90,160,90,160,60 
,120,60,135,35,160,35 
GQ 1050 DATA 160,30,130,30,115,60 
,80,60,75.90,90,90 
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EC 1060 DATA 90,100,100,110,110,1 
10,120. 100,120,90,110,80,100,8 

0. 90.90.90.100,-100,-100 

HN 1090 REM PODPROGRAM PRZESUNIĘĆ 
IA CZĘŚCI 1 RYSUNKU PRZY ZMIAN 
IE CZĘŚCI 2 

UD 1100 DX=INT<X<1,2>*<XS-1)+XF*< 
1-XS>> 

WF 1110 FOR J=1 TO N< 1 ) ! X< 1 , J)*X< 

1 , J)+DX 

FL 1130 NEXT J 
AN 1140 RETURN 

Jako punkt odniesienia XF można 
wybrać dowolny punkt na ekranie 
lub na zewnątrz niego. Jeśli za XF 
przyjąć jeden z punktów X(1), X(2) 
lub XM, otrzymamy wyniki odpowia- 
dające .wcześniejszym wzorom. 

Skalowania odcinków pionowych 
dokonuje się analogicznie. Długość 
pionowego odcinka, poprowadzo- 
nego między punktami Y(1) i Y (2) 
równa jest: 

L = Y(2) — Y(1 ) 

Przekształcenie tego odcinka za 
pomocą współczynnika skalowania 
w pionie VS daje odcinek o nowej 
długości: 

LS = L • VS = Y(2) • VS — Y(1) • VS = 
= YS(2) — YS(1) 

gdzie tablica YS wykorzystywana jest 
do przechowywania nowych współ- 
rzędnych końców odcinka. Współ- 
czynnik skalowania VS powinien być 
dodatni, a położenie przekształcone- 
go odcinka można wyznaczyć wzglę- 
dem dowolnie wybranego punktu, 
np. Y(1), Y(2) lub środka odcinka. 
Oznaczając ten punkt przez XF mo- 
żna wyznaczyć współrzędne odcinka: 
YS(1) = (Y(1) — YF) • VS + YF 
YS(2) = (Y(2) - YF) • VS + YF 
Długość odcinka poprowadzonego 
pod dowolnym kątem zależy od jed- 
noczesnego skalowania rzutu pozio- 
mego X(2) — X(1) i rzutu pionowego 
Y(2) — Y(1) względem ustalonego 
punktu (XF, YF). 

Powyższe równania można zapisać 
w następującej postaci: 

XS(1) = X(1) ■ HS + XF ■ (1 — HS) 
YS(1) = Y(1) • VS + YF- (1 — VS) 
XS(2) = X(2) • HS 4- XF • (1 - HS) 
YS(2) = Y(2) • VS + YF ■ (1 — ,VS) 
Wyrażenia XF • (1 — HS) i YF • 
• (1 — VS) są stałymi, dlatego oblicza- 
ne są tylko raz. W celu zwiększenia 
lub zmniejszenia długości pochyłego 
odcinka (z zachowaniem kąta pochy- 
lenia) musi HS = VS. 

Rozmiary skalowanych rysunków 
zwiększają się lub zmniejszają rów- 
nomiernie, jeśli HS = VS = S. Powyż- 
sze równania używane są do obli- 
czania nowych współrzędnych 
wszystkich punktów skalowanego 
zobrazowania. Powiększony lub po- 
mniejszony rysunek otrzymuje się 
poprzez wykreślenie linii łączących 
punkty o nowo obliczonych współ- 
rzędnych. Dla rysunków zawierają- 
cych linie krzywe nie musimy stoso- 


wać przekształceń do każdego ich 
punktu. Podczas skalowania okręgu o 
promieniu R wystarczy tylko wyliczyć 
za 1 pomocą powyższych równań no- 
we współrzędne środka okręgu i 
wziąć za promień wielkość R • S. 

W pewnych przypadkach trzeba 
rozciągnąć zobrazowanie w jednym 
kierunku (np. w pionie) i zachować 
początkowe rozmiary w innym (np. 
poziomym) kierunku. Aby przeksz- 
tałcić kwadrat w prostokąt, wystarczy 
zwiększyć dwa razy jego wysokość. W 
tym celu podczas przeliczania współ- 
rzędnych punktów współczynnik 
skalowania w pionie VS powinien być 
równy 2, a współczynnik skalowania 
w poziomie HS — równy 1. Takie po- 
dejście jest efektywne podczas eks- 
perymentowania lub dobierania pro- 
porcji fragmentów rysunku. Oprócz 
tego nierównomierne skalowanie 
można stosować podczas tworzenia 
złożonych rysunków ze zbioru figur 
standardowych, np. kwadratów, któ- 
re mogą być przekształcone w pro- 
stokąty dowolnych rozmiarów. 

Program nr 17 zawiera przykład 
skalowania rysunku. Dane wejściowe 
programu składają się z opisu rysun- 
ku i współczynników skalowania HS i 
VS. Program skaluje cały rysunek lub 
dowolny jego fragment. 



W wielu wypadkach powstaje ko- 
nieczność zmiany orientacji zobra- 
zowania. Podobnie jak poprzednio, 
zaczniemy od najprostszej sytuacji. 

Obrót punktu polega na przemie- 
szczeniu go z punktu (X, Y) do punk- 
tu (XR, YR) po łuku okręgu z środ- 
kiem obrotu (X0, YO). Kąt A określa 
wielkość obrotu z punktu (X, Y) do 
punktu (XR, YR). Współrzędne punk- 
tu (XR, YR) po przekształceniu obli- 
cza się z wykorzystaniem wielkości A, 
(X0, YO) i (X, Y) według wzorów: 

XR = X0 + ((X — X0) • cos(A)) + 

+ ((Y — YO) • sin(A)) 

YR = YO + ((Y - YO) • cos(A)) + 

+ ((X — X0) • sin(A)) 
Centrum obrotu (X0, YO) może 
znajdować się w dowolnym miejscu 
— na ekranie lub poza jego granica- 
mi. Ten punkt nie jest wyświetlany i 
wykorzystywany jest tylko jako punkt 


Q0 1 REM ***************** 

IB 2 REM * * 

TC 3 REM * Proiram nr 18 * 

ID 4 REM * * 

QS 5 REM ***************** 

NL 6 REM 

DD 80 DIM X<7,100),Y<7, 100),N<7>, 
XR < 7 , 1 00 ) , YR < 7 , 1 00 > 

DZ 90 XM=319'YM*191 

HL 140 PN®1>DEG 

ES 150 E*0 

BT 160 READ XD,YD 

RN 170 IF XD>«0 THEN 240 

XJ 190 N(PN)“E 

ZI 200 IF XD*-100 THEN 280 

YY .220 PN a PN+i 

NQ 230 GOTO 150 

ON 240 E-E+l 

WB 250 X<PN,E)*XD 

WV 260 Y<PN,E)**YD 

OJ 270 GOTO 160 

RD 280 REM 

II 290 FOR P=1 TO PN 1 FOR E=1 TO N 
<P> 

WX 300 XR<P, E)=X<P, E) 

XR 310 YR<P, E)*Y(P,E) 

HG 320 NEXT E ; NEXT P 
WU 350 GOSUB 590 
OG 360 GRAPHICS 8+32 'POKE 82,0 
LQ 370 ? CHR*( 125); 

NK 380 ? " Podaj kat obrotu wzel 
edem Pozycji Pierwotnej" 

NF 390 ? " <0-360) "j-INPUT A 
LD 400 ? CHR*<125>; 

EU 410 ? " Podaj współrzędne pun 
ktu obrotu" 

IL 420 INPUT X0,Y0 

KR 430 REM PRZELICZANIE PUNKTÓW 

FZ 440 FOR P*1 TO PN 

WU 450 GOSUB 680 

IY 460 NEXT P 

WZ 470 GOSUB 590 

PH 480 GOTO 360 

IG 590 REM PODPROGRAM KREŚLENIA R 
YSUNKU 

TZ 600 GRAPHICS 8+16'C0L0R 1'SETC 
OLOR 2,0,0 

FV 610 FOR P-l TO PN 
FQ 620 FOR E-l TO N<P)-1 
OC 630 TRAP 650 

ZQ 640 PLOT XR<P,E),YR<P,E> 'DRAWT 
0 XR<P,E+1),YR<P,E+1> 

ES 650 NEXT E 
JA 660 NEXT P 

KU 670 IF PEEK<764)®255 THEN 670 
YJ 675 POKE 764,255 1 RETURN 
ZR 680 REM PODPROGRAM OBROTU 
JX 690 FOR E=1 TO N<P> 

QE 700 XR<P,E)=X0+<X<P,E)-X0)*COS 
<A>+<Y<P,E)-Y0)*SIN<A) 


SC 710 YR<P, E)=Y0+<Y<P, E)-Y0)*CQS 
<A>-<X<P, E)-X0)*SIN<A) 

EN 720 NEXT E 
ZJ 730 RETURN 
XG 740 REM RYSUNEK 
MW 750 DATA 160,60.170,50,170,40, 
160,30,150,30,140,40,140,50 
OL 760 DATA 150, 60, 178, 60, 165, 63, 
173, 70, 160, 67, 155, 78, 150, 67 
LV 770 DATA 140,72,145,65,130,65, 
150,60,100,70,90,70,90,80,100 
GI 780 DATA 80,110,90,130,80,128, 
140, 120, 150, 130, 160, 120, 170, 12 
5 

ZL 790 DATA 175,140,170,140,160,1 
50, 150, 155, 1 10, 170, 150, 180, 160 
, 180 

GP 808 DATA 170,200,170,200,165,1 
90, 160, 195, 158, 195, 140, 175,80, 
200 

FP 810 DATA 30,190,20,190,10,180, 
10,180,20,170,60 
XM 820 DATA -1,-1 
LS 830 DATA 147,42,153,42,-1,-1 
MG 840 DATA 150,38,158,45,-1,-1 
HZ 850 DATA 157,42,163,42,-1,-1 
EH 860 DATA 160,38,160,45,-100,-1 


odniesienia (dla określenia przemie- 
szczenia po łuku okręgu podczas 
obrotu). 
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Kąt obrotu A mierzy się w kierunku 
przeciwnym do ruchu wskazówek 
zegara od początkowego położenia 
punktu (X, Y). Zakłada się przy iym, 
że początek układu współrzędnych 
znajduje się w lewym górnym rogu 
ekranu. Zwykle wartości tego kąta le- 
żą w zakresie 0—2 • PI (6.283185 rad). 
Inne wartości kąta obrotu także są 
dopuszczalne, jednak są one równo- 
ważne obrotowi w podanym zakre- 
sie. 

Droga, jaką przechodzi punkt po 
łuku okręgu podczas obrotu o kąt A, 
zależy do odległości między punktem 
(X, Y) i środkiem obrotu (X0, Y0). Im 
bardziej oddalony jest środek obrotu 
(X0, Y0) od punktu (X, Y), tym dłuższa 
jest trajektoria ruchu od punktu (X, Y) 
do punktu (XR, YR). Przy małych ką- 
tach obrotu wielkość drogi D w 
przybliżeniu równa jest iloczynowi 
R • A. Jeśli R = 50, punkt przemie- 
szcza się o 1 krok rastra (do sąsiedniego 
punktu rastra) przy kącie obrotu 
A 

0.02 rad. 

Dla zmiany orientacji zobrazowa- 
nego przedmiotu przede wszystkim na- 
leży wybrać środek obrotu. Następ- 
nie oblicza się nowe współrzędne 
wszystkich punktów przedmiotu 
według powyższych równań. Na za- 
kończenie, po oczyszczeniu ekranu, 
wykreśla się linie według nowych 
współrzędnych. 

Program nr 18 obraca rysunek wo- 
kół wskazanego punktu (X0, Y0) o za- 
dany kąt A, przy którym — po obro- 
cie — rysunek zostaje na ekranie. 

Obrót rysunku może doprowadzić 
do jego zniekształcenia, jeśli roz- 
dzielczość systemu wzdłuż osi X i Y 
nie jest jednakowa. 



Jako przykład programu realizują- 
cego przekształcenia Jtombinowane 
proponujemy program nr 19, który 
umożliwia składanie rysunku z kilku 
podanych elementów poprzez prze- 
mieszczanie, skalowanie i obrót. 

Podczas konstruowania rysunków z 
oddzielnych części powszechnie sto- 
suje się metody dialogowe. W upro- 
szczonej postaci wystąpiło to w pro- 
gramie nr 11, gdzie w trybie dialogo- 


00 1 REM ***************** 

IB 2 REM * * 

TX 3 REM * Pro* rum nr 19 * 

10 4 REM * * 

OS 3 REM ***************** 

UL 6 REM 

01 80 G0SUB 6800 

XK 90 CLOSE #l«0PEN #1,4,0, "T>" 

RT 100 XM»319 
RC 110 YM-191 

EM 129 GRAPHICS 8+16 ■ SETCOLOR 2,9 
,0 

VB 130 GOSUB 830 
XB 140 AA-0 

TO 150 REM WCZYTANIE WYBORU 
EJ 160 P08ITI0N 8, 8 'POKE 765,0 
MW 170 ? #1 ; "Wybierz' " ; 

RR 180 FOR K*1 TO 10»NEXT K 
FQ 190 P0SITI0M 8,8'POKE 765,1 
MJ 200 ? #1 i "Wybierz 
RE 210 FOR K*1 TO 10-NEXT K 
OZ 220 IF PEEK<764>»255 THEN 160 
WL 230 Z*PEEK < 764 > * POKE 764,255'! 
F Z O 31 AND Z O 30 AND Z O 26 RN 
0 Z 024 THEN 160 

VS 240 B-0'B»l*<Z-31>+2*<Z»30>+3* 
<Z»26)+4*<Z«24> 'R0-<B*4-1)*8 
GM 250 N*0 

SY 260 P03ITI0N 8, 174 'POKE 765,1 
MX 270 ? #1; "Wybierz 1 
TC 280 POSITION 8.R0P0KE 765,0 
BO 290 ? #1;B; 

RD 300 FOR Ki=l TO 10'NEXT K 
EW 310 P0SITI0N 8,174 
MO 320 ? #1 j "W ybierz'"; 

TV 330 P0S ITI ON 8 , R0 ' POKE 763,1 
BF 340 ? #1 ; B; • 

RN 350 FOR K*1 TO 10'NEXT K 
FJ 360 IF PEEK<764>-255 THEN 260 
PS 370 Z-PE£K(. 764) -POKE 764,255' I 
F Z 0 10 AND Z O 62 AND Z 08 AND 
205 AND Z O 35 AND Z O 28 THEN 
260 

0Q 380 IF Z-28 THEN EHD 
PD 390 IF 2035 THEN 440 
CD 480 RESTOPE 
YF 410 GOSUB 990 
TB 420 REM KASOWAĆ? 

NH 430 GOTO 140 

XE 440 IF 205 THEN 530 

XL 450 COLOR 0 

LV 460 IF B*1 AND N-l THEN GOSUB 
1070 ■ 

EQ 470 IF B-2 AND N-l THEN GOSUB 
1100 

MS 480 IF B-3 AND N-I THEN GOSUB 
1160 

NB 490 IF B-4 AND N-l THEN GOSUB 
1430 


CE 

500 

RESTORE 


YG 

510 

GOSUB 990 


NG 

520 

GOTO 140 


KW 

530 

POKE 765,0 


QF 

540 

GOSUB 960 -POKE 765,1 

CH 

550 

REM PRZESUŃ 


NH 

560 

IF Z O 10 THEN* 640 


XF 

570 

GOSUB 1850 


XS 

580 

COLOR 0 


VB 

590 

IF B-l THEN GOSUB 

1510 

CM 

600 

IF B-2 THEN GOSUB 

1590 

DW 

610 

IF B-3 THEN GOSUB 

1690 

CJ 

620 

IF B-4 THEN GOSUB 

1760 

YG 

630 

REM SKALOWANIE 


PK 

640 

IF Z O 62 THEN 720 


RB 

645 

IF N-0 THEN GOSUB 

960 - GOTO 


160 


UF 

650 

GOSUB 2330 


XP 

660 

COLOR 0 


ZP 

670 

IF 0=1 THEN GOSUB 

1920 

SQ 

680 

IF B-2 THEN GOSUB 

2020 

VY 

690 

IF B=3 THEN GOSUB 

2140 

UR 

700 

IF B-4 THEN GOSUB 

2220 

KN 

710 

REM OBROT 


EE 

720 

IF Z O 8 THEN 790 


QY 

725 

IF N-0 THEN GOSUB 

960 'GOTO 


160 


RQ 

730 

GOSUB 3000 


XM 

740 

COLOR 0 


TV 

750 

IF B-l THEN GOSUB 

2400 

ZB 

760 

IF B-2 THEN GOSUB 

2540 

BJ 

770 

IF 8=3 THEN GOSUB 

2740- 

BU 

780 

IF B-4 THEN GOSUB 

2830 

HG 

790 

Ń«1 



WX 800 GOSUB 960 
ON 810 GOTO 260 
QX 820 REM 

00 830 REM WYŚWIETLENIE MENU 
LI 840 POS ITI ON 8,8'? #1; "Wybierz 
• 

IC 850 POSITION 8,24'? #1;"1."; 

MH 860 POSITION 8,56'? 

GM 870 POSITION 8,88'? #1;"3. 

KO 880 POSITION 8,120'? #1;"4."; 

YI 890 COLOR 1 

YI 900 GOSUB 990 

US 910 GOSUB 1080 

RG 920 GOSUB 1100 

XH 930 AA-0 

UK 940 GOSUB 1160 

UJ 950 GOSUB 1430 

RS 960 POSITION 8,174'? #l;"Wybie 

UG 970 POSITION 0,183-? #1;"£-Prz 
etun 2-skJ.U fl-obrot &-k*suJ tł 
-nowy " ; 


ZV 

900 

RETURN 


ZZ 

990 

REM ODCZYT DANYCH 


SI 

1000 

RESTORE >READ XP,YP,XQ, 

YQ 

FP 

1010 

RE AD XU,YU,XV,YV,XW,YW, 

XX 


,YX 



FS 

1020 

READ XC,YC,RX,RY 


RO 

1030 

READ XR,YR,XS,YS,XT,YT 


AL 

1040 

RETURN 


IL 

1050 

REM 


10 

1060 

REM 


FJ 

1070 

REM- LINIA 


QR 

1080 

TRAP 1090 'PLOT XP , YP ' DRAW 


TO XQ,YG 


BA 

1090 

RETURN 


KB 

1100 

REM PROSTOKĄT 


KV 

1110 

TRAP 1158 -PLOT XU, YU 'DRAW 


TO XV, YV 


FG 

1120 

DRAWTO XW,YW 


GO 

1130 

DRAWTO XX, YX 


DC 

1140 

DRAWTO XU, YU 


AG) 

1150 

RETURN 


AO 

1160 

REM KOLO 


KS 

1170 

IF RX<RY THEN 1200 


NB 

1180 

R=RY - 


PC 

1190 

GOTO 1210 


LW 

1200 

R-RX 


TH 

1210 

IF AAO0 THEN 1310 


QF 

1220 

FOR A=0 TO 1.5708 STEP 

U 

El 

1230 

DX=RX*COS<A> • 


AB 

1240 

DY»RY#SIN<A) 'TRAP 1290 


WI 

1250 

PLOT XC+DX, YC+DY 


XX 

1260 

PLOT XC+DX, YC-DY 


X0 

1270 

PLOT XC-DX, YC+DY 


ZD 

1280 

PLOT XC-DX, YC-DY 


CK 

1290 

NEXT A 


PQ 

1300 

GOTO 1420 


WJ 

1310 

CX-SIN<AA) 


WT 

1320 

CY-SINCAA) 


EQ 

1330 

FOR A-0 TO 3.14159 STEP 

1 


/R 



MN 

1340 

X-RX*COS(A> 


OS 

1350 

Y»RY*SIN<A> 


KN 

1360 

XH*X 


QI 

1370 

X-X*C08<AA)+Y*CX 


ZA 

1380 

Y=Y#COS < AA ) ~XH#C Y ' TRAP 

14 


10 



SJ 

1390 

PLOT XC+X, YC+Y 


TU 

1400 

PLOT XC-X, YC-Y 


BQ 

1410 

NEXT A 


RN 

1420 

RETURN 


00 

1430 

REM TRÓJKĄT 


ZY 

1440 

TRAP 1470 'PLOT XR, YR-DRAW 


TO XS,YS 


CG 

1450 

DRAWTO XT,YT 


ZZ 

1460 

DRAWTO XR, YR 


RC 

1470 

RETURN 


JC 

1480 

REM 


RN 

1490 

REM PRZESUŃ 


IU 

1500 

REM PRZESUŃ LINIE 


CK 

1510 

IF N=0 THEN 1530 


RT 

1920 

GOSUB 1070 


EB 

1530 

XP=XP+HT ' YP=YP+VT 


GE 

1540 

XQ=XQ+HT ' YQ=YQ+VT 


YU 

1558 

COLOR 1 


BF 

1560 

GOSUB 1070 


BE 

1570 

RETURN 


OF 

1500 

REM PRZESUŃ PROSTOKĄT 


CN 

1590 

IF N-0 THEN 1610 


XI 

1600 

GOSUB 11O0 



IKS-H 


NX 1610 V U-YLWT 

QA 1620 XV=XV+HT 1 YV=YV+VT 
SO 1638 XW=XW+HT-YW=YW+VT 
UG 1640 XX=XX+HT : YX=YX+VT 
YW 1650 COLOR 1 
YO 1660 GOSUB 1110 
BG 1670 RETURN 
KK 1680 REM PRZESUŃ KOLO 
DI 1690 IF N=0 THEN 1710 
AQ 1700 GOSUB 1160 
DZ 1710 XC=XC+HT - YC*YC+VT 
YP 1720 COLOR 1 
AZ 1730 GOSUB 1160 
AZ 1740 RETURN 
HI 1750 REM PRZESUŃ TRÓJKĄT 
IL 1760 IF N=0 THEN 1780 
BI 1770 GOSUB 1430 
IU 1780 XR*XR+HT - YR*YR+VT 
KX 1790 XS-XS+HT-YS*YS+VT 
LY 1800 XT=XT+HT-YT*YT+VT 
YO 1810 COLOR 1 
AV 1820 GOSUB 1430 
AY 1830 RETURN 
BH 1840 REM INSTRUKCJA 
CT 1850 GRAPHICS 8+32 « SETCOLOR 2, 
0,0 

NQ 1860 ? "PodaJ x i * przesunięć 
la" 

AB 1870 INPUT HT, VT 
TH 1880 ? CHRS<125>; 1 GRAPHICS 8+1 
6+32 - SETCOLOR 2,0,0 
BQ 1890 RETURN 
10 1900 REM 

UC 1910 REM SKALOWANIE 
IU 1920 REM 

HK 1930 IF N=0 THEN 1950 
BH 1940 GOSUB 1070 
UD 1950 XF*<XP+XQ>/2 
VJ 1960 YF-<YP+YQ)/2 
HG 1970 XP*XP*HS+XF*<1-HS)-YP-YP* 
VS+YF*<1-VS) 

IA 1980 XQ»XQ*HS+XF*<1-HS)-YP*YP* 
VS+YF*<1-VS> 

ZO 1990 COLOR 1 
AE 2000 GOSUB 1070 
AD 2010 RETURN 
KG 2020 REM PROSTOKĄT 
AW 2030 IF N=0 THEN 2050 
XJ 2040 GOSUB 1100 
RN 2050 XF® (. XU+XV+XW+XX V4 
UC 2060 YF-<YU+YV+YW+YX>/4 
UL 2070 XU=XU*HS+XF*<1-HS)-YU=YU* 
VS+YF*<1-VS) 

XI 2080 XV-XV*HS+XF*(1-HS)>YV-YV* 
VS+YF*<1-VS) 

AF 2090 XW=XW*HS+XF*<1-HS>'YW»YW* 
VS+YF*<1-VS> 

CA 2100 XX-XX*HS+XF*<1-HS)>YX»YX* 
VS+YF*<1-VS> 

YB 2110 COLOR 1 
XF 2120 GOSUB 1100 
AL 2130 RETURN 
AJ 2140 REM KOLO 
DL 2150 IF N=0 THEN 2170 
AX 2160 GOSUB 1160 
HS 2170 RX-RX*HS 
OY 2180 RY»RY*VS 
YZ 2190 COLOR 1 
AH 2200 GOSUB 1160 
AH 2210 RETURN 
DK 2220 REM TRÓJKĄT 
CM 2230 IF N*0 THEN 2250 
AQ 2240 GOSUB 1430 
OD 2250 XF-<XR+XS+XT>/3 
RZ 2260 YF*<YR+YS+YT>/3 
MH 2270 XR»XR*HS+XF*<1-HS)'YR»YR* 
VS+YF*<1-VS) 

PE 2280 XS-XS*HS+XF*<1-HS>‘YS-YS* 
VS+YF*<1-VS) 

SB 2290 XT=XT*HS+XF*<1-HS)-YT*YT* 
VS+YF*<1-VS) 

YC 2300 COLOR 1 
AJ 2310 GOSUB 1430 
AM 2320 RETURN 
AV 2330 REM INSTRUKCJA 
CH 2340 GRAPHICS 8+32 ■ SETCOLOR 2, 
0,0 

GL 2350 ? "PodaJ skale na osi x i 

YM 2360 INPUT HS,VS 
AL 2370 ? CHR$< 125); -GRAPHICS 8+1 
6+32 - SETCOLOR 2, 0,0 -RETURN 


JB 2380 REM 
TD 2390 REM OBROT 
EX 2400 REM LINIA 
CI 2410 IF N=0 THEN 2430 
AS 2420 GOSUB 1070 
VZ -5430 X0*<XP+XQ>/2 
XF 2440 Y0=<YP+YQ>/2 
PH 2450 XH=XP 

TV 2460 XP=XG+ < XP-XO ) *COS ( AR > + < YP 
-YO)#SIN<AR> 

MD 2470 YP=YG+<YP-YO)*COS<AR>-<XH 
-XO)*SIN<AR> 

Ofl 2480 XH=XG 

WD 2490 XQ=XO+ < XQ-XO > #COS < AR ) + < YQ 
-YO)*SIN<AR> 

MF 2500 YQ= Y0+ < YQ- YO > *COS < AR > - < XH 


-XO)*SIN<AR> 

YJ 2510 COLOR 1 
AU 2520 GOSUB 1070 
AT 2530 RETURN 
KW 2540 REM PROSTOKĄT 
GR 2550 IF N-0 THEN 2570 
XZ 2560 GOSUB 1100 


UO 2570 X0«<XU+XV+XW+XX>/4 
XD 2580 Y0*<YU+YV+YW+YX)/4 
RT 2590 XH=XU 

DC 2600 XU=XO+<XU-XO)*COS<AR)+<YU 
-YO)*SIN<AR) 

PQ 2610 YU*YO+<YU-YO)*COS<AR)-<XH 
-XO)*SIN<AR> 

RK 2620 XH=XV 

FK 2630 XV*XO+ < X V-XO ) łCOS < AR ) + < YV 
-YO)*SIN<AR) 

QU 2640 YV=YO+<YV-YO)*COS<AR)-<XH 
-XO)*SIN<AR> 

SD 2650 XH=XW 

HS 2660 XW*XQ+ < XW-XQ ) *COS < AR ) + < YW 
-YO)*SIN<AR> 

RY 2670 YW* Y0+ < YW- YO ) *COS ( AR ) - < XH 
-XO)*SIN<AR) 

SW 2680 XH*XX 

KA 2690 XX*XO+ < XX-XO > #COS < AR > + < YX 
-YO)*SIN<AR) 

SA 2700 YX=YO+<YX-YO)*COS<AR)-<XH 
-XO)*SIN<AR> 

YN 2710 COLOR 1 
XR 2720 GOSUB 1100 
AX 2730 RETURN 
AV 2740 REM KOLO 
JB 2750 IF N=0 THEN 2780 
BQ 2760 AA»AS 
BM 2770 GOSUB 1160 
NE 2780 AA=AR+A3 
ZL 2790 COLOR 1 
AT 2800 GOSUB 1160 
ZB 2810 AS=AA 
AW 2820 RETURN 
DZ 2830 REM TRÓJKĄT 
IF 2840 IF N=8 THEN 2860 
BF 2850 GOSUB 1430 
TD 2860 X0«<XR+XS+XTV3 
UZ 2870 YO* < YR+YS+ YT ) /Z 
QS 2880 XH=XR 

YK 2890 XR*XO+ < XR-XO ) #COS < AR ) + < YR 
-YO)*SIN<AR>. 

NI 2900 YR* Y0+ <YR- YO ) *COS < AR ) - < XH 
-XO)*SIN<AR) 

QJ 2910 XH*XS 

ZQ 2920 XS»XO+<XS-XO>*COS<AR)+<YS 
-YO)*SIN<AR) 

OM 2930 YS*YO+ < YS- YO > łCOS < AR ) - < XH 
-XO)*SIN<AR) 

RC 2940 XH*XT 

BY 2950 XT-XO+<XT-XO)*COS<AR)+<YT 
-YO)*SIN<AR) 

PQ 2960 YT = Y0+ < YT- YO > #CQS < AR ) - < XH 
-XO)*SIN<AR) 

ZJ 2970 COLOR 1 
BQ 2980 GOSUB 1430 
BT 2990 RETURN 
AH 3000 REM INSTRUKCJA 
BT 3010 GRAPHICS 8+32 ■ SETCOLOR 2, 
0.0 


OW 3020 ? "PodaJ kat obrotu "i 
WA 3030 INPUT AR - AR* AR*3. 14159^18 


SH 3040 ? CHR*<125)> -GRAPHICS 8+1 
6+32 - SETCOLOR 2,0,0 
AQ 3050 RETURN 

UA 3060 REM *t*************t* 

NT 3070 DATA 30,27,80,27 
HH 3080 DATA 80,45,80,70,30,70,30 
,45 


IW 3090 DATA 55,90,12,12 
AM 3100 DATA 38,138,80,130,55,110 
TG 6000 REM TEKST W GRAFICE 
PT 6085 IF PEEK< 1536+255) =96 THEN 
6070 

OT 6010 RESTORE 7000 -S*0 
AJ 6020 FOR 1*1536 TO 1536+255 
AS 6030 READ A-POKE I,A 
WI 6040 S*S+A 
FJ 6050 NEXT I 

XA 6060 IF S O 28449 THEN ? "BLAD" 
-STOP 

XH 6070 A=USR< 1536) ‘POKE 765,1 
BC 6080 RETURN 

PR 7080 DATA 104,162,0,189,26,3,2 
40, 12,281,84,240,23,232,232,23 
2,224 

CE 7010 DATA 36,48,248,96,169,84, 

157.26.3. 169.36. 157.27.3. 169.6 
WO 7820 DATA 157,28,3,96,192,6,19 

2.6.47.6.50.6.47.6.47.6 

SA 7030 DATA 160,146,96,133,208,4 
1,127,201,32,16,6,24,105,64,76 
,72 

IW 7040 DATA 6,201,96,16,3,56,233 
,32, 162,0,134,284,133,203,134, 
206 

HW 7058 DATA 134,207,160,16,208,1 
3,24, 165,206, 105,8, 133,206, 165 
,207,185 

LI 7060 DATA 0, 133, 207, 70, 207, 102 
,206, 102,204,102,203,136.48,4, 
144,243 

EX 7070 DATA 176,228,24,165,204,1 
09,244,2, 133,204, 160,0, 177,203 
,162,7 

ZV 7080 DATA 10,72,165,208,144,10 
,201,128,176,13,32,220,6,76,15 

1.6 

MJ 7090 DATA 201,128,144,3,32,220 
,6,230.85,208,2,230,86,104, 202 
,16 

RG 7180 DATA 223.200,192,8,16,20, 
72.56, 165,85,233,8. 133,85. 165, 
86 

RR 7110 DATA 233,0,133,86,104,230 
,84,76,124,6,56,165,84,233.7,1 
33 

HC 7120 DATA 84,160,1,96,173,253, 
2,141,251,2,169,17,141.162,3,1 
69 

TY 7130 DATA 0,141,168,3,141,169, 
3,162,96,76,86,228,138,72,152, 
72 

EZ 7140 DATA 165,85,133,91,165,86 
, 133,92 , 165,84, 133,90, 208,5, 23 
0,90 

MM 7150 DATA 76,245,6,198.90,32,1 
96.6,32, 196,6, 104, 168, 104. 170, 
96 

wym kolejno kreślona była linia po li- 
nii. Ten sposób tworzenia rysunku 
może być rozszerzony poprzez włą- 
czenie innych figur i sposobów ich 
przekształcania. W taki sposób mo- 
żna wybrać zestaw podstawowych 
elementów i składać z nich rysunek. 
W trybie dialogowym możemy ste- 
rować przemieszczaniem figur w za- 
dane miejsce rysunku z realizacją wy- 
branego przekształcenia. Program nr 
19 tworzy rysunek z oddzielnych linii, 
trójkątów, prostokątów i okręgów. Z 
lewej strony ekranu program wy- 
świetla menu, gdzie wymienione są 
wszystkie dopuszczalne elementy ry- 
sunku. Wykaz możliwych przekształ- 
ceń wyświetlany jest u dołu ekranu. 
Poprzez migotanie słowa SELECT 
program wskazuje, który z dwóch ze- 
stawów jest aktualnie używany. 

Program nr 19 składa się z kilku 
modułów realizujących całkowicie 
jedną operację logiczną. Do wskazy- 


12-IKS 


wania wybranego z menu wariantu 
używana jest klawiatura. Istnieje moż- 
liwość przystosowania go do współ- 
pracy z manipulatorem. MoŻQa by 
wskazywać wielkość przemieszczenia i 
wartości współczynników skalowania 
oraz kątów obrotu za pomocą trze- 
ciego menu. Może być ono przed- 
stawione w postaci jednej lub kilku 
skal liniowych, oznaczonych dla wy- 
brania niezbędnych wartości. 

Tworzenie rysunków etapami, za- 
stosowane w powyższym programie, 
jest ogólnym sposobem rozwiązywa- 
nia wielu zadań. Metoda ta z powo- 
dzeniem może być stosowana w za- 
daniach projektowania, tworzenia 
wykresów oraz podczas eksperymen- 
towania z kształtem obiektów. 



RUCHOME 

RYSUNKI 


Dla „ożywienia" rysunków może- 
my posługiwać się podstawowymi 
operacjami ich przekształcania. Naj- 
pierw wyświetlamy rysunek, następ- 
nie kasujemy go, wykonujemy 
przekształcenia i wyświetlamy zmie- 
niony rysunek. Jeśli tę procedurę 
powtórzymy kilka razy, otrzymamy 
ruchomy obraz. W podobny sposób 
tworzy się filmy animowane. 

Zaczniemy, jak zwykle, od naj- 
prostszych przykładów. Programy 
realizujące ruch punktu po ekranie są 
modyfikacjami poprzednich, które 
wykonywały operacje przemieszcza- 
nia rysunków. Zamiast pojedynczego 
przemieszczenia punktu, wykonuje się 
jego wielokrotne przemieszczenia. 
Można przy tym poruszać punkt za- 
równo wzdłuż linii prostej jak i krzy- 
wej. 

Jako prosty przykład ruchu prosto* 
liniowego rozważymy poziome 
przemieszczanie punktu po ekranie. 
Jeśli chcemy, aby punkt poruszał się z 
lewa na prawo, rozpoczniemy ruch 
od współrzędnych (XI, Y), a zakoń- 
czymy w (X2, Y), przy czym X2 > XI. 
Ruch możemy przedstawić w postaci 
ciągu przemieszczeń punktu od XI 
do X2, a każde przemieszczenie rów- 
ne jest krokowi rastra. W każdym 
kroku gasimy wcześniej zapalony 
punkt (X, Y) i wyświetlamy nowy 
(X+1, Y). Ruch w lewo uzyskuje się 


qo i rem mm**********#:' 

IB 2 REM * * 

NK 3 REM * Prouram nr 20 * 

ID 4 REM * * 

qs 5 rem mmmmm** 

HL 6 REM 

ER 15 GRAPHICS 0-POSITION 3,10 
DZ 30 ? "Podaj x dla lewej i praw 
ej ściany " 

UW 50 XM»79‘YM=>4 7 
EM 60 GRAPHICS 0‘POSITION 3,10 
£D 70 ? "Podaj x dla lewej i praw 
ej ściany " 

LJ 80 ? , i INPUT XL,XP 
PM 90 IF XL>=XP OR XL<0 OR XP>XM 
THEN 70 

DH 100 DX b 1 1 X*XL+ 1 NT < < XP-XL > ✓ 2 ) 

WS 110 Y=INT<YM/2> 

HJ 120 GRAPHICS 5+16 
TF 140 COLOR 1 ' PLOT XL,0'DRflWTO X 
L , YM ' PLOT XP , 0 : DRAWTO XP,YM 
VE 150 COLOR 1 : PLOT X,Y 
WM 155 FOR K=1 TO 5'NEXT K 
ZV 160 IF X<=*XL+1 OR X>«XP-1 THEN 
DX=-DX 

UZ 180 COLOR 0 ! PLOT X,Y 
MB 190 X=X+DX 
NK 200 GOTO 150 

poprzez zmniejszanie współrzędnej 
X o 1 w każdym kroku. Łącząc je ra- 
zem możemy otrzymać ruch punktu 
w prawo i w lewo między XI i X2. Ilus- 
truje to program nr 20. Początkowo 
punkt porusza się w prawo z dodat- 
nim przyrostem współrzędnej X 
(DX = 1). Kiedy osiągnie współrzędne 
(X2, Y), znak przyrostu zmienia się -w 
(DX = — DX) i punkt porusza się w 
lewo. W punkcie (XI, Y) znów zmie- 
nia się znak przyrostu. Program pod- 
trzymuje ten ruch przez czas nie- 
ograniczony. 

Powyższy program można rozsze- 
rzyć dodając granice pionowe we 
współrzędnych XI i X2, aby ruchomy 
punki odskakiwał od nich. 

Należy jednak zmienić punkt odbi- 
cia, aby nie ścierać punktu, który na- 
leży do ścianki. Dlatego punkt ru- 
chomy powinien zmienić kierunek o 
jeden krok przed uderzeniem o 
ściankę. 

Ruch punktu w górę i w dół ozna- 
cza, że ustalamy granice poziome o 
współrzędnych Y1 i Y2 i przemie- 
szczamy punkt przy ustalonej wartoś- 
ci współrzędnej X. Aby wykonać ruch 
w dowolnym kierunku, należy wpro- 
wadzić jednocześnie przyrosty dla 
obu współrzędnych. Proces ten jest 
podobny do wykreślania linii prostej, 
z wyjątkiem tego, że ścieramy po- 
przedni punkt zanim wyświetlimy 
nowy. Trajektoria ruchu może być 
określona różnymi sposobami: mo- 
żna wskazać graficzne punkty drogi 
lub posłużyć się równaniem prostej 
(tj. określić współczynniki M i B) lub 
wybrać odpowiednie przyrosty 
współrzędnych DX i DY. 

Przykład ruchu po przekątnej de- 
monstruje program nr 21, który symu- 
luje odbicie punktu od wewnętrz- 
nych ścian pudełka. Wprowadzamy 
rozmiary pudełka i punkt rozpoczyna 
ruch w prawo w dół z jednakowym 
przyrostem obu współrzędnych. Kie- 


00 1 REM *****************< 0131 XH 
IB 2 REM * •••-•*• '• 

0F 3 REM * Pro* ram nr 21 * 

10 4 REM * * 

QS 5 REM ***************** 

NL 6 REM 

UW 50 XM*79 1 YM=47 
NQ 60 GRAPHICS 0’POSITION 3,8 
RL 70 ? * ? "Podaj x dla lewej i p 
rawej ściany " 

LJ 88 ? , >INPUT XL,XP 
PM 90 IF XL>=XP OR XL<0 OR XP>XM 
THEN 70 

AH 100 ? >? "Podaj y dla sornej i 
dolnej ściany" 

UA 110 ? , < INPUT YG, YD 
UP 120 IF YG>=Y0 OR YG<0 OR YD>YM 
THEN 100 
DE 130 PX* 1 
OM 140 DY=1 

UT 150 X=XL+INT<<XP-XLV2> 

JZ 160 Y=YG+ 1 NT < < YD-YG )/2) 

HT 170 GRAPHICS 5+16 
XZ 180 COLOR 1 

WZ 190 REM *** KREŚLENIE PR0ST0KA 
TA *** 

LZ 200 PLOT XL,YG> DRAWTO XP,YG 

YY 210 DRAWTO XP,YD 

XA 220 DRAWTO XL, YD 

YY 230 DRAWTO XL,YG 

OL 240 REM *** RUCH PUNKTU *** 

VF 250 COLOR 1<PLQT X,Y 
WM 255 FOR K=1 TO 5>NEXT K 
ZW 260 IF X<=XL+1 OR X>=XP-1 THEN 
DX=»-DX 

SA 270 IF YOYG+1 OR Y>«YD-1 THEN 
DY=-DY 

VA 280 COLOR 0'PLOT X,Y 
MC 290 X=X+DX 
MH 300 Y=Y+DY 
NX 310 GOTO 250 

dy punkt dotknie ściany pudełka, 
zmienia kierunek. Jeśli odbija się od 
ścianki pionowej, zmienia się znak 
przyrostu współrzędnej X (DX= — DX). 
Jeśli punkt odbija się od ściany po- 
ziomej, zmieni się znak przyrostu 
współrzędnej Y (DY= — DX). Gdy 
punkt wpadnie w kąt pudełka, zmienia 
się znak obu przyrostów. 

Ruch punktu można przyspieszyć 
zwiększając wartość przyrostów DX i 
DY lub zwolnić (w zadanym kierun- 
ku), jeśli wybierze się krok mniejszy 
od 1 (np. 0.5). 

Program ten można również zmo- 
dyfikować tak, aby działał prawidło- 
wo przy dowolnych wartościach 
przyrostów DX i DY, poprzez zmianę 
warunków odbicia. Kierunek ruchu 
punktu powinien być zmieniony, jeśli 
kolejna zmiana choćby jednej współ- 
rzędnej prowadzi do przekroczenia 
granic pudełka. W tym celu w pro- 
gramie nr 21 należy zamienić linie 260 
i 270 następującym fragmentem (pro- 
gram nr 22) : 

260 IF DX>0 THEN 268 

264 IF X+DX<=XL THEN DX=— DX 

266 GOTO 270 

268 IF X+DX>=XP THEN DX=— DX 
270 IF DY>0 THEN 278 
274 IF Y+DY<=YG THEN DY=— DY 
276 GOTO 280 

278 IF Y+DY>=YD THEN DY=— DY 
W powyższym fragmencie progra- 
mu punkt zmienia kierunek ruchu je- 
szcze przed dotknięciem ściany. Dla 
bardziej prawdopodobnego odwzo- 
rowania odbicia można wyświetlić 




qo i rem ***************** 

IB 2 PGM * * 

PR 3 REM * Pro® ram nr 22 * 

ID 4 REM * * 

QS 5 REM ***************** 

NL 6 REM 

UW 59 XM=79 1 YM-47 
NQ 60 GRAPHICS 0=POSITION 3,8 
RL 70 ? ■ '? "Podaj x dla lewej i p 
raw ® j ściany " 

LJ 80 ? , i INPUT XL,XP • 

PN 90 IF XL>=XP OR XL<8 OR XP>XM 
THEN 70 

flH 180 ? i? "PodaJ y dla eornej i 
dolnej ściany" 

Ufi 110 ? , < INPUT, YG,YD 
UP 120 IF YG>=*YD OR YG<0 OR YD>YM 
THEN 100 
DE 130 DX®1 
DM 140 DY=1 

UT 150 X*XL+INT<<XP-XL)/2> 

J2 160 Y=YG+INT<<YD-YG)/2> 

HT 170 GRRPHICS 5+16 
XZ 180 COLOR 1 

WZ 190 REM *** KREŚLENIE PROSTOKR 
Tfl *** 

LZ 200 PLOT XL,YG DRRWTO XP,YG 

YY 210 DRRWTO XP,YD 

Xfl 220 DRRWTO XL,YD 

YY 230 DRRWTO XL, YG 

OL 240 REM *** RUCH PUNKTU *** 

VF 250 COLOR 1«PL0T X,Y 
SB 255 FOR K*1 TO 10=NEXT K 
El 260 IF DX>0 THEN 268 
DR 264 IF X+DX<=XL THEN DX— DX 
PU 266 GOTO 270 

HJ 268 IF X+DX>»XP THEN DX— DX 
FM 270 IF DY>0 THEN 278 
EB 274 IF Y+DY<=YG THEN DY—DY 
OH 276 GOTO 230 

DS 278 IF Y+DY> =YD THEN DY—DY 
Vfl 280 COLOR 0 ! PLOT X,Y 
MC 290 X-X+DX 
MH 300 Y-Y+DY 
NX 310 GOTO 250 


punkt w pobliżu ściany przed zmianą 
kierunku ruchu. W tym celu tak do- 
bierany rozmiary pudełka, aby były 
wielokrotnościami przyrostów w od- 
powiednich kierunkach. Ogólny spo- 
sób rozwiązania jest następujący: tra- 
jektoria ruchu punktu rzutowana jest 
na ściany i określane są współrzędne 
punktu przecięcia. W tym wypadku 
można dokładniej pokazać odbicie 
punktu od ściany przy dowolnych 
wartościach przyrostu współrzęd- 
nych. 

Na podstawie bieżących wartości 
współrzędnych można obliczyć 
współrzędne punktu przecięcia 
(XI, Yl), według równania prostoli- 
niowego: 

XI = M • XI + (Y — M • X) 
gdzie XI = XP prawej granicy, XI - XL 
lewej granicy obszaru. Współczynnik 
nachylenia trajektorii ruchu oblicza- 
my następująco: 

M = DY/DX 

Powyższe równania można wyko- 
rzystać do wyznaczenia punktu 
przecięcia przy dowolnych granicach 
i kierunkach ruchu. Przy wyznacza- 
niu punktów przecięcia z górą lub 
dnem pudełka wartość XI można ob- 
liczyć za pomocą powyższego rów- 
nania w następujący sposób: XI = X + 
+ (Yl — Y)/M, gdzie Yl = YG lub Yl = 
= YD. W tych wszystkich wypadkach 
wyświetlamy punkt odbicia w odleg- 


łości kroku rastra od ścianki, a na- 
stępnie zmieniamy kierunek ruchu. 

Ruch okręgu jest podstawą przy 
rozwiązywaniu różnorodnych zadań 
twoTzenia ruchomych obrazów. Roz- 
patrzone powyżej metody tworzenia 
efektu ruchu punktów, w pełni stosu- 
je się do symulowania odbicia piłki 
od ścian, jeśli przyjąć, że piłka jest 
większym punktem: przemieszczamy 
środek okręgu i obserwujemy mo- 
ment dotknięcia okręgu do ścianki 
pudełka. Imitacja odbić piłki od ścian 
pudełka realizowana jest przez pro- 
gram nr 23 z wykorzystaniem rozpa- 
trzonych powyżej metod. Dla mode- 
lowania odbicia znajdujemy punkt 
przecięcia trajektorii piłki ze ścianką i 
zmieniamy kierunek ruchu piłki przy 
odległości 1 kroku rastra między piłką 
a ścianką. 

Q0 1 REM ***************** 

IB 2 REM * * 

PV 3 REM * Pro® ram nr 23 * 

ID 4 REM * * 

QS 5 REM ***************** 

NL 6 REM 

DV 58 XM-319'YM-191 
SK 55 TRAP 70 

NQ 60 GRRPHICS 0'POSITION 3,8 
RL 70 ? '? "PodaJ x dla lewej 1 p 
raweJ ściana " 

LJ 80 ? , • INPUT XL/XP 
PN 90 IF XL>-XP OR XL<0 OR XP>XM 
THEN 70 

KU 95 TRRP 100 

RH 100 ? >? "PodaJ a dla forrwJ i 
dolneJ ściana" 

UR 110 ? , ' INPUT YG, YD 
UP 120 IF YG>*YD OR YG<0 OR YD>YM 
THEN 100 
EK 130 DX*5 
BR 140 DY*3<R"3 

Ffl 150 X=XL+INT<<XP-XLX2)'XN«X 
WH 160 Y»YG+INT<<YD-YGV2> 'YN«Y 
JJ 170 GRRPHICS 8+16 
XŹ 180 COLOR 1 

HZ 190 REM *** KREŚLENIE PROSTOKR 
Tfi *** 

LZ 200 PLOT XL,YG< DRRWTO XP,YG 

YY 210 DRRWTO XP,YD 

Xfi 220 DRRWTO XL, YD 

YY 230 DRRWTO XL, YG 

RO 240 REM *** RUCH PIŁKI *** 

XR 290 COLOR 0 

SQ 300 fl=X ! B-Y ' GOSUB 1000 

XN 310 COLOR 1 

NQ 320 fl=XN ■ B=YN ■ GOSUB 1000 

RB 330 X=XN 

RP 348 Y-YN 

CS 350 BX=s0 

DR 360 BY*0 

0X 370 M»DY/DX 

RS 410 IF DX>0 THEN 480 

XI 428 REM *** RUCH W LEWO *** 

OF 430 IF X+DX-R>XL THEN 530 
CZ 448 6X«1 
IW 450 XN«XL+R+1 
0Q 460 GOTO 530 
RD 470 REM 

RV 480 REM *** RUCH W PRAWO *** 

PD 490 IF X+DX+R<XP THEN 530 
CS 500 8X=1 
LR 510 XN*XP-R-1 
QU 520 REM 
QW 530 REM 

XP 540 IF DY>0 THEN 610 
OT 550 REM *** RUCH W GORE *** 

RH 560 IF Y+DY-R>YG THEN 670 
DM 570 BY=1 
HX 580 YN-YG+R+1 


QZ 590 GOTO 670 
QR 600 REM 

RZ 610 REM *** RUCH W DOL *** 
NE 620 IF Y+DY+R<YD THEN 670 
DF 630 BY*1 


IH 640 YN-YD-R-1 
RB 650 REM 
RD 660 REM 

NR 670 REM *** ROZPOZNANIE ODBICI 
R *** 

TO 680 IF BX=0 RND BY-0 THEN 730 
YS 690 IF 8X-0 RND BY-1 THEN 770 
SH 700 IF BX“1 RND BY*=0 THEN 810 
XL 710 IF BX=1 RND BY-1 THEN 850 
QW 720 REM 

JV 730 REM *** BEZ ODBICIA *** 

RH 740 XN-X+DX 
SH 750 YN-Y+DY 
QD 760 GOTO 290 

CM 770 REM *** ODBICIE OD SCIRNY 
"Y *** 

LS 7 80 XN-(YN-Y)/M+X 
IQ 790 DY—DY 
PS 800 GOTO 290 

RW 810 REM *** ODBICIE OD SCIRNY 

IQ 820 YN-(XN-X)*M+Y 
HP 830 DX— DX 
QR 840 GOTO 290 

RO 850 REM *** ODBICIE W ROGU *** 
RF 860 REM 

CR 870 IF RBS < XN-X ) <RBS < YN-Y ) THE 
N 810 

HX 880 IF RBS < YN-Y ) <RBS (. XN-X ) THE 
N 770 
RL 890 REM 
HK 900 DX— DX 
IC 910 DY—DY 
PX 920 GOTO 290 

MF 1000 REM PODPROGRAM KREŚLENIA 
PIŁKI 

OS 1010 FI-0 1 Y1-0‘X1-R 
SY 1020 FIY-FI+Y1+Y1+1 
HY 1038 F I XY“F I Y-X 1 -X 1 + 1 
HI 1040 PLOT R+X1,B+Y1 'PLOT fl~Xl, 
B+Yl 

LF 1050 PLOT R+X1,B-Y1 'PLOT fl-Xl, 
B-Yl 

HE 1060 PLOT R+Yl , B+X1 • PLOT fl-Yl, 
B+X1 

LB 1070 PLOT R+Yl , 8~X1 ' PLOT fl-Yl, 

NJ 1080 FI-FIY'Yl-Yl+1 
XG 1090 IF RBS<FIXYXRBS<FIY) THE 
N FI-FIXY ' X1-X1~1 
KF 1100 IF X1>-Y1 THEN 1020 
RE 1110 RETURN 

Program można zmodyfikować tak, 
aby wprowadzać rozmiary pudełka, 
wielkość i początkowe położenie pił- 
ki. 

Przemieszczenie punktu lub okrę- 
gu po zadanej trajektorii krzywoli- 
niowej wykonuje się za pomocą 
obliczania bieżącego położenia wed- 
ług równania trajektorii. Ruch rozpo- 
czyna się z określonego punktu po- 
czątkowego i kończy w zadanym 
punkcie końcowym. Ruch punktu po 
okręgu lub elipsie można wykonać 
metodą tworzenia okręgów lub za 
pomocą operacji obrotu. W celu 
otrzymania równomiernego ruchu 
po okręgu, kolejno wyświetlane 
punkty powinny być rozmieszczane 
na trajektorii ze stałym krokiem. 
Oznacza to, że należy wykorzystać 
równania trygonometryczne dla obli- 
czania bieżącego położenia przy sta- 
łym kroku kątowym. Stała zmiana 
promienia okręgu powoduje ruch po 
spirali. Obrót po okręgu jest podsta- 
wą podczas modelowania orbit sput- 
ników, planet systemu słonecznego, a 
także detali maszyn. 

Ruch punktu po paraboli symuluje 
lot ciała rzuconego pod kątem. Dłu- 
gość lotu zależy od prędkości począt- 
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kowej i kąta rzutu zmierzonego od 
poziomu. Znając prędkość począt- 
kową S i kąt rzutu A, można obliczyć 
długość lotu R i maksymalną •wyso- 
kość HT: 

R = S • S • SIN (2 • A)/G 
HT = ((S • SIN(A))' , 2)/(2 -G) 
gdzie G — przyspieszenie ziemskie 
(980 cm/s-s). 

Współrzędne punktów trajektorii 
ruchu można określić zmieniając X 
od 0 do R i obliczając odpowiadające 
wartości Y z równania: 

Y = Cl • X ‘2 + C2 • X + Y0 
gdzie Y0 — dowolnie wybrane poło- 
żenie początkowe na ekranie, a 
współczynniki Cl i C2 oblicza się 
według wzorów: 

Cl =G>(2- (S- COS(A))'20 
C2 = — TAN(A) 

Program nr 24 zawiera ilustrację ru- 
chu punktu po paraboli. Współrzęd- 
ne pozycji początkowej (XÓ, Y0), a 
także kąt A i prędkość początkowa S 
wprowadzane są za pomocą instruk- 
cji INPUT. Wartość kąta A ograniczo- 
na jest zakresem 0—90°; z tego po- 
wodu ruch odbywa się tylko w prawo. 
Wartości S w zakresie 200 — 600 za- 
pewniają trajektorię z maksymalną 
wysokością HT—200 i długością lotu 
R—200. Dla modelowania zbliżonych 
wariantów ruchu w programie można 
zmienić punkt początkowy i końco- 
wy. Rzucanie przedmiotu z dachu 
domu lub szczytu góry różni się tym, 
że punkt początkowy i końcowy ma 
różne wartości współrzędnej Y. 

Q0 1 REM ***************** 

IB 2 REM * * 

QQ 3 REM * Proaram nr 24 * 

ID 4 REM * * 

QS 5 REM ***************** 

NL 6 REM 

OM 50 XM=319'YM»159'DEG 
YU 60 GRAPHICS 8'C0L0R 1 
GL 70 ? CHR*< 125); "Podaj x i y pu! 

nk tu sta rtu " i : I NPUT X0 , Y0 
LW 80 IF X0<0 OR X0*XM 0R Y0<0 OR 
Y0>YM THEN 70 

HH 110 ? CHR*< 125 ) > "Podaj kat <0- 
90) 

IV 120 INPUT A 

PC 130 ? "Podaj szybkosc <100-600 

) "i 

QP 140 INPUT S 

PL 160 G-980 

CM 170 R=S*S*SIN<2*A)/G 

KP 180 IF X0+R>XM THEN 110 

MH 210 HT»<<S*SIN<A)) A 2)/<2*G) 

AH 220 IF HT<=0 OR HT>YM THEN 118 
EG 260 C1“G- / <2*<S*C0S<R) ) A 2) 

DZ 270 C2— SIN<A)/C0S<A) 

HG 300 REM *** RUCH PUNKTU PO PAR 
ABOLI 

KH 310 FOR X=0 TO R 
UX 320 Y-C 1 *X*X+C2*X+Y0 . 

SI 330 COLOR 1 ; PL0T X+X0,Y 
LX 350 NEXT X 


Modelowanie ruchu podskakującej 
piłki ilustrowane jest przez program 
nr 25. Piłka spada z pewnej wysokości 
H i skacze wzdłuż ekranu. Wysokość 
podskoków zmniejsza się. Dla uzy- 
skania ruchów wahadłowych piłki 
używa się funkcji SIN(X), a dla stałego 


zmniejszania amplitudy — funkcji 
EXP(X). Jeśli chcemy, żeby ruch roz- 
poczynał się w punkcie (0, H), weź- 
miemy D = PI/2 dla funkcji SIN. Dalej 
wybieramy odległość między punk- 
tami uderzenia o ziemię równą 40, 
żeby na ekranie zmieściło się kilka ta- 
kich punktów. W tym celu przyjmie- ę 
my W = PI/40. Naszym zamiarem jest, 
aby przy każdym podskoku piłka wy- 
świetlała się dokładnie w chwili doty- 
kania ziemi. Oznacza to, że krok 
zmiany współrzędnej X powinien być 
podzielnikiem liczby 40. W naszym 
przykładzie krok zmiany X równy jest 
4, dlatego piłka obowiązkowo będzie 
się wyświetlać przy każdym uderze- 
niu o ziemię w punktach X = 20, 60, 
100... itd. 

Najprostsze ruchy linii i wielokątów 
wykonuje się podstawowymi meto- 
dami, rozpatrzonymi powyżej. Mu- 


Q0 1 REM ***************** 

IB 2 REM * * 

RL 3 REM * Prot ram nr 25 * 

ID 4 REM * . * 

QS 5 REM ***************** 

NL 6 REM 

QS 60 XM=319' YM-191 ' P-7* 16* 16*16 1 
G0SUB 28000 

XJ 70 GRAPHICS 0 1 POS I T I ON 0,10'? 
"Podaj uwsokosc z Jakiej spada 
piłka " t 
LT 80 INPUT H 
ES 90 W-3. 14159/40 
UC 100 D«90*3. 14159/180. 

DE 110 K-0.01 

EM 120 GRAPHICS 8+16 • SETCOLOR 2,0 

,0 

XP 130 COLOR 1 

F0 140 PLOT 0 , YM 1 DRAWTO XM,YM 
QW 150 REM 

VI 160 REM ********************* 
MY 170 FOR XN-0 TO XM-10 STEP 4 
CO 180 YN=H*S I N < W*XN+D ) *EXP < -K*XN 
) 

NF 190 YN-YM-ABS < YN ) -3 

MD 195 TRAP 220 

YL 200 I-USR<P, X, Y, 2,0) 

RX 210 I«USR<P,XN+10,YN,2,1> 

SZ 220 X«XN+10 
RM 230 Y-YN 
SU 240 NEXT XN 
ZI 245 I*USR<P,X, Y, 2, 0) 

EE 250 IF PEEK<764>-255 THEN 250 
WU 260 POKE 764,255 
RZ 270 GOTO 70 

AD 28000 ON PEEK< 28845) *237 GOTO 
28010 1 FOR 1-0 TO 758 1 READ A 'PO 
KE 28672+1, A NEXT I 
OU 28004 RESTORE 29500 
MT 28005 FOR 1-1577 TO 1584 'READ 
A ! POKE I , A > NEXT I 
DS 28010 RETURN 

GW 28672 DATA 104,104,141,5,6,104 
EG 28678 DATA 141,4,6,104,141,7 
CY 28684 DATA 6,104,141,6,6,104 
DA 28690 DATA 141,9,6,141,12,6 
DT 28696 DATA 104,141,8,6,141,11 
YR 28702 DATA 6,104,104,141,10,6 
UB 28708 DATA 201,3,144,1,96,169 
YD 28714 DATA 0,141,13,6,141,14 
DX 28720 DATA 6,141,15,6,141,16 
KB 28726 DATA 6,24,173,4,6,109 
HL 28732 DATA 11,6,141,25,6,173 
EH 28738 DATA 5,6,109,12,6,141 
JG 28744 DATA 26,6,24,173,4,6 
JS 28750 DATA 109,13,6,141,29,6 
JG 28756 DATA 173,5,6,109,14,6 
IZ 28762 DATA 141,30,6,56,173,4 
IX 28768 DATA 6,237, 11,6, 141,27 
IX 28774 DATA 6, 173,5,6,237, 12 
QH 28780 DATA 6,141,28,6,56,173 
GF 28786 DATA 4,6,237,13,6,141 
FX 28792 DATA 31,6,173,5,6,141 
EG 28798 DATA 14,6,141,32,6,24 


FY 28804 
IM 28810 
FR 28816 
IL 28822 
NE 28828 
LB 28834 
PP 28840 
JH 28846 
FR 28852 
PY 28858 
MP 28864 
LG 28870 
JE 28876 
GV 28882 
KM 28888 
LL 28894 
CX 28900 
DD 28906 
ED 28912 
QN 28918 
GK 28924 
KF 28939 
EG 28936 
DX 28942 
ED 28948 
FD 28954 
UB 28960 
CO 28966 
FL 28972 
IE 28978 
EX 28984 
AB 28990 
CV 28996 
SO 29002 


FW 29014 
GV 29020 
DK 29026 
YO 29032 
BI 29038 
ND 29044 
DO 29050 
LQ 29056 
ML 29062 
CW 29068 
FX 29074 
UE 29080 

3 

MZ 29086 
NT 29092 

05 

JM 29098 
XF 29104 

1 

JV 29110 
QS 29116 
EB 29122 
NC 29128 
SG 29134 
MW 29140 
BQ 29146 
XF 29152 
GR 29158 
EX 29164 
LD 23170 
WV 29176 
ER 29182 
IS 29188 
AV 29194 
MW 29200 
JO 29206 
IV 29212 
GH 29218 
BR 29224 
El 29230 
CQ 29236 
MY 29242 
LV 29248 
UQ 29254 
DH 29260 
OM 29266 
U0 29272 
BE 29278 
LJ 29284 
WE 29290 
ML 29296 
ND 29302 
TA 29308 

133 

HO 29314 
UP 29328 
PG 29326 

4 
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173 . 6 . 6 . 109 . 11.6 

141.33.6.173.7.6 

109.12.6.141.34.6 

24.173.6.6.109.13 
6,141,37,6,173,7 
6,109,14,6,141,38 
6,56, 173,6,6,237 

11.6.141.35.6.173 
7,6,237,12,6,141 

36.6.56.173.6.6 

237.13.6.141.39.6 

173.7.6.237.14.6 

141.40.6.173.25.6 

141.0. 6.173.26.6 

141.1.6.173.37.6 

141.2.6.173.38.6 
141,3,6,32,106,114 

173.27.6.141.0. 6 

173.28.6.141.1.6 

32.106.114.173.25.6 

141.0. 6.173.26.6 

141.1.6.173.39.6 

141.2.6.173.40.6 
141,3,6,32,106,114 

173.27.6.141.8.6 

173.28.6.141.1.6 

32.106.114.173.29.6 

141.0. 6. 173.30.6 

141.1.6.173.33.6 

141.2.6.173.34.6 
141,3,6,32,106,114 

173.31.6.141.0. 6 

173.32.6. 141.1.6 

32.106.114.173.29.6 

141.0. 6.173.30.6 

141.1.6.173.35.6 

141.2.6.173.36.6 
141,3,6,32,106,114 

173.31.6.141.0. 6 

173.32.6.141.1.6 

32.106.114.173.14.6 
205,12,6,240,3,144 
10,96,173,13,6,203 

11.6.144.1.96.173 
11,6,133,4,173,12 

6.133.5.173.13.6 

133.205.173.14.6.13 

206.6.4.38.5.6 
205,38,206,56, 165,2 


DATA 109,15,6,141,17,6 
DATA 165,206,109,16,6,14 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


18.6.24.173.17.6 

229.4.141.19.6.173 

18.6.229.5.141.20 
6,173,18,6,16,27 

73.255.141.22.6.173 

17.6.73.255.24.105 

I, 141,21,6,173,22 

6. 105.0. 141.22.6 

24.144.9.141.22.6 

173.17.6.141.21.6 
173,20,6, 16,27,73 

255.141.24.6.173.19 
6,73,255,24,105,1 

141.23.6.173.24.6 

105.0. 141.24.6.24 

144.9. 141.24.6.173 

19.6.141.23.6.173 

17.6.141.15.6.173 
18,6,141,16,6,24 
173,13,6,105,1,141 

13.6.173.14.6.105 
0, 141 , 14., 6, 173, 22 
6,205,24,6,144,39 
208,8,173,21,6,205 

23.6. 144.29.173.19 

6.141.15.6.173.20 

6. 141.16.6.56. 173 

II, 6,233,1,141,11 
6,173,12,6,233,0 
141,12,6,76,55,112 
173,2,6,133,205,169 
0,133,206,6,205,38 

206.6.205.38.206.6 
205,38,206, 165,205, 


DATA 4,16.5,206,133,5,6 
DATA 205 , 38 , 206 , 6 , 205 , 38 
DATA 206,24,165,205,101, 


IM-13 


YO 29332 -DATA 
> 5 

LU 29338 DATA 
DX 29344 DATA 
AU 29330 DATA 
WN 29336 DATA 
OU 29362 DATA 
3 

AC 29368 DATA 
33 

LI 29374 DATA 

WZ 29300 DATA 
>09 


133.203.163.206.101 

133,206,173,0,6,133 

4.173.1.6.133.5 

70.3. 102.4.70.5 
102,4,70,3,102,4 
24,165,205,101,4,13 

203,165,206,101,5,1 

206,24,163,203,101, 

133.205.165.206.101 


GJ 29306 DATA 133,206,173,0,6,41 
CF 29392 DATA 7, 170, 160, 0, 173, 10 
MN 29399 DATA 6,200,10,169,41,6 
MW 29404 DATA 73,255,49,205,145,2 
05 

VS 29410 DATA 96,201,1,200,0,169 
PS 29416 DATA 41,6,17,205,145,205 
TU 29422 DATA 96,199,41,6,91,205 
XK 29428 DATA 145,205,96,0,0,0 
MN 295O0 DATA 128,64,32,16,8,4,2, 

1 

simy wyświetlić wszystkie linie, two- 
rzące rysunek przedmiotu, wykaso- 
wać je i ponownie wyświetlić w no- 
wym miejscu ekranu. Wielokrotne 
powtórzenie tego ciągu operacji mo- 
deluje ruch przedmiotu. Dodatkowe 
trudności wynikają w tych wypad- 
kach, kiedy chcemy jednocześnie z 
ruchem obracać lub skalować 
przedmiot, albo różnie przemie- 
szczać różne części przedmiotu. 

Odcinek utworzony między punk- 
tami (X, Y1) i (X, Y2) porusza się w kie- 
runku pionowym tylko przy kolejnej 
zmianie współrzędnej Y. Program nr 
26 przedstawia wahadłowy ruch w 
górę i w dół linii pionowej między 
dwiema zadanymi granicami. Ruch 
tego odcinka można przyśpieszyć lub 
zwolnić wybierając odpowiednią 
wartość DY w przedziale od 1 do 20. 
Program nie pozwala odcinkowi 
osiągnąć lub przeciąć granicy usta- 
nowionej od góry (YG) I od dołu 
(YD). 

qo i rem ***************** 

IB 2 REM * * 

SG 3 REM * Pro«r*n nr 26 * 

ID 4 REM * * 

OS 3 REM ***************** 

NL 6 REM 

BO 30 XM®31 9 -YM- 159 > GRAPHICS 8 'SE 
TC0L0R 2,0,0'POKE 732,1 
VX 60 ? CHR#<123>;"Pod*J torn* i 
do In* w*rto*c v "j 
YD 70 INPUT YT , YB 
FA 80 1F YT>*YB 0R YT<0 0R YB> YM 
THEN 60 

PJ 90 ? CHR*< 125) i "Pod*J wielk.otc 
zmiany y " > 

2A 100 INPUT DY 
WC 110 X=INT<XM/2> 

MJ 120 Yi«YT+IHT<<Y0-YTV2>-20 
KT 130 Y2«YT+INT < <YB-YT)/2)*20 
LI 140 ? CHR*< 123) ) 

YB 190 C0LOR 1 

IN 200 PLOT X, Y1 1 DRAWTO X,Y2 
XK 210 IF DY>0 THEN 250 
QR 220 REM 

ZA 230 IF Y1+DY<=>YT THEN DY— DY 
OY 240 GOTO 270 
0X 250 REM 

PN 260 IF Y2+DY>»YB THEN DY— DY 
RB 270 REM 
XP 280 C0L0R 0 

JF 290 PLOT X,YJ -DRAWTO X,Y2 
JS 300 Y1=Y1+DY 
KJ 310 Y2=Y2+DY 
PH 320 GOTO 190 


Odcinek pionowy może poruszać 
się w kierunku poziomym, jeśli za- 
miast współrzędnej Y zmieniać współ- 
rzędną X. W tym wypadku powin- 
niśmy ograniczyć jego ruch ściankami 
pionowymi, posiadającymi współ- 
rzędne XL i XP. Jednoczesna zmiana 
fc obu współrzędnych powoduje ruch 
po przekątnej. Oprócz tego można 
otrzymać wahadłowy ruch odcinka 
względem prostej, wykorzystując 
metody symulowania ruchu punk- 
tu. Ruch odcinków poziomych i wy- 
kreślonych pod dowolnym kątem, 
może być realizowany w analogiczny 
sposób. Przemieszczamy oba końce 
odcinka wykorzystując dla nich jed- 
nakowe przyrosty DX i DY. Odcinek 
przemieszcza się szybciej przy zwięk- 
szeniu przyrostów i zmienia kierunek 
ruchu przy zmianie znaku przyrostu 
jednej lub obu współrzędnych. 

Odcinek można przemieszczać po 
trajektorii krzywoliniowej, zmieniając 
wartości DX i DY w czasie ruchu od- 
cinka. Dla zapewnienia ruchu odcin- 
ka po zadanej krzywej niezbędne 
jest, aby wybrany punkt odcinka 
podczas jego ruchu zawsze poruszał 
się po tej krzywej. Np. program nr 27 
ukazuje przemieszczanie jednego 
końca odcinka poziomego po okrę- 
gu. Odcinek porusza się do przodu i 
do tyłu, w górę i w dół. 

QQ 1 REM ***************** 

IB 2 REM * * 

TB 3 REM * Pronr*ro nr 27 * 

ID 4 REM * * 

GS 5 REM ***************** 

NL 6 REM 

DW 60 XM-319'YM-191 
PX 70 XC-INT<XM/2>-40 
ZP 80 YC*INT<YM/2) 

HC 90 R*50 

ME 100 DEG 

IX 110 GRAPHICS 6+16 

AR 120 REM RUCH ODCINKA 

DU 130 FOR A- 13 TO 360 STEP 13 

XG 140 C0L0R 0 

AA 150 PLOT X,Y- DRAWTO X+80,Y 
XA 160 X-XC+R*C08<A) 

ZG 170 Y»YC+R*SIN<A> 

XZ 180 C0L0R 1 

Al 190 PLOT X,Y- DRAWTO X+80,Y 
IU 195 FOR W-l TO 30 ' NEXT W 
CG 20O NEXT A 
MG 210 GOTO 130 
NV 220 END 

W pewnych wypadkach wymaga 
się, aby odcinek zmieniał swój kieru- 
nek w miarę ruchu wzdłuż zadanej 
krzyvvej. Dla uzyskania takiego ruchu 
musimy odpowiednio zmieniać 
współczynnik nachylenia odcinka w 
każdym punkcie trajektorii lotu. Dla 
paraboli współczynnik nachylenia M 
stycznej do krzywej można obliczyć 
dla zadanej wartości X według wzoru: 
M = 2 • Cl • X + C2 

Współrzędne (XI, Y1) drugiego 
końca odcinka można określić znając 
współczynnik nachylenia M i długość 
odcinka L. 

XI — X = L • COS(AS) 

Y1 — Y = L • SIN(AS) 


gdzie: AS — kąt między kierunkiem 
odcinka a poziomem, 
określony z równania: 
AS = ATN(M). 

Imitację lotu strzały wzdłuż parabo- 
li przedstawia program nr 28. Grot 
strzały rysujemy za pomocą krótkich 
odcinków, które schodzą się w punk- 
cie (XI, Y1) i mają współczynnik na- 
chylenia nieznacznie różniący się od 
współczynnika nachylenia strzały. W 
programie współczynnik nachylenia 
dla jednego krótkiego odcinka wy- 
bieramy o 0.75 większy od M, a dla 
drugiego odcinka o 0.75 mniejszy od 
M. Długość krótkiego odcinka równa 
jest 8, a długość całej strzały — 40. 

Przemieszczenie linii, stycznej do 
dowolnej krzywej, można wykonać 

GO 1 REM ***************** • 

IB 2 REM * * 

TW 3 REM * Profr*m nr 29 * 

ID 4 REM * * 

GS 5 REM ***************** 

NL 6 REM 

ZD 100 XM-319-YM-139'P0KE 82,0 
U0 110 GRAPHICS 8-COLOR 1-SETC0L0 
R 2,0,0 

YE 120 ? CHR$(123) J "Pod*J wspolrz 
•dnt poczłtkowe X,Y*'j -INPUT X0 
, Y0 

LP 130 IF XO<0 OR X0>XM 0R YQ<0 O 
R Y0>YM THEN 120 

JS 140 ? CHR*<l25);"Pod*J k*t »tr 
z*lu" ) -INPUT A 
KG 150 A»A*3. 14159/190 
RB 160 ? CHR*<125);"Pod«J pr#dko* 
c ( 100—600 ) 11 1 - INPUT S 
GN 170 G-990-RAD 

RI 180 LA-40 

GK 190 LT-9 

JE 200 REM OBLICZENIE PUŁAPU I ZA 

SI EGU LOTU 

CB 210 R-S*S*SIN<2*A)/G 
XL 220 IF X0+R>XM THEN 140 

ML 230 HT-<<$*SIN<A))*2)/<2*G) 

KW 240 IF HT <0 OR HT>YM THEN 140 

EE 250 C1-G/<2*<S*C0S<A)) A 2) 

DX 260 C2— SIN<A)/C0S<A) 

XR 270 ? CHR*< 123) ) • POKE 732,1 
KX 300 REM **RUCH STRZAŁY** 

LW 310 FOR X-0 TO R STEP R/10 
ST 320 Y-C1*X*X+C2*X+Y0 
YM 330 M-2*C1*X+C2 
AS 340 Al-ATNCM) 

IJO 350 Y1-Y+LA*SIN<A1) 

SG 360 X1«X+LA*C0S<A1) 

YI 370 IF X1>XM 0R YM>YM THEN END 
CN 380 G0SUB 700 -REM KASOWANIE 
FZ 390 M2-M+0.75 
BG 400 A2-ATN<M2) 

SJ 410 X2"X 1 ~LT*CQS < A2 ) 

VA 420 Y2«Y1-LT*SIN<A2> 

GM 430 M3-M-0.75 
CH 440 A3*ATN<M3) 

TG 450 X3«X 1 -LT*C0S < A3 ) 

WH 460 Y3" Y 1 -LT*S I N < A3 ) 

BE 470 G0SUB 600 'REM KREŚLENIE 

SJ 480 X3-X 

SY 490 YS-Y 

EW 500 X1S»X1 

FM 510 Y1S-Y1 

LT 320 NEXT X 

OA 530 END 

TP 600 REM **KRESLENIE STRZAŁY** 
TG 610 COLOR 1 ■ TRAP 650 
AC 620 PLOT X,Y- DRAWTO XI, Y1 
ZE 630 DRAWTO X2,Y2 

TG 640 PLOT X1,Y1 -DRAWTO X3,Y3 
ZM 650 RETURN 

UN 700 REM **KA$0WANIE STRZAŁY** 

TO 710 COLOR 0 - TRAP 750 

7R 720 PLOT XS,YS- DRAWTO X1S,Y1S 

ZF 730 DRAWTO X2,Y2 

BP 740 PLOT X1S,Y1S- DRAWTO X3,Y3 

ZN 750 RETURN 




za pomocą metod wykorzystanych 
w programie nr 28. Przemieszczamy 
jeden koniec odcinka po zadanej 
krzywej, obliczamy współczynnik 1 na- 
chylenia stycznej w każdym punkcie; 
znajdujemy kąt nachylenia, a następ- 
nie obliczamy współrzędne drugiego 
końca odcinka. Współczynnik nachy- 
lenia stycznej do krzywej w dowol- 
nym punkcie określa się z równania 
krzywej. Np. dla wielomianu trzecie- 
go stopnia, którego równanie ma po- 
stać: 

Y = Cl 1 X‘ 3 + C2 • X* 2 4 C3 • X + C4 

współczynnik nachylenia jest równy: 
M = 3 • Cl • XV 2 4- 2 • C2 • X + C3 
Dla sinusoidy opisanej równaniem: 

Y = H • SIN(W • X • D) 
współczynnik nachylenia stycznej w 
punkcie X jest równy: 

M = H • W • COS(W • X • D) 

Ruch stycznej do okręgu lub elipsy 
może być wykonany za pomocą ope- 
racji obrotu. 

Obrót odcinka względem dowol- 
nego punktu można wykonać powta- 
rzając wielokrotnie operację obrotu. 
Program nr 29 ilustruje obrót odcinka 
względem jego środka. Ten typ ruchu 
można wykorzystać dla zobrazowa- 
nia szprych obracającego się koła. 
Równanie obrotu, wykorzystane w 
tym programie, zostało przekształco- 
ne dla skrócenia ilości obliczeń. 


CIO 1 REM ***************** 

IB 2 REM * * 

UR 3 REM * Pro* r*m nr 29 * 

10 4 REM * * 

QS 5 REM ***************** 

NL 6 REM 

DV 50 XM-319-YM-191 
YY 69 XC*INT<XM/2> 

20 70 YC-INT<YM/2> 

QIJ 60 Xl-XC-40 
Cli 30 X2=XC+40 
HM 100 Yl-YC 
HU 110 Y2-YC 
ST 120 A- 10 
MK 130 DEG 
22 140 CR-COSCR) 

EB 150 SA-SIN(A) 

OK 160 XE-XC-XC*CA-YC*SA 
CN 170 YE-YC-YC*CR+XC*SA 
EL 210 GRAPHICS 8+16- SETC0L0R 2/0 
/ 0 

QR 220 REM 

IW 230 X 1 R-XE+X 1 *CA+ Y 1 *SA 
KO 240 Y 1 R-YE+Y 1 *CR-X 1 *SA 
KM 250 X2R-XE+X2*CA+Y2*SA 
ME 260 Y2R-YE+Y2*CA-X2*SA 
KE 270 REM KASOWANIE LINII 
XP 280 C0L0R 0 

RX 290 PLOT XI / Y1 1 DRAWTO X2/Y2 
IU 300 REM KREŚLENIE LINII 
XN 310 COLOR 1 

GB 320 PLOT X1R/Y1R- DRAWTO X2R,Y2 
R 

GP 330 X1=X1R 
HE 340 Y1-Y1R 
HI 350 X2-X2R 
HX 360 Y2-Y2R 
NN 370 GOTO 230 


Wielokąt opisuje się współrzędny- 
mi wierzchołków, które mogą być 
zapamiętane w takiej kolejności, w 
jakiej powinny być połączone. Ruch 
wielokąta oznacza ruch wszystkich 


jego wierzchołków z powtórnym wy- 
świetlaniem boków wielokąta. Pro- 
gram nr 30 demostruie przemie- 
szczenie rysunku samocnodu z lewej 
strony na prawą. Program ten zapew- 
nia przemieszczenie każdego innego 
obiektu, opisanego w deklaracji DA- 
TA. Jednak im więcej odcinków w ry- 
sunku, tym wolniej wykonuje się 
ruch. Można uogólnić program, dla 
zapewnienia ruchu w dowolnym kie- 
runku, wskazując przyrosty dla obu 
współrzędnych, tak jak w poprzed- 
nich programach. 


Q0 1 REM ***************** 

IB 2 REM * * 

0E 3 REM * Pro* ram nr 30 * 

ID 4 REM * * 

QS 5 REM ***************** 

NL 6 REM 

VI 10 REM ****************** 

WR 30 DIM X<20>/Y<20>/XT<20> 

DLf 40 XM«319 - YM-191 

BM 50 READ N 

UB 60 FOR K-l TO N 

DZ 70 READ X/ Y - X<K) a X - Y<K)-Y 

AH 80 XT<K)-X<K> 

JP 90 NEXT K 
VQ 110 H-15 

EM 120 GRAPHICS 8+16 - SETC0L0R 2/0 
/ 0 

TX 130 GOSUB 260 

KX 140 REM PRZESUNIECIE 

DZ 150 FOR K-l TO N 

MS 160 XT<K)«X<K>+H 

GZ 170 NEXT K 

SW 180 GOSUB 320 

UJ 190 GOSUB 260 

BH 200 IF XT < 1 4 > +H> XM THEN 430 

DU 220 FOR K-l TO N 

JV 230 X<K)-XT <K) 

GU 240 NEXT K 
NJ 250 GOTO 146 

NY 260 REM PROCEDURA KREŚLENIA 
AH 270 COLOR 1-PL0T XT<1),Y<1> 

ER 280 FOR K-2 TO N 
DD 290 DRAWTO XT<K>,Y<K> 

GN 300 NEXT K 
ZB 310 RETURN 

00 320 REM PROCEDURA KASOWANIA 
BC 330 COLOR 0'PLOT X< 1 > / Y< 1 > 

EK 340 FOR K-2 TO N 
VT 350 DRAWTO X<K),Y<K> 

GZ 360 NEXT K 
ZN 370 RETURN 
KK 380 REM DANE 
L0 390 DATA 19 

VB 400 DATA 10/90/20/90/20/93/22/ 
97/30/97/32/93/32/90 
VQ 410 DATA 78/90/78/93/82/97/88/ 
97/90/93/90/90/100/90 
CH 420 DATA 100/ 70/ 80. 70/ 75/ 55/ 10 
/ 55/ 10/90 . 

TC 430 REST0RE -GOTO 50 
Skalowanie wielokątów symuluje 
przybliżanie lub oddalanie obiektów. 
Ruch żaglówki na tle zachodu słońca 
realizuje program nr 31. Obraz łódki 
ciągle jest skalowany względem 
punktu linii horyzontu, symulując 
oddalanie się łódki. 

Nieco inny sposób „ożywienia" ry- 
sunku przedstawia program nr 32 
ukazujący sylwetkę biegnącego 
człowieka. Każda faza biegu naryso- 
wana była na papierze milimetro- 
wym, a następnie przeniesiona na 
współrzędne ekranu w celu przed- 
stawienia położenia rąk i nóg w czasie 
biegu. Opisy dwóch faz ruchu prze- 
chowywane są w tablicy. Pozwala to 
łatwo przemieszczać każdy fragment 


Q0 1 REM ***************** 

IB 2 REM * * 

OZ 3 REM * Pro*r*m nr 31 * 

ID 4 REM * * 

OS 5 REM ***************** 

NL 6 REM 

DI 60 DIM X(10)/Y(10)/XN(10)/YN(1 

0) 

0C 70 GRAPHICS 8+16'SETCOLOR 2/0/ 
0- COLOR 1 
OJ 80 REM TL0 

SC 100 PLOT 0,60 -DRAWTO 319/60 
QL 110 REM SŁONCE 
XV 120 R-25 
XK 130 XS"40 
BC 140 YS-59 
TV 150 DA-l/R 
YX 160 01-180*3.14159/180 
ZD 170 C2-360*3. 14159/180 
UH 180 FOR A-Cl TO C2 STEP DA 
FH 190 PLOT XS+R*C0S<A) / YS+R*SIN< 
A) 

CQ 200 NEXT A 

EG 210 REM ODCZYT DANYCH RYSUNKU 

QW 220 FOR K-l TO 9 

0F 230 READ X, Y-X<K>-X-Y<K>-Y 

ED 250 XN<K)-X 

EV 260 YN<K>-Y 

HA 270 NEXT K 

TH 280 GOSUB 510 

RF 290 REM 

LP 300 XF— 30 

VL 310 YF-70 

01 320 HS-0.9 

RC 330 VS-0. 9 

QW 340 REM 

VE 350 XE-XF*< 1 -HS) 

VT 360 YE-YF*< 1-H8> 

WE 370 FOR >1 TO 12 
RJ 380 FOR K-l TO 9 
GD 390 XN < K ) -X < K ) *HS+XE+H 
BH 400 YN < K ) -Y < K > * VS+ YE+V 
GQ 410 NEXT K 
VR 420 GOSUB 570 
SZ 430 GOSUB 510 
RC 440 FOR K-l TO 9 
HN 450 X<K)-XN<K> 

IE 460 Y<K>-YN<K) 

HC 470 NEXT K 
KQ 480 NEXT T 

JG 490 GOSUB 570 - RESTORE -GOTO 22 
0 

NP 500 REM PROCEDURA KREŚLENIA 
X0 510 COLOR 1 - PLOT XN<1>,YN<1> 

QJ 520 FOR K-l TO 8 

IQ 530 DRAWTO XN<K+1 > / YN<K+1 ) 

GX 540 NEXT K 
ZL 550 RETURN 

OY 560 REM PROCEDURA KASOWANIA 
BM 570 COLOR 0-PLOT X<1>/Y<1> 

0V 580 FOR K-l TO 8 
DJ 590 DRAWTO X<K+1 > , Y<K+1 > 

GQ 600 NEXT K 
ZE 610 RETURN 

AJ 620 REM ******************** 

NE 630 DATA 230/148/290/148/250/8 
0/250/156/270/167 
FP 640 DATA 258/182/213/162/210/1 
40,250/156 


wzdłuż ekranu, wyświetlając je na- 
przemian, bez przeliczania względ- 
nego położenia części rysunku. 

Podczas zwiększania ilości obliczeń 
i liczby wykreślanych linii wzrasta 
czas niezbędny dla utworzenia od- 
dzielnego „kadru" ruchomego ry- 
sunku. Dla obiektów złożonych czas 
tworzenia obrazu może okazać się 
tak długi, że zanika wrażenie ruchu. 
Ruch przyśpieszyć możemy, jeśli bę- 
dziemy „ożywiać" tylko proste figury, 
zawierające małą liczbę wykreślanych 
linii lub jeśli ograniczymy się do pro- 
stych typów ruchu. Inną efektywną 
metodą jest organizowanie ruchu tła 
dla stworzenia iluzji ruchu obiektu. 
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iMłSW H3HT 8<I+»IMSCIIJ 31 618 V 

Q0 1 REM UMU***U**m MSE< 

IB 2 REM * ' * 

PU 3 REM * Prot ram nr 32 * 

ID 4 REM * * 

os s rem ***************** 

NL 6 REM 

SE 88 DIM X1<15>,Y1<15>,X2<13>,Y2 
<15> 

WO 90 XM-319 

TC 100 FOR K=1 TO 13 

WO 110 READ X,Y'X1(K)®X=Y1<K)=Y 

GP 120 NEXT K 

SR 130 FOR KM TO 12 

YG 140 REflD X, Y ! X2<K)*X 1 Y2<K>=Y 

GV 150 NEXT K 

EW 160 XO=0 

EW 170 GRAPHICS 8+ 1 6 « 6ETC0L0R 2,0 

,0 

JF 180 IF X0+X1<12»XM THEN 800 
UV 190 GOSUB 270 
VN 200 GOSUB 390 
BX 210 X0=X0+15 

IR 220 IF X0+X2< 1 1 )>XM THEN 800 
SX 230 GOSUB 513 
Ul 240 GOSUB 630 
Al 250 XO=XO+20 
PD 260 GOTO 180 

WD 270 REM KREŚLENIE POZYCJI 1 

Yfl 280 COLOR 1 

RE 285 PLOT XO+Xl < 1 ) , Y1 <1 > 

NS 290 FOR K=1 TO 3 

LS 300 DRAWTO X0*X1<K+1>,Y1<KM> 

GP 310 NEXT K 

DH 320 PLOT X0+Xl<5t>,Yl<5) 'DRAWTO 
X0+X1<6),Y1<6> 

OU 330 DRAWTO XQ+X1 <7> , Y1 <7> 

LK 340 PLOT X0+X1<8?,Y1<8> 'FOR K= 
9 TO 12 

VG 350 DRAWTO XO+Xl <K> , Y1 <K> 

GZ 360 NEXT K 

GS 370 X*X0+X1<13> 'Y“Y1<13> > GOSUB 
1000 

, ZP 380 RETURN 

XF 390 REM KASOWANIE POZYCJI 1 
XB 400 COLOR 0 
RN 410 GOTO 285 

WV 510 REM KREŚLENIE POZYCJI 2 

XR 520 COLOR 1 

SD 525 PLOT X0+X2<1>,Y2<1> 

NU 530 FOR K=2 TO 3 

fJS 540 DRAWTO X0+X2<K> , Y2<K> 

GZ 550 NEXT K 

DJ 560 PLOT X0+X2<4),Y2 (4) -DRAWTO 
X0+X2<5>, Y2<5) 

PA 570 DRAWTO X0+X2<6>, Y2<6> 

JA 580 PLOT X0+X2<7>, Y2<7> : FQR K= 

8 TO 11 

XC 590 DRAWTO X0+X2<K>, Y2(K> 

GQ 600 NEXT K 

GD 610 X*X0+X2<12) 1 Y=Y2<12> = GOSUB 
1000 

ZG 620 RETURN 

SB 630 REM ***KASOWANIE POZYCJI 2 

XL 640 COLOR 0 

QN 650 GOTO 525 

YW 750 REM ***DANE RYSUNKU*** 

MG 760 DATA 14,150,20,133,15,120, 
20,93,5,145,25,133,15,120 
FE 770 DATA 20,115,10,110,19,92,2 
0,103,30,113,20,83 
ZS 780 DATA 2,132,25,136,40,93,43 
, 150,50, 130,30, 120 
ZR 790 DATA 38, 1'11, 22,103-; 38, 95, 4 
3,110,58,104,40,83 
NX 800 END 

KF 999 REM ***KREŚLENIE GŁOWY*** 

VL 1000 PLOT X-5,Y+5' DRAWTO X-5,Y 
-5 

EB 1010 DRAWTO X+5,Y-5 
CU 1020 DRAWTO X+5,Y+5 
DZ 1030 DRAWTO X-5,Y+5 
AL 1040 RETURN 

Program nr 33 demonstruje połą- 
czenie ruchu tła i prostego elementu 
rysunku w celu symulacji ruchu zna- 
cznie bardziej złożonego obiektu. 

Przedstawione programy demon- 
strujące sposoby „ożywiania" rysun- 
ków wykazują, że język BASIC nie- I 


00 1 REM ***************** 

IB 2 REM * * 

GP 3 REM * Prot ram nr 33 * 

ID 4 REM * * 

OS 5 REM ***************** 

NL 6 REM 

OD 80 GRAPHICS B+16'SETCOLOR 2,0, 
0- COLOR 1 

FY 90 REM KREŚLENIE POCIĄGU 

JA 100 READ XI, Y1 

VC 110 FOR K*1 TO 25 

KD 120 READ X2,Y2 

RK 130 PLOT XI, Y1 'DRAWTO X2,Y2 

BK 140 X1«X2 

BZ 150 Y1-Y2 

GX 160 NEXT K 

WN 170 REM OKNO 

HR 180 READ XL,XR,YT,YB 

FK 190 FOR X=XL TO XR 

PK 200 PLOT X, YT 'DRAWTO X,YB 

LO 210 NEXT X 

DS 220 REM DODATKI 

PC 230 FOR KM TO 6 

V0 240 READ X1,Y1,X2,Y2 

RP 250 PLOT XI, Y1 > DRAWTO X2,Y2 

GY 260 NEXT K 

PK 278 REM KOLA 

OG 280 FOR KM TO 4 

YX 290 READ XC,YC,R 

GK 300 GOSUB 1000 

GP 310 NEXT K 

GS 320 REM 

LE 330 REM RUCH POCIĄGU 
QL 340 YM52 
XW 350 RM 5 
MS 360 DEG 

CJ 370 FOR fl-50 TO 360 STEP 50 
NP 380 X1=XC+R*SIN<A> 

MH 390 Y1=YC+R*C0S<A> 

XM 400 COLOR 1 


EN 410 PLOT XI, Y1 'DRAWTO Xl-90,Y1 
VG 420 FOR X»XS TO 319 STEP 35 
SH 430 PLOT X,Y> DRAWTO X,Y-3'DRAW 
TO X+1 , Y 
LW 440 NEXT X 

VM 450 FOR X»XS TO 319 STEP 35 
JO 460 COLOR 0 1 PLOT X,Y' DRAWTO X, 
Y-3> DRAWTO X+1,Y 
MC 470 NEXT X 
IX 480 XS=XS+7 
TZ 490 IF XS>»30 THEN XS=0 
XC 500 COLOR 0 

EO 510 PLOT XI, Yl 'DRAWTO X1-90,Y1 
CX 520 NEXT A 
PJ 538 GOTO 370 
LH 540 REM DANE DO WCZYTANIA 
JS 550 REM POCIĄG 
NU 560 DATA 270,130,290,130,290,5 
0, 300,50,300, 30, 220, 30,220, 70, 


200,70 

SX 570 DATA 209,50, 170,50, 170,70, 
90,70, 30 , 59 ,100,40,69,49,70, 50 


,70,79 

FX 580 DATA 60,70,50,80,59,110,60 
, 120,49, 120,20, 150,50, 150,50,1 
30,90,130 
WV 590 REM OKNO 
GR 600 REM 

WO 619 DATA 230,280,49,70 
DW 620 REM DODATKI 
IU 630 DATA 220,70,220,100,220,10 
0,65,100 

RZ 640 DATA 65,100,45,125,130,130 
, 140, 130 

BO 659 DATA 0,154,319,154,180,130 
,230,130 
PM 660 REM KOLA 

WZ 670 DATA 65,140,10,110,130,20, 
169, 130,20,250, 139,20 
EA 1.000 RAD 

•QR 1010 FOR X=0 TO 3.14/4 STEP 1/ 


R 

RN 1020 XlMNT<R*COS<X>+0.5> 
UD 1030 Y 1 M NT < R*S I N< X ) +0 . 5 ) 
UE 1940 PLOT XC+X1 , YC+Y1 
VH 1950 PLOT XC-X1 , YC+YI 
VW 1060 PLOT XC+X1 , YC-Y1 
WZ 1070 PLOT XC-X1 , YC-Yl 
UK 1880 PLOT XC+Y1 , YC+X1 
VN 1990 PLOT XC-Y1 , YC+X1 
VA 1100 PLOT XC+Y1,YC-X1 
WD 1110 PLOT XC-Y1 , YC-X1 
LG 1120 NEXT X 
AK 1130 RETURN 


zbyt nadaje się do takich zadań. Nie- 
co lepsze efekty mdżna uzyskać pro- 
gramując w języku asemblera. Bar- 
dziej interesujące rezultaty można 
otrzymać wykorzystując znacznie 
szybszy komputer. Zarówno w jed- 
nym, jak i w drugim wypadku zasady 
tworzenia takich efektów pozostają 
niezmienne. 


Q0 1 REM ***************** 

IB 2 REM * * 

RK 3 REM * Proaram nr 34 * 

ID 4 REM * * 

GS 5 REM ***************** 

NL 6 REM 

FH 10 GOSUB 308 'GOSUB 200 

WH 20 K=PEEK<764> 1 IF K<64 THEN 49 

XG 30 FOR 1=1536 TO 1575 

DC 32 POKE I, PEEK< 53770 )'NEXT I 

SB 34 GOTO 20 

OW 40 POKE 764,255 

BC 50 REM 

GC 52 IF K*50 THEN M=2> GOSUB 100' 
REM ..0 

KH 54 IF K=31 THEN M=6> GOSUB 190' 
REM ..1 

MF 56 IF K=30 THEN M»7' GOSUB 100' 
REM ..2 

GM 58 IF K=26 THEN M=8' GOSUB 100' 
REM ..3 

RH 60' IF K=24 THEN M=9' GOSUB 100' 
REM ..4 

ZZ 62 IF K=29 THEN MM0' GOSUB 100 
'REM .5 

BO 64 IF K*27 THEN MM i < GOSUB 190 
■REM .6 

DK 66 IF K=51 THEN M=1 3- GOSUB 100 
■REM .7 

HH 68 IF K*53 THEN MM 5' GOSUB 190 
'REM .8 

GL 70 IF K=63 THEN M=3' GOSUB 100' 
REM ..A 

GP 72 IF K=21 THEN M-4< GOSUB 100' 
REM ..B 

LG 74 IF KM 8 THEN M=5 ' GOSUB 190' 
REM ..C 

XW 76 IF K=58 THEN MM 2 'GOSUB 100 
'REM .D 

YI 78 IF K=42 THEN MM 4 'GOSUB 100 
'REM .E 

FW 30 IF K-62 THEN GOSUB 120 'REM 

S 

EZ 82 IF K=40 THEN GOSUB 140 'REM 

R 

RM 84 IF K*61 THEN GOSUB 150 'REM 

G 

RZ 90 GOTO 20 
AZ 190 REM ZMIANA TRYBU 
KI 102 POKE DL+3, 64+M 
TP 104 FOR I=DL+6 TO DL+14 
HE 106 FOR W=0 TO 20'NEXT W 
MS 108 POKE I , M ' NEXT I 
YZ 119 RETURN 

SE 120 REM ZMIANA OBSZARU EKRANU 
IH 122 ? '? '? '? 'POKE 656,0 
LJ 124 ? "OBSZAR EKRANU ZACZYNA S 
IE TERAZ OD ",SA 
BP 126 ? "WPROWADŹ NOWY ADRES POC 
ZATKOWY" 


VJ 128 INPUT SA 

CV 130 SH=INT<SA/256)'SL=SA-256*S 
A 

GS 132 POKE DL+4,SL'P0KE DL+5,SH 
KP 134 GOSUB 259 'RETURN 
ME 140 REM ODTWORZENIE EKRANU 
GH 142 SL=PEEK<88; 'SH=PEEK(89) 

ID 143 POKE 623,0 

1A 144 SA=SL+256*SH 

RG 146 POKE DL+4, SL ' POKE DL+5,SH 

Ul 147 GOSUB 250 

FA 148 .M-7< GOSUB 190 'RETURN 

MO 150 REM TRYBY GTIA 

NP 152 I =PEEK < 623 ) +64 • POKE 712,48 

YN 154 IF I>255 THEN 1=1-256 

UF 156 IF I> 191 THEN POKE 712,8 

HQ 158 POKE 623,1 'RETURN 

XD 200 REM INICJOWANIE 

TP 202 GRAPHICS 2 

FY 20"k DL-PEEK < 560 >+256*PEEK< 56-1) 

FX 206 S A=PEEK < 88 ) +256*PEEK < 89 ) 


JL8~XKS 


, 


PN 210 ? #6; 
OH 212 ? #6 i 
LQ 214 ? 46; 
SB 216 ? #6; 
PB 218 ? #6; 
GG 220 ? #6;' 
OJ 222 ? #6;' 
PH 224 ? #6.i 1 
TU 226 ? #6 j 
TX 228 ? #6; 


***** 
+++++++++++++ 
t£yfe« Ji" 

aTflRI 8 ft 0 łfl- *" 


***** &" 


X- 1988 
XXXXXXXXXXXXXXXXXX " 
NZ 230 FOR 1=0 TO 15'POKE 1616+1, 

I 

VK 232 POKE 1636+1 , I < POKE 1656+1, 

I 

HI 234 POKE 1676+1,1 'POKE 1696+1, 
17*1 

VB 236 POKE 1736+1, 17*1 'POKE 1756 
+1,1 

GW 238 NEXT I 

GQ 240 POKE 7 12, 43 'POKE 704,12*16 
JT 242 POKE 705, 6*16+6 'POKE 706,1 
5*16+4 

WP 244 POKE 707, 166 

PJ 250 REM GŁÓWNE MENU 

II 252 ? ■? <? '? 'POKE 656,0'POK 

VF 254 5 ?' " 0 GR.0 _A_ Antic3 E 
GR. 15" 

TK 256 ? "_J_ GR. 1 _J_ GR. 12 J3_ 

GTIA" 

WL 258 ? " 2 GR. 2 GR. 13 
Obs-za.r ekranu" 

LP 260 ? " ... etc. GR. 14 R 
Resto re^T 
ZM 270 RETURN 

MD 300 GRAPHICS 0'POSITION 13,1'? 

-OPIS PROGRAMU" 'POKE 752,1 
KL 310 ? <? " Pros ram demonst 
ruje 14 trybów" '? "a raf icznych 
komputerów ATARI serii" 

IE 320 ? "XL i XE oraz cztery try 
by GTIA dla"'? "kazdeao z nich 

DX 330 ? " Tworzy on obraz w 
trybie GR.2"=? "z możliwym wyb 
orem w oknie tekstowym." 

BI 335 ? "Wyświetlany tekst można 
obejrzeć w "*? "56 możliwych 
t ry bach wy sw i et l an i a . " 

WR 340 ? "Klawisze C0] - L‘8] wybi 
. eraja tryby"'? "wyświetlania, 
klawisze CA] - CE] wy-" 

YJ 350 ? "bieraJa tryby specyficz 
ne dla GTIA."'? " Naciśnie 
cie CGJ zmienia stany" 

SJ 360 ? "GTIA. CS] zmienia odwzo 
rowywany ob-" ! ? "szar pamięci. 
Proponujemy obejrzenie" 

BR 370 ? "Pamięci od adresów 133 
6, 53760,"*? "53960, 0 i 40520 
. Klawisz CR] odtwa-" 

ZS 388 ? "rza stan początkowy." 

SK. 390 ? '? '? " NACI ŚNIJ DOWO 

LNY KLAWISZ" 

AO 400 IF, PEEK<764)-255 THEN 400 
ZC 410 RETURN 

00 1 REM ***************** 

IB 2 REM * * 

SF 3 REM * Pros ram nr 35 * 

ID 4 REM * * 

OS 5 REM ***************** 

NL 6 REM 

XP 10 REM ANIMACJA WIELOMIANU 

01 40 GOTO 440 

XX 50 REM POWTÓRZENIE 
PI 60 GRAPHICS TRYB 'POKE 710,0 
VP 70 ON WYB GOTO 30,290 
XF 80 REM CIAGLA PĘTLA 
GT 90 LICZ-1 

UU 100 FOR LICZNIK-1 TO 5 'REM ILO 
SC MIEDZY KROKAMI 
EJ 110 IF STRIG<0)<> 1 THEN 1300 
JE 120 PLOT TEMPX< 1 , LICZ) , TEMPYC1 
, LICZ) 'REM PUNKT POCZĄTKOWY DL 
A KAŻDEGO WIELOMIANU 
JL 130 FOR LL=2 TO 8 
UW 140 DRAWTO TEMPX<LL, LICZ) , TEMP 
Y<LL, LICZ) 'REM KONIEC WIELOMIA 
NU 

NJ 150 NEXT LL 
IZ 160 REM MIEDZY CZĘŚCIAMI 
JH 170 FOR LL-1 TO 8 
RT 180 TEMPX < LL , L I CZ ) »TEMPX < LL , L I 
CZ ) +STPSX ( LL , L I CZ ) ' TEMP Y < LL , L I 


CZ ) -TEMP Y < LL , L I CZ ) +STPSY < LL , L I 
CZ) 

NR 190 NEXT LL 
GW 200 ? #6iCHR*< 125)1 
KA 210 NEXT LICZNIK 
DF 220 LICZ-LICZ+1 ' IF LICZ<-NUM T 
HEN 100 

IN 230 FOR LL-1 TO NUM 

TJ 240 FOR LL2-1 TO 8 

CP 250 TEMPX(LL2,LL)*X(LL2,LL> 

DT 260 TEMP Y < LL2 , LL ) - Y < LL2 , LL ) 

HW 270 NEXT LL2 ' NEXT LL 1 GOTO 90 
FE 280 REM POJEDYNCZA PĘTLA 
VN 290 FOR LICZ-1 TO NUM-1 
ME 300 FOR LICZNIK-1 TO 5 
SS 310 PLOT TEMPX < 1 , L I CZ ) , TEMPY < 1 

MV 320 C FOR LL-2 TO 8 'DRAWTO TEMPX 
< LL , L I CZ ) , TEMPY < LL , L 1 CZ > ■ NEXT 
'LL 

JB 330 FOR LL-1 TO 8 
RN 340 TEMPX < LL , L I CZ ) -TEMPX ( LL , L I 
CZ)+STPSX<LL,L1CZ) ' TEMPY <LL, LI 
CZ ) -TEMPY < LL , L I CZ ) +STPS Y < LL , L I 
CZ) 

NL 350 NEXT LL 
RJ 360 ? #6iCHR*< 125)1 
GN 370 NEXT LICZNIK 'NEXT LICZ 
CB 380 PLOT X < 1 , NUM > , Y < 1 , NUM ) 

LX 390 FOR OST-1 TO 8 

8F 400 DRAWTO X<OST,NUM>, Y<OST,NU 

EB NEXT OST 

KR 420 FOR OPOZ-1 TO 500'NEXT OPO 
Z 

KW 430 GOTO 1300 
VF 440 GOSUB 920 

BT 450 DOL=0'Xl*INT<XGOR/2+0.5)'Y 
1=INT<YG0R/2)'C=1 
EC 460 WSK-0 
RD 470 REM 

SC 480 FOR LICZ-1 TO NUM 
CR 490 GRAPHICS TRYB 'POKE 710,0'C 
OLOR C 

KA 500 LOCATE X1,Y1, KOLOR 'PLOT XI 
, Y 1 1 XST -X 1 1 YST-Y 1 
NR 510 IF STRIG<0) 0 1 THEN GOSUB 
730 

RZ 520 IF WSK THEN 610 
VR 530 GOSUB 840 

ZZ 540 IF NOT <TX OR TY) THEN 51 
0 

EM 550 COLOR KOLOR 'PLOT XST,YST'C 
OLOR C 

ST 560 X1*X1+TX ' IF X1>XG0R THEN X 
1 «XGQR 

RL 570 IF X1<D0L THEN X1=D0L 
XS 580 Y1-Y1+TY ' IF Y1>YG0R THEN Y 
1-YGOR 

SR. 590 IF YKDOL THEN Yl-DOL 
MZ 600 GOTO 500 

AL 610 X1 = INT <XGOR/2+0. 5) ‘ Yl-INT < 
YGOR/2) 1 C-l 

AG 620 WSK-0 • LICZNI K-0 
GF 630 FOR D-15 TO 0 STEP -0.15'S 
OUND 0, 100, 10,D‘NEXT D'SOUND 0 
,0,0,0 

KD 640 NEXT LICZ 
PV 650 REM OBLICZENIE KROKOW 
VE 668 FOR LICZ-1 TO NUM 'FOR LL-1 
TO 8 

DC 670 ROB-L I CZ+ 1 ' I F ROB>NUM THEN 
ROB-1 

TE 680 STPSX<LL,LICZ)-<X<M-,ROB)- 
X<LL,LICZ))/5 

VP 690 STP3Y<LL,LICZ)=<Y<LL,R0B)- 
Y<LL,LICZ))/5 
BS 700 NEXT LL'NEXT LICZ 
MT 710 GOTO 1160 
NR 720 REM WSKAŹNIK TABLICY 
FB 730 FOR 0P0Z-15 TO 0 STEP -0.7 
5 : SOUND 0,60, 10,OPOZ'NEXT OPOZ 
SOUND 0,0, 0,0 
LC 740 L I CZN I K=L I CZN I K+ 1 
ZI 750 X<LICZNIK,LICZ)«X1'Y<LICZN 
IK,LICZ)=Y1 

AM 760 TEMPX < L I CZN I K , L I CZ ) -X 1 ' TEM 
PY<LICZNIK,L.ICZ)"Y1 
AR 770 PLOT X<1,LICZ),Y<1,LICZ)'I 
F LICZNIK-1 THEN 810 
LL 780 FOR TMP-2 TO LICZNIK 
JE 790 DRAWTO X< TMP, LICZ) , Y<TMP, L 
ICZ) 

BR 800 NEXT TMP 


QV 810 IF LICZNIK+1>8 THEN WSK-1 
ZI 820 RETURN 

IW 830 REM OBSŁUGA MANIPULATORA 
ES 840 A-STICKC0) 

KJ 850 TX-<A»5 OR A-6 OR A*7)-<A- 
9 OR A=10 OR A-l 1 ) 

DU 860 TY-CA-5 OR A-9 OR A-13)-<A 
=6 OR A- 10 OR A-l 4) 

AC 870 IF PEEK< 53279) 06 THEN 900 
MK 880 GRAPHICS TRYB+16'? CHR$<12 
5)i "X - *iXST,"Y - " i YST 
SF 890 FOR NN=0 TO 1 < NN-<PEEK<532 
79)06) 'NEXT NN 1 GRAPHICS TRYB+ 
32 

ZF 900 RETURN 

MN 910 REM INICJOWANIE I OTWARCIE 
EKRANU . 

NB 920 DIB )i<8, 10),Y<8, 10),TEMPX< 
8,10), TEMPY<8, 10), TM <8, 2) 

W 930 DIM $TPSX<8, 10) , STPSY<8, 10 
) 

YV 940 XL-1 1 TRAP 1490 < GRAPHICS 15 
HM 950 GRAPHICS 0'POKE 752,1 
OR 960 POSItrON 14,0 
SO 965 ? "ORRRRRRRRRRE 11 
WU 970 ( POSITION 14,1-? "I ANI MAC J 

GD 980 POSITION 14,2 

UA 985 ? "RRRRRRRRRRC" 

DF 990 P0SIT40N 11,4'? " " 

CZ 1000 ? '? '? '? 

DZ 1010 ? "Każdy utworzony wielob 
ok powinirn"'? "mieć 8 Punktów 
, które wybieramy" 

EH 1020 ? "manipulatorem." 

OB 1030 ? "Możemy utworzyć do 10 
wielobokow. " 

HU 1040 ?'?'?" Ile wybieras 
Z' i ' INPUT NUM 

IF 1050 POSITION 2,17'? "Tryb ara 
ficzny? <3/5/7/8/15" i 
OG 1070 ? " ) " i CHR* <158)i CHR* <158) 
i > INPUT TRYB 

FR 1080 IF NOT <TRYB“3 OR TRYB-5 
OR TRYB-7 OR TRYB-8 OR TRYB-1 
5) THEN ? CHR*< 156) ;CHR*< 156)1 
CHR*< 125) 'GOTO 1050 
OJ 1090 IF TRYB-3 THEN XG0R»39'YG 
OR-23 

AM 1100 IF TRYB-5 THEN XG0R-79'YG 
0R-4? 

ZX 1110 IF TRYB-7 THEN XG0R=159'Y 
G0R-95 

KX 1120 IF TRYB-8 THEN XGQR=319'Y 
G0R-191 

TT 1130 IF TRYB- 15 THEN XG0R»159' 

PM IWłS. -TRYB+16 'RETURN 
SR 1150 REM PETLA-POJEDYNCZE POWT 
ORZENIE 

0V 1160 GRAPHICS 0-POKE 752,1 
GI 1170 POSITION 14,3 
AW 1175 ? "GRRRRRRRRRE" 
GR 1180 POSITION 14,4'? "I WYBI ER 

HY fl90 POSITION 14,5 

ĆT 1195 ? "RRRRRRRRRC" 

DD 1200 ? *? *? ’? 

JG 1210 ? " 1) Ciaala Pętla" 

NP 1220 ? 

GW 1230 ? 
la" 

YA 1240 ? '? '? 

IA 1250 ? "Wprowadź wybrana liczb 
e< " i 'INPUT WYB 

EC 1260 IF WYB-1 THEN POSITION 1, 
22'? " DLA PRZERWANIA F-ETU- ijfi£ 

kz r 

oz 

RX 1280 GOTO 60 

FP 1290 REM ZNOWU, ITD... 

OH 1300 GRAPHICS 0'POKE 752,1 
FU 1310 POSITION 14,3 
Al 1315 ? “GRRRRRRRRRE" 
GD 1320 POSITION 14,4'? "I WYBI ER 

HK U30 POSITION 14,5 

CF 1335 ? "RRRRRRRRRC" 

DR 1348 ? '?.'? '? 

BM 1350 ? "1;) Wykonaj ponownie, t 
e *ame w i'e l obok i " j 
KB 1360 ? "2) Wykonaj ponownie, i 
nne wielobok i . " 


2) Pojedyncza pet 


i 1 NEXT OP 


IK*-U 


FU 1370 7 "35 Koniec. " 

LY 1360 7 -7 -7 " Wprowadź wy b ran 
a liczbę 1 “/ i INPUT WYB 
UG 1330 ON WYB GOTO 1416, 1470/148 
0 . 

OG 1400 GOTO 1300 
DL 1410 FOR LL=1 TO NUM 
JE 1420 FOR LL2-1 TO 8 
KG 1430 >TEMPX<LL2,LL)=X<LL2,LL) ! T 
EMPY < LL2 , LL > =Y< LL2 , LL ) 

OS 1440 HEXT LL2 
PV 1430 NEXT LL 
RA 1460 GOTO 1160 
NP 1470 RIJN 

RN 1480 POKE 752,0-END 

WP 1430 XL“0 1 TRAP 1490-GbTO 1300 


GłO 1 REN ***************** 

IB 2 REN * * 

Tfl 3 REN * Proaram nr 36 * 

ID 4 REN * * 

QS 5 REN ***************** 

NL 6 REN 

UO 20 GRAPHICS 5'SETCOLOR 2,0,0 
NX 30 COLOR 1 - PLOT 0,0-DRAWTO 79, 
0-DRAWTO 79,39-DRAWTO 0,39 -DRA 
WTO 0,0 

NH 40 POKE 752, 1 1 ? CHR*<125>; "WYN 
IK ";P; " CZAS "jSjCHR$< 

30) > 

NX 58 POKE 559,46 
PN 60 POKE 704, 188 
YN 70 I=PEEK< 106)-8 
BZ 80 POKE 54279,1 
NY 90 POKE 53277,3 
SI 100 POKE 53256,1 
RW 110 PNB= 1*256 

IS 120 FOR I-PMB+512 TO PMB+640-P 
OKE I , 0 1 NEXT I 

QJ 130 POKE PMB+5 1 2+85 , 60 : POKE PN 
B+5 13+85, 60 

LJ 140 FOR I "PNB+384 TO PNB+512'P 
OKE 1,0- NEXT I 
EN 150 POKE PNB+384, 3 1 S-999 
UX 160 YV»INT<l*RND<0)+2> -XV-INT< 
-4*RND<0)+4) 

BB 170 YM-19 - XM-120 
LG 180 ST-STICK<0> - X-X+4*< 0ST-7)+ 
2*<X<195) ) i X=X-4*< <ST»l 1 >+2*<X 
>45)) 

RP 190 POKE 53248, X 
TV 200 POKE 53278,0 
GD 210 POKE PNB+384+YN1 , 0 - A-A+l - S 
=S-1 

YT 220 IF S<10 THEN ? " "J 
SW 230 IF S<100 THEN 7 " "; 

NF 240 POKE 752,1-7 " " > Sj CHR*<30> 
jCHR$<30);CHR$<30)j 
JC 250 XM=XM+XV-YM1=YM-YM=YM+YV*I 
F XN<50 OR XN>205 THEN XV— XV- 
SOUND 0,20, 10, 15 - SOUND 0,0, 0,0 
-GOTO 210 

RF 260 IF S“0 THEN GOTO 348 
TN 270 IF YN<19 OR YN>92 THEN YV- 
-YV- SOUND 0,20, 10, 15 -SOUND 0,0 
,0,0 -GOTO 210 

NA 280 POKE PNB+384+YN, 3 1 POKE 532 
52, XN 

ZF 290 DF=0 

OW 300 IF PEEK <53256) 00 AND A>3 
THEN POKE 752,2 - P-P+l - ? CHR*<1 
25) i "WYNIK " )P> " CZAS " 

, - YV— YV - XV— XV - DF- 1 
LA 310 IF DF«1 THEN POKE 53278,0- 
fl-0 - GOTO 330 
OW 320 GOTO 180 

ZA 330 XV=INT<-4*RND<0>+2) -GOTO 2 
10 

JO 348 POKE 53277 , 0 - POKE 53265,0- 
POKE 53261,0 
ZO 350 GRAPHICS 18 
JC 360 POSITIOH 2,3-7 #6;"pu:nkty 

, M.p 

UN 370 POSITION 2,9-7 # 6 .- " START = 
nowa ara" » 

JY 380 POSITION 2,11-7 #6; " SELECT 
= koniec" 

DA 390 IF PEEK <53279) =6 THEN CLR 
- GOTO 20 

NV 460 IF PEEK <53279) =5 THEN GRAP 
HI CS 0-END 
QA 410 GOTO 390 


-20 1 REM ***************** 

IB 2 REM * * 

TV 3 REM * Proaram nr 37 * 

ID 4 REM * * 

OS 5 REM ***************** 

Nk 6 REM 

EP 8 GOTO 10000 

HE 10 FOR Y=0 TO R-X=S0R<RS-Y*Y)> 
X1=FT*<RX-X> -X2=FT*<RX+X> -Y1=R 
Y-Y - Y2-RY+Y 

ZH 12 IF Y1>YMAX THEN Y1=YMAX 
AO 14 IF Y2>YMAX THEN Y2=YMAX 
ME 16 X1-X1*<X1>0) - IF X 1 > XMAX THE 
N XI — 1 

YH 24 IF X2>XMAX THEN X2-»XNAX 
HJ 28 IF XI <0 OR X2<0 THEN 35 
EO 30 IF Y1>*0 THEN PLOT X1,Y1-DR 
AWTO X2,Y1 

HP 32 IF Y2>-0 THEN PLOT X1,Y2'DR 
AWTO X2,Y2 

PE 35 NEXT Y-GOTO 100 
JT 40 IF AY-BY THEN PLOT AX, AY-DR 
AWTO BX, BY -GOTO 60 
TH 50 FOR Y-AY TO BY -PLOT CX-<CY- 
Y)*KCA,Y‘DRAWTO BX-<8Y-Y)*KBA, 
Y - NEXT Y 

SW 60 IF BY-CY THEN PLOT BX,BY-DR 
AWTO CX,CY-GOTO 80 
CQ 70 FOR Y-BY TO CY-PLOT CX-<CY- 
Y)*KCA, Y-DRAWTO CX- <CY- Y ) *KCB , 
Y - NEXT Y 
LX 80 GOTO 100 
KF 100 REM GŁOWNA PĘTLA 
EE 110 IF PE£K<53279)=6 THEN 500 
XD 120 ST -ST I CK < 0 ) 

SQ 139 IF ST- 15 THEN IF PEEK <5327 
9>»3 THEN 700 

TK 132 IF ST* 15 THEN IF PEEK<5327 
9> = 1 THEN 9O0 

XK 135 IF ST- 15 THEN IF PEEK<5327 

9) =5 THEN 800 

SV 140 IF ST-15 THEN IF STRIG<0>- 
0 THEN 300 

SU 150 XM < ZNA ) *XM ( ZNA ) +SZYB*X < ST ) 

' YNOW* YM < ZNA ) +SZYB*Y < ST ) 

UL 160 IF XM<ZNA»206 THEN XM<ZNA 
)-206 

TS 170 IF XM<ZNA) <48 THEN XM<ZNA> 
=48 

UT 180 IF YNOW <16 THEN YNOW-16 
XE 190 IF YNOW) 111 THEN YNOW- 11 
PW 200 POKE 53252+ZNA , XM < ZNA ) 

DG 204 IF YNOW*YM<ZNA) THEN 210 
BF 205 POKE PMM+ YM < ZNA ) , PEEK < PMM+ 
YM < ZNA ) ) -MK < ZNA ) - POKE PMM+ YNOW 
, PEEK < PMM+ YNOW ) +MK ( ZNA ) - YM < ZNA 
>*YNOW 

LJ 210 GOTO 100 

MH 300 S*<3, 10>-H1*< 1 , 8) 

JI 320 IF STICK<0)<> 15 THEN S*<3, 

10) =H2*< 1,8) -GOTO 400 


QK 1835 DATA 1, Ul, -1, 1, 0,0,0-. -1/ 
1 ,- 1 , - 1 ,- 1 , 0 , 0 , 0 , 0 , 1 , 0 , - 1 , 0,0 
AC 1100 DIM CI0*<6> - FOR 1 = 1 TO 6- 
READ A - CIO*< I , I )®CHR*<A) - NEXT 


CE 1105 DATA 104,162,16,76,86,228 
PV 1110 DIM SS*<80) , Z8I0R*< 15) 

EL 1500 DIM DLI*< 14) ' FOR 1-1 TO 1 
4 -READ A-DLI*<I, I)-CHRf(A) -NEX 
T I 

UQ 1501 DATA 72, 173, 1 1 1 , 2, 41 , 3, 14 
1,10,212,141,27,208,104,64 
IJR 1502 DL -PEEK < 560 ) +256*PEEK <561 

CP 1514 POKE DL+93, 66 1 POKE DL+96, 
2 - POKE DL+97, PEEK<DL+101 ) - POKE 
DL+98, PEEK <DL+ 102) 

PH 1515 POKE DL+93 , PEEK < DL+ 1 03 ) - P 
OKE DL+94 , SL - POKE DL+95,SH'G0T 
O 1520 

DE 1520 POKE 513,INT<ADR<DLI*>/25 
6) -POKE 512, ADR (DLI*) -256*PEEK 
<5J3> 

CH 1521 POKE 54286,192 
NO 154© GOTO 100 

CW 1550 DATA 0, 1 , 2, 2, 1 , 0, 0, 2, 1 , 1 , 


2 , 0 , 1 , 0 , 2 , 2 , 0, 1 

RW 2000 A=PEEK<764) - IF A-255 OR A 
=60 OR A=39 THEN 2000 
GK 2005 GET #2,A-IF A=126 OR A-15 
5 THEN RETURN 

DA 2010 IF A <32 OR A>*36 THEN 200 


0 

AX 2015 RETURN 

RM 10O00 GRAPHICS 17-POKE 752, 1 - V 
-1 

KO 10001 DL-PEEK < 560 ) +256*PEEK < 56 
1) 

SB 10002 POKE DL+3,71 -FOR 1-6 TO 
11 -POKE DL+I,7-NEXT I 

PF 10030 POSITION 1,3 -7 #6j" kszta 
Ity i kolory" 

UD 10040 POSITION 2,8-7 #6; "QPtiO 
W KOLORY" 

MR 10050 POSITION 2,9-7 #6;" selec 
Ł KSZTAŁTY" 

CA 10055 POSITION 2,10-7 »6j "STAR 
T KREŚLENIE" 

ZR 10056 POSITION 0,12-7 #6; " OPTI 
ON+ SĘLECT PAMIĘĆ" 

ZG 10060 POSITION 0,14-7 #6>"Joys 
tick - Początek" 

JQ 10066 IF STICK<0)<>15 THEN 100 
0 

LS 10067 IF STRIG<0)»0 THEN 1000 

FF 10068 IF STRIG<0)=0 THEN 10068 

EL 10069 GOTO 10065 


LO 990 B=USR<ADR<CIO*>> -GOTO 999 
ZH 997 TRAP 4O00C-POKE 54286,192- 
S*<42, 71 )""WYKRYTO BLAD SPROBU 
J JESZCZE " 

PU 998 FOR 1-42 TO 71 - S*< I , I >*CHR 
*<ASC<S*<I,I))-32>-NEXT I- FOR 
1-1 TO 1000 -NEXT I 
FU 999 TRAP 40000 - S*-SS* ■ CLOSE .#2 
-CLOSE #1 1 GOTO 1520 
HW 1000 REM 

WD 1001 IF V-1 THEN GRAPHICS 23 -P 
M«PEEK< 106)-20 • NKOLRS-4 • XT-1 - Y 
T- 1 ■ FT= 1 . 25 - XMAX- 1 59 - YMAX-95 
EK 1003 POKE 54279, PM -PMM=PM*256+ 
384 -POKE 559, 38 -POKE 53277, 1 
BC 1004 POKE 623,1 -FOR I-PMM TO P 
MM+ 127 -POKE 1,0- NEXT I 
MM 1005 FOR 1-0 TO 2 -POKE 704+1,1 
4 - NEXT I 

AC 1010 DIM XM<2>, YM<2> , MK<2> , KOL 
R*<96> ,KSZTA*<14> 

ZK 1011 FOR 1-0 TO 2-XM<I)-125-P0 
KE 53252+1, 125 ■ YM< I )«16 -NEXT I 
-POKE PMM+16,255 

WB 1012 MK<0)-3-MK<l)-12-MK<2)»48 
-REM MASKA POCISKU 
JU 1014 KSZTA*-" TRÓJKĄT OKRĄG "« 
IF V«1 THEN KOLRf < 1 , 36)-" CZAR 
NY POMARAŃCZ ZIELONY NIEBIESK 
I" 

JV 1015 FOR 1-1 TO 36-K0LR*<I,I>= 
CHR* < ASC < KOLR* < I , I ) >-32) - NEXT 
I 

RG 1016 FOR I -1 TO 14 - KSZTA*< I , I ) 
=CHR* < ASC < KSZTA* < I , I > > -32 > - NEX 
T I 

BW 1 020 KSZTA-0 - KOLR- 1 - ZNA-0 - SZYB 
- 1 1 POKE 704,68 

TF 1021 DIM S*<80> - $-ADR<S*) - SH-I 
NT < S/236) - SL=S-SH*256 
KY 1022 S*=" " 1 S*<80)-" " - S*<2)-S 

* 

DE 1023 FOR 1-1 TO 80-Sf <1, D-CHR 
* < ASC < S# < I , I > ) -32 ) - NEXT I 
FU 1025 DIM H2*<32) -H2*-"ZNACZN # 
SZYBK KOLOR KSZTAŁT " 

WU 1026 DIM H1»<32)'H1»°" ZNACZN » 

B0 

R*<ASC<H2*< I , I ) )-32> - NEXT I 
ZK 1028 FOR 1-1 TO 32'H1*<I, I)»CH 
R*<ASC<H1*< 1,1) >-32) - NEXT I 
HV 1029 S*<3,34)-H2*-S*<46,46)«CH 
R* < ZNA+ 1 6 ) - S* < 55 , 55 ) =CHRf < SZYB 
+ 1 6 ) - S* < 58 , 66 ) -KOLR* ( K0LR*9+ 1 , 
K0LR*9+9> 

LE 1030 S*<68, 74)-KSZTA*<KSZTA*7+ 

1 , KSZTA*7+7) 

SS 1034 DIM X<15),Y<15) -FOR 1-5 T 
O 1 5 - READ A, B - X< I )-A - Y< I )-B -NE 
XT I 

PX 680 GOTO 10 

GH 639 TRAP 40000 -FOR I«0 TO 30 -P 
OKE 53279, 0-NEXT I- GOTO 100 
TF 700 8*<19, 26)-Hl*< 17, 24) 

GK 720 IF PEEK <53279) "3 THEN 720 
TI 730 KOLR-KOLR+l-IF KOLR-NKOLRS 
THEN KCLR-3 


20-IKS 


NO 740 S*<19,26>=H2*<17,24>'S*<53 
, 66 ) =KOLR* < K0LR*9+ 1 , K0LR*9+9 ) 
LW 750 GOTO 100 
C!Q 300 S*<27,34)»H1*<25,32> 

Jfl 820 IF PEEK <53279) “5 THEN 820 
ZZ 830 KSZTR= 1 -KSZTfl 
CK 940 S*<27/34)«H2*<25,32>'S$<68 
, 74>=KSZTA$<KSZTA*7+1 , KSZTA*7+ 
7) 

LX 850 GOTO 108 

KI 900 SS*=S*'POKE 764,255'CLOSE 
42 ' OPEN #2, 4, 0, "K 1 “ ' POKE 702/ 6 
4-POKE 694/0 

JF 910 Sf=" NfiCISNIJ C DLA WPROH 
RDZENIA EKRANU NACI ŚNIJ g 

DLA PRZECHOWRNIA EKRANU 
LI 920 TOR 1=1 TO 80'8*<I, I)=CHR* 
<ASC<S$< I / 1 ) )-32) = NEXT I 
FJ 925 GOSUB 2000' IF A" 155 THEN 9 
99 

NF 926 IF A»A3C<"L") THEN M=4>B=7 
■GOTO 940 

OK 927 IF A»flSC<"8"> THEN H=8’B»1 
1 ' GOTO 940 

UC 930 FOR 1-1 TO 25 'POKE 53279/0 
' NEXT I ' GOTO 925 
WP 940 St=" NAZWA ZBIORU? 


ZBIQR*=S*< 14, 28) 

LV 943 FOR 1=1 TO 80'StCI, I)=CHR* 
<ASC<S*< I / 1 > )-32> 'NEXT I 
FU 950 1=0 

FH 955 GOSUB 2000 *JF A-155 AND 1= 
O THEN 999 

KJ 960 IF A=155 THEN 980 
XT 965 IF 8=126 AND 1=0 THEN 955- 
MR 968 IF A»126 THEN A=ASC<" ")'G 
0SU8 978- 1=1-1 'GOTO 953 
VU 970 IF ' 1-15 THEN 955 
Zfl 975 1 = 1 + 1 'GOSUB 978-G0T0 953 
PQ 979 ZBIOR*< I / I )=CHR* <R) 1 S*< 14+* 
1 , 14+1 > =CHR$ < A-32 ) ' RETURN 
MO 980 TRAP 997 'POKE 54286/64 
GI 991 IF ZBI0R#<1/1)= ,, C" THEN PO 
KE 53775/ 35 -POKE 53768/ 40 'POKE 
33764/0 'POKE 53766/0 'POKE 537 
73/255 

YI 982 OPEN #l/N/0/ ZBIÓR* 

WQ 985 POKE 852 / PEEKC88 > ' POKE 853 
/ PEEK < 89) : POKE 856/0 'POKE 857, 

1 5*V ' POKE 850.8 

VN 330 IF STRIG<0>=0 THEN 320 ' 

IG 345 POKE 704+ZNR, 14 

FP 350 ZNA=ZNA+1'IF ZNR=3 THEN ZN 

A=0 

QP 355 S*<3, 10)=H2$<1,8) >S*<46,46 
>-CHR$<ZNA+16) 'POKE 704+ZNR, 60 
LU 360 GOTO 100 
AB 4O0 8*01/ 18)*=H1*<9, 16) 

JL 405 FOR W=1 TO 50'NEXT W 
GU 410 IF STICK<0)=15 THEN S*<11, 
18)=H2*<9/ 16) ' GOTO 180 
JY 420 IF STICK<0)“14 THEN SZYB-S 
• ZYB+1'IF SZY8>9 THEN SZYB=9 
DE 430 IF STICK<0>=13 THEN SZYB=S 
ZYB-1'IF SZYB < 1 THEN SZYB=1 
QE 435 S* < 55 , 55 > =CHR$ < SZYB+ 16) 

PD 440 GOTO 405 

HT 500 COLOR KOLR ' RESTORE 1550 
NT 505 IF KSZTR=1 THEN 600 
DF 507 TRAP 693'READ fl/B/C 
SG 510 IF YM<A) <-YM<B) AND YM<B>< 
=>YM<C) THEN RY=YM<R) 1 AX=XM<R> ' 
BY-YM<B) >BX«XM<B) -CY»Y|»KC> >CX= 
XM<C> 1 GOTO 520 
OJ 511 GOTO 507 

HH 528 AX- < RX-48 > *XT 1 BX= <BX-48 ) *X 
T ' CX=<CX-48)*XT ' AY=<AY-16)*YT « 
BY= < B Y- 1 6 ) *YT ' CY- < CY- 1 6 > *YT 
TL 530 TRAP 532'KCA»<CX-AX)/<CY-A 
Y> 

SG 532 TRAP 534 - KBfl'®<BX-AX)/<BY-A 
Y) 

YJ 534 TRAP 536'KCB=<CX-BX)/<CY-B 
Y) 

JS 536 TRAP 40O00 
QS 540 GOTO 40 
CL 600 TRAP 699'READ A/B,C 
HT 601 AX-<XM<A)-4B)*XT/FT'AY-<YM 
<A)~16)*YT 

Q0 610 BX=<XM<B)-48)*XT/FT'E:Y=<YM 
<B>-16>m 


TM 620 CX*Vkh<fcV-4fe>tXr/FV'CY=iYN 
<C)-16)*YT 

QD 625 IF CY*AY OR BY*»AY OR AX=BX 
THEN 600 

ZF 630 KCA=<ftX-CX)/<CY-AY> 

YA 632 KBR=<AX-BX)/‘<BY-AY) 

ZY 640 LCA=<CY+AY)/2-KCR*<CX+AX)/ 

2 

XW 642 LBR= < BY+ AY > /2-KBA* < BX+AX ) / 
2 

UM 650 TRAP 699'RY=<KBA*LCA-KCA*L 
BA)/<KBR~KCR) 

VC 660 TRAP 40000 'RX*<RY-LBfl>/KBA 
CK 670 RS“<RYr AY ) * < RY-AY > + < RX~ AX ) 
*<RX-RX) 

YN 675 R“SQR<RS> ' IF R>200 THEN 69 
9 


1 REM ***************** 

2 REM * * 

3 REM * Proe ram nr 38 * 


•4 REM * * 

5 REM ***************** 

6 REM 

110 REM I NICJACJA 

120 POKE ~ 1 06 , PEEK (106) -36 

130 GRAPHICS 8 ■ OPEN #3,9/0 


EV 140 D0L -PEEK < 560 )'D0H=PEEK< 561 
) ' GR=8 

UB 150 M0L=PEEK<88> 'M0H-PEEK<89> 
US 160 GOSUB 1260 
CY 170 POKE 106, PEEK 006) +36 
DA 180 OPEN #1,4,0, "K'“ -GRAPHICS 
24 ' D I M A$ < 49 ) , FARB < 4 ) , HELL <4 ) , 
CI0$<28) 

CB 190 M8L=PEEK < 88 ) ' ł18H=PEEK < 83 ) 
RH 200 GOSUB 1200 
K2 210 FOR J=0 TO 4 > FAP8<J)*INT<P 
EEK < 708+ J ) ✓ 1 6 ) ' HELL < J ) -PEEK < 70 
8+J ) -FARB < J) * 1 6 1 NEXT J 
ZY 228 REM P ODPROGRAM N ASSEMBLER 
ZŁ 

UX 240 RESTORE 260 
IZ 250 FOR J«1 TO 28'READ X’CIO*< 
J)=CHR*<X> 'NEXT J 
NH 260 DATA 104,104,104,170/104,1 
04 

UR 270 DATA 157,66,3, 104, 157,69,3 
JW 280 DATA 104, 157,68,3, 104, 157, 
73 

BP 290 DATA 3,104,157,72/3/76/86/ 
228 

EA 300 X=160 - Y=96> Xl = 160 ' Yl=96 
JB 310 REM JOYS TIC K + GRA FIKA 
BU 320 K=STICK<0) 'Q=STRIG<0> - IF O 
=1 AND K<15 THEN ST-ST+0. 2-0. 2 
*<ST>4) ' GOTO 340 
FF 330 ST=1 

FM 340 X=X+INT<ST*< < <K=5 OR 106 O 
fc K =7) AND <X<319) )-< <K=9 OR K 
=10 OR K-li) AND <X>0) ) )+0.2) 
DL 350 Y-Y+INT <ST*< < <K=5 OR K=9 O 
R 1013) AND <Y<191 ) )-< <K X 6 OR 
K=10 0R. K=14) AND <Y>0)>)+0.2> 
KG 360 IF Q=0 THEN Z=COL 
U'J 370 IF X=X1 AND Y*Y1 THEN 390 
ON 380 TRAP 1148 'COLOR Z 'PLOT XI, 

Y 1 « LOCATE X , Y , Z ' X 1 =X ' Y 1 = Y 
YN 390 TRAP 400' IF PEEK <764 >0235 
THEN GET #1 , M « M-M-47 • ON M GOS 
UB 430, 460, 480,500, 520,560, 660 
,680,790,1420 

AU 400 COLOR ABSCZ-1) -PLOT X,Y'IF 
0-0 THEN XH=X'YM-Y 
JF 418 IF INF-1 THEN 1060 

LP 420 IF M=108 THEN GOSUB 1020 

MU 430 GOTO 310 

JV 440 REM W Uczeni© kreśleni* 

LL 450 COL-0' RETURN 
LW 460 COL-1 -RETURN 
LN 470 REM Kreślenie linii 
AX 480 COLOR COL'PLQT X,Y'DRAWTO 
XM, YM = X2=X ' YZ=Y * Z=COL = RETURN 
MF 490 REM Kreślenie rownolesle 
IY 508 TRAP 590' , XM-XM+<X-XZ>'YM=Y 
M+<Y-YZ) ' GOTO 480 % 

HB 510 REM Rozk*z wypełniania 
HI 520 POSITION XM,YM«POKE 765, CO 
L 

SF 530 XIO 18,#6/0/0, "S' " 


FC 540 GOSUB l24ftvRETUfiH> C 0^1 09 
LF 550 REM KREŚ LENIE OKfr ŁliU 
CI 560 COLOP COL ■ R«8QR< <X-XM>"*2*< 
Y-YM ) A 2 > > XK 1 =XM » YK 1 “YM+R ' FOR J 
=0 TO 6.28 STEP 0.02 
BX 570 TRAP 500 1 XK=S I N < J ) *R+XM ' YK 
-COS C J ) *R+YM ■ PLOT XK 1 , YK 1 • DRAW 
TO XK,YK 

NJ 580 XK 1 *XK ‘ YK 1 *YK > MEXT J'2=C0L 
' RETURN 

YH 390 XMQ=XM ' YMQ=YM 
YS 606 IF XMQ<0 THEN YMQ“Y+< <YM-Y 
>*<X/<X-XM) ) ) - XMQ r -0 ' GOTO 630 
E?P 610 IF YHQ <0 THEN XMQ»X+«XM-X 
)*<Y/<Y-YM> > ) ' YMO-0 ' GOTO 630. 

PF. 620 GOTO 640 
ZM 630 TRAP 600 1 DRAWTO XMQ, YMO 
OT 640 Z “COL = XZ«X ■ Y2=Y ‘ RETURN 
NQ 650 REM K*,*ow*nie ekr*nu 
KM 660 ? #6 , CHR$ C 1 25 ) i > Z«0 » RETURN 
LN 670 REM Zm*n* koloru 
MC 680 GET #1 , F ' F=F~48 
SP 699 IF F®-tS THEN RETURN .REH 
'Ujście po n*ci»r,iec:iu seacJl 
XH 70O IF F <0 OR F>4 THFN 680 
GJ 710 K=STIC»«0) 

GO 729 FARB<F)=FARB<F) + < <K=5 OR K 
=6 OR K='7> AND <FAPB<F> <16) )-< 
<K*9 OR K-10 OR K.= 1 1 ) AND <FRR 
8<F»0>) 

HN 738 HELL < F > -HELL < F > + < < K*o OR K 
=9 OR K=13) AMD <HELL<F) <15>)- 
< <K=6 OR K-10 OR K-14) AND <HE 
LL<F)>0) ) 

01 740 SET COLOR F , FARB < F ) , HELL < F ) 
DS 750 FOR T=1 TO 20'NE>;T T 
EL 760 IF STRIG<0)-0 THEN 680 
OT 770 GOTO 710 

OH 780 REM InforrucJ* Wl*cz./ual* 
cz 

BJ 790 POKE 559,0' IF INF-1 THEN G 
OTO 918 

TH 80O A-D8L+D8H*256 
OB 810 POKE A, 66 
WL 828 POKE A+l , MSL+NS 
RN 830 POKE A+2, M8H+30 
QV 840 POKE A-l, 112 
RJ 850 POKE ft-2, 112 
OA 860 A-A-2 

CP 870 D8H=INT<A/256> 'D8L»A-D8H*2 

56 

PX 880 INF=1 'POKE 703/4'? CHR*<12 
5) 'POKE 703/24 
SR 890 GOTO 980 

YX 908 REM InformacJ* - wy Uczeń i 

e 

TK 910 A=D8L+D8H*256 
ND 920 A=A+2 

Cl 930 D6H=INT<R/256>'D8L=A~D3H*2 

56 

ML 940 POKE A, 112 
QC 950 POKE A+l, 112 
00 960 POKE A+2, 112 
ZE 970 INF-0 
ZE 980 GOSUB 1040-GR-8 
RT 990 POKE 539,34 
ZZ 1000 RETURN 
PI 1010 REM Grafik* i menu 
B6 1028 M-18'IF GR=0 THEN GR“8'G0 
TO 1040 

CM 1030 POKE 568, D0L' POKE 561,D0H 
- GR-0 ' RE.TURN 

XN 1040 POKE 568/ D8L' POKE 5S1/D8H 
AO 1050 RETURN 

RU 1060 REM informacja - wydruk w 

iersz* 

BZ 1070 POKE 752,1 'POKE 703,4 
00 1088 ? CHR*<28)J 
LO 1098 ? "X='‘/Xj " ",CHR*< 127) j 

LL 1100 ? "Y-";Yj “ ";CHR*<127), 

UC 1118 ? "COL=" ,COL 
AX 1120 POKE 752,0 'POKE 703,24 
JL 1130 POSITION X, Y 1 GOTO 428 
GS 1140 REM Korekta współrzędnych 
XK 1150 IF X<0 THEN X=0 
KO 1160 IF X>319 THEN X=319 
YR 1170 IF Y<0 THEN Y=0 
IT 1180 IF Y> 1 9 1 THEN Y=191 
SJ 1190 GOTO 380 

XE 1280 REM Pro 3 ram wyświetlania 
TX 1210 D8L-PEEK < 560 > ' D8H-PEEK < 56 
1) 

AJ 1220 RETURN 


IKS-2A 




DO 1230 REM 8* rwy 
JK 1240 GRAPHICS 56 -FOR J=0 TO 4' 
SETCOLOR J, FflRB< J> , HELL< J> > NEX 
T J 1 IF INF®1 THEN GOSUB 1200'P 
OKE 359 > 0 1 GOSUB 800 
JY 1250 GR-8 * RETURN 
NP 1260 REM Wydruk menu 
XL 1270 POKE 752.1'? CHR*<125)'? 
CHR* (127); CHR* <127);'* JM." 1 ? 


AP 1280 ? CHR*<127); "fi ■ KASOWANI 

AO 1290 ? CHR*<127); M 1 = KREŚLENI 

DL 1380 ? CHR*<127);"2 ® KREŚLENI 
E LINII" 

KZ 1310 ? CHR*<127);"J » KREŚLENI 
E RÓWNOLEGLE" 

QR 1320 ? CHR$<127);"i - WYPEŁNIA 
NIE W PRAWO" 

CG 1330 ? CHR*< 127) ; "3 ® KREŚLENI 
E OKRĘGU '* 

YK 1340 ? CHR*<127>;"6 » KASOWANI 
E EKRANU" 

EJ 1350? CHR*<12?);"I ® WYBRANIE 
■ KOLORU" 

' SX 1360 ? CHR*<127);"& = INFORMAC 
JA O POŁOŻENIU" 

OV 1370 ? CHR*(127>;"a » flENU MAG 


PF 1380 ? ? "_£EiySłL. * MENU <-> 

GRAFIKA - ZMIANA" 

UV 1385 FOR WR«0 TO 100'NEXT WA 
EK 1390 GOSUB 2480 
AH 1400 RETURN 
IH 1410 REM 

VC 1420 COLOR Z 'PLOT XI. Y1 
TY 1430 GOSUB 2460 'POKE 87.0 
GQ 1440 GR=8< GOSUB 1020 
IA 1430 POKE 106. PEEK<106)-36 
EL 1460 GRAPHICS 0' SETCOLOR 1.0.1 
4 i SETCOLOR 2. 3. 5 -SETCOLOR 4.0. 
0'POKE 752.1 

ER 1470 ? | CHR*<125>;CHR*<29);CHR*. 

GV 1480*? "W 1 1? ) 1 N - T KAT AL 
OG" 

CD 1490 ? •? CHR*<127); "2, * WPROW 
ADZANIE OBRAZU" 

PO 1500 ? '? CHR* <127); "J ® PRZEĆ 
HOWANIE OBRAZU" 

KI 1518 ? -? CHR*<127);"i = ZABEZ 
PIECZENIE DANYCH " 

DK 1520 ? '? CHR*< 12?) ; "5 - ODBEZ 
PIECZENIE DANYCH" 

EC 1530 ? ■? CHR*<127);"£ - PRZEM 
IANOWANIE DANYCH" 

JE 1540 ? «? CHR*<127>; "£ = KASOW 
ANIE DANYCH" 

YN 1550 ? ■? CHR*<127);"fi - MENIJ- 

fiBaElCZME" 

OH 1560 ? 

MX 1570 GET #1 . MEN 
JE 1580 REM 
ZE 1390 MEN-MEM-48 
RD 1600 TRAP 1570 
WE 1610 ON MEN GOTO 1630.1690.183 
0,1950. 2028 .2090.2160, 2360 
TB 1620 GOTO 1370 
XO 1630 REM KATALOG 
YE 1640 TRAP 1670 'POSITION 2.20'? 
"Dl 1 *.#";CHR*<30); CHR* < 30 ) ; CH 
R*<30) ; -GOSUB 2290'? CHR* <125) 
;CHR*<29);R* 

FZ 1630 OPEN #2. 6.0. A * 

GK 1660 INPUT #2, A*'? A* 'GOTO 166 


DR 1670 CLOSE #2'? ■? " NACISNIJ 
T gg^lJ<Łfilit^SZ. ,, ' GET #1,035 

ZO 1680 REM Wprowadzani# ‘obrazu 
JF 1690 POSITION 5.5'? CHR$C27fijC 
HR*<31 ) ; 

CR 1700 GOSUB 2280 
OH 1710 TRAP 2410 
TE 1720 IF A*®"" THEN 1810 
ML 1730 3RAM=M8L+M8H*256 
EW 1740 OPEN #2. 4.0. A* 

UO 1750 G=IJSR < ADR < C I O* ) . 32 . 7 . SRAM 
.7680) 

YO 1760 FOR J-0 TO 4 
QE 1770 GET #2. FARB • GET #2.HELL 
ZZ 1780 FARB < J > =FARB ‘ HELL < J ) -HELL 
GPJ730 NEXT' J 


ND 1800 CLOSE #2 = IF PEEK<867)<>1 
THEN POKE 1 95 . PEEK < 867 ) ‘ GOTO 2 
410 

SQ 1810 GOTO 1470 
TY 1820 REM Przechowani# obrazu 
JŁ 1830 POSITION 5.7'? CHR*<27);C 
HR*<31 ) ) 

DF 1840 GOSUB 2280 
OY 1850 TRAP 2410 
TS 1860 IF A*-"" THEW 1810 
MZ 1870 SRAM=M8L+M8H*256 
HO 1880 OPEN #2. 8,0. A* 

LH 1890 Q=U9R<ADR<CI0*) , 32, 11. SRA 
M. 7680) 

YA 1300 FOR J®0 TO 4 
PW 1910 PUT #2.FARB<J) 'PUT #2. HEL 
L< J) 

FY 1920 NEXT J 

NO 1930 CLOSE #2'IF PEEK <867) Ol 
THEN POKE 195. PEEK <867) 'GOTO 2 
410 

TB 1940 GOTO 1470 
OQ 1950 REM Zabezpieczeni* danych 
LS 1960 POSITION 5.9'? CHR*<27);C 
HR*<31 ) J 

DQ 1970 GOSUB 2280 
PG 1380 TRAP 2410 
ON 1990 IF A*®"" OR A*<4>®"" THEN 
1470 

SZ 2000 XIO 35. #2. 0.0. A* 

SB 2010 GOTO 1470 

KR 2020 REM Odbezpieczenie danych 


FS 2030 POSITION 5.11-? CHR*<27); 
CHRf <31 ); 

CG 2040 GOSUB 2280 
OG 2050 TRAP 2410 
NN 2060 IF A**"" OR A*<4)®"" THEN 
1470 

UF 2070 XIO 36, #2. 0. 0. A$ 

SW 2080 GOTO 1470 
W 2090 REM Przemianowanie danych 
GV 2100 POSITION 5,13'? CHR*<27); 
CHR*<31>; 

CJ 2110 GOSUB 2288 
NZ 2120 TRAP 2410 
NG 2130 IF A*="" OR R*<4>»"" THEN 
1470 

SG 2140 XIQ 32, #2, 0,0, A* 

SP 2150 GOTO 1470 
CR 2160 REM Kasowanie danych 
JA 2170 POSITION 5,15'? CHR*<27>; 
CHR*<31>; 

DE 2180 GOSUB 2280 
OU 2190 TRAP 2418 
MZ 2200 IF R*="" OR A*<4)="" THEN 
1470 

HM 2210 OPEN #2, 6,0, A* 'CLOSE #2-? 

CHR* < 28 ) ; CHR* < 1 56 ) ; CHR* < 28 ) ; 
XC 2220 ? "NACISNIJ -Y- W CELU WY 

KASOWANIA.."'? " > " ; A# ' ? 

KH 2230 ? 

ĘiEZBSEW. 

noOWANE . ! ";CHR*<30>; 

GK 2240 GET #1,A'IF A<>89 THEN 14 
70 

SW 2250 XIG 33/ #2, 0. 0, At 
SU 2260 GOTO 1470 
PD 2270 REM Wprowadzanie nazwy zb 
ioru 

Qfl 2280 POSITION 2,20'? "C'"; 

CU 2290 GET #1.A 

MK 2300 IF A® 156 OR A=157 OR A-12 
5 OR A=28 OR A=29 THEN 2290 
NP 2310 ? CHR*<A> ; 

UF 2320 IF A 0 155 THEN 2290 
DO 2330 POSITION 2,20 
CD 2340 INPUT #3, A* 

AV 2350 RETURN 
IV 2360 REM 

NM 2370 GOSUB 1270 'POKE 106,160 
AS 2380 GOSUB 1240 
PY 2390 POP 'LOCATE 160, 96, Z 'GOTO 
300 

VI 2400 REM Sygnalizacja bledu 
i 2410 CLOSE #2 'POSITION 2,21'? 
CHR* < 1 37 ) ) CHR* < 1 57 ) ; CHR* <157); 
KQ 2420 ? " ERROR - "; PEEK <195) 

AK 2430 ? '? 


Ikf 2440 GET #1, A 'GOTO 1470 
IU 2450 REM 


TU 2460 POKE l 
OKE 87,8 


, MOL 'POKE 89.M0H >P 


BD 2470 RETURN 

SG 2480 POKE 88,M8L'P0KE 89,M8K'P 
OKE 87,8 
BJ 2498 RETURN 
FT 3000 POKE 764,255 
LU 3019 K=PEEK<764) ■ POKE 764,253 
XV 3015 G=1 

ZO 3020 IF K=255 THEN K*15'Q=1'RE 
TURN 

WD 3030 IF K=33 THEN K=15'Q®0'RET 
URN 

AP 3040 IF K=14 THEN RETURN 
RG 3050 IF K=l5 THEN K»13' RETURN 
BN 3060 IF K=6 THEN K=1 1 ' RETURN 
YX 3070 IF K=7 THEN RETURN 
AZ 3080 RETURN 

PT 4000 ? PEEK <764) 'GOTO 4000 


GO 

IB 

VL 

B 

NL 

UF 

XD 


JK 

GZ 


FH 

PB 

MR 

YJ 

PN 

HL 


PZ 

NF 

IZ 

MM 

QH 


HO 


1 REM ***it***M ******* 

2 REM * * 

3 REM * Proeram nr 39 * 

4 REM * * 

5 REM **.*.t******ttttrt.* 

6 REM 

10 REM KREŚLENIE W TRYBIE 10 
4fe DIM C*< 12) , CIO*<7> , ZBIÓR* <2 
0>,B*<17),C1*<30),S<35) 'H®6'Ui 
®1'U16»16 

45 FOR I-I TO 27'READ A>C1*<I, 

1)»CHR*<A)>NEXT I 

47 DATA 104,162,0,172,193,2,18 

3, 194,2, 157, 193,2,232,224,8, 14 

4,245,140,200,2,96,65,63,65,65 

,65,65 

50 POKE 1&, 112 'POKE 53774,112' 
IF DA THEN RETURN 
52 POKE 764,255 

55 GOSUB 1000 

56 IF PEEK <764) =255 THEN 56 
58 POKE 764,255 

60 GRAPHICS 1 7 < DR=1 1 H=6 1 POKE 7 
10, 134 'POKE 708, 198 'POKE 709,8 
8 ' QQ=764 ' QQ 1 =255 ' RESTORE 370 ' F 
OR I®1 TO 35'S<I)®U'T®U 

65 FOR 1=1 TO 35 ' S< I >-U ' NEXT I 
1 T=U 

66 GOSUB 1100 

100 FOR 1 = 1 TO H ' READ R'S<R)«U 
1 1 NEXT I 

110 FOR I*U1 TO H ' READ A'S<A>= 
-U1'NEXT I ! AL*U'SG=U1 
120 GRAPHICS 26 'RESTORE 390 'FO 
R 1=785 TO 712 'READ A 'POKE I,A 
NEXT I ' X-38 1 Y®100 
1 25 C=U 1 ■ Z*U ' COLOR C ‘ I ®U • F®U ' E 


®U 

YB 130 POKE GG.GGl -GOSUB 50- IF T 
THEN RETURN 

ND 140 POKE 77 , U ' 3®PEEK <, 632 ) ! SG=P 
EEK<644) ' IF AL AND S=15 THEN A 
=AL ‘ SG=R 

BY ISO IF AL AND SOIS THEN AL-S- 
R=SG 

SA 160 Q=S<S)=H=S<S+20)'X»X+Q*<<X 
.<79 AND Q*U1 ) OR <X>IJ AND Q=-U 
1 ) ) •• Y=Y+H*< <Y<184 AND H®U1> OR 
<V>U AND H=-UD) 

GZ 170 IF E THEN LOCATE X,Y,C'COL 
OR Ul -PLOT X, Y 

KN 180 IF SG®U THEN C=U1+C*<C<9) ' 
E=U' COLOR C » IF I*U1 THEN I=U'C 


UY 190 IF I-Ul THEN PLOT X,Y'COLO 
R Ul -PLOT X, Y : GOTO 220 
RV 200 IF F THEN TRAP 200'POSITIO 
N X , Y = POKE 765,0X10 10, #6, 12, 
0, "S 1 11 

HO 210 PLOT X,Y’ COLOR U -PLOT X,Y« 
IF Z THEN Y1-USR<ADR<C1*>> 


IQ 220 COLOR C > PLOT X , Y ' A-PEEK < QQ 
) ' IF A=QQ1 THEN 140 
EM 230 POKE QQ,QQ1 • IF A«44 AND Z- 
U THEN Z=U1 - A*QQ1 
FZ 240 IF A=44 AND Z THEN Z-U-RES 
TORĘ 390 'FOR 1-705 TO 71 2 'READ 
J ' POKE I , J ' NEXT I 
PT 230 19 A-13 THEN E®U1'F«U'I®U 
LU 260 IF A*0 THEN C*= "wprowadzań 
ie" ' GOTO 410 

PG 270 IF A=62 THEN Ci- "Przechowa 
nie" 'GOTO 410 

AO 280 IF A-56 AND F®U1 THEN F-U' 
A=GQ1 


Z2-IKS 


ER 290 IF A-56 AND F-U THEN F-Ul ' 
E-U-I-U 

QC 300 IF A*42 THEN I-Ul -E-U-F-U- 

0 a Q , Q a (J 

DE 310 IF A«54 OR A-l 18 THEN -60 
NI 320 IF A-18 AND AL THEN A»QG1 • 
AL-U-R-Ul 

CI 330 IF A- 18 THEN AL-S-R-SG 
HV 340 PLOT X, Y 'COLOR U -PLOT X,Y- 
IF 2 THEN Y 1 -USR < ADR ( C 1 * ) > 

FP 350 COLOR C-PLOT X,Y'GOTO 140 
MB 360 REM DANE RUCHU MANIPULATOR 
A 

SR 370 DATA 5,6,7,23,29,33,9,10,1 
1,26,30,34 

GX 380 REM DANE KOLORU DLA GR. 10 
LN 390 DATA 6,36,70,102,132,166,2 
26,42 

IP 400 REM WPROWADZANIE LUB PRZEĆ 
HOWANIE RYSUNKU 

FK 410 ZB I OR#* " " • GOSUB 570-GRAPHI 
CS 2-P0SITI0N 4,1-? #6; C# - ? 46 
; " NAZWA ZBIORU ?"<INPUT ZBIÓR# 
SK 415 IF LEN (ZBIÓR#) <3 AND ZBIÓR 
*(1,1>»"C" THEN 500 
OH 417 IF LEN(ZBIOR*»Ul THEN 470 
IZ 420 GRAPHICS 2-POKE 710,130-? 
#6; "KflIflU0Ł.2BlflR0H" 1 TRAP 468 - 
OPEN #U 1,6, U, "Dl-*. PIC” -FOR I* 
Ul TO 9-INPUT #U1 , B# 

RA 430 IF ASC(B#> 032 THEN FOR 1 = 
Ul TO LEN(B#> - ? #6; CHR*(ASC(B* 
(I, I) >+128); -NEXT I- GOTO 460 
GN 440 IF ASC(B#>-32 THEN B*»B*(2 
> 

KN 450 TRAP 460-? #6;B*-NEXT I 
TS 460 CLOSE «U1 •? "File to ";C*; 

1 INPUT ZBIÓR*- IF LEN (ZBIÓR#) <2 
THEN 420 

PT 470 IF ZBIORfC 1 ,2)0 "D- " THEN 
B*=ZB I OR# - ZB I OR*- " D - " - ZB I OR* ( 3 

)-B# 

JS 480 A*LEN( ZBIÓR*) - TRAP 490= IF 
ZBIÓR# (A-3)*" .PIC" THEN 500 
XE 490 ZBI0R*(A+1 )"".PIC" 

BE 500 TRAP 60 -CLOSE #2-IF C#«"s* 
ve" THEN I-8-CMD-1 1 -POKE 539,0 
•GOSUB 520 -POKE 559, 34 -GOTO 12 
0 

PY 310 CMD-7-T-1 -GOSUB 120-I-4-GO 
SUB 520 -GOTO 140 
RA 520 OPEN #2, 1,1 28, ZBIÓR# 

NJ 530 J-STADR- GOSUB 560 -POKE 868 
, B - POKE 869, A 1 J-BYTES - GOSUB 56 
0 - POKE 872, B- POKE 873, A 
QZ 540 POKE 866 , CMD ' ERROR-USR < ADR 
(CIO*), 32) 

ZQ 550 ERR0R-PEEK(867) -CLOSE #2>R 
ETURN 

ZP 560 A»INT(J/256)-B»INT(J-A*256 
)- RETURN 

NW 570 POKE 764,255-CI0*-"hhhłLVd 
" 1 BYTES-7400 - STADR-PEEK < 88 ) +25 
6*PEEK(89> -RETURN 
HW 1000 REM 

RA 1010 GRAPHICS 0-DA-1 -GOSUB 30- 
POSITION 13,3-? "OPIS PROGRAMU 
."'? -? -? 

FX 1020 ? " Prezentowany pros 
ram umożliwi*"-? "kreśleni# ry 
#unku, z* pomoc* m*nipu-" 

MV 1025 ? "Utor*, w dziewiecioko 
lorowym trąbie" 

YU 1030 ? "sraficznym (10). Używa 
on stacji dys-"-? "kow lub m* 
s neto fonu do przechowani*" -? " 
rysunku. " 

QP 1040 ? " Po uruchomieniu e 
rojramu PoJawi*"-? "sie zeat*w 
dostępnych instrukcji." 

UW 1050 ? "Możemy powrocie do nie 
so w dowolnej"-? "chwili po n* 
clsnieciu klawisz*" 

HI 1060 ? "<CLEAR>, lecz kasuje t 
o rysunek."-? "Możemy zmienić 
kolor kreśleni* nacis-" 

KQ 1070 ? "kaJae przycisk manipul 
atora. " 

BB 1080 ? -? "Dalsze informacje p 
o naciśnięciu"'? "dowolneio kl 
awlsza. " 

BA 1090 RETURN 

CY 1100 GRAPHICS 0- GOSUB 50-POSIT 
ION 10,0-? 


Ifl" 

OD 1110 ? -? " manipulator. kres 
lenie" -? 

BT 1120 ? " przycisk zmian* 
koloru" -? 

BA 1130 ? " tab key zamiana 

kolorow"-? 

AO 1140 ? " elear wyłącz# 

nie kreślenia" >? 

TU 1150 ? " I kursor 

niewidoczny 771 ? 

MN 1160 ? " E tryb ka 

sowania" =? 

NC 1170 ? " C kontynu 

owanie ruchu"-? 

YP 1180 ? " E wypełni 

anie w Prawo"-? 

WD 1190 ? " L wprowad 

zanie (LOAD>"=? 

JZ 120O ? " S Przecho 

wanie (SAVE>"=? 

MF 1216 ? " NACI ŚNIJ DOWOLNY K 

LfoWISZ" 

TL 1220 I F PEEK < 764 ) =255 THEN 122 
0 

BQ 1230 POKE 764, 255 -RETURN 

Q0 1 REM #*##*********#*## 

IB 2 REM * * 

OY 3 REM # Pros ram nr 40 * 

ID 4 REM * # 

QS 5 REM ***************** 

NL 6 REM 

KG 10 GRAPHICS 8-DIM PIER<22,14>, 
DRU<22, 14) 

UR 15 GOTO 45 

LZ 20 FOR X-1 TO 22 -FOR Y=1 TO 14 
AP 30 PIER(X,Y)«0-DRU(X,Y)=0 
DG 40 NEXT Y - NEXT X 
ZY 42 RETURN 
MM 45 GOSUB 10000 
GU 50 GRAPHICS 2-POKE 712, 148-L-0 
BN 60 STX=0 - STY-0 1 AKTX-0 - AKTY-0 - M 
AXX*1 - MINX-22 
EJ 65 MX=1 - MI-22 
IK 70 COLOR 10 -PLOT AKTX, AKTY 
ZP 80 D-STICK<0) 

CF 81 IF 'STRIG<0) THEN 90 
PM 82 P I ER < AKTX+2 , AKT Y+2 ) - NOT <P 
IER(AKTX+2, AKTY+2) ) 

DJ 83 IF AKTX+2>MAXX THEN MAXX»AK 
TX+2 

YP 84 IF AKTX+2<MINX THEN MINX=AK 
TX+2 

EY 87 FOR CZ-1 TO 180-NEXT CZ 
MD 90 IF D/2«INT(D^2) THEN AKTY-A 
KTY-1 

JG 100 IF D=9 OR D-13 OR D-5 THEN 
AKTY-AKTY+1 

JA 110 IF D>8 AND D<12 THEN AKTX- 

HE 120 IF D>4 AND D<8 THEN AKTX»A 
KTX+1 

RB 130 AKTX*AKTX#(AKTX>*0) -AKTY-A 
KTY*(AKTY>»0) 

DL 140 IF AKTX> 19 THEN AKTX*19 
SG 150 IF AKTY> 1 1 THEN AKTY* 11 
FU 160 COLOR 0 = PLOT STX,STY-IF PI 
ER(STX+2,STY+2)-l THEN COLOR 1 
20 -PLOT STX, STY 

ZD 165 COLOR 10 -PLOT AKTX, AKTY 
ZA 170 STX-AKTX - STY-AKTY 
YL 175 IF PEEK (53279) -6 THEN COLO 
R 0 - PLOT STX, STY -D*l- GOTO 200 
SA 180 GOTO 70 

HK 200 POKE 709, 30 -POKE 711,0-POK 
E 752, 1 - L*L+1 - ? CHR*( 125) ; "Pop 
ulacJa nr ";L 

PD 210 FOR X-2 TO 13 -FOR Y-MINX-1 
TO MAXX+1 
SM 221 GOSUB 500 
JB 222 TRAP 4000O 
DI 230 IF PIER(Y,X)-1 THEN IF SAS 
-2 OR SAS-3 THEN DRU(Y,X)*1 -GO 
SUB 300 

AS 232 IF SAS-3 THEN DRU(Y,X)-1-G 
OSUB 300 

EH 240 COLOR (120+128*D)*DRU(Y,X> 
YF 242 PLOT Y-2,X-2 
WM 250 NEXT Y-NEXT #-MINX-MI -MAXX 
-MX 

CC 260 K-0-FOR X-2 TO 13 -FOR Y-2 
TO 21 

AS 265 IF DRU(Y,X)<>0 THEN K-K+l 
DT 270 PIER(Y,X)-DRU(Y,X) -DRU(Y,X 


UP 

KJ 

TB 

NI 

VK 

ZD 

X0 


VN 

EF 

RV 

XI 


GL 

Q0 


PE 

GN 

BH 

YK 

BC 

NR 

WV 

LE 

PS 

FW 

RA 


DU 


OT 


LM 

NE 


TF 

ZJ 

TY 

TL 


RD 

UA 

XI 

ZU 


280 NEXT Y-NEXT X 
285 IF K-0 THEN RUN 
290 D- NOT (D) -GOTO 200 
300 IF Y>MX THEN MX-Y 
310 IF Y<MI THEN MI-Y 
320 RETURN 

500 POKE 77,0-SAS-0-FOR A— 1 T 
O 1 - FOR B— 1 TO 1 - IF A-0 AND B 
-0 THEN 520 

505 IF Y+A>22 OR X+B>14 THEN 5 
20 

510 SAS-SAS+P I ER ( Y+A , X+B ) 

520 NEXT B - NEXT A -RETURN 
1000 GRAPHICS 0-POSITION 13,2- 
? "OPIS PROGRAMU" 

1005 POKE 764,255 
1010 ? '? -?. " Zasady teJ 
sry stworzył John "-? "Horton 
Conway, matematyk z Cambridse, 


1020 ? "w 1970 roku. Rozpowsz# 
chnil Ja Martin"'? "Gardner, r 
edaktor 'Scientific Ameri--"'-? 
"can. " 

1030 ? " Jest to sra ni ety 
pow*. Gracz "•? "praktycznie n 
ie istnieje. Mamy" 

1048 ? "uproszczona symulacje 
rozwoju kolonii"'? "mikroorsan 
izmów osiadań* pod mikro-" 

1050 ? "skopem. W przeciwienst 
wie do rzeczy-"-? "wisteto zyc 
ia, Jeso symulacja ma " 

1060 ? "trzy proste resuly. Ka 
zdy ruch (lub "*? "'populacja' 
) zmieni* kształt komorek" 

1070 ? "zsodnie z tymi resulam 
i. Generacje"-? "zmieniaj* kol 
ory miedzy złotym * " 

1080 ? "czarnym, na niebieskim 
tle." 

1090 ? -? " NACISNIJ DOWOL 
NY KLAWISZ." 

1100 IF PEEK (764 >-255 THEN 110 
0 

1110 POKE 764,255 
1120 GRAPHICS 0-? ■? -? "1. B* 
sula śmierci . Komorka z cztere 
-">? " ma lub wieceJ sasiada 
mi umiera" 


1130 ? " z zaseszczenia. Kom 
orka z Jednym "<? " lub bez 
sasiadow umiera z samot-" 

1140 ? " nosci." 

1150 ? "2. Re.uU prz.trw.ml, . 
Jeśli komorka 1 '-? " ma dwóch 
lub trzech sasiadow, zy-" 

1160 ? " Je do następnej run 
dy."-? "3. Res z la, J* 
sli dokładnie"-? " trzech sa 
siadów Jest w bezposred- 
1170 ? " niej Ibliskosci pust 
eso obszaru,"-? " rodzi sie 
nowa komorka." 

1180 ?'?-?" Po uruchomi 
eniu na ekranie PoJa-"-? "wi s 
ie misaJaca swiazdka C*J. Uzyw 


1190 ? "Jac manipulatora, prze 
suwamy Ja do "<? "części ekran 
u, sdzie chcemy umiescic" 

1200 ? "Pierwsza komorke i nac 
iskamy przy-"-? "cisk. Komorka 
wysiada Jak X. " 

1210 ? ■? " NACISNIJ DOWO, 
LNY KLAWISZ."; 

1220 IF PEEK (764) -255 THEN 122 


1225 POKE 764,255 

1230 GRAPHICS 0-? >? <? " 

W podobny sposob tworzymy wzór 
"•? "komorek na ekranie. Mozem 
y utworzyć" 

1240 ? "dowolny kształt. Parnie 
tajmy jednak,"-? "ze im mniej 
komorek, tym szybsza re-" 

1250 ? "seneracJ* i wzrost. Po 
zakończeniu"-? "naciskamy kl* 
Wisz <START> " 

1260 ?.?.?" • NACISNIJ D 

OWOLNY KLAWISZ."; 

1270 IF PEEK (764) -255 THEN 127 
0 


XKS-2X 


RM 1290 GOTO 50 

MW 10000 GRAPHICS 2 'P03ITI0N 7,4' 
? #6; "ZYCIE" ' POKE 710,0'POKE 7 
52,1 

AM 10005 GOSUB 20 
YZ 10010 ? "C« chcesz OPi* protr 
*mu (t/n)? "j 

WS 10020 A*PEEK<764)'IF A-255 THE 
N 10020 

JF 10030 IF A-45 THEN 1000 
DV 10060 RETURN 


1 REM ****************** 

2 REM * * 

3 REM * Program nr 19a * 

4 REM * dla komputera X 

5 REM * AMSTRAD * 

6 REM * ’ * 

7 REM XXXXXXXXXXXXXXXXXX 
B REM 

30 INK 1 , 9 1 INK 2, 26i PEN 2i PEN 

# 2,2 

40 INK 0,9 
50 MODĘ .1 

60 WINDOW #2, 1,40, 22,231 CL8 #2 

70 REM 

80 ya-1 

90 x*«l 

100 xm-639 

110 ym«399 

120 GRAPHICS PEN 3 

123 FOR kk-1 TO 100iNEXT kk 

126 SOUND 1, 1,0, 15, 1, , 1 

130 GOSUB B30i REM tworzenie m 

•nu 

140 aa-Oi REM 
150 REM 

160 LOCATE 1,1 

170 PRINT " "| 

180 FOR k-1 TO 300 i NEXT k 
190 LOCATE 1,1‘ 

200 PRINT" wybi erzi "j 
210 FOR k-1 TO 300i NEXT k 
220 a*«INKEY*i REM w a* wybór 
ksz-tal tu 

230 IF a*-"" OR a*<"l" OR a*>» 

4" THEN 160 

240 ro-VAL(*S)X2+l 

230 n-OiREM n wskazuj*, czy ak 

tualny zarys ■figury powinien b 

yc wykasowany, czy nie 

260 LOCATE #2, 1, 1 

270 PRINT #2, "wybi*rzi "i REM 

280 LOCATE l,ro 

290 PRINT" "| 

300 FOR k-1 TO 300lNEXT k 

310 LOCATE #2,1,1 

320 PRINT #2," "j 

330 LOCATE l,ro 

340 PRINT a*|i 

350 FOR k-1 TO 300i NEXT k 

360 b#-INKEYSi REM w b» J»st wy 

bor przekształcania 

370 IF b*-"" OR b«<>"p" AND b* 

<>"•" AND b*< >"o" AND b*<>"k" 

AND b*< >"n" AND b*<>"e'' THEN 2 

60 

380 IF b#-"e" THEN 3100 

390 IF b«>"n" THEN 440 

400 RESTORE 

410 GOSUB 990 

420 REM kasowanie 

430 GOTO 140 

440 IF b*< >"k" THEN 530 

450 GRAPHICS PEN Ol REM Kreśleń 

ie w kolorze tla 

460 IF b*="k" AND a«=»"l" AND n 

*1 THEN GOSUB 1070 

470 IF b*="k" AND a*-"2" AND n 

“1 THEN GOSUB 1100 

480 IF b*="k" AND a*«"3" AND n 

=1 THEN GOSUB 1160 

490 IF b*«"k" AND a*="4" AND n 


-1 THEN GOSUB 1430 
500 RESTORE 
510 GOSUB 990 
320 GOTO 140 

530 LOCATE 1, 23 i PRINT " " | 

340 LOCATE 1, 24 1 PRINT " 

"I 

350 REM Przemieszczenie? 

560 IF b*< >"p" THEN 640 

570 GOSUB IBSOiREM Wydruk inst 

rukcji do przemieszczeni* 

580 GRAPHICS PEN Oi REM ustawie 
nie koloru do kasowania 
390 IF b*-"p" AND- a*»"l" THEN 
GOSUB 1510 

600 IF bS-"p" AND a*-"2" THEN 
GOSUB 1590 

610 IF bS«"p" AND a#-"3" THEN 
GOSUB 1690 

620 IF b#-"p" AND a$-"4" THEN 

GOSUB 1760 

630 REM Skalowanie 

640 IF b*< >"•" THEN 72Ó 

650 G08UB 2330i REM Wydruk inst 

rukcji do skalowania 

660 GRAPHICS PEN O 

670 IF b*-"s" AND a*-"l" AND n 

-1 THEN GOSUB 1920 

680 IF b*-"s" AND a*-"2" AND n 

-1 THEN GOSUB 2020 

690 IF b*-"s" AND a*-"3" AND n 

-1 THEN GOSUB 2140 

700 IF b*-"s" AND a*-"4" AND n 

-1 THEN GOSUB 2220 

710 REM Obrót 

720 IF b*< >"o" THEN 790 

730 GOSUB 3000i REM Wydruk ins 

trukcji do obrotu* 

740 GRAPHIC8 PEN O 
750 IF b«-"o" AND a*-" l" AND n 
-1 THEN GOSUB 2400 
760 IF b*-"o" AND a#-"2" AND n 
-1 THEN G08UB 2540 
770 IF b*-"o" AND af-"3" AND n 
-1 THEN GOSUB 2740 
780 IF b*-"o" AND *M"4" AND n 
-1 THEN GOSUB 2830 
790 n-liREM od teraz kasowanie 
starego obrazu 

800 G08UB 960 1 REM Ponowne wysw 
ietlenie menu przeksztal canl a 
810 GOTO 260 

830 REM Wyświetlenie menu 
840 LOCATE l,li PRINT "wybierzi 


830 LOCATE l,3i PRINT "l."j 
860 LOCATE l,3l PRINT "2."p 
870 LOCATE l,7iPRINT »3."| 

880 LOCATE l,9i PRINT "4."| 

890 GRAPHICS PEN 3 
900 GOSUB 990 
910 GOSUB 1080 
920 GOSUB 1100 
930 aa-0 
940 GOSUB 1160 
950 GOSUB 1430 

960 CLS #2i LOCATE #2, 1-, 1 1 PRINT 
' #2, "wybierzi " 

970 LOCATE #2,l,2iPRINT #2, "P 
- przesuniecie S - zmiana ska- 
li O - obr ot K - kasowanie 
N - nowy obiekt E - koniec p 
racy"> 

980 RETURN 

990 REM Czytanie danych o punk 
tach 

1000 READ xp,yp,xq,yq 

1010 READ xu,yu,xv,yv,xw,yw,XH 

, yx * 

1020 READ xc,yc,rx,ry 
1030 READ xr,yr,xs,ys,xt,yt. 


1040 RETURN 
1050 PRINT" 1 


1060 REM XXXProcedury kreśleni 
• XXX 

1070 REM Kreślenie linii 
1080 PLOT xp, ym-ypi DRAW xq,ym- 

yq 

1090 RETURN 

1100 REM Kreślenie prostokąt* 
1110 PLOT xu,ym-yui DRAW xv,ym- 

yv 

1120 DRAW xw,ym-yw 
1130 DRAW xx,ym-yx 
1140 DRAW xu, y/n-yu 
1150 RETURN 

1160 REM Kreślenie okręgu 
1170 IF rx<ry THEN 1200 
1180 r-ry 
1190 GOTO 1210 
1200 r-rx 

1210 IF aa<>0 THEN 1310iREM 
1220 FOR a-0 TO 1.5708 STEP 1/ 
riREM Kreślenie czterech symet 
rycznych punktów 
1230 dx-rxXCOS (a) 

1240 dy-ryXSIN(a) 

1250 PLOT xc+dx , ym-yc+dySya 

1260 PLOT xc+dx , ym-yc-dySy* 

1270 PLOT xc-dx , ym-yc+dyXya 

1280 PLOT xc-dx , ym-yc-dyXya 

1290 NEXT a 
1300 GOTO 1420 

1310 cx-SIN (aa) Xxai REM Oblicz* 

ni* stałych części równania 

1320 cy-SIN(aa) *ya 

1330 FOR a-0 TO 3.141,39 STEP 1 

/r 

1340 x-rx XCOS (a) i REM Równania 
okręgu 

1350 y-ry»8IN (a) Xya 
1360 xh*x 

1370 x-xXCOS(aa) +yXcxiREM Rown 

ani a obrotu 

1380 y-yXCOS (aa) -xh*cy 

1390 PLOT xc+x , ym-yc+y 

1400 PLOT xc-x,ym-yc-yiREM Kr* 

sli 2 symetryczne punkty naraz 

1410 NEXT a 

1420 RETURN 

1430 REM Kreślenie trojkata 
1440 PLOT xr,ym-yri DRAW xs,ym- 

y* 

1450 DRAW xt , ym-yt 
1460 DRAW xr,ym-yr 
1470 RETURN 
1480 REM 

1490 REM XXXPrzemieszcz*nl*XXX 
1300 REM Przemieszczeni* linii 
1510 IF n-0 THEN 1330iREM Jesl 
i n Jest zero, kształt Jest Je 
%z cze w menu 

1520 GOSUB 1070i REM kasowanie 

1530 xp-xp+hti yp-yp+vt 

1540 xq-xq+hti yq-yq+vt 

1350 GRAPHICS PEN 3 

1560 GOSUB 1070i REM Kreśleni* 

1570 RETURN 

1580 REM Przemieszczenie prost 
okata 

1590 IF n-0 THEN 1610 

1600 GOSUB UOOiREM Kasowani* 

1610 xu-xu+hti yu-yu+vt 

1620 xv-xv+htiyv«yv+vt 

1630 xw-xw+hti yw-yw+vt 

1640 xx-xx+hti yx-yx+vt 

1650 GRAPHICS PEN 3 

1660 GOSUB llOOiREM Kreślenie 

1670 RETURN 

1680 REM Przemieszczenie okręg 
u 

1690 IF n-0 THEN 1710 

1700 GOSUB 1160i REM Kasowanie 

1710 xc*xc+hti yc-yc+vt 

1720 GRAPHICS PEN 3 

1730 GOSUB 1160i REM Kreślenie 
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1740 RETURN 

1750 REM Przemieszczenie trojk 

•ta 

1760 IF n-0 THEN 1780 

1770 GOBUB 14301 REM Kasowanie 

1780 xr-xr+hti yr«yr+vt 

1790 xs-xs+ht i ys-ys+vt 

1800 xt-xt+htiyt-yt+vt 

1810 GRAPHIC8 PEN 3 

1820 G08UB 1430i REM Kreślenie 

1830 RETURN 

1840 REM Instrukcja 

1850 CLB 42 1 LOCATE 42,l,lnPRI 

NT #2," 

1860 LOCATE 42,1,1 

1870 PRINT 42, "przasuniacia x 

i y "j 

1880 INPUT 42, ht, vt 
■1890 RETURN 
1900 REM 

1910 REM ***Skalowanie**» 

1920 REM Skalowania linii 

1930 IF n«0 THEN 1950 

1940 GOSUB 1070i REM Kasowania 

1950 xf-(xp+xq>/2 

1960 y*-(yp+yq>/2 

1?70 xp»xp*hs+x'f * ( 1-hs) i yp-yp# 

vs+yf * (l-vs> 

1900 xq»xq*hs+M'f * < 1-hs) i yq-yq* 
vs+yf* (l-vs) 

1990 GRAPHICS PEN 3 

2000 G08UB 1070i REM Kraslsnia 

2010 RETURN 

2020 REM Skalowania pudalka 
2030 IF n-0 THEN 2050 
2040 G08UB llOOiREM Kasowania 
2050 xf — ( xu+kv+xw+kx ) / 4 
2060 yf- (yu+yv+yw+yx ) /4 
2070 xu-KU*hs+x-f * <l-hs> i yu-yu* 
vs+y-f # < l-vs) 

20B0 xv-wv#hs+xf * (1-hs) i yv-yv* 
vs+yf I ( l-vs) 

2090 Kw-xw#hs+xf * ( 1-hs) i yw-yw* 
vs+yf I < l-vs) 

2100 xx-xx*hs+x'f * (l-hs> i yx-yx* 
vs+y*» <l-vs> 

2110 GRAPHIC8 PEN 3 

2120 GOSUB llOOiREM Krasi ani a 

2130 RETURN 

2140 REM 8kalowania okragu 

2150 IF n-0 THEN 2170 

2160 GOSUB 1160i REM Kasowania 

2170 rx-rx*hs 

2180 ry-ry*vs 

2190 GRAPHICS PEN 3 

2200 GOSUB 1160i REM Kraslenia 

2210 RETURN 

2220 REM Skalowania trojkata 
2230 IF n-0 THEN 2250 


2240 GOSUB 1 430 1 REM Kasowanie 
2250 ni" <xr+xs+xt ) /3 
2260 yf- (yr+ys+yt) /3 
2270 xr-xr*hs+x# # < 1-hs) i yr-yr# 
vs+yf * <l-vs> 

2280 ns-xs*hs+Kf * ( 1-hs) i ys-ys* 
vs+yf*(l-vs) 

2290 xt-Mt#hs+xf *(i-hs) iyt«YT* 
VS+YF* <l-vs) 

2300 GRAPHICS PEN 3 

2310 G08UB 1430i REM Kraslenia 

2320 RETURN 

2330 REM Instrukcja 

2340 CLS 42i LOCATE 42,1,1 

2350 PRINT 42, "wprowadź wspolc 

zynniki skali x i y"| 

2360 INPUT 42, hs, vs 
2370 RETURN 
2380 REM 

2390 REM #**Obrot*4* 

2400 REM Obrót linii 
2410 IF n-0 THEN 2430 
2420 GOSUB 1070iREM Kasowanie 
2430 xo- (xp+xQ) /2i REM Szukania 
środka linii 
2440 yo- (yp+yq) /2 
2450 xh-xpiREM Zachowania wart 
ości XP *■ 

2460 x p— x o+ ( x p— xo ) 4 COS < ar ) + ( yp 
-yo) «SIN(ar ) *xa 

2470 yp-yo+ (yp-yo) *C08 (ar ) - (xh 
-xo) *BIN(ar)*ya 
2480 xh-xq 

2490 xq-xo+(xq-xo> *C0B(ar)+(yq 
-yo) *SIN(ar ) *xa 

2500 yq«yo+ (yq-yo) *C08 (ar) - (xh 
-ho) *8lN(ar)*ya 
2510 GRAPHICS PEN 3 
2520 GOSUB 1070iREM Kraslenia 
2530 RETURN 

2540 REM Obrót pudalka 

2350 IF n-0 THEN 2570 

2560 G08UB llOOiREM Kasowania 

2570 xo-(hu+hv*kw+xx)/4 

2580 yo- < yu+y v+yw+yx ) /4 1 REM Sz 

ukania środka prostokąta 

2390 xh-xuiREM Zachowania bież 

acaj wartości xu 

2600 xu-xo+'(xu-xo) #C0S (ar > + (yo 

-yo) *BIN<ar> *xa 

2610 yu-yo+ (yu-yo) CCOS (ar > - <xh 

-xo)*BIN(ar)*ya 

2620 xh-xv 

2630 x v-x o+ ( x v-x o ) *C08( ar) + <yv 
-yo) *SIN(ar) #xa 

2640 yv-yo+(yv-yo) *C0S (ar) -<xh 
-xo) *SIN (ar ) #ya 
2650 xh-xw 

2660 mw-xo+ (hw-ko) #C 0S (ar) + (yw 


-yo)*SIN(ar)*xa 

2670 yw-yo+ (yw-yo> *C0S(ar» -(Kh ; 
-ko) *BIN(ar > *ya 
2680 xh-xx 

2690 xk-ko+ ( xx-xo> #C08(ar)+(yx 

-yo) *SIN(ar> *xa 

2700 yx«yo+ <yx-yo) *CQS (ar ) - (xh 

-xo) *8IN(ar)*ya 

2710 GRAPHICS PEN 3 

2720 GOSUB llOOiREM Kreślenia 

2730 RETURN 

2740 REM Obrót okragu 

2750 IF n-0 THEN 2780 

2760 aa-as 

2770 GOSUB 1 160i REM Kasowania 

2780 aa-ar+as 

2790 GRAPHICS PEN 3 

2800 GOSUB 1 160t REM Kreślenia 

2810 as-aa 

2820 RETURN 


2830 REM Obrót trojkata 

2840 IF n-0 THEN 2860 

2850 GOSUB 1430iREM Kasowania 

2860 xo- (xr+xs+x t ) /3i REM Szuka 

nie środka trojkata 

2870 yo- (yr+ys+yt) /3 

2880 xh-xr 

2890 xr-xo+ (xr-xo> *C0S (ar) +(yr 
-yo) *SIN(ar)*xa 
2900 yr-yo+(yr-yo) *C08(ar)-(xh 
-HO) *8IN(ar)*ya 
2910 xh-xs 

2920 xs-xo+ (xs-xo) iKCOS (ar > + (ys 
-yo) tSIN(ar) *xa 

2930 ys-yo+ <ys-yo) *C0S (ar ) - <xh 
-xo ) *BIN (ar > *ya 
2940 xh-xt 

2950 xt-xo+ <xt-xo) *CQ8 (ar ) + <yt 

-yo)*SIN (ar )«xa 

2960 yt-yo+(yt-yo) tCOS (ar) - <xh 

-xo> *BIN (ar > *ya 

2970 GRAPHICS PEN 3 

2973 GOSUB 1430iREM Kraslenia' 

2980 RETURN 

2990 REM Instrukcja 

3000 CLS 42i LOCATE 42,1,1 

3010 PRINT 42, "kat obrotu"| 

3020 INPUT 42, ar 

3030 ar-ar*3. 14139/ 180i REM Zam 

lana stopni na radiany 

3040 RETURN 

3030 REM Dana 

3060 DATA 30,37,80,37 

3070 DATA 80,50,80,80,30,80,30 

,30 

3080 DATA 33, 100, 16, 16 

3090 DATA 30,140,80,140,35,120 

3100 END 


ATARI 

1 POKE 752/ 1 

2 ? CHR$ < 125) 1 POSITION 12,5‘? "H 
ORSE ' A" ; POSITION 9, 9 : ? "PRO 

GRAM EDUKACYJNY " 

3 POSITION 31/20.? "& JB. TB. " ‘ PO 
SITION 33/ 21 ! ? "1986" 

4 FOR Y=0 TO 200 STEP 3 ‘SOUND 0/ 
Y/ 16/ 1 0 : SOUND 1 / Y/4/ 10/ 10:SETCOL 
OR 2/2 / Y/4 ; -NEXT Y 

5 FOR Y=200 TO 0 STEP -2 ! SOUND 0 
/Y/ 10/ 10 ■■ SOUND 1 , Y/2/3/ 10/ 10 : SET 
COLOR 2/2/Y 


ALFABET MORSE’A 

6 SOUND 0/0/ 0/8 ' SOUND 1/0/ 0/0 ‘SE 
TCOLOR 2/0/0 , 

8 DIN A<999),IL*<3),E$<1),R$<4)‘ 
GOTO 30000 

10 ? CHR$<125) .POSITION 10/ 1‘? " 
TEKST PRZYGOTOWANY" ‘REM TEKST PR 
ZYGOTOWANY 

11 3=0 > POKE 752/0 

12 CLOSE #1 ‘ OPEN #1/4,0/ "K‘ " ‘GET 
#1 / A 

13 IF A=30 THEN ? CHR$<30) > CHR$< 
32);CHR$<30), ' IF A<S)<>0 THEN A< 
S)=0'S=S-1 ' GOTO 12 
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16 IF fl=155 THEH 25 

17 IF fl> =43 AND fi <=57 OR fl>=65 fi 
ND fl<=34 OR fl=61 OR A=32 OR A=45 

THEN GOTO 26 

19 GOTO 12 

20 8=S+ 1 • fl < S ) =fl ■ ? CHR$(fl) ; 

22 GOTO 12 

25 ? CHR$< 125) : POKE 752,1 

26 FOR fl=l TO S‘ GOSUB FKfl)-NEXT 
fl 

27 IF PEEK<53273)=3 THEH CL.R ‘GO 
TO 10 

28 IF PEEK <532791 =5 THEN CLR ‘GO 
TO 300 

29 GOTO 27 

30 POKE 752,1 

31 GOSUB 122 ‘GOSUB 121‘GOSUB 121 
‘ GOSUB 121‘GOSUB 122 ‘GOSUB 123‘R 
ETURH 

32 ? " “>■ RETURN 

45 ? ‘GOSUB 123 ‘RETURN 

48 ? " 0 " i ‘ GOSUB 1 22 > GOSUB 1 22 ‘ GO 
SUB 122 ‘GOSUB 122 ‘GOSUB 122‘GOSU 
B 124 ‘RETURN 

49 ? ”1 ‘GOSUB 121‘GOSUB 122 ‘GO 
SUB 122 ‘GOSUB 122 ‘GOSUB 122‘GOSU 
B 124 -RETURN 

50 ? "2"; ‘GOSUB 121‘GOSUB 121 ‘GO 
SUB 122 ‘GOSUB 122 ‘GOSUB 122‘GOSU 
B 124 ‘RETURN 

51 ? "3"; ‘GOSUB 121‘GOSUB 121 ‘GO 
SUB 121‘GOSUB 122 ‘GOSUB 122‘GOSU 
B 124 ‘RETURN 

52 ? "4"; ‘GOSUB 121‘GOSUB 121 ‘GO 
SUB 121‘GOSUB 121‘GOSUB 122‘GOSU 
B 124 ‘RETURN 

53 ? "5 " i ‘GOSUB 121‘GOSUB 121 ‘GO 
SUB 121‘GOSUB 121‘GOSUB 121‘GOSU 
B 124 ‘RETURN 

54 ? "6"; ‘GOSUB 122 ‘GOSUB 121 ‘GO 
SUB 121‘GOSUB 121‘GOSUB 121‘GOSU 
B 124 ‘RETURN 

55 ? "7"; ‘GOSUB 122 ‘GOSUB 122 ‘GO 
SUB 121‘GOSUB 121‘GOSUB 121‘GOSU 
B 124 -RETURN 

56 ? "8"; ‘GOSUB 1 22 ‘ GOSUB 1 22 ‘ GO 
SUB 122 ‘GOSUB 121‘GOSUB 121‘GOSU 
8 124 ‘RETURN 

57 ? "9"; ‘GOSUB 122 ‘GOSUB 122 ‘GO 
SUB 1 22 ‘ GOSUB 1 22 ‘ GOSUB 121 = GOSU 
B 124 ‘RETURN 

61 ? ‘GOSUB 1 22.' GOSUB 121 ‘GO 
SUB 121‘GOSUB 121‘GOSUB 122‘GOSU 
B 124 ‘RETURN 

65 ? "fl"; ‘GOSUB 121‘GOSUB 122 > GO 
SUB 123 ‘RETURN 

66 ? "B", ‘ GOSUB 1 22 ‘ GOSUB 121 ‘ GO 
SUB 121 'GOSUB 121‘GOSUB 124 ‘RETU 
RN 


67 " C " ; ‘ GOSUB 122' GOSUB 1 21 ‘ GO 
SUB 122 ‘GOSUB 121‘GOSUB 124 ‘RETU 
RN 

68 ? "D"; ‘GOSUB 1 22 ‘GOSUB 121 ‘GO 
SUB 121‘GOSUB 124 ‘RETURN 

69 ? "E"; ‘GOSUB 121‘GOSUB 124 ‘RE 
TURN 

78 ? "F"; ‘GOSUB 121‘GOSUB 121 ‘GO 
SUB 122 ‘ GOSUB 121‘GOSUB 124‘RETU 
RN 

71 ? "G"; ‘GOSUB 122 ‘GOSUB 122 ‘GO 
SUB 121‘GOSUB 124 ‘RETURN 

72 ? "H"; ‘GOSUB 121‘GOSUB 121 ‘GO 
SUB 121‘GOSUB 121‘GOSUB 124‘RETU 
RN 

73 ? "I"; ‘GOSUB 121‘GOSUB 121‘GO 
SUB 124 ‘RETURN 

74 ? "J"; ‘ GOSUB 121' GOSUB 1 22 ‘ GO 
SUB 122 ‘GOSUB 122 ‘GOSUB 124‘RETU 
RN 

75 ? "K"; ‘GOSUB 122 ‘GOSUB 121‘GO 
SUB 122 ‘GOSUB 124 ‘RETURN 

76 ? "L"; ‘GOSUB 121‘GOSUB 122‘GÓ 
SUB 121‘GOSUB 121‘GOSUB 124‘RETU 
RN 

77 ■?. " M " ; ‘ GOSUB 1 22 = GOSUB 1 22 ‘ GO 
SUB 124 ‘RETURN 

78 ? "N"; ‘GOSUB 122 ‘GOSUB 121‘GO 
SUB 124 ‘RETURN 

73 ? "O"; ‘GOSUB 122 ‘GOSUB 122 ‘GO 
SUB 122 ‘GOSUB 124 ‘RETURN 
80 ? "P"; ‘GOSUB 121‘GOSUB 122 ‘GO 
SUB 122 ‘GOSUB 121‘GOSUB 124‘RETU 
RN 

31 ? "Q" ; ‘ GOSUB 1 22 ‘ GOSUB 1 22 ‘ GO 
SUB 121' GOSUB 1 22 GOSUB 1 24 ‘ RETU 
RN 

82 ? "R"; ‘ GOSUB 121‘ GOSUB 1 22 > GO 
SUB 121‘GOSUB 124 ‘RETURN 
33 ? "S"; ‘GOSUB 121 ‘GOSUB 121‘GO 
SUB 121‘GOSUB 124 ‘RETURN 

84 ? " T " ; ‘ GOSUB 1 22 < GOSUB 1 24 ‘ RE- 
TURN 

85 ? " U " ; ‘ GOSUB 121 ‘ GOSUB 121' GO 
SUB 122 ‘GOSUB 124 ‘RETURN 

86 ? "V"; ‘GOSUB 121‘GOSUB 121‘GO 
SUB 121‘GOSUB 122 ‘GOSUB 124‘RETU 
RN 

87 ? "W"; ‘GOSUB 121‘GOSUB 122 ‘GO 
SUB 122 ‘GOSUB 124 ‘RETURN 

88 ? "X"; ‘GOSUB 122 GOSUB 121‘GO 
SUB 121‘GOSUB 122 ‘GOSUB 124‘RETU 
RN 

89 ? "Y"; ‘GOSUB 122 ‘GOSUB 121‘GO 
SUB 122 ‘GOSUB 122 ‘GOSUB 124‘RETU 
RN 

90 ? " Z " GOSUB 1 22 > GOSUB 122' GO 
SUB 121‘GOSUB 121‘GOSUB 123 ‘RETU 
RN 
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91 *? "C"; •• drÓSUB lźź ' GÓSUB 1 22 > GO 
SUB 1 22 ' GOSUB 121 • GOSUB 1 24 • RETU 
RN 'REM CZ 

92 ? " \ " i ■■ GOSUB 1 22 ■ GOSUB 1 22 ' GO 
SUB 122 'GOSUB 122 'GOSUB 124 'RETU 
RN 'REM SZ 

93 ? "3 "i 'GOSUB 121 'GOSUB 122 'GO 
SUB 121 'GOSUB 122 'GOSUB 124 'RETU 
RN 'REM Jfi 

94 ? “'""i- GOSUB 121 'GOSUB 121 'GO 
SUB 122 'GOSUB 122 'GOSUB 124 'RETU 
RN 'REM JU 

121 FOR 1=1 TO K ' SOUND 0,F, 10, 10 
' NEXT I' SOUND 0, 0,0,0 'FOR 1 = 1 TO 
K ' NEXT I ' RETURN 

122 FOR 1 = 1 TO K+K+K' SOUND 0,F, 1 
0,10 'HEXT I' SOUND 0,0, 3,0 'FOR 1= 
1 TO K' NEXT I ' RETURN 

123 FOR 1=1 TO K+K+K 'NEXT I'RETU 
RN 

124 FOR 1=1 TO K+K ' NEXT I' RETURN 

125 FOR 1=0 TO 1 00 ' NEXT I' RETURN 
130 FOR 1=8 TO 300 ' NEXT I' RETURN 
142 INPUT A$'N=0'T=LEN(A$) 

149 REM SYGNAŁ 

150 ? CHR$C 125) ' POKE 752,1'POSIT 
I ON 14,4'? "S Y G N fl L" 

151 POSITION 7,7'? "TON l"'POS 
ITION 7,9'? "TON 2" 'POSITION 7 
,11'? "TON 3" 'POSITION 7,13'? 
"TON 4" 

152 POSITION 7,15'? "TON 5" 'PO 

S I T I ON 7,17'? " TON 6" ■■ POS I T I ON 

7,19'? "TON 7 " 'POSITION 7,21' 
? "TON 8" 

153 CLOSE # 1 ' OPEN #1 , 4, 8, "K ' " ' GE 

T #1 , A 

154 IF A>=49 AND A<=5S THEN 15S 

155 GOTO 153 

156 IF A=49 THEN POSITION 23,7'? 
" 1 " ' F=80 ' GOSUB 125 'GOTO 255 

157 IF A=50 THEN POSITION 23,9'? 
"2" ' F=75 ' GOSUB 125 'GOTO 255 

158 IF A=51 THEN POSITION 23,11' 
? "3" '.F=75 ' GOSUB 125'GOTO 255 

159 IF A=52 THEN POSITION 23,13' 
? "4" ' F=60 ' GOSUB 125'GOTO 255 

150 IF A=53 THEN POSITION 23,15' 
? "5" ' F=58 ' GOSUB 125'GOTO 255 

151 IF A=54 THEN POSITION 23,17' 
? "6" ' F=40 ' GOSUB 125'GOTO 255 

162 IF A=55 THEN POSITION 23,19' 

? "7" ' F=30 ' GOSUB 125'GOTO 255 

163 IF A=56 THEN POSITION 23,21' 

? "8" 'F=20' GOSUB 125'GOTO 255 
200 ? CHR$< 125) ' REM NAGŁÓWEK 
202 POSITION 2,0'? "TEMPO GRU 
P/MIN ILOSC TLG "'POSI 

TI ON 8,0'? TEMPO 


203 POSITION IJI^JgKh^ ź|! A 
ADRNYCH TLG NR "'POSI 

TI ON 35,0'? VB1 

205 VB=VB+1 ' IF VB>LICZ THEN LICZ 
=VB = POSITION 35,1'? LICZ'IF VE:-1 
=VB1 THEN 308 

206 IF PEEKC53279)=3 THEN 300 

207 GOSUB 31 'GOSUB 130 

210 GOSUB 78 'GOSUB 82 'GOSUB 32 'G 
OSUB 123 'GOSUB NR GOSUB 1000 'GOS 
IJB Z 

211 GOSUB 1000 'GOSUB Z 'GOSUB 32' 
GOSUB 123 'GOSUB 11 00 'GOSUB 32 'GO 
SUB 123 'GOSUB 1010 'GOSUB Z 

215 IF 2=48 THEN GOSUB 1020 'GOSU 
B Z 'GOTO 220 

216 IF Z=51 THEN GOSUB 1030 'GOSU 
B Z 'GOTO 220 

'219 GOSUB 1000 'GOSUB Z 
220 GOSUB 32 'GOSUB 123 'GOSUB 194 
0 GOSUB Z 

240 IF Z=48 OR Z=49 THEN GOSUB 1 
000 'GOSUB Z 'GOTO 242 

241 IF Z=50 THEN GOSUB 1010'GOSU 
B Z 

242 GOSUB 1050 'GOSUB Z 'GOSUB 100 
0 ' GOSUB 2 ' GOSUB 1 23 • GOSUB 6 1 ' GOS 
UB 123 'GOSUB 123 

243 GOSUB 123 'REM ADRES NAGŁÓWKA 

244 GOSUB 90 'GOSUB 1060 'GOSUB Z ' 
GOSUB 1060 'GOSUB Z 'GOSUB 32 'GOSU 

' B 123 

245 GOSUB 90 'GOSUB 1060' GOSUB Z- 
GOSUB 1060 'GOSUB Z 'GOSUB 32'GOSU 
B 123 

246 GOSUB 90 'GOSUB 1060 'GOSUB Z- 

GOSUB 1060 'GOSUB 2 'GOSUB 32'GOSU 
B i 23 | 

247 GOSUB 90 ' GOSUB 1 060 > GOSUB Z ■■ 
GOSUB 1 060 ' GOSUB Z ■ GOSUB 32 > GOSU 
B '123 

248 GOSUB 90 'GOSUB 1060 'GOSUB Z' 
GOSUB 1060 'GOSUB Z 'GOSUB 61 'GOSU 
B 123 'GOSUB 123 'GOSUB 123 

249 GOSUB 32 

250 POKE 18,0 'POKE 19, O 'POKE 20, 

0 ć 

251 RETURN 

254 RETURN 

255 ? CHR$< 1.25) ' POKE 731,1 'POKE 
752, 1 'REM TEMPO 

256 POSITION 14,4'? "T E M P O" 

257 POSITION 3,9'? "TEMPO NADAWA 
NI A 6 GRUP, 'MIN' 0" 

258 POSITION 3,10'? "TEMP6 NADAW 
ANIA 8 GRUP/MIN' 1" 

259 POSITION 3,11'? "TEMPO NADAW 

ANIA 9 GRUP/MIN: 2" 
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260 POSI 1 ION 3, 12'? ^^EMFOMiftDAU 

HNIh 10 GR( iP.-tf fH - 3" 

261 POSI T ION 3.13>? "TEMPO NflOAU 
ANIA 11 GRUP/MIN’ 4“ 

262 POSITION 3.14’? "TEMPO NADAW 
ANIA 12 GRUP/M IH’ 5" 

263 POSITIOH 3.15’? "TEMPO NADAW 
ANIA 14 GRUP/MIM’ 6" 

264 POSITIOH 3.16’? “TEMPO NADAW 
ONI fi 16 GRUP/MIN’ 7" 

265 POSITIOH 3.1?’? "TEMPO NfiDflW 
fiNIfi 13 GRUP/MIN’ 3" 

266 POSITIOH 3.13‘? "TEMPO NflOfiW 
fiNIfi 20 GRUP- 'MIN’ 3" 

CLOSE #1 OPEN #1.4.6. "K " ’ GE 
T # 1 . 1 E 

268 IF TE>-43 AND TE<«5? THEN 2? 
0 

269 GOTO 267 

270 IF TE*48 THEN POSITIOH 20.9 = 
? "6"’ POSITIOH 33.9’? "O" = TEMPO* 
6’K=18<G0SU8 13S’ GOTO 300 

271 IF TE=49 THEN POSITIOH 20.10 
’ ? " 8 " ’ POS I T I ON 33 .10- ? " 1 " ’ TEMP 
0=8 ’ K--12.8 ’ GOSUB 130’ GOTO 300 

272 IF TE*30 THEN POSITIOH 20.11 
■■? "9" ’ POSITIOH 33.11=? “2“’ TEMP 
0-9 ’ K Ml’ GOSUB 1 30 • GOTO S©0 

273 IF TE=51 THEN POSITIOH 19.12 
i? "10"’ POS I T I ON 33 . 1 2 ’ ? "3" ’ TEM 
P0= 1 0 ’ K=9 . 9 ■ GOSUB 1 30 = GOTO 380 

274 IF TE=52 THEN POSITION 19.13 
= ? " 1 1 " - POS n I ON 33 .13 = ? "4“ = TEN 
P0= 1 1 ’ l<=8 . 7 ’ GOSUB 1 30 ’ GOTO 300 

275 IF TE=53 THEN POSITIOH 19.14 
’? "12" 'POSITION 33.14=? “5“’ TEM 
P0=12’K*8= GOSUB 138 'GOTO 300 

276 IF TE=54 THEN POSITION 19.15 
’? "14“ 'POSITION 33.15’? "6"’ TEM 
P0=14 ’ K=6. 7 > GOSUB 138 ‘GOTO 308 

277 IF TE ; -55 THEN POSITION 19.16 
’? ” 16“ ■= POSITION 33.16’? "7"’ TEM 
P0= 1 6 ’ K=5 . 66 ’ GOSUB 1 30 ’ GOTO 308 

278 IF TE=56 THEN POSITION 19.17 
’ ? " 18"’ POS I T I ON 33.17’? " 3 " ’ TEM 
pr'i= 1 8 ’ K=56-52 = GOSUB 130 'GOTO 300 

279 IF TE=57 THEN POSITIOH 19.18 
■■? "28" 'POSITION 33. 18 i? "9" 'TEM 
PO* 20 .’ K=4 . 3 ’ GOSUB 1 30 ■ GOTO 300 
380 VB-B ’ LI 02=0 ’ LG*0 ’ LX*8 ’ L.Y=4 ’ R 
EM RODZAJ PRACY 

30 1 ? CHR* < 1 25 ) ’ POKE 752.1’ POS I T 
ION 12.4’? " " 

303 POSITION 12.5’? " RODZAJ PR A 
CV " 

304 POSITIOH 12.6’? " 

310 POSITION 2.9’? ■" NADAWANIE- Z 
KLAWIATURY 1 " 


320 POSITIOH >2. 117? " NADAWANIE 
TEKSTU PRZYGOTOWANEGO 2 " 

330 POSITION 2.13’? " NADAWANIE 
TEKSTU LOSOWE 3 " 

335 CLOSE #1 = OPEN #1 . 4. 0. "K = " ’ GE 
T #1.A 

350 IF A>=49 AND fl<=51 THEN 370 
368 GOTO 335 

370 IF A=49 THEN POSITION 36.9’? 
"1" ’ GOSUB 125’ GOTO 980 

371 IF fl=50 THEN POSITION 36.11’ 
? "2"’ GOSUB 125’ GOTO 10 

372 IF fi=51 THEN POSITION 36.13’ 
? "3"’ GOSUB 125’ GOTO 500 

401 U=0 ’ L=0 ’ J=0 ’ H=0 ’ POSITION 33. 
7’? " 1 " ’ NR=49 ’ GOSUB 130’ GOSUB 20 
0 ’ GOTO 600 

402 U=0 ’ L.=0 ’ J=0 ’ H=0 ’ POS 1 1 1 ON 33 . 
9’? "2“ ■ NR=50 ’ GOSUB 130’ GOSUB 20 
0 ’ GOTO 650 

403 U=0’ IL=0’J=0= H=0’ POSITION 33 
.13’? "3" ’NR=51 ’ GOSUB 138 'GOSUB 
200 ’ GOTO 750 

404 IJ-0 ’ I L=0 ’ J=0 ’ H=0 ■ POS I T I OH 33 
.11’? " 4 " ’ NR=52 ’ GOSUB 1 38 ■ GOSUB 
200 'GOTO 780 

405 U=0 ’ IL=8 ’ J=0 ’ H=0 ’ POS I T 1 ON 33 
.15’ ? " 5 " ’ NR=53 ’ GOSUB 1 30 ’ GOSUB 
200’ GOTO 800 

450 K=K+0. 5 ’ GOTO 490 'REM ZMIANO 
WSP. 'K' DLA dp+cyfr.) 

470 REM ZMIANA WSP. 'K' GLA CYFR 

472 IF TE=48 THEN K=K+6’G0T0 490 

473 IF TE=49 THEN K=K+3. 9 ’ GOTO 4 
90 

474 IF TE=50 THEN K=l<+3. 2 ’ GOTO 4 
98 

475 IF TE=51 THEN K=K+3. 2 = GOTO 4 
90 

476 IF TE=52 THEN K=K+2.?’GOTO 4 
90 

477 IF TE=53 THEN K=K+2. 2 ’ GOTO 4 
90 

478 IF TE=54 THEN K=l<+2 . 1 5 ’ GOTO 
490 

479 IF TE=55 THEN K=K+1 . 66 ’ GOTO 
498 

480 IF TE=56 THEN K=K+1’G0T0 490 

481 IF TE=57 THEN K*K+0.8=GOTO 4 
98 

490 GOSUB 123 -GOSUB 65 -GOSUB 82’ 
REM RR 

492 SEK=<6S535*PEEK< 18>,+256*PEEK 
<19 ) +PEEK < 20 > ) .'50 ’ ? ’? " CZAS HA 
D. " i śEK; " SEK." 

493 ? ’? "TEMPO NAD. " j INTdLAS 
EK/60 )+0.5). " GRUP/M IN." 

494 LX=0 ’ LY=4 - LG=0 

496 GOSUB 130 -GOSUB 130 -GOSUB 13 
0- GOSUB 130-. GOTO 1870 -REM SKOK D 
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O PODPR. WYBIERANIA Z , IL, 

580 POKE 731,1= REM WYBÓR TEKSTU 

501 POST TI OH 5, 1 = ? "ILE GRUP <"> 

■■ INPUT IL 

502 POSITION 27,1=? "ILE TLG " i = I 
NPUT VB1=IF IL=0 OR VB1=0 THEH ? 

CHR*< 125) = GOTO 500 

503 IF IL>100 OR VB1>100 THEH ? 
CHR$< 125) = GOTO 500 = T=LEN( IL$) 

504 IL$=STR*<IL) 

505 T=LEN< IL$) 

50S ? CHR$< 125) ‘POSITION 14,4=? 
"WYBÓR TEKSTU" 

507 POSITION 2, 7 = ? "TEKST LITERO 

WY (lP+lr) 1" 

508 POSITION 2, 9 = ? "TEKST MIESZA 

NY < 1 P+ca f ry ) 2" 

503 POSITION 2,11? "TEKST CYFRO 
WY 3" 

518 POSITION 2,13=? "TEKST LITER 
OWY (1p) 4" 

511 POSITION 2,15=? "TEKST MIESZ 
RNY Op+lr+cyfrY> 5" 

512 POSITION 9,19=? "POWROT DO S 

PI SU COPTION3 " 

532 L=0 = J==0 = H=0 = U=0 

535 CLOSE #l=OPEN #1,4,0, "K="= GE 

T #1 , R 

540 IF A>=49 AND A <=53 THEH 544 

543 GOTO 535 

544 IF fi ==49 THEN POSITION 33,7 = ? 
" 1" = HR=49 = GOSUB 130 = GOSUB 200 = G 

OTO 600 

545 IF fl=50 THEN POSITION 33,9=? 
"2" = NR=50 = GOSUB 130 = GOSUB 200 = G 

OTO 650 

546 IF fl=51 THEN POSITION 33,11= 
? "3“ =NR=51 'GOSUB 130= GOSUB 200= 
GOTO 750 

547 IF fl=52 THEN POSITION 33,13= 
? "4" =NR=52= GOSUB 130= GOSUB 200= 
GOTO 700 

548 IF fi=53 THEN POSITION 33,15= 
? "5" = NR=53 = GOSUB 1 30 = GOSUB 200 = 
GOTO 800 

600 ? = REM LOS. LP.+LR. 

■ 605 Z=65+ 1 NT < RND < 3 > #30 ) 

606 IF 2>=65 RND Z <=94 THEN GOSU 
B 2 

610 L=L+1 = J=J+1 = H=H+1 ' U=U+1 ' LX=L 
X+1 

612 IF L==5 THEN ? " ";=L=0=GOSUB 
1 300 = GOSUB 1 23 ’ LX=L X+ 1 = POS I T I ON 
LX+2, LY 

614 IF J=25 THEN ? " " =J=0 

= LX=0 = L.Y=LY+1 

616 IF H=50 THEN GOSUB 123 ‘GOSUB 
123 = H=0 

617 IF IJ=IL*5 THEN GOTO 490 


620 GOTO 605 

650 ? = REN LOS. MIESZANY LP.+CYF 
Rfi 

652 K=K-0. 5 

655 2=50+1 NT<RND<3)*41) 

660 IF 2=50 OR 2=53 OR Z=55 OR 2 
=56 OR 2>=65 RND 2 <=90 THEN GOSU 
B Z ‘GOTO 670 
665 GOTO 655 

670 L==L+1 = J=J+1 = H=H+ 1 = U=U+1 = LX=L 
X+1 

675 IF L=5 THEN ? " "; =L=0= GOSUB 
1300 = GOSUB 1 23 = LX=LX+ 1 = POS I T I ON 
LX+2, LY 

680 IF J=25 THEN ? " "i = J 

=0 = LX=0 = LY=LY+1 

685 IF H=50 THEN GOSUB 123 ‘GOSUB 
1 23 = H=0 

687 IF IJ=IL*5 THEN 450 

688 IF PEEK<53279)=3 THEN 300 
690 GOTO 655 

700 ? = REM LOS. LIT. POL. 

705 Z=65+INT<RND<1>*26) 

706 GOSUB Z 

710 L=L+1 = J=J+,1 = H=H+1 = IJ=U+1 = LX=L 
X+1 = fi<U)=Z 

712 IF L.=5 THEH ? " " t = L=0 = GOSUB 
1 300 = GOSUB 1 23 = LX=LX+ 1 = POS I TI ON 
LX+2, LY 

714 IF J=25 THEH ? " "; = J 

=0 = LX=0 = LY=LY+1 

716 IF H=50 THEN GOSUB 123= GOSUB 
123 = H=0 


717 

IF 

U=IL*5 THEN 

1 GOTO 490 

718 

IF 

PEEKC 53279) 

=3 THEN 300 

720 

GOTO 705 



750 

9 : 

REM LOS. CYFRY 

752 

IF 

TE=48 

THEN 

K=K-6 

753 

IF 

TE=49 

THEN 

K=K~3 . 9 

754 

IF 

TE=50 

THEN 

K=K~3. 2 

755 

IF 

TE=51 

THEN 

K=K-3. 2 

756 

IF 

TE=52 

THEN 

K=K~2. 7 

757 

IF 

TE=53 

THEN 

K=K-2, 2 

758 

IF 

TE=54 

THEN 

K=K-2. 15 

759 

IF 

TE=55 

THEN 

K=K-1 . 66 

760 

IF 

TE=56 

THEN 

K=K- 1 

761 

IF 

TE=57 

THEN 

K=K-0. 8 

762 

IF 

L=5 THEN ? 

" "i ■■ L=0 = GO: 


1 300 = GOSUB 1 23 = LX=LX+ 1 = POS I T I ON 
LX+2, LY 

767 2=48+ I NT < RND < 1 )#10) 

768 GOSUB Z 

770 L=L.+ 1 = J=J+ 1 = H=H+ 1 = U=U+ 1 = LX=L 
X+1 

772 IF L=5 THEN ? " ‘GOSUB 123 
= L=0 = GOSUB 1 300 = LX=LX+ 1 = POS I T I ON 
LX+2, LY 

774 IF J=25 THEN ? " =J 

=0 = LX=0 = LY=LY+1 

776 IF H=50 THEN GOSUB 123= GOSUB 
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123 ’ H=0 

777 IF IJ=IL*5 THEN 470 

778 IF PEEK<53279)=3 THEN 300 

779 GOTO 767 

800 ? ' REM LP+LR+CYFRY 

805 Z=48+INT<RND<4>*47) 

806 IF Z>=48 AND Z<=57 OR Z>=65 
AND Z <=94 THEN GOSUB Z ! GOTO 810 

807 GOTO 805 

810 L=L+1 ' J=J+1 ■ H=H+1 U=U+1 • LX=L. 
X+1 

812 IF L=5 THEH ? " "j ’L=U’( jOSUB 
1 300 : GOSUB 1 23 ■ LX=LX+ 1 ■ POS I T I ON 
LX+2,LY 

814 IF J=25 THEN ? " " > ■ J 

=0 • LX=0 : LY=LY+1 

816 IF H=50 THEN GOSUB 123’ GOSUB 
123 : H=0 

817 IF U=IL*5 THEN GOTO 490 

818 IF PEEKC 53(279) =3 THEN 300 
820 GOTO 805 

867 IF U=IL*5 THEN GOTO 490 

900 POS I T I ON S, 19:? "POWROT DO 8 

PI SU C?J" ’ GOSUB 125 

902 ? CHR* < 125) : POKE 731,1’ REM N 

ADAW. Z KLAWIATURY 

905 CLOSE # 1 ’ OPEN #1 , 4, 0, "K ’ " ’ GE 

T #1,A 

910 IF A>=65 AND A <=94 OR A=32 O 
R A>=48 AND A <=57 THEH GOSUB A 

911 IF A=63 THEN 300 

912 GOTO 905 
914 RETURN 

999 SAVE "D ’ MORSE 1" ’ STOP 

1000 Z=43+INT<RND<1)*10) ’ REM LOS 
.0-9 DLA NAGL. 

1010 Z=48+INT <RND< 1 )#4) ’ REM LOS. 

0- 3 

1012 RETURN 

1020 Z=49+INT<RND<1)*3)’REM LOS. 

1- 9 

1022 RETURN 

1030 2=48+ 1 NT < RND < 1 > *2 )’ REM LOS. . 
0, 1 

1032 RETURN 

1040 Z=48+INKRND<1)*3)’REM LOS. 

0 , 1,2 

1042 RETURN 

1050 2=48+ 1 NT < RND < 1 ) *6 > : REM LOS. 
0-5 

1052 RETURN 

1060 Z=65+ 1 NT < RND < 1 ) #26 ) ! REM LOS 
. LITER ADR. 

1062 RETURN 

1070 Z=401+INT<RND<1)*3)’REM LOS 
. WYBÓR TEKSTU 
1072 IF Z=352+NR THEN 1070 
1076 GOTO Z 

1100 N=0 1 REM ODCZYT ILOŚCI GRUP 
Z INSTR. INPUT i IL j 


1110 C=0 : B=0 : A=0 
1120 N=N+1 ; E$=IL$<N) 

1125 GOSUB ASC<E$)’IF T=N THEN 1 
135 

1130 GOTO 1120 

1135 FOR N=1 TO T 

1160 R$=IL$<N) ’ GOSUB 1 206+1 NT <T/ 

N) 

1200 NEXT N 

1201 GOTO 1250 

1207 A=-48+ASC<R$) ’ RETURN 
1208 ' B=-4S+ASC<R$> * RETURN 
1 209 C=-48+ASC < R$ ) ’ RETURN 
1250 IL= 100*0+10*6+ A 
1270 RETURN 

1300 LG=LG+1 -POSITION 9,1’? LG’R 
ETURN 

3000 CLOSE # 1 ’ OPEN #1 , 8,0, "P ' " >S 
1=0 ♦ 

3010 FOR 1=1 TO A’S1=S1+1 
3020 ? #1 jCHR$<A<I))j : IF SI =69 T 
HEN S1=0-? #1 
3030 NEXT I 

30000 REM ZMIANY GEN. ZNAKÓW 

30001 NRZ= 1 

30002 IF NRZ=0 THEN ? CHR$<125)’ 
POSITION 7,10’? "REJESTR ZMIAN J 
EST PUSTY" ’ GOTO 30500 

30003 ? CHR$<125) = POSITION 4,5’? 
"WPROWADZENIE ZMIAN GEN. ZNAKÓW 

30004 POSITION 8,10’? "PROSZĘ CH 
W ILE POCZEKAĆ" 

30005 N=57344 ’ M=32768 ’ LK=33 

30006 FOR 1=0 TO 1023 

30007 POKE M+I , PEEKCN+I ) 

30008 NEXT I ’ POKE 756,128 

30011 POKE 33071,6 

30012 POKE 33248,1 

30013 POKE 33249,8 

30014 POKE, 33250,0 ■ 

30015 POKE 33251,6 

30016 POKE 33252,0 

30017 POKE 33253,1 

30018 POKE 33254,0 

30019 POKE 33255,255 

30020 POKE 1,0 

30021 POKE 2,219 

30022 POKE '33248,0 

30023 POKE 33249,219 

30024 POKE 33250,219 

30025 POKE 33251,219 

30026 POKE 33252,219 

30027 POKE 33248,64 

30028 POKE 33249,96 

30029 POKE 33258,48 

30030 POKE 33251,24 

30031 POKE 33252,12 

30032 POKE 33253,6 

30033 POKE 33254,0 


30034 POKE 33255,0 

30035 POKE 33248,0 

30036 POKE 33249,73 

30037 POKE 33250,73 ' , , 

30038 POKE 33251,73' 

30039 POKE 33252,73 

30040 POKE 33253,73 

30041 POKE 33254. 127 V 

30042 POKE 33265,57 

30043 POKE 33266,69 ' 81 1 

30044 POKE 33267,69 -v; 

30045 POKE 33268,71 t u ! nL 

30046 POKE 33269,69 

30047 POKE 33270,57 

30048 POKE 33257,/ 30 ' 

30049 POKE 33258 , 34 


30050 

30051 

30052 

30053 

30054 

30055 

30056 

30057 

30058 

30059 

30060 

30061 


POKE 33259,34 
POKE 33260,30 v 
POKE 33261,34 
POKE 33262,66 
POKE 33257,28 
POKE 33241 , 126 
POKE 33242,98 
POKE 33243,12 
POKE 33244,48 . 
POKE 33245,96 
POKE 33245,32 
POKE 33244,16-/ 


®=H • 52 I 

01 TT ,-,-C 


r 

w 


30499 ? CHR*(125) i POS I T I OH 7,5 ? 
"ZMIANY ZOSTAŁY WPROWADZONE" 

30500 FOR T=1 TO 280 : NEXT T : GOTO 


1.50 


! 

* SUMA KOMTROlilR / ETYKIETA * 


EL 

11 

PH 

2)! 

CG 

31 

RZ 

4 

FK 

51 

GS 

ęi 

BB 

81 

IV 

10 

QR 

111 

CH 

1/21 

MG 

131 

ZM 

16 

ZG 

171 

SU 

191 

KR 

201 

SH 

22 

MK 

251 

OC 

1261 

RL 

271 

NX 

28 

VC 

231 

FZ 

/ 301 

IH 

311 

BO 

32 

QI 

451 

BN 

/ 481 

BD 

491 

ZQ 

50 

YM 

51 1 

UY>' 

521 

VR 

531 

UC 

54 

XO 

551 

Jtk 

561 

BG 

571 

RB 

61 

HF 

63 Y 

OR 

661 

GN 

671 

JT 

68 

NV „ 


QC 

701 

LE 

71 1 

PH 

72 


731 

IJfl 

741 

MY 

751 

RU 

76 

m ' 

771 

MC 

781 

PL. 

791 

TY 

80 

VK 

81 1 

NN 

821 

MT 

831 

SH 

84 

OY , 

851 

VH 

861 

QT 

871 

US 

88 

YQ 

891 

TQ 

901 

VZ 

911 

RD 

92 

WV 

931 

CM 

941 

DS 

121 1 

TT 

122 

BU 

1231 

NY 

1241 

IF 

1251 

IY 

130 

DK. 

1421 

UC 

1491 

LI 

1501 

GM 

151 


1521 

FC 

1531 

zs 

1541 

PS 

155 

TY 

1561 

RQ 

1571 

PE 

1581 

JV 

159 

LM 

1681 

OF 

161 1 

GY 

1621 

IX 

163 

FB 

2001 

IH 

2021 

PD 

203 1 

EK 

205 

fi L 

2061 

MR 

207 1 

FP 

2101 

UH 

211 

XT 

2151 

UH 

2161 

CG 

2191 

DES 

220 

RN 

240 1 

MR 

241 1 

YY 

2421 

■ XZ 

243 

flfi 

2441 

RD 

2451 

RG 

246 1 

AJ 

247 

EL 

248 1 

VQ 

2491 

EK 

2501 

MZ 

25 1 

NI 

254! 

CL 

2551 

LN 

2561 

BY 

257 

JC 

258 1 

SJ 

2591 

FK 

2601 

JR 

261 

NY 

262 1 

TS. 

263 1 

ZN 

264 ! 

FG 

265 

XM 

2661 

GY 

267 1 

Rb 

266 1 

SY 

269 

KZ 

2701 

KJ 

271 1 

YU 

272 1 

NR 

273 

PJ 

274 1 

JX 

275 1 

IK 

276 1 

MR 

277 

FL 

2781 

XH 

279 1 

TF 

300 1 

PS 

301 

FE 

3031 

JD 

304! 

EG 

3101 

RO 

320 

SP 

3301 

FG 

335 1 

SM 

350 1 

GD 

360 

DH 

370 1 

MK 

371 1 

YK 

372! 

SD 

401 

WK 

4021 

XT 

4031 

KC 

404 1 

VU 

405 

CY 

4501 

GP 

4701 

PM 

4721 

XT 

473 

NK 

4741 

NZ 

4751 

SM 

476 1 

OG 

477 

KK 

4781 

PX 

4791 

KK 

4801 

TM 

481 

YR 

490 1 

EF 

4921 

YF 

4931 

RL 

494 

KI 

496! 

UB 

5001 

JN 

501 1 

QU 

502 

CU 

5031 

FL 

5041 

DD 

5051 

DK 

506 

YH 

507 1 

GN 

5081 

XR 

509 1 

EN 

510 

Ofl 

5111 

QQ 

5121 

VK 

5321 

FI 

535 

XS 

5401 

RE 

5431 

YJ 

5441 

ZF 

545 

SY 

5461 

LG 

5471 

TX 

5481 

CJ 

600 

OP 

6051 

XU 

606 l 

NG 

6101 

SN 

612 


FM 

6141 

MU 

6161 

PN 

650 1 

GD 

6521 

SV 

6651 

NS 

6701 

NF 

6851 

TU 

6871 

TI 

7001 

RN 

7051 

SO 

7121 

MZ 

7141 

AY 

7181 

GG 

7201 

KM 

7531 

RD 

7541 

RZ 

757 1 

BP 

7581 

GF 

761 1 

SY 

7621 

NT 

77TJ 1 

KE 

7721 

VJ 

7771 

BK 

7781 

UM 

8051 

GB 

8061 

SP 

8121 

NR 

8141 

RZ 

8181 

GR 

3201 

LU 

• 9021 

FG 

9051 

RG 

9121 

NH 

9141 

ZB 

10101 

PE 

1012! 

TP 

10301 

Pk 

10321 

OX 

10501 

PG 

10521 

UH 

10701 

YZ 

16721 

HR 

11101 

LR 

11201 

VL 

11351 

EH 

11601 

UC 

12071 

UM 

1208! 

PS 

12701 

XN 

13001 

LU 

3020 1 

FR 

3030 1 

V' 

30002 1 

QG 

30003 1 

TD 

30806 1 

XR 

30007 1 

MT 

300121 

MW 

300131 

JS 

300161 

LF 

300171 

JH 

30020 1 

UY 

30021 1 

LH 

30024 1 

MC 

30025 1 

HR 

30028 1 

RX 

30029 1 

OR 

30032 1 

KR 

30033 1 

DU 

30036 1 

ZC 

30037 1 

ZT 

30040 1 

L2 

30041 1 

HG 

30044 1 

CX 

30045 1 

YU 

30048 1 

CN 

30049 1 

XP 

30052 1 

BY 

30053 1 

EX 

38056 1 

VU 

300571 

XF 

30060 1 

YI 

30061 1 


[>P 

6171 

PV 

626 

OV 

65? 1 

UY 

660 

TI 

6751 

NH 

680 

BL 

6881 

SM 

696 

OF' 

7061 

RS 

710 

MV 

7161 

DQ 

717 

DC 

750! 

TH 

752 

RS 

7551 

FF 

756 

HC 

7591 

OF 

760 

MS 

767 1 

PH 

768 

NL 

774 1 

NH 

776 

VD 

7791 

VE 

806 

RI 

867 1 

NI 

810 

MU 

8161 

DR- 

817 

EB 

867 1 

LJ 

900 

RI 

SIO! 

IK 

911 

HR 

9991 

NK. 

1 000 

NC 

10201 

PH 

1622 

HG 

10401 

PN 

1042 

JG 

10601 

PT 

1062 

LQ 

10761 

KR 

1100 

CN 

11251 

OL 

1130 

GH 

1 206 1 

GH 

1261 

UH 

1 209 1 

JG 

1250 

EH 

3000 1 

EG 

3010 

FY 

3000.0 1 

RZ 

30601 

LF 

30004 1 

LH 

30005 

XF 

30008 ! 

MJ 

30011 

IC 

300141 

NB 

30015 

LI 

300181 

PR 

30019 

MF 

30622 1 

GB 

30023 

MX 

30626 1 

DI 

36027 

VG 

36030 1 

UH 

36031 

LM 

30834 1 

MY 

30035 

ZX 

30038 1 

RS 

30039 

DM 

30042 1 

GL 

30043 

IH 

30046 1 

BY 

30047 

BO 

30050 1 

TU 

3005) 

DI 

30654 1 

JS 

30655 

DB 

30658 1 

FU 

30059 

CD 

304991 

RM 

38500 
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949 priltU<ł* czasami Altu* SA 

• urvn fotografia*! , wzrok b«j 
zatrzymuj* sit da pożółkłym zdja- 
eiu pM«ł(A*iAMev« prłcuneych 
maZczyzn . jednym z nich Jast moj 
pr adz i ada k . ZA ni* iioi *i*Z* do 
wiarcan geologicznych. z opowieści 
dz i adk ow' wyn t k* , Za pradz i ASA k 
wierząc * swoja iseiAlim »«»»• 


AA J rutsy* v świat w poszukiwaniu 
p lantadzy . uiodł o *u Alt rflzniA . 
jako i*r*«r zarobił troch* pienię- 
dzy . Straci* JO , 949 ZA JA* *i« 

poszukiwaniem z»eiA . Z*ianiA» za- 
944 jaSZCZS poro razy . AZ zaj*ł 
AtA poszukiwania* i wydobycia* re- 
py naftowe j . oz i az i temu dozy* 
spokojnej i 4 oa t * t n i a j starości . 
nią ty* ^AdQAk przewidujący , po- 
zoa (av iajac liczna yrono tPAdke- 
biarcow , którzy po jago ABiarci 
onaryicznia wzigli Ala 4 o wydawa- 
ni* zgromadzonego kapitału . Ni* 
trzaba by* o d*u«o czaka C na to, by 
po fortunie pozost aty tylko wspob- 
ntAnia oraz kilka pożółkłych foto- 
grafii. Hiatort* t* przytaczaB ma 
po to , by zmachaciC do poszuhi- 
wania przygód, a wręcz przeciwni*. 
moj cztaroiatm ayn rowmoz wydo- 
bywa rop* naftowa , robi to w pro- 
gra* ta Pt. " OILS UCLL “ , Ni* 
J * A t on AkOBPi ikowany graficzni* 
ani pod wzgiada* fabuły , .dlatago 
t * z ni* powiman wywoływać atras- 
AOW . 

Po uruchoaiantu otrzyaaaz wonu. 
uyniha z n>eg&, za do uruchomiania 
gry nożna uzyc dwóch klawiazy > 
opt * on - w calu wybrania Atopnia 
trudnodci i 


start - rozpoczact* gry . 
stoptaa trudności ( cmrnok ozrrz- 
CULTY ) , dziali A1A na trzy po- 
st owy : 

reoulrr - to poziom srodni , który 
ja st uatawiany przaz komputar po 
uruchomianiu ai* programu i 
UNLCRDED i PREMIUM -a* OdPOWIAdniO 
trudni* jazy* i . stworki , porusza- 


j *c* aig w wydrążonych otworach 
aa tardziaj anargiazn* i jast tch 

wiacaj . 

sam azyb naftowy jaat niazwykły , 
Jak niezwykła potrafi* byc progra- 
my komputerowa. Składa *i* z szaA- 
ciu poz i ob ow . Ib głitiaj tym 

wiacaj *ozna uzyskać baryłek ropy 
naftowej . za baryłka otrzymasz te 
punktów . za pochwycenia a t worka 
otrzymaaz rowniaz prawi* , al* jaj 
wyaokoAC zaiaZy od poziomu , na 
którym został złapany . z tak li- 
cząc od góry , punktacja wygląd* 
naatapujaco : ae , ee , ee , tte , 


tue , tre punktów . Rodzaj stworka 
jest nieistotny . 8* ona bardzo 

niebezpieczna . u przypadku gdyby 
napotkały na swojej drodz* rawi* 
urządzani*, którym wydobywana J**t 
ropa , spowoduj* jago uszkodzenia. 
Rozpoczyna *1* odliczania czasu od 
początku z jednoczesna utrat* 
jednego urządzani* . Tych urzadzan 
w sumie masz trzy. aatwo ja moaasz 
Itracie' , gorzej za .zdobycia* no- 
wych . urządzani* taki* otrzymasz 
jako prosi*, gdy zdobędziesz ieeee 
punktów r ułatwię to mota pojawia- 
jący * i* co pawian czas pulsujący 
kia lici., po chwyceniu go do wyniku 
dodawana jest t»®» punktów premii. 
Najwiakbza jednak prawi* J**» 
otrzymać. 1 * następnego szybu do 
akspioatac.fi . Stani* si* tak. gdy 
zostań* zabijana wszystkie baryłki 
przy posiadaniu jednocześni* co 
najmniej jednego urządzeni* wydo- 
bywczego . ni jadnya z najniższych 
poziomow szybu znajduj* *i* pul- 
sującą baryłka . uarto j* wziae . 
gdy* w tan spo *ob na pawian cza* 
następuję spowo .imani* poruszania 
st* s t werk o w. UBOS.Mwi to zabrania 
baryłek na najniższych poziooaeh . 
Od czasu do czasu badała* 1 •** poja- 
wiał pulsujący obiekt , prawdo- 
podobnie podłożony przaz konkuren- 
cja . Ramienia urz«dz*m* wydobyw- 
czego ma uazkodzt , aia *oz* zro- 
bię to z jago uchwyt**, *liBinuj*e 
urządzani* z eksploatacji . 

jak każda urządzani* tak i to 
ba swej okras używalności. uytrsy- 
auja ono •••• jednostek pracy, tj. 
eh. IN sekund , po czym następuję 
awaria. Jast to nieuchronna . chy- 
ba z* szybciej zbierzesz wszystkie 
baryłki , tntzaii zuzyj* ai* urzą- 
dzeni* . utady dodatkowa prawi* 
jast raganaracj* i czas rusz* od 
początku . 

zycz* u*m zostania krdlaMi naf- 
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DOORTEK O 


ustęp. str. 3 

spis t unkc j i r«w»rtych w 
bibliotece MRTHLIB. . . Str. 3 
Pliki do**czon« do biblio- 
teki MRTHLIB. . . Sir. U 

uykorzysttmt bibiiotaki 

str. u 

inicjftiizacja biblioteki 

■stew* tycznej str. u 

Otklarac ja zmannych zmień 

noprzec inkowych li 

Tuorzania stałych, zaianno 

przecinkowych str. i 

Orukowanie liczby zmienno- 
przecinkowej str. s 

Konwersja liczby całkowi- 
tej na liczbę zmiennopr ze 

cinkowa. str. 5 

Forma opisu funkcji z bib 

li Otoki HRTHL IB str. e 

Funkcje Z biblioteki MflTH 

lib Str. e 

inicjał izacja biblioteki.. 

str. 7 

Kouersja kodu RTRSCII na 
liczbę zmiennoprzecinkowa 

str. 7 

Konwersja liczby zmienno- 
przecinkowej na liczbę 

kodzie RTRSCII str. 7 

Zamiana liczby całkowitej 
bez znaku na liczbę zmien- 
noprzecinkowa str. e 

zamiana liczby całkowitej 
ze znakiem na liczbę z# 

noprzec i nk owa ...str. 6 

Zamiana liczby zmiennoprze 
cinkowej na liczbę całkow 

ta bez znaku str. 9 

Zamiana liczby zmiennoprze 
cinkowej na liczbę całkow 

ta ze znakiem. . stV. 3 

Dodawanie liczb zmienno 


Kompilator DEEP BLUE C nie posiada zaimplementowanych 
liczb zmiennoprzecinkowych (dane typu float w standardowym C) , 
co uniemożliwia, między innymi, wykorzystanie tego języka w 
poważniejszych obliczeniach matematyczno - technicznych czy w 
poważnych zastosowaniach graficznych, które są jedną z 
mocniejszych stron “małych ATARI". Niedostatek ten wypełniają 
biblioteki funkcji matematycznych i trygonometrycznych 
(MATHLIB i TRIG) . Niniejszy zeszyt szczegółowo je przedstawia. 
Zamieszczone w kortcowej części dwa programy: SPIRALE i OBLICZ 
ilustrują sposób posługiwania się funkcjami z tych bibliotek. 
Pokazują one również sposób łączenia procedur w kodzie 
maszynowym z programem w języku C oraz wykorzystanie jednego z 
ciekawszych mechanizmów tego języka - funkcji rekurencyjnych. 
Stanowią ponadto przykłady tworzenia stosunkowo dużych i 
skompl i kowanych programów w "C". 


6U. 6. 12. 


BU. 6. 1 6. 


BU. 6. 20. 


przecinkowych. str. 3 

odejmowania liczb ziianno- 

przacinkowych. str. 10 

Dzielenie liczb zmienno- 
przecinkowych. str. 10 

Mnożenie liczb zmiennoprze 

c inkowych. str. i i 

Loytrytn liczby zmienno- 
przecinkowej str. ii 

Rntylogarytm liczby zmien- 
noprzecinkowej. str. 12 

Funkcje wykładnicza liczby 
zmiennoprzecinkowe J. str. 12 
Pierwiastek kwadratowy z 
liczby zmiennoprzecinkowej 
.................... Str - * 13 

czese całkowita liczby 
zmiennoprzecinkowe J. str. 13 
c z#SC ułamkowa liczby 
zmiannoprzec inkowe j. str. m 
Porównanie dwóch liczb 

zmiennoprzecinkowych 

• ^'. . . . « ............. str. 1 U 

Obliczanie modułu liczby 
zmiennoprzecinkowe j. str. iu 
Zmiana znaku liczby zmien- 
noprzecinkowej str. 18 

ustawienie liczby zmienno- 
przecinkowej na zero...... 

Str. 18 

Przesuniecie liczby zmien- 
noprzecinkowej. ..... str. 15 
Funkcje trygonometryczne 
zawarte w pliku trio. ccc 


str. 18 

eu. 7. i. inicjał izacja funkcji try- 
gonometrycznych. .... str. <8 
BU. 7. 2. ustawienie trybu wykonywa- 
nia obliczeń w stopniach 

lub rad łanach- str. 16 

bu. 7. s. zamiana radianow na stop- 
nie str. 18 

i. 7. u. Zamiana stopni na radiany 

str. 17 

bu. 7. 6. Zamiana stopni, minut, se- 
kund na stopnie dziesiętne 

str. 17 

bu. 7. 8. Zamiana stopni dziesięt- 
nych na stopnie , minuty, 

sekundy str. te 

eu. 7.7. Obliczanie wartości funk- 
cji sinus .str. IB 

bu. 7. 8. Obliczanie wartości funk- 
cji cosihus. str. ib 

Bu. 7. 3. Obliczanie funkcji tangens 

str. 1 3 

BU. 7. ie. Obi iczanie wartości funk- 
cji arctangens. ..... str. 13 

PROGRRMY. 

spiral. str - 80 

*‘ r - 8 “ 

OPISY GIER KOMPUTEROWYCH: 

*»tr. £6 

pztec. . 

v str. 29 

Di mens i on 

spy vs spy. • str. 3i 
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MAfHLlB jest biblioteką tych funkcji języka 
C, które zapewniają realizację obliczeń 
zmiennoprzecinkowych z wykorzystaniem 
kompilatora DEEP BLUE C. Język DEEP BLUE C me 
posiada zmiennoprzecinkowych typów danych. 
Uniemożliwia to, między innymi, wykorzystanie 
teoo języka w poważnych zastosowaniach 
graficznych, które są mocną stroną komputerów 
Atari. Biblioteka MAT HUB wypełnia ten 
niedostatek DEEP BLUE C. 


Wykorzystywanie funkcji biblioteki MATHLIB 
nie daje takiej zwięzłości jak używanie 
normalnych operatorów arytmetycznych, ale 
zapewnia pełny zakres możliwości obliczeniowych. 

Program demonstracyjny, dołączony do 
biblioteki MATHLIB. ilustruje jak przy pomocy 
jej funkcji można zaimplementować grafikę 
żółwia. 

Aby móc korzystać z funkcji biblioteki 
Mh THL lu należy posiadać: 

-kompilator DEEP BLUE C 
-edytor ekranowy 
-makroasembl er Atari 

funkcje biblioteki MttfHLIB działają na 
standardowych liczbach zmiennoprzecinkowych w 
formacie Htari i zapewniają dostęp do procedur 
zawartych w pamięci ROM. Dodatkowa dołączona 
funkcje trygonometryczne, stanowiące znaczne 
rozszerzenie możliwości procedur zawartych w 
ROM. w sumie MATHLIB zapewnia dodatkowe 32 
funkcje. 



B2‘ 

SPIS rUNKGJI 
ZftHfflTYCH 
H BIBLIOTECE 
MATHLIB 


liczby zmiennoprzecinkowej; 

— porównanie dwóch liczb zmiennoprzecinkowych; 

— obliczanie modułu liczby zmiennoprzecinkowej; 

— zmianę znaku liczby zmiennoprzecinkowej; 

— nadanie liczbie zmiennoprzecinkowej wartości 

O; 

— przenoszenie wartości liczby 
zmiennoprzecinkowej z jednego miejsca pamięci 
w inne. 


MATHLIB zapewnia realizację następujących 

funkcji : 

~ konwersja liczby podanej w kodach ATASCII na 
liczbę zmiennoprzecinkową i liczby 

zmiennoprzecinkowej na kody ATASCII; 

- konwersja liczby całkowitej, bez lub ze 

znakiem, na liczbę zmiennoprzecinkową i liczby 
zmiennoprzecinkowej na liczbę całkowitą; 

- dodawanie, odejmowanie, mnożenie i dzielenie 
liczb zmiennoprzecinkowych; 

- pierwiastek kwadratowy; 

- funkcje- trygonometryczne (sinus, cosinus, 
tangens i arctangens) dla kątów podanych w 
stopniach i radianach; 

- konwersja radianów na stopnie i stopni na 
radiany; 

- zamianę stopni podanych w systemie dzesiętnym 
na stopnie, minuty, sekundy i na odwrót; 

- wyodrębnianie części całkowitej i ułamkowej 


Zakładamy. że posiadasz kompilator DEEP 
BLUE C. Oto pliki DEEP BLUE C. które są wymagane 
podczas pracv z MATHLIB (nie są one dołączone do 
MATHLIB) : 

- CC.COM - kompilator DEEP BLUE C: 

- CLINK.COM - konsol i dator DEEP BLUE C; 

- DBC.OBJ - moduł uruchomieniowy DEEP BLUE Cs 

- AIO.CCC - kod wynikowy funkcji we/wy. 


Aby wygenerować wykonywalną postać prooramu 
demonstrującego orafikę żółwia (znajduje się na 
dyskietce zawierającej MATHLIB) należy dołączyć 
nastęgujące pliki DEEP BLUE C (nie są dołączone 
do MATHLIB): 

- GRAPHICS. CCC - kod wynikowy biblioteki funkcji 
oraf icznychs 

— PRINTF.CCC — kod wynikowy funkcji 
wyprowadzania sformatowanego. 


iks-j 




l miso! i*l a« ią. Mn MAIHLIB.I1BJ ładnie się do 


namięci RAM w obszar od *2dco do S2fff. Jeżeli 

B3- 

wvkorzvstu ies2 Jednocześnie swoje własne 

procedury napisane w asemblerze. to upewnij , 

PLIKI 

się czv ich położenie nie koliduje z 

tmm MŁflCZOHE 

lokalizacją MATHLIB.OBJ. Możesz także. przy 
pomocy ma kroasembl era Atari . zmienić 

Sg SEi M BIBLIOTEKI 

lokalizację MATHLIB.OBJ. U tym przypadku 

HftTHLIB 

wejściowych do MATH1 IB. OBJ znajdujących się w 


MATHLIB.C i ponownie skompilować ten plik. 


- MAIHLlB.AbM - kod źródłowy w asemblerze dla 


MAfHLIB.UbJ (wymacja użycia ma kr oasembl era 

—■ - 

cxbi21>; 


- TURTLE.C - kod źródłowy programu 

Na dyskietce z biblioteką matematyczną 

demonstracyjnego. Wykorzystuje funkcje 

znajdują się następujące pliki: 

matematyczne do realizacji podstawowych ruchów 

MATHLIB.C — kod źródłowy funkcji 

orafiki żółwia. 

matematycznych MATHLIB; 


— MATHLIB. CCC — kod wynikowy dla MATHLIB.C. musi 

— TURTLE. CCC — kod wynikowy dla TURTLE.C; 

być zawsze wymieniony w pliku sterującym 

- CLIPPER. C - kod źródłowy algorytmu 

konsol idąc ją; 

Cohena-Souther landa, adaptowanego dla języka 

— TRIG.C — kod źródłowy funkcji 

DEEP BLUE C. Zawiera funkcje wywoływane przez 

trvoonometrvcznvch; 

TURTLE. 

- TRI G. CCC — kod wynikowy dla TRIG.C. musi być 

— 

wymieniony w pliku sterującym konsolidacją. 

- CLIPPER. CCC - kod wynikowy dla CLIPPER. C; 

odv korzystamy .z funkcii trygonometrycznych; 

- TURTLE. LNK - plik sterujący konsolidacją 

— MATHLIB.OBJ — kod wynikowy dla napi saneqo w 

programu demonstracyjnego; 

asemblerze interfejsu do procedur operacji 


zmiennoprzecinkowych zawartych w pamięci ROM. 

- TURTLE.COM - kod wykonywalny programu 

Musi bvć zawsze wymieniony w pliku sterującym 

demonstrującego grafikę żółwia. 


Funkcje te inicjują stałe 1 zmienne, których 


używają funkcje MA1HL1B podczas realizacji 

4- y HYKORZYSTAHIE 

obliczeń. Żadna z tych funkcji nie ma parametrów 

i są one wywoływane w sposób następujący; 

c_iml ( ) ; 

Tffl] / BIBLIOTEKI 

c_triq(> ; 

Funkcja c_.tr ig może być wywoływana tylko 

-1L.U HATEKATYCZMJ 

wówczas, gdy wykorzystywane są funkcje 

trygonometryczne, a plik TF^G-CCC został 


włączony do programu. Funkcja c_iml musi zostać 

W tym rozdziale przedstawiamy sposób 

wywołana przed c^trig. 

wykorzystania biblioteki matematycznej. Pokażemy 
jak ją inicjować, jak deklarować zmienne 

B4.2 Deklaracja zmiennych zmiennoprzecinkowych. 

zmiennoprzecinkowe, jak zamieniać liczby 

Biblioteka MATHLIB wykorzystuje liczby 

całkowite na zmiennoprzecinkowe i odwrotnie. 

zmiennoprzecinkowe przedstawione w standardowym 

Wszystkie nazwy funkcji zawartych w bibliotece 

formacie Atari. Aby móc wykorzystywać funkcje 

zaczynają się przedrostkiem "c." aby uniknąć 

MATHLIB me musisz znać formatu liczb 

konfliktów z nazwami użytkownika. 

zmiennoprzeci nkowych w komputerze Atari i nie 


będziemy qo tutaj -omawiać. Jeżeli Cię to 

B4. 1 Inicjał i zac ja biblioteki matematycznej. 

interesuje, to kierujemy do książki "De Re 


Atari** m rozdział 8-45 i 8-46. Jedyne co należy 

Przed wykorzystaniem jakiejkolwiek funkcji 

wiedzieć to fakt, że liczby zmiennoprzecinkowe w 

z biblioteki matematycznej należy wywołać 

Atari zajmują 6 bajtów. Funkcje biblioteki 

funkcję c_inl. Jeżeli wykorzystujemy funkcje 

MATHLIB wykorzystują do przechowywania liczb 

tryoonometryczne należy wywołać także c trig. 

zmiennoprzecinkowych tablice znakowe. Aby 
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zadeklarować zmiEnną, która będzie służyć do 

c_afp ( pntr, fppi ) ; 

przechowywania liczby zmiennoprzecinkowej. 

W tym przykładze pntr jest wskaźnikiem do 

napisz (zakładając, że nazwą tej zmiennej będzie 

łańcucha znaków ATASCII. a funkcja c _a/pO 

f pvar) ; 

przekształca Q o na reprezentac ję 

char fpvarL63; 

zmiennoprzecinkową. zapamiętaną następnie w 

Wszystkie zmienne zmiennoprzecinkowe 

sześciobajtowej tablicy znakowej fppi. fppi może 

wykorzystywane prze funkcje biblioteki MATHL1B 

bvi wykorzystywana w wywołaniach innych funkcji 

muszą być zadeklarowane w podany sposób, a 

bibliotecznych i służyó do przekazywania 

wszystkie argumenty funkcji dotyczące liczb 

wartości stałej "pi". 

zmiennoprzecinkowych są wskaźnikami znakowymi. 

B4.4 Drukowanie liczby zmiennoprzecinkowej. 

Oznacza to. że ody w jakiejś funkcji z MftTHLIB 
odwołujesz się do liczby zmiennoprzecinkowej 
używaj tylko nazwy zmiennej, bez indeksu. Na 
przykład jeżeli chcesz dodać dwie liczoy 

Wymiar tablicy dla reprezentacji liczby w 
kodzie ATASCII powienien być określony. Liczby 
zmiennoprzecinkowe w komputerze Atari zapewniają 

zmiennoprzecinkowe fa i ft> oraz chcesz abv wynik 
został zapamiętany w ft> m to zmienne te powinny 
zostać zadeklarowane w sposób następujący: 

char falóJ, fbC6); 

dziesięciocyf rową dokładność obliczeń. Dodatkowo 
liczba może być poprzedzona znakiem minus, 
zawierać kropkę, a także dwucyfrowy wykładnik w 
formie M E-xx M . Na końcu liczby 

Funkcja biblioteczna, która dodaje dwie liczby 

zmiennoprzecinkowej w kodzie ATASCII będzie 

zmiennoprzecinkowe nazywa się c faddC2>. Wymaga 

występował znak nuli (standardowe zakończenie 

podania trzech argumentów: dwie dodawane liczby 

łańcucha w języku C) . Dodając wszystko 

i wvnik. 

otrzymujemy 17 znaków i tak długa powinna być 

lak więc aby dodać dwie liczby w naszym 

tablica znakowa służąca do przechowywania liczby 

przykładzie należy napisać: 

zmiennoprzecinkowej w kodzie ATASCII. 

c faddt fa. fb, fb>; 

• 

/wróć uwagę, że podajemy tylko nazwy zmiennych. 

Liczba zmiennoprzecinkowa w formacie Atari 

bez indeksów. 

nie może być drukowana bezpośrednio. Musi zostać 

B4.3 Tworzenie stałych zmiennoprzecinkowych. 

najpierw przekształcona na łańcuch znaków 

ATASCII. Tę czynność wykonuje funkcja 

UbfcF BLUL C nie Zapewnia standardowego typu 

biblioteczna c _fascC J>. Posiada ona dwa argumenty 
będące wskaźnikami do łańcuchów znakowych. 

danych float . a więc niemożliwe jest 

Pierwszy wskazuje na liczbę zmiennoprzecinkową a 

zadeklarowanie w tym Języku stałej 

drugi na tablicę znakową, do której zostanie 

zmiennoprzecinkowej. Z tego też powodu stałe nie 

przekazana reprezentac ja tej liczby w kodzie 

mogą być wprost przekazywane jako argumenty 

ATASCII. Tablica znakowa zawierająca 

funkcji MAfHUb. stała taka musi zostać najpierw 

przekształconą liczbę może byó później 

stworzona przez odpowiednią funkcję 

wykorzystywana jako argument funkcji printfCS). 

biblioteczną, która faktycznie wpisuje ją do 
5ześciobajtowej tablicy znakowej zadeklarowanej 

Załóżmy na przykład, że mamy sześci oba jtową 

w programie użytkowym. 

liczbę w tablicy znakowej fpnbr i chcemy ją 

btała zmiennoprzecinkowa jest początkowo 

wydrukować wykorzystując funkcję printfCJ. Można 

łańcuchem znaków A T ASC II, który następnie w 

teqo dokonać w sposób następujący: 

jednym kroku zamieniany jest na standardową 

char fpnbrC6'i; /* liczba zmi ennoorzecinl ową */ 

reprezentację zmiennoprzecinkową Atari . Zadanie 

char arf pnbr C 173: /* reprezentac ja liczby w 

to realizuje funkcja biblioteczna c_afpC2 

ATASCII */ 

(ATASCil to floating point). Funkcja c_a/pO 
wykorzystuje jako argumenty dwa wskaźniki do 

c łase ( fpnbr, arfpnbr»: '* przekształcenie 

tablic znakowych. Pierwszy wskazuje na łańcuch- 

liczby zmi ennoprzeci nkowe j na kod ATASCII */ 

znaków ATASCII reprezentujący stałą, a drugi na 

printf ("V.s". arf pnbr ) : /% wydruk reprezentacji 
w kodzie ATASCII */ 

B4. 5. 1 Konwersja liczby całkowitej na liczbę 1 

sześć i oba Jtową tablicę, która zawierać będzie 

zmiennoprzecinkową. 

zmiennoprzecinkową reprezentację tej stałej. 
Przypuśćmy, że chcemy stworzyć 
zmiennoprzecinkową reprezentac ję stałej "pi" 

Biblioteka MATHLIB zawiera także funkcje 

(3.14159265) i zapamiętać ją w tablicy fppi- 

zaoewniające konwersję liczb całkowitych na 

Należy napisać: 

zmiennoprzecinkowe i na odwrót. Wyróżnia się dwa 

char fpi£63, Ipntr: 

rodzaje liczb całkowitych: 16 — bitowe bez znaku. 

pntr = "3. 14159265"; 

z pr?erlział»i nd »> dn 65535, i liczby ze znakiem 
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z PTPd? i alu od —'”•7768 rlo +32767. LiC 2 bv bez 

Dar anetru i ie*jo tvp. Potem następu ie werbalny 

znaku w DEEP BLUE- •* nie wvstęou łą (liczba bez 

opis parametru. 

znalu większa niż 3276? traktowana lest jako 


li lemna > . Jednakże leżeli wiesz. że łiczba 

Parametry wyjściowe. 


Dpi su jemy tutaj wszystkie parametry 

przekazywane z funkcji do prooramu wvwołu jąceoo. 

wvkor.’vstvwać Punkcie biblioteki MATHLIB odv± 

orocedurv ROM działały beznośrednio na liczbach 


całkowitych bez znaku. Liczbv całkowite ze 

Opis. 

znakiem wymaoajĄ dodatkoweoo przetwarzani a. 

Przedstawiany iest tutaj oois czvnności. 

■leżeli wywołasz funkcję zamiany liczby 

jakie realizuje dana funkcja w odniesieniu do 

-mi ennonrzeci nk owe i bez znaku na liczbę 

parametrów wejściowych i wyjściowych. 

■ iłkowitą j liczba zmiennoprzecinkowa jest 


w.ęłsza od 65535. to funlria syonal i zli ie błąd 

Wykorzystana funkcje. 

•t- 1 1 *"reń. laki sam błąd da próha zamiany liczby 

W tym mieiscu oodaiemy listę funir ii 

•nn ennou r zer i n i owe i ze znakiem. więk sze i niż 

wykorzystanych do implementacji funk< ii 

’ ’/67. Pamiętaj, że liczba całkowita bez znaku 

opisywanej.. Mooą to być inne f unicie 

większa ni-ż 32767 będzie traktowana przez DEEP 

biblioteki MATHl.IB lub z biblioteki Al fi. .i°zpIi 

P* /,w - t' tał liczba u lenna. 

nie wykorzystywano innych funkcji oprócz 

Istnieją cztery procedury konwersuj 

standardowych konstrukcji języka, wystąpi w t vm 
miejscu napis "Brak”. 

i /pO konwersja liczby rałkowitei bez znaku 

na lirypę r mi ennour z eci ni'pwą; 


•; i fpC - lonwerńia liczby cajkowitei ze 

Przykład. 

znakiem na liczbę zmiennoprzecinkową: 

W tej części prezentujemy oprjnnalme leden 

c _fpiC2 - konwersja liczby zmiennoprzecinkowej 

ze sposobu iw wykorzystania dane r funkrn. -leżeli 

bez znaku na liczbę całkowitą: 

od i s funkcji iest bardzo czytelny tę część 

c_sfptC2 - konwersja liczby zmiennoprzecinkowej 

oomi iamv. Przykłady zwykle rnznocz yna lą się od 

ze znakiem na liczbę całkowitą. 

przedstawi eni a łańcuchów znaków Al ASCII 

B4. 5.2 Forma opisu funkcji z biblioteki MATHLIB. 

repr ezentu lących liczby zmiennoorzeci ni owe. 

następnie obeimuia przekształceni e ich na liczby 

Kolejny rozdział zawiera opisy funkcji 

zmi ennoprzecinkowe w standardzie Atari. 

wywołanie funkcji, przekształceni* 3 wvni* u na ind 

biblioteki MATHLIB. Każdy opis składa się z 

ATAHCII i ieoo wydruk przy pomne* łunie ii 

siedmiu części. 


Zastosowania. 

Ki nt /O. 

Jeżeli nazwa parametru używana iest w 

Jedno lub dwa zdania precyzujące zastosowanie 

i .n.nntar - u. In pi-A<ie iest pismem pochyłym. 

funkcji . 

parametr jest wskaźnikiem i brana jes* 


rinf * uwa-ję wskazywana wielkość, to nazwę zmienne i 

Wywołanie funkcji. 


Przykład wywołania funkcji. Zdefiniowanie 

84.6 Funkcje z biblioteki MATHLIB. 

wszystkich parametrów jakie oowinny zostać 


wprowadzone przed wywołaniem funkcji. Wyjątek 

Funkcje opisane w tym rozdziale znajdują 

stanowi status będący wartością zwracaną przez 

się w pliku MATHLIB. CCC. Wymieniamy je w 

funkcię. Wartość zwracana określa czv dana 

kole mości ich wyśtępowani a w dalszej części 

operacja została wykonana poprawnie. Fiłówną 

te ci u rozdziału. 

przyczyną błędu może być przekroczeni e zakresu. 


tzn. wynikiem działania funkcji może być liczba 

c_iml inicjał izac ja biblioteki MATHLIB. CCC: 

przekraczająca standardowy zakres liczby 

c _af p konwersja z AFASC1I na zmienny 

— 9V 

zmiennoprzecinkowej w formacie Atari (od lO 

przecinek: 

+ 9g 

do lO ). Jeżeli mamy pewność, że wynik będzie 

c _Jasc konwersja ze zmienneoo przecinka na 

i 

mieścił się w tym przedziale to nie musimy 

ATASC1 1 : 

kontrolować wartości status po wywołaniu 

c_ifp konwersja liczby całkowitej bez znaku 

funkcji . 

na zmiennoprzecinkową; 

Parametry wejściowe. 

c^sifp konwersja liczby całkowitej ze 

znakiem na zmiennoprzecinkową; 

Ooisujemy tutaj wszystkie parametry 

c _fpt konwersja liczby zmiennoprzecinkowej 

przekazywane funkcji z prooramu wy wołu jąceoo. 

na liczbę całkowitą bez znaku: 

Pierwszy wiersz każdeoo opisu zawiera nazwę 

c _/psi konwersja liczby zmi ennoprzeci nkowe i 
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na liczbę całkowita, ze znakiem* 

podanej w postaci łaócucha znaków ATASCII na 

c — fadd dodawanie liczb zmiennoprzecinkowych* 

format liczby zmiennoprzecinkowej w standardzie 

c_fe-ub odejmowanie liczb zmiennoprzecinkowych* 

Atari . 

mnożenie liczb zmiennoprzecinkowych* 


c_fdix> dzielenie liczb zmiennoprzecinkowych; 

Wywołanie funkcji- 

c _ lo £ logarytm naturalny liczby 

status = c_afp( acs, fpn>; 

zmi ennoprzeci nkowe j * 


c_loglO logarytm dziesiętny liczby 

Parametry wejściowe. 

zmiennoprzecinkowej* 

acs char array 

c_alog antylogarytm naturalny liczby 

Wskaźnik do łaócucha znaków zawierającego 

zmi ennoprz eci nkowe j * 

reprezentację Al ASCII liczby 

cjalogtO antylogarytm dziesiętny liczby 

zmiennoprzecinkowej . 

zmiennoprzecinkowej s 


c_exp funkcja wykładnicza; 

Parametry wyjściowe. 

c_sąrt pierwiastek kwadratowy z liczby 

fpn char array 

zmi ennoprzeci nkowej ; 

Wskaźnik do sześciobaj towej tablicy znakowej 

część całkowita liczby 

przeznaczonej na liczbę zmiennoprzecinkowy w 

zmi ennoprzeci nkowej i 

formacie Htan odpowiadający liczbie wejściowej 

c_/rac część ułamkowa liczby 

w podartej kodzie A (ASCII. 

zmiennoprzecinkowej; 

status mteoer scal ar 

c_cmp porównanie dwóch liczb 

Zwracany status; 

zmiennoprzecinkowych* 

U ody liczba przekształcona poprawnie. 

c_aJbs moduł liczby zmiennoprzecinkowej; 

-1 gdy pierwszy bajt liczby w kodzie 

c_chs zmiana znaku liczby 

AIASL11 jest niepoprawny. 

zmiennoprzecinkowej; 


c_xero ustawienie liczby zmiennoprzecinkowej 

Opis. 

na zero; 

Funkcja tm pobiera kolejne bajty z tace, aż 

c_mo\ns przesunięcie liczby 

do napotkania bajtu, który nie może być częścią 

zmiennoprzecinkowej w pamięci; 

liczby. Bajty wprowadzone do tego momentu są 

B4.6.1 lnic jalizac ja biblioteki. 

przekształcane na liczbę zmiennoprzecinkowy. 

Zastosowanie. 

która zostanie zapamiętana w tablicy */pn o 
długości sześciu bajtów. Jeżeli pierwszy bajt 

Do micjalizacji stałych i zmiennych 

napotkany w *acs jest niepoprawny to mtatxis 

wymaganych przez bibliotekę do realizacji jej 

będzie miał wartość -1. W przypadku przeciwnym 

funkcji . 

przyjmuje wartość 0. 

Wywołanie funkcji. 

Wykorzystane funkcje. 

c iral ( ) ; 

Funkcja odwołuje się tylko do procedur 


zawartych w pamięci ROM. 

Parametry wejściowe. 


Brak. 

Przykład. 

Parametry wyjściowe. 

char pntr, fpnCBj* 
pntr = “b6.7BV"; 

Brak. 

c_afpl pntr, fpn); 

Opis. 

B4.6.3 Konwersja liczby zmiennoprzecinkowej na 
liczbę w kodzie ATA8CII. 

Funkcja ta musi zostać wywołana tylko raz 
przed wykorzystaniem jakiejkolwiek innej funkcii 


z biblioteki. 

Zastosowanie. 

Przekształcenie liczby zmiennoprzecinkowej 

Wykorzystane funkcje. 

w standardzie Atari na łahcuch znaków w formacie 

odpowiednim do drukowania. 

c_af p; 


B4.6.2 Koniwr.Ja kodu flTASCII na liczb* 

Wywołanie funkcji. 

c_f asct fpn, acs) * 

zmiennoprzecinkowa* 


Zastosowań i e . 

Parametry wejściowe. 

fpn char arry 

Przekształcenie liczby zmiennoprzecinkowej 

Wskaźnik do sześciobaj towej tablicy znaków. 


iks~ z 


która zawiera liczbę zmiennoprzecinkową w 
standardzie At ar i. 

Parametry wyjściowa. 

acs char array 

Wskaźnik do siedemnastobajtowej tablicy znaków, 
w której znajdzie się gotowa do wydruku 
reprezentacja liczby zmiennoprzecinkowej w 
kodzie ATASCI1. 

Opis. 

Funkcja ta przekształca liczbę 

zmiennoprzecinkowa fpn na postać octową do 
wydruku ( ATAbCl £ > i umiesz a Ja w tablicy 
znakowej acs, która musi mieć przynajmniej 17 
bajtów dłuoości. Funkcja ta nie wykrywa żadnych 
błędów. 

Wykorzystań* funkcje. 

Funkcja wykorzystuje bezpośrednio procedury 
zmiennoprzecinkowe zawarte w pamięci ROM. 

Przykład. 

char pntr, fpnC63, output L 171; 
pntr - "56. 789" | 
c_afp( pntr, fpn); 
c._fasc( fpn. output)| 
printf ( "Jis" , output); 

56. 789 


B4.6.4 Zamiana liczby całkowitej bez znaku na 
liczbę zmiennoprzecinkową. 

Zastosowanie. 

Zamiana liczby całkowitej bez znaku (od O 
do 65535) na liczbę zmiennoprzecinkową w 
formacie Atari . 

Wywołanie funkcji. * 

c,itp( usint. fpn); 

Parametry wejściowe. 

usint inteoer scal ar 

Liczba całkowita bez znaku (od O do 655.35), 
która ma zostaó zamieniona na liczbę 

i 

z mi ennoprzec i n kową. 

Parametry wyjściowe. 

fpn inteoer array 

Wskaźnik do sześciobajtowej. tablicy znakowej 
przeznaczonej na liczbę zmiennoprzecinkową. 

□pis. 

Funkcja ta zamienia liczbę całkowitą bez 
znaku usint na liczbę zmiennoprzecinkową w 
formacie Atarl i zapamiętuje ją w sześci bajtowej 
tablicy znakowej wskazywanej przez fpn. Funkcja 


rut* w/i r ywa żadnych błędów. Zwrći^ uwagę, źe DfcEH 
BLUE C nie dopuszcza istnienia liczb całkowitych 
bez znaku. Wszystkie liczby całkowite większe 
niż 32767 są traktowane Jak ujemne. 

23 

Wykorzystane funkcje. 

Funkcja ta wykorzystuje bezpośrednio 
procedury zmiennoprzecinkowe zawarte w pamięci 
KOM. 

Przykład. 

int inteoer; 

char fpnC6J, output C 17 J; 
integer « -5000 » 
c_ifp( inteqer, fpn); 
c_.fasc( fpn, output); 
printf <-/.s M , output); 

60536 

s 

B4.6.3 Zamiana liczby całkowitej ze znakiem na 
liczbę zmiennprzeclnkową. 

Zastosowanie. 

Zamiana liczby całkowitej ze znakiem na 
liczbę zmiennoprzecinkową w formacie Atari . 

Wywołanie funkcji. 

c_sifp(sint, fpn); 

Par s wetry wejściowe. 

sint integer scal ar 

Liczba całkowita ze znakiea (od -32768 do 
♦32767) , która ma zostać zamieniona na liczbę 
zmiennoprzecinkową. 

Parametry wyjściowe. 

fpn char array 

Wskaźnik do sześciobajtowej tablicy znakowej, w 
której znajduje się wynikowa liczba 

zmiennoprzecinkowa. 

Opis. 

Funkcja ta przekształca liczbę całkowitą ze 
znakiem cint na liczbę zmiennoprzecinkową w 
formacie Atari 1 zapamiętuje ją w sześci bajtowej 
tablicy znakowej wskazywanej przez fpn. Funkcja 
nie wykrywa błędów. 

Wykorzystane funkcje. 

Funkcja wykorzystuje funkcję e_i/p. przez 
co jest od niej mniej efektywna w zastosowaniu 
do liczb' dodatnich. 

Przykład. 

int inteoer; 

char fpnC6J, output C 17 J; 
inteoer = —5000; 

■ sifp( inteoer, fpn); 
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c_fascl fpn, output); 
printf ("Jis" , output); 

-5000 

B4.6.6 Zamiana liczby zmiennoprzecinkowej na 
liczbę całkowitą baz znaku. 

Zastosowania. 

Zamiana standardowej liczby 

■mi ennoprzecinkowej podanej w formacie Atari na 
liczbę całkowita bez znaku. 

wywołanie funkcji. 

status = c_fpi < fpn, Scusint); 

Parametry wejściowe. 

fpn char array 

Wskaźnik do sześcioba jtowej tablicy znakowej 
•mi era łące i standardową liczbę 

«ipnnoDr:ecinl'OWĄ w formacie Atari. która ma 
■stad przekształcona na liczbę całkowitą bez 
naku. 

Parametry wyjściowe. 

usint inteor scal ar 

mienna całkowita przeznaczona na otrzymaną 
I iczbę całkowitą bez znaku. m 

status inteoer scal ar 
/wracany status: 

t) - zamiana została wykonana ooprawnie. 

-1 — liczba zmiennoprzecinkowa jest >= 

65535.5, 

-2 — liczba zmiennoprzecinkowa jest ujemna. 

Opis. 

Funkcja ta zamienia standardową liczbę 
zmiennoprzecinkową w formacie Atari zawartą w 
fpn na liczbę całkowitą bez znaku. Jeżeli liczba 
zmiennoprzecinkowa jest ujemna zwracana jest 
wartość -2 i nie następuje żadna konwersja. 
Jeżeli liczba zmiennoprzecinkowa jest większa 
lub równa 65535.5 zwracana jest wartość -1 i, 
jak wyżej, konwersja się nie dokonuje. Funkcja 
ta realizuje prawdziwe zaokrąglanie, a nie 
obcinanie. 


Wykorzystane funkcje. 

Funkcja wykorzystuje bezpośrednio procedury 
działające na liczbach zmiennoprzecinkowych 
zawarte w pamięci ROM. 

Przykład. 

char pntr, łpnC6Jj 
int inteoer; 
pntr “ M 6000 " i 
c af p * r.ni r , tpn> : 


c łpitipn. Santeoer); 
printf (“Zd", inteoer); 

-5536. 

B4.6.7 Zamiana liczby zmiennoprzecinkowej na 
liczbę całkowitą ze znakiem. 

Zastosowanie. 

Zamiana standardowej liczby 

zmiennoprzecinkowej w formacie Atari na liczbę 
całkowitą ze znakiem. 

Wywołanie funkcji. 

status = c_fpsi i fpn, isint); 

Parametry wejściowe. 

fpn char array 

Wskaźnik do sześcioba jtowej tablicy znakowe) 
zawierającej liczbę zmiennoprzecinkową. 

Parametry wyjściowe. 

sint inteoer scal ar 

Zmienna całkowita przeznaczona na otrzymaną w 
wyniku konwersji liczbę całkowitą ze znakiem. 

status inteoer scal ar 
Zwracany status: 

O - zamiana dokonała się poprawnie, 

-1 - moduł liczby zmiennoprzecinkowej jest 
większy niż 32767.5. 

Opis. 

Funkcja zamienia liczbę zmiennoprzecinkowa 
zawartą w fpn na liczbę całkowitą ze znakiem. 
Jeżeli moduł liczby jest większy lub równ. 
32/67.5, to zwracana jest wartość -1. a zamian* 

się nie dokonuje. 

Wykorzystane funkcje. 

Omawiana funkcja wywołuje c_/pi. W stosunki, 
do liczb dodatnich jest ona mniej efektywna ni 
bezpośrednie wywołanie funkcji c_/pi. 

Przykład. 

char pntr, fpnC63; 
int mtegr; 
pntr “ "60000"; 
c..afp< pntr, fpn); 
c_łpsi (fpn, &inteoer)j 
printf ( "y.d" , inteoer); 

-5536 i 


64 .6.8 Dodawanie liczb zmiennoprzecinkowych. 
Zastosowanie. 

Dodanie dwóch lir.zb zmiennoprzecinkowy! ) 
umiany? f> w + orm.v n* o’ ■» i. 
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Wywołanie funkcji. 

odjemnik char arry 

i status = c_ + add< fpnl, fpn2, fpsum): 

Wskaźnik Jo sześciobajtowej tablicy znakowej 
zawierającej odjemnik. 

Parametry wejściowe. 

fpnl char array 


Wskaźnik do sześciobajtowej tablicy znakowej 

Parametry wyjściowe. 

zawierającej pierwszą liczbę. 

różnica char array 

fpn'^ char array 

Wskaźnik do sześciobajtowej tablicy znakowej, w 

Wskaźnik do sześciobajtowej tablicy znakowej 

której umieszczona zostanie obliczana różnica. 

zawierającej druqą liczbę. 

status inteęer scal ar 
Zwracany status: 

Parametry wyjściowe. 

O - odejmowanie wykonane poprawnie. 

łpsum char array 

-1 - wynik przekroczył dopuszczalny zakres. 

Wskaźnik do sześciobajtowej tablicy, w której 


zostanie zapamiętana suma dwóch pierwszych 

Ople. 

liczb. 

Funkcja ta odejmuje *odj»mnih od *odJomna i 

status inteqer scal ar 

zapamiętuje wynik w rótnica. Jeżeli wynik 

Zwracany status: 

przekracza dopuszczalny zakres liczb 

0 - dodawanie wykonane poprawnie. 

zmiennoprzecinkowych w formacie Atari , zwracana 

-1 - wynik przekroczył dopuszczalny zakres. 

jest wartość O oznacza prawidłowe wyi-onsnip 

□de jmowani a. 

Ople. 

Hunkcja ta dodaje zawartość »fpnt do »fprui 


Wykorzystane funkcje. j 

i zapamiętuje wynik w *fpswn. Jeżeli wynik 

Funkcia ta wykorzystuje w sposób 

przekroczy zakres formatu liczb 

bezoośredni orocedury zna idu iące» się w namięci 

zmiennoprzecinkowych At ar i, to zwracany Jest 

ROM. 

status o wartości -1. Jeżeli operacja wykonana 


została poprawnie, zwracana jest wartość O. fpi . 

Przykład. 

fpS i fp9\m mogą być tymi samymi wskaźnikami. 

char *ontr. fpłC*l. fp2I63. output 1 171; 
pntr = "321.12": 

Wykorzystane funkcje. 

c afp<r>ntr, fpl): j 

funkcja wykorzystuje w sposób bezpośredni 

pntr = "21.123"; 

procedury zawarte w pamięci ROM. 

c_.afp< pntr, fp2>; 
c fsubCfpł, fp2, fp2>S 

Przykład. 

c_fascł fp2. output): 

char *pntr, fpltfcl, fp2C6l, outputC173; 

printf ł"y.5" , output): 

pntr = "321. 12": 


c_afp(pntr, fpl); 

299.997 

pntr = "21. 123" 5 


c_af p ( pntr, f p2) ; 

B4.6.10 Dzielenie liczb zmiennoprzecinkowych. 

c_add ( fpl, fp2, fp2>* 


c_fasc< fp2, output>| 

Zastosowanie. 

printf ("Xs”, output); 

Dzielenie jednej liczby zmiennoprzecinkowej 
Drze? drugą. j 

342.243 


B4.6.9 Odejmowanie liczb zmiennoprzecinkowych. 

Wywołanie funkcji 

status = c._fdiv( dzielna, dzielnik, iloraz); 

Zastosowanie. 


Odjęcie jednej liczby zmiennoprzecinkowej 

Parametry wejściowe. 

od druoiej. 

dzielna char array 

Wskaźnik do sześciobajtowej tablicy znakowej 

Wywołanie funkcji. 

zawierającej dzielną. 

status ■= c_fsub< odjemna, odjemnik, różnica); 

dz i Pini k ■ rhar array 

Wskaźnik do sześć i oba jtowej tablicy znakowe i 

Parametry wejściowe. 

zawierającej dzielnik. 

odjemna char array 


Wskaźnik do sześciobajtowej tablicy znakowej 

Parametry wyjściowe. 

zawierającej odjemną. 

i lora? char array 
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WsP&źnik do sześci oba jtowe j tablicy ;nfl>awei 
nrrpznac:('nei na wvnit: obliczeń. 

status tnł-pci er scal ar 
/wracam' ftatu 1 *: 

0 nnnrswne zał rińrrpme fDhl tcreń. 

1 nr ;ol roczen' D zakresu luh rlnplpnio 

pr -pz -Prn 

On i r . . 

d£ i -a l no ip c *- dzielona c rzez "dzielnik.* a 
w-nii ie= ł zaYu svwanv w iloraz Jeżel i wynik 
nr/nirm ; ł «1ł »r •* isz r z a I nv zakrps 'uh wy^l APllo 
dzielenie przez zero, to zwracana jest- wartość 
~1. Jeżeli obliczenia są poprawne, zwracana lest 
wartość O. 

Wykorzystane funkcje. 

Funkcja wykorzystuje w sposób bezpośredni 
procedury zawarte w pamięci ROM. 


Przykład. 

char *pnt_r, fpl [61, fp2lńl. output tl7i; 
pntr = "321. 12 “ 5 
c af p ( pntr, fpl); 
pntr = “21.123"; 
c af p < pntr. f p 2 > ; 
c di v ( fpt, f p 2 . f p 2 > ; 
c faset fp 2 , output); 
printf ("His". output); 

15.202386 

B4.6.11 llnożanie liczb zmiennoprzecinkowych. 
Zastosowanie. 

Pomnożenie przez siebie dwóch liczb 
zmiennoprzeci nkowych. 

Wywołanie funkcji. 

status = c_fmul < mnożna, mnożnik, iloczyn); 

Parametry wejściowe. 

mnożna char arr ay 

Wskaźnik do sześciobajtowej tablicy znakowej 
zawierającej mnożna. 

mnożnik char array 

Wskaźnik do sześciobajtowej tablicy znakowej 
zawierającej mnożnik. 

Parametry wyjściowe. 

iloczyn char array 

Wskaźnik do sześciobajtowej tablicy znakowej, w 
której zostanie zaoamiętany wynik mnożenia. 

status inteoer scal ar 
Zwracany ststus: 

O - mnożenie wykonane poprawnie, 

— 1 — przekroczeń i e dopuszczalneoo zakresu. 


Opis. 

Funkcja mnoży "mnożna przez " mnożnik i 
zapamiętuje wynik w iloczyn. Jeżeli nast-Ąpi 
przekroczeni e zakresu, zwrócana będzie wartość 
-1. O oznacza poprawne zakończeń ie obliczeń. 

Wykorzystane funkcje. 

Funkcja wykorzystuje w sposób bezpośredni 
procedury zawarte w pamięci RDM. 

Przykład. 

char *pntr, fplC61. fp2lńJ, outputLl/1; 
pntr = "321.12"; 
c__afpt pntr, fpl); 
pntr = "21.123"; 
c atp( pntr, tp 2 > ; 

c f mul < fpl. i p2, f p2> ; 
ctasc ! tp2, output); 
p ł rintf < ,i y.s" . output ) ; 

fc/b3.«.n y/ł* 

1*4.6.12 Lociarytm liczby zmi pnnoprzpci nkowe j . 

/ ast osowan i e . 

« ii i 1 1 =uu*- locjarytmu liczby 

z m *»» »»c i n i nwe i . 

Wywołanie funkcji. 

status = l lo-i' i.l*r. Ioq>: 
sl a* u -- 1 0*4 Id*. * ibt . 1 >r, i ; 

Parametry wejściowe. 

nbr char array 

Mslażmi do sześciobajtowej tablicy znakowej 
zawiera ią« ej iluzbę zmi enncipr z ei:i nk owa, której 
1 o* jar v tm ■ hcemy obliczy'*. 


Parametry wyjściowe. 

loo char array 

Wslażiul do sześciobajtowej tablicy znakowej, w 
której zostanie zapamiętany lociarytm liczby 
*nbr . 

status inteoer scal ar 
Zwracany status: 

u - obliczenia poprawne, 

1 liczba ujemna lub przekroczeni e 

zakresu. 


Od! s. 

funkcja c_logC2 daje w wyniku looarytm 
naturalny, a c_logtOC> looarytm zwykły. Jeżeli 
*nbr jest ujemna lub powoduje przepełnienie. to 
status jest równy — 1 . bdy obliczenia są 

poprawne, to funkcja zwraca wartość O. 


IKS- S *. 



Wykorzystane funkcje. 

, przykład. 

Obydwie funkcje wykorzystują w sposób 

char^ łpntr, nbrL63, 1 ooL6J , answer L 1/1; 

bezpośredni procedury zawarte w pamięci ROM. 

pntr = '*5. 54/1754" ; 
c_afp( pntr, nbr)s 

Przykład. • 

c_ alog < nbr, log); 

char *pntr, nbrC61, logC63, answerC173; 

c_tasc( log, answer); 

pntr = "256. 512"; 

printft s", answer); 

c_afp( pntr, nbr); 


c_1oq( nbr, loq); 

256.512 

c_tasc ( loq, answer); 


printf (“7.S", answer); 

B4.6. 14 Funkcja wykładnicza liczby 

5.5471754 

zmiennoprzecinkowej. > 

B4.6.13 Antylogarytm liczby zmiennoprzecinkowej. 

Z astosowan i e . 

Podniesienie standardowej liczby 
zmiennoprzecinkowej do potęgi będącej również 
liczbą zmiennoprzecinkową w formacie Atari. 

Zastosowanie. 


Obliczanie antylogarytmu liczby 

Wywołanie funkcji. 

zmi ennoprzeci nkowe j . 

status = c exp( podstawa, wykładnik, wynik); 

Wywołanie funkcji. 

Parametry wejściowe. 

status = c_aloq( nbr, antilog); 

podstawa char array 

status - c_aloqlO< nbr, antiiocj); 

Wskaźnik do sześcioba jtowej tablicy 

znakowej zawierającej liczbę zmiennoprzecinkową 

parametry wejściowe. 

w formacie Btari, której żądaną potęoę mamy 

nbr char array 

znaleźć. 

Wskaźnik do sześcioba jtowe j tablicy 

wykładnik char array 

znakowej zawierającej liczbę zmiennoprzecinkową 

Wskaźnik do s{ eści oba jtowej tablicy 

w formacie Atari, której antylogarytmu 

zawierającej liczbę zmiennoprzecinkową w 

poszukujemy. 

formacie Atari. która ma być wykładnikiem 

potęgowani a. 

Parametry wyjściowe. 


antilog char array 

Parametry wyjściowe. 

Wskaźnik do sześć i bajtowej tablicy znakowej 

wynik char array 

przeznaczonej na antylogarytm liczby #nbr. 

Wskaźnik do sześcioba jtowej tablicy, w 

status integer scal ar 

której zapamiętany zostanie wynik potęgowania 

Zwracany status: 

liczby *f podstawa. 

O - antylogarytm obliczony poprawnie, 
-1 — przepełnianie. 

status integr scal ar 
Zwracany status: 

Ople. 

O - obliczenia wykonane poprawnie. 

Funkcja c_alog oblicza antylogarytm 


naturalny, a c_alogiO antylooarytm zwykły. 

-1 - przekroczenie zakresu. 

Antyloaaiytm naturalny to e (2.71B2B18) 


podniesione do potęgi *nbr. Antylogarytm zwykły 

Opis. 

Liczba zawarta w pods t awa zostanie 
podniesiona do potęoi wykTadnik a wynik tej 
operacji umieszczony zostanie w wynik, podstawa i 
wykTadnik mogą pyć tą samą zmienną, a wynik może 

to lo podniesione do potęgi *nbr . Jeżeli wystąpi 

być tą samą zmienną co podstawa lub wyk tcudnik. 

przepełnienie, funkcja zwraca wartość —1. Jeżeli 

Jeżeli wynik nie mieści się w zakresie liczb 

obliczenia zoastały wykonane poprawni &■,*• • to 

zmiennoprzecinkowych, funkcja zwraca wartość —1, 

funkcja zwraca wartość U. nbr i anti Log mogą bvć 

a w przypadku przeciwnym wartość O. 

tym samym wskaźnikiem. 

Wykorzystane funkcje. 

Wykorzystane funkcje. 

c_f mul 

Obydwie funkcje korzystają bezpośrednio z 

c_loglO 

orocedur zawartych w pamięci ROM. 

c_aloglO 
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Przykład. 

pntr = "256.512“; 

char *pntr, podstawaL63, wykładni kE63, 

c_afp< pntr, nbr); 

wynikC63, answer[ 17J; 

c_sqrt< nbr, pierw); 

pntr = “2. 37"; 

c _fasc ( pierw, answer); 

c_a-fpf pntr, podstawa); 
pntr - "7. 95**; 

printf< "7.s", answer); 

c_afp( pntr, wykładnik); 

c_exp( podstawa, wykładnik, wynik); 

c_fasc< wynik, answer ) ; 

16.015992001 

printft "7.S", answer); 

B4.6. 16 Część całkowita liczby 
zml ennoprzeci nkowe j . 

953.34337 

Zastosowanie. - 

B4.6. 15 Piewiastek kwadratowy z liczby 

zmiennoprzecinkowej. 

Obliczenie części całkowitej liczby 

zmiennoprzecinkowej. Wynik jest także liczbą 
zmiennoprzecinkową- 

Z as t osowan i e . 

Obliczyć pierwiastek kwadratowy ze 

standardowej liczby zmiennoprzecinkowej w 

Wywołanie funkcji^ 

status = c_int< nbr, intpor); 

formacie Atari. 

Parametry wejściowe. 

Wywołanie funkcji. 

status = c_sqrt< nbr, pierwiastek); 

nbr char array 

Wskaźnik do sześcioba jtowej tablicy 

znakowej zawierającej liczbę zmiennoprzecinkową. 

Parametry wejściowe. 

której część całkowitą chcemy uzyskać. 

nbr char array 


Wskaźnik do sześciobajtowe j tablicy 


znakowej zawierającej liczbę, której pierwiastek 
chcemy obliczyć. 

Parametry wyjściowe. 

intpor char array 

Parametry wyjściowe. 

pierwiastek char array 
Wskaźnik do sześci oba jtowej tablicy 

znakowej, do ktćrej zostanie zapisany 

pierwiastek kwadratowy liczby *nŁ>r. 

status inteoer scal ar 
Zwracany status: 

0 - obliczenia wykonane poprawnie, 

-1 - przekroczenie zakresu, 

-2 - liczba #nbr' jest ujemna. 

Wskaźnik do sześć i oba jtowej tablicy 

znakowej, w której znajdzie się część całkowita 
liczby *nbr. 

status i-nteoer scal ar 
Zwracany status: 

O - liczba normalna. 

~1 - brak części ułamkowej, do *intpor 
orzesłana jest *nbr, 

— 2 — *nbr < 1 . *ml por jest ustawiana 
na zero. 

Ople. 

Funkcja oblicza pierwiastek kwadratowy z 
dodatniej liczby zmiennoprzecinkowej znajdującej 

Opis. 

Część ułamkowa liczby *nbr zostaje obcięta, 
a wynik zapamiętywany jest w intpor. Zwracana 
wartość niezerowa nie oznacza błędu tylko 


specjalne przypadki, nbr i intpor mocją być tą 


samą zmienną. 

się w nbr i przesyła qo do pierwiastek.. Jeżeli 


pierwiastek obliczony został poprawnie to 

Wykorzystane funkcje. 

funkcja zwraca wartość 0, jeżeli liczba »nbr 

move (biblioteka AIO) 

jest ujemna wartość -2, a jeżeli wynik obliczeń 
przekroczy dopuszczalny zakres wartość -1. 

Przykład. 


char *pntr, nbrC63, intp [63, answer [ 173 ; 

Wykorzystane funkcje. 

pntr = "1234.S67B"; | 

c_f mul 

c„afp< pntr, nbr): 

c_1'oq10 

c int( nbr. intp); 

c_aloQlO 

i 

i 

c.fascl intp, answer); 
printf< "7.S". answer); 

Przykład. 


char *pntr, nbrC63, pierwL63. answerL173; 

1234 
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B4.6. 17 Częić ułamkowa liczby 

resuit = c_cmp< fpnl, fpn2> 


zmiennoprzecinkowej. 

Parametry wejściowe. 

fpnl char array 


Zastosowani e . 

Wskaźnik do sześć i obaj towej 

tablicy 

Obliczenie części ułamkowej liczby 

znakowej zawierającej pierwszą 

■ liczbę 

zmi ennoprzeci nkowej . 

zmi ennoprzeci nkową. 

fpn2 char array 


Wywołania funkcji. 

Wskaźnik do sześci obajtowej 

tabl icy 

status = c traci nbr, fracpor); 

znakowej zawierającej drugą 

1 iczbę 

Paramttry wejściowa. 

zmi ennoprzecinkową. 


4 nbr char array 

Parametry wyjściowe. 


Wskaźnik do sześć i obaj towej tablicy 

resuit char array ^ 


znakowej zawierającej liczbę zmiennoprzecinkową. 

Wynik porównania: 


której część ułamkową należy obliczyć. 

-1 - *fpnl mniejsza niź *fpn2, 
O — *fpni równa *fpn2. 


Parametry wyjściowe. 

fracpor char array 

+1 - *fpnt większa niż *fpn2. 


Wskaźnik do sześci obaj towej tablicy 

Opis. 


znakowej przeznaczonej na część ułamkową liczby 

Liczba */pnf jest porównywana z 

* f pT\2. 

*nbr. 

Jeżeli *fpni jest mniejsza niż */pn2, to 

resul t 

status integer scal ar 

przyjmuje wartość -1. Jeżeli liczby są 

sobie 

Zwracany status: 

równe, to resuit zostaje ustawiony na O. 

Jeżel i 

O — liczba normalna. 

*fpni jest większa niż */pn2, to 

resu l t 

-1 — *nbr < 1. brak części całkowitej, 
-2 - brak części ułamkowej, * fracpor 

przyjmuje wartość -*-1. 


zostaje ustawiona na zero. 

A 

Opis. 

Wykorzystywane funkcje. 
c_f sub 


Część całkowita liczby #nbr zostaje 

Przykł ad. 


oDcięta. a wynik zapamiętywany jest w * fracpor. 

char *pntr, nbrlC63, nbr2C63; 


Niezerowa wartość statusu nie oznacza błędu, ale 
syonalizuje specjalne przypadki wymienione 

int status; 


wcześniej. «nbr i * fracpor mogą być tą samą 

pntr = "-27.45”; 


zmi enną. 

c_afp< pntr, nbrl); 
pntr = "14.55"; 


Wykorzystane funkcje. 

c_afp( pntr, nbr2) ; 


<nove (biblioteka PIO) 

status = c_cmp< nbrl, nbr2) ; 


c_int 

printf ( "7.s", status); 


c_f sub 

Przykład. 

- 


char tpntr, nbrC63, fracpC63, answer C 173; 

B4. 6. 19 Obliczanie modułu liczby 


pntr = " 1234.5678" ; 
c_afp( pntr, nbr); 

zmiennoprzecinkowej . 


c_f rac ( nbr, fracp); 

Zastosowani e. 


c_fasc( fracp, answer); 

Obliczanie modułu liczby 


printf < "7.s", answer); 

zmi ennoprzecinkowej. 


O. 5678 

B4. 6. 18 Porównanie dwóch liczb 

Wywołanie funkcji. 

c_abs< fpn, absf pn) ; 


zmiennoprzecinkowych. 

Parametry wejściowe. 

fpn char array 


Zastosowani e. 

Wskaźnik do sześci obajtowej 

tabl i cy 

Porównanie dwóch liczb 

znakowej zawierającej liczbę zmi ennoprzeci nkową. 

zmiennoprzecinkowych. 

której moduł chcemy obliczyć. 


Wywołanie funkcji. 

Parametry wyjściowe. 
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absfpn char array 

B4.6. 21 Ustawienie liczby zmiennoprzecinkowej na 

Wskaźnik do sześciobajtowej tablicy 

• 

znakowej przeznaczonej na moduł liczby *fpn. 

zero. 

Zastosowanie. 

Opis. 

Ustawienie liczby zmiennoprzecinkowej na 

Następuje obliczenie modułu liczby */pn i 
zapamiętanie go w *absfpn. fpn i absfpn mogą być 

zero. 

tą samą zmienną. 
Wykorzystane funkcje. * 

Wywołanie funkcji. 

c_zero( fpn); 

Brak. 

Parametry wejściowe. 

Przykład. 

Brak. 

char *pntr, nbrt63, absnbrC63, answerC17); 


pntr = 15.7B9"; 

Parametry wyjściowe. 

c_afp< pntr, nbr); 

fpn char array 

c abs( nbr, absnbr) ; 

Wskaźnik do sześciobajtowej tablicy 

c fasc( absnbr, answer); 

znakowej zawierającej liczbę zmiennoprzecinkową. 

printf ("7.5”, answer); 

której wartość wynosi zero. 

15.7B9 

Opis. 


Do liczby w fpn ładowane jest zero w 

B4. 6. 20 Zadana znaku liczby zmiennoprzecinkowej. 

formacie liczby zmiennoprzecinkowej Atari. 

Zastosowanie. 

Przykład. 

Zmiana znaku liczby zmiennoprzecinkowej. 

char fpnC&l, answer C 173; 
c_zero( fpn); 

Wywołanie funkcji. 

c_fasc( fpn, answer); 

c_chst fpn, negfpn); 

printf ( ">.5 n , answer); 

Parametry wejściowe. 

■fpn char array 

Wskaźnik do sześciobajtowej tablicy 

O 

B4. 6. 22 Przesunięcie liczby zmiennoprzecinkowej. 

znakowej zawierającej liczbę, którą chcemy 

zanegować. 

Parametry wyjściowe. 

negfpn char array 

Wskaźnik do sześcio bajtowej tablicy 

znakowej przeznaczonej na liczbę będącą negacją 

Zastosowanie. • 

Przepisywanie liczb zmiennoprzecinkowych z 
jednego miejsca pamięci w inne. 

Wywołanie funkcji. 

c_move( fpnl, f pn2) ; 

*fpn. 

Opis. 

Zmieniony zostaje znak *fpn, a wynik 

zostaje zapamiętany w "nsgfpn. fpn i nogfpn mogą 
być tą samą zmienną. 

Parametry wejściowe. 

fpnl char array 

Wskaźnik do sześci obajtowej tablicy 

zawierającej liczbę zmiennoprzecinkową, którą 

należy skopiować. 

Parametry wyjściowe. 

Wykorzystywane funkcje. . 

fpn2 char array 

Brak. 

Wskaźnik do sześcioba jtowej tablicy 

znakowej przeznaczonej na kopiowaną liczbę. 

Przykład. 


char tpntr,, nbr C&J, output t 6], answer 1 173; 

Opis. 

pntr « "15.7B93"| 

Liczba *fpnl jest kopiowana do *fpr2. 

c_afp< pntr, nbr>| 


c_chs ( nbr , output > ; 

Wykorzystywane funkcje. 

c_gasc ( output , answer > ; 
printf ( m Xs m , answer); 

move (biblioteka AI0) 

Przykład. 

-15.7893 

char tpntr, fpnlE63, fpn2C6J, answerE17D; 
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pntr = "66"; 
c_afp( pntr, fpnl); 
c_move< fpnl, f pn2) ; 
c_f asc ( fpn2, answer) ; 
pr i ntf ( "7.5'', answer); 

66 

B4. 7 Funkcje trygonometryczne zawarte w pliku 
TRI G. CCC. 

W tym rozdziale omówimy wszystkie funkcje 
trygonometryczne biblioteki MATHLIB zawarte w 
pliku TRIG.ĆCC. Oto ich lista: 

c_Lrig inicjał izac ja funkcji trygono- 

metrycznych; 

c_rad ustawienie trybu obi i czert; 

e_rd zamiana radianów na stopnie; 

c_dr zamiana stopni na radiany; 

c_dmsd zamiana stopni, minut, sekund na 
stopnie dziesiętne; 

c_ddms zamiana stopni dziesiętnych na 
stopnie, minuty, sekundy; 
c_sin obliczanie wartości funkcji sinus; 

c_cos obliczanie wartości funkcji cosinus; 

c _tan obliczanie wartości funkcji tangens; 

c_atan obliczanie wartości funkcji 

arctangens. 


Określenie "stopnie dzesiętne" oznacza 

wartość podaną w stopniach, będącą liczbą 
zmiennoprzecinkową. Na przykład 30 stopni 25 
minut i 37 sekund to 30.42694444 w stopniach 
dzesiętnych. 


B4. 7. 1 Inicjalizacja funkcji trygonometrycznych. 
Zastosowani e 

Inicjalizacja funkcji trygonometrycznych 
biblioteki MATHLIB. 

Wywołanie funkcji. 

C_trig() ; 

Parametry wejściowe. 

Brak. 

Parametry wyjściowe. 

Brak. 

Opis. 

Funkcja inicjalizuje stałe i zmienne 
używane przez funkcje trygonometryczne 

biblioteki MATHLIB. Musi zostać wywołana przed 
użyciem jakiejkolwiek funkcji trygonometryczne j . 
Pominięcie tej funkcji spowoduje, że obliczenia 


realizowane przez funkcje trygonometryczne będą 
błędne. Funkcja c^trig ustawia tryb wykonywania 
obliczert w. stopniach. 

Wykorzystywane funkcje. 

* c_afp 

B4. 7. 2 Ustawienie trybu wykonywania obliczert w 
stopniach lub radianach. 

t 

Zast osowani e. 

Wybranie trybu realizacji obliczert przez 
funkcje trygonometryczne. Obliczenia mogą być 
realizowane w stopniach lub radianach. 

Wywołanie funkcji. 

c_rad ( flag); 

Parametry wejściowe. 

flag integer scal ar 

Parametr /Lag oznacza wybrany rodzaj pracy* 
równy O — stopnie, 
nie równy O - radiany. 

Parametry wyjściowe. 

Brak. 

Opis. 

Funkcja ta informuje MATHLIB, że obliczenia 
trygonometryczne będą realizowane w stopniach 
lub radianach. Funkcja ta może być wywoływana w 
dowolnym momencie. Wywołanie funkcji c^trig 
ustawia tryb pracy w radianach. 

Wykorzystywane funkcje. 

Brak. 


B4. 7. 3 Zamiana radianów na stop nie. 

Zastosowani e. 

Zamiana radianćw na stopnie. 

Wywołanie funkcji. 

status ■ c_rd( radiany, stopnie); 

Parametry wejściowe. 

radiany char arr ay 

Wskaźnik do sześć i obajtowe j tablicy 
znakowej zawierającej liczbę zmiennoprzecinkową 
określającą kąt w radianach. 

Parametry wyjściowe. 

stopnie char array 

Wskaźnik do sześci oba Jt owej tablicy 
znakowej, do której przesłany zostanie kąt w 
stopniach dziesiętnych równy kątowi podanemu w 

•radiany. 
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status integer scal ar 


answer Cl 71; 

Zwracany status; 

pntr = M 45'' ; 

0 - zamiana została dokonana poprawnie, 

-1 - przekroczenie zakresu. 

pntr, stopnie); 

Opis. 

c_dr( stopnie, radiany); 
c _f*sc< radiany, answer); 

pcint-f ( ”Xs", answer); 

Funkcja ta zamienia radiany na stopnie 
dziesiętne, radlony i stopnie mogą być tą samą 

zmienną. 

0.7B539B1Ł 

Wykorzystywane funkcje. 

Bi. 7. 5 Żandarm stopki, jRinut, sekund na stopnie 

c_f di v 

dzeslętne. 

Przykład. 

Zastosowanie. 

char *pntr, radianyŁ61, stopnieE63, 

Zamiana stopni, minut i sekund na stopnie 

answerC 171 ; 

dziesiętne. 

pntr * “O. 785398 16" | 


c_afp( pntr, radiany); 

Wywołanie funkcji. 

c_rd< radiany, stopnie); 

status * c_dmsd ( stopnie, minuty, sekundy, sd); 

c_fasc< stopnie, answer); 


printf< M y.s n , answer); 

Parametry wejściowe. 

stopnie char array 

45 

Wskaźnik do szeńciobajtowej tablicy 

' 

znakowej zawierającej liczbę stopni, 
minuty char array 

B4.7.4 Zamiana stopni na radiany. 

Wskaźnik do sześciobajtowe j tablicy 

znakowej zawierającej liczbę minut. 

Zastosowanie. 

sekundy char array 

Zamiana stopni dziesiętnych na radiany. 

Wskaźnik do sześciobajtowej tablicy 


znakowej zawierającej liczbę sekund. 

Wywołanie funkcji. 


•tatuś = c_dr < stopnie, radiany); 

Parametry wyjściowe. 

sd char array 

Wskaźnik do sześći oba jtowej tablicy 

Parametry wejściowe. 

stopnie char array 

znakowej, do której zostanie załadowana liczba 

Wskaźnik do sześcioba jtowej tablicy 

określająca kąt w stopniach dziesiętnych. 

znakowej zawierającej liczbę zmiennoprzecinkową 

status integer scal ar 

oznaczającą kąt w stopniach dziesiętnych. 

Zwracany status; 

* 

O — zamiana dokonana poprawanie, 
—1 - przekroczenie zakresu 

Parametry wyjściowe. 


radiany char array 

Opis. 

Wskaźnik do sześci oba jtowej tablicy 

Kąt wyrażony w stopni ach, ^minutach i 

znakowej, do ktdrej zostaje wpisany kąt w 

sekundach zostaje zamieniony na stopnie 

rad i an ach. 

dziesiętne. 

status intsger scal ar 


Zwracany status; 

Wykorzystane funkcje. 

0 — zamiana wykonana poprawnie, 

c_f di v 

-1 - przekroczenie zakresu. 

c_fadd 

Opis. 

Przykład. 

Funkcja zamienia stpnie dziesiętne na 

char sttŁJ, młnCŁD, »tdt63, l*u», 

radiany. stopnie i radiany mogą być tą samą 

output C 171 ; 

zmienną. 

aux = "30" ; 
c_afp< aux, st); 

Wykorzystywane funkcje. 

aux - "25" ; 

C_fmul 

c_afp( aux, min); 


aux ■ "37"| 

Przykład. 

c_afp( aux, sak); 

char »pntr, radianyC63, stopnieCól, 
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c_dmsd < st, min, sec, std); 

B4. 7. 7 Obliczanie wartości funkcji sinus. 

c_f asc (ddeg, output); 
printf ( N Xs“, output); 

Zastosowani e. 

30.42694444 

Obliczanie wartości -funkcji sinus dla 

podanej wartości kąta. 

B4. 7.6 Zamiana stopni dziesiętnych na stopnie, 
minuty, sekundy. 

Wywołanie funkcji. 

Zastosowanie. 

status “ c_sin( kąt, sinus); 

Zamiana stopni dziesiętnych na stopnie. 

Parametry wejściowe. 

minuty i sekundy. 

kąt char array 

Wywołani© funkcji. 

Wskaźnik do sześć i obaj towej tablicy 

zawierającej liczbę zmiennoprzecinkową 

status *= c_ddms ( sd, stopnie, minuty, sekundy); 

określającą wartość kąta. 

Parametry wejściowe. 

Parametry wyjściowe. 

sd char array 

sinus char array 

Wskaźnik do szśc i obaj towej tablicy 

Wskaźnik do sześcobajtowej tablicy znakowej 

zawierającej liczbę zmiennoprzecinkową 

zawierającej liczbę zmiennoprzecinkową będącą 

określającą kąt w stopniach dziesiętnych. 

wartością funkcji dla danego kąta. 

Parametry wyjściowe. 

status integer scal ar 
Zwracany statusi 

stopnie, char array 

0 — obliczenia zostały wykonane poprawnie, 

Wskaźnik do sześć i obaj t owej tablicy 

1 — przekroczenie zakresu. 

znakowej zawierającej liczbę stopni, 
minuty char a^-ray 

Opis. 

Wskaźnik do sześć i obaj towej tablicy 

Kąt *Mą t zostaje zredukowany do wartości z 

znakowej zawierającej liczbę minut. 

przedziału CO, +pi/23. Wartość funkcji sinus, 

sekundy char array 

dzięki rozłożeniu jej w szereg Tayolra, obliczna 

Wskaźnik do sześć i obaj towej tablicy 

jest z dokładnością do ośmiu miejsc po 

znakowej zawierającej liczbę sekund. 

przecinku. 

status integer scal ar 
Zwracany status: 

Wykorzystane funkcje. 

0 - zamiana wykonana została poprawnie. 

move (biblioteka PIO) 

-1 — przekroczenie zakresu. 

C f mul 

Opis. 

c_f di v 
c f rac 

Kąt podany w stopniach dziesiętnych 

c f sub 

zamieniany jest na kąt przedstawiony w 

c fadd 

stopniach, minutach i sekundach. 


Wykorzystane -funkcje. 

Przykład. 


char tpntr, nbrt63, sinnbrC&3, answer C 17 3; 


rad(O); /* obliczenia w stopniach */ 

c f mul 

pntr = "30"; 


c_af p ( pntr, nbr); 

Przykład. 

c_sin< nbr, sinnbr); 

char stt63, min?63, sekC63, stdC63, taux; 

c_fasc< sinnbr, answer); 

char outl C 173, out2C173, out3tl73| 
aux - "30.42694444"; 

printf( -Xs" , answer >; 
O.S 

c_af p ( aux, std); 

c_DDms( std, st, min, sek) ; 

B4. 7. 8 Obliczanie wartości funkcji cosinus. 

c_f asc ( st, outl); 
c_f asc ( min, out2) ; 

Zastosowanie. 

c_fasct sek, out3) | 

Obliczenie wartości funkcji cosinus dla 

printf (“Xs 7.» , outl, out2, out3) ; 

zadanej wartości kąta. 

30 25 27 

Wywołanie funkcji. 
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status = c_cos( kąt, cosinus); 

Parametry wejściowe, 

kąt char array 

Wskaźnik do sześci obaj towej tablicy 

znakowej zawierającej kąt podany w stopniach 

dzisiętnych. 

Parametry wyjściowe. 

cosinus char array 

Wskaźnik do sześci obaj towej tablicy 

znakowej zawierającej wartość -funkcji cosinus 

dla potjanego kąta. 

status integer scal ar 
Zwracany status: 

O — obliczenia wykonane poprawnie, 

—1 — przekroczenie zkresu. 

Opis. 

Oblicza wartość funkcji cosinus dla kąta 
*h t i zapamiętuje ją w cosinus. 

Wykorzystane funkcje.. 

move (biblioteka AIO) 
c_f mul 
c_f sub 
c_sin 

Przykład. 

char łpntr, nbrC61, cosnbrC63, answer [173 

rad(O); /* obliczenia w stopniach */ 

pntr = "30"; 

c_af p < pntr, nbr); 

c_cos< nbr, cosnbrł; 

c_fasc( cosnbr, answer); 

printf( "Hs”, answer); 

O. 8660254 

B4. 7. 9 Obliczanie funkcji tangpns. 

Zast osowani e . 

Obliczenie wartości funkcji tangens dla 
podanego kąta. 

Wywołanie funkcji. 

ststus = c_tan ( kąt, tangens); 

Parametry wejściowe. 

kąt char array 

Wskaźnik do sześci obajtowe j tablicy 

znakowej zawierającej wartość kąta podaną w 
stopniach dziesiętnych. 

Parametry wyjściowe. 

tangens char array 

Wskaźnik do sześci obaj towej tablicy 

znakowej zawierającej wartość funkcji dla 
zadanego kąta. 


status integer scal ar 
Zwracany status: 

O - obliczenia wykonane poprawnie, 
—1 — przekroczeni e zakresu. 

Wykorzystane funkcje. 
c_si n 
c_cos 
ć_f di v 


Przykład. 

char łpntr, nbr[63, tannbrt63, answert 173; 

rad(0>; /% obliczenia w stopniach %f 

c_af p ( pntr , «• nbr ) ; 

c_tan ( nbr, tannbr); 

e_f asc ( tannbr, answer); 

printft "7.5" , answer); 

0.57735027 

B4. 7. 10 Obliczanie wartości funkcji arc tangens. 
Zastosowanie. 

Obliczanie wartości funkcji arctangens dla 
danej liczby rzeczywistej . 

Wywołanie funkcji. 

status = c_atan ( tangens, kąt); 

Parametry wejściowe. 

tangens char array 

Wskaźnik do sześć i obaj towej tablicy 
znakowej zawierającej liczbę, dla której należy 
policzyć wartość funkcji arctangens. 

Parametry wyjściowe. 

kąt char array 

Wskaźnik do sześci obajtowej tablicy 
znakowej zawierającej wartość obliczonego kąta. 
status integer scal ar 
Zwracany status: 

O - obliczenia wykonane poprawnie, 

—1 — przekroczenie zakresu. 

Opis. 

Obliczenia realizowane są z 

dz i ewięciOcyf rową dokładnością. Wynik mieści się 
w przedziale (-90, +90) w stopniach lub w 

przedziale (-pi/2, +pi /2) w radianach. Zależy to 
od wybranego trybu realizacji obliczeń. 

Wykorzystane funkcje. 

move (biblioteka AIO) 

c_fdi v 

c_cmp 

c_f mul 

c_f add 
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Przykład. 

char *pntr , deg45t63, actan45C63, answer t 173; 
rad (O); /i obliczenia w stopniach */ 
pntr - " 1 " ; 


c_afp( pntr, deg45> ; 
c_atan< deg45, atan45> ; 
c_fasc( atan45, answer) j 
printf( "Xs", answer): 



Pttn&NY 


*** spimr *#* 


Program ten ilustruje wykorzystanie -funkcji 

z biblioteki trygonometrycznej TRIG. Rozwiązuje 
on problem przedstawiony w książce Charlesa 
Corge p.t. ELEMENTY INFORMATYKI, PWN, Warszawa 
1981r. Oddajmy głos autorowi tej pracyz "Cztery 
biedronki o imionach Afrodyta, Busiris, Cybela i 
Danaos znajdują się w danym momencie w czterech 
rogach kwadratu o boku a, oznaczonych 
odpowiednio ich inicjałami. Afrodyta i Cybela są 
samiczkami, Busiris i Danaos samcami. Każda z 
biedronek, pałając czułym, lecz niestety nie 
odwzajemnionym uczuciem, ożywiona jest 

nieodpartą chęcią spotkania się z wybrańcem 
swego serca. Decydują się na ten krok w tym 
samym momencie i wyruszają z identyczną 
prędkością; Afrodyta w kierunku Busirisa, 
Busiris w kierunku Cybeli, Cybela w kierunku 
Danaosa i wreszcie Danaos w kierunku Afrodyty". 
Problem polega na wykreśleniu dróg, które 
przebędą biedronki. Program SPIRALE kreśli te 
drogi. Z matematycznego punktu widzenia drogi te 
są krzywymi, które zakreślają wierzchołki 
kwadratu o boku a i środku znajdującym się w 
początku układu współrzędnych XY, poddanego 
serii przekształceń, będących złożeniem obrotu o 
kąt alfa z jednokładnością o stosunku 
exp(— alfa). Program obok funkcji sterującej 
mainO składa się również z funkcji* 
obl_Jedn() — oblicza stosunek jednokładności , 
tj. wartość wyrażenia exp<— alfa) dla różnych 
wartości . kąta alfa; 

rek_kat() — dokonuje redukcji kąta z przedziału 


0<=alfa<=360 stopni do kąta z przedziału 0-90 
stopni ; 

obroc_kw() - kreśli kwadrat; 

p_alfa<) - wczytuje przyrost kąta obrotu alfa; 
ut_tabs(> - oblicza wartości funkcji sinus dla 
kątów od O do 90 stopni i umieszcza je w tabeli 
si nusów; 

dr__ekran<)— drukuje wykreślone drogi biedronek 
na drukarce ATARI 1029. 

Ponadto program SPIRALE wykorzystuje 
procedurę w kodzie maszynowym (jest ona wywołana 
w funkcji dr_ekran()) drukującą graficzną 
zawartość ekranu. Przedstawiony kod źródłowy tej 
procedury należy zasemblować (na przykład 
asemblerem EASMD) i dołączyć kod maszynowy do 
programu podczas fazy linkowania. 

Program SPIRALE 

Funkcja sterująca mainO 

z********************************** 

* * 

* proaram "SPIRRLE" * 

* * 
********************************** 

* demonstruje wykorzystanie bibliotek 

* zmiennoprzecinkowej i 
t ry a onomet ry czne j 

* kompilatora DBC w tworzeniu arafiki 

* w trybie wysokiej rozdzielczości. 

* Proaram kreśli fiaure powstała u 

* wyniku zlozenia przekształceń- obrotu 

* o kat alfa z jednokładności a o 
stosunku 

* exp<-alfa) kwadratu o boku a i środku 

* w początku układu współrzędnych 
kartez-janskich 

* Ważniejsze zmienne proaramu ; 

* sint - tablica sinusów katów z 
przedziału 

* 0<=alfa<=30 stopni 

* kzred- tablica umożliwiająca odczyt 

* sinusa i cosinusa. kata z w/w 

* przedziału. 

* wspw - tablica współrzędnych 
wierzchołków 

* kwadratu. 

* bok - dluaosc boku kwadratu 

* alfa - kat obrotu kwadratu 

*/ 


char sintC5463; 
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mainO 

SC 

i nt ws pw £83 , k z red £43 ; 
char ars £203 .,C/ cl; 
int 

i ; j > bok > czy ta j / status * a l f a ^ beta , x i * y i ; 
char bokf£63,dwa£23^p2£63.- PP2C63.,sj£63; 
char rob £63 * x£63 , y £63 ; p rom i en £63 ^ e£63 ; 
char £const ; 
i nt pal fa* kont; 
kont=l; 

/% inicjacja bibliotek ts 
c-iml C > ; 
e_ifcrisO; 

st utwórz tabele sinusów ts 
ut_tabsO; 

st obliczenie wartości stałej 

0.5£sqrtC2> ts 
eonst="2. G " ; 
c_ a fp( const * dwa> ; 


c_sq rt < dwa > p 2 > ; 
c_ f d i v C p2 ; dwa j p p2 > ; 

const="2. 7183" ; s% liczba e %s 
c_a fp( const ^ e > ;* 

uh i le<kont> 

$< 

s% wczytaj dlusosc boku kwadratu ts 
3 ra Ph i cs <0> ; 
czy taj =1 ; 
whi 1 e < czy ta j ) 

SC 

p r i nt f < " n poda j dl u -a ose bok u 
kwadratu.vn">; 

p r i nt f C " 40 Obok 0 1 60 vn " > ; 
printf<"bok = ">* 
status=sets<ars ;■ ; 
if ( status <=y> 

SC 

p r i nt f < " "'a \nb lad p rzy 
w p rowadzan i u.\n " > i 
continue; 

$> 

bok=val Cara > ; 
i f C bok <40 II bok > 1 60 > 

SC 

p r i nt f C " \ s vnd l ua osc poza dozwo l ony m 
zak resern" >; 

continue; 

$> 

czyta j=0; 

$> /£ koniec Pętli while 

/£ oblicz dlu.aosc rolowy przekątnej 
kwadratu ts 

st tj. promień obrotu ts 
c_i f pCbok /bok f>; 
c_ f mu 1 C bok f * p p2> p r om i en > ; 

/£ wczytaj przyrost kata obrotu £/ 
pal fa=p_ alfaO i 

/% ustaw kolory ts 
a raphicsC24>; 
colorćl >; 

PokeC710> 16>; 

PokeC712_. 16>; 


st przekształcenie kwadratu i rysowanie 
kwadratu 

t Przeksztalconeao %/ 
fort j=0; j <180.; j+=pal fa> 

$*: 

obl_ jedn<ej J,s j); 
forCi=0; i Ol ; i++) 

bet a= j +45+ i £30; 
red_k at C beta , k z red ) ; 
ob roc_k w C k z red , p rom i en , x , y > ; 
st zmniejsz wspoI. w skali sj ts 
e_fmu l Cy.» s j » rob) ; 

zamień wspoI. na inteaer ts 
c_ f rsi C rob j &xi > ; 
wspw£2£i3=xi ; 
c_ f mu l <y > s j # rob ) ; 
c_f psi C rob, &y i >; 
ws pw C2£: i + 1 3 =y i ; 

S) 

ws pw £43>=- ws pw £03 ; 
ws pw £53 =-ws pw £ 1 3 ; 
ws pw £ 63 =-ws p u £23 ; 
ws pw £73 =-ws pw £33 ; 
ry s_j£ w C ws pw > ; 

Sj 

wh i leC peek C 53273 > ! =5) ; 
dr_ek ran O; 
a ra Ph icsC 0 > ; 

p r i nt fC" chcesz jeszcze raz <T/N>"->; 
c=tou p per C a e tcha r O > ; 
cl =a et char O; 
i f C c== •' N ' > k o nt=0 ; 

Sj 

Sj 


F u.nk c ja ob 1 _ j edn C ) 

/% FUNKC J Fi ob 1 _ j edn < e # a l f a > st j edn > 

% oblicza wartość wyrażenia 
t s t j edn=ex p < -al f a > 

£ która jest wykorzystana jako skala 
t zmniejszenia dl ua ości boku kwadratu 
t przy jeao obrocie o kat alfa 
%/ 

ob l _ j edn ć e > a l f a > st j edn > 
int alfa; 
char £stjed>*w£e; 
iC 

char a l f a f £63 > a l f a r £63 ; 
c_i f p<al fa> al faO ; st zamień int na 
fp £x 

c_drCal faf.* al far>; s% zamień stopnie 
na radiany £/ 

*alfar = £alfar^0x80; /% zmień znak %/ 
c_ex p C e / a l f a,r ^ s t j edn >.; 
t> /£ koniec funkcji obi _ jednO %/ 


Funkcja red^katO 

/% Funkcja red_kat<kat^kzred) 

% dokonuje redukcji kata z przedziału. 
t 0<=katO360 stopni do kata z 
przedziału. 

t 0OkatO90 stopni. 
t miara zredukowanego kata nie ulega 
zmianie 

t funkcja umieszcza cztery wielkości 
ty pu. 



4 inteser w czteroelero^ntowe j tablicy 

int tkzte d.< 

KZRED 

cha. r 4 p rom i en ■ -4 - . 4y . 

* ich znaczenie jest następu jace 

SC 

4 k z red 033 - liczba wskazu-iaca element 
tablicy sint 

4 zawierajaca sinus- kata 

char 4wsk ; 

4 k z red Cl 3 - j.w. dotyczy eosinusa kata 

i nt j 

4 kzredC2J - znak sinusa CkzredC23=l 

cha r sinCb3, cos C63 .. 

uda sin<8. 

j = :4kzred; 

4 kzredC23=8 

wsk ~si nt + j4S. 

3 d'-i sin>=0> 

move C wsk .. s i n .. 6 > > 
j ~ 4vkzred+2 j ■ 

4 kzredC33 - znak c-osinusa < podobnie 

i ft.j ;• 4s i n = -ł-s i rr 0x80 i 

jak wyżej > 

j = *<kzred+l)i 

4/ 

wsk =s int + -«346, 

red_k at(kat,kz red > 

woyetwsk .. cos j S) i 

j = 4 < k z red+3 1 > 

if< j> 4cos = :4cos'0x80; 

int kat i 

c_ f mu l *, cos , p rom i en • x > :• 

int 4kzred; 

ć-fmuKsin, Promień, y 

SC 

S> /% koniec funkcji obroc_kwO 4v 

int m,n,znaks,znakc.; 
if <kat>359) k.at=kat*360, 
lf fkatOl) 

Funkcja P_alt'aO 

SC 

m=kat; 

FUNKCJA R.hLFhO 

zna.ks-0; 

4 wczytuje przyrost kata obrotu alfa 

n=30-kat.: 

*s 

ZYiakc-05 

s:> 

p_alfaO , 

else if (kat <181 > 

SC 

*( 

int znak; 

m=180-kat ; 

int iocbj Pob; 

znaks=0j 

printf("vn\nUybierz przyrost kata 

n=kat-90; 

ob ro tu a l f a\n " > ; 

znake=l ; 

pr i nt f C " '-265 - dwa sto pn i e\n " > ; 

$:> 

prinfcf< ,, \263 - trzy stopnie\n") ; 

e Ise. i f t k at <27 1 > 

print-f("\264 - cztery stopnie\n") '• 

i( 

prmtf C " -265 - piec stopni vn 11 >; 

m=kat-180i 

printf C ,ł x2b6 - szesc stopni vn">; 

znak s=l ; 

printf ("\267 - siedem stopni-n" >; 

n=27S-katj 

POsition<2* 18>; 

znak c=l ; 

prii)tf<"PO narysowaniu, fiaury nacisnia 

r> 

\323\305<314\305\303<324 ,, >; 

else 

iocb=coPen( "K " , ' r' > ; 

ft 

pob=l ; 

n=3b0-kati 

whi let Pob) 

znak s= 1 i 

SC 

n=kat-270. 

znak=c*etc< ioeb > i 

znakc=0i 

i f Cznak </2 m II znak > ' 7* > 

S> 


4krred=m.. 

printfC H ss">; 

4 *, k z red+ 1 > =n ; 

continue; 

i. < k z red+2) =znak s 

*> 

4 k z red +3 > =znak c ; 

pob=S , 

S > koniec funkcji red kat O 4x 


Funkcja obrw kwO 

cci oset iocb); 
retu. r n t znak -48 > ; 

s> 

-4- FUNKCJA obroc_kw(kzreda promień.. X.. y -* 
4- wyznacza współrzędne jedne a o 
wierzchołka. 


ł kwadratu po obrocie o kat.- ktoreao 
4 sinus i cosinus < i ich znak i :> 

z:4 f u.nk c jad r_ek ran t > 

określane 

.4 drukuje zawartość pamięci ekranu 

i przez element!* tablica KZRED 

4 Cu 8 trybie graficznym) na drukarce 

4 Promień - zawiera dlu.aose Polowy 

4 funkcja wykorzystuje podprogram 

4 przekątnej kwadratu w postaci liczby 

4 w kodzie maszynowym rezydujący na 

4 zw i e nno p rzec i nk owe ■ . 

i szóstej stronie pamięci (adres 153G 

■4 x y y wsool rzedne po obrocie 

* lub 0x600) 

■i- 

4x 

■ b roc _k w < k z red j. p row i e n # x .• y j 

dr_ek ran O 
SC 





int l,ioeb; 
char łek ran; 
ek ran=dpeek C83) ; 

(or(. 1=0; t <28; 1++) 

*( 

74 

X otwarcie kanału dla drukarki 
%/ 

iocb=copen<“P > ", 'u' ); 
if(iocb<0) 

*C 

graphics(0) ; 

p r i nt f ( " vg ^n vnd rukarka odłączoną"); 
return; 

*) 

/% ustaw tryb graficzny pracy drukarki 
*/ 

cPutc(''-033' , iocb); 
cputeC'9' , iocb); 
cPutcC' \033 J , iocb); 
cput cC 1 A' , iocb); 
cputc( ' N601 ' , iocb) ; 
cputcC'\630' , iocb); 

74 

X. wywołanie cod Pr 09 rariu rezydującego 
* na szóstej stronie pamięci 
47 

usrC1536, iocb., ekran); 

cclose(iocb); 
ek ran=ek ran+280; 

*) 

*) 74 koniec funkcji dr_ekran(> X/ 


Funkcja ut-tabsO 


printfC" PUM, Warszawa 1981 r. str. 
340\n\n" ) ; 

printfCProsze chwile 
poczekać. . . v .nKn" ) ; 
printfCtworzenie tabeli sinusów”); 
i=0; 

c_rad<0); 74 miary katów - stopnie 

X/ 

whileCiOl) 

*C 

c_ifp(i,kat); 74 zamień inteser na 
fp 47 

wsksin=sint+64i; 74 wskaźnik do 
odpowiedniego X> 

74 elementu tablicy 

sint 47 

c_sin(kat, wsksin) ; 
c_ fa.sc(wsksin,sinasc); 
positionC 1 ,20); 

printfC "kat x-3d stop. sin = 
xs" , i,sina.sc); 

++i ; 

*) /% koniec while X/ 

*) 74 koniec funkcji u.t_tabs<> X/ 


01 ; PR1029.BSM 
85 . DPT OBJ 

10 ; Podprogram wyprowadza na drukarkę 
20 ; ATARI 1029 zawartość fragmentu 
30 ; pamięci ekranu w 8 trybie graficznym 
40 ;Sposob wywołania z jeżyka DEC 
50 ; 

60 ; us rC ad r, iocb, adres) 

70 ; gdzie adr, iocb sa zmiennymi 
80 ; ty pu int i oznacza ia- 
90 ; adr - początek obszaru pamięci 
RAM, 


74 

* FUNKCJA ut_tabs() 

* oblicza wartości funkcji sinus 
X dla katów od 0 do 98 stopni i 

4 umieszcza je w postaci szescio- 
X bajtowych liczb zmiennoprzecinkowych 
4: u tablicy sintC5943 
47 

ut_tabs() 

SC 

int i; 

cha r k a t C63 , s i nasc C 1 71 , 
char 4wsksin; 

printfC "\f" ) ; .,'4: czysc ekran 47 

PokeC 752,1); 74 schowa i kursor X/ 

position(10,3); 

p r i nt f < " XXXXX.XXXXXXXXXXXXXXX “ ) ; 
positionC 10, 4) ; 

printfC “X 4"); 

positionC 10, 5) ; 

printfC" program SPIRALE 4”); 
positionC 10, 6) ; 

PrintfC"* *"); 

positionC 10,7); 

p r i nt f C " 4444444444444444444*\n\n " ) ; 

printfC" kreśli cztery spirale 
1 ogary tmiczneMfi" ) ; 

printfC" stanowia.ce rozwiązanie 
problemu‘.n"); 

printfC" przedstawionego w pracy C. 
CorgeKn"); 

printfC" p.t. Elementy 
In f o rmaty k i \n " ) ; 


0100 ; w którym rezyduje ten 

podpros ram 

0110 ;iocb - numer IOCB, z którym 
została 

0120 ; otworzona drukarka. 

Podprogram nie 

0130 ; przeprowadza operacji 

otwarcia. 

G140 , adres.- adres pamięci ekranu, 
ktorego 

0150 ; zawartość ma bye 

wydrukowana. 


0152 ; "adres jest wskaźnikiem 

typu char. 

0160 ;UWAGA- podprogram wyprowadza 


jedynie 

0170 ; 280 bajtów pamięci ekranu 

począwszy 

0180 ; od adresu “adres" 

0190 ; 

0200 ; 

0210 ; Wykorzystane zmienne systemu 
operacyjnego 


0220 ICBCOM = *0342 
0230 ICBAL = *0344 
0240 ICBAH = *6545 
0250 I CBLL = *0348 
0260 ICBLH = *0349 
0270 CI DV = *6456 
0280 ; zmienne podprogramu 


J 


TKS- > <1 


IOCb = *06E0 
ADRES = *06E2 
EKRAN = *FFFF 
OBSZ = *06E4 


0290 
0300 
0305 
0310 
0320 ; 

0330 » Początek podprogramu 
0340 i 

0350 *= *0600 

0360 


0370 START 

PLA 

i zwiększ wskaźnik 

stosu 

0380 

PLA 

;'st. bajt nr IOCB 

0390 

PLA 

jml. bajt nr IOCB 

0400 

ASL 

R i Pomnoz 

0410 

ASL 

A i przez 

0420 

ASL 

fi i szesnaście 

0430 

ASL 

A i 

0440 

STA 

IOCB 

0450 

LDA 

#0 i zeruj starszy 

bajt 

0460 

STR 

IOCB+1 i numeru IOCB 

0470 

PLA 

> pobierz ADRES 

0480 

STA 

ADRES+1 

0490 

PLA 

PR 1029 str. i 2 

0500 

STA 

ADRES 

0510 DALEJ 

JSR 

AKTAD i aktualizuj adresy 

0520 

CLC 

i i drukuj po 8 

bajtów 

8530 

LDA 

PRZES+1 

0540 

ADC 

#1 

0550 

STA 

ADRES 

0568 

LDA 

FRZES+2 

0570 

ADC 

#0 

0580 

STA 

ADRES+1 

0530 

INC 

IOCB+1 

0600 

LDA 

IOCB+1 

0610 

CMP 

#40 

0620 

BNE 

DALEJ 

0630 KONIEC 

RTS 

i wydrukowano 280 bajtów 

0640 AKTAD 

LDX 

#0 

0650 RKTAD1 

CLC 


0660 

LDA 

ADRES+1 

0670 

STA 

PRZES+2,X 

0680 

LDA 

ADRES 

0690 

STA 

PRZES+1, X 

0700 

ADC 

#40 

0710 

STA 

ADRES 

07261 

LDA 

ADRES+1 

0730 

ADC 

#0 

0740 

STR 

ADRES+1 

0750 

CLC 


0760 

TKA 


0770 

ADC 

#6 

0780 

TAK 


0790 

CPK 

#37 

08610 

BCC 

AKTAD1 

0810 

LDK 

#0 

0820 PRZES 

ASL 

EKRAN 

0830 

ROL 

0BSZ,X 

0840 

ASL 

EKRAN 

0850 

ROL 

OBSZ, X 

0860 

ASL 

EKRAN 

0870 

ROL 

OBSZ, X 

0880 

ASL 

EKRAN 

0890 

ROL 

OBSZ, X 

0900 

ASL 

EKRAN 

0910 

ROL 

OBSZ, X 

0320 

ASL 

EKRAN 

0930 

ROL 

OBSZ , X 

0940 

ASL 

EKRAN 

0950 

ROL 

OBSZ, X 

0960 

INK 



0376 

CPK 

#8 

0980 

BNE 

PRZES 

0982 j 



0984 ;druku. 

.i osiem bajtów 

0986 i 



0990 DRUK 

LDK 

IOCB 

1000 

LDA 

#11 

1010 

STA 

ICBCOM, X 

1020 

LDA 

#0BSZ&255 

1030 

STA 

ICBAL, X 

1040 

LDA 

SOBSZ-rZSS 

1050 

STA 

ICBAH,X 

1060 

LDA 

#8 

1070 

STA 

ICBLL, X 

1080 

LDA 

#0 

1090 

STA 

ICBLH, X 

1100 

JSR 

CI0V 

1110 

RTS 


1120 

. END 


PR 1023 str. i 3 
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*** OBLICZ **# 


Ostatni z prezentowanych programów 
ilustruje sposób tworzenia i wykorzystania w 
Jązyku C funkcji rekurencyjnych. Funkcja 
rekurencyjna Jest to funkcja, która rozwiązując 
problem, sama siebie wywołuje. Program OBLICZ 
oblicza wartoić złożonego wyrażenia 
matematycznego (ciąg liczb połączonych znakami 
opprarn mat f»mat yr ynych npt ?.0*?.O l + JfłOO). 


3+<t-XK« 



Dozwolonymi znakami operacji matematycznych eąi 

pisz<15/7/ "WYRAŻENIE"/ 128); 
ryskonC©/ 3/ 35/ 11/ f c. f ); 

+. Funkcją rekurencyjną jest funkcja 

Pisz(15. 13. "URRTOSC", 128>; 

obi O. Analizuje ona napisane na ekraniB 

ryskonC 10. 15.31. 17. 's ' ); 

wyrażenie i po napotkaniu znaku operacji 

vram=dpeek<88>+401 ; 

matematycznej wywołuje sama siebie w celu 

/% 

zanalizowania czężci wyrażenia, stojącego po 

%/ 

prawej stronie operatora. Funkcja obi O wykonuje 

dalej=l; 

najpierw mnożenie, następnie dzielenie. 

whi le<dalej) 

następnie dodawanie, a na końcu odejmowania. 

*. 

stat=wczy ta j-w<vram/ wiersz) ; 

stąd wartońć wymienionego wyżej przykładowego 

i f Cstat) 

wyrażenia obliczona przez funkcję obi O Jest 

Si 

równa -997. Używając nawiasów O, można zmienić 

pisz(2. 20. kom3, 0) ; 

powyższą hierarchię działań. 

printf<"V3 ">/ 
cont i nue ; 

Funkcje rekurencyjne są bardzo wygodnym 

*> 

narzędziem oferowanym przez język C. Dzięki nim 

stat=spr_naw<wiersz>; 

można napisać krótką i zwartą funkcję. 

i f <stat) 

rozwiązującą Jednak stosunkowo skomplikowany 

ti 

problem (proszę spróbować napisać podobną do 

pisz<2/ 20/ korni /0)j 
p r i nt f < " 

funkcji obi O procedurę w Języku BASIC i 


porównać je). Pisząc funkcję rekurencyjną. 


należy zawsze szacować liczbę jej wywołań. 

/X 

konieczną do rozwiązania problemu, dla którego 

funkcja ta Jest tworzona. Zbyt duża liczba 

X oblicz wartość wyrażenia 

wywołań tzw. “nieskończona rekurencja'', może 


doprowadzić do "przepełnienia" stosu i 

stat=obKuiersz. wiersz+strlen<wiersz>- 

zawieszenia się programu wynikowego. 

1/ wynik f); 

Program OBLICZ 

i f estat) 

$i 

pisz<2.20.kom2 .0); 
printf<“\9“); 

Pros fam "OBLICZ" 

cont i nu.e; 

ty 

Funkcja sterującą mainO 

/X 

% wyprowadź wartość wyrażenia 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'- K*** 

X/ 

* PROGRRN "OBLICZ" * 

c_ f asc < wy n i k f . wy n i k > ; 

X demonstruje działanie funkcji t 

position<12. 16); 

* rekurencyinej w jeżyku. C * 

printff" "); 

XXXXX.XXXXXXXXXXt*XXXX*XXXZX:XXXXX*ttX/ 

Position<12/ 16); 

Pr i nt f (. "«s " / wy ni k > ; 

ma. i n i > 

piszC2/20/ kom4/ 0); 


c=tou.pper (.getchar < ) > ; 

char 

cl=setcharO; 

wiersz C3R3 .korni C35J . k om2C35J . kom3C35J ; 

if(c!='T'> daAej=0; 

char kom4C353; 

$) /X koniec pętli wh ile X/ 

char wynik Cl 73/ wynik f CSU; 
char tv ram / Xk om ; 
char C/d; 
int stat/ dalej; 

t) s% koniec funkcji mainO X/ 

c-_irnl O ; 

kom- "Nie parzy sta liczba nawiasów O"; 

Funk c j a s p r_zna k O 

st rc py i k om 1 / k om ) ; 

#de f i ne DEL 126 

kom=" BI ad w Podanym wyrażeniu. 

strcpy <kom2/ kom> / 

ttdefine RET 155 

kom="Dlu.sosc przekroczyła 38 znaków"; 

r*****************.t************lc**** 

strcpy <kom3/ kom); 

* funkcja spr_znak (znak > * 

kom=" Chcesz liczyc dalej TzN “; 

X sprawdza/ czy wczytany znak jest# 

strcpy <kom4. kom) ; 

* jednym ze znaków DEL. RETURN. 

Pokef752. 1 > ; 

* +.ł, lub cyfra. Jeżeli * 

printfC"\f\s /X czysc ekran 

X tak funkcja zwraca zero do X 

piszC5. 1, "Podaj dowolne wy rażenie" . 0; . 

X miejsca wywołania, w przeciwnym X 

p i sz < 1 / 2 / " zbudowane z l i czb / naw i asów C ) 

X wypadku zwraca -1 * 

oraz"/ 9); 

pisż< 1/3/ "symboli operacji 

XX*XX.XtX**XXXX**XX*XXX*X*X*****X**Xs 

ma. tematy czny ch t j . " / 0 > ; 

spr_znak ( znak ) 

piszi 15..4. "+. -. *. !".0>; 

char znak; 

PiszCl/5/ "mozesz używać liczb z kropka 

t< 

dzies. "/ 8>; 

i f <znak==DEL> returnCw) ; 


IKS-25 



i f (znak==RET) return(0); 
i f(znak=='-' ) return (0); 
i f(znak== J +' ) retu.rn(0); 
i f(znak=='*') returnC0); 4 

.i f ( znak == ' ! ' ) return(0) ; 
i f (znak==' . ' ) return(0); 
if(znak==' <' ) retu.rn(0>; 
i f(znak.==' )' ) return(0) ; 
i f(znak>='0' Ł& znak<='9') return(0); 
return(-i); 
t) 

Funkcja wczytaj-wO 
z************************************ 

* funkcja wczytaj_u(a.dr,wier> * 

* wczytuje wiersz (wy rażenie) , * 

* wartość na bsc obliczona. Zwraca * 

* 0 ady wiersz został wprowadzony * 

* poprawnie. -1 ady jeao dluaosc * 

* przekroczyła 38 znaków * 

************************************* 

wozy ta j_w i adr, wier) 
char *ad r , * wier; 

*( 

char znak; 

int ezyt.k law, rz, l pz. i; 
z* 

* umieszczenie 38 znaków spacji w 
inwersie 

* w pamięci obrazu od adresu adr 
*z 

for(i=0; i<38;i++) 

POkeCadr+i . 128) ; 
k law=copen( “K= ". 1 r' ); 
czyt=l; 

1 pz=0; 
while(czyt) 

*( _ 

if(lpz>37) return(-l); 
znak =csetc (k law > ; 
rz=spr_znak (znak ) ; 
if(rz) 7* ady zly znak *7 
*( 

printf ("V3"); 
cont i nue ; 
t> 

if(znak==OEL lpz>0> 

*( 

adr — ; 
wiet — ; 

1 pz — ; 

poke(adr . 128) ; 
cont i nue; 
i) 

if(znak==DEL ii Ipz==0) 

$C 

printf ("ia 
cont i nue; 
i) 

i f (znak==RET> 

t C 

*wier=-' i0' ; 
cclosefk law) ; 
return(0); 

$'j 

POke(adr. (znak-32) I 128); 

*wier=znak ; 

adr++; 

wier++; 

1 pz++; 


$) z* koniec pętli while *.z 
* > z* koniec funkcji wczytaj_w() *z 

Funkcja spr-naw(> 1 

z************************************ 

* funkcja spr_naw(wiersz) * 

* sprawdza, czy w podanym wyrażeniu* 

* występuję parzysta liczba nawia- * 

* sow zamykających ')' i otwierają-* 

* cyeh ’(■'. Zwraca 0 ady jest tak * 

* a -1 w przeciwnym wypadku * 

************************************ r 

s p r_ naw (w i e rsz ) 
char *wiersz; 

£< 

int Inaw; 
lnaw=0; 

whi le(*wiersz) 

$(. 

if (*wiersz==' (' ) lnaw++; 
i f(*wiersz==' >' > Inaw ; 
wiersz++; 

*) 

if(lnaw) return(-l); else return(0); 

#) z* koniec funkcji spr_naw(> *z 

Funkc ja, obi O 

/*********************************** 


* funkcja obl(pocz.k on. liczba) * 

* funkcja rekurency jna obliczjaca * 

* wartość wyrażenia. * 

* araumenty : * 

* pocz - wskaźnik do początku. * 

* tablicy znakowej zawiera.-* 

* jecej wyrażenie * 

* kon - wskaźnik do końca wyrażę-* 

* nia; kon=pocz+dluaosc-l * 

* liczba-wskaznik do, tablicy prze-* 

* znaczonej na wartość wyr.* 


***********************************/' 

obl(pocz.kon. liczba) 
z* zmienne zewnętrzne *z 

char *pocz. *kon. *1 iczba; 

tc 

char 1 iczba 1 CGJ . 1 i czba2Cbj ; 
char *i; 
int poziom; 

poziom=0; 

if(pocz>kon+l) return -1; 
i f < pocz==kon+l )$( 
c_zero( 1 iczba); 
return 0; *) 

for(i=Pocz; i <=kon; i++)t( 
if(*i==' (' >*( 
poziom++; 
conti nue; $> 

• if(*i==' )' >*( 
poziom — ; 
continue; *) 

if<! poziom && <*i=='+' II *i=='-')>#( 
if (obi (pocz, i-1, liczbal)) return 

- 1 ; 

i f (obi (i+1 , kon, 1 iczba2) ) return -1; 
if(*i=='+') return 
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t _ t add a i czb a t > l iczba2 , 1 1 czba > ; 
else retu.rn 

c_fsu.bC 1 i czba l , 1 i czb.?. 2, l i czb-3. > 
t> 

t'j /% for Zy 
i f C pozi on > retu. r n - 1 , 
for C i * pocz ; i <=k on ; i ++ > ■$ C 

POziom++; 
continue; $;■ 

if <*i=='>’>$< 

poziom 3 

continue; %> 

i f < 1 poz i dpi && < * i == •'*. 1 || 1 1 == •’ = ' ;• > $ < 

i f < ob 1 <. pocz .• i - 1 / 1 i ezha 1 > > retu rn 

1 , 

i f < ob K i+l • koić 1 1 czb? 2 > > retu r n - 1 ; 
i f < i i == ‘ Z ‘ > retu rn 
t nu leli czb.? 1 > 1 1 czb-? 2 , l i czb ? ) , 
else return 

f d i v < 1 1 czb-? 1 , l i czb-?2 .. I i czba ;• ; 

%} 

$> s% for ty 

i f < <*: pocz—— •' < •' > && C *:k on—— ' ;• '* > j retu r n 
ob 1 < pocz+ 1 .• k on- 1 .• 1 i czb-3. > ; 
retu rn o_? f p C pocz ^ 1 i czb-3. > ; 

$> st koniec funkcji obi O £2 



* FUNKCJA ryskonO $ 

* rysuje kontur - ramkę t 

Z. araumenty funkcji; * 

Z xl , y 1 - lewy a orny roa ramki t 

Z x2.. y 2 - prawy dolny roa ramki % 

Z rk - rodzaj kreski (linii)* Z 

Z. która r«ł a bye narysowana *: 

* rarok a 4 : 

* rk linia cienka Z 

t rk ='s' linia aruba * 


s% kody znaków użytych do 
t kres lani a konturu - ramki 
% linia aruba 

* 


z 

lewy a orny roa 

flTftSCII 

137 

z 

kreska pozioma a orna 

fiTfiSCII 

149 

z 

kreska pozioma dolna 

RTRSCI I 

21 

z. 

prawy a orny roa 

RTfiSCII 

143 

z 

k r es k a pi ono wa l ewa 

HTHSCII 

25 

z. 

k resk a pi onowa p r a, wa 

ftTRSCI I 

153 

z 

lewy dolny roa 

RTRSCI I 

139 

z 

z 

prawy dolny roa 

RTRSCI I 

140 

z 

z 

linia cienka 



z. 

lewy a orny roa 

RTRSCI I 

17 

z 

kreska pozioma aorna 

RTRSCI I 

18 

z 

kreska pozioma dolna 

RTRSCI I 

18 

z 

prawy a orny roa 

RTRSCI I 

5 

z 

kreska Pionowa lewa 

RTRSCI I 

124 

z 

k resk a pi ono w a p rawa. 

fiTfiSCII 

124 

z 

lewy dolny roa 

RTRSCI I 

26 

z 

prawy dolny roa 

RTRSCI I 

3 

Z s 



ryskon(.xl j y 1 , x 2 . y 2 .- rk ;• 



int xl*yl*x2*y2; 



char rk; 




$< 

int i; 

char lsr*kP3*kod* psr*fepljkpp* Idr* Pdr; 
swi tch< rk > 

$■<. 

case •’ c J lar=17; s% kreska cienka 

%s 

k pa=18; 
k Pd-lS; 
pa r=5; 
kPl=124; 
k pp= 124 . 
ldr=2b; 
pdr =3; 
break .• 

case 's' lar=137; s% kreska 'aruba 

%/ 

kpa =143 ; 
kPd=21 ; 
par=143; 
k pl=25; 

• kPP=153.i 

ldr=133; 

Pdr® 140; 
break; 

%"} /% koniec switch %/ 

pos i t i on(x 1 ^ y 1 ) ; 
putchardar); 

f o r < i =0 ; i <x2~x 1 - 1 ; i ++ > pu. tcha r i k p^> ; 

putchar< pa r>; 

fori i=yl+l.. i <y2; i++> 

pos i t i on (x 1 * i ) # Put cha r i k p l > ; 
pos i t i o n <x2j i > ; pu. t cha r k p p > ; 

S> .-•* koniec pętli for *>" 

pos i t i on < x 1 * y 2 > ; 
putchar<ldr)i 

f o r < i =0 ; i <x2~x 1 - 1 ; i ++ ) put cha r < k Pd > ; 
pu tcha rC Pdr>; 

$> /% koniec funkcji ryskonO Z/ 


Funkcja PiszO 


sZtZ.tttZtZZ.ZtZttttZX.ZtZZZtZttttZ.ZttttZ 


Z FUNKCJA PiszO * 

* wyświetla na ekranie łańcuch zna- t 
Z kow w miejscu, określonym arauroen- * 
. Z tami x,y. Z 

Z Ponadto jeśli araument inv=123 Z 
Z to łańcuch wyświetlany jest w Z 
Z inwersie* inna wartość inv nie t 
Z zmienia postaci wyswietlaneao Z 
Z łańcucha. Z 

Z tekst - wyświetlany łańcuch Z 


zzztztttzz.ttttttzzzttzzzztttzzztttzz.ty 

p i s-z <x* y * tekst > i nv ) 
int x*y*inv; 

char *tekst; sZ wskaźnik do łańcucha Z/ 
$(. 

char ifkont; /% wskaźnik do końca 

Z łańcucha ty 

int z; 

z=st r l e n i tek st > ; 
kont=tekst+z; 

POsition<x*y >; 
for O tekst <k on t ; tek s t++ ) 
i f ( i nv==12S> PutcharC^tekst i inv ) , 
e l se pu. tcha r < ifctek s t > ; 

Z) sZ koniec Pisz Z/ 
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- ody ««u pi*tom c bo ziuuzłtc 
90 np, v skrzyni j l cbcttz 90 
U2yc > sprawdź w piarirtzaj koiaj- 
nosci , czy do niafo 

ntboja c Buurrt > . icfonacit o 


WVC i *«n i a <4 ironia kowboj ao2c 

poruazac sic tylko w poziomie . 

- Ody attz szcza tc i cbcasz jaj 
u2yc , sklaruj dr-azek az&ipulztorz 
do 9 flry i nacisnij jadnocztfnit 


; - ^ , 

»X» M«T MAKE XX 




STIC**, 
BUCLETS 
STKEKCiTH 


re 


nich masz v izvzj doinaj cz«fci 
ekranu . Skierowanie az&ipulztorz 
do góry 1 jednoczesna naciśnięci# 
przycisku sprawi, ta kowboj sianie 
v pozycji gotowej do oddania 
strzału . 

- Oddanie strzału odbywa sic Przez 
naciśniecie przycisku mampuia- 
tofa . 

- pby schować pistolet , nalety 
skierować drążek Manipulatora do 
sory oraz nacisnaC przycisk . z 


przycisk. Bronia ta aotasz zadawać 
dwa rodzaje ciosflw . pierwszy to 
pchniecie na wproet z wysunięciem 
nogi, wyg lada to jak atak szpada . 
uykonuje sit go przez naciskanie 
przycisku. Drugi to ciecie obronna 
w dflł , szczególnie przydatny pod- 
czas ataku sałych zwierząt 1 nale- 
ży w tVM przypadku skierować uch- 
wyt Manipulatora do siebie . 

- u przypadku , gdy posiadasz za- 
równo pistolet jak i Maczet# < do 


walki wozesz używać jednej z tych 
broni • Ody walczysz Maczeta i 
pewna J chwm dochodzisz do wnios- 
Ku, ze lepiej użyć jest pistoletu, 
skieruj drazak Manipulatora do gó- 
ry , a nastaPi zalana broni . 

u czasie przeszukiwania koryta- 
rzy napotkasz wiele groźnych zwie- 
rząt i lwa . zwierze prehistorycz- 
ne . ośmiornicę , a tak 2 c Indiani- 
na będziesz M 0 gł “ uspokoić 
strzelając do nich z pistoletu 
Kobr# 1 tygrysa wozesz uśmiercić z 
Pistoletu , jak również siekać 
Maczeta . Pozostałych zwierząt mo- 
żesz pozbyć si# przy pomocy Macze- 
ty . U przypadku , gdy nie dyspo- 
nujesz jeszcze żadna tronu , je- 
dyna rada jest ucieczka lub je2e 1 1 
jest to : waż , skorpion lub Mały 

PaJak , możesz po prostu je przes- 
koczyć . DługołC korytarzy 1 1 icz- 

ba ich poziomow jest ograniczona 
stad i -llosc atrakcji ma swoja 
granic# . czas, który uda ci ii# w 
nich. sp#dzic, wystarczy a< nadto . 
aby zaspokoić Twoja potrzeb# wra- 
żali i przyjaciół . Ody ukaże *ie 
napis vou D» MOT MAKE it , będzie 
oznaczało , te juz nic w tej grze 
nie zrobisz, a wiec wozesz wcisnąć 
klawisz •TAłlT i rozpoczęć gre od 
nowa . 


DIMEN5I0N 


Nie będę rozpisywał sie , jak to 
sie stało , ze na Twa niedU 2 a pla- 
neta o nazwie Jaraloba "zawitali" 
wrogowie ■ Skoro jednak tak sie 
stało , siadaj za sterami . Nim 
wystartujesz , przypomnij sobie 
kilka istotnych informacji . 

Po pierwsze ktOre klawisze 

oraz do czego sa używane w grze . 
uierzi , ze odpowiesz następująco 
OPTiOM -uzyskanie na ekranie Menu, 

- wybór opcji w menu 1 

- start programu 1 

HELP - przejście od gry do menu; 
•PACE - zatrzymanie gry 
Powtórzenie tego klawisza ponownie 
uruchamia program C kontynuowanie 
gry 3 . 

Po drugie : tablica przyrządów 

zawiera szereg wskaźników 
uszystkie sa ważne. Rozmieszczenie 


ich przedstawia pomzszy rysunek . 

TRBUICR PRZYRZRCJU : 
ł -Tablica komunikatów komputera 
pokładowego j 

* -informacja o nofci ekranów 
ochronnych ; 

3 -Uskaznik iloSci energii statku; 
a -usfcazmk odległości od nie 
przyjaciela ; 
s - Ekran radaru » 
e> - Mapa sektorOw piana ty . 

U celu ułatwienia posługiwania sie 
poszczególnymi wskaźnikami zostaną 
one kolejno omflwione . 

Podczas lotu nale 2 y zwracać 
uwag# na tablic# komunikatów 
Ukazujące si# na mej informacje w 
istotny sposOb noga wpłynąć na ca- 
łokształt gry, jeżeli będziesz si# 
do nich dostosowywał ■ r oto ich 
wykaz wraz z objaśnieniami : 


- rutomrtic boosters EngrgCO - au- 
tomaty włączyły silniki biplazno- 
vt. Komunikat ten Ma miejsce tylko 
podczas przechodzenia statku przez 
sektory , w których mc me wys- 
tępuję . Ma to na celu szybsze 
przejście przez sektory . U cza* i 
działania tych siimkOw wyłączone 
»4 ekrany ochronna . 

- BOOSTERS DISENGRGED - nastąpiło 
wyłączanie siimkOw biplazmowych 

Można do tego doprowadzić przez 
poruszanie dra2ka manipulatora . 

- DESORT mrp MIT - nastąpiło usz- 
kodzenia mapy . 

- EOGE OF SECTOR RHEflO - pojazd 
zbliża si# do końca sektora 
Równocześnie z tym komunikatem 
Uruchamiany jest sygnał dźwiękowy. 

- END OF TUNNEL RMEflD - Statek 

zbliża si# do końca lotu przez 
dziesiąty wymiar . Tak jak w przy- 
padku zbliżania się do końca sek- 
tora , tak i tu dodatkowo infor- 
mowani jesteSMy sygnałem dźwięko- 
wym . 

- rUEU TRNKS MIT - przeciwnik usz- 
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lodził zbiornila pali' 
uydoetaje sie z nich , 
♦.astr o f a . 


Pa l ivo 
gr oź i 


- lOU on fuel -zaczyna wyczerpywać 
i« paliwo . Dodatkowym ostrzeZe- 
• em jest sygnał dźwiękowy . 
RZGZLLRN flPPRORCH ING - dO Statku 


Odporność uderzeniowa ekranów och- 
ronnych dzieli sie na trzy grupy 
- silne c strong 3 wytrzymujące 

trzy trafienia z działa przeciwni- 


- normalne t normrl 3 wytrzymujące 
dwa trafienia z działa ; 



z t. li za sie nie przyjąć i e i , 

SCfiNNER MIT - nastąpiło uszko- 
dzenie a tym samym unierucho- 

enie głównego czujnika c scanne - 
3 . 

- SECTOR EHPTY - komunikat ten 
informuje 2 e w sektorze , w któ- 
rym aktualnie sie znajdujesz nie 

SECTOR SECURED - chwilowo w sek- 
torze jest bezpiecznie , mimo 2 e 
znajdują sie w mm statki prze- 
wnika . 

- SMIELD DIENTEGRRTING -ze względu 
trafienia osłabiona jest moc 

ekranu ochronnego - 

- THE CRPITOL IS SURROUNDED - wróg 
otoczył Stolice • je*eli go teraz 
nie zniszczysz . wedrze sie do 
miasta , a tym samym będzis to oz- 
naczało Twój koniec . 

UELCOME fiBORRD UfiRRIOR - komuni- 
kat ten występuję na początku gry. 
Jest to grzecznościowy zwrot powi- 
tania na pokładzie statku . 

- ZONĘ DEFLECTION - TwOj Statek 

znajduje si« w strefie neutralnej. 
Tracisz jeden poziom ekranu och- 
ronnego . 

uska 2 n»k informujący o iiósci 
ekranów ochronnych da Ci początko- 
wo luksus wzrokowego bezpieczeń- 
stwa , lecz w miarę . jak będziesz 
inkasował celne strzały wroga 
spojrzenia kierowane* na ten ele- 
ent tablicy beda coraz bardziej 


- słabe C UEflK 3 wytrzymujące tyl- 
ko Jedno trafienie z działa prze- 
ciwnika . 

Rozpoczyna Jac gr* , dysponujesz 
Pięcioma ekranami : zielonym , żół- 
tym , czerwonym , krytycznym i ze- 
rowym . u trakcie gry , gdy otrzy- 
mujesz trafienia od przeciwnika 
przechodzisz na coraz nizsze po- 
ziomy ekranów ochronnych. Rktuaina 
sytuacje otrzymujesz na tablicy 
przyrządów . 

Energia Twojego statku W miarę 
lotu powoli wyczerpuje sie • Bę- 
dziesz mógł to obserwować na 
wska2niku ilości energii statku 
Gdy zauwa2ysz , ze zapas jej wy- 
czerpuje sie , odszukaj na mapie 
sekt or< w którym znajduje sie baza 
paliwa . spróbuj do mej dotrzeć • 
Gdy uda Ci sie dobrnjC do sektora, 
w którym ona się znajduje , pojawi 
sie na ekranie cały szereg infor- 
macji . Komputer kolejno sprawdza 
zespoły statku , je 2 ell wykryje 


uszkodzenie , naprawi je , o czym 
zostaniesz powiadomiony • Ody sta- 
tek zostanie doprowadzony do peł- 
nej zdolności bojowej . rozpoczyna 
sie odliczanie czasu , po upływie 
którego statek Twdj zostanie wys- 
trzelony do migającego pomarań- 
czowego sektora. Je2eii chcesz byc 
przeniesiony w inny mi wskazany 
sektor ustaw jego nowe położenie 
przy pomocy manipulatora . Musisz 
jednak zdazyc z ta czynnością w 
czasie odliczania . 

u czasie lotu przez sektor mo- 
żesz napotkać statki wroga 
Zniszczenie ich jest Twoim obo- 
wiązkiem. Przed dojściem do Stycz- 
ności wzrokowej znasz odległość do 
nieprzyjaciela dzięki wskaźnikowi 
odległości . odległość do wroga 
jest o tyle istotna . ze mozesz 
dokonać manewru wyprzedzającego 
ich uderzenie . 

Liczba ujemna na liczniku informu- 
je, ze statki nieprzyjaciela znaj- 
dują sie za Tobą 

podobna role do wskaźnika od- 
ległości pełni radar pokładowy 
C QURORR SCfiNNER 3. 

Obraz na monitorze radaru pokazuje 
rozmieszczenie statków przeciwnika 
t błyskające białe kropki 3 w sto- 
sunku do Twojego pojazdu C20łta 
kropka 3. 

Podstawowej informacji na temat 
poło2enia Twojego statku na pla- 
necie udziela mapa sektorów. Skła- 
da sie ona z 26 poi c 5x5 3 . 

UySuiet lane ma na mej informacje 
ważne dla dalszych Twoich poczy- 
nań . Pooznaczane sa rożnymi kolo- 
rami , literami i cyframi . 

- Pole koloru pi 


ko pulsujące z czarna ramka - oz- 
nacza sektor, w ktflryn właśnie sLe 
znajdujesz . 

- Role koloru poMoronczowogo wolno 
pulsujące - wskazuje sektor , do 
którego zostaniesz przeniesiony . 
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Itf* - Ja>t wskaZni- 
który do tej pory 
• tał juzcze zt>«dany . stad 
S o nim jakich* konkretnych 
.<fo roSci . 

; oia biała w kropki -prztdtuwia 
ob« łtrtft nautraina . 

- Li tara C na polu - ozn. uktor 
v którym znajduje *i« stolica . 

- Litara P na polu - okradła maj- 
sca lokalizacji bazy paliwowej dla 
Twa 9 o statku . 
cyfra na palu - mi orwu ja , i la 
statków nia przyjąć i a la znajdują 
sit v danym ssktorza . 

stopian utrudniania gry notisz 
saw ustalić tak , by* ma znja- 


chacił si« do maj po paru minu- 
tach zabawy . czynnołci tych powi- 
nieneś dokonać przad uruchom ia nia m 
gry . Służy do t«go menu , w któ- 
rym wystapuja trzy opcja : 

- Uyszko lania pilota C PILOT 

SKZLL 3 . Dzieli sia na 

nowicjusza C nowica J , zaawan- 
sowany c adwancad ) i mistrz c ax- 
part i i 

- Odporno «C udarzaniowa akranOw 
ochronnych c shield strenoth j 
została omowi ona wcxe*niaj ; 

- Liczba przacivnikOw w saklorZa 

£ PLIENS PER SECTOR > . Mamy moz- 

1 i vo«c wyboru jadnago z trzach 
wariantów niawiaiu c few 3, nor- 
malna liczba C normal ) i wialu 
C many } . 


Szczagoima w piarwszych podaj- 
*ciach do gry ma za bardzo b«- 
dziasz zadowolony za swoich umiaj- 
atnosci . Niech Cl« to ma zraza , 
spróbuj Jaszczs raz . 

Ody ma uda Ci sia przabye przaz 
dziasiity wymiar (rozbijasz sia 3 
lub zastrzał i Cia wróg . otrzymasz 
na tan tamat stosowny komunikat 
dowissz sit z niago miedzy innymi 

o tym , za planeta Jarał oba , tc 
Jast ta , kteraj broniła* została 
opanowana przaz Rigiilians. nies- 
taty $ z Twojaj winy 
Poinformowany zostaniasz row&iaz o 
ocaniaj jak* wystawił Ci za cało«C 
zmagań kouputar np, NOVICE UPRRIOR 
clrss a . 



dy«Cig zbroJtn trwa i taki stan 
bedzis istniał , dopoki zło nie 
zostania wypianiona z «y*li i czy- 
nów ludzi. Powtarzania tago zdania 
nia robi ju2 wrażania , gdyż Jast 
ono prawda powtarzana od wiakOw 
przytaczam Ja dlatego i za bgdzia 
ono po cze*ci dotyczyło i ciebia . 
Ministerstwo do spraw wojskowych w 
Twoja J ojczyZma prowadzi doświad- 
czania z nowym typam rakiat mis- 
dzyiont ynanti lnych . jast to od- 
powiadz na tafcia sama doświadcza- 
nia prowadzona przaz państwo , 
majtcs Zła zamiary w stosunku do 
Twaj ojczyzny .Jak zwykła zdarzaj* 
sit próby nieudana . T*k właśnie 
sit stało . Rakist* po przaiocia 
nad ocsanam kilkusat kilometrów 
nia oczak iwania spadła na niawialka 
tropikalna wysp* na laZac* do Rr- 
chipaiagu Smoka, rozpadając sie na 
trzy cz*«ci . Natychmiast zostały 
pod ja ta środki maj*ca na calu od- 
zyskania rakiaty , a takZa unie- 
możliwiania dosttpu do maj szpia- 
g cm wroga, jako fachowlac wysokiaj 
klasy otrzymujasz zadania odzys- 
kania rakiaty . u tym calu zosta- 
ją sz prza transportowany na archl- 
pa lag . Na wyspa dostajesz sit » 
zostając zrzuconym na spadochro- 
nie. jadnocza«ma w kierunku wyspy 
została wysłana łodz podwodna do 
odebrania rakiaty , oczywlfci* po 
znalezieniu i zmontowaniu wszyst- 
kich cztsci przaz Ciebie . Prze- 
ciwnik tez me «pi . uyełeł na 




wyspa szpiega , zrzuca Jac go na 
spadochronu z takim samym zada- 
niem . z jakim Ty sia tam znalaz- 
ła* . Obaj jaste*cla wyposażani w 
na jnowocza «nie jszy sprzęt , Jaki 
wyprodukowano dla prowadzania 
dz iała 1 no«c 1 szpiegowskiej . Be - 
dz lacie waiczyC za sobą oraz z 
czasem , gdyż na wyspie znajduje 
sit wybuchający co pawian czas 
wulkan . wybuch Jago zniazczy 
wyspa . a wite uniemożliwi wyko- 
nania zadania . 

Po uruchomianiu programu zoba- 
czysz po prawa J stroma zastaw 
opcji : 

- zegar podający czas do arupcii 
wulkanu i 

- Liczba graczy CPLAWCRSl i lub &j 

- Poziom trudności C LCUEL 3 od i 

dO 7 I 

- stopian inteligencji" komputera 
C I. S. J Od 1 do 5 I 

- Ujawnianie łodzi podwodnej tak 
CVJ lub ma CM} . 

Opcje wybiera *it przaz ruch mani- 
pulatora do lub od siabia. Uybrana 
opcja pulsują . Poziom trudności 
wybiera si« przez sklarowania ma- 
nipulatora w lawo lub prawo . Ody 
uznasz . Za wszystkie elementy 
ustawiła* vła*ciwłt . naci*nij 
przycisk manipulatora lub klawisz 
spacji i btdZiasz mógł rozpocztfi 
grt . 

u czasie gry badzitsz mOgł, a nie- 
raz i musiał , używać niektórych 
klawiszy . 


A - ruch w gore lub w dołu j 
X - ruch do dołu lub do przodu ; 

X - ruch w lawo i 
L - ruch w prawo i 

O - włączenie urządzenia przeno- 
szącego w inny wymiar j 
s - włączenie lub wyłączenie muzy- 
ki j 

CSC - zatrzymania programu oraz 
powtórna jago uruchomiania i 
SPACE - rozpoczęcia gry , podnie- 
sienia lub opuszczania przedmiotu, 
wybór i odbezpieczenia miny > 

RC&CT -ponowna ładowania programu; 

optioh - powrot programu do ekra- 
nu z opcjami . 

Niektórych klawiszy używa sie rów- 
nież przy wciśniętym jednocześnie 
klawiszu control , a mianowicie 
Cpodczas zadawania ciosOw szabla > 
Klawisz A - podniesienia raki z 
szabla do góry j 
pławisz K - raka do tiebit ; 

Klawisz L - pchniecie szabla ; 
Klawisz X - ciecie szabla . 

Bardzo ważnym przedmiotem w grze 
jast urządzenie , przy pomocy któ- 
rego mozasz przechowywać przedmio- 
ty znalezione na wyspie . Działa 
ono na zaaadz im przenoszenia * in- 
ny wymiar i z powrotam . u tan 
sp os Ob mozesz gromadzie wszystko 
co przedstawiaj* symbol* po iswej. 
stronie okna . Przenoszeni* w inny 
wymiar odbywa sia za posoca przy- 
cisku manipulatora . Pierwsza 

przyc ifniacie powoduje podniesie- 
nie przedmiotu , drugie przenie- 
sienie d» innego wymiaru. Obecność 
w nim tago przedmiotu sygnalizowa- 
na Jast zapalonym wskaźnikiem obok 
symbolu . uzyc ktorsgo* * przed- 
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lOtOw woźna rdcmeZ przaz nac 1 1 - 
mecie przycisku MmpuUtorł 
:.itt«pnia vybr*nła przez ruch 
dnZfcian do dołu lub gflry » ponow- 
nym naciśniecie jego przycisku . 
szczególny*) przedmiotem u iy*i wy- 
kazie jest nap* wyspy . porusza j*c 
po wyspie w poszukiwaniu częś- 
ci rakiety , możemy w kaZde J chwi- 
li skorzystać z tej rapy aby 
zlokalizować ich riejsca Mapa 

bedzia dzieliła wyspa na sektory . 
Xlosc sektorów , których roze- byC 
do 22 , bidzie zalezna od wielkości 
wyspy a wiać od stopnia trud- 

ności. czuci rakiety bada widocz- 


go 3 O, B, 11, 1U, ’ B Am »7 

minut- Ze stopnler trudności zwią- 
zanych jest również wiele zrian 
gdyż aa sia do czynienia z coraz 
większa wyspa, ilością przedmiotów 
na wyśpi# , a takie ilości a wysp . 

poruszanie sia po wyspie można, 
oczywiście , realizować takie za 
poroca Manipulatora. Ody dojdziesz 
do lewego lub prawego skraju ekra- 
nu , następuję jago zmiana c po- 
kazany jast kolejny sektor wyspy], 
inaczej wa sie sprawa z przecho- 
dzeniem sektorów w gore lub dOł - 
Nie u kaldy* sektorze aozesz to 
zrobić . umożliwia Cl to sektory , 



| na na wyspie w postaci białych 
kwadracików . Badzie również zaz- 
naczona twoja droga . 

Części rakiety beda leżały na 
wyepie ukryte pod pryzmami piasku, 
wyglądającymi każda jak trzy małe 
trójkąty. Dopiero ich podniesienie 
ujawni nam przedmiot , jaki znaj- 
duje sit pod nimi . Nieraz może to 
byc przykre, gdyZ mo£e okazaC sit, 
ze odkryty przedmiot to mm* 
która za chwil* wybuchnie . uarto 
dlatego zagladaC do mapy . 

POwniez czas skłania do tego, gdyż 
na odnalezienie i wywiezienie 
rakiety jest go niewiele . u za- 
leżności od stopnia trudności cza* 
ten do wybuchu wulkanu wynosi 
C licząc od stopnia najłetwie Jsze- 


w których beda większa luki miedzy 
drzewin lub przerwa w dolnej 
czesc i okna . 

Na wyspie czyha na Ciebie sze- 
reg pułapek wymieniona wcześniej 
zranienie przez granat j moZna 
wpasc w bagno c miejsca o c len- 
ni# jszym tle 3 . Uydostac woZasz 
si# z niego przez szybki pionowy 
ruch manipulatora lub krecanie ni* 
w kOłko . czeka Cle jednak pewna 
u«rata czasu . 

Mozesz wpasc również w pułapka , 
która sam założyłaś . 

Ody złozysz cała rakiet# , przyj- 
dzie kolej na przetransportowanie 
jaj na łcdz podwodna . Na brzegu 
nie ma łOdki , musisz zrobić to 
wpław . Pływanie zabiera Ci duto 



: i ■ - i i a •. e g . . 

odpływaj od brzegu 
okrętu , gdyż mozesi 
Drugie niebezp ieczezist \ 
może spotkać Ciebie u wodZ; 
rekiny . Szybko musisz wtadi^ 
nac , by ujsc ich szczekom . 

uo jowniczose szpiega jest 
lepnym niebezpieczeństwem . 
znajdzie sie w tym samym sektorze 
wyspy moZe Zaatakować , strze- 

lając do Ciebie z pistoletu lub 
siekać szabla . stopień zmęczenia 
nasz ukazany po prawej stroma pod 
oknem . Twoje zmęczenia to WMKUS 
STRCNGTH, a wroga BLACK STRCMGTH . 
Przy odrobinie szczeScia mottu 
szpiega dzięki inicjatywie , upar- 
tosci i zrtczosci wysłać na tamten 
świat , a następnie postawie mu 
pomnik . 

Ora umożliwia ci zastawianie puła- 
pek na przeciwnika , Słuta fio tego 
następując# przedmioty lina , 

łopata , napalm , bomba . u zalaZ- 
nosci od stopnia trudności mekto- 
z tych przedmiotów mozesz mleC 
sobą dzięki urządzeniu przeno- 
szącemu w inny wymiar , inne do- 
piero będziesz mógł znaiazc na 
wyspie . Metoda wydobywania ich z 
innego wymiaru oraz sposob szuka- 
nia na wyspie zostały omowiona 
wcześniej . 

Sposob zastawiania pułapek jest 
prosty . 


Lina jest wykorzystywana do wyko- 
nania potrzasku . Należy wejsc na 
drzewo zaczepie jeden koniec 

liny . Następnie zejsc z . drzewa i 
zaczepie Ja w dowolnym miejscu na 
ziemi C nacisnaC przycisk 3 lina 
stania sie niewidoczna . 

Ukrywanie bomb oraz napalmu jast 
jaszcza prostrze . po położeniu na 
ziemi upodabniaj# si# one do górek 
z piasku c trzy trójkąty 3 . 

Przy pomocy łopaty mozesz wykopać 
szereg dołou . 

Pułapki te s# groźna dla wroga , a 
takZe i dla Ciebie , a wiec pamię- 
taj o tym , gdzie je zastawiłeś . 

u trakcie wędrówki po wyspie 
tracisz ogoina energia . jedyna 
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Szybki rozwój informatyki, a zwłaszcza jej najmłodszej 
gałęzi — mikrokomputerów osobistych spowodował du- 
że zainteresowanie literaturą fachową z tej dziedziny. 
Znikoma liczba tytułów na rynku krajowym zmusza 
większość użytkowników sprzętu mikroinformatyczne- 
go do korzystania z wydawnictw zagranicznych. Z kolei 
nie zawsze znajomość języków obcych oraz szybkie 
powstawanie nowych terminów powoduje niezbyt pre- 
cyzyjne ich rozumienie. Celem tej publikacji jest próba 
wyjaśnienia i uporządkowania terminologii obcojęzy- 
cznej, stosowanej do określania w opisach, instrukcjach i 
czasopismach, nowoczesnych środków automatyzacji 
procesów dyskretnych, a szczególnie mikrokompute- 
rów. Leksykon Mikrokomputerów zawiera ponad sie- 
demset haseł, podaje objaśnienia około 100 skrótów 
oraz przy 140 synonimach odsyła czytelnika do właści- 
wego hasła. Odsyłacze (w postaci — ) zastosowano tylko 
tam, gdzie dalsze wyjaśnienie może być pomocne do 
właściwego zrozumienia hasła. Obok terminu (hasła) 
głównego, leksykon zawiera często wiele innych termi- 
nów niezależnych lecz spotykanych w literaturze czy 
mowie potocznej, aby ułatwić ich identyfikację. Tema- 
tyka haseł leksykonu jest tak dobrana, aby mogli z niego 
korzystać zarówno profesjonaliści, jak i osoby po raz 
pierwszy stykające się z tą dziedziną, np. czytające książ- 
ki lub czasopisma w najpopularniejszych językach: an- 
gielskim, niemieckim i rosyjskim. Tam, gdzie brak odpo- 
wiednika obcojęzycznego (którego nie udało się znaleźć 
autorom) zostawiono wolne miejsca do wpisania. 

Część haseł dotycząca informatyki, a ściślej progra- 
mowania i przetwarzania danych, zawarta w leksykonie 
jest niezbędna do zrozumienia zasad oprogramowania 
tych środków automatyzacji. 

Skróty polskie oraz skróty angielskie, powszechnie 
używane również w innych językach, podano w części 
głównej w postaci haseł wraz z ich rozwinięciem. Skróty 
stosowane w innych językach podano w objaśnieniach 
obcojęzycznych części głównej i w słowniczkach obco- 
języcznych. Terminy hasłowe mające kilka znaczeń ob- 
jaśniono kolejno, podając ich znaczenie po cyfrach: 1., 
2., itd. 

W objaśnieniach (komentarzach) haseł ujęto tylko ten 
zakres znaczeniowy, który wiąże się tematycznie z le- 
ksykonem. Synonimy i terminy bliskoznaczne lub poto- 
czne w języku polskim podano w części głównej obok 
hasła (termin zalecany — ' podkreślony, wytłuszczony) po 
przecinku, a w treści objaśnienia w nawiasie. W wersjach 
obcojęzycznych natomiast — w części głównej po prze- 
cinku. 

Leksykon z pewnością nie zaspokoi w pełni potrzeb i 
oczekiwań profesjonalistów wymienionych branż, a 
zwłaszcza projektantów i producentów sprzętu elektro- 
nicznego, informatyków i studentów odpowiednich kie- 
runków. Autorzy postawili sobie za cel: zbudować pier- 
wszy pomost na tej trudnej drodze, w ciągłe dynami- 
cznie rozwijającej się dziedzinie. Podjęli próbę upo- 
rządkowania stosowanej terminologii i ułatwienia korzy- 
stania z niej. Leksykon ten jest rozszerzoną wersją dru- 
kowanego w odcinkach na łamach tygodnika „Przegląd 
Techniczny” w latach 1985 — 1986. 

Autorzy oczekują na listy i uwagi Czytelników, umoż- 
liwiające uzupełnienie i doskonalenie przedstawionego 
opracowania. 

Roman GRABOWSKI 
Bronisław HYNOWSKI 
Ewa MAŃKIEWICZ-CUDNY 



ABIOS - BIOS 

ACiA — Asynchronous Communication Interface 
Adapter — układ towarzyszący 

ADC — Analogy Digital Converter — przetwornik ana- 
logowo-cyfrowy 

administrator bazy danych — system zarządzania bazą 
danych 

adres — identyfikator zapisu w pamięci; nazwy adre- 
sów pochodzą od metod adresowania (— adresowanie) 
bądź funkcji, jakie spełniają 
A. address 
N. Adresse (f) 

R. a^pec 

adres aktualny — wynikający z przeprowadzonej 
uprzednio modyfikacji lub obliczenia adresu 
A. actual address 
N. aktuelłe Adresse 
R. AeficTBHTejibHbiH a^pec 

adres bazowy — taki, który w połączeniu (adres bazowy 
+ przesunięcie adresowe) z adresem względnym daje 
poszukiwany adres bezwzględny argumentu 
A. base address 
N. Basisadresse (f) 

R. ochobhoh a^pec 

adres bezwzględny — adres rzeczywisty 
adres efektywny — występuje w adresowaniu pośred- 
nim względnym i zostaje obliczony dopiero w trakcie 
realizacji programu. 

A. effective address 
N. effektive Adresse (f) 

R. HcnojiHHTejibHbiH a^pec 

adres maszyny — adres rzeczywisty 

adres przemieszczalny — wartość jego ustalana jest w 

sposób względny do innego adresu danego programu, 

stanowiącego adres odniesienia. Adresem odniesienia 

jest na ogół pierwszy rozkaz danego programu. 

A. rełocatabłe address 

N. relokatible Adresse (f), verschiebbare Adresse (f) 

R. HacTpaHBaeMbifi nepeMemaeMbifi a/tpec 
adres rozkazu — adres komórki pamięci, w której znaj- 
duje się określony rozkaz 
A. instruction address 
N. Befehlsadresse (f), Instruktionsadresse (f) 

R. aflpec KOMaH;u>i (HHCTpyKpHH) 

adres rozkazu skoku powrotnego — występuje w pro- 
gramie wywołującym podprogram; jest to adres rozkazu 
powrotu do programu przechowywany w pamięci pro- 
gramu tuż za rozkazem wywołującym podprogram 
A. return address 

N. Rucksprungadresse (f), Ruckkehradresse (f) 

R. a^pec B03BpaTa 

adres rzeczywisty — faktyczny adres miejsca pamięci; 
dla danego komputera jest to wartość stała 
A. absolute address, machinę address 
N. absolute Adresse (f), Maschinenadresse (f) 

R. aócojiioTHbiH anpec 

adres symboliczny — adres komórki pamięci zastąpio- 
ny symbolem, występuje tylko w programach źródło- 
wych 

A. symbolic address 
N. symbolische Adresse (f) 

R. cHMÓojiHHecKHH aApec 
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adres względny — część adresu, która przy adresowa- 
niu względnym jest zawarta w rozkazie 
A. relative address 
N. Relativadresse (f) 

R. OTHOcHTenbHbiH a,apec 

adresowanie — zaopatrywanie danych, rozkazów lub 
części programów w — adresy; zasadnicze trzy klasy me- 
tod adresowania (bezpośrednie, pośrednie i względne) 
można podzielić na następujące rodzaje adresowania: 

1. adresowanie bezpośrednie — z pełnym adresem 
argumentu 

A. direct addressing 
N. direkte Adressierung 
R. npflMaa a^pecapna 

1.1. adresowanie bezpośrednie uwikłane — adres 
argumentu zawarty jest w kodzie operacji 

A. implicite direct addressing 
N. implizit direkte Adressierung 
R. HeflBuaa aApecautta 

1.2. adresowanie bezpośrednie rejestru — w rozkazie 
zawarty jest adres rejestru, w którym zapamiętany jest 
argument 

A. register direct addressing 
N. register-direkte Adressierung 
R. npsMaa a^pecauna perncTpa 

1.3. adresowanie bezpośrednie symboliczne — w roz- 
kazie zawarty jest pełny adres pamięci (komórki pamię- 
ci) zawierającej argument 

A. symbolic direct addressing 
N. Speicher-direkte Adressierung 
R. cHMóojiHHecKaa aapecaitHa 

1.4. adresowanie bezpośrednie natychmiastowe — 
argument jest zawarty bezpośrednio w rozkazie, zamiast 
jego adresu 

A. immediate addressing 

N. unmittelbare (unmittelbar-direkte) Adressierung 
R. npaMafl aapecauna 

2. adresowanie pośrednie — w rozkazie zawarty jest 
adres specyfikujący rejestr łub miejsce w pamięci, w 
którym znajduje się adres argumentu lub znów adres 
pośredni 

A. indirect addressing 

N. indirekte (interierte) Adressierung 

R. KOCBeHHaa (HenpflMaa) a/ipecauna 

2.1. adresowanie pośrednie rejestru — w rozkazie za- 
warty jest adres rejestru, w którym znajduje się adres 
argumentu łub znów adres pośredni 

A. register indirect addressing 
N. Register indirekte Adressierung 
R. KocBeHHoe a,apecoBaHHe perncTpa 

2.2. adresowanie pośrednie rejestru z autoinkrementem 
— po znalezieniu argumentu w pamięci, jak w 2.1. za- 
wartość rejestru adresowanego w rozkazie zostaje 
zwiększona automatycznie o stałą wartość (inkrement = 
przyrost dodatni) 

A. register indirect with autoincrement 
N. Register indirekt mit Autoinkrement 
R. KocBeHHoe a^pecoBaHne perncTpa c aBTOHHKpeMCH- 
TOM 

2.3. adresowanie pośrednie rejestru z autodeinkremen- 
tem — po znalezieniu argumentu w pamięci, jak w 2.1. 
zawartość rejestru adresowanego w rozkazie zostaje au- 
tomatycznie zmniejszona o stałą wartość (deinkrement 
= przyrost ujemny) 

A. register indirect with autodeincrement 
N. Register indirekt mit Autodeinkrement 
R. KocBeHHoe aapecoBanne perucrpa c aBTO- 
AenHKpeMeHTOM 

3. adresowanie względne — w rozkazie zawarty jest ad- 
res częściowy (adres względny), który musi być połączo- 
ny z innym adresem częściowym (adres bazowy, adres 


odniesienia) aby otrzymać adres argumentu. Adresy 
częściowe mogą być również podane w sposób pośredni 
A. rełative addressing 
N. relative Adressierung 
R. OTHOcHTejibHaa a^pecauns 

3.1. adresowanie względne indeksowane — zawarty w 
rozkazie adres względny jest dodawany lub odejmowa- 
ny od adresu bazowego zapamiętanego w rejestrze in- 
deksowym 

A. indexed relative addressing 
N. indizierte relative Adressierung 
R. HH^eKcupoBaHHafl oTHocHTejibHaa aapecauHA 

3.2. adresowanie względne z podziałem pamięci na 
bloki — adres bazowy określa blok pamięci, która zosta- 
ła podzielona na bloki równej długości; adres względny 
podaje słowo (słowo pamięciowe) w obrębie jednego 
bloku 

A. mapping, relative addressing (with mapping) 

N. mapping, relative Adressierung (mit mapping) 

R. 

3.3. adresowanie względne ze stronicowaniem — adres 
bazowy określa stronę pamięci, która została podzielona 
na równej wielkości „strony"; adres względny podaje 
słowo (słowo pamięci) w obrębie tej strony 

A. paging (pageing) relative addressing (with paging) 
N. paging re!ative Adressierung (mit paging) 

R. 

3.4. adresowanie względne z licznikiem rozkazów — ja- 
ko adres bazowy służy chwilowa zawartość licznika roz- 
kazów (licznik programu), adres względny jest dodawa- 
ny do adresu bazowego lub od niego odejmowany. Wy- 
nik jest wprowadzany do licznika rozkazów. 

A. program counter rełative addressing 
N. Programmschrittzahłer relative Adressierung 
R. OTHOCHTejibHaa a^pecauna co chcthhkom KOMaHfl 
AGAT — radziecki mikrokomputer o pamięci wew- 
nętrznej 64, 128 lub 256 kB. Jako pamięć zewnętrzną 
można stosować dyski elastyczne lub kasety magnetofo- 
nowe. Wyposażony jest w klawiaturę o układzie alfanu- 
merycznym. Przystosowany do współpracy z monitorem 
czarno-białym łub kolorowym oraz do prezentowania 
danych w postaci graficznej. 

akumulator — główny rejestr — jednostki arytmetyczno- 
-logicznej służący do przechowywania argumentów i 
wyników operacji arytmetyczno-łogicznych. 

A. accumulator, accu 
N. Akkumulator, Akku 
R. ah-KyMy;iflTOp 
alfaskop — monitor ekranowy 

algorytm — przepis wykonania jednej lub ciągu ope- 
racji do osiągnięcia określonego celu 
A. algorithm 
N. Algorithmus (m) 

R. ajiropHTM 

ALU — Arithmetic Logic Unit — jednostka arytmety- 
czno-logiczna. 

AMM — automatyczna maszyna manipulacyjna zwana 
popularnie — robotem. 

A. automatic manipuiations machinę 
N. automatische Manipulierungsmaschine 
R. aBTOMaTHMecKaa MaHHnyjinpyiomafl MaiuHHa 
AMPL — Advanced Microprocessor Prototyping Labo- 
ratory — system projektowania firmy Texas Instruments 
— systemy uruchomieniowo-rozwojowe. 

AMSTRAD — angielska firma znana głównie z produk- 
cji średniej klasy sprzętu hi-fi. Jesienią 1984 r. wypuściła 
na rynek brytyjski i zachodnioniemiecki pierwsze eg- 
zemplarze mikrokomputera Amstrad Schneider CPC 
464. W roku następnym sprzedawano już trzy modele: 
464, 664 i 6128. Ich cechy wspólne, to: procesor Z80A, 
grafika o maksymalnej rozdzielczości 640x200 punktów 
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(2 kolory), 320x200 punktów (4 kolory) i 160x200 punk- 
tów (16 z palety 27 kolorów), dźwięk — 3 generatory po 
7 oktaw z możliwością pełnej modyfikacji brzmienia 
oraz z wyjściem stereo (tzn. 1 generator — kanał lewy, 2 
generator — kanał prawy, 3 generator pracujący w 
obu kanałach), możliwość dołączenia 240 modułów pa- 
mięci ROM, po 16 kB każdy. 

analizator stanów obwodów logicznych — przyrząd 
(lub zestaw przyrządów) do badań funkcjonalnych w 
czasie rzeczywistym zespołów logicznych w postaci 
układów cyfrowych i całych systemów mikroprocesoro- 
wych, których stany logiczne i/lub czasowe są sygnali- 
zowane na ekranie lampy kineskopowej w sposób kro- 
czący 

A. logie (Circuit) analyzer, digital analyzer 
N. Logikanalysator (m): Anałyzator 
R. uieMHbiH aHajiroaTop 

aplikacja — stosowanie i/lub wdrażanie (zastosowań) 
sprzętu łub technik (technologii) 

A. application 

N. Anwendung (f), Einsatz (m), Auwendbarkeit (f), 
Einsatzmógiichkeit (f) 

R. npHMeHeHHA 

APD — automatyczne przetwarzanie danych 
APU — Arithmetic Processing Unit — arytmometr 
architektury — zasadnicze cechy funkcjonalne budowy 
mikrokomputerów (mikroprocesorów), decydujące o 
sposobie ich działania — podział. Dokumentacyjnie (ry- 
sunkowo) architekturę przedstawia się w postaci funk- 
cjonalnego schematu blokowego zawierającego między 
innymi: ALU, rodzaje i pojemności pamięci, magistrale 
adresów i danych, rejestry, zegar we/wy urządzeń pery- 
feryjnych. Zasadniczą cechą jest to, w jaki sposób za 
pomocą rozkazu komputerowego można wykonać ope- 
rację na argumentach i wyprowadzić wyniki. 

A. architectures 
N. Architekturen (pl) 

R. apxHTeKTypbi 

Rozróżnia się architektury o następujących możliwoś- 
ciach operacji: 

— z rejestru do rejestru — argumenty znajdują się w re- 
jestrach, wynik przesyłany jest do rejestru 

A. register to register architecture 
N. Register zu Register Architektur 
R. 

— z rejestru do pamięci — jeden argument znajduje się 
w rejestrze, drugi w pamięci, wynik przesyłany jest do re- 
jestru. Architektura ta zawiera w sobie poprzednią 

A. register to memory architecture 
N. Register zu Speicher Architektur 
R. 

— z pamięci do pamięci — argumenty znajdują się w 
pamięci, wynik przesyłany jest do pamięci. Architektura 
ta zawiera obie poprzednie 

A. memory to memory architecture 
N. Speicher zu Speicher Architektur 
R. 

architektura mikroprocesorowa — architektura, która 
określa współpracę grup funkcjonalnych mikroproceso- 
ra, tj. jednostki sterującej i arytmometru, ich budowę, 
sposób działania, właściwości oraz powiązania między 
nimi 

A. microprocessor architecture 
N. Mikroprozessorarchitektur (f), Mikroprozessorauf- 
bau (m) 

R. apxHTeKTypa MHKponpopeccopa 
argument — wartość lub informacja potrzebna do wy- 
konania rozkazu, którą na podstawie adresu zawartego 
w rozkazie należy sprowadzić z pamięci, lub też która 
zawarta jest bezpośrednio w rozkazie (niektórzy autorzy 
tę ostatnią nazywają operandem) 


A. operand 
N. Operand (m) 

R. onepaHfl 

argument operacji — argument 
arytmetyka adresów — obliczanie adresu 
arytmometr — część jednostki centralnej względnie 
mikroprocesora (procesora) do wykonywania operacji 
arytmetycznych, logicznych, przesunięć, porównań, za- 
okrągleń itd., w skład a. wchodzą: ALU, akumulatory, re- 
jestry 

A. arithmetic unit, APU — Arithmetic Processing Unit 
N. Rechenwerk (n), Recheneinheit (f) 

R. apn<j)MeTHHecKoe ycTpoHCTBo 

ASCII — American Standard Codę for Information In- 
terchange — kod alfanumeryczny siedmiobitowy z 8 bi- 
tem do kontroli parzystości (parity bit), zwany również 
Kodem US ASCII 

asembler — 1. translator asemblera — translator z języ- 
ka typu asembler na język komputera, czyli program 
używany do asemblowania; 2. język typu asembler — 
zorientowany maszynowo, symboliczny język progra- 
mowania. 

A. 1. assembłer, 1. assemblery program 
2. assembłer language 
N. 1. Assembłer (m), 1. Assemblierer (m), 

2. Assemblersprache (f) 

R. 1. acceMÓJiep 
2. 

asembler jednokrotny — translator asemblera, który 
tłumaczy program w jednej operacji (jednokrotne 
wczytywanie programu źródłowego). 

A. one pass assembłer 
N. 

R. 

asembler makro — asembler, który uwzględnia wywo- 
łania makro zawarte w programie źródłowym napisanym 
w języku typu asembler 
A. Macro assembłer 
N. Makroassembler (m) 

R. acceMÓJiep Maicpo 

asembler mikro kodowy — mikro asembler 
asembler skrośny — krosasembler 
asemblowanie — 1. przebieg translacji (tłumaczenie, 
przekształcanie, translacje asemblera przez translator) 
programu opracowanego w określonym języku typu 
asembler na program w języku (kodzie) określonego 
komputera zwanym również językiem maszynowym (z 
jednoczesnym sprawdzaniem błędów syntaktycznych), 
przy czym adresy symboliczne zastępowane są adresami 
rzeczywistymi lub względnymi typu przemieszczalnego 
(relocatable); 2. potocznie: łączenie podprogramów 
A. assemble, assembling 

N. Assemblieren, Assembłieren (n), Assemblierung (f) 
R. 1. acceMÓJinpoBaTb 
2. KOMnOHOBaTb 

Atari — firma Atari Corporation należy do czołowych 
wytwórców gier telewizyjnych. W 1981 r. weszły na ry- 
nek mikrokomputery tej firmy Atari 400 i 800 (dziś już 
nie produkowane). W 1983 r. ich następcy, to seria XL 
złożona z 3 modeli: 600XL, 800XL i 1200XL, o pojemności 
pamięci odpowiednio — 16, 64 i 64 Kb. Najpopularniej- 
szy z tej serii to 800XL. 

Atari 800XL oparty jest na 8-bitowym mikroprocesorze 
6502, który adresuje 64 Kb pamięci RAM i 24 Kb ROM. 
W pamięci ROM zawarty jest system operacyjny i inter- 
preter języka BASIC (dla programów pisanych w BASIC-u 
dostępne jest ok. 38 Kb pamięci RAM). 

800XL ma bardzo rozbudowane możliwości graficzne, 
obejmujące m.in.: 16 podstawowych trybów zorganizo- 
wania ekranu (5 tekstowych i 11 graficznych), możliwość 
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wyboru barwy obiektu w jednym z 256 kolorów, możli- 
wość prostej animacji przy użyciu tzw. grafiki player mis- 
sile. 

Auto-CAD — program wspomagający projektowanie w 
systemie CAD na sprzęcie IBM PC. 


\ f 

bajt — umowna jednostka 
przetwarzanych informacji, 
w organizacji komputerów 
obejmuje ona 8 bitów, z te- 
go 7 informacyjnych i 1 bit 
kontrolny (dwie tetrady), wie- 


lokrotności tej jednostki to 2 10 czyli K bajt (KB) = 1024 
bajtów i M bajt = 1024x1024 bajtów 
A. byte 
N. Byte (n) 

R. 6afrr 

bajt stanu urządzenia — w niektórych komputerach 
znajduje się w pamięci operacyjnej i umożliwia kontro- 
lę stanu urządzeń przyłączonych, jak też stan ukła- 
dów wewnętrznych i przebiegu poszczególnych opera- 
.cji. B.s.u. składa się z bitów stanów poszczególnych 
układów 

A. standard device byte 
N. Geratebyte (n) 

R. 6aHT COCTOHHHfl yCTpOHCTB 
bank danych — całość informacji potrzebnych do eks- 
ploatacji określonego systemu przetwarzania danych 
A. data bank, data base 
N. Datenbank (f) 

R. 6aHKAaHHbix 

BASIC — Beginners Ali Purpose Symbolic Instruction 
Codę — bardzo prosty, łatwy do nauki, problemowy 
(programowanie wysokiego poziomu) język programo- 
wania 

baza danych — element — banku danych stanowiący 
zbiór danych określonego obszaru problemowego 
bezpośredni dostęp do pamięci — komunikacja da- 
nych przez urządzenia we/wy do pamięci z pominię- 
ciem mikroprocesora (jednostki centralnej), co umożli- 
wia szybkie przemieszczenie danych 
A. direct memory access 
N. direkter Speicherzugriff (m) 

R. npOH3BOJTbHbIH (npHMOH) flOCTyn naMHTH 
BIOS — Basic Imput/Output System — zawarty w ROM 
zbiór procedur bezpośrednio współpracujących ze 
sprzętem, obejmuje m.in. zestaw pamięci RAM, 
handlery (procedury obsługi) we/wy, usługowe progra- 
my systemowe pierwotnego wprowadzania itp. Stanowi 
system operacyjny PS/2. Jego odmiany, to ABIOS — Ad- 
vanced BIOS i CBIOS — Compabiłity BIOS, stosowane w 
większych systemach PS (od M50 wzwyż), 
bit — cyfra w zapisie dwójkowym (b) 

A. bit, binary digit 
N. Bit (n) 

R. 6ht 

bit kontrolny parzystości — bit parzystości i 
— bit nieparzystości 

A. parity bit 
N. Paritatsbit (n) 

R. 6HT HeTHOCTH 

bit najbardziej znaczący — bit znajdujący się na lewym 
skraju liczby binarnej 
A. most significat bit 
N. hochstwertiges Bit (n) 

R. caMbifi crapuiHH 6ht 


bit najmniej znaczący — bit znajdujący się na prawym 
skraju liczby binarnej 
A. łeast significat bit 
N. niedrigstwertiges Bit (n) 

R. caMbiH MJia^uiHH 6 ht, MJia,amHH 6 ht 
bit nieparzystości — bit kontrolny parzystości, który 
przyjmuje wartość 1, jeżeli w części informacyjnej bajtu 
jest parzysta suma jedynek binarnych (bajt taki nazywa 
się nieparzystym — odd byte — bo suma bitów łącznie z 
kontrolnym jest nieparzysta, np. w kodzie E1A8B) 

A. odd parity bit 
N. ungrades Paritat — Bit 
R. 6 ht KOHTpojifl Ha HeneTHOCTb 
bit parzystości — bit kontrolny parzystości, który 
przyjmuje wartość 1, jeżeli w części informacyjnej bajtu 
jest nieparzysta suma jedynek binarnych (bajt taki nazy- 
wa się parzystym — even byte — bo suma bitów łącznie 
z kontrolnym jest parzysta, np. w kodzie ISO/R840) 

A. even parity bit 
N. gerades Paritat — Bit 
R. ÓHT HeTHOCTH 

bit stanu — bit charakteryzujący aktualny stan chwilo- 
wy układów mikrokomputera (komputera), określony 
wynik łub spełnienie (niespełnienie) określonych wa- 
runków, b.s. rejestruje się w rejestrach stanu (np. w po- 
staci bajtów stanu) i stan ich może być sprawdzany spe- 
cjalnym rozkazem lub programem — zapytań 
A. status bit 

N. status — Bit (n), Bedingungs — bit (n) 

R. 6HT COCTOflHHfl 

bit zgodności — oznacznik zgodności 
blok — 1. zapis słów, znaków lub cyfr, które mogą być 
potraktowane jako jednostka w programie łub pamięci 
zewnętrznej; 2. grupa sąsiednich znaków teletransmisji 
danych 
A. błock 
N. Błock (m) 

R. 6jiok 

blok funkcjonalny — układ funkcjonalny o budowie 
modułowej 
A. function błock 
N. Funktionsblock (n) 

R. $yHKUHHHbIH ÓJIOK 

bod — jednostka szybkości transmisji danych, jeden 
bod równa się 1 bit/s 
A. baud 
N. Baud (n) 

R. óoj 

BPI — Bits PER Inch — jednostka gęstości zapisu na 
taśmie magnetycznej (liczba bitów na długości jednego 
cala) 

brama — rejestr transłacyjny — port 
bramka — elementy logiczne 
BS/2 — system operacyjny OS/2 

budowa modułowa — system konstrukcji blokowej — 
celowe zgrupowanie wzajemnie ze sobą powiązanych 
zunifikowanych zespołów ułatwiających produkcję i 
eksploatację (np. wymianę w wypadku awarii) 

A. modułar design, modular concept 
N. Baukastenprinzip (n) 

R. MO^yjibTHaB cucreMa 

budowa rozkazu — struktura rozkazu, format rozkazu 
— podaje długość rozkazu (w bitach), jak również jego 
układ i liczbę bitów przeznaczonych na argumenty lub 
ich adresy 

A. instruction format, instruction structure, command 
structure 

N. Befehlsformat (n), Befehlstruktur (f), Befehlsaufbau 

(m) 

R. CTpyKTypa KOMaHflbl (HHCTpyKUHH), (J)OpMaT KOMaH- 
abl 
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CAD — Computer Aided 
Desing — komputerowe 
wspomaganie projektowa- 
nia 

CADAM-CAD/CAM — Com- 
puter Aided Design and 
Manufacturing — kompute- 
rowe wspomaganie projek- 
towania i wytwarzania 

CAE — Computer Aided Engineering — komputerowe 
wspomaganie konstruowania 

CAI — Computer Aided Industry (instruction); 
1 — komputerowe wspomaganie wytwarzania przemys- 
łowego; 2 — komputerowe wspomaganie w instruowa- 
niu 

CAM — Computer Aided Manufacturing — kompute- 
rowe wspomaganie wytwarzania 
CAMAC — Computer Automated (Application for) 
Meacurement And Control — znormalizowany system 
złączowy, stosowany w układach sterowania i automaty- 
ki — układ złączowy 
CBIOS - BIOS 

CD-ROM — Compact Disc ROM — pamięć dyskowa 
o zapisie i odczycie laserowym i o bardzo dużej poje- 
mności (500 MB), o dostępie swobodnym i czasie dostę- 
pu 1 s. 

Cechy charakterystyki użytkowej mikroprocesorów — 

zasadnicze parametry mikroprocesorów 
technologia: bipolarna (ECL, J 2 L, STTL, TTL), unipolarna 
MOS (CMOS, MMOS, NMOS, PMOS). 

A. process technology 
N. 

R. 

długość słowa (danych/instrukcji): od 1/4 do 32/32 
A. word size (data/instruction) 

N. 

R. 

pojemność adresowania (liczba słów): do 16 MB 
A. direct addressing rangę (words) 

N. 

R. 

maksymalna częstotliwość zegara (MHz) faz: od 0,5/1 
do 30/30 

A. maximum clock frequency (MHz) phases 
N. 

R. 

liczba instrukcji: od 16 do kilkuset 
A. number of basie instruction 
N. 

R. 

czas wykonania instrukcji (/is): od 0,2 (20MIPS) do 780 
A. instruction time (a*s) 

N. 

R. 

obudowa (liczba wyprowadzeń): od 16 do 132 

A. package size (pins) 

N. 

R. 

CGA — Color Graphies Adapter — karta/pakiet grafiki 
kolorowej 

CIM — Computer Integrated Manufacturing — kom- 
pleksowe skomputeryzowane wytwarzanie 
CODEC — koder — dekoder 
CLK — Clock — zegar taktujący 
CNC — Computer (ised) Numerical Contro! — kompu- 
terowe (skomputeryzowane) sterowanie numeryczne 
Commodore — najpopularniejszy w RFN mikrokom- 
puter (ze względu na liczbę sprzedanych), używany czę- 


sto jako najmniejszy business Computer Commodore 64. 
Firma Commodore związana jest ściśle z historią mikro- 
komputerów domowych — wypuściła jeden z pierw- 
szych mikrokomputerów — PET. Po C 64 pojawiły się 
na rynku C 16, C 116 i Plus 4, ale nie miały one tradycji 
C 64 i nie zostały „zaakceptowane" przez nabywców. 
Dużą zgodność z C 64 wykazuje C 128, którego procesor 
8502 jest kompatybilny z procesorem C 64, może on pra- 
cować ze wszystkimi urządzeniami zewnętrznymi C 64. 
CPC — Continuous Path Contro! — sterowanie kształ- 
towe (ciągłe) 

CP/M — Control Program for Microcomputers — sy- 
stem operacyjny mikrokomputerów 
CPU — Central Processing Unit — jednostka centralna 
CRC — Computer Robot Control — komputerowe 
sterowanie robotów 

Cross support — pojęcie obejmujące zastosowanie 
programów, które wspomagają („wspomaganie wskroś- 
ne") opracowywanie i testowanie programów do mikro- 
komputera (komputera) za pomocą innego mikrokom- 
putera (komputera), jest to metoda powszechnie stoso- 
wana do sprzętu opartego na mikroprocesorach i pro- 
gramach w postaci cross — assemblerów, — kompilato- 
rów, — symulatorów 
A. cross support 
N. cross support 
R. Kpocc-cynnopT 

CRT — Cathode Ray Tubę — lampa elektrono-pro- 
mieniowa 

N. Katodenstrahlróhre (f) 

R. aJieKTpoHHO-jiyHeBaa Tpy6ica 
CRU — Communication Register Unit — programo- 
walne złącze we/wy 

CU — Control Unit — jednostka sterująca 
cyfra — znak ze zbioru znaków określonego systemu 
liczbowego, w zależności od liczby cyfr w zbiorze dane- 
go systemu, system nazywany dla: 

10 cyfr (0..9) — dziesiętnym 
dwu cyfr (0,1) — dwójkowym itp. 

A. digit 
N. Ziffer (f) 

R. uHcjjpa 

czas dostępu — czas opóźnienia podania danych od 
chwili podania adresu, np. dla pamięci MOS o dostępie 
bezpośrednim wynosi on 250.. .450 ns, dla pamięci staty- 
cznej typu RAM na układach scalonych z GaAs — 1 ns, 
pamięci MCY 7102 — 100 ns 
A. access time 
N. Zugriffszeit (f) 

R. BpeMji floeryna, BpeMH BbióopKH 
cyfrowe układy — układy cyfrowe 

czas realizacji — 1. czas, jaki potrzebuje mikrokompu- 
ter (komputer) na wykonanie jakiegoś rozkazu, mierzo- 
ny np. liczbą taktów przy danej częstotliwości taktów 
(zegara), 2. czas, jaki potrzebuje mikrokomputer (kom- 
puter) na wykonanie programu 
A. execution time 
N. Ausfiihrungszeit (f) 

R. BpeMH BbinOJlHeHHH 

czas rzeczywisty — przetwarzanie w czasie rzeczywi- 
stym 

część sterująco-nadzorcza programów organizacyj- 
nych — program lub część programu do specjalnych 
zadań wchodząca na ogół w skład systemu operacyj- 
nego 

A. supervisor 

N. Supervisor (m), Uberwacher (m) 

R. cynepBH3op 






DAC — Digital Analog Con- 
verter — przetwornik ana- 
logowo-cyfrowy 
dane — 1. informacje prze- 
znaczone do przetwarzania; 
2. przedstawienie faktów, 
koncepcji lub instrukcji w tak 


uporządkowany sposób, że nadają się one do przesyła- 
nia, interpretowania lub przetwarzania przez ludzi lub 
maszyny; 3. każdy sposób przedstawiania informacji w 
postaci znaków lub wielkości analogowych, którym mo- 
że być lub jest przypisane określone znaczenie 
A. data 
N. Daten (f) 

R. ASHHbie 

dane standardowe — takie dane w rozkazie, które mo- 
gą być opuszczone, ponieważ komputer uzupełni je {o 
d.s.) w trakcie wykonania rozkazu 
A. default 
N. Standardwert (m) 

R. cTaH^apT 

DBMS — Data Base Management System — system 
(program) zarządzania bazami danych 
deasembler — program umożliwiający przeprowadze- 
nie odwrotnego procesu do asemblowania, tzn. istnieją- 
cy w języku komputera program (program wynikowy) 
zostaje przetłumaczony na poprzednią jego formę (pro- 
gram źródłowy) w języku typu asembler 
A. de-assembler, disassembler 
N. Disassembler (m), Deassembler (m) 

R. 

dekoder rozkazów — deszyfrator, który interpretuje 
rozkazy komputera, wartościowuje wyniki badań (zapy- 
tań) i dostarcza częściom wykonawczym mikroproceso- 
ra (procesora) sygnały sterujące i adresy niezbędne do 
wykonania rozkazu; na ogół w skład tych czynności 
wchodzi również rozdział rozkazu komputera na mikro- 
rozkazy 

A. instruction decoder, command decoder 
N. Befehlsdekoder (m), Instruktionsdekoder (m) 

R. fleiUHłppaTbp KOMHHfl 

digitizer — urządzenie zmieniające informacje analo- 
gowe na cyfrowe np. zapis rysunku w pamięci kompute- 
ra 

A. digitizer 
N. Digitałisierer (m) 

R. 

długość bloku — liczba znaków określająca wymiar 
bloku 

A. błock size, błock length 
N. Blocklange (f) 

R. AJiHHa ÓJiOKa 

długość słowa (komputera) — liczba bitów (w słowie), 
którą komputer jest w stanie przetworzyć w jednym cią- 
gu 

A. word length, word size 
N. Wortłange (f) 

R. fljiHHa cjiOBa 

DMA — Direct Memory Access — bezpośredni (swo- 
bodny) dostęp do pamięci 

DNC — Direct Numerical Control — bezpośrednie (z 
centralnego komputera) sterowanie numeryczne (urzą- 
dzeniami i procesami technologicznymi). 

DOS — Disk Operating System — system operacyjny 
dyskowy 

dostęp — możliwość odczytania lub wpisania informa- 
cji do pamięci 


A. access 
N. Zugriff (m) 

R. flOCTyn, Bbióopica 

dostęp bezpośredni — dostęp swobodny, dostęp do- 
wolny — możliwość bezpośredniego dostępu do każde- 
go miejsca pamięci zarówno przy odczycie, jak i zapisie 
danych, czas dostępu jest tu niezależny od adresu 
A. random access, direct access 
N. wahlfreier Zugriff (m), direkter Zugriff (m), Direkt- 
zugriff (m) 

R. npoH3BO.ibHaB Bbióopica, cBo6o,3HbiH (np»Mofi) j\ o- 
cTyn 

dostęp sekwencyjny — dostęp do informacji wg kolej- 
ności ich przechowywania w pamięci, a zapis wg kolej- 
ności napływu 

A. sequential access, serial access 
N. sequentie!łer Zugriff, seriałler Zugriff 
R. riocjie^OBaTejibHbiH AOCTyn 
dostęp swobodny — dostęp bezpośredni 
DSC — Digital Supervisory Control — sterowanie cyf- 
rowe nadrzędne przez komputer 

DTP — Desk Top Publishing — stanowisko mikro- 
komputerowe z oprogramowaniem do prac wydawni- 
czych 

dupleks — transmisja jednoczesna 
dyrygent — program dyrygent 

dyrektywa — wskazówka, wytyczna, komentarz (np. 
komentarz w j. typu asembler) 

A. directive 
N. Direktive (f) 

R. 

dysk elastyczny — dyskietka — tzw. miękki dysk, 
odmiana dysku magnetycznego o bardzo krótkim czasie 
dostępu (średni czas dostępu 0,25 s) przy małych rozmia- 
rach charakteryzuje si^ dużą pojemnością (dwudyskiet- 
kowa jednostka do v MB). Stosowane dyskietki mają 
średnice 3"; 3,5"; 5,25" i 8". 

A. floppy dysk, minidysk 
N. Diskette (f), Minidisk (f) 

R. MaJieHbKHH ^blCK 
dyskietka — dysk elastyczny 


EAPROM — Electrically Alte- 
rable PROM — podział pa- 
mięci 

EAROM — Electrically Ałte- 
rable ROM — elektrycznie 
przeprogramowalna pamięć 
typu „wyłącznie odczyt”, 

kasowanie odbywa się tu na drodze elektrycznej (np. na 
drodze lawinowego wstrzykiwania dziur) w odróżnieniu 
od pamięci EPROM (— podział pamięci), którą kasuje 
się promieniami nadfioletowymi (2537 ,A) 

EBCDI - kod EBCDI 

EEPROM — Electrically Erasable PROM - podział 
pamięci 

EGA — Enhanced Graphics Adapter — pakiet (karta) 
ulepszonego sterownika grafiki komputera osobistego 
IBM PC 

edytor — program redagujący, umożliwiający przez 
monitor ekranowy wczytywanie tekstu do pamięci kom- 
putera, a następnie jego przeredagowanie 
A. editor 

N. Editor (m), Texbearbeitungsprogram (n), Textedi- 
tor (m) 

R. pe^aKTyromafi nporpaMMa 
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ekranopis — monitor ekranowy 

elastyczne kompleksy wytwórcze — zautomatyzowane 
wielozadaniowe wytwórnie o dużej elastyczności adap- 
tacyjnej do produkcji różnych typowielkości części i wy- 
robów finalnych oraz dużym zakresie stosowanych 
technologii (od magazynu surowców do magazynu wy- 
robów gotowych przez obróbkę części, montaż, malo- 
wanie i pakowanie), w których praca człowieka ograni- 
cza się wyłącznie do funkcji nadzorczych kompleksowo 
skomputeryzowanego sterowania procesów wytwarza- 
nia 

A. flexibłe manufacturing compłex, FMC 
N. f!exibłes Fertigungssystem (n) 

R. 

elektroniczna maszyna cyfrowa — komputer 

Elektronika BK-0010 — radziecki mikrokomputer 16-bi- 
towy, pamięć operacyjna RAM 32 kB, ROM — 32 kB, 
grafika 512x256 punktów (przy dwóch stopniach szaroś- 
ci) lub 256x256 punktów (przy czterech stopniach sza- 
rości). Przewidywany jako standardowe wyposażenie 
szkół radzieckich. 

elementy binarne — elementy dyskretne 
elementy cyfrowe — elementy dyskretne 
elementy dyskretne — elementy podstawowe, których 
wejścia i wyjścia mogą przyjmować określoną wartość 
(poziom, stan) z pewnego przeliczalnego zbioru, naj- 
częściej dwuskładnikowego (elementy binarne). Przy- 
kładami e.d. są: elementy logiczne (kombinacyjne, ele- 
menty bez pamięci) i przerzutniki (elementy pamięcio- 
we). Określenia e.d. używa się często (bezzasadnie) 
przeciwstawnie do układów scalonych zamiast określe- 
nia elementy podstawowe 
A. discrete elements komponent, digital elements 
N. digitales Element (n), Ziffernelement (n), diskrete 
Bauelement (n) 

R. uH(j}poBbie ajieMeHTbi 

elementy funkcjonalne — elementy przełączające oraz 
pomocnicze 

elementy kombinacyjne — elementy logiczne 
elementy logiczne, funktory — logiczne układy pod- 
stawowe — elementy realizujące podstawowe funkcje 
logiczne (np. NIE, LUB, I), służące do budowy układów 
logicznych; e.l. zwano wcześniej bramkami 
A. logie (logical) elements 

N. Verknupfungsglied (n), logisches Element (n), Lo- 
gikglied (n) 

R. jiorHHecKHe ajieMeHTbi 

elementy pamięciowe — elementy przełączające, które 
mogą przyjmować różne stany wyjść nie tylko w zależ- 
ności od aktualnego własnego stanu wewnętrznego 
A. memory elements 
N. Speicherelements (pl., n) 

R. 3anoMHHaiołUHe ajieMeHTbi 
element podstawowy — najprostsza część składowa, w 
elektronice są to np. kondensatory, rezystory, cewki, 
diody, tranzystory. Z wielu e.p. można stworzyć — u- 
kłady elementarne 
A. basie element, structural element 
N. Bauelement (n), Baustein (m) 

R. ocHOBHaa nacTb 

elementy przełączające — jednostki przełączające zło- 
żone z elementów podstawowych; e.p. dzielą się na 
kombinacyjne i pamięciowe jak np. przerzutniki 
A. switching (Circuit) element 
N. Schaltełement (n) 

R. nepeKJHOHaromnH ajieMeHT 
emiter danych — część urządzenia do przetwarzania 
łub teletransmisji danych, która może sygnały danych 
emitować 


A. data source 
N. Datenquel!e (f) 

R. HCTOHHHK flaHHbIX 

emulacja — symulacja w czasie rzeczywistym, naślado- 
wanie (lub odwzorowywanie) jakiegoś mikrokomputera 
(komputera) na innym niewymiennym pod względem 
rozkazów czy formatu danych; e. w przeciwieństwie do 
symulacji realizowana jest nie tylko programowo, ale i 
sprzętowo (np. przez zmianę pamięci stałych, kart ukła- 
dów) 

A. emulation 

N. Emulierung (f), Emulation (f) 

R. 3MyjiauHfl 

emulacja „in Circuit” — funkcjonalne, elektryczne i 
mechaniczne odwzorowywanie (emulacja) jakiegoś 
mikrokomputera lub mikroprocesora w postaci jednego 
układu. Podłączenie takiego emulatora następuje przez 
łącze. Odwzorowywanie (czasów reagowania i realizacji) 
zapewnione jest w tym wypadku w szerokim zakresie; 
często stosowane w systemach projektowych mikro- 
komputerów. 

A. in Circuit emulation, 1CE 
N. In-Circuit-Emulierung (f), Testadapter (m) 

R. 

emulator — system lub część systemu, która umożliwia 
emulacje 

A. emulator, in-circuitemulator 
N. Emulator (m), Testadapter (m) 

R. 3MyjlBT0p 

EŁWRO — 1) Zakłady Elektroniczne „EIwro" we Wro- 
cławiu, największy w kraju producent sprzętu kompute- 
rowego; 2. mikrokomputer różnych serii, np. EIwro 500, 
EIwro 600, EIwro 700 i EIwro 800. 

ELWRO 500 — mikrokomputer zaprezentowany po raz 
pierwszy w 1983 r. Przygotowanie jego produkcji trwało 
bardzo długo i w tym czasie powstały kolejne prototypy 
EIwro. 

ELWRO 600 — jest praktycznie kontynuacją mikrokom- 
putera EIwro 500, a podstawowa różnica tkwi w budowie 
modułowej. Moduł jednostki centralnej ma pamięć ope- 
racyjną RAM 64 KB, pamięć stałą ROM 8 KB. Klawiatura 
alfanumeryczna, wydzielona klawiatura numeryczna 
dziesiętna i heksadecymałna oraz klawisze funkcjonal- 
ne. E. 600 jest typowym mikrokomputerem biurowym, 
podobnie jak E. 500. 

ELWRO 700 Solum — powstał jako dzieło brygady racjo- 
nalizatorów koła Stowarzyszenia Elektryków Polskich w 
ZE ELWRO. Może być wyposażony w pamięć ROM od 
8 ... 16 KB oraz RAM od 16 ... 48 KB. 

Klawiatura alfanumeryczna w układzie z alfabetem pol- 
skim i dodatkowymi klawiszami funkcyjnymi. Solum 
miał być wg założeń polskim mikrokomputerem eduka- 
cyjnym. W 1986 r. miało się znaleźć na rynku ok. 10 tys. 
szt. tego mikrokomputera, a w następnych latach zna- 
cznie więcej. 

ELWRO 800 — mikrokomputer opracowany wspólnie 
przez Instytut Automatyki Politechniki Poznańskiej oraz 
Instytut Komputerowych Systemów, Automatyki i Po- 
miarów we Wrocławiu. Oparty na mikroprocesorach 8- i 
16-bitowych umożliwiających tworzenie systemów od 
jednoprocesorowych 8-bitowych przez jedno- i wielo- 
procesorowe 16-bitowe, aż do wieloprocesorowych 
mieszanych. Może współpracować z wieloma urządze- 
niami zewnętrznymi dostępnymi na rynku krajowym 
(produkcji polskiej, bułgarskiej, NRD, Węgierskiej Re- 
publiki Ludowej. Struktura modułowa E. 800, przy szero- 
kim zestawie oferowanych modułów, pozwala na kon- 
figurowanie systemów specjalizowanych o bardzo zróż- 
nicowanym stopniu złożoności. 

Na 57 MTP w Poznaniu E. 800 wyróżniono Złotym Meda- 
lem. 
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ELWRO 800 Junior — mikrokomputer edukacyjny opra- 
cowany przez Instytut Automatyki Politechniki Poznań- 
skiej w 1986 r. jako 8-bitowy mikrokomputer edukacyjny, 
mogący pracować w sieci zarówno z takim samym sprzę- 
tem, jak też z popularnymi już w polskich szkołach 
ZX SPECTRUM. 

EOF — END OF FILE — koniec kartoteki 
N. Datenende (n) 

R. KOHeu KapTOTeKH 

EOJ — END OF JOB — koniec programu lub przebiegu 
programu 

N. Programmende (n) 

R. kohcii nporpaMMbi 

EOT — 1. END OF TAPE — koniec taśmy magnetycznej; 
2. End of Transmission — „koniec teledacji". 

N. 1. Magnetbandende (n) 

2. Ubertaungsende (n) 

R. KOHeu jieHTw 
2. KOHeu nepeuaMH 

EPD — elektroniczne przetwarzanie danych 
A. EPD, electronic data processing 
N. EDV, elektronische Datenverarbeitung (f) 

R. ajieKTpoHHaa o6pa6oTKa uaHHtix 
EPROM — Erasable Programmable ROM — pamięć re- 
programowałna kasowana w całości łub przez odpo- 
wiednie maski promieniami ultrafioletowymi (— podział 
pamięci) 

etykietka nagłówkowa — etykietka początku (zbioru 
danych) 

A. header, header łabel 
N. Uberschrift (f), Kopf (m), Vorsatz (m) 

R. HauuoHajibHaa MeTKa, MeTKa 3arojiOBKa 
etykietka w programie — symbol identyfikujący w spo- 
sób symboliczny rozkazy, adresy lub dane w programie 
źródłowym 
A. łabel 
N. Markę (f) 

R. MeTKa 


format danych, układ danych, struktura danych — 1. po- 
daje w bitach, jak długie może być słowo danych, aby 
mogło być jeszcze przetworzone za pomocą pojedyn- 
czego rozkazu mikrokomputera; 2. ogólnie — wzór lub 
przepis odnośnie formalnego układu danych 
A. data format 
N. Datenformat (n) 

R. (JjopMaT ^aHHbix 
Format rozkazu - budowa rozkazu 
format upakowany — rodzaj przedstawienia informa- 
cji, w którym dwie cyfry dziesiętne przedstawione są w 
jednym bajcie 
A. packed format 
N. gepacktes Format (n) 

R. ynaKOBaHHMH (fcopMar 

FPLA — Field Programmable Logic Array — programo- 
walne (u użytkownika) zespoły logiczne (układy logi- 
czne) 

funktory logiczne — elementy logiczne 


GEM — Graphies Enviro- 
ment Manger — system 
operacyjny zorientowany 
graficznie z zastosowaniem 
symboli graficznych (WIMP 
— Widdow, Ikou, Mous 
Pushdown Menu) zamiast 
rozkazów dla ułatwienia 
posługiwania się mikro- 
komputerem 



FIFO — FIRST — IN — FIRST 
— OUT — sposób organiza- 
cji pamięci, w którym infor- 
macje wpisane jako pierwsze 
są również jako pierwsze 
odczytywane (typu silos) — 
podział pamięci 


i 

A. FIFO — memory 
N. Silosspeicher (m) 

Flip-Flop - przerzutnik 

flag — 1. sygnalizator, znacznik lub bit w przerzutniku 
lub rejestrze sygnalizujący określony stan, wynik, speł- 
nienie lub niespełnienie warunku (bity warunków) czyli 
błąd; 2. pojedynczy przerzutnik (lub jego stan) w reje- 
strze statusowym 
A. flag 

N. Kennzeichen (n), Markierung (f), Flagge (f) 

R. npH3HaK t $jiaHC0K, $Jiar 


generator — 1. układ wytwarzający wielkość wyjściową o 
zadanych parametrach; 2. program, który generuje 
określone językiem programowania programy lub ciągi 
funkcji standardowych 

A. generator, AG — Applikations Generator 
N. Generator (m), Erzeuger (m) 

R. reHepaTop, nporpaMM-reHepaTop 
generator zegarowy, generator taktujący — generator 
impulsów napięciowych o wartościach odpowiadających 
0 lub 1, synchronizujących (taktujących) przebieg proce- 
sów w układach synchronicznych na bazie cyklu pod- 
stawowego (generator cyklu podstawowego) łub cyklów 
pochodnych od tego ostatniego 
A. clock generator, timing generator 
N. Taktgeber (m), Taktgenerator (m) 

R. reHepaTop TaKTOB 

gęstość upakowania — 1. zagęszczenie elementów pod- 
stawowych w gotowym do pracy urządzeniu lub zespo- 
le; 2. gęstość zapisu danych 
A. packing density 
N. Packungsdichte (f) 

R. 1. miOTHOCTb ynaKOBKH 
2. njioTHOCTb 3anHCH 

grafoskop — monitor ekranowy, który za pomocą 
promienia katodowego może wyświetlać dowolne 
krzywe, może on być wyposażony również w pióro 
świetlne (pisak świetlny) do przekazywania danych do 
komputera. 

A. graphic display unit 
N. grafisches Sichtanzeigegerat (n) 

R. rpa^HMecKoe HHHKOTOpHoe ycTpoficTBO 
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H — Hexidecimal — znak 
zapisu szesnastkowego 
hardware — sprzęt kompu- 
terowy 

Helwett-Packard — firma z 
Pało Alto (Kalifornia) produ- 


kująca systemy komputerowe, wprowadziła na rynek 
przenośny komputer osobisty pod nazwą HP-IPC (HP- 
Integral Personal Computer) — pierwszy na rynku ame- 
rykańskim z systemem operacyjnym UNIX. Mikroproce- 
sor 16-bitowy, pamięci 256kB ROM i 512kB RAM oraz 32 
kB do wyświetlania danych na ekranie, pamięć zewnętrz- 
na — dyskietki 3 i 1/2-calowe o pojemności użytkowej 
710kB. 

HCC — Hercules Graphies Cart — pakiet (karta) stero- 


wania grafiką firmy Hercules. 
IBM — International Busi- 
ness Machines — największy 
producent sprzętu kompu- 
terowego na świecie. Wielu 
producentów mikrokompu- 
terów dąży do tego aby ich 

sprzęt był kompatybilny z urządzeniami IBM. 

IBM PC — IBM Personal Computer — komputer osobi- 
sty IBM (kolejne wersje XT i AT) stał się nieoficjalnym 
standardem mikrokomputerów profesjonalnych. 

IC — Integrated Circuit — obwód scalony 
ICL — International Computers Limited — największa 
komputerowa firma brytyjska, mająca swoje oddziały w 
ponad 80 krajach świata. W Polsce od ponad dwudziestu 
lat działa Biuro Handlowe ICL oraz ponad 400 systemów 
komputerowych ICL. 

IEEE — Institute of Ełectrical and Electronic Engineers — 
Stowarzyszenie Inżynierów Elektryków i Elektroników 
USA 

informatyka — nauka o systemach przetwarzania infor- 
macji 

A. computing (Computer) science, Computer Theory 
N. Informatik (f) Datenerfaassung — verarbeitung u. 
Prograrńmierung 
R. HH<})OpMaTHKa 

inicjacja — uruchamianie pierwotne np. programu, da- 
nych, pamięci zewnętrznej itp. (i. ma miejsce zazwyczaj 
natychmiast po włączeniu danego urządzenia) 

A. initiaiization, initiation 
N. Initialisierung (f) Initierung (f) 

R. HHHUHauHH, (3a) nycK nporpaMMbi 
instrukcja — przepis działania sformułowany w języku 
programowania, i. może się składać z i. cząstkowych; i., 
której nie może rozłożyć na cząstkowe nazywa się roz- 
kazem. 

A. State ment, instruction 
N. Anweisung (f), Instruktion (f) 

R. onepaTOp 
interfejs — złącze 
integracja — skala integracji 

interpreter — 1. program, który w sposób kroczący 
(sekwencyjny) interpretuje instrukcje programu napisa- 
nego w języku innym niż język komputera i które są 
przez komputer na bieżąco realizowane. Interpreter 
różni się tym między innymi od kompilatora i — transla- 
tora, że nie tworzy nowego, pośredniego programu 



(programu wynikowego), a interpretowane instrukcje są 
realizowane bezpośrednio przez komputer; 2. przyrząd, 
który czytając dane zawarte w nośnikach perforowanych 
rozszyfrowuje je i pisze tekstem czytelnym. 

A. interpreter, interpretive program 

N. Interpreter, (m), Interpretierer (m) 

1. interpretierendes Program (n) 

2. Lochschnftiibersetzer (m) 

R. 1. HHTcpnpeTHpytomaH nporpaMMa 

2. ycTpoHCTBO jna pacnenaTKH nep<j)OKapM 
interpretator — interpreter 


jednokierunkowa — przy- 
miotnik magistrali, na której 
przesył danych może od- 
bywać się tylko w jednym 
kierunku 
A. uni-directional 
N. unidirektional 
R. 

ń 

jednostka arytmetyczno-logiczna — wyróżniany w aryt- 
mometrze lub mikroprocesorze (procesorze) podsta- 
wowy układ funkcjonalny, który sygnały wyjściowe koja- 
rzy w sposób logiczny łub arytmetyczny w zależności od 
stanu wejść sterujących 
A. arithmetic-logic unit, ALU 
N. arithmetisch-logische Einheit (f) 

R. apn$MeTHHecKHH u JionmecKHH 6 jiok 
jednostka centralna, procesor centralny — część kom- 
putera, na którą składa się jednostka sterująca, arytmo- 
metr, urządzenie we/wy i pamięć operacyjna, a w której 
dokonuje się operacji logiczno-arytmetycznych oraz 
koordynuje i steruje działaniem innych jednostek. 

A. central processing init. CPU 
N. Zentraleinheit (f) 

R. ueHTpa-ibHoe ycTpoHCTBO 

jednostka sterująca — część jednostki centralnej wzgl. 
mikroprocesora (procesora), w której są inicjowane i 
kontrolowane niezbędne przebiegi do zrealizowania 
danego rozkazu, w mikrokomputerze do j.s. zalicza się: 
licznik rozkazów (programu), dekoder rozkazów, rejestr 
rozkazów, zegar (generator taktów). 

A. control unit 

N. Steuerwerk (n), Leitwerk (n), Kommandowerk (n), 
Kontrollei.nheit (f) 

R. ycTpoHCTBO ynpaB.ieHHa. 6 „iok ynpaBJieHHB 
język asemblerowy — język typu asembler 
język komputera — język programowania, w którym sto- 
suje się wyłącznie rozkazy objęte listą rozkazów danego 
mikrokomputera (komputera) oraz adresy bezwzględne 
komórek pamięci ułożone zgodnie ze składnią tego ję- 
zyka 

A. Computer language, machinę ianguage 
N. Maschinensprache (f), Rechnersprache (f) 

R. MaiUHHHblH H3bIK 
język maszynowy — język komputera 
język niezależny od komputera — język programowa- 
nia, który nie jest ukierunkowany na żaden sprzęt i w za- 
sadzie może być realizowany na każdym mikrokompu- 
terze (komputerze), wymaga jednak w praktycznej reali- 
zacji tłumaczenia przez kompilator lub interpreter 
A. Computer independent language 
N. maschinenunabhangige Sprache (f) 

R. MaiUHHHO-He3aBHCHMbIH H3bIK 



język pierwotny — język źródłowy 
język proceduralnie zorientowany — język zorientowa- 
ny problemowo 

języki programowania wyższego poziomu — języki pro- 
gramowania maszynowo niezależne, których translacja 
odbywa się przez kompilator lub interpreter; porównaj 
język zorientowany problemowo 
A. high Ievel language 

N. hohere Programmiersprache (f), Hochsprache (f) 

R. H3bIK BblCOKOrO ypOBHfl 

język sterowania zadaniami — język do opisywania częś- 
ci systemu operacyjnego zawierającego informacje ste- 
rowania zadaniami 
A. job control language 

N. Job-Kontrollsprache (f), job-Steuersprache (f) 

R. A3biK ynpaBJieHHH 3ąaaHHHMH 
język symboliczny — język typu asembler 
język typu asembler — zorientowany maszynowo sym- 
boliczny język programowania, w którym rozkazy i 
większość adresów oparta jest na kodzie mnemotechni- 
cznym; jest to język z grupy języków niskiego poziomu 
programowania (zorientowanych sprzętowo) 

A. assembly (program) language, assembler language 
N. Assembl(ier), ersprache (f) 

R. H3biK acceMÓJiepa 

język typu kompilator — język programowania na ogół 
zorientowany problemowo, a maszynowo niezależny, 
czyli wymagający kompilatora (programu kompilujące- 
go) do przetwarzania na program w kodzie maszyny, sy- 
nonim języków programowania wyższego rzędu (wyż- 
szego poziomu) 

A. compiler language 
N. Compiler-Sprache (f) 

R. 

język ukierunkowany maszynowo — język zorientowany 
maszynowo 

język wewnętrzny — język komputera 
język zorientowany maszynowo — język programowa- 
nia, którego instrukcje są podobnej lub takiej samej 
struktury, jak rozkazy danego komputera, a liczba ins- 
trukcji odpowiada liczbie rozkazów: do j.z.m. należą ję- 
zyki typu asembler 
A. Computer oriented language 
N. maschinenorientierte Sprache (f), MOPS, maschinen- 
nahe Programmiersprache (f), rechnerorientierte 
Sprache (f) 

R. MaiUHHHO-OpneHTHpOBaHHblH H3bIK 
język zorientowany problemowo — język programowa- 
nia przystosowany do wygodnego formułowania okreś- 
lonej klasy problemów do rozwiązania na komputerze 
bliżej nie określonym (język niezależny od komputera), 
np. ALGOL, COBOL, FORTRAN itp. 

A. problem oriented language 

N. problemorientierte Sprache (f), genutzerorientier- 
te Sprache (f), PPS — Problemorientierte Programmier 
Sprache 

R. np06jieMH0-0pneHTHp0BaHHbIH H3bIK 

język zorientowany proceduralnie — język zorientowa- 
ny problemowo 

język źródłowy — język programowania użyty przez 
programistę do sformułowania lub zakodowania progra- 
mu, który przed użyciem go w komputerze musi być 
tłumaczony jednym z programów translacyjnych 
A. source language 

N. Quellsprache (f), Ursprungsprache (f) 

R. HCXOflHbIH H3bIK, BXOHHOH H3bIK 

JS EMC — jednolity System Elektronicznych Maszyn Cyf- 
rowych wytwarzanych w krajach RWPG (komputery serii 
RIAD) 

Junior — Elwro 800 Junior 


kanał — logiczne połączenie 
jednostki centralnej z urzą- 
dzeniami we/wy do optyma- 
lizowania przepływu da- 
nych; może być wyposażo- 
ny w procesor 
A. channei 
N. Kanał (n) 

R. 

karta (płyta) obwodu drukowanego — płyta z materiału 
izolacyjnego, na której wykonano z cienkiej warstwy 
metalu obwód elektryczny i zamontowano układ funk- 
cjonalny w postaci — modułu, karty takie zaopatrzone w 
elementy styków wsuwane są (bezpośrednio lub w pa- 
kietach czy kasetach) np. do szyn konsoli i (lub) gniazd 
wtykowych 

A. printed Circuit board (card) 

N. Kartę mit gedrukter Schaltung (f), gedruckte Lei- 
terplatte (f), Kartenbaugruppe (f), Platine (f) 

R. MO/iyjib (miacTHHica) c nenaTHbiM mohtbjkom, nenaT- 
Haa miaTa 

karta wtykowa — karta (płyta) obwodu drukowanego z 
układem funkcjonalnym w postaci wsuwki o znormali- 
zowanych gabarytach (np. Eurocard 160X112X84) 

A. plug-in (circuit) card 

N. steskbare Schaltungskarte (f), Einsteckkarte (f), Eins- 
chub (f). Kartę (f), Platine (f) 

R. cbeMHafl KapTa 

kaseta — wsuwka, oprawka (element zbiorczy) stosowa- 
na w systemach kasetowych pamięci i w budowie modu- 
łowej układów 

A. cassette, stacker, casket 
N. Kasette (f) 

R. KacceTa 

kaseta taśmy magnetycznej — tani system pamięci ze- 
wnętrznych o dostępie sekwencyjnym (stosunkowo 
wolnym) 

A. cartridge, magnetic — tape casette (casket) storę 
N. Magnetbandkassette (f), Magnetbandkassetten- 
speincher (m) 

R. KacceTa MarHHTHofi jtchtu 

kasownik pamięci — przyrząd służący do kasowania pa- 
mięci reprogramowalnych, należy do — sprzętu pomoc- 
ni czo- projektowego 
A. erasel head 
N. PROM-Lóschgerat 
R. 

klawiatura — składa się z klawiszy funkcyjnych i klawiszy 
danych (literowych i cyfrowych) 

A. keybord 
N. Tastatur (f) 

R. KjiaBHaTypa 

kod — system umownych znaków (sygnałów) umożli- 
wiający przedstawienie określonych informacji w sposób 
jednoznaczny i odpowiedni do danego celu; w kompu- 
terze każda informacja (instrukcja) musi być kolejno ko- 
dowana (język programowania — asemblery — kompila- 
tory — interpretery) aż do możliwości jego przyswojenia, 
tj. rozpoznawania tylko dwóch stanów (0 — 1; L — H;* 
przepływ prądu lub jego brak) 

A. codę 
N. Kodę (m) 

R. koh 

kod BCD — BINARY CODED DECIMAL - kod dwuwar- 
tościowy dla cyfr dziesiętnych 

kod dziesiętno-binarny — kod dwuwartościowy dla cyfr 
dziesiętnych 

kod binarno-dziesiętny — kod dwuwartościowy dla cyfr 
dziesiętnych 
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kod dwuwartościowy dla cyfr (liczb) dziesiętnych — 

kod, w którym stosuje się sygnały w postaci dwuwartoś- 
ciowej (binarnej, bo praktycznie tylko takie mogą być w 
układach cyfrowych stosowane), w której to zakodowa- 
ne są poszczególne cyfry (pozycje) a nie całe liczby zapi- 
su dziesiętnego. Na każdą cyfrę (pozycję) przeznacza się 
grupę czterobitową (tetradę) o wartości (wadze) po- 
szczególnych pozycji stanowiących kolejne wartości po- 
tęgi o podstawie 2, a więc np 8 — 4 — 2 — 1 (stąd niesłuszne 
częste utożsamianie kodu BCD z kodem „8 4 2 1", a jest 
to tylko jedna z wersji kodów BCD) 

A. binary coded decimal codę, binary-decimal codę, 
decimal binary codę, BCD-code 
N. Binarcode fur Dezimalziffern, Binar-Dezimal-Co- 
de (m), Dezimal-Binar-Code (m), BCD — Codę (m) 

R. flBOHHHO-flecSTHHHblH KOA 

kod dziesiętny - zapis dziesiętny 
kod EBCDI, KOI-8 — rozszerzony 8-bitowy — kod 
BCD, do kodowania znaków alfanumerycznych, stoso- 
wany w sprzęcie IBM, podobny do kodu ASCII 
A. EBCDI — codę, extended binary coded decimal 
interchangecode 
N. EBCDI — Codę, EBCDIC 

R. paCWHpeHHblH ABOHHHO-AeCHTHHHblH KOA OÓMeHa 
kod heksadecymalny — kod dwuwartościowy (binarny 
wykorzystujący — zapis szesnastkowy (o podstawie 16) w 
celu skrócenia długości zapisu słów binarnych przy wy- 
korzystaniu 16 cyfr, tj. 0...9, A=10, B=11, C=12, D=13, 
E=14, F=15 umieszczonych na pozycjach, którym przy- 
porządkowano kolejne potęgi liczby 16. 

A. hexadecima! (sedecimal) codę, hex codę 
N. hexadezimal (sedezimal) Kodę (m) 

R. mecTHaiiuaTepHHHbiH koa 

kod mnemotechniczny — kod uwzględniający zasady 
mnemotechniki, tłumaczenie k.m. na kod komputera 
dokonywane jest w translatorach 
A. mnemonic codę 
N. mnemotechnischer Kodę (m) 

R. MHeMOHHHeCKHH KOA 

kod operacji — część kodu rozkazowego (część opera- 
cyjna) określająca rodzaj przewidzianej do wykonania 
operacji 

A. operation codę, opcode 

N. Operationskode (m), Befehlokode (m), Operations 
— (Befehls) Schlussel (m) 

R. koa onepauHH 

kod wewnętrzny — kod wewnętrzny (maszynowy) 
komputera 

kod wynikowy — kod docelowy, czyli ostateczna forma 
przedstawiania rozkazów komputera, w jakiej je może 
akceptować dany mikrokomputer (komputer), a przy- 
najmniej jego program ładowania, tzn. mogą one być 
zakodowane w postaci ciągów 0/1 (zero-jedynkowych) 
A. object codę 
N. Objektkode (m) 

R. 'oó-beKT koa 

kody ISO — odpowiadają standardowi ISO, jak np. KOI- 
-7 stosowany w komputerach JS i IBM (7 — bitów infor- 
macyjnych 8 — ścieżka ma znak parzystości (lub kod 
ISO) R 111 z września 1969 r. i 150/R840 z października 
1968 r. stosowane głównie w układach sterowania cyf- 
rowego np. OSN 
A. ISO — codę 
N. ISO — Codę (m) 

R. koa HCO 
kolumna — stos 

komentarz — objaśnienia (słowa, znaki) zawarte w 
programie (opracowanym w języku typu asembler) służą 
wyłącznie do jego objaśnienia a nie stanowią rozkazów, 
instrukcji, czy makrorozkazów do mikrokomputera 
(komputera) i są przez niego ignorowane 


A. comment 
N. kommentar (m) 

R. KOMMeHTapHH 
kompatybilność — wymień ność 

kompilator — 1. translator programu opracowanego w 
języku problemowo zorientowanym tworzący program 
w kodzie komputera (jednoetapowo) lub w języku 
asembler, a następnie przeprowadza się translację na 
program w kodzie komputera (wieloetapowo); 2. układ 
do kompilacji (na ogół z wykorzystaniem mikroproceso- 
ra) 

A. 1. compiler, compiling program 
2. compiler 

N. 1. Kompilierer (m), Compilierer (m) 

2. Compiler (m), Ubersetzer (m) 

R. TpaHCAHTOp, KOMITHASTOp 

kompilator skrośny — kroskompilator 

kompleksowo skomputeryzowane wytwarzanie, CIM — 

elastyczne kompleksy wytwórcze 

komputer — zestaw urządzeń (lub urządzenie) o progra- 
mowalnej pamięci do przetwarzania danych, które po 
wprowadzeniu do pamięci programu oraz danych 
przetwarza je wg programu w sposób automatyczny bez 
potrzeby ingerencji człowieka. (Charakter tego opraco- 
wania nie pozwala jednak nawet na ogólną charaktery- 
stykę — uwzględniającą budowę, przeznaczenie, spo- 
sób działania itd. — wszystkich odmian tego sprzętu). 
Przyjęty podział główny, to: 

a) z uwagi na sposób działania: 
komputer analogowy 

A. analog Computer 
N. Analogrechner (m) 

R. aHaAoroBaa BbłHHCAHTeAbHaa MauiHHa 
komputer cyfrowy 
A. Digital Computer 
N. Digitalrechner (m), Digitalanlage (f) 

R. AH^poBaa BbiHHCAHTeAbHaa MauiHHa 

b) z uwagi na podstawowe dziedziny zastosowań: 
komputer do przetwarzania danych, k. do EPD 

A. data processing Computer (machinę) 

N. Datenverarbeitungsanlage (f), DVA, EDVA, Daten- 
verarbeitungsmaschine (f) 

R. MauiHHa AJia o6pa6oTKH A aHH bix 
komputer do obliczeń naukowo-technicznych 
A. scientific and engineering information processing 
Computer 

N. wissenschaftlicher Rechner (m) 

R. MauiHHa fln a o6pa6oTKH HayHHO-TexHHHecKOH hh- 
(JlOpMaUHH 

komputer do sterowania procesów, k. sterujący (kon- 
trolno-sterujący) 

A. process control Computer 
N. Prozess(leit)rechner (m) 

R. 

A. Computer 

N. Rechner (m), Rechenanlage (f), Computer (m) 

R. BblHHCAHTeAbHaH MaiUHHa, BblHHCAHTe.lbHOe yeTpOH- 
CTBO, 3BM (3A3KTpOHHa« BblHHCAHTeAbHaa MauiHHa) 
komputer biurowy, osobisty — w pełni samodzielny 
mikrokomputer zbudowany najczęściej w postaci jed- 
nego bloku (jednostki) dzięki zastosowaniu obwodów 
scalonych o wysokim stopniu integracji. W niektórych 
zastosowaniach ustępuje komputerom tradycyjnym (po- 
l jemnością pamięci wewnętrznej, szybkością operacji), w 
innych je przewyższa (bezpośredniość dostępu i opro- 
gramowania pod użytkownika — stąd przymiotnik 
„osobisty", prostota wykonania — stąd niska cena). 
Główne przeznaczenie, to zastosowanie do prac inżynier- 
skich (wyższy stopień kalkulatorów biurowych), w syste- 
mach testujących i sterujących, do emulacji różnych 




procesów i systemów, może być również wykorzystywa- 
ny jako terminal w dużych systemach komputerowych. 
Składa się, poza systemem wewnętrznym, na ogół z 
urządzeń we/wy, plotera i ekranu monitorowego 
A. Office desktop Computer, personal Computer, PC 
N. Tischrechner (m) 

R. 

komputer wspomagający, komputer gościnny — kom- 
puter wspomagający (cross support) opracowanie i te- 
stowanie programów do innych komputerów 
A. host Computer 
N. Cast-computer (m) 

R. 

komputerowe wspomaganie projektowania (konstruo- 
wania) — automatyzacja prac projektowych, komputery- 
zacja projektowania; projektowanie wspomagane kom- 
puterowo można podzielić na dwa poziomy wynikające 
z rodzaju sprzętu komputerowego, jakiego wymaga 
rozwiązanie zadania projektowego: 1. typowe oblicze- 
nia inżynierskie do zadań dających się ująć w stosunko- 
wo proste algorytmy i nie wymagających zbyt obszer- 
nych pamięci operacyjnych, wykonywane na tzw. kom- 
puterach biurowych lub osobistych (mini- lub mikro- 
komputery); 2. zadania wymagające dużych pamięci 
i/lub specjalnego oprogramowania (software, firmwarę), 
jak również wymagające rozległej wiedzy, metod i tech- 
nik komputerowych, np. modelowanie, symulacja i op- 
tymalizacja w projektowaniu układów scalonych bardzo 
wielkiej skali integracji lub konstruowaniu części o zło- 
żonych kształtach, gdzie tzw. ręczne projektowanie 
jest zbyt czasochłonne, a przede wszystkim za małe do- 
kładne. Zadanie takie rozwiązuje się za pomocą du- 
żych, o rozbudowanej peryferii komputerów. 

A. Computer Aided Design, CAD, Computer Aided 
Engineering, CAE 

N. rechnerunterstutzter Entwurf (m), — Konstruktion 

(0 

R. 

komputerowe wspomaganie produkcji — sterowanie 
produkcji za pomocą komputera, obejmuje zarówno 
techniczne przygotowanie produkcji (planowanie: 
technologiczne, produkcyjne, zaopatrzenia materiało- 
wego, narzędziowego itd.), jak i sterowanie procesem 
przebiegu produkcji (rozdzielnictwo robót, transport 
wewnętrzny, nadzór stanu technicznego maszyn i urzą- 
dzeń, kontrola jakości, informacja i rejestracja przebiegu 
produkcji), a docelowo przejście na całkowicie zauto- 
matyzowane — elastyczne kompleksy wytwórcze, tzw. 
fabryki bezzałogowe. 

A. Computer Aided Manufacturing, CAM 
N. rechnerunterstiitzte Fertigung (f) 

R. 

komputerowe wspomaganie projektowania i produkcji 

— połączenie projektowania i sterowania produkcji 
(CAD i CAM) w jeden kompleksowy system kompute- 
rowy 

A. CAD/CAM, CADAM 
N. CAD/CAM, CADAM 
R. 

konfiguracja — zestaw (układ) sprzętu komputerowe- 
go (hardware) do określonych zadań, ale również jego 
wydajność i możliwości funkcjonalne, możliwości roz- 
budowy itd. W odniesieniu do mikrokomputerów kon- 
figuracja wynika częściowo z ich architektury 
A. configuration 
N. Konfiguration (f) 

R. KOH4)nrypauHH 

końcówka — urządzenie końcowe 
konsola — 1 . wydzielony pulpit operatora zwany też 
pulpitem sterowania, na ogół z monitorem operatora; 2. 
wspornik zespołów i elementów. 


A. console 

N. Konsole (f), Bedienungskonsole (f) 

R. KOHCOJlb 

kopia zawartości pamięci — 1. kopia lub wyciąg zawar- 
tości pamięci; 2. proces wykonywania kopii lub wyciągu 
pamięci 

A. dump, dumping 
N. Dump 
R. nepe3anncb 

korezydentne — programy korezydentne 
kontroler — sterownik, programator, patrz też: — pro- 
gramowalne układy sterowania oraz — podział funkcjo- 
nalny mikroprocesorów 
koordynatograf — urządzenie rysujące 
koprocesor arytmetyczny — NDP 
kostka — 1. popularna nazwa jednego („jednostki”) 
układu scalonego, w ścisłym znaczeniu o kostkach mówi 
się tylko w pewnej fazie produkcji półprzewodnikowych 
układów scalonych, przy cięciu większych płytek (ang. 
wafer) na poszczególne kostki; 2. kompletny mikro- 
układ zamknięty w obudowie 
A. chip 
N. Chip (m) 

R. mm 

kość — kostka 

krosasembler, asembler skrośny — program, którym do- 
konuje się asemblowania programów z przeznaczeniem 
do innych mikrokomputerów (komputerów) niż ten, na 
którym je asemblowano 
A. cross — assembler 
N. Cross — Assembler (m) 

R. Kpocc — acceMÓJiep 

kroskompilator, kompilator skrośny — przeznaczenie 
jak — krosasemblera, lecz do języków programowania 
problemowo zorientowanych 
A. cross — compiler 
N. Cross — Compiler (m) 

R. Kpocc — KOMIIHjIHTOP 

kumulacja — kumulowanie danych 
kumulowanie danych — redukowanie pojedynczych 
informacji do treści istotnej w dalszym przetwarzaniu 
lub wykorzystaniu, stosowane do zaoszczędzenia miejs- 
ca w pamięci lub bardziej skoncentrowanego informo- 
wania osób 

A. data reduction 

N. Datenverdichtung (f), Verdichtung (f), Datenre- 
duktion (f) 

R. cwanie (yimoMHeHHe) naHHbix 



LCD — Liquid Cristal Dis- 
play — wskaźnik ciekłokry- 
staliczny 

LED — Light Emitting Dio- 
dę — dioda elektrolumines- 
cencyjna 

liczba binarna stałoprze- 
cinkowa — liczba binarna 


przedstawiona w postaci bitów znaków i bitów cyfr, przy 
przetwarzaniu w systemie l.b.s. interpretacja miejsca 
przecinka należy wyłącznie do programisty, komputer w 
tym wypadku nie wyróżnia części całkowitej i ułamko- 
wej. 

A. fixed point binary number 

N. binare Festkommazahl (f), Festpunktzahl (f) 

R. ÓHHapHoe hhcjio. (JjHKCHpoBaHHas 3anHTaa 

liczba binarna zmiennoprzecinkowa — liczba binarna. 
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która przedstawiona jest w zapisie „logarytmicznym" ty- 
pu 2 W • m w postaci wykładnika W zwanego cechą i man- 
tysą m. Przy przetwarzaniu l.b.z. miejsce przecinka 
komputer uwzględnia automatycznie 
A. floating point binary number 
N. binare Gleitkommazahl (f) 

R. ÓHHapHoe hhcjio c njiuBaFomeR 3anaTOH 
licznik programu — rejestr rozkazów — licznik służą- 
cy do tworzenia i przechowywania adresu komórki pa- 
mięci, w którym znajduje się kolejny rozkaz przezna- 
czony do realizacji 

A. program counter PC, instruction counter, com- 
mand counter 

N. Befehlszahler (m), Programm(schritt)zahler (m) 

R. CHeTHHK nporpaMMbi (komiha) 

UFO — (memory) — Last in First Out — (memory) 

— pamięć kolumnowa pracująca na zasadzie logicznej 

— stosu 

lista — 1. lista adresów (lista indeksowa) danych w pa- 
mięci, znajduje się w pamięci operacyjnej (A. directory, 
supscript list, N. Adressbuch (n), lndexlista (f)); 2. tablica 
adresów (lista adresów) języka programowania (A. ad- 
resstable, N. Adressentafel (f)); 3. lista zbiorów danych 
(A. data file directory, N. Datenverzeichnis (n), Dateiver- 
zeichnis (n)) 

A. directory 
N. Verzeichnis (n) 

R. orJiaBJieHHe, ciihcok 

LISP — LISŁ Processing language — język programo- 
wania LISP 

lista rozkazów — spis repertuaru rozkazów wraz z ich 
opisem 

A. instruction list, order list, command list 
N. Befehlsliste (f) 

R. ciihcok KOMaru, cocraB KOMana, oihcok HHcrpyKUHH 
logiczne układy podstawowe — układ elementarny 
Imp — linę per minuts — wierszy (linii) na minutę 
Ips — linę per seconds — wierszy (linii) na sekundę 
LPS — Low Power Schottky — tranzystor (dioda) 
Schottky'ego małej mocy 

LSB — Least Significant Bit — bit najmniej znaczący 
LSI — Large Scalę Integration — integracja wielkiej 
skali 

LSM — Low — Speed — Moden — układ towarzyszący 


ładowanie — wprowadza- 
nie programu lub danych 
do pamięci komputera 
A. loading 
N. Laden (n) 

R. 3arpy3Ka, Harpy3Ka 



ładowacz pamięci trwałej — urządzenie do wprowa- 
dzania programu do pamięci stałej programowalnej 
(PROM), ł.p.t. należy do sprzętu pomocniczego-projek- 
towego — urządzenie do programowania 
A. programer, memory loading device 
N. Programmer (m), Speicherladungsgerat (n) 

R. nporpaMMep 



magistrala — zespół elemen- 
tów lub układów logicznych 
i linii przesyłowych, do któ- 
rych przyłącza się kilka na- 
dajników i/lub odbiorników 
celem umożliwienia wza- 
jemnego przesyłania (ko- 
munikacji) informacji cyf- 
rowych 


A. bus, highway 
N. Bus (m) 

R. MarHCTpajib (LUHHa) 

magistrala adresowa — magistrala mikrokomputera 
(komputera), po której przesyłane są adresy 
A. address bus 
N. Adressbus (m) 

R. MarHCTpajib a^peca 

magistrala danych — magistrala mikrokomputera 
(komputera), po której przesyłane są dane 
A. data bus 
N. Datenbus (m) 

k. HH(J)OpMaUHOHHaS JIHHHfl ( LUHHa, MarHCTpajib) 
makro — zamknięty odcinek programu lub sekwencja 
rozkazów (często mylone z makrorozkazem) w języku 
typu asembler, której się nie pisze lecz przywołuje (wy- 
wołuje makro), definicje m. i wywołania zawarte są w 
programie źródłowym, natomiast w trakcie asemblowa- 
nia asembler makro zastępuje je odpowiednimi sekwen- 
cjami rozkazów 
A. macro 
N. Makro (m) 

R. MaKpo 

makroasembler — asembler makro, patrz też — makro 
manipulator — 1 . urządzenie do ręcznego manipulo- 
wania, 2. program do kontroli i sterowania urządzeniami 
peryferyjnymi, 3. urządzenie do pomiarów i testowania 
układów scalonych — tester, 4. manipulator drążkowy, 
sterownik do sterowania ruchem figur w grach lub 
wskaźnika piszącego (rysującego) na monitorze ekra- 
nowym, 5. sterownik kursora na ekranie monitora 
A. 1. i 2. handler 

3. prober, 4. joystick, 5. mouse 
N. 1. Handler (m), Manipuliervorrichtung (f) 

2. Hantierer (m), Steuerungsprogram (n) 

3. Prober (m), 4. Steuerknuppel (m) 

5. Maus (f) 

R. MaHHFiyJLHTOp 

maska — 1. układ bitów lub znaków, który steruje eli- 
minowaniem jednej części a zachowaniem (w pamięci 
lub w programie) innej części znaków maskowanego 
układu znaków, może służyć do eliminowania lub ak- 
ceptowania określonych funkcji, np. — maska przerwań, 
2. płytka z odpowiednią topografią do maskowania, sto- 
sowana w produkcji i do reprogramowania układów sca- 
lonych 
A. mask 
N. Maskę (f) 

R. MacKa 

maska przerwań — wewnętrzne słowo sterujące, które 
uzależnione jest programowo i definiuje dla każdego 
przedziału czasowego, jakie z przerwań mają być akcep- 
towane, a jakie ignorowane. 

A. interrupt mask 
N. Interrupt — Maskę (f) 

R. MacKa npepbiBaHHH 
maszyna matematyczna — komputer 
MCCA — Multi Colour Graphics Array — układ grafi- 
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ki wielokolorowej (sterowanie grafiki monitora PS/2) 
MCNC — Micro Computer Numerical Control — mi- 
krokomputerowe sterowanie numeryczne 
MDS — Microprocessor Development System — sy- 
stemy uruchomieniowo rozwojowe. 

Meritum — polski mikrokomputer, który po raz 
pierwszy zaprezentowano publicznie jesienią 1983 r., a 
w następnym roku wyprodukowano ponad tysiąc sztuk 
Meritum I w Zakładach Urządzeń Komputerowych 
„Mera-Elzab" w Zabrzu. Powstały dwie wersje Meritum 
I, a wkrótce — Meritum II, Meritum I wyposażone w 
64kB pamięci RAM oraz polskie znaki na klawiaturze by- 
ło najtańszym dostępnym mikrokomputerem na naszym 
rynku, umożliwiającym pewne zastosowania profesjo- 
nalne. 

metajęzyk — język pośredni służący do opisu innego 
języka i umożliwiający jego użycie, znajduje zastosowa- 
nie w kompilatorach i asemblerach, których makrodefi- 
nicje pozwalają na rozpisywanie makrorozkazów w ciągi 
rozkazów komputera 
A. meta language 
N. Metasprache (f) 

R. MeTa«3HK 

metoda adresowania — charakteryzuje sposób przed- 
stawienia adresów lub metodę szukania argumentów, w 
zasadzie istnieją trzy klasy metod adresowania: bezpoś- 
rednia, pośrednia i względna — adresowanie 
A. addressing modę 
N. Adreseierungsart (f) 

R. anpecauHH MeTo/ia 

metody programowania — techniki programowania, 
czyli podział programowania w zależności od użytych 
środków technicznych w odniesieniu do programowa- 
nia obróbki części na OSN dla przykładu wyróżnić moż- 
na następujące metody: ręczne, wspomagane maszyno- 
wo (zwane też półmaszynowym); maszynowe (zwane też 
automatycznym); podział technik programowania mi- 
krokomputerów patrz pod — mikroprogramowanie 
komputerów pod -mikroprogramowanie 
A. programming technique, programming method 
N. Programmierungsverfahren (n) 

R. MeTOn nporpaMMHpoBaHHH 
MIDI — Musical Instruments Digital Interface — złą- 
cze do elektronicznych instrumentów muzycznych 
mikroarchitektura — architektura mikrokomputera 
A. microcomputer architecture 
N. Mikrocomputerarchitektur (f) 

R. apxHTeKTypa MHKpoKOMnroTepa 
mikro — asembler — asembler mikroprogramowalny 
mikrokomputerów 

A. micro codę assembler — micro language assemb- 
ler 

N. Mikroassembler (m), Assembler fur Mikroprozes- 
sorsysteme 
R. MHKpoacceb.iep 

mikroelektronika — dział elektroniki zajmujący się 
mikroelektronicznymi (ekstremalnie zminiaturyzowa- 
nymi) układami elektronicznymi, realizowanymi w for- 
mie scalonej 
A. microelectronics 
N. Mikroelektronik (f) 

R. MHKpoajieicTpoHHKa 

mikrokomputer — układ scalony, lub zestaw, który pod 
względem funkcjonalnym odpowiada komputerowi, 
zawiera on jednostkę centralną w postaci mikroproceso- 
ra, pamięć programu i danych, system we/wy oraz (co- 
raz powszechniej) urządzenia peryferyjne w postaci 
drukarek, monitorów itd. — podział mikrokomputerów 
A. microcomputer, /iC, mC 
N. Mikrocomputer (m) 

R. MHKpOKOMniOTep, MHKpO-3BM 


mikrokomputer jednostkowy (monolityczny) — mi- 
krokomputer wykonany na jednej płytce półprzewodni- 
kowej zawierającej: mikroprocesor, pamięci RAM i 
ROM, generator zegarowy, układ kontroli przerwań, 
układy we/ wy 

A. single-chip microcomputer, single-board micro- 
computer-all-in-one chips 
N. Einplatinen — Komputer (m) 

R. 

mikrokomputer wspomagający — komputer wspoma- 
gający 

mikrokomputerowe sterowanie numeryczne — stero- 
wanie numeryczne z zastosowaniem mikrokomputerów 
A. MCNC, microcomputer numerical control 
N. MCNC, Microcomputersteuerung (f) 

R. ynpaBjieHHe c mhkpo-3BM 
mikromoduł — modułowy układ przełączający o dużej 
gęstości pakowania (do 20 elementów podstawowych na 
1 cm 3 ) dzięki zastosowaniu półprzewodnikowych ele- 
mentów podstawowych (mikromoduły wypierane są co- 
raz bardziej przez układy scalone) 

A. micromodule 
N. Mikromoduł (m) 

R. MHKpOÓJIOK 

mikroprocesor — 1. układ scalony, który pod wzglę- 
dem funkcjonalnym porównywalny jest z jednostką cen- 
tralną komputera, zawiera jednostkę sterującą (cu) i 
arytmometryczno-logiczną (ALU); 2. popularne okreś- 
lenie każdego sprzętu kontrolnego, sterującego lub do 
przetwarzania danych — opartego na mikroprocesorach 
— podział funkcjonalny m.; jednoznacznych definicji i 
kryteriów podziału m. dotychczas nie opracowano. 

A. microprocessor, fjP, mP, MPU 
N. Mikroprozessor (m) 

R. MHKponpoueccop 

mikroprogram — składa się wyłącznie z mikrorozka- 
zów, definiując w jaki sposób ma być wykonany rozkaz 
komputera 
A. microprogram 
N. Mikroprogram (n) 

R. MHKpowporpaMMa 

mikrooprogramowanie — programowanie sprzętowe 
mikroprogramowanie — 1. przygotowanie albo 2. uży- 
cie mikroprogramów, przy tym ad.1.: może to być a) 
„ręczne" programowanie opierające się na instrukcji z 
użyciem repertuaru mikroprogramów (niezwykle uciąż- 
liwe i na ogół stosuje się cross assemblery lub cross com- 
pilatory) lub b) wspomagane sprzętem pomocniczym, 
ad. 2.: dotyczy użycia oprogramowanych pamięci ROM 
w mikrokomputerze lub rozkładu rozkazów komputera 
na mikrorozkazy * 

A. microprogramming 
N. Mikroprogrammierung (f) 

R. MHKponporpaMMHpoBaHHe 
mikroprogramowalny — przymiotnik sprzętu (np. mik- 
rokomputera, pamięci), który ma możliwość mikropro- 
gramowania 
A. microprogrammable 
N. Mikroprogrammierbar 
R. 

mikrorozkaz — 1. operacja logiczna (mikrooperacja), 
na której rozkładany jest rozkaz komputera w trakcie je- 
go realizacji. 2. rozkaz mikrokomputera, który ten może 
realizować bezpośrednio, ponieważ jest to element jego 
repertuaru rozkazowego ciąg m. stanowi mikroprogram. 
A. microinstruction, microcommand 
N. Mikrobefehl (m) 

R. MHKpoKOManaa 
minidysk — dysk elastyczny 

minikomputer — komputer zbudowany z układów sca- 
lonych, przeważnie o 16-bitowym formacie i rzadko 
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większej pojemności słów od 16 K, typowy do prac obli- 
czeniowych, sterowania procesami i przetwarzania da- 
nych problemów mało i średnio złożonych, jako jed- 
nostka centralna jest bardziej sprawny od systemów mik- 
rokomputerowych; m. są wypierane coraz bardziej 
przez mikrokomputery, które je naśladują, a czasami 
przewyższają 
A. minicomputer 

N. Minicomputer (m), Minirechner (m) 

R. MHHH-3BM, MHHHKOMIllOTep 

miniprocesor — 1. mikroprocesor naśladujący rozwią- 
zania (architektura, lista instrukcji) minikomputerów SSI 
i MSI, 2. modularna jednostka centralna komputera cha- 
rakteryzująca się krótkimi słowami rozkazu i szybkimi 
operacjami podstawowymi. 

A. miniprocessor 
N. Miniprocessor (m) 

R. MHHunpoueccop 

MIPS — Milion Instructions Per Second — milion 
operacji na sekundę — umowna jednostka prędkości 
przetwarzania 

mnemo (tech)nika — 1 . metody i środki służące do 
wspierania pamięci człowieka na zasadzie skojarzeń, 2. o 
nazwie lub skrócie instrukcji (rozkazu) , z której jej (je- 
go) funkcji można łatwo się domyśleć — mówi się, że 
jest „wykonana" w m. 

A. mnemonic 
N. Mnemo (tech)nik (f) 

R. MHeMOTeXHHKa 

modem — urządzenie (galwaniczne — połączone 
trwale lub akustyczne — przykładane do słuchawki tele- 
fonicznej) do modulacji (modulator i demodulator) da- 
nych cyfrowych (sygnałów dyskretnych) w trakcie tele- 
transmisji łączami telefonicznymi 
A. modem 
N. Modem (m) 

R. MoaeM 

moduł — zunifikowany podzespół złożony ze standar- 
dowych elementów podstawowych 
A. module 

N. Moduł (m), Boustein (m) 

R. MOflyji 

moduł mikroprocesorowy — N-bitowy (na ogół 4-bi- 
towy) układ scalony w postaci modułu stanowiący ele- 
ment mikroprogramowalny mikroprocesora, który mo- 
że być rozbudowywany kaskadowo w układy nxN-bitowe 
A. microprocessor element, bit slicemicroprocessor, 
/iPe 

N. Mikroprozessorelement (n). Bit — Slice 
R. MO/iyji (6 jtok) MHKponpoueccopHbiH 
monitor — 1. urządzenie, które zawiera urządzenia 
we/wy i na ogół ekran (— monitor ekranowy), pozwala 
. (łącznie z 2) na obserwowanie, kontrolę, sterowanie i 
weryfikowanie przebiegów przetwarzania; 2. — pro- 
gram — monitor; 3. system operacyjny 
A. monitor, supervisor 
N. Monitor (m) 

R. MOHHTOp 

monitor ekranowy — urządzenie peryferyjne do wpro- 
wadzania i wyprowadzania danych za pomocą ekranu i 
klawiatury, m.e. alfanumeryczne zwane są też alfasko- 
pami, a graficzne — grafoskopami 
A. VDU — Visual Display Unit, display ( — unit, vi- 
deo) CRT-Display (-Terminal), alphanumeric dis- 
play 

N. Datensichtgerat (m), Sicht(anzeige)gerat (m), 
Schirmbildgerat (m), Anzeige (f), Bildschirm (m) 

R. nHcimen 

monitor uruchamiania — program, który jednoczy w 
sobie cechy programu monitora (sterującego) i progra- 


mu usuwania błędów w trakcie — uruchamiania 
A. debug monitor 
N. Debug — Monitor (m) 

R. MOHHTOp OTJia^KH 

MP/C — Multi Point (Control) - sterowanie ciągłe 
MPU — Micro Processing (Processor) Unit — mikro- 
procesor 

MSB — Mest Significant Bit — bit najbardziej znaczący 
multirozkaz — rozkaz wielosłowny 
multisłowo — zbiór symboli o długości odpowiadającej 
wielokrotności długości słowa czy formatu danych 
A. multilength word 
N. mehrstelliges Wort (n) 

R. M CJIOBO MHOrOKpaTHOH flJIHHbl 
/iC — mikrokomputer 
fi? — mikroprocesor 
#iPe — moduł mikroprocesorowy 



nadmiar arytmetyczny — 

liczby przetwarzane nie 
mieszczą się w rejestrach, 
wskaźnikach itp. 

A. arythmetic overflow 
N. arithmetischer Ober- 
lauf (m) 

R. apH(f>MeTHHecKoe nepe- 

nojiHeHHe 


nadmiar — redundacja 

nadzorowanie — śledzenie wykonywania programów 
mikrokomputerowych pod kontrolą programów wyszu- 
kiwania błędów lub symulujących, które wymuszają ta- 
kie działanie, że po każdym wykonanym rozkazie nastę- 
puje wydruk (wyświetlenie) zawartości pamięci 
A. tracę 

N. Verfolgung (f), Ablaufverfolgung (f) 

R. cjiełKeHHe 

NC — Numerical Control — sterowanie numeryczne 
(SN); No Connection — brak połączenia 
NDP — Numeric Data Processor — procesor do 
przetwarzania danych numerycznych 
NOP — No Operation — rozkaz pusty 
nośnik danych — materiał, w którym lub na którym ok- 
reślona zmienna wielkość fizyczna może reprezentować 
dane 

A. data carrier, data medium, recording medium 
N. Datentrager (m), Aufzeichnungstrager (m), Spei- 
chermedium (n) 

R. HOCHTejib ^aHHbix (3ariHceH) 
notacja dziesiętna — zapis dziesiętny 



obliczanie adresu — działa- 
nia arytmetyczne na adresach 
lub częściach adresów ce- 
lem uzyskania — adresu 
aktualnego 


A. address arithmetic 
N. Adressrechnung (f) 

R. cocHHTaHHe a,apeca 
obróbka danych — przetwarzanie danych 
obszar pamięci danych — obszar pamięci przewidziany 
lub zarezerwowany dla danych 




A. data area 
N. Datenbereich (m) 

R. o6jiacTb (30Ha) AaHHbix 

obszar pracy (roboczy) — obszar pamięci systemu mik- 
rokomputerowego, z którym mikroprocesor przeważnie 
współdziała 
A. working space 
N. Arbeitsbereich (m) 

R. 

obszar wprowadzania pierwotnego — obszar pamięci 
stale zajęty przez (lub zarezerwowany na) program wpro- 
wadzania pierwotnego 
A. bootstrap are 
N. 

R. 

obwód logiczny — obwód zbudowany z elementów 
podstawowych, którego działanie można opisać za po- 
mocą operacji logicznych pod względem funkcjonal- 
nym. O.l. może być identyfikowany z — układem logi- 
cznym 

A. logie (al) Circuit 

N. logische Schaltung (f), logische Verknupfung (f), 
Logikschaltung (f) 

R. jiorHHecKaa cxeMa 

obwód przełączający — logiczna jednostka przełącza- 
jąca złożona z elementów podstawowych. Pod wzglę- 
dem funkcjonalnym o.p. może być identyczny z ele- 
mentami (ub układami przełączającymi 
A. switching circuit 

N. Schaltkreis (m), Schaltungsverknupfung (f) 

R. 

obwód drukowany, p.c. — printed Circuit — karta ob- 
wodu drukowanego 
obwód scalony — układ scalony 

ochrona pamięci — cecha mikrokomputera (kompute- 
ra) zapobiegająca przypadkowym zapisom lub odczy- 
tom w określonych obszarach pamięci operacyjnej 
A. memory protection 
N. Speicherschutz (m) 

R. 3amnTa naMHTH 
opcja — wariant 

operacja — umownie wyróżniona czynność, np. czyn- 
ność komputera określona za pomocą pojedynczego 
rozkazu 
A. operation 
N. Operation (f) 

R. onepauHH 
operand — argument 

operator — 1 . obsługujący sprzęt komputerowy, obra- 
biarkę sterowaną numerycznie, itp.; 2. część (symbol) 
zależności matematycznej, która określa jak daną opera- 
cję mat. wykonać 
A. operator 

N. Operator (m), Bediener (m) 

R. onepaTop 

opis pola — dane o ukształtowaniu (formatu, długości, 
organizacji, zawartości) określonego pola 
A. field discription 
N. Feldbeschreibung (f) 

R. onHcaHne nojifl (30Hbi, MaccuBa) 
oprogramowanie — software, pojęciem tym określa się 
wszystkie rodzaje programów i dokumentacji przynale- 
żnej, dostarczanej przez producenta sprzętu 
A. software, immaterial ware 
N. Software (f), immaterial Ware (f), Weichware (f) 

R. cotjmep 

oprogramowanie mikroprogramowe - oprogramo- 
wanie sprzętowe 

oprogramowanie sprzętowe — oprogramowanie stan- 
dardowe stanowiące stały składnik sprzętu, np. progra- 


my zawarte w pamięciach typu ROM (w tym również 
postaci mikroprogramów) 

A. firmware 

N. Firmware (f), Festware (f), Standardsoftware (f) 

R. onporpaMMupoBaHHe xap/iBepoBe 
opróżnione — stan pamięci (rejestru) po przetworze- 
niu danych (zrealizowaniu programu) 

A. empty 

N. leer, abgearbeitet 
R. nycTOH 

OS/2 — Operating System/2 — system operacyjny PS/2 
OSN — obrabiarka sterowana numerycznie 
A. numerical control machinę, NC machinę 
N. numerisch geteuerty Maschine (f), NC Maschine (f) 
R. UHtJjpoBoe (HHcjioroBbie) ynpaBJieHiie [Yliy] CTaHKa 
overlay — 1. metoda podziału programu na segmenty 
w celu lepszego wykorzystania pamięci (wczytuje się je 
metodą nakładania, tzn. kiedy jeden segment stopniowo, 
opróżnia pamięć, na to miejsce wczytuje się następny) 
2. nakładane segmenty programu, 3. nakładkowe prze- 
twarzanie instrukcji 
A. overlay 

1. operating system, 

2. program part in the memory, 

3. pipelinning overlap 

N. Uberlagerung (f), Ciberlappung (f), Oerlay 

1. Betriebssystem overlay 

2. Uberlagerungssegment, 

3. Uberlappung 

R. oBepjieH, nepeKpbiTHe, cynepno3HU«H 
oznacznik zgodności — bit lub inny znak wskazujący 
na spełnienie warunku 
* A. tag 

N. Kennzeichen (n), Markierung (f) 

R. MeTOK, npH3HEK 


PA - PLA 

pakiet — 1 . zestaw kart 
obwodów drukowanych 
określonego standardu (np. 
European standard size p.c. 



board) stosowany w budowie modułowej układów; 
2. pakiet programów przeznaczonych do określonego 
komputera lub do rozwiązania określonego problemu 
A. 1. fiat (-pack) subassembly 
2. software package 
N. 1. Flachbaugruppe (f) 

2. Programmpacket (n) 

R. naiceT 

pakowanie danych — zapisywanie danych w pamięci 
komputera w sposób zwarty (patrz też: upakowany, 
format upakowany, gęstość upakowania, kumulacja da- 
nych) 

A. packing 
N. Packen (n) 

R. ynaKOBKa ztaHHbix 

PAL — Programmable Array Logic — programowalne 
układy logiczne 

pamięć — układy i środki do przechowywania informa- 
cji w określonym czasie i udostępniające je, bez zmiany 
ich treści, na każde odpowiednio określone żądanie 
A. storę, storage, memory 
N. Speicher (m) 

R. naMHTb 
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pamięć danych — pamięć, w której przechowuje się 
wyłącznie dane w mikrokomputerze realizowane przez 
pamięć RAM 
A. data storage 
N. Datenspeicher (m) 

R. naMHTb ans ^aHHbix 

pamięć domenowa, pęcherzykowa — pamięć pół- 
przewodnikowa (typu RAM lecz o stopniu trwałości ty- 
pu ROM), działająca na zasadzie efektu pęcherzyków 
magnetycznych, o architekturze blokowej (np. 2048 
stron po 512 bitów) z sumaryczną pojemnością np. 

1 Mbit 

A. Bubble (domains) Memory, BM 
N. Magnetblasenspeicher (m), Blasenspeicher (m) 

R. 

pamięć dyskowa — zewnętrzna pamięć na -* dysku 
A. magnetic disc memory, magnetic disc storę 
N. Magnetplattenspeicher (m) 

R. 

pamięć ferrytowa — pamięć rdzeniowa 
pamięć kolumnowa — LJFO 

pamięć laserowa — urządzenie, w którym zapis i od- 
czyt odbywa się za pomocą promieni laserowych (duża 
szybkość — 300 tys. znaków na sekundę, trwałość i gę- 
stość zapisu — pojemność około 500 MB (p.l. jest stoso- 
wana w mikrokomputerach w postaci — CD 
pamięć magnetyczna rdzeniowa — pamięć rdzeniowa 
pamięć masowa — bliżej nie sprecyzowane określenie 
pamięci o dużych możliwościach, nazwy tej używa się 
często do określenia pamięci zewnętrznych 
A. mass storage, bulk storage 
N. Massenspeicher (n) 

R. 3anOMHHaK)IHHe yCTpOHCTBO óojiuioh eMKOCTH 
pamięć nietrwała — pamięć, w której przechowywane 
informacje zanikają po wyłączeniu zasilania 
A. volatile story (memory) 

N. fluchtiger Speicher (m) 

R. naMHTb c pa3pyuieHneM KHtjjopMauHH (npH 
BbIKJIKłMeHHH nHTaHHfl) 

pamięć „notatnikowa” — pamięć małej pojemności lub 
tylko obszar pamięci lub rejestrów jako baza do prze- 
chowywania wyników pośrednich 
A. scratch pad memory 
N. Notitzblock-Speicher (m) 

R. TiaMHTb-6jlOKHOT 

pamięć operacyjna — pamięć typu zapis/odczyt o 
dostępie swobodnym (bezpośrednim) do programów, 
wyników pośrednich, ewentualnie danych, z którą 
współpracuje głównie jednostka centralna 

A. main storage, operating storage, working storage, 
main memory, central storage, generai storage, primary 
storage 

N. Hauptspeicher (m), Arbeitsspeicher (m), Primar- 
speicher (m) Zentralspeicher (m) 

R. ocHOBHaa naMHTb, onepaTHBHoe 3anoMHHaioinee yc- 
TpOHCTBO 03y 

pamięć pęcherzykowata — pamięć domenowa 
pamięć półprzewodnikowa — pamięć w postaci pół- 
przewodnikowych układów scalonych, o dużych i ciągle 
rosnących pojemnościach w jednym układzie (1983 r. — 
64 k; 1986 r. — 256 k: w opracowaniu pamięci RAM wy- 
konywana metodą litografii laserowej — 16 MB) 

A. semiconductor storage, semiconductor memory 
N. Halbleiterspeicher (m), mikroelektronischer Spei- 
cher (m) 

R. nojiynpoBonHHKOBaH naMHTb 
pamięć programu — pamięć (lub obszar pamięci), w 
której przechowuje się wyłącznie programy 
A. program storage 
N. Programmspeicher (m) 

R. 3anoMHHaHHeTiporpaMMbi 


pamięć robocza — pamięć operacyjna lub zarezerwo- 
wana przez program część pamięci 
A. working storę, working memory 
N. Arbeitsspeicher (m) 

R. paóonee 3anoMHHaiomee ycrpoiłcTBO 
pamięć rdzeniowa — pamięć o bezpośrednim i stosun- 
kowo szybkim dostępie, zbudowana z rdzeni ferryto- 
wych 

A. core memory, magnetic core storage, ferrite stora- 
ge 

N. Kernspeicher (m), Magnetkernspeicher (m) Ferrit- 
speicher (m) 

R. 3anoMnHaiomee ycrpoficTBO Ha 4>eppnTOBbix cepne- 
HHHKax 

pamięć trwała — urządzenie do przechowywania in- 
formacji niezanikających przy wyłączeniu zasilania 
A. non-volatile storę (memory) 

N. nichtfliichtiger Speicher (m) 

R. nocTOHHHan naMHTb 

pamięć ulotna — urządzenie do przechowywania in- 
formacji zanikających po wyłączeniu zasilania 
A. velatile storę 
N. fluchtiger Speicher (m) 

R. HenocTOHHHan naMHTb 

pamięć wirtualna — pamięć nominalna, obszar pamięci 
wyznaczany programem, wykorzystywany jak pamięć 
operacyjna działająca na zasadzie tzw. stronicowania 
A. virtual story 
N. Wirtueller Speicher (m) 

R. BHpTyajTbHHH naMHTb 

pamięć zewnętrzna — każda pamięć, która nie jest pa- 
mięcią operacyjną 

A. peripheral storage (device), externa! storage 
N. peripherer Speicher (m), externer Speicher (m), 
aiisserer Speicher (m) 

R. nepH^epHHHan (bHeuiHHH) naMHTb 
PC — 1. Programmable Controller — programowalny 
sterownik (układ sterowania) — PLCs; 2. Programmcoun- 
ter — licznik programu; 3. Personal Computer — podział 
mikrokomputerów 

PCB — Printed Circuit Board — płytka (karta) obwodów 
drukowanych 

PCU — Program Contro! Unit — jednostka sterująca 
pętla rozkazów — ciąg rozkazów, który jest tak długo 
wykonywany aż spełniony zostanie warunek przerwania 
(skoku warunkowego) 

A. loop 

N. Schleife (f), Befchlsschleife (f) 

R. neT;iH 

PCC — Profesional Graphic Controler — sterownik pro- 
fesjonalny grafiki 

PIA — Peripheral Interface Adapter — zunifikowany 
moduł mikrokomputera zapewniający łączność we/wy 
pomiędzy mikroprocesorem a urządzeniami peryferyj- 
nymi 

pisak cyfrowy — urządzenie rysujące 

pixel — picture element — element obrazu (najmniejsza 

jego cząstka) 

pióro świetlne — urządzenie do współpracy operatora z 
komputerem przez monitor ekranowy — grafoskop 
A. Loght pen 

N. Lichtgriffel (m), Lichtstift (m) 

R. uBeTOBoe nepo 

PL/1 — Programming Language 1 — język programowa- 
nia zorientowany problemowo, dostosowany do roz- 
wiązywania zarówno problemów gospodarczych, jak i 
naukowo-technicznych (uniwersalny) 

PL/M — Programming Language for Microcomputers — 
bazujące na PL/1 języki programowania mikrokompute- 
rów 

PLA — Programmable Logic Array — programowalne 


zespoły logiczne w postaci układów scalonych oparte na 
pamięci ROM 

PLCs — Programmable Logic Controllers — programo- 
walne sterowniki logiczne — programowalne układy ste- 
rowania 

ploter — urządzenie rysujące 

płytka obwodu drukowanego — karta obwodu druko- 
wanego 

PMC — Programmable Machin Control — - układ stero- 
wania maszyn (obrabiarek) typu CNC (Computeriesed 
Numericale Control) z możliwością dostosowania do 
różnych typów obrabiarek i zadań technologicznych 
przez wczytanie odpowiedniego programu do pamięci 
stałej 

N. programmierbare Maschinensteuerung (f) 

R. nporpaMHoro ynpaBjieHHH yny 
podprogram — program, który może być włączony do 
różnych programów lub może być przywoływany kil- 
kakrotnie w tym samym programie, p. może być otwarty 
(„open") i stanowić tylko fragment programu lub zam- 
knięty („closed”) i stanowić odrębną całość programu 
A. subroutine 
N. Unterprogramm (n) 

R. noflnporpaMMa 

podprogram przerwania — podprogram, który zostaje 
włączony i zrealizowany w wypadku wystąpienia — 
przerwania 

A. interrupt-service routine, interrupt handler 
N. Interrupt-Unterprogramm (n), Unterbrechungs 
behandlungs-programm (n) 

R. npepbiBapomaa noanporpaMMa 

podręcznik — 1. popularne określenie instrukcji, przeję- 
te z języka angielskiego, np. instrukcja programowania 
— podręcznik programowania (programming manuał), 
instrukcja użytkowania (user manuał); 2. popularne ok- 
reślenie opisu (dokumentacji) kompleksowych progra- 
mów 

A. manuał 
N. Handbuch (n) 

R. KHHra onncaHHs nporpaMMbi 
podręcznik programowania — podręcznik zawierający 
instrukcję oprogramowania mikrokomputera (kompute- 
ra) 

A. programming manuał 
N. Programmierungsbuch (n) 

R. KHHra nporpaMMHpoBaHHH 
podręcznik użytkowania — podręcznik opisujący spo- 
sób użytkowania mikrokomputera (komputera) nie- 
zbędny przy projektowaniu systemów cyfrowych opar- 
tych r.a mikroprocesorach 
A. user manuał 
N. Anwendungsbuch (n) 

R. KHHra nojib30BaTejis 

podwójna precyzja — oznacza, że do przedstawienia 
argumentu lub wyniku użyta zostanie podwójna długość 
słowa lub formatu danych 

A. double precision, double precision arithmetic 
N. doppelte Genauigkeit (f), doppelte Genaue 
Arithmetik 

R. ^BOHHafl npeUH3HHHOCTb 

podzespół — układ składający się z wielu — układów 
elementarnych, wchodzący w skład większego zespołu 
i/lub spełniający określone zadanie w danym urządze- 
niu 

A. subassembly 

N. Baugruppe (f), Untergruppe (f) 

R. no;iy3eji, cyóóiioK, no/iCHCTeMa 
Podział czasu — system pracy, w którym część urządzeń 
może być potrzebna jednocześnie wielu programom 
lub użytkownikom, z tych względów ich czas pracy zos- 


taje podzielony wg przyjętego schematu (np. cykli- 
cznie, w zależności od potrzeb, wg hierarchii potrzeb), 
a nazywa się to „podział czasu" lub „praca z podziałem 
czasu” 

A. time sharing (system) 

N. Zeitteilung (f), Tieme — sharing, Teilnehmersy- 
stem (n) 

R. pa3^e.neHHe BpeMeHH 

podział funkcjonalny mikroprocesorów — wskazujący 
na obszar ich zastosowań (aplikacji): 

— sterowniki-kontrołery — o stałej liczbie instrukcji, 4- i 
8-bitowe 

A microcontroller 
N. 

R. 

— mikroprocesory (uniwersalne) o stałej liczbie instruk- 
cji, 1- 4- 8- 16- i 32-bitowe 

A. microprocessor 
N. 

R. 

— mikrokomputery — jednoukładowe — o stałej liczbie 
instrukcji 4- 8- 16- i 32-bitowe, wszystko na jednej płytce 
oraz peryferii porównywalnej do średnich komputerów 
profesjonalnych 

A. microcomputer, single — board Computer 
N. 

R. 

— mikroprocesory segmentowe (mikroprogramowalne 

— modułowe), 2- i 4-bitowe 

A. processor slice (bit-slice), single board Computer 

N. 

R. 

podział mikrokomputerów — przyjęty p.m. wynika bar- 
dziej z zakresu przeznaczenia i oprogramowania niż ar- 
chitektury i uwarunkowań sprzętowych, w związku z 
tym jest dość dowolny i z grubsza daje się usystematy- 
zować następująco: 

1. mikrokomputery domowe — przeznaczone głów- 
nie do celów zabawowych (gry komputerowe) i eduka- 
cyjnych, a w tej grupie odbiornik telewizyjny spełnia na 
ogół zadanie monitora 

A. home-computer 
N. 

R. 

2. mikrokomputery przenośne (podręczne) — z moż- 
liwością używania nawet w trakcie podróży (zasilanie z 
baterii lub akumulatora), o przeznaczeniu profesjonal- 
nym 

A. portable (hand-held) — Computer 

N. 

R. . , 

3. mikrokomputery biurowe (biurkowe) — mikro- 
komputery o przeznaczeniu profesjonalnym — kompu- 
ter biurowy 

A. office (desk top) — Computer 
N. 

R. 

4. mikrokomputer osobisty — przeznaczony dla 
konkretnej osoby (inżyniera, lekarza, adwokata itp.) mo- 
że obejmować zarówno grupę 2 jak 3, a nawet 1 — w za- 
leżności od wyposażenia i oprogramowania 

A. personal Computer, PC, PC5 — PS System 
N. 

R. 

podział pamięci półprzewodnikowych z uwzględnieniem ich 
podstawowych funkcji użytkowych: 

1. pamięć typu „wyłącznie odczyt” — ROM — układ do prze- 
chowywania informacji cyfrowych zapisanych na stałe przez 
producenta układu, w trakcie eksploatacji można z niej tylko 
pobierać („czytać") informacje bez możliwości ich zmiany. 
Odmianami tej pamięci są: 
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PROM — programmabłe ROM — pamięć stała programo- 
walna 

REPROM — reprogrammable PROM — pamięć stała repro- 
gramowałna 

EPROM — UVEPROM — erasable programmabłe ROM — 
pamięć stała, kasowalna (promieniami ultrafioletowymi), która 
może być przeprogramowana 

FAROM, EEPROM — ElectricalSy Alterable ROM — Electrical- 
ly Erasable PROM — pamięć stała reprogramowalna elektry- 
cznie 

A. ROM — Read Only Memory 

N. ROM, Restwertspeicher (m), ausschliesslich lesbarer Spei- 
cher (m) 

R. nocroHHHaH naMHTb, nocTosHHoe 3anoMHHatouxee 
yCTpOHCTBO BblÓOpKOH 

2. pamięć typu „zapis/odczyt” — RAM — układ do przecho- 
wywania informacji cyfrowych z możliwością wpisu i odczy- 
tu, oznaczony również jako pamięć R/W od angielskich 
słów: read/write memory — RWM 

A. RAM — Random Acces Memory, read/write memory 
N. RAM, Schreib-/Lesespeicher (m) 

R. naMRTb (aanoMHHaiomee yCTpOHCTBO) u npomBonbHOH 

3. pamięć typu „stos” — układ do przechowywania informacji 
cyfrowych z odwrotną kolejnością odczytu w stosunku do 
zapisu. 

A. LIFO — last in first out memory 
N. Kellerspeicher (m), Stapel (m) 

R. CTeK naKeT 

4. pamięć typu „silos” — układ do przechowywania informacji 
cyfrowych, które można odczytać w kolejności zapisu 

A. FIFO — first in first out memory 
N. Silosspeicher (m) 

R. 

pole — 1. określony obszar zarezerwowany do przyjmowania 
określonego rodzaju danych, np. obszar pamięci lub miejsc 
bitów w rozkazie na argumenty czy adresy; 2. określony ob- 
szar kartoteki, formularza itd. 

A. field 
N. Feld (n) 

R. nonę 

pole adresów — określone pole (np. pamięci, formatu rozka- 
zu), które może zawierać tylko adresy 
A. address field 
N. Adressfeld (n) 

R. nonę aApecoB 

pole komentarzy — znaki zawarte w takim polu stanowią ko- 
mentarz dla asemblera lub kompilatora 
A. comment field 

N. Kommentarfeld (n), Bemerkungsfeld (n) 
polling — 1. patrz praca z wywołaniem; 2. oprogramowanie sy^- 
stemu przerwań i zapytań 
A. polling 
N. Polling (m) 

R. onpoc 

półsłowo — ciąg bitów lub znaków o połowie długości słowa, 
który może być adresowany jako całość 
A. half word 
N. Halbwort (n) 

R. nonycnoBO 

port — równoległe rejestry buforowe ułatwiające współpracę 
dwukierunkową z magistralą danych 
A. port 
N. 

R. 

potwierdzenie zwrotne przerwania — sygnał zwrotny kompu- 
tera (mikrokomputera), że dopuszcza się przerwanie 
A. interrupt acknowłedge 
N. Interrupt — Quitung 
R. 

praca autonomiczna — praca w trybie autonomicznym 
praca bezpośrednia — praca w trybie bezpośrednim 
praca interakcyjna — praca konwersacyjna 
praca konwersacyjna — rozwiązywanie zadania przez wielo- 
krotną wymianę pytań i odpowiedzi między użytkownikiem i 
komputerem poprzez urządzenie dialogowe 
A. interactive modę, conversational operation (Processing) 
N. Dialogbetrieb (m) 

R. ^najioroBas paóoTa 

praca pojedynczymi krokami — system pracy mikrokomputera 


(komputera) łub innego sprzętu, w którym wykonanie każdego 
rozkazu wymaga nowego sygnału ze strony operatora obsługu- 
jącego 

A. single step operation 
N. Einzeischrittbetrieb (m) 

R. 

praca równoległa — rodzaj przetwarzania lub transmisji danych 
w zespołach, w systemie tym bity słowa przenoszone są równo- 
cześnie w oddzielnych przewodach celem zwiększenia szyb- 
kości pracy urządzenia 
A. parrełlel operation 

N. parałlele Arbeitsweise (f), Paralłelwirkung (f), Parrallel- 
betrieb (m) 

R. napajuie.ibHafl paóoTa, napajuiejibHoe .aeiicTBHe 
praca szeregowa — rodzaj przetwarzania lub transmisji danych, 
w którym bity słowa przenoszone są w jednym przewodzie 
jeden za drugim. Jest to metoda wolniejsza od równoległej, ale 
wymaga mniej elementów elektronicznych 
A. serial operation 

N. serielle Arbeitsweise (f), Serien-Betrieb (m) 

R. rioe;ie;ioBaTe;ibnan paóoTa, nocneAOBaTejibHoe AeficrBne 
praca w trybie autonomicznym — forma łączności z kompute- 
rem przez nośnik danych, a nie sprzętowo 
A. off-łine 

N. Off-line, Abgefrent 
R. „cujwiaiiH, aBToHOMHoe 

praca w trybie bezpośrednim — bezpośrednia forma łączności 
z komputerem (sprzętowo) 

A. on-line 

N. On-line, gekoppelt 
R. „oH-jiaiiH*", HenocpeiiCTBeHHO 

praca w ograniczonym czasie — podział czasu 

praca z wywołaniem — system pracy, w którym stacje abonenc- 
kie są wywoływane do przekazywania danych 
A. polling modę (procedurę) 

N. Abrufbetrieb (m), Abrufyerfahren (n) 

R. MeTozt onpoca 

prober — próbnik stanów logicznych — analizator obwodów 
logicznych — sonda układów logicznych 
procedura — 1. sekwencja instrukcji w językach zorientowa- 
nych maszynowo: 2. reguła transmisji danych, procedura 
transmisji 

A. procedura, routine 
N. Prozedur (f), Routine (f) 

R. npouejypa 

procedura rekursywna — procedura, która się sama wywołuje 
A. recursive procedurę 
N. rekursive Prozedur (f) 

R. pe KypcH B!ian nponeziypa 

procesor — 1. w zakresie sprzętowym (procesor centralny): 
układ elektroniczny, który funkcjonalnie odpowiada jednostce 
centralnej (CPU), tj. jednostce sterującej i arytmometrowi 
(ALU); 2. w zakresie oprogramowania: a) program, który speł- 
nia funkcje translatora, kompilatora, asemblera dla określonego 
języka programowania, bj program pierwszego etapu kompi- 
lowania w niektórych językach maszynowego programowania 
OSN (mogą być trzy etapy: preprocesor, procesor i postproc.) 
lub drugiego etapu kompilowania w języku PL/1 
A. processor (-unit) 

N. Prozessor (m) 

R. npoueccop 

procesor centralny — jednostka centralna 
PROM — Programable Read Only Memory — podział pamięci, 
programowalna przez użytkownika pamięć stała (bez możli- 
wości zmiany) 

program diagnostyczny — program testowania, określenie sto- 
sowane głównie w zakresie testowania sprzętu 
A. diagnostic program 
N. Diagnoseprogramm (n) 

R. AHarHOCTiiHecKaH nporpaMMa 
program docelowy — program wynikowy 
program drugoplanowy — przetwarzanie w drugiej kolejności 
przetwarzania wieloprogramowego 
A. background program 
N. Hintergroundprogram (n) 

R. nporpaMMa c HH3KHM npHopHTeTOM, (J>oHOBaH nporpaMMa 
program dyspozytor — specjalny program sterujący, 
stosowany w systemach wielodostępnych, np. w prze- 




twarzaniu partiowym, który wywołuje programy użyt- 
kowników lub przydziela im czas 
A. dispatcher 

N. Vertei!er (m), Abfertiger (m) 

R. /iHcneTHep 

program dyrygent — program sterujący i kontrolujący 
wykonanie innych programów (część systemu 
operacyjnego) 

A. executive program, executive routine 
N. Executive — Routine (f), Exekutivprogram (n) 

R. ocHOBHas nporpaMMa, nporpaMMa-nHcneTHep 
program generujący — generator 
program interpretujący — interpreter 
program komputera — program napisany w języku 
komputera, bądź przez programistę — sposób bardzo 
rzadko stosowany z uwagi na dużą pracochłonność, 
bądź też w wyniku wykonania translacji 
A. machinę program, Computer program, machinę 
routine 

N. Maschinenprogram (n), Computerprogramm (n) 
Rechnerprogramm (n) 

R. nporpaMMa BbiHHcnHTenbHOH MauiHHbi, MauiHHHaa 
nporpaMMa 

programy korezydentne — programy, które zanikają z 
chwilą wyłączenia zasilania 
A. co-resident 
N. Koresident 

R. KOpe3H#eHTHbIH 

program ładujący — program umożliwiający ładowanie 
programu w mikrokomputerze (komputerze), tzn. wczy- 
tanie i wprowadzenie do właściwego obszaru pamięci 
A. loader, program loader, loader routine 
N. Lader (m), Programmloader (m), Ladeprogramm (n) 
R. nporpaMMa BBOfla, nporpaMMa 3arpy3KH 
program łączący — program, za pomocą którego z kil- 
ku programów użytkowych i ewent. łącznie z progra- 
mami usługowymi lub systemowymi można stworzyć 
jedną funkcjonalną całość w postaci programu wyniko- 
wego 
A. linker 
N. Binder (m) 

R. 

program łącząco-segmentujący — program, który obok 
właściwości programów łączących ma możliwość two- 
rzenia struktury segmentów nakładkowych (overlay- 
-structure) do poszczególnych programów i ich segmen- 
tów 

A. linkage editor 

N. Programmverbinder (m), Linkage-Editor (m) 

R. penaKTop (Me>KnporpaMMHbix) CBH3en 
program maszynowy — program komputera 
program monitor — 1. program sterujący i koordynują- 
cy inne programy lub ich części; 2. część programu 
organizacyjnego, od którego programy systemowe uza- 
leżnione są całkowicie, a programy użytkowe korzystają 
z niego fakultatywnie (np. przy wprowadzaniu) 

A. monitor program 
N. Monitor-Programm (n) 

R. nporpaMMa-MOHHTop 
program nadzorczy - program dyrygent 
program organizacyjny — zespół programów systemu 
operacyjnego, które zapewniają właściwe współdziała- 
nie poszczególnych zespołów komputera oraz zarzą- 
dzanie wykonywanymi programami i zadaniami 
A. executive program, master program, control pro- 
gram 

N. Organisationsprogramm (n), Steuerprogramm (n), 
Dachprogramm (n), Leitprogramm (n), Hauptpro- 
gramm (n) 

R. ocHOBHaa (Benymaa) nporpaMMa 

program pomocniczy — program do bardzo specyfi- 


cznych i stosunkowo prostych zadań, pod wzgl. funk- 
cjonalnym porównywalny do programu usługowego 
A. utility program 
N. Utility-Program (n) 

R. BcnoMoraTejibHafl nporpaMMa 
program powtarzalny — 1. program lub zamknięta 
funkcjonalna część programu; 2. w publikacjach zagra- 
nicznych słowo „routine" używa się czasem w znaczeniu 
— podprogram, zamiast słowa „subroutine" 

A. routine 
N. Routine (f) 

R. nporpaMMa 

program przetłumaczony — program wynikowy 
program przemieszczalny — program o adresach 
przemieszczanych, którego miejsce w pamięci ustalone 
jest w trakcie ładowania 
A. relocatable program 

N. relokatibles Program (n), verschiebbares Pro- 
gram (n) 

R. HacTpaHBaeMan (nepeMeinaeMaa) nporpaMMa 

program redagujący — editor 

program rezydentny — programy osadzone na stałe w 
mikrokomputerach, które nie zanikają również przy wy- 
łączeniu zasilania (pamięć typu ROM) 

A. resident 
N. resident 
R. pe3H£eHTHbIH 

program sprawdzający — program, który bada progra- 
my lub dane pod względem oczywistych błędów, jak 
wady dziurkowania (błędy formalne i syntaktyczne) 

A. checking program 
N. Prufprogram (n) 

R. nporpaMMa kohtpojia 
program sterujący — program organizacyjny 
program systemowy — każdy program będący częścią 
składową systemu operacyjnego 
A. system program 
N. System-programm (n) 

R. CHCTeMHafl nporpaMMa 

program testowania — 1. program do sprawdzania pra- 
widłowego funkcjonowania komputera (program diag- 
nostyczny); 2. program do testowania programów (czę- 
sto z symulacją) przy ich opracowywaniu 
A. test program 
N. Testprogramm (n) 

R. TecT nporpaMMa 

program tłumaczący — translator i — kompilator 
program usuwania błędów — 1. program do lokalizacji i 
korekty błędów syntaktycznych (formalnych) i semanty- 
cznych (logicznych) w programach mikrokomputerów 
(komputerów); 2. program do lokalizacji i napraw usz- 
kodzeń (awarii) w mikrokomputerach (komputerach) 

A. debung program, debugger 
N. Debug-Program (n), Fehlersuchprogramm (n) 

R. nporpaMMa oTJia,n,KH 

program usługowy — program, który rozszerza funkcje 
komputera w określonym obszarze, jednak w prze- 
ciwieństwie do programów systemowych nie jest konie- 
czny dla systemu operacyjnego 
A. service routine, service program, utility program 
N. Dienstprogramm (n), Service-Programm (n), 
Hilfsprogramm (n) 

R. cjiy»e6Hafl nporpaMMa. BcnoMoraTejibHaa npo- 
rpaMMa 

program użytkowy — program przetwarzania danych 
dla jednego lub wielu użytkowników 
program wewnętrzny — program komputera 
program wykonawczy — program dyrygent 
program wynikowy — patrz translator, program utożsa- 
miany często z programem komputera, jeżeli translato- 
rem był asembler 
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A. object program 

N. (maschinen) iibersetztes Programm (n), Zielpro- 
gramm (n), Objektprogramm (n) 

R. KOHeMHaa nporpaMMa, oóteKTHBHaa nporpaMMa 
program współ- i wieloużywalny — program lub pod- 
program mający cechy współ- i wielo używalności, tzn., że 
nie ulega on zniekształceniom („zaśmieceniom”) i nie 
gubi danych, które mogą być potrzebne przy ponow- 
nym wywołaniu 

A. re-entrant program, re-entrable program 
N. wiedereintrittsinvariant Programm (n) 

R. 

program wyszukiwania błędów — program testowania 
A. error search program 
N. Fehlersuchprogramm (n) 

R. nporpaMMa nowcKa ouihóok 
program wprowadzania pierwotnego — program inicju- 
jący działanie mikrokomputera (komputera) na stałe w 
nim zainstalowany, który umożliwia przyjmowanie in- 
nych programów (przede wszystkim programu ładują- 
cego) 

A. bootstrap loader, bootstrap input program 
N. Bootstrap-Lader (m), Urlader (m), Ureingabepro- 
gramm (n) 

R. nporpaMMa nepBHHHoro BBO,na (MeTOflHica npe^BBo- 
aa) 

program zarządzający — program dyrygent 

program źródłowy — program napisany w dowolnym 

języku symbolicznym (— język źródłowy) 

A. source program 
N. Quellenprogramm (n) 

R. HCX0flHa« nporpaMMa, opHrHHajibHaa nporpaMMa 
programowanie — zespół czynności prowadzących do 
ułożenia programu realizującego założony cel (zadanie) 
przez: a) układ logiczny lub system mikroprocesorowy 
(komputerowy); b) system lub urządzenie robocze 
(OSN, roboty, zautomatyzowane gniazda, ciągi i oddzia- 
ły produkcyjne). W p. wyróżnia się na ogół następujące 
etapy: wypracowanie koncepcji, opracowanie sieci dzia- 
łań dla zadanego (wypracowanego) algorytmu lub for- 
muły (wykresu przejść narzędzi w wypadku OSN), ko- 
dowanie (instrukcje, rozkazy), testowanie i usuwanie 
błędów, opracowanie dokumentacji dla użytkownika. 
Program mikroprocesora może być zapisany w języku 
problemowym, w kodzie mnemotechnicznym języka 
typu asembler lub kodzie binarnym, a następnie po 
przetestowaniu (translacja i usuwanie błędów) zapisy- 
wany jest w pamięci za pomocą urządzenia we/wy lub 
sprzętu pomocniczo-projektowego 
A. programming 

N. Programmierung (f), programmieren 
R. nporpaMHpoBaHHe 

programowanie automatyczne — programowanie 
wspomagane komputerowo 

programowanie maszynowe — programowanie wspo- 
magane komputerowo 

programowanie wspomagane komputerowo — na wielu 
etapach tworzenia programu korzysta się z komputera, 
dla którego program jest opracowywany lub komputera 
wspomagającego. Szczególnym przypadkiem p.w.k. jest 
programowanie obróbki części na OSN, program źród- 
łowy jest tu przetwarzany na program sterowania auto- 
matycznego obrabiarki za pomocą kompilatora zwane- 
go procesorem (pre-, post- procesor). Najbardziej znane 
języki programowania OSN, to: APO, APT, EXAPT, MS- 
-RWPG, NARWIK 

A. automatic programming, Computer aided pro- 
gramming 

N. maschinelle Programmierung (f), maschinemmter- 
stiitztes Programmieren (n) 

R. MauiHHHoe nporpaMHpoBaHHe 


programator — 1. urządzenie do programowania; 2. po- 
pularna nazwa sterownika, typu sekwencyjny układ ste- 
rowania, masowego zastosowania (np. w sprzęcie do- 
mowym). Współczesne rozwiązania p. oparte są na ogół 
na układach PLA, FPLA lub mikroprocesorach typu kon- 
troler; p. dzielą się na: generatory sekwencyjne z pa- 
mięcią ROM (A. sequence generators) oraz programo- 
wane sterowniki (A. programmable logie controllers) z 
pamięcią PROM 
A. 1. programmer, 2. controller, 

N. 1. Programmer (m), 2. Kontroller (m) 

R. 1 . nporpaMMHep, 2. KoHTpojinep 
programowanie układowe — zmiana programu pracy 
(sterowania) przez zmianę części połączeń układu ste- 
rowania przeprowadzana przez użytkownika, przy czym 
może to być programowanie za pomocą: 1. a) wtyków 
diodowych (na tablicy programowania) i zderzaków na- 
stawczych oraz b) wtyków kodujących, jako odmiana 
sterowań NC (Iow cost NS); 2. lub bezpośrednio na ze- 
społach lub elementach układu sterowania (nie mylić z 
oprogramowaniem sprzętowym) 

A. 1. pinboard programming, 2. programming with 
wired-in 

N. Stecktafelprogrammierung (f), l.a) Kreuzschie- 
nenverteilersteuerung (f), l.b) Nockenlose-Pro- 
gram, Steuerung (f), 2. Programmierung mit Fest- 
verdrehtung 

R. nporpaMHpoBaHHe Ha KOMMytauHOHHbiM naHeny 
programowalny zegar impulsów — zegar impulsów, któ- 
rego częstotliwość może być zmodyfikowana za pomocą 
programu 

A. programmable timer (clock), PIT — Programmable 
lntervole Timer 

N. programmierbarer Zeitgeber (m), programmierba- 
rer Taktgeber (m) 

R. 

programowalne układy logiczne — programowalne 
układy sterowania 

programowalne układy sterowania (cyfrowego) — ukła- 
dy logiczne służące do sterowania różnymi procesami i 
urządzeniami (zastępujące sterowanie z elementami 
dwupołożeniowymi, jak: styczniki, przekaźniki, wyłą- 
czniki) z programem zapisanym w pamięci. Współczes- 
ne p.u.s. są na ogół sterownikami typu PLA, FPLA lub 
mikroprocesorami typu kontroler i występują pod róż- 
nymi nazwami 

A. PC Programmable Contról (ler), PLCs — Program- 
mable Logic Controllers, PCS — Programmable 
Control System 

N. PS — Programmiesbare Steuerungen (pl), Prinzip 
speicher — programmierte Steuerungen (pl), FPS 
— Freiprogrammierbare Steuerungen (pl), SPS — 
Speicher Programmierbare Stenrungen (pl) 

R. HHCJioBoro nporpaMMHoro ynpaBjieHHH 
przełączenie programu — czynności, które mikrokom- 
puter (komputer) wykonuje w czasie realizacji jakiegoś 
podprogramu wzgl. powrotu do programu głównego, 
jeżeli podprogram używa innego niż dla programu 
głównego zespołu rejestrów lub obszaru działania. 

A. contex switch 
N. Programmumschaltung (f) 

R. nepeicniOHaHHe nporpaMMbi 
przenoszenie danych — przesyłanie danych z jednego 
miejsca do innego (miejsca, systemu, miejscowości) 

A. data communication 

N. Datenaustausch (m), Dateniibertragung (f) 

R. OÓMeH .aaHHblMH 

przepływ danych — przepływ danych w trakcie ich prze- 
syłania 
A. data flow 
N. Datenfluss (mm) 
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R. noTOK 2aHHbix 

przesyłanie danych — przenoszenie danych tylko w 
obrębie systemu mikrokomputerowego (komputero- 
wego) 

A. data transfer, data transmission, data traffic 
N. Datentransfer (m), Datentransport (m), Datenver- 
kehr (m) 

R. nepeflana ,aaHHbix 

przerwanie — przerwanie aktualnie przez mikrokompu- 
ter (komputer przetwarzanego programu, przerwanie 
może być wywołane sygnałem zewnętrznym (przez ope- 
ratora) lub wewnętrznym (przez komputer) przy stwier- 
dzeniu np. błędu. W trakcie przerwania przetwarzany 
jest odpowiedni podprogram przerwania, po czym kom- 
puter może powrócić w sposób automatyczny do prze- 
twarzania programu przerwanego. Przerwanie występuje 
często w systemie — przetwarzania w czasie rzeczywi- 
stym 

A. interrupt 

N. Interrput (n), Unterbrechung (f), Programmunter- 
brechung (f) 

R. npeptiBaHHe 

przerwanie priorytetowe — priorytet przyznawany nie- 
którym źródłom sygnału przerwania (patrz też przerwa- 
nie wielopoziomowe), może się odnosić również do 
sprzętu 

A. priority interrupt, prioritized interrput 
N. Prioritats-lnterrupt (m), Vorgangsunterbrechung 
ff) 

R. npepbiBaHHe no npnopHTeTy 
przerwanie wielopoziomowe — 1 . przerwanie wykony- 
wanego podprogramu przerwania, przerwaniem wyż- 
szego priorytetu; 2. elementy lub układy, które umożli- 
wiają 1 . nazywane są elementami lub układami p.w. 

A. multi !evel interrupt 
N. Mehrebenen — Interrupt (n) 

R. MHoroypaBHHTejibHoe npepbiBaHHe 
przerzutnik — pamięciowy element bistabilny (np. w re- 
jestrach) lub układ przełączający 
A. flip-flop 
N. Flip-Flop 
R. Tpwrrep 

przesunięcie — przesunięcie adresowe w adresie wz- 
ględnym dwuczęściowym (adres bazowy + przesunięcie 
adresowe) 

A. displacement 
N. Verschiebung (f), Distanz (m) 

R. cjiBHr, CMemeHHe 

przesunięcie arytmetyczne — operacja przesunięcia 
(ciągu znaków, bitów). W rejestrach lub pamięci z za- 
chowaniem właściwego dla tego ciągu znaku liczby 
A. arithmetic shift 

N. arithmetisches Schieben (Verschieben) (n), Schieb 

(n) 

R. apH$MeTHHecKoe CMemeHHe, cflBHr 
przesunięcie logiczne — przesunięcie całego ciągu zna- 
ków lub bitów, łącznie z pozycją znaku liczby 
A. logie shift 
N. logisches Schieben (n) 

R. JIOrHHeCKHH c^BHr 

przesuw wiersza — przesuw papieru o wiersz w dziur- 
karkach, tabulatorach, maszynach do pisania itp. 

A. Linę feed 
N. Zeilenverschieb (m) 

R. 

przetwarzanie danych — wykonywanie usystematyzo- 
wanego ciągu operacji na danych w postaci cyfrowej lub 
analogowej 

A. data processing 
N. Datenverarbeitung (f) 

R. o6pa6oTKa ^aHHbix 


przetwarzanie danych lokalne — zdecentralizowane 
przetwarzanie danych w miejscu ich powstawania lub 
istnienia potrzeby natychmiastowych wyników przetwa- 
rzania 

A. distributed processing 
N. dezentralisierte Datenverarbeitung (f) 

R. jjHCTpHÓyTHBHafl oópaóoTKa 
przetwarzanie drugoplanowe — w systemie pracy kom- 
putera z możliwością przerywania typu interrupt, np. w 
trakcie przetwarzania wieloprogramowego lub w czasie 
rzeczywistym, przetwarza się „równolegle" pierwszo- 
planowy z tzw. najwyższym priorytetem i „jednocześnie" 
(rzeczywiście w przerwach) program (lub programy) 
drugoplanowe 
A. background processing 
N. Hintergrundverarbeitung (f) 

R. oópaóoTKa nporpaMMbi c hhckhm npHopHTeTOM 
przetwarzanie nadążne — przetwarzanie w czasie rze- 
czywistym 

przetwarzanie na bieżąco — przetwarzanie w czasie rze- 
czywistym 

przetwarzanie partiowe — przetwarzanie wsadowe — 
system pracy komputera, w którym zadanie, jakie ma on 
realizować, musi być całkowicie sprecyzowane i wszel- 
kie dane zgromadzone przed rozpoczęciem jego reali- 
zacji, a realizacja przebiega aż do całkowitego zakoń- 
czenia (lub przerwania) zadania, przy czym dane wpro- 
wadzane są partiami w postaci tzw. wsadów 
A. batch processing, batch modę 
N. Batch — Betrieb (m), Batch — Verarbeitung (f), Sta- 
pelverarbeitung (f), Schubverarbeitung (f) 

R. naiceTHaH oópaóoTKa naHHbix 
przetwarzanie w czasie rzeczywistym — nadążny system 
przetwarzania, w którym napływające do mikrokompu- 
tera — (komputera) dane muszą być przekazane do 
przetwarzania i przetworzone, a wyniki natychmiast za- 
dysponowane (system stosowany często w układach ste- 
rowania), system taki musi dysponować odpowiednimi 
(do zadań) zdolnościami przetwarzania, a przy współ- 
pracy z kilkoma stacjami abonenckimi (np. OSN) odpo- 
wiedni program decyduje o hierarchii kolejności 
A. real time processing 

N. Echtzeit verarbeitung (f), Realzeitbetrieb (m), 
schritthaltende Datenverarbeitung (f)) 

R. oópaóoTKa ,naHHbix b hcthhom Macurraóe BpeMeHH 
przetwarzanie wiełoprogramowe — jednoczesne 
przetwarzanie wielu programów w jednym komputerze. 
Właściwość tę mają komputery o szybkich jednostkach 
centralnych o wolnych urządzeniach peryferyjnych oraz 
komputery wieloprocesorowe. Metoda ta zapewnia lep- 
sze wykorzystanie sprzętu. Całością kieruje program 
organizacyjny 

A. multiprogram processing, multiprogramming 
N. Multiprogramnwerarbeitung (f), Multiprogram- 
ming (n)) 

R. MyjitTHnporpaMMHaH oópaóoTKa 
przeznaczenie — oznacza adres, pod którym można 
znaleźć przesyłaną informację po wykonaniu rozkazu 
przesyłania 
A. destination 
N. Ziel (n), Empfanger (m)) 

R. ue-Tb, Ha3HaneHHe 

PS/2 — Personal System/2 — system komputerów osobi- 
stych IBM 

pseudorozkaz — 1. rozkaz, który należy do repertuaru 
rozkazów mikrokomputera (komputera), ale nie wywo- 
łuje w nim żadnych działań, np. instrukcja pusta; 2. roz- 
kaz, który należy do repertuaru danego mikrokompute- 
ra (komputera) lecz zostaje przez asembler zamieniony 
na inny rozkaz lub serię rozkazów; 3. rozkaz (instrukcja), 
który nie należy do repertuaru rozkazów mikrokompu- 




tera (komputera) i stosowany jest tylko w języku symbo- 
licznym, a nie ma odpowiednika w języku komputera 
np. komentarze asemblera, makrodefinicje 
A. pseudo instruction, pseudo command 
N. Pseudobefehl (m), symbolischer Befehl (m)) 

R. cuMbojiHHecKas KOMan^a 

pulpit operatora — część jednostki centralnej przezna- 
czona do ręcznego sterowania i kontroli pracy kompu- 
tera 

A. operator panel, operator control panel 
N. Bedienungsfeld (n), Bedienungspult (n)) 

R. nyjn>T onepaTopa 

punkt przerwania — 1. celowo zaprogramowany punkt, 
w którym można przerwać przetwarzanie programu (np. 
dla sprawdzenia częściowych wyników), jest on jedno- 
cześnie punktem wznowienia; 2. punkt przypadkowego 
przerwania obróbki programu — punkt wznowienia 
A. breakpoint 

N. Anhaltepunkt (m), Zwischenhalt (m)) 

R. TOHKa OCTaHOBKH, MecT OOCTaHOBKH 

punkt wejścia — miejsce w programie, do którego mo- 
żna wykonać skok z zewnątrz 
N. entry point) 

N. Einsprungpunkt (m), Ejngangsstelle (f)) 

R. BXOJHa« TOHKa, TOHKa Bxoja 
punkt wznowienia — punkt określony już w trakcie pro- 
gramowania, od którego należy wznowić przetwarzanie 
programu w wypadku przerwania. Jeżeli p.w. nie ok- 
reślono, program należy przetwarzać od nowa 
A. restart point, retur point 
N. Fixpunkt (m), Wiederauflaufpunkt (m)) 

R. TOHKa noBTopHoro 3anycH*a 


RAM — Random Access 
Memory — pamięć typu za- 
pis/odczyt o dostępie bez- 
pośrednim (swobodnym) — 
podział pamięci 
redagowanie — 1. przygo- 
towanie danych (wyników) 

wewnątrz urządzenia przed ich wydaniem; 2. modyfika- 
cja formatu lub danych w przygotowywanym programie 
A. edit editing 

N. editieren, Druckkaufbereitung (f)) 

R. peflaKTHpoBaHHe 

redundancja — 1 . rozwlekłość informacji lub taka moż- 
liwość, np. nadmiar znaków w kodzie (nie wykorzysty- 
wane możliwości), nadmiar znaków w przysyłanej in- 
formacji, które do niej nic nie wnoszą, 2. odnośnie 
sprzętu — powielanie implementacji funkcjonalnie rów- 
noważnych komponentów, np. dla zwiększenia nieza- 
wodności całego systemu 
A. redundancy 
N. Redundanz (f)) 

R. H36blTOHHOCTT> HH(J)OpMaUHH 
rejestr — funkcjonalnie lub konstrukcyjnie wyróżniany 
element pamięciowy o bezpośrednim i szybkim dostę- 
pie zdolny do przechowywania pojedynczych słów lub 
bitów, wchodzi w skład różnych zespołów komputero- 
wych i mikrokomputerowych, jak: pamięci, akumulato- 
ry itd. 

A. register 
N. Register (n)} 

R. perncTp 

rejestr adresu bazowego, rejestr bazowy, B-rejestr — re- 
jestr, w którym przechowywany jest ciągle lub okresowo 
adres bazowy 



A. base address register, base register, B, register 
N. Basisadressregister (n), Basisregister (n), B-register 

(n)) 

R. ochobhoh (6a30BbiH) perHCTp, perHCTp 6a3bl 
rejestr A — akumulator 

rejestr B — rejestr indeksowy (B box), — rejestr adresu 
bazowego 

rejestr F — flagowy — rejestr statusowy 
rejestr — licznik programu 

rejestr indeksowy — rejestr służący do zmiany (modyfi- 
kacji) adresu (względnego) rozkazu, do którego dodaje 
się lub odejmuje zawartość r.i. 

A. index register 
N. Indexregister (n) 

R. perHCTp HH,aeKca 

rejestr modyfikacji — rejestr indeksowy 
A. modifier register 
N. 

R. 

rejestr rozkazów — rejestr przechowujący aktualnie rea- 
lizowany rozkaz aż do jego pełnego wykonania 
A. instruction register 
N. Befehlsregister (n)) 

R. perHCTp KOMaH/i 
rejestr stanu — rejestr statusowy 

rejestr statusowy (znaczników) — składa się z poszcze- 
gólnych sygnalizatorów i wskaźników (przerzutników 
zwanych również „flags”, a zawiera dane o stanie mikro- 
komputera (komputera) i wpływa na sposób realizacji 
programu 
A. status register 
N. Statusregister (n) 

R. perHCTp COCTOHHHH 
rejestr translacyjny — port 
rejestr wskaźników —rejestr statusowy 
rejestracja danych — zbieranie danych 
repertuar rozkazów —zbiór dopuszczalnych rozkazów 
określonego maszynowo zorientowanego języka pro- 
gramowania, tzn. takich rozkazów, które dany mikro- 
komputer (komputer) realizuje bez opisywania ich w 
programie za pomocą innych 
A. instruction set, instruction repertoire, instruction 
repertory 

N. Befehlsvorrat (m), Instruktionssatz (m)) 

R. CHCTeMa KOMax,n 

REPROM — Reprogrammable PROM — pamięć stała 
reprogramowalna — patrz podział pamięci 
reprogramowalna pamięć —REPROM, np. EPROM, EA- 
ROM 

rezydentne — programy rezydentne 
RISC — Reduced Instruction Sed Computer — procesor 
o zredukowanej liczbie instrukcji 
ROM — Read Ónly Memory — pamięć typu „wyłącznie 
odczyt", pamięć stała o bezpośrednim dostępie — po- 
dział pamięci 

robot — 1. system techniczny zdolny samodzielnie wy- 
konywać czynności zaprogramowane przez człowieka 
(definicja ogólna robota); 2. programowalny wielofunk- 
cyjny manipulator przeznaczony do operowania mate- 
riałami, częściami lub wyspecjalizowanymi urządzenia- 
mi, przez różne programowane ruchy, w celu zrealizo- 
wania różnych zadań (definicja Amerykańskiego Instytu- 
tu Robotyki RIA) 

A. robot 
N. Roboter (m)) 

R. poóoT 

robot przemysłowy — robot przeznaczony do zadań 
przemysłowych, jest to urządzenie manipulacyjne ste- 
rowane programowo, wyposażone w uchwyty lub na- 
rzędzia, przeznaczone do zastosowań przemysłowych 
A. industrial robot 




N. Industrieroboter (m)) 

R. npóMbiuuieHHbiH poboT 

rozkaz — 1. instrukcja dla komputera do wykonania ok- 
reślonej operacji, specyfikuje ona zarówno operację, ja- 
ka ma być wykonana jak również argumenty lub ich ad- 
resy; 2. instrukcja, która w danym języku programowa- 
nia, w którym jest stosowana, nie da się rozdzielić na ta- 
kie części, które mogą być samodzielnymi instrukcjami 
A. instruction, order, command 
N. Befehl (m), Kommando (n)) 

R. KOManaa 

rozkaz jednoadresowy — 1. rozkaz komputera jednoad- 
resowego; 2. rozkaz komputera wieloadresowego, który 
zawiera tylko jeden adres 

A. single address instruction, one-address instruction 
N. Ein-Adress-Befehl (m)) 

R. oAHoajipecHafl KOManna 

rozkaz jednowyrazowy — rozkaz, którego długość jest 
identyczna z długością słowa komputera 
A. one word instruction, one word command 
N. Einwortbefehl (m)) 

R. KOMaH^a cocToainafl o^Horo cJiOBa 
rozkaz komputera — rozkaz maszyny — rozkaz w języ- 
ku wewnętrznym mikrokomputera (komputera), stano- 
wiący element repertuaru rozkazów, na ogół jest to re- 
prezentacja ciągu 0/1 [zerojedynkowego] lub liczby he- 
ksadecymalnej 

A. machinę instruction, machinę command 
N. Maschinenbefehl (m)) 

R. MauiHHHaH KOMaima (HHCTpyicuHH) 
rozkaz makro — 1. instrukcja w języku źródłowym, która 
odpowiada określonej sekwencji rozkazów komputera 
(odpowiednik instrukcji wywołania makro w języku typu 
asembler); 2. określenie rozkazu komputera dla pod- 
kreślenia, że będzie on przez mikrokomputer interpre- 
towany i wykonywany jako sekwencja mikrorozkazów 
A. macrocommand, macroorder, macroinstruction 
N. Makrobefehl (m), Makroinstruktion (f)) 

R. MaKpOKOMaHfla, MaKpOHHCTpyKUHH 
rozkaz maszyny — rozkaz komputera 
rozkaz „nic nie rób” — rozkaz pusty 
rozkaz pozorny — rozkaz pusty lub — pseudorozkaz 
A. dummy instruction 
N. Scheinbefehl (m)) 

R. (JjHKTHBHaa (nycTaa) KOMaH.aa 
rozkaz pusty — rozkaz nie powodujący w mikrokompu- 
terze (komputerze) żadnego działania poza przejściem 
do następnego rozkazu 

A. no-operation instruction, no-op instruction, NOP 
N. Leerbefehl (m), Nulloperation (f)) 

R. KOMaH^a, nponycKa 

rozkaz skoku — rozkaz powodujący wykonanie skoku 
A. jumb instruction 
N. Sprungbefehl 
R. KOMaH^a nepexo,na 

rozkaz wieloadresowy — rozkaz , który zawiera więcej 
niż jeden adres argumentu 
A. multi address instruction 
N. Mehradressbefehl (m)) 

R. MHoroaflpecHaa KOMaH/ta 

rozkaz wielosłowny — rozkaz o długości stanowiącej 
wielokrotność długości słowa czy formatu danych — 
multisłowo, w pamięci r.w. zajmuje miejsce kilku słów 
A. multiple word instruction 
N. Mehrwortbefehl (m)) 

R. KOMaHfla MHOrOKpaTHOH ATIHHbl 
rozszerzony repertuar rozkazów — możliwość wprowa- 
dzenia przez użytkownika zdefiniowanych we własnym 
zakresie rozkazów (instrukcji) i w ten sposób powstaje 
r.r.r. 

A. extended operation 


N. erweiterte Operation (f)) 

R. pacuiHpeHHaa onepaufifl 
RPROM - REPROM 

RPN — Reverse Polish Notation — odwrócony zapis 
polski, notacja postfiksowa (zapis wg logiki prof. Jana 
Łukasiewicza) 

A. 

N. inverfierte polnische Notation, Postfixnotation 



SAA — System Aplikation 
Architektur — architektura 
zastosowań systemowych — 
nowa koncepcja IBM umo- 
żliwiająca przenoszenie roz- 
wiązań (i współpracę w 
sieciach) pomiędzy trzema 
rodzinami wyrobów firmy 
IBM, serii: PC, 3X i 370 
schemat czynnościowy — 1. 
sieć działań systemu mi- 


kroprocesorowego w postaci graficznej, którą opracowu- 
je się w celu napisania programu działania systemu mik- 
roprocesora w trakcie jego projektowania: 2. schemat 
stanowiący zobrazowanie algorytmu, definicji lub roz- 
wiązań jakiegoś problemu, w którym używa się symboli 
do przedstawienia: rozkazów, danych, przepływu da- 
nych, przebiegu programu, sprzętu itd. 

A. flow chart 

N. Flussdiagramm (n), Anlaufdiagramm (n), Ablaufs- 
chema (n), Flussplan (m)) 

R. rparfjHHecicafl cxeMa, paóonafl źwarpaMMa, 6jiołccxe- 
Ma nporpaMMbi 
Schneider — Amstrad 

SCSI — Smali Computer System Interface — złącze ma- 
łych systemów komputerowych (standard USA) 
sekwenter — moduł mikroprocesorowy, stosowany w 
mikroprocesorach typu kontroler, który steruje realiza- 
cją mikroprogramu, przez generowanie w takt zegara 
adresów mikroinstrukcji 
A. sequencer 

N. Sequenzer (m), Ablaufsteuerung (f)) 

R. 

semantyka — nauka o znaczeniu grup znaków języka 
(np. programowania) 

A. semantics 
N. Semantik (f)) 

R. ceMaHTHKa 

S.l. — sztuczna inteligencja 
A. artificial intelligence 

sieć wieloprzetwarzania — system wieloprocesorowy 
sieć działań — schemat czynnościowy 
Sinclair — mało znana brytyjska firma zajmująca się pro- 
dukcją minikalkulatorów i miniaturowych odbiorników 
radiowych, wypuściła na rynek w 1980 r. pierwszy mik- 
rokomputer. Miał on pamięć tylko 1 k RAM, niewielką 
ROM, procesor Z-80. Ten prymitywny mikrokomputer 
rozpoczął rewolucję komputerową w Wielkiej Brytanii. 
ZX-80 — bo tak go nazwano — skonstruowany był głów- 
nie w oparciu o układy scalone małej skali integracji (op- 
rócz procesora i pamięci) i wkrótce okazał się przestarza- 
łym. W 1981 r. pojawił się nowy mikrokomputer ZX-81, 
który do końca następnego roku był najpopularniejszym 
mikrokomputerem w Europie. Pod koniec 1982 r. firma 
Sinclair wprowadziła ZX-Spectrum, który miał: 16 k 
RAM, 16 k ROM, Z-80A. Szybko pojawiła się wersja 48 k. 
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a w połowie 1984 r. Sinclair-QL, zbudowany w oparciu o 
16-bitowy procesor firmy Motorola 68008, pamięci 32 k 
ROM i 128 k RAM oraz koprocesor INTEL. Nie było to 
jednak udane rozwiązanie i pod koniec 1984 r. pojawił 
się Spectrum Plus, czyli dawny ZX w nowej obudowie i 
od początku 1985 r. także o nowym rozwiązaniu kons- 
trukcyjnym. 

skala integracji, stopień scalenia — skala (wielkość) sca- 
lenia elementów podstawowych w układach scalonych 
(przy obecnym rozwoju technologii s.i. rośnie bardzo 
szybko, np. w 1978 r. do 20 tys. elementów podstawo- 
wych w jednym układzie scalonym lub 3 tys. elementów 
podstawowych na 1 mm 2 , a w latach 1980 — 1990 przewi- 
duje się 10 6 el. podst. i 250 tys. el. log. w jednym ukła- 
dzie. Dla porównania s.i. zamiast elementów podstawo- 
wych podaje się również liczbę tranzystorów (również 
elementów logicznych) przyjmując cztery stopnie s.i. 

— mała (standardowa) s.i. (SSI — Smali Scalę Integra- 
tion) do 20; 

— średnia s.i. (MSI — Medium Scalę Integration) od 20 
do 100; 

— wielka s.i. (LSI — Large Scalę Integration) od 100 do 
1000; 

— bardzo wielka s.i. (V!SI — Very LSI) od 1 tys. do 100 
tys. 

— super wielka s.i. (SLSI — SUPER LSI) powyżej 100 tys. 
tranzystorów w jednym układzie 

A. integrated scala 
N. Integrationsskale (f)) 

R. uiKaJia HHTerpHpoBaHHfl 

skok — kontynuowanie programu nie w kolejności roz- 
kazów zapisanych w pamięci programu 
A. jump, branch 
N. Sprung (m)) 

R. nepexofl 

skok powrotny w podprogramie — rozkaz podprogra- 
mu powrotu do rozkazu wywołania podprogramu w 
programie głównym (wywołującym) 

A. return instruction 
N. Unterprogrammriicksprung (mj) 

R. KowaH^a B03Bpaxa b no^nporpaMMe 
skok warunkowy — skok, który wykonywany jest tylko 
wówczas, jeżeli spełnione są odpowiednie warunki 
A. conditional jump, conditiona! banch 
N. bedingter Srung (m), bedingte Verzweigung (f)) 

R. yc;ioBHbiH nepexo.a, ycjioBHoe pa3BeTBueHHe 
skok wyliczany — zastosowany adres skoku wylicza się 
dopiero w trakcie przetwarzania programu na podstawie 
określonych warunków 
A. computed go to 
N. berechneter Sprung (m)) 

R. 

składnia — reguły tworzenia określonego języka (np. 
oprogramowania) 

A. syntax 
N. Syntax (f)) 

R. 

słowo — ciąg bitów lub znaków, które w określonym ję- 
zyku, również zależnym sprzętowo (rodzaj mikrokom- 
putera czy układu sterowania) traktowane są jako całość 
A. word 
N. Wort (n)) 

R. CJIOBO 

słowo kluczowe — słowo wybrane do charakteryzowa- 
nia treści dokumentu 
A. Keyword 
N. Schliisselwort (n)) 

R. 

służba serwisowa — techniczna służba obsługi użytkow- 
ników (klientów) 


A. field service 

N. technischer Kundendienst (m)) 

R. oócJiywHBaHHe aóoHeHTa 

SNA — System NetWork Architektur — architektura sy- 
stemów sieciowych (umożliwia pracę systemów PS/2 w 
sieci z dużymi komputerami) 
software — oprogramowanie 

sonda układów logicznych — sprzęt serwisowy i po- 
mocniczo-projektowy do kontroli stanów układów logi- 
cznych — analizator stanów obw'odów logicznych 
A. logie (digital) probe 
N. Logiksonde (f), Logik-Prufstift (m)) 

R. 

sprzęg - złącze 

sprzęt komputerowy — fizyczne składniki (hardware) sy- 
stemu przetwarzania danych bez oprogramowania (soft- 
ware) 

A. hardware 

N. Hartware (f), materielie Ware (f)) 

R. annapaTHafl nacrb, xapTBep 
sprzęt pomocniczo-projektowy — oparte na mikro- lub 
minikomputerach zestawy sprzętu, jak: analizator, wi- 
deoskop, urządzenie programujące (programer), emula- 
tor i inne, służące do oprogramowywania, testowania i 
projektowania systemów cyfrowych opartych na mik- 
roprocesorach; s.p.p. stanowi integralną część systemów 
uruchomieniowo-rozwojowych 
A. development equipment, development tools 
N. Entwicklungsgerate (pl), Entwicklungswerkzeuge 

(P*)) 

R. 

stały program pracy — układ sterowania skonstruowany 
dla konkretnego programu roboczego (zastosowanie w 
robotach i prostych urządzeniach); do jego ewentualnej 
zmiany należy zaprojektować i wykonać nowy układ ste- 
rowania 

A. constant (non programmable) working program 
N. fester (nicht-programmierbarer) Arbeitsprogramm 
(m)) 

R. 

stan — aktualny stan poszczególnych układów mikro- 
komputera (komputera) — bit stanu — rejestr statusowy 
A. status 

N. Status (m), Zustand (m)) 

R. cocTOAHne, pewHM 

status — stan lub sygnał stanu (— bit stanu) 
sterowanie automatyczne — ogół sterowań, w których 
algorytm sterowania jest realizowany bez udziału czło- 
wieka 

A. automatic control 
N. automatische Steuerung (f)) 

R. aBTOMaTHHecKoe ynpaBJieHHe 
sterowanie cyfrowe — sterowanie numeryczne 
sterowanie mikroprocesorowe — układy sterowania 
oparte na mikroprocesorach (mikrokomputerach) 

A. microprocessor control, microprocessor based con- 
troller, microcontroller, microcomputer numerical 
control 

N. Mikroprocessorsteuerung (f), Mikroprocessor- 
steueranlage (f), Mikrokomputersteuerung (f)) 

R. MHKponpoueccopHbiH KOHTpOJiep 
sterowanie numeryczne — system programowalnego 
sterowania automatycznego działający w oparciu o — u- 
kłady cyfrowe (numeryczne) wg programu zakodowa- 
nego binarnie bezpośrednio w układzie sterowania lub 
na nośniku wprowadzonym sekwencyjnie do pamięci 
układu 

A. numerical control 

N. numerische Steuerung (f), digitale Steuerung (f)) 

R. uH^poBoe ynpaBJieHHe, flHCKpeTHoe ynpaBJieHHe hhc- 
jiOBoe nporpaMHoe ynpaBJieHHe (Mny) 


M-JIIKS 


sterowanie programowe — takie, w którym impulsy ste- 
rowania zmieniają się wg z góry określonego — stałego 
lub — zmiennego programu pracy: np. sterowanie cy- 
klem pracy robota w tym pojęciu odbywa się zawsze wg 
programu, a sterowanie ręczne służy tylko funkcjom 
pomocniczym (ustawienie, regulacja, nauka programu) 

A. program controller (control unit). 

N. Programmsteuerung (f)) 

R. nporpaMHoe ynpaBJieHHe 

sterowanie sekwencyjne — takie, które każdą następną 
czynność (określonego procesu) wywołuje wg z góry o- 
kreślonej kolejności, po zakończeniu poprzedniej 
A. sequencing control 
N. Folgesteuerung (f), Ablaufsteuerung (f)) 

R. nocjre^oBaTejitHoe ynpaBJieHHe 
sterownik - układ sterowania automatycznego - układy 
cyfrowe — programatory — programowalne układy ste- 
rowania 

stos — zespół rejestrów lub miejsc pamięci, których za- 
wartość jest wywoływana w kolejności odwrotnej do ich 
zapisywania 

A. stack, push-down storage, nesting storę 
N. Kellerspeicher (m), Stapel (m)) 

R. CTeK, HaKeT 

stopień scalenia - skala integracji 
struktura rozkazu — budowa rozkazu 
superkomputer — komputer dużej mocy obliczeniowej, 
specjalnego przeznaczenia (wojskowość, meteorologia 
itp.), o dużych pamięciach operacyjnych (wewnę- 
trznych) rzędu 6 A — 256 MB i szybkości obliczeń rzędu 
100 min — 1 mld operacji/s 

sygnalizacja (zgłoszenie) błędu — 1 . informacja, że wy- 
kryto błąd; 2. reakcja komputera na błąd w programie 
lub w danych, na którą składa się wykazanie rodzaju lub 
przyczyny błędu przez drukarkę, terminal lub inny ro- 
dzaj sygnalizacji 
A. error message, error signal 
N. Fehlermeldung (f), Fehlersignal (m)) 

R. CHrHaji ouiHÓica 
sygnalizator —flaga 

symulacja — modelowe naśladowanie na mikrokompu- 
terze lub częściej na komputerze dowolnego systemu 
innego mikrokomputera za pomocą odpowiedniego 
oprogramowania 
A. simulation 
N. Simulation (f)) 

R. MOflejmpoBaHHe 

symulator — 1 . program, który umożliwia symulację; 2. 
interpreter, który interpretuje programy napisane w ję- 
zyku komputera (maszynowo zorientowanym) 

A. Simulator 
N. Simulator) 

R. Mo^ejiHpymaH nporpaMMa 
syntaktyka — składnia 

system — 1. sprzęt komputerowy: a) kompleksowy ze- 
staw (komputer, urządzenia peryferyjne, oprogramowa- 
nie systemowe i użytkowe), b) pewna liczba modeli ok- 
reślonego typu jednego wytwórcy; 2. określony zakres 
oprogramowania całego komputera lub jego składników 
(np. system wejścia/wyjścia); 3. komplet programów 
użytkowych (lub jeden całościowy) określonego prob- 
lemu (zadania) 

A. system 
N. System (n)) 

R. cHCTeMa 

system dziesiętny — taki, którego podstawą jest liczba 10 
A. decimal system' 

N. Dezimal-system (n)) 

R. jaecflTHHHaH CHCTeMa 

system generacji oprogramowania - systemy urucho- 
mieniowo-projektowe 


system liczbowy — sposób zapisywania i nazywania liczb 
A. number system 
N. Zahlensystem (n)) 

R. CHCTeMa chhcjichhh 

system mikrokomputerowy — system, który pod wzglę- 
dem funkcjonalnym odpowiada komputerowi, składa 
się nań kilka układów scalonych, które zawierają takie 
grupy funkcjonalne, jak: jednostka centralna, pamięć 
programu i danych we/wy oraz pełnego oprogramowa- 
nia systemowego i użytkowego 
A. microcomputer system 
N. Mikrocomputersystem (n)) 

R. CHCTeMa MHKpo 3BM 

system modularny — 1 . system oprogramowania o bu- 
dowie modułowej; 2. system mikrokomputerowy o bu- 
dowie modułowej;3. — budowa modułowa 
A. modular system 

N. Modularsystem (n), Baukastensystem (n), Baustein- 
sy stem (n) 

R. MOAyjiHPHaa CHCTeMa 

system operacyjny — zespół programów, które zapew- 
niają eksploatację komputera do przetwarzania danych, 
a w szczególności sterują i nadzorują wprowadzanie i 
wykonywanie innych programów, a poza tym umożli- 
wiają: administrowanie programami i danymi, tłuma- 
czenie programów, wykrywanie błędów w programach i 
usterek (awarii) w sprzęcie itd. 

A. operating system, OS 
N. Betriebssystem (n), Operationssystem (n) 

R. onepaitHOHHaH CHCTeMa 

system operacyjny dyskowy — system operacyjny 
komputera, w którym m.in. programy systemu, progra- 
my użytkowe i zbiory danych zawarte są w pamięci dy- 
skowej lub bębnowej 
A. disk operating system, DOS 
N. Platten-Betriebssystem (n) 

R. 

system prototypowy — systemy uruchomieniowo-rozwo- 
jowe 

system przenoszenia i przetwarzania zdalnego — 1. sy- 
stem przetwarzania danych przy ich transmisji (teledacji) 
przez współpracę ze stacjami abonenckimi (A. remote 
data processing, N. Datenfernverarbeitung (f); 2. system 
transmisji danych (teledacji) A. data transmision, N. Da- 
teniibertragung) 

A. data communication system 

N. Datenfernverarbeitungssystem (n), Dateniibermitt- 
lungssystem (n) 

R. 1. CHCTeMa flHCTaHUHOHHOH OÓpaÓOTKH JiaHHbIX 

2. CHCTeMa nepe,naHH ,naHHbix 
system przetwarzania danych — kompletny zestaw do 
przetwarzania danych składający się z komputera, urzą- 
dzeń peryferyjnych, oprogramowania systemowego 
(operacyjnego) i użytkowego 
A. data processing system 
N. Datenverarbeitungssystem (n) 

R. CHCTeMa atih oópaóoTKH naHHbix 
system szesnastkowy — zapis szesnastkowy 
system użytkowy — mikrokomputerowy, który jest 
projektowany do stosowania (dla użytkownika), termin 
stosowany dla rozgraniczenia od systemów projekto- 
wych (uruchomieniowo-rozwojowych) 

A. target system 

N. Zielsystem (n), Anwendersystem (n) 

R. CHCTeMa pe3yjibTaTa (uejm) 
system wieloprocesorowy — system mikrokomputero- 
wy (komputerowy), którego jednostka centralna składa 
się z kilku mikroprocesorów (procesorów), które 
współpracują ze sobą na zasadzie równorzędności lub 
jeden z nich nadzoruje pozostałe. Generalnie, jednostka 




sterująca może być tylko jedna, a arytmometrów kilka, 
urządzenia we/wy i pamięci mogą być wspólne lub po- 
dzielone. System taki umożliwia przetwarzanie wielo- 
programowe. 

A. multiprocesor (multiprocessing) system 
N. Mehrprozessorsystem (n), Mehrrechner-verarbei- 
tung (f) 

R. MyjibTHnpoueccopHaH cHcreMa 
system wspomagania — systemy uruchomieniowo-roz- 
wojowe 

system zarządzania bazą danych — procedura manipu- 
lowania danymi, (zbiór programów związanych z: two- 
rzeniem zasobów, zarządzaniem, wyszukiwaniem, za- 
bezpieczaniem) nieodłączny element banku (zbioru) 
danych 

A. data base file management 
N. Datenbankdatei-Verwaltung (f) 

R. CHCTeMa ynpaBJieHHH óamcoM jiaHHbix 
system zunifikowany — budowa modułowa 
A. modular system 

N. Bausteinsystem (n), Baukastensystem (n) 

R. Mo^yjiflpHaa CHCTeMa 

systemy uruchomieniowo-rozwojowe (projektowe) 

— systemy oparte na — sprzęcie pomocniczo-projek- 
towym, stanowiące podstawę do opracowywania i te- 
stowania oprogramowania (software) mikrokompute- 
rów. W skład programów systemowych s.u.r. wchodzą 
m.in. programy: sterujący — monitor, wydawniczy — 
editor, uruchamianie — debugger (testowania) lub sy- 
mulacyjny, translacyjny — asembler, na ogół możliwe 
też jest testowanie (w czasie rzeczywistym) systemu lub 
sprzętu (hardware) przez dodatkowy sprzęt lub progra- 
my do emulacji 

A. development system, software development sy- 
stem, MDS — Microprocessor Development System 
N. Entwicklungssystem (n), Software-Entwicklungssy- 
stem (n), Mikrocomputerentwicklungssystem (n) 

R. 

systemy wspomagania — sprzęt pomocniczo-projekto- 
wy i systemy uruchomieniowo-rozwojowe 
szyna — magistrala 

tablica połączeń — tablica programowania 


tablica programowania — 

tablica połączeń służąca do 
programowania przez łącze- 
nie poszczególnych gniazd 
(obwodów) za pomocą wty- 
kowych przewodów połą- 
czeń, diod lub zwieraczy wg 
określonego szablonu (for- 
mularza), stosowana głównie do sterowania programo- 
wego urządzeń i układów technologicznych (np. robo- 
tów, kodopisów) spotykana- również w drobnym sprzę- 
cie komputerowym (np. kalkulatorach elektronicznych) 
A. pług board, plug-in board, patchpanel 
N. Stecktafel (f), Schalttafel (f), Steckfeld (n) 

R. HaóopHoe nojie, KOMMyTauHOHHaa jiocKa 
tablica symboli — tablica wszystkich symboli zawartych 
w programie źródłowym i przynależne do nich adresy 
względne lub bezwględne, t.s. wykonuje asembler lub 
kompilator 
A. symbol table 
N. Symboltabełle (f) 

R. TaÓJiHua chmGojiob 
tablica wtykowa — tablica programowania 
taśma mangetyczna — rodzaj nośnika w pamięciach 



zewnętrznych o dostępie sekwencyjnym, używana w 
postaci szpul i kaset t.m. 

A. magnetictape 
N. Magnetband (n) MB 
R. MarHHTHaa jieHTa 

teledacja — transmisja danych (patrz też system przeno- 
szenia) 

teleinformatyka - system przenoszenia i przetwarzania 
zdalnego 

teleprzetwarzanie — system przenoszenia i przetwarza- 
nia zdalnego 

teletransmisja danych, teledacja — transmisja (patrz też 
system przenoszenia) 
terminal — urządzenie końcowe 
TTY — Teletype (unit) — dalekopis 
test porównawczy — test porównawczy wydajności 
mikrokomputerów (komputerów) za pomocą jednego 
lub wielu programów testujących, jak np. „mieszanka" 
GAMM, XIX itp., niestety wszystkie te metody mają wie- 
le wad i tzw. bezwzględne porównanie jest na obecny 
stan wiedzy i środków problematyczne 
A. Benchmark comparison 
N. Benchmarkvergleich (m) 

R. 

tester układów — sprzęt do testowania układów scalo- 
nych lub całych produktów na płytach obwodów dru- 
kowanych, często samoprogramujący się wg płyt wzor- 
cowych 

A. i-c tester, PCB-tester 

N. i-s Tester (m), Leiterplattentester (m) 

R. npHÓop fljiH npoóepKH k-c 
tłumaczenie programu — translator 
TOS — Tramiel Operating System — system operacyjny 
mikrokomputera „Atari" (opracowany przez Jacka Tra- 
miela-Trzmiela) 

translator — program służący do translacji (tłumacze- 
nia) programów źródłowych napisanych w języku pro- 
gramowania (na ogół „wyższego poziomu") na język 
komputera, t. języków programowania zorientowanych 
(Algol, Fortran, Cobol, PL 1 itp.) nazywa się również 
kompilatorami, t. przeznaczone do maszynowego („au- 
tomatycznego") programowania OSN nazywa się proce- 
sorami. Program po przetłumaczeniu nazywa się pro- 
gramem wynikowym 
A. translator 
N. EJbersetzer (m) 

R. TpaHCJlHTOp 

translator asemblera — asembler 
A. assembler, assembly program 
N. Assembler (m), Assemblierer (m) 

R. TpaHCJTflTOp 

transmisja danych, teledacja — jest to przenoszenie 
danych za pomocą — systemów przenoszenia 
A. data transmision 
N. Datenubertragung 
R. nepeflana flaHHbix 

transmisja dupleksowa — transmisja jednoczesna 
transmisja jednoczesna — jednoczesne pełnoduple- 
ksowe przesyłanie i odbieranie danych, tzn. po obu 
stronach pracuje jednocześnie i nadajnik i odbiornik (łą- 
cze czteroprzewodowe), natomiast w transmisji na- 
przemiennej (półdupleksowej) pracuje zawsze na prze- 
mian odbiornik i nadajnik 
A. dupiex, duplex operation 
N. Duplex, Vollduplexbetrieb (m) 

R. flyrnieKCHaa nepe^ana 

transmisja półdupleksowa — patrz transmisja jedno- 
czesna 

A. half duplex operation 
N. Ha!bduplexbetrieb (m) 

R. 




transputer — szybkie 32-bitowe, ^iP z ROM i RAM w 
jednym układzie, dające się łączyć w równoległe struk- 
tury wieloprocesorowe, o krótkiej liście rozkazów, RISC, 
których duża część jest realizowana sprzętowo (nazwa 
TRANSPUTER powstała z połączenia ang. słów TRANSi- 
stor — comPUTER) 

TSIC — CTSIC — Combinational Test Station (for) Inte- 
grated Circuit — uniwersalna stacja testowania obwo- 
dów scalonych 



U ART — Universal Asyn- 
chronous Receiver Trans- 
mitter — uniwersalny 
moduł lub narzędzie we/wy 
do asynchronizacji seryjnej 
transmisji danych 
ujęcie danych — część 
urządzenia do przetwarza- 
nia lub teletransmisji da- 


nych, które może sygnały danych przyjmować 
A. data sink 
N. Datensenke (f) 

R. npHeMHHK flaHHbIX 

układ elementarny — zbudowane z elementów pod- 
stawowych proste układy logiczne, jednostki przełącza- 
jące (elementy przełączające) i pamięciowe, służące jako 
zespoły (moduły) w budowie układów sterujących, kom- 
puterów itp. 

A. elementarny Circuit 

N. elementare Schaltung (f), Baustein (m), elementa- 
ler Schaltkreis (m) 

R. 3JieMeHTapHas cwcTeMa 

układ elektroniczny — układ, którego działanie jest 
oparte na wykorzystaniu właściwości elektronicznych 
elementów podstawowych 
A. electronic system 
N. elektronisches System (n) 

R. 3jieKTpoHHa« CHCTeMa 

układ funkcjonalny — układ realizujący określoną 
funkcję 

A. functional — błock device, functional assembly 
N. Funktionsblock (m), Funktionsbaugruppe (f) 

R. (JjyHKItHOHaJlbHblH 6 jiok 

układ hybrydowy — 1. układ (lub cały moduł) wykona- 
ny zarówno z układów scalonych, jak i elementów pod- 
stawowych; 2. układ (moduł) analogowo-cyfrowy 
A. 1. hybrid technology, 2. hybrid Circuit (unit) 

N. 1. Hybridtechnologie (f), Hybridtechnik (f), 2. Hy- 
bridschaltung (-einheit) (f) 

R. 1 . rHópHflHafl TexHHKa 2. rn6pH,aHas cxe\ia 
układ logiczny — układ zbudowany z elementów logi- 
cznych i pomocniczych, realizujący funkcje logiczne 
A. logical Circuit 
N. logische Schaltung (f) 

R. jiorHCKaa CHCTeMa 

układ przełączający — układ zbudowany z elementów 
przełączających; u.p. dzielą się na kombinacyjne i sek- 
wencyjne (pamięciowe), których stan wyjść jest zależny 
nie tylko od stanu wejść, ale i od stanu wewnętrznego; 
u.p. należą do ogółu układów logicznych o działaniu dy- 
skretnym 

A. switching Circuit (element) 

N. Schaltwerk (n), Schaltglied (m) 

R. nepeKjiK)HaK)wa« cxeMa 
układ sprzęgający - złącze 


układ scalony, us — układ elektroniczny, którego ele- 
menty i połączenia są wytworzone wewnątrz i/lub na 
wspólnym podłożu w sposób nierozdzielny, w mikroe- 
lektronice (mikroprocesory, mikropamięci) są to monoli- 
tyczne — u.s. półprzewodnikowe, zawierające elementy 
podstawowe czynne (bipolarne lub unipolarne) i bie- 
rne; u.s dzielą się według wielu kryteriów (funkcjonal- 
nych, technologicznych, wielkości integracji). Powyższe 
ujęcie u.s. odnosi się do cyfrowych układów scalonych, 
w pojęciu ogólnym mogą to być również układy analo- 
gowe i hybrydowe 
A. integrated Circuit, IC 

N. integrierte Schaltung (f), integrierter Schaltkreis 

(m) 

R. HHTerpaJibHaa cxeMa 

układ scalony półprzewodnikowy — układ scalony 
wytworzony w płytce półprzewodnikowej technologią 
epiplanarną (planarną) — nakładaniem lub wytrawia- 
niem warstw i dyfuzyjnym domieszkowaniem 
A. semiconductor integrated Circuit 
N. integrierte Halbleiterschaltung (f) 

R. nojiynpoBOflHHKOBaH HHTerpajibHaa cxeMa 
układ sterujący — jednostka sterująca, również popular- 
na nazwa części sterującej — układu sterowania automa- 
tycznego 

układ sterowania automatycznego — zespół funkcjo- 
nalny składający się z obiektu sterowania i oddziału- 
jącego na niego automatycznego (o programie stałym 
lub reprogramowalnym) układu sterującego 
A. automatic control unit (Circuit) 

N. automatischer Steuerungskreis (m) 

R. cxeMa aBTOMaTHMecKoro ynpaBJieHHH 

układ złączowy — na ogół układ mikroprocesorowy o 
budowie modułowej (wymienne moduły) lub progra- 
mowany, zwany również złączem inteligentnym, umoż- 
liwiający współpracę mikrokomputera z urządzeniami 
peryferyjnymi i (lub siecią teledacji) — modem 
A. PIA — peripheral interface adapter 

PIO — Programmable Input-Output-chip 
ACIA — asynchronous communication interface 
adapter 

UART — Universal Asynchronous Receiver 
(Transmiter) 

GPIB — General Propouse Interface Base — zna- 
ny pod symbolem IEFE — 488, a w Euro- 
pie jako IEC-625, wykorzystywany głów- 
nie w automatyce pomiarów 
N. 

R. 

układy cyfrowe — układy zbudowane z elementów 
podstawowych lub układów elementarnych wykonane 
w postaci scalonej lub hybrydowej, wykonujące opera- 
cje logiczne na zbiorach sygnałów dyskretnych dwuwar- 
tościowych (binarnych). Ze względu na wykonywane 
funkcje dzielą się na kombinacyjne i sekwencyjne, te zaś 
na asynchroniczne i synchroniczne -* układy numery- 
czne 

A. digital Circuit 
N. Digitalschaltung (f) 

R. uH(j)poBbie cxeMbi 

układy dyskretne — układy cyfrowe, termin u.d. używa 
się często (a bezzasadnie) do określenia ogółu — ele- 
mentów podstawowych (przeciwstawnie do układów 
scalonych) 

układy numeryczne — układy sterowania cyfrowego 
(lub analogowo-cyfrowego, AC, CA). Nazwę „numery- 
czne” stosuje się głównie do systemów sterowania obra- 
biarek (dawniej zwane sterowaniem liczbowym), patrz 
też — układy przełączające, układy scalone 


IKS-29 


A. numerical Circuit 
N. numerische Schaltkreise (f) 

R. cxe\ia (cHcre\ia) HiicaoBHoro ynpaBjieHHfl 
upakowany — 1. sposób zapisu danych (patrz też: for- 
mat upakowany); 2. sposób lub stan zagęszczenia ele- 
mentów w urządzeniu (patrz też: gęstość upakowania) 

A. packed 
N. gepackt 
R. ynaKOBaHHWM 

uruchamianie (programu) z usuwaniem błędów — 

sprawdzanie poprawności działania programu z kolej- 
nym usuwaniem wykrytych w nim błędów, może się 
również odnosić do uruchamiania sprzętu 
A. debug, debugging 
N. debugging, „entwanzen” 

R. OTJiaAKa nporpaMMbi, oTJia>KHBaTb 

urządzenie dialogowe — urządzenie do komunikacji z 
komputerem przv pracy konwersacyjnej 
A. interactive terminal 
N. Dialoggerat (ni 
R. .anajioroBoii TepMHHan 

urządzenie do programowania (programujące) urzą- 
dzenie do programowalnych i reprogramowalnych pa- 
mięci typu „tylko odczyt”; kasowanie uprzedniej zawar- 
tości jest dokonywane za pomocą promieni X, promieni 
ultrafioletowych lub na drodze elektrycznej przez tzw. 
lawinowe wstrzykiwanie dziur. Zapis dokonywany jest 
z „MASTER-PROM” metodą duplikowania tzw. — ła- 
dowaczem pamięci lub z klawiatury u.p. 

A. data l/O programmer, programming device, 
PROM programmer 

N. Programmiergerat (n), PROM — Programmierge- 
rat (n) 

R. nporpaMMep 

urządzenie końcowe — urządzenie przeznaczone do 
kontaktowania się z komputerem z oddalonego miejsca 
A. terminal 

N. Terminal (n), Datenendgerat (n) 

R. TepMHHaji 

urządzenie liczące — arytmometr 

urządzenie peryferyjne — takie, które współpracuje z 
komputerem, lecz nie stanowi jego integralnej części 
A. peripheral, peripherai equipment (unit, device) 

N. Peripheriegerat (ni, Anschlussgerat (n), Anschlus- 
seinheit ff) 

R. BHeiuHee ycTpoficTBO, nepH^epHHHoe ycTpoHCTBO 
urządzenie rysujące, rejestrator XY — urządzenie pery- 
feryjne umożliwiające wyprowadzenie wyników w po- 
staci punktów, krzywych (wykresów) i rysunków 
A. plotter, digital plotter, graph plotter, giaphical de- 
vice 

N. Plotter (m), Zeichengerat (nj, Digitaiplotter (m) 

R. caMonHceu, rpa<f>onocTpoHTe.ib, KoopflHHaTop 
urządzenie sterujące — jednostka sterująca 
urządzenie wejścia/wyjścia — 1. urządzenie do wpro- 
wadzania i wyprowadzania danych; 2. określenie ogółu 
składników związanych z we/wy danych 
A. i/o, input/output (unit) 

N. Ein — (Ausgabe) (f) 

R. ycrpoiłcTBO BBcwa — BbiBO^a 
urządzenie zewnętrzne — urządzenie peryferyjne 
urządzenie zwrotne — urządzenie wejścia/wyjścia 
U.S — układ scalony i — układ sterowania 
USART — Universal Synchronous Receiver/Transmitter 
— uniwersalny moduł (lub urządzenie) we/wy do 
synchronicznej seryjnej transmisji danych 
używalność wielokrotna — wieloużywalność 



VGA — Video Graphies 
Array — układ sterowania 
grafiką (sterownik monito- 
ra ) 

VHSIC — Very High Speed 
Integrated Circuit — układy 
scalone bardzo szybkiego 
działania 


VLSI — Very Large Scalę Integration — bardzo wielka 
skala integracji układów scalonych 


wariant — 1 . warunek (wa- 
riant) w instrukcji, z którego 
może skorzystać programi- 
sta; 2. możliwość otrzyma- 
nia (zakupu) dodatkowego 
wyposażenia, którego nor- 
malny zakres dostawy nie 
obejmuje 

N. Option (f), 1. Auswahlbedingung (f), 2. Zusatz (m) 

R. BblÓOp, BapnaHT 

wartości standardowe — dane standardowe 
wejście — wyrażenie „input” odnosi się do takich po- 
jęć, jak: 1. urządzenie techniczne wejścia (wprowadza- 
nia) danych; 2. czynność wyprowadzania danych; 3. da- 
ne lub sygnały wprowadzane 
we/wy — urządzenia wejścia/wyjścia 
wieloprzetwarzanie — system wieloprzetwarzania 
A. multiprocessing, paraller Processing 
N. Multiprozessing (n), Mehrrechnerverarbeitung (f) 
R. MHoroKpaTHaa (napa.uienbHafl) oópaóoTKa 
wieloprogramowość — przetwarzanie wieloprogramo- 
we 

A. multiprogramming 

N. Multiprogramming (f), Mehrprogrammbetrieb (m) 
R. MyjibTHnporpaMMHpoBaHHe 
wieloużywalność — możliwość wielokrotnego szere- 
gowego użycia programu lub podprogramu przy przet- 
warzaniu wieloprogramowym, bez potrzeby jego po- 
nownego ładowania 
A. reusability 
N. reusability 

R. noBTopHo Hcno:ib3yeMOCTb 

WIMP — Windows, Icons, Mouse (Mice) and Pull- 
-down menus — okna, ikony, mysz i zwijane menu — 
elementy systemów operacyjnych (porównaj GEM) 
ułatwiających obsługę mikrokomputerów (tzw. systemy 
przyjazno-życzliwe) 

WS Word Star — edytor tekstów 

wskaźnik pozycji — migający punkt lub przecinek na 
monitorze ekranowym 
A. cursor 

N. Kursor (m), Positionsanzeiger (m) 

R. Kypcop 

wskaźnik stanu — flaga 

wskaźnik stosu — rejestr, w którym znajduje się adres 
słowa stosu (ostatni zapisany lub w trakcie przetwarzania 
kolejny nie przykryty) 

A. stack pointer 

N. „Stapel” — Zeiger (m), Kellerspeicherzeiger (m) 

R. 

wprowadzanie danych — umieszczanie danych w pa- 
mięci wewnętrznej 
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A. data input 
N. Dateneingabe (f) 

R. BBO^AEHHbIX 

współużywalność — możliwość wielokrotnego, jedno- 
czesnego (reenterable) użycia programu lub podpro- 
gramu 
A. reentry 
N. reentry 

R. peeHTepa6ejibHHbiH 

wsuwka — - popularna nazwa wsuwanej karty (płyty), 
pakietu lub kasety stosowanych w budowie modułowej 
A. slide-in chassis 
N. Einschub (m) 

R. CbeMHblH (CMeHHblii) 6iIOK 

wyciąg zawartości pamięci — kopia zawartości pamięci 
wyjście — wyrażenie „output" odnosi się do wielu po- 
jęć i w kontekście może mieć bardzo różne znaczenie 
dające się sklasyfikować jako: 1. urządzenia techniczne 
wyjścia danych (sygnałów); 2. czynność wyprowadzania 
danych; 3. dane (sygnały) po wyprowadzeniu (wyjściu) 
A. output 
N. Ausgabe (f) 

R. BbIXO.II 

wyjście — np. wyjście z pętli, tzn. warunki przerwania 
pętli 
A. exit 

N. Ausgang (m), Ausgabe (f) 

R. BbIXO/t, BblBOfl 

wykonanie rozkazu — odcinek cyklu maszynowego, w 
trakcie którego wykonywany jest rozkaz 
A. instruction execution 
N. Befehlsausfiihrung (f) 

R. BbinojiHeHHe KOMaHflbi 

wymiana danych — przenoszenie danych między dwo- 
ma miejscami naprzemiennie 
A. data exchange 
N. Datenaustausch (m) 

R. 06 MeH flaHHblMH 

wymienność — urządzenia, nośniki danych i oprogra- 
mowanie, które bez procedur dostosowujących mogą 
być między sobą wymieniane albo mogą ze sobą współ- 
działać, nazywane są wymiennymi, czyli mają one cechę 
wymienności 
A. compatibility 
N. Kompatibilitat (f) 

R. COBMeCTHMOCTb 

wymienność oprogramowania — wymienność doty- 
cząca tylko oprogramowania 
A. software compatibility 
N. Software — Kompatibilitat (f) 

R. CO(j)TBap (KOMnaTH6HJIbHOCTb) CMeHfleMblH 
WYSIWYG — What You See Is What You Get — co wi- 
dzisz, to otrzymasz, czyli wierne odzwierciedlenie treści 
z ekranu monitora 

wywołanie — rozkaz lub sekwencja rozkazów do zaini- 
cjowania w komputerze określonej funkcji, np. przer- 
wania obróbki programu i rozpoczęcia podprogramu 
A. cali 

N. Aufruf (m) 

R. BbI30B 

wywołanie makro — instrukcja w języku typu asembier 
powodująca zastąpienie przez asembler — makro defi- 
nicji — makro odpowiednią sekwencją rozkazów 
A. makro cali 
N. Makroaufruf (m) 

R. BbI30B MaKpo 

wywołanie podprogramu - wywołanie 
A. subroutine cali 
N. Unterprogrammaufruf (m) 

R. 6bi30B noiinporpaMMbi 


wywołanie rozkazu — faza cykłu wykonania rozkazu, w 
czasie której następny rozkaz jest przenoszony z pa- 
mięci programu do jednostki sterującej 
A. instruction fetch (look a head) 

N. Befehlsabruf (-phase) (m), „Befehl hole” 

R. BbI30B KOMamibi 


zadanie — 1. sekwencja 
programów do opracowa- 
nia zdefiniowanego zadania 
(np. wykonanie list płac); 2. 
każdy z programów użyt- 
kowych przewidziany do 



realizacji na komputerze — stanowi dla komputera za- 
danie (pracę) 

A. job, fask 

N. 1. Auftrag (m), 2. Arbeit (f), Stellu ng (f) 

R. 3a,aaHHe 

zagęszczenie — pakowanie danych 
zakładkowe wykonywanie instrukcji — w czasie jedne- 
go cyklu zegarowego mikroprocesor może jednocześ- 
nie wykonywać mikroinstrukcję i zinterpretować na- 
stępną 

A. pipelining 
N. Uberloppung (f) 

R. 

zapis dziesiętny — zapis utworzony przy zastosowaniu 
dziesięciu cyfr od 0 do 9 (o podstawie 10), umieszczo- 
nych na pozycjach, którym są przyporządkowane kolej- 
ne potęgi liczby 10 
A. decimal notation 
N. Dezimaldarstellung (f) 

R. .necflTHHHoe npeACTaBjieiiHe 
zapis szesnastkowy — zapis systemu liczbowego o pod- 
stawie 16 przy wykorzystaniu 16 cyfr 0...9, A = 10, 
B = 11, C — 12, D = 13, E = 14, F = 15 umieszczonych 
na pozycjach, którym przyporządkowane są kolejne po- 
tęgi liczby 16 
A. hexadecimal 

N. Hexadezimaldarsteilung (f), Sedezimaldarstellung 

(0 

R. npe^CTaBJieHHe HHceji b mecTua^uaTepHMHHH 
zapytywanie — za pomocą programu zapytywania mo- 
żna przez urządzenia konwersacyjne (monitor) spraw- 
dzić aktualny stan komputera lub jego poszczególnych 
urządzeń (bajt stanu) lub wywołać pożądane informacje 
o wynikach przetwarzania zawarte w pamięci 
A. interrogation 
N. Abfrage (f) 

R. cnpoc 

zarządzanie danymi — ogólne pojęcie do określenia 
czynności systemu operacyjnego i programów systemo- 
wych, które dotyczą dostępu do zbioru danych, a więc 
wprowadzania i wyprowadzania danych, ich przecho- 
wywania i zabezpieczenia 
A. data management 

N. Datenmanagement (n), Datenverwaltung (f) 

R. ynpaBiieHHe .aaHHbiMH 

zawieszenie — przerwanie nieprzewidziane lub niepo- 
żądane w wykonywaniu programu spowodowane nie- 
prawidłowym zapisem instrukcji lub danych, zawiesze- 
niem programu w pętli bez wyjścia („zapętlicowanie”) 
itp. 
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A. hang-up 
N. Aufhangen (n) 

R. HeOKHfliiHHafl OCTaHOBKa 

zbieranie danych — działania w celu zebrania danych z 
kilku miejsc lub nośników w jedno miejsce lub nośnik 
A. data coliection, data gethering 
N. Datenerfassung (f) 

R. naóop naHHbix, 3anwcb .nanHbix 
zbiór danych — uporządkowany zbiór danych w pa- 
mięci-zewnętrzn^j 
A. data set, data file 
N. Datei (f), Datensatz (m) 

R. c6r'p jaHHbix 

zbiór rozkazów — repertuar rozkazów 
zbiór znaków — zestaw znaków, umowna skończona 
liczba znaków 
A. character set 

N. Zeichenvorrat (m), Zeichnsatz (m) 

R. 

zegar — zespół funkcjonalny (na ogół - generator ze- 
garowy z licznikiem), który emituje bezwzględne, wz- 
ględne lub przyrostowe sygnały czasowe; niezbędny w 
synchronicznych układach sekwencyjnych 
A. clock, timing (signai) generator timer 
N. Zeit (impuls) geber (m), Taktgeber (m) 

R. nporpa.MMHbiH peryjiaTop 

zegar przerwań — zegar (generator impulsów z liczni- 
kiem) inicjujący przerwanie w określonym czasie 
zero nieznaczące — zera znajdujące się na najbardziej 
znaczących pozycjach liczby, wypełniają one puste 
miejsca przed liczbą i nie mają znaczenia 
A. leading zero, left, hand zeroes 
N. fuhrende Nuli (f) 

R. Be;iymne hyjih. HyjiH b cTapiiiHX pa3p«flax 
zespół znaków — grupa znaków lub bitów w postaci 
ciągu, który może być traktowany jako jednostka 
A. string 

N. Zeichenfolge (f) 

R. 

zespół sterowania — jednostka sterująca 
zgodność — wymień ność 

złącze, interfejs 1. sprzętowo: a) układ elektroniczny 
(lub jego właściwości), który dwa urządzenia lub zespoły 
w miejscu połączeń do siebie dostosowuje, b) oznacze- 
nie sygnałów, które przez przewody złączowe są wy- 
mieniane; 2. w dziedzinie oprogramowania: obszar pa- 
mięci lub rejestrów, z którego korzystają dwa lub więcej 
programów 


A. interface 

N. Interface (n), Schnittstelle (f), Nahtstelle (f) 

R. HHTep(J)eHC 

złącze inteligentne — układ towarzyszący złączowy 
zmienna — dowolny element określonego zbioru 
A. variable 
N. Variable (f) 

R. nepeMeHHaa (BejiHHHHa) 

znak — element zestawu znaków (litery, cyfry, znaki, 
interpunkcje, znaki sterowania itp.) 

A. character 
N. Zeichen (n) 

R. 3H3K 

znak pusty — znak wypełniający bez znaczenia 
A. dummy 
N. blind, Attrape (f) 

R. 4>HKTHBHbIH 3 HUK 

znak sterujący — znak, który w przesyłanych danych 
pełni funkcje sterujące 
A. control character 
N. Steuerzeichen (n) 

R. 3H3K ynpaBJieHHA 

znacznik rozgraniczający — jakikolwiek przyjęty znak 
specjalny lub ich kombinacja do rozdzielenia nazw sta- 
łych, rozkazów lub danych 
A. delimiter, limiting mark 

N. Begrenzungszeichen (n), Begrenzungamarke (f) 

R. orpaHHMHTejib 

źródło — wyrażenie „source” jest stosowane przez 
niektórych autorów w dość szerokim (dowolnym) zna- 
czeniu, jak np: 1. źródło danych; 2. adres, pod którym 
znajdują się dane, które należy zastosować (przynieść); 
3. program źródłowy 
A. source 
N. Quelle (f) 

R. HCTOMHHK HH(J)OpMaUHH 

żądanie — 1. żądanie komputera w stosunku do obsłu- 
gi (wypisywane na ogół na monitorze) lub 2. żądanie ja- 
ko sygnał urządzeń w stosunku do siebie (np. urządze- 
nie wejścia do jednostki centralnej, przydział miejsca w 
pamięci) 

A. request 
N. Anforderung (f) 

R. 3anac, TpeóoBaHHe 

żądanie przerwania — sygnał z jednostki peryferyjnej 
do mikrokomputera (komputera) żądającej przerwania 
A. interrupt request 
N. Interrupt Anforderung (f) 

R. TpeóoBaHHe npepbiBaHHH 
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